diff --git a/grammar.js b/grammar.js
index e7a738e..cc8ab89 100644
--- a/grammar.js
+++ b/grammar.js
@@ -60,6 +60,7 @@ module.exports = grammar({
     $._string_literal_kind,
     $._external_end_of_statement,
     $._preproc_unary_operator,
+    $.hollerith_constant,
   ],
 
   extras: $ => [
@@ -1530,7 +1531,6 @@ module.exports = grammar({
 
     // H is not a valid edit descriptor because it clashes with Hollerith constants
     edit_descriptor: $ => /[a-gi-zA-GI-Z0-9/:.*$]+/,
-    hollerith_constant: $ => prec.right(10, /[0-9]+H[^/,)]+/),
 
     _io_arguments: $ => seq(
       '(',
diff --git a/src/grammar.json b/src/grammar.json
index 7ff82f3..746e2d3 100644
--- a/src/grammar.json
+++ b/src/grammar.json
@@ -1,5 +1,4 @@
 {
-  "$schema": "https://tree-sitter.github.io/tree-sitter/assets/schemas/grammar.schema.json",
   "name": "fortran",
   "rules": {
     "translation_unit": {
@@ -15993,14 +15992,6 @@
       "type": "PATTERN",
       "value": "[a-gi-zA-GI-Z0-9/:.*$]+"
     },
-    "hollerith_constant": {
-      "type": "PREC_RIGHT",
-      "value": 10,
-      "content": {
-        "type": "PATTERN",
-        "value": "[0-9]+H[^/,)]+"
-      }
-    },
     "_io_arguments": {
       "type": "SEQ",
       "members": [
@@ -20581,11 +20572,32 @@
     {
       "type": "SYMBOL",
       "name": "_preproc_unary_operator"
+    },
+    {
+      "type": "SYMBOL",
+      "name": "hollerith_constant"
     }
   ],
   "inline": [
     "_top_level_item",
     "_statement"
   ],
-  "supertypes": []
+  "supertypes": [],
+  "PREC": {
+    "ASSIGNMENT": -10,
+    "DEFAULT": 0,
+    "DEFINED_OPERATOR": 2,
+    "LOGICAL_EQUIV": 5,
+    "LOGICAL_OR": 10,
+    "LOGICAL_AND": 20,
+    "LOGICAL_NOT": 30,
+    "RELATIONAL": 40,
+    "ADDITIVE": 50,
+    "MULTIPLICATIVE": 60,
+    "EXPONENT": 70,
+    "CALL": 80,
+    "UNARY": 90,
+    "TYPE_MEMBER": 100
+  }
 }
+
diff --git a/src/node-types.json b/src/node-types.json
index 3d1cfce..6342266 100644
--- a/src/node-types.json
+++ b/src/node-types.json
@@ -5807,11 +5807,6 @@
       ]
     }
   },
-  {
-    "type": "hollerith_constant",
-    "named": true,
-    "fields": {}
-  },
   {
     "type": "identifier",
     "named": true,
@@ -12499,7 +12494,6 @@
   {
     "type": "translation_unit",
     "named": true,
-    "root": true,
     "fields": {},
     "children": {
       "multiple": true,
@@ -14057,6 +14051,10 @@
     "type": "grid_global",
     "named": false
   },
+  {
+    "type": "hollerith_constant",
+    "named": true
+  },
   {
     "type": "host",
     "named": false
@@ -14171,11 +14169,11 @@
   },
   {
     "type": "none",
-    "named": false
+    "named": true
   },
   {
     "type": "none",
-    "named": true
+    "named": false
   },
   {
     "type": "nopass",
diff --git a/src/parser.c b/src/parser.c
index 31dda46..b90e183 100644
--- a/src/parser.c
+++ b/src/parser.c
@@ -1,6 +1,7 @@
-#include "tree_sitter/parser.h"
+#include <tree_sitter/parser.h>
 
 #if defined(__GNUC__) || defined(__clang__)
+#pragma GCC diagnostic push
 #pragma GCC diagnostic ignored "-Wmissing-field-initializers"
 #endif
 
@@ -13,17 +14,17 @@
 #endif
 
 #define LANGUAGE_VERSION 14
-#define STATE_COUNT 8686
+#define STATE_COUNT 8685
 #define LARGE_STATE_COUNT 3404
-#define SYMBOL_COUNT 632
+#define SYMBOL_COUNT 631
 #define ALIAS_COUNT 25
 #define TOKEN_COUNT 272
-#define EXTERNAL_TOKEN_COUNT 8
+#define EXTERNAL_TOKEN_COUNT 9
 #define FIELD_COUNT 30
 #define MAX_ALIAS_SEQUENCE_LENGTH 11
 #define PRODUCTION_ID_COUNT 209
 
-enum ts_symbol_identifiers {
+enum {
   aux_sym_preproc_include_token1 = 1,
   aux_sym_preproc_include_token2 = 2,
   aux_sym_preproc_def_token1 = 3,
@@ -224,77 +225,77 @@ enum ts_symbol_identifiers {
   aux_sym_end_associate_statement_token1 = 198,
   aux_sym_format_statement_token1 = 199,
   sym_edit_descriptor = 200,
-  aux_sym_hollerith_constant_token1 = 201,
-  aux_sym_print_statement_token1 = 202,
-  aux_sym_open_statement_token1 = 203,
-  aux_sym_close_statement_token1 = 204,
-  aux_sym_inquire_statement_token1 = 205,
-  aux_sym_enum_statement_token1 = 206,
-  aux_sym_enumeration_type_statement_token1 = 207,
-  aux_sym_enumerator_statement_token1 = 208,
-  aux_sym_end_enum_statement_token1 = 209,
-  aux_sym_file_position_statement_token1 = 210,
-  aux_sym_file_position_statement_token2 = 211,
-  aux_sym_file_position_statement_token3 = 212,
-  aux_sym_file_position_statement_token4 = 213,
-  aux_sym_allocate_statement_token1 = 214,
-  aux_sym_entry_statement_token1 = 215,
-  aux_sym_logical_expression_token1 = 216,
-  aux_sym_logical_expression_token2 = 217,
-  aux_sym_logical_expression_token3 = 218,
-  aux_sym_logical_expression_token4 = 219,
-  aux_sym_logical_expression_token5 = 220,
-  aux_sym_relational_expression_token1 = 221,
-  aux_sym_relational_expression_token2 = 222,
-  aux_sym_relational_expression_token3 = 223,
-  aux_sym_relational_expression_token4 = 224,
-  aux_sym_relational_expression_token5 = 225,
-  anon_sym_SLASH_EQ = 226,
-  aux_sym_relational_expression_token6 = 227,
-  anon_sym_SLASH_SLASH = 228,
-  anon_sym_STAR_STAR = 229,
-  anon_sym_DOT = 230,
-  aux_sym_user_defined_operator_token1 = 231,
-  anon_sym_AT = 232,
-  sym_assumed_rank = 233,
-  anon_sym_LPAREN_SLASH = 234,
-  anon_sym_SLASH_RPAREN = 235,
-  anon_sym_LBRACK = 236,
-  anon_sym_RBRACK = 237,
-  aux_sym_boolean_literal_token1 = 238,
-  aux_sym_boolean_literal_token2 = 239,
-  anon_sym__ = 240,
-  aux_sym__kind_token1 = 241,
-  aux_sym__kind_token2 = 242,
-  aux_sym_null_literal_token1 = 243,
-  aux_sym_coarray_statement_token1 = 244,
-  aux_sym_coarray_statement_token2 = 245,
-  aux_sym_coarray_statement_token3 = 246,
-  aux_sym_coarray_statement_token4 = 247,
-  aux_sym_coarray_statement_token5 = 248,
-  aux_sym_coarray_statement_token6 = 249,
-  aux_sym_coarray_statement_token7 = 250,
-  aux_sym_coarray_statement_token8 = 251,
-  aux_sym_coarray_statement_token9 = 252,
-  aux_sym_coarray_statement_token10 = 253,
-  aux_sym_coarray_statement_token11 = 254,
-  aux_sym_coarray_statement_token12 = 255,
-  aux_sym_coarray_statement_token13 = 256,
-  aux_sym_coarray_team_statement_token1 = 257,
-  aux_sym_end_coarray_team_statement_token1 = 258,
-  aux_sym_coarray_critical_statement_token1 = 259,
-  aux_sym_end_coarray_critical_statement_token1 = 260,
-  anon_sym_QMARK = 261,
-  aux_sym_nil_literal_token1 = 262,
-  aux_sym_identifier_token1 = 263,
-  sym_comment = 264,
-  sym__integer_literal = 265,
-  sym__float_literal = 266,
-  sym__boz_literal = 267,
-  sym__string_literal = 268,
-  sym__string_literal_kind = 269,
-  sym__external_end_of_statement = 270,
-  sym__preproc_unary_operator = 271,
+  aux_sym_print_statement_token1 = 201,
+  aux_sym_open_statement_token1 = 202,
+  aux_sym_close_statement_token1 = 203,
+  aux_sym_inquire_statement_token1 = 204,
+  aux_sym_enum_statement_token1 = 205,
+  aux_sym_enumeration_type_statement_token1 = 206,
+  aux_sym_enumerator_statement_token1 = 207,
+  aux_sym_end_enum_statement_token1 = 208,
+  aux_sym_file_position_statement_token1 = 209,
+  aux_sym_file_position_statement_token2 = 210,
+  aux_sym_file_position_statement_token3 = 211,
+  aux_sym_file_position_statement_token4 = 212,
+  aux_sym_allocate_statement_token1 = 213,
+  aux_sym_entry_statement_token1 = 214,
+  aux_sym_logical_expression_token1 = 215,
+  aux_sym_logical_expression_token2 = 216,
+  aux_sym_logical_expression_token3 = 217,
+  aux_sym_logical_expression_token4 = 218,
+  aux_sym_logical_expression_token5 = 219,
+  aux_sym_relational_expression_token1 = 220,
+  aux_sym_relational_expression_token2 = 221,
+  aux_sym_relational_expression_token3 = 222,
+  aux_sym_relational_expression_token4 = 223,
+  aux_sym_relational_expression_token5 = 224,
+  anon_sym_SLASH_EQ = 225,
+  aux_sym_relational_expression_token6 = 226,
+  anon_sym_SLASH_SLASH = 227,
+  anon_sym_STAR_STAR = 228,
+  anon_sym_DOT = 229,
+  aux_sym_user_defined_operator_token1 = 230,
+  anon_sym_AT = 231,
+  sym_assumed_rank = 232,
+  anon_sym_LPAREN_SLASH = 233,
+  anon_sym_SLASH_RPAREN = 234,
+  anon_sym_LBRACK = 235,
+  anon_sym_RBRACK = 236,
+  aux_sym_boolean_literal_token1 = 237,
+  aux_sym_boolean_literal_token2 = 238,
+  anon_sym__ = 239,
+  aux_sym__kind_token1 = 240,
+  aux_sym__kind_token2 = 241,
+  aux_sym_null_literal_token1 = 242,
+  aux_sym_coarray_statement_token1 = 243,
+  aux_sym_coarray_statement_token2 = 244,
+  aux_sym_coarray_statement_token3 = 245,
+  aux_sym_coarray_statement_token4 = 246,
+  aux_sym_coarray_statement_token5 = 247,
+  aux_sym_coarray_statement_token6 = 248,
+  aux_sym_coarray_statement_token7 = 249,
+  aux_sym_coarray_statement_token8 = 250,
+  aux_sym_coarray_statement_token9 = 251,
+  aux_sym_coarray_statement_token10 = 252,
+  aux_sym_coarray_statement_token11 = 253,
+  aux_sym_coarray_statement_token12 = 254,
+  aux_sym_coarray_statement_token13 = 255,
+  aux_sym_coarray_team_statement_token1 = 256,
+  aux_sym_end_coarray_team_statement_token1 = 257,
+  aux_sym_coarray_critical_statement_token1 = 258,
+  aux_sym_end_coarray_critical_statement_token1 = 259,
+  anon_sym_QMARK = 260,
+  aux_sym_nil_literal_token1 = 261,
+  aux_sym_identifier_token1 = 262,
+  sym_comment = 263,
+  sym__integer_literal = 264,
+  sym__float_literal = 265,
+  sym__boz_literal = 266,
+  sym__string_literal = 267,
+  sym__string_literal_kind = 268,
+  sym__external_end_of_statement = 269,
+  sym__preproc_unary_operator = 270,
+  sym_hollerith_constant = 271,
   sym_translation_unit = 272,
   sym_preproc_include = 273,
   sym_preproc_def = 274,
@@ -516,170 +517,169 @@ enum ts_symbol_identifiers {
   sym_format_statement = 490,
   sym__transfer_item = 491,
   sym__transfer_items = 492,
-  sym_hollerith_constant = 493,
-  sym__io_arguments = 494,
-  sym_read_statement = 495,
-  sym__simple_read_statement = 496,
-  sym__parameterized_read_statement = 497,
-  sym_print_statement = 498,
-  sym_open_statement = 499,
-  sym_close_statement = 500,
-  sym_write_statement = 501,
-  sym_inquire_statement = 502,
-  sym_enum = 503,
-  sym_enum_statement = 504,
-  sym_enumeration_type = 505,
-  sym_enumeration_type_statement = 506,
-  sym_enumerator_statement = 507,
-  sym_end_enum_statement = 508,
-  sym_end_enumeration_type_statement = 509,
-  sym_unit_identifier = 510,
-  sym_format_identifier = 511,
-  sym__file_position_spec = 512,
-  sym_file_position_statement = 513,
-  sym__io_expressions = 514,
-  sym_input_item_list = 515,
-  sym_output_item_list = 516,
-  sym_allocate_statement = 517,
-  sym_sized_allocation = 518,
-  sym_coarray_allocation = 519,
-  sym_statement_function = 520,
-  sym__statement_function_arg_list = 521,
-  sym_entry_statement = 522,
-  sym__expression = 523,
-  sym_parenthesized_expression = 524,
-  sym_derived_type_member_expression = 525,
-  sym_logical_expression = 526,
-  sym_relational_expression = 527,
-  sym_concatenation_expression = 528,
-  sym_math_expression = 529,
-  sym_unary_expression = 530,
-  sym_user_defined_operator = 531,
-  sym_call_expression = 532,
-  sym_implied_do_loop_expression = 533,
-  sym__argument_list = 534,
-  sym_argument_list = 535,
-  sym_keyword_argument = 536,
-  sym__extent_specifier = 537,
-  sym_extent_specifier = 538,
-  sym_multiple_subscript = 539,
-  sym_multiple_subscript_triplet = 540,
-  sym_assumed_size = 541,
-  sym_assumed_shape = 542,
-  sym_block_label_start_expression = 543,
-  sym__block_label = 544,
-  sym_loop_control_expression = 545,
-  sym_array_literal = 546,
-  sym__array_constructor_legacy = 547,
-  sym__array_constructor_f2003 = 548,
-  sym__type_spec = 549,
-  sym__ac_value_list = 550,
-  sym_complex_literal = 551,
-  sym_number_literal = 552,
-  sym_boolean_literal = 553,
-  sym__kind = 554,
-  sym_null_literal = 555,
-  sym_string_literal = 556,
-  sym_coarray_index = 557,
-  sym__coarray_extent_specifier = 558,
-  sym_coarray_declarator = 559,
-  sym_coarray_expression = 560,
-  sym_coarray_statement = 561,
-  sym_coarray_team_statement = 562,
-  sym_end_coarray_team_statement = 563,
-  sym_coarray_critical_statement = 564,
-  sym_end_coarray_critical_statement = 565,
-  sym_conditional_expression = 566,
-  sym_nil_literal = 567,
-  sym_identifier = 568,
-  sym__end_of_statement = 569,
-  aux_sym_translation_unit_repeat1 = 570,
-  aux_sym_preproc_params_repeat1 = 571,
-  aux_sym_preproc_if_in_module_repeat1 = 572,
-  aux_sym_preproc_if_in_specification_part_repeat1 = 573,
-  aux_sym_preproc_if_in_internal_procedures_repeat1 = 574,
-  aux_sym_preproc_if_in_interface_repeat1 = 575,
-  aux_sym_preproc_if_in_derived_type_repeat1 = 576,
-  aux_sym_preproc_if_in_bound_procedures_repeat1 = 577,
-  aux_sym_preproc_argument_list_repeat1 = 578,
-  aux_sym_program_repeat1 = 579,
-  aux_sym_module_repeat1 = 580,
-  aux_sym_interface_repeat1 = 581,
-  aux_sym_subroutine_repeat1 = 582,
-  aux_sym_function_statement_repeat1 = 583,
-  aux_sym_procedure_attributes_repeat1 = 584,
-  aux_sym_parameters_repeat1 = 585,
-  aux_sym_use_statement_repeat1 = 586,
-  aux_sym_included_items_repeat1 = 587,
-  aux_sym_implicit_statement_repeat1 = 588,
-  aux_sym_implicit_statement_repeat2 = 589,
-  aux_sym_implicit_statement_repeat3 = 590,
-  aux_sym_save_statement_repeat1 = 591,
-  aux_sym_private_statement_repeat1 = 592,
-  aux_sym_namelist_statement_repeat1 = 593,
-  aux_sym_common_statement_repeat1 = 594,
-  aux_sym_common_statement_repeat2 = 595,
-  aux_sym_derived_type_definition_repeat1 = 596,
-  aux_sym_derived_type_statement_repeat1 = 597,
-  aux_sym_derived_type_procedures_repeat1 = 598,
-  aux_sym_procedure_statement_repeat1 = 599,
-  aux_sym_procedure_statement_repeat2 = 600,
-  aux_sym_variable_declaration_repeat1 = 601,
-  aux_sym_variable_modification_repeat1 = 602,
-  aux_sym_variable_modification_repeat2 = 603,
-  aux_sym__declaration_targets_repeat1 = 604,
-  aux_sym_parameter_statement_repeat1 = 605,
-  aux_sym_equivalence_statement_repeat1 = 606,
-  aux_sym_equivalence_set_repeat1 = 607,
-  aux_sym_cuda_kernel_argument_list_repeat1 = 608,
-  aux_sym_keyword_statement_repeat1 = 609,
-  aux_sym_data_statement_repeat1 = 610,
-  aux_sym_data_set_repeat1 = 611,
-  aux_sym_data_value_repeat1 = 612,
-  aux_sym_concurrent_statement_repeat1 = 613,
-  aux_sym_concurrent_header_repeat1 = 614,
-  aux_sym__block_if_statement_repeat1 = 615,
-  aux_sym__block_where_statement_repeat1 = 616,
-  aux_sym__forall_control_expression_repeat1 = 617,
-  aux_sym_select_case_statement_repeat1 = 618,
-  aux_sym_select_type_statement_repeat1 = 619,
-  aux_sym_select_rank_statement_repeat1 = 620,
-  aux_sym_case_value_range_list_repeat1 = 621,
-  aux_sym_associate_statement_repeat1 = 622,
-  aux_sym__transfer_items_repeat1 = 623,
-  aux_sym__io_arguments_repeat1 = 624,
-  aux_sym_enum_repeat1 = 625,
-  aux_sym_enumerator_statement_repeat1 = 626,
-  aux_sym_allocate_statement_repeat1 = 627,
-  aux_sym_call_expression_repeat1 = 628,
-  aux_sym__argument_list_repeat1 = 629,
-  aux_sym_coarray_index_repeat1 = 630,
-  aux_sym_coarray_index_repeat2 = 631,
-  alias_sym_block_label = 632,
-  anon_alias_sym_class = 633,
-  alias_sym_coarray_size = 634,
-  alias_sym_concurrent_mask = 635,
-  anon_alias_sym_default = 636,
-  alias_sym_derived_type_parameter_list = 637,
-  anon_alias_sym_double = 638,
-  anon_alias_sym_else = 639,
-  anon_alias_sym_end = 640,
-  alias_sym_filename = 641,
-  anon_alias_sym_label = 642,
-  alias_sym_local_name = 643,
-  anon_alias_sym_method_name = 644,
-  alias_sym_name = 645,
-  anon_alias_sym_none = 646,
-  alias_sym_procedure_interface = 647,
-  anon_alias_sym_program = 648,
-  anon_alias_sym_select = 649,
-  alias_sym_sequence_statement = 650,
-  alias_sym_size = 651,
-  anon_alias_sym_statement_label = 652,
-  anon_alias_sym_statement_label_reference = 653,
-  alias_sym_transfer_items = 654,
-  alias_sym_type_member = 655,
-  alias_sym_type_name = 656,
+  sym__io_arguments = 493,
+  sym_read_statement = 494,
+  sym__simple_read_statement = 495,
+  sym__parameterized_read_statement = 496,
+  sym_print_statement = 497,
+  sym_open_statement = 498,
+  sym_close_statement = 499,
+  sym_write_statement = 500,
+  sym_inquire_statement = 501,
+  sym_enum = 502,
+  sym_enum_statement = 503,
+  sym_enumeration_type = 504,
+  sym_enumeration_type_statement = 505,
+  sym_enumerator_statement = 506,
+  sym_end_enum_statement = 507,
+  sym_end_enumeration_type_statement = 508,
+  sym_unit_identifier = 509,
+  sym_format_identifier = 510,
+  sym__file_position_spec = 511,
+  sym_file_position_statement = 512,
+  sym__io_expressions = 513,
+  sym_input_item_list = 514,
+  sym_output_item_list = 515,
+  sym_allocate_statement = 516,
+  sym_sized_allocation = 517,
+  sym_coarray_allocation = 518,
+  sym_statement_function = 519,
+  sym__statement_function_arg_list = 520,
+  sym_entry_statement = 521,
+  sym__expression = 522,
+  sym_parenthesized_expression = 523,
+  sym_derived_type_member_expression = 524,
+  sym_logical_expression = 525,
+  sym_relational_expression = 526,
+  sym_concatenation_expression = 527,
+  sym_math_expression = 528,
+  sym_unary_expression = 529,
+  sym_user_defined_operator = 530,
+  sym_call_expression = 531,
+  sym_implied_do_loop_expression = 532,
+  sym__argument_list = 533,
+  sym_argument_list = 534,
+  sym_keyword_argument = 535,
+  sym__extent_specifier = 536,
+  sym_extent_specifier = 537,
+  sym_multiple_subscript = 538,
+  sym_multiple_subscript_triplet = 539,
+  sym_assumed_size = 540,
+  sym_assumed_shape = 541,
+  sym_block_label_start_expression = 542,
+  sym__block_label = 543,
+  sym_loop_control_expression = 544,
+  sym_array_literal = 545,
+  sym__array_constructor_legacy = 546,
+  sym__array_constructor_f2003 = 547,
+  sym__type_spec = 548,
+  sym__ac_value_list = 549,
+  sym_complex_literal = 550,
+  sym_number_literal = 551,
+  sym_boolean_literal = 552,
+  sym__kind = 553,
+  sym_null_literal = 554,
+  sym_string_literal = 555,
+  sym_coarray_index = 556,
+  sym__coarray_extent_specifier = 557,
+  sym_coarray_declarator = 558,
+  sym_coarray_expression = 559,
+  sym_coarray_statement = 560,
+  sym_coarray_team_statement = 561,
+  sym_end_coarray_team_statement = 562,
+  sym_coarray_critical_statement = 563,
+  sym_end_coarray_critical_statement = 564,
+  sym_conditional_expression = 565,
+  sym_nil_literal = 566,
+  sym_identifier = 567,
+  sym__end_of_statement = 568,
+  aux_sym_translation_unit_repeat1 = 569,
+  aux_sym_preproc_params_repeat1 = 570,
+  aux_sym_preproc_if_in_module_repeat1 = 571,
+  aux_sym_preproc_if_in_specification_part_repeat1 = 572,
+  aux_sym_preproc_if_in_internal_procedures_repeat1 = 573,
+  aux_sym_preproc_if_in_interface_repeat1 = 574,
+  aux_sym_preproc_if_in_derived_type_repeat1 = 575,
+  aux_sym_preproc_if_in_bound_procedures_repeat1 = 576,
+  aux_sym_preproc_argument_list_repeat1 = 577,
+  aux_sym_program_repeat1 = 578,
+  aux_sym_module_repeat1 = 579,
+  aux_sym_interface_repeat1 = 580,
+  aux_sym_subroutine_repeat1 = 581,
+  aux_sym_function_statement_repeat1 = 582,
+  aux_sym_procedure_attributes_repeat1 = 583,
+  aux_sym_parameters_repeat1 = 584,
+  aux_sym_use_statement_repeat1 = 585,
+  aux_sym_included_items_repeat1 = 586,
+  aux_sym_implicit_statement_repeat1 = 587,
+  aux_sym_implicit_statement_repeat2 = 588,
+  aux_sym_implicit_statement_repeat3 = 589,
+  aux_sym_save_statement_repeat1 = 590,
+  aux_sym_private_statement_repeat1 = 591,
+  aux_sym_namelist_statement_repeat1 = 592,
+  aux_sym_common_statement_repeat1 = 593,
+  aux_sym_common_statement_repeat2 = 594,
+  aux_sym_derived_type_definition_repeat1 = 595,
+  aux_sym_derived_type_statement_repeat1 = 596,
+  aux_sym_derived_type_procedures_repeat1 = 597,
+  aux_sym_procedure_statement_repeat1 = 598,
+  aux_sym_procedure_statement_repeat2 = 599,
+  aux_sym_variable_declaration_repeat1 = 600,
+  aux_sym_variable_modification_repeat1 = 601,
+  aux_sym_variable_modification_repeat2 = 602,
+  aux_sym__declaration_targets_repeat1 = 603,
+  aux_sym_parameter_statement_repeat1 = 604,
+  aux_sym_equivalence_statement_repeat1 = 605,
+  aux_sym_equivalence_set_repeat1 = 606,
+  aux_sym_cuda_kernel_argument_list_repeat1 = 607,
+  aux_sym_keyword_statement_repeat1 = 608,
+  aux_sym_data_statement_repeat1 = 609,
+  aux_sym_data_set_repeat1 = 610,
+  aux_sym_data_value_repeat1 = 611,
+  aux_sym_concurrent_statement_repeat1 = 612,
+  aux_sym_concurrent_header_repeat1 = 613,
+  aux_sym__block_if_statement_repeat1 = 614,
+  aux_sym__block_where_statement_repeat1 = 615,
+  aux_sym__forall_control_expression_repeat1 = 616,
+  aux_sym_select_case_statement_repeat1 = 617,
+  aux_sym_select_type_statement_repeat1 = 618,
+  aux_sym_select_rank_statement_repeat1 = 619,
+  aux_sym_case_value_range_list_repeat1 = 620,
+  aux_sym_associate_statement_repeat1 = 621,
+  aux_sym__transfer_items_repeat1 = 622,
+  aux_sym__io_arguments_repeat1 = 623,
+  aux_sym_enum_repeat1 = 624,
+  aux_sym_enumerator_statement_repeat1 = 625,
+  aux_sym_allocate_statement_repeat1 = 626,
+  aux_sym_call_expression_repeat1 = 627,
+  aux_sym__argument_list_repeat1 = 628,
+  aux_sym_coarray_index_repeat1 = 629,
+  aux_sym_coarray_index_repeat2 = 630,
+  alias_sym_block_label = 631,
+  anon_alias_sym_class = 632,
+  alias_sym_coarray_size = 633,
+  alias_sym_concurrent_mask = 634,
+  anon_alias_sym_default = 635,
+  alias_sym_derived_type_parameter_list = 636,
+  anon_alias_sym_double = 637,
+  anon_alias_sym_else = 638,
+  anon_alias_sym_end = 639,
+  alias_sym_filename = 640,
+  anon_alias_sym_label = 641,
+  alias_sym_local_name = 642,
+  anon_alias_sym_method_name = 643,
+  alias_sym_name = 644,
+  anon_alias_sym_none = 645,
+  alias_sym_procedure_interface = 646,
+  anon_alias_sym_program = 647,
+  anon_alias_sym_select = 648,
+  alias_sym_sequence_statement = 649,
+  alias_sym_size = 650,
+  anon_alias_sym_statement_label = 651,
+  anon_alias_sym_statement_label_reference = 652,
+  alias_sym_transfer_items = 653,
+  alias_sym_type_member = 654,
+  alias_sym_type_name = 655,
 };
 
 static const char * const ts_symbol_names[] = {
@@ -884,7 +884,6 @@ static const char * const ts_symbol_names[] = {
   [aux_sym_end_associate_statement_token1] = "endassociate",
   [aux_sym_format_statement_token1] = "format",
   [sym_edit_descriptor] = "edit_descriptor",
-  [aux_sym_hollerith_constant_token1] = "hollerith_constant_token1",
   [aux_sym_print_statement_token1] = "print",
   [aux_sym_open_statement_token1] = "open",
   [aux_sym_close_statement_token1] = "close",
@@ -955,6 +954,7 @@ static const char * const ts_symbol_names[] = {
   [sym__string_literal_kind] = "identifier",
   [sym__external_end_of_statement] = "_external_end_of_statement",
   [sym__preproc_unary_operator] = "_preproc_unary_operator",
+  [sym_hollerith_constant] = "hollerith_constant",
   [sym_translation_unit] = "translation_unit",
   [sym_preproc_include] = "preproc_include",
   [sym_preproc_def] = "preproc_def",
@@ -1176,7 +1176,6 @@ static const char * const ts_symbol_names[] = {
   [sym_format_statement] = "format_statement",
   [sym__transfer_item] = "_transfer_item",
   [sym__transfer_items] = "_transfer_items",
-  [sym_hollerith_constant] = "hollerith_constant",
   [sym__io_arguments] = "_io_arguments",
   [sym_read_statement] = "read_statement",
   [sym__simple_read_statement] = "_simple_read_statement",
@@ -1544,7 +1543,6 @@ static const TSSymbol ts_symbol_map[] = {
   [aux_sym_end_associate_statement_token1] = aux_sym_end_associate_statement_token1,
   [aux_sym_format_statement_token1] = aux_sym_format_statement_token1,
   [sym_edit_descriptor] = sym_edit_descriptor,
-  [aux_sym_hollerith_constant_token1] = aux_sym_hollerith_constant_token1,
   [aux_sym_print_statement_token1] = aux_sym_print_statement_token1,
   [aux_sym_open_statement_token1] = aux_sym_open_statement_token1,
   [aux_sym_close_statement_token1] = aux_sym_close_statement_token1,
@@ -1615,6 +1613,7 @@ static const TSSymbol ts_symbol_map[] = {
   [sym__string_literal_kind] = sym_identifier,
   [sym__external_end_of_statement] = sym__external_end_of_statement,
   [sym__preproc_unary_operator] = sym__preproc_unary_operator,
+  [sym_hollerith_constant] = sym_hollerith_constant,
   [sym_translation_unit] = sym_translation_unit,
   [sym_preproc_include] = sym_preproc_include,
   [sym_preproc_def] = sym_preproc_def,
@@ -1836,7 +1835,6 @@ static const TSSymbol ts_symbol_map[] = {
   [sym_format_statement] = sym_format_statement,
   [sym__transfer_item] = sym__transfer_item,
   [sym__transfer_items] = sym__transfer_items,
-  [sym_hollerith_constant] = sym_hollerith_constant,
   [sym__io_arguments] = sym__io_arguments,
   [sym_read_statement] = sym_read_statement,
   [sym__simple_read_statement] = sym__simple_read_statement,
@@ -2807,10 +2805,6 @@ static const TSSymbolMetadata ts_symbol_metadata[] = {
     .visible = true,
     .named = true,
   },
-  [aux_sym_hollerith_constant_token1] = {
-    .visible = false,
-    .named = false,
-  },
   [aux_sym_print_statement_token1] = {
     .visible = true,
     .named = false,
@@ -3091,6 +3085,10 @@ static const TSSymbolMetadata ts_symbol_metadata[] = {
     .visible = false,
     .named = true,
   },
+  [sym_hollerith_constant] = {
+    .visible = true,
+    .named = true,
+  },
   [sym_translation_unit] = {
     .visible = true,
     .named = true,
@@ -3975,10 +3973,6 @@ static const TSSymbolMetadata ts_symbol_metadata[] = {
     .visible = false,
     .named = true,
   },
-  [sym_hollerith_constant] = {
-    .visible = true,
-    .named = true,
-  },
   [sym__io_arguments] = {
     .visible = false,
     .named = true,
@@ -4633,7 +4627,7 @@ static const TSSymbolMetadata ts_symbol_metadata[] = {
   },
 };
 
-enum ts_field_identifiers {
+enum {
   field_access = 1,
   field_allocation = 2,
   field_alternative = 3,
@@ -5547,74 +5541,74 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [1] = 1,
   [2] = 2,
   [3] = 3,
-  [4] = 3,
-  [5] = 3,
-  [6] = 3,
-  [7] = 3,
+  [4] = 2,
+  [5] = 2,
+  [6] = 2,
+  [7] = 2,
   [8] = 8,
   [9] = 9,
-  [10] = 10,
+  [10] = 8,
   [11] = 11,
-  [12] = 12,
-  [13] = 8,
-  [14] = 14,
+  [12] = 11,
+  [13] = 13,
+  [14] = 11,
   [15] = 8,
-  [16] = 9,
-  [17] = 14,
-  [18] = 8,
-  [19] = 9,
-  [20] = 14,
+  [16] = 11,
+  [17] = 17,
+  [18] = 18,
+  [19] = 11,
+  [20] = 8,
   [21] = 9,
   [22] = 9,
-  [23] = 14,
-  [24] = 8,
-  [25] = 14,
+  [23] = 9,
+  [24] = 9,
+  [25] = 8,
   [26] = 26,
   [27] = 27,
   [28] = 28,
   [29] = 29,
-  [30] = 27,
+  [30] = 30,
   [31] = 31,
   [32] = 32,
-  [33] = 33,
-  [34] = 34,
-  [35] = 32,
-  [36] = 28,
-  [37] = 37,
-  [38] = 31,
-  [39] = 28,
+  [33] = 28,
+  [34] = 30,
+  [35] = 30,
+  [36] = 36,
+  [37] = 28,
+  [38] = 38,
+  [39] = 39,
   [40] = 40,
-  [41] = 41,
-  [42] = 42,
-  [43] = 27,
-  [44] = 31,
-  [45] = 32,
+  [41] = 40,
+  [42] = 32,
+  [43] = 43,
+  [44] = 32,
+  [45] = 40,
   [46] = 46,
   [47] = 47,
   [48] = 48,
   [49] = 49,
   [50] = 46,
   [51] = 51,
-  [52] = 52,
-  [53] = 46,
+  [52] = 46,
+  [53] = 53,
   [54] = 54,
   [55] = 55,
   [56] = 56,
-  [57] = 57,
-  [58] = 57,
-  [59] = 57,
+  [57] = 56,
+  [58] = 56,
+  [59] = 59,
   [60] = 60,
   [61] = 61,
   [62] = 62,
-  [63] = 60,
-  [64] = 64,
-  [65] = 65,
-  [66] = 66,
-  [67] = 61,
+  [63] = 63,
+  [64] = 60,
+  [65] = 63,
+  [66] = 62,
+  [67] = 60,
   [68] = 62,
-  [69] = 60,
-  [70] = 62,
-  [71] = 61,
+  [69] = 69,
+  [70] = 70,
+  [71] = 63,
   [72] = 72,
   [73] = 73,
   [74] = 74,
@@ -5625,121 +5619,121 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [79] = 79,
   [80] = 80,
   [81] = 81,
-  [82] = 81,
-  [83] = 81,
-  [84] = 81,
+  [82] = 80,
+  [83] = 80,
+  [84] = 80,
   [85] = 85,
   [86] = 86,
   [87] = 87,
-  [88] = 85,
-  [89] = 89,
+  [88] = 88,
+  [89] = 87,
   [90] = 90,
-  [91] = 91,
-  [92] = 91,
+  [91] = 87,
+  [92] = 88,
   [93] = 93,
   [94] = 86,
-  [95] = 95,
+  [95] = 88,
   [96] = 96,
   [97] = 97,
   [98] = 98,
-  [99] = 89,
-  [100] = 100,
-  [101] = 101,
-  [102] = 89,
-  [103] = 103,
-  [104] = 91,
-  [105] = 86,
-  [106] = 97,
-  [107] = 101,
-  [108] = 98,
-  [109] = 97,
+  [99] = 85,
+  [100] = 90,
+  [101] = 96,
+  [102] = 102,
+  [103] = 98,
+  [104] = 104,
+  [105] = 98,
+  [106] = 98,
+  [107] = 107,
+  [108] = 86,
+  [109] = 86,
   [110] = 85,
-  [111] = 89,
-  [112] = 91,
-  [113] = 86,
-  [114] = 97,
-  [115] = 101,
-  [116] = 98,
-  [117] = 101,
-  [118] = 98,
+  [111] = 90,
+  [112] = 112,
+  [113] = 113,
+  [114] = 90,
+  [115] = 96,
+  [116] = 96,
+  [117] = 88,
+  [118] = 87,
   [119] = 85,
   [120] = 120,
   [121] = 121,
-  [122] = 120,
+  [122] = 121,
   [123] = 123,
-  [124] = 123,
+  [124] = 124,
   [125] = 125,
-  [126] = 125,
-  [127] = 127,
-  [128] = 125,
-  [129] = 129,
-  [130] = 120,
-  [131] = 127,
-  [132] = 120,
-  [133] = 129,
-  [134] = 129,
-  [135] = 121,
-  [136] = 127,
-  [137] = 120,
-  [138] = 127,
-  [139] = 123,
-  [140] = 125,
-  [141] = 129,
-  [142] = 127,
-  [143] = 120,
-  [144] = 121,
-  [145] = 129,
+  [126] = 124,
+  [127] = 121,
+  [128] = 128,
+  [129] = 120,
+  [130] = 125,
+  [131] = 125,
+  [132] = 128,
+  [133] = 120,
+  [134] = 121,
+  [135] = 120,
+  [136] = 121,
+  [137] = 125,
+  [138] = 120,
+  [139] = 124,
+  [140] = 128,
+  [141] = 124,
+  [142] = 123,
+  [143] = 124,
+  [144] = 128,
+  [145] = 120,
   [146] = 121,
-  [147] = 121,
+  [147] = 125,
   [148] = 123,
-  [149] = 127,
-  [150] = 125,
-  [151] = 127,
-  [152] = 120,
-  [153] = 129,
-  [154] = 121,
-  [155] = 123,
-  [156] = 125,
-  [157] = 127,
+  [149] = 125,
+  [150] = 121,
+  [151] = 123,
+  [152] = 124,
+  [153] = 121,
+  [154] = 120,
+  [155] = 128,
+  [156] = 123,
+  [157] = 128,
   [158] = 120,
-  [159] = 129,
-  [160] = 121,
-  [161] = 123,
-  [162] = 125,
-  [163] = 127,
-  [164] = 120,
-  [165] = 129,
-  [166] = 121,
-  [167] = 123,
+  [159] = 128,
+  [160] = 120,
+  [161] = 125,
+  [162] = 123,
+  [163] = 128,
+  [164] = 124,
+  [165] = 124,
+  [166] = 128,
+  [167] = 120,
   [168] = 125,
-  [169] = 127,
-  [170] = 120,
-  [171] = 129,
-  [172] = 121,
-  [173] = 127,
-  [174] = 120,
-  [175] = 129,
-  [176] = 121,
-  [177] = 127,
-  [178] = 120,
-  [179] = 129,
-  [180] = 121,
-  [181] = 127,
-  [182] = 120,
-  [183] = 129,
-  [184] = 121,
-  [185] = 129,
-  [186] = 121,
-  [187] = 123,
+  [169] = 128,
+  [170] = 121,
+  [171] = 125,
+  [172] = 120,
+  [173] = 125,
+  [174] = 121,
+  [175] = 128,
+  [176] = 125,
+  [177] = 121,
+  [178] = 125,
+  [179] = 121,
+  [180] = 120,
+  [181] = 123,
+  [182] = 128,
+  [183] = 121,
+  [184] = 123,
+  [185] = 120,
+  [186] = 125,
+  [187] = 128,
   [188] = 188,
   [189] = 189,
-  [190] = 188,
-  [191] = 191,
+  [190] = 190,
+  [191] = 190,
   [192] = 189,
   [193] = 188,
-  [194] = 189,
-  [195] = 191,
-  [196] = 191,
+  [194] = 188,
+  [195] = 190,
+  [196] = 189,
   [197] = 197,
   [198] = 198,
   [199] = 199,
@@ -5757,31 +5751,31 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [211] = 211,
   [212] = 212,
   [213] = 213,
-  [214] = 211,
-  [215] = 213,
-  [216] = 212,
-  [217] = 213,
-  [218] = 209,
-  [219] = 219,
-  [220] = 211,
-  [221] = 212,
-  [222] = 222,
-  [223] = 223,
-  [224] = 224,
+  [214] = 214,
+  [215] = 215,
+  [216] = 214,
+  [217] = 217,
+  [218] = 218,
+  [219] = 214,
+  [220] = 212,
+  [221] = 215,
+  [222] = 209,
+  [223] = 215,
+  [224] = 212,
   [225] = 225,
   [226] = 226,
-  [227] = 226,
+  [227] = 225,
   [228] = 228,
-  [229] = 229,
-  [230] = 230,
-  [231] = 226,
-  [232] = 228,
+  [229] = 226,
+  [230] = 226,
+  [231] = 225,
+  [232] = 232,
   [233] = 233,
-  [234] = 234,
-  [235] = 233,
-  [236] = 230,
+  [234] = 228,
+  [235] = 235,
+  [236] = 236,
   [237] = 228,
-  [238] = 230,
+  [238] = 233,
   [239] = 239,
   [240] = 233,
   [241] = 241,
@@ -5794,47 +5788,47 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [248] = 248,
   [249] = 249,
   [250] = 250,
-  [251] = 251,
+  [251] = 247,
   [252] = 252,
-  [253] = 247,
-  [254] = 254,
-  [255] = 246,
-  [256] = 248,
-  [257] = 250,
-  [258] = 247,
-  [259] = 250,
-  [260] = 252,
-  [261] = 261,
+  [253] = 253,
+  [254] = 252,
+  [255] = 255,
+  [256] = 246,
+  [257] = 257,
+  [258] = 258,
+  [259] = 248,
+  [260] = 260,
+  [261] = 246,
   [262] = 262,
-  [263] = 252,
-  [264] = 261,
-  [265] = 265,
-  [266] = 261,
+  [263] = 263,
+  [264] = 264,
+  [265] = 250,
+  [266] = 250,
   [267] = 267,
-  [268] = 268,
-  [269] = 269,
+  [268] = 248,
+  [269] = 247,
   [270] = 270,
   [271] = 271,
   [272] = 272,
   [273] = 273,
-  [274] = 274,
-  [275] = 254,
+  [274] = 253,
+  [275] = 270,
   [276] = 276,
   [277] = 277,
-  [278] = 254,
-  [279] = 246,
-  [280] = 248,
+  [278] = 253,
+  [279] = 270,
+  [280] = 252,
   [281] = 281,
   [282] = 281,
   [283] = 281,
-  [284] = 284,
+  [284] = 281,
   [285] = 281,
   [286] = 281,
   [287] = 281,
   [288] = 281,
   [289] = 281,
   [290] = 281,
-  [291] = 281,
+  [291] = 291,
   [292] = 281,
   [293] = 281,
   [294] = 281,
@@ -5845,247 +5839,247 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [299] = 281,
   [300] = 281,
   [301] = 301,
-  [302] = 301,
-  [303] = 303,
+  [302] = 302,
+  [303] = 301,
   [304] = 304,
   [305] = 305,
-  [306] = 304,
-  [307] = 307,
-  [308] = 304,
-  [309] = 305,
+  [306] = 306,
+  [307] = 306,
+  [308] = 308,
+  [309] = 302,
   [310] = 310,
   [311] = 311,
-  [312] = 312,
-  [313] = 313,
+  [312] = 301,
+  [313] = 302,
   [314] = 314,
   [315] = 315,
-  [316] = 316,
-  [317] = 310,
-  [318] = 312,
-  [319] = 313,
-  [320] = 314,
-  [321] = 321,
+  [316] = 305,
+  [317] = 317,
+  [318] = 308,
+  [319] = 317,
+  [320] = 311,
+  [321] = 301,
   [322] = 322,
   [323] = 323,
-  [324] = 303,
-  [325] = 307,
-  [326] = 301,
-  [327] = 301,
-  [328] = 328,
+  [324] = 324,
+  [325] = 317,
+  [326] = 326,
+  [327] = 327,
+  [328] = 304,
   [329] = 329,
   [330] = 330,
-  [331] = 305,
-  [332] = 321,
-  [333] = 333,
-  [334] = 334,
-  [335] = 316,
-  [336] = 336,
-  [337] = 316,
-  [338] = 310,
-  [339] = 312,
-  [340] = 313,
+  [331] = 302,
+  [332] = 317,
+  [333] = 323,
+  [334] = 314,
+  [335] = 335,
+  [336] = 323,
+  [337] = 308,
+  [338] = 311,
+  [339] = 302,
+  [340] = 323,
   [341] = 314,
-  [342] = 321,
-  [343] = 322,
-  [344] = 323,
-  [345] = 303,
-  [346] = 307,
+  [342] = 301,
+  [343] = 302,
+  [344] = 308,
+  [345] = 317,
+  [346] = 323,
   [347] = 301,
-  [348] = 348,
-  [349] = 349,
-  [350] = 350,
+  [348] = 314,
+  [349] = 314,
+  [350] = 308,
   [351] = 351,
-  [352] = 316,
-  [353] = 310,
-  [354] = 312,
-  [355] = 313,
-  [356] = 314,
-  [357] = 321,
-  [358] = 322,
-  [359] = 323,
-  [360] = 303,
-  [361] = 307,
-  [362] = 301,
-  [363] = 363,
-  [364] = 310,
-  [365] = 312,
-  [366] = 313,
-  [367] = 322,
-  [368] = 323,
-  [369] = 303,
-  [370] = 301,
-  [371] = 310,
-  [372] = 312,
-  [373] = 313,
-  [374] = 322,
-  [375] = 323,
-  [376] = 303,
-  [377] = 301,
-  [378] = 310,
-  [379] = 312,
-  [380] = 313,
-  [381] = 322,
-  [382] = 323,
-  [383] = 303,
-  [384] = 301,
-  [385] = 310,
-  [386] = 312,
-  [387] = 313,
-  [388] = 322,
-  [389] = 323,
-  [390] = 303,
-  [391] = 301,
-  [392] = 310,
-  [393] = 312,
-  [394] = 313,
-  [395] = 322,
-  [396] = 323,
-  [397] = 303,
+  [352] = 311,
+  [353] = 311,
+  [354] = 354,
+  [355] = 301,
+  [356] = 308,
+  [357] = 302,
+  [358] = 314,
+  [359] = 317,
+  [360] = 323,
+  [361] = 314,
+  [362] = 362,
+  [363] = 314,
+  [364] = 364,
+  [365] = 335,
+  [366] = 308,
+  [367] = 311,
+  [368] = 326,
+  [369] = 323,
+  [370] = 317,
+  [371] = 302,
+  [372] = 305,
+  [373] = 301,
+  [374] = 308,
+  [375] = 311,
+  [376] = 301,
+  [377] = 302,
+  [378] = 301,
+  [379] = 311,
+  [380] = 308,
+  [381] = 317,
+  [382] = 314,
+  [383] = 326,
+  [384] = 323,
+  [385] = 314,
+  [386] = 308,
+  [387] = 304,
+  [388] = 311,
+  [389] = 302,
+  [390] = 317,
+  [391] = 323,
+  [392] = 323,
+  [393] = 315,
+  [394] = 317,
+  [395] = 335,
+  [396] = 302,
+  [397] = 301,
   [398] = 301,
-  [399] = 310,
-  [400] = 312,
-  [401] = 313,
-  [402] = 322,
-  [403] = 323,
-  [404] = 303,
-  [405] = 301,
-  [406] = 322,
-  [407] = 310,
-  [408] = 312,
-  [409] = 313,
-  [410] = 322,
-  [411] = 323,
-  [412] = 303,
-  [413] = 301,
-  [414] = 323,
-  [415] = 310,
-  [416] = 312,
-  [417] = 313,
-  [418] = 322,
-  [419] = 323,
-  [420] = 303,
-  [421] = 301,
-  [422] = 310,
-  [423] = 312,
-  [424] = 313,
-  [425] = 322,
-  [426] = 323,
-  [427] = 303,
-  [428] = 301,
-  [429] = 310,
-  [430] = 312,
-  [431] = 313,
-  [432] = 322,
-  [433] = 323,
-  [434] = 303,
-  [435] = 304,
-  [436] = 310,
-  [437] = 312,
-  [438] = 313,
-  [439] = 322,
+  [399] = 311,
+  [400] = 308,
+  [401] = 302,
+  [402] = 314,
+  [403] = 317,
+  [404] = 323,
+  [405] = 314,
+  [406] = 308,
+  [407] = 323,
+  [408] = 317,
+  [409] = 311,
+  [410] = 302,
+  [411] = 301,
+  [412] = 311,
+  [413] = 308,
+  [414] = 314,
+  [415] = 301,
+  [416] = 416,
+  [417] = 417,
+  [418] = 302,
+  [419] = 306,
+  [420] = 317,
+  [421] = 323,
+  [422] = 314,
+  [423] = 423,
+  [424] = 308,
+  [425] = 323,
+  [426] = 311,
+  [427] = 301,
+  [428] = 317,
+  [429] = 335,
+  [430] = 315,
+  [431] = 302,
+  [432] = 317,
+  [433] = 302,
+  [434] = 323,
+  [435] = 301,
+  [436] = 311,
+  [437] = 308,
+  [438] = 314,
+  [439] = 314,
   [440] = 323,
-  [441] = 303,
-  [442] = 301,
-  [443] = 310,
-  [444] = 312,
-  [445] = 313,
-  [446] = 322,
-  [447] = 323,
-  [448] = 303,
-  [449] = 301,
-  [450] = 310,
-  [451] = 312,
-  [452] = 313,
-  [453] = 322,
-  [454] = 323,
-  [455] = 303,
-  [456] = 301,
-  [457] = 310,
-  [458] = 312,
-  [459] = 313,
-  [460] = 322,
-  [461] = 323,
-  [462] = 303,
-  [463] = 301,
-  [464] = 305,
-  [465] = 310,
-  [466] = 312,
-  [467] = 313,
-  [468] = 322,
-  [469] = 323,
-  [470] = 303,
-  [471] = 471,
+  [441] = 317,
+  [442] = 302,
+  [443] = 323,
+  [444] = 317,
+  [445] = 302,
+  [446] = 301,
+  [447] = 311,
+  [448] = 308,
+  [449] = 314,
+  [450] = 308,
+  [451] = 314,
+  [452] = 304,
+  [453] = 311,
+  [454] = 301,
+  [455] = 302,
+  [456] = 326,
+  [457] = 315,
+  [458] = 323,
+  [459] = 317,
+  [460] = 460,
+  [461] = 305,
+  [462] = 311,
+  [463] = 308,
+  [464] = 311,
+  [465] = 317,
+  [466] = 323,
+  [467] = 301,
+  [468] = 311,
+  [469] = 308,
+  [470] = 314,
+  [471] = 306,
   [472] = 472,
   [473] = 473,
-  [474] = 474,
-  [475] = 475,
-  [476] = 473,
+  [474] = 472,
+  [475] = 472,
+  [476] = 476,
   [477] = 477,
-  [478] = 475,
-  [479] = 475,
+  [478] = 473,
+  [479] = 479,
   [480] = 480,
-  [481] = 474,
-  [482] = 472,
+  [481] = 472,
+  [482] = 477,
   [483] = 473,
-  [484] = 475,
-  [485] = 477,
-  [486] = 480,
-  [487] = 474,
+  [484] = 480,
+  [485] = 480,
+  [486] = 473,
+  [487] = 477,
   [488] = 472,
-  [489] = 473,
-  [490] = 475,
+  [489] = 477,
+  [490] = 473,
   [491] = 477,
   [492] = 480,
-  [493] = 474,
-  [494] = 472,
-  [495] = 473,
-  [496] = 475,
-  [497] = 477,
-  [498] = 480,
-  [499] = 474,
-  [500] = 472,
-  [501] = 473,
-  [502] = 475,
-  [503] = 477,
-  [504] = 477,
-  [505] = 480,
-  [506] = 474,
-  [507] = 472,
-  [508] = 472,
-  [509] = 475,
-  [510] = 477,
-  [511] = 480,
-  [512] = 474,
-  [513] = 472,
-  [514] = 473,
-  [515] = 475,
-  [516] = 474,
-  [517] = 472,
+  [493] = 472,
+  [494] = 480,
+  [495] = 476,
+  [496] = 473,
+  [497] = 479,
+  [498] = 476,
+  [499] = 472,
+  [500] = 477,
+  [501] = 477,
+  [502] = 477,
+  [503] = 480,
+  [504] = 473,
+  [505] = 472,
+  [506] = 477,
+  [507] = 480,
+  [508] = 473,
+  [509] = 473,
+  [510] = 480,
+  [511] = 479,
+  [512] = 480,
+  [513] = 479,
+  [514] = 472,
+  [515] = 476,
+  [516] = 479,
+  [517] = 477,
   [518] = 473,
-  [519] = 475,
-  [520] = 474,
-  [521] = 472,
-  [522] = 473,
-  [523] = 475,
-  [524] = 524,
-  [525] = 474,
-  [526] = 474,
-  [527] = 472,
-  [528] = 473,
-  [529] = 475,
+  [519] = 472,
+  [520] = 476,
+  [521] = 480,
+  [522] = 477,
+  [523] = 473,
+  [524] = 480,
+  [525] = 479,
+  [526] = 476,
+  [527] = 476,
+  [528] = 476,
+  [529] = 472,
   [530] = 472,
-  [531] = 473,
-  [532] = 475,
+  [531] = 479,
+  [532] = 532,
   [533] = 477,
-  [534] = 480,
-  [535] = 474,
-  [536] = 480,
-  [537] = 474,
-  [538] = 472,
-  [539] = 473,
+  [534] = 473,
+  [535] = 480,
+  [536] = 479,
+  [537] = 472,
+  [538] = 480,
+  [539] = 477,
   [540] = 473,
   [541] = 541,
-  [542] = 542,
+  [542] = 532,
   [543] = 543,
   [544] = 544,
   [545] = 545,
@@ -6104,68 +6098,68 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [558] = 558,
   [559] = 559,
   [560] = 560,
-  [561] = 524,
+  [561] = 561,
   [562] = 562,
-  [563] = 524,
+  [563] = 563,
   [564] = 564,
   [565] = 565,
   [566] = 566,
   [567] = 567,
-  [568] = 568,
-  [569] = 554,
-  [570] = 524,
-  [571] = 571,
-  [572] = 572,
-  [573] = 573,
-  [574] = 574,
-  [575] = 575,
+  [568] = 532,
+  [569] = 569,
+  [570] = 555,
+  [571] = 558,
+  [572] = 559,
+  [573] = 560,
+  [574] = 562,
+  [575] = 566,
   [576] = 576,
-  [577] = 572,
-  [578] = 568,
+  [577] = 577,
+  [578] = 578,
   [579] = 579,
-  [580] = 542,
-  [581] = 565,
+  [580] = 580,
+  [581] = 581,
   [582] = 582,
   [583] = 583,
   [584] = 584,
   [585] = 585,
-  [586] = 586,
-  [587] = 587,
+  [586] = 546,
+  [587] = 550,
   [588] = 588,
   [589] = 589,
-  [590] = 544,
-  [591] = 546,
+  [590] = 567,
+  [591] = 591,
   [592] = 592,
-  [593] = 552,
-  [594] = 566,
-  [595] = 543,
-  [596] = 572,
-  [597] = 551,
-  [598] = 598,
+  [593] = 593,
+  [594] = 594,
+  [595] = 595,
+  [596] = 552,
+  [597] = 597,
+  [598] = 581,
   [599] = 599,
   [600] = 600,
-  [601] = 558,
-  [602] = 602,
-  [603] = 603,
-  [604] = 604,
-  [605] = 547,
-  [606] = 606,
-  [607] = 550,
-  [608] = 559,
-  [609] = 587,
-  [610] = 610,
-  [611] = 541,
+  [601] = 547,
+  [602] = 548,
+  [603] = 600,
+  [604] = 544,
+  [605] = 557,
+  [606] = 600,
+  [607] = 607,
+  [608] = 532,
+  [609] = 609,
+  [610] = 609,
+  [611] = 563,
   [612] = 612,
-  [613] = 564,
-  [614] = 575,
-  [615] = 587,
-  [616] = 616,
-  [617] = 555,
-  [618] = 545,
-  [619] = 619,
-  [620] = 575,
-  [621] = 557,
-  [622] = 549,
+  [613] = 613,
+  [614] = 541,
+  [615] = 609,
+  [616] = 554,
+  [617] = 617,
+  [618] = 556,
+  [619] = 581,
+  [620] = 620,
+  [621] = 553,
+  [622] = 565,
   [623] = 623,
   [624] = 624,
   [625] = 625,
@@ -6174,143 +6168,143 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [628] = 628,
   [629] = 629,
   [630] = 630,
-  [631] = 626,
+  [631] = 631,
   [632] = 632,
-  [633] = 626,
+  [633] = 633,
   [634] = 634,
-  [635] = 635,
+  [635] = 634,
   [636] = 636,
   [637] = 637,
-  [638] = 638,
+  [638] = 634,
   [639] = 639,
   [640] = 640,
   [641] = 641,
   [642] = 642,
-  [643] = 524,
-  [644] = 524,
+  [643] = 643,
+  [644] = 532,
   [645] = 645,
   [646] = 646,
   [647] = 647,
   [648] = 648,
-  [649] = 649,
+  [649] = 532,
   [650] = 650,
   [651] = 651,
   [652] = 652,
   [653] = 653,
-  [654] = 586,
-  [655] = 524,
+  [654] = 599,
+  [655] = 597,
   [656] = 656,
-  [657] = 524,
+  [657] = 657,
   [658] = 658,
   [659] = 659,
   [660] = 660,
-  [661] = 573,
+  [661] = 661,
   [662] = 662,
-  [663] = 663,
+  [663] = 617,
   [664] = 664,
   [665] = 665,
-  [666] = 666,
+  [666] = 576,
   [667] = 667,
   [668] = 668,
-  [669] = 588,
+  [669] = 669,
   [670] = 670,
-  [671] = 660,
-  [672] = 672,
+  [671] = 671,
+  [672] = 577,
   [673] = 673,
   [674] = 674,
-  [675] = 524,
+  [675] = 675,
   [676] = 676,
-  [677] = 660,
+  [677] = 677,
   [678] = 678,
-  [679] = 598,
+  [679] = 679,
   [680] = 680,
   [681] = 681,
   [682] = 682,
   [683] = 683,
-  [684] = 684,
+  [684] = 532,
   [685] = 685,
-  [686] = 599,
-  [687] = 687,
-  [688] = 688,
-  [689] = 574,
-  [690] = 690,
-  [691] = 691,
-  [692] = 576,
-  [693] = 693,
+  [686] = 686,
+  [687] = 532,
+  [688] = 532,
+  [689] = 689,
+  [690] = 683,
+  [691] = 588,
+  [692] = 569,
+  [693] = 683,
   [694] = 694,
-  [695] = 695,
-  [696] = 660,
+  [695] = 683,
+  [696] = 696,
   [697] = 697,
-  [698] = 604,
-  [699] = 699,
-  [700] = 551,
-  [701] = 558,
-  [702] = 702,
-  [703] = 576,
-  [704] = 524,
-  [705] = 602,
-  [706] = 606,
-  [707] = 600,
-  [708] = 603,
-  [709] = 559,
-  [710] = 606,
-  [711] = 565,
-  [712] = 524,
-  [713] = 604,
-  [714] = 547,
-  [715] = 550,
-  [716] = 585,
-  [717] = 524,
-  [718] = 524,
-  [719] = 554,
-  [720] = 598,
-  [721] = 524,
-  [722] = 568,
-  [723] = 612,
-  [724] = 585,
-  [725] = 586,
-  [726] = 544,
+  [698] = 698,
+  [699] = 589,
+  [700] = 558,
+  [701] = 562,
+  [702] = 576,
+  [703] = 577,
+  [704] = 607,
+  [705] = 585,
+  [706] = 532,
+  [707] = 546,
+  [708] = 532,
+  [709] = 550,
+  [710] = 553,
+  [711] = 567,
+  [712] = 588,
+  [713] = 589,
+  [714] = 532,
+  [715] = 532,
+  [716] = 547,
+  [717] = 532,
+  [718] = 532,
+  [719] = 719,
+  [720] = 620,
+  [721] = 556,
+  [722] = 532,
+  [723] = 593,
+  [724] = 595,
+  [725] = 565,
+  [726] = 726,
   [727] = 727,
-  [728] = 612,
-  [729] = 588,
-  [730] = 546,
-  [731] = 524,
-  [732] = 732,
-  [733] = 582,
-  [734] = 603,
-  [735] = 555,
-  [736] = 557,
-  [737] = 564,
-  [738] = 524,
-  [739] = 589,
-  [740] = 589,
-  [741] = 541,
-  [742] = 542,
-  [743] = 552,
-  [744] = 582,
-  [745] = 524,
-  [746] = 566,
-  [747] = 543,
-  [748] = 524,
-  [749] = 599,
-  [750] = 573,
-  [751] = 545,
-  [752] = 549,
-  [753] = 753,
-  [754] = 754,
-  [755] = 755,
-  [756] = 756,
-  [757] = 757,
-  [758] = 602,
-  [759] = 574,
-  [760] = 600,
+  [728] = 728,
+  [729] = 569,
+  [730] = 730,
+  [731] = 544,
+  [732] = 591,
+  [733] = 733,
+  [734] = 566,
+  [735] = 613,
+  [736] = 594,
+  [737] = 532,
+  [738] = 541,
+  [739] = 560,
+  [740] = 559,
+  [741] = 532,
+  [742] = 563,
+  [743] = 585,
+  [744] = 557,
+  [745] = 599,
+  [746] = 746,
+  [747] = 607,
+  [748] = 552,
+  [749] = 593,
+  [750] = 597,
+  [751] = 554,
+  [752] = 620,
+  [753] = 591,
+  [754] = 613,
+  [755] = 595,
+  [756] = 548,
+  [757] = 555,
+  [758] = 617,
+  [759] = 594,
+  [760] = 760,
   [761] = 761,
-  [762] = 630,
-  [763] = 524,
-  [764] = 764,
+  [762] = 762,
+  [763] = 763,
+  [764] = 532,
   [765] = 765,
-  [766] = 766,
-  [767] = 630,
+  [766] = 626,
+  [767] = 626,
   [768] = 768,
   [769] = 769,
   [770] = 770,
@@ -6319,32 +6313,32 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [773] = 773,
   [774] = 774,
   [775] = 775,
-  [776] = 776,
+  [776] = 773,
   [777] = 777,
   [778] = 778,
   [779] = 779,
-  [780] = 780,
+  [780] = 775,
   [781] = 781,
   [782] = 782,
-  [783] = 783,
+  [783] = 773,
   [784] = 784,
-  [785] = 779,
-  [786] = 784,
-  [787] = 779,
-  [788] = 784,
-  [789] = 779,
-  [790] = 779,
-  [791] = 779,
+  [785] = 773,
+  [786] = 786,
+  [787] = 773,
+  [788] = 775,
+  [789] = 789,
+  [790] = 773,
+  [791] = 791,
   [792] = 792,
   [793] = 792,
   [794] = 792,
-  [795] = 795,
+  [795] = 792,
   [796] = 792,
   [797] = 792,
-  [798] = 795,
+  [798] = 792,
   [799] = 792,
   [800] = 792,
-  [801] = 795,
+  [801] = 801,
   [802] = 792,
   [803] = 792,
   [804] = 792,
@@ -6354,8 +6348,8 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [808] = 792,
   [809] = 792,
   [810] = 792,
-  [811] = 792,
-  [812] = 792,
+  [811] = 801,
+  [812] = 801,
   [813] = 792,
   [814] = 814,
   [815] = 815,
@@ -6363,7 +6357,7 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [817] = 817,
   [818] = 818,
   [819] = 819,
-  [820] = 814,
+  [820] = 816,
   [821] = 821,
   [822] = 822,
   [823] = 823,
@@ -6374,12 +6368,12 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [828] = 828,
   [829] = 829,
   [830] = 830,
-  [831] = 831,
-  [832] = 832,
+  [831] = 814,
+  [832] = 823,
   [833] = 833,
-  [834] = 821,
-  [835] = 822,
-  [836] = 827,
+  [834] = 834,
+  [835] = 835,
+  [836] = 834,
   [837] = 837,
   [838] = 838,
   [839] = 839,
@@ -6416,15 +6410,15 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [870] = 870,
   [871] = 871,
   [872] = 872,
-  [873] = 873,
+  [873] = 868,
   [874] = 874,
   [875] = 875,
   [876] = 876,
   [877] = 877,
   [878] = 878,
-  [879] = 879,
-  [880] = 854,
-  [881] = 864,
+  [879] = 842,
+  [880] = 880,
+  [881] = 881,
   [882] = 882,
   [883] = 883,
   [884] = 884,
@@ -6436,227 +6430,227 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [890] = 890,
   [891] = 891,
   [892] = 892,
-  [893] = 865,
-  [894] = 873,
+  [893] = 893,
+  [894] = 894,
   [895] = 895,
   [896] = 896,
   [897] = 897,
-  [898] = 898,
+  [898] = 844,
   [899] = 899,
   [900] = 900,
   [901] = 901,
   [902] = 902,
   [903] = 903,
   [904] = 904,
-  [905] = 905,
+  [905] = 866,
   [906] = 906,
   [907] = 907,
   [908] = 908,
-  [909] = 907,
-  [910] = 829,
-  [911] = 911,
-  [912] = 831,
+  [909] = 908,
+  [910] = 816,
+  [911] = 833,
+  [912] = 912,
   [913] = 913,
   [914] = 914,
   [915] = 915,
   [916] = 916,
-  [917] = 917,
-  [918] = 814,
-  [919] = 919,
-  [920] = 920,
-  [921] = 825,
-  [922] = 821,
-  [923] = 822,
-  [924] = 823,
+  [917] = 823,
+  [918] = 918,
+  [919] = 913,
+  [920] = 819,
+  [921] = 834,
+  [922] = 922,
+  [923] = 830,
+  [924] = 817,
   [925] = 824,
-  [926] = 832,
-  [927] = 823,
-  [928] = 833,
-  [929] = 911,
-  [930] = 825,
-  [931] = 826,
-  [932] = 827,
-  [933] = 828,
-  [934] = 827,
-  [935] = 826,
-  [936] = 936,
-  [937] = 824,
-  [938] = 938,
-  [939] = 830,
-  [940] = 830,
-  [941] = 941,
-  [942] = 831,
-  [943] = 943,
-  [944] = 832,
-  [945] = 814,
-  [946] = 936,
-  [947] = 947,
-  [948] = 814,
-  [949] = 949,
-  [950] = 938,
-  [951] = 821,
-  [952] = 822,
-  [953] = 822,
-  [954] = 947,
+  [926] = 817,
+  [927] = 816,
+  [928] = 816,
+  [929] = 834,
+  [930] = 914,
+  [931] = 931,
+  [932] = 916,
+  [933] = 912,
+  [934] = 934,
+  [935] = 935,
+  [936] = 823,
+  [937] = 819,
+  [938] = 824,
+  [939] = 939,
+  [940] = 940,
+  [941] = 814,
+  [942] = 815,
+  [943] = 828,
+  [944] = 944,
+  [945] = 833,
+  [946] = 828,
+  [947] = 915,
+  [948] = 815,
+  [949] = 814,
+  [950] = 818,
+  [951] = 823,
+  [952] = 922,
+  [953] = 918,
+  [954] = 827,
   [955] = 827,
-  [956] = 833,
-  [957] = 828,
-  [958] = 949,
-  [959] = 829,
-  [960] = 914,
-  [961] = 821,
-  [962] = 913,
-  [963] = 858,
-  [964] = 868,
-  [965] = 854,
-  [966] = 869,
+  [956] = 822,
+  [957] = 957,
+  [958] = 814,
+  [959] = 834,
+  [960] = 830,
+  [961] = 818,
+  [962] = 822,
+  [963] = 963,
+  [964] = 872,
+  [965] = 877,
+  [966] = 876,
   [967] = 870,
-  [968] = 901,
-  [969] = 876,
-  [970] = 872,
-  [971] = 877,
-  [972] = 882,
-  [973] = 883,
-  [974] = 888,
-  [975] = 889,
-  [976] = 890,
-  [977] = 856,
-  [978] = 891,
-  [979] = 906,
-  [980] = 837,
-  [981] = 892,
-  [982] = 982,
-  [983] = 983,
-  [984] = 845,
-  [985] = 854,
-  [986] = 982,
-  [987] = 987,
-  [988] = 988,
-  [989] = 846,
-  [990] = 983,
-  [991] = 896,
-  [992] = 903,
-  [993] = 849,
-  [994] = 850,
-  [995] = 857,
-  [996] = 871,
-  [997] = 872,
-  [998] = 878,
-  [999] = 873,
-  [1000] = 884,
-  [1001] = 885,
-  [1002] = 886,
-  [1003] = 887,
-  [1004] = 864,
-  [1005] = 865,
-  [1006] = 982,
-  [1007] = 983,
-  [1008] = 838,
-  [1009] = 859,
-  [1010] = 860,
-  [1011] = 888,
-  [1012] = 889,
-  [1013] = 890,
-  [1014] = 891,
-  [1015] = 837,
-  [1016] = 892,
-  [1017] = 873,
-  [1018] = 861,
-  [1019] = 862,
-  [1020] = 863,
-  [1021] = 899,
-  [1022] = 895,
-  [1023] = 902,
-  [1024] = 904,
-  [1025] = 855,
-  [1026] = 867,
-  [1027] = 906,
-  [1028] = 866,
-  [1029] = 843,
-  [1030] = 879,
-  [1031] = 876,
-  [1032] = 896,
-  [1033] = 897,
-  [1034] = 898,
-  [1035] = 875,
-  [1036] = 899,
-  [1037] = 900,
-  [1038] = 901,
-  [1039] = 900,
-  [1040] = 851,
-  [1041] = 884,
-  [1042] = 885,
-  [1043] = 852,
-  [1044] = 886,
-  [1045] = 887,
-  [1046] = 853,
-  [1047] = 897,
-  [1048] = 898,
-  [1049] = 882,
-  [1050] = 877,
-  [1051] = 883,
-  [1052] = 847,
-  [1053] = 842,
-  [1054] = 843,
-  [1055] = 844,
-  [1056] = 845,
-  [1057] = 846,
-  [1058] = 847,
-  [1059] = 841,
-  [1060] = 848,
-  [1061] = 849,
-  [1062] = 850,
-  [1063] = 851,
-  [1064] = 852,
-  [1065] = 853,
-  [1066] = 895,
-  [1067] = 902,
-  [1068] = 864,
-  [1069] = 854,
-  [1070] = 856,
-  [1071] = 857,
-  [1072] = 858,
-  [1073] = 859,
-  [1074] = 860,
-  [1075] = 861,
-  [1076] = 862,
-  [1077] = 863,
-  [1078] = 903,
-  [1079] = 842,
-  [1080] = 904,
-  [1081] = 905,
-  [1082] = 838,
-  [1083] = 855,
-  [1084] = 864,
-  [1085] = 874,
-  [1086] = 839,
-  [1087] = 840,
-  [1088] = 865,
-  [1089] = 841,
-  [1090] = 866,
-  [1091] = 867,
-  [1092] = 987,
-  [1093] = 868,
-  [1094] = 869,
-  [1095] = 870,
-  [1096] = 987,
-  [1097] = 871,
-  [1098] = 988,
-  [1099] = 844,
-  [1100] = 874,
-  [1101] = 848,
-  [1102] = 875,
-  [1103] = 839,
-  [1104] = 840,
-  [1105] = 879,
-  [1106] = 873,
-  [1107] = 905,
-  [1108] = 878,
-  [1109] = 865,
-  [1110] = 988,
+  [968] = 856,
+  [969] = 969,
+  [970] = 875,
+  [971] = 842,
+  [972] = 847,
+  [973] = 902,
+  [974] = 868,
+  [975] = 846,
+  [976] = 901,
+  [977] = 858,
+  [978] = 890,
+  [979] = 860,
+  [980] = 893,
+  [981] = 857,
+  [982] = 891,
+  [983] = 862,
+  [984] = 863,
+  [985] = 867,
+  [986] = 862,
+  [987] = 852,
+  [988] = 858,
+  [989] = 847,
+  [990] = 850,
+  [991] = 991,
+  [992] = 851,
+  [993] = 895,
+  [994] = 892,
+  [995] = 842,
+  [996] = 852,
+  [997] = 886,
+  [998] = 853,
+  [999] = 867,
+  [1000] = 853,
+  [1001] = 855,
+  [1002] = 890,
+  [1003] = 889,
+  [1004] = 991,
+  [1005] = 869,
+  [1006] = 844,
+  [1007] = 878,
+  [1008] = 906,
+  [1009] = 861,
+  [1010] = 880,
+  [1011] = 844,
+  [1012] = 896,
+  [1013] = 963,
+  [1014] = 848,
+  [1015] = 875,
+  [1016] = 888,
+  [1017] = 860,
+  [1018] = 874,
+  [1019] = 899,
+  [1020] = 871,
+  [1021] = 882,
+  [1022] = 900,
+  [1023] = 855,
+  [1024] = 903,
+  [1025] = 906,
+  [1026] = 880,
+  [1027] = 897,
+  [1028] = 892,
+  [1029] = 871,
+  [1030] = 842,
+  [1031] = 895,
+  [1032] = 901,
+  [1033] = 868,
+  [1034] = 902,
+  [1035] = 991,
+  [1036] = 903,
+  [1037] = 904,
+  [1038] = 900,
+  [1039] = 859,
+  [1040] = 838,
+  [1041] = 864,
+  [1042] = 878,
+  [1043] = 886,
+  [1044] = 845,
+  [1045] = 896,
+  [1046] = 869,
+  [1047] = 856,
+  [1048] = 840,
+  [1049] = 881,
+  [1050] = 883,
+  [1051] = 884,
+  [1052] = 841,
+  [1053] = 865,
+  [1054] = 885,
+  [1055] = 837,
+  [1056] = 865,
+  [1057] = 839,
+  [1058] = 866,
+  [1059] = 854,
+  [1060] = 887,
+  [1061] = 882,
+  [1062] = 849,
+  [1063] = 849,
+  [1064] = 888,
+  [1065] = 866,
+  [1066] = 894,
+  [1067] = 894,
+  [1068] = 843,
+  [1069] = 841,
+  [1070] = 969,
+  [1071] = 837,
+  [1072] = 876,
+  [1073] = 893,
+  [1074] = 877,
+  [1075] = 1075,
+  [1076] = 969,
+  [1077] = 897,
+  [1078] = 843,
+  [1079] = 891,
+  [1080] = 850,
+  [1081] = 899,
+  [1082] = 889,
+  [1083] = 848,
+  [1084] = 844,
+  [1085] = 1075,
+  [1086] = 868,
+  [1087] = 851,
+  [1088] = 854,
+  [1089] = 845,
+  [1090] = 864,
+  [1091] = 874,
+  [1092] = 963,
+  [1093] = 887,
+  [1094] = 838,
+  [1095] = 866,
+  [1096] = 857,
+  [1097] = 846,
+  [1098] = 863,
+  [1099] = 861,
+  [1100] = 1075,
+  [1101] = 904,
+  [1102] = 885,
+  [1103] = 884,
+  [1104] = 883,
+  [1105] = 881,
+  [1106] = 872,
+  [1107] = 870,
+  [1108] = 859,
+  [1109] = 839,
+  [1110] = 840,
   [1111] = 1111,
   [1112] = 1111,
-  [1113] = 630,
+  [1113] = 626,
   [1114] = 1114,
   [1115] = 1115,
   [1116] = 1116,
@@ -6667,20 +6661,20 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [1121] = 1121,
   [1122] = 1122,
   [1123] = 1123,
-  [1124] = 1124,
+  [1124] = 835,
   [1125] = 1125,
-  [1126] = 1126,
-  [1127] = 1127,
-  [1128] = 1128,
-  [1129] = 1129,
+  [1126] = 821,
+  [1127] = 825,
+  [1128] = 826,
+  [1129] = 829,
   [1130] = 1130,
-  [1131] = 816,
+  [1131] = 1131,
   [1132] = 1132,
   [1133] = 1133,
-  [1134] = 817,
+  [1134] = 1134,
   [1135] = 1135,
-  [1136] = 818,
-  [1137] = 819,
+  [1136] = 1136,
+  [1137] = 1137,
   [1138] = 1138,
   [1139] = 1139,
   [1140] = 1140,
@@ -6696,514 +6690,514 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [1150] = 1150,
   [1151] = 1151,
   [1152] = 1152,
-  [1153] = 815,
+  [1153] = 1153,
   [1154] = 1154,
   [1155] = 1155,
   [1156] = 1156,
-  [1157] = 1126,
-  [1158] = 1125,
-  [1159] = 1152,
-  [1160] = 903,
-  [1161] = 896,
-  [1162] = 1140,
-  [1163] = 1141,
-  [1164] = 1135,
-  [1165] = 1142,
-  [1166] = 905,
-  [1167] = 838,
-  [1168] = 874,
-  [1169] = 839,
-  [1170] = 840,
-  [1171] = 841,
-  [1172] = 1145,
-  [1173] = 1147,
-  [1174] = 1128,
-  [1175] = 1146,
-  [1176] = 1148,
-  [1177] = 898,
-  [1178] = 899,
-  [1179] = 1150,
-  [1180] = 1151,
-  [1181] = 1133,
-  [1182] = 900,
-  [1183] = 1127,
-  [1184] = 901,
-  [1185] = 1149,
-  [1186] = 1143,
-  [1187] = 1155,
-  [1188] = 1122,
-  [1189] = 1132,
-  [1190] = 897,
-  [1191] = 630,
+  [1157] = 1147,
+  [1158] = 1134,
+  [1159] = 1149,
+  [1160] = 876,
+  [1161] = 856,
+  [1162] = 845,
+  [1163] = 1150,
+  [1164] = 1146,
+  [1165] = 877,
+  [1166] = 878,
+  [1167] = 840,
+  [1168] = 892,
+  [1169] = 861,
+  [1170] = 848,
+  [1171] = 839,
+  [1172] = 1143,
+  [1173] = 895,
+  [1174] = 869,
+  [1175] = 1155,
+  [1176] = 1125,
+  [1177] = 1138,
+  [1178] = 1131,
+  [1179] = 1136,
+  [1180] = 1139,
+  [1181] = 857,
+  [1182] = 1142,
+  [1183] = 1141,
+  [1184] = 1148,
+  [1185] = 1151,
+  [1186] = 1135,
+  [1187] = 1132,
+  [1188] = 1152,
+  [1189] = 1123,
+  [1190] = 1140,
+  [1191] = 626,
   [1192] = 1120,
-  [1193] = 1116,
-  [1194] = 1114,
-  [1195] = 1119,
-  [1196] = 1117,
-  [1197] = 1115,
+  [1193] = 1117,
+  [1194] = 1118,
+  [1195] = 1115,
+  [1196] = 1116,
+  [1197] = 1119,
   [1198] = 1198,
-  [1199] = 1199,
+  [1199] = 1149,
   [1200] = 1200,
-  [1201] = 1201,
+  [1201] = 1121,
   [1202] = 1202,
-  [1203] = 1203,
+  [1203] = 1138,
   [1204] = 1204,
   [1205] = 1205,
   [1206] = 1206,
   [1207] = 1207,
-  [1208] = 1208,
-  [1209] = 1206,
-  [1210] = 1200,
+  [1208] = 1151,
+  [1209] = 1148,
+  [1210] = 1210,
   [1211] = 1211,
-  [1212] = 1119,
+  [1212] = 1117,
   [1213] = 1213,
-  [1214] = 1201,
-  [1215] = 1204,
-  [1216] = 1216,
-  [1217] = 1205,
-  [1218] = 1198,
+  [1214] = 1214,
+  [1215] = 1215,
+  [1216] = 1139,
+  [1217] = 1206,
+  [1218] = 1136,
   [1219] = 1219,
-  [1220] = 1206,
-  [1221] = 1207,
+  [1220] = 1207,
+  [1221] = 1221,
   [1222] = 1222,
-  [1223] = 1120,
-  [1224] = 1129,
-  [1225] = 1225,
+  [1223] = 1223,
+  [1224] = 1141,
+  [1225] = 1222,
   [1226] = 1226,
-  [1227] = 1227,
-  [1228] = 1228,
-  [1229] = 1219,
+  [1227] = 1210,
+  [1228] = 1213,
+  [1229] = 1214,
   [1230] = 1230,
-  [1231] = 1207,
-  [1232] = 1202,
-  [1233] = 1203,
-  [1234] = 1234,
-  [1235] = 1114,
-  [1236] = 1236,
-  [1237] = 1237,
-  [1238] = 1238,
-  [1239] = 1230,
-  [1240] = 1240,
-  [1241] = 1227,
-  [1242] = 1242,
-  [1243] = 1116,
-  [1244] = 1139,
-  [1245] = 1200,
-  [1246] = 1211,
-  [1247] = 1225,
-  [1248] = 1222,
-  [1249] = 1249,
-  [1250] = 1250,
-  [1251] = 1234,
-  [1252] = 1236,
-  [1253] = 1201,
-  [1254] = 1126,
-  [1255] = 1127,
-  [1256] = 1226,
-  [1257] = 1240,
-  [1258] = 1121,
-  [1259] = 1242,
-  [1260] = 1227,
-  [1261] = 1242,
-  [1262] = 1147,
-  [1263] = 1149,
-  [1264] = 1222,
-  [1265] = 1150,
-  [1266] = 1152,
-  [1267] = 1237,
-  [1268] = 1135,
-  [1269] = 1237,
-  [1270] = 1117,
-  [1271] = 1271,
-  [1272] = 1216,
-  [1273] = 1228,
-  [1274] = 1250,
-  [1275] = 1201,
-  [1276] = 1128,
-  [1277] = 1142,
-  [1278] = 1145,
+  [1231] = 1231,
+  [1232] = 1144,
+  [1233] = 1120,
+  [1234] = 1142,
+  [1235] = 1222,
+  [1236] = 1206,
+  [1237] = 1230,
+  [1238] = 1226,
+  [1239] = 1239,
+  [1240] = 1221,
+  [1241] = 1143,
+  [1242] = 1219,
+  [1243] = 1205,
+  [1244] = 1154,
+  [1245] = 1150,
+  [1246] = 1152,
+  [1247] = 1247,
+  [1248] = 1198,
+  [1249] = 1239,
+  [1250] = 1116,
+  [1251] = 1231,
+  [1252] = 1202,
+  [1253] = 1253,
+  [1254] = 1254,
+  [1255] = 1214,
+  [1256] = 1200,
+  [1257] = 1205,
+  [1258] = 1221,
+  [1259] = 1130,
+  [1260] = 1145,
+  [1261] = 1202,
+  [1262] = 1131,
+  [1263] = 1204,
+  [1264] = 1200,
+  [1265] = 1210,
+  [1266] = 1214,
+  [1267] = 1267,
+  [1268] = 1230,
+  [1269] = 1231,
+  [1270] = 1211,
+  [1271] = 1239,
+  [1272] = 1272,
+  [1273] = 1198,
+  [1274] = 1274,
+  [1275] = 1221,
+  [1276] = 1115,
+  [1277] = 1140,
+  [1278] = 1267,
   [1279] = 1146,
-  [1280] = 1202,
-  [1281] = 1203,
-  [1282] = 1148,
-  [1283] = 1151,
-  [1284] = 1199,
-  [1285] = 1208,
-  [1286] = 1204,
-  [1287] = 1202,
-  [1288] = 1205,
-  [1289] = 1203,
-  [1290] = 1206,
-  [1291] = 1138,
-  [1292] = 1228,
-  [1293] = 1130,
-  [1294] = 1198,
-  [1295] = 1219,
-  [1296] = 1207,
-  [1297] = 1211,
-  [1298] = 1225,
+  [1280] = 1123,
+  [1281] = 1253,
+  [1282] = 1132,
+  [1283] = 1210,
+  [1284] = 1219,
+  [1285] = 1118,
+  [1286] = 1274,
+  [1287] = 1206,
+  [1288] = 1288,
+  [1289] = 1272,
+  [1290] = 1204,
+  [1291] = 1288,
+  [1292] = 1205,
+  [1293] = 1226,
+  [1294] = 1215,
+  [1295] = 1295,
+  [1296] = 1198,
+  [1297] = 1207,
+  [1298] = 1134,
   [1299] = 1230,
-  [1300] = 1199,
-  [1301] = 1208,
-  [1302] = 1271,
-  [1303] = 1249,
-  [1304] = 1250,
-  [1305] = 1204,
-  [1306] = 1234,
-  [1307] = 1236,
-  [1308] = 1216,
-  [1309] = 1155,
-  [1310] = 1122,
-  [1311] = 1271,
-  [1312] = 1140,
-  [1313] = 1141,
-  [1314] = 1240,
-  [1315] = 1133,
-  [1316] = 1143,
-  [1317] = 1211,
-  [1318] = 1225,
-  [1319] = 1249,
-  [1320] = 1132,
-  [1321] = 1125,
-  [1322] = 1227,
-  [1323] = 1242,
-  [1324] = 1205,
-  [1325] = 1222,
-  [1326] = 1115,
-  [1327] = 1249,
-  [1328] = 1237,
-  [1329] = 1228,
-  [1330] = 1250,
-  [1331] = 1234,
-  [1332] = 1236,
-  [1333] = 1144,
-  [1334] = 1123,
-  [1335] = 1226,
-  [1336] = 1240,
-  [1337] = 1200,
-  [1338] = 903,
-  [1339] = 1339,
-  [1340] = 1148,
-  [1341] = 1341,
-  [1342] = 1342,
-  [1343] = 841,
-  [1344] = 1344,
+  [1300] = 1122,
+  [1301] = 1211,
+  [1302] = 1215,
+  [1303] = 1303,
+  [1304] = 1135,
+  [1305] = 1267,
+  [1306] = 1125,
+  [1307] = 1239,
+  [1308] = 1272,
+  [1309] = 1254,
+  [1310] = 1295,
+  [1311] = 1253,
+  [1312] = 1147,
+  [1313] = 1226,
+  [1314] = 1155,
+  [1315] = 1274,
+  [1316] = 1253,
+  [1317] = 1303,
+  [1318] = 1119,
+  [1319] = 1295,
+  [1320] = 1288,
+  [1321] = 1231,
+  [1322] = 1133,
+  [1323] = 1204,
+  [1324] = 1274,
+  [1325] = 1303,
+  [1326] = 1267,
+  [1327] = 1213,
+  [1328] = 1254,
+  [1329] = 1329,
+  [1330] = 1288,
+  [1331] = 1223,
+  [1332] = 1223,
+  [1333] = 1272,
+  [1334] = 1202,
+  [1335] = 1219,
+  [1336] = 1200,
+  [1337] = 1215,
+  [1338] = 877,
+  [1339] = 1151,
+  [1340] = 1143,
+  [1341] = 1150,
+  [1342] = 1152,
+  [1343] = 1343,
+  [1344] = 877,
   [1345] = 1345,
-  [1346] = 1346,
-  [1347] = 1347,
-  [1348] = 1132,
-  [1349] = 815,
-  [1350] = 1350,
-  [1351] = 816,
+  [1346] = 1145,
+  [1347] = 876,
+  [1348] = 1348,
+  [1349] = 1140,
+  [1350] = 1146,
+  [1351] = 1135,
   [1352] = 1352,
-  [1353] = 817,
-  [1354] = 1354,
-  [1355] = 818,
-  [1356] = 819,
-  [1357] = 1357,
-  [1358] = 1129,
-  [1359] = 1132,
-  [1360] = 1360,
-  [1361] = 1125,
-  [1362] = 903,
-  [1363] = 1126,
-  [1364] = 1342,
-  [1365] = 1127,
+  [1353] = 856,
+  [1354] = 1123,
+  [1355] = 1132,
+  [1356] = 1148,
+  [1357] = 1135,
+  [1358] = 1348,
+  [1359] = 1147,
+  [1360] = 1155,
+  [1361] = 1151,
+  [1362] = 1362,
+  [1363] = 1363,
+  [1364] = 1345,
+  [1365] = 1144,
   [1366] = 1366,
-  [1367] = 903,
-  [1368] = 1147,
-  [1369] = 1149,
-  [1370] = 1150,
-  [1371] = 1152,
-  [1372] = 1135,
-  [1373] = 896,
-  [1374] = 905,
-  [1375] = 838,
-  [1376] = 1128,
-  [1377] = 905,
-  [1378] = 874,
-  [1379] = 1142,
-  [1380] = 1145,
-  [1381] = 1146,
-  [1382] = 1148,
-  [1383] = 897,
-  [1384] = 898,
-  [1385] = 1151,
-  [1386] = 1155,
-  [1387] = 1122,
-  [1388] = 896,
-  [1389] = 839,
-  [1390] = 840,
-  [1391] = 1126,
-  [1392] = 1127,
-  [1393] = 838,
-  [1394] = 1140,
-  [1395] = 874,
-  [1396] = 1141,
-  [1397] = 897,
-  [1398] = 839,
-  [1399] = 898,
-  [1400] = 1147,
-  [1401] = 1149,
-  [1402] = 1150,
-  [1403] = 1152,
-  [1404] = 1135,
-  [1405] = 1133,
-  [1406] = 1143,
-  [1407] = 899,
-  [1408] = 899,
-  [1409] = 900,
+  [1367] = 1367,
+  [1368] = 1352,
+  [1369] = 1369,
+  [1370] = 1370,
+  [1371] = 1132,
+  [1372] = 845,
+  [1373] = 895,
+  [1374] = 869,
+  [1375] = 1125,
+  [1376] = 1134,
+  [1377] = 1123,
+  [1378] = 1146,
+  [1379] = 1140,
+  [1380] = 1380,
+  [1381] = 1141,
+  [1382] = 1382,
+  [1383] = 1383,
+  [1384] = 1384,
+  [1385] = 1385,
+  [1386] = 1367,
+  [1387] = 1152,
+  [1388] = 1150,
+  [1389] = 1143,
+  [1390] = 1142,
+  [1391] = 1138,
+  [1392] = 1392,
+  [1393] = 1393,
+  [1394] = 1394,
+  [1395] = 1155,
+  [1396] = 1396,
+  [1397] = 1147,
+  [1398] = 1363,
+  [1399] = 1362,
+  [1400] = 1141,
+  [1401] = 1396,
+  [1402] = 1370,
+  [1403] = 1403,
+  [1404] = 1404,
+  [1405] = 856,
+  [1406] = 1382,
+  [1407] = 1141,
+  [1408] = 1408,
+  [1409] = 1142,
   [1410] = 1410,
-  [1411] = 1130,
-  [1412] = 840,
-  [1413] = 841,
-  [1414] = 900,
-  [1415] = 1128,
-  [1416] = 841,
-  [1417] = 1142,
-  [1418] = 1145,
-  [1419] = 903,
-  [1420] = 1146,
-  [1421] = 1148,
-  [1422] = 1132,
-  [1423] = 905,
-  [1424] = 1125,
-  [1425] = 901,
-  [1426] = 838,
-  [1427] = 1151,
-  [1428] = 1428,
-  [1429] = 874,
-  [1430] = 1155,
-  [1431] = 1431,
-  [1432] = 1122,
-  [1433] = 896,
-  [1434] = 839,
-  [1435] = 840,
-  [1436] = 901,
-  [1437] = 841,
-  [1438] = 1438,
-  [1439] = 1125,
-  [1440] = 1440,
-  [1441] = 1360,
-  [1442] = 1357,
+  [1411] = 1154,
+  [1412] = 1135,
+  [1413] = 856,
+  [1414] = 1414,
+  [1415] = 848,
+  [1416] = 876,
+  [1417] = 892,
+  [1418] = 1345,
+  [1419] = 878,
+  [1420] = 857,
+  [1421] = 861,
+  [1422] = 1352,
+  [1423] = 892,
+  [1424] = 895,
+  [1425] = 1403,
+  [1426] = 1408,
+  [1427] = 839,
+  [1428] = 1380,
+  [1429] = 1429,
+  [1430] = 1430,
+  [1431] = 1380,
+  [1432] = 1143,
+  [1433] = 840,
+  [1434] = 1382,
+  [1435] = 1410,
+  [1436] = 869,
+  [1437] = 1150,
+  [1438] = 1367,
+  [1439] = 1152,
+  [1440] = 1130,
+  [1441] = 1362,
+  [1442] = 845,
   [1443] = 1443,
   [1444] = 1444,
-  [1445] = 1150,
-  [1446] = 1140,
-  [1447] = 1360,
-  [1448] = 1151,
-  [1449] = 1141,
-  [1450] = 897,
-  [1451] = 898,
-  [1452] = 1354,
+  [1445] = 1445,
+  [1446] = 1446,
+  [1447] = 1430,
+  [1448] = 1448,
+  [1449] = 1122,
+  [1450] = 1138,
+  [1451] = 1403,
+  [1452] = 1408,
   [1453] = 1410,
-  [1454] = 1346,
-  [1455] = 896,
-  [1456] = 1456,
-  [1457] = 1366,
-  [1458] = 1440,
-  [1459] = 1459,
-  [1460] = 897,
-  [1461] = 1461,
-  [1462] = 1410,
-  [1463] = 898,
-  [1464] = 1456,
-  [1465] = 899,
-  [1466] = 1140,
-  [1467] = 1133,
-  [1468] = 1143,
-  [1469] = 1469,
-  [1470] = 1341,
-  [1471] = 899,
-  [1472] = 1366,
-  [1473] = 900,
-  [1474] = 1121,
-  [1475] = 900,
-  [1476] = 1476,
-  [1477] = 1477,
-  [1478] = 1339,
-  [1479] = 1461,
-  [1480] = 901,
-  [1481] = 1133,
-  [1482] = 1155,
-  [1483] = 1122,
-  [1484] = 1144,
-  [1485] = 1485,
-  [1486] = 1132,
-  [1487] = 1125,
-  [1488] = 901,
-  [1489] = 1489,
-  [1490] = 1459,
-  [1491] = 1491,
-  [1492] = 1444,
-  [1493] = 1143,
-  [1494] = 1476,
-  [1495] = 1477,
-  [1496] = 1339,
-  [1497] = 1497,
-  [1498] = 1345,
-  [1499] = 1140,
-  [1500] = 1346,
-  [1501] = 1345,
-  [1502] = 1346,
-  [1503] = 1141,
-  [1504] = 1141,
-  [1505] = 1431,
-  [1506] = 1128,
-  [1507] = 1142,
-  [1508] = 1491,
-  [1509] = 1497,
-  [1510] = 1352,
-  [1511] = 1438,
-  [1512] = 1443,
-  [1513] = 1145,
-  [1514] = 1155,
-  [1515] = 1146,
-  [1516] = 1148,
-  [1517] = 1469,
-  [1518] = 1352,
-  [1519] = 1438,
-  [1520] = 1520,
-  [1521] = 1126,
-  [1522] = 1341,
-  [1523] = 1347,
-  [1524] = 1133,
-  [1525] = 1350,
-  [1526] = 1354,
-  [1527] = 1459,
-  [1528] = 1443,
-  [1529] = 1444,
-  [1530] = 1143,
-  [1531] = 1132,
-  [1532] = 1127,
-  [1533] = 1476,
-  [1534] = 1456,
-  [1535] = 1342,
-  [1536] = 1477,
-  [1537] = 1537,
-  [1538] = 1122,
-  [1539] = 1125,
-  [1540] = 1339,
-  [1541] = 1366,
-  [1542] = 1128,
-  [1543] = 1142,
-  [1544] = 1147,
-  [1545] = 1491,
-  [1546] = 1428,
-  [1547] = 1440,
-  [1548] = 1431,
-  [1549] = 1461,
-  [1550] = 1461,
-  [1551] = 1497,
-  [1552] = 1428,
-  [1553] = 1485,
-  [1554] = 1123,
-  [1555] = 1357,
-  [1556] = 1152,
-  [1557] = 1485,
-  [1558] = 1347,
-  [1559] = 1360,
-  [1560] = 1145,
-  [1561] = 1352,
-  [1562] = 1126,
-  [1563] = 1127,
-  [1564] = 1410,
-  [1565] = 1438,
-  [1566] = 1146,
-  [1567] = 1440,
-  [1568] = 1147,
-  [1569] = 1149,
-  [1570] = 1150,
-  [1571] = 1152,
-  [1572] = 1135,
-  [1573] = 1350,
-  [1574] = 1354,
-  [1575] = 1443,
-  [1576] = 1133,
-  [1577] = 1128,
+  [1454] = 1132,
+  [1455] = 856,
+  [1456] = 1151,
+  [1457] = 1148,
+  [1458] = 1155,
+  [1459] = 1147,
+  [1460] = 876,
+  [1461] = 877,
+  [1462] = 878,
+  [1463] = 1139,
+  [1464] = 1430,
+  [1465] = 1448,
+  [1466] = 1136,
+  [1467] = 1135,
+  [1468] = 1132,
+  [1469] = 1123,
+  [1470] = 1146,
+  [1471] = 1140,
+  [1472] = 892,
+  [1473] = 895,
+  [1474] = 1131,
+  [1475] = 1448,
+  [1476] = 1149,
+  [1477] = 1152,
+  [1478] = 1445,
+  [1479] = 1150,
+  [1480] = 1147,
+  [1481] = 1143,
+  [1482] = 1142,
+  [1483] = 1444,
+  [1484] = 1443,
+  [1485] = 1141,
+  [1486] = 1393,
+  [1487] = 869,
+  [1488] = 1414,
+  [1489] = 1404,
+  [1490] = 1125,
+  [1491] = 1394,
+  [1492] = 1393,
+  [1493] = 1134,
+  [1494] = 1138,
+  [1495] = 1392,
+  [1496] = 1343,
+  [1497] = 856,
+  [1498] = 876,
+  [1499] = 877,
+  [1500] = 1448,
+  [1501] = 1430,
+  [1502] = 1384,
+  [1503] = 1155,
+  [1504] = 1410,
+  [1505] = 1385,
+  [1506] = 1383,
+  [1507] = 1446,
+  [1508] = 1367,
+  [1509] = 1408,
+  [1510] = 1403,
+  [1511] = 1445,
+  [1512] = 848,
+  [1513] = 857,
+  [1514] = 845,
+  [1515] = 1134,
+  [1516] = 1125,
+  [1517] = 861,
+  [1518] = 839,
+  [1519] = 840,
+  [1520] = 1370,
+  [1521] = 1444,
+  [1522] = 845,
+  [1523] = 1362,
+  [1524] = 821,
+  [1525] = 1382,
+  [1526] = 1151,
+  [1527] = 1148,
+  [1528] = 840,
+  [1529] = 839,
+  [1530] = 1380,
+  [1531] = 1149,
+  [1532] = 1139,
+  [1533] = 1136,
+  [1534] = 1534,
+  [1535] = 1131,
+  [1536] = 1131,
+  [1537] = 1149,
+  [1538] = 878,
+  [1539] = 1443,
+  [1540] = 1125,
+  [1541] = 1134,
+  [1542] = 1352,
+  [1543] = 1345,
+  [1544] = 1136,
+  [1545] = 1149,
+  [1546] = 1131,
+  [1547] = 1123,
+  [1548] = 825,
+  [1549] = 826,
+  [1550] = 835,
+  [1551] = 829,
+  [1552] = 892,
+  [1553] = 878,
+  [1554] = 1414,
+  [1555] = 1146,
+  [1556] = 1414,
+  [1557] = 1385,
+  [1558] = 861,
+  [1559] = 857,
+  [1560] = 1136,
+  [1561] = 1139,
+  [1562] = 839,
+  [1563] = 848,
+  [1564] = 1140,
+  [1565] = 1446,
+  [1566] = 1392,
+  [1567] = 876,
+  [1568] = 877,
+  [1569] = 848,
+  [1570] = 1148,
+  [1571] = 1151,
+  [1572] = 1139,
+  [1573] = 1394,
+  [1574] = 1404,
+  [1575] = 878,
+  [1576] = 895,
+  [1577] = 869,
   [1578] = 1142,
-  [1579] = 1145,
-  [1580] = 1143,
-  [1581] = 1146,
-  [1582] = 1148,
-  [1583] = 1151,
-  [1584] = 1476,
-  [1585] = 1428,
-  [1586] = 1477,
-  [1587] = 1345,
-  [1588] = 1431,
-  [1589] = 1151,
-  [1590] = 1357,
-  [1591] = 896,
-  [1592] = 1469,
-  [1593] = 1138,
-  [1594] = 905,
-  [1595] = 838,
-  [1596] = 874,
-  [1597] = 897,
-  [1598] = 898,
-  [1599] = 839,
-  [1600] = 1135,
-  [1601] = 1469,
-  [1602] = 1149,
-  [1603] = 840,
-  [1604] = 899,
-  [1605] = 900,
-  [1606] = 841,
-  [1607] = 901,
-  [1608] = 903,
-  [1609] = 1155,
-  [1610] = 1122,
-  [1611] = 1126,
-  [1612] = 1127,
-  [1613] = 1341,
-  [1614] = 905,
-  [1615] = 838,
-  [1616] = 874,
-  [1617] = 1140,
-  [1618] = 1141,
-  [1619] = 1147,
-  [1620] = 1149,
-  [1621] = 1150,
+  [1579] = 1348,
+  [1580] = 1148,
+  [1581] = 857,
+  [1582] = 848,
+  [1583] = 1155,
+  [1584] = 861,
+  [1585] = 1147,
+  [1586] = 1121,
+  [1587] = 1343,
+  [1588] = 869,
+  [1589] = 1443,
+  [1590] = 1444,
+  [1591] = 1445,
+  [1592] = 892,
+  [1593] = 1139,
+  [1594] = 1136,
+  [1595] = 857,
+  [1596] = 895,
+  [1597] = 861,
+  [1598] = 1135,
+  [1599] = 1132,
+  [1600] = 1138,
+  [1601] = 1343,
+  [1602] = 840,
+  [1603] = 1383,
+  [1604] = 1384,
+  [1605] = 1392,
+  [1606] = 1123,
+  [1607] = 1146,
+  [1608] = 1393,
+  [1609] = 1394,
+  [1610] = 1396,
+  [1611] = 1140,
+  [1612] = 1404,
+  [1613] = 1363,
+  [1614] = 1138,
+  [1615] = 845,
+  [1616] = 1134,
+  [1617] = 1125,
+  [1618] = 1131,
+  [1619] = 1149,
+  [1620] = 839,
+  [1621] = 840,
   [1622] = 1152,
-  [1623] = 1135,
-  [1624] = 839,
-  [1625] = 840,
-  [1626] = 1485,
-  [1627] = 1143,
-  [1628] = 1151,
-  [1629] = 1155,
-  [1630] = 1122,
-  [1631] = 1140,
-  [1632] = 1141,
-  [1633] = 897,
-  [1634] = 1133,
-  [1635] = 1132,
-  [1636] = 1125,
-  [1637] = 1147,
-  [1638] = 1149,
-  [1639] = 903,
-  [1640] = 901,
-  [1641] = 896,
-  [1642] = 898,
-  [1643] = 905,
-  [1644] = 838,
-  [1645] = 874,
-  [1646] = 1150,
-  [1647] = 1128,
-  [1648] = 1127,
-  [1649] = 1152,
-  [1650] = 839,
-  [1651] = 840,
-  [1652] = 899,
-  [1653] = 1142,
-  [1654] = 900,
-  [1655] = 1145,
-  [1656] = 1135,
-  [1657] = 841,
-  [1658] = 1146,
-  [1659] = 1148,
-  [1660] = 1126,
+  [1623] = 1150,
+  [1624] = 1143,
+  [1625] = 1141,
+  [1626] = 1142,
+  [1627] = 877,
+  [1628] = 1135,
+  [1629] = 1123,
+  [1630] = 1142,
+  [1631] = 1143,
+  [1632] = 1150,
+  [1633] = 1152,
+  [1634] = 1141,
+  [1635] = 1147,
+  [1636] = 1136,
+  [1637] = 869,
+  [1638] = 857,
+  [1639] = 861,
+  [1640] = 1132,
+  [1641] = 1148,
+  [1642] = 848,
+  [1643] = 1155,
+  [1644] = 1134,
+  [1645] = 1140,
+  [1646] = 845,
+  [1647] = 892,
+  [1648] = 1149,
+  [1649] = 839,
+  [1650] = 840,
+  [1651] = 895,
+  [1652] = 1131,
+  [1653] = 1151,
+  [1654] = 1146,
+  [1655] = 1139,
+  [1656] = 878,
+  [1657] = 876,
+  [1658] = 856,
+  [1659] = 1125,
+  [1660] = 1138,
   [1661] = 1661,
   [1662] = 1662,
   [1663] = 1663,
@@ -7226,1279 +7220,1279 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [1680] = 1680,
   [1681] = 1681,
   [1682] = 1682,
-  [1683] = 1667,
+  [1683] = 1683,
   [1684] = 1684,
-  [1685] = 1685,
-  [1686] = 1680,
-  [1687] = 1677,
-  [1688] = 1676,
-  [1689] = 1678,
-  [1690] = 1679,
-  [1691] = 1681,
-  [1692] = 1682,
-  [1693] = 1667,
-  [1694] = 816,
-  [1695] = 817,
-  [1696] = 818,
-  [1697] = 819,
-  [1698] = 815,
-  [1699] = 1668,
-  [1700] = 1669,
-  [1701] = 1670,
-  [1702] = 1671,
-  [1703] = 1672,
-  [1704] = 1673,
+  [1685] = 1677,
+  [1686] = 1668,
+  [1687] = 1680,
+  [1688] = 1678,
+  [1689] = 1689,
+  [1690] = 1667,
+  [1691] = 1679,
+  [1692] = 1672,
+  [1693] = 1676,
+  [1694] = 1680,
+  [1695] = 1667,
+  [1696] = 1681,
+  [1697] = 1682,
+  [1698] = 1681,
+  [1699] = 1673,
+  [1700] = 1700,
+  [1701] = 1675,
+  [1702] = 1669,
+  [1703] = 1682,
+  [1704] = 829,
   [1705] = 1674,
-  [1706] = 1675,
-  [1707] = 1680,
-  [1708] = 1677,
-  [1709] = 1676,
-  [1710] = 1678,
-  [1711] = 1679,
-  [1712] = 1681,
-  [1713] = 1682,
-  [1714] = 1668,
+  [1706] = 1676,
+  [1707] = 1671,
+  [1708] = 1674,
+  [1709] = 1670,
+  [1710] = 1710,
+  [1711] = 1711,
+  [1712] = 1712,
+  [1713] = 821,
+  [1714] = 825,
   [1715] = 1715,
-  [1716] = 903,
-  [1717] = 905,
-  [1718] = 838,
-  [1719] = 874,
-  [1720] = 839,
-  [1721] = 840,
-  [1722] = 841,
-  [1723] = 1669,
-  [1724] = 1724,
+  [1716] = 1672,
+  [1717] = 1717,
+  [1718] = 826,
+  [1719] = 835,
+  [1720] = 1712,
+  [1721] = 1711,
+  [1722] = 1673,
+  [1723] = 1723,
+  [1724] = 1712,
   [1725] = 1725,
-  [1726] = 1726,
-  [1727] = 1670,
-  [1728] = 1728,
-  [1729] = 1673,
+  [1726] = 1711,
+  [1727] = 1712,
+  [1728] = 856,
+  [1729] = 1711,
   [1730] = 1730,
-  [1731] = 1674,
+  [1731] = 1731,
   [1732] = 1732,
-  [1733] = 1733,
-  [1734] = 1675,
-  [1735] = 1724,
-  [1736] = 1725,
-  [1737] = 1724,
-  [1738] = 1725,
+  [1733] = 1679,
+  [1734] = 1734,
+  [1735] = 876,
+  [1736] = 877,
+  [1737] = 878,
+  [1738] = 1711,
   [1739] = 1739,
   [1740] = 1740,
-  [1741] = 1724,
-  [1742] = 1725,
-  [1743] = 1743,
-  [1744] = 1744,
-  [1745] = 1724,
-  [1746] = 1725,
-  [1747] = 1724,
-  [1748] = 1725,
-  [1749] = 1724,
-  [1750] = 1725,
-  [1751] = 1751,
-  [1752] = 1752,
-  [1753] = 1671,
-  [1754] = 1754,
-  [1755] = 1724,
-  [1756] = 1725,
-  [1757] = 1757,
-  [1758] = 1724,
-  [1759] = 1725,
-  [1760] = 1760,
-  [1761] = 1672,
+  [1741] = 1712,
+  [1742] = 892,
+  [1743] = 1678,
+  [1744] = 1668,
+  [1745] = 1677,
+  [1746] = 1675,
+  [1747] = 895,
+  [1748] = 1711,
+  [1749] = 1712,
+  [1750] = 1669,
+  [1751] = 1671,
+  [1752] = 1670,
+  [1753] = 1753,
+  [1754] = 1711,
+  [1755] = 1712,
+  [1756] = 869,
+  [1757] = 1711,
+  [1758] = 1712,
+  [1759] = 1759,
+  [1760] = 1711,
+  [1761] = 1761,
   [1762] = 1762,
-  [1763] = 1763,
-  [1764] = 1674,
-  [1765] = 1733,
-  [1766] = 1739,
-  [1767] = 1743,
-  [1768] = 1752,
-  [1769] = 1754,
-  [1770] = 1760,
-  [1771] = 1762,
-  [1772] = 1744,
-  [1773] = 1740,
-  [1774] = 1730,
-  [1775] = 1751,
-  [1776] = 1715,
-  [1777] = 1763,
-  [1778] = 1728,
-  [1779] = 1757,
-  [1780] = 1730,
-  [1781] = 1732,
-  [1782] = 1740,
-  [1783] = 1732,
-  [1784] = 1751,
-  [1785] = 1684,
-  [1786] = 1757,
-  [1787] = 1685,
-  [1788] = 1684,
-  [1789] = 1685,
-  [1790] = 1733,
-  [1791] = 1739,
-  [1792] = 1743,
-  [1793] = 1752,
-  [1794] = 1754,
-  [1795] = 1760,
-  [1796] = 1762,
-  [1797] = 1744,
+  [1763] = 1712,
+  [1764] = 1675,
+  [1765] = 1678,
+  [1766] = 1676,
+  [1767] = 1674,
+  [1768] = 1730,
+  [1769] = 1672,
+  [1770] = 1680,
+  [1771] = 1667,
+  [1772] = 1681,
+  [1773] = 1682,
+  [1774] = 1673,
+  [1775] = 1775,
+  [1776] = 1700,
+  [1777] = 1715,
+  [1778] = 1778,
+  [1779] = 1732,
+  [1780] = 1775,
+  [1781] = 1778,
+  [1782] = 1700,
+  [1783] = 1761,
+  [1784] = 1761,
+  [1785] = 1759,
+  [1786] = 1778,
+  [1787] = 1759,
+  [1788] = 1775,
+  [1789] = 1679,
+  [1790] = 1734,
+  [1791] = 1730,
+  [1792] = 1668,
+  [1793] = 1725,
+  [1794] = 1762,
+  [1795] = 1723,
+  [1796] = 1677,
+  [1797] = 1732,
   [1798] = 1715,
-  [1799] = 1763,
-  [1800] = 1800,
-  [1801] = 1669,
-  [1802] = 1670,
-  [1803] = 1671,
-  [1804] = 1672,
-  [1805] = 1673,
-  [1806] = 1675,
-  [1807] = 1680,
-  [1808] = 1677,
-  [1809] = 1676,
-  [1810] = 1728,
-  [1811] = 1678,
-  [1812] = 1679,
-  [1813] = 1681,
-  [1814] = 1682,
-  [1815] = 1667,
-  [1816] = 903,
-  [1817] = 905,
-  [1818] = 838,
-  [1819] = 874,
-  [1820] = 839,
-  [1821] = 840,
-  [1822] = 841,
-  [1823] = 903,
-  [1824] = 905,
-  [1825] = 838,
-  [1826] = 874,
-  [1827] = 839,
-  [1828] = 840,
-  [1829] = 841,
-  [1830] = 1830,
-  [1831] = 1800,
-  [1832] = 1830,
-  [1833] = 1800,
-  [1834] = 1830,
-  [1835] = 1668,
-  [1836] = 1739,
-  [1837] = 841,
-  [1838] = 1715,
-  [1839] = 1763,
-  [1840] = 1728,
-  [1841] = 1730,
-  [1842] = 1732,
-  [1843] = 1740,
-  [1844] = 1751,
-  [1845] = 1757,
-  [1846] = 1684,
-  [1847] = 1685,
-  [1848] = 1733,
-  [1849] = 1743,
-  [1850] = 1752,
-  [1851] = 1754,
-  [1852] = 1760,
-  [1853] = 1762,
-  [1854] = 1744,
-  [1855] = 903,
-  [1856] = 905,
-  [1857] = 838,
-  [1858] = 874,
-  [1859] = 839,
-  [1860] = 840,
-  [1861] = 1676,
-  [1862] = 1682,
-  [1863] = 1676,
-  [1864] = 1669,
-  [1865] = 1667,
-  [1866] = 1675,
-  [1867] = 1670,
-  [1868] = 1678,
-  [1869] = 1680,
-  [1870] = 1668,
-  [1871] = 1668,
-  [1872] = 1672,
-  [1873] = 1673,
-  [1874] = 1677,
-  [1875] = 1679,
-  [1876] = 1681,
-  [1877] = 1674,
-  [1878] = 1669,
-  [1879] = 1879,
-  [1880] = 1880,
-  [1881] = 1671,
-  [1882] = 1880,
-  [1883] = 1671,
-  [1884] = 1672,
-  [1885] = 1879,
-  [1886] = 1880,
-  [1887] = 1880,
-  [1888] = 1673,
+  [1799] = 1669,
+  [1800] = 1689,
+  [1801] = 1671,
+  [1802] = 1710,
+  [1803] = 1717,
+  [1804] = 1670,
+  [1805] = 1731,
+  [1806] = 1740,
+  [1807] = 1684,
+  [1808] = 856,
+  [1809] = 1762,
+  [1810] = 1734,
+  [1811] = 869,
+  [1812] = 895,
+  [1813] = 892,
+  [1814] = 878,
+  [1815] = 877,
+  [1816] = 876,
+  [1817] = 856,
+  [1818] = 876,
+  [1819] = 1723,
+  [1820] = 1689,
+  [1821] = 1753,
+  [1822] = 877,
+  [1823] = 1725,
+  [1824] = 1684,
+  [1825] = 1710,
+  [1826] = 1683,
+  [1827] = 1683,
+  [1828] = 1717,
+  [1829] = 1753,
+  [1830] = 878,
+  [1831] = 1731,
+  [1832] = 1740,
+  [1833] = 869,
+  [1834] = 892,
+  [1835] = 895,
+  [1836] = 1753,
+  [1837] = 1730,
+  [1838] = 1725,
+  [1839] = 1684,
+  [1840] = 1683,
+  [1841] = 1759,
+  [1842] = 1761,
+  [1843] = 1700,
+  [1844] = 1715,
+  [1845] = 856,
+  [1846] = 1762,
+  [1847] = 876,
+  [1848] = 1723,
+  [1849] = 877,
+  [1850] = 878,
+  [1851] = 1689,
+  [1852] = 892,
+  [1853] = 895,
+  [1854] = 1710,
+  [1855] = 869,
+  [1856] = 1732,
+  [1857] = 1717,
+  [1858] = 1740,
+  [1859] = 1731,
+  [1860] = 1734,
+  [1861] = 1861,
+  [1862] = 1670,
+  [1863] = 1863,
+  [1864] = 1861,
+  [1865] = 1861,
+  [1866] = 1861,
+  [1867] = 1673,
+  [1868] = 1681,
+  [1869] = 1682,
+  [1870] = 1682,
+  [1871] = 1681,
+  [1872] = 1861,
+  [1873] = 1670,
+  [1874] = 1863,
+  [1875] = 1863,
+  [1876] = 1671,
+  [1877] = 1669,
+  [1878] = 1667,
+  [1879] = 1679,
+  [1880] = 1680,
+  [1881] = 1675,
+  [1882] = 1861,
+  [1883] = 1677,
+  [1884] = 1863,
+  [1885] = 1678,
+  [1886] = 1672,
+  [1887] = 1676,
+  [1888] = 1668,
   [1889] = 1674,
-  [1890] = 1675,
-  [1891] = 1879,
-  [1892] = 1879,
-  [1893] = 1680,
-  [1894] = 1879,
-  [1895] = 1677,
-  [1896] = 1667,
-  [1897] = 1879,
-  [1898] = 1678,
-  [1899] = 1679,
-  [1900] = 1681,
-  [1901] = 1682,
-  [1902] = 1670,
-  [1903] = 1680,
-  [1904] = 1739,
-  [1905] = 1667,
-  [1906] = 1680,
-  [1907] = 1677,
-  [1908] = 1676,
-  [1909] = 1678,
-  [1910] = 1743,
-  [1911] = 1679,
-  [1912] = 1681,
-  [1913] = 903,
-  [1914] = 905,
-  [1915] = 838,
-  [1916] = 874,
-  [1917] = 839,
-  [1918] = 840,
-  [1919] = 1680,
-  [1920] = 841,
-  [1921] = 1677,
-  [1922] = 1676,
-  [1923] = 1678,
-  [1924] = 1679,
-  [1925] = 1681,
-  [1926] = 1682,
-  [1927] = 1667,
-  [1928] = 1682,
-  [1929] = 1752,
-  [1930] = 1667,
-  [1931] = 1931,
-  [1932] = 1754,
-  [1933] = 1668,
-  [1934] = 1667,
-  [1935] = 1760,
-  [1936] = 1715,
-  [1937] = 1682,
-  [1938] = 1669,
-  [1939] = 1762,
-  [1940] = 1670,
-  [1941] = 1744,
-  [1942] = 1728,
-  [1943] = 1943,
-  [1944] = 1757,
-  [1945] = 1681,
-  [1946] = 1678,
-  [1947] = 1679,
-  [1948] = 1948,
-  [1949] = 1680,
-  [1950] = 1677,
-  [1951] = 903,
-  [1952] = 905,
-  [1953] = 838,
-  [1954] = 874,
-  [1955] = 839,
-  [1956] = 840,
-  [1957] = 841,
-  [1958] = 1676,
-  [1959] = 1678,
-  [1960] = 1679,
-  [1961] = 1681,
-  [1962] = 1682,
-  [1963] = 1667,
-  [1964] = 1744,
-  [1965] = 1679,
-  [1966] = 1671,
-  [1967] = 1672,
-  [1968] = 1681,
-  [1969] = 1763,
-  [1970] = 1684,
+  [1890] = 1674,
+  [1891] = 1668,
+  [1892] = 1678,
+  [1893] = 1669,
+  [1894] = 1672,
+  [1895] = 1673,
+  [1896] = 1676,
+  [1897] = 1677,
+  [1898] = 1680,
+  [1899] = 1675,
+  [1900] = 1667,
+  [1901] = 1671,
+  [1902] = 1679,
+  [1903] = 1678,
+  [1904] = 1904,
+  [1905] = 1683,
+  [1906] = 856,
+  [1907] = 1674,
+  [1908] = 1679,
+  [1909] = 1670,
+  [1910] = 895,
+  [1911] = 1676,
+  [1912] = 1715,
+  [1913] = 1725,
+  [1914] = 1914,
+  [1915] = 1915,
+  [1916] = 1732,
+  [1917] = 892,
+  [1918] = 1918,
+  [1919] = 869,
+  [1920] = 1684,
+  [1921] = 1921,
+  [1922] = 878,
+  [1923] = 1673,
+  [1924] = 877,
+  [1925] = 1925,
+  [1926] = 1678,
+  [1927] = 1668,
+  [1928] = 1753,
+  [1929] = 1682,
+  [1930] = 1677,
+  [1931] = 1681,
+  [1932] = 1730,
+  [1933] = 1675,
+  [1934] = 1669,
+  [1935] = 1734,
+  [1936] = 1740,
+  [1937] = 1671,
+  [1938] = 1938,
+  [1939] = 1731,
+  [1940] = 1940,
+  [1941] = 1941,
+  [1942] = 1942,
+  [1943] = 1667,
+  [1944] = 1944,
+  [1945] = 1945,
+  [1946] = 1680,
+  [1947] = 1945,
+  [1948] = 1717,
+  [1949] = 1759,
+  [1950] = 1710,
+  [1951] = 1761,
+  [1952] = 1952,
+  [1953] = 1676,
+  [1954] = 1679,
+  [1955] = 1955,
+  [1956] = 1956,
+  [1957] = 1938,
+  [1958] = 1941,
+  [1959] = 1925,
+  [1960] = 1674,
+  [1961] = 1689,
+  [1962] = 1670,
+  [1963] = 1723,
+  [1964] = 1952,
+  [1965] = 1675,
+  [1966] = 1672,
+  [1967] = 1700,
+  [1968] = 1762,
+  [1969] = 1672,
+  [1970] = 1970,
   [1971] = 1971,
-  [1972] = 1672,
-  [1973] = 1673,
-  [1974] = 1674,
-  [1975] = 1975,
-  [1976] = 1976,
-  [1977] = 1977,
-  [1978] = 1728,
-  [1979] = 1979,
-  [1980] = 1681,
-  [1981] = 1685,
-  [1982] = 1730,
-  [1983] = 1675,
-  [1984] = 1984,
-  [1985] = 1732,
-  [1986] = 1986,
-  [1987] = 1987,
-  [1988] = 1988,
-  [1989] = 1989,
-  [1990] = 1682,
-  [1991] = 1943,
-  [1992] = 1682,
-  [1993] = 1993,
-  [1994] = 1977,
-  [1995] = 1976,
-  [1996] = 1671,
-  [1997] = 1740,
-  [1998] = 1989,
-  [1999] = 1948,
-  [2000] = 1971,
-  [2001] = 1979,
-  [2002] = 1948,
-  [2003] = 1676,
-  [2004] = 1669,
-  [2005] = 2005,
-  [2006] = 2006,
-  [2007] = 1751,
-  [2008] = 1931,
-  [2009] = 1757,
-  [2010] = 2010,
-  [2011] = 1675,
-  [2012] = 1684,
-  [2013] = 1685,
-  [2014] = 1993,
-  [2015] = 1670,
-  [2016] = 1715,
-  [2017] = 1763,
-  [2018] = 1971,
-  [2019] = 1668,
-  [2020] = 2005,
-  [2021] = 1984,
-  [2022] = 1668,
-  [2023] = 1979,
-  [2024] = 1986,
-  [2025] = 2006,
-  [2026] = 1733,
-  [2027] = 1669,
-  [2028] = 1987,
-  [2029] = 1678,
-  [2030] = 1989,
-  [2031] = 1988,
+  [1972] = 1759,
+  [1973] = 1674,
+  [1974] = 1676,
+  [1975] = 1670,
+  [1976] = 1671,
+  [1977] = 1680,
+  [1978] = 1667,
+  [1979] = 1669,
+  [1980] = 1675,
+  [1981] = 1681,
+  [1982] = 1682,
+  [1983] = 1677,
+  [1984] = 1673,
+  [1985] = 1670,
+  [1986] = 1671,
+  [1987] = 1669,
+  [1988] = 876,
+  [1989] = 1675,
+  [1990] = 1677,
+  [1991] = 1668,
+  [1992] = 1678,
+  [1993] = 1668,
+  [1994] = 1667,
+  [1995] = 1679,
+  [1996] = 1971,
+  [1997] = 1679,
+  [1998] = 1700,
+  [1999] = 1914,
+  [2000] = 1732,
+  [2001] = 856,
+  [2002] = 1761,
+  [2003] = 876,
+  [2004] = 1668,
+  [2005] = 877,
+  [2006] = 878,
+  [2007] = 1715,
+  [2008] = 892,
+  [2009] = 1734,
+  [2010] = 895,
+  [2011] = 1730,
+  [2012] = 869,
+  [2013] = 1670,
+  [2014] = 1971,
+  [2015] = 1915,
+  [2016] = 1725,
+  [2017] = 1918,
+  [2018] = 1684,
+  [2019] = 1970,
+  [2020] = 1921,
+  [2021] = 1683,
+  [2022] = 1970,
+  [2023] = 1671,
+  [2024] = 1672,
+  [2025] = 2025,
+  [2026] = 1956,
+  [2027] = 1955,
+  [2028] = 1669,
+  [2029] = 1682,
+  [2030] = 1675,
+  [2031] = 1677,
   [2032] = 1670,
-  [2033] = 1739,
-  [2034] = 1677,
-  [2035] = 1975,
-  [2036] = 1976,
-  [2037] = 1740,
-  [2038] = 1743,
-  [2039] = 1678,
-  [2040] = 1673,
-  [2041] = 1671,
-  [2042] = 2042,
-  [2043] = 1674,
-  [2044] = 1672,
-  [2045] = 1677,
-  [2046] = 1680,
-  [2047] = 1752,
-  [2048] = 1667,
-  [2049] = 1751,
-  [2050] = 1754,
-  [2051] = 1733,
-  [2052] = 1679,
-  [2053] = 1984,
-  [2054] = 1673,
-  [2055] = 1674,
-  [2056] = 1986,
-  [2057] = 1987,
-  [2058] = 1988,
-  [2059] = 1676,
-  [2060] = 1760,
-  [2061] = 1732,
-  [2062] = 1762,
-  [2063] = 1975,
-  [2064] = 1730,
-  [2065] = 2005,
-  [2066] = 2006,
-  [2067] = 1680,
-  [2068] = 1943,
-  [2069] = 1675,
-  [2070] = 1677,
-  [2071] = 1676,
-  [2072] = 1993,
-  [2073] = 1977,
-  [2074] = 1931,
-  [2075] = 1740,
-  [2076] = 1668,
-  [2077] = 905,
-  [2078] = 1733,
-  [2079] = 1669,
-  [2080] = 1670,
-  [2081] = 1739,
-  [2082] = 1667,
-  [2083] = 1743,
-  [2084] = 1671,
-  [2085] = 1672,
-  [2086] = 1752,
-  [2087] = 1743,
-  [2088] = 1754,
-  [2089] = 838,
-  [2090] = 1673,
-  [2091] = 1674,
-  [2092] = 1760,
-  [2093] = 874,
-  [2094] = 1762,
-  [2095] = 1675,
-  [2096] = 1744,
-  [2097] = 1668,
-  [2098] = 2098,
-  [2099] = 1677,
+  [2033] = 1956,
+  [2034] = 1952,
+  [2035] = 1671,
+  [2036] = 1955,
+  [2037] = 1671,
+  [2038] = 1925,
+  [2039] = 1941,
+  [2040] = 1938,
+  [2041] = 1675,
+  [2042] = 1677,
+  [2043] = 1669,
+  [2044] = 1669,
+  [2045] = 1681,
+  [2046] = 1668,
+  [2047] = 1673,
+  [2048] = 1762,
+  [2049] = 1723,
+  [2050] = 1945,
+  [2051] = 1921,
+  [2052] = 1944,
+  [2053] = 1678,
+  [2054] = 1942,
+  [2055] = 1918,
+  [2056] = 1680,
+  [2057] = 1689,
+  [2058] = 1940,
+  [2059] = 1915,
+  [2060] = 1668,
+  [2061] = 1942,
+  [2062] = 1940,
+  [2063] = 1753,
+  [2064] = 1717,
+  [2065] = 1677,
+  [2066] = 1678,
+  [2067] = 1679,
+  [2068] = 1710,
+  [2069] = 1740,
+  [2070] = 1678,
+  [2071] = 1731,
+  [2072] = 1914,
+  [2073] = 1679,
+  [2074] = 1944,
+  [2075] = 1669,
+  [2076] = 1759,
+  [2077] = 2077,
+  [2078] = 1731,
+  [2079] = 2077,
+  [2080] = 2080,
+  [2081] = 1681,
+  [2082] = 2082,
+  [2083] = 1673,
+  [2084] = 2080,
+  [2085] = 2085,
+  [2086] = 1740,
+  [2087] = 1682,
+  [2088] = 2085,
+  [2089] = 1681,
+  [2090] = 1753,
+  [2091] = 1683,
+  [2092] = 1667,
+  [2093] = 1740,
+  [2094] = 1672,
+  [2095] = 1731,
+  [2096] = 2096,
+  [2097] = 2097,
+  [2098] = 1700,
+  [2099] = 1680,
   [2100] = 2100,
-  [2101] = 1680,
-  [2102] = 2102,
-  [2103] = 2103,
-  [2104] = 1676,
-  [2105] = 1677,
-  [2106] = 1676,
-  [2107] = 2107,
+  [2101] = 2101,
+  [2102] = 1717,
+  [2103] = 1676,
+  [2104] = 2104,
+  [2105] = 1674,
+  [2106] = 1761,
+  [2107] = 1672,
   [2108] = 2108,
-  [2109] = 1678,
-  [2110] = 1679,
-  [2111] = 1754,
-  [2112] = 1681,
-  [2113] = 1682,
-  [2114] = 1667,
-  [2115] = 1752,
-  [2116] = 1680,
-  [2117] = 1668,
-  [2118] = 1677,
+  [2109] = 1672,
+  [2110] = 2110,
+  [2111] = 2111,
+  [2112] = 1670,
+  [2113] = 1674,
+  [2114] = 1759,
+  [2115] = 1670,
+  [2116] = 2116,
+  [2117] = 2117,
+  [2118] = 1715,
   [2119] = 1676,
-  [2120] = 1669,
-  [2121] = 1670,
-  [2122] = 1678,
-  [2123] = 1679,
-  [2124] = 1671,
-  [2125] = 1672,
-  [2126] = 1681,
-  [2127] = 1682,
-  [2128] = 1673,
-  [2129] = 1674,
-  [2130] = 1667,
-  [2131] = 1675,
-  [2132] = 2132,
-  [2133] = 1733,
-  [2134] = 1739,
-  [2135] = 1743,
-  [2136] = 1752,
-  [2137] = 1754,
-  [2138] = 1760,
-  [2139] = 1754,
-  [2140] = 1762,
-  [2141] = 1744,
-  [2142] = 1715,
-  [2143] = 1669,
-  [2144] = 1763,
-  [2145] = 1670,
+  [2120] = 1671,
+  [2121] = 1717,
+  [2122] = 1669,
+  [2123] = 1680,
+  [2124] = 1673,
+  [2125] = 1667,
+  [2126] = 1753,
+  [2127] = 1753,
+  [2128] = 1762,
+  [2129] = 1684,
+  [2130] = 1682,
+  [2131] = 1710,
+  [2132] = 1725,
+  [2133] = 869,
+  [2134] = 1740,
+  [2135] = 895,
+  [2136] = 1731,
+  [2137] = 1674,
+  [2138] = 892,
+  [2139] = 878,
+  [2140] = 1667,
+  [2141] = 877,
+  [2142] = 1676,
+  [2143] = 876,
+  [2144] = 856,
+  [2145] = 1679,
   [2146] = 2146,
-  [2147] = 1730,
-  [2148] = 1739,
-  [2149] = 1728,
-  [2150] = 1728,
-  [2151] = 1744,
-  [2152] = 1760,
-  [2153] = 1762,
-  [2154] = 1730,
-  [2155] = 1730,
-  [2156] = 1732,
-  [2157] = 839,
-  [2158] = 1732,
-  [2159] = 840,
-  [2160] = 1760,
-  [2161] = 1744,
-  [2162] = 1740,
-  [2163] = 2163,
-  [2164] = 1751,
-  [2165] = 1740,
-  [2166] = 1751,
-  [2167] = 1757,
-  [2168] = 1684,
-  [2169] = 1685,
-  [2170] = 2170,
-  [2171] = 1678,
-  [2172] = 1680,
-  [2173] = 1668,
+  [2147] = 869,
+  [2148] = 2148,
+  [2149] = 1680,
+  [2150] = 895,
+  [2151] = 1717,
+  [2152] = 1677,
+  [2153] = 1710,
+  [2154] = 1710,
+  [2155] = 2104,
+  [2156] = 892,
+  [2157] = 1676,
+  [2158] = 878,
+  [2159] = 1674,
+  [2160] = 1689,
+  [2161] = 877,
+  [2162] = 2108,
+  [2163] = 2110,
+  [2164] = 1723,
+  [2165] = 2165,
+  [2166] = 876,
+  [2167] = 1672,
+  [2168] = 856,
+  [2169] = 1762,
+  [2170] = 1675,
+  [2171] = 2111,
+  [2172] = 1689,
+  [2173] = 1679,
   [2174] = 1677,
-  [2175] = 1676,
-  [2176] = 1669,
-  [2177] = 1670,
-  [2178] = 1678,
-  [2179] = 1679,
-  [2180] = 1671,
-  [2181] = 1672,
-  [2182] = 1681,
-  [2183] = 1682,
-  [2184] = 1673,
-  [2185] = 1674,
-  [2186] = 1667,
-  [2187] = 1675,
-  [2188] = 1757,
-  [2189] = 2189,
-  [2190] = 1684,
-  [2191] = 903,
-  [2192] = 1685,
-  [2193] = 1715,
-  [2194] = 1763,
-  [2195] = 1668,
-  [2196] = 2196,
-  [2197] = 1733,
-  [2198] = 1669,
-  [2199] = 1670,
-  [2200] = 1739,
-  [2201] = 1743,
-  [2202] = 1671,
-  [2203] = 1672,
-  [2204] = 1752,
-  [2205] = 1754,
-  [2206] = 1673,
-  [2207] = 1674,
-  [2208] = 1760,
-  [2209] = 1762,
-  [2210] = 1675,
-  [2211] = 1744,
-  [2212] = 1680,
-  [2213] = 1677,
-  [2214] = 1676,
-  [2215] = 1678,
-  [2216] = 1679,
-  [2217] = 1681,
-  [2218] = 1682,
-  [2219] = 1667,
-  [2220] = 2220,
-  [2221] = 2221,
-  [2222] = 1757,
-  [2223] = 1680,
-  [2224] = 1677,
-  [2225] = 1676,
-  [2226] = 1678,
-  [2227] = 1679,
-  [2228] = 1681,
-  [2229] = 1682,
-  [2230] = 1667,
-  [2231] = 903,
-  [2232] = 905,
-  [2233] = 838,
-  [2234] = 2163,
-  [2235] = 839,
-  [2236] = 840,
-  [2237] = 841,
-  [2238] = 903,
-  [2239] = 905,
-  [2240] = 838,
-  [2241] = 874,
-  [2242] = 839,
-  [2243] = 840,
-  [2244] = 841,
-  [2245] = 1684,
-  [2246] = 2098,
-  [2247] = 2189,
-  [2248] = 1680,
-  [2249] = 2100,
-  [2250] = 2102,
-  [2251] = 841,
-  [2252] = 1679,
-  [2253] = 1732,
-  [2254] = 903,
-  [2255] = 905,
-  [2256] = 838,
-  [2257] = 874,
-  [2258] = 839,
-  [2259] = 840,
-  [2260] = 841,
-  [2261] = 2103,
-  [2262] = 1744,
-  [2263] = 2107,
-  [2264] = 2108,
-  [2265] = 1752,
-  [2266] = 903,
-  [2267] = 905,
-  [2268] = 838,
-  [2269] = 874,
-  [2270] = 839,
-  [2271] = 840,
-  [2272] = 841,
-  [2273] = 903,
-  [2274] = 905,
-  [2275] = 838,
-  [2276] = 874,
-  [2277] = 839,
-  [2278] = 840,
-  [2279] = 841,
-  [2280] = 1677,
-  [2281] = 1752,
-  [2282] = 1671,
-  [2283] = 1672,
-  [2284] = 1681,
-  [2285] = 1682,
-  [2286] = 1715,
-  [2287] = 1754,
-  [2288] = 2288,
-  [2289] = 2289,
-  [2290] = 1673,
-  [2291] = 1674,
-  [2292] = 2132,
-  [2293] = 1667,
-  [2294] = 2294,
-  [2295] = 2295,
-  [2296] = 2170,
-  [2297] = 2146,
-  [2298] = 2294,
-  [2299] = 2163,
-  [2300] = 1676,
-  [2301] = 2189,
-  [2302] = 1675,
-  [2303] = 1668,
-  [2304] = 2221,
-  [2305] = 1680,
-  [2306] = 2170,
-  [2307] = 1763,
-  [2308] = 2196,
-  [2309] = 2196,
-  [2310] = 2220,
-  [2311] = 1668,
-  [2312] = 2098,
-  [2313] = 2100,
-  [2314] = 2102,
-  [2315] = 2103,
-  [2316] = 1728,
-  [2317] = 2107,
-  [2318] = 2108,
-  [2319] = 1669,
-  [2320] = 2132,
-  [2321] = 1680,
-  [2322] = 1669,
-  [2323] = 1670,
-  [2324] = 1670,
-  [2325] = 1668,
-  [2326] = 1677,
-  [2327] = 1733,
-  [2328] = 1676,
-  [2329] = 2221,
-  [2330] = 1671,
-  [2331] = 1669,
-  [2332] = 1670,
-  [2333] = 1739,
-  [2334] = 1678,
-  [2335] = 1672,
-  [2336] = 1678,
+  [2175] = 1678,
+  [2176] = 1671,
+  [2177] = 1668,
+  [2178] = 1681,
+  [2179] = 869,
+  [2180] = 895,
+  [2181] = 1677,
+  [2182] = 2165,
+  [2183] = 892,
+  [2184] = 1675,
+  [2185] = 2116,
+  [2186] = 2117,
+  [2187] = 878,
+  [2188] = 1669,
+  [2189] = 1673,
+  [2190] = 1669,
+  [2191] = 876,
+  [2192] = 1671,
+  [2193] = 856,
+  [2194] = 2096,
+  [2195] = 1682,
+  [2196] = 2097,
+  [2197] = 1670,
+  [2198] = 1723,
+  [2199] = 2100,
+  [2200] = 1680,
+  [2201] = 1762,
+  [2202] = 1667,
+  [2203] = 856,
+  [2204] = 876,
+  [2205] = 877,
+  [2206] = 1668,
+  [2207] = 878,
+  [2208] = 1678,
+  [2209] = 892,
+  [2210] = 1673,
+  [2211] = 1679,
+  [2212] = 1673,
+  [2213] = 1678,
+  [2214] = 1668,
+  [2215] = 895,
+  [2216] = 1682,
+  [2217] = 869,
+  [2218] = 1681,
+  [2219] = 2101,
+  [2220] = 1753,
+  [2221] = 1740,
+  [2222] = 1675,
+  [2223] = 1731,
+  [2224] = 1667,
+  [2225] = 869,
+  [2226] = 1680,
+  [2227] = 895,
+  [2228] = 1669,
+  [2229] = 1675,
+  [2230] = 892,
+  [2231] = 1671,
+  [2232] = 878,
+  [2233] = 877,
+  [2234] = 1676,
+  [2235] = 876,
+  [2236] = 1674,
+  [2237] = 856,
+  [2238] = 1670,
+  [2239] = 869,
+  [2240] = 877,
+  [2241] = 1672,
+  [2242] = 1677,
+  [2243] = 892,
+  [2244] = 2244,
+  [2245] = 1682,
+  [2246] = 1681,
+  [2247] = 878,
+  [2248] = 877,
+  [2249] = 876,
+  [2250] = 856,
+  [2251] = 1670,
+  [2252] = 1671,
+  [2253] = 1681,
+  [2254] = 1669,
+  [2255] = 1682,
+  [2256] = 1675,
+  [2257] = 1677,
+  [2258] = 1668,
+  [2259] = 1678,
+  [2260] = 1683,
+  [2261] = 2244,
+  [2262] = 1679,
+  [2263] = 2244,
+  [2264] = 1753,
+  [2265] = 1717,
+  [2266] = 1710,
+  [2267] = 1679,
+  [2268] = 1740,
+  [2269] = 1689,
+  [2270] = 1731,
+  [2271] = 1723,
+  [2272] = 1762,
+  [2273] = 2082,
+  [2274] = 1675,
+  [2275] = 1678,
+  [2276] = 1667,
+  [2277] = 1680,
+  [2278] = 1668,
+  [2279] = 1677,
+  [2280] = 1717,
+  [2281] = 1668,
+  [2282] = 1670,
+  [2283] = 1671,
+  [2284] = 1710,
+  [2285] = 1679,
+  [2286] = 1675,
+  [2287] = 895,
+  [2288] = 1677,
+  [2289] = 1678,
+  [2290] = 1668,
+  [2291] = 1678,
+  [2292] = 1679,
+  [2293] = 1673,
+  [2294] = 1689,
+  [2295] = 1762,
+  [2296] = 1723,
+  [2297] = 1672,
+  [2298] = 1723,
+  [2299] = 2165,
+  [2300] = 1683,
+  [2301] = 1689,
+  [2302] = 1674,
+  [2303] = 1762,
+  [2304] = 1669,
+  [2305] = 1715,
+  [2306] = 1732,
+  [2307] = 1676,
+  [2308] = 2148,
+  [2309] = 2146,
+  [2310] = 1700,
+  [2311] = 1671,
+  [2312] = 1676,
+  [2313] = 1732,
+  [2314] = 1674,
+  [2315] = 1732,
+  [2316] = 1761,
+  [2317] = 1673,
+  [2318] = 1759,
+  [2319] = 1710,
+  [2320] = 1717,
+  [2321] = 1679,
+  [2322] = 1678,
+  [2323] = 1734,
+  [2324] = 1715,
+  [2325] = 1730,
+  [2326] = 1680,
+  [2327] = 1723,
+  [2328] = 1667,
+  [2329] = 1668,
+  [2330] = 1725,
+  [2331] = 1731,
+  [2332] = 1684,
+  [2333] = 1740,
+  [2334] = 1684,
+  [2335] = 1681,
+  [2336] = 1682,
   [2337] = 1679,
-  [2338] = 2288,
-  [2339] = 1679,
-  [2340] = 1671,
-  [2341] = 1672,
-  [2342] = 1673,
-  [2343] = 2289,
-  [2344] = 1674,
-  [2345] = 1681,
-  [2346] = 1675,
-  [2347] = 1682,
-  [2348] = 1673,
-  [2349] = 1674,
-  [2350] = 1667,
+  [2338] = 1673,
+  [2339] = 1753,
+  [2340] = 1678,
+  [2341] = 1668,
+  [2342] = 1672,
+  [2343] = 1682,
+  [2344] = 1670,
+  [2345] = 1670,
+  [2346] = 1681,
+  [2347] = 1689,
+  [2348] = 1674,
+  [2349] = 1677,
+  [2350] = 1730,
   [2351] = 1675,
-  [2352] = 1675,
-  [2353] = 1671,
-  [2354] = 1672,
-  [2355] = 1681,
-  [2356] = 1751,
-  [2357] = 1682,
-  [2358] = 1762,
-  [2359] = 2220,
-  [2360] = 1760,
-  [2361] = 1743,
-  [2362] = 1680,
-  [2363] = 1743,
-  [2364] = 1762,
-  [2365] = 1685,
-  [2366] = 1668,
-  [2367] = 1677,
-  [2368] = 1676,
-  [2369] = 2288,
-  [2370] = 2289,
-  [2371] = 1673,
-  [2372] = 1669,
-  [2373] = 1670,
-  [2374] = 1678,
-  [2375] = 1674,
-  [2376] = 1679,
-  [2377] = 1671,
-  [2378] = 1672,
-  [2379] = 1681,
-  [2380] = 1682,
-  [2381] = 1673,
-  [2382] = 1674,
-  [2383] = 1667,
-  [2384] = 1675,
-  [2385] = 1733,
-  [2386] = 2295,
-  [2387] = 1739,
-  [2388] = 2146,
-  [2389] = 2295,
-  [2390] = 1733,
-  [2391] = 2294,
-  [2392] = 874,
-  [2393] = 1762,
+  [2352] = 1676,
+  [2353] = 1725,
+  [2354] = 1667,
+  [2355] = 1671,
+  [2356] = 1734,
+  [2357] = 2148,
+  [2358] = 1730,
+  [2359] = 1680,
+  [2360] = 2101,
+  [2361] = 1669,
+  [2362] = 2146,
+  [2363] = 2100,
+  [2364] = 1671,
+  [2365] = 2097,
+  [2366] = 1676,
+  [2367] = 1669,
+  [2368] = 1674,
+  [2369] = 1682,
+  [2370] = 2096,
+  [2371] = 1670,
+  [2372] = 2117,
+  [2373] = 2116,
+  [2374] = 1672,
+  [2375] = 1700,
+  [2376] = 2111,
+  [2377] = 1680,
+  [2378] = 2110,
+  [2379] = 2108,
+  [2380] = 1667,
+  [2381] = 1675,
+  [2382] = 2104,
+  [2383] = 1672,
+  [2384] = 2085,
+  [2385] = 1761,
+  [2386] = 2082,
+  [2387] = 1681,
+  [2388] = 1673,
+  [2389] = 1734,
+  [2390] = 2077,
+  [2391] = 1677,
+  [2392] = 2080,
+  [2393] = 1717,
   [2394] = 1762,
-  [2395] = 1762,
-  [2396] = 1757,
-  [2397] = 1730,
-  [2398] = 1684,
-  [2399] = 903,
-  [2400] = 905,
-  [2401] = 838,
-  [2402] = 874,
-  [2403] = 839,
-  [2404] = 840,
-  [2405] = 841,
-  [2406] = 903,
-  [2407] = 905,
-  [2408] = 838,
-  [2409] = 1763,
-  [2410] = 839,
-  [2411] = 840,
-  [2412] = 841,
-  [2413] = 1733,
-  [2414] = 1744,
-  [2415] = 1728,
-  [2416] = 1685,
-  [2417] = 1739,
-  [2418] = 903,
-  [2419] = 1743,
-  [2420] = 1730,
-  [2421] = 905,
-  [2422] = 1732,
-  [2423] = 838,
-  [2424] = 1752,
-  [2425] = 874,
-  [2426] = 903,
-  [2427] = 905,
-  [2428] = 838,
-  [2429] = 874,
-  [2430] = 839,
-  [2431] = 840,
-  [2432] = 841,
-  [2433] = 1754,
-  [2434] = 1740,
-  [2435] = 839,
-  [2436] = 1751,
-  [2437] = 840,
-  [2438] = 1760,
-  [2439] = 1752,
+  [2395] = 1678,
+  [2396] = 1683,
+  [2397] = 1740,
+  [2398] = 1668,
+  [2399] = 1683,
+  [2400] = 869,
+  [2401] = 1683,
+  [2402] = 1731,
+  [2403] = 1762,
+  [2404] = 1715,
+  [2405] = 1684,
+  [2406] = 1761,
+  [2407] = 1700,
+  [2408] = 1677,
+  [2409] = 1762,
+  [2410] = 1675,
+  [2411] = 1725,
+  [2412] = 1759,
+  [2413] = 1761,
+  [2414] = 1700,
+  [2415] = 1684,
+  [2416] = 1669,
+  [2417] = 1725,
+  [2418] = 1671,
+  [2419] = 869,
+  [2420] = 1684,
+  [2421] = 1725,
+  [2422] = 1725,
+  [2423] = 1759,
+  [2424] = 1723,
+  [2425] = 895,
+  [2426] = 892,
+  [2427] = 1689,
+  [2428] = 1730,
+  [2429] = 1734,
+  [2430] = 1710,
+  [2431] = 1730,
+  [2432] = 1734,
+  [2433] = 1670,
+  [2434] = 878,
+  [2435] = 1683,
+  [2436] = 877,
+  [2437] = 1710,
+  [2438] = 1717,
+  [2439] = 876,
   [2440] = 1762,
-  [2441] = 1757,
-  [2442] = 1668,
-  [2443] = 1684,
-  [2444] = 1744,
-  [2445] = 1685,
-  [2446] = 903,
-  [2447] = 905,
-  [2448] = 838,
-  [2449] = 874,
-  [2450] = 839,
-  [2451] = 840,
-  [2452] = 841,
-  [2453] = 841,
-  [2454] = 903,
-  [2455] = 903,
-  [2456] = 905,
-  [2457] = 838,
-  [2458] = 874,
-  [2459] = 839,
-  [2460] = 840,
-  [2461] = 841,
-  [2462] = 1763,
-  [2463] = 1760,
-  [2464] = 1730,
-  [2465] = 1669,
-  [2466] = 1732,
-  [2467] = 1715,
-  [2468] = 905,
-  [2469] = 1752,
-  [2470] = 838,
-  [2471] = 1670,
-  [2472] = 1754,
-  [2473] = 874,
-  [2474] = 2474,
-  [2475] = 1680,
-  [2476] = 1677,
-  [2477] = 1676,
-  [2478] = 1763,
-  [2479] = 1740,
-  [2480] = 1751,
-  [2481] = 1678,
-  [2482] = 1760,
-  [2483] = 1679,
-  [2484] = 1762,
-  [2485] = 1754,
-  [2486] = 1681,
-  [2487] = 839,
-  [2488] = 1682,
-  [2489] = 840,
+  [2441] = 1684,
+  [2442] = 1715,
+  [2443] = 1723,
+  [2444] = 1734,
+  [2445] = 2445,
+  [2446] = 1759,
+  [2447] = 1761,
+  [2448] = 1730,
+  [2449] = 1731,
+  [2450] = 1715,
+  [2451] = 856,
+  [2452] = 1762,
+  [2453] = 1725,
+  [2454] = 1684,
+  [2455] = 1732,
+  [2456] = 1689,
+  [2457] = 1740,
+  [2458] = 1723,
+  [2459] = 1700,
+  [2460] = 1731,
+  [2461] = 1723,
+  [2462] = 1715,
+  [2463] = 1683,
+  [2464] = 1753,
+  [2465] = 1753,
+  [2466] = 1700,
+  [2467] = 1732,
+  [2468] = 1715,
+  [2469] = 1684,
+  [2470] = 1725,
+  [2471] = 1689,
+  [2472] = 1761,
+  [2473] = 1723,
+  [2474] = 1689,
+  [2475] = 1759,
+  [2476] = 1732,
+  [2477] = 1715,
+  [2478] = 1762,
+  [2479] = 1730,
+  [2480] = 1683,
+  [2481] = 1732,
+  [2482] = 1734,
+  [2483] = 1734,
+  [2484] = 1730,
+  [2485] = 895,
+  [2486] = 1734,
+  [2487] = 892,
+  [2488] = 2488,
+  [2489] = 1710,
   [2490] = 2490,
-  [2491] = 1667,
-  [2492] = 1757,
-  [2493] = 1684,
-  [2494] = 1733,
-  [2495] = 1744,
-  [2496] = 1715,
-  [2497] = 1732,
-  [2498] = 1763,
-  [2499] = 1671,
-  [2500] = 1672,
-  [2501] = 1728,
-  [2502] = 1685,
-  [2503] = 1715,
-  [2504] = 839,
-  [2505] = 841,
-  [2506] = 841,
-  [2507] = 1730,
-  [2508] = 1732,
-  [2509] = 1673,
-  [2510] = 1715,
-  [2511] = 1763,
-  [2512] = 1674,
-  [2513] = 1728,
+  [2491] = 878,
+  [2492] = 877,
+  [2493] = 2493,
+  [2494] = 1730,
+  [2495] = 876,
+  [2496] = 1717,
+  [2497] = 856,
+  [2498] = 1710,
+  [2499] = 1717,
+  [2500] = 1759,
+  [2501] = 1761,
+  [2502] = 869,
+  [2503] = 1731,
+  [2504] = 895,
+  [2505] = 1725,
+  [2506] = 1672,
+  [2507] = 1684,
+  [2508] = 892,
+  [2509] = 1683,
+  [2510] = 878,
+  [2511] = 1674,
+  [2512] = 877,
+  [2513] = 1753,
   [2514] = 1740,
-  [2515] = 1760,
-  [2516] = 1751,
-  [2517] = 1728,
-  [2518] = 1757,
-  [2519] = 1743,
-  [2520] = 1757,
-  [2521] = 1757,
-  [2522] = 1675,
-  [2523] = 1684,
-  [2524] = 1739,
-  [2525] = 1730,
-  [2526] = 1685,
-  [2527] = 1733,
-  [2528] = 840,
-  [2529] = 1728,
-  [2530] = 1732,
-  [2531] = 1739,
-  [2532] = 2532,
-  [2533] = 1733,
-  [2534] = 1739,
-  [2535] = 1744,
-  [2536] = 1743,
-  [2537] = 1743,
-  [2538] = 1743,
-  [2539] = 1728,
-  [2540] = 1752,
-  [2541] = 1740,
-  [2542] = 1730,
-  [2543] = 1715,
+  [2515] = 1762,
+  [2516] = 2516,
+  [2517] = 1676,
+  [2518] = 1717,
+  [2519] = 2519,
+  [2520] = 1710,
+  [2521] = 1700,
+  [2522] = 1689,
+  [2523] = 2523,
+  [2524] = 1723,
+  [2525] = 1762,
+  [2526] = 856,
+  [2527] = 876,
+  [2528] = 877,
+  [2529] = 878,
+  [2530] = 892,
+  [2531] = 895,
+  [2532] = 876,
+  [2533] = 869,
+  [2534] = 1740,
+  [2535] = 1753,
+  [2536] = 1680,
+  [2537] = 856,
+  [2538] = 1759,
+  [2539] = 1667,
+  [2540] = 1761,
+  [2541] = 1689,
+  [2542] = 895,
+  [2543] = 2543,
   [2544] = 1732,
-  [2545] = 1754,
-  [2546] = 1763,
-  [2547] = 1760,
-  [2548] = 1751,
-  [2549] = 1752,
-  [2550] = 2550,
-  [2551] = 1740,
-  [2552] = 1762,
-  [2553] = 1744,
-  [2554] = 1754,
-  [2555] = 903,
-  [2556] = 1740,
-  [2557] = 905,
-  [2558] = 1751,
-  [2559] = 838,
-  [2560] = 1684,
-  [2561] = 1760,
-  [2562] = 874,
-  [2563] = 1757,
-  [2564] = 839,
-  [2565] = 1730,
-  [2566] = 1762,
-  [2567] = 1684,
-  [2568] = 1752,
-  [2569] = 1757,
-  [2570] = 840,
-  [2571] = 1684,
-  [2572] = 841,
-  [2573] = 1732,
-  [2574] = 1684,
-  [2575] = 1744,
-  [2576] = 1685,
-  [2577] = 1685,
-  [2578] = 905,
-  [2579] = 1754,
-  [2580] = 2580,
-  [2581] = 1715,
-  [2582] = 1685,
-  [2583] = 2583,
-  [2584] = 1728,
-  [2585] = 1733,
-  [2586] = 1763,
-  [2587] = 2587,
-  [2588] = 1685,
-  [2589] = 1715,
-  [2590] = 1728,
-  [2591] = 1733,
-  [2592] = 1739,
-  [2593] = 1733,
-  [2594] = 1743,
-  [2595] = 2595,
-  [2596] = 1739,
-  [2597] = 1752,
-  [2598] = 1733,
-  [2599] = 1744,
-  [2600] = 1754,
-  [2601] = 1740,
-  [2602] = 1743,
-  [2603] = 1751,
-  [2604] = 1760,
-  [2605] = 1728,
-  [2606] = 903,
-  [2607] = 1739,
-  [2608] = 1762,
-  [2609] = 1744,
-  [2610] = 1743,
-  [2611] = 1730,
-  [2612] = 1730,
-  [2613] = 1733,
-  [2614] = 1732,
-  [2615] = 1732,
-  [2616] = 1752,
-  [2617] = 838,
-  [2618] = 1754,
-  [2619] = 1752,
-  [2620] = 1740,
-  [2621] = 874,
-  [2622] = 1751,
-  [2623] = 1754,
-  [2624] = 1760,
-  [2625] = 1739,
-  [2626] = 1762,
-  [2627] = 1757,
-  [2628] = 1740,
-  [2629] = 1684,
-  [2630] = 1744,
-  [2631] = 1685,
-  [2632] = 1751,
-  [2633] = 1763,
-  [2634] = 1715,
-  [2635] = 2635,
-  [2636] = 1763,
-  [2637] = 1751,
-  [2638] = 1743,
-  [2639] = 1715,
-  [2640] = 1739,
-  [2641] = 1760,
-  [2642] = 874,
-  [2643] = 1732,
-  [2644] = 2644,
-  [2645] = 1744,
-  [2646] = 1733,
-  [2647] = 1757,
-  [2648] = 1739,
-  [2649] = 1684,
-  [2650] = 1730,
-  [2651] = 1728,
-  [2652] = 1762,
-  [2653] = 1743,
-  [2654] = 839,
-  [2655] = 1685,
-  [2656] = 840,
-  [2657] = 841,
-  [2658] = 1763,
-  [2659] = 1752,
-  [2660] = 1715,
-  [2661] = 1740,
-  [2662] = 1754,
-  [2663] = 903,
-  [2664] = 1751,
-  [2665] = 905,
-  [2666] = 838,
-  [2667] = 1760,
-  [2668] = 874,
+  [2545] = 892,
+  [2546] = 1732,
+  [2547] = 1753,
+  [2548] = 1761,
+  [2549] = 1730,
+  [2550] = 1734,
+  [2551] = 1759,
+  [2552] = 878,
+  [2553] = 1734,
+  [2554] = 1730,
+  [2555] = 877,
+  [2556] = 1681,
+  [2557] = 1725,
+  [2558] = 1682,
+  [2559] = 1684,
+  [2560] = 1683,
+  [2561] = 869,
+  [2562] = 895,
+  [2563] = 892,
+  [2564] = 878,
+  [2565] = 877,
+  [2566] = 876,
+  [2567] = 1732,
+  [2568] = 1673,
+  [2569] = 1753,
+  [2570] = 1740,
+  [2571] = 856,
+  [2572] = 1731,
+  [2573] = 895,
+  [2574] = 1717,
+  [2575] = 892,
+  [2576] = 1710,
+  [2577] = 1700,
+  [2578] = 1689,
+  [2579] = 876,
+  [2580] = 1731,
+  [2581] = 1753,
+  [2582] = 1723,
+  [2583] = 1679,
+  [2584] = 878,
+  [2585] = 877,
+  [2586] = 876,
+  [2587] = 1740,
+  [2588] = 1740,
+  [2589] = 1700,
+  [2590] = 856,
+  [2591] = 1715,
+  [2592] = 1683,
+  [2593] = 1762,
+  [2594] = 1684,
+  [2595] = 1725,
+  [2596] = 1723,
+  [2597] = 1700,
+  [2598] = 1740,
+  [2599] = 1710,
+  [2600] = 1689,
+  [2601] = 1730,
+  [2602] = 1734,
+  [2603] = 1731,
+  [2604] = 1710,
+  [2605] = 1717,
+  [2606] = 1759,
+  [2607] = 1761,
+  [2608] = 1731,
+  [2609] = 869,
+  [2610] = 1740,
+  [2611] = 1700,
+  [2612] = 1753,
+  [2613] = 1732,
+  [2614] = 1715,
+  [2615] = 1715,
+  [2616] = 1731,
+  [2617] = 1753,
+  [2618] = 2618,
+  [2619] = 1717,
+  [2620] = 869,
+  [2621] = 1761,
+  [2622] = 856,
+  [2623] = 1759,
+  [2624] = 876,
+  [2625] = 1710,
+  [2626] = 877,
+  [2627] = 878,
+  [2628] = 1723,
+  [2629] = 1689,
+  [2630] = 892,
+  [2631] = 895,
+  [2632] = 869,
+  [2633] = 856,
+  [2634] = 876,
+  [2635] = 877,
+  [2636] = 878,
+  [2637] = 892,
+  [2638] = 895,
+  [2639] = 856,
+  [2640] = 1732,
+  [2641] = 869,
+  [2642] = 1717,
+  [2643] = 1734,
+  [2644] = 1700,
+  [2645] = 892,
+  [2646] = 1753,
+  [2647] = 878,
+  [2648] = 1740,
+  [2649] = 1731,
+  [2650] = 2650,
+  [2651] = 1717,
+  [2652] = 1710,
+  [2653] = 1715,
+  [2654] = 1732,
+  [2655] = 877,
+  [2656] = 1689,
+  [2657] = 876,
+  [2658] = 1723,
+  [2659] = 856,
+  [2660] = 1759,
+  [2661] = 1761,
+  [2662] = 1683,
+  [2663] = 1684,
+  [2664] = 895,
+  [2665] = 869,
+  [2666] = 1725,
+  [2667] = 1730,
+  [2668] = 1762,
   [2669] = 2669,
   [2670] = 2670,
-  [2671] = 815,
-  [2672] = 2672,
-  [2673] = 817,
-  [2674] = 818,
-  [2675] = 2675,
-  [2676] = 819,
-  [2677] = 2677,
-  [2678] = 816,
-  [2679] = 2679,
-  [2680] = 2680,
-  [2681] = 2681,
-  [2682] = 1151,
-  [2683] = 2683,
-  [2684] = 897,
-  [2685] = 898,
-  [2686] = 903,
-  [2687] = 905,
-  [2688] = 838,
-  [2689] = 874,
-  [2690] = 839,
-  [2691] = 840,
-  [2692] = 841,
+  [2671] = 2671,
+  [2672] = 835,
+  [2673] = 829,
+  [2674] = 2674,
+  [2675] = 821,
+  [2676] = 2676,
+  [2677] = 826,
+  [2678] = 825,
+  [2679] = 1149,
+  [2680] = 895,
+  [2681] = 876,
+  [2682] = 856,
+  [2683] = 1142,
+  [2684] = 1143,
+  [2685] = 857,
+  [2686] = 2686,
+  [2687] = 861,
+  [2688] = 2688,
+  [2689] = 2689,
+  [2690] = 2690,
+  [2691] = 2691,
+  [2692] = 2692,
   [2693] = 2693,
-  [2694] = 2694,
-  [2695] = 2695,
-  [2696] = 899,
-  [2697] = 900,
+  [2694] = 1150,
+  [2695] = 1152,
+  [2696] = 2696,
+  [2697] = 2697,
   [2698] = 2698,
-  [2699] = 2699,
+  [2699] = 1134,
   [2700] = 2700,
-  [2701] = 901,
-  [2702] = 2702,
-  [2703] = 2680,
-  [2704] = 2681,
-  [2705] = 2705,
+  [2701] = 2701,
+  [2702] = 2700,
+  [2703] = 1125,
+  [2704] = 2701,
+  [2705] = 848,
   [2706] = 2706,
-  [2707] = 1126,
-  [2708] = 1127,
-  [2709] = 2709,
-  [2710] = 2679,
-  [2711] = 2711,
-  [2712] = 2712,
-  [2713] = 2713,
-  [2714] = 2714,
-  [2715] = 2715,
-  [2716] = 2716,
-  [2717] = 1147,
-  [2718] = 2718,
-  [2719] = 1149,
-  [2720] = 1150,
-  [2721] = 2715,
-  [2722] = 1152,
-  [2723] = 2716,
-  [2724] = 2700,
-  [2725] = 1135,
-  [2726] = 2726,
-  [2727] = 2693,
-  [2728] = 1128,
-  [2729] = 1142,
-  [2730] = 1145,
-  [2731] = 1155,
+  [2707] = 840,
+  [2708] = 2708,
+  [2709] = 878,
+  [2710] = 892,
+  [2711] = 1140,
+  [2712] = 1146,
+  [2713] = 1123,
+  [2714] = 2706,
+  [2715] = 1131,
+  [2716] = 2708,
+  [2717] = 1132,
+  [2718] = 1135,
+  [2719] = 2719,
+  [2720] = 1136,
+  [2721] = 1139,
+  [2722] = 1147,
+  [2723] = 1148,
+  [2724] = 1155,
+  [2725] = 1151,
+  [2726] = 877,
+  [2727] = 2691,
+  [2728] = 2728,
+  [2729] = 2729,
+  [2730] = 2730,
+  [2731] = 1141,
   [2732] = 2732,
-  [2733] = 1122,
-  [2734] = 2734,
-  [2735] = 1132,
-  [2736] = 2705,
-  [2737] = 2706,
-  [2738] = 2709,
-  [2739] = 2726,
-  [2740] = 1140,
-  [2741] = 1125,
-  [2742] = 1141,
-  [2743] = 2743,
-  [2744] = 896,
-  [2745] = 2702,
+  [2733] = 2733,
+  [2734] = 869,
+  [2735] = 2735,
+  [2736] = 2736,
+  [2737] = 2737,
+  [2738] = 2738,
+  [2739] = 2730,
+  [2740] = 2740,
+  [2741] = 2686,
+  [2742] = 2742,
+  [2743] = 2735,
+  [2744] = 2744,
+  [2745] = 2745,
   [2746] = 2746,
-  [2747] = 2747,
-  [2748] = 2748,
-  [2749] = 2749,
-  [2750] = 2747,
-  [2751] = 2695,
-  [2752] = 2748,
-  [2753] = 2749,
-  [2754] = 2747,
-  [2755] = 2695,
-  [2756] = 2756,
-  [2757] = 2747,
-  [2758] = 2695,
+  [2747] = 2736,
+  [2748] = 2728,
+  [2749] = 2698,
+  [2750] = 839,
+  [2751] = 2744,
+  [2752] = 2728,
+  [2753] = 2698,
+  [2754] = 2740,
+  [2755] = 2689,
+  [2756] = 2688,
+  [2757] = 2692,
+  [2758] = 2728,
   [2759] = 2759,
-  [2760] = 2747,
-  [2761] = 2695,
-  [2762] = 1146,
+  [2760] = 2693,
+  [2761] = 2698,
+  [2762] = 845,
   [2763] = 2759,
-  [2764] = 1148,
-  [2765] = 1133,
-  [2766] = 1143,
-  [2767] = 2694,
-  [2768] = 2732,
-  [2769] = 2694,
-  [2770] = 2732,
-  [2771] = 2699,
+  [2764] = 1138,
+  [2765] = 2765,
+  [2766] = 2728,
+  [2767] = 2698,
+  [2768] = 2746,
+  [2769] = 2730,
+  [2770] = 2690,
+  [2771] = 2746,
   [2772] = 2772,
-  [2773] = 818,
-  [2774] = 816,
-  [2775] = 1128,
-  [2776] = 1142,
-  [2777] = 1145,
-  [2778] = 1146,
-  [2779] = 1152,
-  [2780] = 1122,
-  [2781] = 1150,
-  [2782] = 819,
-  [2783] = 2783,
-  [2784] = 905,
-  [2785] = 2785,
+  [2773] = 2773,
+  [2774] = 1141,
+  [2775] = 1142,
+  [2776] = 2776,
+  [2777] = 2777,
+  [2778] = 2778,
+  [2779] = 1134,
+  [2780] = 2780,
+  [2781] = 2777,
+  [2782] = 1143,
+  [2783] = 1150,
+  [2784] = 1138,
+  [2785] = 845,
   [2786] = 1152,
-  [2787] = 838,
-  [2788] = 2788,
-  [2789] = 2789,
-  [2790] = 874,
-  [2791] = 1135,
+  [2787] = 1149,
+  [2788] = 1134,
+  [2789] = 1125,
+  [2790] = 1131,
+  [2791] = 2791,
   [2792] = 2792,
-  [2793] = 1151,
-  [2794] = 2794,
+  [2793] = 1125,
+  [2794] = 1138,
   [2795] = 2795,
-  [2796] = 903,
+  [2796] = 2796,
   [2797] = 2797,
-  [2798] = 1133,
-  [2799] = 1132,
-  [2800] = 1125,
-  [2801] = 903,
-  [2802] = 896,
+  [2798] = 2798,
+  [2799] = 2799,
+  [2800] = 2800,
+  [2801] = 2801,
+  [2802] = 2802,
   [2803] = 2803,
-  [2804] = 905,
-  [2805] = 838,
-  [2806] = 2806,
-  [2807] = 874,
-  [2808] = 897,
-  [2809] = 898,
-  [2810] = 2810,
-  [2811] = 1135,
-  [2812] = 2812,
-  [2813] = 839,
-  [2814] = 840,
+  [2804] = 2777,
+  [2805] = 1140,
+  [2806] = 1146,
+  [2807] = 2807,
+  [2808] = 1123,
+  [2809] = 1132,
+  [2810] = 1135,
+  [2811] = 2777,
+  [2812] = 829,
+  [2813] = 2813,
+  [2814] = 869,
   [2815] = 2815,
-  [2816] = 1143,
-  [2817] = 1151,
-  [2818] = 899,
-  [2819] = 900,
-  [2820] = 2820,
-  [2821] = 841,
+  [2816] = 1141,
+  [2817] = 1142,
+  [2818] = 2818,
+  [2819] = 1143,
+  [2820] = 1150,
+  [2821] = 1152,
   [2822] = 2822,
   [2823] = 2823,
-  [2824] = 1128,
+  [2824] = 2823,
   [2825] = 2825,
-  [2826] = 2826,
-  [2827] = 1140,
-  [2828] = 1141,
-  [2829] = 839,
-  [2830] = 901,
-  [2831] = 2831,
-  [2832] = 1142,
-  [2833] = 2833,
-  [2834] = 840,
-  [2835] = 2835,
-  [2836] = 2836,
-  [2837] = 2837,
-  [2838] = 1147,
-  [2839] = 1145,
-  [2840] = 2835,
-  [2841] = 1149,
-  [2842] = 2788,
-  [2843] = 2820,
-  [2844] = 897,
-  [2845] = 1146,
-  [2846] = 1133,
-  [2847] = 1148,
-  [2848] = 2848,
-  [2849] = 898,
+  [2826] = 840,
+  [2827] = 839,
+  [2828] = 2825,
+  [2829] = 2829,
+  [2830] = 2830,
+  [2831] = 2830,
+  [2832] = 2832,
+  [2833] = 2832,
+  [2834] = 856,
+  [2835] = 848,
+  [2836] = 821,
+  [2837] = 825,
+  [2838] = 1149,
+  [2839] = 1131,
+  [2840] = 826,
+  [2841] = 835,
+  [2842] = 2842,
+  [2843] = 1136,
+  [2844] = 1139,
+  [2845] = 2800,
+  [2846] = 2798,
+  [2847] = 2796,
+  [2848] = 2795,
+  [2849] = 2849,
   [2850] = 2850,
-  [2851] = 2851,
-  [2852] = 2833,
-  [2853] = 896,
-  [2854] = 1143,
-  [2855] = 841,
-  [2856] = 1537,
-  [2857] = 2795,
-  [2858] = 1126,
-  [2859] = 1537,
-  [2860] = 1127,
-  [2861] = 815,
-  [2862] = 816,
-  [2863] = 2863,
-  [2864] = 817,
-  [2865] = 818,
-  [2866] = 901,
-  [2867] = 1126,
-  [2868] = 1127,
-  [2869] = 819,
-  [2870] = 2812,
-  [2871] = 2815,
-  [2872] = 2822,
-  [2873] = 2823,
-  [2874] = 1155,
-  [2875] = 1155,
-  [2876] = 1122,
-  [2877] = 2772,
-  [2878] = 2878,
-  [2879] = 815,
-  [2880] = 899,
-  [2881] = 1147,
-  [2882] = 1149,
-  [2883] = 1140,
-  [2884] = 1141,
-  [2885] = 1132,
-  [2886] = 2886,
-  [2887] = 2887,
-  [2888] = 2888,
-  [2889] = 2837,
-  [2890] = 2886,
-  [2891] = 2891,
-  [2892] = 2887,
-  [2893] = 900,
-  [2894] = 2837,
-  [2895] = 2888,
-  [2896] = 2837,
-  [2897] = 2897,
-  [2898] = 2837,
-  [2899] = 2899,
-  [2900] = 2900,
-  [2901] = 2897,
-  [2902] = 1125,
-  [2903] = 2794,
-  [2904] = 2810,
-  [2905] = 1150,
-  [2906] = 817,
-  [2907] = 1148,
+  [2851] = 1147,
+  [2852] = 1155,
+  [2853] = 2791,
+  [2854] = 876,
+  [2855] = 2792,
+  [2856] = 2797,
+  [2857] = 2857,
+  [2858] = 877,
+  [2859] = 878,
+  [2860] = 2860,
+  [2861] = 2861,
+  [2862] = 857,
+  [2863] = 895,
+  [2864] = 2864,
+  [2865] = 892,
+  [2866] = 861,
+  [2867] = 892,
+  [2868] = 2776,
+  [2869] = 895,
+  [2870] = 839,
+  [2871] = 840,
+  [2872] = 821,
+  [2873] = 825,
+  [2874] = 826,
+  [2875] = 869,
+  [2876] = 2807,
+  [2877] = 1140,
+  [2878] = 1146,
+  [2879] = 835,
+  [2880] = 1148,
+  [2881] = 1123,
+  [2882] = 2803,
+  [2883] = 845,
+  [2884] = 1151,
+  [2885] = 2773,
+  [2886] = 1132,
+  [2887] = 829,
+  [2888] = 1135,
+  [2889] = 856,
+  [2890] = 1366,
+  [2891] = 1151,
+  [2892] = 2801,
+  [2893] = 1148,
+  [2894] = 2894,
+  [2895] = 848,
+  [2896] = 1155,
+  [2897] = 1147,
+  [2898] = 2898,
+  [2899] = 1366,
+  [2900] = 861,
+  [2901] = 857,
+  [2902] = 876,
+  [2903] = 877,
+  [2904] = 878,
+  [2905] = 1139,
+  [2906] = 1136,
+  [2907] = 2777,
   [2908] = 2908,
   [2909] = 2909,
-  [2910] = 2910,
-  [2911] = 2910,
-  [2912] = 2910,
-  [2913] = 2913,
-  [2914] = 2908,
+  [2910] = 2909,
+  [2911] = 2909,
+  [2912] = 2912,
+  [2913] = 2909,
+  [2914] = 2914,
   [2915] = 2915,
-  [2916] = 2916,
+  [2916] = 2909,
   [2917] = 2917,
-  [2918] = 2918,
-  [2919] = 2908,
-  [2920] = 2910,
-  [2921] = 2908,
-  [2922] = 2910,
+  [2918] = 2908,
+  [2919] = 2919,
+  [2920] = 2920,
+  [2921] = 2921,
+  [2922] = 2908,
   [2923] = 2908,
-  [2924] = 2924,
-  [2925] = 2908,
-  [2926] = 2910,
+  [2924] = 2908,
+  [2925] = 2925,
+  [2926] = 2926,
   [2927] = 2908,
-  [2928] = 2928,
-  [2929] = 2910,
-  [2930] = 2930,
+  [2928] = 2909,
+  [2929] = 2909,
+  [2930] = 2908,
   [2931] = 2931,
-  [2932] = 2915,
+  [2932] = 2914,
   [2933] = 2933,
   [2934] = 2934,
   [2935] = 2935,
   [2936] = 2936,
-  [2937] = 2934,
-  [2938] = 2931,
+  [2937] = 1666,
+  [2938] = 2938,
   [2939] = 2939,
-  [2940] = 2940,
+  [2940] = 2938,
   [2941] = 2941,
-  [2942] = 2942,
+  [2942] = 2934,
   [2943] = 2935,
-  [2944] = 2935,
+  [2944] = 2939,
   [2945] = 2945,
-  [2946] = 2934,
+  [2946] = 2946,
   [2947] = 2947,
-  [2948] = 2948,
-  [2949] = 1666,
-  [2950] = 2940,
+  [2948] = 2938,
+  [2949] = 2949,
+  [2950] = 2950,
   [2951] = 2951,
   [2952] = 2952,
-  [2953] = 2953,
+  [2953] = 2934,
   [2954] = 2954,
-  [2955] = 2955,
+  [2955] = 1141,
   [2956] = 2956,
   [2957] = 2957,
   [2958] = 2958,
@@ -8508,217 +8502,217 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [2962] = 2962,
   [2963] = 2963,
   [2964] = 2964,
-  [2965] = 2965,
-  [2966] = 2958,
+  [2965] = 2963,
+  [2966] = 2966,
   [2967] = 2967,
-  [2968] = 1141,
+  [2968] = 2968,
   [2969] = 2969,
   [2970] = 2970,
-  [2971] = 2956,
-  [2972] = 2970,
-  [2973] = 1125,
-  [2974] = 2974,
+  [2971] = 2971,
+  [2972] = 2972,
+  [2973] = 2973,
+  [2974] = 2960,
   [2975] = 2975,
-  [2976] = 1145,
-  [2977] = 2959,
-  [2978] = 2978,
-  [2979] = 2979,
-  [2980] = 2955,
-  [2981] = 2981,
-  [2982] = 2979,
-  [2983] = 2958,
-  [2984] = 2955,
+  [2976] = 2976,
+  [2977] = 2977,
+  [2978] = 2972,
+  [2979] = 2964,
+  [2980] = 2968,
+  [2981] = 2968,
+  [2982] = 2972,
+  [2983] = 2961,
+  [2984] = 2984,
   [2985] = 2985,
   [2986] = 2960,
-  [2987] = 1146,
-  [2988] = 2969,
-  [2989] = 2955,
-  [2990] = 2963,
-  [2991] = 2991,
-  [2992] = 2958,
-  [2993] = 2960,
-  [2994] = 897,
-  [2995] = 898,
-  [2996] = 2996,
-  [2997] = 2954,
-  [2998] = 2998,
+  [2987] = 2987,
+  [2988] = 2988,
+  [2989] = 2989,
+  [2990] = 2968,
+  [2991] = 2960,
+  [2992] = 856,
+  [2993] = 876,
+  [2994] = 2963,
+  [2995] = 2984,
+  [2996] = 877,
+  [2997] = 2984,
+  [2998] = 2963,
   [2999] = 2999,
-  [3000] = 2955,
-  [3001] = 2961,
-  [3002] = 2958,
-  [3003] = 2954,
+  [3000] = 878,
+  [3001] = 892,
+  [3002] = 3002,
+  [3003] = 2985,
   [3004] = 3004,
-  [3005] = 2956,
-  [3006] = 2955,
-  [3007] = 2959,
-  [3008] = 3008,
-  [3009] = 2960,
-  [3010] = 2961,
+  [3005] = 3005,
+  [3006] = 2962,
+  [3007] = 3007,
+  [3008] = 2961,
+  [3009] = 2959,
+  [3010] = 3010,
   [3011] = 3011,
   [3012] = 3012,
-  [3013] = 2998,
-  [3014] = 2955,
-  [3015] = 3015,
-  [3016] = 2963,
-  [3017] = 2958,
-  [3018] = 2979,
-  [3019] = 2961,
+  [3013] = 3013,
+  [3014] = 3014,
+  [3015] = 2958,
+  [3016] = 2957,
+  [3017] = 3017,
+  [3018] = 2972,
+  [3019] = 2956,
   [3020] = 3020,
-  [3021] = 3021,
-  [3022] = 1126,
-  [3023] = 1127,
-  [3024] = 3024,
-  [3025] = 2961,
-  [3026] = 2970,
-  [3027] = 2954,
-  [3028] = 2975,
-  [3029] = 3029,
-  [3030] = 3030,
-  [3031] = 2955,
-  [3032] = 2956,
-  [3033] = 2955,
-  [3034] = 2959,
-  [3035] = 2958,
-  [3036] = 2958,
-  [3037] = 2979,
-  [3038] = 3012,
-  [3039] = 3039,
-  [3040] = 2954,
-  [3041] = 2955,
-  [3042] = 3042,
-  [3043] = 1142,
-  [3044] = 896,
-  [3045] = 3045,
-  [3046] = 2967,
-  [3047] = 2958,
-  [3048] = 3012,
-  [3049] = 2970,
-  [3050] = 2958,
-  [3051] = 3051,
+  [3021] = 895,
+  [3022] = 3022,
+  [3023] = 869,
+  [3024] = 2963,
+  [3025] = 2963,
+  [3026] = 2962,
+  [3027] = 2961,
+  [3028] = 3020,
+  [3029] = 2959,
+  [3030] = 3020,
+  [3031] = 2958,
+  [3032] = 2957,
+  [3033] = 2956,
+  [3034] = 3020,
+  [3035] = 2989,
+  [3036] = 2987,
+  [3037] = 2984,
+  [3038] = 2987,
+  [3039] = 2989,
+  [3040] = 3020,
+  [3041] = 2989,
+  [3042] = 2984,
+  [3043] = 2959,
+  [3044] = 3044,
+  [3045] = 2989,
+  [3046] = 1155,
+  [3047] = 1147,
+  [3048] = 1135,
+  [3049] = 2972,
+  [3050] = 1132,
+  [3051] = 1123,
   [3052] = 3052,
-  [3053] = 2969,
-  [3054] = 3042,
-  [3055] = 2956,
-  [3056] = 2959,
-  [3057] = 2964,
-  [3058] = 2979,
-  [3059] = 3039,
-  [3060] = 2960,
-  [3061] = 3039,
-  [3062] = 1151,
-  [3063] = 3012,
-  [3064] = 3064,
-  [3065] = 3042,
-  [3066] = 2967,
-  [3067] = 2979,
-  [3068] = 3068,
-  [3069] = 3069,
-  [3070] = 901,
-  [3071] = 2969,
-  [3072] = 3072,
-  [3073] = 3073,
-  [3074] = 1155,
-  [3075] = 3075,
-  [3076] = 1132,
-  [3077] = 2961,
-  [3078] = 3004,
-  [3079] = 3079,
-  [3080] = 2963,
-  [3081] = 2955,
-  [3082] = 3012,
-  [3083] = 3039,
-  [3084] = 3042,
-  [3085] = 2967,
-  [3086] = 2969,
+  [3053] = 1146,
+  [3054] = 1140,
+  [3055] = 1152,
+  [3056] = 1150,
+  [3057] = 1143,
+  [3058] = 1142,
+  [3059] = 2987,
+  [3060] = 2956,
+  [3061] = 2984,
+  [3062] = 2968,
+  [3063] = 2987,
+  [3064] = 2963,
+  [3065] = 1138,
+  [3066] = 2984,
+  [3067] = 2957,
+  [3068] = 2958,
+  [3069] = 2959,
+  [3070] = 848,
+  [3071] = 2961,
+  [3072] = 2975,
+  [3073] = 2962,
+  [3074] = 2972,
+  [3075] = 3052,
+  [3076] = 2987,
+  [3077] = 2960,
+  [3078] = 3078,
+  [3079] = 2963,
+  [3080] = 857,
+  [3081] = 3081,
+  [3082] = 3082,
+  [3083] = 861,
+  [3084] = 2964,
+  [3085] = 3085,
+  [3086] = 3086,
   [3087] = 2956,
-  [3088] = 2959,
-  [3089] = 2960,
-  [3090] = 1147,
-  [3091] = 2969,
-  [3092] = 2979,
-  [3093] = 1149,
-  [3094] = 3094,
-  [3095] = 3095,
-  [3096] = 2961,
+  [3088] = 2984,
+  [3089] = 2972,
+  [3090] = 839,
+  [3091] = 840,
+  [3092] = 845,
+  [3093] = 3081,
+  [3094] = 2989,
+  [3095] = 2984,
+  [3096] = 2976,
   [3097] = 3097,
-  [3098] = 2970,
-  [3099] = 3099,
-  [3100] = 2958,
-  [3101] = 3039,
-  [3102] = 2999,
-  [3103] = 1150,
-  [3104] = 1152,
-  [3105] = 2970,
-  [3106] = 3004,
-  [3107] = 2959,
-  [3108] = 2960,
-  [3109] = 3094,
-  [3110] = 1140,
-  [3111] = 899,
-  [3112] = 2967,
-  [3113] = 3042,
-  [3114] = 2955,
-  [3115] = 2956,
-  [3116] = 2999,
-  [3117] = 1135,
-  [3118] = 3068,
-  [3119] = 3119,
-  [3120] = 2958,
-  [3121] = 3004,
-  [3122] = 1148,
-  [3123] = 903,
-  [3124] = 905,
-  [3125] = 2979,
-  [3126] = 3068,
-  [3127] = 2954,
-  [3128] = 2999,
-  [3129] = 838,
-  [3130] = 3130,
-  [3131] = 874,
-  [3132] = 2970,
-  [3133] = 900,
-  [3134] = 839,
-  [3135] = 2957,
-  [3136] = 840,
-  [3137] = 841,
+  [3098] = 3020,
+  [3099] = 1151,
+  [3100] = 2963,
+  [3101] = 1148,
+  [3102] = 1139,
+  [3103] = 1136,
+  [3104] = 1131,
+  [3105] = 1149,
+  [3106] = 3106,
+  [3107] = 2962,
+  [3108] = 3022,
+  [3109] = 3109,
+  [3110] = 1125,
+  [3111] = 2988,
+  [3112] = 3112,
+  [3113] = 1134,
+  [3114] = 2987,
+  [3115] = 2989,
+  [3116] = 3020,
+  [3117] = 2956,
+  [3118] = 2957,
+  [3119] = 2958,
+  [3120] = 2988,
+  [3121] = 2959,
+  [3122] = 2961,
+  [3123] = 2960,
+  [3124] = 2962,
+  [3125] = 2956,
+  [3126] = 2968,
+  [3127] = 2957,
+  [3128] = 3128,
+  [3129] = 2962,
+  [3130] = 3044,
+  [3131] = 2963,
+  [3132] = 2984,
+  [3133] = 3022,
+  [3134] = 2961,
+  [3135] = 3135,
+  [3136] = 2963,
+  [3137] = 2984,
   [3138] = 3138,
-  [3139] = 3012,
-  [3140] = 1133,
-  [3141] = 3039,
-  [3142] = 1122,
-  [3143] = 1143,
-  [3144] = 2970,
-  [3145] = 3145,
-  [3146] = 2967,
-  [3147] = 3147,
-  [3148] = 2955,
-  [3149] = 3079,
-  [3150] = 3042,
-  [3151] = 3151,
-  [3152] = 2958,
-  [3153] = 1128,
-  [3154] = 2967,
-  [3155] = 3012,
-  [3156] = 2969,
-  [3157] = 3039,
-  [3158] = 3042,
-  [3159] = 2954,
+  [3139] = 3139,
+  [3140] = 2963,
+  [3141] = 2960,
+  [3142] = 3142,
+  [3143] = 3022,
+  [3144] = 2972,
+  [3145] = 2959,
+  [3146] = 2968,
+  [3147] = 3112,
+  [3148] = 2988,
+  [3149] = 2964,
+  [3150] = 2976,
+  [3151] = 2960,
+  [3152] = 3152,
+  [3153] = 3153,
+  [3154] = 2957,
+  [3155] = 2958,
+  [3156] = 2963,
+  [3157] = 2984,
+  [3158] = 2958,
+  [3159] = 2984,
   [3160] = 3160,
   [3161] = 3161,
-  [3162] = 2490,
-  [3163] = 2595,
-  [3164] = 2474,
-  [3165] = 3165,
-  [3166] = 2587,
-  [3167] = 2580,
-  [3168] = 2583,
-  [3169] = 2635,
-  [3170] = 2550,
-  [3171] = 2532,
+  [3162] = 2543,
+  [3163] = 2519,
+  [3164] = 2493,
+  [3165] = 2523,
+  [3166] = 2490,
+  [3167] = 2488,
+  [3168] = 2516,
+  [3169] = 2445,
+  [3170] = 2618,
+  [3171] = 3171,
   [3172] = 3172,
-  [3173] = 3161,
-  [3174] = 1726,
-  [3175] = 2915,
+  [3173] = 1739,
+  [3174] = 3161,
+  [3175] = 2914,
   [3176] = 3176,
   [3177] = 3177,
   [3178] = 3178,
@@ -8726,1053 +8720,1053 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [3180] = 3180,
   [3181] = 3181,
   [3182] = 3182,
-  [3183] = 1724,
-  [3184] = 1725,
+  [3183] = 1711,
+  [3184] = 3184,
   [3185] = 3185,
-  [3186] = 1724,
-  [3187] = 1725,
+  [3186] = 3186,
+  [3187] = 1711,
   [3188] = 3188,
-  [3189] = 3189,
-  [3190] = 1724,
-  [3191] = 1725,
-  [3192] = 3192,
+  [3189] = 1712,
+  [3190] = 1712,
+  [3191] = 3191,
+  [3192] = 1712,
   [3193] = 3193,
-  [3194] = 3194,
-  [3195] = 1724,
-  [3196] = 1725,
+  [3194] = 1711,
+  [3195] = 1712,
+  [3196] = 1711,
   [3197] = 3197,
   [3198] = 3198,
-  [3199] = 3199,
+  [3199] = 2488,
   [3200] = 3200,
   [3201] = 3201,
-  [3202] = 3202,
-  [3203] = 815,
-  [3204] = 816,
-  [3205] = 817,
-  [3206] = 818,
-  [3207] = 3207,
-  [3208] = 819,
-  [3209] = 3209,
-  [3210] = 3210,
-  [3211] = 2587,
-  [3212] = 2583,
-  [3213] = 2580,
+  [3202] = 825,
+  [3203] = 3203,
+  [3204] = 3204,
+  [3205] = 3205,
+  [3206] = 826,
+  [3207] = 835,
+  [3208] = 829,
+  [3209] = 2523,
+  [3210] = 2543,
+  [3211] = 821,
+  [3212] = 3212,
+  [3213] = 3213,
   [3214] = 3214,
   [3215] = 3215,
   [3216] = 3216,
   [3217] = 3217,
-  [3218] = 3218,
+  [3218] = 2670,
   [3219] = 3219,
-  [3220] = 3220,
+  [3220] = 3219,
   [3221] = 3221,
   [3222] = 3222,
-  [3223] = 3222,
+  [3223] = 3223,
   [3224] = 3224,
   [3225] = 3225,
   [3226] = 3226,
   [3227] = 3227,
   [3228] = 3228,
-  [3229] = 3229,
+  [3229] = 3219,
   [3230] = 3230,
   [3231] = 3231,
   [3232] = 3232,
-  [3233] = 3222,
-  [3234] = 2670,
+  [3233] = 3233,
+  [3234] = 3234,
   [3235] = 3235,
   [3236] = 3236,
   [3237] = 3237,
   [3238] = 3238,
   [3239] = 3239,
   [3240] = 3240,
-  [3241] = 3241,
-  [3242] = 3242,
-  [3243] = 3243,
-  [3244] = 3244,
+  [3241] = 3238,
+  [3242] = 3239,
+  [3243] = 3238,
+  [3244] = 3239,
   [3245] = 3245,
   [3246] = 3246,
   [3247] = 3247,
   [3248] = 3248,
   [3249] = 3249,
-  [3250] = 3250,
+  [3250] = 3238,
   [3251] = 3251,
-  [3252] = 3252,
+  [3252] = 3239,
   [3253] = 3253,
-  [3254] = 3254,
-  [3255] = 3255,
-  [3256] = 3256,
+  [3254] = 3238,
+  [3255] = 3239,
+  [3256] = 3238,
   [3257] = 3257,
   [3258] = 3258,
   [3259] = 3259,
   [3260] = 3260,
   [3261] = 3261,
-  [3262] = 3262,
+  [3262] = 3238,
   [3263] = 3263,
-  [3264] = 3264,
-  [3265] = 3265,
-  [3266] = 3266,
-  [3267] = 3267,
+  [3264] = 3239,
+  [3265] = 3237,
+  [3266] = 3239,
+  [3267] = 3263,
   [3268] = 3268,
   [3269] = 3269,
-  [3270] = 3270,
+  [3270] = 3238,
   [3271] = 3271,
   [3272] = 3272,
   [3273] = 3273,
-  [3274] = 3274,
-  [3275] = 3275,
-  [3276] = 3276,
+  [3274] = 3238,
+  [3275] = 3263,
+  [3276] = 3237,
   [3277] = 3277,
   [3278] = 3278,
-  [3279] = 3277,
+  [3279] = 3238,
   [3280] = 3280,
-  [3281] = 3278,
-  [3282] = 3236,
-  [3283] = 3274,
-  [3284] = 3265,
-  [3285] = 3240,
-  [3286] = 3238,
-  [3287] = 3242,
-  [3288] = 3245,
-  [3289] = 3253,
-  [3290] = 3260,
-  [3291] = 3273,
+  [3281] = 3261,
+  [3282] = 3238,
+  [3283] = 3278,
+  [3284] = 3238,
+  [3285] = 3285,
+  [3286] = 3286,
+  [3287] = 3287,
+  [3288] = 3238,
+  [3289] = 3289,
+  [3290] = 3290,
+  [3291] = 3291,
   [3292] = 3292,
-  [3293] = 3293,
-  [3294] = 3294,
-  [3295] = 3246,
-  [3296] = 3243,
-  [3297] = 3236,
-  [3298] = 3254,
-  [3299] = 3258,
-  [3300] = 3275,
-  [3301] = 3237,
-  [3302] = 3246,
+  [3293] = 3238,
+  [3294] = 3238,
+  [3295] = 3238,
+  [3296] = 3296,
+  [3297] = 3297,
+  [3298] = 3298,
+  [3299] = 3248,
+  [3300] = 3237,
+  [3301] = 3239,
+  [3302] = 3260,
   [3303] = 3303,
-  [3304] = 3236,
-  [3305] = 3254,
-  [3306] = 3258,
-  [3307] = 3275,
-  [3308] = 3237,
-  [3309] = 3246,
-  [3310] = 3236,
-  [3311] = 3258,
-  [3312] = 3275,
-  [3313] = 3246,
-  [3314] = 3236,
-  [3315] = 3258,
-  [3316] = 3236,
-  [3317] = 3258,
-  [3318] = 3236,
-  [3319] = 3258,
-  [3320] = 3236,
-  [3321] = 3258,
-  [3322] = 3236,
-  [3323] = 3236,
-  [3324] = 3236,
-  [3325] = 3236,
+  [3304] = 3304,
+  [3305] = 3238,
+  [3306] = 3306,
+  [3307] = 3248,
+  [3308] = 3308,
+  [3309] = 3309,
+  [3310] = 3310,
+  [3311] = 3238,
+  [3312] = 3312,
+  [3313] = 3313,
+  [3314] = 3314,
+  [3315] = 3315,
+  [3316] = 3263,
+  [3317] = 3317,
+  [3318] = 3309,
+  [3319] = 3308,
+  [3320] = 3304,
+  [3321] = 3285,
+  [3322] = 3296,
+  [3323] = 3289,
+  [3324] = 3287,
+  [3325] = 3263,
   [3326] = 3236,
-  [3327] = 3236,
-  [3328] = 3236,
-  [3329] = 3236,
-  [3330] = 3236,
-  [3331] = 3236,
-  [3332] = 3292,
-  [3333] = 2718,
+  [3327] = 3253,
+  [3328] = 3238,
+  [3329] = 3280,
+  [3330] = 3330,
+  [3331] = 3245,
+  [3332] = 3260,
+  [3333] = 2765,
   [3334] = 3334,
   [3335] = 3335,
   [3336] = 3336,
   [3337] = 3337,
   [3338] = 3338,
   [3339] = 3339,
-  [3340] = 3340,
+  [3340] = 3339,
   [3341] = 3341,
   [3342] = 3342,
   [3343] = 3343,
-  [3344] = 3340,
-  [3345] = 3345,
-  [3346] = 3339,
-  [3347] = 3342,
+  [3344] = 3344,
+  [3345] = 3342,
+  [3346] = 3338,
+  [3347] = 3347,
   [3348] = 3343,
-  [3349] = 3345,
+  [3349] = 3344,
   [3350] = 3350,
-  [3351] = 816,
-  [3352] = 818,
-  [3353] = 3353,
-  [3354] = 815,
-  [3355] = 819,
-  [3356] = 3353,
-  [3357] = 3357,
+  [3351] = 3351,
+  [3352] = 3352,
+  [3353] = 835,
+  [3354] = 825,
+  [3355] = 821,
+  [3356] = 829,
+  [3357] = 3351,
   [3358] = 3358,
   [3359] = 3359,
-  [3360] = 3358,
-  [3361] = 3358,
-  [3362] = 3359,
-  [3363] = 3358,
-  [3364] = 3359,
-  [3365] = 3358,
+  [3360] = 3360,
+  [3361] = 3359,
+  [3362] = 3362,
+  [3363] = 3362,
+  [3364] = 3364,
+  [3365] = 3359,
   [3366] = 3366,
-  [3367] = 3367,
-  [3368] = 3368,
-  [3369] = 3359,
-  [3370] = 3359,
-  [3371] = 3358,
-  [3372] = 3359,
-  [3373] = 3358,
-  [3374] = 3359,
+  [3367] = 3364,
+  [3368] = 3359,
+  [3369] = 3369,
+  [3370] = 3366,
+  [3371] = 3359,
+  [3372] = 3358,
+  [3373] = 3373,
+  [3374] = 3374,
   [3375] = 3358,
-  [3376] = 3357,
-  [3377] = 3377,
-  [3378] = 3358,
-  [3379] = 3379,
-  [3380] = 3350,
-  [3381] = 3377,
+  [3376] = 3350,
+  [3377] = 3359,
+  [3378] = 3362,
+  [3379] = 3362,
+  [3380] = 3362,
+  [3381] = 3360,
   [3382] = 3382,
-  [3383] = 3359,
-  [3384] = 3358,
-  [3385] = 3367,
-  [3386] = 3386,
+  [3383] = 3362,
+  [3384] = 3362,
+  [3385] = 3352,
+  [3386] = 3362,
   [3387] = 3359,
-  [3388] = 3368,
-  [3389] = 3377,
-  [3390] = 3382,
-  [3391] = 3391,
+  [3388] = 3362,
+  [3389] = 3359,
+  [3390] = 3362,
+  [3391] = 3359,
   [3392] = 3359,
-  [3393] = 3358,
-  [3394] = 3382,
-  [3395] = 3359,
-  [3396] = 3359,
-  [3397] = 3358,
-  [3398] = 3359,
-  [3399] = 3399,
-  [3400] = 3359,
-  [3401] = 3358,
-  [3402] = 3358,
-  [3403] = 3403,
+  [3393] = 3362,
+  [3394] = 3359,
+  [3395] = 3395,
+  [3396] = 3360,
+  [3397] = 3359,
+  [3398] = 3362,
+  [3399] = 3359,
+  [3400] = 3400,
+  [3401] = 3362,
+  [3402] = 3362,
+  [3403] = 3359,
   [3404] = 3404,
   [3405] = 3405,
   [3406] = 3406,
-  [3407] = 3405,
+  [3407] = 3407,
   [3408] = 3408,
   [3409] = 3409,
   [3410] = 3410,
   [3411] = 3411,
   [3412] = 3412,
-  [3413] = 3408,
-  [3414] = 3411,
-  [3415] = 3415,
+  [3413] = 3413,
+  [3414] = 3413,
+  [3415] = 3409,
   [3416] = 3416,
   [3417] = 3417,
   [3418] = 3418,
-  [3419] = 3419,
+  [3419] = 3404,
   [3420] = 3420,
   [3421] = 3421,
   [3422] = 3422,
-  [3423] = 3418,
-  [3424] = 3412,
-  [3425] = 3417,
-  [3426] = 3426,
+  [3423] = 3423,
+  [3424] = 3404,
+  [3425] = 3418,
+  [3426] = 3423,
   [3427] = 3427,
   [3428] = 3428,
-  [3429] = 3417,
-  [3430] = 3416,
-  [3431] = 3404,
-  [3432] = 3410,
-  [3433] = 3433,
+  [3429] = 3428,
+  [3430] = 3430,
+  [3431] = 3431,
+  [3432] = 3432,
+  [3433] = 3416,
   [3434] = 3434,
-  [3435] = 3435,
-  [3436] = 3436,
+  [3435] = 3406,
+  [3436] = 3412,
   [3437] = 3437,
   [3438] = 3438,
-  [3439] = 3437,
-  [3440] = 3440,
-  [3441] = 3438,
+  [3439] = 3439,
+  [3440] = 3438,
+  [3441] = 3441,
   [3442] = 3442,
-  [3443] = 3440,
+  [3443] = 3438,
   [3444] = 3444,
-  [3445] = 3444,
-  [3446] = 3446,
-  [3447] = 3447,
-  [3448] = 3447,
-  [3449] = 3438,
-  [3450] = 3437,
-  [3451] = 3451,
-  [3452] = 3440,
-  [3453] = 3444,
+  [3445] = 3442,
+  [3446] = 3441,
+  [3447] = 3444,
+  [3448] = 3439,
+  [3449] = 3449,
+  [3450] = 3441,
+  [3451] = 3439,
+  [3452] = 3452,
+  [3453] = 3442,
   [3454] = 3454,
   [3455] = 3455,
   [3456] = 3456,
   [3457] = 3457,
-  [3458] = 3458,
+  [3458] = 3457,
   [3459] = 3459,
-  [3460] = 3460,
+  [3460] = 3457,
   [3461] = 3461,
-  [3462] = 815,
+  [3462] = 3457,
   [3463] = 3463,
-  [3464] = 3460,
-  [3465] = 3465,
-  [3466] = 3466,
+  [3464] = 3459,
+  [3465] = 821,
+  [3466] = 825,
   [3467] = 3457,
-  [3468] = 3468,
-  [3469] = 3469,
-  [3470] = 3470,
-  [3471] = 3457,
-  [3472] = 3468,
-  [3473] = 3473,
-  [3474] = 816,
-  [3475] = 3470,
+  [3468] = 3459,
+  [3469] = 835,
+  [3470] = 829,
+  [3471] = 3461,
+  [3472] = 3459,
+  [3473] = 3457,
+  [3474] = 3474,
+  [3475] = 3475,
   [3476] = 3476,
-  [3477] = 3457,
-  [3478] = 3468,
-  [3479] = 3479,
-  [3480] = 3479,
-  [3481] = 3457,
-  [3482] = 3468,
-  [3483] = 3457,
-  [3484] = 3468,
-  [3485] = 3468,
-  [3486] = 819,
-  [3487] = 3457,
-  [3488] = 3468,
-  [3489] = 3489,
-  [3490] = 3457,
-  [3491] = 3468,
-  [3492] = 3457,
-  [3493] = 3468,
+  [3477] = 3477,
+  [3478] = 3478,
+  [3479] = 3459,
+  [3480] = 3480,
+  [3481] = 3481,
+  [3482] = 3482,
+  [3483] = 3483,
+  [3484] = 3459,
+  [3485] = 3457,
+  [3486] = 3457,
+  [3487] = 3459,
+  [3488] = 3457,
+  [3489] = 3459,
+  [3490] = 3459,
+  [3491] = 3491,
+  [3492] = 3477,
+  [3493] = 3457,
   [3494] = 3457,
-  [3495] = 3468,
+  [3495] = 3459,
   [3496] = 3457,
-  [3497] = 3468,
-  [3498] = 3457,
-  [3499] = 3468,
-  [3500] = 3457,
-  [3501] = 3468,
-  [3502] = 818,
-  [3503] = 3470,
-  [3504] = 817,
-  [3505] = 3457,
+  [3497] = 3459,
+  [3498] = 826,
+  [3499] = 3499,
+  [3500] = 3500,
+  [3501] = 3459,
+  [3502] = 3457,
+  [3503] = 3478,
+  [3504] = 3504,
+  [3505] = 3478,
   [3506] = 3506,
-  [3507] = 3507,
-  [3508] = 3489,
-  [3509] = 3468,
+  [3507] = 3459,
+  [3508] = 3476,
+  [3509] = 3482,
   [3510] = 3457,
-  [3511] = 3479,
-  [3512] = 3473,
-  [3513] = 3513,
-  [3514] = 3468,
+  [3511] = 3459,
+  [3512] = 3457,
+  [3513] = 3459,
+  [3514] = 3476,
   [3515] = 3515,
   [3516] = 3516,
-  [3517] = 3515,
-  [3518] = 3161,
+  [3517] = 3517,
+  [3518] = 3518,
   [3519] = 3519,
   [3520] = 3520,
-  [3521] = 3515,
-  [3522] = 3522,
-  [3523] = 3523,
-  [3524] = 3519,
-  [3525] = 3515,
-  [3526] = 3519,
-  [3527] = 3519,
-  [3528] = 3515,
-  [3529] = 3515,
-  [3530] = 3522,
-  [3531] = 3516,
+  [3521] = 3519,
+  [3522] = 3520,
+  [3523] = 3517,
+  [3524] = 3515,
+  [3525] = 3525,
+  [3526] = 3526,
+  [3527] = 3520,
+  [3528] = 3519,
+  [3529] = 3525,
+  [3530] = 3518,
+  [3531] = 3519,
   [3532] = 3515,
   [3533] = 3533,
-  [3534] = 3516,
-  [3535] = 3533,
-  [3536] = 3515,
-  [3537] = 3520,
-  [3538] = 3357,
-  [3539] = 3522,
-  [3540] = 3515,
-  [3541] = 3522,
-  [3542] = 3520,
-  [3543] = 3516,
-  [3544] = 3515,
-  [3545] = 3545,
-  [3546] = 3520,
+  [3534] = 3526,
+  [3535] = 3519,
+  [3536] = 3350,
+  [3537] = 3525,
+  [3538] = 3519,
+  [3539] = 3520,
+  [3540] = 3519,
+  [3541] = 3352,
+  [3542] = 3519,
+  [3543] = 3525,
+  [3544] = 3518,
+  [3545] = 3519,
+  [3546] = 3525,
   [3547] = 3515,
-  [3548] = 3519,
-  [3549] = 3515,
-  [3550] = 3515,
-  [3551] = 3515,
-  [3552] = 3515,
-  [3553] = 3515,
-  [3554] = 3515,
-  [3555] = 3515,
-  [3556] = 3515,
-  [3557] = 3515,
-  [3558] = 3515,
-  [3559] = 3515,
-  [3560] = 3515,
-  [3561] = 3515,
-  [3562] = 3515,
-  [3563] = 3515,
-  [3564] = 3515,
-  [3565] = 3515,
-  [3566] = 3515,
-  [3567] = 3515,
-  [3568] = 3515,
-  [3569] = 3515,
-  [3570] = 3515,
-  [3571] = 3515,
-  [3572] = 3515,
-  [3573] = 3515,
-  [3574] = 3515,
+  [3548] = 3518,
+  [3549] = 3519,
+  [3550] = 3519,
+  [3551] = 3518,
+  [3552] = 3520,
+  [3553] = 3519,
+  [3554] = 3518,
+  [3555] = 3525,
+  [3556] = 3520,
+  [3557] = 3519,
+  [3558] = 3519,
+  [3559] = 3525,
+  [3560] = 3519,
+  [3561] = 3561,
+  [3562] = 3562,
+  [3563] = 3519,
+  [3564] = 3564,
+  [3565] = 3519,
+  [3566] = 3525,
+  [3567] = 3518,
+  [3568] = 3516,
+  [3569] = 3518,
+  [3570] = 3525,
+  [3571] = 3519,
+  [3572] = 3519,
+  [3573] = 3518,
+  [3574] = 3561,
   [3575] = 3519,
   [3576] = 3515,
-  [3577] = 3515,
-  [3578] = 3515,
-  [3579] = 3515,
-  [3580] = 3580,
-  [3581] = 3515,
+  [3577] = 3519,
+  [3578] = 3519,
+  [3579] = 3518,
+  [3580] = 3519,
+  [3581] = 3520,
   [3582] = 3519,
-  [3583] = 3523,
-  [3584] = 3515,
-  [3585] = 3516,
-  [3586] = 3516,
-  [3587] = 3580,
+  [3583] = 3519,
+  [3584] = 3520,
+  [3585] = 3515,
+  [3586] = 3520,
+  [3587] = 3518,
   [3588] = 3519,
-  [3589] = 3516,
-  [3590] = 3520,
-  [3591] = 2915,
-  [3592] = 3520,
-  [3593] = 3519,
-  [3594] = 3520,
-  [3595] = 3515,
-  [3596] = 3596,
-  [3597] = 3523,
-  [3598] = 3522,
-  [3599] = 3522,
+  [3589] = 3178,
+  [3590] = 3525,
+  [3591] = 3520,
+  [3592] = 3519,
+  [3593] = 2914,
+  [3594] = 3519,
+  [3595] = 3519,
+  [3596] = 3519,
+  [3597] = 3533,
+  [3598] = 3525,
+  [3599] = 3519,
   [3600] = 3519,
-  [3601] = 3516,
-  [3602] = 3602,
+  [3601] = 3161,
+  [3602] = 3520,
   [3603] = 3519,
-  [3604] = 3516,
-  [3605] = 3350,
-  [3606] = 3522,
-  [3607] = 3519,
-  [3608] = 3178,
-  [3609] = 3516,
-  [3610] = 3522,
-  [3611] = 3520,
-  [3612] = 3515,
-  [3613] = 3522,
-  [3614] = 3522,
-  [3615] = 3615,
-  [3616] = 3522,
-  [3617] = 3615,
-  [3618] = 3516,
-  [3619] = 3522,
-  [3620] = 3596,
-  [3621] = 3596,
+  [3604] = 3519,
+  [3605] = 3519,
+  [3606] = 3519,
+  [3607] = 3533,
+  [3608] = 3520,
+  [3609] = 3561,
+  [3610] = 3519,
+  [3611] = 3519,
+  [3612] = 3516,
+  [3613] = 3525,
+  [3614] = 3519,
+  [3615] = 3519,
+  [3616] = 3519,
+  [3617] = 3518,
+  [3618] = 3519,
+  [3619] = 3525,
+  [3620] = 3518,
+  [3621] = 3519,
   [3622] = 3519,
-  [3623] = 3522,
-  [3624] = 3516,
-  [3625] = 3516,
+  [3623] = 3519,
+  [3624] = 3519,
+  [3625] = 3515,
   [3626] = 3515,
-  [3627] = 3615,
-  [3628] = 3515,
+  [3627] = 3519,
+  [3628] = 3520,
   [3629] = 3629,
   [3630] = 3630,
   [3631] = 3631,
-  [3632] = 3632,
+  [3632] = 3630,
   [3633] = 3633,
   [3634] = 3634,
-  [3635] = 3629,
+  [3635] = 3635,
   [3636] = 3636,
-  [3637] = 3637,
-  [3638] = 3638,
+  [3637] = 3634,
+  [3638] = 3630,
   [3639] = 3639,
   [3640] = 3640,
   [3641] = 3641,
   [3642] = 3642,
-  [3643] = 3643,
-  [3644] = 3630,
-  [3645] = 3639,
-  [3646] = 3640,
+  [3643] = 3634,
+  [3644] = 3636,
+  [3645] = 3629,
+  [3646] = 3642,
   [3647] = 3647,
   [3648] = 3648,
-  [3649] = 3643,
+  [3649] = 3649,
   [3650] = 3650,
   [3651] = 3651,
-  [3652] = 3636,
+  [3652] = 3652,
   [3653] = 3653,
-  [3654] = 3634,
-  [3655] = 3629,
+  [3654] = 3649,
+  [3655] = 3652,
   [3656] = 3656,
   [3657] = 3657,
-  [3658] = 3642,
-  [3659] = 3659,
-  [3660] = 3640,
-  [3661] = 3643,
+  [3658] = 3658,
+  [3659] = 3649,
+  [3660] = 3660,
+  [3661] = 3661,
   [3662] = 3651,
-  [3663] = 3642,
-  [3664] = 3636,
-  [3665] = 3665,
-  [3666] = 3640,
+  [3663] = 3663,
+  [3664] = 3664,
+  [3665] = 3648,
+  [3666] = 3630,
   [3667] = 3667,
-  [3668] = 3634,
-  [3669] = 3648,
-  [3670] = 3670,
-  [3671] = 3671,
-  [3672] = 3672,
-  [3673] = 3640,
-  [3674] = 3674,
-  [3675] = 3643,
-  [3676] = 3643,
-  [3677] = 3651,
-  [3678] = 3650,
-  [3679] = 3636,
-  [3680] = 3653,
-  [3681] = 3637,
-  [3682] = 3629,
-  [3683] = 3683,
-  [3684] = 3634,
-  [3685] = 3629,
-  [3686] = 3634,
-  [3687] = 3338,
-  [3688] = 3651,
-  [3689] = 3640,
-  [3690] = 3636,
-  [3691] = 3643,
-  [3692] = 3640,
-  [3693] = 3640,
-  [3694] = 3651,
-  [3695] = 3643,
+  [3668] = 3651,
+  [3669] = 3651,
+  [3670] = 3629,
+  [3671] = 3651,
+  [3672] = 3629,
+  [3673] = 3658,
+  [3674] = 3661,
+  [3675] = 3675,
+  [3676] = 3649,
+  [3677] = 3649,
+  [3678] = 3651,
+  [3679] = 3648,
+  [3680] = 3658,
+  [3681] = 3630,
+  [3682] = 3651,
+  [3683] = 3640,
+  [3684] = 3684,
+  [3685] = 3651,
+  [3686] = 3686,
+  [3687] = 3661,
+  [3688] = 3688,
+  [3689] = 3629,
+  [3690] = 3684,
+  [3691] = 3649,
+  [3692] = 3630,
+  [3693] = 3693,
+  [3694] = 3694,
+  [3695] = 3695,
   [3696] = 3696,
-  [3697] = 3651,
-  [3698] = 3636,
-  [3699] = 3636,
-  [3700] = 3643,
-  [3701] = 3634,
-  [3702] = 3629,
-  [3703] = 3703,
-  [3704] = 3634,
-  [3705] = 3705,
-  [3706] = 3706,
-  [3707] = 3656,
-  [3708] = 3651,
-  [3709] = 3634,
-  [3710] = 3629,
-  [3711] = 3711,
-  [3712] = 3712,
-  [3713] = 3629,
-  [3714] = 3642,
-  [3715] = 3715,
-  [3716] = 3637,
-  [3717] = 3717,
-  [3718] = 3636,
-  [3719] = 3719,
-  [3720] = 3720,
-  [3721] = 3721,
-  [3722] = 3665,
-  [3723] = 3639,
-  [3724] = 3667,
-  [3725] = 3670,
-  [3726] = 3671,
-  [3727] = 3639,
-  [3728] = 3728,
-  [3729] = 3651,
-  [3730] = 3647,
-  [3731] = 3642,
+  [3697] = 3664,
+  [3698] = 3698,
+  [3699] = 3629,
+  [3700] = 3635,
+  [3701] = 3661,
+  [3702] = 3702,
+  [3703] = 3648,
+  [3704] = 3684,
+  [3705] = 3649,
+  [3706] = 3648,
+  [3707] = 3649,
+  [3708] = 3708,
+  [3709] = 3630,
+  [3710] = 3649,
+  [3711] = 3651,
+  [3712] = 3661,
+  [3713] = 3713,
+  [3714] = 3660,
+  [3715] = 3648,
+  [3716] = 3630,
+  [3717] = 3649,
+  [3718] = 3718,
+  [3719] = 3661,
+  [3720] = 3718,
+  [3721] = 3651,
+  [3722] = 3718,
+  [3723] = 3629,
+  [3724] = 3642,
+  [3725] = 3636,
+  [3726] = 3630,
+  [3727] = 3727,
+  [3728] = 3658,
+  [3729] = 3729,
+  [3730] = 3730,
+  [3731] = 3634,
   [3732] = 3732,
-  [3733] = 3651,
-  [3734] = 3665,
+  [3733] = 3733,
+  [3734] = 3734,
   [3735] = 3735,
-  [3736] = 3667,
-  [3737] = 3670,
-  [3738] = 3640,
-  [3739] = 3671,
-  [3740] = 3740,
-  [3741] = 3643,
-  [3742] = 3651,
-  [3743] = 3636,
+  [3736] = 3634,
+  [3737] = 3639,
+  [3738] = 3664,
+  [3739] = 3656,
+  [3740] = 3629,
+  [3741] = 3647,
+  [3742] = 3648,
+  [3743] = 3660,
   [3744] = 3744,
-  [3745] = 3634,
-  [3746] = 3746,
+  [3745] = 3745,
+  [3746] = 3696,
   [3747] = 3747,
-  [3748] = 3748,
-  [3749] = 3749,
-  [3750] = 3634,
-  [3751] = 3629,
-  [3752] = 3752,
-  [3753] = 3639,
-  [3754] = 3637,
-  [3755] = 3755,
-  [3756] = 3639,
-  [3757] = 3642,
-  [3758] = 3633,
-  [3759] = 3634,
-  [3760] = 3650,
-  [3761] = 3653,
-  [3762] = 3762,
-  [3763] = 3640,
-  [3764] = 3643,
-  [3765] = 3651,
-  [3766] = 3629,
-  [3767] = 3767,
-  [3768] = 3636,
-  [3769] = 3748,
-  [3770] = 3762,
-  [3771] = 3636,
-  [3772] = 3640,
-  [3773] = 3633,
-  [3774] = 3634,
-  [3775] = 3629,
-  [3776] = 3637,
-  [3777] = 3767,
-  [3778] = 3643,
-  [3779] = 3638,
-  [3780] = 3639,
-  [3781] = 3642,
-  [3782] = 3629,
-  [3783] = 3637,
-  [3784] = 3638,
-  [3785] = 3640,
-  [3786] = 3643,
-  [3787] = 3762,
-  [3788] = 3651,
-  [3789] = 3789,
-  [3790] = 3636,
-  [3791] = 3791,
-  [3792] = 3631,
-  [3793] = 3793,
-  [3794] = 3696,
+  [3748] = 3658,
+  [3749] = 3629,
+  [3750] = 3631,
+  [3751] = 3661,
+  [3752] = 3630,
+  [3753] = 3667,
+  [3754] = 3702,
+  [3755] = 3629,
+  [3756] = 3648,
+  [3757] = 3757,
+  [3758] = 3347,
+  [3759] = 3629,
+  [3760] = 3661,
+  [3761] = 3648,
+  [3762] = 3649,
+  [3763] = 3658,
+  [3764] = 3630,
+  [3765] = 3702,
+  [3766] = 3649,
+  [3767] = 3630,
+  [3768] = 3696,
+  [3769] = 3661,
+  [3770] = 3770,
+  [3771] = 3651,
+  [3772] = 3772,
+  [3773] = 3773,
+  [3774] = 3651,
+  [3775] = 3657,
+  [3776] = 3640,
+  [3777] = 3777,
+  [3778] = 3648,
+  [3779] = 3635,
+  [3780] = 3661,
+  [3781] = 3652,
+  [3782] = 3661,
+  [3783] = 3664,
+  [3784] = 3629,
+  [3785] = 3785,
+  [3786] = 3661,
+  [3787] = 3664,
+  [3788] = 3788,
+  [3789] = 3634,
+  [3790] = 3790,
+  [3791] = 3664,
+  [3792] = 3648,
+  [3793] = 3629,
+  [3794] = 3661,
   [3795] = 3648,
-  [3796] = 3634,
-  [3797] = 3629,
+  [3796] = 3649,
+  [3797] = 3630,
   [3798] = 3798,
-  [3799] = 3799,
-  [3800] = 3637,
-  [3801] = 3791,
-  [3802] = 3636,
-  [3803] = 3639,
-  [3804] = 3804,
-  [3805] = 3637,
-  [3806] = 3642,
-  [3807] = 3807,
-  [3808] = 3808,
-  [3809] = 3630,
-  [3810] = 3640,
-  [3811] = 3767,
-  [3812] = 3631,
-  [3813] = 3748,
-  [3814] = 3643,
-  [3815] = 3651,
-  [3816] = 3647,
+  [3799] = 3656,
+  [3800] = 3648,
+  [3801] = 3651,
+  [3802] = 3647,
+  [3803] = 3631,
+  [3804] = 3773,
+  [3805] = 3664,
+  [3806] = 3634,
+  [3807] = 3657,
+  [3808] = 3658,
+  [3809] = 3667,
+  [3810] = 3658,
+  [3811] = 3811,
+  [3812] = 3812,
+  [3813] = 3634,
+  [3814] = 3650,
+  [3815] = 3664,
+  [3816] = 3816,
   [3817] = 3817,
   [3818] = 3818,
   [3819] = 3819,
-  [3820] = 3818,
-  [3821] = 3818,
+  [3820] = 3820,
+  [3821] = 3821,
   [3822] = 3822,
-  [3823] = 3823,
-  [3824] = 3824,
-  [3825] = 3825,
+  [3823] = 3818,
+  [3824] = 3179,
+  [3825] = 3817,
   [3826] = 3826,
-  [3827] = 3825,
-  [3828] = 3823,
-  [3829] = 3824,
-  [3830] = 3818,
-  [3831] = 3831,
-  [3832] = 3823,
+  [3827] = 3827,
+  [3828] = 3818,
+  [3829] = 3829,
+  [3830] = 3830,
+  [3831] = 3817,
+  [3832] = 3826,
   [3833] = 3833,
   [3834] = 3834,
-  [3835] = 3835,
-  [3836] = 3836,
-  [3837] = 3818,
+  [3835] = 3819,
+  [3836] = 3822,
+  [3837] = 3821,
   [3838] = 3838,
   [3839] = 3839,
-  [3840] = 3825,
+  [3840] = 3840,
   [3841] = 3841,
-  [3842] = 3842,
+  [3842] = 3838,
   [3843] = 3843,
-  [3844] = 3831,
-  [3845] = 3845,
-  [3846] = 3836,
+  [3844] = 3844,
+  [3845] = 3841,
+  [3846] = 3829,
   [3847] = 3847,
-  [3848] = 3848,
-  [3849] = 3849,
-  [3850] = 3843,
-  [3851] = 3181,
-  [3852] = 3179,
+  [3848] = 3841,
+  [3849] = 3841,
+  [3850] = 3826,
+  [3851] = 3838,
+  [3852] = 3817,
   [3853] = 3818,
-  [3854] = 3824,
+  [3854] = 3854,
   [3855] = 3855,
-  [3856] = 3818,
+  [3856] = 3821,
   [3857] = 3857,
-  [3858] = 3818,
-  [3859] = 3818,
-  [3860] = 3831,
-  [3861] = 3861,
-  [3862] = 3838,
-  [3863] = 3823,
-  [3864] = 3182,
+  [3858] = 3819,
+  [3859] = 3819,
+  [3860] = 3822,
+  [3861] = 3822,
+  [3862] = 3821,
+  [3863] = 3821,
+  [3864] = 3864,
   [3865] = 3865,
-  [3866] = 3180,
-  [3867] = 3836,
-  [3868] = 3825,
-  [3869] = 3823,
-  [3870] = 3824,
-  [3871] = 3843,
-  [3872] = 3838,
-  [3873] = 3836,
+  [3866] = 3840,
+  [3867] = 3867,
+  [3868] = 3838,
+  [3869] = 3869,
+  [3870] = 3841,
+  [3871] = 3871,
+  [3872] = 3840,
+  [3873] = 3873,
   [3874] = 3838,
-  [3875] = 3839,
-  [3876] = 3839,
+  [3875] = 3875,
+  [3876] = 3876,
   [3877] = 3877,
   [3878] = 3878,
   [3879] = 3879,
-  [3880] = 3843,
-  [3881] = 3839,
-  [3882] = 3831,
-  [3883] = 3847,
-  [3884] = 3836,
-  [3885] = 3831,
+  [3880] = 3840,
+  [3881] = 3840,
+  [3882] = 3882,
+  [3883] = 3883,
+  [3884] = 3821,
+  [3885] = 3838,
   [3886] = 3886,
-  [3887] = 3823,
-  [3888] = 3888,
-  [3889] = 3824,
-  [3890] = 3818,
-  [3891] = 3824,
-  [3892] = 3831,
-  [3893] = 3831,
-  [3894] = 1726,
-  [3895] = 3831,
-  [3896] = 3896,
-  [3897] = 3897,
-  [3898] = 3825,
-  [3899] = 3823,
-  [3900] = 3824,
-  [3901] = 3901,
-  [3902] = 3902,
-  [3903] = 3903,
-  [3904] = 3836,
-  [3905] = 3838,
-  [3906] = 3839,
+  [3887] = 3887,
+  [3888] = 3841,
+  [3889] = 3821,
+  [3890] = 3890,
+  [3891] = 3822,
+  [3892] = 3841,
+  [3893] = 3893,
+  [3894] = 3819,
+  [3895] = 3895,
+  [3896] = 3822,
+  [3897] = 3840,
+  [3898] = 3819,
+  [3899] = 3899,
+  [3900] = 3817,
+  [3901] = 3841,
+  [3902] = 3886,
+  [3903] = 3826,
+  [3904] = 3840,
+  [3905] = 3840,
+  [3906] = 3838,
   [3907] = 3818,
-  [3908] = 3818,
-  [3909] = 3843,
-  [3910] = 3831,
-  [3911] = 3911,
-  [3912] = 3831,
-  [3913] = 3836,
+  [3908] = 3817,
+  [3909] = 3841,
+  [3910] = 3840,
+  [3911] = 3826,
+  [3912] = 3182,
+  [3913] = 3913,
   [3914] = 3914,
-  [3915] = 3838,
-  [3916] = 3916,
-  [3917] = 3917,
-  [3918] = 3918,
-  [3919] = 3818,
-  [3920] = 3920,
+  [3915] = 3826,
+  [3916] = 3841,
+  [3917] = 3817,
+  [3918] = 3840,
+  [3919] = 3841,
+  [3920] = 3818,
   [3921] = 3921,
-  [3922] = 3839,
-  [3923] = 3831,
-  [3924] = 3838,
-  [3925] = 3818,
-  [3926] = 3926,
-  [3927] = 3843,
-  [3928] = 3825,
-  [3929] = 3823,
-  [3930] = 3824,
-  [3931] = 3839,
-  [3932] = 3932,
-  [3933] = 3822,
-  [3934] = 3843,
-  [3935] = 3831,
-  [3936] = 3836,
-  [3937] = 3838,
-  [3938] = 3839,
-  [3939] = 3843,
-  [3940] = 3831,
-  [3941] = 3941,
-  [3942] = 3831,
-  [3943] = 3825,
-  [3944] = 3944,
-  [3945] = 3825,
-  [3946] = 2490,
-  [3947] = 3804,
-  [3948] = 3948,
+  [3922] = 3922,
+  [3923] = 3819,
+  [3924] = 3841,
+  [3925] = 3822,
+  [3926] = 3840,
+  [3927] = 3826,
+  [3928] = 3180,
+  [3929] = 3826,
+  [3930] = 3930,
+  [3931] = 3817,
+  [3932] = 3818,
+  [3933] = 3821,
+  [3934] = 3841,
+  [3935] = 3840,
+  [3936] = 3841,
+  [3937] = 3818,
+  [3938] = 3938,
+  [3939] = 3840,
+  [3940] = 3838,
+  [3941] = 3181,
+  [3942] = 3840,
+  [3943] = 1739,
+  [3944] = 3819,
+  [3945] = 3822,
+  [3946] = 2516,
+  [3947] = 3947,
+  [3948] = 2490,
   [3949] = 3949,
   [3950] = 3950,
   [3951] = 3951,
   [3952] = 3952,
   [3953] = 3953,
-  [3954] = 3954,
+  [3954] = 3735,
   [3955] = 3955,
   [3956] = 3956,
   [3957] = 3957,
-  [3958] = 2532,
-  [3959] = 2474,
-  [3960] = 2595,
-  [3961] = 3961,
+  [3958] = 3812,
+  [3959] = 3959,
+  [3960] = 3960,
+  [3961] = 2618,
   [3962] = 3962,
   [3963] = 3963,
   [3964] = 3964,
   [3965] = 3965,
   [3966] = 3966,
   [3967] = 3967,
-  [3968] = 2635,
+  [3968] = 3968,
   [3969] = 3969,
-  [3970] = 3970,
-  [3971] = 3715,
+  [3970] = 2519,
+  [3971] = 3971,
   [3972] = 3972,
-  [3973] = 3973,
-  [3974] = 2550,
-  [3975] = 2635,
-  [3976] = 3427,
-  [3977] = 3977,
-  [3978] = 3978,
-  [3979] = 3979,
+  [3973] = 2445,
+  [3974] = 2493,
+  [3975] = 3975,
+  [3976] = 3213,
+  [3977] = 3193,
+  [3978] = 2523,
+  [3979] = 2543,
   [3980] = 3980,
-  [3981] = 3981,
+  [3981] = 3188,
   [3982] = 3982,
-  [3983] = 3188,
-  [3984] = 3199,
-  [3985] = 2580,
-  [3986] = 3209,
-  [3987] = 2595,
-  [3988] = 3189,
+  [3983] = 3186,
+  [3984] = 3191,
+  [3985] = 3985,
+  [3986] = 3986,
+  [3987] = 3987,
+  [3988] = 2488,
   [3989] = 3989,
-  [3990] = 3194,
-  [3991] = 3403,
+  [3990] = 3990,
+  [3991] = 3201,
   [3992] = 3200,
   [3993] = 3993,
-  [3994] = 3192,
-  [3995] = 2583,
-  [3996] = 3996,
-  [3997] = 3210,
-  [3998] = 2490,
-  [3999] = 3201,
-  [4000] = 3193,
-  [4001] = 2532,
-  [4002] = 3980,
+  [3994] = 3198,
+  [3995] = 3995,
+  [3996] = 2490,
+  [3997] = 3997,
+  [3998] = 3998,
+  [3999] = 3205,
+  [4000] = 4000,
+  [4001] = 4001,
+  [4002] = 4002,
   [4003] = 4003,
-  [4004] = 4004,
-  [4005] = 2587,
-  [4006] = 3202,
+  [4004] = 3204,
+  [4005] = 3990,
+  [4006] = 4006,
   [4007] = 4007,
-  [4008] = 3406,
-  [4009] = 4009,
-  [4010] = 3433,
-  [4011] = 4011,
-  [4012] = 4012,
-  [4013] = 4013,
-  [4014] = 3386,
-  [4015] = 4015,
+  [4008] = 3203,
+  [4009] = 3410,
+  [4010] = 4010,
+  [4011] = 3871,
+  [4012] = 2618,
+  [4013] = 3417,
+  [4014] = 4014,
+  [4015] = 3420,
   [4016] = 4016,
   [4017] = 4017,
   [4018] = 4018,
   [4019] = 4019,
-  [4020] = 2583,
-  [4021] = 2474,
-  [4022] = 3981,
+  [4020] = 4020,
+  [4021] = 4021,
+  [4022] = 4022,
   [4023] = 4023,
   [4024] = 4024,
-  [4025] = 2587,
-  [4026] = 4026,
-  [4027] = 3198,
-  [4028] = 3421,
-  [4029] = 4009,
-  [4030] = 4030,
-  [4031] = 4009,
+  [4025] = 4025,
+  [4026] = 2519,
+  [4027] = 3374,
+  [4028] = 3986,
+  [4029] = 4029,
+  [4030] = 3986,
+  [4031] = 4031,
   [4032] = 4032,
-  [4033] = 4033,
-  [4034] = 4034,
+  [4033] = 3989,
+  [4034] = 3986,
   [4035] = 4035,
-  [4036] = 4036,
+  [4036] = 3421,
   [4037] = 4037,
-  [4038] = 4038,
-  [4039] = 3214,
-  [4040] = 2550,
+  [4038] = 3430,
+  [4039] = 3405,
+  [4040] = 4040,
   [4041] = 4041,
-  [4042] = 3865,
-  [4043] = 2580,
-  [4044] = 3207,
-  [4045] = 4009,
+  [4042] = 2488,
+  [4043] = 2493,
+  [4044] = 4044,
+  [4045] = 3914,
   [4046] = 4046,
   [4047] = 4047,
   [4048] = 4048,
   [4049] = 4049,
-  [4050] = 3422,
-  [4051] = 4051,
-  [4052] = 3409,
-  [4053] = 3428,
-  [4054] = 4054,
-  [4055] = 3819,
+  [4050] = 4050,
+  [4051] = 2445,
+  [4052] = 4052,
+  [4053] = 4053,
+  [4054] = 3975,
+  [4055] = 4055,
   [4056] = 4056,
-  [4057] = 4057,
-  [4058] = 4058,
-  [4059] = 3979,
-  [4060] = 4060,
+  [4057] = 2543,
+  [4058] = 2516,
+  [4059] = 3883,
+  [4060] = 3382,
   [4061] = 4061,
-  [4062] = 3185,
-  [4063] = 4063,
+  [4062] = 4062,
+  [4063] = 3432,
   [4064] = 4064,
-  [4065] = 4065,
+  [4065] = 2523,
   [4066] = 4066,
   [4067] = 4067,
-  [4068] = 3197,
+  [4068] = 3215,
   [4069] = 4069,
-  [4070] = 4070,
-  [4071] = 4071,
-  [4072] = 3932,
-  [4073] = 4073,
+  [4070] = 3185,
+  [4071] = 3184,
+  [4072] = 3197,
+  [4073] = 3214,
   [4074] = 4074,
   [4075] = 4075,
   [4076] = 4076,
   [4077] = 4077,
   [4078] = 4078,
-  [4079] = 4079,
-  [4080] = 4080,
+  [4079] = 4074,
+  [4080] = 4074,
   [4081] = 4081,
   [4082] = 4082,
-  [4083] = 4083,
-  [4084] = 4084,
+  [4083] = 4074,
+  [4084] = 4078,
   [4085] = 4085,
   [4086] = 4086,
-  [4087] = 4087,
-  [4088] = 4088,
+  [4087] = 4074,
+  [4088] = 4074,
   [4089] = 4089,
-  [4090] = 4090,
+  [4090] = 4078,
   [4091] = 4091,
   [4092] = 4092,
-  [4093] = 4093,
-  [4094] = 4094,
-  [4095] = 4095,
+  [4093] = 4078,
+  [4094] = 4074,
+  [4095] = 4085,
   [4096] = 4096,
   [4097] = 4097,
-  [4098] = 4098,
+  [4098] = 4078,
   [4099] = 4099,
-  [4100] = 817,
-  [4101] = 4101,
-  [4102] = 4102,
+  [4100] = 4074,
+  [4101] = 4074,
+  [4102] = 4074,
   [4103] = 4103,
-  [4104] = 815,
-  [4105] = 816,
-  [4106] = 818,
-  [4107] = 819,
+  [4104] = 4104,
+  [4105] = 4105,
+  [4106] = 4089,
+  [4107] = 4074,
   [4108] = 4108,
-  [4109] = 4109,
+  [4109] = 4074,
   [4110] = 4110,
   [4111] = 4111,
-  [4112] = 4110,
-  [4113] = 4074,
-  [4114] = 4085,
-  [4115] = 4115,
-  [4116] = 4116,
-  [4117] = 4117,
-  [4118] = 4110,
-  [4119] = 4085,
-  [4120] = 4117,
-  [4121] = 4091,
-  [4122] = 4091,
-  [4123] = 4123,
-  [4124] = 4124,
-  [4125] = 4085,
-  [4126] = 4117,
-  [4127] = 4117,
+  [4112] = 4078,
+  [4113] = 4113,
+  [4114] = 4078,
+  [4115] = 4074,
+  [4116] = 4075,
+  [4117] = 4078,
+  [4118] = 4111,
+  [4119] = 4089,
+  [4120] = 4111,
+  [4121] = 4121,
+  [4122] = 4074,
+  [4123] = 4078,
+  [4124] = 4089,
+  [4125] = 4074,
+  [4126] = 4074,
+  [4127] = 4078,
   [4128] = 4128,
-  [4129] = 4129,
-  [4130] = 4130,
-  [4131] = 4131,
-  [4132] = 4132,
-  [4133] = 4101,
-  [4134] = 4115,
-  [4135] = 4094,
-  [4136] = 4136,
-  [4137] = 4093,
-  [4138] = 4098,
-  [4139] = 4139,
-  [4140] = 4139,
+  [4129] = 4103,
+  [4130] = 4074,
+  [4131] = 4074,
+  [4132] = 4074,
+  [4133] = 4111,
+  [4134] = 4134,
+  [4135] = 4135,
+  [4136] = 4104,
+  [4137] = 4137,
+  [4138] = 4074,
+  [4139] = 4074,
+  [4140] = 4078,
   [4141] = 4141,
-  [4142] = 4075,
-  [4143] = 4082,
-  [4144] = 4144,
-  [4145] = 3952,
-  [4146] = 3948,
-  [4147] = 3966,
-  [4148] = 4101,
-  [4149] = 4115,
-  [4150] = 4094,
-  [4151] = 4093,
-  [4152] = 4132,
-  [4153] = 4139,
-  [4154] = 4141,
-  [4155] = 4075,
-  [4156] = 4074,
-  [4157] = 4101,
-  [4158] = 4115,
-  [4159] = 4094,
-  [4160] = 4093,
-  [4161] = 4141,
-  [4162] = 4075,
-  [4163] = 4101,
-  [4164] = 4115,
-  [4165] = 4093,
-  [4166] = 4141,
-  [4167] = 4136,
-  [4168] = 4101,
-  [4169] = 4169,
-  [4170] = 4093,
-  [4171] = 4141,
-  [4172] = 4101,
-  [4173] = 4093,
-  [4174] = 4141,
-  [4175] = 4101,
-  [4176] = 4093,
-  [4177] = 4141,
-  [4178] = 4101,
-  [4179] = 4093,
-  [4180] = 4101,
-  [4181] = 4093,
-  [4182] = 4101,
-  [4183] = 4093,
-  [4184] = 4101,
-  [4185] = 4093,
-  [4186] = 4101,
-  [4187] = 4093,
-  [4188] = 4101,
-  [4189] = 4093,
-  [4190] = 4101,
-  [4191] = 4093,
-  [4192] = 4101,
-  [4193] = 4093,
-  [4194] = 4101,
-  [4195] = 4093,
-  [4196] = 4101,
-  [4197] = 4093,
-  [4198] = 4101,
-  [4199] = 4093,
-  [4200] = 4101,
-  [4201] = 4101,
-  [4202] = 4101,
-  [4203] = 4101,
-  [4204] = 4101,
-  [4205] = 4101,
-  [4206] = 4101,
-  [4207] = 4101,
-  [4208] = 4101,
-  [4209] = 4101,
-  [4210] = 4101,
-  [4211] = 4101,
-  [4212] = 4101,
-  [4213] = 4101,
-  [4214] = 4101,
-  [4215] = 4101,
-  [4216] = 4101,
-  [4217] = 4101,
-  [4218] = 4101,
-  [4219] = 4101,
-  [4220] = 4101,
-  [4221] = 4101,
-  [4222] = 4101,
-  [4223] = 4101,
-  [4224] = 4101,
-  [4225] = 4225,
-  [4226] = 4101,
-  [4227] = 4101,
-  [4228] = 4101,
-  [4229] = 4141,
+  [4142] = 4142,
+  [4143] = 4143,
+  [4144] = 4111,
+  [4145] = 4074,
+  [4146] = 4074,
+  [4147] = 4077,
+  [4148] = 4148,
+  [4149] = 4149,
+  [4150] = 4081,
+  [4151] = 4074,
+  [4152] = 4074,
+  [4153] = 4153,
+  [4154] = 4154,
+  [4155] = 4155,
+  [4156] = 4156,
+  [4157] = 4078,
+  [4158] = 4081,
+  [4159] = 4108,
+  [4160] = 4074,
+  [4161] = 4161,
+  [4162] = 4074,
+  [4163] = 4149,
+  [4164] = 4153,
+  [4165] = 829,
+  [4166] = 4085,
+  [4167] = 4074,
+  [4168] = 4074,
+  [4169] = 4074,
+  [4170] = 4170,
+  [4171] = 4078,
+  [4172] = 4081,
+  [4173] = 4108,
+  [4174] = 4078,
+  [4175] = 4170,
+  [4176] = 4074,
+  [4177] = 4074,
+  [4178] = 4075,
+  [4179] = 4074,
+  [4180] = 4074,
+  [4181] = 4074,
+  [4182] = 4078,
+  [4183] = 826,
+  [4184] = 4074,
+  [4185] = 4185,
+  [4186] = 4186,
+  [4187] = 4111,
+  [4188] = 4104,
+  [4189] = 4074,
+  [4190] = 4074,
+  [4191] = 4108,
+  [4192] = 4074,
+  [4193] = 3949,
+  [4194] = 821,
+  [4195] = 4195,
+  [4196] = 4161,
+  [4197] = 825,
+  [4198] = 3955,
+  [4199] = 4078,
+  [4200] = 4078,
+  [4201] = 4201,
+  [4202] = 4202,
+  [4203] = 4074,
+  [4204] = 4074,
+  [4205] = 4205,
+  [4206] = 4206,
+  [4207] = 4092,
+  [4208] = 3960,
+  [4209] = 4153,
+  [4210] = 4210,
+  [4211] = 4111,
+  [4212] = 4212,
+  [4213] = 4078,
+  [4214] = 4103,
+  [4215] = 4149,
+  [4216] = 835,
+  [4217] = 4074,
+  [4218] = 4074,
+  [4219] = 4074,
+  [4220] = 4220,
+  [4221] = 4221,
+  [4222] = 4074,
+  [4223] = 4089,
+  [4224] = 4085,
+  [4225] = 4074,
+  [4226] = 4078,
+  [4227] = 4074,
+  [4228] = 4111,
+  [4229] = 4075,
   [4230] = 4230,
   [4231] = 4231,
   [4232] = 4232,
@@ -9787,37 +9781,37 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [4241] = 4241,
   [4242] = 4242,
   [4243] = 4243,
-  [4244] = 2583,
-  [4245] = 3966,
-  [4246] = 3952,
-  [4247] = 2587,
-  [4248] = 2580,
-  [4249] = 3948,
-  [4250] = 3948,
-  [4251] = 3952,
-  [4252] = 3948,
-  [4253] = 4253,
-  [4254] = 3966,
-  [4255] = 3966,
+  [4244] = 2543,
+  [4245] = 2488,
+  [4246] = 3955,
+  [4247] = 3949,
+  [4248] = 3960,
+  [4249] = 2523,
+  [4250] = 4250,
+  [4251] = 4251,
+  [4252] = 3955,
+  [4253] = 3960,
+  [4254] = 3955,
+  [4255] = 3949,
   [4256] = 4256,
-  [4257] = 4257,
-  [4258] = 3966,
-  [4259] = 4259,
-  [4260] = 3952,
-  [4261] = 3966,
-  [4262] = 4262,
-  [4263] = 3948,
-  [4264] = 3952,
-  [4265] = 3966,
-  [4266] = 3966,
-  [4267] = 3948,
-  [4268] = 3952,
-  [4269] = 3948,
-  [4270] = 3952,
-  [4271] = 3952,
-  [4272] = 3948,
+  [4257] = 3949,
+  [4258] = 3960,
+  [4259] = 3955,
+  [4260] = 3949,
+  [4261] = 3960,
+  [4262] = 3955,
+  [4263] = 4263,
+  [4264] = 3960,
+  [4265] = 4265,
+  [4266] = 3960,
+  [4267] = 3949,
+  [4268] = 3955,
+  [4269] = 3955,
+  [4270] = 3949,
+  [4271] = 3960,
+  [4272] = 3949,
   [4273] = 4273,
-  [4274] = 4274,
+  [4274] = 3955,
   [4275] = 4275,
   [4276] = 4276,
   [4277] = 4277,
@@ -9825,43 +9819,43 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [4279] = 4279,
   [4280] = 4280,
   [4281] = 4281,
-  [4282] = 4282,
-  [4283] = 3952,
-  [4284] = 3948,
-  [4285] = 3966,
+  [4282] = 3960,
+  [4283] = 4283,
+  [4284] = 4284,
+  [4285] = 4285,
   [4286] = 4286,
   [4287] = 4287,
   [4288] = 4288,
-  [4289] = 4289,
+  [4289] = 3949,
   [4290] = 4290,
   [4291] = 4291,
   [4292] = 4292,
-  [4293] = 3357,
+  [4293] = 3352,
   [4294] = 3350,
   [4295] = 4295,
   [4296] = 4296,
-  [4297] = 4295,
-  [4298] = 4295,
-  [4299] = 4296,
-  [4300] = 4295,
+  [4297] = 4296,
+  [4298] = 4296,
+  [4299] = 4295,
+  [4300] = 4296,
   [4301] = 4295,
-  [4302] = 4296,
-  [4303] = 4303,
-  [4304] = 4296,
+  [4302] = 4295,
+  [4303] = 4295,
+  [4304] = 4295,
   [4305] = 4296,
-  [4306] = 4296,
-  [4307] = 4295,
-  [4308] = 4296,
-  [4309] = 4295,
+  [4306] = 4306,
+  [4307] = 4296,
+  [4308] = 4295,
+  [4309] = 4296,
   [4310] = 4295,
-  [4311] = 4296,
-  [4312] = 4295,
-  [4313] = 4296,
-  [4314] = 4296,
+  [4311] = 4295,
+  [4312] = 4296,
+  [4313] = 4295,
+  [4314] = 4295,
   [4315] = 4295,
   [4316] = 4296,
-  [4317] = 4295,
-  [4318] = 4295,
+  [4317] = 4296,
+  [4318] = 4296,
   [4319] = 4296,
   [4320] = 4295,
   [4321] = 4296,
@@ -9871,113 +9865,113 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [4325] = 4325,
   [4326] = 4326,
   [4327] = 4327,
-  [4328] = 4242,
-  [4329] = 4230,
-  [4330] = 4231,
+  [4328] = 4328,
+  [4329] = 4329,
+  [4330] = 4330,
   [4331] = 4331,
-  [4332] = 4232,
-  [4333] = 4233,
-  [4334] = 4234,
-  [4335] = 4235,
+  [4332] = 4332,
+  [4333] = 4240,
+  [4334] = 4232,
+  [4335] = 4242,
   [4336] = 4336,
   [4337] = 4337,
-  [4338] = 4238,
-  [4339] = 4339,
-  [4340] = 4340,
-  [4341] = 4236,
+  [4338] = 4338,
+  [4339] = 4243,
+  [4340] = 4239,
+  [4341] = 4341,
   [4342] = 4342,
-  [4343] = 4241,
+  [4343] = 4233,
   [4344] = 4344,
   [4345] = 4345,
   [4346] = 4346,
   [4347] = 4347,
   [4348] = 4348,
   [4349] = 4349,
-  [4350] = 4350,
+  [4350] = 4230,
   [4351] = 4351,
   [4352] = 4352,
-  [4353] = 4353,
-  [4354] = 4354,
-  [4355] = 4355,
+  [4353] = 4237,
+  [4354] = 4236,
+  [4355] = 4241,
   [4356] = 4356,
-  [4357] = 4240,
-  [4358] = 4239,
-  [4359] = 4259,
-  [4360] = 4259,
-  [4361] = 4262,
-  [4362] = 4262,
-  [4363] = 4363,
-  [4364] = 4232,
-  [4365] = 4233,
-  [4366] = 4234,
-  [4367] = 4259,
-  [4368] = 4235,
-  [4369] = 4231,
-  [4370] = 4238,
+  [4357] = 4235,
+  [4358] = 4234,
+  [4359] = 4251,
+  [4360] = 4251,
+  [4361] = 4265,
+  [4362] = 4265,
+  [4363] = 4233,
+  [4364] = 4364,
+  [4365] = 4236,
+  [4366] = 4232,
+  [4367] = 4367,
+  [4368] = 4364,
+  [4369] = 4367,
+  [4370] = 4367,
   [4371] = 4371,
-  [4372] = 4372,
-  [4373] = 4232,
+  [4372] = 4230,
+  [4373] = 4241,
   [4374] = 4233,
-  [4375] = 4234,
-  [4376] = 4235,
-  [4377] = 4371,
-  [4378] = 4372,
-  [4379] = 4379,
-  [4380] = 4239,
-  [4381] = 4372,
+  [4375] = 4232,
+  [4376] = 4236,
+  [4377] = 4236,
+  [4378] = 4364,
+  [4379] = 4233,
+  [4380] = 4380,
+  [4381] = 4265,
   [4382] = 4382,
   [4383] = 4383,
   [4384] = 4384,
-  [4385] = 4385,
-  [4386] = 4386,
+  [4385] = 4364,
+  [4386] = 4367,
   [4387] = 4387,
   [4388] = 4388,
-  [4389] = 4389,
-  [4390] = 4236,
-  [4391] = 4371,
-  [4392] = 4372,
-  [4393] = 4235,
-  [4394] = 4243,
-  [4395] = 4262,
+  [4389] = 4241,
+  [4390] = 4251,
+  [4391] = 4391,
+  [4392] = 4234,
+  [4393] = 4234,
+  [4394] = 4235,
+  [4395] = 4232,
   [4396] = 4396,
-  [4397] = 4389,
+  [4397] = 4364,
   [4398] = 4398,
-  [4399] = 4234,
-  [4400] = 4400,
-  [4401] = 4240,
-  [4402] = 4402,
-  [4403] = 4403,
-  [4404] = 4389,
-  [4405] = 4241,
-  [4406] = 4236,
+  [4399] = 4399,
+  [4400] = 4398,
+  [4401] = 4239,
+  [4402] = 4235,
+  [4403] = 4237,
+  [4404] = 4367,
+  [4405] = 4237,
+  [4406] = 4230,
   [4407] = 4407,
-  [4408] = 4238,
-  [4409] = 4409,
-  [4410] = 4239,
+  [4408] = 4364,
+  [4409] = 4239,
+  [4410] = 4243,
   [4411] = 4240,
-  [4412] = 4371,
-  [4413] = 4241,
+  [4412] = 4243,
+  [4413] = 4242,
   [4414] = 4242,
-  [4415] = 4230,
-  [4416] = 4231,
-  [4417] = 4238,
+  [4415] = 4240,
+  [4416] = 4398,
+  [4417] = 4243,
   [4418] = 4239,
-  [4419] = 4372,
-  [4420] = 4242,
-  [4421] = 4236,
-  [4422] = 4371,
-  [4423] = 4372,
-  [4424] = 4240,
-  [4425] = 4241,
-  [4426] = 4242,
-  [4427] = 4230,
-  [4428] = 4231,
-  [4429] = 4232,
-  [4430] = 4230,
-  [4431] = 4233,
-  [4432] = 4389,
+  [4419] = 4242,
+  [4420] = 4240,
+  [4421] = 4230,
+  [4422] = 4237,
+  [4423] = 4235,
+  [4424] = 4234,
+  [4425] = 4238,
+  [4426] = 4426,
+  [4427] = 4427,
+  [4428] = 4428,
+  [4429] = 4429,
+  [4430] = 4241,
+  [4431] = 4431,
+  [4432] = 4398,
   [4433] = 4433,
-  [4434] = 4434,
+  [4434] = 4231,
   [4435] = 4435,
   [4436] = 4436,
   [4437] = 4437,
@@ -9989,817 +9983,817 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [4443] = 4443,
   [4444] = 4444,
   [4445] = 4445,
-  [4446] = 4446,
-  [4447] = 817,
+  [4446] = 4238,
+  [4447] = 4447,
   [4448] = 4448,
-  [4449] = 4449,
+  [4449] = 4233,
   [4450] = 4450,
   [4451] = 4451,
-  [4452] = 4452,
+  [4452] = 4450,
   [4453] = 4453,
   [4454] = 4454,
   [4455] = 4455,
-  [4456] = 4456,
-  [4457] = 4457,
-  [4458] = 4458,
+  [4456] = 4234,
+  [4457] = 4238,
+  [4458] = 826,
   [4459] = 4459,
-  [4460] = 4240,
-  [4461] = 4241,
-  [4462] = 4243,
-  [4463] = 4237,
-  [4464] = 4242,
+  [4460] = 4450,
+  [4461] = 4371,
+  [4462] = 4462,
+  [4463] = 4463,
+  [4464] = 4464,
   [4465] = 4465,
   [4466] = 4466,
-  [4467] = 4230,
-  [4468] = 4468,
-  [4469] = 4238,
+  [4467] = 4467,
+  [4468] = 4236,
+  [4469] = 4469,
   [4470] = 4232,
-  [4471] = 4233,
-  [4472] = 4407,
-  [4473] = 4235,
-  [4474] = 4465,
-  [4475] = 4475,
-  [4476] = 4465,
-  [4477] = 4477,
-  [4478] = 4478,
+  [4471] = 4450,
+  [4472] = 4472,
+  [4473] = 829,
+  [4474] = 4474,
+  [4475] = 835,
+  [4476] = 826,
+  [4477] = 825,
+  [4478] = 821,
   [4479] = 4479,
   [4480] = 4480,
   [4481] = 4481,
-  [4482] = 4482,
-  [4483] = 4234,
-  [4484] = 1662,
-  [4485] = 4239,
+  [4482] = 4230,
+  [4483] = 4483,
+  [4484] = 4239,
+  [4485] = 4485,
   [4486] = 4486,
   [4487] = 4487,
   [4488] = 4488,
   [4489] = 4243,
-  [4490] = 815,
-  [4491] = 816,
-  [4492] = 817,
-  [4493] = 818,
-  [4494] = 819,
-  [4495] = 4465,
-  [4496] = 4496,
-  [4497] = 4236,
+  [4490] = 4490,
+  [4491] = 4491,
+  [4492] = 4241,
+  [4493] = 1662,
+  [4494] = 4242,
+  [4495] = 4240,
+  [4496] = 4235,
+  [4497] = 4237,
   [4498] = 4498,
-  [4499] = 4231,
-  [4500] = 892,
-  [4501] = 4501,
-  [4502] = 4502,
+  [4499] = 4499,
+  [4500] = 4500,
+  [4501] = 4233,
+  [4502] = 878,
   [4503] = 4503,
-  [4504] = 4504,
+  [4504] = 4329,
   [4505] = 4505,
-  [4506] = 902,
+  [4506] = 4506,
   [4507] = 4507,
-  [4508] = 4356,
-  [4509] = 4337,
-  [4510] = 4342,
+  [4508] = 4508,
+  [4509] = 4509,
+  [4510] = 4510,
   [4511] = 4511,
-  [4512] = 904,
-  [4513] = 4513,
-  [4514] = 4346,
-  [4515] = 4348,
+  [4512] = 4356,
+  [4513] = 4345,
+  [4514] = 4514,
+  [4515] = 877,
   [4516] = 4516,
-  [4517] = 4349,
-  [4518] = 4350,
-  [4519] = 4352,
+  [4517] = 4517,
+  [4518] = 900,
+  [4519] = 4336,
   [4520] = 4520,
-  [4521] = 855,
-  [4522] = 4522,
-  [4523] = 4523,
+  [4521] = 4521,
+  [4522] = 903,
+  [4523] = 4341,
   [4524] = 4524,
-  [4525] = 4525,
-  [4526] = 4526,
-  [4527] = 4527,
-  [4528] = 4528,
-  [4529] = 4529,
-  [4530] = 4339,
-  [4531] = 4531,
+  [4525] = 4240,
+  [4526] = 4242,
+  [4527] = 875,
+  [4528] = 859,
+  [4529] = 874,
+  [4530] = 899,
+  [4531] = 4243,
   [4532] = 4532,
-  [4533] = 884,
-  [4534] = 4331,
-  [4535] = 903,
-  [4536] = 905,
-  [4537] = 838,
-  [4538] = 874,
-  [4539] = 839,
-  [4540] = 840,
-  [4541] = 841,
-  [4542] = 4353,
+  [4533] = 4533,
+  [4534] = 4230,
+  [4535] = 4232,
+  [4536] = 4237,
+  [4537] = 4235,
+  [4538] = 4234,
+  [4539] = 897,
+  [4540] = 4330,
+  [4541] = 4241,
+  [4542] = 4542,
   [4543] = 4543,
-  [4544] = 4544,
-  [4545] = 4545,
-  [4546] = 4546,
-  [4547] = 4340,
-  [4548] = 885,
-  [4549] = 903,
-  [4550] = 4550,
+  [4544] = 876,
+  [4545] = 850,
+  [4546] = 4342,
+  [4547] = 4547,
+  [4548] = 4344,
+  [4549] = 4549,
+  [4550] = 4331,
   [4551] = 4551,
-  [4552] = 886,
-  [4553] = 882,
-  [4554] = 3357,
-  [4555] = 883,
+  [4552] = 4328,
+  [4553] = 856,
+  [4554] = 4554,
+  [4555] = 4555,
   [4556] = 4556,
-  [4557] = 3350,
-  [4558] = 4558,
-  [4559] = 887,
-  [4560] = 4560,
-  [4561] = 4561,
-  [4562] = 905,
-  [4563] = 838,
-  [4564] = 4347,
-  [4565] = 874,
-  [4566] = 4336,
+  [4557] = 4557,
+  [4558] = 876,
+  [4559] = 4559,
+  [4560] = 4236,
+  [4561] = 877,
+  [4562] = 878,
+  [4563] = 4347,
+  [4564] = 854,
+  [4565] = 894,
+  [4566] = 837,
   [4567] = 4567,
-  [4568] = 4568,
+  [4568] = 895,
   [4569] = 4569,
-  [4570] = 839,
-  [4571] = 840,
-  [4572] = 4572,
-  [4573] = 841,
-  [4574] = 888,
-  [4575] = 4575,
-  [4576] = 884,
-  [4577] = 885,
-  [4578] = 886,
-  [4579] = 887,
-  [4580] = 4580,
-  [4581] = 888,
-  [4582] = 889,
-  [4583] = 890,
-  [4584] = 891,
-  [4585] = 837,
-  [4586] = 892,
-  [4587] = 882,
-  [4588] = 890,
-  [4589] = 4234,
-  [4590] = 4433,
-  [4591] = 895,
-  [4592] = 902,
-  [4593] = 904,
-  [4594] = 855,
-  [4595] = 4595,
+  [4570] = 893,
+  [4571] = 4571,
+  [4572] = 894,
+  [4573] = 859,
+  [4574] = 856,
+  [4575] = 837,
+  [4576] = 4576,
+  [4577] = 4577,
+  [4578] = 893,
+  [4579] = 4348,
+  [4580] = 892,
+  [4581] = 4581,
+  [4582] = 4582,
+  [4583] = 891,
+  [4584] = 4584,
+  [4585] = 890,
+  [4586] = 889,
+  [4587] = 4587,
+  [4588] = 4588,
+  [4589] = 3350,
+  [4590] = 891,
+  [4591] = 4239,
+  [4592] = 900,
+  [4593] = 4593,
+  [4594] = 875,
+  [4595] = 890,
   [4596] = 4596,
-  [4597] = 4597,
-  [4598] = 4598,
-  [4599] = 891,
-  [4600] = 4235,
-  [4601] = 4601,
-  [4602] = 4602,
-  [4603] = 4603,
-  [4604] = 4240,
-  [4605] = 4238,
-  [4606] = 4241,
-  [4607] = 4607,
+  [4597] = 903,
+  [4598] = 892,
+  [4599] = 895,
+  [4600] = 4600,
+  [4601] = 4346,
+  [4602] = 874,
+  [4603] = 897,
+  [4604] = 4604,
+  [4605] = 889,
+  [4606] = 4606,
+  [4607] = 899,
   [4608] = 4608,
   [4609] = 4609,
-  [4610] = 4610,
-  [4611] = 4345,
-  [4612] = 4344,
+  [4610] = 4349,
+  [4611] = 4351,
+  [4612] = 4352,
   [4613] = 4613,
-  [4614] = 4327,
-  [4615] = 4351,
-  [4616] = 4354,
-  [4617] = 4355,
-  [4618] = 4239,
-  [4619] = 4236,
-  [4620] = 837,
+  [4614] = 869,
+  [4615] = 4615,
+  [4616] = 4616,
+  [4617] = 850,
+  [4618] = 854,
+  [4619] = 4619,
+  [4620] = 4327,
   [4621] = 4621,
-  [4622] = 4232,
-  [4623] = 883,
+  [4622] = 4332,
+  [4623] = 4623,
   [4624] = 4624,
-  [4625] = 4607,
+  [4625] = 864,
   [4626] = 4626,
   [4627] = 4627,
   [4628] = 4628,
   [4629] = 4629,
   [4630] = 4630,
-  [4631] = 4233,
+  [4631] = 4631,
   [4632] = 4632,
-  [4633] = 895,
-  [4634] = 4634,
-  [4635] = 4242,
+  [4633] = 3352,
+  [4634] = 4338,
+  [4635] = 4635,
   [4636] = 4636,
-  [4637] = 4637,
-  [4638] = 4230,
+  [4637] = 4444,
+  [4638] = 4638,
   [4639] = 4639,
   [4640] = 4640,
   [4641] = 4641,
-  [4642] = 4231,
+  [4642] = 4337,
   [4643] = 4643,
-  [4644] = 4644,
-  [4645] = 4645,
-  [4646] = 889,
-  [4647] = 4647,
-  [4648] = 3602,
-  [4649] = 4238,
-  [4650] = 4379,
-  [4651] = 4259,
-  [4652] = 4400,
-  [4653] = 4363,
+  [4644] = 869,
+  [4645] = 4616,
+  [4646] = 864,
+  [4647] = 4428,
+  [4648] = 825,
+  [4649] = 835,
+  [4650] = 829,
+  [4651] = 826,
+  [4652] = 4652,
+  [4653] = 4236,
   [4654] = 4654,
-  [4655] = 4262,
-  [4656] = 4656,
-  [4657] = 3459,
-  [4658] = 4384,
-  [4659] = 4659,
-  [4660] = 815,
-  [4661] = 4402,
-  [4662] = 4388,
-  [4663] = 4654,
-  [4664] = 4654,
-  [4665] = 819,
-  [4666] = 4656,
-  [4667] = 4667,
-  [4668] = 4656,
-  [4669] = 4656,
-  [4670] = 4659,
-  [4671] = 4671,
-  [4672] = 4656,
-  [4673] = 816,
-  [4674] = 4674,
-  [4675] = 4580,
-  [4676] = 4654,
-  [4677] = 817,
-  [4678] = 4387,
-  [4679] = 4656,
-  [4680] = 4680,
-  [4681] = 4637,
-  [4682] = 818,
-  [4683] = 4683,
-  [4684] = 4684,
-  [4685] = 4685,
-  [4686] = 4656,
+  [4655] = 4655,
+  [4656] = 4652,
+  [4657] = 4657,
+  [4658] = 4655,
+  [4659] = 4429,
+  [4660] = 4655,
+  [4661] = 4661,
+  [4662] = 4391,
+  [4663] = 4663,
+  [4664] = 4387,
+  [4665] = 4654,
+  [4666] = 4251,
+  [4667] = 4652,
+  [4668] = 4533,
+  [4669] = 3483,
+  [4670] = 4670,
+  [4671] = 4652,
+  [4672] = 3564,
+  [4673] = 4399,
+  [4674] = 4384,
+  [4675] = 4675,
+  [4676] = 4655,
+  [4677] = 4509,
+  [4678] = 821,
+  [4679] = 4382,
+  [4680] = 4655,
+  [4681] = 4681,
+  [4682] = 4682,
+  [4683] = 4265,
+  [4684] = 4655,
+  [4685] = 4655,
+  [4686] = 4686,
   [4687] = 4687,
   [4688] = 4688,
   [4689] = 4689,
-  [4690] = 4687,
-  [4691] = 4687,
-  [4692] = 4385,
-  [4693] = 4398,
-  [4694] = 4694,
-  [4695] = 4687,
-  [4696] = 4398,
-  [4697] = 3459,
+  [4690] = 4396,
+  [4691] = 4691,
+  [4692] = 4383,
+  [4693] = 3483,
+  [4694] = 1662,
+  [4695] = 4689,
+  [4696] = 4696,
+  [4697] = 3564,
   [4698] = 4698,
-  [4699] = 3602,
-  [4700] = 1662,
-  [4701] = 4701,
+  [4699] = 4396,
+  [4700] = 4689,
+  [4701] = 4689,
   [4702] = 4702,
   [4703] = 4703,
-  [4704] = 3712,
-  [4705] = 3674,
+  [4704] = 4465,
+  [4705] = 4705,
   [4706] = 4706,
-  [4707] = 3721,
-  [4708] = 3747,
+  [4707] = 4707,
+  [4708] = 900,
   [4709] = 4709,
-  [4710] = 3789,
-  [4711] = 3793,
-  [4712] = 3799,
-  [4713] = 3719,
-  [4714] = 3720,
-  [4715] = 3703,
-  [4716] = 3705,
-  [4717] = 3706,
-  [4718] = 4718,
-  [4719] = 3755,
+  [4710] = 4710,
+  [4711] = 1739,
+  [4712] = 875,
+  [4713] = 874,
+  [4714] = 899,
+  [4715] = 897,
+  [4716] = 3675,
+  [4717] = 3729,
+  [4718] = 3633,
+  [4719] = 4453,
   [4720] = 4720,
-  [4721] = 4721,
-  [4722] = 4722,
-  [4723] = 4723,
-  [4724] = 4724,
-  [4725] = 3807,
-  [4726] = 4726,
-  [4727] = 3711,
-  [4728] = 4527,
+  [4721] = 3744,
+  [4722] = 3745,
+  [4723] = 3352,
+  [4724] = 3686,
+  [4725] = 4462,
+  [4726] = 3350,
+  [4727] = 4727,
+  [4728] = 4472,
   [4729] = 4729,
-  [4730] = 3798,
-  [4731] = 4545,
-  [4732] = 4546,
-  [4733] = 4733,
-  [4734] = 4734,
-  [4735] = 4735,
-  [4736] = 3602,
-  [4737] = 4737,
-  [4738] = 4496,
-  [4739] = 4437,
-  [4740] = 3672,
-  [4741] = 4442,
-  [4742] = 4742,
-  [4743] = 4448,
-  [4744] = 4449,
-  [4745] = 4450,
-  [4746] = 4451,
-  [4747] = 4452,
-  [4748] = 4453,
-  [4749] = 4454,
+  [4730] = 894,
+  [4731] = 837,
+  [4732] = 893,
+  [4733] = 891,
+  [4734] = 890,
+  [4735] = 889,
+  [4736] = 4584,
+  [4737] = 3790,
+  [4738] = 4571,
+  [4739] = 3788,
+  [4740] = 3785,
+  [4741] = 3688,
+  [4742] = 3732,
+  [4743] = 4743,
+  [4744] = 4744,
+  [4745] = 4487,
+  [4746] = 864,
+  [4747] = 859,
+  [4748] = 854,
+  [4749] = 850,
   [4750] = 4750,
-  [4751] = 4456,
-  [4752] = 4752,
-  [4753] = 882,
-  [4754] = 883,
-  [4755] = 884,
-  [4756] = 885,
-  [4757] = 886,
-  [4758] = 887,
+  [4751] = 4486,
+  [4752] = 3734,
+  [4753] = 3733,
+  [4754] = 4754,
+  [4755] = 4755,
+  [4756] = 4480,
+  [4757] = 4479,
+  [4758] = 4758,
   [4759] = 4759,
-  [4760] = 888,
-  [4761] = 889,
-  [4762] = 890,
-  [4763] = 891,
-  [4764] = 837,
-  [4765] = 892,
-  [4766] = 895,
-  [4767] = 902,
-  [4768] = 904,
-  [4769] = 855,
-  [4770] = 3357,
-  [4771] = 1726,
-  [4772] = 4772,
-  [4773] = 3350,
-  [4774] = 4774,
-  [4775] = 4438,
-  [4776] = 4452,
-  [4777] = 4453,
-  [4778] = 903,
-  [4779] = 905,
-  [4780] = 838,
-  [4781] = 874,
-  [4782] = 839,
-  [4783] = 840,
-  [4784] = 841,
-  [4785] = 4785,
-  [4786] = 3711,
-  [4787] = 4454,
-  [4788] = 882,
-  [4789] = 883,
-  [4790] = 884,
-  [4791] = 885,
-  [4792] = 886,
-  [4793] = 887,
-  [4794] = 2550,
-  [4795] = 888,
-  [4796] = 889,
-  [4797] = 890,
-  [4798] = 891,
-  [4799] = 837,
-  [4800] = 892,
-  [4801] = 3798,
-  [4802] = 895,
-  [4803] = 902,
-  [4804] = 904,
-  [4805] = 2915,
-  [4806] = 855,
-  [4807] = 2635,
-  [4808] = 4456,
-  [4809] = 4437,
-  [4810] = 2474,
-  [4811] = 4438,
-  [4812] = 4496,
-  [4813] = 4442,
-  [4814] = 2532,
-  [4815] = 4448,
-  [4816] = 4437,
-  [4817] = 4438,
-  [4818] = 4442,
-  [4819] = 3703,
-  [4820] = 2490,
-  [4821] = 4448,
-  [4822] = 4449,
-  [4823] = 4449,
-  [4824] = 4824,
-  [4825] = 4450,
-  [4826] = 4451,
-  [4827] = 4496,
-  [4828] = 2595,
-  [4829] = 4452,
-  [4830] = 4453,
-  [4831] = 4454,
-  [4832] = 4456,
-  [4833] = 4452,
-  [4834] = 3357,
-  [4835] = 4453,
-  [4836] = 4437,
-  [4837] = 4438,
-  [4838] = 4442,
-  [4839] = 4839,
-  [4840] = 3350,
-  [4841] = 4454,
-  [4842] = 4842,
-  [4843] = 4448,
-  [4844] = 4449,
-  [4845] = 4450,
-  [4846] = 4451,
-  [4847] = 4453,
-  [4848] = 4454,
-  [4849] = 4456,
-  [4850] = 4850,
-  [4851] = 4496,
-  [4852] = 4852,
-  [4853] = 4450,
-  [4854] = 3703,
-  [4855] = 3807,
-  [4856] = 3672,
-  [4857] = 3674,
-  [4858] = 4858,
-  [4859] = 3721,
-  [4860] = 3703,
-  [4861] = 4448,
-  [4862] = 3789,
-  [4863] = 3793,
-  [4864] = 3799,
-  [4865] = 4449,
-  [4866] = 4866,
-  [4867] = 4451,
-  [4868] = 4437,
-  [4869] = 4438,
-  [4870] = 4442,
-  [4871] = 4871,
-  [4872] = 4448,
-  [4873] = 4449,
-  [4874] = 3719,
-  [4875] = 4450,
-  [4876] = 4451,
-  [4877] = 3720,
-  [4878] = 4452,
-  [4879] = 4450,
-  [4880] = 4451,
-  [4881] = 4453,
-  [4882] = 4454,
-  [4883] = 4496,
-  [4884] = 4884,
-  [4885] = 3705,
-  [4886] = 3706,
-  [4887] = 4456,
-  [4888] = 4496,
-  [4889] = 3755,
-  [4890] = 3712,
-  [4891] = 4437,
-  [4892] = 4438,
-  [4893] = 4442,
-  [4894] = 4894,
-  [4895] = 4456,
-  [4896] = 4632,
-  [4897] = 4448,
-  [4898] = 4449,
-  [4899] = 4450,
-  [4900] = 4451,
-  [4901] = 4785,
-  [4902] = 4551,
-  [4903] = 4568,
-  [4904] = 4569,
-  [4905] = 4905,
-  [4906] = 4621,
-  [4907] = 4624,
-  [4908] = 4645,
-  [4909] = 4501,
-  [4910] = 4502,
-  [4911] = 4503,
-  [4912] = 4504,
-  [4913] = 4505,
-  [4914] = 4516,
-  [4915] = 4520,
-  [4916] = 4452,
-  [4917] = 4453,
-  [4918] = 4523,
-  [4919] = 4454,
-  [4920] = 4524,
-  [4921] = 4452,
-  [4922] = 4526,
-  [4923] = 4528,
-  [4924] = 4532,
-  [4925] = 4543,
-  [4926] = 4558,
-  [4927] = 4927,
-  [4928] = 1726,
-  [4929] = 4456,
-  [4930] = 4496,
-  [4931] = 4437,
-  [4932] = 4438,
-  [4933] = 4442,
-  [4934] = 3747,
-  [4935] = 839,
-  [4936] = 4504,
-  [4937] = 902,
-  [4938] = 4505,
-  [4939] = 4516,
-  [4940] = 4516,
-  [4941] = 4520,
-  [4942] = 4520,
-  [4943] = 4523,
-  [4944] = 4524,
-  [4945] = 904,
-  [4946] = 4526,
-  [4947] = 855,
-  [4948] = 4528,
-  [4949] = 841,
-  [4950] = 3357,
-  [4951] = 4504,
-  [4952] = 4532,
-  [4953] = 4543,
-  [4954] = 4558,
-  [4955] = 4505,
-  [4956] = 882,
-  [4957] = 4957,
-  [4958] = 4551,
+  [4760] = 3653,
+  [4761] = 4549,
+  [4762] = 4474,
+  [4763] = 4469,
+  [4764] = 3757,
+  [4765] = 3564,
+  [4766] = 3777,
+  [4767] = 4448,
+  [4768] = 4768,
+  [4769] = 4769,
+  [4770] = 4770,
+  [4771] = 903,
+  [4772] = 4451,
+  [4773] = 4773,
+  [4774] = 3770,
+  [4775] = 4775,
+  [4776] = 4776,
+  [4777] = 4480,
+  [4778] = 4451,
+  [4779] = 4479,
+  [4780] = 4480,
+  [4781] = 4486,
+  [4782] = 4487,
+  [4783] = 4448,
+  [4784] = 4628,
+  [4785] = 4469,
+  [4786] = 3350,
+  [4787] = 4474,
+  [4788] = 4551,
+  [4789] = 3352,
+  [4790] = 4451,
+  [4791] = 4474,
+  [4792] = 4792,
+  [4793] = 3729,
+  [4794] = 4472,
+  [4795] = 4465,
+  [4796] = 4796,
+  [4797] = 3744,
+  [4798] = 4462,
+  [4799] = 3745,
+  [4800] = 4453,
+  [4801] = 4462,
+  [4802] = 4465,
+  [4803] = 4472,
+  [4804] = 4453,
+  [4805] = 4805,
+  [4806] = 4487,
+  [4807] = 4486,
+  [4808] = 4480,
+  [4809] = 4479,
+  [4810] = 4469,
+  [4811] = 4448,
+  [4812] = 4486,
+  [4813] = 4813,
+  [4814] = 4474,
+  [4815] = 4474,
+  [4816] = 4487,
+  [4817] = 4472,
+  [4818] = 4465,
+  [4819] = 2493,
+  [4820] = 4462,
+  [4821] = 4503,
+  [4822] = 4581,
+  [4823] = 4453,
+  [4824] = 4505,
+  [4825] = 4479,
+  [4826] = 4480,
+  [4827] = 856,
+  [4828] = 4486,
+  [4829] = 876,
+  [4830] = 877,
+  [4831] = 850,
+  [4832] = 4462,
+  [4833] = 854,
+  [4834] = 859,
+  [4835] = 864,
+  [4836] = 878,
+  [4837] = 892,
+  [4838] = 4465,
+  [4839] = 4472,
+  [4840] = 895,
+  [4841] = 869,
+  [4842] = 2490,
+  [4843] = 4487,
+  [4844] = 4487,
+  [4845] = 889,
+  [4846] = 4453,
+  [4847] = 890,
+  [4848] = 891,
+  [4849] = 893,
+  [4850] = 837,
+  [4851] = 894,
+  [4852] = 4486,
+  [4853] = 4853,
+  [4854] = 897,
+  [4855] = 4600,
+  [4856] = 4479,
+  [4857] = 4857,
+  [4858] = 2618,
+  [4859] = 4469,
+  [4860] = 4448,
+  [4861] = 899,
+  [4862] = 874,
+  [4863] = 875,
+  [4864] = 4451,
+  [4865] = 2519,
+  [4866] = 4474,
+  [4867] = 3785,
+  [4868] = 3686,
+  [4869] = 4507,
+  [4870] = 4469,
+  [4871] = 2516,
+  [4872] = 2914,
+  [4873] = 903,
+  [4874] = 900,
+  [4875] = 4448,
+  [4876] = 3732,
+  [4877] = 2445,
+  [4878] = 4451,
+  [4879] = 4879,
+  [4880] = 3757,
+  [4881] = 1739,
+  [4882] = 4510,
+  [4883] = 4516,
+  [4884] = 4517,
+  [4885] = 4520,
+  [4886] = 4886,
+  [4887] = 4556,
+  [4888] = 3790,
+  [4889] = 3788,
+  [4890] = 3733,
+  [4891] = 4474,
+  [4892] = 3688,
+  [4893] = 4893,
+  [4894] = 3734,
+  [4895] = 4472,
+  [4896] = 4557,
+  [4897] = 4897,
+  [4898] = 4567,
+  [4899] = 4893,
+  [4900] = 4577,
+  [4901] = 4596,
+  [4902] = 4451,
+  [4903] = 4448,
+  [4904] = 4469,
+  [4905] = 4453,
+  [4906] = 4608,
+  [4907] = 4615,
+  [4908] = 4619,
+  [4909] = 3675,
+  [4910] = 4472,
+  [4911] = 4911,
+  [4912] = 4624,
+  [4913] = 4465,
+  [4914] = 4462,
+  [4915] = 4462,
+  [4916] = 4635,
+  [4917] = 4465,
+  [4918] = 3653,
+  [4919] = 3675,
+  [4920] = 4487,
+  [4921] = 4486,
+  [4922] = 4480,
+  [4923] = 4479,
+  [4924] = 3770,
+  [4925] = 4479,
+  [4926] = 4469,
+  [4927] = 4448,
+  [4928] = 4451,
+  [4929] = 4929,
+  [4930] = 3777,
+  [4931] = 3633,
+  [4932] = 4480,
+  [4933] = 4453,
+  [4934] = 3675,
+  [4935] = 893,
+  [4936] = 850,
+  [4937] = 899,
+  [4938] = 897,
+  [4939] = 4615,
+  [4940] = 4619,
+  [4941] = 4624,
+  [4942] = 889,
+  [4943] = 4628,
+  [4944] = 4600,
+  [4945] = 3350,
+  [4946] = 4581,
+  [4947] = 4551,
+  [4948] = 4948,
+  [4949] = 4949,
+  [4950] = 894,
+  [4951] = 837,
+  [4952] = 893,
+  [4953] = 891,
+  [4954] = 890,
+  [4955] = 889,
+  [4956] = 3350,
+  [4957] = 3352,
+  [4958] = 4958,
   [4959] = 4959,
-  [4960] = 4960,
-  [4961] = 4568,
-  [4962] = 4569,
-  [4963] = 4523,
-  [4964] = 903,
-  [4965] = 886,
-  [4966] = 4516,
-  [4967] = 4520,
-  [4968] = 4501,
-  [4969] = 905,
-  [4970] = 887,
-  [4971] = 838,
-  [4972] = 874,
-  [4973] = 882,
-  [4974] = 883,
-  [4975] = 4523,
-  [4976] = 4850,
-  [4977] = 4524,
-  [4978] = 4621,
-  [4979] = 904,
-  [4980] = 903,
-  [4981] = 4624,
-  [4982] = 3357,
-  [4983] = 4645,
-  [4984] = 4501,
-  [4985] = 4502,
-  [4986] = 4503,
-  [4987] = 903,
-  [4988] = 905,
-  [4989] = 838,
-  [4990] = 839,
-  [4991] = 874,
-  [4992] = 884,
-  [4993] = 885,
-  [4994] = 886,
-  [4995] = 887,
-  [4996] = 840,
+  [4960] = 4505,
+  [4961] = 4507,
+  [4962] = 864,
+  [4963] = 859,
+  [4964] = 854,
+  [4965] = 850,
+  [4966] = 4510,
+  [4967] = 4516,
+  [4968] = 4517,
+  [4969] = 4520,
+  [4970] = 4635,
+  [4971] = 4948,
+  [4972] = 875,
+  [4973] = 4507,
+  [4974] = 4551,
+  [4975] = 3352,
+  [4976] = 4556,
+  [4977] = 4557,
+  [4978] = 4608,
+  [4979] = 4567,
+  [4980] = 4596,
+  [4981] = 4577,
+  [4982] = 4596,
+  [4983] = 4608,
+  [4984] = 4984,
+  [4985] = 850,
+  [4986] = 854,
+  [4987] = 859,
+  [4988] = 864,
+  [4989] = 4989,
+  [4990] = 4990,
+  [4991] = 4991,
+  [4992] = 903,
+  [4993] = 900,
+  [4994] = 4577,
+  [4995] = 4567,
+  [4996] = 897,
   [4997] = 4997,
-  [4998] = 4504,
-  [4999] = 4505,
-  [5000] = 839,
-  [5001] = 3350,
-  [5002] = 4516,
-  [5003] = 4520,
-  [5004] = 4524,
-  [5005] = 4523,
-  [5006] = 4524,
-  [5007] = 841,
-  [5008] = 855,
-  [5009] = 888,
-  [5010] = 4526,
-  [5011] = 4528,
-  [5012] = 882,
-  [5013] = 4532,
-  [5014] = 840,
-  [5015] = 889,
-  [5016] = 890,
-  [5017] = 883,
-  [5018] = 4543,
-  [5019] = 891,
+  [4998] = 4557,
+  [4999] = 890,
+  [5000] = 5000,
+  [5001] = 4556,
+  [5002] = 4615,
+  [5003] = 4619,
+  [5004] = 4792,
+  [5005] = 4624,
+  [5006] = 3341,
+  [5007] = 900,
+  [5008] = 903,
+  [5009] = 4628,
+  [5010] = 4581,
+  [5011] = 4600,
+  [5012] = 4635,
+  [5013] = 4628,
+  [5014] = 4600,
+  [5015] = 891,
+  [5016] = 4503,
+  [5017] = 5017,
+  [5018] = 4581,
+  [5019] = 893,
   [5020] = 837,
-  [5021] = 892,
-  [5022] = 4624,
-  [5023] = 3357,
-  [5024] = 4526,
-  [5025] = 3350,
-  [5026] = 4632,
-  [5027] = 4528,
-  [5028] = 903,
-  [5029] = 905,
-  [5030] = 841,
-  [5031] = 5031,
-  [5032] = 3350,
-  [5033] = 4532,
-  [5034] = 4850,
-  [5035] = 3341,
-  [5036] = 882,
-  [5037] = 4558,
-  [5038] = 883,
-  [5039] = 4551,
-  [5040] = 895,
-  [5041] = 883,
-  [5042] = 902,
-  [5043] = 4543,
-  [5044] = 904,
-  [5045] = 4502,
-  [5046] = 4503,
-  [5047] = 4558,
-  [5048] = 4621,
-  [5049] = 838,
-  [5050] = 4558,
-  [5051] = 884,
-  [5052] = 885,
-  [5053] = 5053,
-  [5054] = 5054,
-  [5055] = 874,
-  [5056] = 855,
-  [5057] = 4621,
-  [5058] = 884,
-  [5059] = 4551,
-  [5060] = 839,
-  [5061] = 4632,
-  [5062] = 4568,
-  [5063] = 4569,
-  [5064] = 840,
-  [5065] = 885,
-  [5066] = 4621,
-  [5067] = 882,
-  [5068] = 4568,
-  [5069] = 4624,
-  [5070] = 884,
-  [5071] = 885,
-  [5072] = 4645,
-  [5073] = 4501,
-  [5074] = 4502,
-  [5075] = 4569,
-  [5076] = 4503,
-  [5077] = 886,
-  [5078] = 4504,
-  [5079] = 887,
-  [5080] = 4624,
-  [5081] = 4504,
-  [5082] = 4505,
-  [5083] = 886,
-  [5084] = 887,
-  [5085] = 841,
-  [5086] = 4645,
-  [5087] = 4516,
-  [5088] = 4520,
-  [5089] = 4645,
-  [5090] = 4523,
-  [5091] = 4524,
-  [5092] = 5054,
-  [5093] = 4632,
-  [5094] = 4501,
-  [5095] = 5095,
-  [5096] = 5096,
-  [5097] = 4526,
-  [5098] = 5098,
-  [5099] = 4502,
-  [5100] = 4528,
-  [5101] = 4532,
-  [5102] = 905,
-  [5103] = 4632,
-  [5104] = 4543,
-  [5105] = 883,
-  [5106] = 3357,
-  [5107] = 4503,
-  [5108] = 5108,
-  [5109] = 888,
-  [5110] = 5110,
-  [5111] = 5111,
-  [5112] = 4551,
-  [5113] = 4526,
-  [5114] = 4558,
-  [5115] = 4551,
-  [5116] = 902,
-  [5117] = 4568,
-  [5118] = 4569,
-  [5119] = 888,
-  [5120] = 3350,
-  [5121] = 4528,
-  [5122] = 889,
-  [5123] = 838,
-  [5124] = 882,
-  [5125] = 883,
-  [5126] = 890,
-  [5127] = 874,
-  [5128] = 891,
-  [5129] = 837,
-  [5130] = 4532,
-  [5131] = 4505,
-  [5132] = 5132,
-  [5133] = 884,
-  [5134] = 884,
-  [5135] = 885,
-  [5136] = 886,
-  [5137] = 887,
-  [5138] = 892,
-  [5139] = 888,
-  [5140] = 889,
-  [5141] = 890,
-  [5142] = 891,
-  [5143] = 837,
-  [5144] = 892,
-  [5145] = 5108,
-  [5146] = 4568,
+  [5021] = 894,
+  [5022] = 875,
+  [5023] = 874,
+  [5024] = 899,
+  [5025] = 897,
+  [5026] = 4503,
+  [5027] = 5027,
+  [5028] = 4551,
+  [5029] = 874,
+  [5030] = 4505,
+  [5031] = 900,
+  [5032] = 903,
+  [5033] = 4551,
+  [5034] = 5034,
+  [5035] = 5035,
+  [5036] = 875,
+  [5037] = 874,
+  [5038] = 899,
+  [5039] = 894,
+  [5040] = 837,
+  [5041] = 893,
+  [5042] = 891,
+  [5043] = 890,
+  [5044] = 889,
+  [5045] = 897,
+  [5046] = 899,
+  [5047] = 874,
+  [5048] = 894,
+  [5049] = 837,
+  [5050] = 893,
+  [5051] = 875,
+  [5052] = 5052,
+  [5053] = 864,
+  [5054] = 859,
+  [5055] = 854,
+  [5056] = 850,
+  [5057] = 891,
+  [5058] = 890,
+  [5059] = 889,
+  [5060] = 5027,
+  [5061] = 5061,
+  [5062] = 869,
+  [5063] = 4505,
+  [5064] = 4507,
+  [5065] = 864,
+  [5066] = 4510,
+  [5067] = 859,
+  [5068] = 854,
+  [5069] = 850,
+  [5070] = 4628,
+  [5071] = 5017,
+  [5072] = 4516,
+  [5073] = 4517,
+  [5074] = 895,
+  [5075] = 5075,
+  [5076] = 892,
+  [5077] = 3352,
+  [5078] = 4520,
+  [5079] = 5079,
+  [5080] = 5080,
+  [5081] = 903,
+  [5082] = 4600,
+  [5083] = 4503,
+  [5084] = 4551,
+  [5085] = 4581,
+  [5086] = 878,
+  [5087] = 4600,
+  [5088] = 5088,
+  [5089] = 4581,
+  [5090] = 869,
+  [5091] = 3350,
+  [5092] = 895,
+  [5093] = 5093,
+  [5094] = 892,
+  [5095] = 878,
+  [5096] = 877,
+  [5097] = 876,
+  [5098] = 856,
+  [5099] = 877,
+  [5100] = 876,
+  [5101] = 900,
+  [5102] = 4505,
+  [5103] = 3350,
+  [5104] = 4507,
+  [5105] = 4510,
+  [5106] = 4516,
+  [5107] = 4517,
+  [5108] = 4520,
+  [5109] = 4556,
+  [5110] = 4557,
+  [5111] = 4503,
+  [5112] = 4567,
+  [5113] = 3352,
+  [5114] = 4577,
+  [5115] = 4615,
+  [5116] = 4596,
+  [5117] = 4608,
+  [5118] = 4615,
+  [5119] = 4619,
+  [5120] = 4520,
+  [5121] = 4517,
+  [5122] = 4516,
+  [5123] = 4624,
+  [5124] = 4635,
+  [5125] = 4635,
+  [5126] = 4503,
+  [5127] = 5127,
+  [5128] = 4948,
+  [5129] = 5129,
+  [5130] = 869,
+  [5131] = 895,
+  [5132] = 4619,
+  [5133] = 892,
+  [5134] = 878,
+  [5135] = 856,
+  [5136] = 4624,
+  [5137] = 4510,
+  [5138] = 4624,
+  [5139] = 4619,
+  [5140] = 4615,
+  [5141] = 877,
+  [5142] = 5142,
+  [5143] = 4608,
+  [5144] = 876,
+  [5145] = 856,
+  [5146] = 869,
   [5147] = 895,
-  [5148] = 4621,
-  [5149] = 902,
-  [5150] = 5150,
-  [5151] = 4569,
-  [5152] = 4624,
-  [5153] = 904,
-  [5154] = 855,
-  [5155] = 5155,
-  [5156] = 4645,
-  [5157] = 4501,
-  [5158] = 4502,
-  [5159] = 4503,
-  [5160] = 5160,
-  [5161] = 885,
-  [5162] = 886,
-  [5163] = 5163,
-  [5164] = 5164,
-  [5165] = 889,
-  [5166] = 890,
-  [5167] = 5167,
-  [5168] = 891,
-  [5169] = 887,
-  [5170] = 837,
-  [5171] = 888,
-  [5172] = 4621,
-  [5173] = 889,
-  [5174] = 890,
-  [5175] = 5175,
-  [5176] = 4624,
-  [5177] = 891,
-  [5178] = 837,
-  [5179] = 4504,
-  [5180] = 4645,
-  [5181] = 4505,
-  [5182] = 892,
-  [5183] = 839,
-  [5184] = 4516,
-  [5185] = 888,
-  [5186] = 4520,
-  [5187] = 4501,
-  [5188] = 889,
-  [5189] = 4523,
-  [5190] = 4524,
-  [5191] = 892,
-  [5192] = 890,
-  [5193] = 891,
-  [5194] = 837,
-  [5195] = 4502,
-  [5196] = 892,
-  [5197] = 3357,
-  [5198] = 5198,
-  [5199] = 4503,
-  [5200] = 3350,
-  [5201] = 895,
-  [5202] = 4543,
-  [5203] = 5203,
-  [5204] = 902,
-  [5205] = 904,
-  [5206] = 4632,
-  [5207] = 5207,
-  [5208] = 5208,
-  [5209] = 895,
-  [5210] = 903,
-  [5211] = 905,
-  [5212] = 838,
-  [5213] = 874,
-  [5214] = 4526,
-  [5215] = 839,
-  [5216] = 4528,
-  [5217] = 840,
-  [5218] = 841,
-  [5219] = 4532,
-  [5220] = 4632,
-  [5221] = 903,
-  [5222] = 905,
-  [5223] = 838,
-  [5224] = 874,
-  [5225] = 4551,
-  [5226] = 840,
-  [5227] = 895,
-  [5228] = 4568,
-  [5229] = 4569,
-  [5230] = 5053,
-  [5231] = 902,
-  [5232] = 4543,
-  [5233] = 904,
-  [5234] = 840,
-  [5235] = 5053,
-  [5236] = 855,
-  [5237] = 841,
-  [5238] = 4558,
-  [5239] = 5239,
-  [5240] = 5240,
-  [5241] = 855,
-  [5242] = 895,
+  [5148] = 892,
+  [5149] = 878,
+  [5150] = 4520,
+  [5151] = 877,
+  [5152] = 876,
+  [5153] = 856,
+  [5154] = 4596,
+  [5155] = 4517,
+  [5156] = 4507,
+  [5157] = 4577,
+  [5158] = 4567,
+  [5159] = 4505,
+  [5160] = 4557,
+  [5161] = 4608,
+  [5162] = 4596,
+  [5163] = 4577,
+  [5164] = 4556,
+  [5165] = 4520,
+  [5166] = 4556,
+  [5167] = 4567,
+  [5168] = 4557,
+  [5169] = 3352,
+  [5170] = 4792,
+  [5171] = 900,
+  [5172] = 4516,
+  [5173] = 4510,
+  [5174] = 903,
+  [5175] = 4628,
+  [5176] = 4517,
+  [5177] = 4516,
+  [5178] = 4567,
+  [5179] = 4510,
+  [5180] = 875,
+  [5181] = 4503,
+  [5182] = 874,
+  [5183] = 3350,
+  [5184] = 899,
+  [5185] = 897,
+  [5186] = 4507,
+  [5187] = 869,
+  [5188] = 895,
+  [5189] = 892,
+  [5190] = 878,
+  [5191] = 900,
+  [5192] = 903,
+  [5193] = 4577,
+  [5194] = 877,
+  [5195] = 876,
+  [5196] = 4635,
+  [5197] = 856,
+  [5198] = 869,
+  [5199] = 895,
+  [5200] = 4624,
+  [5201] = 4619,
+  [5202] = 892,
+  [5203] = 878,
+  [5204] = 877,
+  [5205] = 876,
+  [5206] = 875,
+  [5207] = 874,
+  [5208] = 899,
+  [5209] = 897,
+  [5210] = 856,
+  [5211] = 4505,
+  [5212] = 894,
+  [5213] = 837,
+  [5214] = 4615,
+  [5215] = 891,
+  [5216] = 890,
+  [5217] = 889,
+  [5218] = 4557,
+  [5219] = 5219,
+  [5220] = 5220,
+  [5221] = 5221,
+  [5222] = 4556,
+  [5223] = 894,
+  [5224] = 837,
+  [5225] = 893,
+  [5226] = 891,
+  [5227] = 890,
+  [5228] = 889,
+  [5229] = 4551,
+  [5230] = 4596,
+  [5231] = 4581,
+  [5232] = 4608,
+  [5233] = 864,
+  [5234] = 859,
+  [5235] = 854,
+  [5236] = 4635,
+  [5237] = 864,
+  [5238] = 859,
+  [5239] = 854,
+  [5240] = 850,
+  [5241] = 4628,
+  [5242] = 4600,
   [5243] = 5243,
   [5244] = 5244,
-  [5245] = 5244,
+  [5245] = 5245,
   [5246] = 5246,
   [5247] = 5247,
   [5248] = 5248,
-  [5249] = 5248,
+  [5249] = 5249,
   [5250] = 5250,
   [5251] = 5251,
   [5252] = 5252,
-  [5253] = 5253,
+  [5253] = 5247,
   [5254] = 5254,
   [5255] = 5255,
-  [5256] = 5256,
+  [5256] = 5250,
   [5257] = 5257,
   [5258] = 5258,
   [5259] = 5259,
@@ -10812,238 +10806,238 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5266] = 5266,
   [5267] = 5267,
   [5268] = 5268,
-  [5269] = 840,
+  [5269] = 5269,
   [5270] = 5270,
   [5271] = 5271,
-  [5272] = 1141,
-  [5273] = 903,
-  [5274] = 5274,
+  [5272] = 5272,
+  [5273] = 5273,
+  [5274] = 856,
   [5275] = 5275,
   [5276] = 5276,
   [5277] = 5277,
-  [5278] = 905,
+  [5278] = 5278,
   [5279] = 5279,
   [5280] = 5280,
-  [5281] = 838,
-  [5282] = 839,
-  [5283] = 1125,
-  [5284] = 5284,
-  [5285] = 5285,
-  [5286] = 5286,
-  [5287] = 1140,
-  [5288] = 841,
+  [5281] = 5281,
+  [5282] = 5282,
+  [5283] = 5283,
+  [5284] = 877,
+  [5285] = 878,
+  [5286] = 1139,
+  [5287] = 5287,
+  [5288] = 5288,
   [5289] = 5289,
-  [5290] = 5290,
+  [5290] = 869,
   [5291] = 5291,
-  [5292] = 874,
+  [5292] = 876,
   [5293] = 5293,
-  [5294] = 1133,
-  [5295] = 1143,
-  [5296] = 5296,
+  [5294] = 5294,
+  [5295] = 1134,
+  [5296] = 1125,
   [5297] = 5297,
-  [5298] = 5298,
-  [5299] = 5299,
-  [5300] = 5300,
-  [5301] = 5301,
-  [5302] = 1155,
-  [5303] = 1122,
-  [5304] = 5304,
+  [5298] = 1149,
+  [5299] = 1131,
+  [5300] = 892,
+  [5301] = 895,
+  [5302] = 1136,
+  [5303] = 5303,
+  [5304] = 1148,
   [5305] = 5305,
-  [5306] = 1132,
+  [5306] = 1151,
   [5307] = 5307,
   [5308] = 5308,
   [5309] = 5309,
   [5310] = 5310,
   [5311] = 5311,
   [5312] = 5312,
-  [5313] = 3451,
+  [5313] = 3437,
   [5314] = 5314,
   [5315] = 5315,
   [5316] = 5316,
   [5317] = 5317,
-  [5318] = 3178,
-  [5319] = 3455,
-  [5320] = 3456,
+  [5318] = 3456,
+  [5319] = 3178,
+  [5320] = 3454,
   [5321] = 5321,
-  [5322] = 3465,
-  [5323] = 5323,
-  [5324] = 3507,
-  [5325] = 3476,
+  [5322] = 3481,
+  [5323] = 3499,
+  [5324] = 3506,
+  [5325] = 3480,
   [5326] = 5326,
-  [5327] = 3466,
-  [5328] = 5328,
-  [5329] = 3181,
-  [5330] = 3179,
-  [5331] = 3180,
-  [5332] = 5332,
-  [5333] = 5333,
-  [5334] = 3545,
-  [5335] = 5335,
-  [5336] = 3182,
-  [5337] = 3602,
+  [5327] = 5327,
+  [5328] = 3562,
+  [5329] = 5329,
+  [5330] = 5330,
+  [5331] = 5331,
+  [5332] = 3182,
+  [5333] = 3180,
+  [5334] = 3179,
+  [5335] = 3181,
+  [5336] = 5336,
+  [5337] = 5337,
   [5338] = 5338,
-  [5339] = 5339,
+  [5339] = 3564,
   [5340] = 5340,
-  [5341] = 5341,
+  [5341] = 5340,
   [5342] = 5342,
   [5343] = 5343,
-  [5344] = 5344,
-  [5345] = 3602,
+  [5344] = 3564,
+  [5345] = 5345,
   [5346] = 5346,
   [5347] = 5347,
-  [5348] = 5347,
+  [5348] = 5348,
   [5349] = 5349,
-  [5350] = 815,
-  [5351] = 5351,
+  [5350] = 3201,
+  [5351] = 829,
   [5352] = 5352,
   [5353] = 5353,
   [5354] = 5354,
   [5355] = 5355,
-  [5356] = 5356,
-  [5357] = 5357,
-  [5358] = 5358,
-  [5359] = 5359,
-  [5360] = 5360,
-  [5361] = 816,
-  [5362] = 817,
-  [5363] = 818,
-  [5364] = 819,
-  [5365] = 3188,
-  [5366] = 3194,
-  [5367] = 5367,
-  [5368] = 3189,
-  [5369] = 3192,
-  [5370] = 3193,
-  [5371] = 5371,
-  [5372] = 5372,
-  [5373] = 3198,
-  [5374] = 5374,
-  [5375] = 3214,
-  [5376] = 3200,
-  [5377] = 3201,
-  [5378] = 3202,
-  [5379] = 5355,
-  [5380] = 3207,
-  [5381] = 3197,
-  [5382] = 3209,
-  [5383] = 3210,
-  [5384] = 3185,
+  [5356] = 3191,
+  [5357] = 821,
+  [5358] = 3188,
+  [5359] = 821,
+  [5360] = 825,
+  [5361] = 5361,
+  [5362] = 826,
+  [5363] = 835,
+  [5364] = 829,
+  [5365] = 5365,
+  [5366] = 3215,
+  [5367] = 3184,
+  [5368] = 5368,
+  [5369] = 3200,
+  [5370] = 3198,
+  [5371] = 3205,
+  [5372] = 3204,
+  [5373] = 3203,
+  [5374] = 3185,
+  [5375] = 5375,
+  [5376] = 5376,
+  [5377] = 835,
+  [5378] = 5378,
+  [5379] = 825,
+  [5380] = 3186,
+  [5381] = 5381,
+  [5382] = 5355,
+  [5383] = 5383,
+  [5384] = 5384,
   [5385] = 5385,
-  [5386] = 5386,
+  [5386] = 826,
   [5387] = 5387,
   [5388] = 5388,
-  [5389] = 815,
-  [5390] = 816,
-  [5391] = 817,
-  [5392] = 818,
-  [5393] = 819,
-  [5394] = 5394,
-  [5395] = 5395,
-  [5396] = 5396,
-  [5397] = 5355,
-  [5398] = 3199,
+  [5389] = 3193,
+  [5390] = 5390,
+  [5391] = 5391,
+  [5392] = 3197,
+  [5393] = 5393,
+  [5394] = 5355,
+  [5395] = 3214,
+  [5396] = 3213,
+  [5397] = 5397,
+  [5398] = 5398,
   [5399] = 5399,
   [5400] = 5400,
   [5401] = 5401,
-  [5402] = 5399,
+  [5402] = 5402,
   [5403] = 5403,
   [5404] = 5404,
-  [5405] = 3357,
+  [5405] = 5405,
   [5406] = 5406,
   [5407] = 5407,
   [5408] = 5408,
-  [5409] = 5409,
-  [5410] = 5410,
+  [5409] = 5402,
+  [5410] = 5402,
   [5411] = 5411,
   [5412] = 5412,
-  [5413] = 5413,
+  [5413] = 3757,
   [5414] = 5414,
   [5415] = 5415,
-  [5416] = 5408,
+  [5416] = 5416,
   [5417] = 5417,
   [5418] = 5418,
-  [5419] = 5414,
-  [5420] = 3798,
-  [5421] = 3357,
-  [5422] = 3711,
-  [5423] = 5423,
-  [5424] = 5424,
-  [5425] = 5425,
+  [5419] = 5419,
+  [5420] = 5420,
+  [5421] = 5421,
+  [5422] = 5422,
+  [5423] = 5402,
+  [5424] = 5402,
+  [5425] = 5405,
   [5426] = 5426,
-  [5427] = 5412,
-  [5428] = 5428,
-  [5429] = 5429,
-  [5430] = 5409,
-  [5431] = 3350,
-  [5432] = 5399,
-  [5433] = 5433,
-  [5434] = 5411,
+  [5427] = 5427,
+  [5428] = 3352,
+  [5429] = 5405,
+  [5430] = 3350,
+  [5431] = 5402,
+  [5432] = 5432,
+  [5433] = 5402,
+  [5434] = 5434,
   [5435] = 5435,
-  [5436] = 5406,
+  [5436] = 5436,
   [5437] = 5437,
-  [5438] = 5424,
-  [5439] = 5412,
-  [5440] = 5440,
-  [5441] = 5399,
+  [5438] = 5438,
+  [5439] = 5402,
+  [5440] = 5405,
+  [5441] = 3757,
   [5442] = 5442,
-  [5443] = 5443,
-  [5444] = 5433,
-  [5445] = 5411,
-  [5446] = 5435,
-  [5447] = 5406,
-  [5448] = 5426,
-  [5449] = 5449,
-  [5450] = 5412,
-  [5451] = 5451,
-  [5452] = 5399,
-  [5453] = 5411,
-  [5454] = 5435,
-  [5455] = 5412,
+  [5443] = 5402,
+  [5444] = 5432,
+  [5445] = 5402,
+  [5446] = 3350,
+  [5447] = 5447,
+  [5448] = 3352,
+  [5449] = 5435,
+  [5450] = 5399,
+  [5451] = 5402,
+  [5452] = 5452,
+  [5453] = 5405,
+  [5454] = 3732,
+  [5455] = 5432,
   [5456] = 5456,
-  [5457] = 5399,
-  [5458] = 5411,
-  [5459] = 5399,
-  [5460] = 5411,
-  [5461] = 5461,
-  [5462] = 5399,
-  [5463] = 5411,
-  [5464] = 5399,
-  [5465] = 5411,
-  [5466] = 5399,
-  [5467] = 5399,
-  [5468] = 5399,
-  [5469] = 5469,
-  [5470] = 5428,
-  [5471] = 5471,
-  [5472] = 5472,
-  [5473] = 5451,
-  [5474] = 5399,
-  [5475] = 5443,
-  [5476] = 5440,
-  [5477] = 5442,
-  [5478] = 5404,
-  [5479] = 5479,
-  [5480] = 5401,
-  [5481] = 5399,
-  [5482] = 5413,
-  [5483] = 5469,
-  [5484] = 5472,
-  [5485] = 5399,
-  [5486] = 5399,
-  [5487] = 5399,
-  [5488] = 5399,
-  [5489] = 3350,
-  [5490] = 5399,
-  [5491] = 5433,
-  [5492] = 5471,
-  [5493] = 5479,
-  [5494] = 5425,
-  [5495] = 5435,
-  [5496] = 3711,
-  [5497] = 5497,
-  [5498] = 5417,
-  [5499] = 3798,
-  [5500] = 5500,
+  [5457] = 5412,
+  [5458] = 5421,
+  [5459] = 5459,
+  [5460] = 5432,
+  [5461] = 5402,
+  [5462] = 5462,
+  [5463] = 5402,
+  [5464] = 5464,
+  [5465] = 5405,
+  [5466] = 5402,
+  [5467] = 5402,
+  [5468] = 5462,
+  [5469] = 5464,
+  [5470] = 5400,
+  [5471] = 5400,
+  [5472] = 5405,
+  [5473] = 5402,
+  [5474] = 5400,
+  [5475] = 5475,
+  [5476] = 5412,
+  [5477] = 3732,
+  [5478] = 5402,
+  [5479] = 5403,
+  [5480] = 5442,
+  [5481] = 5436,
+  [5482] = 5402,
+  [5483] = 5483,
+  [5484] = 5405,
+  [5485] = 5462,
+  [5486] = 5404,
+  [5487] = 5406,
+  [5488] = 5407,
+  [5489] = 5408,
+  [5490] = 5411,
+  [5491] = 5414,
+  [5492] = 5415,
+  [5493] = 5416,
+  [5494] = 5417,
+  [5495] = 5418,
+  [5496] = 5496,
+  [5497] = 5401,
+  [5498] = 5402,
+  [5499] = 5432,
+  [5500] = 5420,
   [5501] = 5501,
   [5502] = 5502,
   [5503] = 5503,
@@ -11067,7 +11061,7 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5521] = 5521,
   [5522] = 5522,
   [5523] = 5523,
-  [5524] = 5514,
+  [5524] = 5524,
   [5525] = 5525,
   [5526] = 5526,
   [5527] = 5527,
@@ -11077,7 +11071,7 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5531] = 5531,
   [5532] = 5532,
   [5533] = 5533,
-  [5534] = 5534,
+  [5534] = 5518,
   [5535] = 5535,
   [5536] = 5536,
   [5537] = 5537,
@@ -11094,13 +11088,13 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5548] = 5548,
   [5549] = 5549,
   [5550] = 5550,
-  [5551] = 838,
-  [5552] = 874,
-  [5553] = 839,
-  [5554] = 841,
-  [5555] = 840,
-  [5556] = 903,
-  [5557] = 905,
+  [5551] = 869,
+  [5552] = 856,
+  [5553] = 892,
+  [5554] = 895,
+  [5555] = 878,
+  [5556] = 877,
+  [5557] = 876,
   [5558] = 5558,
   [5559] = 5559,
   [5560] = 5560,
@@ -11125,20 +11119,20 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5579] = 5579,
   [5580] = 5580,
   [5581] = 5581,
-  [5582] = 5582,
+  [5582] = 5575,
   [5583] = 5583,
   [5584] = 5584,
-  [5585] = 5583,
+  [5585] = 5585,
   [5586] = 5586,
-  [5587] = 5580,
+  [5587] = 5587,
   [5588] = 5588,
   [5589] = 5589,
   [5590] = 5590,
   [5591] = 5591,
   [5592] = 5592,
-  [5593] = 5573,
-  [5594] = 5594,
-  [5595] = 5595,
+  [5593] = 5593,
+  [5594] = 5578,
+  [5595] = 5593,
   [5596] = 5596,
   [5597] = 5597,
   [5598] = 5598,
@@ -11149,80 +11143,80 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5603] = 5603,
   [5604] = 5604,
   [5605] = 5605,
-  [5606] = 5573,
-  [5607] = 5581,
+  [5606] = 5592,
+  [5607] = 5607,
   [5608] = 5608,
-  [5609] = 5609,
-  [5610] = 5610,
-  [5611] = 5596,
-  [5612] = 5602,
-  [5613] = 5604,
-  [5614] = 5614,
+  [5609] = 5586,
+  [5610] = 5573,
+  [5611] = 5611,
+  [5612] = 5612,
+  [5613] = 5587,
+  [5614] = 5578,
   [5615] = 5615,
   [5616] = 5616,
-  [5617] = 5594,
-  [5618] = 5581,
-  [5619] = 5599,
-  [5620] = 5616,
+  [5617] = 5596,
+  [5618] = 5618,
+  [5619] = 5587,
+  [5620] = 5592,
   [5621] = 5621,
   [5622] = 5622,
-  [5623] = 5615,
+  [5623] = 5623,
   [5624] = 5624,
-  [5625] = 5580,
-  [5626] = 5626,
+  [5625] = 5588,
+  [5626] = 5596,
   [5627] = 5627,
-  [5628] = 5628,
+  [5628] = 5585,
   [5629] = 5629,
-  [5630] = 5588,
-  [5631] = 5621,
-  [5632] = 5632,
-  [5633] = 5604,
-  [5634] = 5579,
-  [5635] = 5635,
-  [5636] = 5596,
-  [5637] = 5616,
-  [5638] = 5579,
-  [5639] = 5639,
-  [5640] = 5599,
-  [5641] = 5594,
-  [5642] = 5602,
-  [5643] = 5621,
-  [5644] = 5644,
+  [5630] = 5630,
+  [5631] = 5631,
+  [5632] = 5573,
+  [5633] = 5588,
+  [5634] = 5634,
+  [5635] = 5593,
+  [5636] = 5608,
+  [5637] = 5637,
+  [5638] = 5607,
+  [5639] = 5603,
+  [5640] = 5608,
+  [5641] = 5604,
+  [5642] = 5607,
+  [5643] = 5603,
+  [5644] = 5585,
   [5645] = 5645,
-  [5646] = 5583,
-  [5647] = 5647,
-  [5648] = 5615,
-  [5649] = 5588,
+  [5646] = 5604,
+  [5647] = 5575,
+  [5648] = 5586,
+  [5649] = 5649,
   [5650] = 5650,
-  [5651] = 1125,
+  [5651] = 5651,
   [5652] = 5652,
   [5653] = 5653,
   [5654] = 5654,
-  [5655] = 5655,
-  [5656] = 5656,
-  [5657] = 5657,
+  [5655] = 1136,
+  [5656] = 1131,
+  [5657] = 1149,
   [5658] = 5658,
   [5659] = 5659,
-  [5660] = 5660,
+  [5660] = 1125,
   [5661] = 5661,
-  [5662] = 5662,
-  [5663] = 1155,
-  [5664] = 1122,
-  [5665] = 1140,
-  [5666] = 1132,
-  [5667] = 1141,
+  [5662] = 1139,
+  [5663] = 1134,
+  [5664] = 1151,
+  [5665] = 5665,
+  [5666] = 1148,
+  [5667] = 5667,
   [5668] = 5668,
-  [5669] = 1133,
-  [5670] = 1143,
+  [5669] = 5669,
+  [5670] = 5670,
   [5671] = 5671,
   [5672] = 5672,
   [5673] = 5673,
   [5674] = 5674,
-  [5675] = 5662,
-  [5676] = 5676,
+  [5675] = 5675,
+  [5676] = 5674,
   [5677] = 5677,
   [5678] = 5678,
-  [5679] = 5654,
+  [5679] = 5672,
   [5680] = 5680,
   [5681] = 5681,
   [5682] = 5682,
@@ -11237,52 +11231,52 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5691] = 5691,
   [5692] = 5692,
   [5693] = 5693,
-  [5694] = 5694,
+  [5694] = 5693,
   [5695] = 5695,
   [5696] = 5696,
   [5697] = 5697,
-  [5698] = 5698,
+  [5698] = 5696,
   [5699] = 5699,
   [5700] = 5700,
   [5701] = 5701,
-  [5702] = 5690,
+  [5702] = 5702,
   [5703] = 5703,
-  [5704] = 5704,
-  [5705] = 5694,
+  [5704] = 5696,
+  [5705] = 5705,
   [5706] = 5706,
   [5707] = 5707,
   [5708] = 5708,
-  [5709] = 5685,
+  [5709] = 5700,
   [5710] = 5710,
   [5711] = 5711,
-  [5712] = 5690,
+  [5712] = 5712,
   [5713] = 5713,
   [5714] = 5714,
-  [5715] = 5683,
+  [5715] = 5700,
   [5716] = 5716,
   [5717] = 5717,
   [5718] = 5718,
-  [5719] = 5683,
+  [5719] = 5719,
   [5720] = 5720,
-  [5721] = 5721,
-  [5722] = 5722,
+  [5721] = 5680,
+  [5722] = 5712,
   [5723] = 5723,
-  [5724] = 5676,
+  [5724] = 5724,
   [5725] = 5725,
   [5726] = 5726,
-  [5727] = 5727,
-  [5728] = 5687,
+  [5727] = 5712,
+  [5728] = 5713,
   [5729] = 5729,
-  [5730] = 5730,
+  [5730] = 5713,
   [5731] = 5731,
-  [5732] = 5698,
+  [5732] = 5693,
   [5733] = 5733,
-  [5734] = 5687,
-  [5735] = 5735,
-  [5736] = 5694,
-  [5737] = 5698,
+  [5734] = 5680,
+  [5735] = 5677,
+  [5736] = 5736,
+  [5737] = 5737,
   [5738] = 5738,
-  [5739] = 5685,
+  [5739] = 5739,
   [5740] = 5740,
   [5741] = 5741,
   [5742] = 5742,
@@ -11322,222 +11316,222 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [5776] = 5776,
   [5777] = 5769,
   [5778] = 5778,
-  [5779] = 5779,
-  [5780] = 5771,
-  [5781] = 5781,
+  [5779] = 5776,
+  [5780] = 5780,
+  [5781] = 5775,
   [5782] = 5782,
-  [5783] = 5778,
+  [5783] = 5783,
   [5784] = 5784,
   [5785] = 5785,
-  [5786] = 5786,
+  [5786] = 5783,
   [5787] = 5787,
-  [5788] = 5787,
+  [5788] = 5788,
   [5789] = 5789,
   [5790] = 5790,
   [5791] = 5791,
-  [5792] = 5791,
+  [5792] = 5792,
   [5793] = 5793,
-  [5794] = 5785,
-  [5795] = 5786,
-  [5796] = 5787,
-  [5797] = 5790,
-  [5798] = 5798,
-  [5799] = 5791,
-  [5800] = 5787,
-  [5801] = 5793,
-  [5802] = 5785,
+  [5794] = 5794,
+  [5795] = 5795,
+  [5796] = 5796,
+  [5797] = 5797,
+  [5798] = 5784,
+  [5799] = 5799,
+  [5800] = 5800,
+  [5801] = 5787,
+  [5802] = 5795,
   [5803] = 5803,
-  [5804] = 5786,
-  [5805] = 5790,
-  [5806] = 5787,
-  [5807] = 5790,
-  [5808] = 5791,
-  [5809] = 5787,
-  [5810] = 5793,
-  [5811] = 5785,
-  [5812] = 5791,
-  [5813] = 5813,
-  [5814] = 5790,
-  [5815] = 5793,
-  [5816] = 5785,
+  [5804] = 5804,
+  [5805] = 5805,
+  [5806] = 5806,
+  [5807] = 5807,
+  [5808] = 5808,
+  [5809] = 5809,
+  [5810] = 5810,
+  [5811] = 5811,
+  [5812] = 5787,
+  [5813] = 5793,
+  [5814] = 5814,
+  [5815] = 5790,
+  [5816] = 5795,
   [5817] = 5817,
-  [5818] = 5818,
-  [5819] = 5819,
-  [5820] = 5820,
-  [5821] = 5821,
+  [5818] = 5789,
+  [5819] = 5796,
+  [5820] = 5787,
+  [5821] = 5784,
   [5822] = 5822,
-  [5823] = 5790,
+  [5823] = 5823,
   [5824] = 5793,
-  [5825] = 5825,
-  [5826] = 5813,
-  [5827] = 5827,
-  [5828] = 5828,
-  [5829] = 5786,
+  [5825] = 5795,
+  [5826] = 5790,
+  [5827] = 5790,
+  [5828] = 5793,
+  [5829] = 5789,
   [5830] = 5830,
-  [5831] = 5831,
-  [5832] = 5791,
-  [5833] = 5787,
-  [5834] = 5825,
+  [5831] = 5789,
+  [5832] = 5793,
+  [5833] = 5833,
+  [5834] = 5834,
   [5835] = 5835,
-  [5836] = 5790,
-  [5837] = 5837,
-  [5838] = 5817,
-  [5839] = 5793,
-  [5840] = 5793,
+  [5836] = 5787,
+  [5837] = 5784,
+  [5838] = 5789,
+  [5839] = 5839,
+  [5840] = 5840,
   [5841] = 5841,
-  [5842] = 5842,
-  [5843] = 5843,
-  [5844] = 5844,
-  [5845] = 5786,
-  [5846] = 5787,
-  [5847] = 5791,
-  [5848] = 5793,
-  [5849] = 5785,
-  [5850] = 5785,
-  [5851] = 5790,
+  [5842] = 5795,
+  [5843] = 5787,
+  [5844] = 5787,
+  [5845] = 5787,
+  [5846] = 5846,
+  [5847] = 5847,
+  [5848] = 5795,
+  [5849] = 5787,
+  [5850] = 5850,
+  [5851] = 5851,
   [5852] = 5852,
   [5853] = 5853,
-  [5854] = 5854,
-  [5855] = 5791,
-  [5856] = 5856,
-  [5857] = 5790,
+  [5854] = 5789,
+  [5855] = 5784,
+  [5856] = 5790,
+  [5857] = 5793,
   [5858] = 5858,
-  [5859] = 5793,
-  [5860] = 5785,
-  [5861] = 5861,
-  [5862] = 5862,
-  [5863] = 5784,
-  [5864] = 5864,
-  [5865] = 5865,
-  [5866] = 5866,
-  [5867] = 5867,
+  [5859] = 5859,
+  [5860] = 5860,
+  [5861] = 5784,
+  [5862] = 5789,
+  [5863] = 5863,
+  [5864] = 5822,
+  [5865] = 5841,
+  [5866] = 5790,
+  [5867] = 5790,
   [5868] = 5868,
-  [5869] = 5869,
-  [5870] = 5870,
-  [5871] = 5871,
-  [5872] = 5872,
-  [5873] = 5873,
-  [5874] = 5842,
-  [5875] = 5786,
-  [5876] = 5785,
-  [5877] = 5791,
-  [5878] = 5793,
-  [5879] = 5827,
-  [5880] = 5817,
-  [5881] = 5786,
-  [5882] = 5882,
+  [5869] = 5793,
+  [5870] = 5793,
+  [5871] = 5793,
+  [5872] = 5790,
+  [5873] = 5789,
+  [5874] = 5784,
+  [5875] = 5787,
+  [5876] = 5805,
+  [5877] = 5790,
+  [5878] = 5784,
+  [5879] = 5805,
+  [5880] = 5880,
+  [5881] = 4688,
+  [5882] = 5795,
   [5883] = 5787,
-  [5884] = 5884,
-  [5885] = 5885,
-  [5886] = 5886,
-  [5887] = 5785,
-  [5888] = 5787,
-  [5889] = 5786,
-  [5890] = 5861,
-  [5891] = 5793,
-  [5892] = 5790,
-  [5893] = 5786,
-  [5894] = 5787,
-  [5895] = 5827,
-  [5896] = 5827,
-  [5897] = 5791,
-  [5898] = 5793,
-  [5899] = 5785,
-  [5900] = 5900,
+  [5884] = 5841,
+  [5885] = 5795,
+  [5886] = 5791,
+  [5887] = 5795,
+  [5888] = 5784,
+  [5889] = 5889,
+  [5890] = 5787,
+  [5891] = 5783,
+  [5892] = 5784,
+  [5893] = 5893,
+  [5894] = 5795,
+  [5895] = 5784,
+  [5896] = 5793,
+  [5897] = 5789,
+  [5898] = 5787,
+  [5899] = 5790,
+  [5900] = 5784,
   [5901] = 5790,
-  [5902] = 5868,
-  [5903] = 5791,
-  [5904] = 5791,
-  [5905] = 5793,
-  [5906] = 5785,
-  [5907] = 5907,
-  [5908] = 5825,
-  [5909] = 5884,
-  [5910] = 5910,
-  [5911] = 5911,
-  [5912] = 5912,
-  [5913] = 5913,
-  [5914] = 5914,
-  [5915] = 5785,
-  [5916] = 5861,
-  [5917] = 5787,
-  [5918] = 5918,
-  [5919] = 5884,
-  [5920] = 5920,
+  [5902] = 5902,
+  [5903] = 5784,
+  [5904] = 5904,
+  [5905] = 5789,
+  [5906] = 5797,
+  [5907] = 5793,
+  [5908] = 5803,
+  [5909] = 5795,
+  [5910] = 5790,
+  [5911] = 5822,
+  [5912] = 5790,
+  [5913] = 5784,
+  [5914] = 5793,
+  [5915] = 5793,
+  [5916] = 5793,
+  [5917] = 5822,
+  [5918] = 5789,
+  [5919] = 5789,
+  [5920] = 5790,
   [5921] = 5921,
-  [5922] = 5790,
-  [5923] = 5923,
-  [5924] = 5786,
-  [5925] = 5925,
-  [5926] = 5813,
-  [5927] = 5786,
+  [5922] = 5796,
+  [5923] = 5904,
+  [5924] = 5924,
+  [5925] = 5795,
+  [5926] = 5793,
+  [5927] = 5927,
   [5928] = 5787,
-  [5929] = 5785,
-  [5930] = 5790,
-  [5931] = 5787,
-  [5932] = 5791,
-  [5933] = 5933,
-  [5934] = 5787,
-  [5935] = 5790,
-  [5936] = 5936,
-  [5937] = 5793,
-  [5938] = 5790,
-  [5939] = 5939,
-  [5940] = 5791,
-  [5941] = 5793,
-  [5942] = 5785,
-  [5943] = 4702,
-  [5944] = 5944,
-  [5945] = 5785,
-  [5946] = 5786,
-  [5947] = 5842,
-  [5948] = 5786,
-  [5949] = 5787,
-  [5950] = 5950,
-  [5951] = 5790,
-  [5952] = 5842,
-  [5953] = 5953,
-  [5954] = 5791,
-  [5955] = 5793,
-  [5956] = 5821,
-  [5957] = 5785,
-  [5958] = 5958,
-  [5959] = 5825,
-  [5960] = 5786,
-  [5961] = 5953,
-  [5962] = 5953,
-  [5963] = 5963,
-  [5964] = 5787,
-  [5965] = 5790,
-  [5966] = 5817,
-  [5967] = 5791,
-  [5968] = 5793,
-  [5969] = 5785,
-  [5970] = 5786,
-  [5971] = 5786,
-  [5972] = 5923,
-  [5973] = 5786,
-  [5974] = 5791,
-  [5975] = 5786,
+  [5929] = 5929,
+  [5930] = 5930,
+  [5931] = 5803,
+  [5932] = 5784,
+  [5933] = 5783,
+  [5934] = 5797,
+  [5935] = 5784,
+  [5936] = 5787,
+  [5937] = 5790,
+  [5938] = 5789,
+  [5939] = 5793,
+  [5940] = 5940,
+  [5941] = 5790,
+  [5942] = 5789,
+  [5943] = 5795,
+  [5944] = 5790,
+  [5945] = 5787,
+  [5946] = 5793,
+  [5947] = 5797,
+  [5948] = 5948,
+  [5949] = 5806,
+  [5950] = 5790,
+  [5951] = 5951,
+  [5952] = 5952,
+  [5953] = 5804,
+  [5954] = 5954,
+  [5955] = 5784,
+  [5956] = 5956,
+  [5957] = 5789,
+  [5958] = 5793,
+  [5959] = 5841,
+  [5960] = 5789,
+  [5961] = 5961,
+  [5962] = 5795,
+  [5963] = 5784,
+  [5964] = 5784,
+  [5965] = 5965,
+  [5966] = 5787,
+  [5967] = 5787,
+  [5968] = 5787,
+  [5969] = 5789,
+  [5970] = 5791,
+  [5971] = 5971,
+  [5972] = 5972,
+  [5973] = 5795,
+  [5974] = 5803,
+  [5975] = 5789,
   [5976] = 5976,
-  [5977] = 5787,
-  [5978] = 5790,
-  [5979] = 5786,
-  [5980] = 5980,
-  [5981] = 5884,
-  [5982] = 5787,
-  [5983] = 5791,
-  [5984] = 5861,
-  [5985] = 5790,
-  [5986] = 5793,
-  [5987] = 5980,
-  [5988] = 5785,
-  [5989] = 5793,
-  [5990] = 5864,
+  [5977] = 5977,
+  [5978] = 5805,
+  [5979] = 5979,
+  [5980] = 5795,
+  [5981] = 5789,
+  [5982] = 5796,
+  [5983] = 5790,
+  [5984] = 5793,
+  [5985] = 5977,
+  [5986] = 5795,
+  [5987] = 5795,
+  [5988] = 5791,
+  [5989] = 5921,
+  [5990] = 5924,
   [5991] = 5991,
-  [5992] = 5813,
-  [5993] = 5791,
-  [5994] = 5953,
+  [5992] = 5795,
+  [5993] = 5993,
+  [5994] = 5994,
   [5995] = 5995,
   [5996] = 5996,
   [5997] = 5997,
@@ -11563,436 +11557,436 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6017] = 6017,
   [6018] = 6018,
   [6019] = 6019,
-  [6020] = 3357,
-  [6021] = 3350,
+  [6020] = 6020,
+  [6021] = 6021,
   [6022] = 6022,
   [6023] = 6023,
   [6024] = 6024,
   [6025] = 6025,
   [6026] = 6026,
-  [6027] = 6027,
+  [6027] = 3352,
   [6028] = 6028,
   [6029] = 6029,
-  [6030] = 6030,
+  [6030] = 3350,
   [6031] = 6031,
   [6032] = 6032,
   [6033] = 6033,
   [6034] = 6034,
   [6035] = 6035,
   [6036] = 6036,
-  [6037] = 6036,
-  [6038] = 3178,
-  [6039] = 6039,
-  [6040] = 6036,
-  [6041] = 6039,
-  [6042] = 6039,
-  [6043] = 6043,
-  [6044] = 6039,
-  [6045] = 6036,
-  [6046] = 815,
-  [6047] = 6039,
-  [6048] = 6036,
-  [6049] = 5326,
-  [6050] = 6039,
-  [6051] = 6036,
-  [6052] = 816,
-  [6053] = 6039,
-  [6054] = 6036,
-  [6055] = 6055,
-  [6056] = 6039,
-  [6057] = 6036,
-  [6058] = 6039,
+  [6037] = 6037,
+  [6038] = 6038,
+  [6039] = 6035,
+  [6040] = 6040,
+  [6041] = 6036,
+  [6042] = 6036,
+  [6043] = 6036,
+  [6044] = 6035,
+  [6045] = 6045,
+  [6046] = 6036,
+  [6047] = 6036,
+  [6048] = 821,
+  [6049] = 6035,
+  [6050] = 6050,
+  [6051] = 6035,
+  [6052] = 6036,
+  [6053] = 825,
+  [6054] = 826,
+  [6055] = 835,
+  [6056] = 829,
+  [6057] = 6057,
+  [6058] = 6035,
   [6059] = 6059,
-  [6060] = 6036,
-  [6061] = 817,
-  [6062] = 6036,
-  [6063] = 6063,
-  [6064] = 6036,
-  [6065] = 6065,
-  [6066] = 6039,
-  [6067] = 6067,
-  [6068] = 818,
-  [6069] = 6069,
-  [6070] = 6036,
-  [6071] = 6071,
-  [6072] = 6072,
-  [6073] = 6039,
-  [6074] = 6036,
-  [6075] = 819,
-  [6076] = 6076,
-  [6077] = 6039,
-  [6078] = 6039,
+  [6060] = 6060,
+  [6061] = 6061,
+  [6062] = 6035,
+  [6063] = 6035,
+  [6064] = 6064,
+  [6065] = 6036,
+  [6066] = 6036,
+  [6067] = 3178,
+  [6068] = 6035,
+  [6069] = 6035,
+  [6070] = 6035,
+  [6071] = 6036,
+  [6072] = 6036,
+  [6073] = 6036,
+  [6074] = 5321,
+  [6075] = 6035,
+  [6076] = 6036,
+  [6077] = 6035,
+  [6078] = 6078,
   [6079] = 6079,
   [6080] = 6080,
   [6081] = 6081,
   [6082] = 6082,
   [6083] = 6083,
   [6084] = 6084,
-  [6085] = 6081,
+  [6085] = 6085,
   [6086] = 6086,
-  [6087] = 6079,
-  [6088] = 6088,
-  [6089] = 6088,
-  [6090] = 6090,
+  [6087] = 6087,
+  [6088] = 6079,
+  [6089] = 6089,
+  [6090] = 6080,
   [6091] = 6091,
-  [6092] = 6092,
-  [6093] = 6093,
+  [6092] = 6091,
+  [6093] = 6084,
   [6094] = 6094,
   [6095] = 6095,
-  [6096] = 6081,
-  [6097] = 6097,
-  [6098] = 6082,
-  [6099] = 6079,
-  [6100] = 6088,
-  [6101] = 6088,
-  [6102] = 6094,
-  [6103] = 6083,
-  [6104] = 6104,
+  [6096] = 6086,
+  [6097] = 6094,
+  [6098] = 6098,
+  [6099] = 6099,
+  [6100] = 6100,
+  [6101] = 6087,
+  [6102] = 6083,
+  [6103] = 6087,
+  [6104] = 6095,
   [6105] = 6094,
-  [6106] = 6095,
-  [6107] = 6107,
+  [6106] = 6086,
+  [6107] = 6081,
   [6108] = 6108,
-  [6109] = 6095,
+  [6109] = 6109,
   [6110] = 6110,
-  [6111] = 6111,
-  [6112] = 6112,
-  [6113] = 6113,
-  [6114] = 6092,
-  [6115] = 6115,
-  [6116] = 1537,
-  [6117] = 6092,
-  [6118] = 6118,
-  [6119] = 6119,
-  [6120] = 6093,
-  [6121] = 6121,
-  [6122] = 6122,
-  [6123] = 6092,
-  [6124] = 6093,
-  [6125] = 6081,
-  [6126] = 6093,
-  [6127] = 6092,
-  [6128] = 6082,
-  [6129] = 6079,
-  [6130] = 6093,
-  [6131] = 6088,
-  [6132] = 5335,
-  [6133] = 6094,
-  [6134] = 6083,
-  [6135] = 6092,
-  [6136] = 6093,
-  [6137] = 6095,
-  [6138] = 6093,
-  [6139] = 6111,
-  [6140] = 6140,
-  [6141] = 6141,
-  [6142] = 6110,
+  [6111] = 6079,
+  [6112] = 6082,
+  [6113] = 6079,
+  [6114] = 6084,
+  [6115] = 6095,
+  [6116] = 6087,
+  [6117] = 6087,
+  [6118] = 6083,
+  [6119] = 6100,
+  [6120] = 6083,
+  [6121] = 6100,
+  [6122] = 6085,
+  [6123] = 6084,
+  [6124] = 6083,
+  [6125] = 6125,
+  [6126] = 6094,
+  [6127] = 6127,
+  [6128] = 6095,
+  [6129] = 6129,
+  [6130] = 6079,
+  [6131] = 6083,
+  [6132] = 6132,
+  [6133] = 6098,
+  [6134] = 6080,
+  [6135] = 6085,
+  [6136] = 6085,
+  [6137] = 6080,
+  [6138] = 1366,
+  [6139] = 6139,
+  [6140] = 6083,
+  [6141] = 6080,
+  [6142] = 6142,
   [6143] = 6143,
-  [6144] = 6081,
-  [6145] = 6082,
-  [6146] = 6079,
-  [6147] = 6088,
-  [6148] = 6081,
+  [6144] = 6144,
+  [6145] = 6145,
+  [6146] = 6146,
+  [6147] = 6100,
+  [6148] = 6095,
   [6149] = 6094,
-  [6150] = 6095,
-  [6151] = 6082,
-  [6152] = 6088,
-  [6153] = 6153,
-  [6154] = 6083,
-  [6155] = 6094,
-  [6156] = 6156,
-  [6157] = 6157,
-  [6158] = 6094,
-  [6159] = 6095,
-  [6160] = 6160,
-  [6161] = 6111,
-  [6162] = 6092,
-  [6163] = 6090,
+  [6150] = 6085,
+  [6151] = 6086,
+  [6152] = 6100,
+  [6153] = 6083,
+  [6154] = 6079,
+  [6155] = 6100,
+  [6156] = 6094,
+  [6157] = 6084,
+  [6158] = 6095,
+  [6159] = 6110,
+  [6160] = 6080,
+  [6161] = 6161,
+  [6162] = 6095,
+  [6163] = 6085,
   [6164] = 6164,
-  [6165] = 6165,
+  [6165] = 1739,
   [6166] = 6166,
-  [6167] = 6081,
-  [6168] = 6082,
-  [6169] = 6169,
-  [6170] = 6079,
-  [6171] = 6083,
-  [6172] = 6172,
-  [6173] = 6173,
-  [6174] = 6088,
-  [6175] = 6111,
-  [6176] = 6176,
-  [6177] = 6177,
-  [6178] = 6178,
-  [6179] = 6092,
-  [6180] = 6093,
-  [6181] = 6095,
-  [6182] = 6092,
-  [6183] = 6083,
-  [6184] = 6093,
-  [6185] = 6111,
-  [6186] = 6112,
-  [6187] = 6092,
-  [6188] = 6092,
-  [6189] = 6081,
-  [6190] = 6083,
-  [6191] = 6093,
-  [6192] = 6082,
-  [6193] = 6111,
-  [6194] = 6093,
+  [6167] = 6167,
+  [6168] = 6109,
+  [6169] = 6079,
+  [6170] = 6080,
+  [6171] = 6171,
+  [6172] = 6129,
+  [6173] = 6127,
+  [6174] = 6095,
+  [6175] = 6146,
+  [6176] = 6086,
+  [6177] = 6108,
+  [6178] = 6139,
+  [6179] = 6080,
+  [6180] = 6085,
+  [6181] = 6084,
+  [6182] = 6079,
+  [6183] = 6167,
+  [6184] = 6132,
+  [6185] = 6144,
+  [6186] = 6087,
+  [6187] = 6187,
+  [6188] = 6188,
+  [6189] = 6189,
+  [6190] = 6190,
+  [6191] = 6191,
+  [6192] = 5336,
+  [6193] = 6099,
+  [6194] = 6194,
   [6195] = 6195,
-  [6196] = 6079,
-  [6197] = 6081,
-  [6198] = 6082,
-  [6199] = 6088,
-  [6200] = 6083,
-  [6201] = 6079,
-  [6202] = 6088,
+  [6196] = 3693,
+  [6197] = 6197,
+  [6198] = 6085,
+  [6199] = 6086,
+  [6200] = 6080,
+  [6201] = 6086,
+  [6202] = 6086,
   [6203] = 6095,
-  [6204] = 6111,
-  [6205] = 6115,
+  [6204] = 6084,
+  [6205] = 6100,
   [6206] = 6094,
-  [6207] = 6094,
-  [6208] = 6095,
-  [6209] = 6095,
-  [6210] = 6083,
-  [6211] = 6211,
-  [6212] = 6111,
-  [6213] = 6118,
-  [6214] = 6214,
+  [6207] = 6207,
+  [6208] = 6083,
+  [6209] = 6142,
+  [6210] = 6094,
+  [6211] = 6100,
+  [6212] = 6084,
+  [6213] = 6213,
+  [6214] = 6084,
   [6215] = 6094,
-  [6216] = 6095,
-  [6217] = 6083,
-  [6218] = 6104,
-  [6219] = 6111,
-  [6220] = 6220,
-  [6221] = 6221,
-  [6222] = 6220,
-  [6223] = 6083,
-  [6224] = 6224,
-  [6225] = 6111,
-  [6226] = 6226,
-  [6227] = 6092,
+  [6216] = 6086,
+  [6217] = 6084,
+  [6218] = 6084,
+  [6219] = 6219,
+  [6220] = 6145,
+  [6221] = 6087,
+  [6222] = 6083,
+  [6223] = 6086,
+  [6224] = 6083,
+  [6225] = 6189,
+  [6226] = 6081,
+  [6227] = 6082,
   [6228] = 6083,
-  [6229] = 6169,
-  [6230] = 6230,
-  [6231] = 6111,
-  [6232] = 6092,
-  [6233] = 6092,
-  [6234] = 6093,
-  [6235] = 6195,
-  [6236] = 6083,
-  [6237] = 6093,
-  [6238] = 6081,
-  [6239] = 6111,
-  [6240] = 6081,
-  [6241] = 6082,
-  [6242] = 6079,
-  [6243] = 6088,
-  [6244] = 6094,
-  [6245] = 6095,
-  [6246] = 6246,
-  [6247] = 6247,
-  [6248] = 6177,
-  [6249] = 6249,
-  [6250] = 6081,
-  [6251] = 6111,
-  [6252] = 6082,
-  [6253] = 6079,
-  [6254] = 6088,
-  [6255] = 6140,
-  [6256] = 6160,
-  [6257] = 6081,
-  [6258] = 6258,
-  [6259] = 6082,
-  [6260] = 6079,
-  [6261] = 6088,
+  [6229] = 6100,
+  [6230] = 6095,
+  [6231] = 6231,
+  [6232] = 6079,
+  [6233] = 6233,
+  [6234] = 6084,
+  [6235] = 6235,
+  [6236] = 6080,
+  [6237] = 6089,
+  [6238] = 6099,
+  [6239] = 6100,
+  [6240] = 6240,
+  [6241] = 6079,
+  [6242] = 6086,
+  [6243] = 6243,
+  [6244] = 6095,
+  [6245] = 6094,
+  [6246] = 6085,
+  [6247] = 6087,
+  [6248] = 6080,
+  [6249] = 6087,
+  [6250] = 6079,
+  [6251] = 6079,
+  [6252] = 6095,
+  [6253] = 6100,
+  [6254] = 6083,
+  [6255] = 6098,
+  [6256] = 6094,
+  [6257] = 6085,
+  [6258] = 6079,
+  [6259] = 3727,
+  [6260] = 6094,
+  [6261] = 6261,
   [6262] = 6262,
-  [6263] = 6097,
-  [6264] = 6094,
-  [6265] = 6095,
-  [6266] = 6082,
-  [6267] = 6267,
-  [6268] = 6082,
-  [6269] = 6079,
-  [6270] = 6088,
-  [6271] = 6093,
-  [6272] = 6082,
-  [6273] = 6092,
-  [6274] = 6093,
-  [6275] = 6079,
-  [6276] = 6094,
-  [6277] = 6095,
-  [6278] = 3632,
-  [6279] = 3728,
-  [6280] = 1726,
-  [6281] = 6081,
-  [6282] = 6082,
-  [6283] = 6230,
-  [6284] = 6079,
-  [6285] = 6247,
-  [6286] = 6088,
-  [6287] = 6166,
-  [6288] = 6172,
-  [6289] = 6094,
-  [6290] = 6249,
-  [6291] = 6094,
-  [6292] = 6095,
-  [6293] = 6080,
-  [6294] = 6247,
-  [6295] = 6160,
-  [6296] = 6249,
-  [6297] = 6081,
-  [6298] = 6141,
-  [6299] = 6086,
-  [6300] = 3744,
-  [6301] = 6301,
-  [6302] = 6176,
-  [6303] = 6258,
-  [6304] = 6211,
-  [6305] = 6178,
-  [6306] = 6079,
-  [6307] = 6258,
-  [6308] = 4400,
+  [6263] = 6085,
+  [6264] = 6264,
+  [6265] = 6100,
+  [6266] = 6087,
+  [6267] = 6087,
+  [6268] = 6268,
+  [6269] = 6269,
+  [6270] = 6094,
+  [6271] = 6086,
+  [6272] = 3694,
+  [6273] = 6086,
+  [6274] = 6094,
+  [6275] = 6188,
+  [6276] = 6084,
+  [6277] = 6187,
+  [6278] = 6079,
+  [6279] = 6095,
+  [6280] = 6240,
+  [6281] = 6095,
+  [6282] = 6080,
+  [6283] = 6085,
+  [6284] = 6100,
+  [6285] = 6100,
+  [6286] = 6080,
+  [6287] = 6085,
+  [6288] = 6171,
+  [6289] = 6083,
+  [6290] = 6290,
+  [6291] = 6095,
+  [6292] = 6085,
+  [6293] = 6087,
+  [6294] = 6294,
+  [6295] = 6080,
+  [6296] = 6087,
+  [6297] = 6094,
+  [6298] = 6143,
+  [6299] = 6235,
+  [6300] = 6086,
+  [6301] = 6079,
+  [6302] = 6083,
+  [6303] = 6086,
+  [6304] = 6085,
+  [6305] = 6080,
+  [6306] = 6100,
+  [6307] = 6307,
+  [6308] = 6308,
   [6309] = 6309,
   [6310] = 6310,
-  [6311] = 5340,
-  [6312] = 6312,
+  [6311] = 6307,
+  [6312] = 6308,
   [6313] = 6313,
   [6314] = 6314,
-  [6315] = 6315,
-  [6316] = 6316,
+  [6315] = 4041,
+  [6316] = 6308,
   [6317] = 6317,
-  [6318] = 6318,
-  [6319] = 6319,
-  [6320] = 6320,
-  [6321] = 6221,
-  [6322] = 6310,
-  [6323] = 6224,
+  [6318] = 6308,
+  [6319] = 6308,
+  [6320] = 6308,
+  [6321] = 6321,
+  [6322] = 6322,
+  [6323] = 6307,
   [6324] = 6324,
-  [6325] = 6325,
-  [6326] = 6310,
-  [6327] = 6310,
-  [6328] = 6310,
-  [6329] = 4363,
-  [6330] = 6330,
-  [6331] = 6310,
-  [6332] = 6310,
-  [6333] = 6310,
-  [6334] = 6310,
-  [6335] = 6310,
-  [6336] = 6310,
-  [6337] = 6310,
-  [6338] = 6310,
+  [6325] = 6308,
+  [6326] = 6191,
+  [6327] = 6327,
+  [6328] = 6328,
+  [6329] = 4384,
+  [6330] = 6308,
+  [6331] = 5337,
+  [6332] = 6332,
+  [6333] = 6333,
+  [6334] = 6078,
+  [6335] = 6308,
+  [6336] = 6336,
+  [6337] = 6337,
+  [6338] = 6338,
   [6339] = 6339,
-  [6340] = 6340,
-  [6341] = 6341,
-  [6342] = 6310,
-  [6343] = 3403,
+  [6340] = 6308,
+  [6341] = 6190,
+  [6342] = 6308,
+  [6343] = 6343,
   [6344] = 6344,
   [6345] = 6345,
-  [6346] = 6310,
-  [6347] = 6084,
-  [6348] = 5341,
-  [6349] = 6310,
-  [6350] = 6350,
-  [6351] = 5339,
-  [6352] = 6310,
-  [6353] = 6310,
-  [6354] = 5349,
+  [6346] = 6308,
+  [6347] = 6308,
+  [6348] = 6307,
+  [6349] = 5345,
+  [6350] = 6308,
+  [6351] = 6308,
+  [6352] = 6352,
+  [6353] = 6353,
+  [6354] = 6354,
   [6355] = 6355,
-  [6356] = 6310,
-  [6357] = 6164,
-  [6358] = 6358,
-  [6359] = 6310,
-  [6360] = 6310,
-  [6361] = 6310,
-  [6362] = 4384,
-  [6363] = 6246,
-  [6364] = 6364,
+  [6356] = 6308,
+  [6357] = 6357,
+  [6358] = 6308,
+  [6359] = 6308,
+  [6360] = 6360,
+  [6361] = 6361,
+  [6362] = 6308,
+  [6363] = 6308,
+  [6364] = 6308,
   [6365] = 6365,
   [6366] = 6366,
   [6367] = 6367,
-  [6368] = 6310,
-  [6369] = 6310,
+  [6368] = 6368,
+  [6369] = 6308,
   [6370] = 6370,
-  [6371] = 6310,
+  [6371] = 6371,
   [6372] = 6372,
-  [6373] = 6310,
-  [6374] = 6310,
+  [6373] = 4391,
+  [6374] = 6374,
   [6375] = 6375,
-  [6376] = 6376,
-  [6377] = 6143,
+  [6376] = 6308,
+  [6377] = 6161,
   [6378] = 6378,
-  [6379] = 6310,
-  [6380] = 6267,
-  [6381] = 6165,
-  [6382] = 6310,
+  [6379] = 6379,
+  [6380] = 6308,
+  [6381] = 6381,
+  [6382] = 6308,
   [6383] = 6383,
   [6384] = 6384,
-  [6385] = 6385,
-  [6386] = 6310,
-  [6387] = 6387,
-  [6388] = 6388,
+  [6385] = 6308,
+  [6386] = 3178,
+  [6387] = 4382,
+  [6388] = 6308,
   [6389] = 6389,
-  [6390] = 6390,
-  [6391] = 6391,
-  [6392] = 3386,
-  [6393] = 6393,
-  [6394] = 6310,
-  [6395] = 6310,
-  [6396] = 6310,
-  [6397] = 6310,
+  [6390] = 6308,
+  [6391] = 4387,
+  [6392] = 6392,
+  [6393] = 6308,
+  [6394] = 6394,
+  [6395] = 6308,
+  [6396] = 6396,
+  [6397] = 6308,
   [6398] = 6398,
-  [6399] = 6399,
-  [6400] = 6310,
-  [6401] = 4387,
-  [6402] = 6402,
-  [6403] = 6310,
-  [6404] = 6404,
-  [6405] = 6310,
-  [6406] = 6406,
-  [6407] = 6310,
-  [6408] = 6310,
-  [6409] = 4058,
-  [6410] = 6410,
-  [6411] = 5343,
-  [6412] = 4388,
-  [6413] = 6317,
-  [6414] = 3178,
+  [6399] = 6308,
+  [6400] = 4399,
+  [6401] = 6308,
+  [6402] = 5343,
+  [6403] = 6403,
+  [6404] = 4428,
+  [6405] = 6405,
+  [6406] = 6308,
+  [6407] = 5347,
+  [6408] = 6308,
+  [6409] = 6166,
+  [6410] = 4429,
+  [6411] = 6308,
+  [6412] = 6308,
+  [6413] = 6413,
+  [6414] = 6414,
   [6415] = 6415,
   [6416] = 6416,
-  [6417] = 6310,
-  [6418] = 6418,
-  [6419] = 6156,
-  [6420] = 6420,
-  [6421] = 6421,
-  [6422] = 6422,
-  [6423] = 6423,
+  [6417] = 6308,
+  [6418] = 6261,
+  [6419] = 6419,
+  [6420] = 6308,
+  [6421] = 6308,
+  [6422] = 6264,
+  [6423] = 6213,
   [6424] = 6424,
-  [6425] = 6425,
-  [6426] = 6310,
-  [6427] = 6310,
+  [6425] = 6308,
+  [6426] = 6308,
+  [6427] = 5349,
   [6428] = 6428,
-  [6429] = 6317,
-  [6430] = 6430,
+  [6429] = 6429,
+  [6430] = 6308,
   [6431] = 6431,
-  [6432] = 6432,
-  [6433] = 6433,
+  [6432] = 6268,
+  [6433] = 6308,
   [6434] = 6434,
-  [6435] = 6435,
-  [6436] = 6310,
-  [6437] = 6310,
-  [6438] = 6317,
-  [6439] = 6310,
-  [6440] = 4402,
+  [6435] = 6308,
+  [6436] = 6436,
+  [6437] = 6437,
+  [6438] = 3382,
+  [6439] = 6439,
+  [6440] = 6440,
   [6441] = 6441,
   [6442] = 6442,
-  [6443] = 6443,
+  [6443] = 5348,
   [6444] = 6444,
-  [6445] = 6310,
-  [6446] = 6446,
-  [6447] = 6310,
-  [6448] = 4379,
-  [6449] = 5342,
+  [6445] = 6308,
+  [6446] = 3374,
+  [6447] = 6447,
+  [6448] = 6448,
+  [6449] = 6308,
   [6450] = 6450,
   [6451] = 6451,
   [6452] = 6452,
@@ -12004,7 +11998,7 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6458] = 6458,
   [6459] = 6459,
   [6460] = 6460,
-  [6461] = 6461,
+  [6461] = 6451,
   [6462] = 6462,
   [6463] = 6463,
   [6464] = 6464,
@@ -12012,12 +12006,12 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6466] = 6466,
   [6467] = 6467,
   [6468] = 6468,
-  [6469] = 6469,
-  [6470] = 6470,
-  [6471] = 6471,
-  [6472] = 6472,
+  [6469] = 835,
+  [6470] = 826,
+  [6471] = 825,
+  [6472] = 821,
   [6473] = 6473,
-  [6474] = 6474,
+  [6474] = 3456,
   [6475] = 6475,
   [6476] = 6476,
   [6477] = 6477,
@@ -12040,7 +12034,7 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6494] = 6494,
   [6495] = 6495,
   [6496] = 6496,
-  [6497] = 6452,
+  [6497] = 6497,
   [6498] = 6498,
   [6499] = 6499,
   [6500] = 6500,
@@ -12052,19 +12046,19 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6506] = 6506,
   [6507] = 6507,
   [6508] = 6508,
-  [6509] = 6493,
+  [6509] = 6509,
   [6510] = 6510,
   [6511] = 6511,
   [6512] = 6512,
   [6513] = 6513,
-  [6514] = 6514,
+  [6514] = 6389,
   [6515] = 6515,
   [6516] = 6516,
-  [6517] = 6507,
+  [6517] = 6517,
   [6518] = 6518,
   [6519] = 6519,
-  [6520] = 6465,
-  [6521] = 6513,
+  [6520] = 6520,
+  [6521] = 6521,
   [6522] = 6522,
   [6523] = 6523,
   [6524] = 6524,
@@ -12073,907 +12067,907 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [6527] = 6527,
   [6528] = 6528,
   [6529] = 6529,
-  [6530] = 816,
-  [6531] = 6531,
+  [6530] = 6530,
+  [6531] = 6505,
   [6532] = 6532,
   [6533] = 6533,
   [6534] = 6534,
-  [6535] = 817,
-  [6536] = 818,
+  [6535] = 6535,
+  [6536] = 6536,
   [6537] = 6537,
-  [6538] = 819,
-  [6539] = 6539,
+  [6538] = 6526,
+  [6539] = 6532,
   [6540] = 6540,
   [6541] = 6541,
-  [6542] = 4019,
-  [6543] = 6543,
-  [6544] = 6544,
-  [6545] = 6545,
+  [6542] = 6540,
+  [6543] = 6535,
+  [6544] = 6534,
+  [6545] = 6525,
   [6546] = 6546,
   [6547] = 6547,
   [6548] = 6548,
-  [6549] = 6452,
+  [6549] = 6526,
   [6550] = 6550,
-  [6551] = 6551,
-  [6552] = 3455,
-  [6553] = 6454,
-  [6554] = 6554,
+  [6551] = 6532,
+  [6552] = 6552,
+  [6553] = 6464,
+  [6554] = 6462,
   [6555] = 6555,
-  [6556] = 6458,
-  [6557] = 6459,
-  [6558] = 6477,
-  [6559] = 6464,
-  [6560] = 6560,
-  [6561] = 6466,
-  [6562] = 6562,
-  [6563] = 6563,
-  [6564] = 6469,
-  [6565] = 6565,
-  [6566] = 6475,
-  [6567] = 6476,
-  [6568] = 6568,
-  [6569] = 6487,
-  [6570] = 6488,
-  [6571] = 6490,
-  [6572] = 6488,
-  [6573] = 6573,
-  [6574] = 6492,
-  [6575] = 6575,
-  [6576] = 6494,
-  [6577] = 6495,
-  [6578] = 6498,
-  [6579] = 6500,
-  [6580] = 6502,
-  [6581] = 6503,
-  [6582] = 6504,
-  [6583] = 6505,
-  [6584] = 6507,
-  [6585] = 6508,
-  [6586] = 6493,
+  [6556] = 6556,
+  [6557] = 6557,
+  [6558] = 6493,
+  [6559] = 6498,
+  [6560] = 6494,
+  [6561] = 6503,
+  [6562] = 6530,
+  [6563] = 6550,
+  [6564] = 6496,
+  [6565] = 6547,
+  [6566] = 6566,
+  [6567] = 6567,
+  [6568] = 6526,
+  [6569] = 6497,
+  [6570] = 6570,
+  [6571] = 6532,
+  [6572] = 6572,
+  [6573] = 6508,
+  [6574] = 6547,
+  [6575] = 6504,
+  [6576] = 6576,
+  [6577] = 6526,
+  [6578] = 6505,
+  [6579] = 6579,
+  [6580] = 6506,
+  [6581] = 6532,
+  [6582] = 6510,
+  [6583] = 6511,
+  [6584] = 6512,
+  [6585] = 6513,
+  [6586] = 6586,
   [6587] = 6587,
-  [6588] = 6511,
-  [6589] = 6512,
-  [6590] = 6590,
+  [6588] = 6588,
+  [6589] = 6589,
+  [6590] = 6468,
   [6591] = 6591,
-  [6592] = 6516,
-  [6593] = 6519,
-  [6594] = 6465,
-  [6595] = 6513,
-  [6596] = 6522,
-  [6597] = 6523,
-  [6598] = 6598,
-  [6599] = 6494,
-  [6600] = 6600,
-  [6601] = 6527,
-  [6602] = 6602,
-  [6603] = 6528,
-  [6604] = 6529,
-  [6605] = 6531,
-  [6606] = 6532,
-  [6607] = 6533,
-  [6608] = 6534,
-  [6609] = 6609,
-  [6610] = 6610,
-  [6611] = 6495,
-  [6612] = 6540,
-  [6613] = 6541,
-  [6614] = 6543,
-  [6615] = 6452,
-  [6616] = 6616,
-  [6617] = 6617,
-  [6618] = 6454,
-  [6619] = 6458,
-  [6620] = 6459,
-  [6621] = 6621,
-  [6622] = 6480,
-  [6623] = 6464,
-  [6624] = 6466,
-  [6625] = 6481,
-  [6626] = 6469,
-  [6627] = 6498,
-  [6628] = 6475,
-  [6629] = 6476,
-  [6630] = 6630,
-  [6631] = 6631,
-  [6632] = 6487,
-  [6633] = 6488,
-  [6634] = 6634,
-  [6635] = 6490,
-  [6636] = 6500,
-  [6637] = 6492,
-  [6638] = 6638,
-  [6639] = 6639,
-  [6640] = 6640,
-  [6641] = 6494,
-  [6642] = 6495,
-  [6643] = 6643,
-  [6644] = 6498,
-  [6645] = 6500,
-  [6646] = 6646,
-  [6647] = 6502,
-  [6648] = 6503,
-  [6649] = 6504,
-  [6650] = 6505,
-  [6651] = 6651,
-  [6652] = 6507,
-  [6653] = 6508,
-  [6654] = 6493,
-  [6655] = 6511,
-  [6656] = 6512,
-  [6657] = 6657,
-  [6658] = 6516,
-  [6659] = 6659,
-  [6660] = 6519,
-  [6661] = 6661,
-  [6662] = 6465,
-  [6663] = 6513,
-  [6664] = 6522,
-  [6665] = 6523,
-  [6666] = 6666,
-  [6667] = 6482,
-  [6668] = 6668,
-  [6669] = 6528,
+  [6592] = 6592,
+  [6593] = 6593,
+  [6594] = 6547,
+  [6595] = 6595,
+  [6596] = 6537,
+  [6597] = 6526,
+  [6598] = 6532,
+  [6599] = 6591,
+  [6600] = 6536,
+  [6601] = 6588,
+  [6602] = 829,
+  [6603] = 6547,
+  [6604] = 6604,
+  [6605] = 6595,
+  [6606] = 6593,
+  [6607] = 6592,
+  [6608] = 6608,
+  [6609] = 6570,
+  [6610] = 6497,
+  [6611] = 6468,
+  [6612] = 6526,
+  [6613] = 6513,
+  [6614] = 6512,
+  [6615] = 6566,
+  [6616] = 6511,
+  [6617] = 6510,
+  [6618] = 6550,
+  [6619] = 6530,
+  [6620] = 6498,
+  [6621] = 6493,
+  [6622] = 6532,
+  [6623] = 3382,
+  [6624] = 6506,
+  [6625] = 6496,
+  [6626] = 4387,
+  [6627] = 6588,
+  [6628] = 6628,
+  [6629] = 6508,
+  [6630] = 6504,
+  [6631] = 6508,
+  [6632] = 6497,
+  [6633] = 6547,
+  [6634] = 6529,
+  [6635] = 6503,
+  [6636] = 6528,
+  [6637] = 6502,
+  [6638] = 6527,
+  [6639] = 6501,
+  [6640] = 6522,
+  [6641] = 6521,
+  [6642] = 6520,
+  [6643] = 6519,
+  [6644] = 6500,
+  [6645] = 6494,
+  [6646] = 6504,
+  [6647] = 6566,
+  [6648] = 6505,
+  [6649] = 6526,
+  [6650] = 6532,
+  [6651] = 6492,
+  [6652] = 6491,
+  [6653] = 6506,
+  [6654] = 6654,
+  [6655] = 6655,
+  [6656] = 6490,
+  [6657] = 6485,
+  [6658] = 6484,
+  [6659] = 6483,
+  [6660] = 6455,
+  [6661] = 6456,
+  [6662] = 6481,
+  [6663] = 6663,
+  [6664] = 6451,
+  [6665] = 6480,
+  [6666] = 6473,
+  [6667] = 6588,
+  [6668] = 6462,
+  [6669] = 6464,
   [6670] = 6670,
-  [6671] = 6529,
-  [6672] = 6531,
-  [6673] = 6532,
-  [6674] = 6533,
-  [6675] = 6534,
-  [6676] = 6541,
-  [6677] = 6455,
-  [6678] = 6678,
-  [6679] = 6543,
-  [6680] = 6680,
-  [6681] = 6681,
-  [6682] = 6682,
-  [6683] = 6522,
-  [6684] = 6684,
-  [6685] = 6454,
-  [6686] = 6686,
-  [6687] = 6687,
-  [6688] = 6464,
-  [6689] = 6466,
-  [6690] = 6690,
+  [6671] = 6671,
+  [6672] = 6547,
+  [6673] = 6673,
+  [6674] = 6526,
+  [6675] = 6532,
+  [6676] = 6496,
+  [6677] = 6677,
+  [6678] = 6510,
+  [6679] = 6525,
+  [6680] = 6511,
+  [6681] = 6475,
+  [6682] = 6534,
+  [6683] = 6535,
+  [6684] = 6512,
+  [6685] = 6540,
+  [6686] = 6588,
+  [6687] = 6537,
+  [6688] = 6479,
+  [6689] = 6536,
+  [6690] = 6513,
   [6691] = 6691,
-  [6692] = 6475,
-  [6693] = 6476,
+  [6692] = 6547,
+  [6693] = 6693,
   [6694] = 6694,
-  [6695] = 6487,
-  [6696] = 6488,
-  [6697] = 6514,
-  [6698] = 6490,
+  [6695] = 6526,
+  [6696] = 6532,
+  [6697] = 3374,
+  [6698] = 6698,
   [6699] = 6699,
-  [6700] = 6492,
-  [6701] = 6494,
+  [6700] = 6700,
+  [6701] = 6518,
   [6702] = 6702,
-  [6703] = 6495,
+  [6703] = 6703,
   [6704] = 6704,
-  [6705] = 6498,
-  [6706] = 6500,
-  [6707] = 6502,
-  [6708] = 6503,
-  [6709] = 6504,
-  [6710] = 6505,
-  [6711] = 6507,
-  [6712] = 6712,
-  [6713] = 6508,
-  [6714] = 6493,
-  [6715] = 6715,
-  [6716] = 6511,
-  [6717] = 6512,
-  [6718] = 6718,
-  [6719] = 6516,
-  [6720] = 815,
-  [6721] = 6519,
-  [6722] = 6722,
-  [6723] = 6465,
-  [6724] = 6513,
-  [6725] = 6522,
-  [6726] = 6523,
-  [6727] = 6543,
-  [6728] = 6529,
-  [6729] = 6729,
-  [6730] = 6531,
-  [6731] = 6532,
-  [6732] = 6533,
-  [6733] = 6534,
+  [6705] = 6486,
+  [6706] = 6487,
+  [6707] = 6707,
+  [6708] = 6518,
+  [6709] = 6709,
+  [6710] = 6710,
+  [6711] = 6588,
+  [6712] = 6509,
+  [6713] = 6507,
+  [6714] = 6507,
+  [6715] = 6509,
+  [6716] = 6716,
+  [6717] = 6717,
+  [6718] = 6483,
+  [6719] = 6547,
+  [6720] = 6720,
+  [6721] = 6526,
+  [6722] = 6532,
+  [6723] = 6723,
+  [6724] = 6518,
+  [6725] = 6725,
+  [6726] = 6592,
+  [6727] = 6592,
+  [6728] = 6536,
+  [6729] = 6537,
+  [6730] = 6509,
+  [6731] = 6507,
+  [6732] = 1366,
+  [6733] = 6733,
   [6734] = 6734,
   [6735] = 6735,
-  [6736] = 6543,
-  [6737] = 6737,
+  [6736] = 6494,
+  [6737] = 6503,
   [6738] = 6738,
-  [6739] = 6461,
-  [6740] = 6740,
-  [6741] = 6741,
-  [6742] = 6454,
-  [6743] = 6743,
-  [6744] = 6744,
-  [6745] = 6745,
-  [6746] = 6487,
-  [6747] = 5351,
+  [6739] = 6739,
+  [6740] = 6496,
+  [6741] = 6489,
+  [6742] = 6488,
+  [6743] = 6487,
+  [6744] = 6486,
+  [6745] = 6497,
+  [6746] = 6746,
+  [6747] = 6481,
   [6748] = 6748,
-  [6749] = 5352,
-  [6750] = 6750,
-  [6751] = 6464,
-  [6752] = 6466,
+  [6749] = 6508,
+  [6750] = 6588,
+  [6751] = 6504,
+  [6752] = 6752,
   [6753] = 6753,
-  [6754] = 6754,
-  [6755] = 6475,
-  [6756] = 6476,
-  [6757] = 6757,
-  [6758] = 6487,
-  [6759] = 6488,
-  [6760] = 6760,
-  [6761] = 6490,
-  [6762] = 6490,
-  [6763] = 6492,
-  [6764] = 6764,
-  [6765] = 6494,
-  [6766] = 6495,
-  [6767] = 6498,
-  [6768] = 6492,
-  [6769] = 6500,
-  [6770] = 6502,
-  [6771] = 6503,
-  [6772] = 6504,
-  [6773] = 6505,
-  [6774] = 6507,
-  [6775] = 6775,
-  [6776] = 6508,
-  [6777] = 6493,
-  [6778] = 6511,
-  [6779] = 6512,
+  [6754] = 6505,
+  [6755] = 6489,
+  [6756] = 6506,
+  [6757] = 6547,
+  [6758] = 6510,
+  [6759] = 6511,
+  [6760] = 6512,
+  [6761] = 6513,
+  [6762] = 6762,
+  [6763] = 6763,
+  [6764] = 6547,
+  [6765] = 6468,
+  [6766] = 6766,
+  [6767] = 6592,
+  [6768] = 6593,
+  [6769] = 6769,
+  [6770] = 6595,
+  [6771] = 6771,
+  [6772] = 6772,
+  [6773] = 6526,
+  [6774] = 6591,
+  [6775] = 6479,
+  [6776] = 6480,
+  [6777] = 6532,
+  [6778] = 6778,
+  [6779] = 6779,
   [6780] = 6780,
-  [6781] = 6519,
+  [6781] = 6570,
   [6782] = 6782,
-  [6783] = 6465,
-  [6784] = 6513,
-  [6785] = 6522,
-  [6786] = 6523,
-  [6787] = 6787,
-  [6788] = 6469,
-  [6789] = 6529,
-  [6790] = 6531,
-  [6791] = 6532,
-  [6792] = 6533,
-  [6793] = 6534,
-  [6794] = 6507,
-  [6795] = 6795,
-  [6796] = 6543,
+  [6783] = 6591,
+  [6784] = 6591,
+  [6785] = 6785,
+  [6786] = 6476,
+  [6787] = 6566,
+  [6788] = 6475,
+  [6789] = 6550,
+  [6790] = 6530,
+  [6791] = 6498,
+  [6792] = 6493,
+  [6793] = 6591,
+  [6794] = 6591,
+  [6795] = 6591,
+  [6796] = 6570,
   [6797] = 6797,
-  [6798] = 6798,
-  [6799] = 6799,
-  [6800] = 6800,
-  [6801] = 6801,
-  [6802] = 6454,
-  [6803] = 6508,
-  [6804] = 6493,
-  [6805] = 6805,
-  [6806] = 6511,
-  [6807] = 6807,
-  [6808] = 6808,
-  [6809] = 6464,
-  [6810] = 6810,
-  [6811] = 6466,
-  [6812] = 6512,
-  [6813] = 6475,
-  [6814] = 6476,
+  [6798] = 6591,
+  [6799] = 6488,
+  [6800] = 6591,
+  [6801] = 6591,
+  [6802] = 6529,
+  [6803] = 6803,
+  [6804] = 6528,
+  [6805] = 6591,
+  [6806] = 6527,
+  [6807] = 6591,
+  [6808] = 6522,
+  [6809] = 6521,
+  [6810] = 6520,
+  [6811] = 6519,
+  [6812] = 6812,
+  [6813] = 6591,
+  [6814] = 6572,
   [6815] = 6815,
-  [6816] = 6816,
-  [6817] = 6487,
-  [6818] = 6488,
-  [6819] = 6490,
-  [6820] = 6820,
-  [6821] = 6490,
-  [6822] = 6492,
-  [6823] = 6494,
-  [6824] = 6495,
-  [6825] = 6492,
-  [6826] = 6498,
-  [6827] = 6474,
-  [6828] = 6500,
-  [6829] = 6502,
-  [6830] = 6503,
-  [6831] = 6504,
-  [6832] = 6505,
+  [6816] = 6591,
+  [6817] = 6817,
+  [6818] = 6591,
+  [6819] = 6819,
+  [6820] = 6591,
+  [6821] = 6455,
+  [6822] = 6456,
+  [6823] = 6466,
+  [6824] = 6824,
+  [6825] = 6451,
+  [6826] = 6591,
+  [6827] = 6827,
+  [6828] = 6451,
+  [6829] = 6829,
+  [6830] = 6830,
+  [6831] = 6591,
+  [6832] = 6475,
   [6833] = 6833,
-  [6834] = 6507,
-  [6835] = 6493,
-  [6836] = 6511,
-  [6837] = 6512,
-  [6838] = 6838,
-  [6839] = 6516,
-  [6840] = 6519,
-  [6841] = 6519,
-  [6842] = 6465,
-  [6843] = 6513,
-  [6844] = 6522,
-  [6845] = 6523,
-  [6846] = 6529,
+  [6834] = 6834,
+  [6835] = 6487,
+  [6836] = 6458,
+  [6837] = 6591,
+  [6838] = 6486,
+  [6839] = 6479,
+  [6840] = 6591,
+  [6841] = 6841,
+  [6842] = 6591,
+  [6843] = 6591,
+  [6844] = 6844,
+  [6845] = 6845,
+  [6846] = 6591,
   [6847] = 6847,
-  [6848] = 6531,
-  [6849] = 6532,
-  [6850] = 6533,
-  [6851] = 6534,
-  [6852] = 6519,
-  [6853] = 6543,
-  [6854] = 6464,
-  [6855] = 6465,
-  [6856] = 6513,
-  [6857] = 6522,
-  [6858] = 6523,
-  [6859] = 6859,
+  [6848] = 6591,
+  [6849] = 6486,
+  [6850] = 6487,
+  [6851] = 6591,
+  [6852] = 6456,
+  [6853] = 6455,
+  [6854] = 6854,
+  [6855] = 6591,
+  [6856] = 6591,
+  [6857] = 6507,
+  [6858] = 6591,
+  [6859] = 6509,
   [6860] = 6860,
-  [6861] = 6861,
-  [6862] = 6862,
-  [6863] = 6466,
+  [6861] = 6591,
+  [6862] = 6591,
+  [6863] = 6863,
   [6864] = 6864,
-  [6865] = 6487,
-  [6866] = 6488,
+  [6865] = 6518,
+  [6866] = 6866,
   [6867] = 6867,
-  [6868] = 6490,
-  [6869] = 6492,
-  [6870] = 6511,
-  [6871] = 6871,
-  [6872] = 6494,
-  [6873] = 6495,
+  [6868] = 6550,
+  [6869] = 6536,
+  [6870] = 6537,
+  [6871] = 6591,
+  [6872] = 6595,
+  [6873] = 6468,
   [6874] = 6874,
   [6875] = 6875,
-  [6876] = 6498,
-  [6877] = 6460,
-  [6878] = 6500,
-  [6879] = 6879,
-  [6880] = 6502,
-  [6881] = 6503,
-  [6882] = 6504,
-  [6883] = 6505,
+  [6876] = 6494,
+  [6877] = 6503,
+  [6878] = 6550,
+  [6879] = 6591,
+  [6880] = 6496,
+  [6881] = 6595,
+  [6882] = 6579,
+  [6883] = 6883,
   [6884] = 6884,
-  [6885] = 6507,
+  [6885] = 6497,
   [6886] = 6886,
-  [6887] = 6493,
-  [6888] = 6511,
-  [6889] = 6512,
-  [6890] = 6890,
-  [6891] = 6891,
-  [6892] = 3386,
-  [6893] = 6519,
-  [6894] = 6465,
-  [6895] = 6522,
-  [6896] = 6523,
-  [6897] = 6451,
-  [6898] = 6898,
-  [6899] = 6899,
-  [6900] = 6529,
-  [6901] = 6531,
-  [6902] = 6532,
-  [6903] = 6533,
-  [6904] = 6534,
-  [6905] = 6543,
-  [6906] = 6906,
-  [6907] = 6907,
-  [6908] = 4387,
-  [6909] = 6909,
-  [6910] = 6527,
+  [6887] = 6550,
+  [6888] = 6888,
+  [6889] = 6508,
+  [6890] = 6591,
+  [6891] = 6504,
+  [6892] = 6595,
+  [6893] = 6479,
+  [6894] = 6505,
+  [6895] = 6550,
+  [6896] = 6506,
+  [6897] = 6513,
+  [6898] = 6510,
+  [6899] = 6511,
+  [6900] = 6512,
+  [6901] = 6513,
+  [6902] = 6591,
+  [6903] = 6595,
+  [6904] = 6512,
+  [6905] = 6468,
+  [6906] = 6511,
+  [6907] = 6592,
+  [6908] = 6593,
+  [6909] = 6510,
+  [6910] = 6595,
   [6911] = 6911,
-  [6912] = 6807,
-  [6913] = 6487,
-  [6914] = 6488,
-  [6915] = 6490,
-  [6916] = 6528,
-  [6917] = 6917,
-  [6918] = 6502,
-  [6919] = 6492,
-  [6920] = 6523,
-  [6921] = 6494,
-  [6922] = 6494,
-  [6923] = 6495,
-  [6924] = 6503,
-  [6925] = 6498,
-  [6926] = 6500,
-  [6927] = 6502,
-  [6928] = 6503,
-  [6929] = 6504,
-  [6930] = 6505,
-  [6931] = 6495,
-  [6932] = 6504,
-  [6933] = 6493,
-  [6934] = 6511,
-  [6935] = 6512,
-  [6936] = 6617,
-  [6937] = 6498,
-  [6938] = 6505,
-  [6939] = 6519,
-  [6940] = 6529,
-  [6941] = 6465,
+  [6912] = 6912,
+  [6913] = 6591,
+  [6914] = 6914,
+  [6915] = 6550,
+  [6916] = 6519,
+  [6917] = 6520,
+  [6918] = 6918,
+  [6919] = 6570,
+  [6920] = 6591,
+  [6921] = 6595,
+  [6922] = 6922,
+  [6923] = 6923,
+  [6924] = 6924,
+  [6925] = 6566,
+  [6926] = 6521,
+  [6927] = 6550,
+  [6928] = 6530,
+  [6929] = 6498,
+  [6930] = 6493,
+  [6931] = 6532,
+  [6932] = 6526,
+  [6933] = 6933,
+  [6934] = 6522,
+  [6935] = 6524,
+  [6936] = 6527,
+  [6937] = 6937,
+  [6938] = 6528,
+  [6939] = 6608,
+  [6940] = 6527,
+  [6941] = 6592,
   [6942] = 6522,
-  [6943] = 6523,
-  [6944] = 6944,
-  [6945] = 6945,
-  [6946] = 6531,
-  [6947] = 6529,
-  [6948] = 6531,
-  [6949] = 6532,
-  [6950] = 6533,
-  [6951] = 6534,
-  [6952] = 6500,
-  [6953] = 6532,
+  [6943] = 6521,
+  [6944] = 6520,
+  [6945] = 6519,
+  [6946] = 6593,
+  [6947] = 6947,
+  [6948] = 6948,
+  [6949] = 6949,
+  [6950] = 6528,
+  [6951] = 6529,
+  [6952] = 6456,
+  [6953] = 6550,
   [6954] = 6954,
-  [6955] = 6543,
+  [6955] = 6451,
   [6956] = 6956,
-  [6957] = 6957,
-  [6958] = 6533,
-  [6959] = 6534,
+  [6957] = 6591,
+  [6958] = 6595,
+  [6959] = 6959,
   [6960] = 6960,
-  [6961] = 6735,
-  [6962] = 6487,
-  [6963] = 6488,
+  [6961] = 6503,
+  [6962] = 6494,
+  [6963] = 6963,
   [6964] = 6964,
-  [6965] = 6490,
+  [6965] = 6476,
   [6966] = 6966,
-  [6967] = 6492,
-  [6968] = 6454,
-  [6969] = 6737,
-  [6970] = 6494,
-  [6971] = 6495,
-  [6972] = 6498,
-  [6973] = 6500,
-  [6974] = 6502,
-  [6975] = 6503,
-  [6976] = 6504,
-  [6977] = 6505,
-  [6978] = 6493,
-  [6979] = 6511,
-  [6980] = 6512,
-  [6981] = 6519,
-  [6982] = 6465,
-  [6983] = 6522,
-  [6984] = 6523,
-  [6985] = 6985,
-  [6986] = 6531,
-  [6987] = 6532,
-  [6988] = 6533,
-  [6989] = 6534,
-  [6990] = 6543,
-  [6991] = 6991,
-  [6992] = 6540,
-  [6993] = 6487,
-  [6994] = 6488,
-  [6995] = 6541,
-  [6996] = 6493,
-  [6997] = 6511,
-  [6998] = 6512,
-  [6999] = 6847,
-  [7000] = 7000,
-  [7001] = 6529,
-  [7002] = 6519,
-  [7003] = 6465,
-  [7004] = 6522,
-  [7005] = 6523,
-  [7006] = 4385,
-  [7007] = 6502,
-  [7008] = 6531,
-  [7009] = 6532,
-  [7010] = 6533,
-  [7011] = 6534,
-  [7012] = 6609,
-  [7013] = 6543,
-  [7014] = 6543,
-  [7015] = 6738,
-  [7016] = 6503,
+  [6967] = 6967,
+  [6968] = 6479,
+  [6969] = 6969,
+  [6970] = 6970,
+  [6971] = 6595,
+  [6972] = 6972,
+  [6973] = 6973,
+  [6974] = 6493,
+  [6975] = 6975,
+  [6976] = 6604,
+  [6977] = 6451,
+  [6978] = 6519,
+  [6979] = 6498,
+  [6980] = 6530,
+  [6981] = 6520,
+  [6982] = 6550,
+  [6983] = 6566,
+  [6984] = 6507,
+  [6985] = 6521,
+  [6986] = 6509,
+  [6987] = 6522,
+  [6988] = 6570,
+  [6989] = 6493,
+  [6990] = 6572,
+  [6991] = 6498,
+  [6992] = 6550,
+  [6993] = 6993,
+  [6994] = 6566,
+  [6995] = 6536,
+  [6996] = 6537,
+  [6997] = 6997,
+  [6998] = 6998,
+  [6999] = 6999,
+  [7000] = 6591,
+  [7001] = 7001,
+  [7002] = 6494,
+  [7003] = 6503,
+  [7004] = 7004,
+  [7005] = 7005,
+  [7006] = 6496,
+  [7007] = 6591,
+  [7008] = 6595,
+  [7009] = 7009,
+  [7010] = 6593,
+  [7011] = 6497,
+  [7012] = 7012,
+  [7013] = 7013,
+  [7014] = 6604,
+  [7015] = 6508,
+  [7016] = 6595,
   [7017] = 6504,
-  [7018] = 7018,
-  [7019] = 7019,
+  [7018] = 6503,
+  [7019] = 6593,
   [7020] = 6505,
-  [7021] = 6483,
-  [7022] = 6487,
-  [7023] = 6488,
-  [7024] = 6511,
-  [7025] = 6512,
-  [7026] = 7026,
-  [7027] = 7027,
-  [7028] = 6465,
+  [7021] = 6592,
+  [7022] = 6506,
+  [7023] = 6608,
+  [7024] = 6510,
+  [7025] = 6511,
+  [7026] = 6512,
+  [7027] = 6513,
+  [7028] = 6494,
   [7029] = 7029,
   [7030] = 7030,
-  [7031] = 6510,
-  [7032] = 7027,
-  [7033] = 7033,
-  [7034] = 6740,
+  [7031] = 6468,
+  [7032] = 6468,
+  [7033] = 6592,
+  [7034] = 6593,
   [7035] = 7035,
-  [7036] = 7036,
+  [7036] = 6595,
   [7037] = 7037,
-  [7038] = 6511,
-  [7039] = 6512,
-  [7040] = 6465,
-  [7041] = 6488,
-  [7042] = 6452,
+  [7038] = 7038,
+  [7039] = 6591,
+  [7040] = 7040,
+  [7041] = 6475,
+  [7042] = 6451,
   [7043] = 7043,
-  [7044] = 7044,
-  [7045] = 6455,
-  [7046] = 7046,
-  [7047] = 6494,
-  [7048] = 7048,
-  [7049] = 6511,
-  [7050] = 6512,
-  [7051] = 6465,
-  [7052] = 6495,
-  [7053] = 7053,
-  [7054] = 7054,
-  [7055] = 7055,
-  [7056] = 6743,
+  [7044] = 6570,
+  [7045] = 6519,
+  [7046] = 6520,
+  [7047] = 6521,
+  [7048] = 6522,
+  [7049] = 7049,
+  [7050] = 6566,
+  [7051] = 6529,
+  [7052] = 6550,
+  [7053] = 6530,
+  [7054] = 6498,
+  [7055] = 6493,
+  [7056] = 6493,
   [7057] = 6498,
-  [7058] = 6454,
-  [7059] = 6511,
-  [7060] = 6512,
-  [7061] = 7061,
-  [7062] = 6465,
-  [7063] = 6500,
-  [7064] = 7064,
-  [7065] = 7065,
-  [7066] = 6475,
-  [7067] = 6511,
-  [7068] = 6512,
-  [7069] = 6465,
-  [7070] = 6487,
-  [7071] = 3403,
-  [7072] = 6458,
-  [7073] = 6459,
-  [7074] = 6511,
-  [7075] = 6512,
-  [7076] = 6460,
-  [7077] = 6465,
-  [7078] = 6461,
-  [7079] = 6476,
-  [7080] = 7080,
-  [7081] = 6512,
-  [7082] = 6484,
-  [7083] = 6512,
-  [7084] = 6512,
-  [7085] = 6512,
-  [7086] = 6485,
-  [7087] = 6512,
-  [7088] = 6512,
-  [7089] = 6122,
-  [7090] = 6512,
-  [7091] = 6533,
-  [7092] = 6512,
-  [7093] = 6512,
-  [7094] = 7094,
-  [7095] = 6512,
-  [7096] = 6512,
-  [7097] = 7097,
-  [7098] = 6512,
-  [7099] = 7099,
-  [7100] = 6512,
-  [7101] = 6512,
-  [7102] = 6512,
-  [7103] = 6512,
-  [7104] = 6464,
-  [7105] = 6512,
-  [7106] = 7106,
-  [7107] = 6512,
-  [7108] = 6466,
-  [7109] = 6512,
+  [7058] = 6550,
+  [7059] = 6528,
+  [7060] = 7060,
+  [7061] = 6566,
+  [7062] = 7062,
+  [7063] = 6527,
+  [7064] = 6591,
+  [7065] = 6522,
+  [7066] = 6521,
+  [7067] = 6520,
+  [7068] = 6519,
+  [7069] = 7069,
+  [7070] = 6595,
+  [7071] = 7071,
+  [7072] = 6593,
+  [7073] = 7073,
+  [7074] = 7074,
+  [7075] = 6513,
+  [7076] = 6512,
+  [7077] = 6451,
+  [7078] = 7078,
+  [7079] = 6511,
+  [7080] = 6510,
+  [7081] = 7081,
+  [7082] = 6506,
+  [7083] = 7083,
+  [7084] = 7084,
+  [7085] = 7085,
+  [7086] = 6505,
+  [7087] = 7087,
+  [7088] = 7088,
+  [7089] = 6504,
+  [7090] = 6479,
+  [7091] = 7091,
+  [7092] = 6508,
+  [7093] = 7093,
+  [7094] = 6497,
+  [7095] = 6496,
+  [7096] = 7096,
+  [7097] = 6503,
+  [7098] = 6494,
+  [7099] = 6591,
+  [7100] = 7100,
+  [7101] = 7101,
+  [7102] = 6466,
+  [7103] = 6451,
+  [7104] = 7104,
+  [7105] = 6937,
+  [7106] = 6507,
+  [7107] = 7107,
+  [7108] = 6509,
+  [7109] = 7109,
   [7110] = 7110,
-  [7111] = 6512,
-  [7112] = 6512,
-  [7113] = 7113,
-  [7114] = 6512,
-  [7115] = 6512,
-  [7116] = 6512,
-  [7117] = 6512,
-  [7118] = 6512,
-  [7119] = 6512,
-  [7120] = 6469,
-  [7121] = 6512,
+  [7111] = 7111,
+  [7112] = 6519,
+  [7113] = 6520,
+  [7114] = 6521,
+  [7115] = 6522,
+  [7116] = 6527,
+  [7117] = 6536,
+  [7118] = 6537,
+  [7119] = 7119,
+  [7120] = 7120,
+  [7121] = 7121,
   [7122] = 7122,
-  [7123] = 6451,
-  [7124] = 7054,
-  [7125] = 7125,
-  [7126] = 6799,
-  [7127] = 6810,
-  [7128] = 7128,
-  [7129] = 7129,
+  [7123] = 7123,
+  [7124] = 6494,
+  [7125] = 6503,
+  [7126] = 6493,
+  [7127] = 7127,
+  [7128] = 6496,
+  [7129] = 6498,
   [7130] = 7130,
-  [7131] = 6475,
-  [7132] = 6476,
-  [7133] = 7133,
-  [7134] = 6477,
+  [7131] = 7131,
+  [7132] = 6550,
+  [7133] = 6497,
+  [7134] = 7134,
   [7135] = 7135,
-  [7136] = 6480,
-  [7137] = 7137,
-  [7138] = 6481,
-  [7139] = 6482,
-  [7140] = 7140,
+  [7136] = 6566,
+  [7137] = 6508,
+  [7138] = 7138,
+  [7139] = 6504,
+  [7140] = 6762,
   [7141] = 7141,
-  [7142] = 7142,
-  [7143] = 6490,
-  [7144] = 6945,
-  [7145] = 6838,
-  [7146] = 6516,
-  [7147] = 6484,
-  [7148] = 6485,
-  [7149] = 6544,
-  [7150] = 6492,
-  [7151] = 7151,
-  [7152] = 6508,
-  [7153] = 6508,
-  [7154] = 6544,
-  [7155] = 6451,
-  [7156] = 7054,
-  [7157] = 6598,
-  [7158] = 7158,
-  [7159] = 6602,
-  [7160] = 7130,
-  [7161] = 6514,
-  [7162] = 6735,
-  [7163] = 6737,
-  [7164] = 7137,
-  [7165] = 7165,
-  [7166] = 6738,
-  [7167] = 6740,
-  [7168] = 6743,
-  [7169] = 6487,
-  [7170] = 7018,
-  [7171] = 6483,
-  [7172] = 6510,
-  [7173] = 6488,
-  [7174] = 6451,
-  [7175] = 7054,
-  [7176] = 7130,
-  [7177] = 7177,
-  [7178] = 7137,
-  [7179] = 6490,
-  [7180] = 7180,
-  [7181] = 7137,
-  [7182] = 6492,
-  [7183] = 6527,
-  [7184] = 6451,
-  [7185] = 7054,
-  [7186] = 7186,
-  [7187] = 7187,
-  [7188] = 7188,
-  [7189] = 7130,
-  [7190] = 7190,
-  [7191] = 6494,
-  [7192] = 7137,
-  [7193] = 6495,
-  [7194] = 6531,
-  [7195] = 7195,
-  [7196] = 6498,
-  [7197] = 6451,
-  [7198] = 7054,
-  [7199] = 6507,
-  [7200] = 6500,
-  [7201] = 7201,
-  [7202] = 7130,
+  [7142] = 6505,
+  [7143] = 5365,
+  [7144] = 6506,
+  [7145] = 6484,
+  [7146] = 6510,
+  [7147] = 6511,
+  [7148] = 6512,
+  [7149] = 6513,
+  [7150] = 5361,
+  [7151] = 6485,
+  [7152] = 6591,
+  [7153] = 6468,
+  [7154] = 6527,
+  [7155] = 6592,
+  [7156] = 6593,
+  [7157] = 6490,
+  [7158] = 6595,
+  [7159] = 6595,
+  [7160] = 6593,
+  [7161] = 6591,
+  [7162] = 6491,
+  [7163] = 6451,
+  [7164] = 6492,
+  [7165] = 6494,
+  [7166] = 6513,
+  [7167] = 6512,
+  [7168] = 6511,
+  [7169] = 6496,
+  [7170] = 6524,
+  [7171] = 6566,
+  [7172] = 6497,
+  [7173] = 6550,
+  [7174] = 6530,
+  [7175] = 6498,
+  [7176] = 6493,
+  [7177] = 6510,
+  [7178] = 6506,
+  [7179] = 6506,
+  [7180] = 6588,
+  [7181] = 6505,
+  [7182] = 6522,
+  [7183] = 6505,
+  [7184] = 6527,
+  [7185] = 6521,
+  [7186] = 6522,
+  [7187] = 6521,
+  [7188] = 6520,
+  [7189] = 6519,
+  [7190] = 6924,
+  [7191] = 6504,
+  [7192] = 6504,
+  [7193] = 6458,
+  [7194] = 7194,
+  [7195] = 6508,
+  [7196] = 6508,
+  [7197] = 6473,
+  [7198] = 6451,
+  [7199] = 6497,
+  [7200] = 6503,
+  [7201] = 6496,
+  [7202] = 6520,
   [7203] = 6502,
-  [7204] = 6503,
-  [7205] = 6504,
-  [7206] = 6505,
-  [7207] = 7137,
+  [7204] = 6501,
+  [7205] = 6503,
+  [7206] = 6519,
+  [7207] = 6494,
   [7208] = 7208,
-  [7209] = 6451,
-  [7210] = 7054,
-  [7211] = 6508,
-  [7212] = 6502,
-  [7213] = 7130,
-  [7214] = 6507,
+  [7209] = 7209,
+  [7210] = 7210,
+  [7211] = 6479,
+  [7212] = 6579,
+  [7213] = 7213,
+  [7214] = 7214,
   [7215] = 7215,
-  [7216] = 6528,
-  [7217] = 7137,
-  [7218] = 6503,
-  [7219] = 6504,
-  [7220] = 6799,
+  [7216] = 7216,
+  [7217] = 7217,
+  [7218] = 7218,
+  [7219] = 4003,
+  [7220] = 7220,
   [7221] = 6451,
-  [7222] = 7054,
-  [7223] = 6508,
-  [7224] = 6493,
-  [7225] = 6511,
-  [7226] = 7130,
-  [7227] = 6807,
-  [7228] = 7137,
-  [7229] = 6532,
-  [7230] = 6512,
-  [7231] = 6451,
-  [7232] = 7054,
-  [7233] = 7233,
-  [7234] = 6598,
-  [7235] = 7130,
-  [7236] = 7236,
-  [7237] = 6954,
-  [7238] = 6474,
-  [7239] = 6451,
-  [7240] = 7054,
-  [7241] = 6505,
-  [7242] = 7130,
-  [7243] = 7130,
-  [7244] = 6838,
-  [7245] = 6516,
-  [7246] = 7246,
-  [7247] = 7054,
-  [7248] = 6540,
-  [7249] = 7130,
-  [7250] = 7250,
-  [7251] = 6519,
-  [7252] = 7252,
-  [7253] = 6465,
-  [7254] = 6513,
-  [7255] = 6451,
-  [7256] = 7054,
-  [7257] = 6522,
-  [7258] = 6523,
-  [7259] = 7259,
-  [7260] = 6325,
+  [7222] = 7222,
+  [7223] = 7223,
+  [7224] = 7224,
+  [7225] = 7225,
+  [7226] = 7226,
+  [7227] = 6507,
+  [7228] = 7228,
+  [7229] = 6509,
+  [7230] = 6519,
+  [7231] = 6520,
+  [7232] = 6521,
+  [7233] = 6522,
+  [7234] = 6527,
+  [7235] = 7235,
+  [7236] = 6500,
+  [7237] = 6493,
+  [7238] = 6536,
+  [7239] = 6537,
+  [7240] = 6498,
+  [7241] = 6550,
+  [7242] = 6566,
+  [7243] = 7243,
+  [7244] = 7244,
+  [7245] = 6494,
+  [7246] = 6503,
+  [7247] = 6591,
+  [7248] = 6595,
+  [7249] = 6496,
+  [7250] = 6593,
+  [7251] = 6468,
+  [7252] = 6513,
+  [7253] = 7253,
+  [7254] = 6497,
+  [7255] = 6512,
+  [7256] = 6511,
+  [7257] = 7257,
+  [7258] = 6508,
+  [7259] = 6510,
+  [7260] = 6504,
   [7261] = 7261,
-  [7262] = 7262,
-  [7263] = 7263,
-  [7264] = 6451,
-  [7265] = 7054,
+  [7262] = 6506,
+  [7263] = 6505,
+  [7264] = 6844,
+  [7265] = 6506,
   [7266] = 7266,
-  [7267] = 7267,
-  [7268] = 7268,
-  [7269] = 6602,
-  [7270] = 6527,
-  [7271] = 6534,
-  [7272] = 6528,
-  [7273] = 6512,
-  [7274] = 7274,
+  [7267] = 6510,
+  [7268] = 6511,
+  [7269] = 6512,
+  [7270] = 6513,
+  [7271] = 6505,
+  [7272] = 7272,
+  [7273] = 6125,
+  [7274] = 6468,
   [7275] = 7275,
-  [7276] = 6529,
-  [7277] = 6945,
-  [7278] = 6531,
-  [7279] = 6532,
-  [7280] = 6533,
-  [7281] = 6534,
+  [7276] = 6593,
+  [7277] = 7277,
+  [7278] = 6595,
+  [7279] = 6504,
+  [7280] = 7280,
+  [7281] = 6591,
   [7282] = 7282,
-  [7283] = 7283,
+  [7283] = 6508,
   [7284] = 7284,
-  [7285] = 6541,
+  [7285] = 6497,
   [7286] = 7286,
   [7287] = 7287,
   [7288] = 7288,
   [7289] = 7289,
   [7290] = 7290,
-  [7291] = 7291,
-  [7292] = 7292,
-  [7293] = 6540,
-  [7294] = 6541,
-  [7295] = 6458,
-  [7296] = 6459,
-  [7297] = 6609,
+  [7291] = 6566,
+  [7292] = 6496,
+  [7293] = 6550,
+  [7294] = 6530,
+  [7295] = 6498,
+  [7296] = 6493,
+  [7297] = 7297,
   [7298] = 7298,
   [7299] = 7299,
-  [7300] = 7300,
+  [7300] = 4383,
   [7301] = 7301,
-  [7302] = 6543,
-  [7303] = 7303,
-  [7304] = 7304,
+  [7302] = 7302,
+  [7303] = 6455,
+  [7304] = 6527,
   [7305] = 7305,
-  [7306] = 7027,
-  [7307] = 1537,
-  [7308] = 7308,
-  [7309] = 7309,
+  [7306] = 6522,
+  [7307] = 6521,
+  [7308] = 6520,
+  [7309] = 6519,
   [7310] = 7310,
   [7311] = 7311,
   [7312] = 7312,
-  [7313] = 7313,
-  [7314] = 7018,
-  [7315] = 7315,
+  [7313] = 6494,
+  [7314] = 6503,
+  [7315] = 6456,
   [7316] = 7316,
   [7317] = 7317,
   [7318] = 7318,
-  [7319] = 7319,
+  [7319] = 7318,
   [7320] = 7320,
-  [7321] = 7317,
-  [7322] = 7318,
-  [7323] = 2909,
-  [7324] = 7317,
-  [7325] = 7318,
+  [7321] = 7321,
+  [7322] = 7322,
+  [7323] = 7323,
+  [7324] = 7324,
+  [7325] = 7325,
   [7326] = 7326,
   [7327] = 7327,
-  [7328] = 7317,
-  [7329] = 7318,
-  [7330] = 7318,
+  [7328] = 7328,
+  [7329] = 7329,
+  [7330] = 7330,
   [7331] = 7331,
-  [7332] = 7317,
-  [7333] = 7318,
+  [7332] = 7332,
+  [7333] = 7333,
   [7334] = 7334,
   [7335] = 7335,
-  [7336] = 7317,
-  [7337] = 7318,
+  [7336] = 7336,
+  [7337] = 7337,
   [7338] = 7338,
   [7339] = 7339,
-  [7340] = 7317,
-  [7341] = 7318,
+  [7340] = 7340,
+  [7341] = 7341,
   [7342] = 7342,
   [7343] = 7343,
-  [7344] = 7317,
-  [7345] = 7318,
+  [7344] = 7344,
+  [7345] = 7345,
   [7346] = 7346,
   [7347] = 7347,
-  [7348] = 7317,
-  [7349] = 7318,
-  [7350] = 7350,
-  [7351] = 7317,
-  [7352] = 7318,
-  [7353] = 7353,
+  [7348] = 7348,
+  [7349] = 7349,
+  [7350] = 7337,
+  [7351] = 7351,
+  [7352] = 829,
+  [7353] = 7220,
   [7354] = 7354,
-  [7355] = 7317,
-  [7356] = 7318,
-  [7357] = 7317,
+  [7355] = 7355,
+  [7356] = 7356,
+  [7357] = 7357,
   [7358] = 7358,
-  [7359] = 7317,
-  [7360] = 7318,
+  [7359] = 7359,
+  [7360] = 7360,
   [7361] = 7361,
-  [7362] = 7317,
-  [7363] = 7318,
-  [7364] = 7364,
+  [7362] = 7362,
+  [7363] = 7363,
+  [7364] = 7357,
   [7365] = 7365,
-  [7366] = 7317,
-  [7367] = 7318,
+  [7366] = 7366,
+  [7367] = 7367,
   [7368] = 7368,
-  [7369] = 7317,
+  [7369] = 7369,
   [7370] = 7318,
   [7371] = 7371,
-  [7372] = 7318,
-  [7373] = 7317,
-  [7374] = 7318,
+  [7372] = 2926,
+  [7373] = 2921,
+  [7374] = 7374,
   [7375] = 7375,
   [7376] = 7376,
-  [7377] = 7317,
-  [7378] = 7318,
+  [7377] = 7377,
+  [7378] = 7378,
   [7379] = 7379,
   [7380] = 7380,
-  [7381] = 7317,
-  [7382] = 7318,
+  [7381] = 7381,
+  [7382] = 7382,
   [7383] = 7383,
   [7384] = 7384,
-  [7385] = 7317,
-  [7386] = 7318,
-  [7387] = 7387,
-  [7388] = 7317,
-  [7389] = 7318,
-  [7390] = 7390,
+  [7385] = 7385,
+  [7386] = 7386,
+  [7387] = 2917,
+  [7388] = 7388,
+  [7389] = 7389,
+  [7390] = 7322,
   [7391] = 7391,
-  [7392] = 7317,
-  [7393] = 7318,
+  [7392] = 7392,
+  [7393] = 7393,
   [7394] = 7394,
-  [7395] = 7317,
-  [7396] = 7318,
+  [7395] = 7395,
+  [7396] = 7396,
   [7397] = 7397,
-  [7398] = 7317,
-  [7399] = 7318,
+  [7398] = 7322,
+  [7399] = 7399,
   [7400] = 7400,
-  [7401] = 7317,
-  [7402] = 7318,
+  [7401] = 7401,
+  [7402] = 7402,
   [7403] = 7403,
-  [7404] = 7317,
-  [7405] = 7318,
+  [7404] = 7322,
+  [7405] = 7405,
   [7406] = 7406,
-  [7407] = 7317,
-  [7408] = 7318,
+  [7407] = 7407,
+  [7408] = 7408,
   [7409] = 7409,
-  [7410] = 7317,
-  [7411] = 7317,
-  [7412] = 7318,
-  [7413] = 7413,
-  [7414] = 7317,
+  [7410] = 7410,
+  [7411] = 7411,
+  [7412] = 7412,
+  [7413] = 7357,
+  [7414] = 7414,
   [7415] = 7415,
   [7416] = 7416,
   [7417] = 7417,
   [7418] = 7418,
-  [7419] = 7419,
-  [7420] = 7420,
-  [7421] = 7421,
+  [7419] = 5459,
+  [7420] = 2920,
+  [7421] = 7333,
   [7422] = 7422,
-  [7423] = 7423,
+  [7423] = 7357,
   [7424] = 7424,
   [7425] = 7425,
-  [7426] = 7426,
-  [7427] = 7427,
-  [7428] = 7428,
+  [7426] = 7357,
+  [7427] = 7322,
+  [7428] = 7389,
   [7429] = 7429,
-  [7430] = 7430,
+  [7430] = 5427,
   [7431] = 7431,
   [7432] = 7432,
   [7433] = 7433,
@@ -12981,8 +12975,8 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [7435] = 7435,
   [7436] = 7436,
   [7437] = 7437,
-  [7438] = 7318,
-  [7439] = 7439,
+  [7438] = 7438,
+  [7439] = 4549,
   [7440] = 7440,
   [7441] = 7441,
   [7442] = 7442,
@@ -12991,73 +12985,73 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [7445] = 7445,
   [7446] = 7446,
   [7447] = 7447,
-  [7448] = 7448,
-  [7449] = 818,
+  [7448] = 5659,
+  [7449] = 7449,
   [7450] = 7450,
   [7451] = 7451,
-  [7452] = 7452,
+  [7452] = 7322,
   [7453] = 7453,
   [7454] = 7454,
   [7455] = 7455,
-  [7456] = 7456,
+  [7456] = 7357,
   [7457] = 7457,
   [7458] = 7458,
   [7459] = 7459,
   [7460] = 7460,
-  [7461] = 7461,
+  [7461] = 5496,
   [7462] = 7462,
-  [7463] = 7463,
-  [7464] = 7464,
-  [7465] = 7465,
-  [7466] = 7466,
-  [7467] = 815,
-  [7468] = 7468,
+  [7463] = 7378,
+  [7464] = 7366,
+  [7465] = 7425,
+  [7466] = 7337,
+  [7467] = 7467,
+  [7468] = 7357,
   [7469] = 7469,
   [7470] = 7470,
   [7471] = 7471,
-  [7472] = 5671,
+  [7472] = 7472,
   [7473] = 7473,
   [7474] = 7474,
   [7475] = 7475,
   [7476] = 7476,
-  [7477] = 7375,
-  [7478] = 7318,
+  [7477] = 7477,
+  [7478] = 7478,
   [7479] = 7479,
   [7480] = 7480,
-  [7481] = 7481,
-  [7482] = 4058,
+  [7481] = 7322,
+  [7482] = 5475,
   [7483] = 7483,
   [7484] = 7484,
-  [7485] = 7318,
-  [7486] = 7486,
+  [7485] = 7485,
+  [7486] = 4041,
   [7487] = 7487,
-  [7488] = 7450,
-  [7489] = 7451,
-  [7490] = 4545,
+  [7488] = 7488,
+  [7489] = 7489,
+  [7490] = 7490,
   [7491] = 7491,
-  [7492] = 7492,
-  [7493] = 7493,
+  [7492] = 7378,
+  [7493] = 7366,
   [7494] = 7494,
   [7495] = 7495,
   [7496] = 7496,
-  [7497] = 7318,
+  [7497] = 7497,
   [7498] = 7498,
-  [7499] = 4546,
-  [7500] = 7317,
-  [7501] = 7501,
+  [7499] = 7499,
+  [7500] = 7500,
+  [7501] = 7491,
   [7502] = 7502,
   [7503] = 7503,
   [7504] = 7504,
   [7505] = 7505,
-  [7506] = 2917,
+  [7506] = 7506,
   [7507] = 7507,
-  [7508] = 7508,
+  [7508] = 7357,
   [7509] = 7509,
-  [7510] = 7318,
-  [7511] = 7450,
+  [7510] = 821,
+  [7511] = 7511,
   [7512] = 7512,
   [7513] = 7513,
-  [7514] = 7514,
+  [7514] = 825,
   [7515] = 7515,
   [7516] = 7516,
   [7517] = 7517,
@@ -13065,341 +13059,341 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [7519] = 7519,
   [7520] = 7520,
   [7521] = 7521,
-  [7522] = 4558,
-  [7523] = 6729,
+  [7522] = 7522,
+  [7523] = 7523,
   [7524] = 7524,
   [7525] = 7525,
-  [7526] = 7318,
-  [7527] = 7527,
-  [7528] = 7528,
-  [7529] = 7317,
-  [7530] = 7530,
-  [7531] = 7318,
-  [7532] = 2916,
-  [7533] = 7317,
-  [7534] = 7317,
-  [7535] = 7443,
-  [7536] = 7536,
-  [7537] = 7454,
-  [7538] = 7317,
+  [7526] = 826,
+  [7527] = 835,
+  [7528] = 7322,
+  [7529] = 7529,
+  [7530] = 7357,
+  [7531] = 7322,
+  [7532] = 7357,
+  [7533] = 7533,
+  [7534] = 7322,
+  [7535] = 7535,
+  [7536] = 4041,
+  [7537] = 7537,
+  [7538] = 7538,
   [7539] = 7539,
-  [7540] = 7317,
-  [7541] = 7318,
+  [7540] = 7322,
+  [7541] = 7357,
   [7542] = 7542,
-  [7543] = 7318,
+  [7543] = 7322,
   [7544] = 7544,
-  [7545] = 7545,
+  [7545] = 4503,
   [7546] = 7546,
-  [7547] = 4527,
-  [7548] = 7548,
-  [7549] = 7549,
+  [7547] = 7357,
+  [7548] = 7357,
+  [7549] = 7322,
   [7550] = 7550,
   [7551] = 7551,
-  [7552] = 7552,
-  [7553] = 2924,
-  [7554] = 7554,
-  [7555] = 7555,
-  [7556] = 5500,
-  [7557] = 7437,
+  [7552] = 7357,
+  [7553] = 7322,
+  [7554] = 7357,
+  [7555] = 7322,
+  [7556] = 7357,
+  [7557] = 7322,
   [7558] = 7558,
-  [7559] = 5400,
-  [7560] = 7560,
-  [7561] = 7561,
-  [7562] = 7562,
-  [7563] = 5415,
-  [7564] = 7564,
+  [7559] = 7357,
+  [7560] = 7322,
+  [7561] = 7357,
+  [7562] = 7425,
+  [7563] = 7563,
+  [7564] = 7322,
   [7565] = 7565,
   [7566] = 7566,
-  [7567] = 7443,
-  [7568] = 7318,
-  [7569] = 7569,
-  [7570] = 7570,
-  [7571] = 7571,
-  [7572] = 7572,
-  [7573] = 7573,
-  [7574] = 7317,
-  [7575] = 7317,
-  [7576] = 7576,
-  [7577] = 7375,
+  [7567] = 7567,
+  [7568] = 7568,
+  [7569] = 7357,
+  [7570] = 7322,
+  [7571] = 7322,
+  [7572] = 7322,
+  [7573] = 7357,
+  [7574] = 7574,
+  [7575] = 7575,
+  [7576] = 7322,
+  [7577] = 7357,
   [7578] = 7578,
-  [7579] = 7579,
-  [7580] = 7580,
-  [7581] = 7564,
-  [7582] = 7317,
-  [7583] = 7583,
-  [7584] = 7584,
-  [7585] = 7585,
-  [7586] = 7586,
-  [7587] = 7587,
+  [7579] = 7322,
+  [7580] = 4584,
+  [7581] = 7581,
+  [7582] = 7357,
+  [7583] = 7322,
+  [7584] = 7425,
+  [7585] = 7357,
+  [7586] = 7322,
+  [7587] = 7389,
   [7588] = 7588,
-  [7589] = 7589,
-  [7590] = 7590,
-  [7591] = 817,
-  [7592] = 7318,
-  [7593] = 7593,
-  [7594] = 7594,
-  [7595] = 7317,
+  [7589] = 4571,
+  [7590] = 7357,
+  [7591] = 7322,
+  [7592] = 7357,
+  [7593] = 7322,
+  [7594] = 7357,
+  [7595] = 7322,
   [7596] = 7596,
   [7597] = 7597,
-  [7598] = 7317,
-  [7599] = 7599,
+  [7598] = 7357,
+  [7599] = 7322,
   [7600] = 7600,
   [7601] = 7601,
-  [7602] = 7602,
-  [7603] = 7603,
-  [7604] = 7318,
+  [7602] = 7357,
+  [7603] = 7357,
+  [7604] = 7322,
   [7605] = 7605,
-  [7606] = 7606,
+  [7606] = 7357,
   [7607] = 7607,
-  [7608] = 7608,
-  [7609] = 7451,
-  [7610] = 7610,
-  [7611] = 7611,
-  [7612] = 7612,
-  [7613] = 7613,
-  [7614] = 7614,
-  [7615] = 7318,
-  [7616] = 7354,
-  [7617] = 7317,
-  [7618] = 5449,
+  [7608] = 7322,
+  [7609] = 7357,
+  [7610] = 7496,
+  [7611] = 7322,
+  [7612] = 7357,
+  [7613] = 7357,
+  [7614] = 7357,
+  [7615] = 7615,
+  [7616] = 7425,
+  [7617] = 7322,
+  [7618] = 7618,
   [7619] = 7619,
-  [7620] = 7443,
-  [7621] = 7621,
-  [7622] = 7622,
+  [7620] = 7357,
+  [7621] = 7322,
+  [7622] = 7357,
   [7623] = 7623,
-  [7624] = 7564,
-  [7625] = 819,
-  [7626] = 7626,
-  [7627] = 7627,
-  [7628] = 7317,
+  [7624] = 7322,
+  [7625] = 7625,
+  [7626] = 7333,
+  [7627] = 7357,
+  [7628] = 7322,
   [7629] = 7629,
-  [7630] = 5410,
+  [7630] = 7630,
   [7631] = 7631,
-  [7632] = 7632,
-  [7633] = 7633,
-  [7634] = 7634,
-  [7635] = 7635,
-  [7636] = 5418,
-  [7637] = 7637,
-  [7638] = 7638,
+  [7632] = 7357,
+  [7633] = 7322,
+  [7634] = 7357,
+  [7635] = 7322,
+  [7636] = 7636,
+  [7637] = 7357,
+  [7638] = 7322,
   [7639] = 7639,
   [7640] = 7640,
-  [7641] = 7318,
-  [7642] = 7317,
+  [7641] = 7641,
+  [7642] = 7322,
   [7643] = 7643,
   [7644] = 7644,
-  [7645] = 7645,
-  [7646] = 7387,
+  [7645] = 7357,
+  [7646] = 7646,
   [7647] = 7647,
   [7648] = 7648,
   [7649] = 7649,
-  [7650] = 7317,
+  [7650] = 7650,
   [7651] = 7651,
   [7652] = 7652,
   [7653] = 7653,
   [7654] = 7654,
   [7655] = 7655,
-  [7656] = 7656,
-  [7657] = 7657,
+  [7656] = 7322,
+  [7657] = 7357,
   [7658] = 7658,
   [7659] = 7659,
   [7660] = 7660,
-  [7661] = 7564,
+  [7661] = 7661,
   [7662] = 7662,
   [7663] = 7663,
-  [7664] = 7664,
+  [7664] = 7322,
   [7665] = 7665,
   [7666] = 7666,
-  [7667] = 7667,
-  [7668] = 7318,
-  [7669] = 7443,
-  [7670] = 7670,
-  [7671] = 7671,
-  [7672] = 7350,
-  [7673] = 7317,
+  [7667] = 7322,
+  [7668] = 7668,
+  [7669] = 7669,
+  [7670] = 7357,
+  [7671] = 5437,
+  [7672] = 5438,
+  [7673] = 7673,
   [7674] = 7674,
-  [7675] = 7318,
+  [7675] = 7322,
   [7676] = 7676,
-  [7677] = 7677,
-  [7678] = 7678,
-  [7679] = 7679,
+  [7677] = 7357,
+  [7678] = 7357,
+  [7679] = 7357,
   [7680] = 7680,
-  [7681] = 7318,
+  [7681] = 7681,
   [7682] = 7682,
   [7683] = 7683,
-  [7684] = 7684,
-  [7685] = 7350,
+  [7684] = 7389,
+  [7685] = 7685,
   [7686] = 7686,
-  [7687] = 816,
+  [7687] = 7322,
   [7688] = 7688,
-  [7689] = 7317,
-  [7690] = 4058,
+  [7689] = 7689,
+  [7690] = 7690,
   [7691] = 7691,
-  [7692] = 7692,
-  [7693] = 7693,
+  [7692] = 7322,
+  [7693] = 7354,
   [7694] = 7694,
   [7695] = 7695,
   [7696] = 7696,
   [7697] = 7697,
-  [7698] = 7698,
-  [7699] = 7318,
+  [7698] = 7357,
+  [7699] = 7699,
   [7700] = 7700,
-  [7701] = 7701,
-  [7702] = 7702,
+  [7701] = 7322,
+  [7702] = 7567,
   [7703] = 7703,
-  [7704] = 7703,
-  [7705] = 7703,
+  [7704] = 7704,
+  [7705] = 7705,
   [7706] = 7706,
   [7707] = 7707,
   [7708] = 7708,
   [7709] = 7709,
   [7710] = 7710,
   [7711] = 7711,
-  [7712] = 7709,
+  [7712] = 7712,
   [7713] = 7713,
   [7714] = 7714,
   [7715] = 7715,
-  [7716] = 7716,
+  [7716] = 7706,
   [7717] = 7717,
-  [7718] = 7718,
-  [7719] = 3357,
+  [7718] = 7713,
+  [7719] = 7719,
   [7720] = 7720,
   [7721] = 7721,
-  [7722] = 7722,
+  [7722] = 7710,
   [7723] = 7723,
   [7724] = 7724,
   [7725] = 7725,
   [7726] = 7726,
   [7727] = 7727,
-  [7728] = 7726,
-  [7729] = 7729,
-  [7730] = 7706,
+  [7728] = 7705,
+  [7729] = 7712,
+  [7730] = 7717,
   [7731] = 7731,
-  [7732] = 7732,
-  [7733] = 7733,
-  [7734] = 7734,
+  [7732] = 7717,
+  [7733] = 7727,
+  [7734] = 7712,
   [7735] = 7735,
-  [7736] = 7736,
+  [7736] = 7705,
   [7737] = 7737,
-  [7738] = 7738,
+  [7738] = 7725,
   [7739] = 7739,
-  [7740] = 7740,
-  [7741] = 7741,
-  [7742] = 7735,
+  [7740] = 7710,
+  [7741] = 7721,
+  [7742] = 7713,
   [7743] = 7743,
   [7744] = 7744,
   [7745] = 7745,
-  [7746] = 5424,
+  [7746] = 7746,
   [7747] = 7747,
   [7748] = 7748,
   [7749] = 7708,
   [7750] = 7709,
-  [7751] = 7751,
-  [7752] = 7752,
-  [7753] = 7717,
-  [7754] = 7715,
-  [7755] = 7716,
+  [7751] = 7705,
+  [7752] = 7724,
+  [7753] = 7753,
+  [7754] = 7725,
+  [7755] = 7755,
   [7756] = 7715,
-  [7757] = 7716,
+  [7757] = 7706,
   [7758] = 7758,
-  [7759] = 7759,
-  [7760] = 7760,
+  [7759] = 7724,
+  [7760] = 7708,
   [7761] = 7720,
-  [7762] = 7762,
-  [7763] = 7763,
+  [7762] = 7710,
+  [7763] = 7709,
   [7764] = 7764,
   [7765] = 7724,
   [7766] = 7725,
   [7767] = 7767,
-  [7768] = 7768,
-  [7769] = 7726,
+  [7768] = 7737,
+  [7769] = 7705,
   [7770] = 7770,
-  [7771] = 7732,
+  [7771] = 7717,
   [7772] = 7772,
-  [7773] = 7734,
-  [7774] = 7774,
-  [7775] = 7740,
-  [7776] = 7741,
-  [7777] = 7735,
+  [7773] = 7712,
+  [7774] = 7712,
+  [7775] = 7710,
+  [7776] = 7721,
+  [7777] = 7713,
   [7778] = 7778,
-  [7779] = 7732,
-  [7780] = 7720,
+  [7779] = 7779,
+  [7780] = 7780,
   [7781] = 7781,
   [7782] = 7708,
   [7783] = 7709,
   [7784] = 7784,
-  [7785] = 7711,
+  [7785] = 7785,
   [7786] = 7786,
-  [7787] = 7711,
-  [7788] = 7786,
+  [7787] = 7787,
+  [7788] = 7788,
   [7789] = 7715,
-  [7790] = 7716,
+  [7790] = 7706,
   [7791] = 7791,
   [7792] = 7792,
-  [7793] = 7724,
+  [7793] = 7793,
   [7794] = 7720,
-  [7795] = 7725,
-  [7796] = 7734,
-  [7797] = 7797,
+  [7795] = 7720,
+  [7796] = 7796,
+  [7797] = 7721,
   [7798] = 7725,
-  [7799] = 7726,
+  [7799] = 7799,
   [7800] = 7800,
-  [7801] = 7726,
-  [7802] = 7720,
-  [7803] = 7732,
-  [7804] = 7723,
-  [7805] = 7734,
+  [7801] = 7705,
+  [7802] = 7802,
+  [7803] = 7717,
+  [7804] = 7706,
+  [7805] = 7712,
   [7806] = 7806,
-  [7807] = 7740,
-  [7808] = 7741,
-  [7809] = 7735,
-  [7810] = 7810,
+  [7807] = 7710,
+  [7808] = 7721,
+  [7809] = 7713,
+  [7810] = 7715,
   [7811] = 7811,
   [7812] = 7812,
-  [7813] = 7723,
+  [7813] = 7813,
   [7814] = 7708,
   [7815] = 7709,
-  [7816] = 7708,
+  [7816] = 7816,
   [7817] = 7817,
-  [7818] = 7817,
-  [7819] = 7772,
-  [7820] = 7715,
+  [7818] = 7818,
+  [7819] = 7819,
+  [7820] = 7709,
   [7821] = 7715,
-  [7822] = 7716,
-  [7823] = 7744,
-  [7824] = 7770,
+  [7822] = 7706,
+  [7823] = 7823,
+  [7824] = 7708,
   [7825] = 7825,
   [7826] = 7720,
-  [7827] = 7715,
-  [7828] = 7828,
-  [7829] = 7707,
+  [7827] = 7827,
+  [7828] = 7717,
+  [7829] = 7829,
   [7830] = 7725,
-  [7831] = 7768,
-  [7832] = 7825,
-  [7833] = 7726,
-  [7834] = 7732,
-  [7835] = 7732,
-  [7836] = 7836,
-  [7837] = 7734,
-  [7838] = 7797,
-  [7839] = 7740,
-  [7840] = 7741,
-  [7841] = 7735,
+  [7831] = 7831,
+  [7832] = 5435,
+  [7833] = 7705,
+  [7834] = 7713,
+  [7835] = 7717,
+  [7836] = 7715,
+  [7837] = 7712,
+  [7838] = 7706,
+  [7839] = 7710,
+  [7840] = 7721,
+  [7841] = 7713,
   [7842] = 7842,
   [7843] = 7843,
-  [7844] = 7734,
+  [7844] = 7713,
   [7845] = 7845,
   [7846] = 7708,
   [7847] = 7709,
-  [7848] = 7848,
-  [7849] = 7849,
-  [7850] = 7732,
-  [7851] = 7716,
-  [7852] = 7852,
+  [7848] = 7721,
+  [7849] = 7710,
+  [7850] = 7850,
+  [7851] = 7851,
+  [7852] = 7715,
   [7853] = 7715,
-  [7854] = 7716,
+  [7854] = 7706,
   [7855] = 7855,
-  [7856] = 7856,
+  [7856] = 7727,
   [7857] = 7857,
   [7858] = 7720,
   [7859] = 7859,
@@ -13407,828 +13401,827 @@ static const TSStateId ts_primary_state_ids[STATE_COUNT] = {
   [7861] = 7861,
   [7862] = 7725,
   [7863] = 7863,
-  [7864] = 7806,
-  [7865] = 7726,
-  [7866] = 7708,
-  [7867] = 7732,
-  [7868] = 7848,
-  [7869] = 7734,
-  [7870] = 7800,
-  [7871] = 7740,
-  [7872] = 7741,
-  [7873] = 7735,
+  [7864] = 7864,
+  [7865] = 7705,
+  [7866] = 7866,
+  [7867] = 7717,
+  [7868] = 7780,
+  [7869] = 7712,
+  [7870] = 7870,
+  [7871] = 7710,
+  [7872] = 7721,
+  [7873] = 7713,
   [7874] = 7874,
   [7875] = 7875,
-  [7876] = 7740,
+  [7876] = 7876,
   [7877] = 7877,
   [7878] = 7708,
   [7879] = 7709,
-  [7880] = 7856,
-  [7881] = 7881,
-  [7882] = 7741,
-  [7883] = 7735,
+  [7880] = 7793,
+  [7881] = 7706,
+  [7882] = 7882,
+  [7883] = 7883,
   [7884] = 7884,
   [7885] = 7715,
-  [7886] = 7716,
+  [7886] = 7706,
   [7887] = 7887,
   [7888] = 7888,
-  [7889] = 7889,
+  [7889] = 7720,
   [7890] = 7720,
   [7891] = 7891,
-  [7892] = 7892,
+  [7892] = 7712,
   [7893] = 7725,
   [7894] = 7894,
-  [7895] = 7895,
-  [7896] = 7726,
-  [7897] = 7732,
-  [7898] = 7710,
-  [7899] = 7734,
-  [7900] = 7740,
-  [7901] = 7741,
-  [7902] = 7735,
+  [7895] = 7717,
+  [7896] = 7705,
+  [7897] = 7717,
+  [7898] = 7720,
+  [7899] = 7712,
+  [7900] = 7710,
+  [7901] = 7721,
+  [7902] = 7713,
   [7903] = 7708,
   [7904] = 7709,
   [7905] = 7715,
-  [7906] = 7716,
+  [7906] = 7706,
   [7907] = 7720,
-  [7908] = 7908,
+  [7908] = 7888,
   [7909] = 7725,
   [7910] = 7910,
-  [7911] = 7708,
-  [7912] = 7726,
-  [7913] = 7732,
-  [7914] = 7709,
-  [7915] = 7734,
-  [7916] = 7740,
-  [7917] = 7741,
-  [7918] = 7735,
+  [7911] = 7911,
+  [7912] = 7705,
+  [7913] = 7717,
+  [7914] = 7914,
+  [7915] = 7712,
+  [7916] = 7710,
+  [7917] = 7721,
+  [7918] = 7713,
   [7919] = 7708,
   [7920] = 7709,
   [7921] = 7715,
-  [7922] = 7716,
+  [7922] = 7706,
   [7923] = 7720,
-  [7924] = 7709,
+  [7924] = 7924,
   [7925] = 7725,
   [7926] = 7926,
-  [7927] = 7927,
-  [7928] = 7726,
-  [7929] = 7732,
-  [7930] = 7930,
-  [7931] = 7734,
-  [7932] = 7740,
-  [7933] = 7741,
-  [7934] = 7735,
+  [7927] = 7784,
+  [7928] = 7705,
+  [7929] = 7717,
+  [7930] = 7863,
+  [7931] = 7712,
+  [7932] = 7710,
+  [7933] = 7721,
+  [7934] = 7713,
   [7935] = 7708,
   [7936] = 7709,
   [7937] = 7715,
-  [7938] = 7716,
+  [7938] = 7706,
   [7939] = 7720,
-  [7940] = 7740,
+  [7940] = 7831,
   [7941] = 7725,
   [7942] = 7942,
-  [7943] = 7715,
-  [7944] = 7726,
-  [7945] = 7732,
-  [7946] = 7716,
-  [7947] = 7740,
-  [7948] = 7741,
+  [7943] = 7727,
+  [7944] = 7705,
+  [7945] = 7717,
+  [7946] = 7705,
+  [7947] = 7710,
+  [7948] = 7705,
   [7949] = 7725,
-  [7950] = 7707,
+  [7950] = 7950,
   [7951] = 7951,
-  [7952] = 7726,
-  [7953] = 7732,
-  [7954] = 7720,
-  [7955] = 7740,
-  [7956] = 7735,
+  [7952] = 7705,
+  [7953] = 7717,
+  [7954] = 7926,
+  [7955] = 7710,
+  [7956] = 7725,
   [7957] = 7725,
-  [7958] = 7706,
-  [7959] = 7959,
-  [7960] = 7726,
-  [7961] = 7732,
-  [7962] = 7962,
-  [7963] = 7740,
-  [7964] = 7964,
+  [7958] = 7850,
+  [7959] = 7724,
+  [7960] = 7705,
+  [7961] = 7717,
+  [7962] = 7725,
+  [7963] = 7710,
+  [7964] = 7724,
   [7965] = 7725,
-  [7966] = 7966,
-  [7967] = 7967,
-  [7968] = 7726,
-  [7969] = 7732,
+  [7966] = 7842,
+  [7967] = 7706,
+  [7968] = 7705,
+  [7969] = 7717,
   [7970] = 7970,
-  [7971] = 7740,
+  [7971] = 7710,
   [7972] = 7972,
   [7973] = 7725,
-  [7974] = 7732,
-  [7975] = 7975,
-  [7976] = 7726,
-  [7977] = 7732,
+  [7974] = 7715,
+  [7975] = 7914,
+  [7976] = 7705,
+  [7977] = 7717,
   [7978] = 7978,
-  [7979] = 7740,
-  [7980] = 7980,
+  [7979] = 7710,
+  [7980] = 7724,
   [7981] = 7725,
-  [7982] = 7711,
+  [7982] = 7982,
   [7983] = 7983,
-  [7984] = 7726,
-  [7985] = 7732,
-  [7986] = 7986,
-  [7987] = 7740,
-  [7988] = 7988,
+  [7984] = 7705,
+  [7985] = 7717,
+  [7986] = 7720,
+  [7987] = 7710,
+  [7988] = 7725,
   [7989] = 7725,
-  [7990] = 7708,
-  [7991] = 7759,
-  [7992] = 7726,
-  [7993] = 7732,
-  [7994] = 7994,
-  [7995] = 7740,
-  [7996] = 7709,
+  [7990] = 7706,
+  [7991] = 7991,
+  [7992] = 7705,
+  [7993] = 7717,
+  [7994] = 7715,
+  [7995] = 7710,
+  [7996] = 7705,
   [7997] = 7725,
   [7998] = 7998,
-  [7999] = 7724,
-  [8000] = 7726,
-  [8001] = 7732,
-  [8002] = 7725,
-  [8003] = 7740,
-  [8004] = 8004,
+  [7999] = 7999,
+  [8000] = 7942,
+  [8001] = 7717,
+  [8002] = 7735,
+  [8003] = 7710,
+  [8004] = 7709,
   [8005] = 7725,
-  [8006] = 7716,
-  [8007] = 7726,
-  [8008] = 7726,
-  [8009] = 7732,
-  [8010] = 8010,
-  [8011] = 7740,
-  [8012] = 7711,
+  [8006] = 8006,
+  [8007] = 8007,
+  [8008] = 7705,
+  [8009] = 7717,
+  [8010] = 7708,
+  [8011] = 7710,
+  [8012] = 8012,
   [8013] = 7725,
-  [8014] = 8014,
-  [8015] = 7767,
-  [8016] = 7726,
-  [8017] = 7732,
-  [8018] = 7723,
-  [8019] = 7740,
-  [8020] = 7810,
+  [8014] = 7780,
+  [8015] = 7709,
+  [8016] = 7705,
+  [8017] = 7717,
+  [8018] = 8018,
+  [8019] = 7710,
+  [8020] = 8020,
   [8021] = 7725,
-  [8022] = 8022,
+  [8022] = 7708,
   [8023] = 8023,
-  [8024] = 7726,
-  [8025] = 7732,
-  [8026] = 7741,
-  [8027] = 7740,
-  [8028] = 8028,
+  [8024] = 7705,
+  [8025] = 7717,
+  [8026] = 8026,
+  [8027] = 7710,
+  [8028] = 7713,
   [8029] = 7725,
-  [8030] = 7724,
+  [8030] = 7721,
   [8031] = 8031,
-  [8032] = 7726,
-  [8033] = 7732,
-  [8034] = 8034,
-  [8035] = 7740,
-  [8036] = 7725,
+  [8032] = 7705,
+  [8033] = 7717,
+  [8034] = 7710,
+  [8035] = 7710,
+  [8036] = 7727,
   [8037] = 7725,
-  [8038] = 7724,
-  [8039] = 7725,
-  [8040] = 7726,
-  [8041] = 7732,
+  [8038] = 7708,
+  [8039] = 7713,
+  [8040] = 7705,
+  [8041] = 7717,
   [8042] = 8042,
-  [8043] = 7740,
-  [8044] = 7759,
+  [8043] = 7710,
+  [8044] = 7726,
   [8045] = 7725,
-  [8046] = 7726,
-  [8047] = 8047,
-  [8048] = 7726,
-  [8049] = 7732,
-  [8050] = 7860,
-  [8051] = 7740,
-  [8052] = 7723,
+  [8046] = 8046,
+  [8047] = 7721,
+  [8048] = 7705,
+  [8049] = 7717,
+  [8050] = 7717,
+  [8051] = 7710,
+  [8052] = 8031,
   [8053] = 7725,
-  [8054] = 8054,
-  [8055] = 8055,
-  [8056] = 7726,
-  [8057] = 7732,
-  [8058] = 8058,
-  [8059] = 7740,
-  [8060] = 8060,
+  [8054] = 7710,
+  [8055] = 7753,
+  [8056] = 7705,
+  [8057] = 7717,
+  [8058] = 7712,
+  [8059] = 7710,
+  [8060] = 7717,
   [8061] = 7725,
-  [8062] = 7732,
-  [8063] = 7734,
-  [8064] = 7726,
-  [8065] = 7732,
-  [8066] = 7781,
-  [8067] = 7740,
-  [8068] = 7734,
+  [8062] = 8062,
+  [8063] = 7712,
+  [8064] = 7705,
+  [8065] = 7717,
+  [8066] = 7707,
+  [8067] = 7710,
+  [8068] = 8068,
   [8069] = 7725,
   [8070] = 8070,
-  [8071] = 8071,
-  [8072] = 7726,
-  [8073] = 7732,
-  [8074] = 7732,
-  [8075] = 7740,
+  [8071] = 7999,
+  [8072] = 7705,
+  [8073] = 7717,
+  [8074] = 7727,
+  [8075] = 7710,
   [8076] = 8076,
   [8077] = 7725,
-  [8078] = 7734,
+  [8078] = 7709,
   [8079] = 8079,
-  [8080] = 7726,
-  [8081] = 7732,
-  [8082] = 8082,
-  [8083] = 7740,
-  [8084] = 8084,
+  [8080] = 7705,
+  [8081] = 7717,
+  [8082] = 7705,
+  [8083] = 7710,
+  [8084] = 7711,
   [8085] = 7725,
-  [8086] = 7715,
+  [8086] = 8086,
   [8087] = 8087,
-  [8088] = 7726,
-  [8089] = 7732,
-  [8090] = 7716,
-  [8091] = 7740,
-  [8092] = 8092,
+  [8088] = 7705,
+  [8089] = 7717,
+  [8090] = 7710,
+  [8091] = 7710,
+  [8092] = 7725,
   [8093] = 7725,
-  [8094] = 8094,
-  [8095] = 7772,
-  [8096] = 7726,
-  [8097] = 7732,
-  [8098] = 7759,
-  [8099] = 7740,
-  [8100] = 8100,
+  [8094] = 8079,
+  [8095] = 8068,
+  [8096] = 7705,
+  [8097] = 7717,
+  [8098] = 7724,
+  [8099] = 7710,
+  [8100] = 7721,
   [8101] = 7725,
-  [8102] = 7744,
-  [8103] = 8103,
-  [8104] = 7726,
-  [8105] = 7732,
+  [8102] = 7712,
+  [8103] = 7713,
+  [8104] = 7705,
+  [8105] = 7717,
   [8106] = 8106,
-  [8107] = 7740,
-  [8108] = 7740,
+  [8107] = 7710,
+  [8108] = 8108,
   [8109] = 7725,
-  [8110] = 7741,
-  [8111] = 7720,
-  [8112] = 7726,
-  [8113] = 7732,
-  [8114] = 7735,
-  [8115] = 7740,
-  [8116] = 8116,
+  [8110] = 8018,
+  [8111] = 8111,
+  [8112] = 7705,
+  [8113] = 7717,
+  [8114] = 8114,
+  [8115] = 7710,
+  [8116] = 7708,
   [8117] = 7725,
-  [8118] = 8118,
-  [8119] = 7781,
-  [8120] = 7726,
-  [8121] = 7732,
-  [8122] = 7740,
-  [8123] = 7740,
+  [8118] = 7709,
+  [8119] = 7717,
+  [8120] = 7705,
+  [8121] = 7717,
+  [8122] = 7780,
+  [8123] = 7710,
   [8124] = 8124,
   [8125] = 7725,
-  [8126] = 7741,
-  [8127] = 7735,
-  [8128] = 7726,
-  [8129] = 7732,
-  [8130] = 8130,
-  [8131] = 7740,
-  [8132] = 7708,
+  [8126] = 7747,
+  [8127] = 8127,
+  [8128] = 7705,
+  [8129] = 7717,
+  [8130] = 7724,
+  [8131] = 7710,
+  [8132] = 7725,
   [8133] = 7725,
-  [8134] = 7709,
+  [8134] = 8134,
   [8135] = 8135,
-  [8136] = 7726,
-  [8137] = 7732,
+  [8136] = 7705,
+  [8137] = 7717,
   [8138] = 8138,
-  [8139] = 7740,
+  [8139] = 7710,
   [8140] = 8140,
-  [8141] = 7767,
-  [8142] = 8142,
-  [8143] = 8143,
+  [8141] = 7744,
+  [8142] = 8087,
+  [8143] = 7727,
   [8144] = 8144,
-  [8145] = 8023,
-  [8146] = 8146,
-  [8147] = 8147,
-  [8148] = 8148,
+  [8145] = 7715,
+  [8146] = 7758,
+  [8147] = 7780,
+  [8148] = 7705,
   [8149] = 8149,
-  [8150] = 7715,
-  [8151] = 7716,
-  [8152] = 8152,
-  [8153] = 7926,
-  [8154] = 7770,
-  [8155] = 7860,
+  [8150] = 8150,
+  [8151] = 7725,
+  [8152] = 8086,
+  [8153] = 7709,
+  [8154] = 7724,
+  [8155] = 8155,
   [8156] = 8156,
   [8157] = 8157,
-  [8158] = 7951,
-  [8159] = 7720,
-  [8160] = 7817,
-  [8161] = 7715,
+  [8158] = 7720,
+  [8159] = 8159,
+  [8160] = 7720,
+  [8161] = 8161,
   [8162] = 8162,
-  [8163] = 7744,
-  [8164] = 8164,
+  [8163] = 7706,
+  [8164] = 7715,
   [8165] = 8165,
-  [8166] = 8166,
-  [8167] = 7708,
-  [8168] = 8168,
-  [8169] = 7709,
-  [8170] = 8170,
-  [8171] = 7810,
+  [8166] = 7799,
+  [8167] = 8167,
+  [8168] = 8062,
+  [8169] = 8169,
+  [8170] = 7842,
+  [8171] = 7708,
   [8172] = 8172,
-  [8173] = 7817,
-  [8174] = 7768,
-  [8175] = 7848,
-  [8176] = 7748,
-  [8177] = 7711,
-  [8178] = 8178,
+  [8173] = 7705,
+  [8174] = 8174,
+  [8175] = 7827,
+  [8176] = 8176,
+  [8177] = 7709,
+  [8178] = 7708,
   [8179] = 8179,
   [8180] = 8180,
   [8181] = 8181,
-  [8182] = 8172,
-  [8183] = 8147,
-  [8184] = 7726,
-  [8185] = 7716,
-  [8186] = 5414,
+  [8182] = 7972,
+  [8183] = 7735,
+  [8184] = 7851,
+  [8185] = 7850,
+  [8186] = 5401,
   [8187] = 8187,
-  [8188] = 7720,
-  [8189] = 7706,
-  [8190] = 7810,
+  [8188] = 8188,
+  [8189] = 7713,
+  [8190] = 7855,
   [8191] = 8191,
-  [8192] = 7926,
-  [8193] = 7817,
-  [8194] = 7828,
-  [8195] = 7759,
-  [8196] = 8196,
+  [8192] = 7753,
+  [8193] = 7788,
+  [8194] = 7721,
+  [8195] = 7721,
+  [8196] = 7983,
   [8197] = 8197,
   [8198] = 8198,
-  [8199] = 7715,
-  [8200] = 7716,
-  [8201] = 7759,
-  [8202] = 7707,
-  [8203] = 8092,
-  [8204] = 8140,
-  [8205] = 7767,
-  [8206] = 8206,
-  [8207] = 8207,
-  [8208] = 8208,
+  [8199] = 8199,
+  [8200] = 8200,
+  [8201] = 7710,
+  [8202] = 8202,
+  [8203] = 8203,
+  [8204] = 7715,
+  [8205] = 7720,
+  [8206] = 7888,
+  [8207] = 7793,
+  [8208] = 8188,
   [8209] = 8209,
-  [8210] = 8210,
+  [8210] = 8012,
   [8211] = 8211,
-  [8212] = 7767,
-  [8213] = 7738,
+  [8212] = 8197,
+  [8213] = 8213,
   [8214] = 8214,
-  [8215] = 8215,
-  [8216] = 8124,
+  [8215] = 8200,
+  [8216] = 7755,
   [8217] = 8217,
-  [8218] = 8218,
-  [8219] = 7988,
-  [8220] = 8220,
-  [8221] = 8221,
-  [8222] = 8162,
+  [8218] = 7745,
+  [8219] = 8159,
+  [8220] = 8167,
+  [8221] = 8169,
+  [8222] = 8174,
   [8223] = 8223,
   [8224] = 8224,
   [8225] = 8225,
   [8226] = 8226,
   [8227] = 8227,
-  [8228] = 7770,
-  [8229] = 7707,
+  [8228] = 8228,
+  [8229] = 8229,
   [8230] = 8230,
-  [8231] = 7715,
-  [8232] = 8232,
-  [8233] = 8178,
-  [8234] = 8234,
-  [8235] = 8235,
-  [8236] = 8236,
+  [8231] = 7863,
+  [8232] = 8180,
+  [8233] = 8225,
+  [8234] = 7842,
+  [8235] = 7850,
+  [8236] = 7863,
   [8237] = 8237,
-  [8238] = 7724,
+  [8238] = 8238,
   [8239] = 8239,
-  [8240] = 7725,
+  [8240] = 8240,
   [8241] = 8241,
   [8242] = 8242,
-  [8243] = 7726,
-  [8244] = 8244,
+  [8243] = 8191,
+  [8244] = 7793,
   [8245] = 8140,
   [8246] = 8246,
-  [8247] = 7723,
-  [8248] = 7720,
-  [8249] = 7825,
-  [8250] = 8250,
-  [8251] = 7810,
+  [8247] = 8247,
+  [8248] = 8179,
+  [8249] = 7712,
+  [8250] = 7888,
+  [8251] = 7717,
   [8252] = 8252,
-  [8253] = 7889,
+  [8253] = 7720,
   [8254] = 8254,
-  [8255] = 7817,
-  [8256] = 7723,
-  [8257] = 8257,
-  [8258] = 7726,
+  [8255] = 8255,
+  [8256] = 8256,
+  [8257] = 7705,
+  [8258] = 8258,
   [8259] = 8259,
-  [8260] = 8260,
+  [8260] = 7720,
   [8261] = 8261,
   [8262] = 8262,
   [8263] = 8263,
   [8264] = 8264,
-  [8265] = 8166,
-  [8266] = 7707,
+  [8265] = 7799,
+  [8266] = 8259,
   [8267] = 8267,
-  [8268] = 7732,
-  [8269] = 8269,
+  [8268] = 8268,
+  [8269] = 7727,
   [8270] = 8270,
-  [8271] = 7748,
+  [8271] = 8176,
   [8272] = 8272,
-  [8273] = 7720,
-  [8274] = 7734,
-  [8275] = 8207,
-  [8276] = 8276,
-  [8277] = 7772,
-  [8278] = 5469,
-  [8279] = 7926,
-  [8280] = 7720,
-  [8281] = 8147,
-  [8282] = 8282,
-  [8283] = 8283,
-  [8284] = 7781,
-  [8285] = 8285,
-  [8286] = 8286,
-  [8287] = 7927,
-  [8288] = 8288,
+  [8273] = 8273,
+  [8274] = 8252,
+  [8275] = 8275,
+  [8276] = 7842,
+  [8277] = 7850,
+  [8278] = 7705,
+  [8279] = 7753,
+  [8280] = 7850,
+  [8281] = 8259,
+  [8282] = 7706,
+  [8283] = 7842,
+  [8284] = 8284,
+  [8285] = 7724,
+  [8286] = 7725,
+  [8287] = 8252,
+  [8288] = 7724,
   [8289] = 8289,
-  [8290] = 8208,
-  [8291] = 8291,
-  [8292] = 8292,
-  [8293] = 8124,
-  [8294] = 8236,
-  [8295] = 8218,
-  [8296] = 7988,
-  [8297] = 8220,
-  [8298] = 8221,
-  [8299] = 8162,
+  [8290] = 8188,
+  [8291] = 7788,
+  [8292] = 7725,
+  [8293] = 7755,
+  [8294] = 7715,
+  [8295] = 7745,
+  [8296] = 8159,
+  [8297] = 8167,
+  [8298] = 8169,
+  [8299] = 8174,
   [8300] = 8225,
   [8301] = 8226,
   [8302] = 8227,
-  [8303] = 7740,
+  [8303] = 8303,
   [8304] = 8140,
-  [8305] = 7741,
-  [8306] = 7735,
-  [8307] = 7810,
-  [8308] = 7287,
-  [8309] = 8207,
+  [8305] = 7721,
+  [8306] = 8306,
+  [8307] = 7851,
+  [8308] = 8308,
+  [8309] = 7827,
   [8310] = 8310,
-  [8311] = 7288,
+  [8311] = 7727,
   [8312] = 8312,
-  [8313] = 7290,
+  [8313] = 8313,
   [8314] = 8314,
   [8315] = 8315,
   [8316] = 8316,
-  [8317] = 7710,
-  [8318] = 7709,
-  [8319] = 7817,
-  [8320] = 8320,
-  [8321] = 8321,
-  [8322] = 7713,
-  [8323] = 8323,
-  [8324] = 7748,
-  [8325] = 8225,
-  [8326] = 8326,
-  [8327] = 7708,
-  [8328] = 7709,
-  [8329] = 8329,
-  [8330] = 7994,
-  [8331] = 8157,
-  [8332] = 8208,
-  [8333] = 8218,
-  [8334] = 8334,
-  [8335] = 8218,
-  [8336] = 8149,
+  [8317] = 8317,
+  [8318] = 8318,
+  [8319] = 8319,
+  [8320] = 7712,
+  [8321] = 7717,
+  [8322] = 8322,
+  [8323] = 8226,
+  [8324] = 8176,
+  [8325] = 7888,
+  [8326] = 7793,
+  [8327] = 8227,
+  [8328] = 8237,
+  [8329] = 7780,
+  [8330] = 7712,
+  [8331] = 8068,
+  [8332] = 8188,
+  [8333] = 8333,
+  [8334] = 7709,
+  [8335] = 7745,
+  [8336] = 7861,
   [8337] = 8140,
   [8338] = 8338,
-  [8339] = 7715,
-  [8340] = 8340,
-  [8341] = 7716,
-  [8342] = 7951,
+  [8339] = 7710,
+  [8340] = 7709,
+  [8341] = 7999,
+  [8342] = 8342,
   [8343] = 8343,
-  [8344] = 8344,
+  [8344] = 7713,
   [8345] = 8345,
-  [8346] = 7720,
-  [8347] = 8178,
-  [8348] = 7707,
-  [8349] = 8349,
-  [8350] = 8350,
+  [8346] = 8346,
+  [8347] = 8347,
+  [8348] = 8348,
+  [8349] = 7731,
+  [8350] = 7781,
   [8351] = 8351,
   [8352] = 8352,
-  [8353] = 8353,
-  [8354] = 7738,
-  [8355] = 7748,
-  [8356] = 7711,
-  [8357] = 8357,
-  [8358] = 8358,
+  [8353] = 7708,
+  [8354] = 8354,
+  [8355] = 8176,
+  [8356] = 8031,
+  [8357] = 7863,
+  [8358] = 7708,
   [8359] = 8359,
   [8360] = 8360,
-  [8361] = 8208,
-  [8362] = 8362,
-  [8363] = 8218,
-  [8364] = 7732,
+  [8361] = 8188,
+  [8362] = 7709,
+  [8363] = 7745,
+  [8364] = 7802,
   [8365] = 8140,
   [8366] = 8366,
-  [8367] = 7926,
-  [8368] = 8368,
-  [8369] = 7707,
-  [8370] = 7724,
-  [8371] = 7725,
-  [8372] = 7927,
-  [8373] = 8373,
+  [8367] = 7713,
+  [8368] = 7843,
+  [8369] = 7721,
+  [8370] = 7780,
+  [8371] = 7772,
+  [8372] = 7710,
+  [8373] = 8303,
   [8374] = 8374,
-  [8375] = 8060,
-  [8376] = 7724,
-  [8377] = 7725,
+  [8375] = 7753,
+  [8376] = 8228,
+  [8377] = 8377,
   [8378] = 8378,
-  [8379] = 7726,
-  [8380] = 7740,
-  [8381] = 8381,
-  [8382] = 7726,
-  [8383] = 8208,
-  [8384] = 8218,
+  [8379] = 8312,
+  [8380] = 7998,
+  [8381] = 7712,
+  [8382] = 7781,
+  [8383] = 8188,
+  [8384] = 7745,
   [8385] = 8385,
   [8386] = 8140,
-  [8387] = 7848,
+  [8387] = 8387,
   [8388] = 8388,
-  [8389] = 8389,
-  [8390] = 8390,
-  [8391] = 7723,
-  [8392] = 8344,
-  [8393] = 7970,
+  [8389] = 8203,
+  [8390] = 7717,
+  [8391] = 7753,
+  [8392] = 8392,
+  [8393] = 8317,
   [8394] = 8394,
-  [8395] = 7983,
-  [8396] = 7734,
-  [8397] = 7741,
+  [8395] = 7727,
+  [8396] = 8396,
+  [8397] = 8319,
   [8398] = 8398,
   [8399] = 8399,
-  [8400] = 7724,
-  [8401] = 7725,
-  [8402] = 8179,
-  [8403] = 8208,
-  [8404] = 8218,
-  [8405] = 7716,
+  [8400] = 7705,
+  [8401] = 7888,
+  [8402] = 8402,
+  [8403] = 8188,
+  [8404] = 7745,
+  [8405] = 7720,
   [8406] = 8140,
-  [8407] = 8407,
-  [8408] = 7722,
-  [8409] = 7726,
-  [8410] = 7723,
-  [8411] = 8411,
-  [8412] = 7723,
-  [8413] = 8208,
+  [8407] = 7793,
+  [8408] = 7727,
+  [8409] = 7724,
+  [8410] = 7725,
+  [8411] = 7724,
+  [8412] = 8412,
+  [8413] = 8413,
   [8414] = 8414,
   [8415] = 8415,
-  [8416] = 8358,
-  [8417] = 8236,
-  [8418] = 7722,
-  [8419] = 8419,
-  [8420] = 8420,
-  [8421] = 7724,
-  [8422] = 7725,
-  [8423] = 8208,
-  [8424] = 8218,
+  [8416] = 8416,
+  [8417] = 7706,
+  [8418] = 8418,
+  [8419] = 7725,
+  [8420] = 7715,
+  [8421] = 8421,
+  [8422] = 8176,
+  [8423] = 8188,
+  [8424] = 7745,
   [8425] = 8425,
   [8426] = 8140,
-  [8427] = 7732,
-  [8428] = 8428,
-  [8429] = 7732,
-  [8430] = 7734,
-  [8431] = 7735,
-  [8432] = 7726,
-  [8433] = 8433,
-  [8434] = 8434,
-  [8435] = 7734,
-  [8436] = 8436,
+  [8427] = 7715,
+  [8428] = 7705,
+  [8429] = 7724,
+  [8430] = 7721,
+  [8431] = 7708,
+  [8432] = 7831,
+  [8433] = 7706,
+  [8434] = 7842,
+  [8435] = 7784,
+  [8436] = 7850,
   [8437] = 8437,
-  [8438] = 7735,
+  [8438] = 8237,
   [8439] = 8439,
-  [8440] = 8208,
+  [8440] = 8188,
   [8441] = 8441,
   [8442] = 8140,
   [8443] = 8443,
-  [8444] = 7732,
-  [8445] = 8445,
-  [8446] = 7740,
-  [8447] = 7741,
+  [8444] = 8444,
+  [8445] = 7914,
+  [8446] = 5421,
+  [8447] = 8447,
   [8448] = 8448,
-  [8449] = 7735,
-  [8450] = 7786,
-  [8451] = 8451,
-  [8452] = 7797,
-  [8453] = 7800,
-  [8454] = 8454,
-  [8455] = 7734,
-  [8456] = 8208,
-  [8457] = 8198,
+  [8449] = 8449,
+  [8450] = 7727,
+  [8451] = 7713,
+  [8452] = 7721,
+  [8453] = 7710,
+  [8454] = 7710,
+  [8455] = 7717,
+  [8456] = 8188,
+  [8457] = 7717,
   [8458] = 8140,
-  [8459] = 8459,
-  [8460] = 7718,
-  [8461] = 8100,
-  [8462] = 8326,
-  [8463] = 8463,
-  [8464] = 7723,
-  [8465] = 7708,
-  [8466] = 7709,
-  [8467] = 8381,
-  [8468] = 8389,
-  [8469] = 8244,
-  [8470] = 8310,
-  [8471] = 7740,
-  [8472] = 8208,
-  [8473] = 7715,
+  [8459] = 7764,
+  [8460] = 8360,
+  [8461] = 7863,
+  [8462] = 7767,
+  [8463] = 5399,
+  [8464] = 7720,
+  [8465] = 8465,
+  [8466] = 8466,
+  [8467] = 8345,
+  [8468] = 8468,
+  [8469] = 7888,
+  [8470] = 8470,
+  [8471] = 7802,
+  [8472] = 8188,
+  [8473] = 8342,
   [8474] = 8140,
-  [8475] = 7716,
-  [8476] = 7759,
-  [8477] = 8477,
-  [8478] = 8478,
-  [8479] = 7720,
+  [8475] = 7772,
+  [8476] = 7781,
+  [8477] = 7712,
+  [8478] = 8237,
+  [8479] = 7793,
   [8480] = 8480,
   [8481] = 8481,
-  [8482] = 7751,
-  [8483] = 8351,
-  [8484] = 7740,
-  [8485] = 7741,
-  [8486] = 7735,
-  [8487] = 8208,
-  [8488] = 8488,
+  [8482] = 7712,
+  [8483] = 7793,
+  [8484] = 8484,
+  [8485] = 8485,
+  [8486] = 7717,
+  [8487] = 8188,
+  [8488] = 7706,
   [8489] = 8140,
   [8490] = 8490,
-  [8491] = 8491,
-  [8492] = 8492,
-  [8493] = 8493,
-  [8494] = 8494,
+  [8491] = 7737,
+  [8492] = 7888,
+  [8493] = 7863,
+  [8494] = 8319,
   [8495] = 8495,
-  [8496] = 7732,
-  [8497] = 8272,
-  [8498] = 8232,
-  [8499] = 7889,
-  [8500] = 8058,
-  [8501] = 8060,
-  [8502] = 8208,
-  [8503] = 8503,
+  [8496] = 7829,
+  [8497] = 8497,
+  [8498] = 7843,
+  [8499] = 8317,
+  [8500] = 8252,
+  [8501] = 7720,
+  [8502] = 8188,
+  [8503] = 7713,
   [8504] = 8140,
-  [8505] = 7734,
-  [8506] = 7724,
-  [8507] = 7725,
-  [8508] = 7767,
-  [8509] = 8234,
+  [8505] = 8505,
+  [8506] = 7727,
+  [8507] = 8507,
+  [8508] = 7705,
+  [8509] = 8333,
   [8510] = 8510,
-  [8511] = 8208,
+  [8511] = 8188,
   [8512] = 8512,
   [8513] = 8140,
-  [8514] = 7726,
-  [8515] = 8515,
-  [8516] = 8516,
-  [8517] = 7723,
-  [8518] = 8118,
-  [8519] = 8519,
-  [8520] = 8208,
+  [8514] = 8514,
+  [8515] = 7753,
+  [8516] = 8259,
+  [8517] = 7710,
+  [8518] = 8518,
+  [8519] = 7767,
+  [8520] = 8188,
   [8521] = 8521,
   [8522] = 8140,
-  [8523] = 7726,
-  [8524] = 8524,
+  [8523] = 8523,
+  [8524] = 7772,
   [8525] = 8525,
-  [8526] = 8526,
-  [8527] = 8208,
-  [8528] = 8528,
-  [8529] = 8157,
-  [8530] = 7774,
-  [8531] = 7708,
+  [8526] = 7866,
+  [8527] = 8188,
+  [8528] = 7088,
+  [8529] = 7091,
+  [8530] = 7093,
+  [8531] = 8342,
   [8532] = 8532,
-  [8533] = 8208,
-  [8534] = 7724,
-  [8535] = 7709,
-  [8536] = 8536,
-  [8537] = 7745,
-  [8538] = 7732,
-  [8539] = 8208,
-  [8540] = 7711,
-  [8541] = 7734,
+  [8533] = 8188,
+  [8534] = 8534,
+  [8535] = 8535,
+  [8536] = 8345,
+  [8537] = 8537,
+  [8538] = 7863,
+  [8539] = 8188,
+  [8540] = 7942,
+  [8541] = 8541,
   [8542] = 8542,
-  [8543] = 8543,
-  [8544] = 8208,
+  [8543] = 7829,
+  [8544] = 8188,
   [8545] = 8545,
-  [8546] = 7727,
-  [8547] = 8180,
-  [8548] = 8548,
-  [8549] = 7875,
-  [8550] = 8220,
-  [8551] = 8221,
-  [8552] = 8178,
-  [8553] = 7740,
+  [8546] = 8546,
+  [8547] = 7850,
+  [8548] = 7843,
+  [8549] = 7713,
+  [8550] = 7842,
+  [8551] = 7725,
+  [8552] = 8552,
+  [8553] = 8553,
   [8554] = 8554,
-  [8555] = 7741,
-  [8556] = 7735,
+  [8555] = 8555,
+  [8556] = 8556,
   [8557] = 8557,
-  [8558] = 7736,
-  [8559] = 7740,
-  [8560] = 7741,
-  [8561] = 7735,
-  [8562] = 8562,
-  [8563] = 8563,
-  [8564] = 8564,
-  [8565] = 7926,
+  [8558] = 7727,
+  [8559] = 7726,
+  [8560] = 8560,
+  [8561] = 7861,
+  [8562] = 8191,
+  [8563] = 7883,
+  [8564] = 7866,
+  [8565] = 7894,
   [8566] = 8566,
   [8567] = 8567,
-  [8568] = 8568,
-  [8569] = 7740,
-  [8570] = 7970,
-  [8571] = 8571,
-  [8572] = 7983,
-  [8573] = 7741,
+  [8568] = 7911,
+  [8569] = 8228,
+  [8570] = 7706,
+  [8571] = 7788,
+  [8572] = 8572,
+  [8573] = 8573,
   [8574] = 8574,
-  [8575] = 8575,
+  [8575] = 3350,
   [8576] = 8576,
-  [8577] = 8118,
-  [8578] = 8578,
-  [8579] = 8358,
-  [8580] = 7722,
-  [8581] = 8210,
-  [8582] = 7735,
-  [8583] = 7708,
-  [8584] = 7709,
+  [8577] = 7855,
+  [8578] = 7715,
+  [8579] = 8579,
+  [8580] = 7851,
+  [8581] = 7827,
+  [8582] = 7780,
+  [8583] = 7724,
+  [8584] = 7758,
   [8585] = 8585,
-  [8586] = 7715,
-  [8587] = 7716,
-  [8588] = 8588,
-  [8589] = 7759,
-  [8590] = 8590,
-  [8591] = 7715,
-  [8592] = 7718,
-  [8593] = 8100,
-  [8594] = 8244,
-  [8595] = 8310,
+  [8586] = 8068,
+  [8587] = 8087,
+  [8588] = 8086,
+  [8589] = 7709,
+  [8590] = 7999,
+  [8591] = 8062,
+  [8592] = 7725,
+  [8593] = 3352,
+  [8594] = 8594,
+  [8595] = 8595,
   [8596] = 8596,
-  [8597] = 7855,
+  [8597] = 7705,
   [8598] = 8598,
-  [8599] = 7751,
-  [8600] = 8351,
+  [8599] = 8599,
+  [8600] = 8600,
   [8601] = 8601,
-  [8602] = 8394,
-  [8603] = 7716,
-  [8604] = 8340,
-  [8605] = 8578,
-  [8606] = 8606,
+  [8602] = 8359,
+  [8603] = 8603,
+  [8604] = 8211,
+  [8605] = 8150,
+  [8606] = 7845,
   [8607] = 8607,
-  [8608] = 8242,
-  [8609] = 8135,
-  [8610] = 8166,
-  [8611] = 7926,
-  [8612] = 7720,
-  [8613] = 8613,
-  [8614] = 8226,
-  [8615] = 8615,
-  [8616] = 7767,
-  [8617] = 7723,
-  [8618] = 7724,
-  [8619] = 7767,
-  [8620] = 8420,
-  [8621] = 7725,
+  [8608] = 8354,
+  [8609] = 8415,
+  [8610] = 8610,
+  [8611] = 8611,
+  [8612] = 8612,
+  [8613] = 7708,
+  [8614] = 8031,
+  [8615] = 7926,
+  [8616] = 8616,
+  [8617] = 8617,
+  [8618] = 7721,
+  [8619] = 8619,
+  [8620] = 8348,
+  [8621] = 8621,
   [8622] = 8622,
-  [8623] = 7740,
-  [8624] = 7983,
+  [8623] = 8623,
+  [8624] = 8624,
   [8625] = 8625,
-  [8626] = 7741,
-  [8627] = 7724,
-  [8628] = 7725,
-  [8629] = 7724,
-  [8630] = 7725,
-  [8631] = 8394,
-  [8632] = 8340,
-  [8633] = 8058,
-  [8634] = 7729,
+  [8626] = 8626,
+  [8627] = 7720,
+  [8628] = 8628,
+  [8629] = 8629,
+  [8630] = 7706,
+  [8631] = 8359,
+  [8632] = 8211,
+  [8633] = 8633,
+  [8634] = 8634,
   [8635] = 8635,
-  [8636] = 7726,
+  [8636] = 7715,
   [8637] = 8637,
-  [8638] = 7725,
-  [8639] = 7806,
+  [8638] = 8638,
+  [8639] = 7709,
   [8640] = 7708,
-  [8641] = 7720,
-  [8642] = 7842,
-  [8643] = 8643,
+  [8641] = 8140,
+  [8642] = 8642,
+  [8643] = 7982,
   [8644] = 8644,
-  [8645] = 7723,
+  [8645] = 7713,
   [8646] = 8646,
-  [8647] = 8227,
-  [8648] = 8394,
-  [8649] = 7810,
-  [8650] = 7732,
-  [8651] = 7708,
-  [8652] = 7734,
+  [8647] = 8647,
+  [8648] = 8359,
+  [8649] = 8649,
+  [8650] = 8650,
+  [8651] = 8651,
+  [8652] = 8652,
   [8653] = 8653,
-  [8654] = 7806,
-  [8655] = 7708,
+  [8654] = 8654,
+  [8655] = 8655,
   [8656] = 8656,
-  [8657] = 7842,
-  [8658] = 7810,
-  [8659] = 8060,
-  [8660] = 7710,
+  [8657] = 8657,
+  [8658] = 8360,
+  [8659] = 8659,
+  [8660] = 8660,
   [8661] = 8661,
-  [8662] = 7709,
-  [8663] = 7740,
-  [8664] = 7713,
-  [8665] = 7741,
-  [8666] = 7735,
-  [8667] = 7734,
-  [8668] = 8668,
-  [8669] = 7727,
-  [8670] = 5408,
-  [8671] = 7817,
-  [8672] = 8606,
-  [8673] = 8532,
-  [8674] = 8588,
-  [8675] = 8415,
-  [8676] = 8419,
-  [8677] = 8532,
-  [8678] = 8588,
-  [8679] = 8415,
-  [8680] = 8419,
-  [8681] = 8512,
-  [8682] = 7709,
-  [8683] = 8512,
-  [8684] = 3350,
-  [8685] = 8685,
+  [8662] = 8662,
+  [8663] = 8663,
+  [8664] = 7721,
+  [8665] = 7951,
+  [8666] = 7710,
+  [8667] = 7950,
+  [8668] = 7951,
+  [8669] = 7950,
+  [8670] = 7712,
+  [8671] = 7717,
+  [8672] = 8672,
+  [8673] = 8525,
+  [8674] = 8507,
+  [8675] = 7796,
+  [8676] = 7714,
+  [8677] = 8525,
+  [8678] = 8507,
+  [8679] = 7796,
+  [8680] = 7714,
+  [8681] = 8567,
+  [8682] = 8198,
+  [8683] = 8567,
+  [8684] = 8684,
 };
 
 static bool ts_lex(TSLexer *lexer, TSStateId state) {
@@ -14236,6320 +14229,6406 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
   eof = lexer->eof(lexer);
   switch (state) {
     case 0:
-      if (eof) ADVANCE(1302);
-      ADVANCE_MAP(
-        '!', 2670,
-        '#', 354,
-        '%', 1381,
-        '&', 1387,
-        '(', 1308,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1811,
-        '/', 1376,
-        ':', 1451,
-        ';', 1670,
-        '<', 1397,
-        '=', 1461,
-        '>', 1392,
-        '?', 1861,
-        '@', 1818,
-        'D', 1533,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(1297);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == '_') ADVANCE(1826);
-      if (lookahead == 'd') ADVANCE(1532);
-      if (lookahead == '|') ADVANCE(1384);
+      if (eof) ADVANCE(1282);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1288);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1789);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1377);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1372);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '@') ADVANCE(1796);
+      if (lookahead == 'D') ADVANCE(1513);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(1277)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == '_') ADVANCE(1804);
+      if (lookahead == 'd') ADVANCE(1512);
+      if (lookahead == '|') ADVANCE(1364);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1545);
+          lookahead == 'a') ADVANCE(1525);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1534);
+          lookahead == 'b') ADVANCE(1514);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1535);
+          lookahead == 'c') ADVANCE(1515);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1550);
+          lookahead == 'e') ADVANCE(1530);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1536);
+          lookahead == 'f') ADVANCE(1516);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1546);
+          lookahead == 'g') ADVANCE(1526);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(1553);
+          lookahead == 'h') ADVANCE(1533);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1548);
+          lookahead == 'i') ADVANCE(1528);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1549);
+          lookahead == 'k') ADVANCE(1529);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1547);
+          lookahead == 'l') ADVANCE(1527);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1541);
+          lookahead == 'm') ADVANCE(1521);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1543);
+          lookahead == 'n') ADVANCE(1523);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1552);
+          lookahead == 'o') ADVANCE(1532);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1537);
+          lookahead == 'p') ADVANCE(1517);
       if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1554);
+          lookahead == 'q') ADVANCE(1534);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1542);
+          lookahead == 'r') ADVANCE(1522);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1538);
+          lookahead == 's') ADVANCE(1518);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1540);
+          lookahead == 't') ADVANCE(1520);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1551);
+          lookahead == 'u') ADVANCE(1531);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1539);
+          lookahead == 'v') ADVANCE(1519);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(1544);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(1300);
+          lookahead == 'w') ADVANCE(1524);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(1280)
       if (('J' <= lookahead && lookahead <= 'Z') ||
-          ('j' <= lookahead && lookahead <= 'z')) ADVANCE(1531);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1829);
+          ('j' <= lookahead && lookahead <= 'z')) ADVANCE(1511);
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1807);
       END_STATE();
     case 1:
-      if (lookahead == '\n') SKIP(217);
+      if (lookahead == '\n') SKIP(217)
       END_STATE();
     case 2:
-      if (lookahead == '\n') SKIP(217);
-      if (lookahead == '\r') SKIP(1);
+      if (lookahead == '\n') SKIP(217)
+      if (lookahead == '\r') SKIP(1)
       END_STATE();
     case 3:
-      if (lookahead == '\n') SKIP(269);
+      if (lookahead == '\n') SKIP(269)
       END_STATE();
     case 4:
-      if (lookahead == '\n') SKIP(269);
-      if (lookahead == '\r') SKIP(3);
+      if (lookahead == '\n') SKIP(269)
+      if (lookahead == '\r') SKIP(3)
       END_STATE();
     case 5:
-      if (lookahead == '\n') SKIP(249);
+      if (lookahead == '\n') SKIP(249)
       END_STATE();
     case 6:
-      if (lookahead == '\n') SKIP(249);
-      if (lookahead == '\r') SKIP(5);
+      if (lookahead == '\n') SKIP(249)
+      if (lookahead == '\r') SKIP(5)
       END_STATE();
     case 7:
-      if (lookahead == '\n') SKIP(219);
+      if (lookahead == '\n') SKIP(219)
       END_STATE();
     case 8:
-      if (lookahead == '\n') SKIP(219);
-      if (lookahead == '\r') SKIP(7);
+      if (lookahead == '\n') SKIP(219)
+      if (lookahead == '\r') SKIP(7)
       END_STATE();
     case 9:
-      if (lookahead == '\n') SKIP(264);
+      if (lookahead == '\n') SKIP(264)
       END_STATE();
     case 10:
-      if (lookahead == '\n') SKIP(264);
-      if (lookahead == '\r') SKIP(9);
+      if (lookahead == '\n') SKIP(264)
+      if (lookahead == '\r') SKIP(9)
       END_STATE();
     case 11:
-      if (lookahead == '\n') SKIP(298);
+      if (lookahead == '\n') SKIP(298)
       END_STATE();
     case 12:
-      if (lookahead == '\n') SKIP(298);
-      if (lookahead == '\r') SKIP(11);
+      if (lookahead == '\n') SKIP(298)
+      if (lookahead == '\r') SKIP(11)
       END_STATE();
     case 13:
-      if (lookahead == '\n') SKIP(276);
+      if (lookahead == '\n') SKIP(276)
       END_STATE();
     case 14:
-      if (lookahead == '\n') SKIP(276);
-      if (lookahead == '\r') SKIP(13);
+      if (lookahead == '\n') SKIP(276)
+      if (lookahead == '\r') SKIP(13)
       END_STATE();
     case 15:
-      if (lookahead == '\n') SKIP(225);
+      if (lookahead == '\n') SKIP(225)
       END_STATE();
     case 16:
-      if (lookahead == '\n') SKIP(225);
-      if (lookahead == '\r') SKIP(15);
+      if (lookahead == '\n') SKIP(225)
+      if (lookahead == '\r') SKIP(15)
       END_STATE();
     case 17:
-      if (lookahead == '\n') SKIP(251);
+      if (lookahead == '\n') SKIP(251)
       END_STATE();
     case 18:
-      if (lookahead == '\n') SKIP(251);
-      if (lookahead == '\r') SKIP(17);
+      if (lookahead == '\n') SKIP(251)
+      if (lookahead == '\r') SKIP(17)
       END_STATE();
     case 19:
-      if (lookahead == '\n') SKIP(277);
+      if (lookahead == '\n') SKIP(277)
       END_STATE();
     case 20:
-      if (lookahead == '\n') SKIP(277);
-      if (lookahead == '\r') SKIP(19);
+      if (lookahead == '\n') SKIP(277)
+      if (lookahead == '\r') SKIP(19)
       END_STATE();
     case 21:
-      if (lookahead == '\n') SKIP(278);
+      if (lookahead == '\n') SKIP(278)
       END_STATE();
     case 22:
-      if (lookahead == '\n') SKIP(278);
-      if (lookahead == '\r') SKIP(21);
+      if (lookahead == '\n') SKIP(278)
+      if (lookahead == '\r') SKIP(21)
       END_STATE();
     case 23:
-      if (lookahead == '\n') SKIP(280);
+      if (lookahead == '\n') SKIP(280)
       END_STATE();
     case 24:
-      if (lookahead == '\n') SKIP(280);
-      if (lookahead == '\r') SKIP(23);
+      if (lookahead == '\n') SKIP(280)
+      if (lookahead == '\r') SKIP(23)
       END_STATE();
     case 25:
-      if (lookahead == '\n') SKIP(289);
+      if (lookahead == '\n') SKIP(289)
       END_STATE();
     case 26:
-      if (lookahead == '\n') SKIP(289);
-      if (lookahead == '\r') SKIP(25);
+      if (lookahead == '\n') SKIP(289)
+      if (lookahead == '\r') SKIP(25)
       END_STATE();
     case 27:
-      if (lookahead == '\n') SKIP(285);
+      if (lookahead == '\n') SKIP(285)
       END_STATE();
     case 28:
-      if (lookahead == '\n') SKIP(285);
-      if (lookahead == '\r') SKIP(27);
+      if (lookahead == '\n') SKIP(285)
+      if (lookahead == '\r') SKIP(27)
       END_STATE();
     case 29:
-      if (lookahead == '\n') SKIP(300);
+      if (lookahead == '\n') SKIP(300)
       END_STATE();
     case 30:
-      if (lookahead == '\n') SKIP(300);
-      if (lookahead == '\r') SKIP(29);
+      if (lookahead == '\n') SKIP(300)
+      if (lookahead == '\r') SKIP(29)
       END_STATE();
     case 31:
-      if (lookahead == '\n') SKIP(295);
+      if (lookahead == '\n') SKIP(295)
       END_STATE();
     case 32:
-      if (lookahead == '\n') SKIP(295);
-      if (lookahead == '\r') SKIP(31);
+      if (lookahead == '\n') SKIP(295)
+      if (lookahead == '\r') SKIP(31)
       END_STATE();
     case 33:
-      if (lookahead == '\n') SKIP(296);
+      if (lookahead == '\n') SKIP(296)
       END_STATE();
     case 34:
-      if (lookahead == '\n') SKIP(296);
-      if (lookahead == '\r') SKIP(33);
+      if (lookahead == '\n') SKIP(296)
+      if (lookahead == '\r') SKIP(33)
       END_STATE();
     case 35:
-      if (lookahead == '\n') SKIP(286);
+      if (lookahead == '\n') SKIP(286)
       END_STATE();
     case 36:
-      if (lookahead == '\n') SKIP(286);
-      if (lookahead == '\r') SKIP(35);
+      if (lookahead == '\n') SKIP(286)
+      if (lookahead == '\r') SKIP(35)
       END_STATE();
     case 37:
-      if (lookahead == '\n') SKIP(294);
+      if (lookahead == '\n') SKIP(294)
       END_STATE();
     case 38:
-      if (lookahead == '\n') SKIP(294);
-      if (lookahead == '\r') SKIP(37);
+      if (lookahead == '\n') SKIP(294)
+      if (lookahead == '\r') SKIP(37)
       END_STATE();
     case 39:
-      if (lookahead == '\n') SKIP(297);
+      if (lookahead == '\n') SKIP(297)
       END_STATE();
     case 40:
-      if (lookahead == '\n') SKIP(297);
-      if (lookahead == '\r') SKIP(39);
+      if (lookahead == '\n') SKIP(297)
+      if (lookahead == '\r') SKIP(39)
       END_STATE();
     case 41:
-      if (lookahead == '\n') SKIP(290);
+      if (lookahead == '\n') SKIP(290)
       END_STATE();
     case 42:
-      if (lookahead == '\n') SKIP(290);
-      if (lookahead == '\r') SKIP(41);
+      if (lookahead == '\n') SKIP(290)
+      if (lookahead == '\r') SKIP(41)
       END_STATE();
     case 43:
-      if (lookahead == '\n') SKIP(288);
+      if (lookahead == '\n') SKIP(288)
       END_STATE();
     case 44:
-      if (lookahead == '\n') SKIP(288);
-      if (lookahead == '\r') SKIP(43);
+      if (lookahead == '\n') SKIP(288)
+      if (lookahead == '\r') SKIP(43)
       END_STATE();
     case 45:
-      if (lookahead == '\n') SKIP(250);
+      if (lookahead == '\n') SKIP(250)
       END_STATE();
     case 46:
-      if (lookahead == '\n') SKIP(250);
-      if (lookahead == '\r') SKIP(45);
+      if (lookahead == '\n') SKIP(250)
+      if (lookahead == '\r') SKIP(45)
       END_STATE();
     case 47:
-      if (lookahead == '\n') SKIP(287);
+      if (lookahead == '\n') SKIP(287)
       END_STATE();
     case 48:
-      if (lookahead == '\n') SKIP(287);
-      if (lookahead == '\r') SKIP(47);
+      if (lookahead == '\n') SKIP(287)
+      if (lookahead == '\r') SKIP(47)
       END_STATE();
     case 49:
-      if (lookahead == '\n') SKIP(310);
+      if (lookahead == '\n') SKIP(310)
       END_STATE();
     case 50:
-      if (lookahead == '\n') SKIP(310);
-      if (lookahead == '\r') SKIP(49);
+      if (lookahead == '\n') SKIP(310)
+      if (lookahead == '\r') SKIP(49)
       END_STATE();
     case 51:
-      if (lookahead == '\n') SKIP(260);
+      if (lookahead == '\n') SKIP(260)
       END_STATE();
     case 52:
-      if (lookahead == '\n') SKIP(260);
-      if (lookahead == '\r') SKIP(51);
+      if (lookahead == '\n') SKIP(260)
+      if (lookahead == '\r') SKIP(51)
       END_STATE();
     case 53:
-      if (lookahead == '\n') SKIP(302);
+      if (lookahead == '\n') SKIP(302)
       END_STATE();
     case 54:
-      if (lookahead == '\n') SKIP(302);
-      if (lookahead == '\r') SKIP(53);
+      if (lookahead == '\n') SKIP(302)
+      if (lookahead == '\r') SKIP(53)
       END_STATE();
     case 55:
-      if (lookahead == '\n') SKIP(309);
+      if (lookahead == '\n') SKIP(309)
       END_STATE();
     case 56:
-      if (lookahead == '\n') SKIP(309);
-      if (lookahead == '\r') SKIP(55);
+      if (lookahead == '\n') SKIP(309)
+      if (lookahead == '\r') SKIP(55)
       END_STATE();
     case 57:
-      if (lookahead == '\n') SKIP(303);
+      if (lookahead == '\n') SKIP(303)
       END_STATE();
     case 58:
-      if (lookahead == '\n') SKIP(303);
-      if (lookahead == '\r') SKIP(57);
+      if (lookahead == '\n') SKIP(303)
+      if (lookahead == '\r') SKIP(57)
       END_STATE();
     case 59:
-      if (lookahead == '\n') SKIP(224);
+      if (lookahead == '\n') SKIP(224)
       END_STATE();
     case 60:
-      if (lookahead == '\n') SKIP(224);
-      if (lookahead == '\r') SKIP(59);
+      if (lookahead == '\n') SKIP(224)
+      if (lookahead == '\r') SKIP(59)
       END_STATE();
     case 61:
-      if (lookahead == '\n') SKIP(228);
+      if (lookahead == '\n') SKIP(228)
       END_STATE();
     case 62:
-      if (lookahead == '\n') SKIP(228);
-      if (lookahead == '\r') SKIP(61);
+      if (lookahead == '\n') SKIP(228)
+      if (lookahead == '\r') SKIP(61)
       END_STATE();
     case 63:
-      if (lookahead == '\n') SKIP(216);
+      if (lookahead == '\n') SKIP(216)
       END_STATE();
     case 64:
-      if (lookahead == '\n') SKIP(216);
-      if (lookahead == '\r') SKIP(63);
+      if (lookahead == '\n') SKIP(216)
+      if (lookahead == '\r') SKIP(63)
       END_STATE();
     case 65:
-      if (lookahead == '\n') SKIP(308);
+      if (lookahead == '\n') SKIP(308)
       END_STATE();
     case 66:
-      if (lookahead == '\n') SKIP(308);
-      if (lookahead == '\r') SKIP(65);
+      if (lookahead == '\n') SKIP(308)
+      if (lookahead == '\r') SKIP(65)
       END_STATE();
     case 67:
-      if (lookahead == '\n') SKIP(262);
+      if (lookahead == '\n') SKIP(304)
       END_STATE();
     case 68:
-      if (lookahead == '\n') SKIP(262);
-      if (lookahead == '\r') SKIP(67);
+      if (lookahead == '\n') SKIP(304)
+      if (lookahead == '\r') SKIP(67)
       END_STATE();
     case 69:
-      if (lookahead == '\n') SKIP(304);
+      if (lookahead == '\n') SKIP(305)
       END_STATE();
     case 70:
-      if (lookahead == '\n') SKIP(304);
-      if (lookahead == '\r') SKIP(69);
+      if (lookahead == '\n') SKIP(305)
+      if (lookahead == '\r') SKIP(69)
       END_STATE();
     case 71:
-      if (lookahead == '\n') SKIP(305);
+      if (lookahead == '\n') SKIP(262)
       END_STATE();
     case 72:
-      if (lookahead == '\n') SKIP(305);
-      if (lookahead == '\r') SKIP(71);
+      if (lookahead == '\n') SKIP(262)
+      if (lookahead == '\r') SKIP(71)
       END_STATE();
     case 73:
-      if (lookahead == '\n') SKIP(312);
+      if (lookahead == '\n') SKIP(312)
       END_STATE();
     case 74:
-      if (lookahead == '\n') SKIP(312);
-      if (lookahead == '\r') SKIP(73);
+      if (lookahead == '\n') SKIP(312)
+      if (lookahead == '\r') SKIP(73)
       END_STATE();
     case 75:
-      if (lookahead == '\n') SKIP(268);
+      if (lookahead == '\n') SKIP(268)
       END_STATE();
     case 76:
-      if (lookahead == '\n') SKIP(268);
-      if (lookahead == '\r') SKIP(75);
+      if (lookahead == '\n') SKIP(268)
+      if (lookahead == '\r') SKIP(75)
       END_STATE();
     case 77:
-      if (lookahead == '\n') SKIP(223);
+      if (lookahead == '\n') SKIP(313)
       END_STATE();
     case 78:
-      if (lookahead == '\n') SKIP(223);
-      if (lookahead == '\r') SKIP(77);
+      if (lookahead == '\n') SKIP(313)
+      if (lookahead == '\r') SKIP(77)
       END_STATE();
     case 79:
-      if (lookahead == '\n') SKIP(313);
+      if (lookahead == '\n') SKIP(223)
       END_STATE();
     case 80:
-      if (lookahead == '\n') SKIP(313);
-      if (lookahead == '\r') SKIP(79);
+      if (lookahead == '\n') SKIP(223)
+      if (lookahead == '\r') SKIP(79)
       END_STATE();
     case 81:
-      if (lookahead == '\n') SKIP(306);
+      if (lookahead == '\n') SKIP(306)
       END_STATE();
     case 82:
-      if (lookahead == '\n') SKIP(306);
-      if (lookahead == '\r') SKIP(81);
+      if (lookahead == '\n') SKIP(306)
+      if (lookahead == '\r') SKIP(81)
       END_STATE();
     case 83:
-      if (lookahead == '\n') SKIP(263);
+      if (lookahead == '\n') SKIP(263)
       END_STATE();
     case 84:
-      if (lookahead == '\n') SKIP(263);
-      if (lookahead == '\r') SKIP(83);
+      if (lookahead == '\n') SKIP(263)
+      if (lookahead == '\r') SKIP(83)
       END_STATE();
     case 85:
-      if (lookahead == '\n') SKIP(253);
+      if (lookahead == '\n') SKIP(253)
       END_STATE();
     case 86:
-      if (lookahead == '\n') SKIP(253);
-      if (lookahead == '\r') SKIP(85);
+      if (lookahead == '\n') SKIP(253)
+      if (lookahead == '\r') SKIP(85)
       END_STATE();
     case 87:
-      if (lookahead == '\n') SKIP(267);
+      if (lookahead == '\n') SKIP(267)
       END_STATE();
     case 88:
-      if (lookahead == '\n') SKIP(267);
-      if (lookahead == '\r') SKIP(87);
+      if (lookahead == '\n') SKIP(267)
+      if (lookahead == '\r') SKIP(87)
       END_STATE();
     case 89:
-      if (lookahead == '\n') SKIP(227);
+      if (lookahead == '\n') SKIP(227)
       END_STATE();
     case 90:
-      if (lookahead == '\n') SKIP(227);
-      if (lookahead == '\r') SKIP(89);
+      if (lookahead == '\n') SKIP(227)
+      if (lookahead == '\r') SKIP(89)
       END_STATE();
     case 91:
-      if (lookahead == '\n') SKIP(254);
+      if (lookahead == '\n') SKIP(254)
       END_STATE();
     case 92:
-      if (lookahead == '\n') SKIP(254);
-      if (lookahead == '\r') SKIP(91);
+      if (lookahead == '\n') SKIP(254)
+      if (lookahead == '\r') SKIP(91)
       END_STATE();
     case 93:
-      if (lookahead == '\n') SKIP(215);
+      if (lookahead == '\n') ADVANCE(1294);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '/') ADVANCE(1358);
+      if (lookahead == '<') ADVANCE(1379);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1373);
+      if (lookahead == '\\') SKIP(97)
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == '_') ADVANCE(1804);
+      if (lookahead == '|') ADVANCE(1364);
+      if (lookahead == '\t' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(94)
       END_STATE();
     case 94:
-      if (lookahead == '\n') SKIP(215);
-      if (lookahead == '\r') SKIP(93);
+      if (lookahead == '\n') ADVANCE(1294);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '/') ADVANCE(1358);
+      if (lookahead == '<') ADVANCE(1379);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1373);
+      if (lookahead == '\\') SKIP(97)
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == '|') ADVANCE(1364);
+      if (lookahead == '\t' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(94)
       END_STATE();
     case 95:
-      ADVANCE_MAP(
-        '\n', 1314,
-        '!', 2670,
-        '%', 1381,
-        '&', 1387,
-        '(', 1365,
-        '*', 1372,
-        '+', 1370,
-        '-', 1371,
-        '/', 1378,
-        '<', 1399,
-        '=', 346,
-        '>', 1393,
-      );
-      if (lookahead == '\\') SKIP(99);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == '_') ADVANCE(1826);
-      if (lookahead == '|') ADVANCE(1384);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(96);
+      if (lookahead == '\n') ADVANCE(1294);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(141)
+      if (lookahead == '\t' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(95)
       END_STATE();
     case 96:
-      ADVANCE_MAP(
-        '\n', 1314,
-        '!', 2670,
-        '%', 1381,
-        '&', 1387,
-        '(', 1365,
-        '*', 1372,
-        '+', 1370,
-        '-', 1371,
-        '/', 1378,
-        '<', 1399,
-        '=', 346,
-        '>', 1393,
-      );
-      if (lookahead == '\\') SKIP(99);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == '|') ADVANCE(1384);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(96);
+      if (lookahead == '\n') SKIP(94)
       END_STATE();
     case 97:
-      if (lookahead == '\n') ADVANCE(1314);
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(123);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(97);
+      if (lookahead == '\n') SKIP(94)
+      if (lookahead == '\r') SKIP(96)
       END_STATE();
     case 98:
-      if (lookahead == '\n') SKIP(96);
+      if (lookahead == '\n') SKIP(215)
       END_STATE();
     case 99:
-      if (lookahead == '\n') SKIP(96);
-      if (lookahead == '\r') SKIP(98);
+      if (lookahead == '\n') SKIP(215)
+      if (lookahead == '\r') SKIP(98)
       END_STATE();
     case 100:
-      if (lookahead == '\n') SKIP(266);
+      if (lookahead == '\n') SKIP(266)
       END_STATE();
     case 101:
-      if (lookahead == '\n') SKIP(266);
-      if (lookahead == '\r') SKIP(100);
+      if (lookahead == '\n') SKIP(266)
+      if (lookahead == '\r') SKIP(100)
       END_STATE();
     case 102:
-      if (lookahead == '\n') SKIP(301);
+      if (lookahead == '\n') SKIP(314)
       END_STATE();
     case 103:
-      if (lookahead == '\n') SKIP(301);
-      if (lookahead == '\r') SKIP(102);
+      if (lookahead == '\n') SKIP(314)
+      if (lookahead == '\r') SKIP(102)
       END_STATE();
     case 104:
-      if (lookahead == '\n') SKIP(314);
+      if (lookahead == '\n') SKIP(301)
       END_STATE();
     case 105:
-      if (lookahead == '\n') SKIP(314);
-      if (lookahead == '\r') SKIP(104);
+      if (lookahead == '\n') SKIP(301)
+      if (lookahead == '\r') SKIP(104)
       END_STATE();
     case 106:
-      if (lookahead == '\n') ADVANCE(1306);
+      if (lookahead == '\n') ADVANCE(1286);
       if (lookahead == '\r') ADVANCE(110);
-      if (lookahead == '!') ADVANCE(2669);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1307);
-      if (lookahead == '\\') ADVANCE(1329);
-      if (('\t' <= lookahead && lookahead <= '\f') ||
-          lookahead == ' ') SKIP(321);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '!') ADVANCE(2647);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1287);
+      if (lookahead == '\\') ADVANCE(1309);
+      if (lookahead == '\t' ||
+          lookahead == ' ') SKIP(321)
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
     case 107:
-      if (lookahead == '\n') ADVANCE(1306);
+      if (lookahead == '\n') ADVANCE(1286);
       if (lookahead == '\r') ADVANCE(110);
-      if (lookahead == '!') ADVANCE(2669);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') ADVANCE(1329);
-      if (('\t' <= lookahead && lookahead <= '\f') ||
-          lookahead == ' ') SKIP(321);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '!') ADVANCE(2647);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') ADVANCE(1309);
+      if (lookahead == '\t' ||
+          lookahead == ' ') SKIP(321)
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
     case 108:
-      if (lookahead == '\n') ADVANCE(1306);
+      if (lookahead == '\n') ADVANCE(1286);
       if (lookahead == '\r') ADVANCE(109);
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(121);
-      if (('\t' <= lookahead && lookahead <= '\f') ||
-          lookahead == ' ') SKIP(317);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(121)
+      if (lookahead == '\t' ||
+          lookahead == ' ') SKIP(317)
       END_STATE();
     case 109:
-      if (lookahead == '\n') ADVANCE(1306);
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(121);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(317);
+      if (lookahead == '\n') ADVANCE(1286);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(121)
+      if (lookahead == '\t' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(317)
       END_STATE();
     case 110:
-      if (lookahead == '\n') ADVANCE(1306);
-      if (lookahead == '!') ADVANCE(2669);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') ADVANCE(1329);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(321);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '\n') ADVANCE(1286);
+      if (lookahead == '!') ADVANCE(2647);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') ADVANCE(1309);
+      if (lookahead == '\t' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(321)
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
     case 111:
-      if (lookahead == '\n') SKIP(307);
+      if (lookahead == '\n') SKIP(315)
       END_STATE();
     case 112:
-      if (lookahead == '\n') SKIP(307);
-      if (lookahead == '\r') SKIP(111);
+      if (lookahead == '\n') SKIP(315)
+      if (lookahead == '\r') SKIP(111)
       END_STATE();
     case 113:
-      if (lookahead == '\n') SKIP(315);
+      if (lookahead == '\n') SKIP(307)
       END_STATE();
     case 114:
-      if (lookahead == '\n') SKIP(315);
-      if (lookahead == '\r') SKIP(113);
+      if (lookahead == '\n') SKIP(307)
+      if (lookahead == '\r') SKIP(113)
       END_STATE();
     case 115:
-      if (lookahead == '\n') SKIP(117);
+      if (lookahead == '\n') SKIP(117)
       END_STATE();
     case 116:
-      if (lookahead == '\n') SKIP(117);
-      if (lookahead == '\r') SKIP(115);
+      if (lookahead == '\n') SKIP(117)
+      if (lookahead == '\r') SKIP(115)
       END_STATE();
     case 117:
-      if (lookahead == '\n') ADVANCE(1304);
+      if (lookahead == '\n') ADVANCE(1284);
       if (lookahead == '\r') ADVANCE(117);
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == '\\') SKIP(116);
-      if (('\t' <= lookahead && lookahead <= '\f') ||
-          lookahead == ' ') SKIP(117);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '\\') SKIP(116)
+      if (lookahead == '\t' ||
+          lookahead == ' ') SKIP(117)
       END_STATE();
     case 118:
-      if (lookahead == '\n') SKIP(316);
+      if (lookahead == '\n') SKIP(316)
       END_STATE();
     case 119:
-      if (lookahead == '\n') SKIP(316);
-      if (lookahead == '\r') SKIP(118);
+      if (lookahead == '\n') SKIP(316)
+      if (lookahead == '\r') SKIP(118)
       END_STATE();
     case 120:
-      if (lookahead == '\n') SKIP(317);
+      if (lookahead == '\n') SKIP(317)
       END_STATE();
     case 121:
-      if (lookahead == '\n') SKIP(317);
-      if (lookahead == '\r') SKIP(120);
+      if (lookahead == '\n') SKIP(317)
+      if (lookahead == '\r') SKIP(120)
       END_STATE();
     case 122:
-      if (lookahead == '\n') SKIP(97);
+      if (lookahead == '\n') SKIP(218)
       END_STATE();
     case 123:
-      if (lookahead == '\n') SKIP(97);
-      if (lookahead == '\r') SKIP(122);
+      if (lookahead == '\n') SKIP(218)
+      if (lookahead == '\r') SKIP(122)
       END_STATE();
     case 124:
-      if (lookahead == '\n') SKIP(218);
+      if (lookahead == '\n') SKIP(231)
       END_STATE();
     case 125:
-      if (lookahead == '\n') SKIP(218);
-      if (lookahead == '\r') SKIP(124);
+      if (lookahead == '\n') SKIP(231)
+      if (lookahead == '\r') SKIP(124)
       END_STATE();
     case 126:
-      if (lookahead == '\n') SKIP(231);
+      if (lookahead == '\n') SKIP(299)
       END_STATE();
     case 127:
-      if (lookahead == '\n') SKIP(231);
-      if (lookahead == '\r') SKIP(126);
+      if (lookahead == '\n') SKIP(299)
+      if (lookahead == '\r') SKIP(126)
       END_STATE();
     case 128:
-      if (lookahead == '\n') SKIP(299);
+      if (lookahead == '\n') SKIP(282)
       END_STATE();
     case 129:
-      if (lookahead == '\n') SKIP(299);
-      if (lookahead == '\r') SKIP(128);
+      if (lookahead == '\n') SKIP(282)
+      if (lookahead == '\r') SKIP(128)
       END_STATE();
     case 130:
-      if (lookahead == '\n') SKIP(282);
+      if (lookahead == '\n') SKIP(291)
       END_STATE();
     case 131:
-      if (lookahead == '\n') SKIP(282);
-      if (lookahead == '\r') SKIP(130);
+      if (lookahead == '\n') SKIP(291)
+      if (lookahead == '\r') SKIP(130)
       END_STATE();
     case 132:
-      if (lookahead == '\n') SKIP(291);
+      if (lookahead == '\n') SKIP(265)
       END_STATE();
     case 133:
-      if (lookahead == '\n') SKIP(291);
-      if (lookahead == '\r') SKIP(132);
+      if (lookahead == '\n') SKIP(265)
+      if (lookahead == '\r') SKIP(132)
       END_STATE();
     case 134:
-      if (lookahead == '\n') SKIP(265);
+      if (lookahead == '\n') SKIP(311)
       END_STATE();
     case 135:
-      if (lookahead == '\n') SKIP(265);
-      if (lookahead == '\r') SKIP(134);
+      if (lookahead == '\n') SKIP(311)
+      if (lookahead == '\r') SKIP(134)
       END_STATE();
     case 136:
-      if (lookahead == '\n') SKIP(311);
+      if (lookahead == '\n') SKIP(275)
       END_STATE();
     case 137:
-      if (lookahead == '\n') SKIP(311);
-      if (lookahead == '\r') SKIP(136);
+      if (lookahead == '\n') SKIP(275)
+      if (lookahead == '\r') SKIP(136)
       END_STATE();
     case 138:
-      if (lookahead == '\n') SKIP(275);
+      if (lookahead == '\n') SKIP(319)
       END_STATE();
     case 139:
-      if (lookahead == '\n') SKIP(275);
-      if (lookahead == '\r') SKIP(138);
+      if (lookahead == '\n') SKIP(319)
+      if (lookahead == '\r') SKIP(138)
       END_STATE();
     case 140:
-      if (lookahead == '\n') SKIP(319);
+      if (lookahead == '\n') SKIP(95)
       END_STATE();
     case 141:
-      if (lookahead == '\n') SKIP(319);
-      if (lookahead == '\r') SKIP(140);
+      if (lookahead == '\n') SKIP(95)
+      if (lookahead == '\r') SKIP(140)
       END_STATE();
     case 142:
-      if (lookahead == '\n') SKIP(229);
+      if (lookahead == '\n') SKIP(229)
       END_STATE();
     case 143:
-      if (lookahead == '\n') SKIP(229);
-      if (lookahead == '\r') SKIP(142);
+      if (lookahead == '\n') SKIP(229)
+      if (lookahead == '\r') SKIP(142)
       END_STATE();
     case 144:
-      if (lookahead == '\n') SKIP(232);
+      if (lookahead == '\n') SKIP(232)
       END_STATE();
     case 145:
-      if (lookahead == '\n') SKIP(232);
-      if (lookahead == '\r') SKIP(144);
+      if (lookahead == '\n') SKIP(232)
+      if (lookahead == '\r') SKIP(144)
       END_STATE();
     case 146:
-      if (lookahead == '\n') SKIP(292);
+      if (lookahead == '\n') SKIP(292)
       END_STATE();
     case 147:
-      if (lookahead == '\n') SKIP(292);
-      if (lookahead == '\r') SKIP(146);
+      if (lookahead == '\n') SKIP(292)
+      if (lookahead == '\r') SKIP(146)
       END_STATE();
     case 148:
-      if (lookahead == '\n') SKIP(252);
+      if (lookahead == '\n') SKIP(252)
       END_STATE();
     case 149:
-      if (lookahead == '\n') SKIP(252);
-      if (lookahead == '\r') SKIP(148);
+      if (lookahead == '\n') SKIP(252)
+      if (lookahead == '\r') SKIP(148)
       END_STATE();
     case 150:
-      if (lookahead == '\n') SKIP(230);
+      if (lookahead == '\n') SKIP(230)
       END_STATE();
     case 151:
-      if (lookahead == '\n') SKIP(230);
-      if (lookahead == '\r') SKIP(150);
+      if (lookahead == '\n') SKIP(230)
+      if (lookahead == '\r') SKIP(150)
       END_STATE();
     case 152:
-      if (lookahead == '\n') SKIP(271);
+      if (lookahead == '\n') SKIP(271)
       END_STATE();
     case 153:
-      if (lookahead == '\n') SKIP(271);
-      if (lookahead == '\r') SKIP(152);
+      if (lookahead == '\n') SKIP(271)
+      if (lookahead == '\r') SKIP(152)
       END_STATE();
     case 154:
-      if (lookahead == '\n') SKIP(270);
+      if (lookahead == '\n') SKIP(270)
       END_STATE();
     case 155:
-      if (lookahead == '\n') SKIP(270);
-      if (lookahead == '\r') SKIP(154);
+      if (lookahead == '\n') SKIP(270)
+      if (lookahead == '\r') SKIP(154)
       END_STATE();
     case 156:
-      if (lookahead == '\n') SKIP(233);
+      if (lookahead == '\n') SKIP(233)
       END_STATE();
     case 157:
-      if (lookahead == '\n') SKIP(233);
-      if (lookahead == '\r') SKIP(156);
+      if (lookahead == '\n') SKIP(233)
+      if (lookahead == '\r') SKIP(156)
       END_STATE();
     case 158:
-      if (lookahead == '\n') SKIP(220);
+      if (lookahead == '\n') SKIP(220)
       END_STATE();
     case 159:
-      if (lookahead == '\n') SKIP(220);
-      if (lookahead == '\r') SKIP(158);
+      if (lookahead == '\n') SKIP(220)
+      if (lookahead == '\r') SKIP(158)
       END_STATE();
     case 160:
-      if (lookahead == '\n') SKIP(272);
+      if (lookahead == '\n') SKIP(272)
       END_STATE();
     case 161:
-      if (lookahead == '\n') SKIP(272);
-      if (lookahead == '\r') SKIP(160);
+      if (lookahead == '\n') SKIP(272)
+      if (lookahead == '\r') SKIP(160)
       END_STATE();
     case 162:
-      if (lookahead == '\n') SKIP(234);
+      if (lookahead == '\n') SKIP(234)
       END_STATE();
     case 163:
-      if (lookahead == '\n') SKIP(234);
-      if (lookahead == '\r') SKIP(162);
+      if (lookahead == '\n') SKIP(234)
+      if (lookahead == '\r') SKIP(162)
       END_STATE();
     case 164:
-      if (lookahead == '\n') SKIP(273);
+      if (lookahead == '\n') SKIP(255)
       END_STATE();
     case 165:
-      if (lookahead == '\n') SKIP(273);
-      if (lookahead == '\r') SKIP(164);
+      if (lookahead == '\n') SKIP(255)
+      if (lookahead == '\r') SKIP(164)
       END_STATE();
     case 166:
-      if (lookahead == '\n') SKIP(235);
+      if (lookahead == '\n') SKIP(273)
       END_STATE();
     case 167:
-      if (lookahead == '\n') SKIP(235);
-      if (lookahead == '\r') SKIP(166);
+      if (lookahead == '\n') SKIP(273)
+      if (lookahead == '\r') SKIP(166)
       END_STATE();
     case 168:
-      if (lookahead == '\n') SKIP(274);
+      if (lookahead == '\n') SKIP(235)
       END_STATE();
     case 169:
-      if (lookahead == '\n') SKIP(274);
-      if (lookahead == '\r') SKIP(168);
+      if (lookahead == '\n') SKIP(235)
+      if (lookahead == '\r') SKIP(168)
       END_STATE();
     case 170:
-      if (lookahead == '\n') SKIP(221);
+      if (lookahead == '\n') SKIP(274)
       END_STATE();
     case 171:
-      if (lookahead == '\n') SKIP(221);
-      if (lookahead == '\r') SKIP(170);
+      if (lookahead == '\n') SKIP(274)
+      if (lookahead == '\r') SKIP(170)
       END_STATE();
     case 172:
-      if (lookahead == '\n') SKIP(320);
+      if (lookahead == '\n') SKIP(221)
       END_STATE();
     case 173:
-      if (lookahead == '\n') SKIP(320);
-      if (lookahead == '\r') SKIP(172);
+      if (lookahead == '\n') SKIP(221)
+      if (lookahead == '\r') SKIP(172)
       END_STATE();
     case 174:
-      if (lookahead == '\n') SKIP(237);
+      if (lookahead == '\n') SKIP(284)
       END_STATE();
     case 175:
-      if (lookahead == '\n') SKIP(237);
-      if (lookahead == '\r') SKIP(174);
+      if (lookahead == '\n') SKIP(284)
+      if (lookahead == '\r') SKIP(174)
       END_STATE();
     case 176:
-      if (lookahead == '\n') SKIP(284);
+      if (lookahead == '\n') SKIP(320)
       END_STATE();
     case 177:
-      if (lookahead == '\n') SKIP(284);
-      if (lookahead == '\r') SKIP(176);
+      if (lookahead == '\n') SKIP(320)
+      if (lookahead == '\r') SKIP(176)
       END_STATE();
     case 178:
-      if (lookahead == '\n') SKIP(236);
+      if (lookahead == '\n') SKIP(237)
       END_STATE();
     case 179:
-      if (lookahead == '\n') SKIP(236);
-      if (lookahead == '\r') SKIP(178);
+      if (lookahead == '\n') SKIP(237)
+      if (lookahead == '\r') SKIP(178)
       END_STATE();
     case 180:
-      if (lookahead == '\n') SKIP(293);
+      if (lookahead == '\n') SKIP(293)
       END_STATE();
     case 181:
-      if (lookahead == '\n') SKIP(293);
-      if (lookahead == '\r') SKIP(180);
+      if (lookahead == '\n') SKIP(293)
+      if (lookahead == '\r') SKIP(180)
       END_STATE();
     case 182:
-      if (lookahead == '\n') SKIP(255);
+      if (lookahead == '\n') SKIP(236)
       END_STATE();
     case 183:
-      if (lookahead == '\n') SKIP(255);
-      if (lookahead == '\r') SKIP(182);
+      if (lookahead == '\n') SKIP(236)
+      if (lookahead == '\r') SKIP(182)
       END_STATE();
     case 184:
-      if (lookahead == '\n') SKIP(238);
+      if (lookahead == '\n') SKIP(256)
       END_STATE();
     case 185:
-      if (lookahead == '\n') SKIP(238);
-      if (lookahead == '\r') SKIP(184);
+      if (lookahead == '\n') SKIP(256)
+      if (lookahead == '\r') SKIP(184)
       END_STATE();
     case 186:
-      if (lookahead == '\n') SKIP(239);
+      if (lookahead == '\n') SKIP(238)
       END_STATE();
     case 187:
-      if (lookahead == '\n') SKIP(239);
-      if (lookahead == '\r') SKIP(186);
+      if (lookahead == '\n') SKIP(238)
+      if (lookahead == '\r') SKIP(186)
       END_STATE();
     case 188:
-      if (lookahead == '\n') SKIP(222);
+      if (lookahead == '\n') SKIP(239)
       END_STATE();
     case 189:
-      if (lookahead == '\n') SKIP(222);
-      if (lookahead == '\r') SKIP(188);
+      if (lookahead == '\n') SKIP(239)
+      if (lookahead == '\r') SKIP(188)
       END_STATE();
     case 190:
-      if (lookahead == '\n') SKIP(240);
+      if (lookahead == '\n') SKIP(222)
       END_STATE();
     case 191:
-      if (lookahead == '\n') SKIP(240);
-      if (lookahead == '\r') SKIP(190);
+      if (lookahead == '\n') SKIP(222)
+      if (lookahead == '\r') SKIP(190)
       END_STATE();
     case 192:
-      if (lookahead == '\n') SKIP(256);
+      if (lookahead == '\n') SKIP(240)
       END_STATE();
     case 193:
-      if (lookahead == '\n') SKIP(256);
-      if (lookahead == '\r') SKIP(192);
+      if (lookahead == '\n') SKIP(240)
+      if (lookahead == '\r') SKIP(192)
       END_STATE();
     case 194:
-      if (lookahead == '\n') SKIP(241);
+      if (lookahead == '\n') SKIP(257)
       END_STATE();
     case 195:
-      if (lookahead == '\n') SKIP(241);
-      if (lookahead == '\r') SKIP(194);
+      if (lookahead == '\n') SKIP(257)
+      if (lookahead == '\r') SKIP(194)
       END_STATE();
     case 196:
-      if (lookahead == '\n') SKIP(242);
+      if (lookahead == '\n') SKIP(241)
       END_STATE();
     case 197:
-      if (lookahead == '\n') SKIP(242);
-      if (lookahead == '\r') SKIP(196);
+      if (lookahead == '\n') SKIP(241)
+      if (lookahead == '\r') SKIP(196)
       END_STATE();
     case 198:
-      if (lookahead == '\n') SKIP(257);
+      if (lookahead == '\n') SKIP(242)
       END_STATE();
     case 199:
-      if (lookahead == '\n') SKIP(257);
-      if (lookahead == '\r') SKIP(198);
+      if (lookahead == '\n') SKIP(242)
+      if (lookahead == '\r') SKIP(198)
       END_STATE();
     case 200:
-      if (lookahead == '\n') SKIP(243);
+      if (lookahead == '\n') SKIP(258)
       END_STATE();
     case 201:
-      if (lookahead == '\n') SKIP(243);
-      if (lookahead == '\r') SKIP(200);
+      if (lookahead == '\n') SKIP(258)
+      if (lookahead == '\r') SKIP(200)
       END_STATE();
     case 202:
-      if (lookahead == '\n') SKIP(258);
+      if (lookahead == '\n') SKIP(243)
       END_STATE();
     case 203:
-      if (lookahead == '\n') SKIP(258);
-      if (lookahead == '\r') SKIP(202);
+      if (lookahead == '\n') SKIP(243)
+      if (lookahead == '\r') SKIP(202)
       END_STATE();
     case 204:
-      if (lookahead == '\n') SKIP(244);
+      if (lookahead == '\n') SKIP(244)
       END_STATE();
     case 205:
-      if (lookahead == '\n') SKIP(244);
-      if (lookahead == '\r') SKIP(204);
+      if (lookahead == '\n') SKIP(244)
+      if (lookahead == '\r') SKIP(204)
       END_STATE();
     case 206:
-      if (lookahead == '\n') SKIP(245);
+      if (lookahead == '\n') SKIP(245)
       END_STATE();
     case 207:
-      if (lookahead == '\n') SKIP(245);
-      if (lookahead == '\r') SKIP(206);
+      if (lookahead == '\n') SKIP(245)
+      if (lookahead == '\r') SKIP(206)
       END_STATE();
     case 208:
-      if (lookahead == '\n') SKIP(246);
+      if (lookahead == '\n') SKIP(246)
       END_STATE();
     case 209:
-      if (lookahead == '\n') SKIP(246);
-      if (lookahead == '\r') SKIP(208);
+      if (lookahead == '\n') SKIP(246)
+      if (lookahead == '\r') SKIP(208)
       END_STATE();
     case 210:
-      if (lookahead == '\n') SKIP(247);
+      if (lookahead == '\n') SKIP(247)
       END_STATE();
     case 211:
-      if (lookahead == '\n') SKIP(247);
-      if (lookahead == '\r') SKIP(210);
+      if (lookahead == '\n') SKIP(247)
+      if (lookahead == '\r') SKIP(210)
       END_STATE();
     case 212:
-      if (lookahead == '\n') SKIP(248);
+      if (lookahead == '\n') SKIP(248)
       END_STATE();
     case 213:
-      if (lookahead == '\n') SKIP(248);
-      if (lookahead == '\r') SKIP(212);
+      if (lookahead == '\n') SKIP(248)
+      if (lookahead == '\r') SKIP(212)
       END_STATE();
     case 214:
-      ADVANCE_MAP(
-        '!', 2670,
-        '%', 1381,
-        '&', 1387,
-        '(', 1365,
-        ')', 1311,
-        '*', 1372,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '/', 1374,
-        '<', 1399,
-        '=', 346,
-        '>', 1393,
-      );
-      if (lookahead == '\\') SKIP(94);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == '_') ADVANCE(1826);
-      if (lookahead == '|') ADVANCE(1384);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(215);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '/') ADVANCE(1354);
+      if (lookahead == '<') ADVANCE(1379);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1373);
+      if (lookahead == '\\') SKIP(99)
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == '_') ADVANCE(1804);
+      if (lookahead == '|') ADVANCE(1364);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(215)
       END_STATE();
     case 215:
-      ADVANCE_MAP(
-        '!', 2670,
-        '%', 1381,
-        '&', 1387,
-        '(', 1365,
-        ')', 1311,
-        '*', 1372,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '/', 1374,
-        '<', 1399,
-        '=', 346,
-        '>', 1393,
-      );
-      if (lookahead == '\\') SKIP(94);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == '|') ADVANCE(1384);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(215);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '/') ADVANCE(1354);
+      if (lookahead == '<') ADVANCE(1379);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1373);
+      if (lookahead == '\\') SKIP(99)
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == '|') ADVANCE(1364);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(215)
       END_STATE();
     case 216:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1379,
-        ':', 1450,
-        '<', 1400,
-        '=', 1460,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(64);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1359);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1440);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(64)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(870);
+          lookahead == 'e') ADVANCE(860);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(216);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(216)
       END_STATE();
     case 217:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ':', 344,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(2);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ':') ADVANCE(344);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(2)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2285);
+          lookahead == 'e') ADVANCE(2263);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1893);
+          lookahead == 'f') ADVANCE(1871);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2175);
+          lookahead == 'i') ADVANCE(2153);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1910);
+          lookahead == 'm') ADVANCE(1888);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1871);
+          lookahead == 'p') ADVANCE(1849);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1913);
+          lookahead == 'r') ADVANCE(1891);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1886);
+          lookahead == 's') ADVANCE(1864);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(217);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(217)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 218:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(125);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(123)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2333);
+          lookahead == 'e') ADVANCE(2311);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(218);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(218)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 219:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(8);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(8)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
+          lookahead == 'e') ADVANCE(2310);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(219);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(219)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 220:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(159);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(159)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1947);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1847);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1859);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1884);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2309);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1872);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2416);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2154);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2222);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2105);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1889);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1920);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2450);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1850);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1892);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1865);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1880);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2403);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1877);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(220)
+      if (lookahead == '$' ||
+          ('H' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 221:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(173)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2262);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1848);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1861);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1887);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2312);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1872);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2416);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2159);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2222);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2106);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2423);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2450);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1851);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1892);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1865);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1883);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2404);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1878);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(221)
+      if (lookahead == '$' ||
+          ('H' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 222:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(191)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2262);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1848);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1862);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1887);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2310);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1872);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2416);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2159);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2222);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2106);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2423);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2450);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1851);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1892);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1865);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1883);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2404);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1878);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(222)
+      if (lookahead == '$' ||
+          ('H' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 223:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == '\\') SKIP(80)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1172);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1268);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(730);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(990);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(861);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1218);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(891);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(984);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(977);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1249);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(629);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(740);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(223)
+      END_STATE();
+    case 224:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(60)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(848);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1268);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(452);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(990);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(861);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1023);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(888);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(984);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(635);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1011);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(930);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1249);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(398);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(740);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(664);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(938);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(224)
+      END_STATE();
+    case 225:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(344);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1440);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(16)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1949);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2194);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2183);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1885);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2320);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1874);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2154);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2222);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2105);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1889);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1921);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2462);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1909);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1894);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1869);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1880);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2403);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1877);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(225)
+      if (lookahead == '$' ||
+          ('G' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 226:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1359);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(90)
+      if (lookahead == '_') ADVANCE(1804);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1145);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(808);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(733);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(981);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(951);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1015);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(702);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1220);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(696);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1273);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(735);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(227)
+      END_STATE();
+    case 227:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1359);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(90)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1145);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(808);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(733);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(981);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(951);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1015);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(702);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1220);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(696);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1273);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(735);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(227)
+      END_STATE();
+    case 228:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1359);
+      if (lookahead == ':') ADVANCE(344);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(62)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1172);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1268);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(730);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(990);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(862);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(738);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(640);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(889);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(984);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(977);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1054);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(629);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(740);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(228)
+      END_STATE();
+    case 229:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(143)
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1947);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1847);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1859);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1884);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2313);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1872);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2416);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2154);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2222);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2105);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1889);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1920);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2450);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1850);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1892);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1865);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1880);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2403);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1877);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(229)
+      if (lookahead == '$' ||
+          ('H' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 230:
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(151)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
           lookahead == 'e') ADVANCE(2331);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(220);
-      if (lookahead == '$' ||
-          ('H' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 221:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(171);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2334);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(221);
-      if (lookahead == '$' ||
-          ('H' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 222:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 354,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(189);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(222);
-      if (lookahead == '$' ||
-          ('H' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 223:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '#') ADVANCE(354);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(78);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(871);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(223);
-      END_STATE();
-    case 224:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        '<', 1400,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(60);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(470);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(784);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(452);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(650);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(872);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1035);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(899);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(788);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(649);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(393);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1042);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(422);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(397);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(383);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(390);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(950);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(389);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(224);
-      END_STATE();
-    case 225:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 344,
-        '<', 1400,
-        '=', 1460,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(16);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2205);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2342);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1943);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1931);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(225);
-      if (lookahead == '$' ||
-          ('G' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 226:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1379,
-        ':', 1450,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(90);
-      if (lookahead == '_') ADVANCE(1826);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1160);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(819);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(741);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(992);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(963);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1027);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(708);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1237);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(701);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1292);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(743);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(227);
-      END_STATE();
-    case 227:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1379,
-        ':', 1450,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(90);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1160);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(819);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(741);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(992);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(963);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1027);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(708);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1237);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(701);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1292);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(743);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(227);
-      END_STATE();
-    case 228:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1379,
-        ':', 344,
-        '<', 1400,
-        '=', 346,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(62);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(873);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(746);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(644);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(901);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1066);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(228);
-      END_STATE();
-    case 229:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(143);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2335);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(229);
-      if (lookahead == '$' ||
-          ('H' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 230:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(151);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2353);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(230);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(230)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 231:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(127);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(125)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2336);
+          lookahead == 'e') ADVANCE(2314);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(231);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(231)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 232:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(145);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(145)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1885);
+          lookahead == 'c') ADVANCE(1863);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2340);
+          lookahead == 'e') ADVANCE(2318);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1903);
+          lookahead == 't') ADVANCE(1881);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(232);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(232)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 233:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(157);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(157)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1880);
+          lookahead == 'c') ADVANCE(1858);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2340);
+          lookahead == 'e') ADVANCE(2318);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(233);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(233)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 234:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(163);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(163)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2355);
+          lookahead == 'e') ADVANCE(2333);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(234);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(234)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 235:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(167);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(169)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2356);
+          lookahead == 'e') ADVANCE(2334);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(235);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(235)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 236:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(179);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(183)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2337);
+          lookahead == 'e') ADVANCE(2315);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(236);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(236)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 237:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(175);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(179)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2338);
+          lookahead == 'e') ADVANCE(2330);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(237);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(237)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 238:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(185);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(187)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2343);
+          lookahead == 'e') ADVANCE(2321);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(238);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(238)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 239:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(187);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(189)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
+          lookahead == 'e') ADVANCE(2310);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(239);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(239)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 240:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(191);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(193)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2352);
+          lookahead == 'e') ADVANCE(2316);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(240);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(240)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 241:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(195);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(197)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2345);
+          lookahead == 'e') ADVANCE(2323);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(241);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(241)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 242:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(197);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(199)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2334);
+          lookahead == 'e') ADVANCE(2312);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(242);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(242)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 243:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(201);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(203)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2346);
+          lookahead == 'e') ADVANCE(2324);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(243);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(243)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 244:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(205);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(205)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(244);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(244)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 245:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(207);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(207)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2348);
+          lookahead == 'e') ADVANCE(2326);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(245);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(245)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 246:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(209);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(209)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2349);
+          lookahead == 'e') ADVANCE(2327);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(246);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(246)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 247:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(211);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(211)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2340);
+          lookahead == 'e') ADVANCE(2318);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(247);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(247)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 248:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(213);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(213)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2331);
+          lookahead == 'e') ADVANCE(2309);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(248);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(248)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 249:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(6);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(6)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1882);
+          lookahead == 'c') ADVANCE(1860);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2339);
+          lookahead == 'e') ADVANCE(2317);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(249);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(249)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 250:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == ',') ADVANCE(1310);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == ',') ADVANCE(1290);
       if (lookahead == ':') ADVANCE(344);
-      if (lookahead == '\\') SKIP(46);
+      if (lookahead == '\\') SKIP(46)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2364);
+          lookahead == 'a') ADVANCE(2342);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2206);
+          lookahead == 'c') ADVANCE(2184);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2287);
+          lookahead == 'e') ADVANCE(2265);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1892);
+          lookahead == 'f') ADVANCE(1870);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2148);
+          lookahead == 'g') ADVANCE(2126);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2179);
+          lookahead == 'i') ADVANCE(2157);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2439);
+          lookahead == 'm') ADVANCE(2417);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1936);
+          lookahead == 'p') ADVANCE(1914);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1915);
+          lookahead == 'r') ADVANCE(1893);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1888);
+          lookahead == 's') ADVANCE(1866);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(250);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(250)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 251:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '.') ADVANCE(1810);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '.') ADVANCE(1788);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(18);
+      if (lookahead == '\\') SKIP(18)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2205);
+          lookahead == 'c') ADVANCE(2183);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2344);
+          lookahead == 'e') ADVANCE(2322);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1943);
+          lookahead == 'n') ADVANCE(1921);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1931);
+          lookahead == 'p') ADVANCE(1909);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(251);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(251)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 252:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(149);
+      if (lookahead == '\\') SKIP(149)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(874);
+          lookahead == 'e') ADVANCE(863);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(252);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(252)
       END_STATE();
     case 253:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(86);
+      if (lookahead == '\\') SKIP(86)
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(739);
+          lookahead == 'c') ADVANCE(731);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(962);
+          lookahead == 'e') ADVANCE(950);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(941);
+          lookahead == 'i') ADVANCE(926);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1068);
+          lookahead == 'p') ADVANCE(1056);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(697);
+          lookahead == 'r') ADVANCE(692);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(638);
+          lookahead == 's') ADVANCE(634);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1291);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(253);
+          lookahead == 't') ADVANCE(1272);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(253)
       END_STATE();
     case 254:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(92);
+      if (lookahead == '\\') SKIP(92)
       if (lookahead == 'C' ||
           lookahead == 'c') ADVANCE(453);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(964);
+          lookahead == 'e') ADVANCE(952);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(395);
+          lookahead == 'r') ADVANCE(396);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1292);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(254);
+          lookahead == 't') ADVANCE(1273);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(254)
       END_STATE();
     case 255:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(183);
+      if (lookahead == '\\') SKIP(165)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(878);
+          lookahead == 'e') ADVANCE(868);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(255);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(255)
       END_STATE();
     case 256:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(193);
+      if (lookahead == '\\') SKIP(185)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(879);
+          lookahead == 'e') ADVANCE(864);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(256);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(256)
       END_STATE();
     case 257:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(199);
+      if (lookahead == '\\') SKIP(195)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(875);
+          lookahead == 'e') ADVANCE(865);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(257);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(257)
       END_STATE();
     case 258:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(358);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(203);
+      if (lookahead == '\\') SKIP(201)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(876);
+          lookahead == 'e') ADVANCE(867);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(258);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(258)
       END_STATE();
     case 259:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        ';', 1670,
-        '<', 1398,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(52);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == '_') ADVANCE(1826);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1378);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(52)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == '_') ADVANCE(1804);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(469);
+          lookahead == 'a') ADVANCE(467);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(783);
+          lookahead == 'b') ADVANCE(774);
       if (lookahead == 'C' ||
           lookahead == 'c') ADVANCE(451);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(571);
+          lookahead == 'd') ADVANCE(568);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(869);
+          lookahead == 'e') ADVANCE(859);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(402);
+          lookahead == 'f') ADVANCE(403);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(645);
+          lookahead == 'g') ADVANCE(641);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(1017);
+          lookahead == 'h') ADVANCE(1004);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(707);
+          lookahead == 'i') ADVANCE(701);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(777);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(994);
+          lookahead == 'l') ADVANCE(645);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(392);
+          lookahead == 'm') ADVANCE(394);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(991);
+          lookahead == 'n') ADVANCE(980);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(942);
+          lookahead == 'o') ADVANCE(1030);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(442);
+          lookahead == 'p') ADVANCE(388);
       if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1236);
+          lookahead == 'q') ADVANCE(1219);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(396);
+          lookahead == 'r') ADVANCE(397);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(705);
+          lookahead == 's') ADVANCE(383);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(572);
+          lookahead == 't') ADVANCE(391);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(390);
       if (lookahead == 'W' ||
           lookahead == 'w') ADVANCE(427);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(260);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(260)
       END_STATE();
     case 260:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        ';', 1670,
-        '<', 1398,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(52);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1378);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(52)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(469);
+          lookahead == 'a') ADVANCE(467);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(783);
+          lookahead == 'b') ADVANCE(774);
       if (lookahead == 'C' ||
           lookahead == 'c') ADVANCE(451);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(571);
+          lookahead == 'd') ADVANCE(568);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(869);
+          lookahead == 'e') ADVANCE(859);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(402);
+          lookahead == 'f') ADVANCE(403);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(645);
+          lookahead == 'g') ADVANCE(641);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(1017);
+          lookahead == 'h') ADVANCE(1004);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(707);
+          lookahead == 'i') ADVANCE(701);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(777);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(994);
+          lookahead == 'l') ADVANCE(645);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(392);
+          lookahead == 'm') ADVANCE(394);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(991);
+          lookahead == 'n') ADVANCE(980);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(942);
+          lookahead == 'o') ADVANCE(1030);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(442);
+          lookahead == 'p') ADVANCE(388);
       if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1236);
+          lookahead == 'q') ADVANCE(1219);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(396);
+          lookahead == 'r') ADVANCE(397);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(705);
+          lookahead == 's') ADVANCE(383);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(572);
+          lookahead == 't') ADVANCE(391);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(390);
       if (lookahead == 'W' ||
           lookahead == 'w') ADVANCE(427);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(260);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(260)
       END_STATE();
     case 261:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        '<', 1400,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(68);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == '_') ADVANCE(1826);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(72)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == '_') ADVANCE(1804);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(740);
+          lookahead == 'c') ADVANCE(732);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(940);
+          lookahead == 'e') ADVANCE(929);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(979);
+          lookahead == 'i') ADVANCE(968);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1085);
+          lookahead == 'p') ADVANCE(1072);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(697);
+          lookahead == 'r') ADVANCE(692);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(737);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(262);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+          lookahead == 't') ADVANCE(729);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(262)
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       END_STATE();
     case 262:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        '<', 1400,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(68);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(72)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(740);
+          lookahead == 'c') ADVANCE(732);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(940);
+          lookahead == 'e') ADVANCE(929);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(979);
+          lookahead == 'i') ADVANCE(968);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1085);
+          lookahead == 'p') ADVANCE(1072);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(697);
+          lookahead == 'r') ADVANCE(692);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(737);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(262);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+          lookahead == 't') ADVANCE(729);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(262)
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       END_STATE();
     case 263:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(84);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(84)
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(740);
+          lookahead == 'c') ADVANCE(732);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(984);
+          lookahead == 'e') ADVANCE(973);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(979);
+          lookahead == 'i') ADVANCE(968);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1085);
+          lookahead == 'p') ADVANCE(1072);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(697);
+          lookahead == 'r') ADVANCE(692);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1291);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(263);
+          lookahead == 't') ADVANCE(1272);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(263)
       END_STATE();
     case 264:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 365,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(10);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(365);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(10)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2350);
+          lookahead == 'e') ADVANCE(2328);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(264);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(264)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 265:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(365);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == ',') ADVANCE(1310);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == ',') ADVANCE(1290);
       if (lookahead == ':') ADVANCE(344);
-      if (lookahead == '\\') SKIP(135);
+      if (lookahead == '\\') SKIP(133)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2364);
+          lookahead == 'a') ADVANCE(2342);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2206);
+          lookahead == 'c') ADVANCE(2184);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2286);
+          lookahead == 'e') ADVANCE(2264);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1892);
+          lookahead == 'f') ADVANCE(1870);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2148);
+          lookahead == 'g') ADVANCE(2126);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2179);
+          lookahead == 'i') ADVANCE(2157);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2439);
+          lookahead == 'm') ADVANCE(2417);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1936);
+          lookahead == 'p') ADVANCE(1914);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1915);
+          lookahead == 'r') ADVANCE(1893);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1888);
+          lookahead == 's') ADVANCE(1866);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(265);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(265)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 266:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(365);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(101);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(101)
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(958);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(266);
+          lookahead == 'e') ADVANCE(946);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(266)
       END_STATE();
     case 267:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(364);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(88);
+      if (lookahead == '\\') SKIP(88)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(877);
+          lookahead == 'e') ADVANCE(866);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(746);
+          lookahead == 'f') ADVANCE(738);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(644);
+          lookahead == 'g') ADVANCE(640);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(901);
+          lookahead == 'i') ADVANCE(889);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1071);
+          lookahead == 'p') ADVANCE(1057);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(267);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(267)
       END_STATE();
     case 268:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1379,
-        '<', 1400,
-        '=', 346,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(76);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1359);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(346);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(76)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(880);
+          lookahead == 'e') ADVANCE(869);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(268);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(268)
       END_STATE();
     case 269:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(4);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(4)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2285);
+          lookahead == 'e') ADVANCE(2263);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1893);
+          lookahead == 'f') ADVANCE(1871);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2175);
+          lookahead == 'i') ADVANCE(2153);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1910);
+          lookahead == 'm') ADVANCE(1888);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1871);
+          lookahead == 'p') ADVANCE(1849);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1913);
+          lookahead == 'r') ADVANCE(1891);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1886);
+          lookahead == 's') ADVANCE(1864);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(269);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(269)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 270:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(155);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(155)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2333);
+          lookahead == 'e') ADVANCE(2311);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(270);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(270)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 271:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(153);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(153)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2334);
+          lookahead == 'e') ADVANCE(2312);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(271);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(271)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 272:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(161);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(161)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2331);
+          lookahead == 'e') ADVANCE(2309);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1872);
+          lookahead == 'p') ADVANCE(1850);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(272);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(272)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 273:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(165);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(167)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1883);
+          lookahead == 'c') ADVANCE(1861);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
+          lookahead == 'e') ADVANCE(2310);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(273);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(273)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 274:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 356,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '/', 324,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(169);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(356);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(324);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(171)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
+          lookahead == 'e') ADVANCE(2310);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(274);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(274)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 275:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(356);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(139);
+      if (lookahead == '\\') SKIP(137)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1187);
+          lookahead == 'a') ADVANCE(1172);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1287);
+          lookahead == 'b') ADVANCE(1268);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(738);
+          lookahead == 'c') ADVANCE(730);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1003);
+          lookahead == 'd') ADVANCE(990);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(871);
+          lookahead == 'e') ADVANCE(861);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1235);
+          lookahead == 'f') ADVANCE(1218);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(903);
+          lookahead == 'i') ADVANCE(891);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(997);
+          lookahead == 'l') ADVANCE(984);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(988);
+          lookahead == 'm') ADVANCE(977);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1266);
+          lookahead == 'p') ADVANCE(1249);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(632);
+          lookahead == 'r') ADVANCE(629);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(748);
+          lookahead == 's') ADVANCE(740);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(275);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(275)
       END_STATE();
     case 276:
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 355,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1376,
-        ':', 1450,
-        ';', 1670,
-        '<', 1398,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(14);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(355);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1378);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(14)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2205);
+          lookahead == 'c') ADVANCE(2183);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2341);
+          lookahead == 'e') ADVANCE(2319);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1943);
+          lookahead == 'n') ADVANCE(1921);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1931);
+          lookahead == 'p') ADVANCE(1909);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(276);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(276)
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 277:
-      if (lookahead == '!') ADVANCE(2671);
+      if (lookahead == '!') ADVANCE(2649);
       if (lookahead == '#') ADVANCE(357);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == '\\') SKIP(20);
+      if (lookahead == '\\') SKIP(20)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2205);
+          lookahead == 'c') ADVANCE(2183);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2341);
+          lookahead == 'e') ADVANCE(2319);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2176);
+          lookahead == 'i') ADVANCE(2154);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1943);
+          lookahead == 'n') ADVANCE(1921);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1931);
+          lookahead == 'p') ADVANCE(1909);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(277);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(277)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 278:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(22);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(22)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(278);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(278)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 279:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(24);
-      if (lookahead == '_') ADVANCE(1827);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(24)
+      if (lookahead == '_') ADVANCE(1805);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2328);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(280);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(280)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 280:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(24);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(24)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2328);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(280);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(280)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 281:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(131);
-      if (lookahead == '_') ADVANCE(1827);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(129)
+      if (lookahead == '_') ADVANCE(1805);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2350);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(282);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(282)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 282:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(131);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(129)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2350);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(282);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(282)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 283:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(177);
-      if (lookahead == '_') ADVANCE(1827);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(175)
+      if (lookahead == '_') ADVANCE(1805);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(284);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(284)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 284:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1366,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1813,
-        '/', 1380,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(177);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1791);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(175)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(284);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(284)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 285:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1451,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(28);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(28)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2364);
+          lookahead == 'a') ADVANCE(2342);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2206);
+          lookahead == 'c') ADVANCE(2184);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2286);
+          lookahead == 'e') ADVANCE(2264);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1895);
+          lookahead == 'f') ADVANCE(1873);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2177);
+          lookahead == 'i') ADVANCE(2155);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2439);
+          lookahead == 'm') ADVANCE(2417);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1937);
+          lookahead == 'p') ADVANCE(1915);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1915);
+          lookahead == 'r') ADVANCE(1893);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1888);
+          lookahead == 's') ADVANCE(1866);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(285);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(285)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 286:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1377,
-        ':', 1451,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1394,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(36);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1357);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1374);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(36)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2210);
+          lookahead == 'c') ADVANCE(2188);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2182);
+          lookahead == 'i') ADVANCE(2160);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1933);
+          lookahead == 'p') ADVANCE(1911);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(286);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(286)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 287:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1451,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(48);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(48)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(287);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(287)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 288:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1398,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(44);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1378);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(44)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(288);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(288)
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 289:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1451,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(26);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(26)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1970);
+          lookahead == 'a') ADVANCE(1948);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2210);
+          lookahead == 'c') ADVANCE(2188);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2182);
+          lookahead == 'i') ADVANCE(2160);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2476);
+          lookahead == 'o') ADVANCE(2454);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1933);
+          lookahead == 'p') ADVANCE(1911);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(289);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(289)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 290:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(42);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(42)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1873);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1889);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(290);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(290)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 291:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(133);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(131)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1895);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1912);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(291);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(291)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 292:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(147);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(147)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1934);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1867);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(292);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(292)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 293:
-      ADVANCE_MAP(
-        '!', 2671,
-        '%', 1381,
-        '&', 1386,
-        '(', 1365,
-        '*', 1373,
-        '+', 1370,
-        '-', 1371,
-        '.', 1814,
-        '/', 1380,
-        ':', 1450,
-        ';', 1670,
-        '<', 1400,
-        '=', 1461,
-        '>', 1391,
-        '?', 1861,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(181);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1792);
+      if (lookahead == '/') ADVANCE(1360);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1380);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1371);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(181)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1935);
+          lookahead == 'p') ADVANCE(1913);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(293);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(293)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 294:
-      ADVANCE_MAP(
-        '!', 2671,
-        '&', 1386,
-        '(', 1366,
-        ')', 1311,
-        '*', 1372,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1816,
-        '/', 323,
-        ':', 1450,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(38);
-      if (lookahead == ']') ADVANCE(1823);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(323);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(38)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(294);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(294)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 295:
-      ADVANCE_MAP(
-        '!', 2671,
-        '&', 1386,
-        '(', 1366,
-        ')', 1311,
-        '*', 1372,
-        '+', 1370,
-        '-', 1371,
-        '.', 1812,
-        ':', 1450,
-        '<', 348,
-        '@', 1818,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(32);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1790);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == '<') ADVANCE(348);
+      if (lookahead == '@') ADVANCE(1796);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(32)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(295);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(295)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 296:
-      ADVANCE_MAP(
-        '!', 2671,
-        '&', 1386,
-        '(', 1366,
-        '*', 1372,
-        '+', 1370,
-        '-', 1371,
-        '.', 1816,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(34);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(34)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2208);
+          lookahead == 'c') ADVANCE(2186);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2183);
+          lookahead == 'i') ADVANCE(2161);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(296);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(296)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 297:
-      ADVANCE_MAP(
-        '!', 2671,
-        '&', 1386,
-        '(', 1366,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1815,
-        ':', 344,
-        ';', 1670,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(40);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1793);
+      if (lookahead == ':') ADVANCE(344);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(40)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(297);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(297)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 298:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1366);
-      if (lookahead == '+') ADVANCE(1370);
-      if (lookahead == '-') ADVANCE(1371);
-      if (lookahead == '.') ADVANCE(1816);
-      if (lookahead == '[') ADVANCE(1822);
-      if (lookahead == '\\') SKIP(12);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(12)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2332);
+          lookahead == 'e') ADVANCE(2325);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1901);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(298);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(298)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 299:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1366);
-      if (lookahead == '+') ADVANCE(1370);
-      if (lookahead == '-') ADVANCE(1371);
-      if (lookahead == '.') ADVANCE(1816);
-      if (lookahead == '[') ADVANCE(1822);
-      if (lookahead == '\\') SKIP(129);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(127)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2284);
+          lookahead == 'a') ADVANCE(2262);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1870);
+          lookahead == 'b') ADVANCE(1848);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1884);
+          lookahead == 'c') ADVANCE(1862);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1909);
+          lookahead == 'd') ADVANCE(1887);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2347);
+          lookahead == 'e') ADVANCE(2310);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1894);
+          lookahead == 'f') ADVANCE(1872);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2181);
+          lookahead == 'i') ADVANCE(2159);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2445);
+          lookahead == 'n') ADVANCE(2423);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1873);
+          lookahead == 'p') ADVANCE(1851);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1914);
+          lookahead == 'r') ADVANCE(1892);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1887);
+          lookahead == 's') ADVANCE(1865);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1879);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(299);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(299)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 300:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1366);
-      if (lookahead == '+') ADVANCE(1370);
-      if (lookahead == '-') ADVANCE(1371);
-      if (lookahead == '.') ADVANCE(1816);
-      if (lookahead == '[') ADVANCE(1822);
-      if (lookahead == '\\') SKIP(30);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(30)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2206);
+          lookahead == 'c') ADVANCE(2184);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2183);
+          lookahead == 'i') ADVANCE(2161);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(300);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(300)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 301:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == ')') ADVANCE(1311);
-      if (lookahead == ',') ADVANCE(1310);
-      if (lookahead == '\\') SKIP(103);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(301);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1767);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '\\') SKIP(105)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(301)
       if (lookahead == '$' ||
           lookahead == '*' ||
           ('.' <= lookahead && lookahead <= ':') ||
           ('A' <= lookahead && lookahead <= 'G') ||
           ('I' <= lookahead && lookahead <= 'Z') ||
           ('a' <= lookahead && lookahead <= 'g') ||
-          ('i' <= lookahead && lookahead <= 'z')) ADVANCE(1768);
+          ('i' <= lookahead && lookahead <= 'z')) ADVANCE(1747);
       END_STATE();
     case 302:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == ')') ADVANCE(1311);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ')') ADVANCE(1291);
       if (lookahead == '/') ADVANCE(324);
-      if (lookahead == 'D') ADVANCE(1908);
-      if (lookahead == '\\') SKIP(54);
-      if (lookahead == 'd') ADVANCE(1863);
+      if (lookahead == 'D') ADVANCE(1886);
+      if (lookahead == '\\') SKIP(54)
+      if (lookahead == 'd') ADVANCE(1841);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(302);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(302)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 303:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == ',') ADVANCE(1310);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ',') ADVANCE(1290);
       if (lookahead == ':') ADVANCE(344);
-      if (lookahead == ';') ADVANCE(1670);
-      if (lookahead == '\\') SKIP(58);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '\\') SKIP(58)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2363);
+          lookahead == 'a') ADVANCE(2341);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2476);
+          lookahead == 'o') ADVANCE(2454);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(303);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(303)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 304:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == ';') ADVANCE(1670);
-      if (lookahead == '\\') SKIP(70);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '\\') SKIP(68)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2439);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1868);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(304);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(304)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 305:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '(') ADVANCE(1365);
-      if (lookahead == ';') ADVANCE(1670);
-      if (lookahead == '\\') SKIP(72);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1345);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '\\') SKIP(70)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2417);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1890);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(305);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(305)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 306:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == ')') ADVANCE(1311);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == ')') ADVANCE(1291);
       if (lookahead == '.') ADVANCE(343);
-      if (lookahead == '\\') SKIP(82);
+      if (lookahead == '\\') SKIP(82)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(306);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(306)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 307:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '*') ADVANCE(1372);
-      if (lookahead == '+') ADVANCE(1370);
-      if (lookahead == '.') ADVANCE(1293);
-      if (lookahead == '\\') SKIP(112);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(307);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '.') ADVANCE(1274);
+      if (lookahead == '\\') SKIP(114)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(307)
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1712);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1692);
       END_STATE();
     case 308:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '+') ADVANCE(1370);
-      if (lookahead == '-') ADVANCE(1371);
-      if (lookahead == '.') ADVANCE(1810);
-      if (lookahead == '\\') SKIP(66);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1788);
+      if (lookahead == '\\') SKIP(66)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(308);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(308)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 309:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == ',') ADVANCE(1310);
-      if (lookahead == ';') ADVANCE(1670);
-      if (lookahead == '\\') SKIP(56);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '\\') SKIP(56)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2211);
+          lookahead == 'c') ADVANCE(2189);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2215);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(309);
+          lookahead == 'w') ADVANCE(2193);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(309)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 310:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == ':') ADVANCE(344);
-      if (lookahead == '\\') SKIP(50);
+      if (lookahead == '\\') SKIP(50)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2207);
+          lookahead == 'c') ADVANCE(2185);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1907);
+          lookahead == 'd') ADVANCE(1885);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2286);
+          lookahead == 'e') ADVANCE(2264);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1895);
+          lookahead == 'f') ADVANCE(1873);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2178);
+          lookahead == 'i') ADVANCE(2156);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1910);
+          lookahead == 'm') ADVANCE(1888);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1932);
+          lookahead == 'p') ADVANCE(1910);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1915);
+          lookahead == 'r') ADVANCE(1893);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1888);
+          lookahead == 's') ADVANCE(1866);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(310);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(310)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 311:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
       if (lookahead == ':') ADVANCE(344);
-      if (lookahead == '\\') SKIP(137);
+      if (lookahead == '\\') SKIP(135)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1971);
+          lookahead == 'a') ADVANCE(1949);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2216);
+          lookahead == 'b') ADVANCE(2194);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2210);
+          lookahead == 'c') ADVANCE(2188);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2184);
+          lookahead == 'i') ADVANCE(2162);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1911);
+          lookahead == 'm') ADVANCE(1889);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1933);
+          lookahead == 'p') ADVANCE(1911);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(311);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(311)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 312:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == ';') ADVANCE(1670);
-      if (lookahead == '\\') SKIP(74);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '\\') SKIP(74)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2484);
+          lookahead == 'o') ADVANCE(2462);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1904);
+          lookahead == 't') ADVANCE(1882);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(312);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(312)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 313:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(80);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(78)
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2365);
+          lookahead == 'a') ADVANCE(2343);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2301);
+          lookahead == 'b') ADVANCE(2279);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2212);
+          lookahead == 'c') ADVANCE(2190);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1908);
+          lookahead == 'd') ADVANCE(1886);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2351);
+          lookahead == 'e') ADVANCE(2329);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1896);
+          lookahead == 'f') ADVANCE(1874);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2180);
+          lookahead == 'i') ADVANCE(2158);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2128);
+          lookahead == 'l') ADVANCE(2106);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2640);
+          lookahead == 'n') ADVANCE(2618);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2419);
+          lookahead == 'o') ADVANCE(2397);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1938);
+          lookahead == 'p') ADVANCE(1916);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1916);
+          lookahead == 'r') ADVANCE(1894);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1891);
+          lookahead == 's') ADVANCE(1869);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1905);
+          lookahead == 't') ADVANCE(1883);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2426);
+          lookahead == 'u') ADVANCE(2404);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1900);
+          lookahead == 'v') ADVANCE(1878);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2529);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(313);
+          lookahead == 'w') ADVANCE(2507);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(313)
       if (lookahead == '$' ||
           ('G' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('g' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 314:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(105);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(103)
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(885);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(314);
+          lookahead == 'e') ADVANCE(874);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(314)
       END_STATE();
     case 315:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(114);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(112)
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(964);
+          lookahead == 'e') ADVANCE(952);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1030);
+          lookahead == 'f') ADVANCE(1018);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1290);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(315);
+          lookahead == 't') ADVANCE(1271);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(315)
       END_STATE();
     case 316:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(119);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(316);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(119)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(316)
       if (('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1531);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1511);
       END_STATE();
     case 317:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(121);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(317);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(121)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(317)
       END_STATE();
     case 318:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(121);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(317);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1829);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(121)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(317)
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1807);
       if (('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1828);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1806);
       END_STATE();
     case 319:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(141);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(319);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(139)
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(319)
       if (('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1817);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1795);
       END_STATE();
     case 320:
-      if (lookahead == '!') ADVANCE(2671);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') SKIP(173);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') SKIP(177)
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(886);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(320);
+          lookahead == 'e') ADVANCE(875);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(320)
       END_STATE();
     case 321:
-      if (lookahead == '!') ADVANCE(2669);
-      if (lookahead == '&') ADVANCE(1386);
-      if (lookahead == '\\') ADVANCE(1329);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(321);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '!') ADVANCE(2647);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '\\') ADVANCE(1309);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(321)
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
     case 322:
-      if (lookahead == '!') ADVANCE(1467);
-      if (lookahead == '&') ADVANCE(1388);
-      if (lookahead == '\\') ADVANCE(1465);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') ADVANCE(1468);
+      if (lookahead == '!') ADVANCE(1447);
+      if (lookahead == '&') ADVANCE(1368);
+      if (lookahead == '\\') ADVANCE(1445);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') ADVANCE(1448);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
     case 323:
-      if (lookahead == ')') ADVANCE(1821);
+      if (lookahead == ')') ADVANCE(1799);
       END_STATE();
     case 324:
       if (lookahead == '*') ADVANCE(326);
       END_STATE();
     case 325:
       if (lookahead == '*') ADVANCE(325);
-      if (lookahead == '/') ADVANCE(1369);
+      if (lookahead == '/') ADVANCE(1349);
       if (lookahead != 0 &&
           lookahead != '\n') ADVANCE(326);
       END_STATE();
@@ -20559,56 +20638,56 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
           lookahead != '\n') ADVANCE(326);
       END_STATE();
     case 327:
-      if (lookahead == '.') ADVANCE(1805);
+      if (lookahead == '.') ADVANCE(1783);
       if (lookahead == 'V' ||
           lookahead == 'v') ADVANCE(335);
       END_STATE();
     case 328:
-      if (lookahead == '.') ADVANCE(1804);
+      if (lookahead == '.') ADVANCE(1782);
       END_STATE();
     case 329:
-      if (lookahead == '.') ADVANCE(1802);
+      if (lookahead == '.') ADVANCE(1780);
       END_STATE();
     case 330:
-      if (lookahead == '.') ADVANCE(1803);
+      if (lookahead == '.') ADVANCE(1781);
       END_STATE();
     case 331:
-      if (lookahead == '.') ADVANCE(1801);
+      if (lookahead == '.') ADVANCE(1779);
       END_STATE();
     case 332:
-      if (lookahead == '.') ADVANCE(1807);
+      if (lookahead == '.') ADVANCE(1785);
       if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1272);
+          lookahead == 'q') ADVANCE(1254);
       END_STATE();
     case 333:
-      if (lookahead == '.') ADVANCE(1796);
+      if (lookahead == '.') ADVANCE(1774);
       END_STATE();
     case 334:
-      if (lookahead == '.') ADVANCE(1797);
+      if (lookahead == '.') ADVANCE(1775);
       END_STATE();
     case 335:
-      if (lookahead == '.') ADVANCE(1798);
+      if (lookahead == '.') ADVANCE(1776);
       END_STATE();
     case 336:
-      if (lookahead == '.') ADVANCE(1862);
+      if (lookahead == '.') ADVANCE(1840);
       END_STATE();
     case 337:
-      if (lookahead == '.') ADVANCE(1800);
+      if (lookahead == '.') ADVANCE(1778);
       END_STATE();
     case 338:
-      if (lookahead == '.') ADVANCE(1799);
+      if (lookahead == '.') ADVANCE(1777);
       END_STATE();
     case 339:
-      if (lookahead == '.') ADVANCE(1824);
+      if (lookahead == '.') ADVANCE(1802);
       END_STATE();
     case 340:
-      if (lookahead == '.') ADVANCE(1825);
+      if (lookahead == '.') ADVANCE(1803);
       END_STATE();
     case 341:
-      if (lookahead == '.') ADVANCE(1309);
+      if (lookahead == '.') ADVANCE(1289);
       END_STATE();
     case 342:
-      if (lookahead == '.') ADVANCE(1711);
+      if (lookahead == '.') ADVANCE(1691);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
@@ -20618,25 +20697,25 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
       if (lookahead == '.') ADVANCE(341);
       END_STATE();
     case 344:
-      if (lookahead == ':') ADVANCE(1505);
+      if (lookahead == ':') ADVANCE(1485);
       END_STATE();
     case 345:
-      if (lookahead == '<') ADVANCE(1678);
+      if (lookahead == '<') ADVANCE(1658);
       END_STATE();
     case 346:
-      if (lookahead == '=') ADVANCE(1389);
+      if (lookahead == '=') ADVANCE(1369);
       END_STATE();
     case 347:
-      if (lookahead == '>') ADVANCE(1679);
+      if (lookahead == '>') ADVANCE(1659);
       END_STATE();
     case 348:
-      if (lookahead == '>') ADVANCE(1405);
+      if (lookahead == '>') ADVANCE(1385);
       if (lookahead == '\\') ADVANCE(349);
       if (lookahead != 0 &&
           lookahead != '\n') ADVANCE(348);
       END_STATE();
     case 349:
-      if (lookahead == '>') ADVANCE(1406);
+      if (lookahead == '>') ADVANCE(1386);
       if (lookahead == '\\') ADVANCE(349);
       if (lookahead != 0 &&
           lookahead != '\n') ADVANCE(348);
@@ -20648,67 +20727,67 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
       if (lookahead == 'F') ADVANCE(440);
       if (lookahead == 'f') ADVANCE(378);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(756);
+          lookahead == 'v') ADVANCE(747);
       END_STATE();
     case 352:
-      if (lookahead == '_') ADVANCE(778);
+      if (lookahead == '_') ADVANCE(769);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1511);
+          lookahead == 'e') ADVANCE(1491);
       END_STATE();
     case 353:
-      if (lookahead == '_') ADVANCE(725);
+      if (lookahead == '_') ADVANCE(719);
       END_STATE();
     case 354:
-      if (lookahead == 'd') ADVANCE(1339);
-      if (lookahead == 'e') ADVANCE(1358);
-      if (lookahead == 'i') ADVANCE(1347);
+      if (lookahead == 'd') ADVANCE(1319);
+      if (lookahead == 'e') ADVANCE(1338);
+      if (lookahead == 'i') ADVANCE(1327);
       if (lookahead == '\t' ||
           lookahead == ' ') ADVANCE(354);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
     case 355:
-      if (lookahead == 'd') ADVANCE(1339);
-      if (lookahead == 'e') ADVANCE(1358);
-      if (lookahead == 'i') ADVANCE(1361);
+      if (lookahead == 'd') ADVANCE(1319);
+      if (lookahead == 'e') ADVANCE(1338);
+      if (lookahead == 'i') ADVANCE(1341);
       if (lookahead == '\t' ||
           lookahead == ' ') ADVANCE(355);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
     case 356:
-      if (lookahead == 'd') ADVANCE(1339);
-      if (lookahead == 'e') ADVANCE(1360);
-      if (lookahead == 'i') ADVANCE(1347);
+      if (lookahead == 'd') ADVANCE(1319);
+      if (lookahead == 'e') ADVANCE(1340);
+      if (lookahead == 'i') ADVANCE(1327);
       if (lookahead == '\t' ||
           lookahead == ' ') ADVANCE(356);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
     case 357:
-      if (lookahead == 'd') ADVANCE(1339);
-      if (lookahead == 'e') ADVANCE(1360);
-      if (lookahead == 'i') ADVANCE(1361);
+      if (lookahead == 'd') ADVANCE(1319);
+      if (lookahead == 'e') ADVANCE(1340);
+      if (lookahead == 'i') ADVANCE(1341);
       if (lookahead == '\t' ||
           lookahead == ' ') ADVANCE(357);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
     case 358:
-      if (lookahead == 'd') ADVANCE(1339);
-      if (lookahead == 'i') ADVANCE(1347);
+      if (lookahead == 'd') ADVANCE(1319);
+      if (lookahead == 'i') ADVANCE(1327);
       if (lookahead == '\t' ||
           lookahead == ' ') ADVANCE(358);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
     case 359:
-      if (lookahead == 'd') ADVANCE(1367);
+      if (lookahead == 'd') ADVANCE(1347);
       END_STATE();
     case 360:
       if (lookahead == 'd') ADVANCE(380);
@@ -20734,7 +20813,7 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
           lookahead == ' ') ADVANCE(365);
       END_STATE();
     case 366:
-      if (lookahead == 'e') ADVANCE(1321);
+      if (lookahead == 'e') ADVANCE(1301);
       END_STATE();
     case 367:
       if (lookahead == 'e') ADVANCE(373);
@@ -20749,32 +20828,32 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
       if (lookahead == 'e') ADVANCE(377);
       END_STATE();
     case 371:
-      if (lookahead == 'f') ADVANCE(1323);
+      if (lookahead == 'f') ADVANCE(1303);
       END_STATE();
     case 372:
-      if (lookahead == 'f') ADVANCE(1315);
+      if (lookahead == 'f') ADVANCE(1295);
       END_STATE();
     case 373:
-      if (lookahead == 'f') ADVANCE(1325);
+      if (lookahead == 'f') ADVANCE(1305);
       END_STATE();
     case 374:
-      if (lookahead == 'f') ADVANCE(1327);
+      if (lookahead == 'f') ADVANCE(1307);
       END_STATE();
     case 375:
-      if (lookahead == 'f') ADVANCE(1313);
+      if (lookahead == 'f') ADVANCE(1293);
       END_STATE();
     case 376:
-      if (lookahead == 'f') ADVANCE(1317);
+      if (lookahead == 'f') ADVANCE(1297);
       END_STATE();
     case 377:
-      if (lookahead == 'f') ADVANCE(1319);
+      if (lookahead == 'f') ADVANCE(1299);
       END_STATE();
     case 378:
       if (lookahead == 'i') ADVANCE(382);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1254);
+          lookahead == 'a') ADVANCE(1237);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1102);
+          lookahead == 'e') ADVANCE(1090);
       END_STATE();
     case 379:
       if (lookahead == 'i') ADVANCE(371);
@@ -20791,1310 +20870,1266 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
       if (lookahead == 'n') ADVANCE(363);
       END_STATE();
     case 383:
-      ADVANCE_MAP(
-        'A', 1273,
-        'a', 1273,
-        'E', 1052,
-        'e', 1052,
-        'H', 398,
-        'h', 398,
-        'I', 898,
-        'i', 898,
-        'T', 462,
-        't', 462,
-        'U', 476,
-        'u', 476,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1255);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(879);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(399);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(887);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(461);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(473);
       END_STATE();
     case 384:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(974);
+          lookahead == 'a') ADVANCE(963);
       END_STATE();
     case 385:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(724);
+          lookahead == 'a') ADVANCE(718);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(883);
+          lookahead == 'p') ADVANCE(872);
       END_STATE();
     case 386:
-      ADVANCE_MAP(
-        'A', 535,
-        'a', 535,
-        'C', 1246,
-        'c', 1246,
-        'D', 1253,
-        'd', 1253,
-        'S', 1249,
-        's', 1249,
-        'T', 1248,
-        't', 1248,
-        'W', 793,
-        'w', 793,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(532);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1229);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1236);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1232);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1231);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(782);
       END_STATE();
     case 387:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1695);
+          lookahead == 'a') ADVANCE(1675);
       END_STATE();
     case 388:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1134);
+          lookahead == 'a') ADVANCE(1058);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(961);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1139);
+          lookahead == 'o') ADVANCE(776);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(643);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(470);
       END_STATE();
     case 389:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(881);
+          lookahead == 'a') ADVANCE(1120);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(841);
+          lookahead == 'o') ADVANCE(1125);
       END_STATE();
     case 390:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1097);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1280);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1044);
+          lookahead == 'a') ADVANCE(870);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(830);
       END_STATE();
     case 391:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(893);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1216);
+          lookahead == 'a') ADVANCE(1085);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(393);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(648);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1668);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1032);
       END_STATE();
     case 392:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(945);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(906);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(557);
+          lookahead == 'a') ADVANCE(882);
       END_STATE();
     case 393:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(945);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(557);
+          lookahead == 'a') ADVANCE(882);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(1201);
       END_STATE();
     case 394:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(882);
+          lookahead == 'a') ADVANCE(933);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(554);
       END_STATE();
     case 395:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(939);
+          lookahead == 'a') ADVANCE(871);
       END_STATE();
     case 396:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(939);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(425);
+          lookahead == 'a') ADVANCE(928);
       END_STATE();
     case 397:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(939);
+          lookahead == 'a') ADVANCE(928);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(424);
+          lookahead == 'e') ADVANCE(425);
       END_STATE();
     case 398:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1081);
+          lookahead == 'a') ADVANCE(928);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(424);
       END_STATE();
     case 399:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(895);
+          lookahead == 'a') ADVANCE(1068);
       END_STATE();
     case 400:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(896);
+          lookahead == 'a') ADVANCE(884);
       END_STATE();
     case 401:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(897);
+          lookahead == 'a') ADVANCE(885);
       END_STATE();
     case 402:
-      ADVANCE_MAP(
-        'A', 902,
-        'a', 902,
-        'I', 971,
-        'i', 971,
-        'O', 1062,
-        'o', 1062,
-        'U', 943,
-        'u', 943,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(886);
       END_STATE();
     case 403:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(826);
+          lookahead == 'a') ADVANCE(892);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(960);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1050);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(931);
       END_STATE();
     case 404:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(827);
+          lookahead == 'a') ADVANCE(815);
       END_STATE();
     case 405:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(827);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1847);
+          lookahead == 'a') ADVANCE(816);
       END_STATE();
     case 406:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1214);
+          lookahead == 'a') ADVANCE(816);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1825);
       END_STATE();
     case 407:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1170);
+          lookahead == 'a') ADVANCE(1199);
       END_STATE();
     case 408:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(829);
+          lookahead == 'a') ADVANCE(1155);
       END_STATE();
     case 409:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(887);
+          lookahead == 'a') ADVANCE(818);
       END_STATE();
     case 410:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(949);
+          lookahead == 'a') ADVANCE(876);
       END_STATE();
     case 411:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(830);
+          lookahead == 'a') ADVANCE(937);
       END_STATE();
     case 412:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(831);
+          lookahead == 'a') ADVANCE(819);
       END_STATE();
     case 413:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(832);
+          lookahead == 'a') ADVANCE(820);
       END_STATE();
     case 414:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(833);
+          lookahead == 'a') ADVANCE(821);
       END_STATE();
     case 415:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1188);
+          lookahead == 'a') ADVANCE(822);
       END_STATE();
     case 416:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(834);
+          lookahead == 'a') ADVANCE(1173);
       END_STATE();
     case 417:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(835);
+          lookahead == 'a') ADVANCE(823);
       END_STATE();
     case 418:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(837);
+          lookahead == 'a') ADVANCE(824);
       END_STATE();
     case 419:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(973);
+          lookahead == 'a') ADVANCE(826);
       END_STATE();
     case 420:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(838);
+          lookahead == 'a') ADVANCE(827);
       END_STATE();
     case 421:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1191);
+          lookahead == 'a') ADVANCE(962);
       END_STATE();
     case 422:
-      ADVANCE_MAP(
-        'A', 1069,
-        'a', 1069,
-        'I', 972,
-        'i', 972,
-        'O', 786,
-        'o', 786,
-        'R', 752,
-        'r', 752,
-        'U', 473,
-        'u', 473,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1176);
       END_STATE();
     case 423:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(825);
+          lookahead == 'a') ADVANCE(814);
       END_STATE();
     case 424:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(825);
+          lookahead == 'a') ADVANCE(814);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1246);
+          lookahead == 'c') ADVANCE(1229);
       END_STATE();
     case 425:
-      ADVANCE_MAP(
-        'A', 825,
-        'a', 825,
-        'C', 1246,
-        'c', 1246,
-        'D', 1253,
-        'd', 1253,
-        'S', 1249,
-        's', 1249,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(814);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1229);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1236);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1232);
       END_STATE();
     case 426:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1221);
+          lookahead == 'a') ADVANCE(1206);
       END_STATE();
     case 427:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(770);
+          lookahead == 'a') ADVANCE(761);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(681);
+          lookahead == 'h') ADVANCE(676);
       END_STATE();
     case 428:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(850);
+          lookahead == 'a') ADVANCE(840);
       END_STATE();
     case 429:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(850);
+          lookahead == 'a') ADVANCE(840);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1835);
+          lookahead == 'm') ADVANCE(1813);
       END_STATE();
     case 430:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(850);
+          lookahead == 'a') ADVANCE(840);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(407);
+          lookahead == 'm') ADVANCE(408);
       END_STATE();
     case 431:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1215);
+          lookahead == 'a') ADVANCE(1200);
       END_STATE();
     case 432:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1205);
+          lookahead == 'a') ADVANCE(1190);
       END_STATE();
     case 433:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(779);
+          lookahead == 'a') ADVANCE(770);
       END_STATE();
     case 434:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(779);
+          lookahead == 'a') ADVANCE(770);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(722);
+          lookahead == 'i') ADVANCE(716);
       END_STATE();
     case 435:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1233);
+          lookahead == 'a') ADVANCE(1216);
       END_STATE();
     case 436:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(908);
+          lookahead == 'a') ADVANCE(897);
       END_STATE();
     case 437:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(856);
+          lookahead == 'a') ADVANCE(845);
       END_STATE();
     case 438:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1137);
+          lookahead == 'a') ADVANCE(1123);
       END_STATE();
     case 439:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(526);
+          lookahead == 'a') ADVANCE(523);
       END_STATE();
     case 440:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1254);
+          lookahead == 'a') ADVANCE(1237);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1102);
+          lookahead == 'e') ADVANCE(1090);
       END_STATE();
     case 441:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(728);
+          lookahead == 'a') ADVANCE(722);
       END_STATE();
     case 442:
-      ADVANCE_MAP(
-        'A', 1133,
-        'a', 1133,
-        'I', 972,
-        'i', 972,
-        'O', 787,
-        'o', 787,
-        'R', 647,
-        'r', 647,
-        'U', 473,
-        'u', 473,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1126);
       END_STATE();
     case 443:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1147);
+          lookahead == 'a') ADVANCE(1133);
       END_STATE();
     case 444:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1257);
+          lookahead == 'a') ADVANCE(1240);
       END_STATE();
     case 445:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(512);
+          lookahead == 'a') ADVANCE(509);
       END_STATE();
     case 446:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(966);
+          lookahead == 'a') ADVANCE(954);
       END_STATE();
     case 447:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1207);
+          lookahead == 'a') ADVANCE(1192);
       END_STATE();
     case 448:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(729);
+          lookahead == 'a') ADVANCE(723);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1005);
+          lookahead == 'p') ADVANCE(992);
       END_STATE();
     case 449:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1141);
+          lookahead == 'a') ADVANCE(1129);
       END_STATE();
     case 450:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(507);
+          lookahead == 'a') ADVANCE(504);
       END_STATE();
     case 451:
-      ADVANCE_MAP(
-        'A', 1131,
-        'a', 1131,
-        'H', 464,
-        'h', 464,
-        'L', 449,
-        'l', 449,
-        'O', 918,
-        'o', 918,
-        'R', 757,
-        'r', 757,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1118);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(462);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(442);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(556);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(748);
       END_STATE();
     case 452:
-      ADVANCE_MAP(
-        'A', 1131,
-        'a', 1131,
-        'H', 464,
-        'h', 464,
-        'L', 449,
-        'l', 449,
-        'O', 559,
-        'o', 559,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1118);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(462);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(442);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(906);
       END_STATE();
     case 453:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1131);
+          lookahead == 'a') ADVANCE(1118);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(457);
+          lookahead == 'l') ADVANCE(456);
       END_STATE();
     case 454:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(513);
+          lookahead == 'a') ADVANCE(510);
       END_STATE();
     case 455:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(730);
+          lookahead == 'a') ADVANCE(724);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1255);
+          lookahead == 'p') ADVANCE(1238);
       END_STATE();
     case 456:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1143);
+          lookahead == 'a') ADVANCE(1130);
       END_STATE();
     case 457:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1144);
+          lookahead == 'a') ADVANCE(512);
       END_STATE();
     case 458:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(515);
+          lookahead == 'a') ADVANCE(1195);
       END_STATE();
     case 459:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1210);
+          lookahead == 'a') ADVANCE(476);
       END_STATE();
     case 460:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(479);
+          lookahead == 'a') ADVANCE(476);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1770);
       END_STATE();
     case 461:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(479);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1792);
+          lookahead == 'a') ADVANCE(1203);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1025);
       END_STATE();
     case 462:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1218);
+          lookahead == 'a') ADVANCE(1060);
       END_STATE();
     case 463:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1218);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1037);
+          lookahead == 'a') ADVANCE(1209);
       END_STATE();
     case 464:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1072);
+          lookahead == 'a') ADVANCE(1202);
       END_STATE();
     case 465:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1224);
+          lookahead == 'a') ADVANCE(478);
       END_STATE();
     case 466:
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1217);
+          lookahead == 'a') ADVANCE(1207);
       END_STATE();
     case 467:
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(481);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1137);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(838);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1144);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1178);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1174);
       END_STATE();
     case 468:
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1222);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(909);
       END_STATE();
     case 469:
-      ADVANCE_MAP(
-        'B', 1152,
-        'b', 1152,
-        'L', 839,
-        'l', 839,
-        'S', 1159,
-        's', 1159,
-        'T', 1193,
-        't', 1193,
-      );
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(873);
       END_STATE();
     case 470:
-      ADVANCE_MAP(
-        'B', 1152,
-        'b', 1152,
-        'L', 851,
-        'l', 851,
-        'T', 1193,
-        't', 1193,
-        'U', 1189,
-        'u', 1189,
-      );
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(873);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(579);
       END_STATE();
     case 471:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(921);
+          lookahead == 'b') ADVANCE(910);
       END_STATE();
     case 472:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(884);
+          lookahead == 'b') ADVANCE(409);
       END_STATE();
     case 473:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(884);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(582);
+          lookahead == 'b') ADVANCE(1062);
       END_STATE();
     case 474:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(922);
+          lookahead == 'b') ADVANCE(1243);
       END_STATE();
     case 475:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(408);
+          lookahead == 'b') ADVANCE(844);
       END_STATE();
     case 476:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1074);
+          lookahead == 'b') ADVANCE(855);
       END_STATE();
     case 477:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1260);
+          lookahead == 'b') ADVANCE(420);
       END_STATE();
     case 478:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(855);
+          lookahead == 'b') ADVANCE(858);
       END_STATE();
     case 479:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(865);
+          lookahead == 'b') ADVANCE(1102);
       END_STATE();
     case 480:
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(420);
+          lookahead == 'b') ADVANCE(911);
       END_STATE();
     case 481:
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(868);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(807);
       END_STATE();
     case 482:
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1115);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(406);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(751);
       END_STATE();
     case 483:
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(923);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1810);
       END_STATE();
     case 484:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(818);
+          lookahead == 'c') ADVANCE(1505);
       END_STATE();
     case 485:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(405);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(760);
+          lookahead == 'c') ADVANCE(1626);
       END_STATE();
     case 486:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1832);
+          lookahead == 'c') ADVANCE(1545);
       END_STATE();
     case 487:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1525);
+          lookahead == 'c') ADVANCE(1604);
       END_STATE();
     case 488:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1646);
+          lookahead == 'c') ADVANCE(1482);
       END_STATE();
     case 489:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1565);
+          lookahead == 'c') ADVANCE(1484);
       END_STATE();
     case 490:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1624);
+          lookahead == 'c') ADVANCE(803);
       END_STATE();
     case 491:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1502);
+          lookahead == 'c') ADVANCE(804);
       END_STATE();
     case 492:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1504);
+          lookahead == 'c') ADVANCE(805);
       END_STATE();
     case 493:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(814);
+          lookahead == 'c') ADVANCE(837);
       END_STATE();
     case 494:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(815);
+          lookahead == 'c') ADVANCE(832);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(686);
       END_STATE();
     case 495:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(816);
+          lookahead == 'c') ADVANCE(799);
       END_STATE();
     case 496:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(848);
+          lookahead == 'c') ADVANCE(795);
       END_STATE();
     case 497:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(843);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(640);
+          lookahead == 'c') ADVANCE(673);
       END_STATE();
     case 498:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(843);
+          lookahead == 'c') ADVANCE(673);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(1065);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(678);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(691);
+          lookahead == 't') ADVANCE(682);
       END_STATE();
     case 499:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(810);
+          lookahead == 'c') ADVANCE(673);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(678);
       END_STATE();
     case 500:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(806);
+          lookahead == 'c') ADVANCE(673);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(678);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(682);
       END_STATE();
     case 501:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(678);
+          lookahead == 'c') ADVANCE(435);
       END_STATE();
     case 502:
-      ADVANCE_MAP(
-        'C', 678,
-        'c', 678,
-        'G', 1077,
-        'g', 1077,
-        'P', 683,
-        'p', 683,
-        'T', 687,
-        't', 687,
-      );
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1159);
       END_STATE();
     case 503:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(678);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(683);
+          lookahead == 'c') ADVANCE(590);
       END_STATE();
     case 504:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(435);
+          lookahead == 'c') ADVANCE(1162);
       END_STATE();
     case 505:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1174);
+          lookahead == 'c') ADVANCE(596);
       END_STATE();
     case 506:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(593);
+          lookahead == 'c') ADVANCE(1166);
       END_STATE();
     case 507:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1177);
+          lookahead == 'c') ADVANCE(1171);
       END_STATE();
     case 508:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(599);
+          lookahead == 'c') ADVANCE(606);
       END_STATE();
     case 509:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1181);
+          lookahead == 'c') ADVANCE(609);
       END_STATE();
     case 510:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1186);
+          lookahead == 'c') ADVANCE(612);
       END_STATE();
     case 511:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(609);
+          lookahead == 'c') ADVANCE(620);
       END_STATE();
     case 512:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(612);
+          lookahead == 'c') ADVANCE(622);
       END_STATE();
     case 513:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(615);
+          lookahead == 'c') ADVANCE(1186);
       END_STATE();
     case 514:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(623);
+          lookahead == 'c') ADVANCE(1233);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1184);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(434);
       END_STATE();
     case 515:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(625);
+          lookahead == 'c') ADVANCE(416);
       END_STATE();
     case 516:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1201);
+          lookahead == 'c') ADVANCE(1191);
       END_STATE();
     case 517:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1250);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1199);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(434);
+          lookahead == 'c') ADVANCE(772);
       END_STATE();
     case 518:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(415);
+          lookahead == 'c') ADVANCE(413);
       END_STATE();
     case 519:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1206);
+          lookahead == 'c') ADVANCE(414);
       END_STATE();
     case 520:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(781);
+          lookahead == 'c') ADVANCE(419);
       END_STATE();
     case 521:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(412);
+          lookahead == 'c') ADVANCE(405);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(751);
       END_STATE();
     case 522:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(413);
+          lookahead == 'c') ADVANCE(1215);
       END_STATE();
     case 523:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(418);
+          lookahead == 'c') ADVANCE(1208);
       END_STATE();
     case 524:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(404);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(760);
+          lookahead == 'c') ADVANCE(797);
       END_STATE();
     case 525:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1232);
+          lookahead == 'c') ADVANCE(800);
       END_STATE();
     case 526:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1223);
+          lookahead == 'c') ADVANCE(699);
       END_STATE();
     case 527:
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(808);
+          lookahead == 'c') ADVANCE(699);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(1067);
       END_STATE();
     case 528:
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(811);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1391);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1051);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(881);
       END_STATE();
     case 529:
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(704);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1466);
       END_STATE();
     case 530:
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(704);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1079);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(353);
       END_STATE();
     case 531:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1411);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1063);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(892);
+          lookahead == 'd') ADVANCE(1634);
       END_STATE();
     case 532:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1486);
+          lookahead == 'd') ADVANCE(1450);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1574);
       END_STATE();
     case 533:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(353);
+          lookahead == 'd') ADVANCE(1566);
       END_STATE();
     case 534:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1654);
+          lookahead == 'd') ADVANCE(1766);
       END_STATE();
     case 535:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1470);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1594);
+          lookahead == 'd') ADVANCE(1564);
       END_STATE();
     case 536:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1586);
+          lookahead == 'd') ADVANCE(1560);
       END_STATE();
     case 537:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1788);
+          lookahead == 'd') ADVANCE(1553);
       END_STATE();
     case 538:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1584);
+          lookahead == 'd') ADVANCE(1622);
       END_STATE();
     case 539:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1580);
+          lookahead == 'd') ADVANCE(1455);
       END_STATE();
     case 540:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1573);
+          lookahead == 'd') ADVANCE(1389);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(900);
       END_STATE();
     case 541:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1642);
+          lookahead == 'd') ADVANCE(1389);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(901);
       END_STATE();
     case 542:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1475);
+          lookahead == 'd') ADVANCE(1415);
       END_STATE();
     case 543:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1409);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(911);
+          lookahead == 'd') ADVANCE(1454);
       END_STATE();
     case 544:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1409);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(912);
+          lookahead == 'd') ADVANCE(1413);
       END_STATE();
     case 545:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1435);
+          lookahead == 'd') ADVANCE(1397);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(901);
       END_STATE();
     case 546:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1474);
+          lookahead == 'd') ADVANCE(1407);
       END_STATE();
     case 547:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1433);
+          lookahead == 'd') ADVANCE(1417);
       END_STATE();
     case 548:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1417);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(912);
+          lookahead == 'd') ADVANCE(1414);
       END_STATE();
     case 549:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1437);
+          lookahead == 'd') ADVANCE(1420);
       END_STATE();
     case 550:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1434);
+          lookahead == 'd') ADVANCE(1394);
       END_STATE();
     case 551:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1427);
+          lookahead == 'd') ADVANCE(1421);
       END_STATE();
     case 552:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1440);
+          lookahead == 'd') ADVANCE(1412);
       END_STATE();
     case 553:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1414);
+          lookahead == 'd') ADVANCE(1419);
       END_STATE();
     case 554:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1441);
+          lookahead == 'd') ADVANCE(1242);
       END_STATE();
     case 555:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1432);
+          lookahead == 'd') ADVANCE(801);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(890);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(514);
       END_STATE();
     case 556:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1439);
+          lookahead == 'd') ADVANCE(801);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1035);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1136);
       END_STATE();
     case 557:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1259);
+          lookahead == 'd') ADVANCE(334);
       END_STATE();
     case 558:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(812);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(900);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(517);
+          lookahead == 'd') ADVANCE(1111);
       END_STATE();
     case 559:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(812);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1047);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1151);
+          lookahead == 'd') ADVANCE(465);
       END_STATE();
     case 560:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(334);
+          lookahead == 'd') ADVANCE(600);
       END_STATE();
     case 561:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1124);
+          lookahead == 'd') ADVANCE(1418);
       END_STATE();
     case 562:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(467);
+          lookahead == 'd') ADVANCE(1416);
       END_STATE();
     case 563:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(603);
+          lookahead == 'd') ADVANCE(1246);
       END_STATE();
     case 564:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1438);
+          lookahead == 'd') ADVANCE(1245);
       END_STATE();
     case 565:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1436);
+          lookahead == 'd') ADVANCE(1248);
       END_STATE();
     case 566:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1263);
+          lookahead == 'd') ADVANCE(1247);
       END_STATE();
     case 567:
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1262);
+          lookahead == 'd') ADVANCE(1250);
       END_STATE();
     case 568:
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1265);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(703);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(896);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1217);
       END_STATE();
     case 569:
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1264);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(328);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(329);
       END_STATE();
     case 570:
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1267);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(332);
       END_STATE();
     case 571:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(709);
+          lookahead == 'e') ADVANCE(332);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(833);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1234);
+          lookahead == 'o') ADVANCE(1182);
       END_STATE();
     case 572:
-      ADVANCE_MAP(
-        'E', 391,
-        'e', 391,
-        'H', 653,
-        'h', 653,
-        'O', 1688,
-        'o', 1688,
-        'Y', 1044,
-        'y', 1044,
-      );
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(332);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1182);
       END_STATE();
     case 573:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(328);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(329);
+          lookahead == 'e') ADVANCE(1480);
       END_STATE();
     case 574:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(332);
+          lookahead == 'e') ADVANCE(1570);
       END_STATE();
     case 575:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(332);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(844);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1197);
+          lookahead == 'e') ADVANCE(1720);
       END_STATE();
     case 576:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(332);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1197);
+          lookahead == 'e') ADVANCE(1700);
       END_STATE();
     case 577:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1500);
+          lookahead == 'e') ADVANCE(728);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(766);
       END_STATE();
     case 578:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1590);
+          lookahead == 'e') ADVANCE(1491);
       END_STATE();
     case 579:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1740);
+          lookahead == 'e') ADVANCE(1642);
       END_STATE();
     case 580:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1720);
+          lookahead == 'e') ADVANCE(1501);
       END_STATE();
     case 581:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(735);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(775);
+          lookahead == 'e') ADVANCE(1494);
       END_STATE();
     case 582:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1662);
+          lookahead == 'e') ADVANCE(1752);
       END_STATE();
     case 583:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1521);
+          lookahead == 'e') ADVANCE(1662);
       END_STATE();
     case 584:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1514);
+          lookahead == 'e') ADVANCE(1820);
       END_STATE();
     case 585:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1774);
+          lookahead == 'e') ADVANCE(1768);
       END_STATE();
     case 586:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1682);
+          lookahead == 'e') ADVANCE(1630);
       END_STATE();
     case 587:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1842);
+          lookahead == 'e') ADVANCE(1706);
       END_STATE();
     case 588:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1790);
+          lookahead == 'e') ADVANCE(1683);
       END_STATE();
     case 589:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1650);
+          lookahead == 'e') ADVANCE(1452);
       END_STATE();
     case 590:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1726);
+          lookahead == 'e') ADVANCE(1471);
       END_STATE();
     case 591:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1703);
+          lookahead == 'e') ADVANCE(1576);
       END_STATE();
     case 592:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1472);
+          lookahead == 'e') ADVANCE(1831);
       END_STATE();
     case 593:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1491);
+          lookahead == 'e') ADVANCE(1260);
       END_STATE();
     case 594:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1596);
+          lookahead == 'e') ADVANCE(1640);
       END_STATE();
     case 595:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1853);
+          lookahead == 'e') ADVANCE(1424);
       END_STATE();
     case 596:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1278);
+          lookahead == 'e') ADVANCE(1690);
       END_STATE();
     case 597:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1660);
+          lookahead == 'e') ADVANCE(1646);
       END_STATE();
     case 598:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1444);
+          lookahead == 'e') ADVANCE(1764);
       END_STATE();
     case 599:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1710);
+          lookahead == 'e') ADVANCE(1544);
       END_STATE();
     case 600:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1666);
+          lookahead == 'e') ADVANCE(1673);
       END_STATE();
     case 601:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1786);
+          lookahead == 'e') ADVANCE(1754);
       END_STATE();
     case 602:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1564);
+          lookahead == 'e') ADVANCE(1503);
       END_STATE();
     case 603:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1693);
+          lookahead == 'e') ADVANCE(1568);
       END_STATE();
     case 604:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1776);
+          lookahead == 'e') ADVANCE(1660);
       END_STATE();
     case 605:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1523);
+          lookahead == 'e') ADVANCE(1708);
       END_STATE();
     case 606:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1588);
+          lookahead == 'e') ADVANCE(1539);
       END_STATE();
     case 607:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1680);
+          lookahead == 'e') ADVANCE(1632);
       END_STATE();
     case 608:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1728);
+          lookahead == 'e') ADVANCE(1741);
       END_STATE();
     case 609:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1559);
+          lookahead == 'e') ADVANCE(1762);
       END_STATE();
     case 610:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1652);
+          lookahead == 'e') ADVANCE(1710);
       END_STATE();
     case 611:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1761);
+          lookahead == 'e') ADVANCE(1426);
       END_STATE();
     case 612:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1784);
+          lookahead == 'e') ADVANCE(1434);
       END_STATE();
     case 613:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1730);
+          lookahead == 'e') ADVANCE(1460);
       END_STATE();
     case 614:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1446);
+          lookahead == 'e') ADVANCE(1644);
       END_STATE();
     case 615:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1454);
+          lookahead == 'e') ADVANCE(1428);
       END_STATE();
     case 616:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1480);
+          lookahead == 'e') ADVANCE(1722);
       END_STATE();
     case 617:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1664);
+          lookahead == 'e') ADVANCE(1724);
       END_STATE();
     case 618:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1448);
+          lookahead == 'e') ADVANCE(1456);
       END_STATE();
     case 619:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1742);
+          lookahead == 'e') ADVANCE(1602);
       END_STATE();
     case 620:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1744);
+          lookahead == 'e') ADVANCE(1648);
       END_STATE();
     case 621:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1476);
+          lookahead == 'e') ADVANCE(1743);
       END_STATE();
     case 622:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1622);
+          lookahead == 'e') ADVANCE(1436);
       END_STATE();
     case 623:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1668);
+          lookahead == 'e') ADVANCE(1462);
       END_STATE();
     case 624:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1763);
+          lookahead == 'e') ADVANCE(1432);
       END_STATE();
     case 625:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1456);
+          lookahead == 'e') ADVANCE(1458);
       END_STATE();
     case 626:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1482);
+          lookahead == 'e') ADVANCE(1556);
       END_STATE();
     case 627:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1452);
+          lookahead == 'e') ADVANCE(1492);
       END_STATE();
     case 628:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1478);
+          lookahead == 'e') ADVANCE(1819);
       END_STATE();
     case 629:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1576);
+          lookahead == 'e') ADVANCE(424);
       END_STATE();
     case 630:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(736);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(775);
+          lookahead == 'e') ADVANCE(1496);
       END_STATE();
     case 631:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1512);
+          lookahead == 'e') ADVANCE(1493);
       END_STATE();
     case 632:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(424);
+          lookahead == 'e') ADVANCE(1699);
       END_STATE();
     case 633:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1841);
+          lookahead == 'e') ADVANCE(1703);
       END_STATE();
     case 634:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1516);
+          lookahead == 'e') ADVANCE(1040);
       END_STATE();
     case 635:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1513);
+          lookahead == 'e') ADVANCE(895);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(554);
       END_STATE();
     case 636:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1719);
+          lookahead == 'e') ADVANCE(915);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(753);
       END_STATE();
     case 637:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1723);
+          lookahead == 'e') ADVANCE(1261);
       END_STATE();
     case 638:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1052);
+          lookahead == 'e') ADVANCE(330);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(331);
       END_STATE();
     case 639:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(927);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(762);
+          lookahead == 'e') ADVANCE(936);
       END_STATE();
     case 640:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(734);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(775);
+          lookahead == 'e') ADVANCE(939);
       END_STATE();
     case 641:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1279);
+          lookahead == 'e') ADVANCE(939);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(983);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(742);
       END_STATE();
     case 642:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(330);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(331);
+          lookahead == 'e') ADVANCE(495);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(948);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(498);
       END_STATE();
     case 643:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(948);
+          lookahead == 'e') ADVANCE(495);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1257);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(500);
       END_STATE();
     case 644:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(951);
+          lookahead == 'e') ADVANCE(495);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(499);
       END_STATE();
     case 645:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(951);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(995);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(750);
+          lookahead == 'e') ADVANCE(912);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(521);
       END_STATE();
     case 646:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(499);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(960);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(502);
+          lookahead == 'e') ADVANCE(533);
       END_STATE();
     case 647:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(499);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1275);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(503);
+          lookahead == 'e') ADVANCE(944);
       END_STATE();
     case 648:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(499);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(503);
+          lookahead == 'e') ADVANCE(916);
       END_STATE();
     case 649:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(924);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(731);
+          lookahead == 'e') ADVANCE(535);
       END_STATE();
     case 650:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1271);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(907);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1234);
+          lookahead == 'e') ADVANCE(940);
       END_STATE();
     case 651:
       if (lookahead == 'E' ||
@@ -22102,5803 +22137,5671 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
       END_STATE();
     case 652:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(956);
+          lookahead == 'e') ADVANCE(339);
       END_STATE();
     case 653:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(928);
+          lookahead == 'e') ADVANCE(537);
       END_STATE();
     case 654:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(538);
+          lookahead == 'e') ADVANCE(340);
       END_STATE();
     case 655:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(952);
+          lookahead == 'e') ADVANCE(400);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1029);
       END_STATE();
     case 656:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(539);
+          lookahead == 'e') ADVANCE(1091);
       END_STATE();
     case 657:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(339);
+          lookahead == 'e') ADVANCE(538);
       END_STATE();
     case 658:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(540);
+          lookahead == 'e') ADVANCE(539);
       END_STATE();
     case 659:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(340);
+          lookahead == 'e') ADVANCE(1113);
       END_STATE();
     case 660:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(399);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1041);
+          lookahead == 'e') ADVANCE(543);
       END_STATE();
     case 661:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1103);
+          lookahead == 'e') ADVANCE(839);
       END_STATE();
     case 662:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(541);
+          lookahead == 'e') ADVANCE(1154);
       END_STATE();
     case 663:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(542);
+          lookahead == 'e') ADVANCE(1107);
       END_STATE();
     case 664:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1126);
+          lookahead == 'e') ADVANCE(392);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1032);
       END_STATE();
     case 665:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(546);
+          lookahead == 'e') ADVANCE(1089);
       END_STATE();
     case 666:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(849);
+          lookahead == 'e') ADVANCE(1043);
       END_STATE();
     case 667:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1169);
+          lookahead == 'e') ADVANCE(1044);
       END_STATE();
     case 668:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1120);
+          lookahead == 'e') ADVANCE(1097);
       END_STATE();
     case 669:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1101);
+          lookahead == 'e') ADVANCE(1160);
       END_STATE();
     case 670:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1055);
+          lookahead == 'e') ADVANCE(1046);
       END_STATE();
     case 671:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1056);
+          lookahead == 'e') ADVANCE(1047);
       END_STATE();
     case 672:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1110);
+          lookahead == 'e') ADVANCE(1098);
       END_STATE();
     case 673:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1175);
+          lookahead == 'e') ADVANCE(564);
       END_STATE();
     case 674:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1058);
+          lookahead == 'e') ADVANCE(502);
       END_STATE();
     case 675:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1059);
+          lookahead == 'e') ADVANCE(710);
       END_STATE();
     case 676:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1106);
+          lookahead == 'e') ADVANCE(1073);
       END_STATE();
     case 677:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1111);
+          lookahead == 'e') ADVANCE(1073);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(842);
       END_STATE();
     case 678:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(567);
+          lookahead == 'e') ADVANCE(1075);
       END_STATE();
     case 679:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(505);
+          lookahead == 'e') ADVANCE(1074);
       END_STATE();
     case 680:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(716);
+          lookahead == 'e') ADVANCE(964);
       END_STATE();
     case 681:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1084);
+          lookahead == 'e') ADVANCE(953);
       END_STATE();
     case 682:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1084);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(853);
+          lookahead == 'e') ADVANCE(516);
       END_STATE();
     case 683:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1087);
+          lookahead == 'e') ADVANCE(955);
       END_STATE();
     case 684:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1086);
+          lookahead == 'e') ADVANCE(506);
       END_STATE();
     case 685:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(975);
+          lookahead == 'e') ADVANCE(956);
       END_STATE();
     case 686:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(965);
+          lookahead == 'e') ADVANCE(727);
       END_STATE();
     case 687:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(519);
+          lookahead == 'e') ADVANCE(507);
       END_STATE();
     case 688:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(967);
+          lookahead == 'e') ADVANCE(1080);
       END_STATE();
     case 689:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(509);
+          lookahead == 'e') ADVANCE(878);
       END_STATE();
     case 690:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(968);
+          lookahead == 'e') ADVANCE(878);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(480);
       END_STATE();
     case 691:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(733);
+          lookahead == 'e') ADVANCE(1082);
       END_STATE();
     case 692:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(510);
+          lookahead == 'e') ADVANCE(423);
       END_STATE();
     case 693:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1092);
+          lookahead == 'e') ADVANCE(902);
       END_STATE();
     case 694:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(889);
+          lookahead == 'e') ADVANCE(902);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(576);
       END_STATE();
     case 695:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(889);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(483);
+          lookahead == 'e') ADVANCE(966);
       END_STATE();
     case 696:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1094);
+          lookahead == 'e') ADVANCE(835);
       END_STATE();
     case 697:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(423);
+          lookahead == 'e') ADVANCE(1210);
       END_STATE();
     case 698:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(913);
+          lookahead == 'e') ADVANCE(976);
       END_STATE();
     case 699:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(913);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(580);
+          lookahead == 'e') ADVANCE(566);
       END_STATE();
     case 700:
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(977);
+          lookahead == 'e') ADVANCE(525);
       END_STATE();
     case 701:
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(846);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1693);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(448);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(754);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1730);
       END_STATE();
     case 702:
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1225);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1615);
       END_STATE();
     case 703:
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(987);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(440);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(747);
       END_STATE();
     case 704:
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(569);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1697);
       END_STATE();
     case 705:
-      ADVANCE_MAP(
-        'E', 890,
-        'e', 890,
-        'H', 398,
-        'h', 398,
-        'I', 898,
-        'i', 898,
-        'T', 996,
-        't', 996,
-        'U', 476,
-        'u', 476,
-      );
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1697);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1205);
       END_STATE();
     case 706:
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(528);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1704);
       END_STATE();
     case 707:
-      ADVANCE_MAP(
-        'F', 1713,
-        'f', 1713,
-        'M', 448,
-        'm', 448,
-        'N', 763,
-        'n', 763,
-        'S', 1750,
-        's', 1750,
-      );
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1597);
       END_STATE();
     case 708:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1713);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1635);
+          lookahead == 'f') ADVANCE(1599);
       END_STATE();
     case 709:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(440);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(756);
+          lookahead == 'f') ADVANCE(1266);
       END_STATE();
     case 710:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1717);
+          lookahead == 'f') ADVANCE(444);
       END_STATE();
     case 711:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1717);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1220);
+          lookahead == 'f') ADVANCE(995);
       END_STATE();
     case 712:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1724);
+          lookahead == 'f') ADVANCE(995);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1009);
       END_STATE();
     case 713:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1617);
+          lookahead == 'f') ADVANCE(454);
       END_STATE();
     case 714:
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1619);
+          lookahead == 'f') ADVANCE(457);
       END_STATE();
     case 715:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1285);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(1226);
       END_STATE();
     case 716:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(444);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(1226);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1235);
       END_STATE();
     case 717:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1008);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(975);
       END_STATE();
     case 718:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1008);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1022);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(584);
       END_STATE();
     case 719:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(454);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(880);
       END_STATE();
     case 720:
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(458);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(1067);
       END_STATE();
     case 721:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1243);
+          lookahead == 'g') ADVANCE(592);
       END_STATE();
     case 722:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1243);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1252);
+          lookahead == 'g') ADVANCE(651);
       END_STATE();
     case 723:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(986);
+          lookahead == 'g') ADVANCE(628);
       END_STATE();
     case 724:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(587);
+          lookahead == 'g') ADVANCE(663);
       END_STATE();
     case 725:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(891);
+          lookahead == 'g') ADVANCE(751);
       END_STATE();
     case 726:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1079);
+          lookahead == 'g') ADVANCE(669);
       END_STATE();
     case 727:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(595);
+          lookahead == 'g') ADVANCE(666);
       END_STATE();
     case 728:
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(656);
+          lookahead == 'g') ADVANCE(666);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1157);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(713);
       END_STATE();
     case 729:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(668);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(648);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1033);
       END_STATE();
     case 730:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(633);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(462);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(442);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(906);
       END_STATE();
     case 731:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(760);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(462);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(449);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(907);
       END_STATE();
     case 732:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(673);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(462);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(449);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(906);
       END_STATE();
     case 733:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(670);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(421);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(456);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(748);
       END_STATE();
     case 734:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(670);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1172);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(688);
       END_STATE();
     case 735:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(670);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1172);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(719);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(676);
       END_STATE();
     case 736:
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(670);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(719);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(691);
       END_STATE();
     case 737:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(653);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1045);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(709);
       END_STATE();
     case 738:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(464);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(449);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(917);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(960);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(931);
       END_STATE();
     case 739:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(464);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(456);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(717);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(919);
+          lookahead == 'o') ADVANCE(496);
       END_STATE();
     case 740:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(464);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(456);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(917);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(887);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(473);
       END_STATE();
     case 741:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(419);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(457);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(757);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1258);
       END_STATE();
     case 742:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(693);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(530);
       END_STATE();
     case 743:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(681);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1257);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(499);
       END_STATE();
     case 744:
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(696);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1257);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(497);
       END_STATE();
     case 745:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(715);
+          lookahead == 'i') ADVANCE(474);
       END_STATE();
     case 746:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(971);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(943);
+          lookahead == 'i') ADVANCE(715);
       END_STATE();
     case 747:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(723);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(500);
+          lookahead == 'i') ADVANCE(503);
       END_STATE();
     case 748:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(898);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(476);
+          lookahead == 'i') ADVANCE(1213);
       END_STATE();
     case 749:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1276);
+          lookahead == 'i') ADVANCE(833);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1182);
       END_STATE();
     case 750:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(533);
+          lookahead == 'i') ADVANCE(1147);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(639);
       END_STATE();
     case 751:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1275);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(503);
+          lookahead == 'i') ADVANCE(518);
       END_STATE();
     case 752:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1275);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1228);
+          lookahead == 'i') ADVANCE(517);
       END_STATE();
     case 753:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1275);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(501);
+          lookahead == 'i') ADVANCE(1016);
       END_STATE();
     case 754:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(477);
+          lookahead == 'i') ADVANCE(1185);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(577);
       END_STATE();
     case 755:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(721);
+          lookahead == 'i') ADVANCE(1185);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(686);
       END_STATE();
     case 756:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(506);
+          lookahead == 'i') ADVANCE(812);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(767);
       END_STATE();
     case 757:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1230);
+          lookahead == 'i') ADVANCE(484);
       END_STATE();
     case 758:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(844);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1197);
+          lookahead == 'i') ADVANCE(662);
       END_STATE();
     case 759:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1162);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(643);
+          lookahead == 'i') ADVANCE(485);
       END_STATE();
     case 760:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(521);
+          lookahead == 'i') ADVANCE(486);
       END_STATE();
     case 761:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(520);
+          lookahead == 'i') ADVANCE(1150);
       END_STATE();
     case 762:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1028);
+          lookahead == 'i') ADVANCE(487);
       END_STATE();
     case 763:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1200);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(630);
+          lookahead == 'i') ADVANCE(1189);
       END_STATE();
     case 764:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1200);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(691);
+          lookahead == 'i') ADVANCE(488);
       END_STATE();
     case 765:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(823);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(776);
+          lookahead == 'i') ADVANCE(559);
       END_STATE();
     case 766:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(487);
+          lookahead == 'i') ADVANCE(943);
       END_STATE();
     case 767:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(667);
+          lookahead == 'i') ADVANCE(829);
       END_STATE();
     case 768:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(488);
+          lookahead == 'i') ADVANCE(489);
       END_STATE();
     case 769:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(489);
+          lookahead == 'i') ADVANCE(970);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1259);
       END_STATE();
     case 770:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1165);
+          lookahead == 'i') ADVANCE(945);
       END_STATE();
     case 771:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(490);
+          lookahead == 'i') ADVANCE(965);
       END_STATE();
     case 772:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1204);
+          lookahead == 'i') ADVANCE(1164);
       END_STATE();
     case 773:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(491);
+          lookahead == 'i') ADVANCE(1169);
       END_STATE();
     case 774:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(562);
+          lookahead == 'i') ADVANCE(932);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1005);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1175);
       END_STATE();
     case 775:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(955);
+          lookahead == 'i') ADVANCE(994);
       END_STATE();
     case 776:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(840);
+          lookahead == 'i') ADVANCE(947);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1149);
       END_STATE();
     case 777:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(492);
+          lookahead == 'i') ADVANCE(935);
       END_STATE();
     case 778:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(981);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1277);
+          lookahead == 'i') ADVANCE(1132);
       END_STATE();
     case 779:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(957);
+          lookahead == 'i') ADVANCE(1256);
       END_STATE();
     case 780:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(976);
+          lookahead == 'i') ADVANCE(957);
       END_STATE();
     case 781:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1179);
+          lookahead == 'i') ADVANCE(996);
       END_STATE();
     case 782:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1184);
+          lookahead == 'i') ADVANCE(942);
       END_STATE();
     case 783:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(944);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1018);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1190);
+          lookahead == 'i') ADVANCE(958);
       END_STATE();
     case 784:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(944);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1190);
+          lookahead == 'i') ADVANCE(997);
       END_STATE();
     case 785:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1007);
+          lookahead == 'i') ADVANCE(412);
       END_STATE();
     case 786:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(959);
+          lookahead == 'i') ADVANCE(998);
       END_STATE();
     case 787:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(959);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1164);
+          lookahead == 'i') ADVANCE(1078);
       END_STATE();
     case 788:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(947);
+          lookahead == 'i') ADVANCE(999);
       END_STATE();
     case 789:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1146);
+          lookahead == 'i') ADVANCE(1000);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1048);
       END_STATE();
     case 790:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1274);
+          lookahead == 'i') ADVANCE(850);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1092);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(974);
       END_STATE();
     case 791:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(969);
+          lookahead == 'i') ADVANCE(1001);
       END_STATE();
     case 792:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1009);
+          lookahead == 'i') ADVANCE(852);
       END_STATE();
     case 793:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(954);
+          lookahead == 'i') ADVANCE(519);
       END_STATE();
     case 794:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(970);
+          lookahead == 'i') ADVANCE(971);
       END_STATE();
     case 795:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1010);
+          lookahead == 'i') ADVANCE(447);
       END_STATE();
     case 796:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(411);
+          lookahead == 'i') ADVANCE(520);
       END_STATE();
     case 797:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1011);
+          lookahead == 'i') ADVANCE(458);
       END_STATE();
     case 798:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1090);
+          lookahead == 'i') ADVANCE(1214);
       END_STATE();
     case 799:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1012);
+          lookahead == 'i') ADVANCE(1141);
       END_STATE();
     case 800:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1013);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1060);
+          lookahead == 'i') ADVANCE(1143);
       END_STATE();
     case 801:
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(860);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1104);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(985);
+          lookahead == 'i') ADVANCE(908);
       END_STATE();
     case 802:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1014);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1624);
       END_STATE();
     case 803:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(862);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1737);
       END_STATE();
     case 804:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(522);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1827);
       END_STATE();
     case 805:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(982);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1739);
       END_STATE();
     case 806:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(447);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1726);
       END_STATE();
     case 807:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(523);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1119);
       END_STATE();
     case 808:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(459);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1005);
       END_STATE();
     case 809:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1231);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1538);
       END_STATE();
     case 810:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1156);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1262);
       END_STATE();
     case 811:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1158);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1656);
       END_STATE();
     case 812:
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(920);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1817);
       END_STATE();
     case 813:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1644);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1808);
       END_STATE();
     case 814:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1757);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1574);
       END_STATE();
     case 815:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1849);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1551);
       END_STATE();
     case 816:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1759);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1687);
       END_STATE();
     case 817:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1746);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1712);
       END_STATE();
     case 818:
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1132);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1470);
       END_STATE();
     case 819:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1018);
+          lookahead == 'l') ADVANCE(1547);
       END_STATE();
     case 820:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1558);
+          lookahead == 'l') ADVANCE(1586);
       END_STATE();
     case 821:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1281);
+          lookahead == 'l') ADVANCE(1835);
       END_STATE();
     case 822:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1676);
+          lookahead == 'l') ADVANCE(1499);
       END_STATE();
     case 823:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1839);
+          lookahead == 'l') ADVANCE(1618);
       END_STATE();
     case 824:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1830);
+          lookahead == 'l') ADVANCE(1638);
       END_STATE();
     case 825:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1594);
+          lookahead == 'l') ADVANCE(1714);
       END_STATE();
     case 826:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1571);
+          lookahead == 'l') ADVANCE(1837);
       END_STATE();
     case 827:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1707);
+          lookahead == 'l') ADVANCE(1474);
       END_STATE();
     case 828:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1732);
+          lookahead == 'l') ADVANCE(1537);
       END_STATE();
     case 829:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1490);
+          lookahead == 'l') ADVANCE(1264);
       END_STATE();
     case 830:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1567);
+          lookahead == 'l') ADVANCE(407);
       END_STATE();
     case 831:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1606);
+          lookahead == 'l') ADVANCE(811);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(575);
       END_STATE();
     case 832:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1857);
+          lookahead == 'l') ADVANCE(1224);
       END_STATE();
     case 833:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1519);
+          lookahead == 'l') ADVANCE(336);
       END_STATE();
     case 834:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1638);
+          lookahead == 'l') ADVANCE(813);
       END_STATE();
     case 835:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1658);
+          lookahead == 'l') ADVANCE(674);
       END_STATE();
     case 836:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1734);
+          lookahead == 'l') ADVANCE(674);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(1241);
       END_STATE();
     case 837:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1859);
+          lookahead == 'l') ADVANCE(583);
       END_STATE();
     case 838:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1494);
+          lookahead == 'l') ADVANCE(1008);
       END_STATE();
     case 839:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1557);
+          lookahead == 'l') ADVANCE(778);
       END_STATE();
     case 840:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1283);
+          lookahead == 'l') ADVANCE(817);
       END_STATE();
     case 841:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(406);
+          lookahead == 'l') ADVANCE(1158);
       END_STATE();
     case 842:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(822);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(579);
+          lookahead == 'l') ADVANCE(588);
       END_STATE();
     case 843:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1241);
+          lookahead == 'l') ADVANCE(1161);
       END_STATE();
     case 844:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(336);
+          lookahead == 'l') ADVANCE(591);
       END_STATE();
     case 845:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(824);
+          lookahead == 'l') ADVANCE(825);
       END_STATE();
     case 846:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(679);
+          lookahead == 'l') ADVANCE(593);
       END_STATE();
     case 847:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(679);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1258);
+          lookahead == 'l') ADVANCE(595);
       END_STATE();
     case 848:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(586);
+          lookahead == 'l') ADVANCE(828);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1178);
       END_STATE();
     case 849:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(789);
+          lookahead == 'l') ADVANCE(597);
       END_STATE();
     case 850:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(828);
+          lookahead == 'l') ADVANCE(598);
       END_STATE();
     case 851:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1021);
+          lookahead == 'l') ADVANCE(1170);
       END_STATE();
     case 852:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1173);
+          lookahead == 'l') ADVANCE(607);
       END_STATE();
     case 853:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(591);
+          lookahead == 'l') ADVANCE(611);
       END_STATE();
     case 854:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1176);
+          lookahead == 'l') ADVANCE(615);
       END_STATE();
     case 855:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(594);
+          lookahead == 'l') ADVANCE(619);
       END_STATE();
     case 856:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(836);
+          lookahead == 'l') ADVANCE(637);
       END_STATE();
     case 857:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(596);
+          lookahead == 'l') ADVANCE(624);
       END_STATE();
     case 858:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(598);
+          lookahead == 'l') ADVANCE(626);
       END_STATE();
     case 859:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(600);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(540);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(1179);
       END_STATE();
     case 860:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(601);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(545);
       END_STATE();
     case 861:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1185);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(542);
       END_STATE();
     case 862:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(610);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(544);
       END_STATE();
     case 863:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(614);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(546);
       END_STATE();
     case 864:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(618);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(547);
       END_STATE();
     case 865:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(622);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(548);
       END_STATE();
     case 866:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(641);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(549);
       END_STATE();
     case 867:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(627);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(561);
       END_STATE();
     case 868:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(629);
+          lookahead == 'l') ADVANCE(693);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(562);
       END_STATE();
     case 869:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
+          lookahead == 'l') ADVANCE(693);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(543);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1194);
+          lookahead == 'n') ADVANCE(541);
       END_STATE();
     case 870:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(548);
+          lookahead == 'l') ADVANCE(1234);
       END_STATE();
     case 871:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(545);
+          lookahead == 'l') ADVANCE(1131);
       END_STATE();
     case 872:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(545);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1227);
+          lookahead == 'l') ADVANCE(752);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1069);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1076);
       END_STATE();
     case 873:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(547);
+          lookahead == 'l') ADVANCE(757);
       END_STATE();
     case 874:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
+          lookahead == 'l') ADVANCE(1134);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(549);
+          lookahead == 'n') ADVANCE(552);
       END_STATE();
     case 875:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
+          lookahead == 'l') ADVANCE(1135);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(550);
+          lookahead == 'n') ADVANCE(551);
       END_STATE();
     case 876:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(551);
+          lookahead == 'l') ADVANCE(695);
       END_STATE();
     case 877:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(552);
+          lookahead == 'l') ADVANCE(1010);
       END_STATE();
     case 878:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(564);
+          lookahead == 'l') ADVANCE(684);
       END_STATE();
     case 879:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(565);
+          lookahead == 'l') ADVANCE(687);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(1241);
       END_STATE();
     case 880:
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(698);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(544);
+          lookahead == 'l') ADVANCE(1014);
       END_STATE();
     case 881:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1251);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1756);
       END_STATE();
     case 882:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1145);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1816);
       END_STATE();
     case 883:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(761);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1082);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1088);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1761);
       END_STATE();
     case 884:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(766);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1833);
       END_STATE();
     case 885:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1148);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(555);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1387);
       END_STATE();
     case 886:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1149);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(554);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1422);
       END_STATE();
     case 887:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(700);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1037);
       END_STATE();
     case 888:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1023);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(455);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(494);
       END_STATE();
     case 889:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(689);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1026);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(755);
       END_STATE();
     case 890:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(692);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(991);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(846);
       END_STATE();
     case 891:
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1026);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1036);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(494);
       END_STATE();
     case 892:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1778);
+          lookahead == 'm') ADVANCE(767);
       END_STATE();
     case 893:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1838);
+          lookahead == 'm') ADVANCE(661);
       END_STATE();
     case 894:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1783);
+          lookahead == 'm') ADVANCE(466);
       END_STATE();
     case 895:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1855);
+          lookahead == 'm') ADVANCE(993);
       END_STATE();
     case 896:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1407);
+          lookahead == 'm') ADVANCE(650);
       END_STATE();
     case 897:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1442);
+          lookahead == 'm') ADVANCE(697);
       END_STATE();
     case 898:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1049);
+          lookahead == 'm') ADVANCE(426);
       END_STATE();
     case 899:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(455);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(497);
+          lookahead == 'm') ADVANCE(408);
       END_STATE();
     case 900:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1004);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(857);
+          lookahead == 'm') ADVANCE(665);
       END_STATE();
     case 901:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1038);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(764);
+          lookahead == 'm') ADVANCE(672);
       END_STATE();
     case 902:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(776);
+          lookahead == 'm') ADVANCE(681);
       END_STATE();
     case 903:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1048);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(498);
+          lookahead == 'm') ADVANCE(1038);
       END_STATE();
     case 904:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(666);
+          lookahead == 'm') ADVANCE(463);
       END_STATE();
     case 905:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(468);
+          lookahead == 'm') ADVANCE(683);
       END_STATE();
     case 906:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1006);
+          lookahead == 'm') ADVANCE(1035);
       END_STATE();
     case 907:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(655);
+          lookahead == 'm') ADVANCE(1035);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1188);
       END_STATE();
     case 908:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(702);
+          lookahead == 'm') ADVANCE(698);
       END_STATE();
     case 909:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(426);
+          lookahead == 'm') ADVANCE(1021);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1006);
       END_STATE();
     case 910:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(407);
+          lookahead == 'm') ADVANCE(1022);
       END_STATE();
     case 911:
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(669);
+          lookahead == 'm') ADVANCE(1022);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1019);
       END_STATE();
     case 912:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(677);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1636);
       END_STATE();
     case 913:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(686);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(352);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(438);
       END_STATE();
     case 914:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1050);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(352);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(438);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(737);
       END_STATE();
     case 915:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(465);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1750);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(431);
       END_STATE();
     case 916:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(688);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1695);
       END_STATE();
     case 917:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1047);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1509);
       END_STATE();
     case 918:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1047);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1150);
+          lookahead == 'n') ADVANCE(1671);
       END_STATE();
     case 919:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1047);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1203);
+          lookahead == 'n') ADVANCE(1464);
       END_STATE();
     case 920:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(703);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1608);
       END_STATE();
     case 921:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1033);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1019);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1579);
       END_STATE();
     case 922:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1034);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1606);
       END_STATE();
     case 923:
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1034);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1031);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1475);
       END_STATE();
     case 924:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1656);
+          lookahead == 'n') ADVANCE(1758);
       END_STATE();
     case 925:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(352);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(438);
+          lookahead == 'n') ADVANCE(1580);
       END_STATE();
     case 926:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(352);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(438);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(745);
+          lookahead == 'n') ADVANCE(494);
       END_STATE();
     case 927:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1772);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(431);
+          lookahead == 'n') ADVANCE(557);
       END_STATE();
     case 928:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1715);
+          lookahead == 'n') ADVANCE(802);
       END_STATE();
     case 929:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1529);
+          lookahead == 'n') ADVANCE(545);
       END_STATE();
     case 930:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1691);
+          lookahead == 'n') ADVANCE(810);
       END_STATE();
     case 931:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1484);
+          lookahead == 'n') ADVANCE(513);
       END_STATE();
     case 932:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1628);
+          lookahead == 'n') ADVANCE(529);
       END_STATE();
     case 933:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1599);
+          lookahead == 'n') ADVANCE(441);
       END_STATE();
     case 934:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1626);
+          lookahead == 'n') ADVANCE(483);
       END_STATE();
     case 935:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1495);
+          lookahead == 'n') ADVANCE(531);
       END_STATE();
     case 936:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1780);
+          lookahead == 'n') ADVANCE(558);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(967);
       END_STATE();
     case 937:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1600);
+          lookahead == 'n') ADVANCE(806);
       END_STATE();
     case 938:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(560);
+          lookahead == 'n') ADVANCE(711);
       END_STATE();
     case 939:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(813);
+          lookahead == 'n') ADVANCE(656);
       END_STATE();
     case 940:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(548);
+          lookahead == 'n') ADVANCE(1140);
       END_STATE();
     case 941:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(498);
+          lookahead == 'n') ADVANCE(1223);
       END_STATE();
     case 942:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(821);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1161);
+          lookahead == 'n') ADVANCE(534);
       END_STATE();
     case 943:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(516);
+          lookahead == 'n') ADVANCE(1138);
       END_STATE();
     case 944:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(532);
+          lookahead == 'n') ADVANCE(1151);
       END_STATE();
     case 945:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(441);
+          lookahead == 'n') ADVANCE(1112);
       END_STATE();
     case 946:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(486);
+          lookahead == 'n') ADVANCE(542);
       END_STATE();
     case 947:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(534);
+          lookahead == 'n') ADVANCE(1204);
       END_STATE();
     case 948:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(561);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(978);
+          lookahead == 'n') ADVANCE(1153);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(432);
       END_STATE();
     case 949:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(817);
+          lookahead == 'n') ADVANCE(646);
       END_STATE();
     case 950:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(717);
+          lookahead == 'n') ADVANCE(549);
       END_STATE();
     case 951:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(661);
+          lookahead == 'n') ADVANCE(550);
       END_STATE();
     case 952:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1155);
+          lookahead == 'n') ADVANCE(553);
       END_STATE();
     case 953:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1240);
+          lookahead == 'n') ADVANCE(1211);
       END_STATE();
     case 954:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(537);
+          lookahead == 'n') ADVANCE(1163);
       END_STATE();
     case 955:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1153);
+          lookahead == 'n') ADVANCE(1167);
       END_STATE();
     case 956:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1166);
+          lookahead == 'n') ADVANCE(1168);
       END_STATE();
     case 957:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1125);
+          lookahead == 'n') ADVANCE(618);
       END_STATE();
     case 958:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(545);
+          lookahead == 'n') ADVANCE(625);
       END_STATE();
     case 959:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1219);
+          lookahead == 'n') ADVANCE(578);
       END_STATE();
     case 960:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1168);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(432);
+          lookahead == 'n') ADVANCE(404);
       END_STATE();
     case 961:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(651);
+          lookahead == 'n') ADVANCE(949);
       END_STATE();
     case 962:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(552);
+          lookahead == 'n') ADVANCE(721);
       END_STATE();
     case 963:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(553);
+          lookahead == 'n') ADVANCE(721);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(439);
       END_STATE();
     case 964:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(556);
+          lookahead == 'n') ADVANCE(508);
       END_STATE();
     case 965:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1226);
+          lookahead == 'n') ADVANCE(773);
       END_STATE();
     case 966:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1178);
+          lookahead == 'n') ADVANCE(511);
       END_STATE();
     case 967:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1182);
+          lookahead == 'n') ADVANCE(415);
       END_STATE();
     case 968:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1183);
+          lookahead == 'n') ADVANCE(1196);
       END_STATE();
     case 969:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(621);
+          lookahead == 'n') ADVANCE(417);
       END_STATE();
     case 970:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(628);
+          lookahead == 'n') ADVANCE(1198);
       END_STATE();
     case 971:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(403);
+          lookahead == 'n') ADVANCE(1139);
       END_STATE();
     case 972:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(961);
+          lookahead == 'n') ADVANCE(1205);
       END_STATE();
     case 973:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(727);
+          lookahead == 'n') ADVANCE(541);
       END_STATE();
     case 974:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(727);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(439);
+          lookahead == 'n') ADVANCE(522);
       END_STATE();
     case 975:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(511);
+          lookahead == 'n') ADVANCE(905);
       END_STATE();
     case 976:
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(782);
+          lookahead == 'n') ADVANCE(1142);
       END_STATE();
     case 977:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(514);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(554);
       END_STATE();
     case 978:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(414);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1669);
       END_STATE();
     case 979:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1212);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1681);
       END_STATE();
     case 980:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(416);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(913);
       END_STATE();
     case 981:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1213);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1677);
       END_STATE();
     case 982:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1154);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(527);
       END_STATE();
     case 983:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1220);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(472);
       END_STATE();
     case 984:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(544);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(725);
       END_STATE();
     case 985:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(525);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1182);
       END_STATE();
     case 986:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(916);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(894);
       END_STATE();
     case 987:
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1157);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(720);
       END_STATE();
     case 988:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(557);
+          lookahead == 'o') ADVANCE(1230);
       END_STATE();
     case 989:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1689);
+          lookahead == 'o') ADVANCE(1042);
       END_STATE();
     case 990:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1701);
+          lookahead == 'o') ADVANCE(1217);
       END_STATE();
     case 991:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(925);
+          lookahead == 'o') ADVANCE(917);
       END_STATE();
     case 992:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1697);
+          lookahead == 'o') ADVANCE(1069);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1076);
       END_STATE();
     case 993:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(530);
+          lookahead == 'o') ADVANCE(1053);
       END_STATE();
     case 994:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(524);
+          lookahead == 'o') ADVANCE(919);
       END_STATE();
     case 995:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(475);
+          lookahead == 'o') ADVANCE(1087);
       END_STATE();
     case 996:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1037);
+          lookahead == 'o') ADVANCE(920);
       END_STATE();
     case 997:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(731);
+          lookahead == 'o') ADVANCE(921);
       END_STATE();
     case 998:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1197);
+          lookahead == 'o') ADVANCE(922);
       END_STATE();
     case 999:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(905);
+          lookahead == 'o') ADVANCE(923);
       END_STATE();
     case 1000:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(726);
+          lookahead == 'o') ADVANCE(924);
       END_STATE();
     case 1001:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1247);
+          lookahead == 'o') ADVANCE(925);
       END_STATE();
     case 1002:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1054);
+          lookahead == 'o') ADVANCE(1045);
       END_STATE();
     case 1003:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1234);
+          lookahead == 'o') ADVANCE(1048);
       END_STATE();
     case 1004:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(929);
+          lookahead == 'o') ADVANCE(1121);
       END_STATE();
     case 1005:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1082);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1088);
+          lookahead == 'o') ADVANCE(490);
       END_STATE();
     case 1006:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1065);
+          lookahead == 'o') ADVANCE(1239);
       END_STATE();
     case 1007:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(931);
+          lookahead == 'o') ADVANCE(496);
       END_STATE();
     case 1008:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1099);
+          lookahead == 'o') ADVANCE(501);
       END_STATE();
     case 1009:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(932);
+          lookahead == 'o') ADVANCE(491);
       END_STATE();
     case 1010:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(933);
+          lookahead == 'o') ADVANCE(492);
       END_STATE();
     case 1011:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(934);
+          lookahead == 'o') ADVANCE(959);
       END_STATE();
     case 1012:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(935);
+          lookahead == 'o') ADVANCE(497);
       END_STATE();
     case 1013:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(936);
+          lookahead == 'o') ADVANCE(903);
       END_STATE();
     case 1014:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(937);
+          lookahead == 'o') ADVANCE(477);
       END_STATE();
     case 1015:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1057);
+          lookahead == 'o') ADVANCE(1093);
       END_STATE();
     case 1016:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1060);
+          lookahead == 'o') ADVANCE(969);
       END_STATE();
     case 1017:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1135);
+          lookahead == 'o') ADVANCE(563);
       END_STATE();
     case 1018:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(493);
+          lookahead == 'o') ADVANCE(1095);
       END_STATE();
     case 1019:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1256);
+          lookahead == 'o') ADVANCE(1251);
       END_STATE();
     case 1020:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(500);
+          lookahead == 'o') ADVANCE(524);
       END_STATE();
     case 1021:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(504);
+          lookahead == 'o') ADVANCE(565);
       END_STATE();
     case 1022:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(494);
+          lookahead == 'o') ADVANCE(567);
       END_STATE();
     case 1023:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(495);
+          lookahead == 'o') ADVANCE(1100);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(931);
       END_STATE();
     case 1024:
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(501);
+          lookahead == 'o') ADVANCE(526);
       END_STATE();
     case 1025:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(914);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1653);
       END_STATE();
     case 1026:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(480);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(992);
       END_STATE();
     case 1027:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1105);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(581);
       END_STATE();
     case 1028:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(980);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(445);
       END_STATE();
     case 1029:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(566);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(599);
       END_STATE();
     case 1030:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1108);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1181);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1146);
       END_STATE();
     case 1031:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1268);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(617);
       END_STATE();
     case 1032:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(527);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(627);
       END_STATE();
     case 1033:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(568);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(630);
       END_STATE();
     case 1034:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(570);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(631);
       END_STATE();
     case 1035:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1113);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(943);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(846);
       END_STATE();
     case 1036:
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(529);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1238);
       END_STATE();
     case 1037:
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1673);
+          lookahead == 'p') ADVANCE(849);
       END_STATE();
     case 1038:
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1005);
+          lookahead == 'p') ADVANCE(856);
       END_STATE();
     case 1039:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(584);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(327);
       END_STATE();
     case 1040:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(445);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(1241);
       END_STATE();
     case 1041:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(602);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(429);
       END_STATE();
     case 1042:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1196);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1651);
       END_STATE();
     case 1043:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(620);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1572);
       END_STATE();
     case 1044:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(631);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1558);
       END_STATE();
     case 1045:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(634);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1443);
       END_STATE();
     case 1046:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(635);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1588);
       END_STATE();
     case 1047:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(857);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1620);
       END_STATE();
     case 1048:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1255);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1760);
       END_STATE();
     case 1049:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(859);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1227);
       END_STATE();
     case 1050:
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(866);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(430);
       END_STATE();
     case 1051:
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(327);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1263);
       END_STATE();
     case 1052:
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1258);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(989);
       END_STATE();
     case 1053:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(429);
+          lookahead == 'r') ADVANCE(1265);
       END_STATE();
     case 1054:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1671);
+          lookahead == 'r') ADVANCE(644);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1061);
       END_STATE();
     case 1055:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1592);
+          lookahead == 'r') ADVANCE(333);
       END_STATE();
     case 1056:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1578);
+          lookahead == 'r') ADVANCE(744);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(469);
       END_STATE();
     case 1057:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1463);
+          lookahead == 'r') ADVANCE(743);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(470);
       END_STATE();
     case 1058:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1608);
+          lookahead == 'r') ADVANCE(436);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1105);
       END_STATE();
     case 1059:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1640);
+          lookahead == 'r') ADVANCE(436);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1105);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1127);
       END_STATE();
     case 1060:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1782);
+          lookahead == 'r') ADVANCE(439);
       END_STATE();
     case 1061:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1244);
+          lookahead == 'r') ADVANCE(579);
       END_STATE();
     case 1062:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(430);
+          lookahead == 'r') ADVANCE(1006);
       END_STATE();
     case 1063:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1282);
+          lookahead == 'r') ADVANCE(982);
       END_STATE();
     case 1064:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1002);
+          lookahead == 'r') ADVANCE(745);
       END_STATE();
     case 1065:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1284);
+          lookahead == 'r') ADVANCE(401);
       END_STATE();
     case 1066:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(648);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1073);
+          lookahead == 'r') ADVANCE(918);
       END_STATE();
     case 1067:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(333);
+          lookahead == 'r') ADVANCE(402);
       END_STATE();
     case 1068:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(753);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(472);
+          lookahead == 'r') ADVANCE(649);
       END_STATE();
     case 1069:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(436);
+          lookahead == 'r') ADVANCE(1156);
       END_STATE();
     case 1070:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(436);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1118);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1140);
+          lookahead == 'r') ADVANCE(987);
       END_STATE();
     case 1071:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(751);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(473);
+          lookahead == 'r') ADVANCE(1096);
       END_STATE();
     case 1072:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(439);
+          lookahead == 'r') ADVANCE(1012);
       END_STATE();
     case 1073:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(582);
+          lookahead == 'r') ADVANCE(587);
       END_STATE();
     case 1074:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1019);
+          lookahead == 'r') ADVANCE(1086);
       END_STATE();
     case 1075:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(993);
+          lookahead == 'r') ADVANCE(1180);
       END_STATE();
     case 1076:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(754);
+          lookahead == 'r') ADVANCE(594);
       END_STATE();
     case 1077:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(400);
+          lookahead == 'r') ADVANCE(653);
       END_STATE();
     case 1078:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(930);
+          lookahead == 'r') ADVANCE(601);
       END_STATE();
     case 1079:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(401);
+          lookahead == 'r') ADVANCE(603);
       END_STATE();
     case 1080:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1000);
+          lookahead == 'r') ADVANCE(605);
       END_STATE();
     case 1081:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(654);
+          lookahead == 'r') ADVANCE(700);
       END_STATE();
     case 1082:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1171);
+          lookahead == 'r') ADVANCE(610);
       END_STATE();
     case 1083:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1109);
+          lookahead == 'r') ADVANCE(613);
       END_STATE();
     case 1084:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(590);
+          lookahead == 'r') ADVANCE(623);
       END_STATE();
     case 1085:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1024);
+          lookahead == 'r') ADVANCE(726);
       END_STATE();
     case 1086:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1098);
+          lookahead == 'r') ADVANCE(765);
       END_STATE();
     case 1087:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1195);
+          lookahead == 'r') ADVANCE(898);
       END_STATE();
     case 1088:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(597);
+          lookahead == 'r') ADVANCE(1128);
       END_STATE();
     case 1089:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(658);
+          lookahead == 'r') ADVANCE(422);
       END_STATE();
     case 1090:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(604);
+          lookahead == 'r') ADVANCE(1077);
       END_STATE();
     case 1091:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(606);
+          lookahead == 'r') ADVANCE(760);
       END_STATE();
     case 1092:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(608);
+          lookahead == 'r') ADVANCE(437);
       END_STATE();
     case 1093:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(706);
+          lookahead == 'r') ADVANCE(428);
       END_STATE();
     case 1094:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(613);
+          lookahead == 'r') ADVANCE(450);
       END_STATE();
     case 1095:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(616);
+          lookahead == 'r') ADVANCE(899);
       END_STATE();
     case 1096:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(626);
+          lookahead == 'r') ADVANCE(685);
       END_STATE();
     case 1097:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(732);
+          lookahead == 'r') ADVANCE(714);
       END_STATE();
     case 1098:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(774);
+          lookahead == 'r') ADVANCE(464);
       END_STATE();
     case 1099:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(909);
+          lookahead == 'r') ADVANCE(794);
       END_STATE();
     case 1100:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1142);
+          lookahead == 'r') ADVANCE(904);
       END_STATE();
     case 1101:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(421);
+          lookahead == 'r') ADVANCE(798);
       END_STATE();
     case 1102:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1089);
+          lookahead == 'r') ADVANCE(1019);
       END_STATE();
     case 1103:
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(769);
+          lookahead == 'r') ADVANCE(1024);
       END_STATE();
     case 1104:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(437);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(739);
       END_STATE();
     case 1105:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(428);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1554);
       END_STATE();
     case 1106:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(978);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1592);
       END_STATE();
     case 1107:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(450);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1814);
       END_STATE();
     case 1108:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(910);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1555);
       END_STATE();
     case 1109:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(690);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1731);
       END_STATE();
     case 1110:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(720);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1733);
       END_STATE();
     case 1111:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(466);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1543);
       END_STATE();
     case 1112:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(805);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1478);
       END_STATE();
     case 1113:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(915);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1468);
       END_STATE();
     case 1114:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(809);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1610);
       END_STATE();
     case 1115:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1031);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1590);
       END_STATE();
     case 1116:
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1036);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1594);
       END_STATE();
     case 1117:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(747);
+          lookahead == 's') ADVANCE(1591);
       END_STATE();
     case 1118:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1574);
+          lookahead == 's') ADVANCE(575);
       END_STATE();
     case 1119:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1612);
+          lookahead == 's') ADVANCE(1028);
       END_STATE();
     case 1120:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1836);
+          lookahead == 's') ADVANCE(1106);
       END_STATE();
     case 1121:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1575);
+          lookahead == 's') ADVANCE(1148);
       END_STATE();
     case 1122:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1751);
+          lookahead == 's') ADVANCE(1124);
       END_STATE();
     case 1123:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1753);
+          lookahead == 's') ADVANCE(1108);
       END_STATE();
     case 1124:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1563);
+          lookahead == 's') ADVANCE(1020);
       END_STATE();
     case 1125:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1498);
+          lookahead == 's') ADVANCE(582);
       END_STATE();
     case 1126:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1488);
+          lookahead == 's') ADVANCE(1115);
       END_STATE();
     case 1127:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1630);
+          lookahead == 's') ADVANCE(585);
       END_STATE();
     case 1128:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1610);
+          lookahead == 's') ADVANCE(779);
       END_STATE();
     case 1129:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1614);
+          lookahead == 's') ADVANCE(1116);
       END_STATE();
     case 1130:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1611);
+          lookahead == 's') ADVANCE(1117);
       END_STATE();
     case 1131:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(579);
+          lookahead == 's') ADVANCE(654);
       END_STATE();
     case 1132:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1040);
+          lookahead == 's') ADVANCE(1165);
       END_STATE();
     case 1133:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1118);
+          lookahead == 's') ADVANCE(616);
       END_STATE();
     case 1134:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1119);
+          lookahead == 's') ADVANCE(632);
       END_STATE();
     case 1135:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1163);
+          lookahead == 's') ADVANCE(633);
       END_STATE();
     case 1136:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1138);
+          lookahead == 's') ADVANCE(1184);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(746);
       END_STATE();
     case 1137:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1121);
+          lookahead == 's') ADVANCE(1183);
       END_STATE();
     case 1138:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1032);
+          lookahead == 's') ADVANCE(764);
       END_STATE();
     case 1139:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(585);
+          lookahead == 's') ADVANCE(768);
       END_STATE();
     case 1140:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(588);
+          lookahead == 's') ADVANCE(781);
       END_STATE();
     case 1141:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1128);
+          lookahead == 's') ADVANCE(784);
       END_STATE();
     case 1142:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(790);
+          lookahead == 's') ADVANCE(786);
       END_STATE();
     case 1143:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1129);
+          lookahead == 's') ADVANCE(791);
       END_STATE();
     case 1144:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1130);
+          lookahead == 's') ADVANCE(1007);
       END_STATE();
     case 1145:
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(659);
+          lookahead == 's') ADVANCE(1144);
       END_STATE();
     case 1146:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1180);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1616);
       END_STATE();
     case 1147:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(619);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1664);
       END_STATE();
     case 1148:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(636);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1473);
       END_STATE();
     case 1149:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(637);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1823);
       END_STATE();
     case 1150:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1199);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1824);
       END_STATE();
     case 1151:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1199);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(755);
+          lookahead == 't') ADVANCE(1821);
       END_STATE();
     case 1152:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1198);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1617);
       END_STATE();
     case 1153:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(773);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1748);
       END_STATE();
     case 1154:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(777);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1655);
       END_STATE();
     case 1155:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(792);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1745);
       END_STATE();
     case 1156:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(795);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1535);
       END_STATE();
     case 1157:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(797);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1612);
       END_STATE();
     case 1158:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(802);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1477);
       END_STATE();
     case 1159:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1020);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1717);
       END_STATE();
     case 1160:
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1159);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1628);
       END_STATE();
     case 1161:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1636);
+          lookahead == 't') ADVANCE(1689);
       END_STATE();
     case 1162:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1684);
+          lookahead == 't') ADVANCE(1541);
       END_STATE();
     case 1163:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1493);
+          lookahead == 't') ADVANCE(1562);
       END_STATE();
     case 1164:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1845);
+          lookahead == 't') ADVANCE(1489);
       END_STATE();
     case 1165:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1846);
+          lookahead == 't') ADVANCE(1507);
       END_STATE();
     case 1166:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1843);
+          lookahead == 't') ADVANCE(1728);
       END_STATE();
     case 1167:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1637);
+          lookahead == 't') ADVANCE(1438);
       END_STATE();
     case 1168:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1770);
+          lookahead == 't') ADVANCE(1685);
       END_STATE();
     case 1169:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1675);
+          lookahead == 't') ADVANCE(1688);
       END_STATE();
     case 1170:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1765);
+          lookahead == 't') ADVANCE(1735);
       END_STATE();
     case 1171:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1555);
+          lookahead == 't') ADVANCE(1716);
       END_STATE();
     case 1172:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1632);
+          lookahead == 't') ADVANCE(1178);
       END_STATE();
     case 1173:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1497);
+          lookahead == 't') ADVANCE(460);
       END_STATE();
     case 1174:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1737);
+          lookahead == 't') ADVANCE(986);
       END_STATE();
     case 1175:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1648);
+          lookahead == 't') ADVANCE(574);
       END_STATE();
     case 1176:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1709);
+          lookahead == 't') ADVANCE(789);
       END_STATE();
     case 1177:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1561);
+          lookahead == 't') ADVANCE(387);
       END_STATE();
     case 1178:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1582);
+          lookahead == 't') ADVANCE(1064);
       END_STATE();
     case 1179:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1509);
+          lookahead == 't') ADVANCE(639);
       END_STATE();
     case 1180:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1527);
+          lookahead == 't') ADVANCE(1267);
       END_STATE();
     case 1181:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1748);
+          lookahead == 't') ADVANCE(753);
       END_STATE();
     case 1182:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1458);
+          lookahead == 't') ADVANCE(337);
       END_STATE();
     case 1183:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1705);
+          lookahead == 't') ADVANCE(1094);
       END_STATE();
     case 1184:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1708);
+          lookahead == 't') ADVANCE(446);
       END_STATE();
     case 1185:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1755);
+          lookahead == 't') ADVANCE(785);
       END_STATE();
     case 1186:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1736);
+          lookahead == 't') ADVANCE(775);
       END_STATE();
     case 1187:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1193);
+          lookahead == 't') ADVANCE(780);
       END_STATE();
     case 1188:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(461);
+          lookahead == 't') ADVANCE(433);
       END_STATE();
     case 1189:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(999);
+          lookahead == 't') ADVANCE(589);
       END_STATE();
     case 1190:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(578);
+          lookahead == 't') ADVANCE(602);
       END_STATE();
     case 1191:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(800);
+          lookahead == 't') ADVANCE(657);
       END_STATE();
     case 1192:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(387);
+          lookahead == 't') ADVANCE(608);
       END_STATE();
     case 1193:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1076);
+          lookahead == 't') ADVANCE(659);
       END_STATE();
     case 1194:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(643);
+          lookahead == 't') ADVANCE(658);
       END_STATE();
     case 1195:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1286);
+          lookahead == 't') ADVANCE(621);
       END_STATE();
     case 1196:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(762);
+          lookahead == 't') ADVANCE(686);
       END_STATE();
     case 1197:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(337);
+          lookahead == 't') ADVANCE(660);
       END_STATE();
     case 1198:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1107);
+          lookahead == 't') ADVANCE(1099);
       END_STATE();
     case 1199:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(446);
+          lookahead == 't') ADVANCE(792);
       END_STATE();
     case 1200:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(796);
+          lookahead == 't') ADVANCE(1002);
       END_STATE();
     case 1201:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(785);
+          lookahead == 't') ADVANCE(1244);
       END_STATE();
     case 1202:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(791);
+          lookahead == 't') ADVANCE(1003);
       END_STATE();
     case 1203:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(433);
+          lookahead == 't') ADVANCE(759);
       END_STATE();
     case 1204:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(592);
+          lookahead == 't') ADVANCE(667);
       END_STATE();
     case 1205:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(605);
+          lookahead == 't') ADVANCE(668);
       END_STATE();
     case 1206:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(662);
+          lookahead == 't') ADVANCE(1194);
       END_STATE();
     case 1207:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(611);
+          lookahead == 't') ADVANCE(762);
       END_STATE();
     case 1208:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(664);
+          lookahead == 't') ADVANCE(670);
       END_STATE();
     case 1209:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(663);
+          lookahead == 't') ADVANCE(1197);
       END_STATE();
     case 1210:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(624);
+          lookahead == 't') ADVANCE(671);
       END_STATE();
     case 1211:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(665);
+          lookahead == 't') ADVANCE(418);
       END_STATE();
     case 1212:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(691);
+          lookahead == 't') ADVANCE(783);
       END_STATE();
     case 1213:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1112);
+          lookahead == 't') ADVANCE(793);
       END_STATE();
     case 1214:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(803);
+          lookahead == 't') ADVANCE(796);
       END_STATE();
     case 1215:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1015);
+          lookahead == 't') ADVANCE(788);
       END_STATE();
     case 1216:
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1261);
+          lookahead == 't') ADVANCE(459);
       END_STATE();
     case 1217:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1016);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(475);
       END_STATE();
     case 1218:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(768);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(931);
       END_STATE();
     case 1219:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(671);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(758);
       END_STATE();
     case 1220:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(672);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1146);
       END_STATE();
     case 1221:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1209);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(741);
       END_STATE();
     case 1222:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(771);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(471);
       END_STATE();
     case 1223:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(674);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(883);
       END_STATE();
     case 1224:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1211);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(560);
       END_STATE();
     case 1225:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(675);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(787);
       END_STATE();
     case 1226:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(417);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(988);
       END_STATE();
     case 1227:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(676);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(652);
       END_STATE();
     case 1228:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(687);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1152);
       END_STATE();
     case 1229:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(794);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1088);
       END_STATE();
     case 1230:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(804);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1114);
       END_STATE();
     case 1231:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(807);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1066);
       END_STATE();
     case 1232:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(799);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(841);
       END_STATE();
     case 1233:
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(460);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1071);
       END_STATE();
     case 1234:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(478);
+          lookahead == 'u') ADVANCE(586);
       END_STATE();
     case 1235:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(943);
+          lookahead == 'u') ADVANCE(604);
       END_STATE();
     case 1236:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(767);
+          lookahead == 'u') ADVANCE(505);
       END_STATE();
     case 1237:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1161);
+          lookahead == 'u') ADVANCE(843);
       END_STATE();
     case 1238:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(749);
+          lookahead == 'u') ADVANCE(1076);
       END_STATE();
     case 1239:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(474);
+          lookahead == 'u') ADVANCE(1187);
       END_STATE();
     case 1240:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(894);
+          lookahead == 'u') ADVANCE(851);
       END_STATE();
     case 1241:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(563);
+          lookahead == 'u') ADVANCE(680);
       END_STATE();
     case 1242:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(798);
+          lookahead == 'u') ADVANCE(847);
       END_STATE();
     case 1243:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1001);
+          lookahead == 'u') ADVANCE(1193);
       END_STATE();
     case 1244:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(657);
+          lookahead == 'u') ADVANCE(1079);
       END_STATE();
     case 1245:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1167);
+          lookahead == 'u') ADVANCE(1083);
       END_STATE();
     case 1246:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1100);
+          lookahead == 'u') ADVANCE(853);
       END_STATE();
     case 1247:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1127);
+          lookahead == 'u') ADVANCE(1084);
       END_STATE();
     case 1248:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1078);
+          lookahead == 'u') ADVANCE(854);
       END_STATE();
     case 1249:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(852);
+          lookahead == 'u') ADVANCE(1061);
       END_STATE();
     case 1250:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1083);
+          lookahead == 'u') ADVANCE(857);
       END_STATE();
     case 1251:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(589);
+          lookahead == 'u') ADVANCE(1212);
       END_STATE();
     case 1252:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(607);
+          lookahead == 'u') ADVANCE(974);
       END_STATE();
     case 1253:
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(508);
+          lookahead == 'u') ADVANCE(479);
       END_STATE();
     case 1254:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(854);
-      END_STATE();
-    case 1255:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1088);
-      END_STATE();
-    case 1256:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1202);
-      END_STATE();
-    case 1257:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(861);
-      END_STATE();
-    case 1258:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(685);
-      END_STATE();
-    case 1259:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(858);
-      END_STATE();
-    case 1260:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1208);
-      END_STATE();
-    case 1261:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1091);
-      END_STATE();
-    case 1262:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1095);
-      END_STATE();
-    case 1263:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(863);
-      END_STATE();
-    case 1264:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1096);
-      END_STATE();
-    case 1265:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(864);
-      END_STATE();
-    case 1266:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1073);
-      END_STATE();
-    case 1267:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(867);
-      END_STATE();
-    case 1268:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1229);
-      END_STATE();
-    case 1269:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(985);
-      END_STATE();
-    case 1270:
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(482);
-      END_STATE();
-    case 1271:
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(756);
-      END_STATE();
-    case 1272:
       if (lookahead == 'V' ||
           lookahead == 'v') ADVANCE(338);
       END_STATE();
-    case 1273:
+    case 1255:
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(583);
+          lookahead == 'v') ADVANCE(580);
       END_STATE();
-    case 1274:
+    case 1256:
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(617);
+          lookahead == 'v') ADVANCE(614);
       END_STATE();
-    case 1275:
+    case 1257:
       if (lookahead == 'V' ||
           lookahead == 'v') ADVANCE(432);
       END_STATE();
-    case 1276:
+    case 1258:
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(409);
+          lookahead == 'v') ADVANCE(410);
       END_STATE();
-    case 1277:
+    case 1259:
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(684);
-      END_STATE();
-    case 1278:
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1602);
+          lookahead == 'v') ADVANCE(679);
       END_STATE();
-    case 1279:
+    case 1260:
       if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1604);
+          lookahead == 'x') ADVANCE(1582);
       END_STATE();
-    case 1280:
+    case 1261:
       if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1216);
+          lookahead == 'x') ADVANCE(1584);
       END_STATE();
-    case 1281:
+    case 1262:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1506);
+          lookahead == 'y') ADVANCE(1486);
       END_STATE();
-    case 1282:
+    case 1263:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1794);
+          lookahead == 'y') ADVANCE(1772);
       END_STATE();
-    case 1283:
+    case 1264:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1577);
+          lookahead == 'y') ADVANCE(1557);
       END_STATE();
-    case 1284:
+    case 1265:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1837);
+          lookahead == 'y') ADVANCE(1815);
       END_STATE();
-    case 1285:
+    case 1266:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1851);
+          lookahead == 'y') ADVANCE(1829);
       END_STATE();
-    case 1286:
+    case 1267:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1569);
+          lookahead == 'y') ADVANCE(1549);
       END_STATE();
-    case 1287:
+    case 1268:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1190);
+          lookahead == 'y') ADVANCE(1175);
       END_STATE();
-    case 1288:
+    case 1269:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1041);
+          lookahead == 'y') ADVANCE(1029);
       END_STATE();
-    case 1289:
+    case 1270:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1043);
+          lookahead == 'y') ADVANCE(1031);
       END_STATE();
-    case 1290:
+    case 1271:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1044);
+          lookahead == 'y') ADVANCE(1032);
       END_STATE();
-    case 1291:
+    case 1272:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1045);
+          lookahead == 'y') ADVANCE(1033);
       END_STATE();
-    case 1292:
+    case 1273:
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1046);
+          lookahead == 'y') ADVANCE(1034);
       END_STATE();
-    case 1293:
+    case 1274:
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
           ('a' <= lookahead && lookahead <= 'z')) ADVANCE(342);
       END_STATE();
-    case 1294:
-      if (lookahead != 0 &&
-          lookahead != ')' &&
-          lookahead != ',' &&
-          lookahead != '/') ADVANCE(1769);
-      END_STATE();
-    case 1295:
+    case 1275:
       if (lookahead != 0 &&
-          lookahead != '*') ADVANCE(1332);
+          lookahead != '*') ADVANCE(1311);
       END_STATE();
-    case 1296:
-      if (eof) ADVANCE(1302);
-      if (lookahead == '\n') SKIP(1300);
+    case 1276:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '\n') SKIP(1280)
       END_STATE();
-    case 1297:
-      if (eof) ADVANCE(1302);
-      if (lookahead == '\n') SKIP(1300);
-      if (lookahead == '\r') SKIP(1296);
+    case 1277:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '\n') SKIP(1280)
+      if (lookahead == '\r') SKIP(1276)
       END_STATE();
-    case 1298:
-      if (eof) ADVANCE(1302);
-      if (lookahead == '\n') SKIP(1301);
+    case 1278:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '\n') SKIP(1281)
       END_STATE();
-    case 1299:
-      if (eof) ADVANCE(1302);
-      if (lookahead == '\n') SKIP(1301);
-      if (lookahead == '\r') SKIP(1298);
+    case 1279:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '\n') SKIP(1281)
+      if (lookahead == '\r') SKIP(1278)
       END_STATE();
-    case 1300:
-      if (eof) ADVANCE(1302);
-      ADVANCE_MAP(
-        '!', 2670,
-        '#', 354,
-        '%', 1381,
-        '&', 1387,
-        '(', 1366,
-        ')', 1311,
-        '*', 1373,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1811,
-        '/', 1376,
-        ':', 1451,
-        ';', 1670,
-        '<', 1397,
-        '=', 1461,
-        '>', 1392,
-        '?', 1861,
-        '@', 1818,
-        'D', 1533,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(1297);
-      if (lookahead == ']') ADVANCE(1823);
-      if (lookahead == '^') ADVANCE(1385);
-      if (lookahead == 'd') ADVANCE(1532);
-      if (lookahead == '|') ADVANCE(1384);
+    case 1280:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '!') ADVANCE(2648);
+      if (lookahead == '#') ADVANCE(354);
+      if (lookahead == '%') ADVANCE(1361);
+      if (lookahead == '&') ADVANCE(1367);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1353);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1789);
+      if (lookahead == '/') ADVANCE(1356);
+      if (lookahead == ':') ADVANCE(1431);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '<') ADVANCE(1377);
+      if (lookahead == '=') ADVANCE(1441);
+      if (lookahead == '>') ADVANCE(1372);
+      if (lookahead == '?') ADVANCE(1839);
+      if (lookahead == '@') ADVANCE(1796);
+      if (lookahead == 'D') ADVANCE(1513);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(1277)
+      if (lookahead == ']') ADVANCE(1801);
+      if (lookahead == '^') ADVANCE(1365);
+      if (lookahead == 'd') ADVANCE(1512);
+      if (lookahead == '|') ADVANCE(1364);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1545);
+          lookahead == 'a') ADVANCE(1525);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1534);
+          lookahead == 'b') ADVANCE(1514);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1535);
+          lookahead == 'c') ADVANCE(1515);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1550);
+          lookahead == 'e') ADVANCE(1530);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1536);
+          lookahead == 'f') ADVANCE(1516);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(1546);
+          lookahead == 'g') ADVANCE(1526);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(1553);
+          lookahead == 'h') ADVANCE(1533);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1548);
+          lookahead == 'i') ADVANCE(1528);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1549);
+          lookahead == 'k') ADVANCE(1529);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1547);
+          lookahead == 'l') ADVANCE(1527);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1541);
+          lookahead == 'm') ADVANCE(1521);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1543);
+          lookahead == 'n') ADVANCE(1523);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1552);
+          lookahead == 'o') ADVANCE(1532);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1537);
+          lookahead == 'p') ADVANCE(1517);
       if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(1554);
+          lookahead == 'q') ADVANCE(1534);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1542);
+          lookahead == 'r') ADVANCE(1522);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1538);
+          lookahead == 's') ADVANCE(1518);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1540);
+          lookahead == 't') ADVANCE(1520);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1551);
+          lookahead == 'u') ADVANCE(1531);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1539);
+          lookahead == 'v') ADVANCE(1519);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(1544);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(1300);
+          lookahead == 'w') ADVANCE(1524);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(1280)
       if (('J' <= lookahead && lookahead <= 'Z') ||
-          ('j' <= lookahead && lookahead <= 'z')) ADVANCE(1531);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+          ('j' <= lookahead && lookahead <= 'z')) ADVANCE(1511);
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       END_STATE();
-    case 1301:
-      if (eof) ADVANCE(1302);
-      ADVANCE_MAP(
-        '!', 2671,
-        '#', 358,
-        '&', 1386,
-        '(', 1366,
-        ')', 1311,
-        '*', 1372,
-        '+', 1370,
-        ',', 1310,
-        '-', 1371,
-        '.', 1816,
-        '/', 1375,
-        ':', 1450,
-        ';', 1670,
-        '=', 1462,
-        '>', 350,
-        '[', 1822,
-      );
-      if (lookahead == '\\') SKIP(1299);
-      if (lookahead == ']') ADVANCE(1823);
+    case 1281:
+      if (eof) ADVANCE(1282);
+      if (lookahead == '!') ADVANCE(2649);
+      if (lookahead == '#') ADVANCE(358);
+      if (lookahead == '&') ADVANCE(1366);
+      if (lookahead == '(') ADVANCE(1346);
+      if (lookahead == ')') ADVANCE(1291);
+      if (lookahead == '*') ADVANCE(1352);
+      if (lookahead == '+') ADVANCE(1350);
+      if (lookahead == ',') ADVANCE(1290);
+      if (lookahead == '-') ADVANCE(1351);
+      if (lookahead == '.') ADVANCE(1794);
+      if (lookahead == '/') ADVANCE(1355);
+      if (lookahead == ':') ADVANCE(1430);
+      if (lookahead == ';') ADVANCE(1650);
+      if (lookahead == '=') ADVANCE(1442);
+      if (lookahead == '>') ADVANCE(350);
+      if (lookahead == '[') ADVANCE(1800);
+      if (lookahead == '\\') SKIP(1279)
+      if (lookahead == ']') ADVANCE(1801);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1969);
+          lookahead == 'a') ADVANCE(1947);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(1869);
+          lookahead == 'b') ADVANCE(1847);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1881);
+          lookahead == 'c') ADVANCE(1859);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1906);
+          lookahead == 'd') ADVANCE(1884);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2285);
+          lookahead == 'e') ADVANCE(2263);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1893);
+          lookahead == 'f') ADVANCE(1871);
       if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2438);
+          lookahead == 'g') ADVANCE(2416);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2175);
+          lookahead == 'i') ADVANCE(2153);
       if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2244);
+          lookahead == 'k') ADVANCE(2222);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2127);
+          lookahead == 'l') ADVANCE(2105);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1910);
+          lookahead == 'm') ADVANCE(1888);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1942);
+          lookahead == 'n') ADVANCE(1920);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2472);
+          lookahead == 'o') ADVANCE(2450);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1871);
+          lookahead == 'p') ADVANCE(1849);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1913);
+          lookahead == 'r') ADVANCE(1891);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1886);
+          lookahead == 's') ADVANCE(1864);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1902);
+          lookahead == 't') ADVANCE(1880);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2425);
+          lookahead == 'u') ADVANCE(2403);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1899);
+          lookahead == 'v') ADVANCE(1877);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2209);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') SKIP(1301);
+          lookahead == 'w') ADVANCE(2187);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') SKIP(1281)
       if (lookahead == '$' ||
           ('H' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('h' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1302:
+    case 1282:
       ACCEPT_TOKEN(ts_builtin_sym_end);
       END_STATE();
-    case 1303:
+    case 1283:
       ACCEPT_TOKEN(aux_sym_preproc_include_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1304:
+    case 1284:
       ACCEPT_TOKEN(aux_sym_preproc_include_token2);
-      if (lookahead == '\n') ADVANCE(1304);
+      if (lookahead == '\n') ADVANCE(1284);
       if (lookahead == '\r') ADVANCE(117);
       END_STATE();
-    case 1305:
+    case 1285:
       ACCEPT_TOKEN(aux_sym_preproc_def_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1306:
+    case 1286:
       ACCEPT_TOKEN(aux_sym_preproc_def_token2);
       END_STATE();
-    case 1307:
+    case 1287:
       ACCEPT_TOKEN(anon_sym_LPAREN);
       END_STATE();
-    case 1308:
+    case 1288:
       ACCEPT_TOKEN(anon_sym_LPAREN);
-      if (lookahead == '/') ADVANCE(1820);
+      if (lookahead == '/') ADVANCE(1798);
       END_STATE();
-    case 1309:
+    case 1289:
       ACCEPT_TOKEN(anon_sym_DOT_DOT_DOT);
       END_STATE();
-    case 1310:
+    case 1290:
       ACCEPT_TOKEN(anon_sym_COMMA);
       END_STATE();
-    case 1311:
+    case 1291:
       ACCEPT_TOKEN(anon_sym_RPAREN);
       END_STATE();
-    case 1312:
+    case 1292:
       ACCEPT_TOKEN(aux_sym_preproc_if_token1);
-      if (lookahead == 'd') ADVANCE(1343);
-      if (lookahead == 'n') ADVANCE(1337);
+      if (lookahead == 'd') ADVANCE(1323);
+      if (lookahead == 'n') ADVANCE(1317);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1313:
+    case 1293:
       ACCEPT_TOKEN(aux_sym_preproc_if_token1);
       if (lookahead == 'd') ADVANCE(369);
       if (lookahead == 'n') ADVANCE(362);
       END_STATE();
-    case 1314:
+    case 1294:
       ACCEPT_TOKEN(anon_sym_LF);
-      if (lookahead == '\n') ADVANCE(1314);
+      if (lookahead == '\n') ADVANCE(1294);
       END_STATE();
-    case 1315:
+    case 1295:
       ACCEPT_TOKEN(aux_sym_preproc_if_token2);
       END_STATE();
-    case 1316:
+    case 1296:
       ACCEPT_TOKEN(aux_sym_preproc_if_token2);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1317:
+    case 1297:
       ACCEPT_TOKEN(aux_sym_preproc_ifdef_token1);
       END_STATE();
-    case 1318:
+    case 1298:
       ACCEPT_TOKEN(aux_sym_preproc_ifdef_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1319:
+    case 1299:
       ACCEPT_TOKEN(aux_sym_preproc_ifdef_token2);
       END_STATE();
-    case 1320:
+    case 1300:
       ACCEPT_TOKEN(aux_sym_preproc_ifdef_token2);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1321:
+    case 1301:
       ACCEPT_TOKEN(aux_sym_preproc_else_token1);
       END_STATE();
-    case 1322:
+    case 1302:
       ACCEPT_TOKEN(aux_sym_preproc_else_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1323:
+    case 1303:
       ACCEPT_TOKEN(aux_sym_preproc_elif_token1);
       if (lookahead == 'd') ADVANCE(367);
       if (lookahead == 'n') ADVANCE(361);
       END_STATE();
-    case 1324:
+    case 1304:
       ACCEPT_TOKEN(aux_sym_preproc_elif_token1);
-      if (lookahead == 'd') ADVANCE(1345);
-      if (lookahead == 'n') ADVANCE(1338);
+      if (lookahead == 'd') ADVANCE(1325);
+      if (lookahead == 'n') ADVANCE(1318);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1325:
+    case 1305:
       ACCEPT_TOKEN(aux_sym_preproc_elifdef_token1);
       END_STATE();
-    case 1326:
+    case 1306:
       ACCEPT_TOKEN(aux_sym_preproc_elifdef_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1327:
+    case 1307:
       ACCEPT_TOKEN(aux_sym_preproc_elifdef_token2);
       END_STATE();
-    case 1328:
+    case 1308:
       ACCEPT_TOKEN(aux_sym_preproc_elifdef_token2);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1329:
+    case 1309:
       ACCEPT_TOKEN(sym_preproc_arg);
-      if (lookahead == '\n') SKIP(321);
-      if (lookahead == '\r') ADVANCE(1330);
-      if (lookahead == '/') ADVANCE(1295);
-      if (lookahead == '\\') ADVANCE(1331);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '\n') SKIP(321)
+      if (lookahead == '\r') ADVANCE(1310);
+      if (lookahead == '/') ADVANCE(1275);
+      if (lookahead == '\\') ADVANCE(1312);
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
-    case 1330:
+    case 1310:
       ACCEPT_TOKEN(sym_preproc_arg);
-      if (lookahead == '\n') SKIP(321);
-      if (lookahead == '/') ADVANCE(1295);
-      if (lookahead == '\\') ADVANCE(1331);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '\n') SKIP(321)
+      if (lookahead == '/') ADVANCE(1275);
+      if (lookahead == '\\') ADVANCE(1312);
+      if (lookahead != 0) ADVANCE(1311);
       END_STATE();
-    case 1331:
+    case 1311:
       ACCEPT_TOKEN(sym_preproc_arg);
-      if (lookahead == '\r') ADVANCE(1333);
-      if (lookahead == '/') ADVANCE(1295);
-      if (lookahead == '\\') ADVANCE(1331);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead == '/') ADVANCE(1275);
+      if (lookahead == '\\') ADVANCE(1312);
+      if (lookahead != 0 &&
+          lookahead != '\n') ADVANCE(1311);
       END_STATE();
-    case 1332:
+    case 1312:
       ACCEPT_TOKEN(sym_preproc_arg);
-      if (lookahead == '/') ADVANCE(1295);
-      if (lookahead == '\\') ADVANCE(1331);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(1332);
+          lookahead != '\r' &&
+          lookahead != '/' &&
+          lookahead != '\\') ADVANCE(1311);
+      if (lookahead == '\r') ADVANCE(1313);
+      if (lookahead == '/') ADVANCE(1275);
+      if (lookahead == '\\') ADVANCE(1312);
       END_STATE();
-    case 1333:
+    case 1313:
       ACCEPT_TOKEN(sym_preproc_arg);
-      if (lookahead == '/') ADVANCE(1295);
-      if (lookahead == '\\') ADVANCE(1331);
-      if (lookahead != 0) ADVANCE(1332);
+      if (lookahead != 0 &&
+          lookahead != '/' &&
+          lookahead != '\\') ADVANCE(1311);
+      if (lookahead == '/') ADVANCE(1275);
+      if (lookahead == '\\') ADVANCE(1312);
       END_STATE();
-    case 1334:
+    case 1314:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'c') ADVANCE(1359);
+      if (lookahead == 'c') ADVANCE(1339);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1335:
+    case 1315:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'd') ADVANCE(1357);
+      if (lookahead == 'd') ADVANCE(1337);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1336:
+    case 1316:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'd') ADVANCE(1342);
+      if (lookahead == 'd') ADVANCE(1322);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1337:
+    case 1317:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'd') ADVANCE(1344);
+      if (lookahead == 'd') ADVANCE(1324);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1338:
+    case 1318:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'd') ADVANCE(1346);
+      if (lookahead == 'd') ADVANCE(1326);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1339:
+    case 1319:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1348);
+      if (lookahead == 'e') ADVANCE(1328);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1340:
+    case 1320:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1322);
+      if (lookahead == 'e') ADVANCE(1302);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1341:
+    case 1321:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1305);
+      if (lookahead == 'e') ADVANCE(1285);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1342:
+    case 1322:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1303);
+      if (lookahead == 'e') ADVANCE(1283);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1343:
+    case 1323:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1351);
+      if (lookahead == 'e') ADVANCE(1331);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1344:
+    case 1324:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1352);
+      if (lookahead == 'e') ADVANCE(1332);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1345:
+    case 1325:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1353);
+      if (lookahead == 'e') ADVANCE(1333);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1346:
+    case 1326:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'e') ADVANCE(1354);
+      if (lookahead == 'e') ADVANCE(1334);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1347:
+    case 1327:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1312);
-      if (lookahead == 'n') ADVANCE(1334);
+      if (lookahead == 'f') ADVANCE(1292);
+      if (lookahead == 'n') ADVANCE(1314);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1348:
+    case 1328:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1355);
+      if (lookahead == 'f') ADVANCE(1335);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1349:
+    case 1329:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1324);
+      if (lookahead == 'f') ADVANCE(1304);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1350:
+    case 1330:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1316);
+      if (lookahead == 'f') ADVANCE(1296);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1351:
+    case 1331:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1318);
+      if (lookahead == 'f') ADVANCE(1298);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1352:
+    case 1332:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1320);
+      if (lookahead == 'f') ADVANCE(1300);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1353:
+    case 1333:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1326);
+      if (lookahead == 'f') ADVANCE(1306);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1354:
+    case 1334:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'f') ADVANCE(1328);
+      if (lookahead == 'f') ADVANCE(1308);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1355:
+    case 1335:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'i') ADVANCE(1362);
+      if (lookahead == 'i') ADVANCE(1342);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1356:
+    case 1336:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'i') ADVANCE(1349);
-      if (lookahead == 's') ADVANCE(1340);
+      if (lookahead == 'i') ADVANCE(1329);
+      if (lookahead == 's') ADVANCE(1320);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1357:
+    case 1337:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'i') ADVANCE(1350);
+      if (lookahead == 'i') ADVANCE(1330);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1358:
+    case 1338:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'l') ADVANCE(1356);
-      if (lookahead == 'n') ADVANCE(1335);
+      if (lookahead == 'l') ADVANCE(1336);
+      if (lookahead == 'n') ADVANCE(1315);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1359:
+    case 1339:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'l') ADVANCE(1363);
+      if (lookahead == 'l') ADVANCE(1343);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1360:
+    case 1340:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'n') ADVANCE(1335);
+      if (lookahead == 'n') ADVANCE(1315);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1361:
+    case 1341:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'n') ADVANCE(1334);
+      if (lookahead == 'n') ADVANCE(1314);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1362:
+    case 1342:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'n') ADVANCE(1341);
+      if (lookahead == 'n') ADVANCE(1321);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1363:
+    case 1343:
       ACCEPT_TOKEN(sym_preproc_directive);
-      if (lookahead == 'u') ADVANCE(1336);
+      if (lookahead == 'u') ADVANCE(1316);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1364:
+    case 1344:
       ACCEPT_TOKEN(sym_preproc_directive);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1364);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1344);
       END_STATE();
-    case 1365:
+    case 1345:
       ACCEPT_TOKEN(anon_sym_LPAREN2);
       END_STATE();
-    case 1366:
+    case 1346:
       ACCEPT_TOKEN(anon_sym_LPAREN2);
-      if (lookahead == '/') ADVANCE(1820);
+      if (lookahead == '/') ADVANCE(1798);
       END_STATE();
-    case 1367:
+    case 1347:
       ACCEPT_TOKEN(anon_sym_defined);
       END_STATE();
-    case 1368:
+    case 1348:
       ACCEPT_TOKEN(anon_sym_defined);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1369:
+    case 1349:
       ACCEPT_TOKEN(sym_preproc_comment);
       if (lookahead == '*') ADVANCE(325);
       if (lookahead != 0 &&
           lookahead != '\n') ADVANCE(326);
       END_STATE();
-    case 1370:
+    case 1350:
       ACCEPT_TOKEN(anon_sym_PLUS);
       END_STATE();
-    case 1371:
+    case 1351:
       ACCEPT_TOKEN(anon_sym_DASH);
       END_STATE();
-    case 1372:
+    case 1352:
       ACCEPT_TOKEN(anon_sym_STAR);
       END_STATE();
-    case 1373:
+    case 1353:
       ACCEPT_TOKEN(anon_sym_STAR);
-      if (lookahead == '*') ADVANCE(1809);
+      if (lookahead == '*') ADVANCE(1787);
       END_STATE();
-    case 1374:
+    case 1354:
       ACCEPT_TOKEN(anon_sym_SLASH);
       END_STATE();
-    case 1375:
+    case 1355:
       ACCEPT_TOKEN(anon_sym_SLASH);
-      if (lookahead == ')') ADVANCE(1821);
+      if (lookahead == ')') ADVANCE(1799);
       if (lookahead == '*') ADVANCE(326);
       END_STATE();
-    case 1376:
+    case 1356:
       ACCEPT_TOKEN(anon_sym_SLASH);
-      if (lookahead == ')') ADVANCE(1821);
+      if (lookahead == ')') ADVANCE(1799);
       if (lookahead == '*') ADVANCE(326);
-      if (lookahead == '/') ADVANCE(1808);
-      if (lookahead == '=') ADVANCE(1806);
+      if (lookahead == '/') ADVANCE(1786);
+      if (lookahead == '=') ADVANCE(1784);
       END_STATE();
-    case 1377:
+    case 1357:
       ACCEPT_TOKEN(anon_sym_SLASH);
-      if (lookahead == ')') ADVANCE(1821);
-      if (lookahead == '/') ADVANCE(1808);
-      if (lookahead == '=') ADVANCE(1806);
+      if (lookahead == ')') ADVANCE(1799);
+      if (lookahead == '/') ADVANCE(1786);
+      if (lookahead == '=') ADVANCE(1784);
       END_STATE();
-    case 1378:
+    case 1358:
       ACCEPT_TOKEN(anon_sym_SLASH);
       if (lookahead == '*') ADVANCE(326);
       END_STATE();
-    case 1379:
+    case 1359:
       ACCEPT_TOKEN(anon_sym_SLASH);
       if (lookahead == '*') ADVANCE(326);
-      if (lookahead == '/') ADVANCE(1808);
-      if (lookahead == '=') ADVANCE(1806);
+      if (lookahead == '/') ADVANCE(1786);
+      if (lookahead == '=') ADVANCE(1784);
       END_STATE();
-    case 1380:
+    case 1360:
       ACCEPT_TOKEN(anon_sym_SLASH);
-      if (lookahead == '/') ADVANCE(1808);
-      if (lookahead == '=') ADVANCE(1806);
+      if (lookahead == '/') ADVANCE(1786);
+      if (lookahead == '=') ADVANCE(1784);
       END_STATE();
-    case 1381:
+    case 1361:
       ACCEPT_TOKEN(anon_sym_PERCENT);
       END_STATE();
-    case 1382:
+    case 1362:
       ACCEPT_TOKEN(anon_sym_PIPE_PIPE);
       END_STATE();
-    case 1383:
+    case 1363:
       ACCEPT_TOKEN(anon_sym_AMP_AMP);
       END_STATE();
-    case 1384:
+    case 1364:
       ACCEPT_TOKEN(anon_sym_PIPE);
-      if (lookahead == '|') ADVANCE(1382);
+      if (lookahead == '|') ADVANCE(1362);
       END_STATE();
-    case 1385:
+    case 1365:
       ACCEPT_TOKEN(anon_sym_CARET);
       END_STATE();
-    case 1386:
+    case 1366:
       ACCEPT_TOKEN(anon_sym_AMP);
       END_STATE();
-    case 1387:
+    case 1367:
       ACCEPT_TOKEN(anon_sym_AMP);
-      if (lookahead == '&') ADVANCE(1383);
+      if (lookahead == '&') ADVANCE(1363);
       END_STATE();
-    case 1388:
+    case 1368:
       ACCEPT_TOKEN(anon_sym_AMP);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
-    case 1389:
+    case 1369:
       ACCEPT_TOKEN(anon_sym_EQ_EQ);
       END_STATE();
-    case 1390:
+    case 1370:
       ACCEPT_TOKEN(anon_sym_BANG_EQ);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2671);
+          lookahead != '\n') ADVANCE(2649);
       END_STATE();
-    case 1391:
+    case 1371:
       ACCEPT_TOKEN(anon_sym_GT);
-      if (lookahead == '=') ADVANCE(1395);
+      if (lookahead == '=') ADVANCE(1375);
       END_STATE();
-    case 1392:
+    case 1372:
       ACCEPT_TOKEN(anon_sym_GT);
-      if (lookahead == '=') ADVANCE(1395);
-      if (lookahead == '>') ADVANCE(1404);
+      if (lookahead == '=') ADVANCE(1375);
+      if (lookahead == '>') ADVANCE(1384);
       END_STATE();
-    case 1393:
+    case 1373:
       ACCEPT_TOKEN(anon_sym_GT);
-      if (lookahead == '=') ADVANCE(1395);
-      if (lookahead == '>') ADVANCE(1403);
+      if (lookahead == '=') ADVANCE(1375);
+      if (lookahead == '>') ADVANCE(1383);
       END_STATE();
-    case 1394:
+    case 1374:
       ACCEPT_TOKEN(anon_sym_GT);
-      if (lookahead == '=') ADVANCE(1395);
+      if (lookahead == '=') ADVANCE(1375);
       if (lookahead == '>') ADVANCE(347);
       END_STATE();
-    case 1395:
+    case 1375:
       ACCEPT_TOKEN(anon_sym_GT_EQ);
       END_STATE();
-    case 1396:
+    case 1376:
       ACCEPT_TOKEN(anon_sym_LT_EQ);
       END_STATE();
-    case 1397:
+    case 1377:
       ACCEPT_TOKEN(anon_sym_LT);
-      if (lookahead == '<') ADVANCE(1402);
-      if (lookahead == '=') ADVANCE(1396);
+      if (lookahead == '<') ADVANCE(1382);
+      if (lookahead == '=') ADVANCE(1376);
       END_STATE();
-    case 1398:
+    case 1378:
       ACCEPT_TOKEN(anon_sym_LT);
       if (lookahead == '<') ADVANCE(345);
-      if (lookahead == '=') ADVANCE(1396);
+      if (lookahead == '=') ADVANCE(1376);
       END_STATE();
-    case 1399:
+    case 1379:
       ACCEPT_TOKEN(anon_sym_LT);
-      if (lookahead == '<') ADVANCE(1401);
-      if (lookahead == '=') ADVANCE(1396);
+      if (lookahead == '<') ADVANCE(1381);
+      if (lookahead == '=') ADVANCE(1376);
       END_STATE();
-    case 1400:
+    case 1380:
       ACCEPT_TOKEN(anon_sym_LT);
-      if (lookahead == '=') ADVANCE(1396);
+      if (lookahead == '=') ADVANCE(1376);
       END_STATE();
-    case 1401:
+    case 1381:
       ACCEPT_TOKEN(anon_sym_LT_LT);
       END_STATE();
-    case 1402:
+    case 1382:
       ACCEPT_TOKEN(anon_sym_LT_LT);
-      if (lookahead == '<') ADVANCE(1678);
+      if (lookahead == '<') ADVANCE(1658);
       END_STATE();
-    case 1403:
+    case 1383:
       ACCEPT_TOKEN(anon_sym_GT_GT);
       END_STATE();
-    case 1404:
+    case 1384:
       ACCEPT_TOKEN(anon_sym_GT_GT);
-      if (lookahead == '>') ADVANCE(1679);
+      if (lookahead == '>') ADVANCE(1659);
       END_STATE();
-    case 1405:
+    case 1385:
       ACCEPT_TOKEN(sym_system_lib_string);
       END_STATE();
-    case 1406:
+    case 1386:
       ACCEPT_TOKEN(sym_system_lib_string);
-      if (lookahead == '>') ADVANCE(1405);
+      if (lookahead == '>') ADVANCE(1385);
       if (lookahead == '\\') ADVANCE(349);
       if (lookahead != 0 &&
           lookahead != '\n') ADVANCE(348);
       END_STATE();
-    case 1407:
+    case 1387:
       ACCEPT_TOKEN(aux_sym_program_statement_token1);
       END_STATE();
-    case 1408:
+    case 1388:
       ACCEPT_TOKEN(aux_sym_program_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1409:
+    case 1389:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       END_STATE();
-    case 1410:
+    case 1390:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2571);
+          lookahead == 'a') ADVANCE(2549);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1411:
+    case 1391:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
-      ADVANCE_MAP(
-        'A', 1136,
-        'a', 1136,
-        'B', 888,
-        'b', 888,
-        'C', 1114,
-        'c', 1114,
-        'D', 990,
-        'd', 990,
-        'E', 953,
-        'e', 953,
-        'F', 801,
-        'f', 801,
-        'I', 711,
-        'i', 711,
-        'M', 1029,
-        'm', 1029,
-        'P', 1075,
-        'p', 1075,
-        'S', 695,
-        's', 695,
-        'T', 660,
-        't', 660,
-        'W', 742,
-        'w', 742,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1122);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(877);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1101);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(979);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(941);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(790);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(705);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1017);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1063);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(690);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(655);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(734);
       END_STATE();
-    case 1412:
+    case 1392:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2360);
+          lookahead == 'b') ADVANCE(2338);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1413:
+    case 1393:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2538);
+          lookahead == 'c') ADVANCE(2516);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1414:
+    case 1394:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(990);
+          lookahead == 'd') ADVANCE(979);
       END_STATE();
-    case 1415:
+    case 1395:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2441);
+          lookahead == 'd') ADVANCE(2419);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2265);
+          lookahead == 'f') ADVANCE(2243);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1416:
+    case 1396:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2441);
+          lookahead == 'd') ADVANCE(2419);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1417:
+    case 1397:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(953);
+          lookahead == 'e') ADVANCE(941);
       END_STATE();
-    case 1418:
+    case 1398:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2266);
+          lookahead == 'f') ADVANCE(2244);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1419:
+    case 1399:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2265);
+          lookahead == 'f') ADVANCE(2243);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1420:
+    case 1400:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2509);
+          lookahead == 'p') ADVANCE(2487);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1421:
+    case 1401:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2533);
+          lookahead == 'p') ADVANCE(2511);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1422:
+    case 1402:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2627);
+          lookahead == 's') ADVANCE(2605);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1423:
+    case 1403:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2169);
+          lookahead == 's') ADVANCE(2147);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1424:
+    case 1404:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2149);
+          lookahead == 't') ADVANCE(2127);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1425:
+    case 1405:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2213);
+          lookahead == 'w') ADVANCE(2191);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1426:
+    case 1406:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2267);
+          lookahead == 'f') ADVANCE(2245);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1427:
+    case 1407:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1269);
+          lookahead == 'f') ADVANCE(1252);
       END_STATE();
-    case 1428:
+    case 1408:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2469);
+          lookahead == 'm') ADVANCE(2448);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1429:
+    case 1409:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2628);
+          lookahead == 's') ADVANCE(2606);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1430:
+    case 1410:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2186);
+          lookahead == 'i') ADVANCE(2164);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1431:
+    case 1411:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2185);
+          lookahead == 'i') ADVANCE(2163);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1432:
+    case 1412:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(710);
+          lookahead == 'i') ADVANCE(704);
       END_STATE();
-    case 1433:
+    case 1413:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(983);
+          lookahead == 'i') ADVANCE(972);
       END_STATE();
-    case 1434:
+    case 1414:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1029);
+          lookahead == 'm') ADVANCE(1017);
       END_STATE();
-    case 1435:
+    case 1415:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1080);
+          lookahead == 'p') ADVANCE(1070);
       END_STATE();
-    case 1436:
+    case 1416:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1116);
+          lookahead == 'p') ADVANCE(1103);
       END_STATE();
-    case 1437:
+    case 1417:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1270);
+          lookahead == 's') ADVANCE(1222);
       END_STATE();
-    case 1438:
+    case 1418:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1239);
+          lookahead == 's') ADVANCE(1253);
       END_STATE();
-    case 1439:
+    case 1419:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(694);
+          lookahead == 's') ADVANCE(689);
       END_STATE();
-    case 1440:
+    case 1420:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1288);
+          lookahead == 't') ADVANCE(1269);
       END_STATE();
-    case 1441:
+    case 1421:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token1);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(742);
+          lookahead == 'w') ADVANCE(734);
       END_STATE();
-    case 1442:
+    case 1422:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token2);
       END_STATE();
-    case 1443:
+    case 1423:
       ACCEPT_TOKEN(aux_sym_end_program_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1444:
+    case 1424:
       ACCEPT_TOKEN(aux_sym_module_statement_token1);
       END_STATE();
-    case 1445:
+    case 1425:
       ACCEPT_TOKEN(aux_sym_module_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1446:
+    case 1426:
       ACCEPT_TOKEN(aux_sym_end_module_statement_token1);
       END_STATE();
-    case 1447:
+    case 1427:
       ACCEPT_TOKEN(aux_sym_end_module_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1448:
+    case 1428:
       ACCEPT_TOKEN(aux_sym_submodule_statement_token1);
       END_STATE();
-    case 1449:
+    case 1429:
       ACCEPT_TOKEN(aux_sym_submodule_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1450:
+    case 1430:
       ACCEPT_TOKEN(anon_sym_COLON);
       END_STATE();
-    case 1451:
+    case 1431:
       ACCEPT_TOKEN(anon_sym_COLON);
-      if (lookahead == ':') ADVANCE(1505);
+      if (lookahead == ':') ADVANCE(1485);
       END_STATE();
-    case 1452:
+    case 1432:
       ACCEPT_TOKEN(aux_sym_end_submodule_statement_token1);
       END_STATE();
-    case 1453:
+    case 1433:
       ACCEPT_TOKEN(aux_sym_end_submodule_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1454:
+    case 1434:
       ACCEPT_TOKEN(aux_sym_interface_statement_token1);
       END_STATE();
-    case 1455:
+    case 1435:
       ACCEPT_TOKEN(aux_sym_interface_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1456:
+    case 1436:
       ACCEPT_TOKEN(aux_sym_end_interface_statement_token1);
       END_STATE();
-    case 1457:
+    case 1437:
       ACCEPT_TOKEN(aux_sym_end_interface_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1458:
+    case 1438:
       ACCEPT_TOKEN(aux_sym_assignment_token1);
       END_STATE();
-    case 1459:
+    case 1439:
       ACCEPT_TOKEN(aux_sym_assignment_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1460:
+    case 1440:
       ACCEPT_TOKEN(anon_sym_EQ);
-      if (lookahead == '=') ADVANCE(1389);
+      if (lookahead == '=') ADVANCE(1369);
       END_STATE();
-    case 1461:
+    case 1441:
       ACCEPT_TOKEN(anon_sym_EQ);
-      if (lookahead == '=') ADVANCE(1389);
-      if (lookahead == '>') ADVANCE(1508);
+      if (lookahead == '=') ADVANCE(1369);
+      if (lookahead == '>') ADVANCE(1488);
       END_STATE();
-    case 1462:
+    case 1442:
       ACCEPT_TOKEN(anon_sym_EQ);
-      if (lookahead == '>') ADVANCE(1508);
+      if (lookahead == '>') ADVANCE(1488);
       END_STATE();
-    case 1463:
+    case 1443:
       ACCEPT_TOKEN(aux_sym_operator_token1);
       END_STATE();
-    case 1464:
+    case 1444:
       ACCEPT_TOKEN(aux_sym_operator_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1465:
+    case 1445:
       ACCEPT_TOKEN(aux_sym_operator_token2);
-      if (lookahead == '\n') ADVANCE(1468);
-      if (lookahead == '\r') ADVANCE(1466);
+      if (lookahead == '\n') ADVANCE(1448);
+      if (lookahead == '\r') ADVANCE(1446);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
-    case 1466:
+    case 1446:
       ACCEPT_TOKEN(aux_sym_operator_token2);
-      if (lookahead == '\n') ADVANCE(1468);
+      if (lookahead == '\n') ADVANCE(1448);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
-    case 1467:
+    case 1447:
       ACCEPT_TOKEN(aux_sym_operator_token2);
-      if (lookahead == '\n') ADVANCE(1469);
+      if (lookahead == '\n') ADVANCE(1449);
       if (lookahead == '(' ||
-          lookahead == ')') ADVANCE(2671);
-      if (lookahead != 0) ADVANCE(1467);
+          lookahead == ')') ADVANCE(2649);
+      if (lookahead != 0) ADVANCE(1447);
       END_STATE();
-    case 1468:
+    case 1448:
       ACCEPT_TOKEN(aux_sym_operator_token2);
-      if (lookahead == '!') ADVANCE(1467);
-      if (lookahead == '&') ADVANCE(1388);
-      if (lookahead == '\\') ADVANCE(1465);
-      if (('\t' <= lookahead && lookahead <= '\r') ||
-          lookahead == ' ') ADVANCE(1468);
+      if (lookahead == '!') ADVANCE(1447);
+      if (lookahead == '&') ADVANCE(1368);
+      if (lookahead == '\\') ADVANCE(1445);
+      if (lookahead == '\t' ||
+          lookahead == '\n' ||
+          lookahead == '\r' ||
+          lookahead == ' ') ADVANCE(1448);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
-    case 1469:
+    case 1449:
       ACCEPT_TOKEN(aux_sym_operator_token2);
       if (lookahead != 0 &&
           lookahead != '(' &&
-          lookahead != ')') ADVANCE(1469);
+          lookahead != ')') ADVANCE(1449);
       END_STATE();
-    case 1470:
+    case 1450:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token1);
       END_STATE();
-    case 1471:
+    case 1451:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1472:
+    case 1452:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token2);
       END_STATE();
-    case 1473:
+    case 1453:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1474:
+    case 1454:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token3);
       END_STATE();
-    case 1475:
+    case 1455:
       ACCEPT_TOKEN(aux_sym_defined_io_procedure_token4);
       END_STATE();
-    case 1476:
+    case 1456:
       ACCEPT_TOKEN(aux_sym_subroutine_statement_token1);
       END_STATE();
-    case 1477:
+    case 1457:
       ACCEPT_TOKEN(aux_sym_subroutine_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1478:
+    case 1458:
       ACCEPT_TOKEN(aux_sym_end_subroutine_statement_token1);
       END_STATE();
-    case 1479:
+    case 1459:
       ACCEPT_TOKEN(aux_sym_end_subroutine_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1480:
+    case 1460:
       ACCEPT_TOKEN(aux_sym_module_procedure_statement_token1);
       END_STATE();
-    case 1481:
+    case 1461:
       ACCEPT_TOKEN(aux_sym_module_procedure_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1482:
+    case 1462:
       ACCEPT_TOKEN(aux_sym_end_module_procedure_statement_token1);
       END_STATE();
-    case 1483:
+    case 1463:
       ACCEPT_TOKEN(aux_sym_end_module_procedure_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1484:
+    case 1464:
       ACCEPT_TOKEN(aux_sym_function_statement_token1);
       END_STATE();
-    case 1485:
+    case 1465:
       ACCEPT_TOKEN(aux_sym_function_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1486:
+    case 1466:
       ACCEPT_TOKEN(aux_sym_language_binding_token1);
       END_STATE();
-    case 1487:
+    case 1467:
       ACCEPT_TOKEN(aux_sym_language_binding_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1488:
+    case 1468:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token1);
       END_STATE();
-    case 1489:
+    case 1469:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1490:
+    case 1470:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token2);
       END_STATE();
-    case 1491:
+    case 1471:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token3);
       END_STATE();
-    case 1492:
+    case 1472:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1493:
+    case 1473:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token4);
       END_STATE();
-    case 1494:
+    case 1474:
       ACCEPT_TOKEN(aux_sym_procedure_attributes_token5);
       END_STATE();
-    case 1495:
+    case 1475:
       ACCEPT_TOKEN(aux_sym_end_function_statement_token1);
       END_STATE();
-    case 1496:
+    case 1476:
       ACCEPT_TOKEN(aux_sym_end_function_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1497:
+    case 1477:
       ACCEPT_TOKEN(aux_sym_function_result_token1);
       END_STATE();
-    case 1498:
+    case 1478:
       ACCEPT_TOKEN(aux_sym_contains_statement_token1);
       END_STATE();
-    case 1499:
+    case 1479:
       ACCEPT_TOKEN(aux_sym_contains_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1500:
+    case 1480:
       ACCEPT_TOKEN(aux_sym_use_statement_token1);
       END_STATE();
-    case 1501:
+    case 1481:
       ACCEPT_TOKEN(aux_sym_use_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1502:
+    case 1482:
       ACCEPT_TOKEN(aux_sym_use_statement_token2);
       END_STATE();
-    case 1503:
+    case 1483:
       ACCEPT_TOKEN(aux_sym_use_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1504:
+    case 1484:
       ACCEPT_TOKEN(aux_sym_use_statement_token3);
       END_STATE();
-    case 1505:
+    case 1485:
       ACCEPT_TOKEN(anon_sym_COLON_COLON);
       END_STATE();
-    case 1506:
+    case 1486:
       ACCEPT_TOKEN(aux_sym_included_items_token1);
       END_STATE();
-    case 1507:
+    case 1487:
       ACCEPT_TOKEN(aux_sym_included_items_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1508:
+    case 1488:
       ACCEPT_TOKEN(anon_sym_EQ_GT);
       END_STATE();
-    case 1509:
+    case 1489:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token1);
       END_STATE();
-    case 1510:
+    case 1490:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1511:
+    case 1491:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token2);
       END_STATE();
-    case 1512:
+    case 1492:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       END_STATE();
-    case 1513:
+    case 1493:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1122);
+          lookahead == 'i') ADVANCE(1109);
       END_STATE();
-    case 1514:
+    case 1494:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1122);
+          lookahead == 'i') ADVANCE(1109);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(713);
+          lookahead == 'o') ADVANCE(707);
       END_STATE();
-    case 1515:
+    case 1495:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2544);
+          lookahead == 'i') ADVANCE(2522);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1516:
+    case 1496:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(713);
+          lookahead == 'o') ADVANCE(707);
       END_STATE();
-    case 1517:
+    case 1497:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2188);
+          lookahead == 'o') ADVANCE(2166);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1518:
+    case 1498:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1519:
+    case 1499:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token4);
       END_STATE();
-    case 1520:
+    case 1500:
       ACCEPT_TOKEN(aux_sym_implicit_statement_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1521:
+    case 1501:
       ACCEPT_TOKEN(aux_sym_save_statement_token1);
       END_STATE();
-    case 1522:
+    case 1502:
       ACCEPT_TOKEN(aux_sym_save_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1523:
+    case 1503:
       ACCEPT_TOKEN(aux_sym_private_statement_token1);
       END_STATE();
-    case 1524:
+    case 1504:
       ACCEPT_TOKEN(aux_sym_private_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1525:
+    case 1505:
       ACCEPT_TOKEN(aux_sym_public_statement_token1);
       END_STATE();
-    case 1526:
+    case 1506:
       ACCEPT_TOKEN(aux_sym_public_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1527:
+    case 1507:
       ACCEPT_TOKEN(aux_sym_namelist_statement_token1);
       END_STATE();
-    case 1528:
+    case 1508:
       ACCEPT_TOKEN(aux_sym_namelist_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1529:
+    case 1509:
       ACCEPT_TOKEN(aux_sym_common_statement_token1);
       END_STATE();
-    case 1530:
+    case 1510:
       ACCEPT_TOKEN(aux_sym_common_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1531:
+    case 1511:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       END_STATE();
-    case 1532:
+    case 1512:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'E', 709,
-        'e', 351,
-        'A', 1192,
-        'a', 1192,
-        'I', 907,
-        'i', 907,
-        'O', 1698,
-        'o', 1698,
-      );
+      if (lookahead == 'E') ADVANCE(703);
+      if (lookahead == 'e') ADVANCE(351);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1177);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(896);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1678);
       END_STATE();
-    case 1533:
+    case 1513:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 1192,
-        'a', 1192,
-        'E', 709,
-        'e', 709,
-        'I', 907,
-        'i', 907,
-        'O', 1698,
-        'o', 1698,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1177);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(703);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(896);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1678);
       END_STATE();
-    case 1534:
+    case 1514:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 484,
-        'a', 484,
-        'I', 944,
-        'i', 944,
-        'L', 1018,
-        'l', 1018,
-        'Y', 1190,
-        'y', 1190,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(481);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(932);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1005);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1175);
       END_STATE();
-    case 1535:
+    case 1515:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 842,
-        'a', 842,
-        'H', 384,
-        'h', 384,
-        'L', 388,
-        'l', 388,
-        'O', 558,
-        'o', 558,
-        'R', 757,
-        'r', 757,
-        'Y', 496,
-        'y', 496,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(831);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(384);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(389);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(555);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(748);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(493);
       END_STATE();
-    case 1536:
+    case 1516:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 765,
-        'a', 765,
-        'I', 971,
-        'i', 971,
-        'O', 1053,
-        'o', 1053,
-        'U', 943,
-        'u', 943,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(756);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(960);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1041);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(931);
       END_STATE();
-    case 1537:
+    case 1517:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 1070,
-        'a', 1070,
-        'I', 972,
-        'i', 972,
-        'O', 787,
-        'o', 787,
-        'R', 646,
-        'r', 646,
-        'U', 473,
-        'u', 473,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1059);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(961);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(776);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(642);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(470);
       END_STATE();
-    case 1538:
+    case 1518:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 1273,
-        'a', 1273,
-        'E', 847,
-        'e', 847,
-        'H', 398,
-        'h', 398,
-        'I', 898,
-        'i', 898,
-        'T', 463,
-        't', 463,
-        'U', 471,
-        'u', 471,
-        'Y', 946,
-        'y', 946,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1255);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(836);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(399);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(887);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(461);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(468);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(934);
       END_STATE();
-    case 1539:
+    case 1519:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(881);
+          lookahead == 'a') ADVANCE(870);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(841);
+          lookahead == 'o') ADVANCE(830);
       END_STATE();
-    case 1540:
+    case 1520:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'A', 1097,
-        'a', 1097,
-        'E', 391,
-        'e', 391,
-        'H', 653,
-        'h', 653,
-        'O', 1688,
-        'o', 1688,
-        'Y', 1039,
-        'y', 1039,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1085);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(393);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(648);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1668);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1027);
       END_STATE();
-    case 1541:
+    case 1521:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(945);
+          lookahead == 'a') ADVANCE(933);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(906);
+          lookahead == 'e') ADVANCE(895);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(557);
+          lookahead == 'o') ADVANCE(554);
       END_STATE();
-    case 1542:
+    case 1522:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(939);
+          lookahead == 'a') ADVANCE(928);
       if (lookahead == 'E' ||
           lookahead == 'e') ADVANCE(386);
       END_STATE();
-    case 1543:
+    case 1523:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(904);
+          lookahead == 'a') ADVANCE(893);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(926);
+          lookahead == 'o') ADVANCE(914);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(845);
+          lookahead == 'u') ADVANCE(834);
       END_STATE();
-    case 1544:
+    case 1524:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(770);
+          lookahead == 'a') ADVANCE(761);
       if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(682);
+          lookahead == 'h') ADVANCE(677);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(772);
+          lookahead == 'r') ADVANCE(763);
       END_STATE();
-    case 1545:
+    case 1525:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'B', 1152,
-        'b', 1152,
-        'L', 820,
-        'l', 820,
-        'S', 1117,
-        's', 1117,
-        'T', 1193,
-        't', 1193,
-        'U', 1189,
-        'u', 1189,
-      );
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(1137);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(809);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1104);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1178);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1174);
       END_STATE();
-    case 1546:
+    case 1526:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'E', 951,
-        'e', 951,
-        'L', 995,
-        'l', 995,
-        'O', 1686,
-        'o', 1686,
-        'R', 750,
-        'r', 750,
-      );
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(939);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(983);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1666);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(742);
       END_STATE();
-    case 1547:
+    case 1527:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(924);
+          lookahead == 'e') ADVANCE(912);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(485);
+          lookahead == 'o') ADVANCE(482);
       END_STATE();
-    case 1548:
+    case 1528:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'F', 1713,
-        'f', 1713,
-        'M', 385,
-        'm', 385,
-        'N', 1634,
-        'n', 1634,
-        'S', 1750,
-        's', 1750,
-      );
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1693);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(385);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1614);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1730);
       END_STATE();
-    case 1549:
+    case 1529:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(947);
+          lookahead == 'i') ADVANCE(935);
       END_STATE();
-    case 1550:
+    case 1530:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
-      ADVANCE_MAP(
-        'L', 699,
-        'l', 699,
-        'N', 531,
-        'n', 531,
-        'Q', 1238,
-        'q', 1238,
-        'R', 1064,
-        'r', 1064,
-        'V', 652,
-        'v', 652,
-        'X', 759,
-        'x', 759,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(528);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(1221);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1052);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(647);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(750);
       END_STATE();
-    case 1551:
+    case 1531:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(718);
+          lookahead == 'n') ADVANCE(712);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(577);
+          lookahead == 's') ADVANCE(573);
       END_STATE();
-    case 1552:
+    case 1532:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(821);
+          lookahead == 'n') ADVANCE(810);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(639);
+          lookahead == 'p') ADVANCE(636);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1161);
+          lookahead == 'u') ADVANCE(1146);
       END_STATE();
-    case 1553:
+    case 1533:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1135);
+          lookahead == 'o') ADVANCE(1121);
       END_STATE();
-    case 1554:
+    case 1534:
       ACCEPT_TOKEN(aux_sym_implicit_range_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(767);
+          lookahead == 'u') ADVANCE(758);
       END_STATE();
-    case 1555:
+    case 1535:
       ACCEPT_TOKEN(aux_sym_import_statement_token1);
       END_STATE();
-    case 1556:
+    case 1536:
       ACCEPT_TOKEN(aux_sym_import_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1557:
+    case 1537:
       ACCEPT_TOKEN(aux_sym__import_names_token1);
       END_STATE();
-    case 1558:
+    case 1538:
       ACCEPT_TOKEN(aux_sym__import_names_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(518);
+          lookahead == 'o') ADVANCE(515);
       END_STATE();
-    case 1559:
+    case 1539:
       ACCEPT_TOKEN(aux_sym_derived_type_definition_token1);
       END_STATE();
-    case 1560:
+    case 1540:
       ACCEPT_TOKEN(aux_sym_derived_type_definition_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1561:
+    case 1541:
       ACCEPT_TOKEN(aux_sym_abstract_specifier_token1);
       END_STATE();
-    case 1562:
+    case 1542:
       ACCEPT_TOKEN(aux_sym_abstract_specifier_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1563:
+    case 1543:
       ACCEPT_TOKEN(aux_sym_base_type_specifier_token1);
       END_STATE();
-    case 1564:
+    case 1544:
       ACCEPT_TOKEN(aux_sym_end_type_statement_token1);
       END_STATE();
-    case 1565:
+    case 1545:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token1);
       END_STATE();
-    case 1566:
+    case 1546:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1567:
+    case 1547:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token2);
       END_STATE();
-    case 1568:
+    case 1548:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1569:
+    case 1549:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token3);
       END_STATE();
-    case 1570:
+    case 1550:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1571:
+    case 1551:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token4);
       END_STATE();
-    case 1572:
+    case 1552:
       ACCEPT_TOKEN(aux_sym_procedure_kind_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1573:
+    case 1553:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token1);
       END_STATE();
-    case 1574:
+    case 1554:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token2);
       END_STATE();
-    case 1575:
+    case 1555:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token3);
       END_STATE();
-    case 1576:
+    case 1556:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token4);
       END_STATE();
-    case 1577:
+    case 1557:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token5);
       END_STATE();
-    case 1578:
+    case 1558:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token6);
       END_STATE();
-    case 1579:
+    case 1559:
       ACCEPT_TOKEN(aux_sym_procedure_attribute_token6);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1580:
+    case 1560:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token1);
       END_STATE();
-    case 1581:
+    case 1561:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1582:
+    case 1562:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token2);
       END_STATE();
-    case 1583:
+    case 1563:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1584:
+    case 1564:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token3);
       END_STATE();
-    case 1585:
+    case 1565:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1586:
+    case 1566:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token4);
       END_STATE();
-    case 1587:
+    case 1567:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1588:
+    case 1568:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token5);
       END_STATE();
-    case 1589:
+    case 1569:
       ACCEPT_TOKEN(aux_sym_variable_attributes_token5);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1590:
+    case 1570:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token1);
       END_STATE();
-    case 1591:
+    case 1571:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1592:
+    case 1572:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token2);
       END_STATE();
-    case 1593:
+    case 1573:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1594:
+    case 1574:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token3);
       END_STATE();
-    case 1595:
+    case 1575:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1596:
+    case 1576:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token4);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1025);
+          lookahead == 'c') ADVANCE(1013);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1093);
+          lookahead == 'p') ADVANCE(1081);
       END_STATE();
-    case 1597:
+    case 1577:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token4);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2467);
+          lookahead == 'c') ADVANCE(2445);
       if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2524);
+          lookahead == 'p') ADVANCE(2502);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1598:
+    case 1578:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1599:
+    case 1579:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token5);
       END_STATE();
-    case 1600:
+    case 1580:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token6);
       END_STATE();
-    case 1601:
+    case 1581:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token6);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1602:
+    case 1582:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token7);
       END_STATE();
-    case 1603:
+    case 1583:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token7);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1604:
+    case 1584:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token8);
       END_STATE();
-    case 1605:
+    case 1585:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token8);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1606:
+    case 1586:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token9);
       END_STATE();
-    case 1607:
+    case 1587:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token9);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1608:
+    case 1588:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token10);
       END_STATE();
-    case 1609:
+    case 1589:
       ACCEPT_TOKEN(aux_sym__intrinsic_type_token10);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1610:
+    case 1590:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       END_STATE();
-    case 1611:
+    case 1591:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(680);
+          lookahead == 'd') ADVANCE(675);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1123);
+          lookahead == 'i') ADVANCE(1110);
       END_STATE();
-    case 1612:
+    case 1592:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(680);
+          lookahead == 'd') ADVANCE(675);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1123);
+          lookahead == 'i') ADVANCE(1110);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(714);
+          lookahead == 'o') ADVANCE(708);
       END_STATE();
-    case 1613:
+    case 1593:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2153);
+          lookahead == 'd') ADVANCE(2131);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2545);
+          lookahead == 'i') ADVANCE(2523);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1614:
+    case 1594:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(714);
+          lookahead == 'o') ADVANCE(708);
       END_STATE();
-    case 1615:
+    case 1595:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2189);
+          lookahead == 'o') ADVANCE(2167);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1616:
+    case 1596:
       ACCEPT_TOKEN(aux_sym_derived_type_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1617:
+    case 1597:
       ACCEPT_TOKEN(aux_sym_declared_type_token1);
       END_STATE();
-    case 1618:
+    case 1598:
       ACCEPT_TOKEN(aux_sym_declared_type_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1619:
+    case 1599:
       ACCEPT_TOKEN(aux_sym_declared_type_token2);
       END_STATE();
-    case 1620:
+    case 1600:
       ACCEPT_TOKEN(aux_sym_declared_type_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1621:
+    case 1601:
       ACCEPT_TOKEN(aux_sym_kind_token1);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1621);
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1601);
       END_STATE();
-    case 1622:
+    case 1602:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token1);
       END_STATE();
-    case 1623:
+    case 1603:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1624:
+    case 1604:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token2);
       END_STATE();
-    case 1625:
+    case 1605:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1626:
+    case 1606:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token3);
       END_STATE();
-    case 1627:
+    case 1607:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1628:
+    case 1608:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token4);
       END_STATE();
-    case 1629:
+    case 1609:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1630:
+    case 1610:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token5);
       END_STATE();
-    case 1631:
+    case 1611:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token5);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1632:
+    case 1612:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token6);
       END_STATE();
-    case 1633:
+    case 1613:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token6);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1634:
+    case 1614:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token7);
-      ADVANCE_MAP(
-        'C', 843,
-        'c', 843,
-        'I', 1200,
-        'i', 1200,
-        'O', 1245,
-        'o', 1245,
-        'Q', 1242,
-        'q', 1242,
-        'T', 581,
-        't', 581,
-      );
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(832);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1185);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1228);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(1225);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(577);
       END_STATE();
-    case 1635:
+    case 1615:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token7);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1245);
+          lookahead == 'o') ADVANCE(1228);
       END_STATE();
-    case 1636:
+    case 1616:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token8);
       END_STATE();
-    case 1637:
+    case 1617:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token9);
       END_STATE();
-    case 1638:
+    case 1618:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token10);
       END_STATE();
-    case 1639:
+    case 1619:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token10);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1640:
+    case 1620:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token11);
       END_STATE();
-    case 1641:
+    case 1621:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token11);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1642:
+    case 1622:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token12);
       END_STATE();
-    case 1643:
+    case 1623:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token12);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1644:
+    case 1624:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token13);
       END_STATE();
-    case 1645:
+    case 1625:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token13);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1646:
+    case 1626:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token14);
       END_STATE();
-    case 1647:
+    case 1627:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token14);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1648:
+    case 1628:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token15);
       END_STATE();
-    case 1649:
+    case 1629:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token15);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1650:
+    case 1630:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token16);
       END_STATE();
-    case 1651:
+    case 1631:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token16);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1652:
+    case 1632:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token17);
       END_STATE();
-    case 1653:
+    case 1633:
       ACCEPT_TOKEN(aux_sym__standalone_type_qualifier_token17);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1654:
+    case 1634:
       ACCEPT_TOKEN(aux_sym_type_qualifier_token1);
       END_STATE();
-    case 1655:
+    case 1635:
       ACCEPT_TOKEN(aux_sym_type_qualifier_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1656:
+    case 1636:
       ACCEPT_TOKEN(aux_sym_type_qualifier_token2);
       END_STATE();
-    case 1657:
+    case 1637:
       ACCEPT_TOKEN(aux_sym_type_qualifier_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1658:
+    case 1638:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token1);
       END_STATE();
-    case 1659:
+    case 1639:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1660:
+    case 1640:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token2);
       END_STATE();
-    case 1661:
+    case 1641:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1662:
+    case 1642:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token3);
       END_STATE();
-    case 1663:
+    case 1643:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1664:
+    case 1644:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token4);
       END_STATE();
-    case 1665:
+    case 1645:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1666:
+    case 1646:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token5);
       END_STATE();
-    case 1667:
+    case 1647:
       ACCEPT_TOKEN(aux_sym_procedure_qualifier_token5);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1668:
+    case 1648:
       ACCEPT_TOKEN(aux_sym_equivalence_statement_token1);
       END_STATE();
-    case 1669:
+    case 1649:
       ACCEPT_TOKEN(aux_sym_equivalence_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1670:
+    case 1650:
       ACCEPT_TOKEN(anon_sym_SEMI);
       END_STATE();
-    case 1671:
+    case 1651:
       ACCEPT_TOKEN(aux_sym_stop_statement_token1);
       END_STATE();
-    case 1672:
+    case 1652:
       ACCEPT_TOKEN(aux_sym_stop_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1673:
+    case 1653:
       ACCEPT_TOKEN(aux_sym_stop_statement_token2);
       END_STATE();
-    case 1674:
+    case 1654:
       ACCEPT_TOKEN(aux_sym_stop_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1675:
+    case 1655:
       ACCEPT_TOKEN(aux_sym_stop_statement_token3);
       END_STATE();
-    case 1676:
+    case 1656:
       ACCEPT_TOKEN(aux_sym_subroutine_call_token1);
       END_STATE();
-    case 1677:
+    case 1657:
       ACCEPT_TOKEN(aux_sym_subroutine_call_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1678:
+    case 1658:
       ACCEPT_TOKEN(anon_sym_LT_LT_LT);
       END_STATE();
-    case 1679:
+    case 1659:
       ACCEPT_TOKEN(anon_sym_GT_GT_GT);
       END_STATE();
-    case 1680:
+    case 1660:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token1);
       END_STATE();
-    case 1681:
+    case 1661:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1682:
+    case 1662:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token2);
       END_STATE();
-    case 1683:
+    case 1663:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1684:
+    case 1664:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token3);
       END_STATE();
-    case 1685:
+    case 1665:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1686:
+    case 1666:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token4);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(989);
+          lookahead == 't') ADVANCE(978);
       END_STATE();
-    case 1687:
+    case 1667:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token4);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2440);
+          lookahead == 't') ADVANCE(2418);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1688:
+    case 1668:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token5);
       END_STATE();
-    case 1689:
+    case 1669:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token6);
       END_STATE();
-    case 1690:
+    case 1670:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token6);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1691:
+    case 1671:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token7);
       END_STATE();
-    case 1692:
+    case 1672:
       ACCEPT_TOKEN(aux_sym_keyword_statement_token7);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1693:
+    case 1673:
       ACCEPT_TOKEN(aux_sym_include_statement_token1);
       END_STATE();
-    case 1694:
+    case 1674:
       ACCEPT_TOKEN(aux_sym_include_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1695:
+    case 1675:
       ACCEPT_TOKEN(aux_sym_data_statement_token1);
       END_STATE();
-    case 1696:
+    case 1676:
       ACCEPT_TOKEN(aux_sym_data_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1697:
+    case 1677:
       ACCEPT_TOKEN(aux_sym_do_loop_statement_token1);
       END_STATE();
-    case 1698:
+    case 1678:
       ACCEPT_TOKEN(aux_sym_do_loop_statement_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(478);
+          lookahead == 'u') ADVANCE(475);
       END_STATE();
-    case 1699:
+    case 1679:
       ACCEPT_TOKEN(aux_sym_do_loop_statement_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1977);
+          lookahead == 'u') ADVANCE(1956);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1700:
+    case 1680:
       ACCEPT_TOKEN(aux_sym_do_loop_statement_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1980);
+          lookahead == 'u') ADVANCE(1958);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1701:
+    case 1681:
       ACCEPT_TOKEN(aux_sym_end_do_loop_statement_token1);
       END_STATE();
-    case 1702:
+    case 1682:
       ACCEPT_TOKEN(aux_sym_end_do_loop_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1703:
+    case 1683:
       ACCEPT_TOKEN(aux_sym_while_statement_token1);
       END_STATE();
-    case 1704:
+    case 1684:
       ACCEPT_TOKEN(aux_sym_while_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1705:
+    case 1685:
       ACCEPT_TOKEN(aux_sym_concurrent_header_token1);
       END_STATE();
-    case 1706:
+    case 1686:
       ACCEPT_TOKEN(aux_sym_concurrent_header_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1707:
+    case 1687:
       ACCEPT_TOKEN(aux_sym_concurrent_locality_token1);
-      if (lookahead == '_') ADVANCE(780);
+      if (lookahead == '_') ADVANCE(771);
       END_STATE();
-    case 1708:
+    case 1688:
       ACCEPT_TOKEN(aux_sym_concurrent_locality_token2);
       END_STATE();
-    case 1709:
+    case 1689:
       ACCEPT_TOKEN(aux_sym_concurrent_locality_token3);
       END_STATE();
-    case 1710:
+    case 1690:
       ACCEPT_TOKEN(aux_sym_concurrent_locality_token4);
       END_STATE();
-    case 1711:
+    case 1691:
       ACCEPT_TOKEN(aux_sym_binary_op_token1);
       END_STATE();
-    case 1712:
+    case 1692:
       ACCEPT_TOKEN(aux_sym_binary_op_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1712);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1692);
       END_STATE();
-    case 1713:
+    case 1693:
       ACCEPT_TOKEN(aux_sym__inline_if_statement_token1);
       END_STATE();
-    case 1714:
+    case 1694:
       ACCEPT_TOKEN(aux_sym__inline_if_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1715:
+    case 1695:
       ACCEPT_TOKEN(aux_sym__block_if_statement_token1);
       END_STATE();
-    case 1716:
+    case 1696:
       ACCEPT_TOKEN(aux_sym__block_if_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1717:
+    case 1697:
       ACCEPT_TOKEN(aux_sym_end_if_statement_token1);
       END_STATE();
-    case 1718:
+    case 1698:
       ACCEPT_TOKEN(aux_sym_end_if_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1719:
+    case 1699:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(712);
+          lookahead == 'i') ADVANCE(706);
       END_STATE();
-    case 1720:
+    case 1700:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(712);
+          lookahead == 'i') ADVANCE(706);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(744);
+          lookahead == 'w') ADVANCE(736);
       END_STATE();
-    case 1721:
+    case 1701:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2187);
+          lookahead == 'i') ADVANCE(2165);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2214);
+          lookahead == 'w') ADVANCE(2192);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1722:
+    case 1702:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2187);
+          lookahead == 'i') ADVANCE(2165);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1723:
+    case 1703:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token1);
       if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(744);
+          lookahead == 'w') ADVANCE(736);
       END_STATE();
-    case 1724:
+    case 1704:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token2);
       END_STATE();
-    case 1725:
+    case 1705:
       ACCEPT_TOKEN(aux_sym_elseif_clause_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1726:
+    case 1706:
       ACCEPT_TOKEN(aux_sym__inline_where_statement_token1);
       END_STATE();
-    case 1727:
+    case 1707:
       ACCEPT_TOKEN(aux_sym__inline_where_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1728:
+    case 1708:
       ACCEPT_TOKEN(aux_sym_end_where_statement_token1);
       END_STATE();
-    case 1729:
+    case 1709:
       ACCEPT_TOKEN(aux_sym_end_where_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1730:
+    case 1710:
       ACCEPT_TOKEN(aux_sym_elsewhere_clause_token1);
       END_STATE();
-    case 1731:
+    case 1711:
       ACCEPT_TOKEN(aux_sym_elsewhere_clause_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1732:
+    case 1712:
       ACCEPT_TOKEN(aux_sym__forall_control_expression_token1);
       END_STATE();
-    case 1733:
+    case 1713:
       ACCEPT_TOKEN(aux_sym__forall_control_expression_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1734:
+    case 1714:
       ACCEPT_TOKEN(aux_sym_end_forall_statement_token1);
       END_STATE();
-    case 1735:
+    case 1715:
       ACCEPT_TOKEN(aux_sym_end_forall_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1736:
+    case 1716:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token1);
       END_STATE();
-    case 1737:
+    case 1717:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token1);
       if (lookahead == 'C' ||
           lookahead == 'c') ADVANCE(443);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(410);
+          lookahead == 'r') ADVANCE(411);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1289);
+          lookahead == 't') ADVANCE(1270);
       END_STATE();
-    case 1738:
+    case 1718:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1952);
+          lookahead == 'c') ADVANCE(1930);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1929);
+          lookahead == 'r') ADVANCE(1907);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2665);
+          lookahead == 't') ADVANCE(2643);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1739:
+    case 1719:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1740:
+    case 1720:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token2);
       END_STATE();
-    case 1741:
+    case 1721:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1742:
+    case 1722:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token3);
       END_STATE();
-    case 1743:
+    case 1723:
       ACCEPT_TOKEN(aux_sym_select_case_statement_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1744:
+    case 1724:
       ACCEPT_TOKEN(aux_sym_select_type_statement_token1);
       END_STATE();
-    case 1745:
+    case 1725:
       ACCEPT_TOKEN(aux_sym_select_type_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1746:
+    case 1726:
       ACCEPT_TOKEN(aux_sym_select_rank_statement_token1);
       END_STATE();
-    case 1747:
+    case 1727:
       ACCEPT_TOKEN(aux_sym_select_rank_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1748:
+    case 1728:
       ACCEPT_TOKEN(aux_sym_end_select_statement_token1);
       END_STATE();
-    case 1749:
+    case 1729:
       ACCEPT_TOKEN(aux_sym_end_select_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1750:
+    case 1730:
       ACCEPT_TOKEN(aux_sym_type_statement_token1);
       END_STATE();
-    case 1751:
+    case 1731:
       ACCEPT_TOKEN(aux_sym_type_statement_token2);
       END_STATE();
-    case 1752:
+    case 1732:
       ACCEPT_TOKEN(aux_sym_type_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1753:
+    case 1733:
       ACCEPT_TOKEN(aux_sym_type_statement_token3);
       END_STATE();
-    case 1754:
+    case 1734:
       ACCEPT_TOKEN(aux_sym_type_statement_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1755:
+    case 1735:
       ACCEPT_TOKEN(aux_sym__class_default_token1);
       END_STATE();
-    case 1756:
+    case 1736:
       ACCEPT_TOKEN(aux_sym__class_default_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1757:
+    case 1737:
       ACCEPT_TOKEN(aux_sym_block_construct_token1);
       END_STATE();
-    case 1758:
+    case 1738:
       ACCEPT_TOKEN(aux_sym_block_construct_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1759:
+    case 1739:
       ACCEPT_TOKEN(aux_sym_end_block_construct_statement_token1);
       END_STATE();
-    case 1760:
+    case 1740:
       ACCEPT_TOKEN(aux_sym_end_block_construct_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1761:
+    case 1741:
       ACCEPT_TOKEN(aux_sym_associate_statement_token1);
       END_STATE();
-    case 1762:
+    case 1742:
       ACCEPT_TOKEN(aux_sym_associate_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1763:
+    case 1743:
       ACCEPT_TOKEN(aux_sym_end_associate_statement_token1);
       END_STATE();
-    case 1764:
+    case 1744:
       ACCEPT_TOKEN(aux_sym_end_associate_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1765:
+    case 1745:
       ACCEPT_TOKEN(aux_sym_format_statement_token1);
       END_STATE();
-    case 1766:
+    case 1746:
       ACCEPT_TOKEN(aux_sym_format_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1767:
-      ACCEPT_TOKEN(sym_edit_descriptor);
-      if (lookahead == 'H') ADVANCE(1294);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1767);
-      if (lookahead == '$' ||
-          lookahead == '*' ||
-          ('.' <= lookahead && lookahead <= ':') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'g') ||
-          ('i' <= lookahead && lookahead <= 'z')) ADVANCE(1768);
-      END_STATE();
-    case 1768:
+    case 1747:
       ACCEPT_TOKEN(sym_edit_descriptor);
       if (lookahead == '$' ||
           lookahead == '*' ||
@@ -27906,9612 +27809,9461 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
           ('A' <= lookahead && lookahead <= 'G') ||
           ('I' <= lookahead && lookahead <= 'Z') ||
           ('a' <= lookahead && lookahead <= 'g') ||
-          ('i' <= lookahead && lookahead <= 'z')) ADVANCE(1768);
-      END_STATE();
-    case 1769:
-      ACCEPT_TOKEN(aux_sym_hollerith_constant_token1);
-      if (lookahead != 0 &&
-          lookahead != ')' &&
-          lookahead != ',' &&
-          lookahead != '/') ADVANCE(1769);
+          ('i' <= lookahead && lookahead <= 'z')) ADVANCE(1747);
       END_STATE();
-    case 1770:
+    case 1748:
       ACCEPT_TOKEN(aux_sym_print_statement_token1);
       END_STATE();
-    case 1771:
+    case 1749:
       ACCEPT_TOKEN(aux_sym_print_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1772:
+    case 1750:
       ACCEPT_TOKEN(aux_sym_open_statement_token1);
       END_STATE();
-    case 1773:
+    case 1751:
       ACCEPT_TOKEN(aux_sym_open_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1774:
+    case 1752:
       ACCEPT_TOKEN(aux_sym_close_statement_token1);
       END_STATE();
-    case 1775:
+    case 1753:
       ACCEPT_TOKEN(aux_sym_close_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1776:
+    case 1754:
       ACCEPT_TOKEN(aux_sym_inquire_statement_token1);
       END_STATE();
-    case 1777:
+    case 1755:
       ACCEPT_TOKEN(aux_sym_inquire_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1778:
+    case 1756:
       ACCEPT_TOKEN(aux_sym_enum_statement_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1101);
+          lookahead == 'e') ADVANCE(1089);
       END_STATE();
-    case 1779:
+    case 1757:
       ACCEPT_TOKEN(aux_sym_enum_statement_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2513);
+          lookahead == 'e') ADVANCE(2491);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1780:
+    case 1758:
       ACCEPT_TOKEN(aux_sym_enumeration_type_statement_token1);
       END_STATE();
-    case 1781:
+    case 1759:
       ACCEPT_TOKEN(aux_sym_enumeration_type_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1782:
+    case 1760:
       ACCEPT_TOKEN(aux_sym_enumerator_statement_token1);
       END_STATE();
-    case 1783:
+    case 1761:
       ACCEPT_TOKEN(aux_sym_end_enum_statement_token1);
       END_STATE();
-    case 1784:
+    case 1762:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token1);
       END_STATE();
-    case 1785:
+    case 1763:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1786:
+    case 1764:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token2);
       END_STATE();
-    case 1787:
+    case 1765:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token2);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1788:
+    case 1766:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token3);
       END_STATE();
-    case 1789:
+    case 1767:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token3);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1790:
+    case 1768:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token4);
       END_STATE();
-    case 1791:
+    case 1769:
       ACCEPT_TOKEN(aux_sym_file_position_statement_token4);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1792:
+    case 1770:
       ACCEPT_TOKEN(aux_sym_allocate_statement_token1);
       END_STATE();
-    case 1793:
+    case 1771:
       ACCEPT_TOKEN(aux_sym_allocate_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1794:
+    case 1772:
       ACCEPT_TOKEN(aux_sym_entry_statement_token1);
       END_STATE();
-    case 1795:
+    case 1773:
       ACCEPT_TOKEN(aux_sym_entry_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1796:
+    case 1774:
       ACCEPT_TOKEN(aux_sym_logical_expression_token1);
       END_STATE();
-    case 1797:
+    case 1775:
       ACCEPT_TOKEN(aux_sym_logical_expression_token2);
       END_STATE();
-    case 1798:
+    case 1776:
       ACCEPT_TOKEN(aux_sym_logical_expression_token3);
       END_STATE();
-    case 1799:
+    case 1777:
       ACCEPT_TOKEN(aux_sym_logical_expression_token4);
       END_STATE();
-    case 1800:
+    case 1778:
       ACCEPT_TOKEN(aux_sym_logical_expression_token5);
       END_STATE();
-    case 1801:
+    case 1779:
       ACCEPT_TOKEN(aux_sym_relational_expression_token1);
       END_STATE();
-    case 1802:
+    case 1780:
       ACCEPT_TOKEN(aux_sym_relational_expression_token2);
       END_STATE();
-    case 1803:
+    case 1781:
       ACCEPT_TOKEN(aux_sym_relational_expression_token3);
       END_STATE();
-    case 1804:
+    case 1782:
       ACCEPT_TOKEN(aux_sym_relational_expression_token4);
       END_STATE();
-    case 1805:
+    case 1783:
       ACCEPT_TOKEN(aux_sym_relational_expression_token5);
       END_STATE();
-    case 1806:
+    case 1784:
       ACCEPT_TOKEN(anon_sym_SLASH_EQ);
       END_STATE();
-    case 1807:
+    case 1785:
       ACCEPT_TOKEN(aux_sym_relational_expression_token6);
       END_STATE();
-    case 1808:
+    case 1786:
       ACCEPT_TOKEN(anon_sym_SLASH_SLASH);
       END_STATE();
-    case 1809:
+    case 1787:
       ACCEPT_TOKEN(anon_sym_STAR_STAR);
       END_STATE();
-    case 1810:
+    case 1788:
       ACCEPT_TOKEN(anon_sym_DOT);
       END_STATE();
-    case 1811:
+    case 1789:
       ACCEPT_TOKEN(anon_sym_DOT);
-      ADVANCE_MAP(
-        '.', 1819,
-        'A', 938,
-        'a', 938,
-        'E', 1051,
-        'e', 1051,
-        'F', 394,
-        'f', 394,
-        'G', 573,
-        'g', 573,
-        'L', 642,
-        'l', 642,
-        'N', 575,
-        'n', 575,
-        'O', 1067,
-        'o', 1067,
-        'T', 1061,
-        't', 1061,
-      );
+      if (lookahead == '.') ADVANCE(1797);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(927);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1039);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(395);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(569);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(638);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(571);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1055);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1049);
       END_STATE();
-    case 1812:
+    case 1790:
       ACCEPT_TOKEN(anon_sym_DOT);
-      if (lookahead == '.') ADVANCE(1819);
+      if (lookahead == '.') ADVANCE(1797);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(394);
+          lookahead == 'f') ADVANCE(395);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(998);
+          lookahead == 'n') ADVANCE(985);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1061);
+          lookahead == 't') ADVANCE(1049);
       END_STATE();
-    case 1813:
+    case 1791:
       ACCEPT_TOKEN(anon_sym_DOT);
-      ADVANCE_MAP(
-        'A', 938,
-        'a', 938,
-        'E', 1051,
-        'e', 1051,
-        'F', 394,
-        'f', 394,
-        'G', 573,
-        'g', 573,
-        'L', 642,
-        'l', 642,
-        'N', 576,
-        'n', 576,
-        'O', 1067,
-        'o', 1067,
-        'T', 1061,
-        't', 1061,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(927);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1039);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(395);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(569);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(638);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(572);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1055);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1049);
       END_STATE();
-    case 1814:
+    case 1792:
       ACCEPT_TOKEN(anon_sym_DOT);
-      ADVANCE_MAP(
-        'A', 938,
-        'a', 938,
-        'E', 1051,
-        'e', 1051,
-        'G', 573,
-        'g', 573,
-        'L', 642,
-        'l', 642,
-        'N', 574,
-        'n', 574,
-        'O', 1067,
-        'o', 1067,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(927);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1039);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(569);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(638);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(570);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1055);
       END_STATE();
-    case 1815:
+    case 1793:
       ACCEPT_TOKEN(anon_sym_DOT);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(394);
+          lookahead == 'f') ADVANCE(395);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(758);
+          lookahead == 'n') ADVANCE(749);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1061);
+          lookahead == 't') ADVANCE(1049);
       END_STATE();
-    case 1816:
+    case 1794:
       ACCEPT_TOKEN(anon_sym_DOT);
       if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(394);
+          lookahead == 'f') ADVANCE(395);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(998);
+          lookahead == 'n') ADVANCE(985);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1061);
+          lookahead == 't') ADVANCE(1049);
       END_STATE();
-    case 1817:
+    case 1795:
       ACCEPT_TOKEN(aux_sym_user_defined_operator_token1);
       if (('A' <= lookahead && lookahead <= 'Z') ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1817);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1795);
       END_STATE();
-    case 1818:
+    case 1796:
       ACCEPT_TOKEN(anon_sym_AT);
       END_STATE();
-    case 1819:
+    case 1797:
       ACCEPT_TOKEN(sym_assumed_rank);
       END_STATE();
-    case 1820:
+    case 1798:
       ACCEPT_TOKEN(anon_sym_LPAREN_SLASH);
       END_STATE();
-    case 1821:
+    case 1799:
       ACCEPT_TOKEN(anon_sym_SLASH_RPAREN);
       END_STATE();
-    case 1822:
+    case 1800:
       ACCEPT_TOKEN(anon_sym_LBRACK);
       END_STATE();
-    case 1823:
+    case 1801:
       ACCEPT_TOKEN(anon_sym_RBRACK);
       END_STATE();
-    case 1824:
+    case 1802:
       ACCEPT_TOKEN(aux_sym_boolean_literal_token1);
       END_STATE();
-    case 1825:
+    case 1803:
       ACCEPT_TOKEN(aux_sym_boolean_literal_token2);
       END_STATE();
-    case 1826:
+    case 1804:
       ACCEPT_TOKEN(anon_sym__);
       END_STATE();
-    case 1827:
+    case 1805:
       ACCEPT_TOKEN(anon_sym__);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1828:
+    case 1806:
       ACCEPT_TOKEN(aux_sym__kind_token1);
       if (('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1828);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(1806);
       END_STATE();
-    case 1829:
+    case 1807:
       ACCEPT_TOKEN(aux_sym__kind_token2);
-      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1829);
+      if (('0' <= lookahead && lookahead <= '9')) ADVANCE(1807);
       END_STATE();
-    case 1830:
+    case 1808:
       ACCEPT_TOKEN(aux_sym_null_literal_token1);
       END_STATE();
-    case 1831:
+    case 1809:
       ACCEPT_TOKEN(aux_sym_null_literal_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1832:
+    case 1810:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token1);
       END_STATE();
-    case 1833:
+    case 1811:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1834:
+    case 1812:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token2);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2575);
+          lookahead == 'a') ADVANCE(2553);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1835:
+    case 1813:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token2);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1170);
+          lookahead == 'a') ADVANCE(1155);
       END_STATE();
-    case 1836:
+    case 1814:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token3);
       END_STATE();
-    case 1837:
+    case 1815:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token4);
       END_STATE();
-    case 1838:
+    case 1816:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token5);
       END_STATE();
-    case 1839:
+    case 1817:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token6);
       END_STATE();
-    case 1840:
+    case 1818:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token6);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1841:
+    case 1819:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token7);
       END_STATE();
-    case 1842:
+    case 1820:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token7);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1836);
+          lookahead == 's') ADVANCE(1814);
       END_STATE();
-    case 1843:
+    case 1821:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token8);
       END_STATE();
-    case 1844:
+    case 1822:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token8);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1845:
+    case 1823:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token9);
       END_STATE();
-    case 1846:
+    case 1824:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token10);
       END_STATE();
-    case 1847:
+    case 1825:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token11);
       END_STATE();
-    case 1848:
+    case 1826:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token11);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1849:
+    case 1827:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token12);
       END_STATE();
-    case 1850:
+    case 1828:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token12);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1851:
+    case 1829:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token13);
       END_STATE();
-    case 1852:
+    case 1830:
       ACCEPT_TOKEN(aux_sym_coarray_statement_token13);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1853:
+    case 1831:
       ACCEPT_TOKEN(aux_sym_coarray_team_statement_token1);
       END_STATE();
-    case 1854:
+    case 1832:
       ACCEPT_TOKEN(aux_sym_coarray_team_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1855:
+    case 1833:
       ACCEPT_TOKEN(aux_sym_end_coarray_team_statement_token1);
       END_STATE();
-    case 1856:
+    case 1834:
       ACCEPT_TOKEN(aux_sym_end_coarray_team_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1857:
+    case 1835:
       ACCEPT_TOKEN(aux_sym_coarray_critical_statement_token1);
       END_STATE();
-    case 1858:
+    case 1836:
       ACCEPT_TOKEN(aux_sym_coarray_critical_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1859:
+    case 1837:
       ACCEPT_TOKEN(aux_sym_end_coarray_critical_statement_token1);
       END_STATE();
-    case 1860:
+    case 1838:
       ACCEPT_TOKEN(aux_sym_end_coarray_critical_statement_token1);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1861:
+    case 1839:
       ACCEPT_TOKEN(anon_sym_QMARK);
       END_STATE();
-    case 1862:
+    case 1840:
       ACCEPT_TOKEN(aux_sym_nil_literal_token1);
       END_STATE();
-    case 1863:
+    case 1841:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'E', 2653,
-        'e', 1866,
-        'A', 2590,
-        'a', 2590,
-        'I', 2378,
-        'i', 2378,
-        'O', 2652,
-        'o', 2652,
-      );
+      if (lookahead == 'E') ADVANCE(2631);
+      if (lookahead == 'e') ADVANCE(1844);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2568);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2356);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2630);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1864:
+    case 1842:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'd') ADVANCE(1368);
+      if (lookahead == 'd') ADVANCE(1348);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1865:
+    case 1843:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'e') ADVANCE(1864);
+      if (lookahead == 'e') ADVANCE(1842);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1866:
+    case 1844:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'f') ADVANCE(1867);
+      if (lookahead == 'f') ADVANCE(1845);
       if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(2230);
+          lookahead == 'v') ADVANCE(2208);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1867:
+    case 1845:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'i') ADVANCE(1868);
+      if (lookahead == 'i') ADVANCE(1846);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1868:
+    case 1846:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'n') ADVANCE(1865);
+      if (lookahead == 'n') ADVANCE(1843);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1869:
+    case 1847:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 1983,
-        'a', 1983,
-        'I', 2398,
-        'i', 2398,
-        'L', 2460,
-        'l', 2460,
-        'Y', 2593,
-        'y', 2593,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1961);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2376);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2438);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2571);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
-    case 1870:
+    case 1848:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1983);
+          lookahead == 'a') ADVANCE(1961);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2460);
+          lookahead == 'l') ADVANCE(2438);
       if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2593);
+          lookahead == 'y') ADVANCE(2571);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1849:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2481);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2388);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2195);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1952);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1850:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2481);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2388);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2196);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1851:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2481);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2197);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1852:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2405);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1853:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2009);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2610);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2612);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2234);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1854:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2009);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2610);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1855:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2009);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2612);
+      if (lookahead == 'W' ||
+          lookahead == 'w') ADVANCE(2234);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1856:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2009);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1857:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1676);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1858:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2281);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2421);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2377);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1859:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2282);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1875);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2037);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1860:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2282);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1875);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2038);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1861:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2282);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2421);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2363);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1862:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2282);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2421);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2377);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1863:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2282);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1924);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2377);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1864:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2288);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2349);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1950);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1865:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2288);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1866:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2339);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2349);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1959);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1867:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2339);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1959);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1868:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2339);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1960);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1869:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2633);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2339);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1896);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1944);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2381);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
+      END_STATE();
+    case 1870:
+      ACCEPT_TOKEN(aux_sym_identifier_token1);
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2206);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2400);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2483);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2378);
+      if (lookahead == '$' ||
+          ('0' <= lookahead && lookahead <= '9') ||
+          ('B' <= lookahead && lookahead <= 'Z') ||
+          lookahead == '_' ||
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1871:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2503,
-        'a', 2503,
-        'I', 2410,
-        'i', 2410,
-        'O', 2234,
-        'o', 2234,
-        'R', 2217,
-        'r', 2217,
-        'U', 1974,
-        'u', 1974,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2206);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2471);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2378);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1872:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2503,
-        'a', 2503,
-        'I', 2410,
-        'i', 2410,
-        'O', 2234,
-        'o', 2234,
-        'R', 2218,
-        'r', 2218,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2206);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2471);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1873:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2503,
-        'a', 2503,
-        'O', 2234,
-        'o', 2234,
-        'R', 2219,
-        'r', 2219,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2206);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2483);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2378);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1874:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2427);
+          lookahead == 'a') ADVANCE(2206);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2483);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1875:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2031,
-        'a', 2031,
-        'C', 2632,
-        'c', 2632,
-        'T', 2634,
-        't', 2634,
-        'W', 2256,
-        'w', 2256,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2527);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2532);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1876:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2031);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2632);
+          lookahead == 'a') ADVANCE(2527);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1877:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2031);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2634);
-      if (lookahead == 'W' ||
-          lookahead == 'w') ADVANCE(2256);
+          lookahead == 'a') ADVANCE(2283);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2285);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1878:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2031);
+          lookahead == 'a') ADVANCE(2283);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1879:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1696);
+          lookahead == 'a') ADVANCE(2472);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2638);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(2125);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1880:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2303,
-        'a', 2303,
-        'H', 1941,
-        'h', 1941,
-        'L', 2443,
-        'l', 2443,
-        'O', 2399,
-        'o', 2399,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2472);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2638);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2456);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1881:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2304,
-        'a', 2304,
-        'H', 1874,
-        'h', 1874,
-        'L', 1897,
-        'l', 1897,
-        'O', 2059,
-        'o', 2059,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2472);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2638);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2459);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1882:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2304,
-        'a', 2304,
-        'H', 1874,
-        'h', 1874,
-        'L', 1897,
-        'l', 1897,
-        'O', 2060,
-        'o', 2060,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2472);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2638);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2460);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1883:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2304,
-        'a', 2304,
-        'H', 1941,
-        'h', 1941,
-        'L', 2443,
-        'l', 2443,
-        'O', 2385,
-        'o', 2385,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2472);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2638);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1884:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2304,
-        'a', 2304,
-        'H', 1941,
-        'h', 1941,
-        'L', 2443,
-        'l', 2443,
-        'O', 2399,
-        'o', 2399,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2568);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2631);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2356);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1679);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1885:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2304,
-        'a', 2304,
-        'H', 1941,
-        'h', 1941,
-        'L', 1946,
-        'l', 1946,
-        'O', 2399,
-        'o', 2399,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2568);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2631);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2356);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2603);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1886:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2310,
-        'e', 2310,
-        'H', 1918,
-        'h', 1918,
-        'I', 2371,
-        'i', 2371,
-        'T', 1966,
-        't', 1966,
-        'U', 1972,
-        'u', 1972,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2568);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2631);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2356);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2630);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1887:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2310,
-        'e', 2310,
-        'H', 1918,
-        'h', 1918,
-        'T', 1966,
-        't', 1966,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2568);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2631);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2356);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1680);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1888:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2361,
-        'e', 2361,
-        'H', 1918,
-        'h', 1918,
-        'I', 2371,
-        'i', 2371,
-        'T', 1966,
-        't', 1966,
-        'U', 1981,
-        'u', 1981,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2382);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2030);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1889:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2361,
-        'e', 2361,
-        'H', 1918,
-        'h', 1918,
-        'T', 1966,
-        't', 1966,
-        'U', 1981,
-        'u', 1981,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2382);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1890:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2361,
-        'e', 2361,
-        'H', 1918,
-        'h', 1918,
-        'T', 1966,
-        't', 1966,
-        'U', 1982,
-        'u', 1982,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2346);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1891:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2655,
-        'a', 2655,
-        'E', 2361,
-        'e', 2361,
-        'H', 1918,
-        'h', 1918,
-        'T', 1966,
-        't', 1966,
-        'Y', 2403,
-        'y', 2403,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2380);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1853);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1892:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2228,
-        'a', 2228,
-        'I', 2422,
-        'i', 2422,
-        'O', 2505,
-        'o', 2505,
-        'U', 2400,
-        'u', 2400,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2380);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1855);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1893:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2228);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2493);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2400);
+          lookahead == 'a') ADVANCE(2380);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1854);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1894:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2228);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2493);
+          lookahead == 'a') ADVANCE(2380);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1856);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1895:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2228);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2505);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2400);
+          lookahead == 'a') ADVANCE(2347);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1896:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2228);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2505);
+          lookahead == 'a') ADVANCE(2492);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1897:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2549);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2554);
+          lookahead == 'a') ADVANCE(2348);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1898:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2549);
+          lookahead == 'a') ADVANCE(2001);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1899:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2305);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2307);
+          lookahead == 'a') ADVANCE(2337);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1900:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2305);
+          lookahead == 'a') ADVANCE(2598);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1901:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2494);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2660);
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(2147);
+          lookahead == 'a') ADVANCE(2270);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1902:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2494);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2660);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2478);
+          lookahead == 'a') ADVANCE(2271);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1903:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2494);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2660);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2481);
+          lookahead == 'a') ADVANCE(2272);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1904:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2494);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2660);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2482);
+          lookahead == 'a') ADVANCE(2273);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1905:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2494);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2660);
+          lookahead == 'a') ADVANCE(2274);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1906:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2590,
-        'a', 2590,
-        'E', 2653,
-        'e', 2653,
-        'I', 2378,
-        'i', 2378,
-        'O', 1699,
-        'o', 1699,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2567);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1907:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2590,
-        'a', 2590,
-        'E', 2653,
-        'e', 2653,
-        'I', 2378,
-        'i', 2378,
-        'O', 2625,
-        'o', 2625,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2384);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1908:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2590,
-        'a', 2590,
-        'E', 2653,
-        'e', 2653,
-        'I', 2378,
-        'i', 2378,
-        'O', 2652,
-        'o', 2652,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2276);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1909:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2590,
-        'a', 2590,
-        'E', 2653,
-        'e', 2653,
-        'I', 2378,
-        'i', 2378,
-        'O', 1700,
-        'o', 1700,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2388);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2225);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1910:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2404);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2388);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2052);
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2227);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1952);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1911:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2404);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2388);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2227);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1912:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2368);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2229);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1913:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2402);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1875);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2228);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1914:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2402);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1877);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2226);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1952);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1915:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2402);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1876);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2230);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1952);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1916:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2402);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1878);
+          lookahead == 'a') ADVANCE(2482);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2212);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2230);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1953);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1917:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2369);
+          lookahead == 'a') ADVANCE(2277);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1918:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2514);
+          lookahead == 'a') ADVANCE(2278);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1919:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2370);
+          lookahead == 'a') ADVANCE(2406);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1920:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2023);
+          lookahead == 'a') ADVANCE(2350);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2573);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2287);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1921:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2359);
+          lookahead == 'a') ADVANCE(2350);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2287);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1922:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2620);
+          lookahead == 'a') ADVANCE(2588);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1923:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2292);
+          lookahead == 'a') ADVANCE(2613);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1924:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2293);
+          lookahead == 'a') ADVANCE(2533);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2532);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1925:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2294);
+          lookahead == 'a') ADVANCE(2355);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1926:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2295);
+          lookahead == 'a') ADVANCE(2176);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1927:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2296);
+          lookahead == 'a') ADVANCE(2289);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1812);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1928:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2589);
+          lookahead == 'a') ADVANCE(2536);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1929:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2406);
+          lookahead == 'a') ADVANCE(1983);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1930:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2298);
+          lookahead == 'a') ADVANCE(2539);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1931:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'I', 2410,
-        'i', 2410,
-        'O', 2234,
-        'o', 2234,
-        'R', 2247,
-        'r', 2247,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1989);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1932:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'I', 2410,
-        'i', 2410,
-        'O', 2234,
-        'o', 2234,
-        'R', 2249,
-        'r', 2249,
-        'U', 1974,
-        'u', 1974,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2396);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1933:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'I', 2410,
-        'i', 2410,
-        'O', 2234,
-        'o', 2234,
-        'R', 2249,
-        'r', 2249,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2582);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1934:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'O', 2234,
-        'o', 2234,
-        'R', 2251,
-        'r', 2251,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2218);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2172);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1935:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'O', 2234,
-        'o', 2234,
-        'R', 2250,
-        'r', 2250,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2218);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2173);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1936:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'O', 2234,
-        'o', 2234,
-        'R', 2248,
-        'r', 2248,
-        'U', 1974,
-        'u', 1974,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2292);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1937:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'O', 2234,
-        'o', 2234,
-        'R', 2252,
-        'r', 2252,
-        'U', 1974,
-        'u', 1974,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(2583);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1938:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'A', 2504,
-        'a', 2504,
-        'O', 2234,
-        'o', 2234,
-        'R', 2252,
-        'r', 2252,
-        'U', 1975,
-        'u', 1975,
-      );
+      if (lookahead == 'A' ||
+          lookahead == 'a') ADVANCE(1990);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1939:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2299);
+          lookahead == 'a') ADVANCE(2585);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1940:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2300);
+          lookahead == 'a') ADVANCE(1992);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1941:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2428);
+          lookahead == 'a') ADVANCE(2587);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1942:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2372);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2595);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2309);
+          lookahead == 'a') ADVANCE(1957);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1771);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1943:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2372);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2309);
+          lookahead == 'a') ADVANCE(1957);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1944:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2610);
+          lookahead == 'a') ADVANCE(2593);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2452);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1945:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2635);
+          lookahead == 'a') ADVANCE(2601);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1946:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2555);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2554);
+          lookahead == 'a') ADVANCE(2596);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('B' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1947:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2377);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2542);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2280);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2543);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2570);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1948:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2198);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2542);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2340);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2537);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2570);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1949:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2311);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1834);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2542);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2340);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2570);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1950:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2558);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2352);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1951:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2005);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2623);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1952:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2561);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2332);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2053);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1953:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2011);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2332);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1954:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2418);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2362);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1955:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2604);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2515);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1956:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2240);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2194);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2295);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1957:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2240);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2195);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2301);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1958:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2314);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2303);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1959:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2605);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2486);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1960:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2012);
+      if (lookahead == 'B' ||
+          lookahead == 'b') ADVANCE(2353);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1961:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2607);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2261);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1962:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2014);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1811);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1963:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2609);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1506);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1964:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1979);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1793);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1627);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1965:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(1979);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1605);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1966:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2615);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2474);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1483);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1967:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2623);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1546);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1968:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'A' ||
-          lookahead == 'a') ADVANCE(2618);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2255);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2231);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
-          ('B' <= lookahead && lookahead <= 'Z') ||
+          ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('b' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1969:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'B', 2564,
-        'b', 2564,
-        'L', 2302,
-        'l', 2302,
-        'S', 2565,
-        's', 2565,
-        'T', 2592,
-        't', 2592,
-        'U', 2591,
-        'u', 2591,
-      );
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2255);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1970:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'B', 2564,
-        'b', 2564,
-        'L', 2362,
-        'l', 2362,
-        'S', 2559,
-        's', 2559,
-        'T', 2592,
-        't', 2592,
-        'U', 2591,
-        'u', 2591,
-      );
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2257);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1971:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'B', 2564,
-        'b', 2564,
-        'L', 2362,
-        'l', 2362,
-        'T', 2592,
-        't', 2592,
-        'U', 2591,
-        'u', 2591,
-      );
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2258);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1972:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2374);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2290);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1973:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2645);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2260);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1974:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2354);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2075);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2250);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1975:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2354);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1901);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1976:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2384);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2128);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2490);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2149);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1977:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2317);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2128);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2135);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1978:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2537);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2128);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2149);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1979:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2323);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2128);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1980:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2325);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2253);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1981:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2508);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(2556);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1982:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'B' ||
-          lookahead == 'b') ADVANCE(2375);
+      if (lookahead == 'C' ||
+          lookahead == 'c') ADVANCE(1902);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1983:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2283);
+          lookahead == 'c') ADVANCE(2558);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1984:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1833);
+          lookahead == 'c') ADVANCE(2562);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1985:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1526);
+          lookahead == 'c') ADVANCE(2063);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1986:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1647);
+          lookahead == 'c') ADVANCE(2564);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1987:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1625);
+          lookahead == 'c') ADVANCE(1908);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1988:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1503);
+          lookahead == 'c') ADVANCE(2074);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1989:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1566);
+          lookahead == 'c') ADVANCE(2077);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1990:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2277);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2253);
+          lookahead == 'c') ADVANCE(2078);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1991:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2277);
+          lookahead == 'c') ADVANCE(2086);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1992:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2279);
+          lookahead == 'c') ADVANCE(2100);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1993:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2280);
+          lookahead == 'c') ADVANCE(2286);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2052);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1994:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2312);
+          lookahead == 'c') ADVANCE(2286);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2510);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1995:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2282);
+          lookahead == 'c') ADVANCE(2577);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1996:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2272);
+          lookahead == 'c') ADVANCE(1906);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1997:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1923);
+          lookahead == 'c') ADVANCE(2219);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1998:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2150);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2512);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2171);
+          lookahead == 'c') ADVANCE(1933);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 1999:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2150);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2157);
+          lookahead == 'c') ADVANCE(2616);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2576);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2202);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2000:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2150);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2171);
+          lookahead == 'c') ADVANCE(2584);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2001:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2150);
+          lookahead == 'c') ADVANCE(2592);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2002:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2275);
+          lookahead == 'c') ADVANCE(2251);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2003:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2578);
+          lookahead == 'c') ADVANCE(2602);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2004:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1924);
+          lookahead == 'c') ADVANCE(2152);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2005:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2580);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1400);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2006:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2584);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1400);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2007:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2085);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1467);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2008:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2586);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1635);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2009:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1930);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1451);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1575);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2010:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2096);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1567);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2011:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2099);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1767);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2012:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2100);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1565);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2013:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2108);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1561);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2014:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2122);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1623);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2015:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2308);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1406);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2074);
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2016:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2308);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1406);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2532);
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2017:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2599);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1402);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2018:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1928);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1402);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2019:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2241);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1392);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2020:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(1955);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1392);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2021:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2638);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2598);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1405);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2224);
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2022:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2606);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1390);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2023:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2614);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1396);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2024:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2273);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1404);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2025:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2624);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1393);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2026:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'C' ||
-          lookahead == 'c') ADVANCE(2174);
+      if (lookahead == 'D' ||
+          lookahead == 'd') ADVANCE(1410);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2027:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1420);
+          lookahead == 'd') ADVANCE(1410);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2028:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1420);
+          lookahead == 'd') ADVANCE(1409);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2029:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1487);
+          lookahead == 'd') ADVANCE(1408);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2030:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1655);
+          lookahead == 'd') ADVANCE(2621);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2031:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1471);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1595);
+          lookahead == 'd') ADVANCE(1398);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2032:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1587);
+          lookahead == 'd') ADVANCE(1398);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2033:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1789);
+          lookahead == 'd') ADVANCE(1403);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2034:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1585);
+          lookahead == 'd') ADVANCE(1395);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2035:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1581);
+          lookahead == 'd') ADVANCE(1411);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2036:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1643);
+          lookahead == 'd') ADVANCE(1399);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2037:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1426);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+          lookahead == 'd') ADVANCE(2254);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2351);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2528);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2038:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1426);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2254);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2351);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2530);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2039:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1422);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+          lookahead == 'd') ADVANCE(2254);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2351);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2529);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2040:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1422);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2254);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2461);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2531);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2041:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1412);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+          lookahead == 'd') ADVANCE(2254);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2531);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2042:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1412);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2069);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2043:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1425);
+          lookahead == 'd') ADVANCE(1401);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 't') ADVANCE(2473);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2344);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2044:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1410);
+          lookahead == 'd') ADVANCE(1401);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 't') ADVANCE(2473);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2045:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1413);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2625);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2046:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1416);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2624);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2047:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1424);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2627);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2048:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1430);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+          lookahead == 'd') ADVANCE(2626);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2049:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1430);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+          lookahead == 'd') ADVANCE(2628);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2050:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1428);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1481);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2051:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1429);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1571);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2052:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2643);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(2179);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2053:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1418);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1643);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2054:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1418);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1502);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2055:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1423);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1497);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2056:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1415);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1753);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2057:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1431);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1663);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2058:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1419);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1769);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2059:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2276);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2373);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2550);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1631);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2060:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2276);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2373);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2552);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1707);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2061:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2276);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2373);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2551);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1453);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2062:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2276);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2483);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2553);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1832);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2063:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2276);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2553);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1472);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2064:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2091);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1577);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2065:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1421);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2366);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1641);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2066:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(1421);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2495);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1425);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2067:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2647);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1647);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2068:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2646);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1765);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2069:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2649);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1674);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2070:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2648);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1755);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2071:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'D' ||
-          lookahead == 'd') ADVANCE(2650);
+      if (lookahead == 'E' ||
+          lookahead == 'e') ADVANCE(1504);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2072:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1501);
+          lookahead == 'e') ADVANCE(1569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2073:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1591);
+          lookahead == 'e') ADVANCE(1661);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2074:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2201);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+          lookahead == 'e') ADVANCE(1540);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2075:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1663);
+          lookahead == 'e') ADVANCE(1633);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2076:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1522);
+          lookahead == 'e') ADVANCE(1742);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2077:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1517);
+          lookahead == 'e') ADVANCE(1763);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2078:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1775);
+          lookahead == 'e') ADVANCE(1435);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2079:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1683);
+          lookahead == 'e') ADVANCE(1461);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2080:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1791);
+          lookahead == 'e') ADVANCE(1645);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2081:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1651);
+          lookahead == 'e') ADVANCE(1429);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2082:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1727);
+          lookahead == 'e') ADVANCE(1723);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2083:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1473);
+          lookahead == 'e') ADVANCE(1725);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2084:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1854);
+          lookahead == 'e') ADVANCE(1457);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2085:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1492);
+          lookahead == 'e') ADVANCE(1603);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2086:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1597);
+          lookahead == 'e') ADVANCE(1649);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2087:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1661);
+          lookahead == 'e') ADVANCE(1459);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2088:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1445);
+          lookahead == 'e') ADVANCE(1463);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2089:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1667);
+          lookahead == 'e') ADVANCE(1578);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2090:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1787);
+          lookahead == 'e') ADVANCE(1495);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2091:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1694);
+          lookahead == 'e') ADVANCE(1701);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2092:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1777);
+          lookahead == 'e') ADVANCE(1709);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2093:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1524);
+          lookahead == 'e') ADVANCE(1711);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2094:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1589);
+          lookahead == 'e') ADVANCE(1702);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2095:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1681);
+          lookahead == 'e') ADVANCE(1721);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2096:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1560);
+          lookahead == 'e') ADVANCE(1744);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2097:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1653);
+          lookahead == 'e') ADVANCE(1498);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2098:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1762);
+          lookahead == 'e') ADVANCE(1433);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2099:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1785);
+          lookahead == 'e') ADVANCE(1427);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2100:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1455);
+          lookahead == 'e') ADVANCE(1437);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2101:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1481);
+          lookahead == 'e') ADVANCE(1684);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2102:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1665);
+          lookahead == 'e') ADVANCE(2636);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2103:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1449);
+          lookahead == 'e') ADVANCE(2392);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2104:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1743);
+          lookahead == 'e') ADVANCE(2180);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2105:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1745);
+          lookahead == 'e') ADVANCE(2364);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1968);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2106:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1477);
+          lookahead == 'e') ADVANCE(2364);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1969);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2107:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1623);
+          lookahead == 'e') ADVANCE(2637);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2108:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1669);
+          lookahead == 'e') ADVANCE(2010);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2109:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1483);
+          lookahead == 'e') ADVANCE(2389);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2110:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1479);
+          lookahead == 'e') ADVANCE(2012);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2111:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1598);
+          lookahead == 'e') ADVANCE(2365);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2209);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2112:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1515);
+          lookahead == 'e') ADVANCE(2013);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2113:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1721);
+          lookahead == 'e') ADVANCE(2508);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2114:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1729);
+          lookahead == 'e') ADVANCE(2014);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2115:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1731);
+          lookahead == 'e') ADVANCE(2203);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2116:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1722);
+          lookahead == 'e') ADVANCE(2519);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2117:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1741);
+          lookahead == 'e') ADVANCE(2291);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2118:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1764);
+          lookahead == 'e') ADVANCE(2385);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2119:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1518);
+          lookahead == 'e') ADVANCE(2475);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2120:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1447);
+          lookahead == 'e') ADVANCE(2476);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2121:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1453);
+          lookahead == 'e') ADVANCE(2477);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2122:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1457);
+          lookahead == 'e') ADVANCE(2478);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2123:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1704);
+          lookahead == 'e') ADVANCE(2557);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2124:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2658);
+          lookahead == 'e') ADVANCE(2514);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2125:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2414);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+          lookahead == 'e') ADVANCE(2374);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2126:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2202);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+          lookahead == 'e') ADVANCE(2412);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2127:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2386);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1990);
+          lookahead == 'e') ADVANCE(1897);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2128:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2386);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1991);
+          lookahead == 'e') ADVANCE(2046);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2129:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2659);
+          lookahead == 'e') ADVANCE(1981);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2130:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2032);
+          lookahead == 'e') ADVANCE(2512);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2131:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2411);
+          lookahead == 'e') ADVANCE(2169);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2132:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2034);
+          lookahead == 'e') ADVANCE(1980);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2133:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2387);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2231);
+          lookahead == 'e') ADVANCE(2493);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2134:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2035);
+          lookahead == 'e') ADVANCE(2409);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2135:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2530);
+          lookahead == 'e') ADVANCE(2497);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2136:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2036);
+          lookahead == 'e') ADVANCE(2408);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2137:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2225);
+          lookahead == 'e') ADVANCE(2181);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2138:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2541);
+          lookahead == 'e') ADVANCE(2411);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2139:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2313);
+          lookahead == 'e') ADVANCE(1984);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2140:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2407);
+          lookahead == 'e') ADVANCE(2393);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2141:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2497);
+          lookahead == 'e') ADVANCE(1986);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2142:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2498);
+          lookahead == 'e') ADVANCE(2398);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2143:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2499);
+          lookahead == 'e') ADVANCE(2399);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2144:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
           lookahead == 'e') ADVANCE(2500);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2209);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2145:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2579);
+          lookahead == 'e') ADVANCE(2505);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2146:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2536);
+          lookahead == 'e') ADVANCE(2506);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2147:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2396);
+          lookahead == 'e') ADVANCE(2336);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2148:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2434);
+          lookahead == 'e') ADVANCE(2357);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2115);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2149:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(1919);
+          lookahead == 'e') ADVANCE(2000);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2150:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2068);
+          lookahead == 'e') ADVANCE(2595);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2151:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2003);
+          lookahead == 'e') ADVANCE(2414);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2152:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2534);
+          lookahead == 'e') ADVANCE(2048);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2153:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2191);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2451);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1993);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2154:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2002);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2453);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1993);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2155:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2515);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2465);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2467);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2156:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2431);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2465);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2468);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2157:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2519);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2455);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2238);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2158:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2430);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2470);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2159:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2203);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1994);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2160:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2433);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2466);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2161:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2006);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2467);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2162:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2415);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1694);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2469);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2163:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2008);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1698);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2597);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2164:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2420);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1698);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2165:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2421);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1705);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2166:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2522);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2231);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1598);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2167:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2527);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1600);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2168:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2528);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(2640);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2169:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2358);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1923);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2170:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2379);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2137);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1938);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2171:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2022);
+      if (lookahead == 'F' ||
+          lookahead == 'f') ADVANCE(1940);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2172:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2617);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2611);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2617);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2173:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2436);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2611);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2174:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'E' ||
-          lookahead == 'e') ADVANCE(2070);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2123);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2175:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2473);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2015);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2062);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2176:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2475);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2015);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2112);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2177:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2487);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2489);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2415);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2178:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2487);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2490);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2490);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2179:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2477);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2119);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2260);
+          lookahead == 'n') ADVANCE(2555);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2170);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2180:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2119);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2492);
+          lookahead == 'n') ADVANCE(2555);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2181:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2016);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2119);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2182:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2488);
+      if (lookahead == 'G' ||
+          lookahead == 'g') ADVANCE(2494);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2183:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2489);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1876);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2039);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2184:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1714);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2491);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1928);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2360);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2185:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1718);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2619);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1928);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2040);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2186:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1718);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1852);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2360);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2187:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1725);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(2133);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2224);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2188:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1618);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2041);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2189:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1620);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2375);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2190:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(2662);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(1919);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2407);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2205);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1972);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2191:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1945);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(2145);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2192:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1960);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(2146);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2193:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'F' ||
-          lookahead == 'f') ADVANCE(1962);
+      if (lookahead == 'H' ||
+          lookahead == 'h') ADVANCE(2249);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2224);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2194:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2633);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2639);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2376);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2438);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2571);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2195:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2633);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2390);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1976);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2196:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2145);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2390);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1978);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2197:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2084);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2390);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2198:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2134);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2172);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2199:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2437);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2168);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2200:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2512);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2634);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2201:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2141);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2577);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2192);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1951);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2202:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2141);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2577);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2173);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2203:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2141);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2165);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2204:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'G' ||
-          lookahead == 'g') ADVANCE(2516);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2177);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2205:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1874,
-        'h', 1874,
-        'L', 1898,
-        'l', 1898,
-        'O', 2061,
-        'o', 2061,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2599);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2206:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1874,
-        'h', 1874,
-        'L', 1950,
-        'l', 1950,
-        'O', 2382,
-        'o', 2382,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2267);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2207:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1874,
-        'h', 1874,
-        'L', 1950,
-        'l', 1950,
-        'O', 2062,
-        'o', 2062,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2550);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2113);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2208:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1874,
-        'h', 1874,
-        'O', 2382,
-        'o', 2382,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1985);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2209:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(2155);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2246);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2440);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2210:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1941,
-        'h', 1941,
-        'O', 2063,
-        'o', 2063,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1997);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2211:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1941,
-        'h', 1941,
-        'O', 2397,
-        'o', 2397,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1963);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2212:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'H', 1941,
-        'h', 1941,
-        'O', 2429,
-        'o', 2429,
-        'R', 2227,
-        'r', 2227,
-        'Y', 1994,
-        'y', 1994,
-      );
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(2410);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2213:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(2167);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1964);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2214:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(2168);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1965);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2215:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'H' ||
-          lookahead == 'h') ADVANCE(2271);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2246);
+      if (lookahead == 'I' ||
+          lookahead == 'i') ADVANCE(1966);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2216:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2398);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2460);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2593);
+          lookahead == 'i') ADVANCE(2386);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2217:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2412);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1998);
+          lookahead == 'i') ADVANCE(1967);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2218:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2412);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2000);
+          lookahead == 'i') ADVANCE(2387);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2219:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2412);
+          lookahead == 'i') ADVANCE(2560);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2220:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2194);
+          lookahead == 'i') ADVANCE(1918);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2221:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2190);
+          lookahead == 'i') ADVANCE(2538);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2222:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2656);
+          lookahead == 'i') ADVANCE(2379);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2223:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1973);
+          lookahead == 'i') ADVANCE(2635);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2224:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2195);
+          lookahead == 'i') ADVANCE(2581);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2225:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2187);
+          lookahead == 'i') ADVANCE(2632);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1978);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2226:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2199);
+          lookahead == 'i') ADVANCE(2632);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1977);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2227:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2621);
+          lookahead == 'i') ADVANCE(2632);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2578);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2228:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2289);
+          lookahead == 'i') ADVANCE(2632);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2178);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2229:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2572);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2135);
+          lookahead == 'i') ADVANCE(2632);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1979);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2230:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2007);
+          lookahead == 'i') ADVANCE(2632);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2231:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2462);
+          lookahead == 'i') ADVANCE(1975);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2232:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2019);
+          lookahead == 'i') ADVANCE(2431);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2233:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1985);
+          lookahead == 'i') ADVANCE(2401);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2234:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2432);
+          lookahead == 'i') ADVANCE(2383);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2235:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1986);
+          lookahead == 'i') ADVANCE(1982);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2236:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1987);
+          lookahead == 'i') ADVANCE(2432);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2237:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1988);
+          lookahead == 'i') ADVANCE(2402);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2238:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2408);
+          lookahead == 'i') ADVANCE(2580);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2137);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2239:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1989);
+          lookahead == 'i') ADVANCE(1987);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2240:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2409);
+          lookahead == 'i') ADVANCE(2499);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2241:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2582);
+          lookahead == 'i') ADVANCE(2433);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2242:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1940);
+          lookahead == 'i') ADVANCE(2434);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2243:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2560);
+          lookahead == 'i') ADVANCE(2298);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2498);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2244:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2401);
+          lookahead == 'i') ADVANCE(2298);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2413);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2245:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2657);
+          lookahead == 'i') ADVANCE(2298);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2246:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2603);
+          lookahead == 'i') ADVANCE(2435);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2247:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2000);
+          lookahead == 'i') ADVANCE(2299);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2248:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1999);
+          lookahead == 'i') ADVANCE(2437);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2249:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2600);
+          lookahead == 'i') ADVANCE(2306);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2250:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2200);
+          lookahead == 'i') ADVANCE(1939);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2251:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2001);
+          lookahead == 'i') ADVANCE(1941);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2252:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2654);
+          lookahead == 'i') ADVANCE(2600);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2253:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1997);
+          lookahead == 'i') ADVANCE(2547);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2254:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2453);
+          lookahead == 'i') ADVANCE(2361);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2255:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2423);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1826);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2256:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2405);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1625);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2257:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2004);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1738);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2258:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2454);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1828);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2259:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2424);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1727);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2260:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2602);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2159);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(1740);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2261:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2009);
+      if (lookahead == 'K' ||
+          lookahead == 'k') ADVANCE(2526);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2262:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2521);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2280);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2543);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2263:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2455);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2148);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2005);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2264:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2456);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2148);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2027);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2265:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2320);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2520);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2148);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2035);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2266:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2320);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2435);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1657);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2267:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2320);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1818);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2268:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2457);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1809);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2269:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2321);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1713);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2270:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2459);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1587);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2271:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2328);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1836);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2272:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1961);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1500);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2273:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(1963);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1619);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2274:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2622);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1639);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2275:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2569);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1715);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2276:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'I' ||
-          lookahead == 'i') ADVANCE(2383);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1838);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2277:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1848);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1552);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2278:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1645);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1548);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2279:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1758);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2438);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2571);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2280:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1850);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2424);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2281:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1747);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2266);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2095);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2282:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(1760);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2266);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2283:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'K' ||
-          lookahead == 'k') ADVANCE(2548);
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2615);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2284:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2302);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2565);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2591);
+          lookahead == 'l') ADVANCE(2642);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2285:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2170,
-        'l', 2170,
-        'N', 2027,
-        'n', 2027,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(1900);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2286:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2170,
-        'l', 2170,
-        'N', 2049,
-        'n', 2049,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2604);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2287:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2170,
-        'l', 2170,
-        'N', 2057,
-        'n', 2057,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2268);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2288:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1677);
+          lookahead == 'l') ADVANCE(2129);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2619);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2289:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1840);
+          lookahead == 'l') ADVANCE(2269);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2290:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1831);
+          lookahead == 'l') ADVANCE(2057);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2291:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1733);
+          lookahead == 'l') ADVANCE(2221);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2292:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1607);
+          lookahead == 'l') ADVANCE(2275);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2293:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1858);
+          lookahead == 'l') ADVANCE(2102);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2294:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1520);
+          lookahead == 'l') ADVANCE(2563);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2295:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1639);
+          lookahead == 'l') ADVANCE(2064);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2296:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1659);
+          lookahead == 'l') ADVANCE(2066);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2297:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1735);
+          lookahead == 'l') ADVANCE(2067);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2298:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1860);
+          lookahead == 'l') ADVANCE(2068);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2299:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1572);
+          lookahead == 'l') ADVANCE(2075);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2300:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1568);
+          lookahead == 'l') ADVANCE(2081);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2301:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2460);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2593);
+          lookahead == 'l') ADVANCE(2085);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2302:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2446);
+          lookahead == 'l') ADVANCE(2107);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2303:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2288);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2117);
+          lookahead == 'l') ADVANCE(2089);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2304:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2288);
+          lookahead == 'l') ADVANCE(2098);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2305:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2637);
+          lookahead == 'l') ADVANCE(2099);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2306:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2664);
+          lookahead == 'l') ADVANCE(2101);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2307:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(1922);
+          lookahead == 'l') ADVANCE(2210);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2488);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2496);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2308:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2626);
+          lookahead == 'l') ADVANCE(2210);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2488);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2309:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2290);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2005);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2310:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2151);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2641);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2016);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2311:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2291);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2015);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2312:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2079);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2006);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2313:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2243);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2031);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2314:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2297);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2032);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2315:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2124);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2017);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2316:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2585);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2018);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2317:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2086);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2019);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2318:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2088);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2033);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2319:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2089);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2026);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2320:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2090);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2028);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2321:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2097);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2036);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2322:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2103);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2029);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2323:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2107);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2022);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2324:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2129);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2020);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2325:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2111);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2023);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2326:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2120);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2024);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2327:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2121);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2025);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2328:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2123);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2034);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2329:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2232);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2510);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2518);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2027);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2330:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2232);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2510);
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2044);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2331:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2027,
-        'n', 2027,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2525);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2043);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2607);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2332:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2038,
-        'n', 2038,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2211);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2333:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2037,
-        'n', 2037,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2540);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2021);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2334:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2028,
-        'n', 2028,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2541);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2016);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2480);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2109);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2207);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2335:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2053,
-        'n', 2053,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2439);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2336:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2054,
-        'n', 2054,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2139);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2337:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2039,
-        'n', 2039,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2138);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2338:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2040,
-        'n', 2040,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2441);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2339:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2041,
-        'n', 2041,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2141);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2619);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2340:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2055,
-        'n', 2055,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2443);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2341:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2048,
-        'n', 2048,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2340);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2537);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2342:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2050,
-        'n', 2050,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2340);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2570);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2343:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2058,
-        'n', 2058,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'L' ||
+          lookahead == 'l') ADVANCE(2340);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2569);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2344:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2051,
-        'n', 2051,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1757);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2345:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2044,
-        'n', 2044,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1812);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2346:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2045,
-        'n', 2045,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1388);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2347:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2046,
-        'n', 2046,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1423);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2348:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2047,
-        'n', 2047,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1834);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2349:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2042,
-        'n', 2042,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2463);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2350:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2056,
-        'n', 2056,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2117);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2351:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2049,
-        'n', 2049,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2430);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2293);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2352:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2066,
-        'n', 2066,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2444);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2426);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2353:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2547,
-        'l', 2547,
-        'N', 2065,
-        'n', 2065,
-        'Q', 2629,
-        'q', 2629,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2444);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2354:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2233);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(1946);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2355:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2562,
-        'l', 2562,
-        'N', 2043,
-        'n', 2043,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2150);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2356:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      ADVANCE_MAP(
-        'L', 2563,
-        'l', 2563,
-        'N', 2038,
-        'n', 2038,
-        'R', 2502,
-        'r', 2502,
-        'V', 2131,
-        'v', 2131,
-        'X', 2229,
-        'x', 2229,
-      );
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2118);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2357:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2461);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2134);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2358:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2161);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2464);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2359:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2160);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2142);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2360:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2463);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2461);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2531);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2361:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2163);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2641);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2151);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2362:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2465);
+      if (lookahead == 'M' ||
+          lookahead == 'm') ADVANCE(2447);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2363:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2362);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2559);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2591);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2528);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2364:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2362);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2592);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2591);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1637);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2365:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'L' ||
-          lookahead == 'l') ADVANCE(2362);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2591);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1751);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2366:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1779);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1510);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2367:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1834);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1672);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2368:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1408);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1465);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2369:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1443);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1609);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2370:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1856);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1607);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2371:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2485);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1759);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2372:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2139);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1581);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2373:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2452);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2315);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1476);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2374:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2466);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2448);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1696);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2375:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2466);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1999);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2376:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(1968);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2007);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2377:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2172);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2530);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2378:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2140);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1995);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2379:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2156);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2008);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2380:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2486);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2256);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2381:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2164);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(1962);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2382:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2483);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2553);
+          lookahead == 'n') ADVANCE(1926);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2383:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2173);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2011);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2384:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'M' ||
-          lookahead == 'm') ADVANCE(2470);
+      if (lookahead == 'N' ||
+          lookahead == 'n') ADVANCE(2259);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2385:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2550);
+          lookahead == 'n') ADVANCE(2545);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2386:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1657);
+          lookahead == 'n') ADVANCE(2544);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2387:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1773);
+          lookahead == 'n') ADVANCE(2518);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2388:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1530);
+          lookahead == 'n') ADVANCE(2391);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2389:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1692);
+          lookahead == 'n') ADVANCE(2551);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2390:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1485);
+          lookahead == 'n') ADVANCE(2552);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1937);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2391:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1629);
+          lookahead == 'n') ADVANCE(2108);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2392:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1627);
+          lookahead == 'n') ADVANCE(2555);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2170);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2393:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1781);
+          lookahead == 'n') ADVANCE(2555);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2394:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1601);
+          lookahead == 'n') ADVANCE(1903);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2395:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1496);
+          lookahead == 'n') ADVANCE(1904);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2396:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1716);
+          lookahead == 'n') ADVANCE(2559);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2397:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2021);
+          lookahead == 'n') ADVANCE(2284);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2575);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2398:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2029);
+          lookahead == 'n') ADVANCE(2565);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2399:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2552);
+          lookahead == 'n') ADVANCE(2566);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2400:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2017);
+          lookahead == 'n') ADVANCE(1917);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2401:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2030);
+          lookahead == 'n') ADVANCE(2084);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2402:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2278);
+          lookahead == 'n') ADVANCE(2087);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2403:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1984);
+          lookahead == 'n') ADVANCE(2335);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2050);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2404:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1948);
+          lookahead == 'n') ADVANCE(2335);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2405:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2033);
+          lookahead == 'n') ADVANCE(2175);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1898);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2406:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2281);
+          lookahead == 'n') ADVANCE(2175);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2407:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2567);
+          lookahead == 'n') ADVANCE(2531);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2408:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2566);
+          lookahead == 'n') ADVANCE(1988);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2409:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2540);
+          lookahead == 'n') ADVANCE(2579);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2410:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2413);
+          lookahead == 'n') ADVANCE(2590);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2411:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2573);
+          lookahead == 'n') ADVANCE(1991);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2412:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2574);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1959);
+          lookahead == 'n') ADVANCE(2130);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2413:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2130);
+          lookahead == 'n') ADVANCE(2003);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2414:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2577);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2192);
+          lookahead == 'n') ADVANCE(2546);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2415:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2577);
+          lookahead == 'n') ADVANCE(2359);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2416:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1925);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1667);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2417:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1926);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2030);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2418:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2581);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1670);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2419:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2306);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2597);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1682);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2420:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2587);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2182);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2421:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2588);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2532);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2422:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(1939);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2354);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2423:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2106);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2573);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2287);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2424:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2110);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1996);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2425:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2357);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2072);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(1974);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2426:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2357);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2614);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2427:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2197);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1920);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2474);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2428:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2197);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2609);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2429:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2553);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2488);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2496);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2430:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2010);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2366);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2431:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2601);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2368);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2432:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2612);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2369);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2433:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2013);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2370);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2434:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2152);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2371);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2435:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2025);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2372);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2436:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2568);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2479);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2437:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'N' ||
-          lookahead == 'n') ADVANCE(2381);
+      if (lookahead == 'O' ||
+          lookahead == 'o') ADVANCE(2373);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2438:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1687);
+          lookahead == 'o') ADVANCE(1970);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2439:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2052);
+          lookahead == 'o') ADVANCE(1971);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2440:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1690);
+          lookahead == 'o') ADVANCE(2395);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2441:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1702);
+          lookahead == 'o') ADVANCE(1973);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2442:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2204);
+          lookahead == 'o') ADVANCE(2004);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2443:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2554);
+          lookahead == 'o') ADVANCE(1998);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2444:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2376);
+          lookahead == 'o') ADVANCE(2045);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2445:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2595);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2309);
+          lookahead == 'o') ADVANCE(2358);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2446:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2018);
+          lookahead == 'o') ADVANCE(2629);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2447:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1996);
+          lookahead == 'o') ADVANCE(2047);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2448:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2636);
+          lookahead == 'o') ADVANCE(2049);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2449:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2496);
+          lookahead == 'o') ADVANCE(2002);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2450:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2631);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2111);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2451:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2510);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2518);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2307);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2452:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2388);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1654);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2453:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2390);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2308);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2454:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2391);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2144);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2455:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2392);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2429);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2456:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2393);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2055);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2457:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2394);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(1931);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2458:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2501);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2083);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2459:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2395);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2090);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2460:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1992);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2097);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2461:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1993);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2293);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2462:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2417);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2575);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2463:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(1995);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2297);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2464:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2026);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2302);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2465:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2020);
+      if (lookahead == 'P' ||
+          lookahead == 'p') ADVANCE(2620);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2466:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2067);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2140);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2467:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2380);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2137);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2468:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2651);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2104);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2469:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2069);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2103);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2470:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2071);
+      if (lookahead == 'Q' ||
+          lookahead == 'q') ADVANCE(2608);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2510);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2471:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'O' ||
-          lookahead == 'o') ADVANCE(2024);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1927);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2472:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2133);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2174);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2473:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2329);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2639);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2474:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1674);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1652);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2475:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2330);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1573);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2476:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2166);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1559);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2477:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2451);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1589);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2478:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2077);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1621);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2479:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(1953);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1444);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2480:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2105);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2427);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2481:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2112);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1925);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2534);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2482:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2119);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1925);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2483:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2315);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2345);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2484:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2597);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2201);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2485:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2319);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1929);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2486:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2324);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2426);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2487:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'P' ||
-          lookahead == 'p') ADVANCE(2642);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2420);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2488:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2162);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2554);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2489:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2159);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2367);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2490:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2126);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1890);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2491:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2125);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(1945);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2492:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Q' ||
-          lookahead == 'q') ADVANCE(2630);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2532);
+      if (lookahead == 'R' ||
+          lookahead == 'r') ADVANCE(2110);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2493:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1949);
+          lookahead == 'r') ADVANCE(2060);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2494:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2196);
+          lookahead == 'r') ADVANCE(1895);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2495:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2661);
+          lookahead == 'r') ADVANCE(2513);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2496:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1672);
+          lookahead == 'r') ADVANCE(2065);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2497:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1593);
+          lookahead == 'r') ADVANCE(2572);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2498:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1579);
+          lookahead == 'r') ADVANCE(1936);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2499:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1609);
+          lookahead == 'r') ADVANCE(2070);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2500:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1641);
+          lookahead == 'r') ADVANCE(1922);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2501:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1464);
+          lookahead == 'r') ADVANCE(2072);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2502:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2449);
+          lookahead == 'r') ADVANCE(2132);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2503:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1947);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2556);
+          lookahead == 'r') ADVANCE(2079);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2504:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1947);
+          lookahead == 'r') ADVANCE(2088);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2505:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2367);
+          lookahead == 'r') ADVANCE(2092);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2506:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2223);
+          lookahead == 'r') ADVANCE(2093);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2507:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1951);
+          lookahead == 'r') ADVANCE(2224);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2508:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2448);
+          lookahead == 'r') ADVANCE(2394);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2509:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2442);
+          lookahead == 'r') ADVANCE(2535);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2510:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2576);
+          lookahead == 'r') ADVANCE(2216);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2511:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2389);
+          lookahead == 'r') ADVANCE(2442);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2512:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1912);
+          lookahead == 'r') ADVANCE(2217);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2513:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1967);
+          lookahead == 'r') ADVANCE(2143);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2514:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2132);
+          lookahead == 'r') ADVANCE(2171);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2515:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2082);
+          lookahead == 'r') ADVANCE(2446);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2516:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1917);
+          lookahead == 'r') ADVANCE(2252);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2517:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2535);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1595);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2518:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2087);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1479);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2519:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2594);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1469);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2520:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1958);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1611);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2521:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2092);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1593);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2522:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(1944);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1732);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2523:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2094);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1734);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2524:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2154);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(1596);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2525:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2101);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2115);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2526:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2109);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2457);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2527:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2114);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2517);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2528:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2115);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2576);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1934);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2529:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2246);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2576);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1935);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2530:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2416);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2576);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2198);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2531:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2557);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2576);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2202);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2532:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2238);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2056);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2533:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2464);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2521);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2534:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2239);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2058);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2535:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2165);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2223);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2536:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2193);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2524);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2537:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2468);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2204);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2538:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'R' ||
-          lookahead == 'r') ADVANCE(2274);
+      if (lookahead == 'S' ||
+          lookahead == 's') ADVANCE(2561);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2539:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1615);
+          lookahead == 's') ADVANCE(2082);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2540:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1499);
+          lookahead == 's') ADVANCE(2091);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2541:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1489);
+          lookahead == 's') ADVANCE(2094);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2542:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1631);
+          lookahead == 's') ADVANCE(2574);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2543:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1613);
+          lookahead == 's') ADVANCE(2425);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2544:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1752);
+          lookahead == 's') ADVANCE(2215);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2545:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1754);
+          lookahead == 's') ADVANCE(2236);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2546:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(1616);
+          lookahead == 's') ADVANCE(2241);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2547:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2137);
+          lookahead == 's') ADVANCE(2246);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2548:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2479);
+          lookahead == 's') ADVANCE(2449);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2549:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2539);
+          lookahead == 's') ADVANCE(2548);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2550:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2598);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1956);
+          lookahead == 't') ADVANCE(1665);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2551:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2598);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1957);
+          lookahead == 't') ADVANCE(1822);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2552:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2598);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2220);
+          lookahead == 't') ADVANCE(1749);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2553:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2598);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2224);
+          lookahead == 't') ADVANCE(1746);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2554:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2078);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1536);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2555:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2543);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1613);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2556:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2080);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1718);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2557:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2245);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1629);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2558:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2546);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1542);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2559:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2226);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1563);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2560:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2583);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1490);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2561:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2104);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1508);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2562:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2113);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1729);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2563:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2116);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1736);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2564:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2596);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1719);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2565:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2447);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1439);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2566:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2237);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1686);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2567:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2258);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1942);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2568:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2263);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(1857);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2569:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2268);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2422);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2570:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2471);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2484);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2571:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'S' ||
-          lookahead == 's') ADVANCE(2570);
+      if (lookahead == 'T' ||
+          lookahead == 't') ADVANCE(2051);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2572:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1685);
+          lookahead == 't') ADVANCE(2641);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2573:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1844);
+          lookahead == 't') ADVANCE(2199);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2574:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1771);
+          lookahead == 't') ADVANCE(2485);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2575:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1766);
+          lookahead == 't') ADVANCE(2209);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2576:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1556);
+          lookahead == 't') ADVANCE(1932);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2577:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1633);
+          lookahead == 't') ADVANCE(2232);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2578:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1738);
+          lookahead == 't') ADVANCE(2149);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2579:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1649);
+          lookahead == 't') ADVANCE(1905);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2580:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1562);
+          lookahead == 't') ADVANCE(2220);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2581:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1583);
+          lookahead == 't') ADVANCE(2061);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2582:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1510);
+          lookahead == 't') ADVANCE(1943);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2583:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1528);
+          lookahead == 't') ADVANCE(2071);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2584:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1749);
+          lookahead == 't') ADVANCE(2114);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2585:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1756);
+          lookahead == 't') ADVANCE(2076);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2586:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1739);
+          lookahead == 't') ADVANCE(2116);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2587:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1459);
+          lookahead == 't') ADVANCE(2096);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2588:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1706);
+          lookahead == 't') ADVANCE(2436);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2589:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1964);
+          lookahead == 't') ADVANCE(2622);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2590:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1879);
+          lookahead == 't') ADVANCE(2120);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2591:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2444);
+          lookahead == 't') ADVANCE(2233);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2592:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2506);
+          lookahead == 't') ADVANCE(2121);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2593:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2073);
+          lookahead == 't') ADVANCE(2213);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2594:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2663);
+          lookahead == 't') ADVANCE(2237);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2595:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2221);
+          lookahead == 't') ADVANCE(2122);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2596:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2507);
+          lookahead == 't') ADVANCE(2214);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2597:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2231);
+          lookahead == 't') ADVANCE(2124);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2598:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1954);
+          lookahead == 't') ADVANCE(2247);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2599:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2254);
+          lookahead == 't') ADVANCE(2235);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2600:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2171);
+          lookahead == 't') ADVANCE(2239);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2601:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1927);
+          lookahead == 't') ADVANCE(2242);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2602:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2242);
+          lookahead == 't') ADVANCE(2248);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2603:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2083);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1956);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2604:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(1965);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2042);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2605:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2093);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1955);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2606:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2136);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(1954);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2607:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2098);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2200);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2608:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2138);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2240);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2609:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2118);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2520);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2610:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2458);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2509);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2611:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2644);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2428);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2612:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2142);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2489);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2613:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2255);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2294);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2614:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2143);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2591);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2615:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2235);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2059);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2616:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2259);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2495);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2617:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2144);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2073);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2618:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2236);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2287);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2619:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2146);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2136);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2620:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2269);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2496);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2621:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2257);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2296);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2622:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2261);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2501);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2623:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2264);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2586);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2624:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'T' ||
-          lookahead == 't') ADVANCE(2270);
+      if (lookahead == 'U' ||
+          lookahead == 'u') ADVANCE(2503);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2625:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1977);
+          lookahead == 'u') ADVANCE(2300);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2626:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2064);
+          lookahead == 'u') ADVANCE(2504);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2627:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1978);
+          lookahead == 'u') ADVANCE(2304);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2628:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1976);
+          lookahead == 'u') ADVANCE(2305);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2629:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2222);
+          lookahead == 'u') ADVANCE(2594);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2630:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
       if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2262);
+          lookahead == 'u') ADVANCE(1958);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2631:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2542);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2208);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2632:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2531);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1937);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2633:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2450);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2054);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2634:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2511);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(1899);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2635:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2316);
+      if (lookahead == 'V' ||
+          lookahead == 'v') ADVANCE(2080);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2636:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2613);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(1583);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2637:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2081);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(1585);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2638:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2517);
+      if (lookahead == 'X' ||
+          lookahead == 'x') ADVANCE(2589);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2639:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2095);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1773);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2640:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2309);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1830);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2641:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2158);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1550);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2642:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2518);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(1487);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2643:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2318);
+      if (lookahead == 'Y' ||
+          lookahead == 'y') ADVANCE(2458);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2644:
       ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2523);
       if (lookahead == '$' ||
           ('0' <= lookahead && lookahead <= '9') ||
           ('A' <= lookahead && lookahead <= 'Z') ||
           lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
+          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2644);
       END_STATE();
     case 2645:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2608);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2646:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2525);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2647:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2322);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2648:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2526);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2649:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2326);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2650:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2327);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2651:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(2616);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2652:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'U' ||
-          lookahead == 'u') ADVANCE(1980);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2653:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(2230);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2654:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1959);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2655:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(2076);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2656:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(1921);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2657:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'V' ||
-          lookahead == 'v') ADVANCE(2102);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2658:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1603);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2659:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(1605);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2660:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'X' ||
-          lookahead == 'x') ADVANCE(2611);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2661:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1795);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2662:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1852);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2663:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1570);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2664:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(1507);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2665:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == 'Y' ||
-          lookahead == 'y') ADVANCE(2480);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2666:
-      ACCEPT_TOKEN(aux_sym_identifier_token1);
-      if (lookahead == '$' ||
-          ('0' <= lookahead && lookahead <= '9') ||
-          ('A' <= lookahead && lookahead <= 'Z') ||
-          lookahead == '_' ||
-          ('a' <= lookahead && lookahead <= 'z')) ADVANCE(2666);
-      END_STATE();
-    case 2667:
       ACCEPT_TOKEN(sym_comment);
-      if (lookahead == '\r') ADVANCE(2669);
-      if (lookahead == '/') ADVANCE(2668);
-      if (lookahead == '\\') ADVANCE(2667);
+      if (lookahead == '\r') ADVANCE(2647);
+      if (lookahead == '/') ADVANCE(2646);
+      if (lookahead == '\\') ADVANCE(2645);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2669);
+          lookahead != '\n') ADVANCE(2647);
       END_STATE();
-    case 2668:
+    case 2646:
       ACCEPT_TOKEN(sym_comment);
-      if (lookahead == '*') ADVANCE(2671);
+      if (lookahead == '*') ADVANCE(2649);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2669);
+          lookahead != '\n') ADVANCE(2647);
       END_STATE();
-    case 2669:
+    case 2647:
       ACCEPT_TOKEN(sym_comment);
-      if (lookahead == '/') ADVANCE(2668);
-      if (lookahead == '\\') ADVANCE(2667);
+      if (lookahead == '/') ADVANCE(2646);
+      if (lookahead == '\\') ADVANCE(2645);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2669);
+          lookahead != '\n') ADVANCE(2647);
       END_STATE();
-    case 2670:
+    case 2648:
       ACCEPT_TOKEN(sym_comment);
-      if (lookahead == '=') ADVANCE(1390);
+      if (lookahead == '=') ADVANCE(1370);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2671);
+          lookahead != '\n') ADVANCE(2649);
       END_STATE();
-    case 2671:
+    case 2649:
       ACCEPT_TOKEN(sym_comment);
       if (lookahead != 0 &&
-          lookahead != '\n') ADVANCE(2671);
+          lookahead != '\n') ADVANCE(2649);
       END_STATE();
     default:
       return false;
@@ -37520,7 +37272,7 @@ static bool ts_lex(TSLexer *lexer, TSStateId state) {
 
 static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [0] = {.lex_state = 0, .external_lex_state = 1},
-  [1] = {.lex_state = 1301, .external_lex_state = 2},
+  [1] = {.lex_state = 1281, .external_lex_state = 2},
   [2] = {.lex_state = 217, .external_lex_state = 2},
   [3] = {.lex_state = 217, .external_lex_state = 2},
   [4] = {.lex_state = 217, .external_lex_state = 2},
@@ -37569,12 +37321,12 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [47] = {.lex_state = 269, .external_lex_state = 2},
   [48] = {.lex_state = 269, .external_lex_state = 2},
   [49] = {.lex_state = 269, .external_lex_state = 2},
-  [50] = {.lex_state = 1301, .external_lex_state = 2},
-  [51] = {.lex_state = 1301, .external_lex_state = 2},
-  [52] = {.lex_state = 269, .external_lex_state = 2},
+  [50] = {.lex_state = 269, .external_lex_state = 2},
+  [51] = {.lex_state = 269, .external_lex_state = 2},
+  [52] = {.lex_state = 1281, .external_lex_state = 2},
   [53] = {.lex_state = 269, .external_lex_state = 2},
   [54] = {.lex_state = 269, .external_lex_state = 2},
-  [55] = {.lex_state = 269, .external_lex_state = 2},
+  [55] = {.lex_state = 1281, .external_lex_state = 2},
   [56] = {.lex_state = 218, .external_lex_state = 2},
   [57] = {.lex_state = 218, .external_lex_state = 2},
   [58] = {.lex_state = 218, .external_lex_state = 2},
@@ -37640,73 +37392,73 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [118] = {.lex_state = 218, .external_lex_state = 2},
   [119] = {.lex_state = 218, .external_lex_state = 2},
   [120] = {.lex_state = 229, .external_lex_state = 2},
-  [121] = {.lex_state = 229, .external_lex_state = 2},
-  [122] = {.lex_state = 229, .external_lex_state = 2},
+  [121] = {.lex_state = 236, .external_lex_state = 2},
+  [122] = {.lex_state = 236, .external_lex_state = 2},
   [123] = {.lex_state = 230, .external_lex_state = 2},
   [124] = {.lex_state = 230, .external_lex_state = 2},
-  [125] = {.lex_state = 230, .external_lex_state = 2},
+  [125] = {.lex_state = 229, .external_lex_state = 2},
   [126] = {.lex_state = 230, .external_lex_state = 2},
   [127] = {.lex_state = 236, .external_lex_state = 2},
-  [128] = {.lex_state = 230, .external_lex_state = 2},
-  [129] = {.lex_state = 236, .external_lex_state = 2},
+  [128] = {.lex_state = 236, .external_lex_state = 2},
+  [129] = {.lex_state = 229, .external_lex_state = 2},
   [130] = {.lex_state = 229, .external_lex_state = 2},
-  [131] = {.lex_state = 236, .external_lex_state = 2},
-  [132] = {.lex_state = 229, .external_lex_state = 2},
-  [133] = {.lex_state = 236, .external_lex_state = 2},
+  [131] = {.lex_state = 229, .external_lex_state = 2},
+  [132] = {.lex_state = 236, .external_lex_state = 2},
+  [133] = {.lex_state = 229, .external_lex_state = 2},
   [134] = {.lex_state = 236, .external_lex_state = 2},
   [135] = {.lex_state = 229, .external_lex_state = 2},
   [136] = {.lex_state = 236, .external_lex_state = 2},
   [137] = {.lex_state = 229, .external_lex_state = 2},
-  [138] = {.lex_state = 236, .external_lex_state = 2},
+  [138] = {.lex_state = 229, .external_lex_state = 2},
   [139] = {.lex_state = 230, .external_lex_state = 2},
-  [140] = {.lex_state = 230, .external_lex_state = 2},
-  [141] = {.lex_state = 236, .external_lex_state = 2},
-  [142] = {.lex_state = 236, .external_lex_state = 2},
-  [143] = {.lex_state = 229, .external_lex_state = 2},
-  [144] = {.lex_state = 229, .external_lex_state = 2},
-  [145] = {.lex_state = 236, .external_lex_state = 2},
-  [146] = {.lex_state = 229, .external_lex_state = 2},
+  [140] = {.lex_state = 236, .external_lex_state = 2},
+  [141] = {.lex_state = 230, .external_lex_state = 2},
+  [142] = {.lex_state = 230, .external_lex_state = 2},
+  [143] = {.lex_state = 230, .external_lex_state = 2},
+  [144] = {.lex_state = 236, .external_lex_state = 2},
+  [145] = {.lex_state = 229, .external_lex_state = 2},
+  [146] = {.lex_state = 236, .external_lex_state = 2},
   [147] = {.lex_state = 229, .external_lex_state = 2},
   [148] = {.lex_state = 230, .external_lex_state = 2},
-  [149] = {.lex_state = 236, .external_lex_state = 2},
-  [150] = {.lex_state = 230, .external_lex_state = 2},
-  [151] = {.lex_state = 236, .external_lex_state = 2},
-  [152] = {.lex_state = 229, .external_lex_state = 2},
+  [149] = {.lex_state = 229, .external_lex_state = 2},
+  [150] = {.lex_state = 236, .external_lex_state = 2},
+  [151] = {.lex_state = 230, .external_lex_state = 2},
+  [152] = {.lex_state = 230, .external_lex_state = 2},
   [153] = {.lex_state = 236, .external_lex_state = 2},
   [154] = {.lex_state = 229, .external_lex_state = 2},
-  [155] = {.lex_state = 230, .external_lex_state = 2},
+  [155] = {.lex_state = 236, .external_lex_state = 2},
   [156] = {.lex_state = 230, .external_lex_state = 2},
   [157] = {.lex_state = 236, .external_lex_state = 2},
   [158] = {.lex_state = 229, .external_lex_state = 2},
   [159] = {.lex_state = 236, .external_lex_state = 2},
   [160] = {.lex_state = 229, .external_lex_state = 2},
-  [161] = {.lex_state = 230, .external_lex_state = 2},
+  [161] = {.lex_state = 229, .external_lex_state = 2},
   [162] = {.lex_state = 230, .external_lex_state = 2},
   [163] = {.lex_state = 236, .external_lex_state = 2},
-  [164] = {.lex_state = 229, .external_lex_state = 2},
-  [165] = {.lex_state = 236, .external_lex_state = 2},
-  [166] = {.lex_state = 229, .external_lex_state = 2},
-  [167] = {.lex_state = 230, .external_lex_state = 2},
-  [168] = {.lex_state = 230, .external_lex_state = 2},
+  [164] = {.lex_state = 230, .external_lex_state = 2},
+  [165] = {.lex_state = 230, .external_lex_state = 2},
+  [166] = {.lex_state = 236, .external_lex_state = 2},
+  [167] = {.lex_state = 229, .external_lex_state = 2},
+  [168] = {.lex_state = 229, .external_lex_state = 2},
   [169] = {.lex_state = 236, .external_lex_state = 2},
-  [170] = {.lex_state = 229, .external_lex_state = 2},
-  [171] = {.lex_state = 236, .external_lex_state = 2},
+  [170] = {.lex_state = 236, .external_lex_state = 2},
+  [171] = {.lex_state = 229, .external_lex_state = 2},
   [172] = {.lex_state = 229, .external_lex_state = 2},
-  [173] = {.lex_state = 236, .external_lex_state = 2},
-  [174] = {.lex_state = 229, .external_lex_state = 2},
+  [173] = {.lex_state = 229, .external_lex_state = 2},
+  [174] = {.lex_state = 236, .external_lex_state = 2},
   [175] = {.lex_state = 236, .external_lex_state = 2},
   [176] = {.lex_state = 229, .external_lex_state = 2},
   [177] = {.lex_state = 236, .external_lex_state = 2},
   [178] = {.lex_state = 229, .external_lex_state = 2},
   [179] = {.lex_state = 236, .external_lex_state = 2},
   [180] = {.lex_state = 229, .external_lex_state = 2},
-  [181] = {.lex_state = 236, .external_lex_state = 2},
-  [182] = {.lex_state = 229, .external_lex_state = 2},
+  [181] = {.lex_state = 230, .external_lex_state = 2},
+  [182] = {.lex_state = 236, .external_lex_state = 2},
   [183] = {.lex_state = 236, .external_lex_state = 2},
-  [184] = {.lex_state = 229, .external_lex_state = 2},
-  [185] = {.lex_state = 236, .external_lex_state = 2},
+  [184] = {.lex_state = 230, .external_lex_state = 2},
+  [185] = {.lex_state = 229, .external_lex_state = 2},
   [186] = {.lex_state = 229, .external_lex_state = 2},
-  [187] = {.lex_state = 230, .external_lex_state = 2},
+  [187] = {.lex_state = 236, .external_lex_state = 2},
   [188] = {.lex_state = 248, .external_lex_state = 2},
   [189] = {.lex_state = 248, .external_lex_state = 2},
   [190] = {.lex_state = 248, .external_lex_state = 2},
@@ -37992,183 +37744,183 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [470] = {.lex_state = 219, .external_lex_state = 2},
   [471] = {.lex_state = 219, .external_lex_state = 2},
   [472] = {.lex_state = 231, .external_lex_state = 2},
-  [473] = {.lex_state = 237, .external_lex_state = 2},
-  [474] = {.lex_state = 237, .external_lex_state = 2},
+  [473] = {.lex_state = 231, .external_lex_state = 2},
+  [474] = {.lex_state = 231, .external_lex_state = 2},
   [475] = {.lex_state = 231, .external_lex_state = 2},
   [476] = {.lex_state = 237, .external_lex_state = 2},
   [477] = {.lex_state = 240, .external_lex_state = 2},
   [478] = {.lex_state = 231, .external_lex_state = 2},
-  [479] = {.lex_state = 231, .external_lex_state = 2},
+  [479] = {.lex_state = 237, .external_lex_state = 2},
   [480] = {.lex_state = 240, .external_lex_state = 2},
-  [481] = {.lex_state = 237, .external_lex_state = 2},
-  [482] = {.lex_state = 231, .external_lex_state = 2},
-  [483] = {.lex_state = 237, .external_lex_state = 2},
-  [484] = {.lex_state = 231, .external_lex_state = 2},
+  [481] = {.lex_state = 231, .external_lex_state = 2},
+  [482] = {.lex_state = 240, .external_lex_state = 2},
+  [483] = {.lex_state = 231, .external_lex_state = 2},
+  [484] = {.lex_state = 240, .external_lex_state = 2},
   [485] = {.lex_state = 240, .external_lex_state = 2},
-  [486] = {.lex_state = 240, .external_lex_state = 2},
-  [487] = {.lex_state = 237, .external_lex_state = 2},
+  [486] = {.lex_state = 231, .external_lex_state = 2},
+  [487] = {.lex_state = 240, .external_lex_state = 2},
   [488] = {.lex_state = 231, .external_lex_state = 2},
-  [489] = {.lex_state = 237, .external_lex_state = 2},
+  [489] = {.lex_state = 240, .external_lex_state = 2},
   [490] = {.lex_state = 231, .external_lex_state = 2},
   [491] = {.lex_state = 240, .external_lex_state = 2},
   [492] = {.lex_state = 240, .external_lex_state = 2},
-  [493] = {.lex_state = 237, .external_lex_state = 2},
-  [494] = {.lex_state = 231, .external_lex_state = 2},
+  [493] = {.lex_state = 231, .external_lex_state = 2},
+  [494] = {.lex_state = 240, .external_lex_state = 2},
   [495] = {.lex_state = 237, .external_lex_state = 2},
   [496] = {.lex_state = 231, .external_lex_state = 2},
-  [497] = {.lex_state = 240, .external_lex_state = 2},
-  [498] = {.lex_state = 240, .external_lex_state = 2},
-  [499] = {.lex_state = 237, .external_lex_state = 2},
-  [500] = {.lex_state = 231, .external_lex_state = 2},
-  [501] = {.lex_state = 237, .external_lex_state = 2},
-  [502] = {.lex_state = 231, .external_lex_state = 2},
+  [497] = {.lex_state = 237, .external_lex_state = 2},
+  [498] = {.lex_state = 237, .external_lex_state = 2},
+  [499] = {.lex_state = 231, .external_lex_state = 2},
+  [500] = {.lex_state = 240, .external_lex_state = 2},
+  [501] = {.lex_state = 240, .external_lex_state = 2},
+  [502] = {.lex_state = 240, .external_lex_state = 2},
   [503] = {.lex_state = 240, .external_lex_state = 2},
-  [504] = {.lex_state = 240, .external_lex_state = 2},
-  [505] = {.lex_state = 240, .external_lex_state = 2},
-  [506] = {.lex_state = 237, .external_lex_state = 2},
-  [507] = {.lex_state = 231, .external_lex_state = 2},
+  [504] = {.lex_state = 231, .external_lex_state = 2},
+  [505] = {.lex_state = 231, .external_lex_state = 2},
+  [506] = {.lex_state = 240, .external_lex_state = 2},
+  [507] = {.lex_state = 240, .external_lex_state = 2},
   [508] = {.lex_state = 231, .external_lex_state = 2},
   [509] = {.lex_state = 231, .external_lex_state = 2},
   [510] = {.lex_state = 240, .external_lex_state = 2},
-  [511] = {.lex_state = 240, .external_lex_state = 2},
-  [512] = {.lex_state = 237, .external_lex_state = 2},
-  [513] = {.lex_state = 231, .external_lex_state = 2},
-  [514] = {.lex_state = 237, .external_lex_state = 2},
-  [515] = {.lex_state = 231, .external_lex_state = 2},
+  [511] = {.lex_state = 237, .external_lex_state = 2},
+  [512] = {.lex_state = 240, .external_lex_state = 2},
+  [513] = {.lex_state = 237, .external_lex_state = 2},
+  [514] = {.lex_state = 231, .external_lex_state = 2},
+  [515] = {.lex_state = 237, .external_lex_state = 2},
   [516] = {.lex_state = 237, .external_lex_state = 2},
-  [517] = {.lex_state = 231, .external_lex_state = 2},
-  [518] = {.lex_state = 237, .external_lex_state = 2},
+  [517] = {.lex_state = 240, .external_lex_state = 2},
+  [518] = {.lex_state = 231, .external_lex_state = 2},
   [519] = {.lex_state = 231, .external_lex_state = 2},
   [520] = {.lex_state = 237, .external_lex_state = 2},
-  [521] = {.lex_state = 231, .external_lex_state = 2},
-  [522] = {.lex_state = 237, .external_lex_state = 2},
+  [521] = {.lex_state = 240, .external_lex_state = 2},
+  [522] = {.lex_state = 240, .external_lex_state = 2},
   [523] = {.lex_state = 231, .external_lex_state = 2},
-  [524] = {.lex_state = 221, .external_lex_state = 2},
+  [524] = {.lex_state = 240, .external_lex_state = 2},
   [525] = {.lex_state = 237, .external_lex_state = 2},
   [526] = {.lex_state = 237, .external_lex_state = 2},
-  [527] = {.lex_state = 231, .external_lex_state = 2},
+  [527] = {.lex_state = 237, .external_lex_state = 2},
   [528] = {.lex_state = 237, .external_lex_state = 2},
   [529] = {.lex_state = 231, .external_lex_state = 2},
   [530] = {.lex_state = 231, .external_lex_state = 2},
   [531] = {.lex_state = 237, .external_lex_state = 2},
-  [532] = {.lex_state = 231, .external_lex_state = 2},
+  [532] = {.lex_state = 221, .external_lex_state = 2},
   [533] = {.lex_state = 240, .external_lex_state = 2},
-  [534] = {.lex_state = 240, .external_lex_state = 2},
-  [535] = {.lex_state = 237, .external_lex_state = 2},
-  [536] = {.lex_state = 240, .external_lex_state = 2},
-  [537] = {.lex_state = 237, .external_lex_state = 2},
-  [538] = {.lex_state = 231, .external_lex_state = 2},
-  [539] = {.lex_state = 237, .external_lex_state = 2},
-  [540] = {.lex_state = 237, .external_lex_state = 2},
+  [534] = {.lex_state = 231, .external_lex_state = 2},
+  [535] = {.lex_state = 240, .external_lex_state = 2},
+  [536] = {.lex_state = 237, .external_lex_state = 2},
+  [537] = {.lex_state = 231, .external_lex_state = 2},
+  [538] = {.lex_state = 240, .external_lex_state = 2},
+  [539] = {.lex_state = 240, .external_lex_state = 2},
+  [540] = {.lex_state = 231, .external_lex_state = 2},
   [541] = {.lex_state = 232, .external_lex_state = 2},
   [542] = {.lex_state = 232, .external_lex_state = 2},
-  [543] = {.lex_state = 232, .external_lex_state = 2},
+  [543] = {.lex_state = 234, .external_lex_state = 2},
   [544] = {.lex_state = 232, .external_lex_state = 2},
-  [545] = {.lex_state = 232, .external_lex_state = 2},
+  [545] = {.lex_state = 271, .external_lex_state = 2},
   [546] = {.lex_state = 232, .external_lex_state = 2},
   [547] = {.lex_state = 232, .external_lex_state = 2},
-  [548] = {.lex_state = 234, .external_lex_state = 2},
-  [549] = {.lex_state = 232, .external_lex_state = 2},
+  [548] = {.lex_state = 232, .external_lex_state = 2},
+  [549] = {.lex_state = 271, .external_lex_state = 2},
   [550] = {.lex_state = 232, .external_lex_state = 2},
-  [551] = {.lex_state = 232, .external_lex_state = 2},
+  [551] = {.lex_state = 234, .external_lex_state = 2},
   [552] = {.lex_state = 232, .external_lex_state = 2},
-  [553] = {.lex_state = 234, .external_lex_state = 2},
+  [553] = {.lex_state = 232, .external_lex_state = 2},
   [554] = {.lex_state = 232, .external_lex_state = 2},
   [555] = {.lex_state = 232, .external_lex_state = 2},
-  [556] = {.lex_state = 234, .external_lex_state = 2},
+  [556] = {.lex_state = 232, .external_lex_state = 2},
   [557] = {.lex_state = 232, .external_lex_state = 2},
   [558] = {.lex_state = 232, .external_lex_state = 2},
   [559] = {.lex_state = 232, .external_lex_state = 2},
-  [560] = {.lex_state = 271, .external_lex_state = 2},
-  [561] = {.lex_state = 219, .external_lex_state = 2},
-  [562] = {.lex_state = 271, .external_lex_state = 2},
+  [560] = {.lex_state = 232, .external_lex_state = 2},
+  [561] = {.lex_state = 234, .external_lex_state = 2},
+  [562] = {.lex_state = 232, .external_lex_state = 2},
   [563] = {.lex_state = 232, .external_lex_state = 2},
-  [564] = {.lex_state = 232, .external_lex_state = 2},
+  [564] = {.lex_state = 234, .external_lex_state = 2},
   [565] = {.lex_state = 232, .external_lex_state = 2},
   [566] = {.lex_state = 232, .external_lex_state = 2},
-  [567] = {.lex_state = 234, .external_lex_state = 2},
-  [568] = {.lex_state = 232, .external_lex_state = 2},
+  [567] = {.lex_state = 232, .external_lex_state = 2},
+  [568] = {.lex_state = 219, .external_lex_state = 2},
   [569] = {.lex_state = 222, .external_lex_state = 2},
   [570] = {.lex_state = 222, .external_lex_state = 2},
-  [571] = {.lex_state = 235, .external_lex_state = 2},
-  [572] = {.lex_state = 242, .external_lex_state = 2},
+  [571] = {.lex_state = 222, .external_lex_state = 2},
+  [572] = {.lex_state = 222, .external_lex_state = 2},
   [573] = {.lex_state = 222, .external_lex_state = 2},
   [574] = {.lex_state = 222, .external_lex_state = 2},
-  [575] = {.lex_state = 242, .external_lex_state = 2},
+  [575] = {.lex_state = 222, .external_lex_state = 2},
   [576] = {.lex_state = 222, .external_lex_state = 2},
-  [577] = {.lex_state = 242, .external_lex_state = 2},
-  [578] = {.lex_state = 222, .external_lex_state = 2},
-  [579] = {.lex_state = 273, .external_lex_state = 2},
-  [580] = {.lex_state = 222, .external_lex_state = 2},
-  [581] = {.lex_state = 222, .external_lex_state = 2},
-  [582] = {.lex_state = 222, .external_lex_state = 2},
+  [577] = {.lex_state = 222, .external_lex_state = 2},
+  [578] = {.lex_state = 235, .external_lex_state = 2},
+  [579] = {.lex_state = 235, .external_lex_state = 2},
+  [580] = {.lex_state = 273, .external_lex_state = 2},
+  [581] = {.lex_state = 242, .external_lex_state = 2},
+  [582] = {.lex_state = 235, .external_lex_state = 2},
   [583] = {.lex_state = 235, .external_lex_state = 2},
   [584] = {.lex_state = 235, .external_lex_state = 2},
   [585] = {.lex_state = 222, .external_lex_state = 2},
   [586] = {.lex_state = 222, .external_lex_state = 2},
-  [587] = {.lex_state = 242, .external_lex_state = 2},
+  [587] = {.lex_state = 222, .external_lex_state = 2},
   [588] = {.lex_state = 222, .external_lex_state = 2},
   [589] = {.lex_state = 222, .external_lex_state = 2},
   [590] = {.lex_state = 222, .external_lex_state = 2},
   [591] = {.lex_state = 222, .external_lex_state = 2},
-  [592] = {.lex_state = 235, .external_lex_state = 2},
+  [592] = {.lex_state = 273, .external_lex_state = 2},
   [593] = {.lex_state = 222, .external_lex_state = 2},
   [594] = {.lex_state = 222, .external_lex_state = 2},
   [595] = {.lex_state = 222, .external_lex_state = 2},
-  [596] = {.lex_state = 242, .external_lex_state = 2},
+  [596] = {.lex_state = 222, .external_lex_state = 2},
   [597] = {.lex_state = 222, .external_lex_state = 2},
-  [598] = {.lex_state = 222, .external_lex_state = 2},
+  [598] = {.lex_state = 242, .external_lex_state = 2},
   [599] = {.lex_state = 222, .external_lex_state = 2},
-  [600] = {.lex_state = 222, .external_lex_state = 2},
+  [600] = {.lex_state = 242, .external_lex_state = 2},
   [601] = {.lex_state = 222, .external_lex_state = 2},
   [602] = {.lex_state = 222, .external_lex_state = 2},
-  [603] = {.lex_state = 222, .external_lex_state = 2},
+  [603] = {.lex_state = 242, .external_lex_state = 2},
   [604] = {.lex_state = 222, .external_lex_state = 2},
   [605] = {.lex_state = 222, .external_lex_state = 2},
-  [606] = {.lex_state = 222, .external_lex_state = 2},
+  [606] = {.lex_state = 242, .external_lex_state = 2},
   [607] = {.lex_state = 222, .external_lex_state = 2},
   [608] = {.lex_state = 222, .external_lex_state = 2},
   [609] = {.lex_state = 242, .external_lex_state = 2},
-  [610] = {.lex_state = 273, .external_lex_state = 2},
+  [610] = {.lex_state = 242, .external_lex_state = 2},
   [611] = {.lex_state = 222, .external_lex_state = 2},
-  [612] = {.lex_state = 222, .external_lex_state = 2},
+  [612] = {.lex_state = 235, .external_lex_state = 2},
   [613] = {.lex_state = 222, .external_lex_state = 2},
-  [614] = {.lex_state = 242, .external_lex_state = 2},
+  [614] = {.lex_state = 222, .external_lex_state = 2},
   [615] = {.lex_state = 242, .external_lex_state = 2},
-  [616] = {.lex_state = 235, .external_lex_state = 2},
+  [616] = {.lex_state = 222, .external_lex_state = 2},
   [617] = {.lex_state = 222, .external_lex_state = 2},
   [618] = {.lex_state = 222, .external_lex_state = 2},
-  [619] = {.lex_state = 235, .external_lex_state = 2},
-  [620] = {.lex_state = 242, .external_lex_state = 2},
+  [619] = {.lex_state = 242, .external_lex_state = 2},
+  [620] = {.lex_state = 222, .external_lex_state = 2},
   [621] = {.lex_state = 222, .external_lex_state = 2},
   [622] = {.lex_state = 222, .external_lex_state = 2},
   [623] = {.lex_state = 273, .external_lex_state = 2},
   [624] = {.lex_state = 273, .external_lex_state = 2},
   [625] = {.lex_state = 273, .external_lex_state = 2},
-  [626] = {.lex_state = 240, .external_lex_state = 2},
+  [626] = {.lex_state = 218, .external_lex_state = 2},
   [627] = {.lex_state = 273, .external_lex_state = 2},
   [628] = {.lex_state = 273, .external_lex_state = 2},
   [629] = {.lex_state = 273, .external_lex_state = 2},
-  [630] = {.lex_state = 218, .external_lex_state = 2},
-  [631] = {.lex_state = 231, .external_lex_state = 2},
+  [630] = {.lex_state = 273, .external_lex_state = 2},
+  [631] = {.lex_state = 273, .external_lex_state = 2},
   [632] = {.lex_state = 273, .external_lex_state = 2},
-  [633] = {.lex_state = 237, .external_lex_state = 2},
-  [634] = {.lex_state = 273, .external_lex_state = 2},
-  [635] = {.lex_state = 273, .external_lex_state = 2},
+  [633] = {.lex_state = 273, .external_lex_state = 2},
+  [634] = {.lex_state = 237, .external_lex_state = 2},
+  [635] = {.lex_state = 240, .external_lex_state = 2},
   [636] = {.lex_state = 273, .external_lex_state = 2},
   [637] = {.lex_state = 273, .external_lex_state = 2},
-  [638] = {.lex_state = 273, .external_lex_state = 2},
+  [638] = {.lex_state = 231, .external_lex_state = 2},
   [639] = {.lex_state = 273, .external_lex_state = 2},
   [640] = {.lex_state = 234, .external_lex_state = 2},
   [641] = {.lex_state = 234, .external_lex_state = 2},
   [642] = {.lex_state = 234, .external_lex_state = 2},
-  [643] = {.lex_state = 271, .external_lex_state = 2},
+  [643] = {.lex_state = 234, .external_lex_state = 2},
   [644] = {.lex_state = 234, .external_lex_state = 2},
   [645] = {.lex_state = 234, .external_lex_state = 2},
   [646] = {.lex_state = 234, .external_lex_state = 2},
   [647] = {.lex_state = 234, .external_lex_state = 2},
   [648] = {.lex_state = 234, .external_lex_state = 2},
-  [649] = {.lex_state = 234, .external_lex_state = 2},
+  [649] = {.lex_state = 271, .external_lex_state = 2},
   [650] = {.lex_state = 234, .external_lex_state = 2},
   [651] = {.lex_state = 234, .external_lex_state = 2},
   [652] = {.lex_state = 234, .external_lex_state = 2},
@@ -38176,141 +37928,141 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [654] = {.lex_state = 233, .external_lex_state = 2},
   [655] = {.lex_state = 233, .external_lex_state = 2},
   [656] = {.lex_state = 238, .external_lex_state = 2},
-  [657] = {.lex_state = 242, .external_lex_state = 2},
-  [658] = {.lex_state = 241, .external_lex_state = 2},
-  [659] = {.lex_state = 243, .external_lex_state = 2},
-  [660] = {.lex_state = 236, .external_lex_state = 2},
-  [661] = {.lex_state = 233, .external_lex_state = 2},
-  [662] = {.lex_state = 244, .external_lex_state = 2},
-  [663] = {.lex_state = 243, .external_lex_state = 2},
-  [664] = {.lex_state = 238, .external_lex_state = 2},
-  [665] = {.lex_state = 245, .external_lex_state = 2},
-  [666] = {.lex_state = 241, .external_lex_state = 2},
-  [667] = {.lex_state = 245, .external_lex_state = 2},
-  [668] = {.lex_state = 243, .external_lex_state = 2},
-  [669] = {.lex_state = 233, .external_lex_state = 2},
+  [657] = {.lex_state = 241, .external_lex_state = 2},
+  [658] = {.lex_state = 243, .external_lex_state = 2},
+  [659] = {.lex_state = 244, .external_lex_state = 2},
+  [660] = {.lex_state = 244, .external_lex_state = 2},
+  [661] = {.lex_state = 241, .external_lex_state = 2},
+  [662] = {.lex_state = 241, .external_lex_state = 2},
+  [663] = {.lex_state = 233, .external_lex_state = 2},
+  [664] = {.lex_state = 245, .external_lex_state = 2},
+  [665] = {.lex_state = 246, .external_lex_state = 2},
+  [666] = {.lex_state = 233, .external_lex_state = 2},
+  [667] = {.lex_state = 246, .external_lex_state = 2},
+  [668] = {.lex_state = 246, .external_lex_state = 2},
+  [669] = {.lex_state = 238, .external_lex_state = 2},
   [670] = {.lex_state = 244, .external_lex_state = 2},
-  [671] = {.lex_state = 248, .external_lex_state = 2},
-  [672] = {.lex_state = 246, .external_lex_state = 2},
-  [673] = {.lex_state = 246, .external_lex_state = 2},
-  [674] = {.lex_state = 238, .external_lex_state = 2},
-  [675] = {.lex_state = 273, .external_lex_state = 2},
-  [676] = {.lex_state = 244, .external_lex_state = 2},
-  [677] = {.lex_state = 229, .external_lex_state = 2},
+  [671] = {.lex_state = 241, .external_lex_state = 2},
+  [672] = {.lex_state = 233, .external_lex_state = 2},
+  [673] = {.lex_state = 244, .external_lex_state = 2},
+  [674] = {.lex_state = 243, .external_lex_state = 2},
+  [675] = {.lex_state = 245, .external_lex_state = 2},
+  [676] = {.lex_state = 246, .external_lex_state = 2},
+  [677] = {.lex_state = 246, .external_lex_state = 2},
   [678] = {.lex_state = 244, .external_lex_state = 2},
-  [679] = {.lex_state = 233, .external_lex_state = 2},
-  [680] = {.lex_state = 241, .external_lex_state = 2},
+  [679] = {.lex_state = 245, .external_lex_state = 2},
+  [680] = {.lex_state = 244, .external_lex_state = 2},
   [681] = {.lex_state = 241, .external_lex_state = 2},
   [682] = {.lex_state = 241, .external_lex_state = 2},
-  [683] = {.lex_state = 243, .external_lex_state = 2},
-  [684] = {.lex_state = 243, .external_lex_state = 2},
-  [685] = {.lex_state = 238, .external_lex_state = 2},
-  [686] = {.lex_state = 233, .external_lex_state = 2},
-  [687] = {.lex_state = 243, .external_lex_state = 2},
-  [688] = {.lex_state = 244, .external_lex_state = 2},
-  [689] = {.lex_state = 233, .external_lex_state = 2},
-  [690] = {.lex_state = 244, .external_lex_state = 2},
-  [691] = {.lex_state = 245, .external_lex_state = 2},
+  [683] = {.lex_state = 230, .external_lex_state = 2},
+  [684] = {.lex_state = 273, .external_lex_state = 2},
+  [685] = {.lex_state = 244, .external_lex_state = 2},
+  [686] = {.lex_state = 244, .external_lex_state = 2},
+  [687] = {.lex_state = 242, .external_lex_state = 2},
+  [688] = {.lex_state = 233, .external_lex_state = 2},
+  [689] = {.lex_state = 238, .external_lex_state = 2},
+  [690] = {.lex_state = 248, .external_lex_state = 2},
+  [691] = {.lex_state = 233, .external_lex_state = 2},
   [692] = {.lex_state = 233, .external_lex_state = 2},
-  [693] = {.lex_state = 244, .external_lex_state = 2},
-  [694] = {.lex_state = 246, .external_lex_state = 2},
-  [695] = {.lex_state = 245, .external_lex_state = 2},
-  [696] = {.lex_state = 230, .external_lex_state = 2},
-  [697] = {.lex_state = 244, .external_lex_state = 2},
-  [698] = {.lex_state = 233, .external_lex_state = 2},
-  [699] = {.lex_state = 241, .external_lex_state = 2},
+  [693] = {.lex_state = 236, .external_lex_state = 2},
+  [694] = {.lex_state = 238, .external_lex_state = 2},
+  [695] = {.lex_state = 229, .external_lex_state = 2},
+  [696] = {.lex_state = 246, .external_lex_state = 2},
+  [697] = {.lex_state = 243, .external_lex_state = 2},
+  [698] = {.lex_state = 245, .external_lex_state = 2},
+  [699] = {.lex_state = 233, .external_lex_state = 2},
   [700] = {.lex_state = 274, .external_lex_state = 2},
   [701] = {.lex_state = 274, .external_lex_state = 2},
-  [702] = {.lex_state = 235, .external_lex_state = 2},
+  [702] = {.lex_state = 274, .external_lex_state = 2},
   [703] = {.lex_state = 274, .external_lex_state = 2},
-  [704] = {.lex_state = 241, .external_lex_state = 2},
-  [705] = {.lex_state = 247, .external_lex_state = 2},
-  [706] = {.lex_state = 274, .external_lex_state = 2},
+  [704] = {.lex_state = 274, .external_lex_state = 2},
+  [705] = {.lex_state = 274, .external_lex_state = 2},
+  [706] = {.lex_state = 244, .external_lex_state = 2},
   [707] = {.lex_state = 274, .external_lex_state = 2},
-  [708] = {.lex_state = 274, .external_lex_state = 2},
+  [708] = {.lex_state = 235, .external_lex_state = 2},
   [709] = {.lex_state = 274, .external_lex_state = 2},
-  [710] = {.lex_state = 247, .external_lex_state = 2},
+  [710] = {.lex_state = 274, .external_lex_state = 2},
   [711] = {.lex_state = 274, .external_lex_state = 2},
-  [712] = {.lex_state = 247, .external_lex_state = 2},
+  [712] = {.lex_state = 274, .external_lex_state = 2},
   [713] = {.lex_state = 274, .external_lex_state = 2},
-  [714] = {.lex_state = 274, .external_lex_state = 2},
-  [715] = {.lex_state = 274, .external_lex_state = 2},
-  [716] = {.lex_state = 247, .external_lex_state = 2},
-  [717] = {.lex_state = 274, .external_lex_state = 2},
-  [718] = {.lex_state = 235, .external_lex_state = 2},
-  [719] = {.lex_state = 274, .external_lex_state = 2},
+  [714] = {.lex_state = 247, .external_lex_state = 2},
+  [715] = {.lex_state = 241, .external_lex_state = 2},
+  [716] = {.lex_state = 274, .external_lex_state = 2},
+  [717] = {.lex_state = 238, .external_lex_state = 2},
+  [718] = {.lex_state = 245, .external_lex_state = 2},
+  [719] = {.lex_state = 235, .external_lex_state = 2},
   [720] = {.lex_state = 274, .external_lex_state = 2},
-  [721] = {.lex_state = 245, .external_lex_state = 2},
-  [722] = {.lex_state = 274, .external_lex_state = 2},
-  [723] = {.lex_state = 274, .external_lex_state = 2},
-  [724] = {.lex_state = 274, .external_lex_state = 2},
+  [721] = {.lex_state = 274, .external_lex_state = 2},
+  [722] = {.lex_state = 246, .external_lex_state = 2},
+  [723] = {.lex_state = 247, .external_lex_state = 2},
+  [724] = {.lex_state = 247, .external_lex_state = 2},
   [725] = {.lex_state = 274, .external_lex_state = 2},
-  [726] = {.lex_state = 274, .external_lex_state = 2},
+  [726] = {.lex_state = 235, .external_lex_state = 2},
   [727] = {.lex_state = 235, .external_lex_state = 2},
-  [728] = {.lex_state = 247, .external_lex_state = 2},
+  [728] = {.lex_state = 235, .external_lex_state = 2},
   [729] = {.lex_state = 274, .external_lex_state = 2},
-  [730] = {.lex_state = 274, .external_lex_state = 2},
-  [731] = {.lex_state = 243, .external_lex_state = 2},
-  [732] = {.lex_state = 235, .external_lex_state = 2},
-  [733] = {.lex_state = 247, .external_lex_state = 2},
-  [734] = {.lex_state = 247, .external_lex_state = 2},
+  [730] = {.lex_state = 235, .external_lex_state = 2},
+  [731] = {.lex_state = 274, .external_lex_state = 2},
+  [732] = {.lex_state = 247, .external_lex_state = 2},
+  [733] = {.lex_state = 235, .external_lex_state = 2},
+  [734] = {.lex_state = 274, .external_lex_state = 2},
   [735] = {.lex_state = 274, .external_lex_state = 2},
-  [736] = {.lex_state = 274, .external_lex_state = 2},
+  [736] = {.lex_state = 247, .external_lex_state = 2},
   [737] = {.lex_state = 274, .external_lex_state = 2},
-  [738] = {.lex_state = 244, .external_lex_state = 2},
-  [739] = {.lex_state = 247, .external_lex_state = 2},
+  [738] = {.lex_state = 274, .external_lex_state = 2},
+  [739] = {.lex_state = 274, .external_lex_state = 2},
   [740] = {.lex_state = 274, .external_lex_state = 2},
-  [741] = {.lex_state = 274, .external_lex_state = 2},
+  [741] = {.lex_state = 243, .external_lex_state = 2},
   [742] = {.lex_state = 274, .external_lex_state = 2},
-  [743] = {.lex_state = 274, .external_lex_state = 2},
+  [743] = {.lex_state = 247, .external_lex_state = 2},
   [744] = {.lex_state = 274, .external_lex_state = 2},
-  [745] = {.lex_state = 246, .external_lex_state = 2},
-  [746] = {.lex_state = 274, .external_lex_state = 2},
-  [747] = {.lex_state = 274, .external_lex_state = 2},
-  [748] = {.lex_state = 238, .external_lex_state = 2},
+  [745] = {.lex_state = 274, .external_lex_state = 2},
+  [746] = {.lex_state = 235, .external_lex_state = 2},
+  [747] = {.lex_state = 247, .external_lex_state = 2},
+  [748] = {.lex_state = 274, .external_lex_state = 2},
   [749] = {.lex_state = 274, .external_lex_state = 2},
   [750] = {.lex_state = 274, .external_lex_state = 2},
   [751] = {.lex_state = 274, .external_lex_state = 2},
-  [752] = {.lex_state = 274, .external_lex_state = 2},
-  [753] = {.lex_state = 235, .external_lex_state = 2},
-  [754] = {.lex_state = 235, .external_lex_state = 2},
-  [755] = {.lex_state = 235, .external_lex_state = 2},
-  [756] = {.lex_state = 235, .external_lex_state = 2},
-  [757] = {.lex_state = 235, .external_lex_state = 2},
+  [752] = {.lex_state = 247, .external_lex_state = 2},
+  [753] = {.lex_state = 274, .external_lex_state = 2},
+  [754] = {.lex_state = 247, .external_lex_state = 2},
+  [755] = {.lex_state = 274, .external_lex_state = 2},
+  [756] = {.lex_state = 274, .external_lex_state = 2},
+  [757] = {.lex_state = 274, .external_lex_state = 2},
   [758] = {.lex_state = 274, .external_lex_state = 2},
   [759] = {.lex_state = 274, .external_lex_state = 2},
-  [760] = {.lex_state = 247, .external_lex_state = 2},
+  [760] = {.lex_state = 235, .external_lex_state = 2},
   [761] = {.lex_state = 239, .external_lex_state = 2},
-  [762] = {.lex_state = 270, .external_lex_state = 2},
+  [762] = {.lex_state = 239, .external_lex_state = 2},
   [763] = {.lex_state = 239, .external_lex_state = 2},
   [764] = {.lex_state = 239, .external_lex_state = 2},
   [765] = {.lex_state = 239, .external_lex_state = 2},
-  [766] = {.lex_state = 239, .external_lex_state = 2},
+  [766] = {.lex_state = 270, .external_lex_state = 2},
   [767] = {.lex_state = 249, .external_lex_state = 2},
-  [768] = {.lex_state = 222, .external_lex_state = 3},
+  [768] = {.lex_state = 264, .external_lex_state = 2},
   [769] = {.lex_state = 264, .external_lex_state = 2},
   [770] = {.lex_state = 222, .external_lex_state = 3},
-  [771] = {.lex_state = 264, .external_lex_state = 2},
+  [771] = {.lex_state = 222, .external_lex_state = 3},
   [772] = {.lex_state = 264, .external_lex_state = 2},
-  [773] = {.lex_state = 244, .external_lex_state = 2},
-  [774] = {.lex_state = 298, .external_lex_state = 2},
-  [775] = {.lex_state = 244, .external_lex_state = 2},
-  [776] = {.lex_state = 244, .external_lex_state = 2},
+  [773] = {.lex_state = 298, .external_lex_state = 2},
+  [774] = {.lex_state = 244, .external_lex_state = 2},
+  [775] = {.lex_state = 298, .external_lex_state = 2},
+  [776] = {.lex_state = 298, .external_lex_state = 2},
   [777] = {.lex_state = 244, .external_lex_state = 2},
   [778] = {.lex_state = 244, .external_lex_state = 2},
   [779] = {.lex_state = 299, .external_lex_state = 2},
-  [780] = {.lex_state = 244, .external_lex_state = 2},
+  [780] = {.lex_state = 298, .external_lex_state = 2},
   [781] = {.lex_state = 244, .external_lex_state = 2},
   [782] = {.lex_state = 244, .external_lex_state = 2},
-  [783] = {.lex_state = 244, .external_lex_state = 2},
-  [784] = {.lex_state = 299, .external_lex_state = 2},
-  [785] = {.lex_state = 299, .external_lex_state = 2},
-  [786] = {.lex_state = 299, .external_lex_state = 2},
-  [787] = {.lex_state = 299, .external_lex_state = 2},
-  [788] = {.lex_state = 299, .external_lex_state = 2},
-  [789] = {.lex_state = 299, .external_lex_state = 2},
-  [790] = {.lex_state = 299, .external_lex_state = 2},
-  [791] = {.lex_state = 299, .external_lex_state = 2},
+  [783] = {.lex_state = 298, .external_lex_state = 2},
+  [784] = {.lex_state = 244, .external_lex_state = 2},
+  [785] = {.lex_state = 298, .external_lex_state = 2},
+  [786] = {.lex_state = 244, .external_lex_state = 2},
+  [787] = {.lex_state = 298, .external_lex_state = 2},
+  [788] = {.lex_state = 298, .external_lex_state = 2},
+  [789] = {.lex_state = 244, .external_lex_state = 2},
+  [790] = {.lex_state = 298, .external_lex_state = 2},
+  [791] = {.lex_state = 244, .external_lex_state = 2},
   [792] = {.lex_state = 244, .external_lex_state = 2},
   [793] = {.lex_state = 244, .external_lex_state = 2},
   [794] = {.lex_state = 244, .external_lex_state = 2},
@@ -38430,233 +38182,233 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [908] = {.lex_state = 276, .external_lex_state = 4},
   [909] = {.lex_state = 276, .external_lex_state = 4},
   [910] = {.lex_state = 269, .external_lex_state = 2},
-  [911] = {.lex_state = 276, .external_lex_state = 4},
-  [912] = {.lex_state = 269, .external_lex_state = 2},
+  [911] = {.lex_state = 269, .external_lex_state = 2},
+  [912] = {.lex_state = 276, .external_lex_state = 4},
   [913] = {.lex_state = 276, .external_lex_state = 4},
   [914] = {.lex_state = 276, .external_lex_state = 4},
   [915] = {.lex_state = 276, .external_lex_state = 4},
   [916] = {.lex_state = 276, .external_lex_state = 4},
-  [917] = {.lex_state = 276, .external_lex_state = 4},
-  [918] = {.lex_state = 269, .external_lex_state = 2},
+  [917] = {.lex_state = 269, .external_lex_state = 2},
+  [918] = {.lex_state = 276, .external_lex_state = 4},
   [919] = {.lex_state = 276, .external_lex_state = 4},
-  [920] = {.lex_state = 276, .external_lex_state = 4},
-  [921] = {.lex_state = 1301, .external_lex_state = 2},
-  [922] = {.lex_state = 269, .external_lex_state = 2},
-  [923] = {.lex_state = 269, .external_lex_state = 2},
-  [924] = {.lex_state = 269, .external_lex_state = 2},
+  [920] = {.lex_state = 269, .external_lex_state = 2},
+  [921] = {.lex_state = 1281, .external_lex_state = 2},
+  [922] = {.lex_state = 276, .external_lex_state = 4},
+  [923] = {.lex_state = 1281, .external_lex_state = 2},
+  [924] = {.lex_state = 1281, .external_lex_state = 2},
   [925] = {.lex_state = 269, .external_lex_state = 2},
   [926] = {.lex_state = 269, .external_lex_state = 2},
-  [927] = {.lex_state = 1301, .external_lex_state = 2},
-  [928] = {.lex_state = 1301, .external_lex_state = 2},
-  [929] = {.lex_state = 276, .external_lex_state = 4},
-  [930] = {.lex_state = 269, .external_lex_state = 2},
-  [931] = {.lex_state = 269, .external_lex_state = 2},
-  [932] = {.lex_state = 269, .external_lex_state = 2},
-  [933] = {.lex_state = 269, .external_lex_state = 2},
-  [934] = {.lex_state = 1301, .external_lex_state = 2},
-  [935] = {.lex_state = 1301, .external_lex_state = 2},
-  [936] = {.lex_state = 276, .external_lex_state = 4},
-  [937] = {.lex_state = 1301, .external_lex_state = 2},
-  [938] = {.lex_state = 276, .external_lex_state = 4},
-  [939] = {.lex_state = 1301, .external_lex_state = 2},
-  [940] = {.lex_state = 269, .external_lex_state = 2},
-  [941] = {.lex_state = 276, .external_lex_state = 4},
-  [942] = {.lex_state = 1301, .external_lex_state = 2},
-  [943] = {.lex_state = 276, .external_lex_state = 4},
-  [944] = {.lex_state = 1301, .external_lex_state = 2},
-  [945] = {.lex_state = 1301, .external_lex_state = 2},
-  [946] = {.lex_state = 276, .external_lex_state = 4},
+  [927] = {.lex_state = 269, .external_lex_state = 2},
+  [928] = {.lex_state = 1281, .external_lex_state = 2},
+  [929] = {.lex_state = 269, .external_lex_state = 2},
+  [930] = {.lex_state = 276, .external_lex_state = 4},
+  [931] = {.lex_state = 276, .external_lex_state = 4},
+  [932] = {.lex_state = 276, .external_lex_state = 4},
+  [933] = {.lex_state = 276, .external_lex_state = 4},
+  [934] = {.lex_state = 276, .external_lex_state = 4},
+  [935] = {.lex_state = 276, .external_lex_state = 4},
+  [936] = {.lex_state = 269, .external_lex_state = 2},
+  [937] = {.lex_state = 1281, .external_lex_state = 2},
+  [938] = {.lex_state = 1281, .external_lex_state = 2},
+  [939] = {.lex_state = 276, .external_lex_state = 4},
+  [940] = {.lex_state = 276, .external_lex_state = 4},
+  [941] = {.lex_state = 269, .external_lex_state = 2},
+  [942] = {.lex_state = 1281, .external_lex_state = 2},
+  [943] = {.lex_state = 269, .external_lex_state = 2},
+  [944] = {.lex_state = 276, .external_lex_state = 4},
+  [945] = {.lex_state = 1281, .external_lex_state = 2},
+  [946] = {.lex_state = 1281, .external_lex_state = 2},
   [947] = {.lex_state = 276, .external_lex_state = 4},
   [948] = {.lex_state = 269, .external_lex_state = 2},
-  [949] = {.lex_state = 276, .external_lex_state = 4},
-  [950] = {.lex_state = 276, .external_lex_state = 4},
-  [951] = {.lex_state = 269, .external_lex_state = 2},
-  [952] = {.lex_state = 269, .external_lex_state = 2},
-  [953] = {.lex_state = 1301, .external_lex_state = 2},
-  [954] = {.lex_state = 276, .external_lex_state = 4},
-  [955] = {.lex_state = 269, .external_lex_state = 2},
+  [949] = {.lex_state = 1281, .external_lex_state = 2},
+  [950] = {.lex_state = 269, .external_lex_state = 2},
+  [951] = {.lex_state = 1281, .external_lex_state = 2},
+  [952] = {.lex_state = 276, .external_lex_state = 4},
+  [953] = {.lex_state = 276, .external_lex_state = 4},
+  [954] = {.lex_state = 269, .external_lex_state = 2},
+  [955] = {.lex_state = 1281, .external_lex_state = 2},
   [956] = {.lex_state = 269, .external_lex_state = 2},
-  [957] = {.lex_state = 1301, .external_lex_state = 2},
-  [958] = {.lex_state = 276, .external_lex_state = 4},
-  [959] = {.lex_state = 1301, .external_lex_state = 2},
-  [960] = {.lex_state = 276, .external_lex_state = 4},
-  [961] = {.lex_state = 1301, .external_lex_state = 2},
-  [962] = {.lex_state = 276, .external_lex_state = 4},
-  [963] = {.lex_state = 1301, .external_lex_state = 2},
-  [964] = {.lex_state = 1301, .external_lex_state = 2},
-  [965] = {.lex_state = 1301, .external_lex_state = 2},
-  [966] = {.lex_state = 1301, .external_lex_state = 2},
-  [967] = {.lex_state = 1301, .external_lex_state = 2},
-  [968] = {.lex_state = 1301, .external_lex_state = 2},
-  [969] = {.lex_state = 269, .external_lex_state = 2},
-  [970] = {.lex_state = 269, .external_lex_state = 2},
+  [957] = {.lex_state = 276, .external_lex_state = 4},
+  [958] = {.lex_state = 269, .external_lex_state = 2},
+  [959] = {.lex_state = 269, .external_lex_state = 2},
+  [960] = {.lex_state = 269, .external_lex_state = 2},
+  [961] = {.lex_state = 1281, .external_lex_state = 2},
+  [962] = {.lex_state = 1281, .external_lex_state = 2},
+  [963] = {.lex_state = 225, .external_lex_state = 4},
+  [964] = {.lex_state = 269, .external_lex_state = 2},
+  [965] = {.lex_state = 269, .external_lex_state = 2},
+  [966] = {.lex_state = 269, .external_lex_state = 2},
+  [967] = {.lex_state = 269, .external_lex_state = 2},
+  [968] = {.lex_state = 269, .external_lex_state = 2},
+  [969] = {.lex_state = 225, .external_lex_state = 4},
+  [970] = {.lex_state = 1281, .external_lex_state = 2},
   [971] = {.lex_state = 269, .external_lex_state = 2},
-  [972] = {.lex_state = 269, .external_lex_state = 2},
-  [973] = {.lex_state = 269, .external_lex_state = 2},
-  [974] = {.lex_state = 1301, .external_lex_state = 2},
-  [975] = {.lex_state = 1301, .external_lex_state = 2},
-  [976] = {.lex_state = 1301, .external_lex_state = 2},
-  [977] = {.lex_state = 1301, .external_lex_state = 2},
-  [978] = {.lex_state = 1301, .external_lex_state = 2},
+  [972] = {.lex_state = 1281, .external_lex_state = 2},
+  [973] = {.lex_state = 1281, .external_lex_state = 2},
+  [974] = {.lex_state = 269, .external_lex_state = 2},
+  [975] = {.lex_state = 1281, .external_lex_state = 2},
+  [976] = {.lex_state = 1281, .external_lex_state = 2},
+  [977] = {.lex_state = 269, .external_lex_state = 2},
+  [978] = {.lex_state = 269, .external_lex_state = 2},
   [979] = {.lex_state = 269, .external_lex_state = 2},
-  [980] = {.lex_state = 1301, .external_lex_state = 2},
-  [981] = {.lex_state = 1301, .external_lex_state = 2},
-  [982] = {.lex_state = 225, .external_lex_state = 4},
-  [983] = {.lex_state = 251, .external_lex_state = 4},
-  [984] = {.lex_state = 1301, .external_lex_state = 2},
+  [980] = {.lex_state = 1281, .external_lex_state = 2},
+  [981] = {.lex_state = 1281, .external_lex_state = 2},
+  [982] = {.lex_state = 1281, .external_lex_state = 2},
+  [983] = {.lex_state = 269, .external_lex_state = 2},
+  [984] = {.lex_state = 269, .external_lex_state = 2},
   [985] = {.lex_state = 269, .external_lex_state = 2},
-  [986] = {.lex_state = 225, .external_lex_state = 4},
-  [987] = {.lex_state = 225, .external_lex_state = 4},
-  [988] = {.lex_state = 251, .external_lex_state = 4},
-  [989] = {.lex_state = 1301, .external_lex_state = 2},
-  [990] = {.lex_state = 251, .external_lex_state = 4},
-  [991] = {.lex_state = 1301, .external_lex_state = 2},
-  [992] = {.lex_state = 1301, .external_lex_state = 2},
-  [993] = {.lex_state = 1301, .external_lex_state = 2},
-  [994] = {.lex_state = 1301, .external_lex_state = 2},
-  [995] = {.lex_state = 1301, .external_lex_state = 2},
-  [996] = {.lex_state = 1301, .external_lex_state = 2},
-  [997] = {.lex_state = 1301, .external_lex_state = 2},
-  [998] = {.lex_state = 269, .external_lex_state = 2},
-  [999] = {.lex_state = 1301, .external_lex_state = 2},
+  [986] = {.lex_state = 1281, .external_lex_state = 2},
+  [987] = {.lex_state = 1281, .external_lex_state = 2},
+  [988] = {.lex_state = 1281, .external_lex_state = 2},
+  [989] = {.lex_state = 269, .external_lex_state = 2},
+  [990] = {.lex_state = 269, .external_lex_state = 2},
+  [991] = {.lex_state = 251, .external_lex_state = 4},
+  [992] = {.lex_state = 269, .external_lex_state = 2},
+  [993] = {.lex_state = 1281, .external_lex_state = 2},
+  [994] = {.lex_state = 1281, .external_lex_state = 2},
+  [995] = {.lex_state = 1281, .external_lex_state = 2},
+  [996] = {.lex_state = 269, .external_lex_state = 2},
+  [997] = {.lex_state = 269, .external_lex_state = 2},
+  [998] = {.lex_state = 1281, .external_lex_state = 2},
+  [999] = {.lex_state = 1281, .external_lex_state = 2},
   [1000] = {.lex_state = 269, .external_lex_state = 2},
   [1001] = {.lex_state = 269, .external_lex_state = 2},
-  [1002] = {.lex_state = 269, .external_lex_state = 2},
-  [1003] = {.lex_state = 269, .external_lex_state = 2},
-  [1004] = {.lex_state = 269, .external_lex_state = 2},
-  [1005] = {.lex_state = 269, .external_lex_state = 2},
-  [1006] = {.lex_state = 225, .external_lex_state = 4},
-  [1007] = {.lex_state = 251, .external_lex_state = 4},
-  [1008] = {.lex_state = 1301, .external_lex_state = 2},
-  [1009] = {.lex_state = 1301, .external_lex_state = 2},
-  [1010] = {.lex_state = 1301, .external_lex_state = 2},
+  [1002] = {.lex_state = 1281, .external_lex_state = 2},
+  [1003] = {.lex_state = 1281, .external_lex_state = 2},
+  [1004] = {.lex_state = 251, .external_lex_state = 4},
+  [1005] = {.lex_state = 1281, .external_lex_state = 2},
+  [1006] = {.lex_state = 1281, .external_lex_state = 2},
+  [1007] = {.lex_state = 1281, .external_lex_state = 2},
+  [1008] = {.lex_state = 269, .external_lex_state = 2},
+  [1009] = {.lex_state = 1281, .external_lex_state = 2},
+  [1010] = {.lex_state = 1281, .external_lex_state = 2},
   [1011] = {.lex_state = 269, .external_lex_state = 2},
   [1012] = {.lex_state = 269, .external_lex_state = 2},
-  [1013] = {.lex_state = 269, .external_lex_state = 2},
-  [1014] = {.lex_state = 269, .external_lex_state = 2},
+  [1013] = {.lex_state = 225, .external_lex_state = 4},
+  [1014] = {.lex_state = 1281, .external_lex_state = 2},
   [1015] = {.lex_state = 269, .external_lex_state = 2},
-  [1016] = {.lex_state = 269, .external_lex_state = 2},
-  [1017] = {.lex_state = 269, .external_lex_state = 2},
-  [1018] = {.lex_state = 1301, .external_lex_state = 2},
-  [1019] = {.lex_state = 1301, .external_lex_state = 2},
-  [1020] = {.lex_state = 1301, .external_lex_state = 2},
-  [1021] = {.lex_state = 1301, .external_lex_state = 2},
-  [1022] = {.lex_state = 269, .external_lex_state = 2},
-  [1023] = {.lex_state = 269, .external_lex_state = 2},
-  [1024] = {.lex_state = 269, .external_lex_state = 2},
-  [1025] = {.lex_state = 269, .external_lex_state = 2},
-  [1026] = {.lex_state = 1301, .external_lex_state = 2},
-  [1027] = {.lex_state = 1301, .external_lex_state = 2},
-  [1028] = {.lex_state = 1301, .external_lex_state = 2},
-  [1029] = {.lex_state = 1301, .external_lex_state = 2},
+  [1016] = {.lex_state = 1281, .external_lex_state = 2},
+  [1017] = {.lex_state = 1281, .external_lex_state = 2},
+  [1018] = {.lex_state = 269, .external_lex_state = 2},
+  [1019] = {.lex_state = 269, .external_lex_state = 2},
+  [1020] = {.lex_state = 269, .external_lex_state = 2},
+  [1021] = {.lex_state = 269, .external_lex_state = 2},
+  [1022] = {.lex_state = 1281, .external_lex_state = 2},
+  [1023] = {.lex_state = 1281, .external_lex_state = 2},
+  [1024] = {.lex_state = 1281, .external_lex_state = 2},
+  [1025] = {.lex_state = 1281, .external_lex_state = 2},
+  [1026] = {.lex_state = 269, .external_lex_state = 2},
+  [1027] = {.lex_state = 269, .external_lex_state = 2},
+  [1028] = {.lex_state = 269, .external_lex_state = 2},
+  [1029] = {.lex_state = 1281, .external_lex_state = 2},
   [1030] = {.lex_state = 269, .external_lex_state = 2},
-  [1031] = {.lex_state = 1301, .external_lex_state = 2},
+  [1031] = {.lex_state = 269, .external_lex_state = 2},
   [1032] = {.lex_state = 269, .external_lex_state = 2},
   [1033] = {.lex_state = 269, .external_lex_state = 2},
   [1034] = {.lex_state = 269, .external_lex_state = 2},
-  [1035] = {.lex_state = 1301, .external_lex_state = 2},
+  [1035] = {.lex_state = 251, .external_lex_state = 4},
   [1036] = {.lex_state = 269, .external_lex_state = 2},
   [1037] = {.lex_state = 269, .external_lex_state = 2},
   [1038] = {.lex_state = 269, .external_lex_state = 2},
-  [1039] = {.lex_state = 1301, .external_lex_state = 2},
-  [1040] = {.lex_state = 1301, .external_lex_state = 2},
-  [1041] = {.lex_state = 1301, .external_lex_state = 2},
-  [1042] = {.lex_state = 1301, .external_lex_state = 2},
-  [1043] = {.lex_state = 1301, .external_lex_state = 2},
-  [1044] = {.lex_state = 1301, .external_lex_state = 2},
-  [1045] = {.lex_state = 1301, .external_lex_state = 2},
-  [1046] = {.lex_state = 1301, .external_lex_state = 2},
-  [1047] = {.lex_state = 1301, .external_lex_state = 2},
-  [1048] = {.lex_state = 1301, .external_lex_state = 2},
-  [1049] = {.lex_state = 1301, .external_lex_state = 2},
-  [1050] = {.lex_state = 1301, .external_lex_state = 2},
-  [1051] = {.lex_state = 1301, .external_lex_state = 2},
-  [1052] = {.lex_state = 1301, .external_lex_state = 2},
-  [1053] = {.lex_state = 269, .external_lex_state = 2},
+  [1039] = {.lex_state = 1281, .external_lex_state = 2},
+  [1040] = {.lex_state = 269, .external_lex_state = 2},
+  [1041] = {.lex_state = 1281, .external_lex_state = 2},
+  [1042] = {.lex_state = 269, .external_lex_state = 2},
+  [1043] = {.lex_state = 1281, .external_lex_state = 2},
+  [1044] = {.lex_state = 1281, .external_lex_state = 2},
+  [1045] = {.lex_state = 1281, .external_lex_state = 2},
+  [1046] = {.lex_state = 269, .external_lex_state = 2},
+  [1047] = {.lex_state = 1281, .external_lex_state = 2},
+  [1048] = {.lex_state = 1281, .external_lex_state = 2},
+  [1049] = {.lex_state = 269, .external_lex_state = 2},
+  [1050] = {.lex_state = 269, .external_lex_state = 2},
+  [1051] = {.lex_state = 269, .external_lex_state = 2},
+  [1052] = {.lex_state = 1281, .external_lex_state = 2},
+  [1053] = {.lex_state = 1281, .external_lex_state = 2},
   [1054] = {.lex_state = 269, .external_lex_state = 2},
-  [1055] = {.lex_state = 269, .external_lex_state = 2},
+  [1055] = {.lex_state = 1281, .external_lex_state = 2},
   [1056] = {.lex_state = 269, .external_lex_state = 2},
-  [1057] = {.lex_state = 269, .external_lex_state = 2},
+  [1057] = {.lex_state = 1281, .external_lex_state = 2},
   [1058] = {.lex_state = 269, .external_lex_state = 2},
-  [1059] = {.lex_state = 1301, .external_lex_state = 2},
+  [1059] = {.lex_state = 269, .external_lex_state = 2},
   [1060] = {.lex_state = 269, .external_lex_state = 2},
-  [1061] = {.lex_state = 269, .external_lex_state = 2},
+  [1061] = {.lex_state = 1281, .external_lex_state = 2},
   [1062] = {.lex_state = 269, .external_lex_state = 2},
-  [1063] = {.lex_state = 269, .external_lex_state = 2},
+  [1063] = {.lex_state = 1281, .external_lex_state = 2},
   [1064] = {.lex_state = 269, .external_lex_state = 2},
-  [1065] = {.lex_state = 269, .external_lex_state = 2},
-  [1066] = {.lex_state = 1301, .external_lex_state = 2},
-  [1067] = {.lex_state = 1301, .external_lex_state = 2},
-  [1068] = {.lex_state = 1301, .external_lex_state = 2},
+  [1065] = {.lex_state = 1281, .external_lex_state = 2},
+  [1066] = {.lex_state = 1281, .external_lex_state = 2},
+  [1067] = {.lex_state = 269, .external_lex_state = 2},
+  [1068] = {.lex_state = 269, .external_lex_state = 2},
   [1069] = {.lex_state = 269, .external_lex_state = 2},
-  [1070] = {.lex_state = 269, .external_lex_state = 2},
+  [1070] = {.lex_state = 225, .external_lex_state = 4},
   [1071] = {.lex_state = 269, .external_lex_state = 2},
-  [1072] = {.lex_state = 269, .external_lex_state = 2},
+  [1072] = {.lex_state = 1281, .external_lex_state = 2},
   [1073] = {.lex_state = 269, .external_lex_state = 2},
-  [1074] = {.lex_state = 269, .external_lex_state = 2},
-  [1075] = {.lex_state = 269, .external_lex_state = 2},
-  [1076] = {.lex_state = 269, .external_lex_state = 2},
-  [1077] = {.lex_state = 269, .external_lex_state = 2},
-  [1078] = {.lex_state = 269, .external_lex_state = 2},
-  [1079] = {.lex_state = 1301, .external_lex_state = 2},
-  [1080] = {.lex_state = 1301, .external_lex_state = 2},
-  [1081] = {.lex_state = 269, .external_lex_state = 2},
+  [1074] = {.lex_state = 1281, .external_lex_state = 2},
+  [1075] = {.lex_state = 251, .external_lex_state = 4},
+  [1076] = {.lex_state = 225, .external_lex_state = 4},
+  [1077] = {.lex_state = 1281, .external_lex_state = 2},
+  [1078] = {.lex_state = 1281, .external_lex_state = 2},
+  [1079] = {.lex_state = 269, .external_lex_state = 2},
+  [1080] = {.lex_state = 1281, .external_lex_state = 2},
+  [1081] = {.lex_state = 1281, .external_lex_state = 2},
   [1082] = {.lex_state = 269, .external_lex_state = 2},
-  [1083] = {.lex_state = 1301, .external_lex_state = 2},
+  [1083] = {.lex_state = 269, .external_lex_state = 2},
   [1084] = {.lex_state = 269, .external_lex_state = 2},
-  [1085] = {.lex_state = 269, .external_lex_state = 2},
-  [1086] = {.lex_state = 269, .external_lex_state = 2},
-  [1087] = {.lex_state = 269, .external_lex_state = 2},
-  [1088] = {.lex_state = 269, .external_lex_state = 2},
+  [1085] = {.lex_state = 251, .external_lex_state = 4},
+  [1086] = {.lex_state = 1281, .external_lex_state = 2},
+  [1087] = {.lex_state = 1281, .external_lex_state = 2},
+  [1088] = {.lex_state = 1281, .external_lex_state = 2},
   [1089] = {.lex_state = 269, .external_lex_state = 2},
   [1090] = {.lex_state = 269, .external_lex_state = 2},
-  [1091] = {.lex_state = 269, .external_lex_state = 2},
+  [1091] = {.lex_state = 1281, .external_lex_state = 2},
   [1092] = {.lex_state = 225, .external_lex_state = 4},
-  [1093] = {.lex_state = 269, .external_lex_state = 2},
-  [1094] = {.lex_state = 269, .external_lex_state = 2},
+  [1093] = {.lex_state = 1281, .external_lex_state = 2},
+  [1094] = {.lex_state = 1281, .external_lex_state = 2},
   [1095] = {.lex_state = 269, .external_lex_state = 2},
-  [1096] = {.lex_state = 225, .external_lex_state = 4},
+  [1096] = {.lex_state = 269, .external_lex_state = 2},
   [1097] = {.lex_state = 269, .external_lex_state = 2},
-  [1098] = {.lex_state = 251, .external_lex_state = 4},
-  [1099] = {.lex_state = 1301, .external_lex_state = 2},
-  [1100] = {.lex_state = 1301, .external_lex_state = 2},
-  [1101] = {.lex_state = 1301, .external_lex_state = 2},
-  [1102] = {.lex_state = 269, .external_lex_state = 2},
-  [1103] = {.lex_state = 1301, .external_lex_state = 2},
-  [1104] = {.lex_state = 1301, .external_lex_state = 2},
-  [1105] = {.lex_state = 1301, .external_lex_state = 2},
-  [1106] = {.lex_state = 269, .external_lex_state = 2},
-  [1107] = {.lex_state = 1301, .external_lex_state = 2},
-  [1108] = {.lex_state = 1301, .external_lex_state = 2},
-  [1109] = {.lex_state = 1301, .external_lex_state = 2},
-  [1110] = {.lex_state = 251, .external_lex_state = 4},
+  [1098] = {.lex_state = 1281, .external_lex_state = 2},
+  [1099] = {.lex_state = 269, .external_lex_state = 2},
+  [1100] = {.lex_state = 251, .external_lex_state = 4},
+  [1101] = {.lex_state = 1281, .external_lex_state = 2},
+  [1102] = {.lex_state = 1281, .external_lex_state = 2},
+  [1103] = {.lex_state = 1281, .external_lex_state = 2},
+  [1104] = {.lex_state = 1281, .external_lex_state = 2},
+  [1105] = {.lex_state = 1281, .external_lex_state = 2},
+  [1106] = {.lex_state = 1281, .external_lex_state = 2},
+  [1107] = {.lex_state = 1281, .external_lex_state = 2},
+  [1108] = {.lex_state = 269, .external_lex_state = 2},
+  [1109] = {.lex_state = 269, .external_lex_state = 2},
+  [1110] = {.lex_state = 269, .external_lex_state = 2},
   [1111] = {.lex_state = 225, .external_lex_state = 4},
   [1112] = {.lex_state = 251, .external_lex_state = 4},
   [1113] = {.lex_state = 276, .external_lex_state = 4},
-  [1114] = {.lex_state = 220, .external_lex_state = 2},
+  [1114] = {.lex_state = 277, .external_lex_state = 4},
   [1115] = {.lex_state = 220, .external_lex_state = 2},
   [1116] = {.lex_state = 220, .external_lex_state = 2},
   [1117] = {.lex_state = 220, .external_lex_state = 2},
-  [1118] = {.lex_state = 277, .external_lex_state = 4},
+  [1118] = {.lex_state = 220, .external_lex_state = 2},
   [1119] = {.lex_state = 220, .external_lex_state = 2},
   [1120] = {.lex_state = 220, .external_lex_state = 2},
   [1121] = {.lex_state = 220, .external_lex_state = 2},
   [1122] = {.lex_state = 220, .external_lex_state = 2},
   [1123] = {.lex_state = 220, .external_lex_state = 2},
-  [1124] = {.lex_state = 277, .external_lex_state = 4},
+  [1124] = {.lex_state = 218, .external_lex_state = 2},
   [1125] = {.lex_state = 220, .external_lex_state = 2},
-  [1126] = {.lex_state = 220, .external_lex_state = 2},
-  [1127] = {.lex_state = 220, .external_lex_state = 2},
-  [1128] = {.lex_state = 220, .external_lex_state = 2},
-  [1129] = {.lex_state = 220, .external_lex_state = 2},
+  [1126] = {.lex_state = 218, .external_lex_state = 2},
+  [1127] = {.lex_state = 218, .external_lex_state = 2},
+  [1128] = {.lex_state = 218, .external_lex_state = 2},
+  [1129] = {.lex_state = 218, .external_lex_state = 2},
   [1130] = {.lex_state = 220, .external_lex_state = 2},
-  [1131] = {.lex_state = 218, .external_lex_state = 2},
+  [1131] = {.lex_state = 220, .external_lex_state = 2},
   [1132] = {.lex_state = 220, .external_lex_state = 2},
   [1133] = {.lex_state = 220, .external_lex_state = 2},
-  [1134] = {.lex_state = 218, .external_lex_state = 2},
+  [1134] = {.lex_state = 220, .external_lex_state = 2},
   [1135] = {.lex_state = 220, .external_lex_state = 2},
-  [1136] = {.lex_state = 218, .external_lex_state = 2},
-  [1137] = {.lex_state = 218, .external_lex_state = 2},
+  [1136] = {.lex_state = 220, .external_lex_state = 2},
+  [1137] = {.lex_state = 277, .external_lex_state = 4},
   [1138] = {.lex_state = 220, .external_lex_state = 2},
   [1139] = {.lex_state = 220, .external_lex_state = 2},
   [1140] = {.lex_state = 220, .external_lex_state = 2},
@@ -38672,8 +38424,8 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [1150] = {.lex_state = 220, .external_lex_state = 2},
   [1151] = {.lex_state = 220, .external_lex_state = 2},
   [1152] = {.lex_state = 220, .external_lex_state = 2},
-  [1153] = {.lex_state = 218, .external_lex_state = 2},
-  [1154] = {.lex_state = 277, .external_lex_state = 4},
+  [1153] = {.lex_state = 277, .external_lex_state = 4},
+  [1154] = {.lex_state = 220, .external_lex_state = 2},
   [1155] = {.lex_state = 220, .external_lex_state = 2},
   [1156] = {.lex_state = 277, .external_lex_state = 4},
   [1157] = {.lex_state = 218, .external_lex_state = 2},
@@ -38717,435 +38469,435 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [1195] = {.lex_state = 272, .external_lex_state = 2},
   [1196] = {.lex_state = 272, .external_lex_state = 2},
   [1197] = {.lex_state = 272, .external_lex_state = 2},
-  [1198] = {.lex_state = 236, .external_lex_state = 2},
-  [1199] = {.lex_state = 236, .external_lex_state = 2},
-  [1200] = {.lex_state = 230, .external_lex_state = 2},
-  [1201] = {.lex_state = 230, .external_lex_state = 2},
-  [1202] = {.lex_state = 230, .external_lex_state = 2},
-  [1203] = {.lex_state = 230, .external_lex_state = 2},
+  [1198] = {.lex_state = 230, .external_lex_state = 2},
+  [1199] = {.lex_state = 272, .external_lex_state = 2},
+  [1200] = {.lex_state = 236, .external_lex_state = 2},
+  [1201] = {.lex_state = 272, .external_lex_state = 2},
+  [1202] = {.lex_state = 236, .external_lex_state = 2},
+  [1203] = {.lex_state = 272, .external_lex_state = 2},
   [1204] = {.lex_state = 230, .external_lex_state = 2},
-  [1205] = {.lex_state = 230, .external_lex_state = 2},
-  [1206] = {.lex_state = 230, .external_lex_state = 2},
+  [1205] = {.lex_state = 248, .external_lex_state = 2},
+  [1206] = {.lex_state = 248, .external_lex_state = 2},
   [1207] = {.lex_state = 230, .external_lex_state = 2},
-  [1208] = {.lex_state = 236, .external_lex_state = 2},
-  [1209] = {.lex_state = 229, .external_lex_state = 2},
-  [1210] = {.lex_state = 248, .external_lex_state = 2},
-  [1211] = {.lex_state = 248, .external_lex_state = 2},
+  [1208] = {.lex_state = 272, .external_lex_state = 2},
+  [1209] = {.lex_state = 272, .external_lex_state = 2},
+  [1210] = {.lex_state = 230, .external_lex_state = 2},
+  [1211] = {.lex_state = 229, .external_lex_state = 2},
   [1212] = {.lex_state = 248, .external_lex_state = 2},
-  [1213] = {.lex_state = 248, .external_lex_state = 2},
-  [1214] = {.lex_state = 248, .external_lex_state = 2},
-  [1215] = {.lex_state = 248, .external_lex_state = 2},
-  [1216] = {.lex_state = 230, .external_lex_state = 2},
-  [1217] = {.lex_state = 248, .external_lex_state = 2},
-  [1218] = {.lex_state = 230, .external_lex_state = 2},
-  [1219] = {.lex_state = 230, .external_lex_state = 2},
-  [1220] = {.lex_state = 248, .external_lex_state = 2},
-  [1221] = {.lex_state = 229, .external_lex_state = 2},
-  [1222] = {.lex_state = 229, .external_lex_state = 2},
-  [1223] = {.lex_state = 248, .external_lex_state = 2},
+  [1213] = {.lex_state = 229, .external_lex_state = 2},
+  [1214] = {.lex_state = 236, .external_lex_state = 2},
+  [1215] = {.lex_state = 229, .external_lex_state = 2},
+  [1216] = {.lex_state = 272, .external_lex_state = 2},
+  [1217] = {.lex_state = 236, .external_lex_state = 2},
+  [1218] = {.lex_state = 272, .external_lex_state = 2},
+  [1219] = {.lex_state = 229, .external_lex_state = 2},
+  [1220] = {.lex_state = 229, .external_lex_state = 2},
+  [1221] = {.lex_state = 248, .external_lex_state = 2},
+  [1222] = {.lex_state = 236, .external_lex_state = 2},
+  [1223] = {.lex_state = 229, .external_lex_state = 2},
   [1224] = {.lex_state = 272, .external_lex_state = 2},
-  [1225] = {.lex_state = 248, .external_lex_state = 2},
+  [1225] = {.lex_state = 229, .external_lex_state = 2},
   [1226] = {.lex_state = 236, .external_lex_state = 2},
-  [1227] = {.lex_state = 229, .external_lex_state = 2},
-  [1228] = {.lex_state = 229, .external_lex_state = 2},
-  [1229] = {.lex_state = 236, .external_lex_state = 2},
-  [1230] = {.lex_state = 230, .external_lex_state = 2},
-  [1231] = {.lex_state = 248, .external_lex_state = 2},
-  [1232] = {.lex_state = 248, .external_lex_state = 2},
+  [1227] = {.lex_state = 236, .external_lex_state = 2},
+  [1228] = {.lex_state = 230, .external_lex_state = 2},
+  [1229] = {.lex_state = 230, .external_lex_state = 2},
+  [1230] = {.lex_state = 236, .external_lex_state = 2},
+  [1231] = {.lex_state = 229, .external_lex_state = 2},
+  [1232] = {.lex_state = 272, .external_lex_state = 2},
   [1233] = {.lex_state = 248, .external_lex_state = 2},
-  [1234] = {.lex_state = 248, .external_lex_state = 2},
-  [1235] = {.lex_state = 248, .external_lex_state = 2},
-  [1236] = {.lex_state = 248, .external_lex_state = 2},
-  [1237] = {.lex_state = 229, .external_lex_state = 2},
-  [1238] = {.lex_state = 248, .external_lex_state = 2},
-  [1239] = {.lex_state = 236, .external_lex_state = 2},
-  [1240] = {.lex_state = 248, .external_lex_state = 2},
-  [1241] = {.lex_state = 248, .external_lex_state = 2},
-  [1242] = {.lex_state = 248, .external_lex_state = 2},
-  [1243] = {.lex_state = 248, .external_lex_state = 2},
+  [1234] = {.lex_state = 272, .external_lex_state = 2},
+  [1235] = {.lex_state = 230, .external_lex_state = 2},
+  [1236] = {.lex_state = 229, .external_lex_state = 2},
+  [1237] = {.lex_state = 248, .external_lex_state = 2},
+  [1238] = {.lex_state = 229, .external_lex_state = 2},
+  [1239] = {.lex_state = 230, .external_lex_state = 2},
+  [1240] = {.lex_state = 229, .external_lex_state = 2},
+  [1241] = {.lex_state = 272, .external_lex_state = 2},
+  [1242] = {.lex_state = 236, .external_lex_state = 2},
+  [1243] = {.lex_state = 229, .external_lex_state = 2},
   [1244] = {.lex_state = 272, .external_lex_state = 2},
-  [1245] = {.lex_state = 229, .external_lex_state = 2},
-  [1246] = {.lex_state = 236, .external_lex_state = 2},
-  [1247] = {.lex_state = 236, .external_lex_state = 2},
+  [1245] = {.lex_state = 272, .external_lex_state = 2},
+  [1246] = {.lex_state = 272, .external_lex_state = 2},
+  [1247] = {.lex_state = 248, .external_lex_state = 2},
   [1248] = {.lex_state = 248, .external_lex_state = 2},
-  [1249] = {.lex_state = 236, .external_lex_state = 2},
-  [1250] = {.lex_state = 236, .external_lex_state = 2},
+  [1249] = {.lex_state = 229, .external_lex_state = 2},
+  [1250] = {.lex_state = 248, .external_lex_state = 2},
   [1251] = {.lex_state = 236, .external_lex_state = 2},
-  [1252] = {.lex_state = 236, .external_lex_state = 2},
-  [1253] = {.lex_state = 229, .external_lex_state = 2},
-  [1254] = {.lex_state = 272, .external_lex_state = 2},
-  [1255] = {.lex_state = 272, .external_lex_state = 2},
+  [1252] = {.lex_state = 229, .external_lex_state = 2},
+  [1253] = {.lex_state = 236, .external_lex_state = 2},
+  [1254] = {.lex_state = 230, .external_lex_state = 2},
+  [1255] = {.lex_state = 248, .external_lex_state = 2},
   [1256] = {.lex_state = 229, .external_lex_state = 2},
-  [1257] = {.lex_state = 236, .external_lex_state = 2},
-  [1258] = {.lex_state = 272, .external_lex_state = 2},
-  [1259] = {.lex_state = 229, .external_lex_state = 2},
-  [1260] = {.lex_state = 236, .external_lex_state = 2},
-  [1261] = {.lex_state = 236, .external_lex_state = 2},
+  [1257] = {.lex_state = 230, .external_lex_state = 2},
+  [1258] = {.lex_state = 230, .external_lex_state = 2},
+  [1259] = {.lex_state = 272, .external_lex_state = 2},
+  [1260] = {.lex_state = 272, .external_lex_state = 2},
+  [1261] = {.lex_state = 248, .external_lex_state = 2},
   [1262] = {.lex_state = 272, .external_lex_state = 2},
-  [1263] = {.lex_state = 272, .external_lex_state = 2},
-  [1264] = {.lex_state = 236, .external_lex_state = 2},
-  [1265] = {.lex_state = 272, .external_lex_state = 2},
-  [1266] = {.lex_state = 272, .external_lex_state = 2},
-  [1267] = {.lex_state = 236, .external_lex_state = 2},
-  [1268] = {.lex_state = 272, .external_lex_state = 2},
-  [1269] = {.lex_state = 248, .external_lex_state = 2},
-  [1270] = {.lex_state = 248, .external_lex_state = 2},
-  [1271] = {.lex_state = 229, .external_lex_state = 2},
+  [1263] = {.lex_state = 229, .external_lex_state = 2},
+  [1264] = {.lex_state = 248, .external_lex_state = 2},
+  [1265] = {.lex_state = 229, .external_lex_state = 2},
+  [1266] = {.lex_state = 229, .external_lex_state = 2},
+  [1267] = {.lex_state = 248, .external_lex_state = 2},
+  [1268] = {.lex_state = 229, .external_lex_state = 2},
+  [1269] = {.lex_state = 230, .external_lex_state = 2},
+  [1270] = {.lex_state = 230, .external_lex_state = 2},
+  [1271] = {.lex_state = 248, .external_lex_state = 2},
   [1272] = {.lex_state = 229, .external_lex_state = 2},
-  [1273] = {.lex_state = 236, .external_lex_state = 2},
-  [1274] = {.lex_state = 248, .external_lex_state = 2},
+  [1273] = {.lex_state = 229, .external_lex_state = 2},
+  [1274] = {.lex_state = 236, .external_lex_state = 2},
   [1275] = {.lex_state = 236, .external_lex_state = 2},
-  [1276] = {.lex_state = 272, .external_lex_state = 2},
+  [1276] = {.lex_state = 248, .external_lex_state = 2},
   [1277] = {.lex_state = 272, .external_lex_state = 2},
-  [1278] = {.lex_state = 272, .external_lex_state = 2},
+  [1278] = {.lex_state = 229, .external_lex_state = 2},
   [1279] = {.lex_state = 272, .external_lex_state = 2},
-  [1280] = {.lex_state = 236, .external_lex_state = 2},
-  [1281] = {.lex_state = 236, .external_lex_state = 2},
+  [1280] = {.lex_state = 272, .external_lex_state = 2},
+  [1281] = {.lex_state = 229, .external_lex_state = 2},
   [1282] = {.lex_state = 272, .external_lex_state = 2},
-  [1283] = {.lex_state = 272, .external_lex_state = 2},
-  [1284] = {.lex_state = 229, .external_lex_state = 2},
-  [1285] = {.lex_state = 229, .external_lex_state = 2},
-  [1286] = {.lex_state = 236, .external_lex_state = 2},
-  [1287] = {.lex_state = 229, .external_lex_state = 2},
-  [1288] = {.lex_state = 236, .external_lex_state = 2},
-  [1289] = {.lex_state = 229, .external_lex_state = 2},
-  [1290] = {.lex_state = 236, .external_lex_state = 2},
-  [1291] = {.lex_state = 272, .external_lex_state = 2},
-  [1292] = {.lex_state = 248, .external_lex_state = 2},
-  [1293] = {.lex_state = 272, .external_lex_state = 2},
-  [1294] = {.lex_state = 229, .external_lex_state = 2},
-  [1295] = {.lex_state = 229, .external_lex_state = 2},
+  [1283] = {.lex_state = 248, .external_lex_state = 2},
+  [1284] = {.lex_state = 230, .external_lex_state = 2},
+  [1285] = {.lex_state = 248, .external_lex_state = 2},
+  [1286] = {.lex_state = 229, .external_lex_state = 2},
+  [1287] = {.lex_state = 230, .external_lex_state = 2},
+  [1288] = {.lex_state = 229, .external_lex_state = 2},
+  [1289] = {.lex_state = 236, .external_lex_state = 2},
+  [1290] = {.lex_state = 248, .external_lex_state = 2},
+  [1291] = {.lex_state = 236, .external_lex_state = 2},
+  [1292] = {.lex_state = 236, .external_lex_state = 2},
+  [1293] = {.lex_state = 230, .external_lex_state = 2},
+  [1294] = {.lex_state = 230, .external_lex_state = 2},
+  [1295] = {.lex_state = 230, .external_lex_state = 2},
   [1296] = {.lex_state = 236, .external_lex_state = 2},
-  [1297] = {.lex_state = 230, .external_lex_state = 2},
-  [1298] = {.lex_state = 230, .external_lex_state = 2},
-  [1299] = {.lex_state = 229, .external_lex_state = 2},
-  [1300] = {.lex_state = 230, .external_lex_state = 2},
-  [1301] = {.lex_state = 230, .external_lex_state = 2},
+  [1297] = {.lex_state = 236, .external_lex_state = 2},
+  [1298] = {.lex_state = 272, .external_lex_state = 2},
+  [1299] = {.lex_state = 230, .external_lex_state = 2},
+  [1300] = {.lex_state = 272, .external_lex_state = 2},
+  [1301] = {.lex_state = 236, .external_lex_state = 2},
   [1302] = {.lex_state = 236, .external_lex_state = 2},
-  [1303] = {.lex_state = 230, .external_lex_state = 2},
-  [1304] = {.lex_state = 230, .external_lex_state = 2},
-  [1305] = {.lex_state = 229, .external_lex_state = 2},
-  [1306] = {.lex_state = 230, .external_lex_state = 2},
-  [1307] = {.lex_state = 230, .external_lex_state = 2},
-  [1308] = {.lex_state = 236, .external_lex_state = 2},
-  [1309] = {.lex_state = 272, .external_lex_state = 2},
-  [1310] = {.lex_state = 272, .external_lex_state = 2},
-  [1311] = {.lex_state = 230, .external_lex_state = 2},
+  [1303] = {.lex_state = 236, .external_lex_state = 2},
+  [1304] = {.lex_state = 272, .external_lex_state = 2},
+  [1305] = {.lex_state = 230, .external_lex_state = 2},
+  [1306] = {.lex_state = 272, .external_lex_state = 2},
+  [1307] = {.lex_state = 236, .external_lex_state = 2},
+  [1308] = {.lex_state = 248, .external_lex_state = 2},
+  [1309] = {.lex_state = 229, .external_lex_state = 2},
+  [1310] = {.lex_state = 236, .external_lex_state = 2},
+  [1311] = {.lex_state = 248, .external_lex_state = 2},
   [1312] = {.lex_state = 272, .external_lex_state = 2},
-  [1313] = {.lex_state = 272, .external_lex_state = 2},
-  [1314] = {.lex_state = 230, .external_lex_state = 2},
-  [1315] = {.lex_state = 272, .external_lex_state = 2},
-  [1316] = {.lex_state = 272, .external_lex_state = 2},
+  [1313] = {.lex_state = 248, .external_lex_state = 2},
+  [1314] = {.lex_state = 272, .external_lex_state = 2},
+  [1315] = {.lex_state = 230, .external_lex_state = 2},
+  [1316] = {.lex_state = 230, .external_lex_state = 2},
   [1317] = {.lex_state = 229, .external_lex_state = 2},
-  [1318] = {.lex_state = 229, .external_lex_state = 2},
-  [1319] = {.lex_state = 248, .external_lex_state = 2},
-  [1320] = {.lex_state = 272, .external_lex_state = 2},
-  [1321] = {.lex_state = 272, .external_lex_state = 2},
-  [1322] = {.lex_state = 230, .external_lex_state = 2},
-  [1323] = {.lex_state = 230, .external_lex_state = 2},
-  [1324] = {.lex_state = 229, .external_lex_state = 2},
+  [1318] = {.lex_state = 248, .external_lex_state = 2},
+  [1319] = {.lex_state = 229, .external_lex_state = 2},
+  [1320] = {.lex_state = 248, .external_lex_state = 2},
+  [1321] = {.lex_state = 248, .external_lex_state = 2},
+  [1322] = {.lex_state = 272, .external_lex_state = 2},
+  [1323] = {.lex_state = 236, .external_lex_state = 2},
+  [1324] = {.lex_state = 248, .external_lex_state = 2},
   [1325] = {.lex_state = 230, .external_lex_state = 2},
-  [1326] = {.lex_state = 248, .external_lex_state = 2},
-  [1327] = {.lex_state = 229, .external_lex_state = 2},
-  [1328] = {.lex_state = 230, .external_lex_state = 2},
-  [1329] = {.lex_state = 230, .external_lex_state = 2},
-  [1330] = {.lex_state = 229, .external_lex_state = 2},
-  [1331] = {.lex_state = 229, .external_lex_state = 2},
-  [1332] = {.lex_state = 229, .external_lex_state = 2},
-  [1333] = {.lex_state = 272, .external_lex_state = 2},
-  [1334] = {.lex_state = 272, .external_lex_state = 2},
-  [1335] = {.lex_state = 230, .external_lex_state = 2},
-  [1336] = {.lex_state = 229, .external_lex_state = 2},
-  [1337] = {.lex_state = 236, .external_lex_state = 2},
+  [1326] = {.lex_state = 236, .external_lex_state = 2},
+  [1327] = {.lex_state = 236, .external_lex_state = 2},
+  [1328] = {.lex_state = 236, .external_lex_state = 2},
+  [1329] = {.lex_state = 248, .external_lex_state = 2},
+  [1330] = {.lex_state = 230, .external_lex_state = 2},
+  [1331] = {.lex_state = 236, .external_lex_state = 2},
+  [1332] = {.lex_state = 230, .external_lex_state = 2},
+  [1333] = {.lex_state = 230, .external_lex_state = 2},
+  [1334] = {.lex_state = 230, .external_lex_state = 2},
+  [1335] = {.lex_state = 248, .external_lex_state = 2},
+  [1336] = {.lex_state = 230, .external_lex_state = 2},
+  [1337] = {.lex_state = 248, .external_lex_state = 2},
   [1338] = {.lex_state = 236, .external_lex_state = 2},
-  [1339] = {.lex_state = 230, .external_lex_state = 2},
-  [1340] = {.lex_state = 230, .external_lex_state = 2},
-  [1341] = {.lex_state = 229, .external_lex_state = 2},
-  [1342] = {.lex_state = 230, .external_lex_state = 2},
+  [1339] = {.lex_state = 236, .external_lex_state = 2},
+  [1340] = {.lex_state = 270, .external_lex_state = 2},
+  [1341] = {.lex_state = 270, .external_lex_state = 2},
+  [1342] = {.lex_state = 270, .external_lex_state = 2},
   [1343] = {.lex_state = 229, .external_lex_state = 2},
-  [1344] = {.lex_state = 248, .external_lex_state = 2},
-  [1345] = {.lex_state = 230, .external_lex_state = 2},
-  [1346] = {.lex_state = 230, .external_lex_state = 2},
-  [1347] = {.lex_state = 236, .external_lex_state = 2},
-  [1348] = {.lex_state = 270, .external_lex_state = 2},
-  [1349] = {.lex_state = 248, .external_lex_state = 2},
-  [1350] = {.lex_state = 236, .external_lex_state = 2},
-  [1351] = {.lex_state = 248, .external_lex_state = 2},
-  [1352] = {.lex_state = 230, .external_lex_state = 2},
-  [1353] = {.lex_state = 248, .external_lex_state = 2},
-  [1354] = {.lex_state = 248, .external_lex_state = 2},
-  [1355] = {.lex_state = 248, .external_lex_state = 2},
+  [1344] = {.lex_state = 270, .external_lex_state = 2},
+  [1345] = {.lex_state = 248, .external_lex_state = 2},
+  [1346] = {.lex_state = 248, .external_lex_state = 2},
+  [1347] = {.lex_state = 270, .external_lex_state = 2},
+  [1348] = {.lex_state = 236, .external_lex_state = 2},
+  [1349] = {.lex_state = 270, .external_lex_state = 2},
+  [1350] = {.lex_state = 270, .external_lex_state = 2},
+  [1351] = {.lex_state = 236, .external_lex_state = 2},
+  [1352] = {.lex_state = 248, .external_lex_state = 2},
+  [1353] = {.lex_state = 270, .external_lex_state = 2},
+  [1354] = {.lex_state = 270, .external_lex_state = 2},
+  [1355] = {.lex_state = 270, .external_lex_state = 2},
   [1356] = {.lex_state = 248, .external_lex_state = 2},
-  [1357] = {.lex_state = 248, .external_lex_state = 2},
-  [1358] = {.lex_state = 248, .external_lex_state = 2},
-  [1359] = {.lex_state = 248, .external_lex_state = 2},
-  [1360] = {.lex_state = 248, .external_lex_state = 2},
+  [1357] = {.lex_state = 270, .external_lex_state = 2},
+  [1358] = {.lex_state = 230, .external_lex_state = 2},
+  [1359] = {.lex_state = 270, .external_lex_state = 2},
+  [1360] = {.lex_state = 270, .external_lex_state = 2},
   [1361] = {.lex_state = 248, .external_lex_state = 2},
-  [1362] = {.lex_state = 270, .external_lex_state = 2},
+  [1362] = {.lex_state = 248, .external_lex_state = 2},
   [1363] = {.lex_state = 236, .external_lex_state = 2},
   [1364] = {.lex_state = 236, .external_lex_state = 2},
-  [1365] = {.lex_state = 236, .external_lex_state = 2},
-  [1366] = {.lex_state = 229, .external_lex_state = 2},
+  [1365] = {.lex_state = 248, .external_lex_state = 2},
+  [1366] = {.lex_state = 248, .external_lex_state = 2},
   [1367] = {.lex_state = 248, .external_lex_state = 2},
   [1368] = {.lex_state = 236, .external_lex_state = 2},
-  [1369] = {.lex_state = 236, .external_lex_state = 2},
+  [1369] = {.lex_state = 248, .external_lex_state = 2},
   [1370] = {.lex_state = 236, .external_lex_state = 2},
   [1371] = {.lex_state = 236, .external_lex_state = 2},
-  [1372] = {.lex_state = 236, .external_lex_state = 2},
-  [1373] = {.lex_state = 248, .external_lex_state = 2},
-  [1374] = {.lex_state = 248, .external_lex_state = 2},
+  [1372] = {.lex_state = 248, .external_lex_state = 2},
+  [1373] = {.lex_state = 270, .external_lex_state = 2},
+  [1374] = {.lex_state = 270, .external_lex_state = 2},
   [1375] = {.lex_state = 248, .external_lex_state = 2},
-  [1376] = {.lex_state = 236, .external_lex_state = 2},
-  [1377] = {.lex_state = 270, .external_lex_state = 2},
-  [1378] = {.lex_state = 248, .external_lex_state = 2},
+  [1376] = {.lex_state = 248, .external_lex_state = 2},
+  [1377] = {.lex_state = 236, .external_lex_state = 2},
+  [1378] = {.lex_state = 236, .external_lex_state = 2},
   [1379] = {.lex_state = 236, .external_lex_state = 2},
   [1380] = {.lex_state = 236, .external_lex_state = 2},
-  [1381] = {.lex_state = 236, .external_lex_state = 2},
+  [1381] = {.lex_state = 270, .external_lex_state = 2},
   [1382] = {.lex_state = 236, .external_lex_state = 2},
-  [1383] = {.lex_state = 248, .external_lex_state = 2},
-  [1384] = {.lex_state = 248, .external_lex_state = 2},
-  [1385] = {.lex_state = 236, .external_lex_state = 2},
+  [1383] = {.lex_state = 230, .external_lex_state = 2},
+  [1384] = {.lex_state = 230, .external_lex_state = 2},
+  [1385] = {.lex_state = 230, .external_lex_state = 2},
   [1386] = {.lex_state = 236, .external_lex_state = 2},
   [1387] = {.lex_state = 236, .external_lex_state = 2},
   [1388] = {.lex_state = 236, .external_lex_state = 2},
-  [1389] = {.lex_state = 248, .external_lex_state = 2},
-  [1390] = {.lex_state = 248, .external_lex_state = 2},
-  [1391] = {.lex_state = 229, .external_lex_state = 2},
+  [1389] = {.lex_state = 236, .external_lex_state = 2},
+  [1390] = {.lex_state = 236, .external_lex_state = 2},
+  [1391] = {.lex_state = 270, .external_lex_state = 2},
   [1392] = {.lex_state = 229, .external_lex_state = 2},
-  [1393] = {.lex_state = 270, .external_lex_state = 2},
-  [1394] = {.lex_state = 236, .external_lex_state = 2},
-  [1395] = {.lex_state = 270, .external_lex_state = 2},
-  [1396] = {.lex_state = 236, .external_lex_state = 2},
-  [1397] = {.lex_state = 236, .external_lex_state = 2},
-  [1398] = {.lex_state = 270, .external_lex_state = 2},
+  [1393] = {.lex_state = 229, .external_lex_state = 2},
+  [1394] = {.lex_state = 229, .external_lex_state = 2},
+  [1395] = {.lex_state = 248, .external_lex_state = 2},
+  [1396] = {.lex_state = 230, .external_lex_state = 2},
+  [1397] = {.lex_state = 248, .external_lex_state = 2},
+  [1398] = {.lex_state = 230, .external_lex_state = 2},
   [1399] = {.lex_state = 236, .external_lex_state = 2},
-  [1400] = {.lex_state = 229, .external_lex_state = 2},
-  [1401] = {.lex_state = 229, .external_lex_state = 2},
+  [1400] = {.lex_state = 236, .external_lex_state = 2},
+  [1401] = {.lex_state = 236, .external_lex_state = 2},
   [1402] = {.lex_state = 229, .external_lex_state = 2},
-  [1403] = {.lex_state = 229, .external_lex_state = 2},
+  [1403] = {.lex_state = 236, .external_lex_state = 2},
   [1404] = {.lex_state = 229, .external_lex_state = 2},
-  [1405] = {.lex_state = 236, .external_lex_state = 2},
-  [1406] = {.lex_state = 236, .external_lex_state = 2},
-  [1407] = {.lex_state = 236, .external_lex_state = 2},
-  [1408] = {.lex_state = 248, .external_lex_state = 2},
+  [1405] = {.lex_state = 248, .external_lex_state = 2},
+  [1406] = {.lex_state = 248, .external_lex_state = 2},
+  [1407] = {.lex_state = 248, .external_lex_state = 2},
+  [1408] = {.lex_state = 236, .external_lex_state = 2},
   [1409] = {.lex_state = 248, .external_lex_state = 2},
-  [1410] = {.lex_state = 248, .external_lex_state = 2},
+  [1410] = {.lex_state = 236, .external_lex_state = 2},
   [1411] = {.lex_state = 248, .external_lex_state = 2},
-  [1412] = {.lex_state = 270, .external_lex_state = 2},
-  [1413] = {.lex_state = 248, .external_lex_state = 2},
-  [1414] = {.lex_state = 236, .external_lex_state = 2},
-  [1415] = {.lex_state = 229, .external_lex_state = 2},
-  [1416] = {.lex_state = 270, .external_lex_state = 2},
-  [1417] = {.lex_state = 229, .external_lex_state = 2},
-  [1418] = {.lex_state = 229, .external_lex_state = 2},
-  [1419] = {.lex_state = 230, .external_lex_state = 2},
-  [1420] = {.lex_state = 229, .external_lex_state = 2},
-  [1421] = {.lex_state = 229, .external_lex_state = 2},
-  [1422] = {.lex_state = 236, .external_lex_state = 2},
-  [1423] = {.lex_state = 230, .external_lex_state = 2},
+  [1412] = {.lex_state = 248, .external_lex_state = 2},
+  [1413] = {.lex_state = 236, .external_lex_state = 2},
+  [1414] = {.lex_state = 229, .external_lex_state = 2},
+  [1415] = {.lex_state = 270, .external_lex_state = 2},
+  [1416] = {.lex_state = 236, .external_lex_state = 2},
+  [1417] = {.lex_state = 270, .external_lex_state = 2},
+  [1418] = {.lex_state = 230, .external_lex_state = 2},
+  [1419] = {.lex_state = 236, .external_lex_state = 2},
+  [1420] = {.lex_state = 270, .external_lex_state = 2},
+  [1421] = {.lex_state = 270, .external_lex_state = 2},
+  [1422] = {.lex_state = 230, .external_lex_state = 2},
+  [1423] = {.lex_state = 236, .external_lex_state = 2},
   [1424] = {.lex_state = 236, .external_lex_state = 2},
-  [1425] = {.lex_state = 236, .external_lex_state = 2},
-  [1426] = {.lex_state = 230, .external_lex_state = 2},
-  [1427] = {.lex_state = 229, .external_lex_state = 2},
-  [1428] = {.lex_state = 236, .external_lex_state = 2},
-  [1429] = {.lex_state = 230, .external_lex_state = 2},
-  [1430] = {.lex_state = 229, .external_lex_state = 2},
-  [1431] = {.lex_state = 236, .external_lex_state = 2},
-  [1432] = {.lex_state = 229, .external_lex_state = 2},
-  [1433] = {.lex_state = 229, .external_lex_state = 2},
+  [1425] = {.lex_state = 248, .external_lex_state = 2},
+  [1426] = {.lex_state = 248, .external_lex_state = 2},
+  [1427] = {.lex_state = 270, .external_lex_state = 2},
+  [1428] = {.lex_state = 248, .external_lex_state = 2},
+  [1429] = {.lex_state = 248, .external_lex_state = 2},
+  [1430] = {.lex_state = 236, .external_lex_state = 2},
+  [1431] = {.lex_state = 230, .external_lex_state = 2},
+  [1432] = {.lex_state = 248, .external_lex_state = 2},
+  [1433] = {.lex_state = 270, .external_lex_state = 2},
   [1434] = {.lex_state = 230, .external_lex_state = 2},
-  [1435] = {.lex_state = 230, .external_lex_state = 2},
-  [1436] = {.lex_state = 248, .external_lex_state = 2},
-  [1437] = {.lex_state = 230, .external_lex_state = 2},
+  [1435] = {.lex_state = 248, .external_lex_state = 2},
+  [1436] = {.lex_state = 236, .external_lex_state = 2},
+  [1437] = {.lex_state = 248, .external_lex_state = 2},
   [1438] = {.lex_state = 230, .external_lex_state = 2},
-  [1439] = {.lex_state = 270, .external_lex_state = 2},
+  [1439] = {.lex_state = 248, .external_lex_state = 2},
   [1440] = {.lex_state = 248, .external_lex_state = 2},
-  [1441] = {.lex_state = 229, .external_lex_state = 2},
-  [1442] = {.lex_state = 236, .external_lex_state = 2},
-  [1443] = {.lex_state = 230, .external_lex_state = 2},
-  [1444] = {.lex_state = 236, .external_lex_state = 2},
-  [1445] = {.lex_state = 248, .external_lex_state = 2},
-  [1446] = {.lex_state = 229, .external_lex_state = 2},
-  [1447] = {.lex_state = 236, .external_lex_state = 2},
-  [1448] = {.lex_state = 230, .external_lex_state = 2},
-  [1449] = {.lex_state = 229, .external_lex_state = 2},
-  [1450] = {.lex_state = 229, .external_lex_state = 2},
-  [1451] = {.lex_state = 229, .external_lex_state = 2},
+  [1441] = {.lex_state = 230, .external_lex_state = 2},
+  [1442] = {.lex_state = 270, .external_lex_state = 2},
+  [1443] = {.lex_state = 229, .external_lex_state = 2},
+  [1444] = {.lex_state = 229, .external_lex_state = 2},
+  [1445] = {.lex_state = 229, .external_lex_state = 2},
+  [1446] = {.lex_state = 230, .external_lex_state = 2},
+  [1447] = {.lex_state = 248, .external_lex_state = 2},
+  [1448] = {.lex_state = 248, .external_lex_state = 2},
+  [1449] = {.lex_state = 248, .external_lex_state = 2},
+  [1450] = {.lex_state = 236, .external_lex_state = 2},
+  [1451] = {.lex_state = 230, .external_lex_state = 2},
   [1452] = {.lex_state = 230, .external_lex_state = 2},
-  [1453] = {.lex_state = 236, .external_lex_state = 2},
-  [1454] = {.lex_state = 229, .external_lex_state = 2},
-  [1455] = {.lex_state = 230, .external_lex_state = 2},
-  [1456] = {.lex_state = 230, .external_lex_state = 2},
-  [1457] = {.lex_state = 248, .external_lex_state = 2},
-  [1458] = {.lex_state = 236, .external_lex_state = 2},
-  [1459] = {.lex_state = 236, .external_lex_state = 2},
-  [1460] = {.lex_state = 230, .external_lex_state = 2},
+  [1453] = {.lex_state = 230, .external_lex_state = 2},
+  [1454] = {.lex_state = 248, .external_lex_state = 2},
+  [1455] = {.lex_state = 229, .external_lex_state = 2},
+  [1456] = {.lex_state = 270, .external_lex_state = 2},
+  [1457] = {.lex_state = 270, .external_lex_state = 2},
+  [1458] = {.lex_state = 230, .external_lex_state = 2},
+  [1459] = {.lex_state = 230, .external_lex_state = 2},
+  [1460] = {.lex_state = 229, .external_lex_state = 2},
   [1461] = {.lex_state = 229, .external_lex_state = 2},
   [1462] = {.lex_state = 229, .external_lex_state = 2},
-  [1463] = {.lex_state = 230, .external_lex_state = 2},
-  [1464] = {.lex_state = 229, .external_lex_state = 2},
+  [1463] = {.lex_state = 270, .external_lex_state = 2},
+  [1464] = {.lex_state = 230, .external_lex_state = 2},
   [1465] = {.lex_state = 230, .external_lex_state = 2},
-  [1466] = {.lex_state = 248, .external_lex_state = 2},
-  [1467] = {.lex_state = 229, .external_lex_state = 2},
-  [1468] = {.lex_state = 229, .external_lex_state = 2},
-  [1469] = {.lex_state = 236, .external_lex_state = 2},
-  [1470] = {.lex_state = 236, .external_lex_state = 2},
-  [1471] = {.lex_state = 229, .external_lex_state = 2},
-  [1472] = {.lex_state = 236, .external_lex_state = 2},
-  [1473] = {.lex_state = 230, .external_lex_state = 2},
-  [1474] = {.lex_state = 248, .external_lex_state = 2},
-  [1475] = {.lex_state = 229, .external_lex_state = 2},
-  [1476] = {.lex_state = 248, .external_lex_state = 2},
-  [1477] = {.lex_state = 248, .external_lex_state = 2},
-  [1478] = {.lex_state = 248, .external_lex_state = 2},
-  [1479] = {.lex_state = 236, .external_lex_state = 2},
-  [1480] = {.lex_state = 230, .external_lex_state = 2},
-  [1481] = {.lex_state = 270, .external_lex_state = 2},
+  [1466] = {.lex_state = 270, .external_lex_state = 2},
+  [1467] = {.lex_state = 230, .external_lex_state = 2},
+  [1468] = {.lex_state = 230, .external_lex_state = 2},
+  [1469] = {.lex_state = 230, .external_lex_state = 2},
+  [1470] = {.lex_state = 230, .external_lex_state = 2},
+  [1471] = {.lex_state = 230, .external_lex_state = 2},
+  [1472] = {.lex_state = 229, .external_lex_state = 2},
+  [1473] = {.lex_state = 229, .external_lex_state = 2},
+  [1474] = {.lex_state = 270, .external_lex_state = 2},
+  [1475] = {.lex_state = 236, .external_lex_state = 2},
+  [1476] = {.lex_state = 270, .external_lex_state = 2},
+  [1477] = {.lex_state = 230, .external_lex_state = 2},
+  [1478] = {.lex_state = 230, .external_lex_state = 2},
+  [1479] = {.lex_state = 230, .external_lex_state = 2},
+  [1480] = {.lex_state = 236, .external_lex_state = 2},
+  [1481] = {.lex_state = 230, .external_lex_state = 2},
   [1482] = {.lex_state = 230, .external_lex_state = 2},
   [1483] = {.lex_state = 230, .external_lex_state = 2},
-  [1484] = {.lex_state = 248, .external_lex_state = 2},
-  [1485] = {.lex_state = 229, .external_lex_state = 2},
-  [1486] = {.lex_state = 229, .external_lex_state = 2},
+  [1484] = {.lex_state = 230, .external_lex_state = 2},
+  [1485] = {.lex_state = 230, .external_lex_state = 2},
+  [1486] = {.lex_state = 248, .external_lex_state = 2},
   [1487] = {.lex_state = 229, .external_lex_state = 2},
-  [1488] = {.lex_state = 229, .external_lex_state = 2},
-  [1489] = {.lex_state = 248, .external_lex_state = 2},
-  [1490] = {.lex_state = 229, .external_lex_state = 2},
+  [1488] = {.lex_state = 230, .external_lex_state = 2},
+  [1489] = {.lex_state = 230, .external_lex_state = 2},
+  [1490] = {.lex_state = 270, .external_lex_state = 2},
   [1491] = {.lex_state = 230, .external_lex_state = 2},
-  [1492] = {.lex_state = 229, .external_lex_state = 2},
+  [1492] = {.lex_state = 230, .external_lex_state = 2},
   [1493] = {.lex_state = 270, .external_lex_state = 2},
-  [1494] = {.lex_state = 236, .external_lex_state = 2},
-  [1495] = {.lex_state = 236, .external_lex_state = 2},
-  [1496] = {.lex_state = 236, .external_lex_state = 2},
+  [1494] = {.lex_state = 230, .external_lex_state = 2},
+  [1495] = {.lex_state = 230, .external_lex_state = 2},
+  [1496] = {.lex_state = 230, .external_lex_state = 2},
   [1497] = {.lex_state = 230, .external_lex_state = 2},
-  [1498] = {.lex_state = 248, .external_lex_state = 2},
+  [1498] = {.lex_state = 230, .external_lex_state = 2},
   [1499] = {.lex_state = 230, .external_lex_state = 2},
-  [1500] = {.lex_state = 248, .external_lex_state = 2},
-  [1501] = {.lex_state = 236, .external_lex_state = 2},
+  [1500] = {.lex_state = 229, .external_lex_state = 2},
+  [1501] = {.lex_state = 229, .external_lex_state = 2},
   [1502] = {.lex_state = 236, .external_lex_state = 2},
-  [1503] = {.lex_state = 230, .external_lex_state = 2},
-  [1504] = {.lex_state = 248, .external_lex_state = 2},
-  [1505] = {.lex_state = 248, .external_lex_state = 2},
-  [1506] = {.lex_state = 248, .external_lex_state = 2},
-  [1507] = {.lex_state = 248, .external_lex_state = 2},
+  [1503] = {.lex_state = 236, .external_lex_state = 2},
+  [1504] = {.lex_state = 229, .external_lex_state = 2},
+  [1505] = {.lex_state = 229, .external_lex_state = 2},
+  [1506] = {.lex_state = 236, .external_lex_state = 2},
+  [1507] = {.lex_state = 229, .external_lex_state = 2},
   [1508] = {.lex_state = 229, .external_lex_state = 2},
   [1509] = {.lex_state = 229, .external_lex_state = 2},
-  [1510] = {.lex_state = 236, .external_lex_state = 2},
+  [1510] = {.lex_state = 229, .external_lex_state = 2},
   [1511] = {.lex_state = 236, .external_lex_state = 2},
-  [1512] = {.lex_state = 236, .external_lex_state = 2},
-  [1513] = {.lex_state = 248, .external_lex_state = 2},
-  [1514] = {.lex_state = 248, .external_lex_state = 2},
-  [1515] = {.lex_state = 248, .external_lex_state = 2},
-  [1516] = {.lex_state = 248, .external_lex_state = 2},
-  [1517] = {.lex_state = 248, .external_lex_state = 2},
-  [1518] = {.lex_state = 229, .external_lex_state = 2},
-  [1519] = {.lex_state = 229, .external_lex_state = 2},
-  [1520] = {.lex_state = 248, .external_lex_state = 2},
-  [1521] = {.lex_state = 248, .external_lex_state = 2},
-  [1522] = {.lex_state = 248, .external_lex_state = 2},
+  [1512] = {.lex_state = 230, .external_lex_state = 2},
+  [1513] = {.lex_state = 230, .external_lex_state = 2},
+  [1514] = {.lex_state = 229, .external_lex_state = 2},
+  [1515] = {.lex_state = 229, .external_lex_state = 2},
+  [1516] = {.lex_state = 229, .external_lex_state = 2},
+  [1517] = {.lex_state = 230, .external_lex_state = 2},
+  [1518] = {.lex_state = 230, .external_lex_state = 2},
+  [1519] = {.lex_state = 230, .external_lex_state = 2},
+  [1520] = {.lex_state = 230, .external_lex_state = 2},
+  [1521] = {.lex_state = 236, .external_lex_state = 2},
+  [1522] = {.lex_state = 230, .external_lex_state = 2},
   [1523] = {.lex_state = 229, .external_lex_state = 2},
-  [1524] = {.lex_state = 230, .external_lex_state = 2},
+  [1524] = {.lex_state = 248, .external_lex_state = 2},
   [1525] = {.lex_state = 229, .external_lex_state = 2},
-  [1526] = {.lex_state = 236, .external_lex_state = 2},
+  [1526] = {.lex_state = 230, .external_lex_state = 2},
   [1527] = {.lex_state = 230, .external_lex_state = 2},
   [1528] = {.lex_state = 229, .external_lex_state = 2},
-  [1529] = {.lex_state = 230, .external_lex_state = 2},
-  [1530] = {.lex_state = 230, .external_lex_state = 2},
-  [1531] = {.lex_state = 230, .external_lex_state = 2},
-  [1532] = {.lex_state = 248, .external_lex_state = 2},
-  [1533] = {.lex_state = 229, .external_lex_state = 2},
-  [1534] = {.lex_state = 236, .external_lex_state = 2},
+  [1529] = {.lex_state = 229, .external_lex_state = 2},
+  [1530] = {.lex_state = 229, .external_lex_state = 2},
+  [1531] = {.lex_state = 229, .external_lex_state = 2},
+  [1532] = {.lex_state = 230, .external_lex_state = 2},
+  [1533] = {.lex_state = 230, .external_lex_state = 2},
+  [1534] = {.lex_state = 248, .external_lex_state = 2},
   [1535] = {.lex_state = 229, .external_lex_state = 2},
-  [1536] = {.lex_state = 229, .external_lex_state = 2},
-  [1537] = {.lex_state = 248, .external_lex_state = 2},
-  [1538] = {.lex_state = 248, .external_lex_state = 2},
-  [1539] = {.lex_state = 230, .external_lex_state = 2},
-  [1540] = {.lex_state = 229, .external_lex_state = 2},
+  [1536] = {.lex_state = 230, .external_lex_state = 2},
+  [1537] = {.lex_state = 230, .external_lex_state = 2},
+  [1538] = {.lex_state = 230, .external_lex_state = 2},
+  [1539] = {.lex_state = 236, .external_lex_state = 2},
+  [1540] = {.lex_state = 230, .external_lex_state = 2},
   [1541] = {.lex_state = 230, .external_lex_state = 2},
-  [1542] = {.lex_state = 230, .external_lex_state = 2},
-  [1543] = {.lex_state = 230, .external_lex_state = 2},
+  [1542] = {.lex_state = 229, .external_lex_state = 2},
+  [1543] = {.lex_state = 229, .external_lex_state = 2},
   [1544] = {.lex_state = 248, .external_lex_state = 2},
-  [1545] = {.lex_state = 236, .external_lex_state = 2},
-  [1546] = {.lex_state = 230, .external_lex_state = 2},
-  [1547] = {.lex_state = 229, .external_lex_state = 2},
-  [1548] = {.lex_state = 230, .external_lex_state = 2},
-  [1549] = {.lex_state = 230, .external_lex_state = 2},
+  [1545] = {.lex_state = 248, .external_lex_state = 2},
+  [1546] = {.lex_state = 248, .external_lex_state = 2},
+  [1547] = {.lex_state = 248, .external_lex_state = 2},
+  [1548] = {.lex_state = 248, .external_lex_state = 2},
+  [1549] = {.lex_state = 248, .external_lex_state = 2},
   [1550] = {.lex_state = 248, .external_lex_state = 2},
-  [1551] = {.lex_state = 236, .external_lex_state = 2},
-  [1552] = {.lex_state = 248, .external_lex_state = 2},
-  [1553] = {.lex_state = 230, .external_lex_state = 2},
+  [1551] = {.lex_state = 248, .external_lex_state = 2},
+  [1552] = {.lex_state = 230, .external_lex_state = 2},
+  [1553] = {.lex_state = 270, .external_lex_state = 2},
   [1554] = {.lex_state = 248, .external_lex_state = 2},
-  [1555] = {.lex_state = 230, .external_lex_state = 2},
-  [1556] = {.lex_state = 248, .external_lex_state = 2},
-  [1557] = {.lex_state = 248, .external_lex_state = 2},
-  [1558] = {.lex_state = 230, .external_lex_state = 2},
-  [1559] = {.lex_state = 230, .external_lex_state = 2},
-  [1560] = {.lex_state = 230, .external_lex_state = 2},
-  [1561] = {.lex_state = 248, .external_lex_state = 2},
-  [1562] = {.lex_state = 270, .external_lex_state = 2},
-  [1563] = {.lex_state = 270, .external_lex_state = 2},
-  [1564] = {.lex_state = 230, .external_lex_state = 2},
-  [1565] = {.lex_state = 248, .external_lex_state = 2},
-  [1566] = {.lex_state = 230, .external_lex_state = 2},
-  [1567] = {.lex_state = 230, .external_lex_state = 2},
-  [1568] = {.lex_state = 270, .external_lex_state = 2},
-  [1569] = {.lex_state = 270, .external_lex_state = 2},
-  [1570] = {.lex_state = 270, .external_lex_state = 2},
-  [1571] = {.lex_state = 270, .external_lex_state = 2},
-  [1572] = {.lex_state = 270, .external_lex_state = 2},
-  [1573] = {.lex_state = 230, .external_lex_state = 2},
-  [1574] = {.lex_state = 229, .external_lex_state = 2},
+  [1555] = {.lex_state = 248, .external_lex_state = 2},
+  [1556] = {.lex_state = 236, .external_lex_state = 2},
+  [1557] = {.lex_state = 236, .external_lex_state = 2},
+  [1558] = {.lex_state = 229, .external_lex_state = 2},
+  [1559] = {.lex_state = 229, .external_lex_state = 2},
+  [1560] = {.lex_state = 229, .external_lex_state = 2},
+  [1561] = {.lex_state = 229, .external_lex_state = 2},
+  [1562] = {.lex_state = 248, .external_lex_state = 2},
+  [1563] = {.lex_state = 248, .external_lex_state = 2},
+  [1564] = {.lex_state = 248, .external_lex_state = 2},
+  [1565] = {.lex_state = 236, .external_lex_state = 2},
+  [1566] = {.lex_state = 248, .external_lex_state = 2},
+  [1567] = {.lex_state = 248, .external_lex_state = 2},
+  [1568] = {.lex_state = 248, .external_lex_state = 2},
+  [1569] = {.lex_state = 229, .external_lex_state = 2},
+  [1570] = {.lex_state = 229, .external_lex_state = 2},
+  [1571] = {.lex_state = 229, .external_lex_state = 2},
+  [1572] = {.lex_state = 248, .external_lex_state = 2},
+  [1573] = {.lex_state = 248, .external_lex_state = 2},
+  [1574] = {.lex_state = 236, .external_lex_state = 2},
   [1575] = {.lex_state = 248, .external_lex_state = 2},
-  [1576] = {.lex_state = 248, .external_lex_state = 2},
-  [1577] = {.lex_state = 270, .external_lex_state = 2},
+  [1576] = {.lex_state = 230, .external_lex_state = 2},
+  [1577] = {.lex_state = 230, .external_lex_state = 2},
   [1578] = {.lex_state = 270, .external_lex_state = 2},
-  [1579] = {.lex_state = 270, .external_lex_state = 2},
-  [1580] = {.lex_state = 248, .external_lex_state = 2},
-  [1581] = {.lex_state = 270, .external_lex_state = 2},
-  [1582] = {.lex_state = 270, .external_lex_state = 2},
-  [1583] = {.lex_state = 248, .external_lex_state = 2},
-  [1584] = {.lex_state = 230, .external_lex_state = 2},
+  [1579] = {.lex_state = 229, .external_lex_state = 2},
+  [1580] = {.lex_state = 236, .external_lex_state = 2},
+  [1581] = {.lex_state = 248, .external_lex_state = 2},
+  [1582] = {.lex_state = 236, .external_lex_state = 2},
+  [1583] = {.lex_state = 229, .external_lex_state = 2},
+  [1584] = {.lex_state = 248, .external_lex_state = 2},
   [1585] = {.lex_state = 229, .external_lex_state = 2},
-  [1586] = {.lex_state = 230, .external_lex_state = 2},
-  [1587] = {.lex_state = 229, .external_lex_state = 2},
-  [1588] = {.lex_state = 229, .external_lex_state = 2},
-  [1589] = {.lex_state = 270, .external_lex_state = 2},
-  [1590] = {.lex_state = 229, .external_lex_state = 2},
-  [1591] = {.lex_state = 270, .external_lex_state = 2},
-  [1592] = {.lex_state = 230, .external_lex_state = 2},
-  [1593] = {.lex_state = 248, .external_lex_state = 2},
+  [1586] = {.lex_state = 248, .external_lex_state = 2},
+  [1587] = {.lex_state = 248, .external_lex_state = 2},
+  [1588] = {.lex_state = 248, .external_lex_state = 2},
+  [1589] = {.lex_state = 248, .external_lex_state = 2},
+  [1590] = {.lex_state = 248, .external_lex_state = 2},
+  [1591] = {.lex_state = 248, .external_lex_state = 2},
+  [1592] = {.lex_state = 248, .external_lex_state = 2},
+  [1593] = {.lex_state = 236, .external_lex_state = 2},
   [1594] = {.lex_state = 236, .external_lex_state = 2},
   [1595] = {.lex_state = 236, .external_lex_state = 2},
-  [1596] = {.lex_state = 236, .external_lex_state = 2},
-  [1597] = {.lex_state = 270, .external_lex_state = 2},
-  [1598] = {.lex_state = 270, .external_lex_state = 2},
-  [1599] = {.lex_state = 236, .external_lex_state = 2},
+  [1596] = {.lex_state = 248, .external_lex_state = 2},
+  [1597] = {.lex_state = 236, .external_lex_state = 2},
+  [1598] = {.lex_state = 229, .external_lex_state = 2},
+  [1599] = {.lex_state = 229, .external_lex_state = 2},
   [1600] = {.lex_state = 248, .external_lex_state = 2},
-  [1601] = {.lex_state = 229, .external_lex_state = 2},
+  [1601] = {.lex_state = 236, .external_lex_state = 2},
   [1602] = {.lex_state = 248, .external_lex_state = 2},
-  [1603] = {.lex_state = 236, .external_lex_state = 2},
-  [1604] = {.lex_state = 270, .external_lex_state = 2},
-  [1605] = {.lex_state = 270, .external_lex_state = 2},
-  [1606] = {.lex_state = 236, .external_lex_state = 2},
-  [1607] = {.lex_state = 270, .external_lex_state = 2},
-  [1608] = {.lex_state = 229, .external_lex_state = 2},
-  [1609] = {.lex_state = 270, .external_lex_state = 2},
-  [1610] = {.lex_state = 270, .external_lex_state = 2},
-  [1611] = {.lex_state = 230, .external_lex_state = 2},
-  [1612] = {.lex_state = 230, .external_lex_state = 2},
-  [1613] = {.lex_state = 230, .external_lex_state = 2},
+  [1603] = {.lex_state = 229, .external_lex_state = 2},
+  [1604] = {.lex_state = 229, .external_lex_state = 2},
+  [1605] = {.lex_state = 236, .external_lex_state = 2},
+  [1606] = {.lex_state = 229, .external_lex_state = 2},
+  [1607] = {.lex_state = 229, .external_lex_state = 2},
+  [1608] = {.lex_state = 236, .external_lex_state = 2},
+  [1609] = {.lex_state = 236, .external_lex_state = 2},
+  [1610] = {.lex_state = 229, .external_lex_state = 2},
+  [1611] = {.lex_state = 229, .external_lex_state = 2},
+  [1612] = {.lex_state = 248, .external_lex_state = 2},
+  [1613] = {.lex_state = 229, .external_lex_state = 2},
   [1614] = {.lex_state = 229, .external_lex_state = 2},
-  [1615] = {.lex_state = 229, .external_lex_state = 2},
-  [1616] = {.lex_state = 229, .external_lex_state = 2},
-  [1617] = {.lex_state = 270, .external_lex_state = 2},
-  [1618] = {.lex_state = 270, .external_lex_state = 2},
-  [1619] = {.lex_state = 230, .external_lex_state = 2},
-  [1620] = {.lex_state = 230, .external_lex_state = 2},
-  [1621] = {.lex_state = 230, .external_lex_state = 2},
-  [1622] = {.lex_state = 230, .external_lex_state = 2},
-  [1623] = {.lex_state = 230, .external_lex_state = 2},
+  [1615] = {.lex_state = 236, .external_lex_state = 2},
+  [1616] = {.lex_state = 236, .external_lex_state = 2},
+  [1617] = {.lex_state = 236, .external_lex_state = 2},
+  [1618] = {.lex_state = 236, .external_lex_state = 2},
+  [1619] = {.lex_state = 236, .external_lex_state = 2},
+  [1620] = {.lex_state = 236, .external_lex_state = 2},
+  [1621] = {.lex_state = 236, .external_lex_state = 2},
+  [1622] = {.lex_state = 229, .external_lex_state = 2},
+  [1623] = {.lex_state = 229, .external_lex_state = 2},
   [1624] = {.lex_state = 229, .external_lex_state = 2},
   [1625] = {.lex_state = 229, .external_lex_state = 2},
-  [1626] = {.lex_state = 236, .external_lex_state = 2},
+  [1626] = {.lex_state = 229, .external_lex_state = 2},
   [1627] = {.lex_state = 249, .external_lex_state = 2},
   [1628] = {.lex_state = 249, .external_lex_state = 2},
   [1629] = {.lex_state = 249, .external_lex_state = 2},
@@ -39202,159 +38954,159 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [1680] = {.lex_state = 221, .external_lex_state = 2},
   [1681] = {.lex_state = 221, .external_lex_state = 2},
   [1682] = {.lex_state = 221, .external_lex_state = 2},
-  [1683] = {.lex_state = 232, .external_lex_state = 2},
+  [1683] = {.lex_state = 221, .external_lex_state = 2},
   [1684] = {.lex_state = 221, .external_lex_state = 2},
-  [1685] = {.lex_state = 221, .external_lex_state = 2},
-  [1686] = {.lex_state = 219, .external_lex_state = 2},
+  [1685] = {.lex_state = 232, .external_lex_state = 2},
+  [1686] = {.lex_state = 232, .external_lex_state = 2},
   [1687] = {.lex_state = 219, .external_lex_state = 2},
-  [1688] = {.lex_state = 219, .external_lex_state = 2},
-  [1689] = {.lex_state = 219, .external_lex_state = 2},
+  [1688] = {.lex_state = 232, .external_lex_state = 2},
+  [1689] = {.lex_state = 221, .external_lex_state = 2},
   [1690] = {.lex_state = 219, .external_lex_state = 2},
-  [1691] = {.lex_state = 219, .external_lex_state = 2},
-  [1692] = {.lex_state = 219, .external_lex_state = 2},
-  [1693] = {.lex_state = 219, .external_lex_state = 2},
-  [1694] = {.lex_state = 219, .external_lex_state = 2},
-  [1695] = {.lex_state = 219, .external_lex_state = 2},
-  [1696] = {.lex_state = 219, .external_lex_state = 2},
-  [1697] = {.lex_state = 219, .external_lex_state = 2},
+  [1691] = {.lex_state = 232, .external_lex_state = 2},
+  [1692] = {.lex_state = 232, .external_lex_state = 2},
+  [1693] = {.lex_state = 232, .external_lex_state = 2},
+  [1694] = {.lex_state = 232, .external_lex_state = 2},
+  [1695] = {.lex_state = 232, .external_lex_state = 2},
+  [1696] = {.lex_state = 232, .external_lex_state = 2},
+  [1697] = {.lex_state = 232, .external_lex_state = 2},
   [1698] = {.lex_state = 219, .external_lex_state = 2},
   [1699] = {.lex_state = 232, .external_lex_state = 2},
-  [1700] = {.lex_state = 232, .external_lex_state = 2},
+  [1700] = {.lex_state = 221, .external_lex_state = 2},
   [1701] = {.lex_state = 232, .external_lex_state = 2},
   [1702] = {.lex_state = 232, .external_lex_state = 2},
-  [1703] = {.lex_state = 232, .external_lex_state = 2},
-  [1704] = {.lex_state = 232, .external_lex_state = 2},
+  [1703] = {.lex_state = 219, .external_lex_state = 2},
+  [1704] = {.lex_state = 219, .external_lex_state = 2},
   [1705] = {.lex_state = 232, .external_lex_state = 2},
-  [1706] = {.lex_state = 232, .external_lex_state = 2},
+  [1706] = {.lex_state = 219, .external_lex_state = 2},
   [1707] = {.lex_state = 232, .external_lex_state = 2},
-  [1708] = {.lex_state = 232, .external_lex_state = 2},
+  [1708] = {.lex_state = 219, .external_lex_state = 2},
   [1709] = {.lex_state = 232, .external_lex_state = 2},
-  [1710] = {.lex_state = 232, .external_lex_state = 2},
-  [1711] = {.lex_state = 232, .external_lex_state = 2},
-  [1712] = {.lex_state = 232, .external_lex_state = 2},
-  [1713] = {.lex_state = 232, .external_lex_state = 2},
+  [1710] = {.lex_state = 221, .external_lex_state = 2},
+  [1711] = {.lex_state = 289, .external_lex_state = 5},
+  [1712] = {.lex_state = 289, .external_lex_state = 5},
+  [1713] = {.lex_state = 219, .external_lex_state = 2},
   [1714] = {.lex_state = 219, .external_lex_state = 2},
   [1715] = {.lex_state = 221, .external_lex_state = 2},
-  [1716] = {.lex_state = 221, .external_lex_state = 2},
+  [1716] = {.lex_state = 219, .external_lex_state = 2},
   [1717] = {.lex_state = 221, .external_lex_state = 2},
-  [1718] = {.lex_state = 221, .external_lex_state = 2},
-  [1719] = {.lex_state = 221, .external_lex_state = 2},
-  [1720] = {.lex_state = 221, .external_lex_state = 2},
-  [1721] = {.lex_state = 221, .external_lex_state = 2},
-  [1722] = {.lex_state = 221, .external_lex_state = 2},
-  [1723] = {.lex_state = 219, .external_lex_state = 2},
+  [1718] = {.lex_state = 219, .external_lex_state = 2},
+  [1719] = {.lex_state = 219, .external_lex_state = 2},
+  [1720] = {.lex_state = 289, .external_lex_state = 5},
+  [1721] = {.lex_state = 289, .external_lex_state = 5},
+  [1722] = {.lex_state = 219, .external_lex_state = 2},
+  [1723] = {.lex_state = 221, .external_lex_state = 2},
   [1724] = {.lex_state = 289, .external_lex_state = 5},
-  [1725] = {.lex_state = 289, .external_lex_state = 5},
-  [1726] = {.lex_state = 285, .external_lex_state = 6},
-  [1727] = {.lex_state = 219, .external_lex_state = 2},
+  [1725] = {.lex_state = 221, .external_lex_state = 2},
+  [1726] = {.lex_state = 289, .external_lex_state = 5},
+  [1727] = {.lex_state = 289, .external_lex_state = 5},
   [1728] = {.lex_state = 221, .external_lex_state = 2},
-  [1729] = {.lex_state = 219, .external_lex_state = 2},
+  [1729] = {.lex_state = 289, .external_lex_state = 5},
   [1730] = {.lex_state = 221, .external_lex_state = 2},
-  [1731] = {.lex_state = 219, .external_lex_state = 2},
+  [1731] = {.lex_state = 221, .external_lex_state = 2},
   [1732] = {.lex_state = 221, .external_lex_state = 2},
-  [1733] = {.lex_state = 221, .external_lex_state = 2},
-  [1734] = {.lex_state = 219, .external_lex_state = 2},
-  [1735] = {.lex_state = 289, .external_lex_state = 5},
-  [1736] = {.lex_state = 289, .external_lex_state = 5},
-  [1737] = {.lex_state = 289, .external_lex_state = 5},
+  [1733] = {.lex_state = 219, .external_lex_state = 2},
+  [1734] = {.lex_state = 221, .external_lex_state = 2},
+  [1735] = {.lex_state = 221, .external_lex_state = 2},
+  [1736] = {.lex_state = 221, .external_lex_state = 2},
+  [1737] = {.lex_state = 221, .external_lex_state = 2},
   [1738] = {.lex_state = 289, .external_lex_state = 5},
-  [1739] = {.lex_state = 221, .external_lex_state = 2},
+  [1739] = {.lex_state = 285, .external_lex_state = 6},
   [1740] = {.lex_state = 221, .external_lex_state = 2},
   [1741] = {.lex_state = 289, .external_lex_state = 5},
-  [1742] = {.lex_state = 289, .external_lex_state = 5},
-  [1743] = {.lex_state = 221, .external_lex_state = 2},
-  [1744] = {.lex_state = 221, .external_lex_state = 2},
-  [1745] = {.lex_state = 289, .external_lex_state = 5},
-  [1746] = {.lex_state = 289, .external_lex_state = 5},
-  [1747] = {.lex_state = 289, .external_lex_state = 5},
+  [1742] = {.lex_state = 221, .external_lex_state = 2},
+  [1743] = {.lex_state = 219, .external_lex_state = 2},
+  [1744] = {.lex_state = 219, .external_lex_state = 2},
+  [1745] = {.lex_state = 219, .external_lex_state = 2},
+  [1746] = {.lex_state = 219, .external_lex_state = 2},
+  [1747] = {.lex_state = 221, .external_lex_state = 2},
   [1748] = {.lex_state = 289, .external_lex_state = 5},
   [1749] = {.lex_state = 289, .external_lex_state = 5},
-  [1750] = {.lex_state = 289, .external_lex_state = 5},
-  [1751] = {.lex_state = 221, .external_lex_state = 2},
-  [1752] = {.lex_state = 221, .external_lex_state = 2},
-  [1753] = {.lex_state = 219, .external_lex_state = 2},
-  [1754] = {.lex_state = 221, .external_lex_state = 2},
+  [1750] = {.lex_state = 219, .external_lex_state = 2},
+  [1751] = {.lex_state = 219, .external_lex_state = 2},
+  [1752] = {.lex_state = 219, .external_lex_state = 2},
+  [1753] = {.lex_state = 221, .external_lex_state = 2},
+  [1754] = {.lex_state = 289, .external_lex_state = 5},
   [1755] = {.lex_state = 289, .external_lex_state = 5},
-  [1756] = {.lex_state = 289, .external_lex_state = 5},
-  [1757] = {.lex_state = 221, .external_lex_state = 2},
+  [1756] = {.lex_state = 221, .external_lex_state = 2},
+  [1757] = {.lex_state = 289, .external_lex_state = 5},
   [1758] = {.lex_state = 289, .external_lex_state = 5},
-  [1759] = {.lex_state = 289, .external_lex_state = 5},
-  [1760] = {.lex_state = 221, .external_lex_state = 2},
-  [1761] = {.lex_state = 219, .external_lex_state = 2},
+  [1759] = {.lex_state = 221, .external_lex_state = 2},
+  [1760] = {.lex_state = 289, .external_lex_state = 5},
+  [1761] = {.lex_state = 221, .external_lex_state = 2},
   [1762] = {.lex_state = 221, .external_lex_state = 2},
-  [1763] = {.lex_state = 221, .external_lex_state = 2},
+  [1763] = {.lex_state = 289, .external_lex_state = 5},
   [1764] = {.lex_state = 222, .external_lex_state = 2},
-  [1765] = {.lex_state = 219, .external_lex_state = 2},
-  [1766] = {.lex_state = 219, .external_lex_state = 2},
-  [1767] = {.lex_state = 219, .external_lex_state = 2},
+  [1765] = {.lex_state = 222, .external_lex_state = 2},
+  [1766] = {.lex_state = 222, .external_lex_state = 2},
+  [1767] = {.lex_state = 222, .external_lex_state = 2},
   [1768] = {.lex_state = 219, .external_lex_state = 2},
-  [1769] = {.lex_state = 219, .external_lex_state = 2},
-  [1770] = {.lex_state = 219, .external_lex_state = 2},
-  [1771] = {.lex_state = 219, .external_lex_state = 2},
-  [1772] = {.lex_state = 219, .external_lex_state = 2},
-  [1773] = {.lex_state = 219, .external_lex_state = 2},
-  [1774] = {.lex_state = 219, .external_lex_state = 2},
-  [1775] = {.lex_state = 219, .external_lex_state = 2},
-  [1776] = {.lex_state = 232, .external_lex_state = 2},
+  [1769] = {.lex_state = 222, .external_lex_state = 2},
+  [1770] = {.lex_state = 222, .external_lex_state = 2},
+  [1771] = {.lex_state = 222, .external_lex_state = 2},
+  [1772] = {.lex_state = 222, .external_lex_state = 2},
+  [1773] = {.lex_state = 222, .external_lex_state = 2},
+  [1774] = {.lex_state = 222, .external_lex_state = 2},
+  [1775] = {.lex_state = 300, .external_lex_state = 2},
+  [1776] = {.lex_state = 219, .external_lex_state = 2},
   [1777] = {.lex_state = 232, .external_lex_state = 2},
-  [1778] = {.lex_state = 232, .external_lex_state = 2},
-  [1779] = {.lex_state = 219, .external_lex_state = 2},
-  [1780] = {.lex_state = 232, .external_lex_state = 2},
-  [1781] = {.lex_state = 232, .external_lex_state = 2},
+  [1778] = {.lex_state = 300, .external_lex_state = 2},
+  [1779] = {.lex_state = 232, .external_lex_state = 2},
+  [1780] = {.lex_state = 300, .external_lex_state = 2},
+  [1781] = {.lex_state = 300, .external_lex_state = 2},
   [1782] = {.lex_state = 232, .external_lex_state = 2},
-  [1783] = {.lex_state = 219, .external_lex_state = 2},
-  [1784] = {.lex_state = 232, .external_lex_state = 2},
+  [1783] = {.lex_state = 232, .external_lex_state = 2},
+  [1784] = {.lex_state = 219, .external_lex_state = 2},
   [1785] = {.lex_state = 219, .external_lex_state = 2},
-  [1786] = {.lex_state = 232, .external_lex_state = 2},
-  [1787] = {.lex_state = 219, .external_lex_state = 2},
-  [1788] = {.lex_state = 232, .external_lex_state = 2},
-  [1789] = {.lex_state = 232, .external_lex_state = 2},
+  [1786] = {.lex_state = 300, .external_lex_state = 2},
+  [1787] = {.lex_state = 232, .external_lex_state = 2},
+  [1788] = {.lex_state = 300, .external_lex_state = 2},
+  [1789] = {.lex_state = 222, .external_lex_state = 2},
   [1790] = {.lex_state = 232, .external_lex_state = 2},
   [1791] = {.lex_state = 232, .external_lex_state = 2},
-  [1792] = {.lex_state = 232, .external_lex_state = 2},
+  [1792] = {.lex_state = 222, .external_lex_state = 2},
   [1793] = {.lex_state = 232, .external_lex_state = 2},
   [1794] = {.lex_state = 232, .external_lex_state = 2},
   [1795] = {.lex_state = 232, .external_lex_state = 2},
-  [1796] = {.lex_state = 232, .external_lex_state = 2},
-  [1797] = {.lex_state = 232, .external_lex_state = 2},
+  [1796] = {.lex_state = 222, .external_lex_state = 2},
+  [1797] = {.lex_state = 219, .external_lex_state = 2},
   [1798] = {.lex_state = 219, .external_lex_state = 2},
-  [1799] = {.lex_state = 219, .external_lex_state = 2},
-  [1800] = {.lex_state = 300, .external_lex_state = 2},
+  [1799] = {.lex_state = 222, .external_lex_state = 2},
+  [1800] = {.lex_state = 232, .external_lex_state = 2},
   [1801] = {.lex_state = 222, .external_lex_state = 2},
-  [1802] = {.lex_state = 222, .external_lex_state = 2},
-  [1803] = {.lex_state = 222, .external_lex_state = 2},
+  [1802] = {.lex_state = 232, .external_lex_state = 2},
+  [1803] = {.lex_state = 232, .external_lex_state = 2},
   [1804] = {.lex_state = 222, .external_lex_state = 2},
-  [1805] = {.lex_state = 222, .external_lex_state = 2},
-  [1806] = {.lex_state = 222, .external_lex_state = 2},
-  [1807] = {.lex_state = 222, .external_lex_state = 2},
-  [1808] = {.lex_state = 222, .external_lex_state = 2},
-  [1809] = {.lex_state = 222, .external_lex_state = 2},
+  [1805] = {.lex_state = 232, .external_lex_state = 2},
+  [1806] = {.lex_state = 232, .external_lex_state = 2},
+  [1807] = {.lex_state = 232, .external_lex_state = 2},
+  [1808] = {.lex_state = 219, .external_lex_state = 2},
+  [1809] = {.lex_state = 219, .external_lex_state = 2},
   [1810] = {.lex_state = 219, .external_lex_state = 2},
-  [1811] = {.lex_state = 222, .external_lex_state = 2},
-  [1812] = {.lex_state = 222, .external_lex_state = 2},
-  [1813] = {.lex_state = 222, .external_lex_state = 2},
-  [1814] = {.lex_state = 222, .external_lex_state = 2},
-  [1815] = {.lex_state = 222, .external_lex_state = 2},
-  [1816] = {.lex_state = 219, .external_lex_state = 2},
-  [1817] = {.lex_state = 219, .external_lex_state = 2},
+  [1811] = {.lex_state = 232, .external_lex_state = 2},
+  [1812] = {.lex_state = 232, .external_lex_state = 2},
+  [1813] = {.lex_state = 232, .external_lex_state = 2},
+  [1814] = {.lex_state = 232, .external_lex_state = 2},
+  [1815] = {.lex_state = 232, .external_lex_state = 2},
+  [1816] = {.lex_state = 232, .external_lex_state = 2},
+  [1817] = {.lex_state = 232, .external_lex_state = 2},
   [1818] = {.lex_state = 219, .external_lex_state = 2},
   [1819] = {.lex_state = 219, .external_lex_state = 2},
   [1820] = {.lex_state = 219, .external_lex_state = 2},
-  [1821] = {.lex_state = 219, .external_lex_state = 2},
+  [1821] = {.lex_state = 232, .external_lex_state = 2},
   [1822] = {.lex_state = 219, .external_lex_state = 2},
-  [1823] = {.lex_state = 232, .external_lex_state = 2},
-  [1824] = {.lex_state = 232, .external_lex_state = 2},
-  [1825] = {.lex_state = 232, .external_lex_state = 2},
-  [1826] = {.lex_state = 232, .external_lex_state = 2},
+  [1823] = {.lex_state = 219, .external_lex_state = 2},
+  [1824] = {.lex_state = 219, .external_lex_state = 2},
+  [1825] = {.lex_state = 219, .external_lex_state = 2},
+  [1826] = {.lex_state = 219, .external_lex_state = 2},
   [1827] = {.lex_state = 232, .external_lex_state = 2},
-  [1828] = {.lex_state = 232, .external_lex_state = 2},
-  [1829] = {.lex_state = 232, .external_lex_state = 2},
-  [1830] = {.lex_state = 300, .external_lex_state = 2},
-  [1831] = {.lex_state = 300, .external_lex_state = 2},
-  [1832] = {.lex_state = 300, .external_lex_state = 2},
-  [1833] = {.lex_state = 300, .external_lex_state = 2},
-  [1834] = {.lex_state = 300, .external_lex_state = 2},
-  [1835] = {.lex_state = 222, .external_lex_state = 2},
+  [1828] = {.lex_state = 219, .external_lex_state = 2},
+  [1829] = {.lex_state = 219, .external_lex_state = 2},
+  [1830] = {.lex_state = 219, .external_lex_state = 2},
+  [1831] = {.lex_state = 219, .external_lex_state = 2},
+  [1832] = {.lex_state = 219, .external_lex_state = 2},
+  [1833] = {.lex_state = 219, .external_lex_state = 2},
+  [1834] = {.lex_state = 219, .external_lex_state = 2},
+  [1835] = {.lex_state = 219, .external_lex_state = 2},
   [1836] = {.lex_state = 222, .external_lex_state = 2},
   [1837] = {.lex_state = 222, .external_lex_state = 2},
   [1838] = {.lex_state = 222, .external_lex_state = 2},
@@ -39380,796 +39132,796 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [1858] = {.lex_state = 222, .external_lex_state = 2},
   [1859] = {.lex_state = 222, .external_lex_state = 2},
   [1860] = {.lex_state = 222, .external_lex_state = 2},
-  [1861] = {.lex_state = 271, .external_lex_state = 2},
+  [1861] = {.lex_state = 295, .external_lex_state = 2},
   [1862] = {.lex_state = 234, .external_lex_state = 2},
-  [1863] = {.lex_state = 234, .external_lex_state = 2},
-  [1864] = {.lex_state = 271, .external_lex_state = 2},
-  [1865] = {.lex_state = 234, .external_lex_state = 2},
-  [1866] = {.lex_state = 271, .external_lex_state = 2},
-  [1867] = {.lex_state = 271, .external_lex_state = 2},
-  [1868] = {.lex_state = 234, .external_lex_state = 2},
+  [1863] = {.lex_state = 295, .external_lex_state = 2},
+  [1864] = {.lex_state = 295, .external_lex_state = 2},
+  [1865] = {.lex_state = 295, .external_lex_state = 2},
+  [1866] = {.lex_state = 295, .external_lex_state = 2},
+  [1867] = {.lex_state = 234, .external_lex_state = 2},
+  [1868] = {.lex_state = 271, .external_lex_state = 2},
   [1869] = {.lex_state = 234, .external_lex_state = 2},
   [1870] = {.lex_state = 271, .external_lex_state = 2},
   [1871] = {.lex_state = 234, .external_lex_state = 2},
-  [1872] = {.lex_state = 271, .external_lex_state = 2},
+  [1872] = {.lex_state = 295, .external_lex_state = 2},
   [1873] = {.lex_state = 271, .external_lex_state = 2},
-  [1874] = {.lex_state = 234, .external_lex_state = 2},
-  [1875] = {.lex_state = 234, .external_lex_state = 2},
-  [1876] = {.lex_state = 234, .external_lex_state = 2},
+  [1874] = {.lex_state = 295, .external_lex_state = 2},
+  [1875] = {.lex_state = 295, .external_lex_state = 2},
+  [1876] = {.lex_state = 271, .external_lex_state = 2},
   [1877] = {.lex_state = 271, .external_lex_state = 2},
   [1878] = {.lex_state = 234, .external_lex_state = 2},
-  [1879] = {.lex_state = 295, .external_lex_state = 2},
-  [1880] = {.lex_state = 295, .external_lex_state = 2},
+  [1879] = {.lex_state = 234, .external_lex_state = 2},
+  [1880] = {.lex_state = 234, .external_lex_state = 2},
   [1881] = {.lex_state = 271, .external_lex_state = 2},
   [1882] = {.lex_state = 295, .external_lex_state = 2},
-  [1883] = {.lex_state = 234, .external_lex_state = 2},
-  [1884] = {.lex_state = 234, .external_lex_state = 2},
-  [1885] = {.lex_state = 295, .external_lex_state = 2},
-  [1886] = {.lex_state = 295, .external_lex_state = 2},
-  [1887] = {.lex_state = 295, .external_lex_state = 2},
+  [1883] = {.lex_state = 271, .external_lex_state = 2},
+  [1884] = {.lex_state = 295, .external_lex_state = 2},
+  [1885] = {.lex_state = 234, .external_lex_state = 2},
+  [1886] = {.lex_state = 271, .external_lex_state = 2},
+  [1887] = {.lex_state = 234, .external_lex_state = 2},
   [1888] = {.lex_state = 234, .external_lex_state = 2},
-  [1889] = {.lex_state = 234, .external_lex_state = 2},
+  [1889] = {.lex_state = 271, .external_lex_state = 2},
   [1890] = {.lex_state = 234, .external_lex_state = 2},
-  [1891] = {.lex_state = 295, .external_lex_state = 2},
-  [1892] = {.lex_state = 295, .external_lex_state = 2},
-  [1893] = {.lex_state = 271, .external_lex_state = 2},
-  [1894] = {.lex_state = 295, .external_lex_state = 2},
+  [1891] = {.lex_state = 271, .external_lex_state = 2},
+  [1892] = {.lex_state = 271, .external_lex_state = 2},
+  [1893] = {.lex_state = 234, .external_lex_state = 2},
+  [1894] = {.lex_state = 234, .external_lex_state = 2},
   [1895] = {.lex_state = 271, .external_lex_state = 2},
   [1896] = {.lex_state = 271, .external_lex_state = 2},
-  [1897] = {.lex_state = 295, .external_lex_state = 2},
+  [1897] = {.lex_state = 234, .external_lex_state = 2},
   [1898] = {.lex_state = 271, .external_lex_state = 2},
-  [1899] = {.lex_state = 271, .external_lex_state = 2},
+  [1899] = {.lex_state = 234, .external_lex_state = 2},
   [1900] = {.lex_state = 271, .external_lex_state = 2},
-  [1901] = {.lex_state = 271, .external_lex_state = 2},
-  [1902] = {.lex_state = 234, .external_lex_state = 2},
+  [1901] = {.lex_state = 234, .external_lex_state = 2},
+  [1902] = {.lex_state = 271, .external_lex_state = 2},
   [1903] = {.lex_state = 231, .external_lex_state = 2},
-  [1904] = {.lex_state = 234, .external_lex_state = 2},
-  [1905] = {.lex_state = 237, .external_lex_state = 2},
-  [1906] = {.lex_state = 240, .external_lex_state = 2},
-  [1907] = {.lex_state = 240, .external_lex_state = 2},
-  [1908] = {.lex_state = 240, .external_lex_state = 2},
-  [1909] = {.lex_state = 240, .external_lex_state = 2},
+  [1904] = {.lex_state = 295, .external_lex_state = 2},
+  [1905] = {.lex_state = 234, .external_lex_state = 2},
+  [1906] = {.lex_state = 234, .external_lex_state = 2},
+  [1907] = {.lex_state = 242, .external_lex_state = 2},
+  [1908] = {.lex_state = 233, .external_lex_state = 2},
+  [1909] = {.lex_state = 242, .external_lex_state = 2},
   [1910] = {.lex_state = 234, .external_lex_state = 2},
-  [1911] = {.lex_state = 240, .external_lex_state = 2},
-  [1912] = {.lex_state = 240, .external_lex_state = 2},
+  [1911] = {.lex_state = 242, .external_lex_state = 2},
+  [1912] = {.lex_state = 234, .external_lex_state = 2},
   [1913] = {.lex_state = 234, .external_lex_state = 2},
-  [1914] = {.lex_state = 234, .external_lex_state = 2},
-  [1915] = {.lex_state = 234, .external_lex_state = 2},
+  [1914] = {.lex_state = 231, .external_lex_state = 2},
+  [1915] = {.lex_state = 231, .external_lex_state = 2},
   [1916] = {.lex_state = 234, .external_lex_state = 2},
   [1917] = {.lex_state = 234, .external_lex_state = 2},
-  [1918] = {.lex_state = 234, .external_lex_state = 2},
-  [1919] = {.lex_state = 233, .external_lex_state = 2},
+  [1918] = {.lex_state = 231, .external_lex_state = 2},
+  [1919] = {.lex_state = 234, .external_lex_state = 2},
   [1920] = {.lex_state = 234, .external_lex_state = 2},
-  [1921] = {.lex_state = 233, .external_lex_state = 2},
-  [1922] = {.lex_state = 233, .external_lex_state = 2},
-  [1923] = {.lex_state = 233, .external_lex_state = 2},
-  [1924] = {.lex_state = 233, .external_lex_state = 2},
-  [1925] = {.lex_state = 233, .external_lex_state = 2},
+  [1921] = {.lex_state = 231, .external_lex_state = 2},
+  [1922] = {.lex_state = 234, .external_lex_state = 2},
+  [1923] = {.lex_state = 273, .external_lex_state = 2},
+  [1924] = {.lex_state = 234, .external_lex_state = 2},
+  [1925] = {.lex_state = 231, .external_lex_state = 2},
   [1926] = {.lex_state = 233, .external_lex_state = 2},
   [1927] = {.lex_state = 233, .external_lex_state = 2},
-  [1928] = {.lex_state = 240, .external_lex_state = 2},
-  [1929] = {.lex_state = 234, .external_lex_state = 2},
-  [1930] = {.lex_state = 240, .external_lex_state = 2},
-  [1931] = {.lex_state = 231, .external_lex_state = 2},
+  [1928] = {.lex_state = 271, .external_lex_state = 2},
+  [1929] = {.lex_state = 273, .external_lex_state = 2},
+  [1930] = {.lex_state = 233, .external_lex_state = 2},
+  [1931] = {.lex_state = 273, .external_lex_state = 2},
   [1932] = {.lex_state = 234, .external_lex_state = 2},
   [1933] = {.lex_state = 233, .external_lex_state = 2},
-  [1934] = {.lex_state = 231, .external_lex_state = 2},
+  [1934] = {.lex_state = 233, .external_lex_state = 2},
   [1935] = {.lex_state = 234, .external_lex_state = 2},
   [1936] = {.lex_state = 271, .external_lex_state = 2},
-  [1937] = {.lex_state = 237, .external_lex_state = 2},
-  [1938] = {.lex_state = 233, .external_lex_state = 2},
-  [1939] = {.lex_state = 234, .external_lex_state = 2},
-  [1940] = {.lex_state = 233, .external_lex_state = 2},
-  [1941] = {.lex_state = 234, .external_lex_state = 2},
-  [1942] = {.lex_state = 271, .external_lex_state = 2},
-  [1943] = {.lex_state = 237, .external_lex_state = 2},
-  [1944] = {.lex_state = 271, .external_lex_state = 2},
-  [1945] = {.lex_state = 237, .external_lex_state = 2},
-  [1946] = {.lex_state = 231, .external_lex_state = 2},
-  [1947] = {.lex_state = 231, .external_lex_state = 2},
-  [1948] = {.lex_state = 237, .external_lex_state = 2},
-  [1949] = {.lex_state = 273, .external_lex_state = 2},
-  [1950] = {.lex_state = 273, .external_lex_state = 2},
-  [1951] = {.lex_state = 271, .external_lex_state = 2},
-  [1952] = {.lex_state = 271, .external_lex_state = 2},
-  [1953] = {.lex_state = 271, .external_lex_state = 2},
-  [1954] = {.lex_state = 271, .external_lex_state = 2},
-  [1955] = {.lex_state = 271, .external_lex_state = 2},
-  [1956] = {.lex_state = 271, .external_lex_state = 2},
-  [1957] = {.lex_state = 271, .external_lex_state = 2},
-  [1958] = {.lex_state = 273, .external_lex_state = 2},
-  [1959] = {.lex_state = 273, .external_lex_state = 2},
+  [1937] = {.lex_state = 233, .external_lex_state = 2},
+  [1938] = {.lex_state = 231, .external_lex_state = 2},
+  [1939] = {.lex_state = 271, .external_lex_state = 2},
+  [1940] = {.lex_state = 231, .external_lex_state = 2},
+  [1941] = {.lex_state = 231, .external_lex_state = 2},
+  [1942] = {.lex_state = 231, .external_lex_state = 2},
+  [1943] = {.lex_state = 273, .external_lex_state = 2},
+  [1944] = {.lex_state = 231, .external_lex_state = 2},
+  [1945] = {.lex_state = 231, .external_lex_state = 2},
+  [1946] = {.lex_state = 273, .external_lex_state = 2},
+  [1947] = {.lex_state = 240, .external_lex_state = 2},
+  [1948] = {.lex_state = 271, .external_lex_state = 2},
+  [1949] = {.lex_state = 234, .external_lex_state = 2},
+  [1950] = {.lex_state = 271, .external_lex_state = 2},
+  [1951] = {.lex_state = 234, .external_lex_state = 2},
+  [1952] = {.lex_state = 231, .external_lex_state = 2},
+  [1953] = {.lex_state = 273, .external_lex_state = 2},
+  [1954] = {.lex_state = 242, .external_lex_state = 2},
+  [1955] = {.lex_state = 231, .external_lex_state = 2},
+  [1956] = {.lex_state = 231, .external_lex_state = 2},
+  [1957] = {.lex_state = 240, .external_lex_state = 2},
+  [1958] = {.lex_state = 240, .external_lex_state = 2},
+  [1959] = {.lex_state = 240, .external_lex_state = 2},
   [1960] = {.lex_state = 273, .external_lex_state = 2},
-  [1961] = {.lex_state = 273, .external_lex_state = 2},
-  [1962] = {.lex_state = 273, .external_lex_state = 2},
-  [1963] = {.lex_state = 273, .external_lex_state = 2},
-  [1964] = {.lex_state = 271, .external_lex_state = 2},
-  [1965] = {.lex_state = 237, .external_lex_state = 2},
-  [1966] = {.lex_state = 233, .external_lex_state = 2},
-  [1967] = {.lex_state = 233, .external_lex_state = 2},
-  [1968] = {.lex_state = 231, .external_lex_state = 2},
-  [1969] = {.lex_state = 271, .external_lex_state = 2},
-  [1970] = {.lex_state = 271, .external_lex_state = 2},
+  [1961] = {.lex_state = 271, .external_lex_state = 2},
+  [1962] = {.lex_state = 233, .external_lex_state = 2},
+  [1963] = {.lex_state = 271, .external_lex_state = 2},
+  [1964] = {.lex_state = 240, .external_lex_state = 2},
+  [1965] = {.lex_state = 242, .external_lex_state = 2},
+  [1966] = {.lex_state = 273, .external_lex_state = 2},
+  [1967] = {.lex_state = 234, .external_lex_state = 2},
+  [1968] = {.lex_state = 271, .external_lex_state = 2},
+  [1969] = {.lex_state = 233, .external_lex_state = 2},
+  [1970] = {.lex_state = 231, .external_lex_state = 2},
   [1971] = {.lex_state = 231, .external_lex_state = 2},
-  [1972] = {.lex_state = 242, .external_lex_state = 2},
+  [1972] = {.lex_state = 271, .external_lex_state = 2},
   [1973] = {.lex_state = 233, .external_lex_state = 2},
   [1974] = {.lex_state = 233, .external_lex_state = 2},
-  [1975] = {.lex_state = 240, .external_lex_state = 2},
-  [1976] = {.lex_state = 240, .external_lex_state = 2},
-  [1977] = {.lex_state = 237, .external_lex_state = 2},
-  [1978] = {.lex_state = 234, .external_lex_state = 2},
+  [1975] = {.lex_state = 231, .external_lex_state = 2},
+  [1976] = {.lex_state = 231, .external_lex_state = 2},
+  [1977] = {.lex_state = 233, .external_lex_state = 2},
+  [1978] = {.lex_state = 233, .external_lex_state = 2},
   [1979] = {.lex_state = 231, .external_lex_state = 2},
-  [1980] = {.lex_state = 242, .external_lex_state = 2},
-  [1981] = {.lex_state = 271, .external_lex_state = 2},
-  [1982] = {.lex_state = 234, .external_lex_state = 2},
-  [1983] = {.lex_state = 233, .external_lex_state = 2},
-  [1984] = {.lex_state = 240, .external_lex_state = 2},
-  [1985] = {.lex_state = 234, .external_lex_state = 2},
-  [1986] = {.lex_state = 240, .external_lex_state = 2},
-  [1987] = {.lex_state = 240, .external_lex_state = 2},
-  [1988] = {.lex_state = 240, .external_lex_state = 2},
+  [1980] = {.lex_state = 231, .external_lex_state = 2},
+  [1981] = {.lex_state = 233, .external_lex_state = 2},
+  [1982] = {.lex_state = 233, .external_lex_state = 2},
+  [1983] = {.lex_state = 231, .external_lex_state = 2},
+  [1984] = {.lex_state = 233, .external_lex_state = 2},
+  [1985] = {.lex_state = 237, .external_lex_state = 2},
+  [1986] = {.lex_state = 237, .external_lex_state = 2},
+  [1987] = {.lex_state = 237, .external_lex_state = 2},
+  [1988] = {.lex_state = 234, .external_lex_state = 2},
   [1989] = {.lex_state = 237, .external_lex_state = 2},
-  [1990] = {.lex_state = 242, .external_lex_state = 2},
-  [1991] = {.lex_state = 240, .external_lex_state = 2},
-  [1992] = {.lex_state = 231, .external_lex_state = 2},
-  [1993] = {.lex_state = 240, .external_lex_state = 2},
-  [1994] = {.lex_state = 240, .external_lex_state = 2},
+  [1990] = {.lex_state = 237, .external_lex_state = 2},
+  [1991] = {.lex_state = 237, .external_lex_state = 2},
+  [1992] = {.lex_state = 237, .external_lex_state = 2},
+  [1993] = {.lex_state = 231, .external_lex_state = 2},
+  [1994] = {.lex_state = 242, .external_lex_state = 2},
   [1995] = {.lex_state = 237, .external_lex_state = 2},
-  [1996] = {.lex_state = 242, .external_lex_state = 2},
-  [1997] = {.lex_state = 234, .external_lex_state = 2},
-  [1998] = {.lex_state = 240, .external_lex_state = 2},
-  [1999] = {.lex_state = 231, .external_lex_state = 2},
-  [2000] = {.lex_state = 240, .external_lex_state = 2},
-  [2001] = {.lex_state = 240, .external_lex_state = 2},
-  [2002] = {.lex_state = 240, .external_lex_state = 2},
-  [2003] = {.lex_state = 231, .external_lex_state = 2},
+  [1996] = {.lex_state = 237, .external_lex_state = 2},
+  [1997] = {.lex_state = 231, .external_lex_state = 2},
+  [1998] = {.lex_state = 271, .external_lex_state = 2},
+  [1999] = {.lex_state = 240, .external_lex_state = 2},
+  [2000] = {.lex_state = 271, .external_lex_state = 2},
+  [2001] = {.lex_state = 271, .external_lex_state = 2},
+  [2002] = {.lex_state = 271, .external_lex_state = 2},
+  [2003] = {.lex_state = 271, .external_lex_state = 2},
   [2004] = {.lex_state = 242, .external_lex_state = 2},
-  [2005] = {.lex_state = 240, .external_lex_state = 2},
-  [2006] = {.lex_state = 240, .external_lex_state = 2},
-  [2007] = {.lex_state = 234, .external_lex_state = 2},
-  [2008] = {.lex_state = 237, .external_lex_state = 2},
-  [2009] = {.lex_state = 234, .external_lex_state = 2},
-  [2010] = {.lex_state = 295, .external_lex_state = 2},
-  [2011] = {.lex_state = 242, .external_lex_state = 2},
-  [2012] = {.lex_state = 234, .external_lex_state = 2},
-  [2013] = {.lex_state = 234, .external_lex_state = 2},
-  [2014] = {.lex_state = 237, .external_lex_state = 2},
-  [2015] = {.lex_state = 242, .external_lex_state = 2},
-  [2016] = {.lex_state = 234, .external_lex_state = 2},
-  [2017] = {.lex_state = 234, .external_lex_state = 2},
-  [2018] = {.lex_state = 237, .external_lex_state = 2},
-  [2019] = {.lex_state = 273, .external_lex_state = 2},
-  [2020] = {.lex_state = 231, .external_lex_state = 2},
-  [2021] = {.lex_state = 237, .external_lex_state = 2},
-  [2022] = {.lex_state = 242, .external_lex_state = 2},
-  [2023] = {.lex_state = 237, .external_lex_state = 2},
-  [2024] = {.lex_state = 237, .external_lex_state = 2},
-  [2025] = {.lex_state = 231, .external_lex_state = 2},
-  [2026] = {.lex_state = 271, .external_lex_state = 2},
-  [2027] = {.lex_state = 273, .external_lex_state = 2},
-  [2028] = {.lex_state = 237, .external_lex_state = 2},
+  [2005] = {.lex_state = 271, .external_lex_state = 2},
+  [2006] = {.lex_state = 271, .external_lex_state = 2},
+  [2007] = {.lex_state = 271, .external_lex_state = 2},
+  [2008] = {.lex_state = 271, .external_lex_state = 2},
+  [2009] = {.lex_state = 271, .external_lex_state = 2},
+  [2010] = {.lex_state = 271, .external_lex_state = 2},
+  [2011] = {.lex_state = 271, .external_lex_state = 2},
+  [2012] = {.lex_state = 271, .external_lex_state = 2},
+  [2013] = {.lex_state = 240, .external_lex_state = 2},
+  [2014] = {.lex_state = 240, .external_lex_state = 2},
+  [2015] = {.lex_state = 240, .external_lex_state = 2},
+  [2016] = {.lex_state = 271, .external_lex_state = 2},
+  [2017] = {.lex_state = 240, .external_lex_state = 2},
+  [2018] = {.lex_state = 271, .external_lex_state = 2},
+  [2019] = {.lex_state = 240, .external_lex_state = 2},
+  [2020] = {.lex_state = 240, .external_lex_state = 2},
+  [2021] = {.lex_state = 271, .external_lex_state = 2},
+  [2022] = {.lex_state = 237, .external_lex_state = 2},
+  [2023] = {.lex_state = 240, .external_lex_state = 2},
+  [2024] = {.lex_state = 242, .external_lex_state = 2},
+  [2025] = {.lex_state = 296, .external_lex_state = 2},
+  [2026] = {.lex_state = 240, .external_lex_state = 2},
+  [2027] = {.lex_state = 240, .external_lex_state = 2},
+  [2028] = {.lex_state = 240, .external_lex_state = 2},
   [2029] = {.lex_state = 242, .external_lex_state = 2},
-  [2030] = {.lex_state = 231, .external_lex_state = 2},
-  [2031] = {.lex_state = 237, .external_lex_state = 2},
+  [2030] = {.lex_state = 240, .external_lex_state = 2},
+  [2031] = {.lex_state = 240, .external_lex_state = 2},
   [2032] = {.lex_state = 273, .external_lex_state = 2},
-  [2033] = {.lex_state = 271, .external_lex_state = 2},
-  [2034] = {.lex_state = 242, .external_lex_state = 2},
-  [2035] = {.lex_state = 231, .external_lex_state = 2},
-  [2036] = {.lex_state = 231, .external_lex_state = 2},
-  [2037] = {.lex_state = 271, .external_lex_state = 2},
-  [2038] = {.lex_state = 271, .external_lex_state = 2},
+  [2033] = {.lex_state = 237, .external_lex_state = 2},
+  [2034] = {.lex_state = 237, .external_lex_state = 2},
+  [2035] = {.lex_state = 242, .external_lex_state = 2},
+  [2036] = {.lex_state = 237, .external_lex_state = 2},
+  [2037] = {.lex_state = 273, .external_lex_state = 2},
+  [2038] = {.lex_state = 237, .external_lex_state = 2},
   [2039] = {.lex_state = 237, .external_lex_state = 2},
-  [2040] = {.lex_state = 242, .external_lex_state = 2},
+  [2040] = {.lex_state = 237, .external_lex_state = 2},
   [2041] = {.lex_state = 273, .external_lex_state = 2},
-  [2042] = {.lex_state = 296, .external_lex_state = 2},
-  [2043] = {.lex_state = 242, .external_lex_state = 2},
-  [2044] = {.lex_state = 273, .external_lex_state = 2},
-  [2045] = {.lex_state = 231, .external_lex_state = 2},
-  [2046] = {.lex_state = 242, .external_lex_state = 2},
-  [2047] = {.lex_state = 271, .external_lex_state = 2},
-  [2048] = {.lex_state = 242, .external_lex_state = 2},
-  [2049] = {.lex_state = 271, .external_lex_state = 2},
-  [2050] = {.lex_state = 271, .external_lex_state = 2},
-  [2051] = {.lex_state = 234, .external_lex_state = 2},
-  [2052] = {.lex_state = 242, .external_lex_state = 2},
-  [2053] = {.lex_state = 231, .external_lex_state = 2},
-  [2054] = {.lex_state = 273, .external_lex_state = 2},
-  [2055] = {.lex_state = 273, .external_lex_state = 2},
-  [2056] = {.lex_state = 231, .external_lex_state = 2},
-  [2057] = {.lex_state = 231, .external_lex_state = 2},
-  [2058] = {.lex_state = 231, .external_lex_state = 2},
-  [2059] = {.lex_state = 242, .external_lex_state = 2},
-  [2060] = {.lex_state = 271, .external_lex_state = 2},
-  [2061] = {.lex_state = 271, .external_lex_state = 2},
-  [2062] = {.lex_state = 271, .external_lex_state = 2},
-  [2063] = {.lex_state = 237, .external_lex_state = 2},
-  [2064] = {.lex_state = 271, .external_lex_state = 2},
-  [2065] = {.lex_state = 237, .external_lex_state = 2},
-  [2066] = {.lex_state = 237, .external_lex_state = 2},
-  [2067] = {.lex_state = 237, .external_lex_state = 2},
-  [2068] = {.lex_state = 231, .external_lex_state = 2},
-  [2069] = {.lex_state = 273, .external_lex_state = 2},
-  [2070] = {.lex_state = 237, .external_lex_state = 2},
-  [2071] = {.lex_state = 237, .external_lex_state = 2},
-  [2072] = {.lex_state = 231, .external_lex_state = 2},
-  [2073] = {.lex_state = 231, .external_lex_state = 2},
+  [2042] = {.lex_state = 273, .external_lex_state = 2},
+  [2043] = {.lex_state = 273, .external_lex_state = 2},
+  [2044] = {.lex_state = 242, .external_lex_state = 2},
+  [2045] = {.lex_state = 242, .external_lex_state = 2},
+  [2046] = {.lex_state = 273, .external_lex_state = 2},
+  [2047] = {.lex_state = 242, .external_lex_state = 2},
+  [2048] = {.lex_state = 234, .external_lex_state = 2},
+  [2049] = {.lex_state = 234, .external_lex_state = 2},
+  [2050] = {.lex_state = 237, .external_lex_state = 2},
+  [2051] = {.lex_state = 237, .external_lex_state = 2},
+  [2052] = {.lex_state = 237, .external_lex_state = 2},
+  [2053] = {.lex_state = 273, .external_lex_state = 2},
+  [2054] = {.lex_state = 237, .external_lex_state = 2},
+  [2055] = {.lex_state = 237, .external_lex_state = 2},
+  [2056] = {.lex_state = 242, .external_lex_state = 2},
+  [2057] = {.lex_state = 234, .external_lex_state = 2},
+  [2058] = {.lex_state = 237, .external_lex_state = 2},
+  [2059] = {.lex_state = 237, .external_lex_state = 2},
+  [2060] = {.lex_state = 240, .external_lex_state = 2},
+  [2061] = {.lex_state = 240, .external_lex_state = 2},
+  [2062] = {.lex_state = 240, .external_lex_state = 2},
+  [2063] = {.lex_state = 234, .external_lex_state = 2},
+  [2064] = {.lex_state = 234, .external_lex_state = 2},
+  [2065] = {.lex_state = 242, .external_lex_state = 2},
+  [2066] = {.lex_state = 242, .external_lex_state = 2},
+  [2067] = {.lex_state = 273, .external_lex_state = 2},
+  [2068] = {.lex_state = 234, .external_lex_state = 2},
+  [2069] = {.lex_state = 234, .external_lex_state = 2},
+  [2070] = {.lex_state = 240, .external_lex_state = 2},
+  [2071] = {.lex_state = 234, .external_lex_state = 2},
+  [2072] = {.lex_state = 237, .external_lex_state = 2},
+  [2073] = {.lex_state = 240, .external_lex_state = 2},
   [2074] = {.lex_state = 240, .external_lex_state = 2},
-  [2075] = {.lex_state = 242, .external_lex_state = 2},
-  [2076] = {.lex_state = 245, .external_lex_state = 2},
-  [2077] = {.lex_state = 242, .external_lex_state = 2},
-  [2078] = {.lex_state = 273, .external_lex_state = 2},
-  [2079] = {.lex_state = 245, .external_lex_state = 2},
-  [2080] = {.lex_state = 245, .external_lex_state = 2},
-  [2081] = {.lex_state = 273, .external_lex_state = 2},
-  [2082] = {.lex_state = 238, .external_lex_state = 2},
-  [2083] = {.lex_state = 273, .external_lex_state = 2},
-  [2084] = {.lex_state = 245, .external_lex_state = 2},
-  [2085] = {.lex_state = 245, .external_lex_state = 2},
-  [2086] = {.lex_state = 273, .external_lex_state = 2},
-  [2087] = {.lex_state = 231, .external_lex_state = 2},
-  [2088] = {.lex_state = 273, .external_lex_state = 2},
-  [2089] = {.lex_state = 242, .external_lex_state = 2},
-  [2090] = {.lex_state = 245, .external_lex_state = 2},
-  [2091] = {.lex_state = 245, .external_lex_state = 2},
-  [2092] = {.lex_state = 273, .external_lex_state = 2},
-  [2093] = {.lex_state = 242, .external_lex_state = 2},
-  [2094] = {.lex_state = 273, .external_lex_state = 2},
-  [2095] = {.lex_state = 245, .external_lex_state = 2},
-  [2096] = {.lex_state = 273, .external_lex_state = 2},
-  [2097] = {.lex_state = 246, .external_lex_state = 2},
-  [2098] = {.lex_state = 237, .external_lex_state = 2},
-  [2099] = {.lex_state = 244, .external_lex_state = 2},
+  [2075] = {.lex_state = 247, .external_lex_state = 2},
+  [2076] = {.lex_state = 273, .external_lex_state = 2},
+  [2077] = {.lex_state = 240, .external_lex_state = 2},
+  [2078] = {.lex_state = 242, .external_lex_state = 2},
+  [2079] = {.lex_state = 237, .external_lex_state = 2},
+  [2080] = {.lex_state = 237, .external_lex_state = 2},
+  [2081] = {.lex_state = 245, .external_lex_state = 2},
+  [2082] = {.lex_state = 237, .external_lex_state = 2},
+  [2083] = {.lex_state = 235, .external_lex_state = 2},
+  [2084] = {.lex_state = 240, .external_lex_state = 2},
+  [2085] = {.lex_state = 237, .external_lex_state = 2},
+  [2086] = {.lex_state = 242, .external_lex_state = 2},
+  [2087] = {.lex_state = 235, .external_lex_state = 2},
+  [2088] = {.lex_state = 240, .external_lex_state = 2},
+  [2089] = {.lex_state = 235, .external_lex_state = 2},
+  [2090] = {.lex_state = 240, .external_lex_state = 2},
+  [2091] = {.lex_state = 242, .external_lex_state = 2},
+  [2092] = {.lex_state = 235, .external_lex_state = 2},
+  [2093] = {.lex_state = 240, .external_lex_state = 2},
+  [2094] = {.lex_state = 243, .external_lex_state = 2},
+  [2095] = {.lex_state = 240, .external_lex_state = 2},
+  [2096] = {.lex_state = 237, .external_lex_state = 2},
+  [2097] = {.lex_state = 237, .external_lex_state = 2},
+  [2098] = {.lex_state = 242, .external_lex_state = 2},
+  [2099] = {.lex_state = 235, .external_lex_state = 2},
   [2100] = {.lex_state = 237, .external_lex_state = 2},
-  [2101] = {.lex_state = 235, .external_lex_state = 2},
-  [2102] = {.lex_state = 237, .external_lex_state = 2},
-  [2103] = {.lex_state = 237, .external_lex_state = 2},
-  [2104] = {.lex_state = 244, .external_lex_state = 2},
+  [2101] = {.lex_state = 237, .external_lex_state = 2},
+  [2102] = {.lex_state = 240, .external_lex_state = 2},
+  [2103] = {.lex_state = 235, .external_lex_state = 2},
+  [2104] = {.lex_state = 240, .external_lex_state = 2},
   [2105] = {.lex_state = 235, .external_lex_state = 2},
-  [2106] = {.lex_state = 235, .external_lex_state = 2},
-  [2107] = {.lex_state = 237, .external_lex_state = 2},
-  [2108] = {.lex_state = 237, .external_lex_state = 2},
+  [2106] = {.lex_state = 242, .external_lex_state = 2},
+  [2107] = {.lex_state = 238, .external_lex_state = 2},
+  [2108] = {.lex_state = 240, .external_lex_state = 2},
   [2109] = {.lex_state = 235, .external_lex_state = 2},
-  [2110] = {.lex_state = 235, .external_lex_state = 2},
-  [2111] = {.lex_state = 237, .external_lex_state = 2},
-  [2112] = {.lex_state = 235, .external_lex_state = 2},
-  [2113] = {.lex_state = 235, .external_lex_state = 2},
-  [2114] = {.lex_state = 235, .external_lex_state = 2},
-  [2115] = {.lex_state = 231, .external_lex_state = 2},
-  [2116] = {.lex_state = 245, .external_lex_state = 2},
-  [2117] = {.lex_state = 241, .external_lex_state = 2},
-  [2118] = {.lex_state = 245, .external_lex_state = 2},
-  [2119] = {.lex_state = 245, .external_lex_state = 2},
-  [2120] = {.lex_state = 241, .external_lex_state = 2},
-  [2121] = {.lex_state = 241, .external_lex_state = 2},
-  [2122] = {.lex_state = 245, .external_lex_state = 2},
-  [2123] = {.lex_state = 245, .external_lex_state = 2},
-  [2124] = {.lex_state = 241, .external_lex_state = 2},
-  [2125] = {.lex_state = 241, .external_lex_state = 2},
-  [2126] = {.lex_state = 245, .external_lex_state = 2},
-  [2127] = {.lex_state = 245, .external_lex_state = 2},
-  [2128] = {.lex_state = 241, .external_lex_state = 2},
-  [2129] = {.lex_state = 241, .external_lex_state = 2},
+  [2110] = {.lex_state = 240, .external_lex_state = 2},
+  [2111] = {.lex_state = 240, .external_lex_state = 2},
+  [2112] = {.lex_state = 246, .external_lex_state = 2},
+  [2113] = {.lex_state = 238, .external_lex_state = 2},
+  [2114] = {.lex_state = 242, .external_lex_state = 2},
+  [2115] = {.lex_state = 244, .external_lex_state = 2},
+  [2116] = {.lex_state = 240, .external_lex_state = 2},
+  [2117] = {.lex_state = 240, .external_lex_state = 2},
+  [2118] = {.lex_state = 242, .external_lex_state = 2},
+  [2119] = {.lex_state = 238, .external_lex_state = 2},
+  [2120] = {.lex_state = 246, .external_lex_state = 2},
+  [2121] = {.lex_state = 242, .external_lex_state = 2},
+  [2122] = {.lex_state = 246, .external_lex_state = 2},
+  [2123] = {.lex_state = 238, .external_lex_state = 2},
+  [2124] = {.lex_state = 245, .external_lex_state = 2},
+  [2125] = {.lex_state = 238, .external_lex_state = 2},
+  [2126] = {.lex_state = 273, .external_lex_state = 2},
+  [2127] = {.lex_state = 242, .external_lex_state = 2},
+  [2128] = {.lex_state = 242, .external_lex_state = 2},
+  [2129] = {.lex_state = 242, .external_lex_state = 2},
   [2130] = {.lex_state = 245, .external_lex_state = 2},
-  [2131] = {.lex_state = 241, .external_lex_state = 2},
-  [2132] = {.lex_state = 240, .external_lex_state = 2},
-  [2133] = {.lex_state = 240, .external_lex_state = 2},
-  [2134] = {.lex_state = 240, .external_lex_state = 2},
-  [2135] = {.lex_state = 240, .external_lex_state = 2},
-  [2136] = {.lex_state = 240, .external_lex_state = 2},
-  [2137] = {.lex_state = 240, .external_lex_state = 2},
-  [2138] = {.lex_state = 240, .external_lex_state = 2},
-  [2139] = {.lex_state = 231, .external_lex_state = 2},
-  [2140] = {.lex_state = 240, .external_lex_state = 2},
-  [2141] = {.lex_state = 240, .external_lex_state = 2},
-  [2142] = {.lex_state = 233, .external_lex_state = 2},
-  [2143] = {.lex_state = 246, .external_lex_state = 2},
+  [2131] = {.lex_state = 240, .external_lex_state = 2},
+  [2132] = {.lex_state = 242, .external_lex_state = 2},
+  [2133] = {.lex_state = 233, .external_lex_state = 2},
+  [2134] = {.lex_state = 273, .external_lex_state = 2},
+  [2135] = {.lex_state = 233, .external_lex_state = 2},
+  [2136] = {.lex_state = 273, .external_lex_state = 2},
+  [2137] = {.lex_state = 243, .external_lex_state = 2},
+  [2138] = {.lex_state = 233, .external_lex_state = 2},
+  [2139] = {.lex_state = 233, .external_lex_state = 2},
+  [2140] = {.lex_state = 245, .external_lex_state = 2},
+  [2141] = {.lex_state = 233, .external_lex_state = 2},
+  [2142] = {.lex_state = 243, .external_lex_state = 2},
+  [2143] = {.lex_state = 233, .external_lex_state = 2},
   [2144] = {.lex_state = 233, .external_lex_state = 2},
-  [2145] = {.lex_state = 246, .external_lex_state = 2},
+  [2145] = {.lex_state = 238, .external_lex_state = 2},
   [2146] = {.lex_state = 237, .external_lex_state = 2},
-  [2147] = {.lex_state = 242, .external_lex_state = 2},
+  [2147] = {.lex_state = 237, .external_lex_state = 2},
   [2148] = {.lex_state = 237, .external_lex_state = 2},
-  [2149] = {.lex_state = 273, .external_lex_state = 2},
-  [2150] = {.lex_state = 233, .external_lex_state = 2},
-  [2151] = {.lex_state = 237, .external_lex_state = 2},
-  [2152] = {.lex_state = 231, .external_lex_state = 2},
-  [2153] = {.lex_state = 231, .external_lex_state = 2},
-  [2154] = {.lex_state = 233, .external_lex_state = 2},
-  [2155] = {.lex_state = 273, .external_lex_state = 2},
-  [2156] = {.lex_state = 233, .external_lex_state = 2},
-  [2157] = {.lex_state = 242, .external_lex_state = 2},
-  [2158] = {.lex_state = 273, .external_lex_state = 2},
-  [2159] = {.lex_state = 242, .external_lex_state = 2},
-  [2160] = {.lex_state = 237, .external_lex_state = 2},
-  [2161] = {.lex_state = 231, .external_lex_state = 2},
-  [2162] = {.lex_state = 233, .external_lex_state = 2},
+  [2149] = {.lex_state = 245, .external_lex_state = 2},
+  [2150] = {.lex_state = 237, .external_lex_state = 2},
+  [2151] = {.lex_state = 273, .external_lex_state = 2},
+  [2152] = {.lex_state = 245, .external_lex_state = 2},
+  [2153] = {.lex_state = 273, .external_lex_state = 2},
+  [2154] = {.lex_state = 242, .external_lex_state = 2},
+  [2155] = {.lex_state = 237, .external_lex_state = 2},
+  [2156] = {.lex_state = 237, .external_lex_state = 2},
+  [2157] = {.lex_state = 245, .external_lex_state = 2},
+  [2158] = {.lex_state = 237, .external_lex_state = 2},
+  [2159] = {.lex_state = 245, .external_lex_state = 2},
+  [2160] = {.lex_state = 273, .external_lex_state = 2},
+  [2161] = {.lex_state = 237, .external_lex_state = 2},
+  [2162] = {.lex_state = 237, .external_lex_state = 2},
   [2163] = {.lex_state = 237, .external_lex_state = 2},
-  [2164] = {.lex_state = 233, .external_lex_state = 2},
-  [2165] = {.lex_state = 273, .external_lex_state = 2},
-  [2166] = {.lex_state = 273, .external_lex_state = 2},
-  [2167] = {.lex_state = 233, .external_lex_state = 2},
-  [2168] = {.lex_state = 233, .external_lex_state = 2},
-  [2169] = {.lex_state = 233, .external_lex_state = 2},
-  [2170] = {.lex_state = 231, .external_lex_state = 2},
-  [2171] = {.lex_state = 244, .external_lex_state = 2},
-  [2172] = {.lex_state = 241, .external_lex_state = 2},
-  [2173] = {.lex_state = 247, .external_lex_state = 2},
-  [2174] = {.lex_state = 241, .external_lex_state = 2},
-  [2175] = {.lex_state = 241, .external_lex_state = 2},
-  [2176] = {.lex_state = 247, .external_lex_state = 2},
-  [2177] = {.lex_state = 247, .external_lex_state = 2},
-  [2178] = {.lex_state = 241, .external_lex_state = 2},
-  [2179] = {.lex_state = 241, .external_lex_state = 2},
-  [2180] = {.lex_state = 247, .external_lex_state = 2},
-  [2181] = {.lex_state = 247, .external_lex_state = 2},
-  [2182] = {.lex_state = 241, .external_lex_state = 2},
-  [2183] = {.lex_state = 241, .external_lex_state = 2},
-  [2184] = {.lex_state = 247, .external_lex_state = 2},
-  [2185] = {.lex_state = 247, .external_lex_state = 2},
-  [2186] = {.lex_state = 241, .external_lex_state = 2},
-  [2187] = {.lex_state = 247, .external_lex_state = 2},
-  [2188] = {.lex_state = 273, .external_lex_state = 2},
-  [2189] = {.lex_state = 237, .external_lex_state = 2},
-  [2190] = {.lex_state = 273, .external_lex_state = 2},
-  [2191] = {.lex_state = 242, .external_lex_state = 2},
-  [2192] = {.lex_state = 273, .external_lex_state = 2},
+  [2164] = {.lex_state = 273, .external_lex_state = 2},
+  [2165] = {.lex_state = 240, .external_lex_state = 2},
+  [2166] = {.lex_state = 237, .external_lex_state = 2},
+  [2167] = {.lex_state = 245, .external_lex_state = 2},
+  [2168] = {.lex_state = 237, .external_lex_state = 2},
+  [2169] = {.lex_state = 273, .external_lex_state = 2},
+  [2170] = {.lex_state = 246, .external_lex_state = 2},
+  [2171] = {.lex_state = 237, .external_lex_state = 2},
+  [2172] = {.lex_state = 240, .external_lex_state = 2},
+  [2173] = {.lex_state = 235, .external_lex_state = 2},
+  [2174] = {.lex_state = 246, .external_lex_state = 2},
+  [2175] = {.lex_state = 235, .external_lex_state = 2},
+  [2176] = {.lex_state = 244, .external_lex_state = 2},
+  [2177] = {.lex_state = 235, .external_lex_state = 2},
+  [2178] = {.lex_state = 238, .external_lex_state = 2},
+  [2179] = {.lex_state = 273, .external_lex_state = 2},
+  [2180] = {.lex_state = 273, .external_lex_state = 2},
+  [2181] = {.lex_state = 235, .external_lex_state = 2},
+  [2182] = {.lex_state = 231, .external_lex_state = 2},
+  [2183] = {.lex_state = 273, .external_lex_state = 2},
+  [2184] = {.lex_state = 235, .external_lex_state = 2},
+  [2185] = {.lex_state = 237, .external_lex_state = 2},
+  [2186] = {.lex_state = 237, .external_lex_state = 2},
+  [2187] = {.lex_state = 273, .external_lex_state = 2},
+  [2188] = {.lex_state = 244, .external_lex_state = 2},
+  [2189] = {.lex_state = 244, .external_lex_state = 2},
+  [2190] = {.lex_state = 235, .external_lex_state = 2},
+  [2191] = {.lex_state = 273, .external_lex_state = 2},
+  [2192] = {.lex_state = 235, .external_lex_state = 2},
   [2193] = {.lex_state = 273, .external_lex_state = 2},
-  [2194] = {.lex_state = 273, .external_lex_state = 2},
-  [2195] = {.lex_state = 274, .external_lex_state = 2},
-  [2196] = {.lex_state = 231, .external_lex_state = 2},
-  [2197] = {.lex_state = 233, .external_lex_state = 2},
-  [2198] = {.lex_state = 274, .external_lex_state = 2},
-  [2199] = {.lex_state = 274, .external_lex_state = 2},
-  [2200] = {.lex_state = 233, .external_lex_state = 2},
-  [2201] = {.lex_state = 233, .external_lex_state = 2},
-  [2202] = {.lex_state = 274, .external_lex_state = 2},
-  [2203] = {.lex_state = 274, .external_lex_state = 2},
-  [2204] = {.lex_state = 233, .external_lex_state = 2},
-  [2205] = {.lex_state = 233, .external_lex_state = 2},
-  [2206] = {.lex_state = 274, .external_lex_state = 2},
-  [2207] = {.lex_state = 274, .external_lex_state = 2},
-  [2208] = {.lex_state = 233, .external_lex_state = 2},
-  [2209] = {.lex_state = 233, .external_lex_state = 2},
-  [2210] = {.lex_state = 274, .external_lex_state = 2},
-  [2211] = {.lex_state = 233, .external_lex_state = 2},
-  [2212] = {.lex_state = 247, .external_lex_state = 2},
-  [2213] = {.lex_state = 247, .external_lex_state = 2},
-  [2214] = {.lex_state = 247, .external_lex_state = 2},
-  [2215] = {.lex_state = 247, .external_lex_state = 2},
-  [2216] = {.lex_state = 247, .external_lex_state = 2},
-  [2217] = {.lex_state = 247, .external_lex_state = 2},
-  [2218] = {.lex_state = 247, .external_lex_state = 2},
-  [2219] = {.lex_state = 247, .external_lex_state = 2},
+  [2194] = {.lex_state = 240, .external_lex_state = 2},
+  [2195] = {.lex_state = 238, .external_lex_state = 2},
+  [2196] = {.lex_state = 240, .external_lex_state = 2},
+  [2197] = {.lex_state = 235, .external_lex_state = 2},
+  [2198] = {.lex_state = 240, .external_lex_state = 2},
+  [2199] = {.lex_state = 240, .external_lex_state = 2},
+  [2200] = {.lex_state = 243, .external_lex_state = 2},
+  [2201] = {.lex_state = 240, .external_lex_state = 2},
+  [2202] = {.lex_state = 243, .external_lex_state = 2},
+  [2203] = {.lex_state = 242, .external_lex_state = 2},
+  [2204] = {.lex_state = 242, .external_lex_state = 2},
+  [2205] = {.lex_state = 242, .external_lex_state = 2},
+  [2206] = {.lex_state = 246, .external_lex_state = 2},
+  [2207] = {.lex_state = 242, .external_lex_state = 2},
+  [2208] = {.lex_state = 246, .external_lex_state = 2},
+  [2209] = {.lex_state = 242, .external_lex_state = 2},
+  [2210] = {.lex_state = 238, .external_lex_state = 2},
+  [2211] = {.lex_state = 245, .external_lex_state = 2},
+  [2212] = {.lex_state = 241, .external_lex_state = 2},
+  [2213] = {.lex_state = 245, .external_lex_state = 2},
+  [2214] = {.lex_state = 245, .external_lex_state = 2},
+  [2215] = {.lex_state = 242, .external_lex_state = 2},
+  [2216] = {.lex_state = 241, .external_lex_state = 2},
+  [2217] = {.lex_state = 242, .external_lex_state = 2},
+  [2218] = {.lex_state = 241, .external_lex_state = 2},
+  [2219] = {.lex_state = 240, .external_lex_state = 2},
   [2220] = {.lex_state = 231, .external_lex_state = 2},
-  [2221] = {.lex_state = 237, .external_lex_state = 2},
-  [2222] = {.lex_state = 242, .external_lex_state = 2},
-  [2223] = {.lex_state = 274, .external_lex_state = 2},
-  [2224] = {.lex_state = 274, .external_lex_state = 2},
-  [2225] = {.lex_state = 274, .external_lex_state = 2},
-  [2226] = {.lex_state = 274, .external_lex_state = 2},
-  [2227] = {.lex_state = 274, .external_lex_state = 2},
-  [2228] = {.lex_state = 274, .external_lex_state = 2},
-  [2229] = {.lex_state = 274, .external_lex_state = 2},
-  [2230] = {.lex_state = 274, .external_lex_state = 2},
-  [2231] = {.lex_state = 237, .external_lex_state = 2},
-  [2232] = {.lex_state = 237, .external_lex_state = 2},
-  [2233] = {.lex_state = 237, .external_lex_state = 2},
-  [2234] = {.lex_state = 231, .external_lex_state = 2},
-  [2235] = {.lex_state = 237, .external_lex_state = 2},
-  [2236] = {.lex_state = 237, .external_lex_state = 2},
-  [2237] = {.lex_state = 237, .external_lex_state = 2},
-  [2238] = {.lex_state = 231, .external_lex_state = 2},
-  [2239] = {.lex_state = 231, .external_lex_state = 2},
-  [2240] = {.lex_state = 231, .external_lex_state = 2},
-  [2241] = {.lex_state = 231, .external_lex_state = 2},
-  [2242] = {.lex_state = 231, .external_lex_state = 2},
-  [2243] = {.lex_state = 231, .external_lex_state = 2},
+  [2221] = {.lex_state = 231, .external_lex_state = 2},
+  [2222] = {.lex_state = 245, .external_lex_state = 2},
+  [2223] = {.lex_state = 231, .external_lex_state = 2},
+  [2224] = {.lex_state = 241, .external_lex_state = 2},
+  [2225] = {.lex_state = 231, .external_lex_state = 2},
+  [2226] = {.lex_state = 241, .external_lex_state = 2},
+  [2227] = {.lex_state = 231, .external_lex_state = 2},
+  [2228] = {.lex_state = 245, .external_lex_state = 2},
+  [2229] = {.lex_state = 244, .external_lex_state = 2},
+  [2230] = {.lex_state = 231, .external_lex_state = 2},
+  [2231] = {.lex_state = 245, .external_lex_state = 2},
+  [2232] = {.lex_state = 231, .external_lex_state = 2},
+  [2233] = {.lex_state = 231, .external_lex_state = 2},
+  [2234] = {.lex_state = 241, .external_lex_state = 2},
+  [2235] = {.lex_state = 231, .external_lex_state = 2},
+  [2236] = {.lex_state = 241, .external_lex_state = 2},
+  [2237] = {.lex_state = 231, .external_lex_state = 2},
+  [2238] = {.lex_state = 245, .external_lex_state = 2},
+  [2239] = {.lex_state = 240, .external_lex_state = 2},
+  [2240] = {.lex_state = 273, .external_lex_state = 2},
+  [2241] = {.lex_state = 241, .external_lex_state = 2},
+  [2242] = {.lex_state = 244, .external_lex_state = 2},
+  [2243] = {.lex_state = 240, .external_lex_state = 2},
   [2244] = {.lex_state = 231, .external_lex_state = 2},
-  [2245] = {.lex_state = 242, .external_lex_state = 2},
-  [2246] = {.lex_state = 231, .external_lex_state = 2},
-  [2247] = {.lex_state = 231, .external_lex_state = 2},
-  [2248] = {.lex_state = 238, .external_lex_state = 2},
-  [2249] = {.lex_state = 231, .external_lex_state = 2},
-  [2250] = {.lex_state = 231, .external_lex_state = 2},
-  [2251] = {.lex_state = 242, .external_lex_state = 2},
-  [2252] = {.lex_state = 244, .external_lex_state = 2},
-  [2253] = {.lex_state = 242, .external_lex_state = 2},
-  [2254] = {.lex_state = 273, .external_lex_state = 2},
-  [2255] = {.lex_state = 273, .external_lex_state = 2},
-  [2256] = {.lex_state = 273, .external_lex_state = 2},
-  [2257] = {.lex_state = 273, .external_lex_state = 2},
-  [2258] = {.lex_state = 273, .external_lex_state = 2},
-  [2259] = {.lex_state = 273, .external_lex_state = 2},
-  [2260] = {.lex_state = 273, .external_lex_state = 2},
-  [2261] = {.lex_state = 231, .external_lex_state = 2},
-  [2262] = {.lex_state = 242, .external_lex_state = 2},
-  [2263] = {.lex_state = 231, .external_lex_state = 2},
-  [2264] = {.lex_state = 231, .external_lex_state = 2},
-  [2265] = {.lex_state = 237, .external_lex_state = 2},
-  [2266] = {.lex_state = 240, .external_lex_state = 2},
-  [2267] = {.lex_state = 240, .external_lex_state = 2},
-  [2268] = {.lex_state = 240, .external_lex_state = 2},
-  [2269] = {.lex_state = 240, .external_lex_state = 2},
-  [2270] = {.lex_state = 240, .external_lex_state = 2},
-  [2271] = {.lex_state = 240, .external_lex_state = 2},
-  [2272] = {.lex_state = 240, .external_lex_state = 2},
-  [2273] = {.lex_state = 233, .external_lex_state = 2},
-  [2274] = {.lex_state = 233, .external_lex_state = 2},
-  [2275] = {.lex_state = 233, .external_lex_state = 2},
-  [2276] = {.lex_state = 233, .external_lex_state = 2},
-  [2277] = {.lex_state = 233, .external_lex_state = 2},
-  [2278] = {.lex_state = 233, .external_lex_state = 2},
-  [2279] = {.lex_state = 233, .external_lex_state = 2},
-  [2280] = {.lex_state = 238, .external_lex_state = 2},
-  [2281] = {.lex_state = 242, .external_lex_state = 2},
-  [2282] = {.lex_state = 246, .external_lex_state = 2},
-  [2283] = {.lex_state = 246, .external_lex_state = 2},
-  [2284] = {.lex_state = 244, .external_lex_state = 2},
-  [2285] = {.lex_state = 244, .external_lex_state = 2},
-  [2286] = {.lex_state = 242, .external_lex_state = 2},
-  [2287] = {.lex_state = 242, .external_lex_state = 2},
-  [2288] = {.lex_state = 240, .external_lex_state = 2},
-  [2289] = {.lex_state = 240, .external_lex_state = 2},
-  [2290] = {.lex_state = 246, .external_lex_state = 2},
-  [2291] = {.lex_state = 246, .external_lex_state = 2},
-  [2292] = {.lex_state = 237, .external_lex_state = 2},
-  [2293] = {.lex_state = 244, .external_lex_state = 2},
+  [2245] = {.lex_state = 244, .external_lex_state = 2},
+  [2246] = {.lex_state = 244, .external_lex_state = 2},
+  [2247] = {.lex_state = 240, .external_lex_state = 2},
+  [2248] = {.lex_state = 240, .external_lex_state = 2},
+  [2249] = {.lex_state = 240, .external_lex_state = 2},
+  [2250] = {.lex_state = 240, .external_lex_state = 2},
+  [2251] = {.lex_state = 274, .external_lex_state = 2},
+  [2252] = {.lex_state = 274, .external_lex_state = 2},
+  [2253] = {.lex_state = 243, .external_lex_state = 2},
+  [2254] = {.lex_state = 274, .external_lex_state = 2},
+  [2255] = {.lex_state = 243, .external_lex_state = 2},
+  [2256] = {.lex_state = 274, .external_lex_state = 2},
+  [2257] = {.lex_state = 274, .external_lex_state = 2},
+  [2258] = {.lex_state = 274, .external_lex_state = 2},
+  [2259] = {.lex_state = 274, .external_lex_state = 2},
+  [2260] = {.lex_state = 233, .external_lex_state = 2},
+  [2261] = {.lex_state = 237, .external_lex_state = 2},
+  [2262] = {.lex_state = 274, .external_lex_state = 2},
+  [2263] = {.lex_state = 240, .external_lex_state = 2},
+  [2264] = {.lex_state = 237, .external_lex_state = 2},
+  [2265] = {.lex_state = 231, .external_lex_state = 2},
+  [2266] = {.lex_state = 231, .external_lex_state = 2},
+  [2267] = {.lex_state = 246, .external_lex_state = 2},
+  [2268] = {.lex_state = 237, .external_lex_state = 2},
+  [2269] = {.lex_state = 231, .external_lex_state = 2},
+  [2270] = {.lex_state = 237, .external_lex_state = 2},
+  [2271] = {.lex_state = 231, .external_lex_state = 2},
+  [2272] = {.lex_state = 231, .external_lex_state = 2},
+  [2273] = {.lex_state = 240, .external_lex_state = 2},
+  [2274] = {.lex_state = 238, .external_lex_state = 2},
+  [2275] = {.lex_state = 238, .external_lex_state = 2},
+  [2276] = {.lex_state = 244, .external_lex_state = 2},
+  [2277] = {.lex_state = 244, .external_lex_state = 2},
+  [2278] = {.lex_state = 238, .external_lex_state = 2},
+  [2279] = {.lex_state = 238, .external_lex_state = 2},
+  [2280] = {.lex_state = 237, .external_lex_state = 2},
+  [2281] = {.lex_state = 244, .external_lex_state = 2},
+  [2282] = {.lex_state = 247, .external_lex_state = 2},
+  [2283] = {.lex_state = 247, .external_lex_state = 2},
+  [2284] = {.lex_state = 237, .external_lex_state = 2},
+  [2285] = {.lex_state = 243, .external_lex_state = 2},
+  [2286] = {.lex_state = 247, .external_lex_state = 2},
+  [2287] = {.lex_state = 240, .external_lex_state = 2},
+  [2288] = {.lex_state = 247, .external_lex_state = 2},
+  [2289] = {.lex_state = 244, .external_lex_state = 2},
+  [2290] = {.lex_state = 247, .external_lex_state = 2},
+  [2291] = {.lex_state = 247, .external_lex_state = 2},
+  [2292] = {.lex_state = 247, .external_lex_state = 2},
+  [2293] = {.lex_state = 243, .external_lex_state = 2},
   [2294] = {.lex_state = 237, .external_lex_state = 2},
-  [2295] = {.lex_state = 240, .external_lex_state = 2},
+  [2295] = {.lex_state = 233, .external_lex_state = 2},
   [2296] = {.lex_state = 237, .external_lex_state = 2},
-  [2297] = {.lex_state = 240, .external_lex_state = 2},
-  [2298] = {.lex_state = 231, .external_lex_state = 2},
-  [2299] = {.lex_state = 240, .external_lex_state = 2},
-  [2300] = {.lex_state = 238, .external_lex_state = 2},
-  [2301] = {.lex_state = 240, .external_lex_state = 2},
-  [2302] = {.lex_state = 246, .external_lex_state = 2},
-  [2303] = {.lex_state = 244, .external_lex_state = 2},
-  [2304] = {.lex_state = 240, .external_lex_state = 2},
-  [2305] = {.lex_state = 244, .external_lex_state = 2},
-  [2306] = {.lex_state = 240, .external_lex_state = 2},
-  [2307] = {.lex_state = 242, .external_lex_state = 2},
-  [2308] = {.lex_state = 237, .external_lex_state = 2},
-  [2309] = {.lex_state = 240, .external_lex_state = 2},
-  [2310] = {.lex_state = 240, .external_lex_state = 2},
-  [2311] = {.lex_state = 235, .external_lex_state = 2},
-  [2312] = {.lex_state = 240, .external_lex_state = 2},
-  [2313] = {.lex_state = 240, .external_lex_state = 2},
-  [2314] = {.lex_state = 240, .external_lex_state = 2},
-  [2315] = {.lex_state = 240, .external_lex_state = 2},
-  [2316] = {.lex_state = 242, .external_lex_state = 2},
-  [2317] = {.lex_state = 240, .external_lex_state = 2},
-  [2318] = {.lex_state = 240, .external_lex_state = 2},
-  [2319] = {.lex_state = 235, .external_lex_state = 2},
-  [2320] = {.lex_state = 231, .external_lex_state = 2},
-  [2321] = {.lex_state = 246, .external_lex_state = 2},
-  [2322] = {.lex_state = 244, .external_lex_state = 2},
-  [2323] = {.lex_state = 244, .external_lex_state = 2},
-  [2324] = {.lex_state = 235, .external_lex_state = 2},
-  [2325] = {.lex_state = 243, .external_lex_state = 2},
-  [2326] = {.lex_state = 246, .external_lex_state = 2},
-  [2327] = {.lex_state = 231, .external_lex_state = 2},
-  [2328] = {.lex_state = 246, .external_lex_state = 2},
-  [2329] = {.lex_state = 231, .external_lex_state = 2},
-  [2330] = {.lex_state = 235, .external_lex_state = 2},
-  [2331] = {.lex_state = 243, .external_lex_state = 2},
-  [2332] = {.lex_state = 243, .external_lex_state = 2},
-  [2333] = {.lex_state = 242, .external_lex_state = 2},
-  [2334] = {.lex_state = 246, .external_lex_state = 2},
-  [2335] = {.lex_state = 235, .external_lex_state = 2},
-  [2336] = {.lex_state = 238, .external_lex_state = 2},
-  [2337] = {.lex_state = 238, .external_lex_state = 2},
-  [2338] = {.lex_state = 237, .external_lex_state = 2},
-  [2339] = {.lex_state = 246, .external_lex_state = 2},
-  [2340] = {.lex_state = 243, .external_lex_state = 2},
-  [2341] = {.lex_state = 243, .external_lex_state = 2},
-  [2342] = {.lex_state = 235, .external_lex_state = 2},
-  [2343] = {.lex_state = 237, .external_lex_state = 2},
-  [2344] = {.lex_state = 235, .external_lex_state = 2},
-  [2345] = {.lex_state = 246, .external_lex_state = 2},
-  [2346] = {.lex_state = 244, .external_lex_state = 2},
-  [2347] = {.lex_state = 246, .external_lex_state = 2},
-  [2348] = {.lex_state = 243, .external_lex_state = 2},
-  [2349] = {.lex_state = 243, .external_lex_state = 2},
-  [2350] = {.lex_state = 246, .external_lex_state = 2},
-  [2351] = {.lex_state = 235, .external_lex_state = 2},
-  [2352] = {.lex_state = 243, .external_lex_state = 2},
-  [2353] = {.lex_state = 244, .external_lex_state = 2},
-  [2354] = {.lex_state = 244, .external_lex_state = 2},
-  [2355] = {.lex_state = 238, .external_lex_state = 2},
+  [2297] = {.lex_state = 274, .external_lex_state = 2},
+  [2298] = {.lex_state = 233, .external_lex_state = 2},
+  [2299] = {.lex_state = 237, .external_lex_state = 2},
+  [2300] = {.lex_state = 273, .external_lex_state = 2},
+  [2301] = {.lex_state = 233, .external_lex_state = 2},
+  [2302] = {.lex_state = 274, .external_lex_state = 2},
+  [2303] = {.lex_state = 237, .external_lex_state = 2},
+  [2304] = {.lex_state = 238, .external_lex_state = 2},
+  [2305] = {.lex_state = 233, .external_lex_state = 2},
+  [2306] = {.lex_state = 233, .external_lex_state = 2},
+  [2307] = {.lex_state = 274, .external_lex_state = 2},
+  [2308] = {.lex_state = 231, .external_lex_state = 2},
+  [2309] = {.lex_state = 231, .external_lex_state = 2},
+  [2310] = {.lex_state = 233, .external_lex_state = 2},
+  [2311] = {.lex_state = 238, .external_lex_state = 2},
+  [2312] = {.lex_state = 244, .external_lex_state = 2},
+  [2313] = {.lex_state = 273, .external_lex_state = 2},
+  [2314] = {.lex_state = 244, .external_lex_state = 2},
+  [2315] = {.lex_state = 242, .external_lex_state = 2},
+  [2316] = {.lex_state = 233, .external_lex_state = 2},
+  [2317] = {.lex_state = 246, .external_lex_state = 2},
+  [2318] = {.lex_state = 233, .external_lex_state = 2},
+  [2319] = {.lex_state = 233, .external_lex_state = 2},
+  [2320] = {.lex_state = 233, .external_lex_state = 2},
+  [2321] = {.lex_state = 244, .external_lex_state = 2},
+  [2322] = {.lex_state = 243, .external_lex_state = 2},
+  [2323] = {.lex_state = 233, .external_lex_state = 2},
+  [2324] = {.lex_state = 273, .external_lex_state = 2},
+  [2325] = {.lex_state = 233, .external_lex_state = 2},
+  [2326] = {.lex_state = 274, .external_lex_state = 2},
+  [2327] = {.lex_state = 242, .external_lex_state = 2},
+  [2328] = {.lex_state = 274, .external_lex_state = 2},
+  [2329] = {.lex_state = 243, .external_lex_state = 2},
+  [2330] = {.lex_state = 233, .external_lex_state = 2},
+  [2331] = {.lex_state = 233, .external_lex_state = 2},
+  [2332] = {.lex_state = 233, .external_lex_state = 2},
+  [2333] = {.lex_state = 233, .external_lex_state = 2},
+  [2334] = {.lex_state = 273, .external_lex_state = 2},
+  [2335] = {.lex_state = 274, .external_lex_state = 2},
+  [2336] = {.lex_state = 274, .external_lex_state = 2},
+  [2337] = {.lex_state = 241, .external_lex_state = 2},
+  [2338] = {.lex_state = 247, .external_lex_state = 2},
+  [2339] = {.lex_state = 233, .external_lex_state = 2},
+  [2340] = {.lex_state = 241, .external_lex_state = 2},
+  [2341] = {.lex_state = 241, .external_lex_state = 2},
+  [2342] = {.lex_state = 246, .external_lex_state = 2},
+  [2343] = {.lex_state = 247, .external_lex_state = 2},
+  [2344] = {.lex_state = 238, .external_lex_state = 2},
+  [2345] = {.lex_state = 243, .external_lex_state = 2},
+  [2346] = {.lex_state = 247, .external_lex_state = 2},
+  [2347] = {.lex_state = 242, .external_lex_state = 2},
+  [2348] = {.lex_state = 246, .external_lex_state = 2},
+  [2349] = {.lex_state = 241, .external_lex_state = 2},
+  [2350] = {.lex_state = 242, .external_lex_state = 2},
+  [2351] = {.lex_state = 241, .external_lex_state = 2},
+  [2352] = {.lex_state = 246, .external_lex_state = 2},
+  [2353] = {.lex_state = 273, .external_lex_state = 2},
+  [2354] = {.lex_state = 247, .external_lex_state = 2},
+  [2355] = {.lex_state = 243, .external_lex_state = 2},
   [2356] = {.lex_state = 242, .external_lex_state = 2},
-  [2357] = {.lex_state = 238, .external_lex_state = 2},
-  [2358] = {.lex_state = 237, .external_lex_state = 2},
-  [2359] = {.lex_state = 237, .external_lex_state = 2},
-  [2360] = {.lex_state = 242, .external_lex_state = 2},
-  [2361] = {.lex_state = 237, .external_lex_state = 2},
-  [2362] = {.lex_state = 243, .external_lex_state = 2},
-  [2363] = {.lex_state = 242, .external_lex_state = 2},
-  [2364] = {.lex_state = 242, .external_lex_state = 2},
-  [2365] = {.lex_state = 242, .external_lex_state = 2},
-  [2366] = {.lex_state = 238, .external_lex_state = 2},
+  [2357] = {.lex_state = 240, .external_lex_state = 2},
+  [2358] = {.lex_state = 273, .external_lex_state = 2},
+  [2359] = {.lex_state = 247, .external_lex_state = 2},
+  [2360] = {.lex_state = 231, .external_lex_state = 2},
+  [2361] = {.lex_state = 241, .external_lex_state = 2},
+  [2362] = {.lex_state = 240, .external_lex_state = 2},
+  [2363] = {.lex_state = 231, .external_lex_state = 2},
+  [2364] = {.lex_state = 241, .external_lex_state = 2},
+  [2365] = {.lex_state = 231, .external_lex_state = 2},
+  [2366] = {.lex_state = 247, .external_lex_state = 2},
   [2367] = {.lex_state = 243, .external_lex_state = 2},
-  [2368] = {.lex_state = 243, .external_lex_state = 2},
-  [2369] = {.lex_state = 231, .external_lex_state = 2},
+  [2368] = {.lex_state = 247, .external_lex_state = 2},
+  [2369] = {.lex_state = 246, .external_lex_state = 2},
   [2370] = {.lex_state = 231, .external_lex_state = 2},
-  [2371] = {.lex_state = 244, .external_lex_state = 2},
-  [2372] = {.lex_state = 238, .external_lex_state = 2},
-  [2373] = {.lex_state = 238, .external_lex_state = 2},
-  [2374] = {.lex_state = 243, .external_lex_state = 2},
-  [2375] = {.lex_state = 244, .external_lex_state = 2},
-  [2376] = {.lex_state = 243, .external_lex_state = 2},
-  [2377] = {.lex_state = 238, .external_lex_state = 2},
-  [2378] = {.lex_state = 238, .external_lex_state = 2},
-  [2379] = {.lex_state = 243, .external_lex_state = 2},
-  [2380] = {.lex_state = 243, .external_lex_state = 2},
-  [2381] = {.lex_state = 238, .external_lex_state = 2},
-  [2382] = {.lex_state = 238, .external_lex_state = 2},
-  [2383] = {.lex_state = 243, .external_lex_state = 2},
-  [2384] = {.lex_state = 238, .external_lex_state = 2},
-  [2385] = {.lex_state = 242, .external_lex_state = 2},
+  [2371] = {.lex_state = 241, .external_lex_state = 2},
+  [2372] = {.lex_state = 231, .external_lex_state = 2},
+  [2373] = {.lex_state = 231, .external_lex_state = 2},
+  [2374] = {.lex_state = 244, .external_lex_state = 2},
+  [2375] = {.lex_state = 273, .external_lex_state = 2},
+  [2376] = {.lex_state = 231, .external_lex_state = 2},
+  [2377] = {.lex_state = 246, .external_lex_state = 2},
+  [2378] = {.lex_state = 231, .external_lex_state = 2},
+  [2379] = {.lex_state = 231, .external_lex_state = 2},
+  [2380] = {.lex_state = 246, .external_lex_state = 2},
+  [2381] = {.lex_state = 243, .external_lex_state = 2},
+  [2382] = {.lex_state = 231, .external_lex_state = 2},
+  [2383] = {.lex_state = 247, .external_lex_state = 2},
+  [2384] = {.lex_state = 231, .external_lex_state = 2},
+  [2385] = {.lex_state = 273, .external_lex_state = 2},
   [2386] = {.lex_state = 231, .external_lex_state = 2},
-  [2387] = {.lex_state = 231, .external_lex_state = 2},
-  [2388] = {.lex_state = 231, .external_lex_state = 2},
-  [2389] = {.lex_state = 237, .external_lex_state = 2},
-  [2390] = {.lex_state = 237, .external_lex_state = 2},
-  [2391] = {.lex_state = 240, .external_lex_state = 2},
-  [2392] = {.lex_state = 237, .external_lex_state = 2},
-  [2393] = {.lex_state = 235, .external_lex_state = 2},
-  [2394] = {.lex_state = 238, .external_lex_state = 2},
-  [2395] = {.lex_state = 245, .external_lex_state = 2},
-  [2396] = {.lex_state = 241, .external_lex_state = 2},
-  [2397] = {.lex_state = 245, .external_lex_state = 2},
-  [2398] = {.lex_state = 241, .external_lex_state = 2},
-  [2399] = {.lex_state = 235, .external_lex_state = 2},
-  [2400] = {.lex_state = 235, .external_lex_state = 2},
-  [2401] = {.lex_state = 235, .external_lex_state = 2},
-  [2402] = {.lex_state = 235, .external_lex_state = 2},
-  [2403] = {.lex_state = 235, .external_lex_state = 2},
-  [2404] = {.lex_state = 235, .external_lex_state = 2},
-  [2405] = {.lex_state = 235, .external_lex_state = 2},
-  [2406] = {.lex_state = 245, .external_lex_state = 2},
-  [2407] = {.lex_state = 245, .external_lex_state = 2},
-  [2408] = {.lex_state = 245, .external_lex_state = 2},
-  [2409] = {.lex_state = 247, .external_lex_state = 2},
-  [2410] = {.lex_state = 245, .external_lex_state = 2},
-  [2411] = {.lex_state = 245, .external_lex_state = 2},
-  [2412] = {.lex_state = 245, .external_lex_state = 2},
-  [2413] = {.lex_state = 241, .external_lex_state = 2},
-  [2414] = {.lex_state = 245, .external_lex_state = 2},
-  [2415] = {.lex_state = 247, .external_lex_state = 2},
-  [2416] = {.lex_state = 241, .external_lex_state = 2},
-  [2417] = {.lex_state = 241, .external_lex_state = 2},
-  [2418] = {.lex_state = 238, .external_lex_state = 2},
-  [2419] = {.lex_state = 241, .external_lex_state = 2},
-  [2420] = {.lex_state = 247, .external_lex_state = 2},
-  [2421] = {.lex_state = 238, .external_lex_state = 2},
-  [2422] = {.lex_state = 247, .external_lex_state = 2},
-  [2423] = {.lex_state = 238, .external_lex_state = 2},
+  [2387] = {.lex_state = 246, .external_lex_state = 2},
+  [2388] = {.lex_state = 274, .external_lex_state = 2},
+  [2389] = {.lex_state = 273, .external_lex_state = 2},
+  [2390] = {.lex_state = 231, .external_lex_state = 2},
+  [2391] = {.lex_state = 243, .external_lex_state = 2},
+  [2392] = {.lex_state = 231, .external_lex_state = 2},
+  [2393] = {.lex_state = 243, .external_lex_state = 2},
+  [2394] = {.lex_state = 274, .external_lex_state = 2},
+  [2395] = {.lex_state = 239, .external_lex_state = 2},
+  [2396] = {.lex_state = 244, .external_lex_state = 2},
+  [2397] = {.lex_state = 243, .external_lex_state = 2},
+  [2398] = {.lex_state = 239, .external_lex_state = 2},
+  [2399] = {.lex_state = 243, .external_lex_state = 2},
+  [2400] = {.lex_state = 246, .external_lex_state = 2},
+  [2401] = {.lex_state = 247, .external_lex_state = 2},
+  [2402] = {.lex_state = 243, .external_lex_state = 2},
+  [2403] = {.lex_state = 241, .external_lex_state = 2},
+  [2404] = {.lex_state = 238, .external_lex_state = 2},
+  [2405] = {.lex_state = 247, .external_lex_state = 2},
+  [2406] = {.lex_state = 246, .external_lex_state = 2},
+  [2407] = {.lex_state = 235, .external_lex_state = 2},
+  [2408] = {.lex_state = 239, .external_lex_state = 2},
+  [2409] = {.lex_state = 244, .external_lex_state = 2},
+  [2410] = {.lex_state = 239, .external_lex_state = 2},
+  [2411] = {.lex_state = 246, .external_lex_state = 2},
+  [2412] = {.lex_state = 246, .external_lex_state = 2},
+  [2413] = {.lex_state = 235, .external_lex_state = 2},
+  [2414] = {.lex_state = 246, .external_lex_state = 2},
+  [2415] = {.lex_state = 243, .external_lex_state = 2},
+  [2416] = {.lex_state = 239, .external_lex_state = 2},
+  [2417] = {.lex_state = 243, .external_lex_state = 2},
+  [2418] = {.lex_state = 239, .external_lex_state = 2},
+  [2419] = {.lex_state = 244, .external_lex_state = 2},
+  [2420] = {.lex_state = 244, .external_lex_state = 2},
+  [2421] = {.lex_state = 247, .external_lex_state = 2},
+  [2422] = {.lex_state = 244, .external_lex_state = 2},
+  [2423] = {.lex_state = 235, .external_lex_state = 2},
   [2424] = {.lex_state = 241, .external_lex_state = 2},
-  [2425] = {.lex_state = 238, .external_lex_state = 2},
-  [2426] = {.lex_state = 241, .external_lex_state = 2},
+  [2425] = {.lex_state = 244, .external_lex_state = 2},
+  [2426] = {.lex_state = 244, .external_lex_state = 2},
   [2427] = {.lex_state = 241, .external_lex_state = 2},
-  [2428] = {.lex_state = 241, .external_lex_state = 2},
-  [2429] = {.lex_state = 241, .external_lex_state = 2},
-  [2430] = {.lex_state = 241, .external_lex_state = 2},
-  [2431] = {.lex_state = 241, .external_lex_state = 2},
-  [2432] = {.lex_state = 241, .external_lex_state = 2},
-  [2433] = {.lex_state = 241, .external_lex_state = 2},
-  [2434] = {.lex_state = 247, .external_lex_state = 2},
+  [2428] = {.lex_state = 247, .external_lex_state = 2},
+  [2429] = {.lex_state = 235, .external_lex_state = 2},
+  [2430] = {.lex_state = 243, .external_lex_state = 2},
+  [2431] = {.lex_state = 235, .external_lex_state = 2},
+  [2432] = {.lex_state = 247, .external_lex_state = 2},
+  [2433] = {.lex_state = 239, .external_lex_state = 2},
+  [2434] = {.lex_state = 244, .external_lex_state = 2},
   [2435] = {.lex_state = 238, .external_lex_state = 2},
-  [2436] = {.lex_state = 247, .external_lex_state = 2},
-  [2437] = {.lex_state = 238, .external_lex_state = 2},
+  [2436] = {.lex_state = 244, .external_lex_state = 2},
+  [2437] = {.lex_state = 241, .external_lex_state = 2},
   [2438] = {.lex_state = 241, .external_lex_state = 2},
-  [2439] = {.lex_state = 235, .external_lex_state = 2},
-  [2440] = {.lex_state = 241, .external_lex_state = 2},
-  [2441] = {.lex_state = 247, .external_lex_state = 2},
-  [2442] = {.lex_state = 239, .external_lex_state = 2},
-  [2443] = {.lex_state = 247, .external_lex_state = 2},
-  [2444] = {.lex_state = 241, .external_lex_state = 2},
-  [2445] = {.lex_state = 247, .external_lex_state = 2},
+  [2439] = {.lex_state = 244, .external_lex_state = 2},
+  [2440] = {.lex_state = 246, .external_lex_state = 2},
+  [2441] = {.lex_state = 238, .external_lex_state = 2},
+  [2442] = {.lex_state = 244, .external_lex_state = 2},
+  [2443] = {.lex_state = 244, .external_lex_state = 2},
+  [2444] = {.lex_state = 246, .external_lex_state = 2},
+  [2445] = {.lex_state = 286, .external_lex_state = 6},
   [2446] = {.lex_state = 247, .external_lex_state = 2},
   [2447] = {.lex_state = 247, .external_lex_state = 2},
-  [2448] = {.lex_state = 247, .external_lex_state = 2},
-  [2449] = {.lex_state = 247, .external_lex_state = 2},
-  [2450] = {.lex_state = 247, .external_lex_state = 2},
-  [2451] = {.lex_state = 247, .external_lex_state = 2},
-  [2452] = {.lex_state = 247, .external_lex_state = 2},
-  [2453] = {.lex_state = 238, .external_lex_state = 2},
-  [2454] = {.lex_state = 243, .external_lex_state = 2},
+  [2448] = {.lex_state = 246, .external_lex_state = 2},
+  [2449] = {.lex_state = 241, .external_lex_state = 2},
+  [2450] = {.lex_state = 274, .external_lex_state = 2},
+  [2451] = {.lex_state = 244, .external_lex_state = 2},
+  [2452] = {.lex_state = 238, .external_lex_state = 2},
+  [2453] = {.lex_state = 235, .external_lex_state = 2},
+  [2454] = {.lex_state = 235, .external_lex_state = 2},
   [2455] = {.lex_state = 274, .external_lex_state = 2},
-  [2456] = {.lex_state = 274, .external_lex_state = 2},
-  [2457] = {.lex_state = 274, .external_lex_state = 2},
-  [2458] = {.lex_state = 274, .external_lex_state = 2},
-  [2459] = {.lex_state = 274, .external_lex_state = 2},
-  [2460] = {.lex_state = 274, .external_lex_state = 2},
-  [2461] = {.lex_state = 274, .external_lex_state = 2},
-  [2462] = {.lex_state = 244, .external_lex_state = 2},
-  [2463] = {.lex_state = 238, .external_lex_state = 2},
-  [2464] = {.lex_state = 246, .external_lex_state = 2},
-  [2465] = {.lex_state = 239, .external_lex_state = 2},
-  [2466] = {.lex_state = 246, .external_lex_state = 2},
-  [2467] = {.lex_state = 235, .external_lex_state = 2},
-  [2468] = {.lex_state = 243, .external_lex_state = 2},
-  [2469] = {.lex_state = 244, .external_lex_state = 2},
-  [2470] = {.lex_state = 243, .external_lex_state = 2},
-  [2471] = {.lex_state = 239, .external_lex_state = 2},
-  [2472] = {.lex_state = 244, .external_lex_state = 2},
-  [2473] = {.lex_state = 243, .external_lex_state = 2},
-  [2474] = {.lex_state = 286, .external_lex_state = 6},
-  [2475] = {.lex_state = 239, .external_lex_state = 2},
-  [2476] = {.lex_state = 239, .external_lex_state = 2},
-  [2477] = {.lex_state = 239, .external_lex_state = 2},
-  [2478] = {.lex_state = 235, .external_lex_state = 2},
-  [2479] = {.lex_state = 246, .external_lex_state = 2},
+  [2456] = {.lex_state = 243, .external_lex_state = 2},
+  [2457] = {.lex_state = 241, .external_lex_state = 2},
+  [2458] = {.lex_state = 238, .external_lex_state = 2},
+  [2459] = {.lex_state = 247, .external_lex_state = 2},
+  [2460] = {.lex_state = 247, .external_lex_state = 2},
+  [2461] = {.lex_state = 243, .external_lex_state = 2},
+  [2462] = {.lex_state = 246, .external_lex_state = 2},
+  [2463] = {.lex_state = 235, .external_lex_state = 2},
+  [2464] = {.lex_state = 241, .external_lex_state = 2},
+  [2465] = {.lex_state = 243, .external_lex_state = 2},
+  [2466] = {.lex_state = 274, .external_lex_state = 2},
+  [2467] = {.lex_state = 247, .external_lex_state = 2},
+  [2468] = {.lex_state = 247, .external_lex_state = 2},
+  [2469] = {.lex_state = 246, .external_lex_state = 2},
+  [2470] = {.lex_state = 238, .external_lex_state = 2},
+  [2471] = {.lex_state = 238, .external_lex_state = 2},
+  [2472] = {.lex_state = 274, .external_lex_state = 2},
+  [2473] = {.lex_state = 246, .external_lex_state = 2},
+  [2474] = {.lex_state = 246, .external_lex_state = 2},
+  [2475] = {.lex_state = 274, .external_lex_state = 2},
+  [2476] = {.lex_state = 244, .external_lex_state = 2},
+  [2477] = {.lex_state = 245, .external_lex_state = 2},
+  [2478] = {.lex_state = 243, .external_lex_state = 2},
+  [2479] = {.lex_state = 238, .external_lex_state = 2},
   [2480] = {.lex_state = 246, .external_lex_state = 2},
-  [2481] = {.lex_state = 239, .external_lex_state = 2},
-  [2482] = {.lex_state = 244, .external_lex_state = 2},
-  [2483] = {.lex_state = 239, .external_lex_state = 2},
+  [2481] = {.lex_state = 245, .external_lex_state = 2},
+  [2482] = {.lex_state = 274, .external_lex_state = 2},
+  [2483] = {.lex_state = 238, .external_lex_state = 2},
   [2484] = {.lex_state = 244, .external_lex_state = 2},
-  [2485] = {.lex_state = 235, .external_lex_state = 2},
-  [2486] = {.lex_state = 239, .external_lex_state = 2},
-  [2487] = {.lex_state = 243, .external_lex_state = 2},
-  [2488] = {.lex_state = 239, .external_lex_state = 2},
-  [2489] = {.lex_state = 243, .external_lex_state = 2},
+  [2485] = {.lex_state = 274, .external_lex_state = 2},
+  [2486] = {.lex_state = 244, .external_lex_state = 2},
+  [2487] = {.lex_state = 274, .external_lex_state = 2},
+  [2488] = {.lex_state = 286, .external_lex_state = 6},
+  [2489] = {.lex_state = 238, .external_lex_state = 2},
   [2490] = {.lex_state = 286, .external_lex_state = 6},
-  [2491] = {.lex_state = 239, .external_lex_state = 2},
-  [2492] = {.lex_state = 246, .external_lex_state = 2},
-  [2493] = {.lex_state = 246, .external_lex_state = 2},
-  [2494] = {.lex_state = 238, .external_lex_state = 2},
-  [2495] = {.lex_state = 244, .external_lex_state = 2},
-  [2496] = {.lex_state = 274, .external_lex_state = 2},
-  [2497] = {.lex_state = 245, .external_lex_state = 2},
-  [2498] = {.lex_state = 274, .external_lex_state = 2},
-  [2499] = {.lex_state = 239, .external_lex_state = 2},
-  [2500] = {.lex_state = 239, .external_lex_state = 2},
-  [2501] = {.lex_state = 274, .external_lex_state = 2},
-  [2502] = {.lex_state = 246, .external_lex_state = 2},
-  [2503] = {.lex_state = 244, .external_lex_state = 2},
-  [2504] = {.lex_state = 244, .external_lex_state = 2},
-  [2505] = {.lex_state = 243, .external_lex_state = 2},
-  [2506] = {.lex_state = 244, .external_lex_state = 2},
+  [2491] = {.lex_state = 274, .external_lex_state = 2},
+  [2492] = {.lex_state = 274, .external_lex_state = 2},
+  [2493] = {.lex_state = 286, .external_lex_state = 6},
+  [2494] = {.lex_state = 274, .external_lex_state = 2},
+  [2495] = {.lex_state = 274, .external_lex_state = 2},
+  [2496] = {.lex_state = 238, .external_lex_state = 2},
+  [2497] = {.lex_state = 274, .external_lex_state = 2},
+  [2498] = {.lex_state = 246, .external_lex_state = 2},
+  [2499] = {.lex_state = 246, .external_lex_state = 2},
+  [2500] = {.lex_state = 238, .external_lex_state = 2},
+  [2501] = {.lex_state = 238, .external_lex_state = 2},
+  [2502] = {.lex_state = 247, .external_lex_state = 2},
+  [2503] = {.lex_state = 238, .external_lex_state = 2},
+  [2504] = {.lex_state = 247, .external_lex_state = 2},
+  [2505] = {.lex_state = 274, .external_lex_state = 2},
+  [2506] = {.lex_state = 239, .external_lex_state = 2},
   [2507] = {.lex_state = 274, .external_lex_state = 2},
-  [2508] = {.lex_state = 274, .external_lex_state = 2},
-  [2509] = {.lex_state = 239, .external_lex_state = 2},
-  [2510] = {.lex_state = 246, .external_lex_state = 2},
-  [2511] = {.lex_state = 246, .external_lex_state = 2},
-  [2512] = {.lex_state = 239, .external_lex_state = 2},
-  [2513] = {.lex_state = 235, .external_lex_state = 2},
-  [2514] = {.lex_state = 274, .external_lex_state = 2},
+  [2508] = {.lex_state = 247, .external_lex_state = 2},
+  [2509] = {.lex_state = 274, .external_lex_state = 2},
+  [2510] = {.lex_state = 247, .external_lex_state = 2},
+  [2511] = {.lex_state = 239, .external_lex_state = 2},
+  [2512] = {.lex_state = 247, .external_lex_state = 2},
+  [2513] = {.lex_state = 247, .external_lex_state = 2},
+  [2514] = {.lex_state = 247, .external_lex_state = 2},
   [2515] = {.lex_state = 235, .external_lex_state = 2},
-  [2516] = {.lex_state = 274, .external_lex_state = 2},
-  [2517] = {.lex_state = 244, .external_lex_state = 2},
-  [2518] = {.lex_state = 245, .external_lex_state = 2},
-  [2519] = {.lex_state = 244, .external_lex_state = 2},
-  [2520] = {.lex_state = 274, .external_lex_state = 2},
-  [2521] = {.lex_state = 244, .external_lex_state = 2},
-  [2522] = {.lex_state = 239, .external_lex_state = 2},
-  [2523] = {.lex_state = 274, .external_lex_state = 2},
-  [2524] = {.lex_state = 238, .external_lex_state = 2},
-  [2525] = {.lex_state = 235, .external_lex_state = 2},
-  [2526] = {.lex_state = 274, .external_lex_state = 2},
-  [2527] = {.lex_state = 246, .external_lex_state = 2},
-  [2528] = {.lex_state = 244, .external_lex_state = 2},
+  [2516] = {.lex_state = 286, .external_lex_state = 6},
+  [2517] = {.lex_state = 239, .external_lex_state = 2},
+  [2518] = {.lex_state = 247, .external_lex_state = 2},
+  [2519] = {.lex_state = 286, .external_lex_state = 6},
+  [2520] = {.lex_state = 247, .external_lex_state = 2},
+  [2521] = {.lex_state = 245, .external_lex_state = 2},
+  [2522] = {.lex_state = 247, .external_lex_state = 2},
+  [2523] = {.lex_state = 286, .external_lex_state = 6},
+  [2524] = {.lex_state = 247, .external_lex_state = 2},
+  [2525] = {.lex_state = 247, .external_lex_state = 2},
+  [2526] = {.lex_state = 243, .external_lex_state = 2},
+  [2527] = {.lex_state = 243, .external_lex_state = 2},
+  [2528] = {.lex_state = 243, .external_lex_state = 2},
   [2529] = {.lex_state = 243, .external_lex_state = 2},
-  [2530] = {.lex_state = 235, .external_lex_state = 2},
-  [2531] = {.lex_state = 246, .external_lex_state = 2},
-  [2532] = {.lex_state = 286, .external_lex_state = 6},
-  [2533] = {.lex_state = 247, .external_lex_state = 2},
-  [2534] = {.lex_state = 247, .external_lex_state = 2},
-  [2535] = {.lex_state = 235, .external_lex_state = 2},
-  [2536] = {.lex_state = 238, .external_lex_state = 2},
+  [2530] = {.lex_state = 243, .external_lex_state = 2},
+  [2531] = {.lex_state = 243, .external_lex_state = 2},
+  [2532] = {.lex_state = 247, .external_lex_state = 2},
+  [2533] = {.lex_state = 243, .external_lex_state = 2},
+  [2534] = {.lex_state = 238, .external_lex_state = 2},
+  [2535] = {.lex_state = 238, .external_lex_state = 2},
+  [2536] = {.lex_state = 239, .external_lex_state = 2},
   [2537] = {.lex_state = 247, .external_lex_state = 2},
-  [2538] = {.lex_state = 246, .external_lex_state = 2},
-  [2539] = {.lex_state = 246, .external_lex_state = 2},
-  [2540] = {.lex_state = 247, .external_lex_state = 2},
-  [2541] = {.lex_state = 235, .external_lex_state = 2},
-  [2542] = {.lex_state = 243, .external_lex_state = 2},
-  [2543] = {.lex_state = 241, .external_lex_state = 2},
-  [2544] = {.lex_state = 243, .external_lex_state = 2},
-  [2545] = {.lex_state = 247, .external_lex_state = 2},
-  [2546] = {.lex_state = 241, .external_lex_state = 2},
-  [2547] = {.lex_state = 247, .external_lex_state = 2},
-  [2548] = {.lex_state = 235, .external_lex_state = 2},
-  [2549] = {.lex_state = 246, .external_lex_state = 2},
-  [2550] = {.lex_state = 286, .external_lex_state = 6},
+  [2538] = {.lex_state = 244, .external_lex_state = 2},
+  [2539] = {.lex_state = 239, .external_lex_state = 2},
+  [2540] = {.lex_state = 244, .external_lex_state = 2},
+  [2541] = {.lex_state = 244, .external_lex_state = 2},
+  [2542] = {.lex_state = 246, .external_lex_state = 2},
+  [2543] = {.lex_state = 286, .external_lex_state = 6},
+  [2544] = {.lex_state = 246, .external_lex_state = 2},
+  [2545] = {.lex_state = 246, .external_lex_state = 2},
+  [2546] = {.lex_state = 235, .external_lex_state = 2},
+  [2547] = {.lex_state = 244, .external_lex_state = 2},
+  [2548] = {.lex_state = 245, .external_lex_state = 2},
+  [2549] = {.lex_state = 243, .external_lex_state = 2},
+  [2550] = {.lex_state = 243, .external_lex_state = 2},
   [2551] = {.lex_state = 245, .external_lex_state = 2},
-  [2552] = {.lex_state = 247, .external_lex_state = 2},
-  [2553] = {.lex_state = 247, .external_lex_state = 2},
-  [2554] = {.lex_state = 246, .external_lex_state = 2},
+  [2552] = {.lex_state = 246, .external_lex_state = 2},
+  [2553] = {.lex_state = 245, .external_lex_state = 2},
+  [2554] = {.lex_state = 245, .external_lex_state = 2},
   [2555] = {.lex_state = 246, .external_lex_state = 2},
-  [2556] = {.lex_state = 243, .external_lex_state = 2},
-  [2557] = {.lex_state = 246, .external_lex_state = 2},
-  [2558] = {.lex_state = 243, .external_lex_state = 2},
-  [2559] = {.lex_state = 246, .external_lex_state = 2},
-  [2560] = {.lex_state = 244, .external_lex_state = 2},
-  [2561] = {.lex_state = 246, .external_lex_state = 2},
-  [2562] = {.lex_state = 246, .external_lex_state = 2},
-  [2563] = {.lex_state = 235, .external_lex_state = 2},
-  [2564] = {.lex_state = 246, .external_lex_state = 2},
-  [2565] = {.lex_state = 244, .external_lex_state = 2},
-  [2566] = {.lex_state = 246, .external_lex_state = 2},
-  [2567] = {.lex_state = 235, .external_lex_state = 2},
-  [2568] = {.lex_state = 238, .external_lex_state = 2},
-  [2569] = {.lex_state = 243, .external_lex_state = 2},
-  [2570] = {.lex_state = 246, .external_lex_state = 2},
-  [2571] = {.lex_state = 243, .external_lex_state = 2},
-  [2572] = {.lex_state = 246, .external_lex_state = 2},
-  [2573] = {.lex_state = 244, .external_lex_state = 2},
-  [2574] = {.lex_state = 245, .external_lex_state = 2},
-  [2575] = {.lex_state = 246, .external_lex_state = 2},
-  [2576] = {.lex_state = 243, .external_lex_state = 2},
-  [2577] = {.lex_state = 235, .external_lex_state = 2},
-  [2578] = {.lex_state = 244, .external_lex_state = 2},
-  [2579] = {.lex_state = 238, .external_lex_state = 2},
-  [2580] = {.lex_state = 286, .external_lex_state = 6},
-  [2581] = {.lex_state = 243, .external_lex_state = 2},
-  [2582] = {.lex_state = 244, .external_lex_state = 2},
-  [2583] = {.lex_state = 286, .external_lex_state = 6},
-  [2584] = {.lex_state = 245, .external_lex_state = 2},
-  [2585] = {.lex_state = 245, .external_lex_state = 2},
-  [2586] = {.lex_state = 243, .external_lex_state = 2},
-  [2587] = {.lex_state = 286, .external_lex_state = 6},
-  [2588] = {.lex_state = 245, .external_lex_state = 2},
-  [2589] = {.lex_state = 245, .external_lex_state = 2},
-  [2590] = {.lex_state = 241, .external_lex_state = 2},
-  [2591] = {.lex_state = 274, .external_lex_state = 2},
-  [2592] = {.lex_state = 274, .external_lex_state = 2},
-  [2593] = {.lex_state = 235, .external_lex_state = 2},
-  [2594] = {.lex_state = 274, .external_lex_state = 2},
-  [2595] = {.lex_state = 286, .external_lex_state = 6},
+  [2556] = {.lex_state = 239, .external_lex_state = 2},
+  [2557] = {.lex_state = 245, .external_lex_state = 2},
+  [2558] = {.lex_state = 239, .external_lex_state = 2},
+  [2559] = {.lex_state = 245, .external_lex_state = 2},
+  [2560] = {.lex_state = 245, .external_lex_state = 2},
+  [2561] = {.lex_state = 241, .external_lex_state = 2},
+  [2562] = {.lex_state = 241, .external_lex_state = 2},
+  [2563] = {.lex_state = 241, .external_lex_state = 2},
+  [2564] = {.lex_state = 241, .external_lex_state = 2},
+  [2565] = {.lex_state = 241, .external_lex_state = 2},
+  [2566] = {.lex_state = 241, .external_lex_state = 2},
+  [2567] = {.lex_state = 243, .external_lex_state = 2},
+  [2568] = {.lex_state = 239, .external_lex_state = 2},
+  [2569] = {.lex_state = 274, .external_lex_state = 2},
+  [2570] = {.lex_state = 274, .external_lex_state = 2},
+  [2571] = {.lex_state = 241, .external_lex_state = 2},
+  [2572] = {.lex_state = 274, .external_lex_state = 2},
+  [2573] = {.lex_state = 238, .external_lex_state = 2},
+  [2574] = {.lex_state = 274, .external_lex_state = 2},
+  [2575] = {.lex_state = 238, .external_lex_state = 2},
+  [2576] = {.lex_state = 274, .external_lex_state = 2},
+  [2577] = {.lex_state = 243, .external_lex_state = 2},
+  [2578] = {.lex_state = 274, .external_lex_state = 2},
+  [2579] = {.lex_state = 246, .external_lex_state = 2},
+  [2580] = {.lex_state = 246, .external_lex_state = 2},
+  [2581] = {.lex_state = 235, .external_lex_state = 2},
+  [2582] = {.lex_state = 274, .external_lex_state = 2},
+  [2583] = {.lex_state = 239, .external_lex_state = 2},
+  [2584] = {.lex_state = 238, .external_lex_state = 2},
+  [2585] = {.lex_state = 238, .external_lex_state = 2},
+  [2586] = {.lex_state = 238, .external_lex_state = 2},
+  [2587] = {.lex_state = 246, .external_lex_state = 2},
+  [2588] = {.lex_state = 244, .external_lex_state = 2},
+  [2589] = {.lex_state = 244, .external_lex_state = 2},
+  [2590] = {.lex_state = 238, .external_lex_state = 2},
+  [2591] = {.lex_state = 235, .external_lex_state = 2},
+  [2592] = {.lex_state = 241, .external_lex_state = 2},
+  [2593] = {.lex_state = 245, .external_lex_state = 2},
+  [2594] = {.lex_state = 241, .external_lex_state = 2},
+  [2595] = {.lex_state = 241, .external_lex_state = 2},
   [2596] = {.lex_state = 245, .external_lex_state = 2},
-  [2597] = {.lex_state = 274, .external_lex_state = 2},
-  [2598] = {.lex_state = 243, .external_lex_state = 2},
-  [2599] = {.lex_state = 238, .external_lex_state = 2},
-  [2600] = {.lex_state = 274, .external_lex_state = 2},
-  [2601] = {.lex_state = 244, .external_lex_state = 2},
-  [2602] = {.lex_state = 245, .external_lex_state = 2},
+  [2597] = {.lex_state = 238, .external_lex_state = 2},
+  [2598] = {.lex_state = 235, .external_lex_state = 2},
+  [2599] = {.lex_state = 244, .external_lex_state = 2},
+  [2600] = {.lex_state = 245, .external_lex_state = 2},
+  [2601] = {.lex_state = 241, .external_lex_state = 2},
+  [2602] = {.lex_state = 241, .external_lex_state = 2},
   [2603] = {.lex_state = 244, .external_lex_state = 2},
-  [2604] = {.lex_state = 274, .external_lex_state = 2},
-  [2605] = {.lex_state = 238, .external_lex_state = 2},
-  [2606] = {.lex_state = 244, .external_lex_state = 2},
-  [2607] = {.lex_state = 243, .external_lex_state = 2},
-  [2608] = {.lex_state = 274, .external_lex_state = 2},
-  [2609] = {.lex_state = 274, .external_lex_state = 2},
-  [2610] = {.lex_state = 243, .external_lex_state = 2},
+  [2604] = {.lex_state = 245, .external_lex_state = 2},
+  [2605] = {.lex_state = 245, .external_lex_state = 2},
+  [2606] = {.lex_state = 241, .external_lex_state = 2},
+  [2607] = {.lex_state = 241, .external_lex_state = 2},
+  [2608] = {.lex_state = 245, .external_lex_state = 2},
+  [2609] = {.lex_state = 238, .external_lex_state = 2},
+  [2610] = {.lex_state = 245, .external_lex_state = 2},
   [2611] = {.lex_state = 241, .external_lex_state = 2},
-  [2612] = {.lex_state = 238, .external_lex_state = 2},
-  [2613] = {.lex_state = 244, .external_lex_state = 2},
-  [2614] = {.lex_state = 238, .external_lex_state = 2},
+  [2612] = {.lex_state = 245, .external_lex_state = 2},
+  [2613] = {.lex_state = 241, .external_lex_state = 2},
+  [2614] = {.lex_state = 243, .external_lex_state = 2},
   [2615] = {.lex_state = 241, .external_lex_state = 2},
-  [2616] = {.lex_state = 243, .external_lex_state = 2},
-  [2617] = {.lex_state = 244, .external_lex_state = 2},
-  [2618] = {.lex_state = 243, .external_lex_state = 2},
-  [2619] = {.lex_state = 245, .external_lex_state = 2},
-  [2620] = {.lex_state = 238, .external_lex_state = 2},
-  [2621] = {.lex_state = 244, .external_lex_state = 2},
-  [2622] = {.lex_state = 238, .external_lex_state = 2},
-  [2623] = {.lex_state = 245, .external_lex_state = 2},
-  [2624] = {.lex_state = 243, .external_lex_state = 2},
+  [2616] = {.lex_state = 235, .external_lex_state = 2},
+  [2617] = {.lex_state = 246, .external_lex_state = 2},
+  [2618] = {.lex_state = 286, .external_lex_state = 6},
+  [2619] = {.lex_state = 235, .external_lex_state = 2},
+  [2620] = {.lex_state = 274, .external_lex_state = 2},
+  [2621] = {.lex_state = 243, .external_lex_state = 2},
+  [2622] = {.lex_state = 235, .external_lex_state = 2},
+  [2623] = {.lex_state = 243, .external_lex_state = 2},
+  [2624] = {.lex_state = 235, .external_lex_state = 2},
   [2625] = {.lex_state = 235, .external_lex_state = 2},
-  [2626] = {.lex_state = 243, .external_lex_state = 2},
-  [2627] = {.lex_state = 238, .external_lex_state = 2},
-  [2628] = {.lex_state = 241, .external_lex_state = 2},
-  [2629] = {.lex_state = 238, .external_lex_state = 2},
-  [2630] = {.lex_state = 243, .external_lex_state = 2},
-  [2631] = {.lex_state = 238, .external_lex_state = 2},
-  [2632] = {.lex_state = 245, .external_lex_state = 2},
+  [2626] = {.lex_state = 235, .external_lex_state = 2},
+  [2627] = {.lex_state = 235, .external_lex_state = 2},
+  [2628] = {.lex_state = 235, .external_lex_state = 2},
+  [2629] = {.lex_state = 235, .external_lex_state = 2},
+  [2630] = {.lex_state = 235, .external_lex_state = 2},
+  [2631] = {.lex_state = 235, .external_lex_state = 2},
+  [2632] = {.lex_state = 235, .external_lex_state = 2},
   [2633] = {.lex_state = 245, .external_lex_state = 2},
-  [2634] = {.lex_state = 238, .external_lex_state = 2},
-  [2635] = {.lex_state = 286, .external_lex_state = 6},
-  [2636] = {.lex_state = 238, .external_lex_state = 2},
-  [2637] = {.lex_state = 241, .external_lex_state = 2},
-  [2638] = {.lex_state = 235, .external_lex_state = 2},
-  [2639] = {.lex_state = 247, .external_lex_state = 2},
-  [2640] = {.lex_state = 244, .external_lex_state = 2},
+  [2634] = {.lex_state = 245, .external_lex_state = 2},
+  [2635] = {.lex_state = 245, .external_lex_state = 2},
+  [2636] = {.lex_state = 245, .external_lex_state = 2},
+  [2637] = {.lex_state = 245, .external_lex_state = 2},
+  [2638] = {.lex_state = 245, .external_lex_state = 2},
+  [2639] = {.lex_state = 246, .external_lex_state = 2},
+  [2640] = {.lex_state = 238, .external_lex_state = 2},
   [2641] = {.lex_state = 245, .external_lex_state = 2},
-  [2642] = {.lex_state = 245, .external_lex_state = 2},
+  [2642] = {.lex_state = 244, .external_lex_state = 2},
   [2643] = {.lex_state = 239, .external_lex_state = 2},
-  [2644] = {.lex_state = 286, .external_lex_state = 5},
+  [2644] = {.lex_state = 239, .external_lex_state = 2},
   [2645] = {.lex_state = 239, .external_lex_state = 2},
   [2646] = {.lex_state = 239, .external_lex_state = 2},
   [2647] = {.lex_state = 239, .external_lex_state = 2},
   [2648] = {.lex_state = 239, .external_lex_state = 2},
   [2649] = {.lex_state = 239, .external_lex_state = 2},
-  [2650] = {.lex_state = 239, .external_lex_state = 2},
+  [2650] = {.lex_state = 286, .external_lex_state = 5},
   [2651] = {.lex_state = 239, .external_lex_state = 2},
   [2652] = {.lex_state = 239, .external_lex_state = 2},
   [2653] = {.lex_state = 239, .external_lex_state = 2},
@@ -40190,268 +39942,268 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [2668] = {.lex_state = 239, .external_lex_state = 2},
   [2669] = {.lex_state = 294, .external_lex_state = 2},
   [2670] = {.lex_state = 286, .external_lex_state = 6},
-  [2671] = {.lex_state = 276, .external_lex_state = 4},
-  [2672] = {.lex_state = 294, .external_lex_state = 2},
+  [2671] = {.lex_state = 294, .external_lex_state = 2},
+  [2672] = {.lex_state = 276, .external_lex_state = 4},
   [2673] = {.lex_state = 276, .external_lex_state = 4},
-  [2674] = {.lex_state = 276, .external_lex_state = 4},
-  [2675] = {.lex_state = 294, .external_lex_state = 2},
-  [2676] = {.lex_state = 276, .external_lex_state = 4},
-  [2677] = {.lex_state = 294, .external_lex_state = 2},
+  [2674] = {.lex_state = 294, .external_lex_state = 2},
+  [2675] = {.lex_state = 276, .external_lex_state = 4},
+  [2676] = {.lex_state = 294, .external_lex_state = 2},
+  [2677] = {.lex_state = 276, .external_lex_state = 4},
   [2678] = {.lex_state = 276, .external_lex_state = 4},
-  [2679] = {.lex_state = 251, .external_lex_state = 4},
-  [2680] = {.lex_state = 225, .external_lex_state = 4},
-  [2681] = {.lex_state = 225, .external_lex_state = 4},
+  [2679] = {.lex_state = 276, .external_lex_state = 4},
+  [2680] = {.lex_state = 276, .external_lex_state = 4},
+  [2681] = {.lex_state = 276, .external_lex_state = 4},
   [2682] = {.lex_state = 276, .external_lex_state = 4},
-  [2683] = {.lex_state = 286, .external_lex_state = 6},
+  [2683] = {.lex_state = 276, .external_lex_state = 4},
   [2684] = {.lex_state = 276, .external_lex_state = 4},
   [2685] = {.lex_state = 276, .external_lex_state = 4},
-  [2686] = {.lex_state = 276, .external_lex_state = 4},
+  [2686] = {.lex_state = 225, .external_lex_state = 4},
   [2687] = {.lex_state = 276, .external_lex_state = 4},
-  [2688] = {.lex_state = 276, .external_lex_state = 4},
-  [2689] = {.lex_state = 276, .external_lex_state = 4},
-  [2690] = {.lex_state = 276, .external_lex_state = 4},
-  [2691] = {.lex_state = 276, .external_lex_state = 4},
-  [2692] = {.lex_state = 276, .external_lex_state = 4},
+  [2688] = {.lex_state = 225, .external_lex_state = 4},
+  [2689] = {.lex_state = 251, .external_lex_state = 4},
+  [2690] = {.lex_state = 225, .external_lex_state = 4},
+  [2691] = {.lex_state = 225, .external_lex_state = 4},
+  [2692] = {.lex_state = 251, .external_lex_state = 4},
   [2693] = {.lex_state = 251, .external_lex_state = 4},
-  [2694] = {.lex_state = 294, .external_lex_state = 2},
-  [2695] = {.lex_state = 294, .external_lex_state = 2},
-  [2696] = {.lex_state = 276, .external_lex_state = 4},
-  [2697] = {.lex_state = 276, .external_lex_state = 4},
+  [2694] = {.lex_state = 276, .external_lex_state = 4},
+  [2695] = {.lex_state = 276, .external_lex_state = 4},
+  [2696] = {.lex_state = 294, .external_lex_state = 2},
+  [2697] = {.lex_state = 294, .external_lex_state = 2},
   [2698] = {.lex_state = 294, .external_lex_state = 2},
-  [2699] = {.lex_state = 251, .external_lex_state = 4},
-  [2700] = {.lex_state = 225, .external_lex_state = 4},
-  [2701] = {.lex_state = 276, .external_lex_state = 4},
-  [2702] = {.lex_state = 251, .external_lex_state = 4},
-  [2703] = {.lex_state = 251, .external_lex_state = 4},
-  [2704] = {.lex_state = 251, .external_lex_state = 4},
-  [2705] = {.lex_state = 225, .external_lex_state = 4},
+  [2699] = {.lex_state = 276, .external_lex_state = 4},
+  [2700] = {.lex_state = 251, .external_lex_state = 4},
+  [2701] = {.lex_state = 251, .external_lex_state = 4},
+  [2702] = {.lex_state = 225, .external_lex_state = 4},
+  [2703] = {.lex_state = 276, .external_lex_state = 4},
+  [2704] = {.lex_state = 225, .external_lex_state = 4},
+  [2705] = {.lex_state = 276, .external_lex_state = 4},
   [2706] = {.lex_state = 225, .external_lex_state = 4},
   [2707] = {.lex_state = 276, .external_lex_state = 4},
-  [2708] = {.lex_state = 276, .external_lex_state = 4},
-  [2709] = {.lex_state = 225, .external_lex_state = 4},
-  [2710] = {.lex_state = 225, .external_lex_state = 4},
-  [2711] = {.lex_state = 294, .external_lex_state = 2},
-  [2712] = {.lex_state = 294, .external_lex_state = 2},
-  [2713] = {.lex_state = 294, .external_lex_state = 3},
-  [2714] = {.lex_state = 294, .external_lex_state = 2},
-  [2715] = {.lex_state = 225, .external_lex_state = 4},
-  [2716] = {.lex_state = 225, .external_lex_state = 4},
+  [2708] = {.lex_state = 225, .external_lex_state = 4},
+  [2709] = {.lex_state = 276, .external_lex_state = 4},
+  [2710] = {.lex_state = 276, .external_lex_state = 4},
+  [2711] = {.lex_state = 276, .external_lex_state = 4},
+  [2712] = {.lex_state = 276, .external_lex_state = 4},
+  [2713] = {.lex_state = 276, .external_lex_state = 4},
+  [2714] = {.lex_state = 251, .external_lex_state = 4},
+  [2715] = {.lex_state = 276, .external_lex_state = 4},
+  [2716] = {.lex_state = 251, .external_lex_state = 4},
   [2717] = {.lex_state = 276, .external_lex_state = 4},
-  [2718] = {.lex_state = 286, .external_lex_state = 6},
-  [2719] = {.lex_state = 276, .external_lex_state = 4},
+  [2718] = {.lex_state = 276, .external_lex_state = 4},
+  [2719] = {.lex_state = 294, .external_lex_state = 2},
   [2720] = {.lex_state = 276, .external_lex_state = 4},
-  [2721] = {.lex_state = 251, .external_lex_state = 4},
+  [2721] = {.lex_state = 276, .external_lex_state = 4},
   [2722] = {.lex_state = 276, .external_lex_state = 4},
-  [2723] = {.lex_state = 251, .external_lex_state = 4},
-  [2724] = {.lex_state = 251, .external_lex_state = 4},
+  [2723] = {.lex_state = 276, .external_lex_state = 4},
+  [2724] = {.lex_state = 276, .external_lex_state = 4},
   [2725] = {.lex_state = 276, .external_lex_state = 4},
-  [2726] = {.lex_state = 251, .external_lex_state = 4},
-  [2727] = {.lex_state = 225, .external_lex_state = 4},
-  [2728] = {.lex_state = 276, .external_lex_state = 4},
-  [2729] = {.lex_state = 276, .external_lex_state = 4},
-  [2730] = {.lex_state = 276, .external_lex_state = 4},
+  [2726] = {.lex_state = 276, .external_lex_state = 4},
+  [2727] = {.lex_state = 251, .external_lex_state = 4},
+  [2728] = {.lex_state = 294, .external_lex_state = 2},
+  [2729] = {.lex_state = 294, .external_lex_state = 2},
+  [2730] = {.lex_state = 294, .external_lex_state = 2},
   [2731] = {.lex_state = 276, .external_lex_state = 4},
   [2732] = {.lex_state = 294, .external_lex_state = 2},
-  [2733] = {.lex_state = 276, .external_lex_state = 4},
-  [2734] = {.lex_state = 294, .external_lex_state = 2},
-  [2735] = {.lex_state = 276, .external_lex_state = 4},
-  [2736] = {.lex_state = 251, .external_lex_state = 4},
-  [2737] = {.lex_state = 251, .external_lex_state = 4},
-  [2738] = {.lex_state = 251, .external_lex_state = 4},
-  [2739] = {.lex_state = 225, .external_lex_state = 4},
-  [2740] = {.lex_state = 276, .external_lex_state = 4},
-  [2741] = {.lex_state = 276, .external_lex_state = 4},
-  [2742] = {.lex_state = 276, .external_lex_state = 4},
-  [2743] = {.lex_state = 294, .external_lex_state = 2},
-  [2744] = {.lex_state = 276, .external_lex_state = 4},
-  [2745] = {.lex_state = 225, .external_lex_state = 4},
+  [2733] = {.lex_state = 294, .external_lex_state = 2},
+  [2734] = {.lex_state = 276, .external_lex_state = 4},
+  [2735] = {.lex_state = 225, .external_lex_state = 4},
+  [2736] = {.lex_state = 225, .external_lex_state = 4},
+  [2737] = {.lex_state = 294, .external_lex_state = 3},
+  [2738] = {.lex_state = 294, .external_lex_state = 2},
+  [2739] = {.lex_state = 294, .external_lex_state = 2},
+  [2740] = {.lex_state = 225, .external_lex_state = 4},
+  [2741] = {.lex_state = 251, .external_lex_state = 4},
+  [2742] = {.lex_state = 294, .external_lex_state = 2},
+  [2743] = {.lex_state = 251, .external_lex_state = 4},
+  [2744] = {.lex_state = 225, .external_lex_state = 4},
+  [2745] = {.lex_state = 286, .external_lex_state = 6},
   [2746] = {.lex_state = 294, .external_lex_state = 2},
-  [2747] = {.lex_state = 294, .external_lex_state = 2},
-  [2748] = {.lex_state = 225, .external_lex_state = 4},
-  [2749] = {.lex_state = 225, .external_lex_state = 4},
-  [2750] = {.lex_state = 294, .external_lex_state = 2},
-  [2751] = {.lex_state = 294, .external_lex_state = 2},
-  [2752] = {.lex_state = 251, .external_lex_state = 4},
-  [2753] = {.lex_state = 251, .external_lex_state = 4},
-  [2754] = {.lex_state = 294, .external_lex_state = 2},
-  [2755] = {.lex_state = 294, .external_lex_state = 2},
-  [2756] = {.lex_state = 294, .external_lex_state = 2},
-  [2757] = {.lex_state = 294, .external_lex_state = 2},
+  [2747] = {.lex_state = 251, .external_lex_state = 4},
+  [2748] = {.lex_state = 294, .external_lex_state = 2},
+  [2749] = {.lex_state = 294, .external_lex_state = 2},
+  [2750] = {.lex_state = 276, .external_lex_state = 4},
+  [2751] = {.lex_state = 251, .external_lex_state = 4},
+  [2752] = {.lex_state = 294, .external_lex_state = 2},
+  [2753] = {.lex_state = 294, .external_lex_state = 2},
+  [2754] = {.lex_state = 251, .external_lex_state = 4},
+  [2755] = {.lex_state = 225, .external_lex_state = 4},
+  [2756] = {.lex_state = 251, .external_lex_state = 4},
+  [2757] = {.lex_state = 225, .external_lex_state = 4},
   [2758] = {.lex_state = 294, .external_lex_state = 2},
   [2759] = {.lex_state = 251, .external_lex_state = 4},
-  [2760] = {.lex_state = 294, .external_lex_state = 2},
+  [2760] = {.lex_state = 225, .external_lex_state = 4},
   [2761] = {.lex_state = 294, .external_lex_state = 2},
   [2762] = {.lex_state = 276, .external_lex_state = 4},
   [2763] = {.lex_state = 225, .external_lex_state = 4},
   [2764] = {.lex_state = 276, .external_lex_state = 4},
-  [2765] = {.lex_state = 276, .external_lex_state = 4},
-  [2766] = {.lex_state = 276, .external_lex_state = 4},
+  [2765] = {.lex_state = 286, .external_lex_state = 6},
+  [2766] = {.lex_state = 294, .external_lex_state = 2},
   [2767] = {.lex_state = 294, .external_lex_state = 2},
   [2768] = {.lex_state = 294, .external_lex_state = 2},
   [2769] = {.lex_state = 294, .external_lex_state = 2},
-  [2770] = {.lex_state = 294, .external_lex_state = 2},
-  [2771] = {.lex_state = 225, .external_lex_state = 4},
-  [2772] = {.lex_state = 251, .external_lex_state = 4},
-  [2773] = {.lex_state = 251, .external_lex_state = 4},
+  [2770] = {.lex_state = 251, .external_lex_state = 4},
+  [2771] = {.lex_state = 294, .external_lex_state = 2},
+  [2772] = {.lex_state = 225, .external_lex_state = 4},
+  [2773] = {.lex_state = 225, .external_lex_state = 4},
   [2774] = {.lex_state = 251, .external_lex_state = 4},
-  [2775] = {.lex_state = 225, .external_lex_state = 4},
+  [2775] = {.lex_state = 251, .external_lex_state = 4},
   [2776] = {.lex_state = 225, .external_lex_state = 4},
-  [2777] = {.lex_state = 225, .external_lex_state = 4},
-  [2778] = {.lex_state = 225, .external_lex_state = 4},
+  [2777] = {.lex_state = 294, .external_lex_state = 2},
+  [2778] = {.lex_state = 294, .external_lex_state = 3},
   [2779] = {.lex_state = 251, .external_lex_state = 4},
-  [2780] = {.lex_state = 251, .external_lex_state = 4},
-  [2781] = {.lex_state = 225, .external_lex_state = 4},
+  [2780] = {.lex_state = 294, .external_lex_state = 2},
+  [2781] = {.lex_state = 294, .external_lex_state = 2},
   [2782] = {.lex_state = 251, .external_lex_state = 4},
-  [2783] = {.lex_state = 294, .external_lex_state = 2},
+  [2783] = {.lex_state = 251, .external_lex_state = 4},
   [2784] = {.lex_state = 225, .external_lex_state = 4},
-  [2785] = {.lex_state = 294, .external_lex_state = 2},
-  [2786] = {.lex_state = 225, .external_lex_state = 4},
-  [2787] = {.lex_state = 225, .external_lex_state = 4},
+  [2785] = {.lex_state = 251, .external_lex_state = 4},
+  [2786] = {.lex_state = 251, .external_lex_state = 4},
+  [2787] = {.lex_state = 251, .external_lex_state = 4},
   [2788] = {.lex_state = 225, .external_lex_state = 4},
-  [2789] = {.lex_state = 294, .external_lex_state = 2},
-  [2790] = {.lex_state = 225, .external_lex_state = 4},
-  [2791] = {.lex_state = 225, .external_lex_state = 4},
-  [2792] = {.lex_state = 294, .external_lex_state = 2},
+  [2789] = {.lex_state = 225, .external_lex_state = 4},
+  [2790] = {.lex_state = 251, .external_lex_state = 4},
+  [2791] = {.lex_state = 251, .external_lex_state = 4},
+  [2792] = {.lex_state = 251, .external_lex_state = 4},
   [2793] = {.lex_state = 251, .external_lex_state = 4},
   [2794] = {.lex_state = 251, .external_lex_state = 4},
   [2795] = {.lex_state = 251, .external_lex_state = 4},
-  [2796] = {.lex_state = 225, .external_lex_state = 4},
-  [2797] = {.lex_state = 294, .external_lex_state = 2},
+  [2796] = {.lex_state = 251, .external_lex_state = 4},
+  [2797] = {.lex_state = 251, .external_lex_state = 4},
   [2798] = {.lex_state = 251, .external_lex_state = 4},
-  [2799] = {.lex_state = 225, .external_lex_state = 4},
-  [2800] = {.lex_state = 225, .external_lex_state = 4},
-  [2801] = {.lex_state = 251, .external_lex_state = 4},
-  [2802] = {.lex_state = 251, .external_lex_state = 4},
-  [2803] = {.lex_state = 294, .external_lex_state = 2},
-  [2804] = {.lex_state = 251, .external_lex_state = 4},
+  [2799] = {.lex_state = 294, .external_lex_state = 2},
+  [2800] = {.lex_state = 251, .external_lex_state = 4},
+  [2801] = {.lex_state = 225, .external_lex_state = 4},
+  [2802] = {.lex_state = 294, .external_lex_state = 2},
+  [2803] = {.lex_state = 225, .external_lex_state = 4},
+  [2804] = {.lex_state = 294, .external_lex_state = 2},
   [2805] = {.lex_state = 251, .external_lex_state = 4},
-  [2806] = {.lex_state = 294, .external_lex_state = 2},
-  [2807] = {.lex_state = 251, .external_lex_state = 4},
+  [2806] = {.lex_state = 251, .external_lex_state = 4},
+  [2807] = {.lex_state = 225, .external_lex_state = 4},
   [2808] = {.lex_state = 251, .external_lex_state = 4},
   [2809] = {.lex_state = 251, .external_lex_state = 4},
   [2810] = {.lex_state = 251, .external_lex_state = 4},
-  [2811] = {.lex_state = 251, .external_lex_state = 4},
+  [2811] = {.lex_state = 294, .external_lex_state = 2},
   [2812] = {.lex_state = 225, .external_lex_state = 4},
-  [2813] = {.lex_state = 251, .external_lex_state = 4},
+  [2813] = {.lex_state = 294, .external_lex_state = 2},
   [2814] = {.lex_state = 251, .external_lex_state = 4},
-  [2815] = {.lex_state = 225, .external_lex_state = 4},
-  [2816] = {.lex_state = 251, .external_lex_state = 4},
+  [2815] = {.lex_state = 294, .external_lex_state = 3},
+  [2816] = {.lex_state = 225, .external_lex_state = 4},
   [2817] = {.lex_state = 225, .external_lex_state = 4},
-  [2818] = {.lex_state = 251, .external_lex_state = 4},
-  [2819] = {.lex_state = 251, .external_lex_state = 4},
-  [2820] = {.lex_state = 251, .external_lex_state = 4},
-  [2821] = {.lex_state = 251, .external_lex_state = 4},
-  [2822] = {.lex_state = 225, .external_lex_state = 4},
+  [2818] = {.lex_state = 294, .external_lex_state = 3},
+  [2819] = {.lex_state = 225, .external_lex_state = 4},
+  [2820] = {.lex_state = 225, .external_lex_state = 4},
+  [2821] = {.lex_state = 225, .external_lex_state = 4},
+  [2822] = {.lex_state = 294, .external_lex_state = 3},
   [2823] = {.lex_state = 225, .external_lex_state = 4},
   [2824] = {.lex_state = 251, .external_lex_state = 4},
-  [2825] = {.lex_state = 294, .external_lex_state = 2},
-  [2826] = {.lex_state = 225, .external_lex_state = 4},
+  [2825] = {.lex_state = 251, .external_lex_state = 4},
+  [2826] = {.lex_state = 251, .external_lex_state = 4},
   [2827] = {.lex_state = 251, .external_lex_state = 4},
-  [2828] = {.lex_state = 251, .external_lex_state = 4},
-  [2829] = {.lex_state = 225, .external_lex_state = 4},
-  [2830] = {.lex_state = 251, .external_lex_state = 4},
-  [2831] = {.lex_state = 294, .external_lex_state = 3},
+  [2828] = {.lex_state = 225, .external_lex_state = 4},
+  [2829] = {.lex_state = 294, .external_lex_state = 2},
+  [2830] = {.lex_state = 225, .external_lex_state = 4},
+  [2831] = {.lex_state = 251, .external_lex_state = 4},
   [2832] = {.lex_state = 251, .external_lex_state = 4},
-  [2833] = {.lex_state = 251, .external_lex_state = 4},
+  [2833] = {.lex_state = 225, .external_lex_state = 4},
   [2834] = {.lex_state = 225, .external_lex_state = 4},
   [2835] = {.lex_state = 225, .external_lex_state = 4},
-  [2836] = {.lex_state = 294, .external_lex_state = 2},
-  [2837] = {.lex_state = 294, .external_lex_state = 2},
+  [2836] = {.lex_state = 225, .external_lex_state = 4},
+  [2837] = {.lex_state = 225, .external_lex_state = 4},
   [2838] = {.lex_state = 225, .external_lex_state = 4},
-  [2839] = {.lex_state = 251, .external_lex_state = 4},
-  [2840] = {.lex_state = 251, .external_lex_state = 4},
+  [2839] = {.lex_state = 225, .external_lex_state = 4},
+  [2840] = {.lex_state = 225, .external_lex_state = 4},
   [2841] = {.lex_state = 225, .external_lex_state = 4},
   [2842] = {.lex_state = 251, .external_lex_state = 4},
-  [2843] = {.lex_state = 225, .external_lex_state = 4},
-  [2844] = {.lex_state = 225, .external_lex_state = 4},
-  [2845] = {.lex_state = 251, .external_lex_state = 4},
+  [2843] = {.lex_state = 251, .external_lex_state = 4},
+  [2844] = {.lex_state = 251, .external_lex_state = 4},
+  [2845] = {.lex_state = 225, .external_lex_state = 4},
   [2846] = {.lex_state = 225, .external_lex_state = 4},
-  [2847] = {.lex_state = 251, .external_lex_state = 4},
-  [2848] = {.lex_state = 294, .external_lex_state = 3},
+  [2847] = {.lex_state = 225, .external_lex_state = 4},
+  [2848] = {.lex_state = 225, .external_lex_state = 4},
   [2849] = {.lex_state = 225, .external_lex_state = 4},
-  [2850] = {.lex_state = 251, .external_lex_state = 4},
-  [2851] = {.lex_state = 294, .external_lex_state = 3},
-  [2852] = {.lex_state = 225, .external_lex_state = 4},
+  [2850] = {.lex_state = 294, .external_lex_state = 3},
+  [2851] = {.lex_state = 251, .external_lex_state = 4},
+  [2852] = {.lex_state = 251, .external_lex_state = 4},
   [2853] = {.lex_state = 225, .external_lex_state = 4},
   [2854] = {.lex_state = 225, .external_lex_state = 4},
   [2855] = {.lex_state = 225, .external_lex_state = 4},
   [2856] = {.lex_state = 225, .external_lex_state = 4},
-  [2857] = {.lex_state = 225, .external_lex_state = 4},
-  [2858] = {.lex_state = 251, .external_lex_state = 4},
-  [2859] = {.lex_state = 251, .external_lex_state = 4},
-  [2860] = {.lex_state = 251, .external_lex_state = 4},
-  [2861] = {.lex_state = 225, .external_lex_state = 4},
+  [2857] = {.lex_state = 294, .external_lex_state = 2},
+  [2858] = {.lex_state = 225, .external_lex_state = 4},
+  [2859] = {.lex_state = 225, .external_lex_state = 4},
+  [2860] = {.lex_state = 294, .external_lex_state = 2},
+  [2861] = {.lex_state = 294, .external_lex_state = 2},
   [2862] = {.lex_state = 225, .external_lex_state = 4},
-  [2863] = {.lex_state = 294, .external_lex_state = 3},
-  [2864] = {.lex_state = 225, .external_lex_state = 4},
-  [2865] = {.lex_state = 225, .external_lex_state = 4},
+  [2863] = {.lex_state = 251, .external_lex_state = 4},
+  [2864] = {.lex_state = 294, .external_lex_state = 2},
+  [2865] = {.lex_state = 251, .external_lex_state = 4},
   [2866] = {.lex_state = 225, .external_lex_state = 4},
   [2867] = {.lex_state = 225, .external_lex_state = 4},
-  [2868] = {.lex_state = 225, .external_lex_state = 4},
+  [2868] = {.lex_state = 251, .external_lex_state = 4},
   [2869] = {.lex_state = 225, .external_lex_state = 4},
-  [2870] = {.lex_state = 251, .external_lex_state = 4},
-  [2871] = {.lex_state = 251, .external_lex_state = 4},
+  [2870] = {.lex_state = 225, .external_lex_state = 4},
+  [2871] = {.lex_state = 225, .external_lex_state = 4},
   [2872] = {.lex_state = 251, .external_lex_state = 4},
   [2873] = {.lex_state = 251, .external_lex_state = 4},
   [2874] = {.lex_state = 251, .external_lex_state = 4},
   [2875] = {.lex_state = 225, .external_lex_state = 4},
-  [2876] = {.lex_state = 225, .external_lex_state = 4},
+  [2876] = {.lex_state = 251, .external_lex_state = 4},
   [2877] = {.lex_state = 225, .external_lex_state = 4},
-  [2878] = {.lex_state = 294, .external_lex_state = 3},
+  [2878] = {.lex_state = 225, .external_lex_state = 4},
   [2879] = {.lex_state = 251, .external_lex_state = 4},
-  [2880] = {.lex_state = 225, .external_lex_state = 4},
-  [2881] = {.lex_state = 251, .external_lex_state = 4},
+  [2880] = {.lex_state = 251, .external_lex_state = 4},
+  [2881] = {.lex_state = 225, .external_lex_state = 4},
   [2882] = {.lex_state = 251, .external_lex_state = 4},
   [2883] = {.lex_state = 225, .external_lex_state = 4},
-  [2884] = {.lex_state = 225, .external_lex_state = 4},
+  [2884] = {.lex_state = 251, .external_lex_state = 4},
   [2885] = {.lex_state = 251, .external_lex_state = 4},
   [2886] = {.lex_state = 225, .external_lex_state = 4},
-  [2887] = {.lex_state = 225, .external_lex_state = 4},
+  [2887] = {.lex_state = 251, .external_lex_state = 4},
   [2888] = {.lex_state = 225, .external_lex_state = 4},
-  [2889] = {.lex_state = 294, .external_lex_state = 2},
+  [2889] = {.lex_state = 251, .external_lex_state = 4},
   [2890] = {.lex_state = 251, .external_lex_state = 4},
-  [2891] = {.lex_state = 294, .external_lex_state = 2},
+  [2891] = {.lex_state = 225, .external_lex_state = 4},
   [2892] = {.lex_state = 251, .external_lex_state = 4},
   [2893] = {.lex_state = 225, .external_lex_state = 4},
   [2894] = {.lex_state = 294, .external_lex_state = 2},
   [2895] = {.lex_state = 251, .external_lex_state = 4},
-  [2896] = {.lex_state = 294, .external_lex_state = 2},
-  [2897] = {.lex_state = 251, .external_lex_state = 4},
+  [2896] = {.lex_state = 225, .external_lex_state = 4},
+  [2897] = {.lex_state = 225, .external_lex_state = 4},
   [2898] = {.lex_state = 294, .external_lex_state = 2},
-  [2899] = {.lex_state = 294, .external_lex_state = 2},
+  [2899] = {.lex_state = 225, .external_lex_state = 4},
   [2900] = {.lex_state = 251, .external_lex_state = 4},
-  [2901] = {.lex_state = 225, .external_lex_state = 4},
+  [2901] = {.lex_state = 251, .external_lex_state = 4},
   [2902] = {.lex_state = 251, .external_lex_state = 4},
-  [2903] = {.lex_state = 225, .external_lex_state = 4},
-  [2904] = {.lex_state = 225, .external_lex_state = 4},
-  [2905] = {.lex_state = 251, .external_lex_state = 4},
-  [2906] = {.lex_state = 251, .external_lex_state = 4},
-  [2907] = {.lex_state = 225, .external_lex_state = 4},
+  [2903] = {.lex_state = 251, .external_lex_state = 4},
+  [2904] = {.lex_state = 251, .external_lex_state = 4},
+  [2905] = {.lex_state = 225, .external_lex_state = 4},
+  [2906] = {.lex_state = 225, .external_lex_state = 4},
+  [2907] = {.lex_state = 294, .external_lex_state = 2},
   [2908] = {.lex_state = 297, .external_lex_state = 2},
-  [2909] = {.lex_state = 222, .external_lex_state = 3},
+  [2909] = {.lex_state = 297, .external_lex_state = 2},
   [2910] = {.lex_state = 297, .external_lex_state = 2},
   [2911] = {.lex_state = 297, .external_lex_state = 2},
-  [2912] = {.lex_state = 297, .external_lex_state = 2},
-  [2913] = {.lex_state = 294, .external_lex_state = 2},
-  [2914] = {.lex_state = 297, .external_lex_state = 2},
-  [2915] = {.lex_state = 222, .external_lex_state = 3},
-  [2916] = {.lex_state = 222, .external_lex_state = 3},
+  [2912] = {.lex_state = 294, .external_lex_state = 2},
+  [2913] = {.lex_state = 297, .external_lex_state = 2},
+  [2914] = {.lex_state = 222, .external_lex_state = 3},
+  [2915] = {.lex_state = 294, .external_lex_state = 2},
+  [2916] = {.lex_state = 297, .external_lex_state = 2},
   [2917] = {.lex_state = 222, .external_lex_state = 3},
-  [2918] = {.lex_state = 294, .external_lex_state = 2},
-  [2919] = {.lex_state = 297, .external_lex_state = 2},
-  [2920] = {.lex_state = 297, .external_lex_state = 2},
-  [2921] = {.lex_state = 297, .external_lex_state = 2},
+  [2918] = {.lex_state = 297, .external_lex_state = 2},
+  [2919] = {.lex_state = 294, .external_lex_state = 2},
+  [2920] = {.lex_state = 222, .external_lex_state = 3},
+  [2921] = {.lex_state = 222, .external_lex_state = 3},
   [2922] = {.lex_state = 297, .external_lex_state = 2},
   [2923] = {.lex_state = 297, .external_lex_state = 2},
-  [2924] = {.lex_state = 222, .external_lex_state = 3},
-  [2925] = {.lex_state = 297, .external_lex_state = 2},
-  [2926] = {.lex_state = 297, .external_lex_state = 2},
+  [2924] = {.lex_state = 297, .external_lex_state = 2},
+  [2925] = {.lex_state = 294, .external_lex_state = 2},
+  [2926] = {.lex_state = 222, .external_lex_state = 3},
   [2927] = {.lex_state = 297, .external_lex_state = 2},
-  [2928] = {.lex_state = 294, .external_lex_state = 2},
+  [2928] = {.lex_state = 297, .external_lex_state = 2},
   [2929] = {.lex_state = 297, .external_lex_state = 2},
-  [2930] = {.lex_state = 294, .external_lex_state = 2},
+  [2930] = {.lex_state = 297, .external_lex_state = 2},
   [2931] = {.lex_state = 294, .external_lex_state = 2},
-  [2932] = {.lex_state = 298, .external_lex_state = 2},
+  [2932] = {.lex_state = 299, .external_lex_state = 2},
   [2933] = {.lex_state = 294, .external_lex_state = 2},
   [2934] = {.lex_state = 294, .external_lex_state = 2},
   [2935] = {.lex_state = 294, .external_lex_state = 2},
@@ -40474,58 +40226,58 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [2952] = {.lex_state = 294, .external_lex_state = 2},
   [2953] = {.lex_state = 294, .external_lex_state = 2},
   [2954] = {.lex_state = 294, .external_lex_state = 2},
-  [2955] = {.lex_state = 290, .external_lex_state = 5},
+  [2955] = {.lex_state = 277, .external_lex_state = 4},
   [2956] = {.lex_state = 294, .external_lex_state = 2},
   [2957] = {.lex_state = 294, .external_lex_state = 2},
-  [2958] = {.lex_state = 291, .external_lex_state = 5},
+  [2958] = {.lex_state = 294, .external_lex_state = 2},
   [2959] = {.lex_state = 294, .external_lex_state = 2},
   [2960] = {.lex_state = 294, .external_lex_state = 2},
   [2961] = {.lex_state = 294, .external_lex_state = 2},
   [2962] = {.lex_state = 294, .external_lex_state = 2},
-  [2963] = {.lex_state = 294, .external_lex_state = 2},
+  [2963] = {.lex_state = 290, .external_lex_state = 5},
   [2964] = {.lex_state = 294, .external_lex_state = 2},
-  [2965] = {.lex_state = 294, .external_lex_state = 2},
-  [2966] = {.lex_state = 291, .external_lex_state = 5},
+  [2965] = {.lex_state = 290, .external_lex_state = 5},
+  [2966] = {.lex_state = 294, .external_lex_state = 2},
   [2967] = {.lex_state = 294, .external_lex_state = 2},
-  [2968] = {.lex_state = 277, .external_lex_state = 4},
+  [2968] = {.lex_state = 294, .external_lex_state = 2},
   [2969] = {.lex_state = 294, .external_lex_state = 2},
-  [2970] = {.lex_state = 292, .external_lex_state = 5},
+  [2970] = {.lex_state = 294, .external_lex_state = 2},
   [2971] = {.lex_state = 294, .external_lex_state = 2},
-  [2972] = {.lex_state = 292, .external_lex_state = 5},
-  [2973] = {.lex_state = 277, .external_lex_state = 4},
+  [2972] = {.lex_state = 291, .external_lex_state = 5},
+  [2973] = {.lex_state = 294, .external_lex_state = 2},
   [2974] = {.lex_state = 294, .external_lex_state = 2},
   [2975] = {.lex_state = 294, .external_lex_state = 2},
-  [2976] = {.lex_state = 277, .external_lex_state = 4},
+  [2976] = {.lex_state = 293, .external_lex_state = 5},
   [2977] = {.lex_state = 294, .external_lex_state = 2},
-  [2978] = {.lex_state = 294, .external_lex_state = 2},
+  [2978] = {.lex_state = 291, .external_lex_state = 5},
   [2979] = {.lex_state = 294, .external_lex_state = 2},
-  [2980] = {.lex_state = 290, .external_lex_state = 5},
+  [2980] = {.lex_state = 294, .external_lex_state = 2},
   [2981] = {.lex_state = 294, .external_lex_state = 2},
-  [2982] = {.lex_state = 294, .external_lex_state = 2},
-  [2983] = {.lex_state = 291, .external_lex_state = 5},
-  [2984] = {.lex_state = 290, .external_lex_state = 5},
+  [2982] = {.lex_state = 291, .external_lex_state = 5},
+  [2983] = {.lex_state = 294, .external_lex_state = 2},
+  [2984] = {.lex_state = 292, .external_lex_state = 5},
   [2985] = {.lex_state = 294, .external_lex_state = 2},
   [2986] = {.lex_state = 294, .external_lex_state = 2},
-  [2987] = {.lex_state = 277, .external_lex_state = 4},
+  [2987] = {.lex_state = 294, .external_lex_state = 2},
   [2988] = {.lex_state = 294, .external_lex_state = 2},
-  [2989] = {.lex_state = 290, .external_lex_state = 5},
+  [2989] = {.lex_state = 294, .external_lex_state = 2},
   [2990] = {.lex_state = 294, .external_lex_state = 2},
   [2991] = {.lex_state = 294, .external_lex_state = 2},
-  [2992] = {.lex_state = 291, .external_lex_state = 5},
-  [2993] = {.lex_state = 294, .external_lex_state = 2},
-  [2994] = {.lex_state = 277, .external_lex_state = 4},
-  [2995] = {.lex_state = 277, .external_lex_state = 4},
-  [2996] = {.lex_state = 294, .external_lex_state = 2},
-  [2997] = {.lex_state = 294, .external_lex_state = 2},
-  [2998] = {.lex_state = 294, .external_lex_state = 2},
+  [2992] = {.lex_state = 277, .external_lex_state = 4},
+  [2993] = {.lex_state = 277, .external_lex_state = 4},
+  [2994] = {.lex_state = 290, .external_lex_state = 5},
+  [2995] = {.lex_state = 292, .external_lex_state = 5},
+  [2996] = {.lex_state = 277, .external_lex_state = 4},
+  [2997] = {.lex_state = 292, .external_lex_state = 5},
+  [2998] = {.lex_state = 290, .external_lex_state = 5},
   [2999] = {.lex_state = 294, .external_lex_state = 2},
-  [3000] = {.lex_state = 290, .external_lex_state = 5},
-  [3001] = {.lex_state = 294, .external_lex_state = 2},
-  [3002] = {.lex_state = 291, .external_lex_state = 5},
+  [3000] = {.lex_state = 277, .external_lex_state = 4},
+  [3001] = {.lex_state = 277, .external_lex_state = 4},
+  [3002] = {.lex_state = 294, .external_lex_state = 2},
   [3003] = {.lex_state = 294, .external_lex_state = 2},
   [3004] = {.lex_state = 294, .external_lex_state = 2},
   [3005] = {.lex_state = 294, .external_lex_state = 2},
-  [3006] = {.lex_state = 290, .external_lex_state = 5},
+  [3006] = {.lex_state = 294, .external_lex_state = 2},
   [3007] = {.lex_state = 294, .external_lex_state = 2},
   [3008] = {.lex_state = 294, .external_lex_state = 2},
   [3009] = {.lex_state = 294, .external_lex_state = 2},
@@ -40533,152 +40285,152 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3011] = {.lex_state = 294, .external_lex_state = 2},
   [3012] = {.lex_state = 294, .external_lex_state = 2},
   [3013] = {.lex_state = 294, .external_lex_state = 2},
-  [3014] = {.lex_state = 290, .external_lex_state = 5},
+  [3014] = {.lex_state = 294, .external_lex_state = 2},
   [3015] = {.lex_state = 294, .external_lex_state = 2},
   [3016] = {.lex_state = 294, .external_lex_state = 2},
-  [3017] = {.lex_state = 291, .external_lex_state = 5},
-  [3018] = {.lex_state = 294, .external_lex_state = 2},
+  [3017] = {.lex_state = 294, .external_lex_state = 2},
+  [3018] = {.lex_state = 291, .external_lex_state = 5},
   [3019] = {.lex_state = 294, .external_lex_state = 2},
   [3020] = {.lex_state = 294, .external_lex_state = 2},
-  [3021] = {.lex_state = 294, .external_lex_state = 2},
-  [3022] = {.lex_state = 277, .external_lex_state = 4},
+  [3021] = {.lex_state = 277, .external_lex_state = 4},
+  [3022] = {.lex_state = 294, .external_lex_state = 2},
   [3023] = {.lex_state = 277, .external_lex_state = 4},
-  [3024] = {.lex_state = 294, .external_lex_state = 2},
-  [3025] = {.lex_state = 294, .external_lex_state = 2},
-  [3026] = {.lex_state = 292, .external_lex_state = 5},
+  [3024] = {.lex_state = 290, .external_lex_state = 5},
+  [3025] = {.lex_state = 290, .external_lex_state = 5},
+  [3026] = {.lex_state = 294, .external_lex_state = 2},
   [3027] = {.lex_state = 294, .external_lex_state = 2},
   [3028] = {.lex_state = 294, .external_lex_state = 2},
   [3029] = {.lex_state = 294, .external_lex_state = 2},
   [3030] = {.lex_state = 294, .external_lex_state = 2},
-  [3031] = {.lex_state = 290, .external_lex_state = 5},
+  [3031] = {.lex_state = 294, .external_lex_state = 2},
   [3032] = {.lex_state = 294, .external_lex_state = 2},
-  [3033] = {.lex_state = 290, .external_lex_state = 5},
+  [3033] = {.lex_state = 294, .external_lex_state = 2},
   [3034] = {.lex_state = 294, .external_lex_state = 2},
-  [3035] = {.lex_state = 291, .external_lex_state = 5},
-  [3036] = {.lex_state = 291, .external_lex_state = 5},
-  [3037] = {.lex_state = 294, .external_lex_state = 2},
+  [3035] = {.lex_state = 294, .external_lex_state = 2},
+  [3036] = {.lex_state = 294, .external_lex_state = 2},
+  [3037] = {.lex_state = 292, .external_lex_state = 5},
   [3038] = {.lex_state = 294, .external_lex_state = 2},
   [3039] = {.lex_state = 294, .external_lex_state = 2},
   [3040] = {.lex_state = 294, .external_lex_state = 2},
-  [3041] = {.lex_state = 290, .external_lex_state = 5},
-  [3042] = {.lex_state = 294, .external_lex_state = 2},
-  [3043] = {.lex_state = 277, .external_lex_state = 4},
-  [3044] = {.lex_state = 277, .external_lex_state = 4},
+  [3041] = {.lex_state = 294, .external_lex_state = 2},
+  [3042] = {.lex_state = 292, .external_lex_state = 5},
+  [3043] = {.lex_state = 294, .external_lex_state = 2},
+  [3044] = {.lex_state = 294, .external_lex_state = 2},
   [3045] = {.lex_state = 294, .external_lex_state = 2},
-  [3046] = {.lex_state = 294, .external_lex_state = 2},
-  [3047] = {.lex_state = 291, .external_lex_state = 5},
-  [3048] = {.lex_state = 294, .external_lex_state = 2},
-  [3049] = {.lex_state = 292, .external_lex_state = 5},
-  [3050] = {.lex_state = 291, .external_lex_state = 5},
-  [3051] = {.lex_state = 294, .external_lex_state = 2},
+  [3046] = {.lex_state = 277, .external_lex_state = 4},
+  [3047] = {.lex_state = 277, .external_lex_state = 4},
+  [3048] = {.lex_state = 277, .external_lex_state = 4},
+  [3049] = {.lex_state = 291, .external_lex_state = 5},
+  [3050] = {.lex_state = 277, .external_lex_state = 4},
+  [3051] = {.lex_state = 277, .external_lex_state = 4},
   [3052] = {.lex_state = 294, .external_lex_state = 2},
-  [3053] = {.lex_state = 294, .external_lex_state = 2},
-  [3054] = {.lex_state = 294, .external_lex_state = 2},
-  [3055] = {.lex_state = 294, .external_lex_state = 2},
-  [3056] = {.lex_state = 294, .external_lex_state = 2},
-  [3057] = {.lex_state = 294, .external_lex_state = 2},
-  [3058] = {.lex_state = 294, .external_lex_state = 2},
+  [3053] = {.lex_state = 277, .external_lex_state = 4},
+  [3054] = {.lex_state = 277, .external_lex_state = 4},
+  [3055] = {.lex_state = 277, .external_lex_state = 4},
+  [3056] = {.lex_state = 277, .external_lex_state = 4},
+  [3057] = {.lex_state = 277, .external_lex_state = 4},
+  [3058] = {.lex_state = 277, .external_lex_state = 4},
   [3059] = {.lex_state = 294, .external_lex_state = 2},
   [3060] = {.lex_state = 294, .external_lex_state = 2},
-  [3061] = {.lex_state = 294, .external_lex_state = 2},
-  [3062] = {.lex_state = 277, .external_lex_state = 4},
+  [3061] = {.lex_state = 292, .external_lex_state = 5},
+  [3062] = {.lex_state = 294, .external_lex_state = 2},
   [3063] = {.lex_state = 294, .external_lex_state = 2},
-  [3064] = {.lex_state = 294, .external_lex_state = 2},
-  [3065] = {.lex_state = 294, .external_lex_state = 2},
-  [3066] = {.lex_state = 294, .external_lex_state = 2},
+  [3064] = {.lex_state = 290, .external_lex_state = 5},
+  [3065] = {.lex_state = 277, .external_lex_state = 4},
+  [3066] = {.lex_state = 292, .external_lex_state = 5},
   [3067] = {.lex_state = 294, .external_lex_state = 2},
-  [3068] = {.lex_state = 293, .external_lex_state = 5},
+  [3068] = {.lex_state = 294, .external_lex_state = 2},
   [3069] = {.lex_state = 294, .external_lex_state = 2},
   [3070] = {.lex_state = 277, .external_lex_state = 4},
   [3071] = {.lex_state = 294, .external_lex_state = 2},
   [3072] = {.lex_state = 294, .external_lex_state = 2},
   [3073] = {.lex_state = 294, .external_lex_state = 2},
-  [3074] = {.lex_state = 277, .external_lex_state = 4},
+  [3074] = {.lex_state = 291, .external_lex_state = 5},
   [3075] = {.lex_state = 294, .external_lex_state = 2},
-  [3076] = {.lex_state = 277, .external_lex_state = 4},
+  [3076] = {.lex_state = 294, .external_lex_state = 2},
   [3077] = {.lex_state = 294, .external_lex_state = 2},
   [3078] = {.lex_state = 294, .external_lex_state = 2},
-  [3079] = {.lex_state = 294, .external_lex_state = 2},
-  [3080] = {.lex_state = 294, .external_lex_state = 2},
-  [3081] = {.lex_state = 290, .external_lex_state = 5},
+  [3079] = {.lex_state = 290, .external_lex_state = 5},
+  [3080] = {.lex_state = 277, .external_lex_state = 4},
+  [3081] = {.lex_state = 294, .external_lex_state = 2},
   [3082] = {.lex_state = 294, .external_lex_state = 2},
-  [3083] = {.lex_state = 294, .external_lex_state = 2},
+  [3083] = {.lex_state = 277, .external_lex_state = 4},
   [3084] = {.lex_state = 294, .external_lex_state = 2},
   [3085] = {.lex_state = 294, .external_lex_state = 2},
   [3086] = {.lex_state = 294, .external_lex_state = 2},
   [3087] = {.lex_state = 294, .external_lex_state = 2},
-  [3088] = {.lex_state = 294, .external_lex_state = 2},
-  [3089] = {.lex_state = 294, .external_lex_state = 2},
+  [3088] = {.lex_state = 292, .external_lex_state = 5},
+  [3089] = {.lex_state = 291, .external_lex_state = 5},
   [3090] = {.lex_state = 277, .external_lex_state = 4},
-  [3091] = {.lex_state = 294, .external_lex_state = 2},
-  [3092] = {.lex_state = 294, .external_lex_state = 2},
-  [3093] = {.lex_state = 277, .external_lex_state = 4},
+  [3091] = {.lex_state = 277, .external_lex_state = 4},
+  [3092] = {.lex_state = 277, .external_lex_state = 4},
+  [3093] = {.lex_state = 294, .external_lex_state = 2},
   [3094] = {.lex_state = 294, .external_lex_state = 2},
-  [3095] = {.lex_state = 294, .external_lex_state = 2},
-  [3096] = {.lex_state = 294, .external_lex_state = 2},
+  [3095] = {.lex_state = 292, .external_lex_state = 5},
+  [3096] = {.lex_state = 293, .external_lex_state = 5},
   [3097] = {.lex_state = 294, .external_lex_state = 2},
-  [3098] = {.lex_state = 292, .external_lex_state = 5},
-  [3099] = {.lex_state = 294, .external_lex_state = 2},
-  [3100] = {.lex_state = 291, .external_lex_state = 5},
-  [3101] = {.lex_state = 294, .external_lex_state = 2},
-  [3102] = {.lex_state = 294, .external_lex_state = 2},
+  [3098] = {.lex_state = 294, .external_lex_state = 2},
+  [3099] = {.lex_state = 277, .external_lex_state = 4},
+  [3100] = {.lex_state = 290, .external_lex_state = 5},
+  [3101] = {.lex_state = 277, .external_lex_state = 4},
+  [3102] = {.lex_state = 277, .external_lex_state = 4},
   [3103] = {.lex_state = 277, .external_lex_state = 4},
   [3104] = {.lex_state = 277, .external_lex_state = 4},
-  [3105] = {.lex_state = 292, .external_lex_state = 5},
+  [3105] = {.lex_state = 277, .external_lex_state = 4},
   [3106] = {.lex_state = 294, .external_lex_state = 2},
   [3107] = {.lex_state = 294, .external_lex_state = 2},
   [3108] = {.lex_state = 294, .external_lex_state = 2},
   [3109] = {.lex_state = 294, .external_lex_state = 2},
   [3110] = {.lex_state = 277, .external_lex_state = 4},
-  [3111] = {.lex_state = 277, .external_lex_state = 4},
+  [3111] = {.lex_state = 294, .external_lex_state = 2},
   [3112] = {.lex_state = 294, .external_lex_state = 2},
-  [3113] = {.lex_state = 294, .external_lex_state = 2},
-  [3114] = {.lex_state = 290, .external_lex_state = 5},
+  [3113] = {.lex_state = 277, .external_lex_state = 4},
+  [3114] = {.lex_state = 294, .external_lex_state = 2},
   [3115] = {.lex_state = 294, .external_lex_state = 2},
   [3116] = {.lex_state = 294, .external_lex_state = 2},
-  [3117] = {.lex_state = 277, .external_lex_state = 4},
-  [3118] = {.lex_state = 293, .external_lex_state = 5},
+  [3117] = {.lex_state = 294, .external_lex_state = 2},
+  [3118] = {.lex_state = 294, .external_lex_state = 2},
   [3119] = {.lex_state = 294, .external_lex_state = 2},
-  [3120] = {.lex_state = 291, .external_lex_state = 5},
+  [3120] = {.lex_state = 294, .external_lex_state = 2},
   [3121] = {.lex_state = 294, .external_lex_state = 2},
-  [3122] = {.lex_state = 277, .external_lex_state = 4},
-  [3123] = {.lex_state = 277, .external_lex_state = 4},
-  [3124] = {.lex_state = 277, .external_lex_state = 4},
+  [3122] = {.lex_state = 294, .external_lex_state = 2},
+  [3123] = {.lex_state = 294, .external_lex_state = 2},
+  [3124] = {.lex_state = 294, .external_lex_state = 2},
   [3125] = {.lex_state = 294, .external_lex_state = 2},
-  [3126] = {.lex_state = 293, .external_lex_state = 5},
+  [3126] = {.lex_state = 294, .external_lex_state = 2},
   [3127] = {.lex_state = 294, .external_lex_state = 2},
   [3128] = {.lex_state = 294, .external_lex_state = 2},
-  [3129] = {.lex_state = 277, .external_lex_state = 4},
+  [3129] = {.lex_state = 294, .external_lex_state = 2},
   [3130] = {.lex_state = 294, .external_lex_state = 2},
-  [3131] = {.lex_state = 277, .external_lex_state = 4},
+  [3131] = {.lex_state = 290, .external_lex_state = 5},
   [3132] = {.lex_state = 292, .external_lex_state = 5},
-  [3133] = {.lex_state = 277, .external_lex_state = 4},
-  [3134] = {.lex_state = 277, .external_lex_state = 4},
+  [3133] = {.lex_state = 294, .external_lex_state = 2},
+  [3134] = {.lex_state = 294, .external_lex_state = 2},
   [3135] = {.lex_state = 294, .external_lex_state = 2},
-  [3136] = {.lex_state = 277, .external_lex_state = 4},
-  [3137] = {.lex_state = 277, .external_lex_state = 4},
+  [3136] = {.lex_state = 290, .external_lex_state = 5},
+  [3137] = {.lex_state = 292, .external_lex_state = 5},
   [3138] = {.lex_state = 294, .external_lex_state = 2},
   [3139] = {.lex_state = 294, .external_lex_state = 2},
-  [3140] = {.lex_state = 277, .external_lex_state = 4},
+  [3140] = {.lex_state = 290, .external_lex_state = 5},
   [3141] = {.lex_state = 294, .external_lex_state = 2},
-  [3142] = {.lex_state = 277, .external_lex_state = 4},
-  [3143] = {.lex_state = 277, .external_lex_state = 4},
-  [3144] = {.lex_state = 292, .external_lex_state = 5},
+  [3142] = {.lex_state = 294, .external_lex_state = 2},
+  [3143] = {.lex_state = 294, .external_lex_state = 2},
+  [3144] = {.lex_state = 291, .external_lex_state = 5},
   [3145] = {.lex_state = 294, .external_lex_state = 2},
   [3146] = {.lex_state = 294, .external_lex_state = 2},
   [3147] = {.lex_state = 294, .external_lex_state = 2},
-  [3148] = {.lex_state = 290, .external_lex_state = 5},
+  [3148] = {.lex_state = 294, .external_lex_state = 2},
   [3149] = {.lex_state = 294, .external_lex_state = 2},
-  [3150] = {.lex_state = 294, .external_lex_state = 2},
+  [3150] = {.lex_state = 293, .external_lex_state = 5},
   [3151] = {.lex_state = 294, .external_lex_state = 2},
-  [3152] = {.lex_state = 291, .external_lex_state = 5},
-  [3153] = {.lex_state = 277, .external_lex_state = 4},
+  [3152] = {.lex_state = 294, .external_lex_state = 2},
+  [3153] = {.lex_state = 294, .external_lex_state = 2},
   [3154] = {.lex_state = 294, .external_lex_state = 2},
   [3155] = {.lex_state = 294, .external_lex_state = 2},
-  [3156] = {.lex_state = 294, .external_lex_state = 2},
-  [3157] = {.lex_state = 294, .external_lex_state = 2},
+  [3156] = {.lex_state = 290, .external_lex_state = 5},
+  [3157] = {.lex_state = 292, .external_lex_state = 5},
   [3158] = {.lex_state = 294, .external_lex_state = 2},
-  [3159] = {.lex_state = 294, .external_lex_state = 2},
+  [3159] = {.lex_state = 292, .external_lex_state = 5},
   [3160] = {.lex_state = 288, .external_lex_state = 5},
   [3161] = {.lex_state = 250, .external_lex_state = 6},
   [3162] = {.lex_state = 288, .external_lex_state = 5},
@@ -40692,8 +40444,8 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3170] = {.lex_state = 288, .external_lex_state = 5},
   [3171] = {.lex_state = 288, .external_lex_state = 5},
   [3172] = {.lex_state = 288, .external_lex_state = 6},
-  [3173] = {.lex_state = 265, .external_lex_state = 6},
-  [3174] = {.lex_state = 287, .external_lex_state = 6},
+  [3173] = {.lex_state = 287, .external_lex_state = 6},
+  [3174] = {.lex_state = 265, .external_lex_state = 6},
   [3175] = {.lex_state = 288, .external_lex_state = 5},
   [3176] = {.lex_state = 310, .external_lex_state = 6},
   [3177] = {.lex_state = 285, .external_lex_state = 6},
@@ -40703,17 +40455,17 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3181] = {.lex_state = 285, .external_lex_state = 6},
   [3182] = {.lex_state = 285, .external_lex_state = 6},
   [3183] = {.lex_state = 289, .external_lex_state = 5},
-  [3184] = {.lex_state = 289, .external_lex_state = 5},
+  [3184] = {.lex_state = 285, .external_lex_state = 6},
   [3185] = {.lex_state = 285, .external_lex_state = 6},
-  [3186] = {.lex_state = 289, .external_lex_state = 5},
+  [3186] = {.lex_state = 285, .external_lex_state = 6},
   [3187] = {.lex_state = 289, .external_lex_state = 5},
   [3188] = {.lex_state = 285, .external_lex_state = 6},
-  [3189] = {.lex_state = 285, .external_lex_state = 6},
+  [3189] = {.lex_state = 289, .external_lex_state = 5},
   [3190] = {.lex_state = 289, .external_lex_state = 5},
-  [3191] = {.lex_state = 289, .external_lex_state = 5},
-  [3192] = {.lex_state = 285, .external_lex_state = 6},
+  [3191] = {.lex_state = 285, .external_lex_state = 6},
+  [3192] = {.lex_state = 289, .external_lex_state = 5},
   [3193] = {.lex_state = 285, .external_lex_state = 6},
-  [3194] = {.lex_state = 285, .external_lex_state = 6},
+  [3194] = {.lex_state = 289, .external_lex_state = 5},
   [3195] = {.lex_state = 289, .external_lex_state = 5},
   [3196] = {.lex_state = 289, .external_lex_state = 5},
   [3197] = {.lex_state = 285, .external_lex_state = 6},
@@ -40721,26 +40473,26 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3199] = {.lex_state = 285, .external_lex_state = 6},
   [3200] = {.lex_state = 285, .external_lex_state = 6},
   [3201] = {.lex_state = 285, .external_lex_state = 6},
-  [3202] = {.lex_state = 285, .external_lex_state = 6},
-  [3203] = {.lex_state = 259, .external_lex_state = 6},
-  [3204] = {.lex_state = 259, .external_lex_state = 6},
-  [3205] = {.lex_state = 259, .external_lex_state = 6},
+  [3202] = {.lex_state = 259, .external_lex_state = 6},
+  [3203] = {.lex_state = 285, .external_lex_state = 6},
+  [3204] = {.lex_state = 285, .external_lex_state = 6},
+  [3205] = {.lex_state = 285, .external_lex_state = 6},
   [3206] = {.lex_state = 259, .external_lex_state = 6},
-  [3207] = {.lex_state = 285, .external_lex_state = 6},
+  [3207] = {.lex_state = 259, .external_lex_state = 6},
   [3208] = {.lex_state = 259, .external_lex_state = 6},
   [3209] = {.lex_state = 285, .external_lex_state = 6},
   [3210] = {.lex_state = 285, .external_lex_state = 6},
-  [3211] = {.lex_state = 285, .external_lex_state = 6},
+  [3211] = {.lex_state = 259, .external_lex_state = 6},
   [3212] = {.lex_state = 285, .external_lex_state = 6},
   [3213] = {.lex_state = 285, .external_lex_state = 6},
   [3214] = {.lex_state = 285, .external_lex_state = 6},
   [3215] = {.lex_state = 285, .external_lex_state = 6},
   [3216] = {.lex_state = 302, .external_lex_state = 7},
   [3217] = {.lex_state = 302, .external_lex_state = 7},
-  [3218] = {.lex_state = 302, .external_lex_state = 7},
+  [3218] = {.lex_state = 286, .external_lex_state = 5},
   [3219] = {.lex_state = 302, .external_lex_state = 7},
   [3220] = {.lex_state = 302, .external_lex_state = 7},
-  [3221] = {.lex_state = 302, .external_lex_state = 7},
+  [3221] = {.lex_state = 286, .external_lex_state = 6},
   [3222] = {.lex_state = 302, .external_lex_state = 7},
   [3223] = {.lex_state = 302, .external_lex_state = 7},
   [3224] = {.lex_state = 302, .external_lex_state = 7},
@@ -40750,10 +40502,10 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3228] = {.lex_state = 302, .external_lex_state = 7},
   [3229] = {.lex_state = 302, .external_lex_state = 7},
   [3230] = {.lex_state = 302, .external_lex_state = 7},
-  [3231] = {.lex_state = 286, .external_lex_state = 6},
+  [3231] = {.lex_state = 302, .external_lex_state = 7},
   [3232] = {.lex_state = 302, .external_lex_state = 7},
   [3233] = {.lex_state = 302, .external_lex_state = 7},
-  [3234] = {.lex_state = 286, .external_lex_state = 5},
+  [3234] = {.lex_state = 302, .external_lex_state = 7},
   [3235] = {.lex_state = 302, .external_lex_state = 7},
   [3236] = {.lex_state = 302, .external_lex_state = 7},
   [3237] = {.lex_state = 302, .external_lex_state = 7},
@@ -40765,8 +40517,8 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3243] = {.lex_state = 302, .external_lex_state = 7},
   [3244] = {.lex_state = 302, .external_lex_state = 7},
   [3245] = {.lex_state = 302, .external_lex_state = 7},
-  [3246] = {.lex_state = 302, .external_lex_state = 7},
-  [3247] = {.lex_state = 302, .external_lex_state = 7},
+  [3246] = {.lex_state = 294, .external_lex_state = 3},
+  [3247] = {.lex_state = 294, .external_lex_state = 3},
   [3248] = {.lex_state = 302, .external_lex_state = 7},
   [3249] = {.lex_state = 302, .external_lex_state = 7},
   [3250] = {.lex_state = 302, .external_lex_state = 7},
@@ -40774,28 +40526,28 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3252] = {.lex_state = 302, .external_lex_state = 7},
   [3253] = {.lex_state = 302, .external_lex_state = 7},
   [3254] = {.lex_state = 302, .external_lex_state = 7},
-  [3255] = {.lex_state = 294, .external_lex_state = 3},
+  [3255] = {.lex_state = 302, .external_lex_state = 7},
   [3256] = {.lex_state = 302, .external_lex_state = 7},
   [3257] = {.lex_state = 302, .external_lex_state = 7},
   [3258] = {.lex_state = 302, .external_lex_state = 7},
-  [3259] = {.lex_state = 302, .external_lex_state = 7},
+  [3259] = {.lex_state = 294, .external_lex_state = 3},
   [3260] = {.lex_state = 302, .external_lex_state = 7},
   [3261] = {.lex_state = 302, .external_lex_state = 7},
-  [3262] = {.lex_state = 294, .external_lex_state = 3},
+  [3262] = {.lex_state = 302, .external_lex_state = 7},
   [3263] = {.lex_state = 302, .external_lex_state = 7},
   [3264] = {.lex_state = 302, .external_lex_state = 7},
   [3265] = {.lex_state = 302, .external_lex_state = 7},
   [3266] = {.lex_state = 302, .external_lex_state = 7},
-  [3267] = {.lex_state = 294, .external_lex_state = 3},
-  [3268] = {.lex_state = 294, .external_lex_state = 3},
-  [3269] = {.lex_state = 294, .external_lex_state = 3},
+  [3267] = {.lex_state = 302, .external_lex_state = 7},
+  [3268] = {.lex_state = 302, .external_lex_state = 7},
+  [3269] = {.lex_state = 302, .external_lex_state = 7},
   [3270] = {.lex_state = 302, .external_lex_state = 7},
   [3271] = {.lex_state = 302, .external_lex_state = 7},
   [3272] = {.lex_state = 302, .external_lex_state = 7},
   [3273] = {.lex_state = 302, .external_lex_state = 7},
   [3274] = {.lex_state = 302, .external_lex_state = 7},
   [3275] = {.lex_state = 302, .external_lex_state = 7},
-  [3276] = {.lex_state = 294, .external_lex_state = 3},
+  [3276] = {.lex_state = 302, .external_lex_state = 7},
   [3277] = {.lex_state = 302, .external_lex_state = 7},
   [3278] = {.lex_state = 302, .external_lex_state = 7},
   [3279] = {.lex_state = 302, .external_lex_state = 7},
@@ -40822,7 +40574,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3300] = {.lex_state = 302, .external_lex_state = 7},
   [3301] = {.lex_state = 302, .external_lex_state = 7},
   [3302] = {.lex_state = 302, .external_lex_state = 7},
-  [3303] = {.lex_state = 302, .external_lex_state = 7},
+  [3303] = {.lex_state = 294, .external_lex_state = 3},
   [3304] = {.lex_state = 302, .external_lex_state = 7},
   [3305] = {.lex_state = 302, .external_lex_state = 7},
   [3306] = {.lex_state = 302, .external_lex_state = 7},
@@ -40831,12 +40583,12 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3309] = {.lex_state = 302, .external_lex_state = 7},
   [3310] = {.lex_state = 302, .external_lex_state = 7},
   [3311] = {.lex_state = 302, .external_lex_state = 7},
-  [3312] = {.lex_state = 302, .external_lex_state = 7},
+  [3312] = {.lex_state = 294, .external_lex_state = 3},
   [3313] = {.lex_state = 302, .external_lex_state = 7},
   [3314] = {.lex_state = 302, .external_lex_state = 7},
   [3315] = {.lex_state = 302, .external_lex_state = 7},
   [3316] = {.lex_state = 302, .external_lex_state = 7},
-  [3317] = {.lex_state = 302, .external_lex_state = 7},
+  [3317] = {.lex_state = 294, .external_lex_state = 3},
   [3318] = {.lex_state = 302, .external_lex_state = 7},
   [3319] = {.lex_state = 302, .external_lex_state = 7},
   [3320] = {.lex_state = 302, .external_lex_state = 7},
@@ -40855,9 +40607,9 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3333] = {.lex_state = 286, .external_lex_state = 5},
   [3334] = {.lex_state = 294, .external_lex_state = 2},
   [3335] = {.lex_state = 309, .external_lex_state = 8},
-  [3336] = {.lex_state = 294, .external_lex_state = 2},
-  [3337] = {.lex_state = 286, .external_lex_state = 6},
-  [3338] = {.lex_state = 286, .external_lex_state = 6},
+  [3336] = {.lex_state = 286, .external_lex_state = 6},
+  [3337] = {.lex_state = 294, .external_lex_state = 2},
+  [3338] = {.lex_state = 303, .external_lex_state = 6},
   [3339] = {.lex_state = 303, .external_lex_state = 6},
   [3340] = {.lex_state = 303, .external_lex_state = 6},
   [3341] = {.lex_state = 288, .external_lex_state = 5},
@@ -40866,20 +40618,20 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3344] = {.lex_state = 303, .external_lex_state = 6},
   [3345] = {.lex_state = 303, .external_lex_state = 6},
   [3346] = {.lex_state = 303, .external_lex_state = 6},
-  [3347] = {.lex_state = 303, .external_lex_state = 6},
+  [3347] = {.lex_state = 286, .external_lex_state = 6},
   [3348] = {.lex_state = 303, .external_lex_state = 6},
   [3349] = {.lex_state = 303, .external_lex_state = 6},
   [3350] = {.lex_state = 224, .external_lex_state = 6},
-  [3351] = {.lex_state = 228, .external_lex_state = 6},
-  [3352] = {.lex_state = 228, .external_lex_state = 6},
-  [3353] = {.lex_state = 303, .external_lex_state = 6},
+  [3351] = {.lex_state = 303, .external_lex_state = 6},
+  [3352] = {.lex_state = 224, .external_lex_state = 6},
+  [3353] = {.lex_state = 228, .external_lex_state = 6},
   [3354] = {.lex_state = 228, .external_lex_state = 6},
   [3355] = {.lex_state = 228, .external_lex_state = 6},
-  [3356] = {.lex_state = 303, .external_lex_state = 6},
-  [3357] = {.lex_state = 224, .external_lex_state = 6},
-  [3358] = {.lex_state = 303, .external_lex_state = 5},
+  [3356] = {.lex_state = 228, .external_lex_state = 6},
+  [3357] = {.lex_state = 303, .external_lex_state = 6},
+  [3358] = {.lex_state = 296, .external_lex_state = 6},
   [3359] = {.lex_state = 303, .external_lex_state = 5},
-  [3360] = {.lex_state = 303, .external_lex_state = 5},
+  [3360] = {.lex_state = 296, .external_lex_state = 6},
   [3361] = {.lex_state = 303, .external_lex_state = 5},
   [3362] = {.lex_state = 303, .external_lex_state = 5},
   [3363] = {.lex_state = 303, .external_lex_state = 5},
@@ -40888,277 +40640,277 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3366] = {.lex_state = 303, .external_lex_state = 5},
   [3367] = {.lex_state = 303, .external_lex_state = 5},
   [3368] = {.lex_state = 303, .external_lex_state = 5},
-  [3369] = {.lex_state = 303, .external_lex_state = 5},
+  [3369] = {.lex_state = 311, .external_lex_state = 6},
   [3370] = {.lex_state = 303, .external_lex_state = 5},
   [3371] = {.lex_state = 303, .external_lex_state = 5},
-  [3372] = {.lex_state = 303, .external_lex_state = 5},
+  [3372] = {.lex_state = 296, .external_lex_state = 6},
   [3373] = {.lex_state = 303, .external_lex_state = 5},
-  [3374] = {.lex_state = 303, .external_lex_state = 5},
-  [3375] = {.lex_state = 303, .external_lex_state = 5},
+  [3374] = {.lex_state = 286, .external_lex_state = 6},
+  [3375] = {.lex_state = 296, .external_lex_state = 6},
   [3376] = {.lex_state = 216, .external_lex_state = 6},
-  [3377] = {.lex_state = 296, .external_lex_state = 6},
+  [3377] = {.lex_state = 303, .external_lex_state = 5},
   [3378] = {.lex_state = 303, .external_lex_state = 5},
-  [3379] = {.lex_state = 311, .external_lex_state = 6},
-  [3380] = {.lex_state = 216, .external_lex_state = 6},
+  [3379] = {.lex_state = 303, .external_lex_state = 5},
+  [3380] = {.lex_state = 303, .external_lex_state = 5},
   [3381] = {.lex_state = 296, .external_lex_state = 6},
-  [3382] = {.lex_state = 296, .external_lex_state = 6},
+  [3382] = {.lex_state = 286, .external_lex_state = 6},
   [3383] = {.lex_state = 303, .external_lex_state = 5},
   [3384] = {.lex_state = 303, .external_lex_state = 5},
-  [3385] = {.lex_state = 303, .external_lex_state = 5},
-  [3386] = {.lex_state = 286, .external_lex_state = 6},
+  [3385] = {.lex_state = 216, .external_lex_state = 6},
+  [3386] = {.lex_state = 303, .external_lex_state = 5},
   [3387] = {.lex_state = 303, .external_lex_state = 5},
   [3388] = {.lex_state = 303, .external_lex_state = 5},
-  [3389] = {.lex_state = 296, .external_lex_state = 6},
-  [3390] = {.lex_state = 296, .external_lex_state = 6},
-  [3391] = {.lex_state = 309, .external_lex_state = 5},
+  [3389] = {.lex_state = 303, .external_lex_state = 5},
+  [3390] = {.lex_state = 303, .external_lex_state = 5},
+  [3391] = {.lex_state = 303, .external_lex_state = 5},
   [3392] = {.lex_state = 303, .external_lex_state = 5},
   [3393] = {.lex_state = 303, .external_lex_state = 5},
-  [3394] = {.lex_state = 296, .external_lex_state = 6},
+  [3394] = {.lex_state = 303, .external_lex_state = 5},
   [3395] = {.lex_state = 303, .external_lex_state = 5},
-  [3396] = {.lex_state = 303, .external_lex_state = 5},
+  [3396] = {.lex_state = 296, .external_lex_state = 6},
   [3397] = {.lex_state = 303, .external_lex_state = 5},
   [3398] = {.lex_state = 303, .external_lex_state = 5},
   [3399] = {.lex_state = 303, .external_lex_state = 5},
-  [3400] = {.lex_state = 303, .external_lex_state = 5},
+  [3400] = {.lex_state = 309, .external_lex_state = 5},
   [3401] = {.lex_state = 303, .external_lex_state = 5},
   [3402] = {.lex_state = 303, .external_lex_state = 5},
-  [3403] = {.lex_state = 286, .external_lex_state = 6},
-  [3404] = {.lex_state = 303, .external_lex_state = 6},
-  [3405] = {.lex_state = 303, .external_lex_state = 6},
-  [3406] = {.lex_state = 286, .external_lex_state = 6},
-  [3407] = {.lex_state = 303, .external_lex_state = 6},
-  [3408] = {.lex_state = 303, .external_lex_state = 6},
-  [3409] = {.lex_state = 286, .external_lex_state = 6},
-  [3410] = {.lex_state = 303, .external_lex_state = 6},
-  [3411] = {.lex_state = 303, .external_lex_state = 6},
+  [3403] = {.lex_state = 303, .external_lex_state = 5},
+  [3404] = {.lex_state = 308, .external_lex_state = 9},
+  [3405] = {.lex_state = 286, .external_lex_state = 6},
+  [3406] = {.lex_state = 303, .external_lex_state = 6},
+  [3407] = {.lex_state = 309, .external_lex_state = 5},
+  [3408] = {.lex_state = 309, .external_lex_state = 5},
+  [3409] = {.lex_state = 297, .external_lex_state = 6},
+  [3410] = {.lex_state = 286, .external_lex_state = 6},
+  [3411] = {.lex_state = 296, .external_lex_state = 6},
   [3412] = {.lex_state = 303, .external_lex_state = 6},
   [3413] = {.lex_state = 303, .external_lex_state = 6},
   [3414] = {.lex_state = 303, .external_lex_state = 6},
-  [3415] = {.lex_state = 303, .external_lex_state = 5},
+  [3415] = {.lex_state = 297, .external_lex_state = 6},
   [3416] = {.lex_state = 297, .external_lex_state = 6},
-  [3417] = {.lex_state = 308, .external_lex_state = 9},
-  [3418] = {.lex_state = 297, .external_lex_state = 6},
-  [3419] = {.lex_state = 286, .external_lex_state = 6},
-  [3420] = {.lex_state = 309, .external_lex_state = 5},
+  [3417] = {.lex_state = 286, .external_lex_state = 6},
+  [3418] = {.lex_state = 303, .external_lex_state = 6},
+  [3419] = {.lex_state = 308, .external_lex_state = 9},
+  [3420] = {.lex_state = 286, .external_lex_state = 6},
   [3421] = {.lex_state = 286, .external_lex_state = 6},
   [3422] = {.lex_state = 286, .external_lex_state = 6},
-  [3423] = {.lex_state = 297, .external_lex_state = 6},
-  [3424] = {.lex_state = 303, .external_lex_state = 6},
-  [3425] = {.lex_state = 308, .external_lex_state = 9},
-  [3426] = {.lex_state = 296, .external_lex_state = 6},
+  [3423] = {.lex_state = 303, .external_lex_state = 6},
+  [3424] = {.lex_state = 308, .external_lex_state = 9},
+  [3425] = {.lex_state = 303, .external_lex_state = 6},
+  [3426] = {.lex_state = 303, .external_lex_state = 6},
   [3427] = {.lex_state = 286, .external_lex_state = 6},
-  [3428] = {.lex_state = 286, .external_lex_state = 6},
-  [3429] = {.lex_state = 308, .external_lex_state = 9},
-  [3430] = {.lex_state = 297, .external_lex_state = 6},
+  [3428] = {.lex_state = 303, .external_lex_state = 6},
+  [3429] = {.lex_state = 303, .external_lex_state = 6},
+  [3430] = {.lex_state = 286, .external_lex_state = 6},
   [3431] = {.lex_state = 303, .external_lex_state = 6},
-  [3432] = {.lex_state = 303, .external_lex_state = 6},
-  [3433] = {.lex_state = 286, .external_lex_state = 6},
-  [3434] = {.lex_state = 309, .external_lex_state = 5},
+  [3432] = {.lex_state = 286, .external_lex_state = 6},
+  [3433] = {.lex_state = 297, .external_lex_state = 6},
+  [3434] = {.lex_state = 303, .external_lex_state = 5},
   [3435] = {.lex_state = 303, .external_lex_state = 6},
-  [3436] = {.lex_state = 286, .external_lex_state = 6},
-  [3437] = {.lex_state = 296, .external_lex_state = 6},
+  [3436] = {.lex_state = 303, .external_lex_state = 6},
+  [3437] = {.lex_state = 288, .external_lex_state = 5},
   [3438] = {.lex_state = 296, .external_lex_state = 6},
   [3439] = {.lex_state = 296, .external_lex_state = 6},
   [3440] = {.lex_state = 296, .external_lex_state = 6},
   [3441] = {.lex_state = 296, .external_lex_state = 6},
-  [3442] = {.lex_state = 278, .external_lex_state = 5},
+  [3442] = {.lex_state = 296, .external_lex_state = 6},
   [3443] = {.lex_state = 296, .external_lex_state = 6},
-  [3444] = {.lex_state = 296, .external_lex_state = 6},
+  [3444] = {.lex_state = 297, .external_lex_state = 6},
   [3445] = {.lex_state = 296, .external_lex_state = 6},
-  [3446] = {.lex_state = 278, .external_lex_state = 5},
+  [3446] = {.lex_state = 296, .external_lex_state = 6},
   [3447] = {.lex_state = 297, .external_lex_state = 6},
-  [3448] = {.lex_state = 297, .external_lex_state = 6},
-  [3449] = {.lex_state = 296, .external_lex_state = 6},
+  [3448] = {.lex_state = 296, .external_lex_state = 6},
+  [3449] = {.lex_state = 278, .external_lex_state = 5},
   [3450] = {.lex_state = 296, .external_lex_state = 6},
-  [3451] = {.lex_state = 288, .external_lex_state = 5},
-  [3452] = {.lex_state = 296, .external_lex_state = 6},
+  [3451] = {.lex_state = 296, .external_lex_state = 6},
+  [3452] = {.lex_state = 278, .external_lex_state = 5},
   [3453] = {.lex_state = 296, .external_lex_state = 6},
-  [3454] = {.lex_state = 303, .external_lex_state = 6},
-  [3455] = {.lex_state = 278, .external_lex_state = 5},
-  [3456] = {.lex_state = 288, .external_lex_state = 5},
+  [3454] = {.lex_state = 288, .external_lex_state = 5},
+  [3455] = {.lex_state = 303, .external_lex_state = 6},
+  [3456] = {.lex_state = 278, .external_lex_state = 5},
   [3457] = {.lex_state = 303, .external_lex_state = 6},
-  [3458] = {.lex_state = 288, .external_lex_state = 5},
-  [3459] = {.lex_state = 261, .external_lex_state = 6},
-  [3460] = {.lex_state = 278, .external_lex_state = 6},
-  [3461] = {.lex_state = 303, .external_lex_state = 6},
-  [3462] = {.lex_state = 288, .external_lex_state = 5},
-  [3463] = {.lex_state = 278, .external_lex_state = 6},
-  [3464] = {.lex_state = 278, .external_lex_state = 6},
-  [3465] = {.lex_state = 278, .external_lex_state = 5},
-  [3466] = {.lex_state = 278, .external_lex_state = 5},
+  [3458] = {.lex_state = 303, .external_lex_state = 6},
+  [3459] = {.lex_state = 303, .external_lex_state = 6},
+  [3460] = {.lex_state = 303, .external_lex_state = 6},
+  [3461] = {.lex_state = 278, .external_lex_state = 6},
+  [3462] = {.lex_state = 303, .external_lex_state = 6},
+  [3463] = {.lex_state = 303, .external_lex_state = 6},
+  [3464] = {.lex_state = 303, .external_lex_state = 6},
+  [3465] = {.lex_state = 288, .external_lex_state = 5},
+  [3466] = {.lex_state = 288, .external_lex_state = 5},
   [3467] = {.lex_state = 303, .external_lex_state = 6},
   [3468] = {.lex_state = 303, .external_lex_state = 6},
   [3469] = {.lex_state = 288, .external_lex_state = 5},
-  [3470] = {.lex_state = 304, .external_lex_state = 5},
-  [3471] = {.lex_state = 303, .external_lex_state = 6},
+  [3470] = {.lex_state = 288, .external_lex_state = 5},
+  [3471] = {.lex_state = 278, .external_lex_state = 6},
   [3472] = {.lex_state = 303, .external_lex_state = 6},
-  [3473] = {.lex_state = 278, .external_lex_state = 6},
-  [3474] = {.lex_state = 288, .external_lex_state = 5},
-  [3475] = {.lex_state = 304, .external_lex_state = 5},
-  [3476] = {.lex_state = 278, .external_lex_state = 5},
-  [3477] = {.lex_state = 303, .external_lex_state = 6},
-  [3478] = {.lex_state = 303, .external_lex_state = 6},
-  [3479] = {.lex_state = 305, .external_lex_state = 5},
-  [3480] = {.lex_state = 305, .external_lex_state = 5},
-  [3481] = {.lex_state = 303, .external_lex_state = 6},
-  [3482] = {.lex_state = 303, .external_lex_state = 6},
-  [3483] = {.lex_state = 303, .external_lex_state = 6},
+  [3473] = {.lex_state = 303, .external_lex_state = 6},
+  [3474] = {.lex_state = 278, .external_lex_state = 6},
+  [3475] = {.lex_state = 288, .external_lex_state = 5},
+  [3476] = {.lex_state = 304, .external_lex_state = 5},
+  [3477] = {.lex_state = 278, .external_lex_state = 6},
+  [3478] = {.lex_state = 305, .external_lex_state = 5},
+  [3479] = {.lex_state = 303, .external_lex_state = 6},
+  [3480] = {.lex_state = 278, .external_lex_state = 5},
+  [3481] = {.lex_state = 278, .external_lex_state = 5},
+  [3482] = {.lex_state = 278, .external_lex_state = 6},
+  [3483] = {.lex_state = 261, .external_lex_state = 6},
   [3484] = {.lex_state = 303, .external_lex_state = 6},
   [3485] = {.lex_state = 303, .external_lex_state = 6},
-  [3486] = {.lex_state = 288, .external_lex_state = 5},
+  [3486] = {.lex_state = 303, .external_lex_state = 6},
   [3487] = {.lex_state = 303, .external_lex_state = 6},
   [3488] = {.lex_state = 303, .external_lex_state = 6},
-  [3489] = {.lex_state = 278, .external_lex_state = 6},
+  [3489] = {.lex_state = 303, .external_lex_state = 6},
   [3490] = {.lex_state = 303, .external_lex_state = 6},
-  [3491] = {.lex_state = 303, .external_lex_state = 6},
-  [3492] = {.lex_state = 303, .external_lex_state = 6},
+  [3491] = {.lex_state = 288, .external_lex_state = 5},
+  [3492] = {.lex_state = 278, .external_lex_state = 6},
   [3493] = {.lex_state = 303, .external_lex_state = 6},
   [3494] = {.lex_state = 303, .external_lex_state = 6},
   [3495] = {.lex_state = 303, .external_lex_state = 6},
   [3496] = {.lex_state = 303, .external_lex_state = 6},
   [3497] = {.lex_state = 303, .external_lex_state = 6},
-  [3498] = {.lex_state = 303, .external_lex_state = 6},
-  [3499] = {.lex_state = 303, .external_lex_state = 6},
-  [3500] = {.lex_state = 303, .external_lex_state = 6},
+  [3498] = {.lex_state = 288, .external_lex_state = 5},
+  [3499] = {.lex_state = 278, .external_lex_state = 5},
+  [3500] = {.lex_state = 288, .external_lex_state = 5},
   [3501] = {.lex_state = 303, .external_lex_state = 6},
-  [3502] = {.lex_state = 288, .external_lex_state = 5},
-  [3503] = {.lex_state = 304, .external_lex_state = 5},
+  [3502] = {.lex_state = 303, .external_lex_state = 6},
+  [3503] = {.lex_state = 305, .external_lex_state = 5},
   [3504] = {.lex_state = 288, .external_lex_state = 5},
-  [3505] = {.lex_state = 303, .external_lex_state = 6},
-  [3506] = {.lex_state = 288, .external_lex_state = 5},
-  [3507] = {.lex_state = 278, .external_lex_state = 5},
-  [3508] = {.lex_state = 278, .external_lex_state = 6},
-  [3509] = {.lex_state = 303, .external_lex_state = 6},
+  [3505] = {.lex_state = 305, .external_lex_state = 5},
+  [3506] = {.lex_state = 278, .external_lex_state = 5},
+  [3507] = {.lex_state = 303, .external_lex_state = 6},
+  [3508] = {.lex_state = 304, .external_lex_state = 5},
+  [3509] = {.lex_state = 278, .external_lex_state = 6},
   [3510] = {.lex_state = 303, .external_lex_state = 6},
-  [3511] = {.lex_state = 305, .external_lex_state = 5},
-  [3512] = {.lex_state = 278, .external_lex_state = 6},
-  [3513] = {.lex_state = 288, .external_lex_state = 5},
-  [3514] = {.lex_state = 303, .external_lex_state = 6},
-  [3515] = {.lex_state = 295, .external_lex_state = 10},
-  [3516] = {.lex_state = 291, .external_lex_state = 5},
-  [3517] = {.lex_state = 295, .external_lex_state = 10},
-  [3518] = {.lex_state = 297, .external_lex_state = 5},
-  [3519] = {.lex_state = 312, .external_lex_state = 5},
-  [3520] = {.lex_state = 292, .external_lex_state = 5},
+  [3511] = {.lex_state = 303, .external_lex_state = 6},
+  [3512] = {.lex_state = 303, .external_lex_state = 6},
+  [3513] = {.lex_state = 303, .external_lex_state = 6},
+  [3514] = {.lex_state = 304, .external_lex_state = 5},
+  [3515] = {.lex_state = 291, .external_lex_state = 5},
+  [3516] = {.lex_state = 304, .external_lex_state = 5},
+  [3517] = {.lex_state = 297, .external_lex_state = 6},
+  [3518] = {.lex_state = 292, .external_lex_state = 5},
+  [3519] = {.lex_state = 295, .external_lex_state = 10},
+  [3520] = {.lex_state = 290, .external_lex_state = 5},
   [3521] = {.lex_state = 295, .external_lex_state = 10},
   [3522] = {.lex_state = 290, .external_lex_state = 5},
-  [3523] = {.lex_state = 293, .external_lex_state = 5},
-  [3524] = {.lex_state = 312, .external_lex_state = 5},
-  [3525] = {.lex_state = 295, .external_lex_state = 10},
-  [3526] = {.lex_state = 312, .external_lex_state = 5},
-  [3527] = {.lex_state = 312, .external_lex_state = 5},
+  [3523] = {.lex_state = 297, .external_lex_state = 6},
+  [3524] = {.lex_state = 291, .external_lex_state = 5},
+  [3525] = {.lex_state = 312, .external_lex_state = 5},
+  [3526] = {.lex_state = 278, .external_lex_state = 6},
+  [3527] = {.lex_state = 290, .external_lex_state = 5},
   [3528] = {.lex_state = 295, .external_lex_state = 10},
-  [3529] = {.lex_state = 295, .external_lex_state = 10},
-  [3530] = {.lex_state = 290, .external_lex_state = 5},
-  [3531] = {.lex_state = 291, .external_lex_state = 5},
-  [3532] = {.lex_state = 295, .external_lex_state = 10},
-  [3533] = {.lex_state = 278, .external_lex_state = 6},
-  [3534] = {.lex_state = 291, .external_lex_state = 5},
-  [3535] = {.lex_state = 278, .external_lex_state = 6},
-  [3536] = {.lex_state = 295, .external_lex_state = 10},
-  [3537] = {.lex_state = 292, .external_lex_state = 5},
-  [3538] = {.lex_state = 268, .external_lex_state = 6},
+  [3529] = {.lex_state = 312, .external_lex_state = 5},
+  [3530] = {.lex_state = 292, .external_lex_state = 5},
+  [3531] = {.lex_state = 295, .external_lex_state = 10},
+  [3532] = {.lex_state = 291, .external_lex_state = 5},
+  [3533] = {.lex_state = 293, .external_lex_state = 5},
+  [3534] = {.lex_state = 278, .external_lex_state = 6},
+  [3535] = {.lex_state = 295, .external_lex_state = 10},
+  [3536] = {.lex_state = 268, .external_lex_state = 6},
+  [3537] = {.lex_state = 312, .external_lex_state = 5},
+  [3538] = {.lex_state = 295, .external_lex_state = 10},
   [3539] = {.lex_state = 290, .external_lex_state = 5},
   [3540] = {.lex_state = 295, .external_lex_state = 10},
-  [3541] = {.lex_state = 290, .external_lex_state = 5},
-  [3542] = {.lex_state = 292, .external_lex_state = 5},
-  [3543] = {.lex_state = 291, .external_lex_state = 5},
-  [3544] = {.lex_state = 295, .external_lex_state = 10},
-  [3545] = {.lex_state = 278, .external_lex_state = 5},
-  [3546] = {.lex_state = 292, .external_lex_state = 5},
-  [3547] = {.lex_state = 295, .external_lex_state = 10},
-  [3548] = {.lex_state = 312, .external_lex_state = 5},
+  [3541] = {.lex_state = 268, .external_lex_state = 6},
+  [3542] = {.lex_state = 295, .external_lex_state = 10},
+  [3543] = {.lex_state = 312, .external_lex_state = 5},
+  [3544] = {.lex_state = 292, .external_lex_state = 5},
+  [3545] = {.lex_state = 295, .external_lex_state = 10},
+  [3546] = {.lex_state = 312, .external_lex_state = 5},
+  [3547] = {.lex_state = 291, .external_lex_state = 5},
+  [3548] = {.lex_state = 292, .external_lex_state = 5},
   [3549] = {.lex_state = 295, .external_lex_state = 10},
   [3550] = {.lex_state = 295, .external_lex_state = 10},
-  [3551] = {.lex_state = 295, .external_lex_state = 10},
-  [3552] = {.lex_state = 295, .external_lex_state = 10},
+  [3551] = {.lex_state = 292, .external_lex_state = 5},
+  [3552] = {.lex_state = 290, .external_lex_state = 5},
   [3553] = {.lex_state = 295, .external_lex_state = 10},
-  [3554] = {.lex_state = 295, .external_lex_state = 10},
-  [3555] = {.lex_state = 295, .external_lex_state = 10},
-  [3556] = {.lex_state = 295, .external_lex_state = 10},
+  [3554] = {.lex_state = 292, .external_lex_state = 5},
+  [3555] = {.lex_state = 312, .external_lex_state = 5},
+  [3556] = {.lex_state = 290, .external_lex_state = 5},
   [3557] = {.lex_state = 295, .external_lex_state = 10},
   [3558] = {.lex_state = 295, .external_lex_state = 10},
-  [3559] = {.lex_state = 295, .external_lex_state = 10},
+  [3559] = {.lex_state = 312, .external_lex_state = 5},
   [3560] = {.lex_state = 295, .external_lex_state = 10},
-  [3561] = {.lex_state = 295, .external_lex_state = 10},
-  [3562] = {.lex_state = 295, .external_lex_state = 10},
+  [3561] = {.lex_state = 305, .external_lex_state = 5},
+  [3562] = {.lex_state = 278, .external_lex_state = 5},
   [3563] = {.lex_state = 295, .external_lex_state = 10},
-  [3564] = {.lex_state = 295, .external_lex_state = 10},
+  [3564] = {.lex_state = 261, .external_lex_state = 6},
   [3565] = {.lex_state = 295, .external_lex_state = 10},
-  [3566] = {.lex_state = 295, .external_lex_state = 10},
-  [3567] = {.lex_state = 295, .external_lex_state = 10},
-  [3568] = {.lex_state = 295, .external_lex_state = 10},
-  [3569] = {.lex_state = 295, .external_lex_state = 10},
-  [3570] = {.lex_state = 295, .external_lex_state = 10},
+  [3566] = {.lex_state = 312, .external_lex_state = 5},
+  [3567] = {.lex_state = 292, .external_lex_state = 5},
+  [3568] = {.lex_state = 304, .external_lex_state = 5},
+  [3569] = {.lex_state = 292, .external_lex_state = 5},
+  [3570] = {.lex_state = 312, .external_lex_state = 5},
   [3571] = {.lex_state = 295, .external_lex_state = 10},
   [3572] = {.lex_state = 295, .external_lex_state = 10},
-  [3573] = {.lex_state = 295, .external_lex_state = 10},
-  [3574] = {.lex_state = 295, .external_lex_state = 10},
-  [3575] = {.lex_state = 312, .external_lex_state = 5},
-  [3576] = {.lex_state = 295, .external_lex_state = 10},
+  [3573] = {.lex_state = 292, .external_lex_state = 5},
+  [3574] = {.lex_state = 305, .external_lex_state = 5},
+  [3575] = {.lex_state = 295, .external_lex_state = 10},
+  [3576] = {.lex_state = 291, .external_lex_state = 5},
   [3577] = {.lex_state = 295, .external_lex_state = 10},
   [3578] = {.lex_state = 295, .external_lex_state = 10},
-  [3579] = {.lex_state = 295, .external_lex_state = 10},
-  [3580] = {.lex_state = 297, .external_lex_state = 6},
-  [3581] = {.lex_state = 295, .external_lex_state = 10},
-  [3582] = {.lex_state = 312, .external_lex_state = 5},
-  [3583] = {.lex_state = 293, .external_lex_state = 5},
-  [3584] = {.lex_state = 295, .external_lex_state = 10},
+  [3579] = {.lex_state = 292, .external_lex_state = 5},
+  [3580] = {.lex_state = 295, .external_lex_state = 10},
+  [3581] = {.lex_state = 290, .external_lex_state = 5},
+  [3582] = {.lex_state = 295, .external_lex_state = 10},
+  [3583] = {.lex_state = 295, .external_lex_state = 10},
+  [3584] = {.lex_state = 290, .external_lex_state = 5},
   [3585] = {.lex_state = 291, .external_lex_state = 5},
-  [3586] = {.lex_state = 291, .external_lex_state = 5},
-  [3587] = {.lex_state = 297, .external_lex_state = 6},
-  [3588] = {.lex_state = 312, .external_lex_state = 5},
-  [3589] = {.lex_state = 291, .external_lex_state = 5},
-  [3590] = {.lex_state = 292, .external_lex_state = 5},
-  [3591] = {.lex_state = 261, .external_lex_state = 6},
-  [3592] = {.lex_state = 292, .external_lex_state = 5},
-  [3593] = {.lex_state = 312, .external_lex_state = 5},
-  [3594] = {.lex_state = 292, .external_lex_state = 5},
+  [3586] = {.lex_state = 290, .external_lex_state = 5},
+  [3587] = {.lex_state = 292, .external_lex_state = 5},
+  [3588] = {.lex_state = 295, .external_lex_state = 10},
+  [3589] = {.lex_state = 287, .external_lex_state = 6},
+  [3590] = {.lex_state = 312, .external_lex_state = 5},
+  [3591] = {.lex_state = 290, .external_lex_state = 5},
+  [3592] = {.lex_state = 295, .external_lex_state = 10},
+  [3593] = {.lex_state = 261, .external_lex_state = 6},
+  [3594] = {.lex_state = 295, .external_lex_state = 10},
   [3595] = {.lex_state = 295, .external_lex_state = 10},
-  [3596] = {.lex_state = 305, .external_lex_state = 5},
+  [3596] = {.lex_state = 295, .external_lex_state = 10},
   [3597] = {.lex_state = 293, .external_lex_state = 5},
-  [3598] = {.lex_state = 290, .external_lex_state = 5},
-  [3599] = {.lex_state = 290, .external_lex_state = 5},
-  [3600] = {.lex_state = 312, .external_lex_state = 5},
-  [3601] = {.lex_state = 291, .external_lex_state = 5},
-  [3602] = {.lex_state = 261, .external_lex_state = 6},
-  [3603] = {.lex_state = 312, .external_lex_state = 5},
-  [3604] = {.lex_state = 291, .external_lex_state = 5},
-  [3605] = {.lex_state = 268, .external_lex_state = 6},
-  [3606] = {.lex_state = 290, .external_lex_state = 5},
-  [3607] = {.lex_state = 312, .external_lex_state = 5},
-  [3608] = {.lex_state = 287, .external_lex_state = 6},
-  [3609] = {.lex_state = 291, .external_lex_state = 5},
-  [3610] = {.lex_state = 290, .external_lex_state = 5},
-  [3611] = {.lex_state = 292, .external_lex_state = 5},
-  [3612] = {.lex_state = 295, .external_lex_state = 10},
-  [3613] = {.lex_state = 290, .external_lex_state = 5},
-  [3614] = {.lex_state = 290, .external_lex_state = 5},
-  [3615] = {.lex_state = 304, .external_lex_state = 5},
-  [3616] = {.lex_state = 290, .external_lex_state = 5},
-  [3617] = {.lex_state = 304, .external_lex_state = 5},
-  [3618] = {.lex_state = 291, .external_lex_state = 5},
-  [3619] = {.lex_state = 290, .external_lex_state = 5},
-  [3620] = {.lex_state = 305, .external_lex_state = 5},
-  [3621] = {.lex_state = 305, .external_lex_state = 5},
-  [3622] = {.lex_state = 312, .external_lex_state = 5},
-  [3623] = {.lex_state = 290, .external_lex_state = 5},
-  [3624] = {.lex_state = 291, .external_lex_state = 5},
+  [3598] = {.lex_state = 312, .external_lex_state = 5},
+  [3599] = {.lex_state = 295, .external_lex_state = 10},
+  [3600] = {.lex_state = 295, .external_lex_state = 10},
+  [3601] = {.lex_state = 297, .external_lex_state = 5},
+  [3602] = {.lex_state = 290, .external_lex_state = 5},
+  [3603] = {.lex_state = 295, .external_lex_state = 10},
+  [3604] = {.lex_state = 295, .external_lex_state = 10},
+  [3605] = {.lex_state = 295, .external_lex_state = 10},
+  [3606] = {.lex_state = 295, .external_lex_state = 10},
+  [3607] = {.lex_state = 293, .external_lex_state = 5},
+  [3608] = {.lex_state = 290, .external_lex_state = 5},
+  [3609] = {.lex_state = 305, .external_lex_state = 5},
+  [3610] = {.lex_state = 295, .external_lex_state = 10},
+  [3611] = {.lex_state = 295, .external_lex_state = 10},
+  [3612] = {.lex_state = 304, .external_lex_state = 5},
+  [3613] = {.lex_state = 312, .external_lex_state = 5},
+  [3614] = {.lex_state = 295, .external_lex_state = 10},
+  [3615] = {.lex_state = 295, .external_lex_state = 10},
+  [3616] = {.lex_state = 295, .external_lex_state = 10},
+  [3617] = {.lex_state = 292, .external_lex_state = 5},
+  [3618] = {.lex_state = 295, .external_lex_state = 10},
+  [3619] = {.lex_state = 312, .external_lex_state = 5},
+  [3620] = {.lex_state = 292, .external_lex_state = 5},
+  [3621] = {.lex_state = 295, .external_lex_state = 10},
+  [3622] = {.lex_state = 295, .external_lex_state = 10},
+  [3623] = {.lex_state = 295, .external_lex_state = 10},
+  [3624] = {.lex_state = 295, .external_lex_state = 10},
   [3625] = {.lex_state = 291, .external_lex_state = 5},
-  [3626] = {.lex_state = 295, .external_lex_state = 10},
-  [3627] = {.lex_state = 304, .external_lex_state = 5},
-  [3628] = {.lex_state = 295, .external_lex_state = 10},
+  [3626] = {.lex_state = 291, .external_lex_state = 5},
+  [3627] = {.lex_state = 295, .external_lex_state = 10},
+  [3628] = {.lex_state = 290, .external_lex_state = 5},
   [3629] = {.lex_state = 278, .external_lex_state = 5},
   [3630] = {.lex_state = 278, .external_lex_state = 5},
   [3631] = {.lex_state = 278, .external_lex_state = 5},
   [3632] = {.lex_state = 278, .external_lex_state = 5},
-  [3633] = {.lex_state = 278, .external_lex_state = 5},
+  [3633] = {.lex_state = 261, .external_lex_state = 6},
   [3634] = {.lex_state = 278, .external_lex_state = 5},
   [3635] = {.lex_state = 278, .external_lex_state = 5},
   [3636] = {.lex_state = 278, .external_lex_state = 5},
-  [3637] = {.lex_state = 216, .external_lex_state = 6},
+  [3637] = {.lex_state = 278, .external_lex_state = 5},
   [3638] = {.lex_state = 278, .external_lex_state = 5},
-  [3639] = {.lex_state = 278, .external_lex_state = 5},
+  [3639] = {.lex_state = 278, .external_lex_state = 6},
   [3640] = {.lex_state = 278, .external_lex_state = 5},
   [3641] = {.lex_state = 303, .external_lex_state = 6},
   [3642] = {.lex_state = 278, .external_lex_state = 5},
@@ -41169,21 +40921,21 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3647] = {.lex_state = 278, .external_lex_state = 5},
   [3648] = {.lex_state = 278, .external_lex_state = 5},
   [3649] = {.lex_state = 278, .external_lex_state = 5},
-  [3650] = {.lex_state = 278, .external_lex_state = 5},
+  [3650] = {.lex_state = 287, .external_lex_state = 6},
   [3651] = {.lex_state = 278, .external_lex_state = 5},
   [3652] = {.lex_state = 278, .external_lex_state = 5},
-  [3653] = {.lex_state = 278, .external_lex_state = 5},
+  [3653] = {.lex_state = 261, .external_lex_state = 6},
   [3654] = {.lex_state = 278, .external_lex_state = 5},
   [3655] = {.lex_state = 278, .external_lex_state = 5},
-  [3656] = {.lex_state = 278, .external_lex_state = 6},
-  [3657] = {.lex_state = 216, .external_lex_state = 6},
+  [3656] = {.lex_state = 278, .external_lex_state = 5},
+  [3657] = {.lex_state = 278, .external_lex_state = 5},
   [3658] = {.lex_state = 278, .external_lex_state = 5},
-  [3659] = {.lex_state = 303, .external_lex_state = 6},
+  [3659] = {.lex_state = 278, .external_lex_state = 5},
   [3660] = {.lex_state = 278, .external_lex_state = 5},
   [3661] = {.lex_state = 278, .external_lex_state = 5},
   [3662] = {.lex_state = 278, .external_lex_state = 5},
   [3663] = {.lex_state = 278, .external_lex_state = 5},
-  [3664] = {.lex_state = 278, .external_lex_state = 5},
+  [3664] = {.lex_state = 216, .external_lex_state = 6},
   [3665] = {.lex_state = 278, .external_lex_state = 5},
   [3666] = {.lex_state = 278, .external_lex_state = 5},
   [3667] = {.lex_state = 278, .external_lex_state = 5},
@@ -41191,23 +40943,23 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3669] = {.lex_state = 278, .external_lex_state = 5},
   [3670] = {.lex_state = 278, .external_lex_state = 5},
   [3671] = {.lex_state = 278, .external_lex_state = 5},
-  [3672] = {.lex_state = 261, .external_lex_state = 6},
+  [3672] = {.lex_state = 278, .external_lex_state = 5},
   [3673] = {.lex_state = 278, .external_lex_state = 5},
-  [3674] = {.lex_state = 261, .external_lex_state = 6},
-  [3675] = {.lex_state = 278, .external_lex_state = 5},
+  [3674] = {.lex_state = 278, .external_lex_state = 5},
+  [3675] = {.lex_state = 261, .external_lex_state = 6},
   [3676] = {.lex_state = 278, .external_lex_state = 5},
   [3677] = {.lex_state = 278, .external_lex_state = 5},
   [3678] = {.lex_state = 278, .external_lex_state = 5},
   [3679] = {.lex_state = 278, .external_lex_state = 5},
   [3680] = {.lex_state = 278, .external_lex_state = 5},
-  [3681] = {.lex_state = 216, .external_lex_state = 6},
+  [3681] = {.lex_state = 278, .external_lex_state = 5},
   [3682] = {.lex_state = 278, .external_lex_state = 5},
   [3683] = {.lex_state = 278, .external_lex_state = 5},
   [3684] = {.lex_state = 278, .external_lex_state = 5},
   [3685] = {.lex_state = 278, .external_lex_state = 5},
-  [3686] = {.lex_state = 278, .external_lex_state = 5},
-  [3687] = {.lex_state = 287, .external_lex_state = 6},
-  [3688] = {.lex_state = 278, .external_lex_state = 5},
+  [3686] = {.lex_state = 261, .external_lex_state = 6},
+  [3687] = {.lex_state = 278, .external_lex_state = 5},
+  [3688] = {.lex_state = 261, .external_lex_state = 6},
   [3689] = {.lex_state = 278, .external_lex_state = 5},
   [3690] = {.lex_state = 278, .external_lex_state = 5},
   [3691] = {.lex_state = 278, .external_lex_state = 5},
@@ -41215,32 +40967,32 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3693] = {.lex_state = 278, .external_lex_state = 5},
   [3694] = {.lex_state = 278, .external_lex_state = 5},
   [3695] = {.lex_state = 278, .external_lex_state = 5},
-  [3696] = {.lex_state = 278, .external_lex_state = 6},
-  [3697] = {.lex_state = 278, .external_lex_state = 5},
+  [3696] = {.lex_state = 278, .external_lex_state = 5},
+  [3697] = {.lex_state = 216, .external_lex_state = 6},
   [3698] = {.lex_state = 278, .external_lex_state = 5},
   [3699] = {.lex_state = 278, .external_lex_state = 5},
   [3700] = {.lex_state = 278, .external_lex_state = 5},
   [3701] = {.lex_state = 278, .external_lex_state = 5},
   [3702] = {.lex_state = 278, .external_lex_state = 5},
-  [3703] = {.lex_state = 261, .external_lex_state = 6},
+  [3703] = {.lex_state = 278, .external_lex_state = 5},
   [3704] = {.lex_state = 278, .external_lex_state = 5},
-  [3705] = {.lex_state = 261, .external_lex_state = 6},
-  [3706] = {.lex_state = 261, .external_lex_state = 6},
-  [3707] = {.lex_state = 278, .external_lex_state = 6},
+  [3705] = {.lex_state = 278, .external_lex_state = 5},
+  [3706] = {.lex_state = 278, .external_lex_state = 5},
+  [3707] = {.lex_state = 278, .external_lex_state = 5},
   [3708] = {.lex_state = 278, .external_lex_state = 5},
   [3709] = {.lex_state = 278, .external_lex_state = 5},
   [3710] = {.lex_state = 278, .external_lex_state = 5},
-  [3711] = {.lex_state = 261, .external_lex_state = 6},
-  [3712] = {.lex_state = 261, .external_lex_state = 6},
+  [3711] = {.lex_state = 278, .external_lex_state = 5},
+  [3712] = {.lex_state = 278, .external_lex_state = 5},
   [3713] = {.lex_state = 278, .external_lex_state = 5},
   [3714] = {.lex_state = 278, .external_lex_state = 5},
-  [3715] = {.lex_state = 303, .external_lex_state = 6},
-  [3716] = {.lex_state = 216, .external_lex_state = 6},
+  [3715] = {.lex_state = 278, .external_lex_state = 5},
+  [3716] = {.lex_state = 278, .external_lex_state = 5},
   [3717] = {.lex_state = 278, .external_lex_state = 5},
   [3718] = {.lex_state = 278, .external_lex_state = 5},
-  [3719] = {.lex_state = 261, .external_lex_state = 6},
-  [3720] = {.lex_state = 261, .external_lex_state = 6},
-  [3721] = {.lex_state = 261, .external_lex_state = 6},
+  [3719] = {.lex_state = 278, .external_lex_state = 5},
+  [3720] = {.lex_state = 278, .external_lex_state = 5},
+  [3721] = {.lex_state = 278, .external_lex_state = 5},
   [3722] = {.lex_state = 278, .external_lex_state = 5},
   [3723] = {.lex_state = 278, .external_lex_state = 5},
   [3724] = {.lex_state = 278, .external_lex_state = 5},
@@ -41248,36 +41000,36 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3726] = {.lex_state = 278, .external_lex_state = 5},
   [3727] = {.lex_state = 278, .external_lex_state = 5},
   [3728] = {.lex_state = 278, .external_lex_state = 5},
-  [3729] = {.lex_state = 278, .external_lex_state = 5},
+  [3729] = {.lex_state = 261, .external_lex_state = 6},
   [3730] = {.lex_state = 278, .external_lex_state = 5},
   [3731] = {.lex_state = 278, .external_lex_state = 5},
-  [3732] = {.lex_state = 278, .external_lex_state = 5},
-  [3733] = {.lex_state = 278, .external_lex_state = 5},
-  [3734] = {.lex_state = 278, .external_lex_state = 5},
-  [3735] = {.lex_state = 278, .external_lex_state = 5},
+  [3732] = {.lex_state = 261, .external_lex_state = 6},
+  [3733] = {.lex_state = 261, .external_lex_state = 6},
+  [3734] = {.lex_state = 261, .external_lex_state = 6},
+  [3735] = {.lex_state = 303, .external_lex_state = 6},
   [3736] = {.lex_state = 278, .external_lex_state = 5},
-  [3737] = {.lex_state = 278, .external_lex_state = 5},
-  [3738] = {.lex_state = 278, .external_lex_state = 5},
+  [3737] = {.lex_state = 278, .external_lex_state = 6},
+  [3738] = {.lex_state = 216, .external_lex_state = 6},
   [3739] = {.lex_state = 278, .external_lex_state = 5},
   [3740] = {.lex_state = 278, .external_lex_state = 5},
   [3741] = {.lex_state = 278, .external_lex_state = 5},
   [3742] = {.lex_state = 278, .external_lex_state = 5},
   [3743] = {.lex_state = 278, .external_lex_state = 5},
-  [3744] = {.lex_state = 278, .external_lex_state = 5},
-  [3745] = {.lex_state = 278, .external_lex_state = 5},
+  [3744] = {.lex_state = 261, .external_lex_state = 6},
+  [3745] = {.lex_state = 261, .external_lex_state = 6},
   [3746] = {.lex_state = 278, .external_lex_state = 5},
-  [3747] = {.lex_state = 261, .external_lex_state = 6},
+  [3747] = {.lex_state = 216, .external_lex_state = 6},
   [3748] = {.lex_state = 278, .external_lex_state = 5},
   [3749] = {.lex_state = 278, .external_lex_state = 5},
   [3750] = {.lex_state = 278, .external_lex_state = 5},
   [3751] = {.lex_state = 278, .external_lex_state = 5},
   [3752] = {.lex_state = 278, .external_lex_state = 5},
   [3753] = {.lex_state = 278, .external_lex_state = 5},
-  [3754] = {.lex_state = 216, .external_lex_state = 6},
-  [3755] = {.lex_state = 261, .external_lex_state = 6},
+  [3754] = {.lex_state = 278, .external_lex_state = 5},
+  [3755] = {.lex_state = 278, .external_lex_state = 5},
   [3756] = {.lex_state = 278, .external_lex_state = 5},
-  [3757] = {.lex_state = 278, .external_lex_state = 5},
-  [3758] = {.lex_state = 278, .external_lex_state = 5},
+  [3757] = {.lex_state = 261, .external_lex_state = 6},
+  [3758] = {.lex_state = 287, .external_lex_state = 6},
   [3759] = {.lex_state = 278, .external_lex_state = 5},
   [3760] = {.lex_state = 278, .external_lex_state = 5},
   [3761] = {.lex_state = 278, .external_lex_state = 5},
@@ -41289,14 +41041,14 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3767] = {.lex_state = 278, .external_lex_state = 5},
   [3768] = {.lex_state = 278, .external_lex_state = 5},
   [3769] = {.lex_state = 278, .external_lex_state = 5},
-  [3770] = {.lex_state = 278, .external_lex_state = 5},
+  [3770] = {.lex_state = 261, .external_lex_state = 6},
   [3771] = {.lex_state = 278, .external_lex_state = 5},
-  [3772] = {.lex_state = 278, .external_lex_state = 5},
-  [3773] = {.lex_state = 278, .external_lex_state = 5},
+  [3772] = {.lex_state = 303, .external_lex_state = 6},
+  [3773] = {.lex_state = 278, .external_lex_state = 6},
   [3774] = {.lex_state = 278, .external_lex_state = 5},
   [3775] = {.lex_state = 278, .external_lex_state = 5},
-  [3776] = {.lex_state = 216, .external_lex_state = 6},
-  [3777] = {.lex_state = 278, .external_lex_state = 5},
+  [3776] = {.lex_state = 278, .external_lex_state = 5},
+  [3777] = {.lex_state = 261, .external_lex_state = 6},
   [3778] = {.lex_state = 278, .external_lex_state = 5},
   [3779] = {.lex_state = 278, .external_lex_state = 5},
   [3780] = {.lex_state = 278, .external_lex_state = 5},
@@ -41304,292 +41056,292 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [3782] = {.lex_state = 278, .external_lex_state = 5},
   [3783] = {.lex_state = 216, .external_lex_state = 6},
   [3784] = {.lex_state = 278, .external_lex_state = 5},
-  [3785] = {.lex_state = 278, .external_lex_state = 5},
+  [3785] = {.lex_state = 261, .external_lex_state = 6},
   [3786] = {.lex_state = 278, .external_lex_state = 5},
-  [3787] = {.lex_state = 278, .external_lex_state = 5},
-  [3788] = {.lex_state = 278, .external_lex_state = 5},
-  [3789] = {.lex_state = 261, .external_lex_state = 6},
-  [3790] = {.lex_state = 278, .external_lex_state = 5},
-  [3791] = {.lex_state = 287, .external_lex_state = 6},
+  [3787] = {.lex_state = 216, .external_lex_state = 6},
+  [3788] = {.lex_state = 261, .external_lex_state = 6},
+  [3789] = {.lex_state = 278, .external_lex_state = 5},
+  [3790] = {.lex_state = 261, .external_lex_state = 6},
+  [3791] = {.lex_state = 216, .external_lex_state = 6},
   [3792] = {.lex_state = 278, .external_lex_state = 5},
-  [3793] = {.lex_state = 261, .external_lex_state = 6},
-  [3794] = {.lex_state = 278, .external_lex_state = 6},
+  [3793] = {.lex_state = 278, .external_lex_state = 5},
+  [3794] = {.lex_state = 278, .external_lex_state = 5},
   [3795] = {.lex_state = 278, .external_lex_state = 5},
   [3796] = {.lex_state = 278, .external_lex_state = 5},
   [3797] = {.lex_state = 278, .external_lex_state = 5},
-  [3798] = {.lex_state = 261, .external_lex_state = 6},
-  [3799] = {.lex_state = 261, .external_lex_state = 6},
-  [3800] = {.lex_state = 216, .external_lex_state = 6},
-  [3801] = {.lex_state = 287, .external_lex_state = 6},
+  [3798] = {.lex_state = 278, .external_lex_state = 5},
+  [3799] = {.lex_state = 278, .external_lex_state = 5},
+  [3800] = {.lex_state = 278, .external_lex_state = 5},
+  [3801] = {.lex_state = 278, .external_lex_state = 5},
   [3802] = {.lex_state = 278, .external_lex_state = 5},
   [3803] = {.lex_state = 278, .external_lex_state = 5},
-  [3804] = {.lex_state = 303, .external_lex_state = 6},
+  [3804] = {.lex_state = 278, .external_lex_state = 6},
   [3805] = {.lex_state = 216, .external_lex_state = 6},
   [3806] = {.lex_state = 278, .external_lex_state = 5},
-  [3807] = {.lex_state = 261, .external_lex_state = 6},
+  [3807] = {.lex_state = 278, .external_lex_state = 5},
   [3808] = {.lex_state = 278, .external_lex_state = 5},
   [3809] = {.lex_state = 278, .external_lex_state = 5},
   [3810] = {.lex_state = 278, .external_lex_state = 5},
   [3811] = {.lex_state = 278, .external_lex_state = 5},
-  [3812] = {.lex_state = 278, .external_lex_state = 5},
+  [3812] = {.lex_state = 303, .external_lex_state = 6},
   [3813] = {.lex_state = 278, .external_lex_state = 5},
-  [3814] = {.lex_state = 278, .external_lex_state = 5},
-  [3815] = {.lex_state = 278, .external_lex_state = 5},
+  [3814] = {.lex_state = 287, .external_lex_state = 6},
+  [3815] = {.lex_state = 216, .external_lex_state = 6},
   [3816] = {.lex_state = 278, .external_lex_state = 5},
-  [3817] = {.lex_state = 278, .external_lex_state = 5},
-  [3818] = {.lex_state = 228, .external_lex_state = 6},
-  [3819] = {.lex_state = 303, .external_lex_state = 6},
-  [3820] = {.lex_state = 228, .external_lex_state = 6},
-  [3821] = {.lex_state = 228, .external_lex_state = 6},
-  [3822] = {.lex_state = 278, .external_lex_state = 6},
+  [3817] = {.lex_state = 216, .external_lex_state = 6},
+  [3818] = {.lex_state = 216, .external_lex_state = 6},
+  [3819] = {.lex_state = 216, .external_lex_state = 6},
+  [3820] = {.lex_state = 278, .external_lex_state = 5},
+  [3821] = {.lex_state = 216, .external_lex_state = 6},
+  [3822] = {.lex_state = 216, .external_lex_state = 6},
   [3823] = {.lex_state = 216, .external_lex_state = 6},
-  [3824] = {.lex_state = 216, .external_lex_state = 6},
+  [3824] = {.lex_state = 287, .external_lex_state = 6},
   [3825] = {.lex_state = 216, .external_lex_state = 6},
-  [3826] = {.lex_state = 278, .external_lex_state = 5},
-  [3827] = {.lex_state = 216, .external_lex_state = 6},
+  [3826] = {.lex_state = 216, .external_lex_state = 6},
+  [3827] = {.lex_state = 278, .external_lex_state = 5},
   [3828] = {.lex_state = 216, .external_lex_state = 6},
-  [3829] = {.lex_state = 216, .external_lex_state = 6},
-  [3830] = {.lex_state = 228, .external_lex_state = 6},
-  [3831] = {.lex_state = 228, .external_lex_state = 6},
+  [3829] = {.lex_state = 278, .external_lex_state = 6},
+  [3830] = {.lex_state = 278, .external_lex_state = 5},
+  [3831] = {.lex_state = 216, .external_lex_state = 6},
   [3832] = {.lex_state = 216, .external_lex_state = 6},
-  [3833] = {.lex_state = 278, .external_lex_state = 5},
-  [3834] = {.lex_state = 278, .external_lex_state = 6},
-  [3835] = {.lex_state = 278, .external_lex_state = 5},
+  [3833] = {.lex_state = 297, .external_lex_state = 6},
+  [3834] = {.lex_state = 278, .external_lex_state = 5},
+  [3835] = {.lex_state = 216, .external_lex_state = 6},
   [3836] = {.lex_state = 216, .external_lex_state = 6},
-  [3837] = {.lex_state = 228, .external_lex_state = 6},
+  [3837] = {.lex_state = 216, .external_lex_state = 6},
   [3838] = {.lex_state = 216, .external_lex_state = 6},
-  [3839] = {.lex_state = 216, .external_lex_state = 6},
-  [3840] = {.lex_state = 216, .external_lex_state = 6},
-  [3841] = {.lex_state = 278, .external_lex_state = 5},
-  [3842] = {.lex_state = 278, .external_lex_state = 5},
+  [3839] = {.lex_state = 278, .external_lex_state = 5},
+  [3840] = {.lex_state = 228, .external_lex_state = 6},
+  [3841] = {.lex_state = 228, .external_lex_state = 6},
+  [3842] = {.lex_state = 216, .external_lex_state = 6},
   [3843] = {.lex_state = 216, .external_lex_state = 6},
-  [3844] = {.lex_state = 228, .external_lex_state = 6},
-  [3845] = {.lex_state = 278, .external_lex_state = 5},
-  [3846] = {.lex_state = 216, .external_lex_state = 6},
-  [3847] = {.lex_state = 278, .external_lex_state = 6},
-  [3848] = {.lex_state = 278, .external_lex_state = 5},
-  [3849] = {.lex_state = 216, .external_lex_state = 6},
+  [3844] = {.lex_state = 278, .external_lex_state = 6},
+  [3845] = {.lex_state = 228, .external_lex_state = 6},
+  [3846] = {.lex_state = 278, .external_lex_state = 6},
+  [3847] = {.lex_state = 278, .external_lex_state = 5},
+  [3848] = {.lex_state = 228, .external_lex_state = 6},
+  [3849] = {.lex_state = 228, .external_lex_state = 6},
   [3850] = {.lex_state = 216, .external_lex_state = 6},
-  [3851] = {.lex_state = 287, .external_lex_state = 6},
-  [3852] = {.lex_state = 287, .external_lex_state = 6},
-  [3853] = {.lex_state = 228, .external_lex_state = 6},
-  [3854] = {.lex_state = 216, .external_lex_state = 6},
+  [3851] = {.lex_state = 216, .external_lex_state = 6},
+  [3852] = {.lex_state = 216, .external_lex_state = 6},
+  [3853] = {.lex_state = 216, .external_lex_state = 6},
+  [3854] = {.lex_state = 278, .external_lex_state = 5},
   [3855] = {.lex_state = 278, .external_lex_state = 5},
-  [3856] = {.lex_state = 228, .external_lex_state = 6},
+  [3856] = {.lex_state = 216, .external_lex_state = 6},
   [3857] = {.lex_state = 278, .external_lex_state = 5},
-  [3858] = {.lex_state = 228, .external_lex_state = 6},
-  [3859] = {.lex_state = 228, .external_lex_state = 6},
-  [3860] = {.lex_state = 228, .external_lex_state = 6},
-  [3861] = {.lex_state = 278, .external_lex_state = 5},
+  [3858] = {.lex_state = 216, .external_lex_state = 6},
+  [3859] = {.lex_state = 216, .external_lex_state = 6},
+  [3860] = {.lex_state = 216, .external_lex_state = 6},
+  [3861] = {.lex_state = 216, .external_lex_state = 6},
   [3862] = {.lex_state = 216, .external_lex_state = 6},
   [3863] = {.lex_state = 216, .external_lex_state = 6},
-  [3864] = {.lex_state = 287, .external_lex_state = 6},
-  [3865] = {.lex_state = 303, .external_lex_state = 6},
-  [3866] = {.lex_state = 287, .external_lex_state = 6},
-  [3867] = {.lex_state = 216, .external_lex_state = 6},
+  [3864] = {.lex_state = 278, .external_lex_state = 5},
+  [3865] = {.lex_state = 216, .external_lex_state = 6},
+  [3866] = {.lex_state = 228, .external_lex_state = 6},
+  [3867] = {.lex_state = 278, .external_lex_state = 5},
   [3868] = {.lex_state = 216, .external_lex_state = 6},
   [3869] = {.lex_state = 216, .external_lex_state = 6},
-  [3870] = {.lex_state = 216, .external_lex_state = 6},
-  [3871] = {.lex_state = 216, .external_lex_state = 6},
-  [3872] = {.lex_state = 216, .external_lex_state = 6},
+  [3870] = {.lex_state = 228, .external_lex_state = 6},
+  [3871] = {.lex_state = 303, .external_lex_state = 6},
+  [3872] = {.lex_state = 228, .external_lex_state = 6},
   [3873] = {.lex_state = 216, .external_lex_state = 6},
   [3874] = {.lex_state = 216, .external_lex_state = 6},
   [3875] = {.lex_state = 216, .external_lex_state = 6},
   [3876] = {.lex_state = 216, .external_lex_state = 6},
-  [3877] = {.lex_state = 278, .external_lex_state = 5},
+  [3877] = {.lex_state = 216, .external_lex_state = 6},
   [3878] = {.lex_state = 278, .external_lex_state = 5},
   [3879] = {.lex_state = 278, .external_lex_state = 5},
-  [3880] = {.lex_state = 216, .external_lex_state = 6},
-  [3881] = {.lex_state = 216, .external_lex_state = 6},
-  [3882] = {.lex_state = 228, .external_lex_state = 6},
-  [3883] = {.lex_state = 278, .external_lex_state = 6},
+  [3880] = {.lex_state = 228, .external_lex_state = 6},
+  [3881] = {.lex_state = 228, .external_lex_state = 6},
+  [3882] = {.lex_state = 297, .external_lex_state = 6},
+  [3883] = {.lex_state = 303, .external_lex_state = 6},
   [3884] = {.lex_state = 216, .external_lex_state = 6},
-  [3885] = {.lex_state = 228, .external_lex_state = 6},
-  [3886] = {.lex_state = 278, .external_lex_state = 5},
-  [3887] = {.lex_state = 216, .external_lex_state = 6},
-  [3888] = {.lex_state = 216, .external_lex_state = 6},
+  [3885] = {.lex_state = 216, .external_lex_state = 6},
+  [3886] = {.lex_state = 278, .external_lex_state = 6},
+  [3887] = {.lex_state = 278, .external_lex_state = 5},
+  [3888] = {.lex_state = 228, .external_lex_state = 6},
   [3889] = {.lex_state = 216, .external_lex_state = 6},
-  [3890] = {.lex_state = 228, .external_lex_state = 6},
+  [3890] = {.lex_state = 278, .external_lex_state = 5},
   [3891] = {.lex_state = 216, .external_lex_state = 6},
   [3892] = {.lex_state = 228, .external_lex_state = 6},
-  [3893] = {.lex_state = 228, .external_lex_state = 6},
-  [3894] = {.lex_state = 287, .external_lex_state = 6},
-  [3895] = {.lex_state = 228, .external_lex_state = 6},
+  [3893] = {.lex_state = 278, .external_lex_state = 5},
+  [3894] = {.lex_state = 216, .external_lex_state = 6},
+  [3895] = {.lex_state = 278, .external_lex_state = 5},
   [3896] = {.lex_state = 216, .external_lex_state = 6},
-  [3897] = {.lex_state = 216, .external_lex_state = 6},
+  [3897] = {.lex_state = 228, .external_lex_state = 6},
   [3898] = {.lex_state = 216, .external_lex_state = 6},
-  [3899] = {.lex_state = 216, .external_lex_state = 6},
+  [3899] = {.lex_state = 278, .external_lex_state = 5},
   [3900] = {.lex_state = 216, .external_lex_state = 6},
-  [3901] = {.lex_state = 278, .external_lex_state = 5},
-  [3902] = {.lex_state = 216, .external_lex_state = 6},
+  [3901] = {.lex_state = 228, .external_lex_state = 6},
+  [3902] = {.lex_state = 278, .external_lex_state = 6},
   [3903] = {.lex_state = 216, .external_lex_state = 6},
-  [3904] = {.lex_state = 216, .external_lex_state = 6},
-  [3905] = {.lex_state = 216, .external_lex_state = 6},
+  [3904] = {.lex_state = 228, .external_lex_state = 6},
+  [3905] = {.lex_state = 228, .external_lex_state = 6},
   [3906] = {.lex_state = 216, .external_lex_state = 6},
-  [3907] = {.lex_state = 228, .external_lex_state = 6},
-  [3908] = {.lex_state = 228, .external_lex_state = 6},
-  [3909] = {.lex_state = 216, .external_lex_state = 6},
+  [3907] = {.lex_state = 216, .external_lex_state = 6},
+  [3908] = {.lex_state = 216, .external_lex_state = 6},
+  [3909] = {.lex_state = 228, .external_lex_state = 6},
   [3910] = {.lex_state = 228, .external_lex_state = 6},
   [3911] = {.lex_state = 216, .external_lex_state = 6},
-  [3912] = {.lex_state = 228, .external_lex_state = 6},
-  [3913] = {.lex_state = 216, .external_lex_state = 6},
-  [3914] = {.lex_state = 278, .external_lex_state = 5},
+  [3912] = {.lex_state = 287, .external_lex_state = 6},
+  [3913] = {.lex_state = 278, .external_lex_state = 5},
+  [3914] = {.lex_state = 303, .external_lex_state = 6},
   [3915] = {.lex_state = 216, .external_lex_state = 6},
-  [3916] = {.lex_state = 278, .external_lex_state = 6},
-  [3917] = {.lex_state = 278, .external_lex_state = 5},
-  [3918] = {.lex_state = 278, .external_lex_state = 5},
+  [3916] = {.lex_state = 228, .external_lex_state = 6},
+  [3917] = {.lex_state = 216, .external_lex_state = 6},
+  [3918] = {.lex_state = 228, .external_lex_state = 6},
   [3919] = {.lex_state = 228, .external_lex_state = 6},
-  [3920] = {.lex_state = 297, .external_lex_state = 6},
-  [3921] = {.lex_state = 297, .external_lex_state = 6},
-  [3922] = {.lex_state = 216, .external_lex_state = 6},
-  [3923] = {.lex_state = 228, .external_lex_state = 6},
-  [3924] = {.lex_state = 216, .external_lex_state = 6},
-  [3925] = {.lex_state = 228, .external_lex_state = 6},
-  [3926] = {.lex_state = 278, .external_lex_state = 5},
+  [3920] = {.lex_state = 216, .external_lex_state = 6},
+  [3921] = {.lex_state = 278, .external_lex_state = 5},
+  [3922] = {.lex_state = 278, .external_lex_state = 5},
+  [3923] = {.lex_state = 216, .external_lex_state = 6},
+  [3924] = {.lex_state = 228, .external_lex_state = 6},
+  [3925] = {.lex_state = 216, .external_lex_state = 6},
+  [3926] = {.lex_state = 228, .external_lex_state = 6},
   [3927] = {.lex_state = 216, .external_lex_state = 6},
-  [3928] = {.lex_state = 216, .external_lex_state = 6},
+  [3928] = {.lex_state = 287, .external_lex_state = 6},
   [3929] = {.lex_state = 216, .external_lex_state = 6},
-  [3930] = {.lex_state = 216, .external_lex_state = 6},
+  [3930] = {.lex_state = 278, .external_lex_state = 6},
   [3931] = {.lex_state = 216, .external_lex_state = 6},
-  [3932] = {.lex_state = 303, .external_lex_state = 6},
-  [3933] = {.lex_state = 278, .external_lex_state = 6},
-  [3934] = {.lex_state = 216, .external_lex_state = 6},
+  [3932] = {.lex_state = 216, .external_lex_state = 6},
+  [3933] = {.lex_state = 216, .external_lex_state = 6},
+  [3934] = {.lex_state = 228, .external_lex_state = 6},
   [3935] = {.lex_state = 228, .external_lex_state = 6},
-  [3936] = {.lex_state = 216, .external_lex_state = 6},
+  [3936] = {.lex_state = 228, .external_lex_state = 6},
   [3937] = {.lex_state = 216, .external_lex_state = 6},
-  [3938] = {.lex_state = 216, .external_lex_state = 6},
-  [3939] = {.lex_state = 216, .external_lex_state = 6},
-  [3940] = {.lex_state = 228, .external_lex_state = 6},
-  [3941] = {.lex_state = 278, .external_lex_state = 5},
+  [3938] = {.lex_state = 278, .external_lex_state = 5},
+  [3939] = {.lex_state = 228, .external_lex_state = 6},
+  [3940] = {.lex_state = 216, .external_lex_state = 6},
+  [3941] = {.lex_state = 287, .external_lex_state = 6},
   [3942] = {.lex_state = 228, .external_lex_state = 6},
-  [3943] = {.lex_state = 216, .external_lex_state = 6},
-  [3944] = {.lex_state = 278, .external_lex_state = 5},
+  [3943] = {.lex_state = 287, .external_lex_state = 6},
+  [3944] = {.lex_state = 216, .external_lex_state = 6},
   [3945] = {.lex_state = 216, .external_lex_state = 6},
   [3946] = {.lex_state = 261, .external_lex_state = 6},
-  [3947] = {.lex_state = 287, .external_lex_state = 6},
-  [3948] = {.lex_state = 223, .external_lex_state = 6},
-  [3949] = {.lex_state = 278, .external_lex_state = 6},
-  [3950] = {.lex_state = 278, .external_lex_state = 6},
-  [3951] = {.lex_state = 313, .external_lex_state = 6},
-  [3952] = {.lex_state = 223, .external_lex_state = 6},
-  [3953] = {.lex_state = 287, .external_lex_state = 6},
+  [3947] = {.lex_state = 313, .external_lex_state = 6},
+  [3948] = {.lex_state = 261, .external_lex_state = 6},
+  [3949] = {.lex_state = 223, .external_lex_state = 6},
+  [3950] = {.lex_state = 306, .external_lex_state = 6},
+  [3951] = {.lex_state = 297, .external_lex_state = 6},
+  [3952] = {.lex_state = 297, .external_lex_state = 6},
+  [3953] = {.lex_state = 297, .external_lex_state = 6},
   [3954] = {.lex_state = 297, .external_lex_state = 6},
-  [3955] = {.lex_state = 297, .external_lex_state = 6},
-  [3956] = {.lex_state = 297, .external_lex_state = 6},
-  [3957] = {.lex_state = 278, .external_lex_state = 6},
-  [3958] = {.lex_state = 261, .external_lex_state = 6},
-  [3959] = {.lex_state = 261, .external_lex_state = 6},
-  [3960] = {.lex_state = 261, .external_lex_state = 6},
-  [3961] = {.lex_state = 297, .external_lex_state = 6},
-  [3962] = {.lex_state = 297, .external_lex_state = 6},
+  [3955] = {.lex_state = 223, .external_lex_state = 6},
+  [3956] = {.lex_state = 278, .external_lex_state = 6},
+  [3957] = {.lex_state = 287, .external_lex_state = 6},
+  [3958] = {.lex_state = 287, .external_lex_state = 6},
+  [3959] = {.lex_state = 297, .external_lex_state = 6},
+  [3960] = {.lex_state = 223, .external_lex_state = 6},
+  [3961] = {.lex_state = 261, .external_lex_state = 6},
+  [3962] = {.lex_state = 228, .external_lex_state = 6},
   [3963] = {.lex_state = 297, .external_lex_state = 6},
-  [3964] = {.lex_state = 228, .external_lex_state = 6},
-  [3965] = {.lex_state = 313, .external_lex_state = 6},
-  [3966] = {.lex_state = 223, .external_lex_state = 6},
-  [3967] = {.lex_state = 313, .external_lex_state = 6},
-  [3968] = {.lex_state = 261, .external_lex_state = 6},
-  [3969] = {.lex_state = 306, .external_lex_state = 6},
-  [3970] = {.lex_state = 297, .external_lex_state = 6},
-  [3971] = {.lex_state = 297, .external_lex_state = 6},
-  [3972] = {.lex_state = 297, .external_lex_state = 6},
-  [3973] = {.lex_state = 297, .external_lex_state = 6},
+  [3964] = {.lex_state = 278, .external_lex_state = 6},
+  [3965] = {.lex_state = 297, .external_lex_state = 6},
+  [3966] = {.lex_state = 313, .external_lex_state = 6},
+  [3967] = {.lex_state = 297, .external_lex_state = 6},
+  [3968] = {.lex_state = 297, .external_lex_state = 6},
+  [3969] = {.lex_state = 297, .external_lex_state = 6},
+  [3970] = {.lex_state = 261, .external_lex_state = 6},
+  [3971] = {.lex_state = 313, .external_lex_state = 6},
+  [3972] = {.lex_state = 278, .external_lex_state = 6},
+  [3973] = {.lex_state = 261, .external_lex_state = 6},
   [3974] = {.lex_state = 261, .external_lex_state = 6},
-  [3975] = {.lex_state = 297, .external_lex_state = 6},
+  [3975] = {.lex_state = 278, .external_lex_state = 6},
   [3976] = {.lex_state = 297, .external_lex_state = 6},
-  [3977] = {.lex_state = 278, .external_lex_state = 6},
-  [3978] = {.lex_state = 278, .external_lex_state = 6},
-  [3979] = {.lex_state = 278, .external_lex_state = 6},
-  [3980] = {.lex_state = 288, .external_lex_state = 6},
-  [3981] = {.lex_state = 278, .external_lex_state = 6},
+  [3977] = {.lex_state = 297, .external_lex_state = 6},
+  [3978] = {.lex_state = 216, .external_lex_state = 6},
+  [3979] = {.lex_state = 216, .external_lex_state = 6},
+  [3980] = {.lex_state = 297, .external_lex_state = 6},
+  [3981] = {.lex_state = 297, .external_lex_state = 6},
   [3982] = {.lex_state = 278, .external_lex_state = 6},
   [3983] = {.lex_state = 297, .external_lex_state = 6},
   [3984] = {.lex_state = 297, .external_lex_state = 6},
-  [3985] = {.lex_state = 297, .external_lex_state = 6},
-  [3986] = {.lex_state = 297, .external_lex_state = 6},
-  [3987] = {.lex_state = 297, .external_lex_state = 6},
-  [3988] = {.lex_state = 297, .external_lex_state = 6},
-  [3989] = {.lex_state = 278, .external_lex_state = 6},
-  [3990] = {.lex_state = 297, .external_lex_state = 6},
+  [3985] = {.lex_state = 278, .external_lex_state = 6},
+  [3986] = {.lex_state = 278, .external_lex_state = 6},
+  [3987] = {.lex_state = 278, .external_lex_state = 6},
+  [3988] = {.lex_state = 216, .external_lex_state = 6},
+  [3989] = {.lex_state = 288, .external_lex_state = 6},
+  [3990] = {.lex_state = 278, .external_lex_state = 6},
   [3991] = {.lex_state = 297, .external_lex_state = 6},
   [3992] = {.lex_state = 297, .external_lex_state = 6},
-  [3993] = {.lex_state = 297, .external_lex_state = 6},
+  [3993] = {.lex_state = 278, .external_lex_state = 6},
   [3994] = {.lex_state = 297, .external_lex_state = 6},
-  [3995] = {.lex_state = 216, .external_lex_state = 6},
-  [3996] = {.lex_state = 278, .external_lex_state = 6},
-  [3997] = {.lex_state = 297, .external_lex_state = 6},
-  [3998] = {.lex_state = 297, .external_lex_state = 6},
+  [3995] = {.lex_state = 278, .external_lex_state = 6},
+  [3996] = {.lex_state = 297, .external_lex_state = 6},
+  [3997] = {.lex_state = 278, .external_lex_state = 6},
+  [3998] = {.lex_state = 278, .external_lex_state = 6},
   [3999] = {.lex_state = 297, .external_lex_state = 6},
-  [4000] = {.lex_state = 297, .external_lex_state = 6},
+  [4000] = {.lex_state = 278, .external_lex_state = 6},
   [4001] = {.lex_state = 297, .external_lex_state = 6},
-  [4002] = {.lex_state = 288, .external_lex_state = 6},
+  [4002] = {.lex_state = 278, .external_lex_state = 6},
   [4003] = {.lex_state = 278, .external_lex_state = 6},
-  [4004] = {.lex_state = 278, .external_lex_state = 6},
-  [4005] = {.lex_state = 297, .external_lex_state = 6},
-  [4006] = {.lex_state = 297, .external_lex_state = 6},
+  [4004] = {.lex_state = 297, .external_lex_state = 6},
+  [4005] = {.lex_state = 278, .external_lex_state = 6},
+  [4006] = {.lex_state = 278, .external_lex_state = 6},
   [4007] = {.lex_state = 278, .external_lex_state = 6},
   [4008] = {.lex_state = 297, .external_lex_state = 6},
-  [4009] = {.lex_state = 278, .external_lex_state = 6},
-  [4010] = {.lex_state = 297, .external_lex_state = 6},
-  [4011] = {.lex_state = 278, .external_lex_state = 6},
-  [4012] = {.lex_state = 278, .external_lex_state = 6},
+  [4009] = {.lex_state = 297, .external_lex_state = 6},
+  [4010] = {.lex_state = 278, .external_lex_state = 6},
+  [4011] = {.lex_state = 297, .external_lex_state = 6},
+  [4012] = {.lex_state = 297, .external_lex_state = 6},
   [4013] = {.lex_state = 297, .external_lex_state = 6},
-  [4014] = {.lex_state = 297, .external_lex_state = 6},
-  [4015] = {.lex_state = 278, .external_lex_state = 6},
+  [4014] = {.lex_state = 278, .external_lex_state = 6},
+  [4015] = {.lex_state = 297, .external_lex_state = 6},
   [4016] = {.lex_state = 278, .external_lex_state = 6},
-  [4017] = {.lex_state = 278, .external_lex_state = 6},
+  [4017] = {.lex_state = 278, .external_lex_state = 5},
   [4018] = {.lex_state = 278, .external_lex_state = 6},
   [4019] = {.lex_state = 278, .external_lex_state = 6},
-  [4020] = {.lex_state = 297, .external_lex_state = 6},
-  [4021] = {.lex_state = 297, .external_lex_state = 6},
+  [4020] = {.lex_state = 278, .external_lex_state = 6},
+  [4021] = {.lex_state = 278, .external_lex_state = 6},
   [4022] = {.lex_state = 278, .external_lex_state = 6},
   [4023] = {.lex_state = 278, .external_lex_state = 6},
   [4024] = {.lex_state = 278, .external_lex_state = 6},
-  [4025] = {.lex_state = 216, .external_lex_state = 6},
-  [4026] = {.lex_state = 278, .external_lex_state = 6},
+  [4025] = {.lex_state = 278, .external_lex_state = 6},
+  [4026] = {.lex_state = 297, .external_lex_state = 6},
   [4027] = {.lex_state = 297, .external_lex_state = 6},
-  [4028] = {.lex_state = 297, .external_lex_state = 6},
-  [4029] = {.lex_state = 278, .external_lex_state = 6},
-  [4030] = {.lex_state = 297, .external_lex_state = 6},
-  [4031] = {.lex_state = 278, .external_lex_state = 6},
-  [4032] = {.lex_state = 297, .external_lex_state = 6},
-  [4033] = {.lex_state = 278, .external_lex_state = 6},
-  [4034] = {.lex_state = 306, .external_lex_state = 6},
+  [4028] = {.lex_state = 278, .external_lex_state = 6},
+  [4029] = {.lex_state = 297, .external_lex_state = 6},
+  [4030] = {.lex_state = 278, .external_lex_state = 6},
+  [4031] = {.lex_state = 278, .external_lex_state = 5},
+  [4032] = {.lex_state = 278, .external_lex_state = 6},
+  [4033] = {.lex_state = 288, .external_lex_state = 6},
+  [4034] = {.lex_state = 278, .external_lex_state = 6},
   [4035] = {.lex_state = 278, .external_lex_state = 6},
-  [4036] = {.lex_state = 278, .external_lex_state = 6},
+  [4036] = {.lex_state = 297, .external_lex_state = 6},
   [4037] = {.lex_state = 278, .external_lex_state = 6},
-  [4038] = {.lex_state = 278, .external_lex_state = 6},
+  [4038] = {.lex_state = 297, .external_lex_state = 6},
   [4039] = {.lex_state = 297, .external_lex_state = 6},
-  [4040] = {.lex_state = 297, .external_lex_state = 6},
+  [4040] = {.lex_state = 278, .external_lex_state = 6},
   [4041] = {.lex_state = 278, .external_lex_state = 6},
   [4042] = {.lex_state = 297, .external_lex_state = 6},
-  [4043] = {.lex_state = 216, .external_lex_state = 6},
-  [4044] = {.lex_state = 297, .external_lex_state = 6},
-  [4045] = {.lex_state = 278, .external_lex_state = 6},
+  [4043] = {.lex_state = 297, .external_lex_state = 6},
+  [4044] = {.lex_state = 278, .external_lex_state = 6},
+  [4045] = {.lex_state = 297, .external_lex_state = 6},
   [4046] = {.lex_state = 278, .external_lex_state = 6},
-  [4047] = {.lex_state = 278, .external_lex_state = 6},
-  [4048] = {.lex_state = 278, .external_lex_state = 5},
-  [4049] = {.lex_state = 278, .external_lex_state = 6},
+  [4047] = {.lex_state = 297, .external_lex_state = 6},
+  [4048] = {.lex_state = 278, .external_lex_state = 6},
+  [4049] = {.lex_state = 306, .external_lex_state = 6},
   [4050] = {.lex_state = 297, .external_lex_state = 6},
-  [4051] = {.lex_state = 278, .external_lex_state = 6},
-  [4052] = {.lex_state = 297, .external_lex_state = 6},
+  [4051] = {.lex_state = 297, .external_lex_state = 6},
+  [4052] = {.lex_state = 278, .external_lex_state = 6},
   [4053] = {.lex_state = 297, .external_lex_state = 6},
   [4054] = {.lex_state = 278, .external_lex_state = 6},
   [4055] = {.lex_state = 297, .external_lex_state = 6},
-  [4056] = {.lex_state = 278, .external_lex_state = 5},
-  [4057] = {.lex_state = 278, .external_lex_state = 6},
-  [4058] = {.lex_state = 278, .external_lex_state = 6},
-  [4059] = {.lex_state = 278, .external_lex_state = 6},
+  [4056] = {.lex_state = 278, .external_lex_state = 6},
+  [4057] = {.lex_state = 297, .external_lex_state = 6},
+  [4058] = {.lex_state = 297, .external_lex_state = 6},
+  [4059] = {.lex_state = 297, .external_lex_state = 6},
   [4060] = {.lex_state = 297, .external_lex_state = 6},
   [4061] = {.lex_state = 278, .external_lex_state = 6},
-  [4062] = {.lex_state = 297, .external_lex_state = 6},
-  [4063] = {.lex_state = 278, .external_lex_state = 6},
+  [4062] = {.lex_state = 278, .external_lex_state = 6},
+  [4063] = {.lex_state = 297, .external_lex_state = 6},
   [4064] = {.lex_state = 278, .external_lex_state = 6},
-  [4065] = {.lex_state = 278, .external_lex_state = 6},
+  [4065] = {.lex_state = 297, .external_lex_state = 6},
   [4066] = {.lex_state = 278, .external_lex_state = 6},
   [4067] = {.lex_state = 278, .external_lex_state = 6},
   [4068] = {.lex_state = 297, .external_lex_state = 6},
   [4069] = {.lex_state = 278, .external_lex_state = 6},
-  [4070] = {.lex_state = 278, .external_lex_state = 6},
+  [4070] = {.lex_state = 297, .external_lex_state = 6},
   [4071] = {.lex_state = 297, .external_lex_state = 6},
   [4072] = {.lex_state = 297, .external_lex_state = 6},
   [4073] = {.lex_state = 297, .external_lex_state = 6},
@@ -41619,14 +41371,14 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4097] = {.lex_state = 278, .external_lex_state = 6},
   [4098] = {.lex_state = 278, .external_lex_state = 6},
   [4099] = {.lex_state = 278, .external_lex_state = 6},
-  [4100] = {.lex_state = 261, .external_lex_state = 6},
+  [4100] = {.lex_state = 278, .external_lex_state = 6},
   [4101] = {.lex_state = 278, .external_lex_state = 6},
   [4102] = {.lex_state = 278, .external_lex_state = 6},
   [4103] = {.lex_state = 278, .external_lex_state = 6},
-  [4104] = {.lex_state = 261, .external_lex_state = 6},
-  [4105] = {.lex_state = 261, .external_lex_state = 6},
-  [4106] = {.lex_state = 261, .external_lex_state = 6},
-  [4107] = {.lex_state = 261, .external_lex_state = 6},
+  [4104] = {.lex_state = 278, .external_lex_state = 6},
+  [4105] = {.lex_state = 278, .external_lex_state = 6},
+  [4106] = {.lex_state = 278, .external_lex_state = 6},
+  [4107] = {.lex_state = 278, .external_lex_state = 6},
   [4108] = {.lex_state = 278, .external_lex_state = 6},
   [4109] = {.lex_state = 278, .external_lex_state = 6},
   [4110] = {.lex_state = 278, .external_lex_state = 6},
@@ -41664,9 +41416,9 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4142] = {.lex_state = 278, .external_lex_state = 6},
   [4143] = {.lex_state = 278, .external_lex_state = 6},
   [4144] = {.lex_state = 278, .external_lex_state = 6},
-  [4145] = {.lex_state = 216, .external_lex_state = 6},
-  [4146] = {.lex_state = 216, .external_lex_state = 6},
-  [4147] = {.lex_state = 216, .external_lex_state = 6},
+  [4145] = {.lex_state = 278, .external_lex_state = 6},
+  [4146] = {.lex_state = 278, .external_lex_state = 6},
+  [4147] = {.lex_state = 278, .external_lex_state = 6},
   [4148] = {.lex_state = 278, .external_lex_state = 6},
   [4149] = {.lex_state = 278, .external_lex_state = 6},
   [4150] = {.lex_state = 278, .external_lex_state = 6},
@@ -41684,7 +41436,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4162] = {.lex_state = 278, .external_lex_state = 6},
   [4163] = {.lex_state = 278, .external_lex_state = 6},
   [4164] = {.lex_state = 278, .external_lex_state = 6},
-  [4165] = {.lex_state = 278, .external_lex_state = 6},
+  [4165] = {.lex_state = 261, .external_lex_state = 6},
   [4166] = {.lex_state = 278, .external_lex_state = 6},
   [4167] = {.lex_state = 278, .external_lex_state = 6},
   [4168] = {.lex_state = 278, .external_lex_state = 6},
@@ -41702,7 +41454,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4180] = {.lex_state = 278, .external_lex_state = 6},
   [4181] = {.lex_state = 278, .external_lex_state = 6},
   [4182] = {.lex_state = 278, .external_lex_state = 6},
-  [4183] = {.lex_state = 278, .external_lex_state = 6},
+  [4183] = {.lex_state = 261, .external_lex_state = 6},
   [4184] = {.lex_state = 278, .external_lex_state = 6},
   [4185] = {.lex_state = 278, .external_lex_state = 6},
   [4186] = {.lex_state = 278, .external_lex_state = 6},
@@ -41712,12 +41464,12 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4190] = {.lex_state = 278, .external_lex_state = 6},
   [4191] = {.lex_state = 278, .external_lex_state = 6},
   [4192] = {.lex_state = 278, .external_lex_state = 6},
-  [4193] = {.lex_state = 278, .external_lex_state = 6},
-  [4194] = {.lex_state = 278, .external_lex_state = 6},
+  [4193] = {.lex_state = 216, .external_lex_state = 6},
+  [4194] = {.lex_state = 261, .external_lex_state = 6},
   [4195] = {.lex_state = 278, .external_lex_state = 6},
   [4196] = {.lex_state = 278, .external_lex_state = 6},
-  [4197] = {.lex_state = 278, .external_lex_state = 6},
-  [4198] = {.lex_state = 278, .external_lex_state = 6},
+  [4197] = {.lex_state = 261, .external_lex_state = 6},
+  [4198] = {.lex_state = 216, .external_lex_state = 6},
   [4199] = {.lex_state = 278, .external_lex_state = 6},
   [4200] = {.lex_state = 278, .external_lex_state = 6},
   [4201] = {.lex_state = 278, .external_lex_state = 6},
@@ -41727,7 +41479,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4205] = {.lex_state = 278, .external_lex_state = 6},
   [4206] = {.lex_state = 278, .external_lex_state = 6},
   [4207] = {.lex_state = 278, .external_lex_state = 6},
-  [4208] = {.lex_state = 278, .external_lex_state = 6},
+  [4208] = {.lex_state = 216, .external_lex_state = 6},
   [4209] = {.lex_state = 278, .external_lex_state = 6},
   [4210] = {.lex_state = 278, .external_lex_state = 6},
   [4211] = {.lex_state = 278, .external_lex_state = 6},
@@ -41735,7 +41487,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4213] = {.lex_state = 278, .external_lex_state = 6},
   [4214] = {.lex_state = 278, .external_lex_state = 6},
   [4215] = {.lex_state = 278, .external_lex_state = 6},
-  [4216] = {.lex_state = 278, .external_lex_state = 6},
+  [4216] = {.lex_state = 261, .external_lex_state = 6},
   [4217] = {.lex_state = 278, .external_lex_state = 6},
   [4218] = {.lex_state = 278, .external_lex_state = 6},
   [4219] = {.lex_state = 278, .external_lex_state = 6},
@@ -41764,54 +41516,54 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4242] = {.lex_state = 261, .external_lex_state = 6},
   [4243] = {.lex_state = 261, .external_lex_state = 6},
   [4244] = {.lex_state = 263, .external_lex_state = 6},
-  [4245] = {.lex_state = 275, .external_lex_state = 6},
+  [4245] = {.lex_state = 263, .external_lex_state = 6},
   [4246] = {.lex_state = 275, .external_lex_state = 6},
-  [4247] = {.lex_state = 263, .external_lex_state = 6},
-  [4248] = {.lex_state = 263, .external_lex_state = 6},
-  [4249] = {.lex_state = 275, .external_lex_state = 6},
-  [4250] = {.lex_state = 252, .external_lex_state = 6},
-  [4251] = {.lex_state = 255, .external_lex_state = 6},
-  [4252] = {.lex_state = 255, .external_lex_state = 6},
-  [4253] = {.lex_state = 259, .external_lex_state = 6},
+  [4247] = {.lex_state = 275, .external_lex_state = 6},
+  [4248] = {.lex_state = 275, .external_lex_state = 6},
+  [4249] = {.lex_state = 263, .external_lex_state = 6},
+  [4250] = {.lex_state = 259, .external_lex_state = 6},
+  [4251] = {.lex_state = 261, .external_lex_state = 6},
+  [4252] = {.lex_state = 252, .external_lex_state = 6},
+  [4253] = {.lex_state = 256, .external_lex_state = 6},
   [4254] = {.lex_state = 256, .external_lex_state = 6},
-  [4255] = {.lex_state = 255, .external_lex_state = 6},
-  [4256] = {.lex_state = 268, .external_lex_state = 6},
-  [4257] = {.lex_state = 259, .external_lex_state = 6},
-  [4258] = {.lex_state = 252, .external_lex_state = 6},
-  [4259] = {.lex_state = 261, .external_lex_state = 6},
-  [4260] = {.lex_state = 257, .external_lex_state = 6},
+  [4255] = {.lex_state = 256, .external_lex_state = 6},
+  [4256] = {.lex_state = 259, .external_lex_state = 6},
+  [4257] = {.lex_state = 255, .external_lex_state = 6},
+  [4258] = {.lex_state = 257, .external_lex_state = 6},
+  [4259] = {.lex_state = 224, .external_lex_state = 6},
+  [4260] = {.lex_state = 252, .external_lex_state = 6},
   [4261] = {.lex_state = 224, .external_lex_state = 6},
-  [4262] = {.lex_state = 261, .external_lex_state = 6},
-  [4263] = {.lex_state = 257, .external_lex_state = 6},
+  [4262] = {.lex_state = 257, .external_lex_state = 6},
+  [4263] = {.lex_state = 268, .external_lex_state = 6},
   [4264] = {.lex_state = 258, .external_lex_state = 6},
-  [4265] = {.lex_state = 258, .external_lex_state = 6},
-  [4266] = {.lex_state = 257, .external_lex_state = 6},
-  [4267] = {.lex_state = 258, .external_lex_state = 6},
-  [4268] = {.lex_state = 252, .external_lex_state = 6},
-  [4269] = {.lex_state = 224, .external_lex_state = 6},
-  [4270] = {.lex_state = 256, .external_lex_state = 6},
-  [4271] = {.lex_state = 224, .external_lex_state = 6},
-  [4272] = {.lex_state = 256, .external_lex_state = 6},
+  [4265] = {.lex_state = 261, .external_lex_state = 6},
+  [4266] = {.lex_state = 252, .external_lex_state = 6},
+  [4267] = {.lex_state = 224, .external_lex_state = 6},
+  [4268] = {.lex_state = 258, .external_lex_state = 6},
+  [4269] = {.lex_state = 255, .external_lex_state = 6},
+  [4270] = {.lex_state = 257, .external_lex_state = 6},
+  [4271] = {.lex_state = 255, .external_lex_state = 6},
+  [4272] = {.lex_state = 258, .external_lex_state = 6},
   [4273] = {.lex_state = 259, .external_lex_state = 6},
-  [4274] = {.lex_state = 259, .external_lex_state = 6},
+  [4274] = {.lex_state = 268, .external_lex_state = 6},
   [4275] = {.lex_state = 259, .external_lex_state = 6},
   [4276] = {.lex_state = 259, .external_lex_state = 6},
   [4277] = {.lex_state = 259, .external_lex_state = 6},
-  [4278] = {.lex_state = 268, .external_lex_state = 6},
+  [4278] = {.lex_state = 259, .external_lex_state = 6},
   [4279] = {.lex_state = 259, .external_lex_state = 6},
   [4280] = {.lex_state = 259, .external_lex_state = 6},
-  [4281] = {.lex_state = 268, .external_lex_state = 6},
-  [4282] = {.lex_state = 259, .external_lex_state = 6},
-  [4283] = {.lex_state = 268, .external_lex_state = 6},
-  [4284] = {.lex_state = 268, .external_lex_state = 6},
-  [4285] = {.lex_state = 268, .external_lex_state = 6},
+  [4281] = {.lex_state = 259, .external_lex_state = 6},
+  [4282] = {.lex_state = 268, .external_lex_state = 6},
+  [4283] = {.lex_state = 259, .external_lex_state = 6},
+  [4284] = {.lex_state = 259, .external_lex_state = 6},
+  [4285] = {.lex_state = 259, .external_lex_state = 6},
   [4286] = {.lex_state = 259, .external_lex_state = 6},
-  [4287] = {.lex_state = 259, .external_lex_state = 6},
-  [4288] = {.lex_state = 268, .external_lex_state = 6},
-  [4289] = {.lex_state = 259, .external_lex_state = 6},
-  [4290] = {.lex_state = 259, .external_lex_state = 6},
+  [4287] = {.lex_state = 268, .external_lex_state = 6},
+  [4288] = {.lex_state = 259, .external_lex_state = 6},
+  [4289] = {.lex_state = 268, .external_lex_state = 6},
+  [4290] = {.lex_state = 268, .external_lex_state = 6},
   [4291] = {.lex_state = 259, .external_lex_state = 6},
-  [4292] = {.lex_state = 259, .external_lex_state = 6},
+  [4292] = {.lex_state = 268, .external_lex_state = 6},
   [4293] = {.lex_state = 261, .external_lex_state = 6},
   [4294] = {.lex_state = 261, .external_lex_state = 6},
   [4295] = {.lex_state = 253, .external_lex_state = 6},
@@ -41822,10 +41574,10 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4300] = {.lex_state = 253, .external_lex_state = 6},
   [4301] = {.lex_state = 253, .external_lex_state = 6},
   [4302] = {.lex_state = 253, .external_lex_state = 6},
-  [4303] = {.lex_state = 259, .external_lex_state = 6},
+  [4303] = {.lex_state = 253, .external_lex_state = 6},
   [4304] = {.lex_state = 253, .external_lex_state = 6},
   [4305] = {.lex_state = 253, .external_lex_state = 6},
-  [4306] = {.lex_state = 253, .external_lex_state = 6},
+  [4306] = {.lex_state = 259, .external_lex_state = 6},
   [4307] = {.lex_state = 253, .external_lex_state = 6},
   [4308] = {.lex_state = 253, .external_lex_state = 6},
   [4309] = {.lex_state = 253, .external_lex_state = 6},
@@ -41847,20 +41599,20 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4325] = {.lex_state = 259, .external_lex_state = 6},
   [4326] = {.lex_state = 259, .external_lex_state = 6},
   [4327] = {.lex_state = 267, .external_lex_state = 6},
-  [4328] = {.lex_state = 276, .external_lex_state = 6},
-  [4329] = {.lex_state = 276, .external_lex_state = 6},
-  [4330] = {.lex_state = 276, .external_lex_state = 6},
+  [4328] = {.lex_state = 267, .external_lex_state = 6},
+  [4329] = {.lex_state = 267, .external_lex_state = 6},
+  [4330] = {.lex_state = 267, .external_lex_state = 6},
   [4331] = {.lex_state = 267, .external_lex_state = 6},
-  [4332] = {.lex_state = 276, .external_lex_state = 6},
+  [4332] = {.lex_state = 267, .external_lex_state = 6},
   [4333] = {.lex_state = 276, .external_lex_state = 6},
   [4334] = {.lex_state = 276, .external_lex_state = 6},
   [4335] = {.lex_state = 276, .external_lex_state = 6},
   [4336] = {.lex_state = 267, .external_lex_state = 6},
   [4337] = {.lex_state = 267, .external_lex_state = 6},
-  [4338] = {.lex_state = 276, .external_lex_state = 6},
-  [4339] = {.lex_state = 267, .external_lex_state = 6},
-  [4340] = {.lex_state = 267, .external_lex_state = 6},
-  [4341] = {.lex_state = 276, .external_lex_state = 6},
+  [4338] = {.lex_state = 267, .external_lex_state = 6},
+  [4339] = {.lex_state = 276, .external_lex_state = 6},
+  [4340] = {.lex_state = 276, .external_lex_state = 6},
+  [4341] = {.lex_state = 267, .external_lex_state = 6},
   [4342] = {.lex_state = 267, .external_lex_state = 6},
   [4343] = {.lex_state = 276, .external_lex_state = 6},
   [4344] = {.lex_state = 267, .external_lex_state = 6},
@@ -41869,920 +41621,920 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [4347] = {.lex_state = 267, .external_lex_state = 6},
   [4348] = {.lex_state = 267, .external_lex_state = 6},
   [4349] = {.lex_state = 267, .external_lex_state = 6},
-  [4350] = {.lex_state = 267, .external_lex_state = 6},
+  [4350] = {.lex_state = 276, .external_lex_state = 6},
   [4351] = {.lex_state = 267, .external_lex_state = 6},
   [4352] = {.lex_state = 267, .external_lex_state = 6},
-  [4353] = {.lex_state = 267, .external_lex_state = 6},
-  [4354] = {.lex_state = 267, .external_lex_state = 6},
-  [4355] = {.lex_state = 267, .external_lex_state = 6},
+  [4353] = {.lex_state = 276, .external_lex_state = 6},
+  [4354] = {.lex_state = 276, .external_lex_state = 6},
+  [4355] = {.lex_state = 276, .external_lex_state = 6},
   [4356] = {.lex_state = 267, .external_lex_state = 6},
   [4357] = {.lex_state = 276, .external_lex_state = 6},
   [4358] = {.lex_state = 276, .external_lex_state = 6},
   [4359] = {.lex_state = 216, .external_lex_state = 6},
   [4360] = {.lex_state = 276, .external_lex_state = 6},
-  [4361] = {.lex_state = 216, .external_lex_state = 6},
-  [4362] = {.lex_state = 276, .external_lex_state = 6},
-  [4363] = {.lex_state = 228, .external_lex_state = 6},
-  [4364] = {.lex_state = 276, .external_lex_state = 5},
+  [4361] = {.lex_state = 276, .external_lex_state = 6},
+  [4362] = {.lex_state = 216, .external_lex_state = 6},
+  [4363] = {.lex_state = 276, .external_lex_state = 6},
+  [4364] = {.lex_state = 276, .external_lex_state = 6},
   [4365] = {.lex_state = 276, .external_lex_state = 5},
-  [4366] = {.lex_state = 276, .external_lex_state = 5},
-  [4367] = {.lex_state = 276, .external_lex_state = 5},
-  [4368] = {.lex_state = 276, .external_lex_state = 5},
-  [4369] = {.lex_state = 216, .external_lex_state = 6},
-  [4370] = {.lex_state = 276, .external_lex_state = 5},
+  [4366] = {.lex_state = 216, .external_lex_state = 6},
+  [4367] = {.lex_state = 276, .external_lex_state = 6},
+  [4368] = {.lex_state = 276, .external_lex_state = 6},
+  [4369] = {.lex_state = 276, .external_lex_state = 6},
+  [4370] = {.lex_state = 276, .external_lex_state = 6},
   [4371] = {.lex_state = 276, .external_lex_state = 6},
-  [4372] = {.lex_state = 276, .external_lex_state = 6},
-  [4373] = {.lex_state = 216, .external_lex_state = 6},
-  [4374] = {.lex_state = 216, .external_lex_state = 6},
-  [4375] = {.lex_state = 216, .external_lex_state = 6},
-  [4376] = {.lex_state = 216, .external_lex_state = 6},
-  [4377] = {.lex_state = 276, .external_lex_state = 6},
+  [4372] = {.lex_state = 276, .external_lex_state = 5},
+  [4373] = {.lex_state = 276, .external_lex_state = 5},
+  [4374] = {.lex_state = 276, .external_lex_state = 5},
+  [4375] = {.lex_state = 276, .external_lex_state = 5},
+  [4376] = {.lex_state = 276, .external_lex_state = 6},
+  [4377] = {.lex_state = 216, .external_lex_state = 6},
   [4378] = {.lex_state = 276, .external_lex_state = 6},
-  [4379] = {.lex_state = 228, .external_lex_state = 6},
+  [4379] = {.lex_state = 216, .external_lex_state = 6},
   [4380] = {.lex_state = 276, .external_lex_state = 5},
-  [4381] = {.lex_state = 276, .external_lex_state = 6},
-  [4382] = {.lex_state = 276, .external_lex_state = 5},
-  [4383] = {.lex_state = 276, .external_lex_state = 6},
+  [4381] = {.lex_state = 276, .external_lex_state = 5},
+  [4382] = {.lex_state = 228, .external_lex_state = 6},
+  [4383] = {.lex_state = 228, .external_lex_state = 6},
   [4384] = {.lex_state = 228, .external_lex_state = 6},
-  [4385] = {.lex_state = 228, .external_lex_state = 6},
-  [4386] = {.lex_state = 276, .external_lex_state = 5},
+  [4385] = {.lex_state = 276, .external_lex_state = 6},
+  [4386] = {.lex_state = 276, .external_lex_state = 6},
   [4387] = {.lex_state = 228, .external_lex_state = 6},
-  [4388] = {.lex_state = 228, .external_lex_state = 6},
-  [4389] = {.lex_state = 276, .external_lex_state = 6},
-  [4390] = {.lex_state = 276, .external_lex_state = 6},
-  [4391] = {.lex_state = 276, .external_lex_state = 6},
-  [4392] = {.lex_state = 276, .external_lex_state = 6},
-  [4393] = {.lex_state = 276, .external_lex_state = 6},
-  [4394] = {.lex_state = 216, .external_lex_state = 6},
-  [4395] = {.lex_state = 276, .external_lex_state = 5},
-  [4396] = {.lex_state = 276, .external_lex_state = 5},
+  [4388] = {.lex_state = 276, .external_lex_state = 6},
+  [4389] = {.lex_state = 216, .external_lex_state = 6},
+  [4390] = {.lex_state = 276, .external_lex_state = 5},
+  [4391] = {.lex_state = 228, .external_lex_state = 6},
+  [4392] = {.lex_state = 276, .external_lex_state = 5},
+  [4393] = {.lex_state = 216, .external_lex_state = 6},
+  [4394] = {.lex_state = 276, .external_lex_state = 5},
+  [4395] = {.lex_state = 276, .external_lex_state = 6},
+  [4396] = {.lex_state = 259, .external_lex_state = 6},
   [4397] = {.lex_state = 276, .external_lex_state = 6},
-  [4398] = {.lex_state = 259, .external_lex_state = 6},
-  [4399] = {.lex_state = 276, .external_lex_state = 6},
-  [4400] = {.lex_state = 228, .external_lex_state = 6},
-  [4401] = {.lex_state = 216, .external_lex_state = 6},
-  [4402] = {.lex_state = 228, .external_lex_state = 6},
-  [4403] = {.lex_state = 276, .external_lex_state = 6},
+  [4398] = {.lex_state = 276, .external_lex_state = 6},
+  [4399] = {.lex_state = 228, .external_lex_state = 6},
+  [4400] = {.lex_state = 276, .external_lex_state = 6},
+  [4401] = {.lex_state = 276, .external_lex_state = 5},
+  [4402] = {.lex_state = 216, .external_lex_state = 6},
+  [4403] = {.lex_state = 276, .external_lex_state = 5},
   [4404] = {.lex_state = 276, .external_lex_state = 6},
   [4405] = {.lex_state = 216, .external_lex_state = 6},
   [4406] = {.lex_state = 216, .external_lex_state = 6},
-  [4407] = {.lex_state = 276, .external_lex_state = 6},
+  [4407] = {.lex_state = 276, .external_lex_state = 5},
   [4408] = {.lex_state = 276, .external_lex_state = 6},
-  [4409] = {.lex_state = 276, .external_lex_state = 6},
-  [4410] = {.lex_state = 276, .external_lex_state = 6},
-  [4411] = {.lex_state = 276, .external_lex_state = 5},
-  [4412] = {.lex_state = 276, .external_lex_state = 6},
-  [4413] = {.lex_state = 276, .external_lex_state = 5},
-  [4414] = {.lex_state = 276, .external_lex_state = 5},
-  [4415] = {.lex_state = 276, .external_lex_state = 5},
-  [4416] = {.lex_state = 276, .external_lex_state = 5},
-  [4417] = {.lex_state = 216, .external_lex_state = 6},
-  [4418] = {.lex_state = 216, .external_lex_state = 6},
-  [4419] = {.lex_state = 276, .external_lex_state = 6},
-  [4420] = {.lex_state = 216, .external_lex_state = 6},
-  [4421] = {.lex_state = 276, .external_lex_state = 5},
+  [4409] = {.lex_state = 216, .external_lex_state = 6},
+  [4410] = {.lex_state = 216, .external_lex_state = 6},
+  [4411] = {.lex_state = 276, .external_lex_state = 6},
+  [4412] = {.lex_state = 276, .external_lex_state = 5},
+  [4413] = {.lex_state = 216, .external_lex_state = 6},
+  [4414] = {.lex_state = 276, .external_lex_state = 6},
+  [4415] = {.lex_state = 216, .external_lex_state = 6},
+  [4416] = {.lex_state = 276, .external_lex_state = 6},
+  [4417] = {.lex_state = 276, .external_lex_state = 6},
+  [4418] = {.lex_state = 276, .external_lex_state = 6},
+  [4419] = {.lex_state = 276, .external_lex_state = 5},
+  [4420] = {.lex_state = 276, .external_lex_state = 5},
+  [4421] = {.lex_state = 276, .external_lex_state = 6},
   [4422] = {.lex_state = 276, .external_lex_state = 6},
   [4423] = {.lex_state = 276, .external_lex_state = 6},
   [4424] = {.lex_state = 276, .external_lex_state = 6},
-  [4425] = {.lex_state = 276, .external_lex_state = 6},
+  [4425] = {.lex_state = 216, .external_lex_state = 6},
   [4426] = {.lex_state = 276, .external_lex_state = 6},
   [4427] = {.lex_state = 276, .external_lex_state = 6},
-  [4428] = {.lex_state = 276, .external_lex_state = 6},
-  [4429] = {.lex_state = 276, .external_lex_state = 6},
-  [4430] = {.lex_state = 216, .external_lex_state = 6},
-  [4431] = {.lex_state = 276, .external_lex_state = 6},
+  [4428] = {.lex_state = 228, .external_lex_state = 6},
+  [4429] = {.lex_state = 228, .external_lex_state = 6},
+  [4430] = {.lex_state = 276, .external_lex_state = 6},
+  [4431] = {.lex_state = 276, .external_lex_state = 5},
   [4432] = {.lex_state = 276, .external_lex_state = 6},
-  [4433] = {.lex_state = 276, .external_lex_state = 5},
-  [4434] = {.lex_state = 228, .external_lex_state = 6},
-  [4435] = {.lex_state = 228, .external_lex_state = 6},
-  [4436] = {.lex_state = 228, .external_lex_state = 6},
-  [4437] = {.lex_state = 223, .external_lex_state = 6},
-  [4438] = {.lex_state = 223, .external_lex_state = 6},
+  [4433] = {.lex_state = 228, .external_lex_state = 6},
+  [4434] = {.lex_state = 276, .external_lex_state = 5},
+  [4435] = {.lex_state = 276, .external_lex_state = 6},
+  [4436] = {.lex_state = 276, .external_lex_state = 6},
+  [4437] = {.lex_state = 276, .external_lex_state = 6},
+  [4438] = {.lex_state = 228, .external_lex_state = 6},
   [4439] = {.lex_state = 276, .external_lex_state = 6},
-  [4440] = {.lex_state = 276, .external_lex_state = 6},
-  [4441] = {.lex_state = 276, .external_lex_state = 6},
-  [4442] = {.lex_state = 223, .external_lex_state = 6},
-  [4443] = {.lex_state = 276, .external_lex_state = 6},
-  [4444] = {.lex_state = 276, .external_lex_state = 6},
+  [4440] = {.lex_state = 228, .external_lex_state = 6},
+  [4441] = {.lex_state = 276, .external_lex_state = 5},
+  [4442] = {.lex_state = 276, .external_lex_state = 6},
+  [4443] = {.lex_state = 228, .external_lex_state = 6},
+  [4444] = {.lex_state = 276, .external_lex_state = 5},
   [4445] = {.lex_state = 276, .external_lex_state = 6},
-  [4446] = {.lex_state = 228, .external_lex_state = 6},
-  [4447] = {.lex_state = 228, .external_lex_state = 6},
+  [4446] = {.lex_state = 276, .external_lex_state = 5},
+  [4447] = {.lex_state = 276, .external_lex_state = 6},
   [4448] = {.lex_state = 223, .external_lex_state = 6},
-  [4449] = {.lex_state = 223, .external_lex_state = 6},
-  [4450] = {.lex_state = 223, .external_lex_state = 6},
+  [4449] = {.lex_state = 259, .external_lex_state = 6},
+  [4450] = {.lex_state = 276, .external_lex_state = 6},
   [4451] = {.lex_state = 223, .external_lex_state = 6},
-  [4452] = {.lex_state = 223, .external_lex_state = 6},
+  [4452] = {.lex_state = 276, .external_lex_state = 6},
   [4453] = {.lex_state = 223, .external_lex_state = 6},
-  [4454] = {.lex_state = 223, .external_lex_state = 6},
-  [4455] = {.lex_state = 228, .external_lex_state = 6},
-  [4456] = {.lex_state = 223, .external_lex_state = 6},
-  [4457] = {.lex_state = 228, .external_lex_state = 6},
-  [4458] = {.lex_state = 276, .external_lex_state = 5},
-  [4459] = {.lex_state = 228, .external_lex_state = 6},
-  [4460] = {.lex_state = 259, .external_lex_state = 6},
-  [4461] = {.lex_state = 259, .external_lex_state = 6},
-  [4462] = {.lex_state = 276, .external_lex_state = 5},
-  [4463] = {.lex_state = 276, .external_lex_state = 5},
-  [4464] = {.lex_state = 259, .external_lex_state = 6},
-  [4465] = {.lex_state = 276, .external_lex_state = 6},
+  [4454] = {.lex_state = 276, .external_lex_state = 6},
+  [4455] = {.lex_state = 276, .external_lex_state = 6},
+  [4456] = {.lex_state = 259, .external_lex_state = 6},
+  [4457] = {.lex_state = 259, .external_lex_state = 6},
+  [4458] = {.lex_state = 228, .external_lex_state = 6},
+  [4459] = {.lex_state = 276, .external_lex_state = 6},
+  [4460] = {.lex_state = 276, .external_lex_state = 6},
+  [4461] = {.lex_state = 276, .external_lex_state = 5},
+  [4462] = {.lex_state = 223, .external_lex_state = 6},
+  [4463] = {.lex_state = 276, .external_lex_state = 6},
+  [4464] = {.lex_state = 276, .external_lex_state = 5},
+  [4465] = {.lex_state = 223, .external_lex_state = 6},
   [4466] = {.lex_state = 228, .external_lex_state = 6},
-  [4467] = {.lex_state = 259, .external_lex_state = 6},
-  [4468] = {.lex_state = 228, .external_lex_state = 6},
-  [4469] = {.lex_state = 259, .external_lex_state = 6},
+  [4467] = {.lex_state = 228, .external_lex_state = 6},
+  [4468] = {.lex_state = 259, .external_lex_state = 6},
+  [4469] = {.lex_state = 223, .external_lex_state = 6},
   [4470] = {.lex_state = 259, .external_lex_state = 6},
-  [4471] = {.lex_state = 259, .external_lex_state = 6},
-  [4472] = {.lex_state = 276, .external_lex_state = 5},
-  [4473] = {.lex_state = 259, .external_lex_state = 6},
-  [4474] = {.lex_state = 276, .external_lex_state = 6},
-  [4475] = {.lex_state = 276, .external_lex_state = 5},
-  [4476] = {.lex_state = 276, .external_lex_state = 6},
-  [4477] = {.lex_state = 276, .external_lex_state = 6},
-  [4478] = {.lex_state = 276, .external_lex_state = 5},
-  [4479] = {.lex_state = 276, .external_lex_state = 6},
-  [4480] = {.lex_state = 276, .external_lex_state = 6},
+  [4471] = {.lex_state = 276, .external_lex_state = 6},
+  [4472] = {.lex_state = 223, .external_lex_state = 6},
+  [4473] = {.lex_state = 259, .external_lex_state = 5},
+  [4474] = {.lex_state = 223, .external_lex_state = 6},
+  [4475] = {.lex_state = 259, .external_lex_state = 5},
+  [4476] = {.lex_state = 259, .external_lex_state = 5},
+  [4477] = {.lex_state = 259, .external_lex_state = 5},
+  [4478] = {.lex_state = 259, .external_lex_state = 5},
+  [4479] = {.lex_state = 223, .external_lex_state = 6},
+  [4480] = {.lex_state = 223, .external_lex_state = 6},
   [4481] = {.lex_state = 276, .external_lex_state = 6},
-  [4482] = {.lex_state = 276, .external_lex_state = 6},
-  [4483] = {.lex_state = 259, .external_lex_state = 6},
-  [4484] = {.lex_state = 226, .external_lex_state = 6},
-  [4485] = {.lex_state = 259, .external_lex_state = 6},
-  [4486] = {.lex_state = 228, .external_lex_state = 6},
-  [4487] = {.lex_state = 228, .external_lex_state = 6},
-  [4488] = {.lex_state = 228, .external_lex_state = 6},
+  [4482] = {.lex_state = 259, .external_lex_state = 6},
+  [4483] = {.lex_state = 228, .external_lex_state = 6},
+  [4484] = {.lex_state = 259, .external_lex_state = 6},
+  [4485] = {.lex_state = 228, .external_lex_state = 6},
+  [4486] = {.lex_state = 223, .external_lex_state = 6},
+  [4487] = {.lex_state = 223, .external_lex_state = 6},
+  [4488] = {.lex_state = 276, .external_lex_state = 5},
   [4489] = {.lex_state = 259, .external_lex_state = 6},
-  [4490] = {.lex_state = 259, .external_lex_state = 5},
-  [4491] = {.lex_state = 259, .external_lex_state = 5},
-  [4492] = {.lex_state = 259, .external_lex_state = 5},
-  [4493] = {.lex_state = 259, .external_lex_state = 5},
-  [4494] = {.lex_state = 259, .external_lex_state = 5},
-  [4495] = {.lex_state = 276, .external_lex_state = 6},
-  [4496] = {.lex_state = 223, .external_lex_state = 6},
+  [4490] = {.lex_state = 228, .external_lex_state = 6},
+  [4491] = {.lex_state = 228, .external_lex_state = 6},
+  [4492] = {.lex_state = 259, .external_lex_state = 6},
+  [4493] = {.lex_state = 226, .external_lex_state = 6},
+  [4494] = {.lex_state = 259, .external_lex_state = 6},
+  [4495] = {.lex_state = 259, .external_lex_state = 6},
+  [4496] = {.lex_state = 259, .external_lex_state = 6},
   [4497] = {.lex_state = 259, .external_lex_state = 6},
-  [4498] = {.lex_state = 276, .external_lex_state = 6},
-  [4499] = {.lex_state = 259, .external_lex_state = 6},
-  [4500] = {.lex_state = 223, .external_lex_state = 6},
-  [4501] = {.lex_state = 223, .external_lex_state = 6},
+  [4498] = {.lex_state = 228, .external_lex_state = 6},
+  [4499] = {.lex_state = 228, .external_lex_state = 6},
+  [4500] = {.lex_state = 276, .external_lex_state = 5},
+  [4501] = {.lex_state = 276, .external_lex_state = 6},
   [4502] = {.lex_state = 223, .external_lex_state = 6},
   [4503] = {.lex_state = 223, .external_lex_state = 6},
-  [4504] = {.lex_state = 223, .external_lex_state = 6},
+  [4504] = {.lex_state = 228, .external_lex_state = 6},
   [4505] = {.lex_state = 223, .external_lex_state = 6},
-  [4506] = {.lex_state = 223, .external_lex_state = 6},
-  [4507] = {.lex_state = 228, .external_lex_state = 6},
+  [4506] = {.lex_state = 228, .external_lex_state = 6},
+  [4507] = {.lex_state = 223, .external_lex_state = 6},
   [4508] = {.lex_state = 228, .external_lex_state = 6},
-  [4509] = {.lex_state = 228, .external_lex_state = 6},
-  [4510] = {.lex_state = 228, .external_lex_state = 6},
-  [4511] = {.lex_state = 276, .external_lex_state = 6},
-  [4512] = {.lex_state = 223, .external_lex_state = 6},
-  [4513] = {.lex_state = 259, .external_lex_state = 6},
+  [4509] = {.lex_state = 276, .external_lex_state = 5},
+  [4510] = {.lex_state = 223, .external_lex_state = 6},
+  [4511] = {.lex_state = 228, .external_lex_state = 6},
+  [4512] = {.lex_state = 228, .external_lex_state = 6},
+  [4513] = {.lex_state = 228, .external_lex_state = 6},
   [4514] = {.lex_state = 228, .external_lex_state = 6},
-  [4515] = {.lex_state = 228, .external_lex_state = 6},
+  [4515] = {.lex_state = 223, .external_lex_state = 6},
   [4516] = {.lex_state = 223, .external_lex_state = 6},
-  [4517] = {.lex_state = 228, .external_lex_state = 6},
-  [4518] = {.lex_state = 228, .external_lex_state = 6},
+  [4517] = {.lex_state = 223, .external_lex_state = 6},
+  [4518] = {.lex_state = 223, .external_lex_state = 6},
   [4519] = {.lex_state = 228, .external_lex_state = 6},
   [4520] = {.lex_state = 223, .external_lex_state = 6},
-  [4521] = {.lex_state = 223, .external_lex_state = 6},
-  [4522] = {.lex_state = 228, .external_lex_state = 6},
-  [4523] = {.lex_state = 223, .external_lex_state = 6},
-  [4524] = {.lex_state = 223, .external_lex_state = 6},
-  [4525] = {.lex_state = 228, .external_lex_state = 6},
-  [4526] = {.lex_state = 223, .external_lex_state = 6},
-  [4527] = {.lex_state = 228, .external_lex_state = 6},
-  [4528] = {.lex_state = 223, .external_lex_state = 6},
-  [4529] = {.lex_state = 228, .external_lex_state = 6},
-  [4530] = {.lex_state = 228, .external_lex_state = 6},
-  [4531] = {.lex_state = 228, .external_lex_state = 6},
-  [4532] = {.lex_state = 223, .external_lex_state = 6},
-  [4533] = {.lex_state = 223, .external_lex_state = 6},
-  [4534] = {.lex_state = 228, .external_lex_state = 6},
-  [4535] = {.lex_state = 223, .external_lex_state = 6},
-  [4536] = {.lex_state = 223, .external_lex_state = 6},
-  [4537] = {.lex_state = 223, .external_lex_state = 6},
-  [4538] = {.lex_state = 223, .external_lex_state = 6},
+  [4521] = {.lex_state = 228, .external_lex_state = 6},
+  [4522] = {.lex_state = 223, .external_lex_state = 6},
+  [4523] = {.lex_state = 228, .external_lex_state = 6},
+  [4524] = {.lex_state = 228, .external_lex_state = 6},
+  [4525] = {.lex_state = 276, .external_lex_state = 6},
+  [4526] = {.lex_state = 276, .external_lex_state = 6},
+  [4527] = {.lex_state = 223, .external_lex_state = 6},
+  [4528] = {.lex_state = 228, .external_lex_state = 6},
+  [4529] = {.lex_state = 223, .external_lex_state = 6},
+  [4530] = {.lex_state = 223, .external_lex_state = 6},
+  [4531] = {.lex_state = 276, .external_lex_state = 6},
+  [4532] = {.lex_state = 276, .external_lex_state = 5},
+  [4533] = {.lex_state = 276, .external_lex_state = 5},
+  [4534] = {.lex_state = 276, .external_lex_state = 6},
+  [4535] = {.lex_state = 276, .external_lex_state = 6},
+  [4536] = {.lex_state = 276, .external_lex_state = 6},
+  [4537] = {.lex_state = 276, .external_lex_state = 6},
+  [4538] = {.lex_state = 276, .external_lex_state = 6},
   [4539] = {.lex_state = 223, .external_lex_state = 6},
-  [4540] = {.lex_state = 223, .external_lex_state = 6},
-  [4541] = {.lex_state = 223, .external_lex_state = 6},
-  [4542] = {.lex_state = 228, .external_lex_state = 6},
-  [4543] = {.lex_state = 223, .external_lex_state = 6},
-  [4544] = {.lex_state = 228, .external_lex_state = 6},
-  [4545] = {.lex_state = 228, .external_lex_state = 6},
+  [4540] = {.lex_state = 228, .external_lex_state = 6},
+  [4541] = {.lex_state = 276, .external_lex_state = 6},
+  [4542] = {.lex_state = 276, .external_lex_state = 5},
+  [4543] = {.lex_state = 228, .external_lex_state = 6},
+  [4544] = {.lex_state = 223, .external_lex_state = 6},
+  [4545] = {.lex_state = 223, .external_lex_state = 6},
   [4546] = {.lex_state = 228, .external_lex_state = 6},
   [4547] = {.lex_state = 228, .external_lex_state = 6},
-  [4548] = {.lex_state = 223, .external_lex_state = 6},
+  [4548] = {.lex_state = 228, .external_lex_state = 6},
   [4549] = {.lex_state = 228, .external_lex_state = 6},
-  [4550] = {.lex_state = 224, .external_lex_state = 6},
+  [4550] = {.lex_state = 228, .external_lex_state = 6},
   [4551] = {.lex_state = 223, .external_lex_state = 6},
-  [4552] = {.lex_state = 223, .external_lex_state = 6},
-  [4553] = {.lex_state = 228, .external_lex_state = 6},
-  [4554] = {.lex_state = 223, .external_lex_state = 6},
+  [4552] = {.lex_state = 228, .external_lex_state = 6},
+  [4553] = {.lex_state = 223, .external_lex_state = 6},
+  [4554] = {.lex_state = 228, .external_lex_state = 6},
   [4555] = {.lex_state = 228, .external_lex_state = 6},
-  [4556] = {.lex_state = 228, .external_lex_state = 6},
+  [4556] = {.lex_state = 223, .external_lex_state = 6},
   [4557] = {.lex_state = 223, .external_lex_state = 6},
-  [4558] = {.lex_state = 223, .external_lex_state = 6},
-  [4559] = {.lex_state = 223, .external_lex_state = 6},
-  [4560] = {.lex_state = 228, .external_lex_state = 6},
+  [4558] = {.lex_state = 228, .external_lex_state = 6},
+  [4559] = {.lex_state = 228, .external_lex_state = 6},
+  [4560] = {.lex_state = 276, .external_lex_state = 6},
   [4561] = {.lex_state = 228, .external_lex_state = 6},
   [4562] = {.lex_state = 228, .external_lex_state = 6},
   [4563] = {.lex_state = 228, .external_lex_state = 6},
-  [4564] = {.lex_state = 228, .external_lex_state = 6},
-  [4565] = {.lex_state = 228, .external_lex_state = 6},
-  [4566] = {.lex_state = 228, .external_lex_state = 6},
-  [4567] = {.lex_state = 228, .external_lex_state = 6},
+  [4564] = {.lex_state = 223, .external_lex_state = 6},
+  [4565] = {.lex_state = 223, .external_lex_state = 6},
+  [4566] = {.lex_state = 223, .external_lex_state = 6},
+  [4567] = {.lex_state = 223, .external_lex_state = 6},
   [4568] = {.lex_state = 223, .external_lex_state = 6},
-  [4569] = {.lex_state = 223, .external_lex_state = 6},
-  [4570] = {.lex_state = 228, .external_lex_state = 6},
+  [4569] = {.lex_state = 228, .external_lex_state = 6},
+  [4570] = {.lex_state = 223, .external_lex_state = 6},
   [4571] = {.lex_state = 228, .external_lex_state = 6},
-  [4572] = {.lex_state = 276, .external_lex_state = 5},
-  [4573] = {.lex_state = 228, .external_lex_state = 6},
-  [4574] = {.lex_state = 223, .external_lex_state = 6},
-  [4575] = {.lex_state = 276, .external_lex_state = 5},
+  [4572] = {.lex_state = 228, .external_lex_state = 6},
+  [4573] = {.lex_state = 223, .external_lex_state = 6},
+  [4574] = {.lex_state = 228, .external_lex_state = 6},
+  [4575] = {.lex_state = 228, .external_lex_state = 6},
   [4576] = {.lex_state = 228, .external_lex_state = 6},
-  [4577] = {.lex_state = 228, .external_lex_state = 6},
+  [4577] = {.lex_state = 223, .external_lex_state = 6},
   [4578] = {.lex_state = 228, .external_lex_state = 6},
   [4579] = {.lex_state = 228, .external_lex_state = 6},
-  [4580] = {.lex_state = 276, .external_lex_state = 5},
-  [4581] = {.lex_state = 228, .external_lex_state = 6},
-  [4582] = {.lex_state = 228, .external_lex_state = 6},
+  [4580] = {.lex_state = 223, .external_lex_state = 6},
+  [4581] = {.lex_state = 223, .external_lex_state = 6},
+  [4582] = {.lex_state = 276, .external_lex_state = 6},
   [4583] = {.lex_state = 228, .external_lex_state = 6},
   [4584] = {.lex_state = 228, .external_lex_state = 6},
   [4585] = {.lex_state = 228, .external_lex_state = 6},
   [4586] = {.lex_state = 228, .external_lex_state = 6},
-  [4587] = {.lex_state = 223, .external_lex_state = 6},
-  [4588] = {.lex_state = 223, .external_lex_state = 6},
-  [4589] = {.lex_state = 276, .external_lex_state = 6},
-  [4590] = {.lex_state = 276, .external_lex_state = 6},
-  [4591] = {.lex_state = 228, .external_lex_state = 6},
+  [4587] = {.lex_state = 276, .external_lex_state = 6},
+  [4588] = {.lex_state = 276, .external_lex_state = 5},
+  [4589] = {.lex_state = 223, .external_lex_state = 6},
+  [4590] = {.lex_state = 223, .external_lex_state = 6},
+  [4591] = {.lex_state = 276, .external_lex_state = 6},
   [4592] = {.lex_state = 228, .external_lex_state = 6},
-  [4593] = {.lex_state = 228, .external_lex_state = 6},
+  [4593] = {.lex_state = 276, .external_lex_state = 6},
   [4594] = {.lex_state = 228, .external_lex_state = 6},
-  [4595] = {.lex_state = 276, .external_lex_state = 6},
-  [4596] = {.lex_state = 228, .external_lex_state = 6},
-  [4597] = {.lex_state = 276, .external_lex_state = 6},
+  [4595] = {.lex_state = 223, .external_lex_state = 6},
+  [4596] = {.lex_state = 223, .external_lex_state = 6},
+  [4597] = {.lex_state = 228, .external_lex_state = 6},
   [4598] = {.lex_state = 228, .external_lex_state = 6},
-  [4599] = {.lex_state = 223, .external_lex_state = 6},
-  [4600] = {.lex_state = 276, .external_lex_state = 6},
-  [4601] = {.lex_state = 276, .external_lex_state = 6},
-  [4602] = {.lex_state = 276, .external_lex_state = 5},
-  [4603] = {.lex_state = 276, .external_lex_state = 5},
-  [4604] = {.lex_state = 276, .external_lex_state = 6},
-  [4605] = {.lex_state = 276, .external_lex_state = 6},
+  [4599] = {.lex_state = 228, .external_lex_state = 6},
+  [4600] = {.lex_state = 223, .external_lex_state = 6},
+  [4601] = {.lex_state = 228, .external_lex_state = 6},
+  [4602] = {.lex_state = 228, .external_lex_state = 6},
+  [4603] = {.lex_state = 228, .external_lex_state = 6},
+  [4604] = {.lex_state = 228, .external_lex_state = 6},
+  [4605] = {.lex_state = 223, .external_lex_state = 6},
   [4606] = {.lex_state = 276, .external_lex_state = 6},
-  [4607] = {.lex_state = 224, .external_lex_state = 6},
-  [4608] = {.lex_state = 276, .external_lex_state = 6},
-  [4609] = {.lex_state = 276, .external_lex_state = 6},
+  [4607] = {.lex_state = 228, .external_lex_state = 6},
+  [4608] = {.lex_state = 223, .external_lex_state = 6},
+  [4609] = {.lex_state = 259, .external_lex_state = 6},
   [4610] = {.lex_state = 228, .external_lex_state = 6},
   [4611] = {.lex_state = 228, .external_lex_state = 6},
   [4612] = {.lex_state = 228, .external_lex_state = 6},
-  [4613] = {.lex_state = 228, .external_lex_state = 6},
-  [4614] = {.lex_state = 228, .external_lex_state = 6},
-  [4615] = {.lex_state = 228, .external_lex_state = 6},
-  [4616] = {.lex_state = 228, .external_lex_state = 6},
+  [4613] = {.lex_state = 276, .external_lex_state = 6},
+  [4614] = {.lex_state = 223, .external_lex_state = 6},
+  [4615] = {.lex_state = 223, .external_lex_state = 6},
+  [4616] = {.lex_state = 259, .external_lex_state = 6},
   [4617] = {.lex_state = 228, .external_lex_state = 6},
-  [4618] = {.lex_state = 276, .external_lex_state = 6},
-  [4619] = {.lex_state = 276, .external_lex_state = 6},
-  [4620] = {.lex_state = 223, .external_lex_state = 6},
-  [4621] = {.lex_state = 223, .external_lex_state = 6},
-  [4622] = {.lex_state = 276, .external_lex_state = 6},
-  [4623] = {.lex_state = 223, .external_lex_state = 6},
+  [4618] = {.lex_state = 228, .external_lex_state = 6},
+  [4619] = {.lex_state = 223, .external_lex_state = 6},
+  [4620] = {.lex_state = 228, .external_lex_state = 6},
+  [4621] = {.lex_state = 228, .external_lex_state = 6},
+  [4622] = {.lex_state = 228, .external_lex_state = 6},
+  [4623] = {.lex_state = 224, .external_lex_state = 6},
   [4624] = {.lex_state = 223, .external_lex_state = 6},
-  [4625] = {.lex_state = 224, .external_lex_state = 6},
+  [4625] = {.lex_state = 228, .external_lex_state = 6},
   [4626] = {.lex_state = 276, .external_lex_state = 6},
   [4627] = {.lex_state = 276, .external_lex_state = 6},
-  [4628] = {.lex_state = 276, .external_lex_state = 6},
-  [4629] = {.lex_state = 276, .external_lex_state = 5},
-  [4630] = {.lex_state = 276, .external_lex_state = 5},
-  [4631] = {.lex_state = 276, .external_lex_state = 6},
-  [4632] = {.lex_state = 223, .external_lex_state = 6},
+  [4628] = {.lex_state = 223, .external_lex_state = 6},
+  [4629] = {.lex_state = 276, .external_lex_state = 6},
+  [4630] = {.lex_state = 276, .external_lex_state = 6},
+  [4631] = {.lex_state = 276, .external_lex_state = 5},
+  [4632] = {.lex_state = 276, .external_lex_state = 5},
   [4633] = {.lex_state = 223, .external_lex_state = 6},
-  [4634] = {.lex_state = 276, .external_lex_state = 6},
-  [4635] = {.lex_state = 276, .external_lex_state = 6},
-  [4636] = {.lex_state = 276, .external_lex_state = 5},
-  [4637] = {.lex_state = 276, .external_lex_state = 5},
+  [4634] = {.lex_state = 228, .external_lex_state = 6},
+  [4635] = {.lex_state = 223, .external_lex_state = 6},
+  [4636] = {.lex_state = 276, .external_lex_state = 6},
+  [4637] = {.lex_state = 276, .external_lex_state = 6},
   [4638] = {.lex_state = 276, .external_lex_state = 6},
-  [4639] = {.lex_state = 276, .external_lex_state = 6},
+  [4639] = {.lex_state = 276, .external_lex_state = 5},
   [4640] = {.lex_state = 276, .external_lex_state = 6},
   [4641] = {.lex_state = 276, .external_lex_state = 5},
-  [4642] = {.lex_state = 276, .external_lex_state = 6},
-  [4643] = {.lex_state = 228, .external_lex_state = 6},
-  [4644] = {.lex_state = 276, .external_lex_state = 5},
-  [4645] = {.lex_state = 223, .external_lex_state = 6},
+  [4642] = {.lex_state = 228, .external_lex_state = 6},
+  [4643] = {.lex_state = 276, .external_lex_state = 5},
+  [4644] = {.lex_state = 228, .external_lex_state = 6},
+  [4645] = {.lex_state = 259, .external_lex_state = 6},
   [4646] = {.lex_state = 223, .external_lex_state = 6},
-  [4647] = {.lex_state = 276, .external_lex_state = 6},
-  [4648] = {.lex_state = 259, .external_lex_state = 5},
-  [4649] = {.lex_state = 276, .external_lex_state = 6},
-  [4650] = {.lex_state = 259, .external_lex_state = 6},
-  [4651] = {.lex_state = 259, .external_lex_state = 6},
-  [4652] = {.lex_state = 259, .external_lex_state = 6},
-  [4653] = {.lex_state = 259, .external_lex_state = 6},
+  [4647] = {.lex_state = 259, .external_lex_state = 6},
+  [4648] = {.lex_state = 216, .external_lex_state = 6},
+  [4649] = {.lex_state = 216, .external_lex_state = 6},
+  [4650] = {.lex_state = 216, .external_lex_state = 6},
+  [4651] = {.lex_state = 216, .external_lex_state = 6},
+  [4652] = {.lex_state = 276, .external_lex_state = 6},
+  [4653] = {.lex_state = 276, .external_lex_state = 6},
   [4654] = {.lex_state = 276, .external_lex_state = 6},
-  [4655] = {.lex_state = 259, .external_lex_state = 6},
+  [4655] = {.lex_state = 276, .external_lex_state = 6},
   [4656] = {.lex_state = 276, .external_lex_state = 6},
-  [4657] = {.lex_state = 259, .external_lex_state = 5},
-  [4658] = {.lex_state = 259, .external_lex_state = 6},
-  [4659] = {.lex_state = 276, .external_lex_state = 6},
-  [4660] = {.lex_state = 216, .external_lex_state = 6},
-  [4661] = {.lex_state = 259, .external_lex_state = 6},
+  [4657] = {.lex_state = 276, .external_lex_state = 5},
+  [4658] = {.lex_state = 276, .external_lex_state = 6},
+  [4659] = {.lex_state = 259, .external_lex_state = 6},
+  [4660] = {.lex_state = 276, .external_lex_state = 6},
+  [4661] = {.lex_state = 276, .external_lex_state = 6},
   [4662] = {.lex_state = 259, .external_lex_state = 6},
   [4663] = {.lex_state = 276, .external_lex_state = 6},
-  [4664] = {.lex_state = 276, .external_lex_state = 6},
-  [4665] = {.lex_state = 216, .external_lex_state = 6},
-  [4666] = {.lex_state = 276, .external_lex_state = 6},
+  [4664] = {.lex_state = 259, .external_lex_state = 6},
+  [4665] = {.lex_state = 276, .external_lex_state = 6},
+  [4666] = {.lex_state = 259, .external_lex_state = 6},
   [4667] = {.lex_state = 276, .external_lex_state = 6},
   [4668] = {.lex_state = 276, .external_lex_state = 6},
-  [4669] = {.lex_state = 276, .external_lex_state = 6},
+  [4669] = {.lex_state = 259, .external_lex_state = 5},
   [4670] = {.lex_state = 276, .external_lex_state = 6},
   [4671] = {.lex_state = 276, .external_lex_state = 6},
-  [4672] = {.lex_state = 276, .external_lex_state = 6},
-  [4673] = {.lex_state = 216, .external_lex_state = 6},
+  [4672] = {.lex_state = 259, .external_lex_state = 5},
+  [4673] = {.lex_state = 259, .external_lex_state = 6},
   [4674] = {.lex_state = 259, .external_lex_state = 6},
   [4675] = {.lex_state = 276, .external_lex_state = 6},
   [4676] = {.lex_state = 276, .external_lex_state = 6},
-  [4677] = {.lex_state = 216, .external_lex_state = 6},
-  [4678] = {.lex_state = 259, .external_lex_state = 6},
-  [4679] = {.lex_state = 276, .external_lex_state = 6},
+  [4677] = {.lex_state = 276, .external_lex_state = 6},
+  [4678] = {.lex_state = 216, .external_lex_state = 6},
+  [4679] = {.lex_state = 259, .external_lex_state = 6},
   [4680] = {.lex_state = 276, .external_lex_state = 6},
   [4681] = {.lex_state = 276, .external_lex_state = 6},
-  [4682] = {.lex_state = 216, .external_lex_state = 6},
-  [4683] = {.lex_state = 276, .external_lex_state = 5},
+  [4682] = {.lex_state = 276, .external_lex_state = 6},
+  [4683] = {.lex_state = 259, .external_lex_state = 6},
   [4684] = {.lex_state = 276, .external_lex_state = 6},
   [4685] = {.lex_state = 276, .external_lex_state = 6},
-  [4686] = {.lex_state = 276, .external_lex_state = 6},
+  [4686] = {.lex_state = 259, .external_lex_state = 6},
   [4687] = {.lex_state = 276, .external_lex_state = 6},
-  [4688] = {.lex_state = 259, .external_lex_state = 6},
-  [4689] = {.lex_state = 226, .external_lex_state = 6},
-  [4690] = {.lex_state = 276, .external_lex_state = 6},
-  [4691] = {.lex_state = 276, .external_lex_state = 6},
+  [4688] = {.lex_state = 276, .external_lex_state = 6},
+  [4689] = {.lex_state = 276, .external_lex_state = 6},
+  [4690] = {.lex_state = 228, .external_lex_state = 6},
+  [4691] = {.lex_state = 226, .external_lex_state = 6},
   [4692] = {.lex_state = 259, .external_lex_state = 6},
   [4693] = {.lex_state = 259, .external_lex_state = 6},
-  [4694] = {.lex_state = 276, .external_lex_state = 6},
+  [4694] = {.lex_state = 259, .external_lex_state = 5},
   [4695] = {.lex_state = 276, .external_lex_state = 6},
-  [4696] = {.lex_state = 228, .external_lex_state = 6},
+  [4696] = {.lex_state = 226, .external_lex_state = 6},
   [4697] = {.lex_state = 259, .external_lex_state = 6},
   [4698] = {.lex_state = 276, .external_lex_state = 6},
   [4699] = {.lex_state = 259, .external_lex_state = 6},
-  [4700] = {.lex_state = 259, .external_lex_state = 5},
-  [4701] = {.lex_state = 226, .external_lex_state = 6},
+  [4700] = {.lex_state = 276, .external_lex_state = 6},
+  [4701] = {.lex_state = 276, .external_lex_state = 6},
   [4702] = {.lex_state = 276, .external_lex_state = 6},
-  [4703] = {.lex_state = 276, .external_lex_state = 6},
-  [4704] = {.lex_state = 276, .external_lex_state = 5},
-  [4705] = {.lex_state = 276, .external_lex_state = 5},
+  [4703] = {.lex_state = 259, .external_lex_state = 6},
+  [4704] = {.lex_state = 275, .external_lex_state = 6},
+  [4705] = {.lex_state = 259, .external_lex_state = 6},
   [4706] = {.lex_state = 259, .external_lex_state = 6},
   [4707] = {.lex_state = 276, .external_lex_state = 5},
-  [4708] = {.lex_state = 276, .external_lex_state = 5},
+  [4708] = {.lex_state = 259, .external_lex_state = 6},
   [4709] = {.lex_state = 276, .external_lex_state = 6},
-  [4710] = {.lex_state = 276, .external_lex_state = 5},
-  [4711] = {.lex_state = 276, .external_lex_state = 5},
-  [4712] = {.lex_state = 276, .external_lex_state = 5},
-  [4713] = {.lex_state = 276, .external_lex_state = 5},
-  [4714] = {.lex_state = 276, .external_lex_state = 5},
-  [4715] = {.lex_state = 276, .external_lex_state = 5},
+  [4710] = {.lex_state = 226, .external_lex_state = 6},
+  [4711] = {.lex_state = 225, .external_lex_state = 6},
+  [4712] = {.lex_state = 259, .external_lex_state = 6},
+  [4713] = {.lex_state = 259, .external_lex_state = 6},
+  [4714] = {.lex_state = 259, .external_lex_state = 6},
+  [4715] = {.lex_state = 259, .external_lex_state = 6},
   [4716] = {.lex_state = 276, .external_lex_state = 5},
   [4717] = {.lex_state = 276, .external_lex_state = 5},
-  [4718] = {.lex_state = 226, .external_lex_state = 6},
-  [4719] = {.lex_state = 276, .external_lex_state = 5},
+  [4718] = {.lex_state = 276, .external_lex_state = 5},
+  [4719] = {.lex_state = 275, .external_lex_state = 6},
   [4720] = {.lex_state = 259, .external_lex_state = 6},
-  [4721] = {.lex_state = 226, .external_lex_state = 6},
-  [4722] = {.lex_state = 259, .external_lex_state = 6},
-  [4723] = {.lex_state = 259, .external_lex_state = 6},
-  [4724] = {.lex_state = 276, .external_lex_state = 6},
-  [4725] = {.lex_state = 276, .external_lex_state = 5},
-  [4726] = {.lex_state = 259, .external_lex_state = 6},
-  [4727] = {.lex_state = 276, .external_lex_state = 5},
-  [4728] = {.lex_state = 259, .external_lex_state = 6},
+  [4721] = {.lex_state = 276, .external_lex_state = 5},
+  [4722] = {.lex_state = 276, .external_lex_state = 5},
+  [4723] = {.lex_state = 276, .external_lex_state = 5},
+  [4724] = {.lex_state = 276, .external_lex_state = 5},
+  [4725] = {.lex_state = 275, .external_lex_state = 6},
+  [4726] = {.lex_state = 276, .external_lex_state = 5},
+  [4727] = {.lex_state = 276, .external_lex_state = 6},
+  [4728] = {.lex_state = 275, .external_lex_state = 6},
   [4729] = {.lex_state = 259, .external_lex_state = 6},
-  [4730] = {.lex_state = 276, .external_lex_state = 5},
+  [4730] = {.lex_state = 259, .external_lex_state = 6},
   [4731] = {.lex_state = 259, .external_lex_state = 6},
   [4732] = {.lex_state = 259, .external_lex_state = 6},
-  [4733] = {.lex_state = 225, .external_lex_state = 6},
-  [4734] = {.lex_state = 226, .external_lex_state = 6},
+  [4733] = {.lex_state = 259, .external_lex_state = 6},
+  [4734] = {.lex_state = 259, .external_lex_state = 6},
   [4735] = {.lex_state = 259, .external_lex_state = 6},
   [4736] = {.lex_state = 259, .external_lex_state = 6},
   [4737] = {.lex_state = 276, .external_lex_state = 5},
-  [4738] = {.lex_state = 275, .external_lex_state = 6},
-  [4739] = {.lex_state = 275, .external_lex_state = 6},
+  [4738] = {.lex_state = 259, .external_lex_state = 6},
+  [4739] = {.lex_state = 276, .external_lex_state = 5},
   [4740] = {.lex_state = 276, .external_lex_state = 5},
-  [4741] = {.lex_state = 275, .external_lex_state = 6},
-  [4742] = {.lex_state = 276, .external_lex_state = 6},
-  [4743] = {.lex_state = 275, .external_lex_state = 6},
-  [4744] = {.lex_state = 275, .external_lex_state = 6},
+  [4741] = {.lex_state = 276, .external_lex_state = 5},
+  [4742] = {.lex_state = 276, .external_lex_state = 5},
+  [4743] = {.lex_state = 259, .external_lex_state = 6},
+  [4744] = {.lex_state = 226, .external_lex_state = 6},
   [4745] = {.lex_state = 275, .external_lex_state = 6},
-  [4746] = {.lex_state = 275, .external_lex_state = 6},
-  [4747] = {.lex_state = 275, .external_lex_state = 6},
-  [4748] = {.lex_state = 275, .external_lex_state = 6},
-  [4749] = {.lex_state = 275, .external_lex_state = 6},
+  [4746] = {.lex_state = 259, .external_lex_state = 6},
+  [4747] = {.lex_state = 259, .external_lex_state = 6},
+  [4748] = {.lex_state = 259, .external_lex_state = 6},
+  [4749] = {.lex_state = 259, .external_lex_state = 6},
   [4750] = {.lex_state = 276, .external_lex_state = 6},
   [4751] = {.lex_state = 275, .external_lex_state = 6},
-  [4752] = {.lex_state = 224, .external_lex_state = 6},
-  [4753] = {.lex_state = 259, .external_lex_state = 6},
+  [4752] = {.lex_state = 276, .external_lex_state = 5},
+  [4753] = {.lex_state = 276, .external_lex_state = 5},
   [4754] = {.lex_state = 259, .external_lex_state = 6},
-  [4755] = {.lex_state = 259, .external_lex_state = 6},
-  [4756] = {.lex_state = 259, .external_lex_state = 6},
-  [4757] = {.lex_state = 259, .external_lex_state = 6},
+  [4755] = {.lex_state = 226, .external_lex_state = 6},
+  [4756] = {.lex_state = 275, .external_lex_state = 6},
+  [4757] = {.lex_state = 275, .external_lex_state = 6},
   [4758] = {.lex_state = 259, .external_lex_state = 6},
   [4759] = {.lex_state = 259, .external_lex_state = 6},
-  [4760] = {.lex_state = 259, .external_lex_state = 6},
+  [4760] = {.lex_state = 276, .external_lex_state = 5},
   [4761] = {.lex_state = 259, .external_lex_state = 6},
-  [4762] = {.lex_state = 259, .external_lex_state = 6},
-  [4763] = {.lex_state = 259, .external_lex_state = 6},
-  [4764] = {.lex_state = 259, .external_lex_state = 6},
+  [4762] = {.lex_state = 275, .external_lex_state = 6},
+  [4763] = {.lex_state = 275, .external_lex_state = 6},
+  [4764] = {.lex_state = 276, .external_lex_state = 5},
   [4765] = {.lex_state = 259, .external_lex_state = 6},
-  [4766] = {.lex_state = 259, .external_lex_state = 6},
-  [4767] = {.lex_state = 259, .external_lex_state = 6},
-  [4768] = {.lex_state = 259, .external_lex_state = 6},
-  [4769] = {.lex_state = 259, .external_lex_state = 6},
-  [4770] = {.lex_state = 276, .external_lex_state = 5},
-  [4771] = {.lex_state = 225, .external_lex_state = 6},
-  [4772] = {.lex_state = 259, .external_lex_state = 6},
-  [4773] = {.lex_state = 276, .external_lex_state = 5},
-  [4774] = {.lex_state = 276, .external_lex_state = 6},
-  [4775] = {.lex_state = 275, .external_lex_state = 6},
-  [4776] = {.lex_state = 257, .external_lex_state = 6},
-  [4777] = {.lex_state = 256, .external_lex_state = 6},
-  [4778] = {.lex_state = 275, .external_lex_state = 6},
-  [4779] = {.lex_state = 275, .external_lex_state = 6},
-  [4780] = {.lex_state = 275, .external_lex_state = 6},
-  [4781] = {.lex_state = 275, .external_lex_state = 6},
-  [4782] = {.lex_state = 275, .external_lex_state = 6},
-  [4783] = {.lex_state = 275, .external_lex_state = 6},
+  [4766] = {.lex_state = 276, .external_lex_state = 5},
+  [4767] = {.lex_state = 275, .external_lex_state = 6},
+  [4768] = {.lex_state = 276, .external_lex_state = 6},
+  [4769] = {.lex_state = 225, .external_lex_state = 6},
+  [4770] = {.lex_state = 259, .external_lex_state = 6},
+  [4771] = {.lex_state = 259, .external_lex_state = 6},
+  [4772] = {.lex_state = 275, .external_lex_state = 6},
+  [4773] = {.lex_state = 276, .external_lex_state = 6},
+  [4774] = {.lex_state = 276, .external_lex_state = 5},
+  [4775] = {.lex_state = 259, .external_lex_state = 6},
+  [4776] = {.lex_state = 276, .external_lex_state = 6},
+  [4777] = {.lex_state = 258, .external_lex_state = 6},
+  [4778] = {.lex_state = 257, .external_lex_state = 6},
+  [4779] = {.lex_state = 255, .external_lex_state = 6},
+  [4780] = {.lex_state = 255, .external_lex_state = 6},
+  [4781] = {.lex_state = 255, .external_lex_state = 6},
+  [4782] = {.lex_state = 255, .external_lex_state = 6},
+  [4783] = {.lex_state = 257, .external_lex_state = 6},
   [4784] = {.lex_state = 275, .external_lex_state = 6},
-  [4785] = {.lex_state = 276, .external_lex_state = 6},
-  [4786] = {.lex_state = 259, .external_lex_state = 6},
-  [4787] = {.lex_state = 256, .external_lex_state = 6},
+  [4785] = {.lex_state = 257, .external_lex_state = 6},
+  [4786] = {.lex_state = 275, .external_lex_state = 6},
+  [4787] = {.lex_state = 224, .external_lex_state = 6},
   [4788] = {.lex_state = 275, .external_lex_state = 6},
   [4789] = {.lex_state = 275, .external_lex_state = 6},
-  [4790] = {.lex_state = 275, .external_lex_state = 6},
-  [4791] = {.lex_state = 275, .external_lex_state = 6},
-  [4792] = {.lex_state = 275, .external_lex_state = 6},
-  [4793] = {.lex_state = 275, .external_lex_state = 6},
-  [4794] = {.lex_state = 259, .external_lex_state = 6},
-  [4795] = {.lex_state = 275, .external_lex_state = 6},
-  [4796] = {.lex_state = 275, .external_lex_state = 6},
-  [4797] = {.lex_state = 275, .external_lex_state = 6},
-  [4798] = {.lex_state = 275, .external_lex_state = 6},
-  [4799] = {.lex_state = 275, .external_lex_state = 6},
-  [4800] = {.lex_state = 275, .external_lex_state = 6},
-  [4801] = {.lex_state = 259, .external_lex_state = 6},
-  [4802] = {.lex_state = 275, .external_lex_state = 6},
-  [4803] = {.lex_state = 275, .external_lex_state = 6},
-  [4804] = {.lex_state = 275, .external_lex_state = 6},
-  [4805] = {.lex_state = 259, .external_lex_state = 6},
-  [4806] = {.lex_state = 275, .external_lex_state = 6},
-  [4807] = {.lex_state = 259, .external_lex_state = 6},
-  [4808] = {.lex_state = 256, .external_lex_state = 6},
-  [4809] = {.lex_state = 224, .external_lex_state = 6},
-  [4810] = {.lex_state = 259, .external_lex_state = 6},
-  [4811] = {.lex_state = 224, .external_lex_state = 6},
-  [4812] = {.lex_state = 252, .external_lex_state = 6},
-  [4813] = {.lex_state = 224, .external_lex_state = 6},
-  [4814] = {.lex_state = 259, .external_lex_state = 6},
+  [4790] = {.lex_state = 252, .external_lex_state = 6},
+  [4791] = {.lex_state = 257, .external_lex_state = 6},
+  [4792] = {.lex_state = 276, .external_lex_state = 5},
+  [4793] = {.lex_state = 259, .external_lex_state = 6},
+  [4794] = {.lex_state = 255, .external_lex_state = 6},
+  [4795] = {.lex_state = 255, .external_lex_state = 6},
+  [4796] = {.lex_state = 261, .external_lex_state = 6},
+  [4797] = {.lex_state = 259, .external_lex_state = 6},
+  [4798] = {.lex_state = 255, .external_lex_state = 6},
+  [4799] = {.lex_state = 259, .external_lex_state = 6},
+  [4800] = {.lex_state = 252, .external_lex_state = 6},
+  [4801] = {.lex_state = 252, .external_lex_state = 6},
+  [4802] = {.lex_state = 252, .external_lex_state = 6},
+  [4803] = {.lex_state = 252, .external_lex_state = 6},
+  [4804] = {.lex_state = 255, .external_lex_state = 6},
+  [4805] = {.lex_state = 276, .external_lex_state = 6},
+  [4806] = {.lex_state = 252, .external_lex_state = 6},
+  [4807] = {.lex_state = 252, .external_lex_state = 6},
+  [4808] = {.lex_state = 252, .external_lex_state = 6},
+  [4809] = {.lex_state = 252, .external_lex_state = 6},
+  [4810] = {.lex_state = 252, .external_lex_state = 6},
+  [4811] = {.lex_state = 252, .external_lex_state = 6},
+  [4812] = {.lex_state = 224, .external_lex_state = 6},
+  [4813] = {.lex_state = 261, .external_lex_state = 6},
+  [4814] = {.lex_state = 252, .external_lex_state = 6},
   [4815] = {.lex_state = 256, .external_lex_state = 6},
-  [4816] = {.lex_state = 252, .external_lex_state = 6},
-  [4817] = {.lex_state = 252, .external_lex_state = 6},
-  [4818] = {.lex_state = 252, .external_lex_state = 6},
+  [4816] = {.lex_state = 224, .external_lex_state = 6},
+  [4817] = {.lex_state = 224, .external_lex_state = 6},
+  [4818] = {.lex_state = 224, .external_lex_state = 6},
   [4819] = {.lex_state = 259, .external_lex_state = 6},
-  [4820] = {.lex_state = 259, .external_lex_state = 6},
-  [4821] = {.lex_state = 252, .external_lex_state = 6},
-  [4822] = {.lex_state = 252, .external_lex_state = 6},
-  [4823] = {.lex_state = 256, .external_lex_state = 6},
-  [4824] = {.lex_state = 276, .external_lex_state = 6},
-  [4825] = {.lex_state = 252, .external_lex_state = 6},
-  [4826] = {.lex_state = 252, .external_lex_state = 6},
-  [4827] = {.lex_state = 257, .external_lex_state = 6},
-  [4828] = {.lex_state = 259, .external_lex_state = 6},
-  [4829] = {.lex_state = 252, .external_lex_state = 6},
-  [4830] = {.lex_state = 252, .external_lex_state = 6},
-  [4831] = {.lex_state = 252, .external_lex_state = 6},
-  [4832] = {.lex_state = 252, .external_lex_state = 6},
-  [4833] = {.lex_state = 224, .external_lex_state = 6},
+  [4820] = {.lex_state = 224, .external_lex_state = 6},
+  [4821] = {.lex_state = 275, .external_lex_state = 6},
+  [4822] = {.lex_state = 275, .external_lex_state = 6},
+  [4823] = {.lex_state = 258, .external_lex_state = 6},
+  [4824] = {.lex_state = 275, .external_lex_state = 6},
+  [4825] = {.lex_state = 257, .external_lex_state = 6},
+  [4826] = {.lex_state = 257, .external_lex_state = 6},
+  [4827] = {.lex_state = 275, .external_lex_state = 6},
+  [4828] = {.lex_state = 257, .external_lex_state = 6},
+  [4829] = {.lex_state = 275, .external_lex_state = 6},
+  [4830] = {.lex_state = 275, .external_lex_state = 6},
+  [4831] = {.lex_state = 275, .external_lex_state = 6},
+  [4832] = {.lex_state = 258, .external_lex_state = 6},
+  [4833] = {.lex_state = 275, .external_lex_state = 6},
   [4834] = {.lex_state = 275, .external_lex_state = 6},
-  [4835] = {.lex_state = 224, .external_lex_state = 6},
-  [4836] = {.lex_state = 257, .external_lex_state = 6},
-  [4837] = {.lex_state = 257, .external_lex_state = 6},
-  [4838] = {.lex_state = 257, .external_lex_state = 6},
-  [4839] = {.lex_state = 276, .external_lex_state = 5},
+  [4835] = {.lex_state = 275, .external_lex_state = 6},
+  [4836] = {.lex_state = 275, .external_lex_state = 6},
+  [4837] = {.lex_state = 275, .external_lex_state = 6},
+  [4838] = {.lex_state = 258, .external_lex_state = 6},
+  [4839] = {.lex_state = 258, .external_lex_state = 6},
   [4840] = {.lex_state = 275, .external_lex_state = 6},
-  [4841] = {.lex_state = 224, .external_lex_state = 6},
-  [4842] = {.lex_state = 276, .external_lex_state = 6},
-  [4843] = {.lex_state = 257, .external_lex_state = 6},
+  [4841] = {.lex_state = 275, .external_lex_state = 6},
+  [4842] = {.lex_state = 259, .external_lex_state = 6},
+  [4843] = {.lex_state = 258, .external_lex_state = 6},
   [4844] = {.lex_state = 257, .external_lex_state = 6},
-  [4845] = {.lex_state = 257, .external_lex_state = 6},
+  [4845] = {.lex_state = 275, .external_lex_state = 6},
   [4846] = {.lex_state = 257, .external_lex_state = 6},
-  [4847] = {.lex_state = 257, .external_lex_state = 6},
-  [4848] = {.lex_state = 257, .external_lex_state = 6},
-  [4849] = {.lex_state = 257, .external_lex_state = 6},
-  [4850] = {.lex_state = 276, .external_lex_state = 5},
-  [4851] = {.lex_state = 258, .external_lex_state = 6},
-  [4852] = {.lex_state = 276, .external_lex_state = 6},
-  [4853] = {.lex_state = 256, .external_lex_state = 6},
-  [4854] = {.lex_state = 225, .external_lex_state = 6},
-  [4855] = {.lex_state = 259, .external_lex_state = 6},
-  [4856] = {.lex_state = 259, .external_lex_state = 6},
-  [4857] = {.lex_state = 259, .external_lex_state = 6},
-  [4858] = {.lex_state = 276, .external_lex_state = 6},
-  [4859] = {.lex_state = 259, .external_lex_state = 6},
-  [4860] = {.lex_state = 276, .external_lex_state = 5},
-  [4861] = {.lex_state = 224, .external_lex_state = 6},
-  [4862] = {.lex_state = 259, .external_lex_state = 6},
-  [4863] = {.lex_state = 259, .external_lex_state = 6},
-  [4864] = {.lex_state = 259, .external_lex_state = 6},
-  [4865] = {.lex_state = 224, .external_lex_state = 6},
-  [4866] = {.lex_state = 276, .external_lex_state = 6},
-  [4867] = {.lex_state = 256, .external_lex_state = 6},
-  [4868] = {.lex_state = 258, .external_lex_state = 6},
-  [4869] = {.lex_state = 258, .external_lex_state = 6},
-  [4870] = {.lex_state = 258, .external_lex_state = 6},
-  [4871] = {.lex_state = 276, .external_lex_state = 6},
-  [4872] = {.lex_state = 258, .external_lex_state = 6},
-  [4873] = {.lex_state = 258, .external_lex_state = 6},
-  [4874] = {.lex_state = 259, .external_lex_state = 6},
-  [4875] = {.lex_state = 258, .external_lex_state = 6},
-  [4876] = {.lex_state = 258, .external_lex_state = 6},
+  [4847] = {.lex_state = 275, .external_lex_state = 6},
+  [4848] = {.lex_state = 275, .external_lex_state = 6},
+  [4849] = {.lex_state = 275, .external_lex_state = 6},
+  [4850] = {.lex_state = 275, .external_lex_state = 6},
+  [4851] = {.lex_state = 275, .external_lex_state = 6},
+  [4852] = {.lex_state = 258, .external_lex_state = 6},
+  [4853] = {.lex_state = 276, .external_lex_state = 6},
+  [4854] = {.lex_state = 275, .external_lex_state = 6},
+  [4855] = {.lex_state = 275, .external_lex_state = 6},
+  [4856] = {.lex_state = 258, .external_lex_state = 6},
+  [4857] = {.lex_state = 276, .external_lex_state = 5},
+  [4858] = {.lex_state = 259, .external_lex_state = 6},
+  [4859] = {.lex_state = 258, .external_lex_state = 6},
+  [4860] = {.lex_state = 258, .external_lex_state = 6},
+  [4861] = {.lex_state = 275, .external_lex_state = 6},
+  [4862] = {.lex_state = 275, .external_lex_state = 6},
+  [4863] = {.lex_state = 275, .external_lex_state = 6},
+  [4864] = {.lex_state = 258, .external_lex_state = 6},
+  [4865] = {.lex_state = 259, .external_lex_state = 6},
+  [4866] = {.lex_state = 258, .external_lex_state = 6},
+  [4867] = {.lex_state = 259, .external_lex_state = 6},
+  [4868] = {.lex_state = 259, .external_lex_state = 6},
+  [4869] = {.lex_state = 275, .external_lex_state = 6},
+  [4870] = {.lex_state = 255, .external_lex_state = 6},
+  [4871] = {.lex_state = 259, .external_lex_state = 6},
+  [4872] = {.lex_state = 259, .external_lex_state = 6},
+  [4873] = {.lex_state = 275, .external_lex_state = 6},
+  [4874] = {.lex_state = 275, .external_lex_state = 6},
+  [4875] = {.lex_state = 255, .external_lex_state = 6},
+  [4876] = {.lex_state = 259, .external_lex_state = 6},
   [4877] = {.lex_state = 259, .external_lex_state = 6},
-  [4878] = {.lex_state = 258, .external_lex_state = 6},
-  [4879] = {.lex_state = 224, .external_lex_state = 6},
-  [4880] = {.lex_state = 224, .external_lex_state = 6},
-  [4881] = {.lex_state = 258, .external_lex_state = 6},
-  [4882] = {.lex_state = 258, .external_lex_state = 6},
-  [4883] = {.lex_state = 224, .external_lex_state = 6},
-  [4884] = {.lex_state = 261, .external_lex_state = 6},
-  [4885] = {.lex_state = 259, .external_lex_state = 6},
-  [4886] = {.lex_state = 259, .external_lex_state = 6},
-  [4887] = {.lex_state = 258, .external_lex_state = 6},
-  [4888] = {.lex_state = 255, .external_lex_state = 6},
+  [4878] = {.lex_state = 255, .external_lex_state = 6},
+  [4879] = {.lex_state = 276, .external_lex_state = 6},
+  [4880] = {.lex_state = 259, .external_lex_state = 6},
+  [4881] = {.lex_state = 225, .external_lex_state = 6},
+  [4882] = {.lex_state = 275, .external_lex_state = 6},
+  [4883] = {.lex_state = 275, .external_lex_state = 6},
+  [4884] = {.lex_state = 275, .external_lex_state = 6},
+  [4885] = {.lex_state = 275, .external_lex_state = 6},
+  [4886] = {.lex_state = 276, .external_lex_state = 6},
+  [4887] = {.lex_state = 275, .external_lex_state = 6},
+  [4888] = {.lex_state = 259, .external_lex_state = 6},
   [4889] = {.lex_state = 259, .external_lex_state = 6},
   [4890] = {.lex_state = 259, .external_lex_state = 6},
   [4891] = {.lex_state = 255, .external_lex_state = 6},
-  [4892] = {.lex_state = 255, .external_lex_state = 6},
-  [4893] = {.lex_state = 255, .external_lex_state = 6},
-  [4894] = {.lex_state = 276, .external_lex_state = 6},
-  [4895] = {.lex_state = 224, .external_lex_state = 6},
+  [4892] = {.lex_state = 259, .external_lex_state = 6},
+  [4893] = {.lex_state = 276, .external_lex_state = 6},
+  [4894] = {.lex_state = 259, .external_lex_state = 6},
+  [4895] = {.lex_state = 256, .external_lex_state = 6},
   [4896] = {.lex_state = 275, .external_lex_state = 6},
-  [4897] = {.lex_state = 255, .external_lex_state = 6},
-  [4898] = {.lex_state = 255, .external_lex_state = 6},
-  [4899] = {.lex_state = 255, .external_lex_state = 6},
-  [4900] = {.lex_state = 255, .external_lex_state = 6},
-  [4901] = {.lex_state = 276, .external_lex_state = 6},
-  [4902] = {.lex_state = 275, .external_lex_state = 6},
-  [4903] = {.lex_state = 275, .external_lex_state = 6},
-  [4904] = {.lex_state = 275, .external_lex_state = 6},
-  [4905] = {.lex_state = 261, .external_lex_state = 6},
+  [4897] = {.lex_state = 276, .external_lex_state = 6},
+  [4898] = {.lex_state = 275, .external_lex_state = 6},
+  [4899] = {.lex_state = 276, .external_lex_state = 6},
+  [4900] = {.lex_state = 275, .external_lex_state = 6},
+  [4901] = {.lex_state = 275, .external_lex_state = 6},
+  [4902] = {.lex_state = 224, .external_lex_state = 6},
+  [4903] = {.lex_state = 224, .external_lex_state = 6},
+  [4904] = {.lex_state = 224, .external_lex_state = 6},
+  [4905] = {.lex_state = 256, .external_lex_state = 6},
   [4906] = {.lex_state = 275, .external_lex_state = 6},
   [4907] = {.lex_state = 275, .external_lex_state = 6},
   [4908] = {.lex_state = 275, .external_lex_state = 6},
-  [4909] = {.lex_state = 275, .external_lex_state = 6},
-  [4910] = {.lex_state = 275, .external_lex_state = 6},
-  [4911] = {.lex_state = 275, .external_lex_state = 6},
+  [4909] = {.lex_state = 276, .external_lex_state = 5},
+  [4910] = {.lex_state = 257, .external_lex_state = 6},
+  [4911] = {.lex_state = 276, .external_lex_state = 6},
   [4912] = {.lex_state = 275, .external_lex_state = 6},
-  [4913] = {.lex_state = 275, .external_lex_state = 6},
-  [4914] = {.lex_state = 275, .external_lex_state = 6},
-  [4915] = {.lex_state = 275, .external_lex_state = 6},
-  [4916] = {.lex_state = 255, .external_lex_state = 6},
-  [4917] = {.lex_state = 255, .external_lex_state = 6},
-  [4918] = {.lex_state = 275, .external_lex_state = 6},
-  [4919] = {.lex_state = 255, .external_lex_state = 6},
-  [4920] = {.lex_state = 275, .external_lex_state = 6},
+  [4913] = {.lex_state = 257, .external_lex_state = 6},
+  [4914] = {.lex_state = 257, .external_lex_state = 6},
+  [4915] = {.lex_state = 256, .external_lex_state = 6},
+  [4916] = {.lex_state = 275, .external_lex_state = 6},
+  [4917] = {.lex_state = 256, .external_lex_state = 6},
+  [4918] = {.lex_state = 259, .external_lex_state = 6},
+  [4919] = {.lex_state = 259, .external_lex_state = 6},
+  [4920] = {.lex_state = 256, .external_lex_state = 6},
   [4921] = {.lex_state = 256, .external_lex_state = 6},
-  [4922] = {.lex_state = 275, .external_lex_state = 6},
-  [4923] = {.lex_state = 275, .external_lex_state = 6},
-  [4924] = {.lex_state = 275, .external_lex_state = 6},
-  [4925] = {.lex_state = 275, .external_lex_state = 6},
-  [4926] = {.lex_state = 275, .external_lex_state = 6},
-  [4927] = {.lex_state = 276, .external_lex_state = 6},
-  [4928] = {.lex_state = 225, .external_lex_state = 6},
-  [4929] = {.lex_state = 255, .external_lex_state = 6},
-  [4930] = {.lex_state = 256, .external_lex_state = 6},
-  [4931] = {.lex_state = 256, .external_lex_state = 6},
-  [4932] = {.lex_state = 256, .external_lex_state = 6},
-  [4933] = {.lex_state = 256, .external_lex_state = 6},
-  [4934] = {.lex_state = 259, .external_lex_state = 6},
-  [4935] = {.lex_state = 258, .external_lex_state = 6},
-  [4936] = {.lex_state = 252, .external_lex_state = 6},
-  [4937] = {.lex_state = 256, .external_lex_state = 6},
-  [4938] = {.lex_state = 252, .external_lex_state = 6},
-  [4939] = {.lex_state = 256, .external_lex_state = 6},
-  [4940] = {.lex_state = 252, .external_lex_state = 6},
-  [4941] = {.lex_state = 252, .external_lex_state = 6},
+  [4922] = {.lex_state = 256, .external_lex_state = 6},
+  [4923] = {.lex_state = 256, .external_lex_state = 6},
+  [4924] = {.lex_state = 259, .external_lex_state = 6},
+  [4925] = {.lex_state = 224, .external_lex_state = 6},
+  [4926] = {.lex_state = 256, .external_lex_state = 6},
+  [4927] = {.lex_state = 256, .external_lex_state = 6},
+  [4928] = {.lex_state = 256, .external_lex_state = 6},
+  [4929] = {.lex_state = 276, .external_lex_state = 6},
+  [4930] = {.lex_state = 259, .external_lex_state = 6},
+  [4931] = {.lex_state = 259, .external_lex_state = 6},
+  [4932] = {.lex_state = 224, .external_lex_state = 6},
+  [4933] = {.lex_state = 224, .external_lex_state = 6},
+  [4934] = {.lex_state = 225, .external_lex_state = 6},
+  [4935] = {.lex_state = 257, .external_lex_state = 6},
+  [4936] = {.lex_state = 257, .external_lex_state = 6},
+  [4937] = {.lex_state = 258, .external_lex_state = 6},
+  [4938] = {.lex_state = 258, .external_lex_state = 6},
+  [4939] = {.lex_state = 224, .external_lex_state = 6},
+  [4940] = {.lex_state = 224, .external_lex_state = 6},
+  [4941] = {.lex_state = 224, .external_lex_state = 6},
   [4942] = {.lex_state = 256, .external_lex_state = 6},
-  [4943] = {.lex_state = 252, .external_lex_state = 6},
-  [4944] = {.lex_state = 252, .external_lex_state = 6},
-  [4945] = {.lex_state = 256, .external_lex_state = 6},
-  [4946] = {.lex_state = 252, .external_lex_state = 6},
+  [4943] = {.lex_state = 256, .external_lex_state = 6},
+  [4944] = {.lex_state = 256, .external_lex_state = 6},
+  [4945] = {.lex_state = 255, .external_lex_state = 6},
+  [4946] = {.lex_state = 256, .external_lex_state = 6},
   [4947] = {.lex_state = 256, .external_lex_state = 6},
-  [4948] = {.lex_state = 252, .external_lex_state = 6},
-  [4949] = {.lex_state = 257, .external_lex_state = 6},
-  [4950] = {.lex_state = 252, .external_lex_state = 6},
-  [4951] = {.lex_state = 224, .external_lex_state = 6},
-  [4952] = {.lex_state = 252, .external_lex_state = 6},
-  [4953] = {.lex_state = 252, .external_lex_state = 6},
-  [4954] = {.lex_state = 252, .external_lex_state = 6},
-  [4955] = {.lex_state = 224, .external_lex_state = 6},
-  [4956] = {.lex_state = 258, .external_lex_state = 6},
-  [4957] = {.lex_state = 276, .external_lex_state = 6},
-  [4958] = {.lex_state = 257, .external_lex_state = 6},
+  [4948] = {.lex_state = 276, .external_lex_state = 6},
+  [4949] = {.lex_state = 276, .external_lex_state = 6},
+  [4950] = {.lex_state = 258, .external_lex_state = 6},
+  [4951] = {.lex_state = 258, .external_lex_state = 6},
+  [4952] = {.lex_state = 258, .external_lex_state = 6},
+  [4953] = {.lex_state = 258, .external_lex_state = 6},
+  [4954] = {.lex_state = 258, .external_lex_state = 6},
+  [4955] = {.lex_state = 258, .external_lex_state = 6},
+  [4956] = {.lex_state = 256, .external_lex_state = 6},
+  [4957] = {.lex_state = 256, .external_lex_state = 6},
+  [4958] = {.lex_state = 276, .external_lex_state = 6},
   [4959] = {.lex_state = 276, .external_lex_state = 6},
-  [4960] = {.lex_state = 261, .external_lex_state = 6},
-  [4961] = {.lex_state = 257, .external_lex_state = 6},
-  [4962] = {.lex_state = 257, .external_lex_state = 6},
-  [4963] = {.lex_state = 256, .external_lex_state = 6},
-  [4964] = {.lex_state = 224, .external_lex_state = 6},
-  [4965] = {.lex_state = 224, .external_lex_state = 6},
-  [4966] = {.lex_state = 224, .external_lex_state = 6},
-  [4967] = {.lex_state = 224, .external_lex_state = 6},
+  [4960] = {.lex_state = 256, .external_lex_state = 6},
+  [4961] = {.lex_state = 256, .external_lex_state = 6},
+  [4962] = {.lex_state = 258, .external_lex_state = 6},
+  [4963] = {.lex_state = 258, .external_lex_state = 6},
+  [4964] = {.lex_state = 258, .external_lex_state = 6},
+  [4965] = {.lex_state = 258, .external_lex_state = 6},
+  [4966] = {.lex_state = 256, .external_lex_state = 6},
+  [4967] = {.lex_state = 256, .external_lex_state = 6},
   [4968] = {.lex_state = 256, .external_lex_state = 6},
-  [4969] = {.lex_state = 224, .external_lex_state = 6},
+  [4969] = {.lex_state = 256, .external_lex_state = 6},
   [4970] = {.lex_state = 224, .external_lex_state = 6},
-  [4971] = {.lex_state = 224, .external_lex_state = 6},
-  [4972] = {.lex_state = 224, .external_lex_state = 6},
-  [4973] = {.lex_state = 257, .external_lex_state = 6},
-  [4974] = {.lex_state = 257, .external_lex_state = 6},
-  [4975] = {.lex_state = 224, .external_lex_state = 6},
-  [4976] = {.lex_state = 276, .external_lex_state = 6},
-  [4977] = {.lex_state = 224, .external_lex_state = 6},
+  [4971] = {.lex_state = 276, .external_lex_state = 6},
+  [4972] = {.lex_state = 258, .external_lex_state = 6},
+  [4973] = {.lex_state = 224, .external_lex_state = 6},
+  [4974] = {.lex_state = 255, .external_lex_state = 6},
+  [4975] = {.lex_state = 255, .external_lex_state = 6},
+  [4976] = {.lex_state = 256, .external_lex_state = 6},
+  [4977] = {.lex_state = 256, .external_lex_state = 6},
   [4978] = {.lex_state = 257, .external_lex_state = 6},
-  [4979] = {.lex_state = 224, .external_lex_state = 6},
+  [4979] = {.lex_state = 256, .external_lex_state = 6},
   [4980] = {.lex_state = 257, .external_lex_state = 6},
-  [4981] = {.lex_state = 257, .external_lex_state = 6},
-  [4982] = {.lex_state = 258, .external_lex_state = 6},
-  [4983] = {.lex_state = 257, .external_lex_state = 6},
-  [4984] = {.lex_state = 257, .external_lex_state = 6},
-  [4985] = {.lex_state = 257, .external_lex_state = 6},
-  [4986] = {.lex_state = 257, .external_lex_state = 6},
-  [4987] = {.lex_state = 255, .external_lex_state = 6},
-  [4988] = {.lex_state = 255, .external_lex_state = 6},
-  [4989] = {.lex_state = 255, .external_lex_state = 6},
-  [4990] = {.lex_state = 224, .external_lex_state = 6},
-  [4991] = {.lex_state = 255, .external_lex_state = 6},
-  [4992] = {.lex_state = 257, .external_lex_state = 6},
-  [4993] = {.lex_state = 257, .external_lex_state = 6},
+  [4981] = {.lex_state = 256, .external_lex_state = 6},
+  [4982] = {.lex_state = 256, .external_lex_state = 6},
+  [4983] = {.lex_state = 256, .external_lex_state = 6},
+  [4984] = {.lex_state = 276, .external_lex_state = 6},
+  [4985] = {.lex_state = 256, .external_lex_state = 6},
+  [4986] = {.lex_state = 256, .external_lex_state = 6},
+  [4987] = {.lex_state = 256, .external_lex_state = 6},
+  [4988] = {.lex_state = 256, .external_lex_state = 6},
+  [4989] = {.lex_state = 261, .external_lex_state = 6},
+  [4990] = {.lex_state = 261, .external_lex_state = 6},
+  [4991] = {.lex_state = 261, .external_lex_state = 6},
+  [4992] = {.lex_state = 258, .external_lex_state = 6},
+  [4993] = {.lex_state = 258, .external_lex_state = 6},
   [4994] = {.lex_state = 257, .external_lex_state = 6},
   [4995] = {.lex_state = 257, .external_lex_state = 6},
-  [4996] = {.lex_state = 224, .external_lex_state = 6},
+  [4996] = {.lex_state = 256, .external_lex_state = 6},
   [4997] = {.lex_state = 261, .external_lex_state = 6},
   [4998] = {.lex_state = 257, .external_lex_state = 6},
-  [4999] = {.lex_state = 257, .external_lex_state = 6},
-  [5000] = {.lex_state = 255, .external_lex_state = 6},
-  [5001] = {.lex_state = 258, .external_lex_state = 6},
-  [5002] = {.lex_state = 257, .external_lex_state = 6},
-  [5003] = {.lex_state = 257, .external_lex_state = 6},
-  [5004] = {.lex_state = 256, .external_lex_state = 6},
-  [5005] = {.lex_state = 257, .external_lex_state = 6},
-  [5006] = {.lex_state = 257, .external_lex_state = 6},
-  [5007] = {.lex_state = 224, .external_lex_state = 6},
-  [5008] = {.lex_state = 224, .external_lex_state = 6},
-  [5009] = {.lex_state = 257, .external_lex_state = 6},
-  [5010] = {.lex_state = 257, .external_lex_state = 6},
-  [5011] = {.lex_state = 257, .external_lex_state = 6},
+  [4999] = {.lex_state = 256, .external_lex_state = 6},
+  [5000] = {.lex_state = 276, .external_lex_state = 6},
+  [5001] = {.lex_state = 257, .external_lex_state = 6},
+  [5002] = {.lex_state = 256, .external_lex_state = 6},
+  [5003] = {.lex_state = 256, .external_lex_state = 6},
+  [5004] = {.lex_state = 276, .external_lex_state = 6},
+  [5005] = {.lex_state = 256, .external_lex_state = 6},
+  [5006] = {.lex_state = 261, .external_lex_state = 6},
+  [5007] = {.lex_state = 252, .external_lex_state = 6},
+  [5008] = {.lex_state = 252, .external_lex_state = 6},
+  [5009] = {.lex_state = 255, .external_lex_state = 6},
+  [5010] = {.lex_state = 224, .external_lex_state = 6},
+  [5011] = {.lex_state = 224, .external_lex_state = 6},
   [5012] = {.lex_state = 256, .external_lex_state = 6},
-  [5013] = {.lex_state = 257, .external_lex_state = 6},
+  [5013] = {.lex_state = 224, .external_lex_state = 6},
   [5014] = {.lex_state = 255, .external_lex_state = 6},
-  [5015] = {.lex_state = 257, .external_lex_state = 6},
-  [5016] = {.lex_state = 257, .external_lex_state = 6},
-  [5017] = {.lex_state = 256, .external_lex_state = 6},
-  [5018] = {.lex_state = 257, .external_lex_state = 6},
-  [5019] = {.lex_state = 257, .external_lex_state = 6},
-  [5020] = {.lex_state = 257, .external_lex_state = 6},
-  [5021] = {.lex_state = 257, .external_lex_state = 6},
-  [5022] = {.lex_state = 256, .external_lex_state = 6},
-  [5023] = {.lex_state = 256, .external_lex_state = 6},
-  [5024] = {.lex_state = 256, .external_lex_state = 6},
+  [5015] = {.lex_state = 256, .external_lex_state = 6},
+  [5016] = {.lex_state = 224, .external_lex_state = 6},
+  [5017] = {.lex_state = 276, .external_lex_state = 6},
+  [5018] = {.lex_state = 255, .external_lex_state = 6},
+  [5019] = {.lex_state = 256, .external_lex_state = 6},
+  [5020] = {.lex_state = 256, .external_lex_state = 6},
+  [5021] = {.lex_state = 256, .external_lex_state = 6},
+  [5022] = {.lex_state = 252, .external_lex_state = 6},
+  [5023] = {.lex_state = 252, .external_lex_state = 6},
+  [5024] = {.lex_state = 252, .external_lex_state = 6},
   [5025] = {.lex_state = 252, .external_lex_state = 6},
-  [5026] = {.lex_state = 258, .external_lex_state = 6},
-  [5027] = {.lex_state = 256, .external_lex_state = 6},
-  [5028] = {.lex_state = 256, .external_lex_state = 6},
-  [5029] = {.lex_state = 256, .external_lex_state = 6},
-  [5030] = {.lex_state = 255, .external_lex_state = 6},
-  [5031] = {.lex_state = 276, .external_lex_state = 6},
-  [5032] = {.lex_state = 256, .external_lex_state = 6},
-  [5033] = {.lex_state = 256, .external_lex_state = 6},
-  [5034] = {.lex_state = 276, .external_lex_state = 6},
+  [5026] = {.lex_state = 256, .external_lex_state = 6},
+  [5027] = {.lex_state = 276, .external_lex_state = 6},
+  [5028] = {.lex_state = 224, .external_lex_state = 6},
+  [5029] = {.lex_state = 258, .external_lex_state = 6},
+  [5030] = {.lex_state = 224, .external_lex_state = 6},
+  [5031] = {.lex_state = 224, .external_lex_state = 6},
+  [5032] = {.lex_state = 224, .external_lex_state = 6},
+  [5033] = {.lex_state = 257, .external_lex_state = 6},
+  [5034] = {.lex_state = 261, .external_lex_state = 6},
   [5035] = {.lex_state = 261, .external_lex_state = 6},
-  [5036] = {.lex_state = 252, .external_lex_state = 6},
-  [5037] = {.lex_state = 257, .external_lex_state = 6},
-  [5038] = {.lex_state = 252, .external_lex_state = 6},
-  [5039] = {.lex_state = 224, .external_lex_state = 6},
-  [5040] = {.lex_state = 257, .external_lex_state = 6},
-  [5041] = {.lex_state = 258, .external_lex_state = 6},
-  [5042] = {.lex_state = 257, .external_lex_state = 6},
-  [5043] = {.lex_state = 256, .external_lex_state = 6},
-  [5044] = {.lex_state = 257, .external_lex_state = 6},
-  [5045] = {.lex_state = 256, .external_lex_state = 6},
+  [5036] = {.lex_state = 224, .external_lex_state = 6},
+  [5037] = {.lex_state = 224, .external_lex_state = 6},
+  [5038] = {.lex_state = 224, .external_lex_state = 6},
+  [5039] = {.lex_state = 252, .external_lex_state = 6},
+  [5040] = {.lex_state = 252, .external_lex_state = 6},
+  [5041] = {.lex_state = 252, .external_lex_state = 6},
+  [5042] = {.lex_state = 252, .external_lex_state = 6},
+  [5043] = {.lex_state = 252, .external_lex_state = 6},
+  [5044] = {.lex_state = 252, .external_lex_state = 6},
+  [5045] = {.lex_state = 224, .external_lex_state = 6},
   [5046] = {.lex_state = 256, .external_lex_state = 6},
-  [5047] = {.lex_state = 224, .external_lex_state = 6},
+  [5047] = {.lex_state = 256, .external_lex_state = 6},
   [5048] = {.lex_state = 224, .external_lex_state = 6},
-  [5049] = {.lex_state = 256, .external_lex_state = 6},
-  [5050] = {.lex_state = 256, .external_lex_state = 6},
-  [5051] = {.lex_state = 224, .external_lex_state = 6},
-  [5052] = {.lex_state = 224, .external_lex_state = 6},
-  [5053] = {.lex_state = 276, .external_lex_state = 6},
-  [5054] = {.lex_state = 276, .external_lex_state = 6},
-  [5055] = {.lex_state = 256, .external_lex_state = 6},
-  [5056] = {.lex_state = 257, .external_lex_state = 6},
-  [5057] = {.lex_state = 256, .external_lex_state = 6},
-  [5058] = {.lex_state = 252, .external_lex_state = 6},
-  [5059] = {.lex_state = 258, .external_lex_state = 6},
-  [5060] = {.lex_state = 256, .external_lex_state = 6},
-  [5061] = {.lex_state = 252, .external_lex_state = 6},
-  [5062] = {.lex_state = 258, .external_lex_state = 6},
-  [5063] = {.lex_state = 258, .external_lex_state = 6},
-  [5064] = {.lex_state = 256, .external_lex_state = 6},
-  [5065] = {.lex_state = 252, .external_lex_state = 6},
-  [5066] = {.lex_state = 258, .external_lex_state = 6},
+  [5049] = {.lex_state = 224, .external_lex_state = 6},
+  [5050] = {.lex_state = 224, .external_lex_state = 6},
+  [5051] = {.lex_state = 256, .external_lex_state = 6},
+  [5052] = {.lex_state = 276, .external_lex_state = 6},
+  [5053] = {.lex_state = 252, .external_lex_state = 6},
+  [5054] = {.lex_state = 252, .external_lex_state = 6},
+  [5055] = {.lex_state = 252, .external_lex_state = 6},
+  [5056] = {.lex_state = 252, .external_lex_state = 6},
+  [5057] = {.lex_state = 224, .external_lex_state = 6},
+  [5058] = {.lex_state = 224, .external_lex_state = 6},
+  [5059] = {.lex_state = 224, .external_lex_state = 6},
+  [5060] = {.lex_state = 276, .external_lex_state = 6},
+  [5061] = {.lex_state = 261, .external_lex_state = 6},
+  [5062] = {.lex_state = 224, .external_lex_state = 6},
+  [5063] = {.lex_state = 255, .external_lex_state = 6},
+  [5064] = {.lex_state = 255, .external_lex_state = 6},
+  [5065] = {.lex_state = 224, .external_lex_state = 6},
+  [5066] = {.lex_state = 255, .external_lex_state = 6},
   [5067] = {.lex_state = 224, .external_lex_state = 6},
   [5068] = {.lex_state = 224, .external_lex_state = 6},
-  [5069] = {.lex_state = 258, .external_lex_state = 6},
-  [5070] = {.lex_state = 256, .external_lex_state = 6},
-  [5071] = {.lex_state = 256, .external_lex_state = 6},
-  [5072] = {.lex_state = 258, .external_lex_state = 6},
-  [5073] = {.lex_state = 258, .external_lex_state = 6},
-  [5074] = {.lex_state = 258, .external_lex_state = 6},
-  [5075] = {.lex_state = 224, .external_lex_state = 6},
-  [5076] = {.lex_state = 258, .external_lex_state = 6},
-  [5077] = {.lex_state = 252, .external_lex_state = 6},
-  [5078] = {.lex_state = 256, .external_lex_state = 6},
-  [5079] = {.lex_state = 252, .external_lex_state = 6},
-  [5080] = {.lex_state = 224, .external_lex_state = 6},
-  [5081] = {.lex_state = 258, .external_lex_state = 6},
-  [5082] = {.lex_state = 258, .external_lex_state = 6},
-  [5083] = {.lex_state = 256, .external_lex_state = 6},
-  [5084] = {.lex_state = 256, .external_lex_state = 6},
-  [5085] = {.lex_state = 256, .external_lex_state = 6},
-  [5086] = {.lex_state = 256, .external_lex_state = 6},
+  [5069] = {.lex_state = 224, .external_lex_state = 6},
+  [5070] = {.lex_state = 257, .external_lex_state = 6},
+  [5071] = {.lex_state = 276, .external_lex_state = 5},
+  [5072] = {.lex_state = 255, .external_lex_state = 6},
+  [5073] = {.lex_state = 255, .external_lex_state = 6},
+  [5074] = {.lex_state = 224, .external_lex_state = 6},
+  [5075] = {.lex_state = 261, .external_lex_state = 6},
+  [5076] = {.lex_state = 224, .external_lex_state = 6},
+  [5077] = {.lex_state = 258, .external_lex_state = 6},
+  [5078] = {.lex_state = 255, .external_lex_state = 6},
+  [5079] = {.lex_state = 276, .external_lex_state = 6},
+  [5080] = {.lex_state = 276, .external_lex_state = 6},
+  [5081] = {.lex_state = 256, .external_lex_state = 6},
+  [5082] = {.lex_state = 257, .external_lex_state = 6},
+  [5083] = {.lex_state = 257, .external_lex_state = 6},
+  [5084] = {.lex_state = 258, .external_lex_state = 6},
+  [5085] = {.lex_state = 257, .external_lex_state = 6},
+  [5086] = {.lex_state = 224, .external_lex_state = 6},
   [5087] = {.lex_state = 258, .external_lex_state = 6},
-  [5088] = {.lex_state = 258, .external_lex_state = 6},
-  [5089] = {.lex_state = 224, .external_lex_state = 6},
-  [5090] = {.lex_state = 258, .external_lex_state = 6},
+  [5088] = {.lex_state = 261, .external_lex_state = 6},
+  [5089] = {.lex_state = 258, .external_lex_state = 6},
+  [5090] = {.lex_state = 255, .external_lex_state = 6},
   [5091] = {.lex_state = 258, .external_lex_state = 6},
-  [5092] = {.lex_state = 276, .external_lex_state = 5},
-  [5093] = {.lex_state = 224, .external_lex_state = 6},
-  [5094] = {.lex_state = 224, .external_lex_state = 6},
-  [5095] = {.lex_state = 261, .external_lex_state = 6},
-  [5096] = {.lex_state = 261, .external_lex_state = 6},
-  [5097] = {.lex_state = 258, .external_lex_state = 6},
-  [5098] = {.lex_state = 261, .external_lex_state = 6},
+  [5092] = {.lex_state = 255, .external_lex_state = 6},
+  [5093] = {.lex_state = 261, .external_lex_state = 6},
+  [5094] = {.lex_state = 255, .external_lex_state = 6},
+  [5095] = {.lex_state = 255, .external_lex_state = 6},
+  [5096] = {.lex_state = 255, .external_lex_state = 6},
+  [5097] = {.lex_state = 255, .external_lex_state = 6},
+  [5098] = {.lex_state = 255, .external_lex_state = 6},
   [5099] = {.lex_state = 224, .external_lex_state = 6},
-  [5100] = {.lex_state = 258, .external_lex_state = 6},
-  [5101] = {.lex_state = 258, .external_lex_state = 6},
-  [5102] = {.lex_state = 257, .external_lex_state = 6},
-  [5103] = {.lex_state = 255, .external_lex_state = 6},
+  [5100] = {.lex_state = 224, .external_lex_state = 6},
+  [5101] = {.lex_state = 256, .external_lex_state = 6},
+  [5102] = {.lex_state = 258, .external_lex_state = 6},
+  [5103] = {.lex_state = 257, .external_lex_state = 6},
   [5104] = {.lex_state = 258, .external_lex_state = 6},
-  [5105] = {.lex_state = 224, .external_lex_state = 6},
-  [5106] = {.lex_state = 257, .external_lex_state = 6},
-  [5107] = {.lex_state = 224, .external_lex_state = 6},
-  [5108] = {.lex_state = 276, .external_lex_state = 6},
-  [5109] = {.lex_state = 252, .external_lex_state = 6},
-  [5110] = {.lex_state = 276, .external_lex_state = 6},
-  [5111] = {.lex_state = 276, .external_lex_state = 6},
-  [5112] = {.lex_state = 252, .external_lex_state = 6},
-  [5113] = {.lex_state = 224, .external_lex_state = 6},
+  [5105] = {.lex_state = 258, .external_lex_state = 6},
+  [5106] = {.lex_state = 258, .external_lex_state = 6},
+  [5107] = {.lex_state = 258, .external_lex_state = 6},
+  [5108] = {.lex_state = 258, .external_lex_state = 6},
+  [5109] = {.lex_state = 258, .external_lex_state = 6},
+  [5110] = {.lex_state = 258, .external_lex_state = 6},
+  [5111] = {.lex_state = 252, .external_lex_state = 6},
+  [5112] = {.lex_state = 258, .external_lex_state = 6},
+  [5113] = {.lex_state = 257, .external_lex_state = 6},
   [5114] = {.lex_state = 258, .external_lex_state = 6},
-  [5115] = {.lex_state = 255, .external_lex_state = 6},
-  [5116] = {.lex_state = 224, .external_lex_state = 6},
-  [5117] = {.lex_state = 255, .external_lex_state = 6},
-  [5118] = {.lex_state = 255, .external_lex_state = 6},
-  [5119] = {.lex_state = 224, .external_lex_state = 6},
+  [5115] = {.lex_state = 257, .external_lex_state = 6},
+  [5116] = {.lex_state = 258, .external_lex_state = 6},
+  [5117] = {.lex_state = 258, .external_lex_state = 6},
+  [5118] = {.lex_state = 258, .external_lex_state = 6},
+  [5119] = {.lex_state = 258, .external_lex_state = 6},
   [5120] = {.lex_state = 257, .external_lex_state = 6},
-  [5121] = {.lex_state = 224, .external_lex_state = 6},
-  [5122] = {.lex_state = 224, .external_lex_state = 6},
-  [5123] = {.lex_state = 257, .external_lex_state = 6},
-  [5124] = {.lex_state = 255, .external_lex_state = 6},
-  [5125] = {.lex_state = 255, .external_lex_state = 6},
-  [5126] = {.lex_state = 224, .external_lex_state = 6},
-  [5127] = {.lex_state = 257, .external_lex_state = 6},
-  [5128] = {.lex_state = 224, .external_lex_state = 6},
-  [5129] = {.lex_state = 224, .external_lex_state = 6},
-  [5130] = {.lex_state = 224, .external_lex_state = 6},
-  [5131] = {.lex_state = 256, .external_lex_state = 6},
-  [5132] = {.lex_state = 276, .external_lex_state = 6},
-  [5133] = {.lex_state = 258, .external_lex_state = 6},
-  [5134] = {.lex_state = 255, .external_lex_state = 6},
-  [5135] = {.lex_state = 255, .external_lex_state = 6},
-  [5136] = {.lex_state = 255, .external_lex_state = 6},
-  [5137] = {.lex_state = 255, .external_lex_state = 6},
-  [5138] = {.lex_state = 224, .external_lex_state = 6},
-  [5139] = {.lex_state = 255, .external_lex_state = 6},
-  [5140] = {.lex_state = 255, .external_lex_state = 6},
-  [5141] = {.lex_state = 255, .external_lex_state = 6},
-  [5142] = {.lex_state = 255, .external_lex_state = 6},
-  [5143] = {.lex_state = 255, .external_lex_state = 6},
-  [5144] = {.lex_state = 255, .external_lex_state = 6},
-  [5145] = {.lex_state = 276, .external_lex_state = 6},
-  [5146] = {.lex_state = 252, .external_lex_state = 6},
-  [5147] = {.lex_state = 255, .external_lex_state = 6},
-  [5148] = {.lex_state = 255, .external_lex_state = 6},
-  [5149] = {.lex_state = 255, .external_lex_state = 6},
-  [5150] = {.lex_state = 261, .external_lex_state = 6},
-  [5151] = {.lex_state = 252, .external_lex_state = 6},
-  [5152] = {.lex_state = 255, .external_lex_state = 6},
-  [5153] = {.lex_state = 255, .external_lex_state = 6},
-  [5154] = {.lex_state = 255, .external_lex_state = 6},
-  [5155] = {.lex_state = 261, .external_lex_state = 6},
-  [5156] = {.lex_state = 255, .external_lex_state = 6},
-  [5157] = {.lex_state = 255, .external_lex_state = 6},
-  [5158] = {.lex_state = 255, .external_lex_state = 6},
-  [5159] = {.lex_state = 255, .external_lex_state = 6},
-  [5160] = {.lex_state = 261, .external_lex_state = 6},
-  [5161] = {.lex_state = 258, .external_lex_state = 6},
-  [5162] = {.lex_state = 258, .external_lex_state = 6},
-  [5163] = {.lex_state = 261, .external_lex_state = 6},
-  [5164] = {.lex_state = 261, .external_lex_state = 6},
+  [5121] = {.lex_state = 257, .external_lex_state = 6},
+  [5122] = {.lex_state = 257, .external_lex_state = 6},
+  [5123] = {.lex_state = 258, .external_lex_state = 6},
+  [5124] = {.lex_state = 258, .external_lex_state = 6},
+  [5125] = {.lex_state = 252, .external_lex_state = 6},
+  [5126] = {.lex_state = 258, .external_lex_state = 6},
+  [5127] = {.lex_state = 261, .external_lex_state = 6},
+  [5128] = {.lex_state = 276, .external_lex_state = 6},
+  [5129] = {.lex_state = 261, .external_lex_state = 6},
+  [5130] = {.lex_state = 252, .external_lex_state = 6},
+  [5131] = {.lex_state = 252, .external_lex_state = 6},
+  [5132] = {.lex_state = 257, .external_lex_state = 6},
+  [5133] = {.lex_state = 252, .external_lex_state = 6},
+  [5134] = {.lex_state = 252, .external_lex_state = 6},
+  [5135] = {.lex_state = 224, .external_lex_state = 6},
+  [5136] = {.lex_state = 252, .external_lex_state = 6},
+  [5137] = {.lex_state = 257, .external_lex_state = 6},
+  [5138] = {.lex_state = 257, .external_lex_state = 6},
+  [5139] = {.lex_state = 252, .external_lex_state = 6},
+  [5140] = {.lex_state = 252, .external_lex_state = 6},
+  [5141] = {.lex_state = 252, .external_lex_state = 6},
+  [5142] = {.lex_state = 261, .external_lex_state = 6},
+  [5143] = {.lex_state = 252, .external_lex_state = 6},
+  [5144] = {.lex_state = 252, .external_lex_state = 6},
+  [5145] = {.lex_state = 252, .external_lex_state = 6},
+  [5146] = {.lex_state = 258, .external_lex_state = 6},
+  [5147] = {.lex_state = 258, .external_lex_state = 6},
+  [5148] = {.lex_state = 258, .external_lex_state = 6},
+  [5149] = {.lex_state = 258, .external_lex_state = 6},
+  [5150] = {.lex_state = 224, .external_lex_state = 6},
+  [5151] = {.lex_state = 258, .external_lex_state = 6},
+  [5152] = {.lex_state = 258, .external_lex_state = 6},
+  [5153] = {.lex_state = 258, .external_lex_state = 6},
+  [5154] = {.lex_state = 252, .external_lex_state = 6},
+  [5155] = {.lex_state = 224, .external_lex_state = 6},
+  [5156] = {.lex_state = 257, .external_lex_state = 6},
+  [5157] = {.lex_state = 252, .external_lex_state = 6},
+  [5158] = {.lex_state = 252, .external_lex_state = 6},
+  [5159] = {.lex_state = 257, .external_lex_state = 6},
+  [5160] = {.lex_state = 252, .external_lex_state = 6},
+  [5161] = {.lex_state = 224, .external_lex_state = 6},
+  [5162] = {.lex_state = 224, .external_lex_state = 6},
+  [5163] = {.lex_state = 224, .external_lex_state = 6},
+  [5164] = {.lex_state = 252, .external_lex_state = 6},
   [5165] = {.lex_state = 252, .external_lex_state = 6},
-  [5166] = {.lex_state = 252, .external_lex_state = 6},
-  [5167] = {.lex_state = 276, .external_lex_state = 6},
-  [5168] = {.lex_state = 252, .external_lex_state = 6},
-  [5169] = {.lex_state = 258, .external_lex_state = 6},
-  [5170] = {.lex_state = 252, .external_lex_state = 6},
-  [5171] = {.lex_state = 258, .external_lex_state = 6},
-  [5172] = {.lex_state = 252, .external_lex_state = 6},
-  [5173] = {.lex_state = 258, .external_lex_state = 6},
-  [5174] = {.lex_state = 258, .external_lex_state = 6},
-  [5175] = {.lex_state = 261, .external_lex_state = 6},
+  [5166] = {.lex_state = 255, .external_lex_state = 6},
+  [5167] = {.lex_state = 224, .external_lex_state = 6},
+  [5168] = {.lex_state = 255, .external_lex_state = 6},
+  [5169] = {.lex_state = 252, .external_lex_state = 6},
+  [5170] = {.lex_state = 276, .external_lex_state = 6},
+  [5171] = {.lex_state = 257, .external_lex_state = 6},
+  [5172] = {.lex_state = 224, .external_lex_state = 6},
+  [5173] = {.lex_state = 224, .external_lex_state = 6},
+  [5174] = {.lex_state = 257, .external_lex_state = 6},
+  [5175] = {.lex_state = 258, .external_lex_state = 6},
   [5176] = {.lex_state = 252, .external_lex_state = 6},
-  [5177] = {.lex_state = 258, .external_lex_state = 6},
-  [5178] = {.lex_state = 258, .external_lex_state = 6},
-  [5179] = {.lex_state = 255, .external_lex_state = 6},
-  [5180] = {.lex_state = 252, .external_lex_state = 6},
+  [5177] = {.lex_state = 252, .external_lex_state = 6},
+  [5178] = {.lex_state = 255, .external_lex_state = 6},
+  [5179] = {.lex_state = 252, .external_lex_state = 6},
+  [5180] = {.lex_state = 257, .external_lex_state = 6},
   [5181] = {.lex_state = 255, .external_lex_state = 6},
-  [5182] = {.lex_state = 258, .external_lex_state = 6},
-  [5183] = {.lex_state = 257, .external_lex_state = 6},
-  [5184] = {.lex_state = 255, .external_lex_state = 6},
-  [5185] = {.lex_state = 256, .external_lex_state = 6},
-  [5186] = {.lex_state = 255, .external_lex_state = 6},
-  [5187] = {.lex_state = 252, .external_lex_state = 6},
+  [5182] = {.lex_state = 257, .external_lex_state = 6},
+  [5183] = {.lex_state = 252, .external_lex_state = 6},
+  [5184] = {.lex_state = 257, .external_lex_state = 6},
+  [5185] = {.lex_state = 257, .external_lex_state = 6},
+  [5186] = {.lex_state = 252, .external_lex_state = 6},
+  [5187] = {.lex_state = 256, .external_lex_state = 6},
   [5188] = {.lex_state = 256, .external_lex_state = 6},
-  [5189] = {.lex_state = 255, .external_lex_state = 6},
-  [5190] = {.lex_state = 255, .external_lex_state = 6},
-  [5191] = {.lex_state = 252, .external_lex_state = 6},
-  [5192] = {.lex_state = 256, .external_lex_state = 6},
-  [5193] = {.lex_state = 256, .external_lex_state = 6},
+  [5189] = {.lex_state = 256, .external_lex_state = 6},
+  [5190] = {.lex_state = 256, .external_lex_state = 6},
+  [5191] = {.lex_state = 255, .external_lex_state = 6},
+  [5192] = {.lex_state = 255, .external_lex_state = 6},
+  [5193] = {.lex_state = 255, .external_lex_state = 6},
   [5194] = {.lex_state = 256, .external_lex_state = 6},
-  [5195] = {.lex_state = 252, .external_lex_state = 6},
-  [5196] = {.lex_state = 256, .external_lex_state = 6},
-  [5197] = {.lex_state = 255, .external_lex_state = 6},
-  [5198] = {.lex_state = 276, .external_lex_state = 6},
-  [5199] = {.lex_state = 252, .external_lex_state = 6},
+  [5195] = {.lex_state = 256, .external_lex_state = 6},
+  [5196] = {.lex_state = 255, .external_lex_state = 6},
+  [5197] = {.lex_state = 256, .external_lex_state = 6},
+  [5198] = {.lex_state = 257, .external_lex_state = 6},
+  [5199] = {.lex_state = 257, .external_lex_state = 6},
   [5200] = {.lex_state = 255, .external_lex_state = 6},
-  [5201] = {.lex_state = 258, .external_lex_state = 6},
-  [5202] = {.lex_state = 224, .external_lex_state = 6},
-  [5203] = {.lex_state = 261, .external_lex_state = 6},
-  [5204] = {.lex_state = 258, .external_lex_state = 6},
-  [5205] = {.lex_state = 258, .external_lex_state = 6},
-  [5206] = {.lex_state = 257, .external_lex_state = 6},
-  [5207] = {.lex_state = 261, .external_lex_state = 6},
-  [5208] = {.lex_state = 261, .external_lex_state = 6},
-  [5209] = {.lex_state = 252, .external_lex_state = 6},
-  [5210] = {.lex_state = 252, .external_lex_state = 6},
+  [5201] = {.lex_state = 255, .external_lex_state = 6},
+  [5202] = {.lex_state = 257, .external_lex_state = 6},
+  [5203] = {.lex_state = 257, .external_lex_state = 6},
+  [5204] = {.lex_state = 257, .external_lex_state = 6},
+  [5205] = {.lex_state = 257, .external_lex_state = 6},
+  [5206] = {.lex_state = 255, .external_lex_state = 6},
+  [5207] = {.lex_state = 255, .external_lex_state = 6},
+  [5208] = {.lex_state = 255, .external_lex_state = 6},
+  [5209] = {.lex_state = 255, .external_lex_state = 6},
+  [5210] = {.lex_state = 257, .external_lex_state = 6},
   [5211] = {.lex_state = 252, .external_lex_state = 6},
-  [5212] = {.lex_state = 252, .external_lex_state = 6},
-  [5213] = {.lex_state = 252, .external_lex_state = 6},
+  [5212] = {.lex_state = 257, .external_lex_state = 6},
+  [5213] = {.lex_state = 257, .external_lex_state = 6},
   [5214] = {.lex_state = 255, .external_lex_state = 6},
-  [5215] = {.lex_state = 252, .external_lex_state = 6},
-  [5216] = {.lex_state = 255, .external_lex_state = 6},
-  [5217] = {.lex_state = 252, .external_lex_state = 6},
-  [5218] = {.lex_state = 252, .external_lex_state = 6},
-  [5219] = {.lex_state = 255, .external_lex_state = 6},
-  [5220] = {.lex_state = 256, .external_lex_state = 6},
-  [5221] = {.lex_state = 258, .external_lex_state = 6},
-  [5222] = {.lex_state = 258, .external_lex_state = 6},
-  [5223] = {.lex_state = 258, .external_lex_state = 6},
-  [5224] = {.lex_state = 258, .external_lex_state = 6},
-  [5225] = {.lex_state = 256, .external_lex_state = 6},
-  [5226] = {.lex_state = 257, .external_lex_state = 6},
-  [5227] = {.lex_state = 256, .external_lex_state = 6},
-  [5228] = {.lex_state = 256, .external_lex_state = 6},
-  [5229] = {.lex_state = 256, .external_lex_state = 6},
-  [5230] = {.lex_state = 276, .external_lex_state = 6},
+  [5215] = {.lex_state = 257, .external_lex_state = 6},
+  [5216] = {.lex_state = 257, .external_lex_state = 6},
+  [5217] = {.lex_state = 257, .external_lex_state = 6},
+  [5218] = {.lex_state = 224, .external_lex_state = 6},
+  [5219] = {.lex_state = 261, .external_lex_state = 6},
+  [5220] = {.lex_state = 276, .external_lex_state = 6},
+  [5221] = {.lex_state = 276, .external_lex_state = 6},
+  [5222] = {.lex_state = 224, .external_lex_state = 6},
+  [5223] = {.lex_state = 255, .external_lex_state = 6},
+  [5224] = {.lex_state = 255, .external_lex_state = 6},
+  [5225] = {.lex_state = 255, .external_lex_state = 6},
+  [5226] = {.lex_state = 255, .external_lex_state = 6},
+  [5227] = {.lex_state = 255, .external_lex_state = 6},
+  [5228] = {.lex_state = 255, .external_lex_state = 6},
+  [5229] = {.lex_state = 252, .external_lex_state = 6},
+  [5230] = {.lex_state = 255, .external_lex_state = 6},
   [5231] = {.lex_state = 252, .external_lex_state = 6},
   [5232] = {.lex_state = 255, .external_lex_state = 6},
-  [5233] = {.lex_state = 252, .external_lex_state = 6},
-  [5234] = {.lex_state = 258, .external_lex_state = 6},
-  [5235] = {.lex_state = 276, .external_lex_state = 6},
-  [5236] = {.lex_state = 252, .external_lex_state = 6},
-  [5237] = {.lex_state = 258, .external_lex_state = 6},
+  [5233] = {.lex_state = 257, .external_lex_state = 6},
+  [5234] = {.lex_state = 257, .external_lex_state = 6},
+  [5235] = {.lex_state = 257, .external_lex_state = 6},
+  [5236] = {.lex_state = 257, .external_lex_state = 6},
+  [5237] = {.lex_state = 255, .external_lex_state = 6},
   [5238] = {.lex_state = 255, .external_lex_state = 6},
-  [5239] = {.lex_state = 276, .external_lex_state = 6},
-  [5240] = {.lex_state = 276, .external_lex_state = 6},
-  [5241] = {.lex_state = 258, .external_lex_state = 6},
-  [5242] = {.lex_state = 224, .external_lex_state = 6},
-  [5243] = {.lex_state = 253, .external_lex_state = 6},
-  [5244] = {.lex_state = 276, .external_lex_state = 6},
-  [5245] = {.lex_state = 276, .external_lex_state = 6},
-  [5246] = {.lex_state = 276, .external_lex_state = 6},
-  [5247] = {.lex_state = 253, .external_lex_state = 6},
-  [5248] = {.lex_state = 276, .external_lex_state = 6},
-  [5249] = {.lex_state = 276, .external_lex_state = 6},
+  [5239] = {.lex_state = 255, .external_lex_state = 6},
+  [5240] = {.lex_state = 255, .external_lex_state = 6},
+  [5241] = {.lex_state = 252, .external_lex_state = 6},
+  [5242] = {.lex_state = 252, .external_lex_state = 6},
+  [5243] = {.lex_state = 276, .external_lex_state = 6},
+  [5244] = {.lex_state = 253, .external_lex_state = 6},
+  [5245] = {.lex_state = 253, .external_lex_state = 6},
+  [5246] = {.lex_state = 253, .external_lex_state = 6},
+  [5247] = {.lex_state = 276, .external_lex_state = 6},
+  [5248] = {.lex_state = 253, .external_lex_state = 6},
+  [5249] = {.lex_state = 253, .external_lex_state = 6},
   [5250] = {.lex_state = 276, .external_lex_state = 6},
   [5251] = {.lex_state = 253, .external_lex_state = 6},
   [5252] = {.lex_state = 253, .external_lex_state = 6},
   [5253] = {.lex_state = 276, .external_lex_state = 6},
   [5254] = {.lex_state = 253, .external_lex_state = 6},
-  [5255] = {.lex_state = 253, .external_lex_state = 6},
+  [5255] = {.lex_state = 276, .external_lex_state = 6},
   [5256] = {.lex_state = 276, .external_lex_state = 6},
-  [5257] = {.lex_state = 253, .external_lex_state = 6},
-  [5258] = {.lex_state = 253, .external_lex_state = 6},
+  [5257] = {.lex_state = 276, .external_lex_state = 6},
+  [5258] = {.lex_state = 276, .external_lex_state = 6},
   [5259] = {.lex_state = 253, .external_lex_state = 6},
   [5260] = {.lex_state = 253, .external_lex_state = 6},
   [5261] = {.lex_state = 253, .external_lex_state = 6},
-  [5262] = {.lex_state = 253, .external_lex_state = 6},
-  [5263] = {.lex_state = 276, .external_lex_state = 6},
+  [5262] = {.lex_state = 276, .external_lex_state = 6},
+  [5263] = {.lex_state = 253, .external_lex_state = 6},
   [5264] = {.lex_state = 276, .external_lex_state = 6},
   [5265] = {.lex_state = 276, .external_lex_state = 6},
   [5266] = {.lex_state = 253, .external_lex_state = 6},
@@ -42837,225 +42589,225 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5315] = {.lex_state = 254, .external_lex_state = 4},
   [5316] = {.lex_state = 254, .external_lex_state = 4},
   [5317] = {.lex_state = 254, .external_lex_state = 4},
-  [5318] = {.lex_state = 259, .external_lex_state = 6},
-  [5319] = {.lex_state = 261, .external_lex_state = 6},
+  [5318] = {.lex_state = 261, .external_lex_state = 6},
+  [5319] = {.lex_state = 259, .external_lex_state = 6},
   [5320] = {.lex_state = 261, .external_lex_state = 6},
   [5321] = {.lex_state = 261, .external_lex_state = 6},
   [5322] = {.lex_state = 261, .external_lex_state = 6},
-  [5323] = {.lex_state = 254, .external_lex_state = 4},
+  [5323] = {.lex_state = 261, .external_lex_state = 6},
   [5324] = {.lex_state = 261, .external_lex_state = 6},
   [5325] = {.lex_state = 261, .external_lex_state = 6},
   [5326] = {.lex_state = 261, .external_lex_state = 6},
-  [5327] = {.lex_state = 261, .external_lex_state = 6},
+  [5327] = {.lex_state = 254, .external_lex_state = 4},
   [5328] = {.lex_state = 261, .external_lex_state = 6},
-  [5329] = {.lex_state = 259, .external_lex_state = 6},
-  [5330] = {.lex_state = 259, .external_lex_state = 6},
-  [5331] = {.lex_state = 259, .external_lex_state = 6},
-  [5332] = {.lex_state = 261, .external_lex_state = 6},
-  [5333] = {.lex_state = 261, .external_lex_state = 6},
-  [5334] = {.lex_state = 261, .external_lex_state = 6},
-  [5335] = {.lex_state = 261, .external_lex_state = 6},
-  [5336] = {.lex_state = 259, .external_lex_state = 6},
-  [5337] = {.lex_state = 214, .external_lex_state = 6},
+  [5329] = {.lex_state = 261, .external_lex_state = 6},
+  [5330] = {.lex_state = 261, .external_lex_state = 6},
+  [5331] = {.lex_state = 261, .external_lex_state = 6},
+  [5332] = {.lex_state = 259, .external_lex_state = 6},
+  [5333] = {.lex_state = 259, .external_lex_state = 6},
+  [5334] = {.lex_state = 259, .external_lex_state = 6},
+  [5335] = {.lex_state = 259, .external_lex_state = 6},
+  [5336] = {.lex_state = 261, .external_lex_state = 6},
+  [5337] = {.lex_state = 261, .external_lex_state = 6},
   [5338] = {.lex_state = 259, .external_lex_state = 6},
-  [5339] = {.lex_state = 261, .external_lex_state = 6},
-  [5340] = {.lex_state = 261, .external_lex_state = 6},
-  [5341] = {.lex_state = 261, .external_lex_state = 6},
-  [5342] = {.lex_state = 261, .external_lex_state = 6},
+  [5339] = {.lex_state = 93, .external_lex_state = 6},
+  [5340] = {.lex_state = 93, .external_lex_state = 6},
+  [5341] = {.lex_state = 214, .external_lex_state = 6},
+  [5342] = {.lex_state = 259, .external_lex_state = 6},
   [5343] = {.lex_state = 261, .external_lex_state = 6},
-  [5344] = {.lex_state = 259, .external_lex_state = 6},
-  [5345] = {.lex_state = 95, .external_lex_state = 6},
+  [5344] = {.lex_state = 214, .external_lex_state = 6},
+  [5345] = {.lex_state = 261, .external_lex_state = 6},
   [5346] = {.lex_state = 259, .external_lex_state = 6},
-  [5347] = {.lex_state = 95, .external_lex_state = 6},
-  [5348] = {.lex_state = 214, .external_lex_state = 6},
+  [5347] = {.lex_state = 261, .external_lex_state = 6},
+  [5348] = {.lex_state = 261, .external_lex_state = 6},
   [5349] = {.lex_state = 261, .external_lex_state = 6},
-  [5350] = {.lex_state = 95, .external_lex_state = 6},
-  [5351] = {.lex_state = 261, .external_lex_state = 6},
-  [5352] = {.lex_state = 261, .external_lex_state = 6},
-  [5353] = {.lex_state = 254, .external_lex_state = 4},
-  [5354] = {.lex_state = 254, .external_lex_state = 4},
+  [5350] = {.lex_state = 259, .external_lex_state = 6},
+  [5351] = {.lex_state = 93, .external_lex_state = 6},
+  [5352] = {.lex_state = 254, .external_lex_state = 4},
+  [5353] = {.lex_state = 226, .external_lex_state = 6},
+  [5354] = {.lex_state = 226, .external_lex_state = 6},
   [5355] = {.lex_state = 214, .external_lex_state = 6},
   [5356] = {.lex_state = 259, .external_lex_state = 6},
-  [5357] = {.lex_state = 259, .external_lex_state = 6},
-  [5358] = {.lex_state = 254, .external_lex_state = 4},
-  [5359] = {.lex_state = 254, .external_lex_state = 4},
-  [5360] = {.lex_state = 226, .external_lex_state = 6},
-  [5361] = {.lex_state = 95, .external_lex_state = 6},
-  [5362] = {.lex_state = 95, .external_lex_state = 6},
-  [5363] = {.lex_state = 95, .external_lex_state = 6},
-  [5364] = {.lex_state = 95, .external_lex_state = 6},
-  [5365] = {.lex_state = 259, .external_lex_state = 6},
+  [5357] = {.lex_state = 214, .external_lex_state = 6},
+  [5358] = {.lex_state = 259, .external_lex_state = 6},
+  [5359] = {.lex_state = 93, .external_lex_state = 6},
+  [5360] = {.lex_state = 214, .external_lex_state = 6},
+  [5361] = {.lex_state = 261, .external_lex_state = 6},
+  [5362] = {.lex_state = 214, .external_lex_state = 6},
+  [5363] = {.lex_state = 214, .external_lex_state = 6},
+  [5364] = {.lex_state = 214, .external_lex_state = 6},
+  [5365] = {.lex_state = 261, .external_lex_state = 6},
   [5366] = {.lex_state = 259, .external_lex_state = 6},
-  [5367] = {.lex_state = 254, .external_lex_state = 4},
-  [5368] = {.lex_state = 259, .external_lex_state = 6},
+  [5367] = {.lex_state = 259, .external_lex_state = 6},
+  [5368] = {.lex_state = 226, .external_lex_state = 6},
   [5369] = {.lex_state = 259, .external_lex_state = 6},
   [5370] = {.lex_state = 259, .external_lex_state = 6},
-  [5371] = {.lex_state = 254, .external_lex_state = 4},
+  [5371] = {.lex_state = 259, .external_lex_state = 6},
   [5372] = {.lex_state = 259, .external_lex_state = 6},
   [5373] = {.lex_state = 259, .external_lex_state = 6},
-  [5374] = {.lex_state = 226, .external_lex_state = 6},
-  [5375] = {.lex_state = 259, .external_lex_state = 6},
-  [5376] = {.lex_state = 259, .external_lex_state = 6},
-  [5377] = {.lex_state = 259, .external_lex_state = 6},
-  [5378] = {.lex_state = 259, .external_lex_state = 6},
-  [5379] = {.lex_state = 214, .external_lex_state = 6},
+  [5374] = {.lex_state = 259, .external_lex_state = 6},
+  [5375] = {.lex_state = 254, .external_lex_state = 4},
+  [5376] = {.lex_state = 267, .external_lex_state = 6},
+  [5377] = {.lex_state = 93, .external_lex_state = 6},
+  [5378] = {.lex_state = 267, .external_lex_state = 6},
+  [5379] = {.lex_state = 93, .external_lex_state = 6},
   [5380] = {.lex_state = 259, .external_lex_state = 6},
   [5381] = {.lex_state = 259, .external_lex_state = 6},
-  [5382] = {.lex_state = 259, .external_lex_state = 6},
+  [5382] = {.lex_state = 214, .external_lex_state = 6},
   [5383] = {.lex_state = 259, .external_lex_state = 6},
-  [5384] = {.lex_state = 259, .external_lex_state = 6},
+  [5384] = {.lex_state = 254, .external_lex_state = 4},
   [5385] = {.lex_state = 226, .external_lex_state = 6},
-  [5386] = {.lex_state = 254, .external_lex_state = 4},
-  [5387] = {.lex_state = 259, .external_lex_state = 6},
-  [5388] = {.lex_state = 267, .external_lex_state = 6},
-  [5389] = {.lex_state = 214, .external_lex_state = 6},
-  [5390] = {.lex_state = 214, .external_lex_state = 6},
-  [5391] = {.lex_state = 214, .external_lex_state = 6},
-  [5392] = {.lex_state = 214, .external_lex_state = 6},
-  [5393] = {.lex_state = 214, .external_lex_state = 6},
-  [5394] = {.lex_state = 267, .external_lex_state = 6},
-  [5395] = {.lex_state = 226, .external_lex_state = 6},
-  [5396] = {.lex_state = 267, .external_lex_state = 6},
-  [5397] = {.lex_state = 214, .external_lex_state = 6},
+  [5386] = {.lex_state = 93, .external_lex_state = 6},
+  [5387] = {.lex_state = 254, .external_lex_state = 4},
+  [5388] = {.lex_state = 259, .external_lex_state = 6},
+  [5389] = {.lex_state = 259, .external_lex_state = 6},
+  [5390] = {.lex_state = 254, .external_lex_state = 4},
+  [5391] = {.lex_state = 254, .external_lex_state = 4},
+  [5392] = {.lex_state = 259, .external_lex_state = 6},
+  [5393] = {.lex_state = 267, .external_lex_state = 6},
+  [5394] = {.lex_state = 214, .external_lex_state = 6},
+  [5395] = {.lex_state = 259, .external_lex_state = 6},
+  [5396] = {.lex_state = 259, .external_lex_state = 6},
+  [5397] = {.lex_state = 254, .external_lex_state = 4},
   [5398] = {.lex_state = 259, .external_lex_state = 6},
-  [5399] = {.lex_state = 95, .external_lex_state = 6},
-  [5400] = {.lex_state = 261, .external_lex_state = 6},
-  [5401] = {.lex_state = 95, .external_lex_state = 6},
-  [5402] = {.lex_state = 95, .external_lex_state = 6},
-  [5403] = {.lex_state = 95, .external_lex_state = 6},
-  [5404] = {.lex_state = 95, .external_lex_state = 6},
-  [5405] = {.lex_state = 95, .external_lex_state = 6},
-  [5406] = {.lex_state = 95, .external_lex_state = 6},
-  [5407] = {.lex_state = 95, .external_lex_state = 6},
+  [5399] = {.lex_state = 93, .external_lex_state = 6},
+  [5400] = {.lex_state = 93, .external_lex_state = 6},
+  [5401] = {.lex_state = 93, .external_lex_state = 6},
+  [5402] = {.lex_state = 93, .external_lex_state = 6},
+  [5403] = {.lex_state = 214, .external_lex_state = 6},
+  [5404] = {.lex_state = 214, .external_lex_state = 6},
+  [5405] = {.lex_state = 93, .external_lex_state = 6},
+  [5406] = {.lex_state = 214, .external_lex_state = 6},
+  [5407] = {.lex_state = 214, .external_lex_state = 6},
   [5408] = {.lex_state = 214, .external_lex_state = 6},
-  [5409] = {.lex_state = 95, .external_lex_state = 6},
-  [5410] = {.lex_state = 261, .external_lex_state = 6},
-  [5411] = {.lex_state = 95, .external_lex_state = 6},
-  [5412] = {.lex_state = 95, .external_lex_state = 6},
-  [5413] = {.lex_state = 95, .external_lex_state = 6},
-  [5414] = {.lex_state = 95, .external_lex_state = 6},
-  [5415] = {.lex_state = 261, .external_lex_state = 6},
-  [5416] = {.lex_state = 95, .external_lex_state = 6},
+  [5409] = {.lex_state = 93, .external_lex_state = 6},
+  [5410] = {.lex_state = 93, .external_lex_state = 6},
+  [5411] = {.lex_state = 214, .external_lex_state = 6},
+  [5412] = {.lex_state = 93, .external_lex_state = 6},
+  [5413] = {.lex_state = 214, .external_lex_state = 6},
+  [5414] = {.lex_state = 214, .external_lex_state = 6},
+  [5415] = {.lex_state = 214, .external_lex_state = 6},
+  [5416] = {.lex_state = 214, .external_lex_state = 6},
   [5417] = {.lex_state = 214, .external_lex_state = 6},
-  [5418] = {.lex_state = 261, .external_lex_state = 6},
+  [5418] = {.lex_state = 214, .external_lex_state = 6},
   [5419] = {.lex_state = 214, .external_lex_state = 6},
-  [5420] = {.lex_state = 95, .external_lex_state = 6},
-  [5421] = {.lex_state = 214, .external_lex_state = 6},
-  [5422] = {.lex_state = 95, .external_lex_state = 6},
-  [5423] = {.lex_state = 95, .external_lex_state = 6},
-  [5424] = {.lex_state = 95, .external_lex_state = 6},
-  [5425] = {.lex_state = 214, .external_lex_state = 6},
-  [5426] = {.lex_state = 214, .external_lex_state = 6},
-  [5427] = {.lex_state = 95, .external_lex_state = 6},
-  [5428] = {.lex_state = 95, .external_lex_state = 6},
-  [5429] = {.lex_state = 214, .external_lex_state = 6},
-  [5430] = {.lex_state = 95, .external_lex_state = 6},
-  [5431] = {.lex_state = 95, .external_lex_state = 6},
-  [5432] = {.lex_state = 95, .external_lex_state = 6},
-  [5433] = {.lex_state = 95, .external_lex_state = 6},
-  [5434] = {.lex_state = 95, .external_lex_state = 6},
-  [5435] = {.lex_state = 95, .external_lex_state = 6},
-  [5436] = {.lex_state = 95, .external_lex_state = 6},
-  [5437] = {.lex_state = 95, .external_lex_state = 6},
-  [5438] = {.lex_state = 214, .external_lex_state = 6},
-  [5439] = {.lex_state = 95, .external_lex_state = 6},
-  [5440] = {.lex_state = 95, .external_lex_state = 6},
-  [5441] = {.lex_state = 95, .external_lex_state = 6},
-  [5442] = {.lex_state = 95, .external_lex_state = 6},
-  [5443] = {.lex_state = 95, .external_lex_state = 6},
-  [5444] = {.lex_state = 95, .external_lex_state = 6},
-  [5445] = {.lex_state = 95, .external_lex_state = 6},
-  [5446] = {.lex_state = 95, .external_lex_state = 6},
-  [5447] = {.lex_state = 95, .external_lex_state = 6},
-  [5448] = {.lex_state = 95, .external_lex_state = 6},
-  [5449] = {.lex_state = 261, .external_lex_state = 6},
-  [5450] = {.lex_state = 95, .external_lex_state = 6},
-  [5451] = {.lex_state = 95, .external_lex_state = 6},
-  [5452] = {.lex_state = 95, .external_lex_state = 6},
-  [5453] = {.lex_state = 95, .external_lex_state = 6},
-  [5454] = {.lex_state = 95, .external_lex_state = 6},
-  [5455] = {.lex_state = 95, .external_lex_state = 6},
-  [5456] = {.lex_state = 95, .external_lex_state = 6},
-  [5457] = {.lex_state = 95, .external_lex_state = 6},
-  [5458] = {.lex_state = 95, .external_lex_state = 6},
-  [5459] = {.lex_state = 95, .external_lex_state = 6},
-  [5460] = {.lex_state = 95, .external_lex_state = 6},
-  [5461] = {.lex_state = 95, .external_lex_state = 6},
-  [5462] = {.lex_state = 95, .external_lex_state = 6},
-  [5463] = {.lex_state = 95, .external_lex_state = 6},
-  [5464] = {.lex_state = 95, .external_lex_state = 6},
-  [5465] = {.lex_state = 95, .external_lex_state = 6},
-  [5466] = {.lex_state = 95, .external_lex_state = 6},
-  [5467] = {.lex_state = 95, .external_lex_state = 6},
-  [5468] = {.lex_state = 95, .external_lex_state = 6},
-  [5469] = {.lex_state = 95, .external_lex_state = 6},
-  [5470] = {.lex_state = 214, .external_lex_state = 6},
-  [5471] = {.lex_state = 214, .external_lex_state = 6},
-  [5472] = {.lex_state = 214, .external_lex_state = 6},
-  [5473] = {.lex_state = 214, .external_lex_state = 6},
-  [5474] = {.lex_state = 95, .external_lex_state = 6},
-  [5475] = {.lex_state = 214, .external_lex_state = 6},
-  [5476] = {.lex_state = 214, .external_lex_state = 6},
-  [5477] = {.lex_state = 214, .external_lex_state = 6},
-  [5478] = {.lex_state = 214, .external_lex_state = 6},
-  [5479] = {.lex_state = 214, .external_lex_state = 6},
+  [5420] = {.lex_state = 214, .external_lex_state = 6},
+  [5421] = {.lex_state = 93, .external_lex_state = 6},
+  [5422] = {.lex_state = 93, .external_lex_state = 6},
+  [5423] = {.lex_state = 93, .external_lex_state = 6},
+  [5424] = {.lex_state = 93, .external_lex_state = 6},
+  [5425] = {.lex_state = 93, .external_lex_state = 6},
+  [5426] = {.lex_state = 93, .external_lex_state = 6},
+  [5427] = {.lex_state = 261, .external_lex_state = 6},
+  [5428] = {.lex_state = 93, .external_lex_state = 6},
+  [5429] = {.lex_state = 93, .external_lex_state = 6},
+  [5430] = {.lex_state = 214, .external_lex_state = 6},
+  [5431] = {.lex_state = 93, .external_lex_state = 6},
+  [5432] = {.lex_state = 93, .external_lex_state = 6},
+  [5433] = {.lex_state = 93, .external_lex_state = 6},
+  [5434] = {.lex_state = 93, .external_lex_state = 6},
+  [5435] = {.lex_state = 214, .external_lex_state = 6},
+  [5436] = {.lex_state = 93, .external_lex_state = 6},
+  [5437] = {.lex_state = 261, .external_lex_state = 6},
+  [5438] = {.lex_state = 261, .external_lex_state = 6},
+  [5439] = {.lex_state = 93, .external_lex_state = 6},
+  [5440] = {.lex_state = 93, .external_lex_state = 6},
+  [5441] = {.lex_state = 93, .external_lex_state = 6},
+  [5442] = {.lex_state = 93, .external_lex_state = 6},
+  [5443] = {.lex_state = 93, .external_lex_state = 6},
+  [5444] = {.lex_state = 93, .external_lex_state = 6},
+  [5445] = {.lex_state = 93, .external_lex_state = 6},
+  [5446] = {.lex_state = 93, .external_lex_state = 6},
+  [5447] = {.lex_state = 93, .external_lex_state = 6},
+  [5448] = {.lex_state = 214, .external_lex_state = 6},
+  [5449] = {.lex_state = 93, .external_lex_state = 6},
+  [5450] = {.lex_state = 214, .external_lex_state = 6},
+  [5451] = {.lex_state = 93, .external_lex_state = 6},
+  [5452] = {.lex_state = 93, .external_lex_state = 6},
+  [5453] = {.lex_state = 93, .external_lex_state = 6},
+  [5454] = {.lex_state = 214, .external_lex_state = 6},
+  [5455] = {.lex_state = 93, .external_lex_state = 6},
+  [5456] = {.lex_state = 93, .external_lex_state = 6},
+  [5457] = {.lex_state = 93, .external_lex_state = 6},
+  [5458] = {.lex_state = 214, .external_lex_state = 6},
+  [5459] = {.lex_state = 261, .external_lex_state = 6},
+  [5460] = {.lex_state = 93, .external_lex_state = 6},
+  [5461] = {.lex_state = 93, .external_lex_state = 6},
+  [5462] = {.lex_state = 93, .external_lex_state = 6},
+  [5463] = {.lex_state = 93, .external_lex_state = 6},
+  [5464] = {.lex_state = 93, .external_lex_state = 6},
+  [5465] = {.lex_state = 93, .external_lex_state = 6},
+  [5466] = {.lex_state = 93, .external_lex_state = 6},
+  [5467] = {.lex_state = 93, .external_lex_state = 6},
+  [5468] = {.lex_state = 93, .external_lex_state = 6},
+  [5469] = {.lex_state = 93, .external_lex_state = 6},
+  [5470] = {.lex_state = 93, .external_lex_state = 6},
+  [5471] = {.lex_state = 93, .external_lex_state = 6},
+  [5472] = {.lex_state = 93, .external_lex_state = 6},
+  [5473] = {.lex_state = 93, .external_lex_state = 6},
+  [5474] = {.lex_state = 93, .external_lex_state = 6},
+  [5475] = {.lex_state = 261, .external_lex_state = 6},
+  [5476] = {.lex_state = 93, .external_lex_state = 6},
+  [5477] = {.lex_state = 93, .external_lex_state = 6},
+  [5478] = {.lex_state = 93, .external_lex_state = 6},
+  [5479] = {.lex_state = 93, .external_lex_state = 6},
   [5480] = {.lex_state = 214, .external_lex_state = 6},
-  [5481] = {.lex_state = 95, .external_lex_state = 6},
-  [5482] = {.lex_state = 214, .external_lex_state = 6},
-  [5483] = {.lex_state = 214, .external_lex_state = 6},
-  [5484] = {.lex_state = 95, .external_lex_state = 6},
-  [5485] = {.lex_state = 95, .external_lex_state = 6},
-  [5486] = {.lex_state = 95, .external_lex_state = 6},
-  [5487] = {.lex_state = 95, .external_lex_state = 6},
-  [5488] = {.lex_state = 95, .external_lex_state = 6},
-  [5489] = {.lex_state = 214, .external_lex_state = 6},
-  [5490] = {.lex_state = 95, .external_lex_state = 6},
-  [5491] = {.lex_state = 95, .external_lex_state = 6},
-  [5492] = {.lex_state = 95, .external_lex_state = 6},
-  [5493] = {.lex_state = 95, .external_lex_state = 6},
-  [5494] = {.lex_state = 95, .external_lex_state = 6},
-  [5495] = {.lex_state = 95, .external_lex_state = 6},
-  [5496] = {.lex_state = 214, .external_lex_state = 6},
-  [5497] = {.lex_state = 95, .external_lex_state = 6},
-  [5498] = {.lex_state = 95, .external_lex_state = 6},
-  [5499] = {.lex_state = 214, .external_lex_state = 6},
-  [5500] = {.lex_state = 261, .external_lex_state = 6},
-  [5501] = {.lex_state = 95, .external_lex_state = 6},
-  [5502] = {.lex_state = 95, .external_lex_state = 6},
-  [5503] = {.lex_state = 95, .external_lex_state = 6},
-  [5504] = {.lex_state = 95, .external_lex_state = 6},
-  [5505] = {.lex_state = 95, .external_lex_state = 6},
-  [5506] = {.lex_state = 95, .external_lex_state = 6},
-  [5507] = {.lex_state = 95, .external_lex_state = 6},
-  [5508] = {.lex_state = 95, .external_lex_state = 6},
-  [5509] = {.lex_state = 95, .external_lex_state = 6},
-  [5510] = {.lex_state = 95, .external_lex_state = 6},
-  [5511] = {.lex_state = 259, .external_lex_state = 6},
-  [5512] = {.lex_state = 254, .external_lex_state = 4},
-  [5513] = {.lex_state = 95, .external_lex_state = 6},
-  [5514] = {.lex_state = 214, .external_lex_state = 6},
-  [5515] = {.lex_state = 95, .external_lex_state = 6},
-  [5516] = {.lex_state = 254, .external_lex_state = 4},
-  [5517] = {.lex_state = 95, .external_lex_state = 6},
-  [5518] = {.lex_state = 95, .external_lex_state = 6},
-  [5519] = {.lex_state = 259, .external_lex_state = 6},
-  [5520] = {.lex_state = 95, .external_lex_state = 6},
-  [5521] = {.lex_state = 95, .external_lex_state = 6},
-  [5522] = {.lex_state = 95, .external_lex_state = 6},
-  [5523] = {.lex_state = 95, .external_lex_state = 6},
-  [5524] = {.lex_state = 214, .external_lex_state = 6},
-  [5525] = {.lex_state = 95, .external_lex_state = 6},
-  [5526] = {.lex_state = 95, .external_lex_state = 6},
-  [5527] = {.lex_state = 95, .external_lex_state = 6},
-  [5528] = {.lex_state = 95, .external_lex_state = 6},
-  [5529] = {.lex_state = 95, .external_lex_state = 6},
-  [5530] = {.lex_state = 95, .external_lex_state = 6},
-  [5531] = {.lex_state = 95, .external_lex_state = 6},
-  [5532] = {.lex_state = 95, .external_lex_state = 6},
-  [5533] = {.lex_state = 95, .external_lex_state = 6},
-  [5534] = {.lex_state = 95, .external_lex_state = 6},
-  [5535] = {.lex_state = 95, .external_lex_state = 6},
-  [5536] = {.lex_state = 95, .external_lex_state = 6},
+  [5481] = {.lex_state = 214, .external_lex_state = 6},
+  [5482] = {.lex_state = 93, .external_lex_state = 6},
+  [5483] = {.lex_state = 93, .external_lex_state = 6},
+  [5484] = {.lex_state = 93, .external_lex_state = 6},
+  [5485] = {.lex_state = 93, .external_lex_state = 6},
+  [5486] = {.lex_state = 93, .external_lex_state = 6},
+  [5487] = {.lex_state = 93, .external_lex_state = 6},
+  [5488] = {.lex_state = 93, .external_lex_state = 6},
+  [5489] = {.lex_state = 93, .external_lex_state = 6},
+  [5490] = {.lex_state = 93, .external_lex_state = 6},
+  [5491] = {.lex_state = 93, .external_lex_state = 6},
+  [5492] = {.lex_state = 93, .external_lex_state = 6},
+  [5493] = {.lex_state = 93, .external_lex_state = 6},
+  [5494] = {.lex_state = 93, .external_lex_state = 6},
+  [5495] = {.lex_state = 93, .external_lex_state = 6},
+  [5496] = {.lex_state = 261, .external_lex_state = 6},
+  [5497] = {.lex_state = 214, .external_lex_state = 6},
+  [5498] = {.lex_state = 93, .external_lex_state = 6},
+  [5499] = {.lex_state = 93, .external_lex_state = 6},
+  [5500] = {.lex_state = 93, .external_lex_state = 6},
+  [5501] = {.lex_state = 93, .external_lex_state = 6},
+  [5502] = {.lex_state = 93, .external_lex_state = 6},
+  [5503] = {.lex_state = 93, .external_lex_state = 6},
+  [5504] = {.lex_state = 259, .external_lex_state = 6},
+  [5505] = {.lex_state = 93, .external_lex_state = 6},
+  [5506] = {.lex_state = 93, .external_lex_state = 6},
+  [5507] = {.lex_state = 93, .external_lex_state = 6},
+  [5508] = {.lex_state = 93, .external_lex_state = 6},
+  [5509] = {.lex_state = 93, .external_lex_state = 6},
+  [5510] = {.lex_state = 93, .external_lex_state = 6},
+  [5511] = {.lex_state = 93, .external_lex_state = 6},
+  [5512] = {.lex_state = 93, .external_lex_state = 6},
+  [5513] = {.lex_state = 93, .external_lex_state = 6},
+  [5514] = {.lex_state = 254, .external_lex_state = 4},
+  [5515] = {.lex_state = 93, .external_lex_state = 6},
+  [5516] = {.lex_state = 93, .external_lex_state = 6},
+  [5517] = {.lex_state = 93, .external_lex_state = 6},
+  [5518] = {.lex_state = 214, .external_lex_state = 6},
+  [5519] = {.lex_state = 93, .external_lex_state = 6},
+  [5520] = {.lex_state = 93, .external_lex_state = 6},
+  [5521] = {.lex_state = 93, .external_lex_state = 6},
+  [5522] = {.lex_state = 93, .external_lex_state = 6},
+  [5523] = {.lex_state = 259, .external_lex_state = 6},
+  [5524] = {.lex_state = 93, .external_lex_state = 6},
+  [5525] = {.lex_state = 93, .external_lex_state = 6},
+  [5526] = {.lex_state = 93, .external_lex_state = 6},
+  [5527] = {.lex_state = 93, .external_lex_state = 6},
+  [5528] = {.lex_state = 93, .external_lex_state = 6},
+  [5529] = {.lex_state = 93, .external_lex_state = 6},
+  [5530] = {.lex_state = 93, .external_lex_state = 6},
+  [5531] = {.lex_state = 93, .external_lex_state = 6},
+  [5532] = {.lex_state = 254, .external_lex_state = 4},
+  [5533] = {.lex_state = 93, .external_lex_state = 6},
+  [5534] = {.lex_state = 214, .external_lex_state = 6},
+  [5535] = {.lex_state = 93, .external_lex_state = 6},
+  [5536] = {.lex_state = 93, .external_lex_state = 6},
   [5537] = {.lex_state = 259, .external_lex_state = 6},
   [5538] = {.lex_state = 259, .external_lex_state = 6},
   [5539] = {.lex_state = 259, .external_lex_state = 6},
@@ -43077,111 +42829,111 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5555] = {.lex_state = 254, .external_lex_state = 4},
   [5556] = {.lex_state = 254, .external_lex_state = 4},
   [5557] = {.lex_state = 254, .external_lex_state = 4},
-  [5558] = {.lex_state = 254, .external_lex_state = 4},
-  [5559] = {.lex_state = 254, .external_lex_state = 4},
-  [5560] = {.lex_state = 224, .external_lex_state = 6},
+  [5558] = {.lex_state = 224, .external_lex_state = 6},
+  [5559] = {.lex_state = 224, .external_lex_state = 6},
+  [5560] = {.lex_state = 254, .external_lex_state = 4},
   [5561] = {.lex_state = 254, .external_lex_state = 4},
   [5562] = {.lex_state = 254, .external_lex_state = 4},
   [5563] = {.lex_state = 224, .external_lex_state = 6},
   [5564] = {.lex_state = 224, .external_lex_state = 6},
-  [5565] = {.lex_state = 224, .external_lex_state = 6},
+  [5565] = {.lex_state = 254, .external_lex_state = 4},
   [5566] = {.lex_state = 254, .external_lex_state = 4},
   [5567] = {.lex_state = 224, .external_lex_state = 6},
   [5568] = {.lex_state = 254, .external_lex_state = 4},
-  [5569] = {.lex_state = 224, .external_lex_state = 6},
-  [5570] = {.lex_state = 254, .external_lex_state = 4},
-  [5571] = {.lex_state = 254, .external_lex_state = 4},
-  [5572] = {.lex_state = 224, .external_lex_state = 6},
+  [5569] = {.lex_state = 254, .external_lex_state = 4},
+  [5570] = {.lex_state = 224, .external_lex_state = 6},
+  [5571] = {.lex_state = 224, .external_lex_state = 6},
+  [5572] = {.lex_state = 254, .external_lex_state = 4},
   [5573] = {.lex_state = 266, .external_lex_state = 6},
-  [5574] = {.lex_state = 264, .external_lex_state = 6},
+  [5574] = {.lex_state = 254, .external_lex_state = 4},
   [5575] = {.lex_state = 264, .external_lex_state = 6},
-  [5576] = {.lex_state = 264, .external_lex_state = 6},
-  [5577] = {.lex_state = 254, .external_lex_state = 4},
-  [5578] = {.lex_state = 266, .external_lex_state = 6},
-  [5579] = {.lex_state = 266, .external_lex_state = 6},
-  [5580] = {.lex_state = 264, .external_lex_state = 6},
+  [5576] = {.lex_state = 266, .external_lex_state = 6},
+  [5577] = {.lex_state = 267, .external_lex_state = 6},
+  [5578] = {.lex_state = 264, .external_lex_state = 6},
+  [5579] = {.lex_state = 267, .external_lex_state = 6},
+  [5580] = {.lex_state = 267, .external_lex_state = 6},
   [5581] = {.lex_state = 266, .external_lex_state = 6},
-  [5582] = {.lex_state = 266, .external_lex_state = 6},
-  [5583] = {.lex_state = 264, .external_lex_state = 6},
-  [5584] = {.lex_state = 266, .external_lex_state = 6},
+  [5582] = {.lex_state = 264, .external_lex_state = 6},
+  [5583] = {.lex_state = 267, .external_lex_state = 6},
+  [5584] = {.lex_state = 267, .external_lex_state = 6},
   [5585] = {.lex_state = 264, .external_lex_state = 6},
-  [5586] = {.lex_state = 266, .external_lex_state = 6},
+  [5586] = {.lex_state = 264, .external_lex_state = 6},
   [5587] = {.lex_state = 264, .external_lex_state = 6},
   [5588] = {.lex_state = 264, .external_lex_state = 6},
-  [5589] = {.lex_state = 254, .external_lex_state = 4},
-  [5590] = {.lex_state = 264, .external_lex_state = 6},
+  [5589] = {.lex_state = 264, .external_lex_state = 6},
+  [5590] = {.lex_state = 266, .external_lex_state = 6},
   [5591] = {.lex_state = 267, .external_lex_state = 6},
-  [5592] = {.lex_state = 267, .external_lex_state = 6},
+  [5592] = {.lex_state = 266, .external_lex_state = 6},
   [5593] = {.lex_state = 266, .external_lex_state = 6},
   [5594] = {.lex_state = 264, .external_lex_state = 6},
-  [5595] = {.lex_state = 267, .external_lex_state = 6},
+  [5595] = {.lex_state = 266, .external_lex_state = 6},
   [5596] = {.lex_state = 266, .external_lex_state = 6},
   [5597] = {.lex_state = 267, .external_lex_state = 6},
-  [5598] = {.lex_state = 267, .external_lex_state = 6},
-  [5599] = {.lex_state = 264, .external_lex_state = 6},
+  [5598] = {.lex_state = 264, .external_lex_state = 6},
+  [5599] = {.lex_state = 267, .external_lex_state = 6},
   [5600] = {.lex_state = 254, .external_lex_state = 4},
-  [5601] = {.lex_state = 267, .external_lex_state = 6},
+  [5601] = {.lex_state = 266, .external_lex_state = 6},
   [5602] = {.lex_state = 266, .external_lex_state = 6},
-  [5603] = {.lex_state = 267, .external_lex_state = 6},
+  [5603] = {.lex_state = 266, .external_lex_state = 6},
   [5604] = {.lex_state = 266, .external_lex_state = 6},
   [5605] = {.lex_state = 254, .external_lex_state = 4},
   [5606] = {.lex_state = 266, .external_lex_state = 6},
   [5607] = {.lex_state = 266, .external_lex_state = 6},
-  [5608] = {.lex_state = 267, .external_lex_state = 6},
-  [5609] = {.lex_state = 254, .external_lex_state = 4},
-  [5610] = {.lex_state = 267, .external_lex_state = 6},
-  [5611] = {.lex_state = 266, .external_lex_state = 6},
+  [5608] = {.lex_state = 266, .external_lex_state = 6},
+  [5609] = {.lex_state = 264, .external_lex_state = 6},
+  [5610] = {.lex_state = 266, .external_lex_state = 6},
+  [5611] = {.lex_state = 254, .external_lex_state = 4},
   [5612] = {.lex_state = 266, .external_lex_state = 6},
-  [5613] = {.lex_state = 266, .external_lex_state = 6},
-  [5614] = {.lex_state = 267, .external_lex_state = 6},
-  [5615] = {.lex_state = 264, .external_lex_state = 6},
-  [5616] = {.lex_state = 266, .external_lex_state = 6},
-  [5617] = {.lex_state = 264, .external_lex_state = 6},
-  [5618] = {.lex_state = 266, .external_lex_state = 6},
+  [5613] = {.lex_state = 264, .external_lex_state = 6},
+  [5614] = {.lex_state = 264, .external_lex_state = 6},
+  [5615] = {.lex_state = 267, .external_lex_state = 6},
+  [5616] = {.lex_state = 264, .external_lex_state = 6},
+  [5617] = {.lex_state = 266, .external_lex_state = 6},
+  [5618] = {.lex_state = 264, .external_lex_state = 6},
   [5619] = {.lex_state = 264, .external_lex_state = 6},
   [5620] = {.lex_state = 266, .external_lex_state = 6},
-  [5621] = {.lex_state = 266, .external_lex_state = 6},
-  [5622] = {.lex_state = 266, .external_lex_state = 6},
-  [5623] = {.lex_state = 264, .external_lex_state = 6},
-  [5624] = {.lex_state = 266, .external_lex_state = 6},
+  [5621] = {.lex_state = 267, .external_lex_state = 6},
+  [5622] = {.lex_state = 267, .external_lex_state = 6},
+  [5623] = {.lex_state = 266, .external_lex_state = 6},
+  [5624] = {.lex_state = 254, .external_lex_state = 4},
   [5625] = {.lex_state = 264, .external_lex_state = 6},
-  [5626] = {.lex_state = 254, .external_lex_state = 4},
+  [5626] = {.lex_state = 266, .external_lex_state = 6},
   [5627] = {.lex_state = 266, .external_lex_state = 6},
   [5628] = {.lex_state = 264, .external_lex_state = 6},
   [5629] = {.lex_state = 264, .external_lex_state = 6},
-  [5630] = {.lex_state = 264, .external_lex_state = 6},
-  [5631] = {.lex_state = 266, .external_lex_state = 6},
+  [5630] = {.lex_state = 267, .external_lex_state = 6},
+  [5631] = {.lex_state = 254, .external_lex_state = 4},
   [5632] = {.lex_state = 266, .external_lex_state = 6},
-  [5633] = {.lex_state = 266, .external_lex_state = 6},
-  [5634] = {.lex_state = 266, .external_lex_state = 6},
-  [5635] = {.lex_state = 264, .external_lex_state = 6},
+  [5633] = {.lex_state = 264, .external_lex_state = 6},
+  [5634] = {.lex_state = 254, .external_lex_state = 4},
+  [5635] = {.lex_state = 266, .external_lex_state = 6},
   [5636] = {.lex_state = 266, .external_lex_state = 6},
-  [5637] = {.lex_state = 266, .external_lex_state = 6},
+  [5637] = {.lex_state = 259, .external_lex_state = 6},
   [5638] = {.lex_state = 266, .external_lex_state = 6},
-  [5639] = {.lex_state = 254, .external_lex_state = 4},
-  [5640] = {.lex_state = 264, .external_lex_state = 6},
-  [5641] = {.lex_state = 264, .external_lex_state = 6},
+  [5639] = {.lex_state = 266, .external_lex_state = 6},
+  [5640] = {.lex_state = 266, .external_lex_state = 6},
+  [5641] = {.lex_state = 266, .external_lex_state = 6},
   [5642] = {.lex_state = 266, .external_lex_state = 6},
   [5643] = {.lex_state = 266, .external_lex_state = 6},
-  [5644] = {.lex_state = 267, .external_lex_state = 6},
-  [5645] = {.lex_state = 259, .external_lex_state = 6},
-  [5646] = {.lex_state = 264, .external_lex_state = 6},
-  [5647] = {.lex_state = 254, .external_lex_state = 4},
+  [5644] = {.lex_state = 264, .external_lex_state = 6},
+  [5645] = {.lex_state = 254, .external_lex_state = 4},
+  [5646] = {.lex_state = 266, .external_lex_state = 6},
+  [5647] = {.lex_state = 264, .external_lex_state = 6},
   [5648] = {.lex_state = 264, .external_lex_state = 6},
   [5649] = {.lex_state = 264, .external_lex_state = 6},
-  [5650] = {.lex_state = 267, .external_lex_state = 6},
+  [5650] = {.lex_state = 264, .external_lex_state = 6},
   [5651] = {.lex_state = 267, .external_lex_state = 6},
   [5652] = {.lex_state = 267, .external_lex_state = 6},
   [5653] = {.lex_state = 267, .external_lex_state = 6},
-  [5654] = {.lex_state = 216, .external_lex_state = 6},
+  [5654] = {.lex_state = 226, .external_lex_state = 6},
   [5655] = {.lex_state = 267, .external_lex_state = 6},
-  [5656] = {.lex_state = 226, .external_lex_state = 6},
+  [5656] = {.lex_state = 267, .external_lex_state = 6},
   [5657] = {.lex_state = 267, .external_lex_state = 6},
   [5658] = {.lex_state = 267, .external_lex_state = 6},
   [5659] = {.lex_state = 267, .external_lex_state = 6},
   [5660] = {.lex_state = 267, .external_lex_state = 6},
   [5661] = {.lex_state = 267, .external_lex_state = 6},
-  [5662] = {.lex_state = 216, .external_lex_state = 6},
+  [5662] = {.lex_state = 267, .external_lex_state = 6},
   [5663] = {.lex_state = 267, .external_lex_state = 6},
   [5664] = {.lex_state = 267, .external_lex_state = 6},
   [5665] = {.lex_state = 267, .external_lex_state = 6},
@@ -43191,46 +42943,46 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5669] = {.lex_state = 267, .external_lex_state = 6},
   [5670] = {.lex_state = 267, .external_lex_state = 6},
   [5671] = {.lex_state = 267, .external_lex_state = 6},
-  [5672] = {.lex_state = 267, .external_lex_state = 6},
+  [5672] = {.lex_state = 216, .external_lex_state = 6},
   [5673] = {.lex_state = 267, .external_lex_state = 6},
-  [5674] = {.lex_state = 267, .external_lex_state = 6},
-  [5675] = {.lex_state = 259, .external_lex_state = 6},
-  [5676] = {.lex_state = 216, .external_lex_state = 6},
-  [5677] = {.lex_state = 226, .external_lex_state = 6},
+  [5674] = {.lex_state = 216, .external_lex_state = 6},
+  [5675] = {.lex_state = 226, .external_lex_state = 6},
+  [5676] = {.lex_state = 259, .external_lex_state = 6},
+  [5677] = {.lex_state = 216, .external_lex_state = 6},
   [5678] = {.lex_state = 259, .external_lex_state = 6},
   [5679] = {.lex_state = 259, .external_lex_state = 6},
   [5680] = {.lex_state = 264, .external_lex_state = 6},
-  [5681] = {.lex_state = 264, .external_lex_state = 6},
-  [5682] = {.lex_state = 254, .external_lex_state = 4},
+  [5681] = {.lex_state = 254, .external_lex_state = 4},
+  [5682] = {.lex_state = 264, .external_lex_state = 6},
   [5683] = {.lex_state = 264, .external_lex_state = 6},
-  [5684] = {.lex_state = 264, .external_lex_state = 6},
-  [5685] = {.lex_state = 264, .external_lex_state = 6},
-  [5686] = {.lex_state = 254, .external_lex_state = 4},
+  [5684] = {.lex_state = 259, .external_lex_state = 6},
+  [5685] = {.lex_state = 254, .external_lex_state = 4},
+  [5686] = {.lex_state = 264, .external_lex_state = 6},
   [5687] = {.lex_state = 264, .external_lex_state = 6},
-  [5688] = {.lex_state = 259, .external_lex_state = 6},
-  [5689] = {.lex_state = 254, .external_lex_state = 4},
+  [5688] = {.lex_state = 254, .external_lex_state = 4},
+  [5689] = {.lex_state = 259, .external_lex_state = 6},
   [5690] = {.lex_state = 264, .external_lex_state = 6},
   [5691] = {.lex_state = 254, .external_lex_state = 4},
-  [5692] = {.lex_state = 254, .external_lex_state = 4},
-  [5693] = {.lex_state = 254, .external_lex_state = 4},
+  [5692] = {.lex_state = 264, .external_lex_state = 6},
+  [5693] = {.lex_state = 264, .external_lex_state = 6},
   [5694] = {.lex_state = 264, .external_lex_state = 6},
   [5695] = {.lex_state = 254, .external_lex_state = 4},
-  [5696] = {.lex_state = 254, .external_lex_state = 4},
-  [5697] = {.lex_state = 254, .external_lex_state = 4},
+  [5696] = {.lex_state = 264, .external_lex_state = 6},
+  [5697] = {.lex_state = 264, .external_lex_state = 6},
   [5698] = {.lex_state = 264, .external_lex_state = 6},
   [5699] = {.lex_state = 264, .external_lex_state = 6},
-  [5700] = {.lex_state = 254, .external_lex_state = 4},
+  [5700] = {.lex_state = 264, .external_lex_state = 6},
   [5701] = {.lex_state = 254, .external_lex_state = 4},
   [5702] = {.lex_state = 264, .external_lex_state = 6},
-  [5703] = {.lex_state = 264, .external_lex_state = 6},
-  [5704] = {.lex_state = 254, .external_lex_state = 4},
-  [5705] = {.lex_state = 264, .external_lex_state = 6},
-  [5706] = {.lex_state = 301, .external_lex_state = 10},
+  [5703] = {.lex_state = 254, .external_lex_state = 4},
+  [5704] = {.lex_state = 264, .external_lex_state = 6},
+  [5705] = {.lex_state = 254, .external_lex_state = 4},
+  [5706] = {.lex_state = 254, .external_lex_state = 4},
   [5707] = {.lex_state = 264, .external_lex_state = 6},
-  [5708] = {.lex_state = 264, .external_lex_state = 6},
+  [5708] = {.lex_state = 254, .external_lex_state = 4},
   [5709] = {.lex_state = 264, .external_lex_state = 6},
-  [5710] = {.lex_state = 264, .external_lex_state = 6},
-  [5711] = {.lex_state = 301, .external_lex_state = 10},
+  [5710] = {.lex_state = 254, .external_lex_state = 4},
+  [5711] = {.lex_state = 264, .external_lex_state = 6},
   [5712] = {.lex_state = 264, .external_lex_state = 6},
   [5713] = {.lex_state = 264, .external_lex_state = 6},
   [5714] = {.lex_state = 264, .external_lex_state = 6},
@@ -43242,67 +42994,67 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5720] = {.lex_state = 254, .external_lex_state = 4},
   [5721] = {.lex_state = 264, .external_lex_state = 6},
   [5722] = {.lex_state = 264, .external_lex_state = 6},
-  [5723] = {.lex_state = 254, .external_lex_state = 4},
-  [5724] = {.lex_state = 259, .external_lex_state = 6},
-  [5725] = {.lex_state = 259, .external_lex_state = 6},
+  [5723] = {.lex_state = 264, .external_lex_state = 6},
+  [5724] = {.lex_state = 264, .external_lex_state = 6},
+  [5725] = {.lex_state = 264, .external_lex_state = 6},
   [5726] = {.lex_state = 264, .external_lex_state = 6},
-  [5727] = {.lex_state = 301, .external_lex_state = 10},
+  [5727] = {.lex_state = 264, .external_lex_state = 6},
   [5728] = {.lex_state = 264, .external_lex_state = 6},
-  [5729] = {.lex_state = 264, .external_lex_state = 6},
+  [5729] = {.lex_state = 254, .external_lex_state = 4},
   [5730] = {.lex_state = 264, .external_lex_state = 6},
-  [5731] = {.lex_state = 264, .external_lex_state = 6},
+  [5731] = {.lex_state = 254, .external_lex_state = 4},
   [5732] = {.lex_state = 264, .external_lex_state = 6},
   [5733] = {.lex_state = 264, .external_lex_state = 6},
   [5734] = {.lex_state = 264, .external_lex_state = 6},
-  [5735] = {.lex_state = 264, .external_lex_state = 6},
-  [5736] = {.lex_state = 264, .external_lex_state = 6},
-  [5737] = {.lex_state = 264, .external_lex_state = 6},
+  [5735] = {.lex_state = 259, .external_lex_state = 6},
+  [5736] = {.lex_state = 254, .external_lex_state = 4},
+  [5737] = {.lex_state = 254, .external_lex_state = 4},
   [5738] = {.lex_state = 254, .external_lex_state = 4},
-  [5739] = {.lex_state = 264, .external_lex_state = 6},
-  [5740] = {.lex_state = 254, .external_lex_state = 4},
+  [5739] = {.lex_state = 254, .external_lex_state = 4},
+  [5740] = {.lex_state = 314, .external_lex_state = 4},
   [5741] = {.lex_state = 254, .external_lex_state = 4},
-  [5742] = {.lex_state = 254, .external_lex_state = 4},
-  [5743] = {.lex_state = 314, .external_lex_state = 4},
-  [5744] = {.lex_state = 254, .external_lex_state = 4},
-  [5745] = {.lex_state = 254, .external_lex_state = 4},
+  [5742] = {.lex_state = 314, .external_lex_state = 4},
+  [5743] = {.lex_state = 301, .external_lex_state = 11},
+  [5744] = {.lex_state = 259, .external_lex_state = 6},
+  [5745] = {.lex_state = 259, .external_lex_state = 6},
   [5746] = {.lex_state = 254, .external_lex_state = 4},
-  [5747] = {.lex_state = 254, .external_lex_state = 4},
-  [5748] = {.lex_state = 259, .external_lex_state = 5},
-  [5749] = {.lex_state = 254, .external_lex_state = 4},
-  [5750] = {.lex_state = 254, .external_lex_state = 4},
+  [5747] = {.lex_state = 259, .external_lex_state = 5},
+  [5748] = {.lex_state = 259, .external_lex_state = 6},
+  [5749] = {.lex_state = 314, .external_lex_state = 4},
+  [5750] = {.lex_state = 259, .external_lex_state = 6},
   [5751] = {.lex_state = 259, .external_lex_state = 5},
   [5752] = {.lex_state = 254, .external_lex_state = 4},
-  [5753] = {.lex_state = 314, .external_lex_state = 4},
-  [5754] = {.lex_state = 314, .external_lex_state = 4},
+  [5753] = {.lex_state = 254, .external_lex_state = 4},
+  [5754] = {.lex_state = 254, .external_lex_state = 4},
   [5755] = {.lex_state = 254, .external_lex_state = 4},
-  [5756] = {.lex_state = 259, .external_lex_state = 6},
+  [5756] = {.lex_state = 254, .external_lex_state = 4},
   [5757] = {.lex_state = 254, .external_lex_state = 4},
-  [5758] = {.lex_state = 314, .external_lex_state = 4},
-  [5759] = {.lex_state = 259, .external_lex_state = 6},
-  [5760] = {.lex_state = 259, .external_lex_state = 5},
+  [5758] = {.lex_state = 254, .external_lex_state = 4},
+  [5759] = {.lex_state = 314, .external_lex_state = 4},
+  [5760] = {.lex_state = 259, .external_lex_state = 6},
   [5761] = {.lex_state = 254, .external_lex_state = 4},
   [5762] = {.lex_state = 254, .external_lex_state = 4},
-  [5763] = {.lex_state = 259, .external_lex_state = 6},
-  [5764] = {.lex_state = 259, .external_lex_state = 6},
+  [5763] = {.lex_state = 301, .external_lex_state = 11},
+  [5764] = {.lex_state = 254, .external_lex_state = 4},
   [5765] = {.lex_state = 254, .external_lex_state = 4},
-  [5766] = {.lex_state = 254, .external_lex_state = 4},
-  [5767] = {.lex_state = 259, .external_lex_state = 6},
+  [5766] = {.lex_state = 259, .external_lex_state = 5},
+  [5767] = {.lex_state = 301, .external_lex_state = 11},
   [5768] = {.lex_state = 259, .external_lex_state = 6},
   [5769] = {.lex_state = 259, .external_lex_state = 6},
   [5770] = {.lex_state = 259, .external_lex_state = 5},
   [5771] = {.lex_state = 259, .external_lex_state = 6},
-  [5772] = {.lex_state = 259, .external_lex_state = 6},
-  [5773] = {.lex_state = 259, .external_lex_state = 5},
-  [5774] = {.lex_state = 259, .external_lex_state = 5},
+  [5772] = {.lex_state = 259, .external_lex_state = 5},
+  [5773] = {.lex_state = 259, .external_lex_state = 6},
+  [5774] = {.lex_state = 259, .external_lex_state = 6},
   [5775] = {.lex_state = 259, .external_lex_state = 6},
   [5776] = {.lex_state = 259, .external_lex_state = 6},
   [5777] = {.lex_state = 259, .external_lex_state = 6},
   [5778] = {.lex_state = 259, .external_lex_state = 6},
   [5779] = {.lex_state = 259, .external_lex_state = 6},
-  [5780] = {.lex_state = 259, .external_lex_state = 6},
-  [5781] = {.lex_state = 301, .external_lex_state = 10},
-  [5782] = {.lex_state = 301, .external_lex_state = 10},
-  [5783] = {.lex_state = 259, .external_lex_state = 6},
+  [5780] = {.lex_state = 259, .external_lex_state = 5},
+  [5781] = {.lex_state = 259, .external_lex_state = 6},
+  [5782] = {.lex_state = 264, .external_lex_state = 6},
+  [5783] = {.lex_state = 264, .external_lex_state = 6},
   [5784] = {.lex_state = 264, .external_lex_state = 6},
   [5785] = {.lex_state = 264, .external_lex_state = 6},
   [5786] = {.lex_state = 264, .external_lex_state = 6},
@@ -43313,7 +43065,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5791] = {.lex_state = 264, .external_lex_state = 6},
   [5792] = {.lex_state = 264, .external_lex_state = 6},
   [5793] = {.lex_state = 264, .external_lex_state = 6},
-  [5794] = {.lex_state = 264, .external_lex_state = 6},
+  [5794] = {.lex_state = 226, .external_lex_state = 6},
   [5795] = {.lex_state = 264, .external_lex_state = 6},
   [5796] = {.lex_state = 264, .external_lex_state = 6},
   [5797] = {.lex_state = 264, .external_lex_state = 6},
@@ -43349,7 +43101,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5827] = {.lex_state = 264, .external_lex_state = 6},
   [5828] = {.lex_state = 264, .external_lex_state = 6},
   [5829] = {.lex_state = 264, .external_lex_state = 6},
-  [5830] = {.lex_state = 226, .external_lex_state = 6},
+  [5830] = {.lex_state = 264, .external_lex_state = 6},
   [5831] = {.lex_state = 264, .external_lex_state = 6},
   [5832] = {.lex_state = 264, .external_lex_state = 6},
   [5833] = {.lex_state = 264, .external_lex_state = 6},
@@ -43370,7 +43122,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5848] = {.lex_state = 264, .external_lex_state = 6},
   [5849] = {.lex_state = 264, .external_lex_state = 6},
   [5850] = {.lex_state = 264, .external_lex_state = 6},
-  [5851] = {.lex_state = 264, .external_lex_state = 6},
+  [5851] = {.lex_state = 226, .external_lex_state = 6},
   [5852] = {.lex_state = 264, .external_lex_state = 6},
   [5853] = {.lex_state = 264, .external_lex_state = 6},
   [5854] = {.lex_state = 264, .external_lex_state = 6},
@@ -43385,7 +43137,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5863] = {.lex_state = 264, .external_lex_state = 6},
   [5864] = {.lex_state = 264, .external_lex_state = 6},
   [5865] = {.lex_state = 264, .external_lex_state = 6},
-  [5866] = {.lex_state = 226, .external_lex_state = 6},
+  [5866] = {.lex_state = 264, .external_lex_state = 6},
   [5867] = {.lex_state = 264, .external_lex_state = 6},
   [5868] = {.lex_state = 264, .external_lex_state = 6},
   [5869] = {.lex_state = 264, .external_lex_state = 6},
@@ -43400,7 +43152,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5878] = {.lex_state = 264, .external_lex_state = 6},
   [5879] = {.lex_state = 264, .external_lex_state = 6},
   [5880] = {.lex_state = 264, .external_lex_state = 6},
-  [5881] = {.lex_state = 264, .external_lex_state = 6},
+  [5881] = {.lex_state = 276, .external_lex_state = 5},
   [5882] = {.lex_state = 264, .external_lex_state = 6},
   [5883] = {.lex_state = 264, .external_lex_state = 6},
   [5884] = {.lex_state = 264, .external_lex_state = 6},
@@ -43408,7 +43160,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5886] = {.lex_state = 264, .external_lex_state = 6},
   [5887] = {.lex_state = 264, .external_lex_state = 6},
   [5888] = {.lex_state = 264, .external_lex_state = 6},
-  [5889] = {.lex_state = 264, .external_lex_state = 6},
+  [5889] = {.lex_state = 301, .external_lex_state = 11},
   [5890] = {.lex_state = 264, .external_lex_state = 6},
   [5891] = {.lex_state = 264, .external_lex_state = 6},
   [5892] = {.lex_state = 264, .external_lex_state = 6},
@@ -43448,7 +43200,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5926] = {.lex_state = 264, .external_lex_state = 6},
   [5927] = {.lex_state = 264, .external_lex_state = 6},
   [5928] = {.lex_state = 264, .external_lex_state = 6},
-  [5929] = {.lex_state = 264, .external_lex_state = 6},
+  [5929] = {.lex_state = 226, .external_lex_state = 6},
   [5930] = {.lex_state = 264, .external_lex_state = 6},
   [5931] = {.lex_state = 264, .external_lex_state = 6},
   [5932] = {.lex_state = 264, .external_lex_state = 6},
@@ -43458,11 +43210,11 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5936] = {.lex_state = 264, .external_lex_state = 6},
   [5937] = {.lex_state = 264, .external_lex_state = 6},
   [5938] = {.lex_state = 264, .external_lex_state = 6},
-  [5939] = {.lex_state = 226, .external_lex_state = 6},
+  [5939] = {.lex_state = 264, .external_lex_state = 6},
   [5940] = {.lex_state = 264, .external_lex_state = 6},
   [5941] = {.lex_state = 264, .external_lex_state = 6},
   [5942] = {.lex_state = 264, .external_lex_state = 6},
-  [5943] = {.lex_state = 276, .external_lex_state = 5},
+  [5943] = {.lex_state = 264, .external_lex_state = 6},
   [5944] = {.lex_state = 264, .external_lex_state = 6},
   [5945] = {.lex_state = 264, .external_lex_state = 6},
   [5946] = {.lex_state = 264, .external_lex_state = 6},
@@ -43480,7 +43232,7 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5958] = {.lex_state = 264, .external_lex_state = 6},
   [5959] = {.lex_state = 264, .external_lex_state = 6},
   [5960] = {.lex_state = 264, .external_lex_state = 6},
-  [5961] = {.lex_state = 264, .external_lex_state = 6},
+  [5961] = {.lex_state = 301, .external_lex_state = 11},
   [5962] = {.lex_state = 264, .external_lex_state = 6},
   [5963] = {.lex_state = 264, .external_lex_state = 6},
   [5964] = {.lex_state = 264, .external_lex_state = 6},
@@ -43510,1786 +43262,1786 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [5988] = {.lex_state = 264, .external_lex_state = 6},
   [5989] = {.lex_state = 264, .external_lex_state = 6},
   [5990] = {.lex_state = 264, .external_lex_state = 6},
-  [5991] = {.lex_state = 301, .external_lex_state = 10},
+  [5991] = {.lex_state = 264, .external_lex_state = 6},
   [5992] = {.lex_state = 264, .external_lex_state = 6},
   [5993] = {.lex_state = 264, .external_lex_state = 6},
-  [5994] = {.lex_state = 264, .external_lex_state = 6},
-  [5995] = {.lex_state = 259, .external_lex_state = 5},
-  [5996] = {.lex_state = 259, .external_lex_state = 5},
+  [5994] = {.lex_state = 226, .external_lex_state = 6},
+  [5995] = {.lex_state = 226, .external_lex_state = 6},
+  [5996] = {.lex_state = 320, .external_lex_state = 6},
   [5997] = {.lex_state = 259, .external_lex_state = 5},
-  [5998] = {.lex_state = 226, .external_lex_state = 6},
-  [5999] = {.lex_state = 226, .external_lex_state = 6},
-  [6000] = {.lex_state = 226, .external_lex_state = 6},
-  [6001] = {.lex_state = 276, .external_lex_state = 5},
-  [6002] = {.lex_state = 301, .external_lex_state = 10},
-  [6003] = {.lex_state = 226, .external_lex_state = 6},
+  [5998] = {.lex_state = 259, .external_lex_state = 5},
+  [5999] = {.lex_state = 259, .external_lex_state = 5},
+  [6000] = {.lex_state = 259, .external_lex_state = 5},
+  [6001] = {.lex_state = 226, .external_lex_state = 6},
+  [6002] = {.lex_state = 226, .external_lex_state = 6},
+  [6003] = {.lex_state = 259, .external_lex_state = 5},
   [6004] = {.lex_state = 259, .external_lex_state = 5},
   [6005] = {.lex_state = 259, .external_lex_state = 5},
   [6006] = {.lex_state = 259, .external_lex_state = 5},
   [6007] = {.lex_state = 259, .external_lex_state = 5},
   [6008] = {.lex_state = 259, .external_lex_state = 5},
-  [6009] = {.lex_state = 314, .external_lex_state = 4},
-  [6010] = {.lex_state = 259, .external_lex_state = 5},
+  [6009] = {.lex_state = 276, .external_lex_state = 5},
+  [6010] = {.lex_state = 276, .external_lex_state = 5},
   [6011] = {.lex_state = 259, .external_lex_state = 5},
   [6012] = {.lex_state = 259, .external_lex_state = 5},
-  [6013] = {.lex_state = 276, .external_lex_state = 5},
-  [6014] = {.lex_state = 259, .external_lex_state = 5},
-  [6015] = {.lex_state = 259, .external_lex_state = 5},
-  [6016] = {.lex_state = 226, .external_lex_state = 6},
+  [6013] = {.lex_state = 301, .external_lex_state = 11},
+  [6014] = {.lex_state = 226, .external_lex_state = 6},
+  [6015] = {.lex_state = 301, .external_lex_state = 11},
+  [6016] = {.lex_state = 314, .external_lex_state = 4},
   [6017] = {.lex_state = 259, .external_lex_state = 5},
   [6018] = {.lex_state = 226, .external_lex_state = 6},
-  [6019] = {.lex_state = 259, .external_lex_state = 5},
-  [6020] = {.lex_state = 301, .external_lex_state = 10},
-  [6021] = {.lex_state = 301, .external_lex_state = 10},
+  [6019] = {.lex_state = 320, .external_lex_state = 6},
+  [6020] = {.lex_state = 259, .external_lex_state = 5},
+  [6021] = {.lex_state = 301, .external_lex_state = 11},
   [6022] = {.lex_state = 259, .external_lex_state = 5},
   [6023] = {.lex_state = 259, .external_lex_state = 5},
-  [6024] = {.lex_state = 320, .external_lex_state = 6},
+  [6024] = {.lex_state = 259, .external_lex_state = 5},
   [6025] = {.lex_state = 259, .external_lex_state = 5},
-  [6026] = {.lex_state = 226, .external_lex_state = 6},
-  [6027] = {.lex_state = 259, .external_lex_state = 5},
+  [6026] = {.lex_state = 259, .external_lex_state = 5},
+  [6027] = {.lex_state = 301, .external_lex_state = 11},
   [6028] = {.lex_state = 259, .external_lex_state = 5},
-  [6029] = {.lex_state = 320, .external_lex_state = 6},
-  [6030] = {.lex_state = 259, .external_lex_state = 5},
+  [6029] = {.lex_state = 259, .external_lex_state = 5},
+  [6030] = {.lex_state = 301, .external_lex_state = 11},
   [6031] = {.lex_state = 259, .external_lex_state = 5},
-  [6032] = {.lex_state = 301, .external_lex_state = 10},
-  [6033] = {.lex_state = 301, .external_lex_state = 10},
+  [6032] = {.lex_state = 226, .external_lex_state = 6},
+  [6033] = {.lex_state = 320, .external_lex_state = 6},
   [6034] = {.lex_state = 259, .external_lex_state = 5},
-  [6035] = {.lex_state = 320, .external_lex_state = 6},
+  [6035] = {.lex_state = 216, .external_lex_state = 6},
   [6036] = {.lex_state = 216, .external_lex_state = 6},
-  [6037] = {.lex_state = 216, .external_lex_state = 6},
-  [6038] = {.lex_state = 225, .external_lex_state = 6},
+  [6037] = {.lex_state = 276, .external_lex_state = 5},
+  [6038] = {.lex_state = 259, .external_lex_state = 6},
   [6039] = {.lex_state = 216, .external_lex_state = 6},
-  [6040] = {.lex_state = 216, .external_lex_state = 6},
+  [6040] = {.lex_state = 276, .external_lex_state = 5},
   [6041] = {.lex_state = 216, .external_lex_state = 6},
   [6042] = {.lex_state = 216, .external_lex_state = 6},
-  [6043] = {.lex_state = 320, .external_lex_state = 6},
+  [6043] = {.lex_state = 216, .external_lex_state = 6},
   [6044] = {.lex_state = 216, .external_lex_state = 6},
-  [6045] = {.lex_state = 216, .external_lex_state = 6},
-  [6046] = {.lex_state = 226, .external_lex_state = 6},
+  [6045] = {.lex_state = 276, .external_lex_state = 5},
+  [6046] = {.lex_state = 216, .external_lex_state = 6},
   [6047] = {.lex_state = 216, .external_lex_state = 6},
-  [6048] = {.lex_state = 216, .external_lex_state = 6},
-  [6049] = {.lex_state = 1301, .external_lex_state = 5},
-  [6050] = {.lex_state = 216, .external_lex_state = 6},
+  [6048] = {.lex_state = 226, .external_lex_state = 6},
+  [6049] = {.lex_state = 216, .external_lex_state = 6},
+  [6050] = {.lex_state = 276, .external_lex_state = 5},
   [6051] = {.lex_state = 216, .external_lex_state = 6},
-  [6052] = {.lex_state = 226, .external_lex_state = 6},
-  [6053] = {.lex_state = 216, .external_lex_state = 6},
-  [6054] = {.lex_state = 216, .external_lex_state = 6},
-  [6055] = {.lex_state = 276, .external_lex_state = 5},
-  [6056] = {.lex_state = 216, .external_lex_state = 6},
-  [6057] = {.lex_state = 216, .external_lex_state = 6},
+  [6052] = {.lex_state = 216, .external_lex_state = 6},
+  [6053] = {.lex_state = 226, .external_lex_state = 6},
+  [6054] = {.lex_state = 226, .external_lex_state = 6},
+  [6055] = {.lex_state = 226, .external_lex_state = 6},
+  [6056] = {.lex_state = 226, .external_lex_state = 6},
+  [6057] = {.lex_state = 320, .external_lex_state = 6},
   [6058] = {.lex_state = 216, .external_lex_state = 6},
-  [6059] = {.lex_state = 259, .external_lex_state = 6},
-  [6060] = {.lex_state = 216, .external_lex_state = 6},
-  [6061] = {.lex_state = 226, .external_lex_state = 6},
+  [6059] = {.lex_state = 276, .external_lex_state = 5},
+  [6060] = {.lex_state = 276, .external_lex_state = 5},
+  [6061] = {.lex_state = 276, .external_lex_state = 5},
   [6062] = {.lex_state = 216, .external_lex_state = 6},
-  [6063] = {.lex_state = 276, .external_lex_state = 5},
-  [6064] = {.lex_state = 216, .external_lex_state = 6},
-  [6065] = {.lex_state = 276, .external_lex_state = 5},
+  [6063] = {.lex_state = 216, .external_lex_state = 6},
+  [6064] = {.lex_state = 276, .external_lex_state = 5},
+  [6065] = {.lex_state = 216, .external_lex_state = 6},
   [6066] = {.lex_state = 216, .external_lex_state = 6},
-  [6067] = {.lex_state = 276, .external_lex_state = 5},
-  [6068] = {.lex_state = 226, .external_lex_state = 6},
-  [6069] = {.lex_state = 276, .external_lex_state = 5},
+  [6067] = {.lex_state = 225, .external_lex_state = 6},
+  [6068] = {.lex_state = 216, .external_lex_state = 6},
+  [6069] = {.lex_state = 216, .external_lex_state = 6},
   [6070] = {.lex_state = 216, .external_lex_state = 6},
-  [6071] = {.lex_state = 276, .external_lex_state = 5},
-  [6072] = {.lex_state = 276, .external_lex_state = 5},
+  [6071] = {.lex_state = 216, .external_lex_state = 6},
+  [6072] = {.lex_state = 216, .external_lex_state = 6},
   [6073] = {.lex_state = 216, .external_lex_state = 6},
-  [6074] = {.lex_state = 216, .external_lex_state = 6},
-  [6075] = {.lex_state = 226, .external_lex_state = 6},
-  [6076] = {.lex_state = 276, .external_lex_state = 5},
+  [6074] = {.lex_state = 1281, .external_lex_state = 5},
+  [6075] = {.lex_state = 216, .external_lex_state = 6},
+  [6076] = {.lex_state = 216, .external_lex_state = 6},
   [6077] = {.lex_state = 216, .external_lex_state = 6},
   [6078] = {.lex_state = 216, .external_lex_state = 6},
-  [6079] = {.lex_state = 1301, .external_lex_state = 5},
-  [6080] = {.lex_state = 1301, .external_lex_state = 5},
-  [6081] = {.lex_state = 1301, .external_lex_state = 5},
-  [6082] = {.lex_state = 1301, .external_lex_state = 5},
-  [6083] = {.lex_state = 259, .external_lex_state = 6},
-  [6084] = {.lex_state = 216, .external_lex_state = 6},
-  [6085] = {.lex_state = 1301, .external_lex_state = 5},
-  [6086] = {.lex_state = 1301, .external_lex_state = 5},
-  [6087] = {.lex_state = 1301, .external_lex_state = 5},
-  [6088] = {.lex_state = 1301, .external_lex_state = 5},
-  [6089] = {.lex_state = 1301, .external_lex_state = 5},
-  [6090] = {.lex_state = 1301, .external_lex_state = 5},
-  [6091] = {.lex_state = 276, .external_lex_state = 5},
-  [6092] = {.lex_state = 1301, .external_lex_state = 5},
-  [6093] = {.lex_state = 1301, .external_lex_state = 5},
-  [6094] = {.lex_state = 1301, .external_lex_state = 5},
-  [6095] = {.lex_state = 1301, .external_lex_state = 5},
-  [6096] = {.lex_state = 1301, .external_lex_state = 5},
-  [6097] = {.lex_state = 1301, .external_lex_state = 5},
-  [6098] = {.lex_state = 1301, .external_lex_state = 5},
-  [6099] = {.lex_state = 1301, .external_lex_state = 5},
-  [6100] = {.lex_state = 1301, .external_lex_state = 5},
-  [6101] = {.lex_state = 1301, .external_lex_state = 5},
-  [6102] = {.lex_state = 1301, .external_lex_state = 5},
+  [6079] = {.lex_state = 1281, .external_lex_state = 5},
+  [6080] = {.lex_state = 1281, .external_lex_state = 5},
+  [6081] = {.lex_state = 276, .external_lex_state = 6},
+  [6082] = {.lex_state = 276, .external_lex_state = 6},
+  [6083] = {.lex_state = 1281, .external_lex_state = 5},
+  [6084] = {.lex_state = 259, .external_lex_state = 6},
+  [6085] = {.lex_state = 1281, .external_lex_state = 5},
+  [6086] = {.lex_state = 1281, .external_lex_state = 5},
+  [6087] = {.lex_state = 259, .external_lex_state = 6},
+  [6088] = {.lex_state = 1281, .external_lex_state = 5},
+  [6089] = {.lex_state = 276, .external_lex_state = 5},
+  [6090] = {.lex_state = 1281, .external_lex_state = 5},
+  [6091] = {.lex_state = 1281, .external_lex_state = 5},
+  [6092] = {.lex_state = 1281, .external_lex_state = 5},
+  [6093] = {.lex_state = 259, .external_lex_state = 6},
+  [6094] = {.lex_state = 1281, .external_lex_state = 5},
+  [6095] = {.lex_state = 1281, .external_lex_state = 5},
+  [6096] = {.lex_state = 1281, .external_lex_state = 5},
+  [6097] = {.lex_state = 1281, .external_lex_state = 5},
+  [6098] = {.lex_state = 276, .external_lex_state = 6},
+  [6099] = {.lex_state = 276, .external_lex_state = 6},
+  [6100] = {.lex_state = 1281, .external_lex_state = 5},
+  [6101] = {.lex_state = 259, .external_lex_state = 6},
+  [6102] = {.lex_state = 1281, .external_lex_state = 5},
   [6103] = {.lex_state = 259, .external_lex_state = 6},
-  [6104] = {.lex_state = 1301, .external_lex_state = 5},
-  [6105] = {.lex_state = 1301, .external_lex_state = 5},
-  [6106] = {.lex_state = 1301, .external_lex_state = 5},
-  [6107] = {.lex_state = 314, .external_lex_state = 4},
-  [6108] = {.lex_state = 1301, .external_lex_state = 5},
-  [6109] = {.lex_state = 1301, .external_lex_state = 5},
-  [6110] = {.lex_state = 1301, .external_lex_state = 5},
-  [6111] = {.lex_state = 259, .external_lex_state = 6},
-  [6112] = {.lex_state = 1301, .external_lex_state = 5},
-  [6113] = {.lex_state = 1301, .external_lex_state = 6},
-  [6114] = {.lex_state = 1301, .external_lex_state = 5},
-  [6115] = {.lex_state = 1301, .external_lex_state = 5},
-  [6116] = {.lex_state = 259, .external_lex_state = 5},
-  [6117] = {.lex_state = 1301, .external_lex_state = 5},
-  [6118] = {.lex_state = 1301, .external_lex_state = 5},
-  [6119] = {.lex_state = 314, .external_lex_state = 4},
-  [6120] = {.lex_state = 1301, .external_lex_state = 5},
-  [6121] = {.lex_state = 1301, .external_lex_state = 6},
-  [6122] = {.lex_state = 259, .external_lex_state = 6},
-  [6123] = {.lex_state = 1301, .external_lex_state = 5},
-  [6124] = {.lex_state = 1301, .external_lex_state = 5},
-  [6125] = {.lex_state = 1301, .external_lex_state = 5},
-  [6126] = {.lex_state = 1301, .external_lex_state = 5},
-  [6127] = {.lex_state = 1301, .external_lex_state = 5},
-  [6128] = {.lex_state = 1301, .external_lex_state = 5},
-  [6129] = {.lex_state = 1301, .external_lex_state = 5},
-  [6130] = {.lex_state = 1301, .external_lex_state = 5},
-  [6131] = {.lex_state = 1301, .external_lex_state = 5},
-  [6132] = {.lex_state = 1301, .external_lex_state = 5},
-  [6133] = {.lex_state = 1301, .external_lex_state = 5},
-  [6134] = {.lex_state = 259, .external_lex_state = 6},
-  [6135] = {.lex_state = 1301, .external_lex_state = 5},
-  [6136] = {.lex_state = 1301, .external_lex_state = 5},
-  [6137] = {.lex_state = 1301, .external_lex_state = 5},
-  [6138] = {.lex_state = 1301, .external_lex_state = 5},
-  [6139] = {.lex_state = 259, .external_lex_state = 6},
-  [6140] = {.lex_state = 1301, .external_lex_state = 5},
-  [6141] = {.lex_state = 1301, .external_lex_state = 5},
-  [6142] = {.lex_state = 1301, .external_lex_state = 5},
-  [6143] = {.lex_state = 1301, .external_lex_state = 6},
-  [6144] = {.lex_state = 1301, .external_lex_state = 5},
-  [6145] = {.lex_state = 1301, .external_lex_state = 5},
-  [6146] = {.lex_state = 1301, .external_lex_state = 5},
-  [6147] = {.lex_state = 1301, .external_lex_state = 5},
-  [6148] = {.lex_state = 1301, .external_lex_state = 5},
-  [6149] = {.lex_state = 1301, .external_lex_state = 5},
-  [6150] = {.lex_state = 1301, .external_lex_state = 5},
-  [6151] = {.lex_state = 1301, .external_lex_state = 5},
-  [6152] = {.lex_state = 1301, .external_lex_state = 5},
-  [6153] = {.lex_state = 276, .external_lex_state = 5},
-  [6154] = {.lex_state = 259, .external_lex_state = 6},
-  [6155] = {.lex_state = 1301, .external_lex_state = 5},
-  [6156] = {.lex_state = 216, .external_lex_state = 6},
-  [6157] = {.lex_state = 314, .external_lex_state = 4},
-  [6158] = {.lex_state = 1301, .external_lex_state = 5},
-  [6159] = {.lex_state = 1301, .external_lex_state = 5},
-  [6160] = {.lex_state = 276, .external_lex_state = 6},
-  [6161] = {.lex_state = 259, .external_lex_state = 6},
-  [6162] = {.lex_state = 1301, .external_lex_state = 5},
-  [6163] = {.lex_state = 1301, .external_lex_state = 5},
-  [6164] = {.lex_state = 216, .external_lex_state = 6},
-  [6165] = {.lex_state = 216, .external_lex_state = 6},
-  [6166] = {.lex_state = 1301, .external_lex_state = 5},
-  [6167] = {.lex_state = 1301, .external_lex_state = 5},
-  [6168] = {.lex_state = 1301, .external_lex_state = 5},
-  [6169] = {.lex_state = 1301, .external_lex_state = 5},
-  [6170] = {.lex_state = 1301, .external_lex_state = 5},
-  [6171] = {.lex_state = 259, .external_lex_state = 6},
-  [6172] = {.lex_state = 1301, .external_lex_state = 5},
-  [6173] = {.lex_state = 1301, .external_lex_state = 5},
-  [6174] = {.lex_state = 1301, .external_lex_state = 5},
-  [6175] = {.lex_state = 259, .external_lex_state = 6},
-  [6176] = {.lex_state = 1301, .external_lex_state = 5},
-  [6177] = {.lex_state = 1301, .external_lex_state = 5},
-  [6178] = {.lex_state = 1301, .external_lex_state = 5},
-  [6179] = {.lex_state = 1301, .external_lex_state = 5},
-  [6180] = {.lex_state = 1301, .external_lex_state = 5},
-  [6181] = {.lex_state = 1301, .external_lex_state = 5},
-  [6182] = {.lex_state = 1301, .external_lex_state = 5},
-  [6183] = {.lex_state = 259, .external_lex_state = 6},
-  [6184] = {.lex_state = 1301, .external_lex_state = 5},
-  [6185] = {.lex_state = 259, .external_lex_state = 6},
-  [6186] = {.lex_state = 1301, .external_lex_state = 5},
-  [6187] = {.lex_state = 1301, .external_lex_state = 5},
-  [6188] = {.lex_state = 1301, .external_lex_state = 5},
-  [6189] = {.lex_state = 1301, .external_lex_state = 5},
-  [6190] = {.lex_state = 259, .external_lex_state = 6},
-  [6191] = {.lex_state = 1301, .external_lex_state = 5},
-  [6192] = {.lex_state = 1301, .external_lex_state = 5},
-  [6193] = {.lex_state = 259, .external_lex_state = 6},
-  [6194] = {.lex_state = 1301, .external_lex_state = 5},
-  [6195] = {.lex_state = 1301, .external_lex_state = 5},
-  [6196] = {.lex_state = 1301, .external_lex_state = 5},
-  [6197] = {.lex_state = 1301, .external_lex_state = 5},
-  [6198] = {.lex_state = 1301, .external_lex_state = 5},
-  [6199] = {.lex_state = 1301, .external_lex_state = 5},
-  [6200] = {.lex_state = 259, .external_lex_state = 6},
-  [6201] = {.lex_state = 1301, .external_lex_state = 5},
-  [6202] = {.lex_state = 1301, .external_lex_state = 5},
-  [6203] = {.lex_state = 1301, .external_lex_state = 5},
+  [6104] = {.lex_state = 1281, .external_lex_state = 5},
+  [6105] = {.lex_state = 1281, .external_lex_state = 5},
+  [6106] = {.lex_state = 1281, .external_lex_state = 5},
+  [6107] = {.lex_state = 276, .external_lex_state = 6},
+  [6108] = {.lex_state = 1281, .external_lex_state = 5},
+  [6109] = {.lex_state = 1281, .external_lex_state = 5},
+  [6110] = {.lex_state = 1281, .external_lex_state = 5},
+  [6111] = {.lex_state = 1281, .external_lex_state = 5},
+  [6112] = {.lex_state = 276, .external_lex_state = 6},
+  [6113] = {.lex_state = 1281, .external_lex_state = 5},
+  [6114] = {.lex_state = 259, .external_lex_state = 6},
+  [6115] = {.lex_state = 1281, .external_lex_state = 5},
+  [6116] = {.lex_state = 259, .external_lex_state = 6},
+  [6117] = {.lex_state = 259, .external_lex_state = 6},
+  [6118] = {.lex_state = 1281, .external_lex_state = 5},
+  [6119] = {.lex_state = 1281, .external_lex_state = 5},
+  [6120] = {.lex_state = 1281, .external_lex_state = 5},
+  [6121] = {.lex_state = 1281, .external_lex_state = 5},
+  [6122] = {.lex_state = 1281, .external_lex_state = 5},
+  [6123] = {.lex_state = 259, .external_lex_state = 6},
+  [6124] = {.lex_state = 1281, .external_lex_state = 5},
+  [6125] = {.lex_state = 259, .external_lex_state = 6},
+  [6126] = {.lex_state = 1281, .external_lex_state = 5},
+  [6127] = {.lex_state = 1281, .external_lex_state = 5},
+  [6128] = {.lex_state = 1281, .external_lex_state = 5},
+  [6129] = {.lex_state = 1281, .external_lex_state = 5},
+  [6130] = {.lex_state = 1281, .external_lex_state = 5},
+  [6131] = {.lex_state = 1281, .external_lex_state = 5},
+  [6132] = {.lex_state = 1281, .external_lex_state = 5},
+  [6133] = {.lex_state = 276, .external_lex_state = 6},
+  [6134] = {.lex_state = 1281, .external_lex_state = 5},
+  [6135] = {.lex_state = 1281, .external_lex_state = 5},
+  [6136] = {.lex_state = 1281, .external_lex_state = 5},
+  [6137] = {.lex_state = 1281, .external_lex_state = 5},
+  [6138] = {.lex_state = 259, .external_lex_state = 5},
+  [6139] = {.lex_state = 1281, .external_lex_state = 5},
+  [6140] = {.lex_state = 1281, .external_lex_state = 5},
+  [6141] = {.lex_state = 1281, .external_lex_state = 5},
+  [6142] = {.lex_state = 1281, .external_lex_state = 5},
+  [6143] = {.lex_state = 1281, .external_lex_state = 5},
+  [6144] = {.lex_state = 1281, .external_lex_state = 5},
+  [6145] = {.lex_state = 1281, .external_lex_state = 5},
+  [6146] = {.lex_state = 1281, .external_lex_state = 5},
+  [6147] = {.lex_state = 1281, .external_lex_state = 5},
+  [6148] = {.lex_state = 1281, .external_lex_state = 5},
+  [6149] = {.lex_state = 1281, .external_lex_state = 5},
+  [6150] = {.lex_state = 1281, .external_lex_state = 5},
+  [6151] = {.lex_state = 1281, .external_lex_state = 5},
+  [6152] = {.lex_state = 1281, .external_lex_state = 5},
+  [6153] = {.lex_state = 1281, .external_lex_state = 5},
+  [6154] = {.lex_state = 1281, .external_lex_state = 5},
+  [6155] = {.lex_state = 1281, .external_lex_state = 5},
+  [6156] = {.lex_state = 1281, .external_lex_state = 5},
+  [6157] = {.lex_state = 259, .external_lex_state = 6},
+  [6158] = {.lex_state = 1281, .external_lex_state = 5},
+  [6159] = {.lex_state = 1281, .external_lex_state = 5},
+  [6160] = {.lex_state = 1281, .external_lex_state = 5},
+  [6161] = {.lex_state = 216, .external_lex_state = 6},
+  [6162] = {.lex_state = 1281, .external_lex_state = 5},
+  [6163] = {.lex_state = 1281, .external_lex_state = 5},
+  [6164] = {.lex_state = 1281, .external_lex_state = 5},
+  [6165] = {.lex_state = 225, .external_lex_state = 6},
+  [6166] = {.lex_state = 216, .external_lex_state = 6},
+  [6167] = {.lex_state = 1281, .external_lex_state = 5},
+  [6168] = {.lex_state = 1281, .external_lex_state = 5},
+  [6169] = {.lex_state = 1281, .external_lex_state = 5},
+  [6170] = {.lex_state = 1281, .external_lex_state = 5},
+  [6171] = {.lex_state = 1281, .external_lex_state = 5},
+  [6172] = {.lex_state = 1281, .external_lex_state = 5},
+  [6173] = {.lex_state = 1281, .external_lex_state = 5},
+  [6174] = {.lex_state = 1281, .external_lex_state = 5},
+  [6175] = {.lex_state = 1281, .external_lex_state = 5},
+  [6176] = {.lex_state = 1281, .external_lex_state = 5},
+  [6177] = {.lex_state = 1281, .external_lex_state = 5},
+  [6178] = {.lex_state = 1281, .external_lex_state = 5},
+  [6179] = {.lex_state = 1281, .external_lex_state = 5},
+  [6180] = {.lex_state = 1281, .external_lex_state = 5},
+  [6181] = {.lex_state = 259, .external_lex_state = 6},
+  [6182] = {.lex_state = 1281, .external_lex_state = 5},
+  [6183] = {.lex_state = 1281, .external_lex_state = 5},
+  [6184] = {.lex_state = 1281, .external_lex_state = 5},
+  [6185] = {.lex_state = 1281, .external_lex_state = 5},
+  [6186] = {.lex_state = 259, .external_lex_state = 6},
+  [6187] = {.lex_state = 1281, .external_lex_state = 5},
+  [6188] = {.lex_state = 1281, .external_lex_state = 5},
+  [6189] = {.lex_state = 1281, .external_lex_state = 5},
+  [6190] = {.lex_state = 216, .external_lex_state = 6},
+  [6191] = {.lex_state = 216, .external_lex_state = 6},
+  [6192] = {.lex_state = 1281, .external_lex_state = 5},
+  [6193] = {.lex_state = 276, .external_lex_state = 6},
+  [6194] = {.lex_state = 314, .external_lex_state = 4},
+  [6195] = {.lex_state = 314, .external_lex_state = 4},
+  [6196] = {.lex_state = 1281, .external_lex_state = 5},
+  [6197] = {.lex_state = 276, .external_lex_state = 5},
+  [6198] = {.lex_state = 1281, .external_lex_state = 5},
+  [6199] = {.lex_state = 1281, .external_lex_state = 5},
+  [6200] = {.lex_state = 1281, .external_lex_state = 5},
+  [6201] = {.lex_state = 1281, .external_lex_state = 5},
+  [6202] = {.lex_state = 1281, .external_lex_state = 5},
+  [6203] = {.lex_state = 1281, .external_lex_state = 5},
   [6204] = {.lex_state = 259, .external_lex_state = 6},
-  [6205] = {.lex_state = 1301, .external_lex_state = 5},
-  [6206] = {.lex_state = 1301, .external_lex_state = 5},
-  [6207] = {.lex_state = 1301, .external_lex_state = 5},
-  [6208] = {.lex_state = 1301, .external_lex_state = 5},
-  [6209] = {.lex_state = 1301, .external_lex_state = 5},
-  [6210] = {.lex_state = 259, .external_lex_state = 6},
-  [6211] = {.lex_state = 1301, .external_lex_state = 5},
+  [6205] = {.lex_state = 1281, .external_lex_state = 5},
+  [6206] = {.lex_state = 1281, .external_lex_state = 5},
+  [6207] = {.lex_state = 1281, .external_lex_state = 5},
+  [6208] = {.lex_state = 1281, .external_lex_state = 5},
+  [6209] = {.lex_state = 1281, .external_lex_state = 5},
+  [6210] = {.lex_state = 1281, .external_lex_state = 5},
+  [6211] = {.lex_state = 1281, .external_lex_state = 5},
   [6212] = {.lex_state = 259, .external_lex_state = 6},
-  [6213] = {.lex_state = 1301, .external_lex_state = 5},
-  [6214] = {.lex_state = 1301, .external_lex_state = 11},
-  [6215] = {.lex_state = 1301, .external_lex_state = 5},
-  [6216] = {.lex_state = 1301, .external_lex_state = 5},
+  [6213] = {.lex_state = 216, .external_lex_state = 6},
+  [6214] = {.lex_state = 259, .external_lex_state = 6},
+  [6215] = {.lex_state = 1281, .external_lex_state = 5},
+  [6216] = {.lex_state = 1281, .external_lex_state = 5},
   [6217] = {.lex_state = 259, .external_lex_state = 6},
-  [6218] = {.lex_state = 1301, .external_lex_state = 5},
-  [6219] = {.lex_state = 259, .external_lex_state = 6},
-  [6220] = {.lex_state = 1301, .external_lex_state = 5},
-  [6221] = {.lex_state = 216, .external_lex_state = 6},
-  [6222] = {.lex_state = 1301, .external_lex_state = 5},
-  [6223] = {.lex_state = 259, .external_lex_state = 6},
-  [6224] = {.lex_state = 216, .external_lex_state = 6},
-  [6225] = {.lex_state = 259, .external_lex_state = 6},
-  [6226] = {.lex_state = 314, .external_lex_state = 4},
-  [6227] = {.lex_state = 1301, .external_lex_state = 5},
-  [6228] = {.lex_state = 259, .external_lex_state = 6},
-  [6229] = {.lex_state = 1301, .external_lex_state = 5},
-  [6230] = {.lex_state = 276, .external_lex_state = 5},
-  [6231] = {.lex_state = 259, .external_lex_state = 6},
-  [6232] = {.lex_state = 1301, .external_lex_state = 5},
-  [6233] = {.lex_state = 1301, .external_lex_state = 5},
-  [6234] = {.lex_state = 1301, .external_lex_state = 5},
-  [6235] = {.lex_state = 1301, .external_lex_state = 5},
-  [6236] = {.lex_state = 259, .external_lex_state = 6},
-  [6237] = {.lex_state = 1301, .external_lex_state = 5},
-  [6238] = {.lex_state = 1301, .external_lex_state = 5},
-  [6239] = {.lex_state = 259, .external_lex_state = 6},
-  [6240] = {.lex_state = 1301, .external_lex_state = 5},
-  [6241] = {.lex_state = 1301, .external_lex_state = 5},
-  [6242] = {.lex_state = 1301, .external_lex_state = 5},
-  [6243] = {.lex_state = 1301, .external_lex_state = 5},
-  [6244] = {.lex_state = 1301, .external_lex_state = 5},
-  [6245] = {.lex_state = 1301, .external_lex_state = 5},
-  [6246] = {.lex_state = 216, .external_lex_state = 6},
-  [6247] = {.lex_state = 276, .external_lex_state = 6},
-  [6248] = {.lex_state = 1301, .external_lex_state = 5},
-  [6249] = {.lex_state = 276, .external_lex_state = 6},
-  [6250] = {.lex_state = 1301, .external_lex_state = 5},
-  [6251] = {.lex_state = 259, .external_lex_state = 6},
-  [6252] = {.lex_state = 1301, .external_lex_state = 5},
-  [6253] = {.lex_state = 1301, .external_lex_state = 5},
-  [6254] = {.lex_state = 1301, .external_lex_state = 5},
-  [6255] = {.lex_state = 1301, .external_lex_state = 5},
-  [6256] = {.lex_state = 276, .external_lex_state = 6},
-  [6257] = {.lex_state = 1301, .external_lex_state = 5},
-  [6258] = {.lex_state = 276, .external_lex_state = 6},
-  [6259] = {.lex_state = 1301, .external_lex_state = 5},
-  [6260] = {.lex_state = 1301, .external_lex_state = 5},
-  [6261] = {.lex_state = 1301, .external_lex_state = 5},
-  [6262] = {.lex_state = 1301, .external_lex_state = 5},
-  [6263] = {.lex_state = 1301, .external_lex_state = 5},
-  [6264] = {.lex_state = 1301, .external_lex_state = 5},
-  [6265] = {.lex_state = 1301, .external_lex_state = 5},
-  [6266] = {.lex_state = 1301, .external_lex_state = 5},
-  [6267] = {.lex_state = 216, .external_lex_state = 6},
-  [6268] = {.lex_state = 1301, .external_lex_state = 5},
-  [6269] = {.lex_state = 1301, .external_lex_state = 5},
-  [6270] = {.lex_state = 1301, .external_lex_state = 5},
-  [6271] = {.lex_state = 1301, .external_lex_state = 5},
-  [6272] = {.lex_state = 1301, .external_lex_state = 5},
-  [6273] = {.lex_state = 1301, .external_lex_state = 5},
-  [6274] = {.lex_state = 1301, .external_lex_state = 5},
-  [6275] = {.lex_state = 1301, .external_lex_state = 5},
-  [6276] = {.lex_state = 1301, .external_lex_state = 5},
-  [6277] = {.lex_state = 1301, .external_lex_state = 5},
-  [6278] = {.lex_state = 1301, .external_lex_state = 5},
-  [6279] = {.lex_state = 1301, .external_lex_state = 5},
-  [6280] = {.lex_state = 225, .external_lex_state = 6},
-  [6281] = {.lex_state = 1301, .external_lex_state = 5},
-  [6282] = {.lex_state = 1301, .external_lex_state = 5},
-  [6283] = {.lex_state = 276, .external_lex_state = 5},
-  [6284] = {.lex_state = 1301, .external_lex_state = 5},
-  [6285] = {.lex_state = 276, .external_lex_state = 6},
-  [6286] = {.lex_state = 1301, .external_lex_state = 5},
-  [6287] = {.lex_state = 1301, .external_lex_state = 5},
-  [6288] = {.lex_state = 1301, .external_lex_state = 5},
-  [6289] = {.lex_state = 1301, .external_lex_state = 5},
-  [6290] = {.lex_state = 276, .external_lex_state = 6},
-  [6291] = {.lex_state = 1301, .external_lex_state = 5},
-  [6292] = {.lex_state = 1301, .external_lex_state = 5},
-  [6293] = {.lex_state = 1301, .external_lex_state = 5},
-  [6294] = {.lex_state = 276, .external_lex_state = 6},
-  [6295] = {.lex_state = 276, .external_lex_state = 6},
-  [6296] = {.lex_state = 276, .external_lex_state = 6},
-  [6297] = {.lex_state = 1301, .external_lex_state = 5},
-  [6298] = {.lex_state = 1301, .external_lex_state = 5},
-  [6299] = {.lex_state = 1301, .external_lex_state = 5},
-  [6300] = {.lex_state = 1301, .external_lex_state = 5},
-  [6301] = {.lex_state = 314, .external_lex_state = 4},
-  [6302] = {.lex_state = 1301, .external_lex_state = 5},
-  [6303] = {.lex_state = 276, .external_lex_state = 6},
-  [6304] = {.lex_state = 1301, .external_lex_state = 5},
-  [6305] = {.lex_state = 1301, .external_lex_state = 5},
-  [6306] = {.lex_state = 1301, .external_lex_state = 5},
+  [6218] = {.lex_state = 259, .external_lex_state = 6},
+  [6219] = {.lex_state = 1281, .external_lex_state = 5},
+  [6220] = {.lex_state = 1281, .external_lex_state = 5},
+  [6221] = {.lex_state = 259, .external_lex_state = 6},
+  [6222] = {.lex_state = 1281, .external_lex_state = 5},
+  [6223] = {.lex_state = 1281, .external_lex_state = 5},
+  [6224] = {.lex_state = 1281, .external_lex_state = 5},
+  [6225] = {.lex_state = 1281, .external_lex_state = 5},
+  [6226] = {.lex_state = 276, .external_lex_state = 6},
+  [6227] = {.lex_state = 276, .external_lex_state = 6},
+  [6228] = {.lex_state = 1281, .external_lex_state = 5},
+  [6229] = {.lex_state = 1281, .external_lex_state = 5},
+  [6230] = {.lex_state = 1281, .external_lex_state = 5},
+  [6231] = {.lex_state = 1281, .external_lex_state = 12},
+  [6232] = {.lex_state = 1281, .external_lex_state = 5},
+  [6233] = {.lex_state = 314, .external_lex_state = 4},
+  [6234] = {.lex_state = 259, .external_lex_state = 6},
+  [6235] = {.lex_state = 1281, .external_lex_state = 5},
+  [6236] = {.lex_state = 1281, .external_lex_state = 5},
+  [6237] = {.lex_state = 276, .external_lex_state = 5},
+  [6238] = {.lex_state = 276, .external_lex_state = 6},
+  [6239] = {.lex_state = 1281, .external_lex_state = 5},
+  [6240] = {.lex_state = 1281, .external_lex_state = 5},
+  [6241] = {.lex_state = 1281, .external_lex_state = 5},
+  [6242] = {.lex_state = 1281, .external_lex_state = 5},
+  [6243] = {.lex_state = 276, .external_lex_state = 5},
+  [6244] = {.lex_state = 1281, .external_lex_state = 5},
+  [6245] = {.lex_state = 1281, .external_lex_state = 5},
+  [6246] = {.lex_state = 1281, .external_lex_state = 5},
+  [6247] = {.lex_state = 259, .external_lex_state = 6},
+  [6248] = {.lex_state = 1281, .external_lex_state = 5},
+  [6249] = {.lex_state = 259, .external_lex_state = 6},
+  [6250] = {.lex_state = 1281, .external_lex_state = 5},
+  [6251] = {.lex_state = 1281, .external_lex_state = 5},
+  [6252] = {.lex_state = 1281, .external_lex_state = 5},
+  [6253] = {.lex_state = 1281, .external_lex_state = 5},
+  [6254] = {.lex_state = 1281, .external_lex_state = 5},
+  [6255] = {.lex_state = 276, .external_lex_state = 6},
+  [6256] = {.lex_state = 1281, .external_lex_state = 5},
+  [6257] = {.lex_state = 1281, .external_lex_state = 5},
+  [6258] = {.lex_state = 1281, .external_lex_state = 5},
+  [6259] = {.lex_state = 1281, .external_lex_state = 5},
+  [6260] = {.lex_state = 1281, .external_lex_state = 5},
+  [6261] = {.lex_state = 216, .external_lex_state = 6},
+  [6262] = {.lex_state = 314, .external_lex_state = 4},
+  [6263] = {.lex_state = 1281, .external_lex_state = 5},
+  [6264] = {.lex_state = 216, .external_lex_state = 6},
+  [6265] = {.lex_state = 1281, .external_lex_state = 5},
+  [6266] = {.lex_state = 259, .external_lex_state = 6},
+  [6267] = {.lex_state = 259, .external_lex_state = 6},
+  [6268] = {.lex_state = 1281, .external_lex_state = 6},
+  [6269] = {.lex_state = 1281, .external_lex_state = 6},
+  [6270] = {.lex_state = 1281, .external_lex_state = 5},
+  [6271] = {.lex_state = 1281, .external_lex_state = 5},
+  [6272] = {.lex_state = 1281, .external_lex_state = 5},
+  [6273] = {.lex_state = 1281, .external_lex_state = 5},
+  [6274] = {.lex_state = 1281, .external_lex_state = 5},
+  [6275] = {.lex_state = 1281, .external_lex_state = 5},
+  [6276] = {.lex_state = 259, .external_lex_state = 6},
+  [6277] = {.lex_state = 1281, .external_lex_state = 5},
+  [6278] = {.lex_state = 1281, .external_lex_state = 5},
+  [6279] = {.lex_state = 1281, .external_lex_state = 5},
+  [6280] = {.lex_state = 1281, .external_lex_state = 5},
+  [6281] = {.lex_state = 1281, .external_lex_state = 5},
+  [6282] = {.lex_state = 1281, .external_lex_state = 5},
+  [6283] = {.lex_state = 1281, .external_lex_state = 5},
+  [6284] = {.lex_state = 1281, .external_lex_state = 5},
+  [6285] = {.lex_state = 1281, .external_lex_state = 5},
+  [6286] = {.lex_state = 1281, .external_lex_state = 5},
+  [6287] = {.lex_state = 1281, .external_lex_state = 5},
+  [6288] = {.lex_state = 1281, .external_lex_state = 5},
+  [6289] = {.lex_state = 1281, .external_lex_state = 5},
+  [6290] = {.lex_state = 1281, .external_lex_state = 6},
+  [6291] = {.lex_state = 1281, .external_lex_state = 5},
+  [6292] = {.lex_state = 1281, .external_lex_state = 5},
+  [6293] = {.lex_state = 259, .external_lex_state = 6},
+  [6294] = {.lex_state = 314, .external_lex_state = 4},
+  [6295] = {.lex_state = 1281, .external_lex_state = 5},
+  [6296] = {.lex_state = 259, .external_lex_state = 6},
+  [6297] = {.lex_state = 1281, .external_lex_state = 5},
+  [6298] = {.lex_state = 1281, .external_lex_state = 5},
+  [6299] = {.lex_state = 1281, .external_lex_state = 5},
+  [6300] = {.lex_state = 1281, .external_lex_state = 5},
+  [6301] = {.lex_state = 1281, .external_lex_state = 5},
+  [6302] = {.lex_state = 1281, .external_lex_state = 5},
+  [6303] = {.lex_state = 1281, .external_lex_state = 5},
+  [6304] = {.lex_state = 1281, .external_lex_state = 5},
+  [6305] = {.lex_state = 1281, .external_lex_state = 5},
+  [6306] = {.lex_state = 1281, .external_lex_state = 5},
   [6307] = {.lex_state = 276, .external_lex_state = 6},
-  [6308] = {.lex_state = 1301, .external_lex_state = 5},
-  [6309] = {.lex_state = 1301, .external_lex_state = 6},
-  [6310] = {.lex_state = 106, .external_lex_state = 6},
-  [6311] = {.lex_state = 1301, .external_lex_state = 5},
-  [6312] = {.lex_state = 259, .external_lex_state = 5},
-  [6313] = {.lex_state = 1301, .external_lex_state = 5},
-  [6314] = {.lex_state = 1301, .external_lex_state = 5},
-  [6315] = {.lex_state = 259, .external_lex_state = 6},
-  [6316] = {.lex_state = 276, .external_lex_state = 4},
-  [6317] = {.lex_state = 276, .external_lex_state = 6},
-  [6318] = {.lex_state = 259, .external_lex_state = 5},
-  [6319] = {.lex_state = 1301, .external_lex_state = 5},
-  [6320] = {.lex_state = 1301, .external_lex_state = 5},
+  [6308] = {.lex_state = 106, .external_lex_state = 6},
+  [6309] = {.lex_state = 1281, .external_lex_state = 5},
+  [6310] = {.lex_state = 1281, .external_lex_state = 5},
+  [6311] = {.lex_state = 276, .external_lex_state = 6},
+  [6312] = {.lex_state = 106, .external_lex_state = 6},
+  [6313] = {.lex_state = 1281, .external_lex_state = 5},
+  [6314] = {.lex_state = 259, .external_lex_state = 5},
+  [6315] = {.lex_state = 315, .external_lex_state = 6},
+  [6316] = {.lex_state = 106, .external_lex_state = 6},
+  [6317] = {.lex_state = 1281, .external_lex_state = 5},
+  [6318] = {.lex_state = 106, .external_lex_state = 6},
+  [6319] = {.lex_state = 106, .external_lex_state = 6},
+  [6320] = {.lex_state = 106, .external_lex_state = 6},
   [6321] = {.lex_state = 259, .external_lex_state = 6},
-  [6322] = {.lex_state = 106, .external_lex_state = 6},
-  [6323] = {.lex_state = 259, .external_lex_state = 6},
-  [6324] = {.lex_state = 1301, .external_lex_state = 5},
-  [6325] = {.lex_state = 216, .external_lex_state = 6},
-  [6326] = {.lex_state = 106, .external_lex_state = 6},
-  [6327] = {.lex_state = 106, .external_lex_state = 6},
-  [6328] = {.lex_state = 106, .external_lex_state = 6},
-  [6329] = {.lex_state = 1301, .external_lex_state = 5},
-  [6330] = {.lex_state = 1301, .external_lex_state = 5},
-  [6331] = {.lex_state = 106, .external_lex_state = 6},
-  [6332] = {.lex_state = 106, .external_lex_state = 6},
-  [6333] = {.lex_state = 106, .external_lex_state = 6},
-  [6334] = {.lex_state = 106, .external_lex_state = 6},
+  [6322] = {.lex_state = 1281, .external_lex_state = 5},
+  [6323] = {.lex_state = 276, .external_lex_state = 6},
+  [6324] = {.lex_state = 1281, .external_lex_state = 5},
+  [6325] = {.lex_state = 106, .external_lex_state = 6},
+  [6326] = {.lex_state = 259, .external_lex_state = 6},
+  [6327] = {.lex_state = 1281, .external_lex_state = 6},
+  [6328] = {.lex_state = 1281, .external_lex_state = 5},
+  [6329] = {.lex_state = 1281, .external_lex_state = 5},
+  [6330] = {.lex_state = 106, .external_lex_state = 6},
+  [6331] = {.lex_state = 1281, .external_lex_state = 5},
+  [6332] = {.lex_state = 1281, .external_lex_state = 5},
+  [6333] = {.lex_state = 1281, .external_lex_state = 5},
+  [6334] = {.lex_state = 259, .external_lex_state = 6},
   [6335] = {.lex_state = 106, .external_lex_state = 6},
-  [6336] = {.lex_state = 106, .external_lex_state = 6},
-  [6337] = {.lex_state = 106, .external_lex_state = 6},
-  [6338] = {.lex_state = 106, .external_lex_state = 6},
-  [6339] = {.lex_state = 1301, .external_lex_state = 5},
-  [6340] = {.lex_state = 1301, .external_lex_state = 5},
-  [6341] = {.lex_state = 1301, .external_lex_state = 6},
+  [6336] = {.lex_state = 1281, .external_lex_state = 5},
+  [6337] = {.lex_state = 1281, .external_lex_state = 5},
+  [6338] = {.lex_state = 1281, .external_lex_state = 5},
+  [6339] = {.lex_state = 307, .external_lex_state = 6},
+  [6340] = {.lex_state = 106, .external_lex_state = 6},
+  [6341] = {.lex_state = 259, .external_lex_state = 6},
   [6342] = {.lex_state = 106, .external_lex_state = 6},
-  [6343] = {.lex_state = 259, .external_lex_state = 5},
-  [6344] = {.lex_state = 276, .external_lex_state = 5},
-  [6345] = {.lex_state = 1301, .external_lex_state = 5},
+  [6343] = {.lex_state = 276, .external_lex_state = 4},
+  [6344] = {.lex_state = 1281, .external_lex_state = 5},
+  [6345] = {.lex_state = 1281, .external_lex_state = 5},
   [6346] = {.lex_state = 106, .external_lex_state = 6},
-  [6347] = {.lex_state = 259, .external_lex_state = 6},
-  [6348] = {.lex_state = 1301, .external_lex_state = 5},
-  [6349] = {.lex_state = 106, .external_lex_state = 6},
-  [6350] = {.lex_state = 259, .external_lex_state = 5},
-  [6351] = {.lex_state = 1301, .external_lex_state = 5},
-  [6352] = {.lex_state = 106, .external_lex_state = 6},
-  [6353] = {.lex_state = 106, .external_lex_state = 6},
-  [6354] = {.lex_state = 1301, .external_lex_state = 5},
-  [6355] = {.lex_state = 1301, .external_lex_state = 5},
+  [6347] = {.lex_state = 106, .external_lex_state = 6},
+  [6348] = {.lex_state = 276, .external_lex_state = 6},
+  [6349] = {.lex_state = 1281, .external_lex_state = 5},
+  [6350] = {.lex_state = 106, .external_lex_state = 6},
+  [6351] = {.lex_state = 106, .external_lex_state = 6},
+  [6352] = {.lex_state = 1281, .external_lex_state = 5},
+  [6353] = {.lex_state = 1281, .external_lex_state = 5},
+  [6354] = {.lex_state = 1281, .external_lex_state = 5},
+  [6355] = {.lex_state = 1281, .external_lex_state = 5},
   [6356] = {.lex_state = 106, .external_lex_state = 6},
-  [6357] = {.lex_state = 259, .external_lex_state = 6},
-  [6358] = {.lex_state = 259, .external_lex_state = 5},
+  [6357] = {.lex_state = 266, .external_lex_state = 6},
+  [6358] = {.lex_state = 106, .external_lex_state = 6},
   [6359] = {.lex_state = 106, .external_lex_state = 6},
-  [6360] = {.lex_state = 106, .external_lex_state = 6},
-  [6361] = {.lex_state = 106, .external_lex_state = 6},
-  [6362] = {.lex_state = 1301, .external_lex_state = 5},
-  [6363] = {.lex_state = 259, .external_lex_state = 6},
-  [6364] = {.lex_state = 1301, .external_lex_state = 5},
-  [6365] = {.lex_state = 1301, .external_lex_state = 6},
-  [6366] = {.lex_state = 1301, .external_lex_state = 5},
-  [6367] = {.lex_state = 1301, .external_lex_state = 5},
-  [6368] = {.lex_state = 106, .external_lex_state = 6},
+  [6360] = {.lex_state = 1281, .external_lex_state = 5},
+  [6361] = {.lex_state = 1281, .external_lex_state = 5},
+  [6362] = {.lex_state = 106, .external_lex_state = 6},
+  [6363] = {.lex_state = 106, .external_lex_state = 6},
+  [6364] = {.lex_state = 106, .external_lex_state = 6},
+  [6365] = {.lex_state = 1281, .external_lex_state = 5},
+  [6366] = {.lex_state = 1281, .external_lex_state = 5},
+  [6367] = {.lex_state = 1281, .external_lex_state = 5},
+  [6368] = {.lex_state = 1281, .external_lex_state = 5},
   [6369] = {.lex_state = 106, .external_lex_state = 6},
-  [6370] = {.lex_state = 1301, .external_lex_state = 5},
-  [6371] = {.lex_state = 106, .external_lex_state = 6},
-  [6372] = {.lex_state = 1301, .external_lex_state = 6},
-  [6373] = {.lex_state = 106, .external_lex_state = 6},
-  [6374] = {.lex_state = 106, .external_lex_state = 6},
-  [6375] = {.lex_state = 1301, .external_lex_state = 5},
-  [6376] = {.lex_state = 1301, .external_lex_state = 5},
-  [6377] = {.lex_state = 1301, .external_lex_state = 5},
-  [6378] = {.lex_state = 1301, .external_lex_state = 5},
-  [6379] = {.lex_state = 106, .external_lex_state = 6},
-  [6380] = {.lex_state = 259, .external_lex_state = 6},
-  [6381] = {.lex_state = 259, .external_lex_state = 6},
+  [6370] = {.lex_state = 1281, .external_lex_state = 5},
+  [6371] = {.lex_state = 1281, .external_lex_state = 5},
+  [6372] = {.lex_state = 1281, .external_lex_state = 5},
+  [6373] = {.lex_state = 1281, .external_lex_state = 5},
+  [6374] = {.lex_state = 1281, .external_lex_state = 5},
+  [6375] = {.lex_state = 1281, .external_lex_state = 6},
+  [6376] = {.lex_state = 106, .external_lex_state = 6},
+  [6377] = {.lex_state = 259, .external_lex_state = 6},
+  [6378] = {.lex_state = 1281, .external_lex_state = 5},
+  [6379] = {.lex_state = 1281, .external_lex_state = 5},
+  [6380] = {.lex_state = 106, .external_lex_state = 6},
+  [6381] = {.lex_state = 1281, .external_lex_state = 5},
   [6382] = {.lex_state = 106, .external_lex_state = 6},
-  [6383] = {.lex_state = 1301, .external_lex_state = 5},
-  [6384] = {.lex_state = 1301, .external_lex_state = 5},
-  [6385] = {.lex_state = 1301, .external_lex_state = 5},
-  [6386] = {.lex_state = 106, .external_lex_state = 6},
-  [6387] = {.lex_state = 1301, .external_lex_state = 5},
-  [6388] = {.lex_state = 1301, .external_lex_state = 5},
-  [6389] = {.lex_state = 1301, .external_lex_state = 5},
-  [6390] = {.lex_state = 1301, .external_lex_state = 5},
-  [6391] = {.lex_state = 1301, .external_lex_state = 5},
-  [6392] = {.lex_state = 259, .external_lex_state = 5},
-  [6393] = {.lex_state = 1301, .external_lex_state = 5},
-  [6394] = {.lex_state = 106, .external_lex_state = 6},
+  [6383] = {.lex_state = 1281, .external_lex_state = 5},
+  [6384] = {.lex_state = 1281, .external_lex_state = 5},
+  [6385] = {.lex_state = 106, .external_lex_state = 6},
+  [6386] = {.lex_state = 276, .external_lex_state = 6},
+  [6387] = {.lex_state = 1281, .external_lex_state = 5},
+  [6388] = {.lex_state = 106, .external_lex_state = 6},
+  [6389] = {.lex_state = 216, .external_lex_state = 6},
+  [6390] = {.lex_state = 106, .external_lex_state = 6},
+  [6391] = {.lex_state = 1281, .external_lex_state = 5},
+  [6392] = {.lex_state = 1281, .external_lex_state = 5},
+  [6393] = {.lex_state = 106, .external_lex_state = 6},
+  [6394] = {.lex_state = 259, .external_lex_state = 5},
   [6395] = {.lex_state = 106, .external_lex_state = 6},
-  [6396] = {.lex_state = 106, .external_lex_state = 6},
+  [6396] = {.lex_state = 259, .external_lex_state = 5},
   [6397] = {.lex_state = 106, .external_lex_state = 6},
-  [6398] = {.lex_state = 307, .external_lex_state = 6},
-  [6399] = {.lex_state = 1301, .external_lex_state = 5},
-  [6400] = {.lex_state = 106, .external_lex_state = 6},
-  [6401] = {.lex_state = 1301, .external_lex_state = 5},
-  [6402] = {.lex_state = 1301, .external_lex_state = 6},
-  [6403] = {.lex_state = 106, .external_lex_state = 6},
-  [6404] = {.lex_state = 1301, .external_lex_state = 5},
-  [6405] = {.lex_state = 106, .external_lex_state = 6},
-  [6406] = {.lex_state = 1301, .external_lex_state = 5},
-  [6407] = {.lex_state = 106, .external_lex_state = 6},
+  [6398] = {.lex_state = 259, .external_lex_state = 5},
+  [6399] = {.lex_state = 106, .external_lex_state = 6},
+  [6400] = {.lex_state = 1281, .external_lex_state = 5},
+  [6401] = {.lex_state = 106, .external_lex_state = 6},
+  [6402] = {.lex_state = 1281, .external_lex_state = 5},
+  [6403] = {.lex_state = 1281, .external_lex_state = 5},
+  [6404] = {.lex_state = 1281, .external_lex_state = 5},
+  [6405] = {.lex_state = 276, .external_lex_state = 5},
+  [6406] = {.lex_state = 106, .external_lex_state = 6},
+  [6407] = {.lex_state = 1281, .external_lex_state = 5},
   [6408] = {.lex_state = 106, .external_lex_state = 6},
-  [6409] = {.lex_state = 315, .external_lex_state = 6},
-  [6410] = {.lex_state = 266, .external_lex_state = 6},
-  [6411] = {.lex_state = 1301, .external_lex_state = 5},
-  [6412] = {.lex_state = 1301, .external_lex_state = 5},
-  [6413] = {.lex_state = 276, .external_lex_state = 6},
-  [6414] = {.lex_state = 276, .external_lex_state = 6},
-  [6415] = {.lex_state = 266, .external_lex_state = 6},
-  [6416] = {.lex_state = 1301, .external_lex_state = 5},
+  [6409] = {.lex_state = 259, .external_lex_state = 6},
+  [6410] = {.lex_state = 1281, .external_lex_state = 5},
+  [6411] = {.lex_state = 106, .external_lex_state = 6},
+  [6412] = {.lex_state = 106, .external_lex_state = 6},
+  [6413] = {.lex_state = 1281, .external_lex_state = 5},
+  [6414] = {.lex_state = 1281, .external_lex_state = 5},
+  [6415] = {.lex_state = 1281, .external_lex_state = 6},
+  [6416] = {.lex_state = 259, .external_lex_state = 6},
   [6417] = {.lex_state = 106, .external_lex_state = 6},
-  [6418] = {.lex_state = 1301, .external_lex_state = 5},
-  [6419] = {.lex_state = 259, .external_lex_state = 6},
-  [6420] = {.lex_state = 1301, .external_lex_state = 5},
-  [6421] = {.lex_state = 276, .external_lex_state = 4},
-  [6422] = {.lex_state = 1301, .external_lex_state = 5},
-  [6423] = {.lex_state = 1301, .external_lex_state = 5},
-  [6424] = {.lex_state = 1301, .external_lex_state = 5},
-  [6425] = {.lex_state = 1301, .external_lex_state = 5},
+  [6418] = {.lex_state = 259, .external_lex_state = 6},
+  [6419] = {.lex_state = 1281, .external_lex_state = 5},
+  [6420] = {.lex_state = 106, .external_lex_state = 6},
+  [6421] = {.lex_state = 106, .external_lex_state = 6},
+  [6422] = {.lex_state = 259, .external_lex_state = 6},
+  [6423] = {.lex_state = 259, .external_lex_state = 6},
+  [6424] = {.lex_state = 1281, .external_lex_state = 5},
+  [6425] = {.lex_state = 106, .external_lex_state = 6},
   [6426] = {.lex_state = 106, .external_lex_state = 6},
-  [6427] = {.lex_state = 106, .external_lex_state = 6},
-  [6428] = {.lex_state = 1301, .external_lex_state = 5},
-  [6429] = {.lex_state = 276, .external_lex_state = 6},
-  [6430] = {.lex_state = 1301, .external_lex_state = 5},
-  [6431] = {.lex_state = 1301, .external_lex_state = 5},
-  [6432] = {.lex_state = 259, .external_lex_state = 6},
-  [6433] = {.lex_state = 1301, .external_lex_state = 5},
-  [6434] = {.lex_state = 1301, .external_lex_state = 5},
-  [6435] = {.lex_state = 1301, .external_lex_state = 5},
-  [6436] = {.lex_state = 106, .external_lex_state = 6},
-  [6437] = {.lex_state = 106, .external_lex_state = 6},
-  [6438] = {.lex_state = 276, .external_lex_state = 6},
-  [6439] = {.lex_state = 106, .external_lex_state = 6},
-  [6440] = {.lex_state = 1301, .external_lex_state = 5},
-  [6441] = {.lex_state = 1301, .external_lex_state = 5},
-  [6442] = {.lex_state = 266, .external_lex_state = 6},
-  [6443] = {.lex_state = 266, .external_lex_state = 6},
-  [6444] = {.lex_state = 1301, .external_lex_state = 5},
+  [6427] = {.lex_state = 1281, .external_lex_state = 5},
+  [6428] = {.lex_state = 266, .external_lex_state = 6},
+  [6429] = {.lex_state = 1281, .external_lex_state = 5},
+  [6430] = {.lex_state = 106, .external_lex_state = 6},
+  [6431] = {.lex_state = 266, .external_lex_state = 6},
+  [6432] = {.lex_state = 1281, .external_lex_state = 5},
+  [6433] = {.lex_state = 106, .external_lex_state = 6},
+  [6434] = {.lex_state = 266, .external_lex_state = 6},
+  [6435] = {.lex_state = 106, .external_lex_state = 6},
+  [6436] = {.lex_state = 1281, .external_lex_state = 6},
+  [6437] = {.lex_state = 1281, .external_lex_state = 6},
+  [6438] = {.lex_state = 259, .external_lex_state = 5},
+  [6439] = {.lex_state = 1281, .external_lex_state = 5},
+  [6440] = {.lex_state = 1281, .external_lex_state = 5},
+  [6441] = {.lex_state = 1281, .external_lex_state = 5},
+  [6442] = {.lex_state = 1281, .external_lex_state = 5},
+  [6443] = {.lex_state = 1281, .external_lex_state = 5},
+  [6444] = {.lex_state = 1281, .external_lex_state = 5},
   [6445] = {.lex_state = 106, .external_lex_state = 6},
-  [6446] = {.lex_state = 1301, .external_lex_state = 5},
-  [6447] = {.lex_state = 106, .external_lex_state = 6},
-  [6448] = {.lex_state = 1301, .external_lex_state = 5},
-  [6449] = {.lex_state = 1301, .external_lex_state = 5},
-  [6450] = {.lex_state = 1301, .external_lex_state = 5},
-  [6451] = {.lex_state = 1301, .external_lex_state = 5},
-  [6452] = {.lex_state = 1301, .external_lex_state = 6},
-  [6453] = {.lex_state = 1301, .external_lex_state = 6},
-  [6454] = {.lex_state = 256, .external_lex_state = 6},
-  [6455] = {.lex_state = 1301, .external_lex_state = 5},
-  [6456] = {.lex_state = 314, .external_lex_state = 6},
-  [6457] = {.lex_state = 1301, .external_lex_state = 5},
-  [6458] = {.lex_state = 1301, .external_lex_state = 6},
-  [6459] = {.lex_state = 1301, .external_lex_state = 6},
-  [6460] = {.lex_state = 1301, .external_lex_state = 5},
-  [6461] = {.lex_state = 1301, .external_lex_state = 5},
-  [6462] = {.lex_state = 1301, .external_lex_state = 6},
-  [6463] = {.lex_state = 1301, .external_lex_state = 6},
-  [6464] = {.lex_state = 1301, .external_lex_state = 5},
-  [6465] = {.lex_state = 1301, .external_lex_state = 5},
-  [6466] = {.lex_state = 256, .external_lex_state = 6},
-  [6467] = {.lex_state = 254, .external_lex_state = 6},
-  [6468] = {.lex_state = 259, .external_lex_state = 6},
-  [6469] = {.lex_state = 1301, .external_lex_state = 6},
-  [6470] = {.lex_state = 1301, .external_lex_state = 6},
-  [6471] = {.lex_state = 1301, .external_lex_state = 6},
-  [6472] = {.lex_state = 1301, .external_lex_state = 5},
-  [6473] = {.lex_state = 1301, .external_lex_state = 6},
-  [6474] = {.lex_state = 259, .external_lex_state = 6},
-  [6475] = {.lex_state = 1301, .external_lex_state = 5},
-  [6476] = {.lex_state = 256, .external_lex_state = 6},
-  [6477] = {.lex_state = 1301, .external_lex_state = 5},
-  [6478] = {.lex_state = 217, .external_lex_state = 6},
-  [6479] = {.lex_state = 1301, .external_lex_state = 4},
-  [6480] = {.lex_state = 1301, .external_lex_state = 5},
-  [6481] = {.lex_state = 1301, .external_lex_state = 5},
-  [6482] = {.lex_state = 1301, .external_lex_state = 5},
-  [6483] = {.lex_state = 1301, .external_lex_state = 5},
-  [6484] = {.lex_state = 1301, .external_lex_state = 5},
-  [6485] = {.lex_state = 1301, .external_lex_state = 5},
-  [6486] = {.lex_state = 1301, .external_lex_state = 5},
-  [6487] = {.lex_state = 1301, .external_lex_state = 5},
-  [6488] = {.lex_state = 1301, .external_lex_state = 5},
-  [6489] = {.lex_state = 1301, .external_lex_state = 6},
-  [6490] = {.lex_state = 252, .external_lex_state = 6},
-  [6491] = {.lex_state = 1301, .external_lex_state = 6},
-  [6492] = {.lex_state = 258, .external_lex_state = 6},
-  [6493] = {.lex_state = 1301, .external_lex_state = 5},
-  [6494] = {.lex_state = 1301, .external_lex_state = 5},
-  [6495] = {.lex_state = 252, .external_lex_state = 6},
-  [6496] = {.lex_state = 1301, .external_lex_state = 5},
-  [6497] = {.lex_state = 1301, .external_lex_state = 6},
-  [6498] = {.lex_state = 1301, .external_lex_state = 5},
-  [6499] = {.lex_state = 1301, .external_lex_state = 5},
-  [6500] = {.lex_state = 258, .external_lex_state = 6},
-  [6501] = {.lex_state = 1301, .external_lex_state = 5},
-  [6502] = {.lex_state = 1301, .external_lex_state = 5},
-  [6503] = {.lex_state = 252, .external_lex_state = 6},
-  [6504] = {.lex_state = 1301, .external_lex_state = 5},
-  [6505] = {.lex_state = 258, .external_lex_state = 6},
-  [6506] = {.lex_state = 1301, .external_lex_state = 6},
-  [6507] = {.lex_state = 1301, .external_lex_state = 10},
-  [6508] = {.lex_state = 1301, .external_lex_state = 5},
-  [6509] = {.lex_state = 1301, .external_lex_state = 5},
-  [6510] = {.lex_state = 1301, .external_lex_state = 5},
-  [6511] = {.lex_state = 1301, .external_lex_state = 5},
-  [6512] = {.lex_state = 117, .external_lex_state = 6},
-  [6513] = {.lex_state = 1301, .external_lex_state = 5},
-  [6514] = {.lex_state = 1301, .external_lex_state = 5},
-  [6515] = {.lex_state = 1301, .external_lex_state = 6},
-  [6516] = {.lex_state = 1301, .external_lex_state = 5},
-  [6517] = {.lex_state = 1301, .external_lex_state = 10},
-  [6518] = {.lex_state = 1301, .external_lex_state = 5},
-  [6519] = {.lex_state = 253, .external_lex_state = 6},
-  [6520] = {.lex_state = 1301, .external_lex_state = 5},
-  [6521] = {.lex_state = 1301, .external_lex_state = 5},
-  [6522] = {.lex_state = 1301, .external_lex_state = 5},
-  [6523] = {.lex_state = 1301, .external_lex_state = 5},
-  [6524] = {.lex_state = 1301, .external_lex_state = 6},
-  [6525] = {.lex_state = 1301, .external_lex_state = 6},
-  [6526] = {.lex_state = 314, .external_lex_state = 6},
-  [6527] = {.lex_state = 1301, .external_lex_state = 6},
-  [6528] = {.lex_state = 1301, .external_lex_state = 6},
-  [6529] = {.lex_state = 1301, .external_lex_state = 5},
-  [6530] = {.lex_state = 106, .external_lex_state = 6},
-  [6531] = {.lex_state = 1301, .external_lex_state = 5},
-  [6532] = {.lex_state = 253, .external_lex_state = 6},
-  [6533] = {.lex_state = 1301, .external_lex_state = 5},
-  [6534] = {.lex_state = 1301, .external_lex_state = 5},
-  [6535] = {.lex_state = 106, .external_lex_state = 6},
-  [6536] = {.lex_state = 106, .external_lex_state = 6},
-  [6537] = {.lex_state = 1301, .external_lex_state = 6},
-  [6538] = {.lex_state = 106, .external_lex_state = 6},
-  [6539] = {.lex_state = 1301, .external_lex_state = 5},
-  [6540] = {.lex_state = 1301, .external_lex_state = 6},
-  [6541] = {.lex_state = 1301, .external_lex_state = 6},
-  [6542] = {.lex_state = 1301, .external_lex_state = 5},
-  [6543] = {.lex_state = 1301, .external_lex_state = 5},
-  [6544] = {.lex_state = 1301, .external_lex_state = 5},
-  [6545] = {.lex_state = 1301, .external_lex_state = 6},
-  [6546] = {.lex_state = 1301, .external_lex_state = 6},
-  [6547] = {.lex_state = 1301, .external_lex_state = 4},
-  [6548] = {.lex_state = 276, .external_lex_state = 5},
-  [6549] = {.lex_state = 1301, .external_lex_state = 6},
-  [6550] = {.lex_state = 1301, .external_lex_state = 6},
-  [6551] = {.lex_state = 1301, .external_lex_state = 6},
-  [6552] = {.lex_state = 1301, .external_lex_state = 6},
-  [6553] = {.lex_state = 256, .external_lex_state = 6},
-  [6554] = {.lex_state = 1301, .external_lex_state = 6},
-  [6555] = {.lex_state = 259, .external_lex_state = 6},
-  [6556] = {.lex_state = 1301, .external_lex_state = 6},
-  [6557] = {.lex_state = 1301, .external_lex_state = 6},
-  [6558] = {.lex_state = 1301, .external_lex_state = 5},
-  [6559] = {.lex_state = 1301, .external_lex_state = 5},
-  [6560] = {.lex_state = 1301, .external_lex_state = 6},
-  [6561] = {.lex_state = 256, .external_lex_state = 6},
-  [6562] = {.lex_state = 1301, .external_lex_state = 6},
-  [6563] = {.lex_state = 1301, .external_lex_state = 5},
-  [6564] = {.lex_state = 1301, .external_lex_state = 6},
-  [6565] = {.lex_state = 1301, .external_lex_state = 6},
-  [6566] = {.lex_state = 1301, .external_lex_state = 5},
-  [6567] = {.lex_state = 256, .external_lex_state = 6},
-  [6568] = {.lex_state = 1301, .external_lex_state = 6},
-  [6569] = {.lex_state = 1301, .external_lex_state = 5},
-  [6570] = {.lex_state = 1301, .external_lex_state = 5},
-  [6571] = {.lex_state = 252, .external_lex_state = 6},
-  [6572] = {.lex_state = 1301, .external_lex_state = 5},
-  [6573] = {.lex_state = 1301, .external_lex_state = 6},
-  [6574] = {.lex_state = 258, .external_lex_state = 6},
-  [6575] = {.lex_state = 1301, .external_lex_state = 6},
-  [6576] = {.lex_state = 1301, .external_lex_state = 5},
-  [6577] = {.lex_state = 252, .external_lex_state = 6},
-  [6578] = {.lex_state = 1301, .external_lex_state = 5},
-  [6579] = {.lex_state = 258, .external_lex_state = 6},
-  [6580] = {.lex_state = 1301, .external_lex_state = 5},
-  [6581] = {.lex_state = 252, .external_lex_state = 6},
-  [6582] = {.lex_state = 1301, .external_lex_state = 5},
+  [6446] = {.lex_state = 259, .external_lex_state = 5},
+  [6447] = {.lex_state = 1281, .external_lex_state = 5},
+  [6448] = {.lex_state = 276, .external_lex_state = 4},
+  [6449] = {.lex_state = 106, .external_lex_state = 6},
+  [6450] = {.lex_state = 254, .external_lex_state = 6},
+  [6451] = {.lex_state = 1281, .external_lex_state = 5},
+  [6452] = {.lex_state = 1281, .external_lex_state = 6},
+  [6453] = {.lex_state = 1281, .external_lex_state = 6},
+  [6454] = {.lex_state = 1281, .external_lex_state = 6},
+  [6455] = {.lex_state = 1281, .external_lex_state = 6},
+  [6456] = {.lex_state = 1281, .external_lex_state = 6},
+  [6457] = {.lex_state = 1281, .external_lex_state = 5},
+  [6458] = {.lex_state = 1281, .external_lex_state = 5},
+  [6459] = {.lex_state = 1281, .external_lex_state = 5},
+  [6460] = {.lex_state = 1281, .external_lex_state = 6},
+  [6461] = {.lex_state = 1281, .external_lex_state = 5},
+  [6462] = {.lex_state = 1281, .external_lex_state = 5},
+  [6463] = {.lex_state = 259, .external_lex_state = 6},
+  [6464] = {.lex_state = 1281, .external_lex_state = 5},
+  [6465] = {.lex_state = 314, .external_lex_state = 6},
+  [6466] = {.lex_state = 1281, .external_lex_state = 6},
+  [6467] = {.lex_state = 1281, .external_lex_state = 5},
+  [6468] = {.lex_state = 1281, .external_lex_state = 10},
+  [6469] = {.lex_state = 106, .external_lex_state = 6},
+  [6470] = {.lex_state = 106, .external_lex_state = 6},
+  [6471] = {.lex_state = 106, .external_lex_state = 6},
+  [6472] = {.lex_state = 106, .external_lex_state = 6},
+  [6473] = {.lex_state = 1281, .external_lex_state = 5},
+  [6474] = {.lex_state = 1281, .external_lex_state = 6},
+  [6475] = {.lex_state = 1281, .external_lex_state = 6},
+  [6476] = {.lex_state = 1281, .external_lex_state = 5},
+  [6477] = {.lex_state = 1281, .external_lex_state = 5},
+  [6478] = {.lex_state = 314, .external_lex_state = 6},
+  [6479] = {.lex_state = 255, .external_lex_state = 6},
+  [6480] = {.lex_state = 257, .external_lex_state = 6},
+  [6481] = {.lex_state = 256, .external_lex_state = 6},
+  [6482] = {.lex_state = 1281, .external_lex_state = 6},
+  [6483] = {.lex_state = 1281, .external_lex_state = 5},
+  [6484] = {.lex_state = 224, .external_lex_state = 6},
+  [6485] = {.lex_state = 1281, .external_lex_state = 5},
+  [6486] = {.lex_state = 1281, .external_lex_state = 6},
+  [6487] = {.lex_state = 1281, .external_lex_state = 6},
+  [6488] = {.lex_state = 1281, .external_lex_state = 5},
+  [6489] = {.lex_state = 1281, .external_lex_state = 5},
+  [6490] = {.lex_state = 257, .external_lex_state = 6},
+  [6491] = {.lex_state = 1281, .external_lex_state = 5},
+  [6492] = {.lex_state = 256, .external_lex_state = 6},
+  [6493] = {.lex_state = 1281, .external_lex_state = 5},
+  [6494] = {.lex_state = 1281, .external_lex_state = 5},
+  [6495] = {.lex_state = 1281, .external_lex_state = 5},
+  [6496] = {.lex_state = 258, .external_lex_state = 6},
+  [6497] = {.lex_state = 252, .external_lex_state = 6},
+  [6498] = {.lex_state = 1281, .external_lex_state = 5},
+  [6499] = {.lex_state = 1281, .external_lex_state = 5},
+  [6500] = {.lex_state = 224, .external_lex_state = 6},
+  [6501] = {.lex_state = 1281, .external_lex_state = 5},
+  [6502] = {.lex_state = 1281, .external_lex_state = 5},
+  [6503] = {.lex_state = 1281, .external_lex_state = 5},
+  [6504] = {.lex_state = 258, .external_lex_state = 6},
+  [6505] = {.lex_state = 1281, .external_lex_state = 5},
+  [6506] = {.lex_state = 252, .external_lex_state = 6},
+  [6507] = {.lex_state = 1281, .external_lex_state = 5},
+  [6508] = {.lex_state = 1281, .external_lex_state = 5},
+  [6509] = {.lex_state = 255, .external_lex_state = 6},
+  [6510] = {.lex_state = 1281, .external_lex_state = 5},
+  [6511] = {.lex_state = 258, .external_lex_state = 6},
+  [6512] = {.lex_state = 1281, .external_lex_state = 5},
+  [6513] = {.lex_state = 252, .external_lex_state = 6},
+  [6514] = {.lex_state = 259, .external_lex_state = 6},
+  [6515] = {.lex_state = 1281, .external_lex_state = 6},
+  [6516] = {.lex_state = 1281, .external_lex_state = 6},
+  [6517] = {.lex_state = 1281, .external_lex_state = 6},
+  [6518] = {.lex_state = 1281, .external_lex_state = 6},
+  [6519] = {.lex_state = 1281, .external_lex_state = 5},
+  [6520] = {.lex_state = 1281, .external_lex_state = 5},
+  [6521] = {.lex_state = 253, .external_lex_state = 6},
+  [6522] = {.lex_state = 1281, .external_lex_state = 5},
+  [6523] = {.lex_state = 1281, .external_lex_state = 6},
+  [6524] = {.lex_state = 1281, .external_lex_state = 5},
+  [6525] = {.lex_state = 1281, .external_lex_state = 5},
+  [6526] = {.lex_state = 1281, .external_lex_state = 5},
+  [6527] = {.lex_state = 1281, .external_lex_state = 5},
+  [6528] = {.lex_state = 1281, .external_lex_state = 6},
+  [6529] = {.lex_state = 1281, .external_lex_state = 6},
+  [6530] = {.lex_state = 1281, .external_lex_state = 5},
+  [6531] = {.lex_state = 1281, .external_lex_state = 5},
+  [6532] = {.lex_state = 1281, .external_lex_state = 5},
+  [6533] = {.lex_state = 259, .external_lex_state = 6},
+  [6534] = {.lex_state = 1281, .external_lex_state = 5},
+  [6535] = {.lex_state = 1281, .external_lex_state = 5},
+  [6536] = {.lex_state = 1281, .external_lex_state = 5},
+  [6537] = {.lex_state = 255, .external_lex_state = 6},
+  [6538] = {.lex_state = 1281, .external_lex_state = 5},
+  [6539] = {.lex_state = 1281, .external_lex_state = 5},
+  [6540] = {.lex_state = 1281, .external_lex_state = 5},
+  [6541] = {.lex_state = 1281, .external_lex_state = 6},
+  [6542] = {.lex_state = 1281, .external_lex_state = 5},
+  [6543] = {.lex_state = 1281, .external_lex_state = 5},
+  [6544] = {.lex_state = 1281, .external_lex_state = 5},
+  [6545] = {.lex_state = 1281, .external_lex_state = 5},
+  [6546] = {.lex_state = 259, .external_lex_state = 6},
+  [6547] = {.lex_state = 259, .external_lex_state = 6},
+  [6548] = {.lex_state = 1281, .external_lex_state = 5},
+  [6549] = {.lex_state = 1281, .external_lex_state = 5},
+  [6550] = {.lex_state = 1281, .external_lex_state = 5},
+  [6551] = {.lex_state = 1281, .external_lex_state = 5},
+  [6552] = {.lex_state = 314, .external_lex_state = 6},
+  [6553] = {.lex_state = 1281, .external_lex_state = 5},
+  [6554] = {.lex_state = 1281, .external_lex_state = 5},
+  [6555] = {.lex_state = 1281, .external_lex_state = 6},
+  [6556] = {.lex_state = 1281, .external_lex_state = 5},
+  [6557] = {.lex_state = 1281, .external_lex_state = 5},
+  [6558] = {.lex_state = 1281, .external_lex_state = 5},
+  [6559] = {.lex_state = 1281, .external_lex_state = 5},
+  [6560] = {.lex_state = 1281, .external_lex_state = 5},
+  [6561] = {.lex_state = 1281, .external_lex_state = 5},
+  [6562] = {.lex_state = 1281, .external_lex_state = 5},
+  [6563] = {.lex_state = 1281, .external_lex_state = 5},
+  [6564] = {.lex_state = 258, .external_lex_state = 6},
+  [6565] = {.lex_state = 259, .external_lex_state = 6},
+  [6566] = {.lex_state = 253, .external_lex_state = 6},
+  [6567] = {.lex_state = 1281, .external_lex_state = 6},
+  [6568] = {.lex_state = 1281, .external_lex_state = 5},
+  [6569] = {.lex_state = 252, .external_lex_state = 6},
+  [6570] = {.lex_state = 1281, .external_lex_state = 5},
+  [6571] = {.lex_state = 1281, .external_lex_state = 5},
+  [6572] = {.lex_state = 224, .external_lex_state = 6},
+  [6573] = {.lex_state = 1281, .external_lex_state = 5},
+  [6574] = {.lex_state = 259, .external_lex_state = 6},
+  [6575] = {.lex_state = 258, .external_lex_state = 6},
+  [6576] = {.lex_state = 254, .external_lex_state = 6},
+  [6577] = {.lex_state = 1281, .external_lex_state = 5},
+  [6578] = {.lex_state = 1281, .external_lex_state = 5},
+  [6579] = {.lex_state = 224, .external_lex_state = 6},
+  [6580] = {.lex_state = 252, .external_lex_state = 6},
+  [6581] = {.lex_state = 1281, .external_lex_state = 5},
+  [6582] = {.lex_state = 1281, .external_lex_state = 5},
   [6583] = {.lex_state = 258, .external_lex_state = 6},
-  [6584] = {.lex_state = 1301, .external_lex_state = 10},
-  [6585] = {.lex_state = 1301, .external_lex_state = 5},
-  [6586] = {.lex_state = 1301, .external_lex_state = 5},
-  [6587] = {.lex_state = 1301, .external_lex_state = 5},
-  [6588] = {.lex_state = 1301, .external_lex_state = 5},
-  [6589] = {.lex_state = 117, .external_lex_state = 6},
-  [6590] = {.lex_state = 1301, .external_lex_state = 6},
-  [6591] = {.lex_state = 1301, .external_lex_state = 5},
-  [6592] = {.lex_state = 1301, .external_lex_state = 5},
-  [6593] = {.lex_state = 253, .external_lex_state = 6},
-  [6594] = {.lex_state = 1301, .external_lex_state = 5},
-  [6595] = {.lex_state = 1301, .external_lex_state = 5},
-  [6596] = {.lex_state = 1301, .external_lex_state = 5},
-  [6597] = {.lex_state = 1301, .external_lex_state = 5},
-  [6598] = {.lex_state = 257, .external_lex_state = 6},
-  [6599] = {.lex_state = 1301, .external_lex_state = 5},
-  [6600] = {.lex_state = 1301, .external_lex_state = 6},
-  [6601] = {.lex_state = 1301, .external_lex_state = 6},
-  [6602] = {.lex_state = 255, .external_lex_state = 6},
-  [6603] = {.lex_state = 1301, .external_lex_state = 6},
-  [6604] = {.lex_state = 1301, .external_lex_state = 5},
-  [6605] = {.lex_state = 1301, .external_lex_state = 5},
-  [6606] = {.lex_state = 253, .external_lex_state = 6},
-  [6607] = {.lex_state = 1301, .external_lex_state = 5},
-  [6608] = {.lex_state = 1301, .external_lex_state = 5},
-  [6609] = {.lex_state = 1301, .external_lex_state = 5},
-  [6610] = {.lex_state = 226, .external_lex_state = 6},
-  [6611] = {.lex_state = 252, .external_lex_state = 6},
-  [6612] = {.lex_state = 1301, .external_lex_state = 6},
-  [6613] = {.lex_state = 1301, .external_lex_state = 6},
-  [6614] = {.lex_state = 1301, .external_lex_state = 5},
-  [6615] = {.lex_state = 1301, .external_lex_state = 6},
-  [6616] = {.lex_state = 1301, .external_lex_state = 5},
-  [6617] = {.lex_state = 1301, .external_lex_state = 6},
-  [6618] = {.lex_state = 256, .external_lex_state = 6},
-  [6619] = {.lex_state = 1301, .external_lex_state = 6},
-  [6620] = {.lex_state = 1301, .external_lex_state = 6},
-  [6621] = {.lex_state = 1301, .external_lex_state = 6},
-  [6622] = {.lex_state = 1301, .external_lex_state = 5},
-  [6623] = {.lex_state = 1301, .external_lex_state = 5},
-  [6624] = {.lex_state = 256, .external_lex_state = 6},
-  [6625] = {.lex_state = 1301, .external_lex_state = 5},
-  [6626] = {.lex_state = 1301, .external_lex_state = 6},
-  [6627] = {.lex_state = 1301, .external_lex_state = 5},
-  [6628] = {.lex_state = 1301, .external_lex_state = 5},
-  [6629] = {.lex_state = 256, .external_lex_state = 6},
-  [6630] = {.lex_state = 1301, .external_lex_state = 5},
-  [6631] = {.lex_state = 1301, .external_lex_state = 5},
-  [6632] = {.lex_state = 1301, .external_lex_state = 5},
-  [6633] = {.lex_state = 1301, .external_lex_state = 5},
-  [6634] = {.lex_state = 1301, .external_lex_state = 6},
-  [6635] = {.lex_state = 252, .external_lex_state = 6},
-  [6636] = {.lex_state = 258, .external_lex_state = 6},
-  [6637] = {.lex_state = 258, .external_lex_state = 6},
-  [6638] = {.lex_state = 259, .external_lex_state = 6},
-  [6639] = {.lex_state = 1301, .external_lex_state = 5},
-  [6640] = {.lex_state = 1301, .external_lex_state = 5},
-  [6641] = {.lex_state = 1301, .external_lex_state = 5},
-  [6642] = {.lex_state = 252, .external_lex_state = 6},
-  [6643] = {.lex_state = 254, .external_lex_state = 6},
-  [6644] = {.lex_state = 1301, .external_lex_state = 5},
-  [6645] = {.lex_state = 258, .external_lex_state = 6},
-  [6646] = {.lex_state = 254, .external_lex_state = 6},
-  [6647] = {.lex_state = 1301, .external_lex_state = 5},
-  [6648] = {.lex_state = 252, .external_lex_state = 6},
-  [6649] = {.lex_state = 1301, .external_lex_state = 5},
-  [6650] = {.lex_state = 258, .external_lex_state = 6},
-  [6651] = {.lex_state = 1301, .external_lex_state = 6},
-  [6652] = {.lex_state = 1301, .external_lex_state = 10},
-  [6653] = {.lex_state = 1301, .external_lex_state = 5},
-  [6654] = {.lex_state = 1301, .external_lex_state = 5},
-  [6655] = {.lex_state = 1301, .external_lex_state = 5},
-  [6656] = {.lex_state = 117, .external_lex_state = 6},
-  [6657] = {.lex_state = 1301, .external_lex_state = 6},
-  [6658] = {.lex_state = 1301, .external_lex_state = 5},
-  [6659] = {.lex_state = 1301, .external_lex_state = 6},
-  [6660] = {.lex_state = 253, .external_lex_state = 6},
-  [6661] = {.lex_state = 1301, .external_lex_state = 6},
-  [6662] = {.lex_state = 1301, .external_lex_state = 5},
-  [6663] = {.lex_state = 1301, .external_lex_state = 5},
-  [6664] = {.lex_state = 1301, .external_lex_state = 5},
-  [6665] = {.lex_state = 1301, .external_lex_state = 5},
-  [6666] = {.lex_state = 259, .external_lex_state = 6},
-  [6667] = {.lex_state = 1301, .external_lex_state = 5},
-  [6668] = {.lex_state = 1301, .external_lex_state = 6},
-  [6669] = {.lex_state = 1301, .external_lex_state = 6},
-  [6670] = {.lex_state = 1301, .external_lex_state = 6},
-  [6671] = {.lex_state = 1301, .external_lex_state = 5},
-  [6672] = {.lex_state = 1301, .external_lex_state = 5},
-  [6673] = {.lex_state = 253, .external_lex_state = 6},
-  [6674] = {.lex_state = 1301, .external_lex_state = 5},
-  [6675] = {.lex_state = 1301, .external_lex_state = 5},
-  [6676] = {.lex_state = 1301, .external_lex_state = 6},
-  [6677] = {.lex_state = 1301, .external_lex_state = 5},
-  [6678] = {.lex_state = 1301, .external_lex_state = 6},
-  [6679] = {.lex_state = 1301, .external_lex_state = 5},
-  [6680] = {.lex_state = 254, .external_lex_state = 6},
-  [6681] = {.lex_state = 1301, .external_lex_state = 6},
-  [6682] = {.lex_state = 1301, .external_lex_state = 6},
-  [6683] = {.lex_state = 1301, .external_lex_state = 5},
-  [6684] = {.lex_state = 1301, .external_lex_state = 6},
-  [6685] = {.lex_state = 256, .external_lex_state = 6},
-  [6686] = {.lex_state = 259, .external_lex_state = 6},
-  [6687] = {.lex_state = 254, .external_lex_state = 6},
-  [6688] = {.lex_state = 1301, .external_lex_state = 5},
-  [6689] = {.lex_state = 256, .external_lex_state = 6},
-  [6690] = {.lex_state = 1301, .external_lex_state = 6},
-  [6691] = {.lex_state = 1301, .external_lex_state = 5},
-  [6692] = {.lex_state = 1301, .external_lex_state = 5},
-  [6693] = {.lex_state = 256, .external_lex_state = 6},
-  [6694] = {.lex_state = 1301, .external_lex_state = 6},
-  [6695] = {.lex_state = 1301, .external_lex_state = 5},
-  [6696] = {.lex_state = 1301, .external_lex_state = 5},
-  [6697] = {.lex_state = 1301, .external_lex_state = 5},
-  [6698] = {.lex_state = 252, .external_lex_state = 6},
-  [6699] = {.lex_state = 1301, .external_lex_state = 6},
-  [6700] = {.lex_state = 258, .external_lex_state = 6},
-  [6701] = {.lex_state = 1301, .external_lex_state = 5},
-  [6702] = {.lex_state = 1301, .external_lex_state = 6},
-  [6703] = {.lex_state = 252, .external_lex_state = 6},
-  [6704] = {.lex_state = 254, .external_lex_state = 6},
-  [6705] = {.lex_state = 1301, .external_lex_state = 5},
-  [6706] = {.lex_state = 258, .external_lex_state = 6},
-  [6707] = {.lex_state = 1301, .external_lex_state = 5},
-  [6708] = {.lex_state = 252, .external_lex_state = 6},
-  [6709] = {.lex_state = 1301, .external_lex_state = 5},
-  [6710] = {.lex_state = 258, .external_lex_state = 6},
-  [6711] = {.lex_state = 1301, .external_lex_state = 10},
-  [6712] = {.lex_state = 1301, .external_lex_state = 6},
-  [6713] = {.lex_state = 1301, .external_lex_state = 5},
-  [6714] = {.lex_state = 1301, .external_lex_state = 5},
-  [6715] = {.lex_state = 1301, .external_lex_state = 6},
-  [6716] = {.lex_state = 1301, .external_lex_state = 5},
-  [6717] = {.lex_state = 117, .external_lex_state = 6},
-  [6718] = {.lex_state = 1301, .external_lex_state = 6},
-  [6719] = {.lex_state = 1301, .external_lex_state = 5},
-  [6720] = {.lex_state = 106, .external_lex_state = 6},
-  [6721] = {.lex_state = 253, .external_lex_state = 6},
-  [6722] = {.lex_state = 254, .external_lex_state = 6},
-  [6723] = {.lex_state = 1301, .external_lex_state = 5},
-  [6724] = {.lex_state = 1301, .external_lex_state = 5},
-  [6725] = {.lex_state = 1301, .external_lex_state = 5},
-  [6726] = {.lex_state = 1301, .external_lex_state = 5},
-  [6727] = {.lex_state = 1301, .external_lex_state = 5},
-  [6728] = {.lex_state = 1301, .external_lex_state = 5},
-  [6729] = {.lex_state = 1301, .external_lex_state = 5},
-  [6730] = {.lex_state = 1301, .external_lex_state = 5},
-  [6731] = {.lex_state = 253, .external_lex_state = 6},
-  [6732] = {.lex_state = 1301, .external_lex_state = 5},
-  [6733] = {.lex_state = 1301, .external_lex_state = 5},
-  [6734] = {.lex_state = 1301, .external_lex_state = 5},
-  [6735] = {.lex_state = 224, .external_lex_state = 6},
-  [6736] = {.lex_state = 1301, .external_lex_state = 5},
-  [6737] = {.lex_state = 1301, .external_lex_state = 5},
-  [6738] = {.lex_state = 257, .external_lex_state = 6},
-  [6739] = {.lex_state = 1301, .external_lex_state = 5},
-  [6740] = {.lex_state = 1301, .external_lex_state = 5},
-  [6741] = {.lex_state = 1301, .external_lex_state = 5},
-  [6742] = {.lex_state = 256, .external_lex_state = 6},
-  [6743] = {.lex_state = 255, .external_lex_state = 6},
-  [6744] = {.lex_state = 1301, .external_lex_state = 6},
-  [6745] = {.lex_state = 1301, .external_lex_state = 5},
-  [6746] = {.lex_state = 1301, .external_lex_state = 5},
-  [6747] = {.lex_state = 1301, .external_lex_state = 5},
-  [6748] = {.lex_state = 1301, .external_lex_state = 5},
-  [6749] = {.lex_state = 1301, .external_lex_state = 5},
-  [6750] = {.lex_state = 217, .external_lex_state = 6},
-  [6751] = {.lex_state = 1301, .external_lex_state = 5},
-  [6752] = {.lex_state = 256, .external_lex_state = 6},
-  [6753] = {.lex_state = 1301, .external_lex_state = 6},
-  [6754] = {.lex_state = 276, .external_lex_state = 5},
-  [6755] = {.lex_state = 1301, .external_lex_state = 5},
-  [6756] = {.lex_state = 256, .external_lex_state = 6},
-  [6757] = {.lex_state = 1301, .external_lex_state = 5},
-  [6758] = {.lex_state = 1301, .external_lex_state = 5},
-  [6759] = {.lex_state = 1301, .external_lex_state = 5},
-  [6760] = {.lex_state = 1301, .external_lex_state = 6},
+  [6584] = {.lex_state = 1281, .external_lex_state = 5},
+  [6585] = {.lex_state = 252, .external_lex_state = 6},
+  [6586] = {.lex_state = 254, .external_lex_state = 6},
+  [6587] = {.lex_state = 254, .external_lex_state = 6},
+  [6588] = {.lex_state = 1281, .external_lex_state = 5},
+  [6589] = {.lex_state = 1281, .external_lex_state = 5},
+  [6590] = {.lex_state = 1281, .external_lex_state = 10},
+  [6591] = {.lex_state = 117, .external_lex_state = 6},
+  [6592] = {.lex_state = 1281, .external_lex_state = 5},
+  [6593] = {.lex_state = 1281, .external_lex_state = 5},
+  [6594] = {.lex_state = 259, .external_lex_state = 6},
+  [6595] = {.lex_state = 1281, .external_lex_state = 5},
+  [6596] = {.lex_state = 255, .external_lex_state = 6},
+  [6597] = {.lex_state = 1281, .external_lex_state = 5},
+  [6598] = {.lex_state = 1281, .external_lex_state = 5},
+  [6599] = {.lex_state = 117, .external_lex_state = 6},
+  [6600] = {.lex_state = 1281, .external_lex_state = 5},
+  [6601] = {.lex_state = 1281, .external_lex_state = 5},
+  [6602] = {.lex_state = 106, .external_lex_state = 6},
+  [6603] = {.lex_state = 259, .external_lex_state = 6},
+  [6604] = {.lex_state = 1281, .external_lex_state = 5},
+  [6605] = {.lex_state = 1281, .external_lex_state = 5},
+  [6606] = {.lex_state = 1281, .external_lex_state = 5},
+  [6607] = {.lex_state = 1281, .external_lex_state = 5},
+  [6608] = {.lex_state = 224, .external_lex_state = 6},
+  [6609] = {.lex_state = 1281, .external_lex_state = 5},
+  [6610] = {.lex_state = 252, .external_lex_state = 6},
+  [6611] = {.lex_state = 1281, .external_lex_state = 10},
+  [6612] = {.lex_state = 1281, .external_lex_state = 5},
+  [6613] = {.lex_state = 252, .external_lex_state = 6},
+  [6614] = {.lex_state = 1281, .external_lex_state = 5},
+  [6615] = {.lex_state = 253, .external_lex_state = 6},
+  [6616] = {.lex_state = 258, .external_lex_state = 6},
+  [6617] = {.lex_state = 1281, .external_lex_state = 5},
+  [6618] = {.lex_state = 1281, .external_lex_state = 5},
+  [6619] = {.lex_state = 1281, .external_lex_state = 5},
+  [6620] = {.lex_state = 1281, .external_lex_state = 5},
+  [6621] = {.lex_state = 1281, .external_lex_state = 5},
+  [6622] = {.lex_state = 1281, .external_lex_state = 5},
+  [6623] = {.lex_state = 216, .external_lex_state = 6},
+  [6624] = {.lex_state = 252, .external_lex_state = 6},
+  [6625] = {.lex_state = 258, .external_lex_state = 6},
+  [6626] = {.lex_state = 1281, .external_lex_state = 6},
+  [6627] = {.lex_state = 1281, .external_lex_state = 5},
+  [6628] = {.lex_state = 1281, .external_lex_state = 5},
+  [6629] = {.lex_state = 1281, .external_lex_state = 5},
+  [6630] = {.lex_state = 258, .external_lex_state = 6},
+  [6631] = {.lex_state = 1281, .external_lex_state = 5},
+  [6632] = {.lex_state = 252, .external_lex_state = 6},
+  [6633] = {.lex_state = 259, .external_lex_state = 6},
+  [6634] = {.lex_state = 1281, .external_lex_state = 6},
+  [6635] = {.lex_state = 1281, .external_lex_state = 5},
+  [6636] = {.lex_state = 1281, .external_lex_state = 6},
+  [6637] = {.lex_state = 1281, .external_lex_state = 5},
+  [6638] = {.lex_state = 1281, .external_lex_state = 5},
+  [6639] = {.lex_state = 1281, .external_lex_state = 5},
+  [6640] = {.lex_state = 1281, .external_lex_state = 5},
+  [6641] = {.lex_state = 253, .external_lex_state = 6},
+  [6642] = {.lex_state = 1281, .external_lex_state = 5},
+  [6643] = {.lex_state = 1281, .external_lex_state = 5},
+  [6644] = {.lex_state = 224, .external_lex_state = 6},
+  [6645] = {.lex_state = 1281, .external_lex_state = 5},
+  [6646] = {.lex_state = 258, .external_lex_state = 6},
+  [6647] = {.lex_state = 253, .external_lex_state = 6},
+  [6648] = {.lex_state = 1281, .external_lex_state = 5},
+  [6649] = {.lex_state = 1281, .external_lex_state = 5},
+  [6650] = {.lex_state = 1281, .external_lex_state = 5},
+  [6651] = {.lex_state = 256, .external_lex_state = 6},
+  [6652] = {.lex_state = 1281, .external_lex_state = 5},
+  [6653] = {.lex_state = 252, .external_lex_state = 6},
+  [6654] = {.lex_state = 1281, .external_lex_state = 6},
+  [6655] = {.lex_state = 1281, .external_lex_state = 5},
+  [6656] = {.lex_state = 257, .external_lex_state = 6},
+  [6657] = {.lex_state = 1281, .external_lex_state = 5},
+  [6658] = {.lex_state = 224, .external_lex_state = 6},
+  [6659] = {.lex_state = 1281, .external_lex_state = 5},
+  [6660] = {.lex_state = 1281, .external_lex_state = 6},
+  [6661] = {.lex_state = 1281, .external_lex_state = 6},
+  [6662] = {.lex_state = 256, .external_lex_state = 6},
+  [6663] = {.lex_state = 1281, .external_lex_state = 6},
+  [6664] = {.lex_state = 1281, .external_lex_state = 5},
+  [6665] = {.lex_state = 257, .external_lex_state = 6},
+  [6666] = {.lex_state = 1281, .external_lex_state = 5},
+  [6667] = {.lex_state = 1281, .external_lex_state = 5},
+  [6668] = {.lex_state = 1281, .external_lex_state = 5},
+  [6669] = {.lex_state = 1281, .external_lex_state = 5},
+  [6670] = {.lex_state = 1281, .external_lex_state = 6},
+  [6671] = {.lex_state = 1281, .external_lex_state = 6},
+  [6672] = {.lex_state = 259, .external_lex_state = 6},
+  [6673] = {.lex_state = 1281, .external_lex_state = 6},
+  [6674] = {.lex_state = 1281, .external_lex_state = 5},
+  [6675] = {.lex_state = 1281, .external_lex_state = 5},
+  [6676] = {.lex_state = 258, .external_lex_state = 6},
+  [6677] = {.lex_state = 259, .external_lex_state = 6},
+  [6678] = {.lex_state = 1281, .external_lex_state = 5},
+  [6679] = {.lex_state = 1281, .external_lex_state = 5},
+  [6680] = {.lex_state = 258, .external_lex_state = 6},
+  [6681] = {.lex_state = 1281, .external_lex_state = 6},
+  [6682] = {.lex_state = 1281, .external_lex_state = 5},
+  [6683] = {.lex_state = 1281, .external_lex_state = 5},
+  [6684] = {.lex_state = 1281, .external_lex_state = 5},
+  [6685] = {.lex_state = 1281, .external_lex_state = 5},
+  [6686] = {.lex_state = 1281, .external_lex_state = 5},
+  [6687] = {.lex_state = 255, .external_lex_state = 6},
+  [6688] = {.lex_state = 255, .external_lex_state = 6},
+  [6689] = {.lex_state = 1281, .external_lex_state = 5},
+  [6690] = {.lex_state = 252, .external_lex_state = 6},
+  [6691] = {.lex_state = 1281, .external_lex_state = 6},
+  [6692] = {.lex_state = 259, .external_lex_state = 6},
+  [6693] = {.lex_state = 259, .external_lex_state = 6},
+  [6694] = {.lex_state = 1281, .external_lex_state = 5},
+  [6695] = {.lex_state = 1281, .external_lex_state = 5},
+  [6696] = {.lex_state = 1281, .external_lex_state = 5},
+  [6697] = {.lex_state = 216, .external_lex_state = 6},
+  [6698] = {.lex_state = 1281, .external_lex_state = 6},
+  [6699] = {.lex_state = 314, .external_lex_state = 6},
+  [6700] = {.lex_state = 1281, .external_lex_state = 6},
+  [6701] = {.lex_state = 1281, .external_lex_state = 6},
+  [6702] = {.lex_state = 1281, .external_lex_state = 6},
+  [6703] = {.lex_state = 1281, .external_lex_state = 5},
+  [6704] = {.lex_state = 1281, .external_lex_state = 6},
+  [6705] = {.lex_state = 1281, .external_lex_state = 6},
+  [6706] = {.lex_state = 1281, .external_lex_state = 6},
+  [6707] = {.lex_state = 1281, .external_lex_state = 5},
+  [6708] = {.lex_state = 1281, .external_lex_state = 6},
+  [6709] = {.lex_state = 1281, .external_lex_state = 6},
+  [6710] = {.lex_state = 1281, .external_lex_state = 5},
+  [6711] = {.lex_state = 1281, .external_lex_state = 5},
+  [6712] = {.lex_state = 255, .external_lex_state = 6},
+  [6713] = {.lex_state = 1281, .external_lex_state = 5},
+  [6714] = {.lex_state = 1281, .external_lex_state = 5},
+  [6715] = {.lex_state = 255, .external_lex_state = 6},
+  [6716] = {.lex_state = 1281, .external_lex_state = 6},
+  [6717] = {.lex_state = 1281, .external_lex_state = 6},
+  [6718] = {.lex_state = 1281, .external_lex_state = 5},
+  [6719] = {.lex_state = 259, .external_lex_state = 6},
+  [6720] = {.lex_state = 1281, .external_lex_state = 5},
+  [6721] = {.lex_state = 1281, .external_lex_state = 5},
+  [6722] = {.lex_state = 1281, .external_lex_state = 5},
+  [6723] = {.lex_state = 254, .external_lex_state = 6},
+  [6724] = {.lex_state = 1281, .external_lex_state = 6},
+  [6725] = {.lex_state = 254, .external_lex_state = 6},
+  [6726] = {.lex_state = 1281, .external_lex_state = 5},
+  [6727] = {.lex_state = 1281, .external_lex_state = 5},
+  [6728] = {.lex_state = 1281, .external_lex_state = 5},
+  [6729] = {.lex_state = 255, .external_lex_state = 6},
+  [6730] = {.lex_state = 255, .external_lex_state = 6},
+  [6731] = {.lex_state = 1281, .external_lex_state = 5},
+  [6732] = {.lex_state = 1281, .external_lex_state = 6},
+  [6733] = {.lex_state = 1281, .external_lex_state = 6},
+  [6734] = {.lex_state = 1281, .external_lex_state = 6},
+  [6735] = {.lex_state = 1281, .external_lex_state = 6},
+  [6736] = {.lex_state = 1281, .external_lex_state = 5},
+  [6737] = {.lex_state = 1281, .external_lex_state = 5},
+  [6738] = {.lex_state = 1281, .external_lex_state = 6},
+  [6739] = {.lex_state = 1281, .external_lex_state = 6},
+  [6740] = {.lex_state = 258, .external_lex_state = 6},
+  [6741] = {.lex_state = 1281, .external_lex_state = 5},
+  [6742] = {.lex_state = 1281, .external_lex_state = 5},
+  [6743] = {.lex_state = 1281, .external_lex_state = 6},
+  [6744] = {.lex_state = 1281, .external_lex_state = 6},
+  [6745] = {.lex_state = 252, .external_lex_state = 6},
+  [6746] = {.lex_state = 1281, .external_lex_state = 6},
+  [6747] = {.lex_state = 256, .external_lex_state = 6},
+  [6748] = {.lex_state = 1281, .external_lex_state = 6},
+  [6749] = {.lex_state = 1281, .external_lex_state = 5},
+  [6750] = {.lex_state = 1281, .external_lex_state = 5},
+  [6751] = {.lex_state = 258, .external_lex_state = 6},
+  [6752] = {.lex_state = 1281, .external_lex_state = 6},
+  [6753] = {.lex_state = 1281, .external_lex_state = 6},
+  [6754] = {.lex_state = 1281, .external_lex_state = 5},
+  [6755] = {.lex_state = 1281, .external_lex_state = 5},
+  [6756] = {.lex_state = 252, .external_lex_state = 6},
+  [6757] = {.lex_state = 259, .external_lex_state = 6},
+  [6758] = {.lex_state = 1281, .external_lex_state = 5},
+  [6759] = {.lex_state = 258, .external_lex_state = 6},
+  [6760] = {.lex_state = 1281, .external_lex_state = 5},
   [6761] = {.lex_state = 252, .external_lex_state = 6},
-  [6762] = {.lex_state = 252, .external_lex_state = 6},
-  [6763] = {.lex_state = 258, .external_lex_state = 6},
-  [6764] = {.lex_state = 217, .external_lex_state = 6},
-  [6765] = {.lex_state = 1301, .external_lex_state = 5},
-  [6766] = {.lex_state = 252, .external_lex_state = 6},
-  [6767] = {.lex_state = 1301, .external_lex_state = 5},
-  [6768] = {.lex_state = 258, .external_lex_state = 6},
-  [6769] = {.lex_state = 258, .external_lex_state = 6},
-  [6770] = {.lex_state = 1301, .external_lex_state = 5},
-  [6771] = {.lex_state = 252, .external_lex_state = 6},
-  [6772] = {.lex_state = 1301, .external_lex_state = 5},
-  [6773] = {.lex_state = 258, .external_lex_state = 6},
-  [6774] = {.lex_state = 1301, .external_lex_state = 10},
-  [6775] = {.lex_state = 1301, .external_lex_state = 6},
-  [6776] = {.lex_state = 1301, .external_lex_state = 5},
-  [6777] = {.lex_state = 1301, .external_lex_state = 5},
-  [6778] = {.lex_state = 1301, .external_lex_state = 5},
-  [6779] = {.lex_state = 117, .external_lex_state = 6},
-  [6780] = {.lex_state = 1301, .external_lex_state = 5},
-  [6781] = {.lex_state = 253, .external_lex_state = 6},
-  [6782] = {.lex_state = 1301, .external_lex_state = 6},
-  [6783] = {.lex_state = 1301, .external_lex_state = 5},
-  [6784] = {.lex_state = 1301, .external_lex_state = 5},
-  [6785] = {.lex_state = 1301, .external_lex_state = 5},
-  [6786] = {.lex_state = 1301, .external_lex_state = 5},
-  [6787] = {.lex_state = 1301, .external_lex_state = 6},
-  [6788] = {.lex_state = 1301, .external_lex_state = 6},
-  [6789] = {.lex_state = 1301, .external_lex_state = 5},
-  [6790] = {.lex_state = 1301, .external_lex_state = 5},
-  [6791] = {.lex_state = 253, .external_lex_state = 6},
-  [6792] = {.lex_state = 1301, .external_lex_state = 5},
-  [6793] = {.lex_state = 1301, .external_lex_state = 5},
-  [6794] = {.lex_state = 1301, .external_lex_state = 10},
-  [6795] = {.lex_state = 1301, .external_lex_state = 6},
-  [6796] = {.lex_state = 1301, .external_lex_state = 5},
-  [6797] = {.lex_state = 1301, .external_lex_state = 5},
-  [6798] = {.lex_state = 216, .external_lex_state = 6},
-  [6799] = {.lex_state = 224, .external_lex_state = 6},
-  [6800] = {.lex_state = 259, .external_lex_state = 6},
-  [6801] = {.lex_state = 1301, .external_lex_state = 5},
-  [6802] = {.lex_state = 256, .external_lex_state = 6},
-  [6803] = {.lex_state = 1301, .external_lex_state = 5},
-  [6804] = {.lex_state = 1301, .external_lex_state = 5},
-  [6805] = {.lex_state = 1301, .external_lex_state = 4},
-  [6806] = {.lex_state = 1301, .external_lex_state = 5},
-  [6807] = {.lex_state = 1301, .external_lex_state = 5},
-  [6808] = {.lex_state = 1301, .external_lex_state = 6},
-  [6809] = {.lex_state = 1301, .external_lex_state = 5},
-  [6810] = {.lex_state = 226, .external_lex_state = 6},
-  [6811] = {.lex_state = 256, .external_lex_state = 6},
-  [6812] = {.lex_state = 117, .external_lex_state = 6},
-  [6813] = {.lex_state = 1301, .external_lex_state = 5},
-  [6814] = {.lex_state = 256, .external_lex_state = 6},
-  [6815] = {.lex_state = 1301, .external_lex_state = 5},
-  [6816] = {.lex_state = 1301, .external_lex_state = 6},
-  [6817] = {.lex_state = 1301, .external_lex_state = 5},
-  [6818] = {.lex_state = 1301, .external_lex_state = 5},
-  [6819] = {.lex_state = 252, .external_lex_state = 6},
-  [6820] = {.lex_state = 276, .external_lex_state = 6},
-  [6821] = {.lex_state = 252, .external_lex_state = 6},
-  [6822] = {.lex_state = 258, .external_lex_state = 6},
-  [6823] = {.lex_state = 1301, .external_lex_state = 5},
-  [6824] = {.lex_state = 252, .external_lex_state = 6},
-  [6825] = {.lex_state = 258, .external_lex_state = 6},
-  [6826] = {.lex_state = 1301, .external_lex_state = 5},
-  [6827] = {.lex_state = 259, .external_lex_state = 6},
-  [6828] = {.lex_state = 258, .external_lex_state = 6},
-  [6829] = {.lex_state = 1301, .external_lex_state = 5},
-  [6830] = {.lex_state = 252, .external_lex_state = 6},
-  [6831] = {.lex_state = 1301, .external_lex_state = 5},
-  [6832] = {.lex_state = 258, .external_lex_state = 6},
-  [6833] = {.lex_state = 1301, .external_lex_state = 5},
-  [6834] = {.lex_state = 1301, .external_lex_state = 10},
-  [6835] = {.lex_state = 1301, .external_lex_state = 5},
-  [6836] = {.lex_state = 1301, .external_lex_state = 5},
+  [6762] = {.lex_state = 226, .external_lex_state = 6},
+  [6763] = {.lex_state = 1281, .external_lex_state = 6},
+  [6764] = {.lex_state = 259, .external_lex_state = 6},
+  [6765] = {.lex_state = 1281, .external_lex_state = 10},
+  [6766] = {.lex_state = 1281, .external_lex_state = 6},
+  [6767] = {.lex_state = 1281, .external_lex_state = 5},
+  [6768] = {.lex_state = 1281, .external_lex_state = 5},
+  [6769] = {.lex_state = 1281, .external_lex_state = 6},
+  [6770] = {.lex_state = 1281, .external_lex_state = 5},
+  [6771] = {.lex_state = 254, .external_lex_state = 6},
+  [6772] = {.lex_state = 254, .external_lex_state = 6},
+  [6773] = {.lex_state = 1281, .external_lex_state = 5},
+  [6774] = {.lex_state = 117, .external_lex_state = 6},
+  [6775] = {.lex_state = 255, .external_lex_state = 6},
+  [6776] = {.lex_state = 257, .external_lex_state = 6},
+  [6777] = {.lex_state = 1281, .external_lex_state = 5},
+  [6778] = {.lex_state = 1281, .external_lex_state = 5},
+  [6779] = {.lex_state = 1281, .external_lex_state = 5},
+  [6780] = {.lex_state = 1281, .external_lex_state = 4},
+  [6781] = {.lex_state = 1281, .external_lex_state = 5},
+  [6782] = {.lex_state = 314, .external_lex_state = 6},
+  [6783] = {.lex_state = 117, .external_lex_state = 6},
+  [6784] = {.lex_state = 117, .external_lex_state = 6},
+  [6785] = {.lex_state = 1281, .external_lex_state = 5},
+  [6786] = {.lex_state = 1281, .external_lex_state = 5},
+  [6787] = {.lex_state = 253, .external_lex_state = 6},
+  [6788] = {.lex_state = 1281, .external_lex_state = 6},
+  [6789] = {.lex_state = 1281, .external_lex_state = 5},
+  [6790] = {.lex_state = 1281, .external_lex_state = 5},
+  [6791] = {.lex_state = 1281, .external_lex_state = 5},
+  [6792] = {.lex_state = 1281, .external_lex_state = 5},
+  [6793] = {.lex_state = 117, .external_lex_state = 6},
+  [6794] = {.lex_state = 117, .external_lex_state = 6},
+  [6795] = {.lex_state = 117, .external_lex_state = 6},
+  [6796] = {.lex_state = 1281, .external_lex_state = 5},
+  [6797] = {.lex_state = 1281, .external_lex_state = 6},
+  [6798] = {.lex_state = 117, .external_lex_state = 6},
+  [6799] = {.lex_state = 1281, .external_lex_state = 5},
+  [6800] = {.lex_state = 117, .external_lex_state = 6},
+  [6801] = {.lex_state = 117, .external_lex_state = 6},
+  [6802] = {.lex_state = 1281, .external_lex_state = 6},
+  [6803] = {.lex_state = 1281, .external_lex_state = 6},
+  [6804] = {.lex_state = 1281, .external_lex_state = 6},
+  [6805] = {.lex_state = 117, .external_lex_state = 6},
+  [6806] = {.lex_state = 1281, .external_lex_state = 5},
+  [6807] = {.lex_state = 117, .external_lex_state = 6},
+  [6808] = {.lex_state = 1281, .external_lex_state = 5},
+  [6809] = {.lex_state = 253, .external_lex_state = 6},
+  [6810] = {.lex_state = 1281, .external_lex_state = 5},
+  [6811] = {.lex_state = 1281, .external_lex_state = 5},
+  [6812] = {.lex_state = 1281, .external_lex_state = 5},
+  [6813] = {.lex_state = 117, .external_lex_state = 6},
+  [6814] = {.lex_state = 224, .external_lex_state = 6},
+  [6815] = {.lex_state = 1281, .external_lex_state = 6},
+  [6816] = {.lex_state = 117, .external_lex_state = 6},
+  [6817] = {.lex_state = 1281, .external_lex_state = 6},
+  [6818] = {.lex_state = 117, .external_lex_state = 6},
+  [6819] = {.lex_state = 276, .external_lex_state = 5},
+  [6820] = {.lex_state = 117, .external_lex_state = 6},
+  [6821] = {.lex_state = 1281, .external_lex_state = 6},
+  [6822] = {.lex_state = 1281, .external_lex_state = 6},
+  [6823] = {.lex_state = 1281, .external_lex_state = 6},
+  [6824] = {.lex_state = 1281, .external_lex_state = 6},
+  [6825] = {.lex_state = 1281, .external_lex_state = 5},
+  [6826] = {.lex_state = 117, .external_lex_state = 6},
+  [6827] = {.lex_state = 1281, .external_lex_state = 5},
+  [6828] = {.lex_state = 1281, .external_lex_state = 5},
+  [6829] = {.lex_state = 276, .external_lex_state = 6},
+  [6830] = {.lex_state = 1281, .external_lex_state = 5},
+  [6831] = {.lex_state = 117, .external_lex_state = 6},
+  [6832] = {.lex_state = 1281, .external_lex_state = 6},
+  [6833] = {.lex_state = 1281, .external_lex_state = 6},
+  [6834] = {.lex_state = 1281, .external_lex_state = 6},
+  [6835] = {.lex_state = 1281, .external_lex_state = 6},
+  [6836] = {.lex_state = 1281, .external_lex_state = 5},
   [6837] = {.lex_state = 117, .external_lex_state = 6},
-  [6838] = {.lex_state = 224, .external_lex_state = 6},
-  [6839] = {.lex_state = 1301, .external_lex_state = 5},
-  [6840] = {.lex_state = 253, .external_lex_state = 6},
-  [6841] = {.lex_state = 253, .external_lex_state = 6},
-  [6842] = {.lex_state = 1301, .external_lex_state = 5},
-  [6843] = {.lex_state = 1301, .external_lex_state = 5},
-  [6844] = {.lex_state = 1301, .external_lex_state = 5},
-  [6845] = {.lex_state = 1301, .external_lex_state = 5},
-  [6846] = {.lex_state = 1301, .external_lex_state = 5},
-  [6847] = {.lex_state = 1301, .external_lex_state = 6},
-  [6848] = {.lex_state = 1301, .external_lex_state = 5},
-  [6849] = {.lex_state = 253, .external_lex_state = 6},
-  [6850] = {.lex_state = 1301, .external_lex_state = 5},
-  [6851] = {.lex_state = 1301, .external_lex_state = 5},
-  [6852] = {.lex_state = 253, .external_lex_state = 6},
-  [6853] = {.lex_state = 1301, .external_lex_state = 5},
-  [6854] = {.lex_state = 1301, .external_lex_state = 5},
-  [6855] = {.lex_state = 1301, .external_lex_state = 5},
-  [6856] = {.lex_state = 1301, .external_lex_state = 5},
-  [6857] = {.lex_state = 1301, .external_lex_state = 5},
-  [6858] = {.lex_state = 1301, .external_lex_state = 5},
-  [6859] = {.lex_state = 1301, .external_lex_state = 5},
-  [6860] = {.lex_state = 1301, .external_lex_state = 5},
-  [6861] = {.lex_state = 1301, .external_lex_state = 6},
-  [6862] = {.lex_state = 1301, .external_lex_state = 5},
-  [6863] = {.lex_state = 256, .external_lex_state = 6},
-  [6864] = {.lex_state = 1301, .external_lex_state = 5},
-  [6865] = {.lex_state = 1301, .external_lex_state = 5},
-  [6866] = {.lex_state = 1301, .external_lex_state = 5},
-  [6867] = {.lex_state = 1301, .external_lex_state = 5},
-  [6868] = {.lex_state = 252, .external_lex_state = 6},
-  [6869] = {.lex_state = 258, .external_lex_state = 6},
-  [6870] = {.lex_state = 1301, .external_lex_state = 5},
-  [6871] = {.lex_state = 1301, .external_lex_state = 6},
-  [6872] = {.lex_state = 1301, .external_lex_state = 5},
-  [6873] = {.lex_state = 252, .external_lex_state = 6},
-  [6874] = {.lex_state = 1301, .external_lex_state = 5},
-  [6875] = {.lex_state = 1301, .external_lex_state = 6},
-  [6876] = {.lex_state = 1301, .external_lex_state = 5},
-  [6877] = {.lex_state = 1301, .external_lex_state = 5},
-  [6878] = {.lex_state = 258, .external_lex_state = 6},
-  [6879] = {.lex_state = 1301, .external_lex_state = 5},
-  [6880] = {.lex_state = 1301, .external_lex_state = 5},
-  [6881] = {.lex_state = 252, .external_lex_state = 6},
-  [6882] = {.lex_state = 1301, .external_lex_state = 5},
-  [6883] = {.lex_state = 258, .external_lex_state = 6},
-  [6884] = {.lex_state = 1301, .external_lex_state = 5},
-  [6885] = {.lex_state = 1301, .external_lex_state = 10},
-  [6886] = {.lex_state = 1301, .external_lex_state = 5},
-  [6887] = {.lex_state = 1301, .external_lex_state = 5},
-  [6888] = {.lex_state = 1301, .external_lex_state = 5},
-  [6889] = {.lex_state = 117, .external_lex_state = 6},
-  [6890] = {.lex_state = 1301, .external_lex_state = 5},
-  [6891] = {.lex_state = 1301, .external_lex_state = 5},
-  [6892] = {.lex_state = 216, .external_lex_state = 6},
-  [6893] = {.lex_state = 253, .external_lex_state = 6},
-  [6894] = {.lex_state = 1301, .external_lex_state = 5},
-  [6895] = {.lex_state = 1301, .external_lex_state = 5},
-  [6896] = {.lex_state = 1301, .external_lex_state = 5},
-  [6897] = {.lex_state = 1301, .external_lex_state = 5},
-  [6898] = {.lex_state = 1301, .external_lex_state = 6},
-  [6899] = {.lex_state = 1301, .external_lex_state = 5},
-  [6900] = {.lex_state = 1301, .external_lex_state = 5},
-  [6901] = {.lex_state = 1301, .external_lex_state = 5},
-  [6902] = {.lex_state = 253, .external_lex_state = 6},
-  [6903] = {.lex_state = 1301, .external_lex_state = 5},
-  [6904] = {.lex_state = 1301, .external_lex_state = 5},
-  [6905] = {.lex_state = 1301, .external_lex_state = 5},
-  [6906] = {.lex_state = 1301, .external_lex_state = 5},
-  [6907] = {.lex_state = 1301, .external_lex_state = 6},
-  [6908] = {.lex_state = 1301, .external_lex_state = 6},
-  [6909] = {.lex_state = 1301, .external_lex_state = 5},
-  [6910] = {.lex_state = 1301, .external_lex_state = 6},
-  [6911] = {.lex_state = 1301, .external_lex_state = 5},
-  [6912] = {.lex_state = 1301, .external_lex_state = 5},
-  [6913] = {.lex_state = 1301, .external_lex_state = 5},
-  [6914] = {.lex_state = 1301, .external_lex_state = 5},
-  [6915] = {.lex_state = 252, .external_lex_state = 6},
-  [6916] = {.lex_state = 1301, .external_lex_state = 6},
-  [6917] = {.lex_state = 1301, .external_lex_state = 5},
-  [6918] = {.lex_state = 1301, .external_lex_state = 5},
-  [6919] = {.lex_state = 258, .external_lex_state = 6},
-  [6920] = {.lex_state = 1301, .external_lex_state = 5},
-  [6921] = {.lex_state = 1301, .external_lex_state = 5},
-  [6922] = {.lex_state = 1301, .external_lex_state = 5},
-  [6923] = {.lex_state = 252, .external_lex_state = 6},
-  [6924] = {.lex_state = 252, .external_lex_state = 6},
-  [6925] = {.lex_state = 1301, .external_lex_state = 5},
-  [6926] = {.lex_state = 258, .external_lex_state = 6},
-  [6927] = {.lex_state = 1301, .external_lex_state = 5},
-  [6928] = {.lex_state = 252, .external_lex_state = 6},
-  [6929] = {.lex_state = 1301, .external_lex_state = 5},
-  [6930] = {.lex_state = 258, .external_lex_state = 6},
-  [6931] = {.lex_state = 252, .external_lex_state = 6},
-  [6932] = {.lex_state = 1301, .external_lex_state = 5},
-  [6933] = {.lex_state = 1301, .external_lex_state = 5},
-  [6934] = {.lex_state = 1301, .external_lex_state = 5},
-  [6935] = {.lex_state = 117, .external_lex_state = 6},
-  [6936] = {.lex_state = 1301, .external_lex_state = 6},
-  [6937] = {.lex_state = 1301, .external_lex_state = 5},
-  [6938] = {.lex_state = 258, .external_lex_state = 6},
-  [6939] = {.lex_state = 253, .external_lex_state = 6},
-  [6940] = {.lex_state = 1301, .external_lex_state = 5},
-  [6941] = {.lex_state = 1301, .external_lex_state = 5},
-  [6942] = {.lex_state = 1301, .external_lex_state = 5},
-  [6943] = {.lex_state = 1301, .external_lex_state = 5},
-  [6944] = {.lex_state = 1301, .external_lex_state = 6},
-  [6945] = {.lex_state = 1301, .external_lex_state = 5},
-  [6946] = {.lex_state = 1301, .external_lex_state = 5},
-  [6947] = {.lex_state = 1301, .external_lex_state = 5},
-  [6948] = {.lex_state = 1301, .external_lex_state = 5},
-  [6949] = {.lex_state = 253, .external_lex_state = 6},
-  [6950] = {.lex_state = 1301, .external_lex_state = 5},
-  [6951] = {.lex_state = 1301, .external_lex_state = 5},
-  [6952] = {.lex_state = 258, .external_lex_state = 6},
-  [6953] = {.lex_state = 253, .external_lex_state = 6},
-  [6954] = {.lex_state = 276, .external_lex_state = 6},
-  [6955] = {.lex_state = 1301, .external_lex_state = 5},
-  [6956] = {.lex_state = 1301, .external_lex_state = 6},
-  [6957] = {.lex_state = 1301, .external_lex_state = 5},
-  [6958] = {.lex_state = 1301, .external_lex_state = 5},
-  [6959] = {.lex_state = 1301, .external_lex_state = 5},
-  [6960] = {.lex_state = 1301, .external_lex_state = 5},
-  [6961] = {.lex_state = 224, .external_lex_state = 6},
-  [6962] = {.lex_state = 1301, .external_lex_state = 5},
-  [6963] = {.lex_state = 1301, .external_lex_state = 5},
-  [6964] = {.lex_state = 1301, .external_lex_state = 6},
-  [6965] = {.lex_state = 252, .external_lex_state = 6},
-  [6966] = {.lex_state = 1301, .external_lex_state = 5},
-  [6967] = {.lex_state = 258, .external_lex_state = 6},
-  [6968] = {.lex_state = 256, .external_lex_state = 6},
-  [6969] = {.lex_state = 1301, .external_lex_state = 5},
-  [6970] = {.lex_state = 1301, .external_lex_state = 5},
-  [6971] = {.lex_state = 252, .external_lex_state = 6},
-  [6972] = {.lex_state = 1301, .external_lex_state = 5},
-  [6973] = {.lex_state = 258, .external_lex_state = 6},
-  [6974] = {.lex_state = 1301, .external_lex_state = 5},
-  [6975] = {.lex_state = 252, .external_lex_state = 6},
-  [6976] = {.lex_state = 1301, .external_lex_state = 5},
-  [6977] = {.lex_state = 258, .external_lex_state = 6},
-  [6978] = {.lex_state = 1301, .external_lex_state = 5},
-  [6979] = {.lex_state = 1301, .external_lex_state = 5},
-  [6980] = {.lex_state = 117, .external_lex_state = 6},
-  [6981] = {.lex_state = 253, .external_lex_state = 6},
-  [6982] = {.lex_state = 1301, .external_lex_state = 5},
-  [6983] = {.lex_state = 1301, .external_lex_state = 5},
-  [6984] = {.lex_state = 1301, .external_lex_state = 5},
-  [6985] = {.lex_state = 217, .external_lex_state = 6},
-  [6986] = {.lex_state = 1301, .external_lex_state = 5},
-  [6987] = {.lex_state = 253, .external_lex_state = 6},
-  [6988] = {.lex_state = 1301, .external_lex_state = 5},
-  [6989] = {.lex_state = 1301, .external_lex_state = 5},
-  [6990] = {.lex_state = 1301, .external_lex_state = 5},
-  [6991] = {.lex_state = 1301, .external_lex_state = 6},
-  [6992] = {.lex_state = 1301, .external_lex_state = 6},
-  [6993] = {.lex_state = 1301, .external_lex_state = 5},
-  [6994] = {.lex_state = 1301, .external_lex_state = 5},
-  [6995] = {.lex_state = 1301, .external_lex_state = 6},
-  [6996] = {.lex_state = 1301, .external_lex_state = 5},
-  [6997] = {.lex_state = 1301, .external_lex_state = 5},
-  [6998] = {.lex_state = 117, .external_lex_state = 6},
-  [6999] = {.lex_state = 1301, .external_lex_state = 6},
-  [7000] = {.lex_state = 1301, .external_lex_state = 6},
-  [7001] = {.lex_state = 1301, .external_lex_state = 5},
-  [7002] = {.lex_state = 253, .external_lex_state = 6},
-  [7003] = {.lex_state = 1301, .external_lex_state = 5},
-  [7004] = {.lex_state = 1301, .external_lex_state = 5},
-  [7005] = {.lex_state = 1301, .external_lex_state = 5},
-  [7006] = {.lex_state = 1301, .external_lex_state = 5},
-  [7007] = {.lex_state = 1301, .external_lex_state = 5},
-  [7008] = {.lex_state = 1301, .external_lex_state = 5},
-  [7009] = {.lex_state = 253, .external_lex_state = 6},
-  [7010] = {.lex_state = 1301, .external_lex_state = 5},
-  [7011] = {.lex_state = 1301, .external_lex_state = 5},
-  [7012] = {.lex_state = 1301, .external_lex_state = 5},
-  [7013] = {.lex_state = 1301, .external_lex_state = 5},
-  [7014] = {.lex_state = 1301, .external_lex_state = 5},
-  [7015] = {.lex_state = 257, .external_lex_state = 6},
-  [7016] = {.lex_state = 252, .external_lex_state = 6},
-  [7017] = {.lex_state = 1301, .external_lex_state = 5},
-  [7018] = {.lex_state = 224, .external_lex_state = 6},
-  [7019] = {.lex_state = 1301, .external_lex_state = 5},
-  [7020] = {.lex_state = 258, .external_lex_state = 6},
-  [7021] = {.lex_state = 1301, .external_lex_state = 5},
-  [7022] = {.lex_state = 1301, .external_lex_state = 5},
-  [7023] = {.lex_state = 1301, .external_lex_state = 5},
-  [7024] = {.lex_state = 1301, .external_lex_state = 5},
-  [7025] = {.lex_state = 117, .external_lex_state = 6},
-  [7026] = {.lex_state = 1301, .external_lex_state = 6},
-  [7027] = {.lex_state = 1301, .external_lex_state = 6},
-  [7028] = {.lex_state = 1301, .external_lex_state = 5},
-  [7029] = {.lex_state = 1301, .external_lex_state = 6},
-  [7030] = {.lex_state = 1301, .external_lex_state = 6},
-  [7031] = {.lex_state = 1301, .external_lex_state = 5},
-  [7032] = {.lex_state = 1301, .external_lex_state = 6},
-  [7033] = {.lex_state = 1301, .external_lex_state = 5},
-  [7034] = {.lex_state = 1301, .external_lex_state = 5},
-  [7035] = {.lex_state = 217, .external_lex_state = 6},
-  [7036] = {.lex_state = 1301, .external_lex_state = 6},
-  [7037] = {.lex_state = 1301, .external_lex_state = 5},
-  [7038] = {.lex_state = 1301, .external_lex_state = 5},
+  [6838] = {.lex_state = 1281, .external_lex_state = 6},
+  [6839] = {.lex_state = 255, .external_lex_state = 6},
+  [6840] = {.lex_state = 117, .external_lex_state = 6},
+  [6841] = {.lex_state = 276, .external_lex_state = 6},
+  [6842] = {.lex_state = 117, .external_lex_state = 6},
+  [6843] = {.lex_state = 117, .external_lex_state = 6},
+  [6844] = {.lex_state = 1281, .external_lex_state = 6},
+  [6845] = {.lex_state = 1281, .external_lex_state = 5},
+  [6846] = {.lex_state = 117, .external_lex_state = 6},
+  [6847] = {.lex_state = 1281, .external_lex_state = 5},
+  [6848] = {.lex_state = 117, .external_lex_state = 6},
+  [6849] = {.lex_state = 1281, .external_lex_state = 6},
+  [6850] = {.lex_state = 1281, .external_lex_state = 6},
+  [6851] = {.lex_state = 117, .external_lex_state = 6},
+  [6852] = {.lex_state = 1281, .external_lex_state = 6},
+  [6853] = {.lex_state = 1281, .external_lex_state = 6},
+  [6854] = {.lex_state = 1281, .external_lex_state = 6},
+  [6855] = {.lex_state = 117, .external_lex_state = 6},
+  [6856] = {.lex_state = 117, .external_lex_state = 6},
+  [6857] = {.lex_state = 1281, .external_lex_state = 5},
+  [6858] = {.lex_state = 117, .external_lex_state = 6},
+  [6859] = {.lex_state = 255, .external_lex_state = 6},
+  [6860] = {.lex_state = 1281, .external_lex_state = 5},
+  [6861] = {.lex_state = 117, .external_lex_state = 6},
+  [6862] = {.lex_state = 117, .external_lex_state = 6},
+  [6863] = {.lex_state = 1281, .external_lex_state = 5},
+  [6864] = {.lex_state = 1281, .external_lex_state = 5},
+  [6865] = {.lex_state = 1281, .external_lex_state = 6},
+  [6866] = {.lex_state = 1281, .external_lex_state = 6},
+  [6867] = {.lex_state = 1281, .external_lex_state = 6},
+  [6868] = {.lex_state = 1281, .external_lex_state = 5},
+  [6869] = {.lex_state = 1281, .external_lex_state = 5},
+  [6870] = {.lex_state = 255, .external_lex_state = 6},
+  [6871] = {.lex_state = 117, .external_lex_state = 6},
+  [6872] = {.lex_state = 1281, .external_lex_state = 5},
+  [6873] = {.lex_state = 1281, .external_lex_state = 10},
+  [6874] = {.lex_state = 1281, .external_lex_state = 6},
+  [6875] = {.lex_state = 1281, .external_lex_state = 6},
+  [6876] = {.lex_state = 1281, .external_lex_state = 5},
+  [6877] = {.lex_state = 1281, .external_lex_state = 5},
+  [6878] = {.lex_state = 1281, .external_lex_state = 5},
+  [6879] = {.lex_state = 117, .external_lex_state = 6},
+  [6880] = {.lex_state = 258, .external_lex_state = 6},
+  [6881] = {.lex_state = 1281, .external_lex_state = 5},
+  [6882] = {.lex_state = 224, .external_lex_state = 6},
+  [6883] = {.lex_state = 1281, .external_lex_state = 6},
+  [6884] = {.lex_state = 1281, .external_lex_state = 5},
+  [6885] = {.lex_state = 252, .external_lex_state = 6},
+  [6886] = {.lex_state = 1281, .external_lex_state = 5},
+  [6887] = {.lex_state = 1281, .external_lex_state = 5},
+  [6888] = {.lex_state = 217, .external_lex_state = 6},
+  [6889] = {.lex_state = 1281, .external_lex_state = 5},
+  [6890] = {.lex_state = 117, .external_lex_state = 6},
+  [6891] = {.lex_state = 258, .external_lex_state = 6},
+  [6892] = {.lex_state = 1281, .external_lex_state = 5},
+  [6893] = {.lex_state = 255, .external_lex_state = 6},
+  [6894] = {.lex_state = 1281, .external_lex_state = 5},
+  [6895] = {.lex_state = 1281, .external_lex_state = 5},
+  [6896] = {.lex_state = 252, .external_lex_state = 6},
+  [6897] = {.lex_state = 252, .external_lex_state = 6},
+  [6898] = {.lex_state = 1281, .external_lex_state = 5},
+  [6899] = {.lex_state = 258, .external_lex_state = 6},
+  [6900] = {.lex_state = 1281, .external_lex_state = 5},
+  [6901] = {.lex_state = 252, .external_lex_state = 6},
+  [6902] = {.lex_state = 117, .external_lex_state = 6},
+  [6903] = {.lex_state = 1281, .external_lex_state = 5},
+  [6904] = {.lex_state = 1281, .external_lex_state = 5},
+  [6905] = {.lex_state = 1281, .external_lex_state = 10},
+  [6906] = {.lex_state = 258, .external_lex_state = 6},
+  [6907] = {.lex_state = 1281, .external_lex_state = 5},
+  [6908] = {.lex_state = 1281, .external_lex_state = 5},
+  [6909] = {.lex_state = 1281, .external_lex_state = 5},
+  [6910] = {.lex_state = 1281, .external_lex_state = 5},
+  [6911] = {.lex_state = 1281, .external_lex_state = 5},
+  [6912] = {.lex_state = 1281, .external_lex_state = 5},
+  [6913] = {.lex_state = 117, .external_lex_state = 6},
+  [6914] = {.lex_state = 1281, .external_lex_state = 5},
+  [6915] = {.lex_state = 1281, .external_lex_state = 5},
+  [6916] = {.lex_state = 1281, .external_lex_state = 5},
+  [6917] = {.lex_state = 1281, .external_lex_state = 5},
+  [6918] = {.lex_state = 1281, .external_lex_state = 6},
+  [6919] = {.lex_state = 1281, .external_lex_state = 5},
+  [6920] = {.lex_state = 117, .external_lex_state = 6},
+  [6921] = {.lex_state = 1281, .external_lex_state = 5},
+  [6922] = {.lex_state = 1281, .external_lex_state = 6},
+  [6923] = {.lex_state = 1281, .external_lex_state = 6},
+  [6924] = {.lex_state = 276, .external_lex_state = 6},
+  [6925] = {.lex_state = 253, .external_lex_state = 6},
+  [6926] = {.lex_state = 253, .external_lex_state = 6},
+  [6927] = {.lex_state = 1281, .external_lex_state = 5},
+  [6928] = {.lex_state = 1281, .external_lex_state = 5},
+  [6929] = {.lex_state = 1281, .external_lex_state = 5},
+  [6930] = {.lex_state = 1281, .external_lex_state = 5},
+  [6931] = {.lex_state = 1281, .external_lex_state = 5},
+  [6932] = {.lex_state = 1281, .external_lex_state = 5},
+  [6933] = {.lex_state = 1281, .external_lex_state = 6},
+  [6934] = {.lex_state = 1281, .external_lex_state = 5},
+  [6935] = {.lex_state = 1281, .external_lex_state = 5},
+  [6936] = {.lex_state = 1281, .external_lex_state = 5},
+  [6937] = {.lex_state = 1281, .external_lex_state = 6},
+  [6938] = {.lex_state = 1281, .external_lex_state = 6},
+  [6939] = {.lex_state = 224, .external_lex_state = 6},
+  [6940] = {.lex_state = 1281, .external_lex_state = 5},
+  [6941] = {.lex_state = 1281, .external_lex_state = 5},
+  [6942] = {.lex_state = 1281, .external_lex_state = 5},
+  [6943] = {.lex_state = 253, .external_lex_state = 6},
+  [6944] = {.lex_state = 1281, .external_lex_state = 5},
+  [6945] = {.lex_state = 1281, .external_lex_state = 5},
+  [6946] = {.lex_state = 1281, .external_lex_state = 5},
+  [6947] = {.lex_state = 1281, .external_lex_state = 6},
+  [6948] = {.lex_state = 1281, .external_lex_state = 6},
+  [6949] = {.lex_state = 1281, .external_lex_state = 5},
+  [6950] = {.lex_state = 1281, .external_lex_state = 6},
+  [6951] = {.lex_state = 1281, .external_lex_state = 6},
+  [6952] = {.lex_state = 1281, .external_lex_state = 6},
+  [6953] = {.lex_state = 1281, .external_lex_state = 5},
+  [6954] = {.lex_state = 254, .external_lex_state = 6},
+  [6955] = {.lex_state = 1281, .external_lex_state = 5},
+  [6956] = {.lex_state = 259, .external_lex_state = 6},
+  [6957] = {.lex_state = 117, .external_lex_state = 6},
+  [6958] = {.lex_state = 1281, .external_lex_state = 5},
+  [6959] = {.lex_state = 1281, .external_lex_state = 5},
+  [6960] = {.lex_state = 1281, .external_lex_state = 6},
+  [6961] = {.lex_state = 1281, .external_lex_state = 5},
+  [6962] = {.lex_state = 1281, .external_lex_state = 5},
+  [6963] = {.lex_state = 1281, .external_lex_state = 5},
+  [6964] = {.lex_state = 254, .external_lex_state = 6},
+  [6965] = {.lex_state = 1281, .external_lex_state = 5},
+  [6966] = {.lex_state = 254, .external_lex_state = 6},
+  [6967] = {.lex_state = 259, .external_lex_state = 6},
+  [6968] = {.lex_state = 255, .external_lex_state = 6},
+  [6969] = {.lex_state = 1281, .external_lex_state = 6},
+  [6970] = {.lex_state = 1281, .external_lex_state = 5},
+  [6971] = {.lex_state = 1281, .external_lex_state = 5},
+  [6972] = {.lex_state = 1281, .external_lex_state = 5},
+  [6973] = {.lex_state = 1281, .external_lex_state = 5},
+  [6974] = {.lex_state = 1281, .external_lex_state = 5},
+  [6975] = {.lex_state = 1281, .external_lex_state = 5},
+  [6976] = {.lex_state = 1281, .external_lex_state = 5},
+  [6977] = {.lex_state = 1281, .external_lex_state = 5},
+  [6978] = {.lex_state = 1281, .external_lex_state = 5},
+  [6979] = {.lex_state = 1281, .external_lex_state = 5},
+  [6980] = {.lex_state = 1281, .external_lex_state = 5},
+  [6981] = {.lex_state = 1281, .external_lex_state = 5},
+  [6982] = {.lex_state = 1281, .external_lex_state = 5},
+  [6983] = {.lex_state = 253, .external_lex_state = 6},
+  [6984] = {.lex_state = 1281, .external_lex_state = 5},
+  [6985] = {.lex_state = 253, .external_lex_state = 6},
+  [6986] = {.lex_state = 255, .external_lex_state = 6},
+  [6987] = {.lex_state = 1281, .external_lex_state = 5},
+  [6988] = {.lex_state = 1281, .external_lex_state = 5},
+  [6989] = {.lex_state = 1281, .external_lex_state = 5},
+  [6990] = {.lex_state = 224, .external_lex_state = 6},
+  [6991] = {.lex_state = 1281, .external_lex_state = 5},
+  [6992] = {.lex_state = 1281, .external_lex_state = 5},
+  [6993] = {.lex_state = 1281, .external_lex_state = 6},
+  [6994] = {.lex_state = 253, .external_lex_state = 6},
+  [6995] = {.lex_state = 1281, .external_lex_state = 5},
+  [6996] = {.lex_state = 255, .external_lex_state = 6},
+  [6997] = {.lex_state = 1281, .external_lex_state = 6},
+  [6998] = {.lex_state = 1281, .external_lex_state = 6},
+  [6999] = {.lex_state = 1281, .external_lex_state = 6},
+  [7000] = {.lex_state = 117, .external_lex_state = 6},
+  [7001] = {.lex_state = 1281, .external_lex_state = 5},
+  [7002] = {.lex_state = 1281, .external_lex_state = 5},
+  [7003] = {.lex_state = 1281, .external_lex_state = 5},
+  [7004] = {.lex_state = 1281, .external_lex_state = 6},
+  [7005] = {.lex_state = 217, .external_lex_state = 6},
+  [7006] = {.lex_state = 258, .external_lex_state = 6},
+  [7007] = {.lex_state = 117, .external_lex_state = 6},
+  [7008] = {.lex_state = 1281, .external_lex_state = 5},
+  [7009] = {.lex_state = 1281, .external_lex_state = 5},
+  [7010] = {.lex_state = 1281, .external_lex_state = 5},
+  [7011] = {.lex_state = 252, .external_lex_state = 6},
+  [7012] = {.lex_state = 1281, .external_lex_state = 6},
+  [7013] = {.lex_state = 1281, .external_lex_state = 6},
+  [7014] = {.lex_state = 1281, .external_lex_state = 5},
+  [7015] = {.lex_state = 1281, .external_lex_state = 5},
+  [7016] = {.lex_state = 1281, .external_lex_state = 5},
+  [7017] = {.lex_state = 258, .external_lex_state = 6},
+  [7018] = {.lex_state = 1281, .external_lex_state = 5},
+  [7019] = {.lex_state = 1281, .external_lex_state = 5},
+  [7020] = {.lex_state = 1281, .external_lex_state = 5},
+  [7021] = {.lex_state = 1281, .external_lex_state = 5},
+  [7022] = {.lex_state = 252, .external_lex_state = 6},
+  [7023] = {.lex_state = 224, .external_lex_state = 6},
+  [7024] = {.lex_state = 1281, .external_lex_state = 5},
+  [7025] = {.lex_state = 258, .external_lex_state = 6},
+  [7026] = {.lex_state = 1281, .external_lex_state = 5},
+  [7027] = {.lex_state = 252, .external_lex_state = 6},
+  [7028] = {.lex_state = 1281, .external_lex_state = 5},
+  [7029] = {.lex_state = 1281, .external_lex_state = 5},
+  [7030] = {.lex_state = 276, .external_lex_state = 5},
+  [7031] = {.lex_state = 1281, .external_lex_state = 10},
+  [7032] = {.lex_state = 1281, .external_lex_state = 10},
+  [7033] = {.lex_state = 1281, .external_lex_state = 5},
+  [7034] = {.lex_state = 1281, .external_lex_state = 5},
+  [7035] = {.lex_state = 1281, .external_lex_state = 6},
+  [7036] = {.lex_state = 1281, .external_lex_state = 5},
+  [7037] = {.lex_state = 1281, .external_lex_state = 6},
+  [7038] = {.lex_state = 1281, .external_lex_state = 6},
   [7039] = {.lex_state = 117, .external_lex_state = 6},
-  [7040] = {.lex_state = 1301, .external_lex_state = 5},
-  [7041] = {.lex_state = 1301, .external_lex_state = 5},
-  [7042] = {.lex_state = 1301, .external_lex_state = 6},
-  [7043] = {.lex_state = 314, .external_lex_state = 6},
-  [7044] = {.lex_state = 1301, .external_lex_state = 6},
-  [7045] = {.lex_state = 1301, .external_lex_state = 5},
-  [7046] = {.lex_state = 1301, .external_lex_state = 5},
-  [7047] = {.lex_state = 1301, .external_lex_state = 5},
-  [7048] = {.lex_state = 1301, .external_lex_state = 6},
-  [7049] = {.lex_state = 1301, .external_lex_state = 5},
-  [7050] = {.lex_state = 117, .external_lex_state = 6},
-  [7051] = {.lex_state = 1301, .external_lex_state = 5},
-  [7052] = {.lex_state = 252, .external_lex_state = 6},
-  [7053] = {.lex_state = 259, .external_lex_state = 6},
-  [7054] = {.lex_state = 1301, .external_lex_state = 5},
-  [7055] = {.lex_state = 1301, .external_lex_state = 5},
-  [7056] = {.lex_state = 255, .external_lex_state = 6},
-  [7057] = {.lex_state = 1301, .external_lex_state = 5},
-  [7058] = {.lex_state = 256, .external_lex_state = 6},
-  [7059] = {.lex_state = 1301, .external_lex_state = 5},
-  [7060] = {.lex_state = 117, .external_lex_state = 6},
-  [7061] = {.lex_state = 314, .external_lex_state = 6},
-  [7062] = {.lex_state = 1301, .external_lex_state = 5},
-  [7063] = {.lex_state = 258, .external_lex_state = 6},
-  [7064] = {.lex_state = 1301, .external_lex_state = 6},
-  [7065] = {.lex_state = 1301, .external_lex_state = 6},
-  [7066] = {.lex_state = 1301, .external_lex_state = 5},
-  [7067] = {.lex_state = 1301, .external_lex_state = 5},
-  [7068] = {.lex_state = 117, .external_lex_state = 6},
-  [7069] = {.lex_state = 1301, .external_lex_state = 5},
-  [7070] = {.lex_state = 1301, .external_lex_state = 5},
-  [7071] = {.lex_state = 216, .external_lex_state = 6},
-  [7072] = {.lex_state = 1301, .external_lex_state = 6},
-  [7073] = {.lex_state = 1301, .external_lex_state = 6},
-  [7074] = {.lex_state = 1301, .external_lex_state = 5},
-  [7075] = {.lex_state = 117, .external_lex_state = 6},
-  [7076] = {.lex_state = 1301, .external_lex_state = 5},
-  [7077] = {.lex_state = 1301, .external_lex_state = 5},
-  [7078] = {.lex_state = 1301, .external_lex_state = 5},
-  [7079] = {.lex_state = 256, .external_lex_state = 6},
-  [7080] = {.lex_state = 1301, .external_lex_state = 6},
-  [7081] = {.lex_state = 117, .external_lex_state = 6},
-  [7082] = {.lex_state = 1301, .external_lex_state = 5},
-  [7083] = {.lex_state = 117, .external_lex_state = 6},
-  [7084] = {.lex_state = 117, .external_lex_state = 6},
-  [7085] = {.lex_state = 117, .external_lex_state = 6},
-  [7086] = {.lex_state = 1301, .external_lex_state = 5},
-  [7087] = {.lex_state = 117, .external_lex_state = 6},
-  [7088] = {.lex_state = 117, .external_lex_state = 6},
-  [7089] = {.lex_state = 276, .external_lex_state = 5},
-  [7090] = {.lex_state = 117, .external_lex_state = 6},
-  [7091] = {.lex_state = 1301, .external_lex_state = 5},
-  [7092] = {.lex_state = 117, .external_lex_state = 6},
-  [7093] = {.lex_state = 117, .external_lex_state = 6},
-  [7094] = {.lex_state = 1301, .external_lex_state = 5},
-  [7095] = {.lex_state = 117, .external_lex_state = 6},
-  [7096] = {.lex_state = 117, .external_lex_state = 6},
-  [7097] = {.lex_state = 1301, .external_lex_state = 6},
-  [7098] = {.lex_state = 117, .external_lex_state = 6},
-  [7099] = {.lex_state = 1301, .external_lex_state = 5},
-  [7100] = {.lex_state = 117, .external_lex_state = 6},
-  [7101] = {.lex_state = 117, .external_lex_state = 6},
-  [7102] = {.lex_state = 117, .external_lex_state = 6},
-  [7103] = {.lex_state = 117, .external_lex_state = 6},
-  [7104] = {.lex_state = 1301, .external_lex_state = 5},
-  [7105] = {.lex_state = 117, .external_lex_state = 6},
-  [7106] = {.lex_state = 1301, .external_lex_state = 6},
-  [7107] = {.lex_state = 117, .external_lex_state = 6},
-  [7108] = {.lex_state = 256, .external_lex_state = 6},
-  [7109] = {.lex_state = 117, .external_lex_state = 6},
-  [7110] = {.lex_state = 1301, .external_lex_state = 6},
-  [7111] = {.lex_state = 117, .external_lex_state = 6},
-  [7112] = {.lex_state = 117, .external_lex_state = 6},
-  [7113] = {.lex_state = 1301, .external_lex_state = 6},
-  [7114] = {.lex_state = 117, .external_lex_state = 6},
-  [7115] = {.lex_state = 117, .external_lex_state = 6},
-  [7116] = {.lex_state = 117, .external_lex_state = 6},
-  [7117] = {.lex_state = 117, .external_lex_state = 6},
-  [7118] = {.lex_state = 117, .external_lex_state = 6},
-  [7119] = {.lex_state = 117, .external_lex_state = 6},
-  [7120] = {.lex_state = 1301, .external_lex_state = 6},
-  [7121] = {.lex_state = 117, .external_lex_state = 6},
-  [7122] = {.lex_state = 1301, .external_lex_state = 6},
-  [7123] = {.lex_state = 1301, .external_lex_state = 5},
-  [7124] = {.lex_state = 1301, .external_lex_state = 5},
-  [7125] = {.lex_state = 1301, .external_lex_state = 6},
-  [7126] = {.lex_state = 224, .external_lex_state = 6},
-  [7127] = {.lex_state = 226, .external_lex_state = 6},
-  [7128] = {.lex_state = 276, .external_lex_state = 6},
-  [7129] = {.lex_state = 1301, .external_lex_state = 6},
-  [7130] = {.lex_state = 259, .external_lex_state = 6},
-  [7131] = {.lex_state = 1301, .external_lex_state = 5},
-  [7132] = {.lex_state = 256, .external_lex_state = 6},
-  [7133] = {.lex_state = 1301, .external_lex_state = 6},
-  [7134] = {.lex_state = 1301, .external_lex_state = 5},
-  [7135] = {.lex_state = 1301, .external_lex_state = 6},
-  [7136] = {.lex_state = 1301, .external_lex_state = 5},
-  [7137] = {.lex_state = 1301, .external_lex_state = 5},
-  [7138] = {.lex_state = 1301, .external_lex_state = 5},
-  [7139] = {.lex_state = 1301, .external_lex_state = 5},
-  [7140] = {.lex_state = 1301, .external_lex_state = 6},
-  [7141] = {.lex_state = 276, .external_lex_state = 6},
-  [7142] = {.lex_state = 1301, .external_lex_state = 5},
-  [7143] = {.lex_state = 252, .external_lex_state = 6},
-  [7144] = {.lex_state = 1301, .external_lex_state = 5},
+  [7040] = {.lex_state = 1281, .external_lex_state = 6},
+  [7041] = {.lex_state = 1281, .external_lex_state = 6},
+  [7042] = {.lex_state = 1281, .external_lex_state = 5},
+  [7043] = {.lex_state = 1281, .external_lex_state = 6},
+  [7044] = {.lex_state = 1281, .external_lex_state = 5},
+  [7045] = {.lex_state = 1281, .external_lex_state = 5},
+  [7046] = {.lex_state = 1281, .external_lex_state = 5},
+  [7047] = {.lex_state = 253, .external_lex_state = 6},
+  [7048] = {.lex_state = 1281, .external_lex_state = 5},
+  [7049] = {.lex_state = 1281, .external_lex_state = 6},
+  [7050] = {.lex_state = 253, .external_lex_state = 6},
+  [7051] = {.lex_state = 1281, .external_lex_state = 6},
+  [7052] = {.lex_state = 1281, .external_lex_state = 5},
+  [7053] = {.lex_state = 1281, .external_lex_state = 5},
+  [7054] = {.lex_state = 1281, .external_lex_state = 5},
+  [7055] = {.lex_state = 1281, .external_lex_state = 5},
+  [7056] = {.lex_state = 1281, .external_lex_state = 5},
+  [7057] = {.lex_state = 1281, .external_lex_state = 5},
+  [7058] = {.lex_state = 1281, .external_lex_state = 5},
+  [7059] = {.lex_state = 1281, .external_lex_state = 6},
+  [7060] = {.lex_state = 1281, .external_lex_state = 6},
+  [7061] = {.lex_state = 253, .external_lex_state = 6},
+  [7062] = {.lex_state = 1281, .external_lex_state = 6},
+  [7063] = {.lex_state = 1281, .external_lex_state = 5},
+  [7064] = {.lex_state = 117, .external_lex_state = 6},
+  [7065] = {.lex_state = 1281, .external_lex_state = 5},
+  [7066] = {.lex_state = 253, .external_lex_state = 6},
+  [7067] = {.lex_state = 1281, .external_lex_state = 5},
+  [7068] = {.lex_state = 1281, .external_lex_state = 5},
+  [7069] = {.lex_state = 1281, .external_lex_state = 6},
+  [7070] = {.lex_state = 1281, .external_lex_state = 5},
+  [7071] = {.lex_state = 1281, .external_lex_state = 6},
+  [7072] = {.lex_state = 1281, .external_lex_state = 5},
+  [7073] = {.lex_state = 1281, .external_lex_state = 6},
+  [7074] = {.lex_state = 1281, .external_lex_state = 6},
+  [7075] = {.lex_state = 252, .external_lex_state = 6},
+  [7076] = {.lex_state = 1281, .external_lex_state = 5},
+  [7077] = {.lex_state = 1281, .external_lex_state = 5},
+  [7078] = {.lex_state = 1281, .external_lex_state = 4},
+  [7079] = {.lex_state = 258, .external_lex_state = 6},
+  [7080] = {.lex_state = 1281, .external_lex_state = 5},
+  [7081] = {.lex_state = 1281, .external_lex_state = 4},
+  [7082] = {.lex_state = 252, .external_lex_state = 6},
+  [7083] = {.lex_state = 1281, .external_lex_state = 6},
+  [7084] = {.lex_state = 1281, .external_lex_state = 6},
+  [7085] = {.lex_state = 1281, .external_lex_state = 5},
+  [7086] = {.lex_state = 1281, .external_lex_state = 5},
+  [7087] = {.lex_state = 1281, .external_lex_state = 5},
+  [7088] = {.lex_state = 1281, .external_lex_state = 5},
+  [7089] = {.lex_state = 258, .external_lex_state = 6},
+  [7090] = {.lex_state = 255, .external_lex_state = 6},
+  [7091] = {.lex_state = 1281, .external_lex_state = 5},
+  [7092] = {.lex_state = 1281, .external_lex_state = 5},
+  [7093] = {.lex_state = 1281, .external_lex_state = 5},
+  [7094] = {.lex_state = 252, .external_lex_state = 6},
+  [7095] = {.lex_state = 258, .external_lex_state = 6},
+  [7096] = {.lex_state = 217, .external_lex_state = 6},
+  [7097] = {.lex_state = 1281, .external_lex_state = 5},
+  [7098] = {.lex_state = 1281, .external_lex_state = 5},
+  [7099] = {.lex_state = 117, .external_lex_state = 6},
+  [7100] = {.lex_state = 1281, .external_lex_state = 6},
+  [7101] = {.lex_state = 226, .external_lex_state = 6},
+  [7102] = {.lex_state = 1281, .external_lex_state = 6},
+  [7103] = {.lex_state = 1281, .external_lex_state = 5},
+  [7104] = {.lex_state = 1281, .external_lex_state = 5},
+  [7105] = {.lex_state = 1281, .external_lex_state = 6},
+  [7106] = {.lex_state = 1281, .external_lex_state = 5},
+  [7107] = {.lex_state = 1281, .external_lex_state = 6},
+  [7108] = {.lex_state = 255, .external_lex_state = 6},
+  [7109] = {.lex_state = 1281, .external_lex_state = 5},
+  [7110] = {.lex_state = 1281, .external_lex_state = 6},
+  [7111] = {.lex_state = 1281, .external_lex_state = 5},
+  [7112] = {.lex_state = 1281, .external_lex_state = 5},
+  [7113] = {.lex_state = 1281, .external_lex_state = 5},
+  [7114] = {.lex_state = 253, .external_lex_state = 6},
+  [7115] = {.lex_state = 1281, .external_lex_state = 5},
+  [7116] = {.lex_state = 1281, .external_lex_state = 5},
+  [7117] = {.lex_state = 1281, .external_lex_state = 5},
+  [7118] = {.lex_state = 255, .external_lex_state = 6},
+  [7119] = {.lex_state = 1281, .external_lex_state = 6},
+  [7120] = {.lex_state = 1281, .external_lex_state = 5},
+  [7121] = {.lex_state = 1281, .external_lex_state = 6},
+  [7122] = {.lex_state = 1281, .external_lex_state = 5},
+  [7123] = {.lex_state = 1281, .external_lex_state = 5},
+  [7124] = {.lex_state = 1281, .external_lex_state = 5},
+  [7125] = {.lex_state = 1281, .external_lex_state = 5},
+  [7126] = {.lex_state = 1281, .external_lex_state = 5},
+  [7127] = {.lex_state = 1281, .external_lex_state = 6},
+  [7128] = {.lex_state = 258, .external_lex_state = 6},
+  [7129] = {.lex_state = 1281, .external_lex_state = 5},
+  [7130] = {.lex_state = 216, .external_lex_state = 6},
+  [7131] = {.lex_state = 259, .external_lex_state = 6},
+  [7132] = {.lex_state = 1281, .external_lex_state = 5},
+  [7133] = {.lex_state = 252, .external_lex_state = 6},
+  [7134] = {.lex_state = 1281, .external_lex_state = 5},
+  [7135] = {.lex_state = 1281, .external_lex_state = 6},
+  [7136] = {.lex_state = 253, .external_lex_state = 6},
+  [7137] = {.lex_state = 1281, .external_lex_state = 5},
+  [7138] = {.lex_state = 1281, .external_lex_state = 5},
+  [7139] = {.lex_state = 258, .external_lex_state = 6},
+  [7140] = {.lex_state = 226, .external_lex_state = 6},
+  [7141] = {.lex_state = 217, .external_lex_state = 6},
+  [7142] = {.lex_state = 1281, .external_lex_state = 5},
+  [7143] = {.lex_state = 1281, .external_lex_state = 5},
+  [7144] = {.lex_state = 252, .external_lex_state = 6},
   [7145] = {.lex_state = 224, .external_lex_state = 6},
-  [7146] = {.lex_state = 1301, .external_lex_state = 5},
-  [7147] = {.lex_state = 1301, .external_lex_state = 5},
-  [7148] = {.lex_state = 1301, .external_lex_state = 5},
-  [7149] = {.lex_state = 1301, .external_lex_state = 5},
-  [7150] = {.lex_state = 258, .external_lex_state = 6},
-  [7151] = {.lex_state = 259, .external_lex_state = 6},
-  [7152] = {.lex_state = 1301, .external_lex_state = 5},
-  [7153] = {.lex_state = 1301, .external_lex_state = 5},
-  [7154] = {.lex_state = 1301, .external_lex_state = 5},
-  [7155] = {.lex_state = 1301, .external_lex_state = 5},
-  [7156] = {.lex_state = 1301, .external_lex_state = 5},
+  [7146] = {.lex_state = 1281, .external_lex_state = 5},
+  [7147] = {.lex_state = 258, .external_lex_state = 6},
+  [7148] = {.lex_state = 1281, .external_lex_state = 5},
+  [7149] = {.lex_state = 252, .external_lex_state = 6},
+  [7150] = {.lex_state = 1281, .external_lex_state = 5},
+  [7151] = {.lex_state = 1281, .external_lex_state = 5},
+  [7152] = {.lex_state = 117, .external_lex_state = 6},
+  [7153] = {.lex_state = 1281, .external_lex_state = 10},
+  [7154] = {.lex_state = 1281, .external_lex_state = 5},
+  [7155] = {.lex_state = 1281, .external_lex_state = 5},
+  [7156] = {.lex_state = 1281, .external_lex_state = 5},
   [7157] = {.lex_state = 257, .external_lex_state = 6},
-  [7158] = {.lex_state = 1301, .external_lex_state = 6},
-  [7159] = {.lex_state = 255, .external_lex_state = 6},
-  [7160] = {.lex_state = 259, .external_lex_state = 6},
-  [7161] = {.lex_state = 1301, .external_lex_state = 5},
-  [7162] = {.lex_state = 224, .external_lex_state = 6},
-  [7163] = {.lex_state = 1301, .external_lex_state = 5},
-  [7164] = {.lex_state = 1301, .external_lex_state = 5},
-  [7165] = {.lex_state = 1301, .external_lex_state = 4},
-  [7166] = {.lex_state = 257, .external_lex_state = 6},
-  [7167] = {.lex_state = 1301, .external_lex_state = 5},
-  [7168] = {.lex_state = 255, .external_lex_state = 6},
-  [7169] = {.lex_state = 1301, .external_lex_state = 5},
-  [7170] = {.lex_state = 224, .external_lex_state = 6},
-  [7171] = {.lex_state = 1301, .external_lex_state = 5},
-  [7172] = {.lex_state = 1301, .external_lex_state = 5},
-  [7173] = {.lex_state = 1301, .external_lex_state = 5},
-  [7174] = {.lex_state = 1301, .external_lex_state = 5},
-  [7175] = {.lex_state = 1301, .external_lex_state = 5},
-  [7176] = {.lex_state = 259, .external_lex_state = 6},
-  [7177] = {.lex_state = 1301, .external_lex_state = 5},
-  [7178] = {.lex_state = 1301, .external_lex_state = 5},
+  [7158] = {.lex_state = 1281, .external_lex_state = 5},
+  [7159] = {.lex_state = 1281, .external_lex_state = 5},
+  [7160] = {.lex_state = 1281, .external_lex_state = 5},
+  [7161] = {.lex_state = 117, .external_lex_state = 6},
+  [7162] = {.lex_state = 1281, .external_lex_state = 5},
+  [7163] = {.lex_state = 1281, .external_lex_state = 5},
+  [7164] = {.lex_state = 256, .external_lex_state = 6},
+  [7165] = {.lex_state = 1281, .external_lex_state = 5},
+  [7166] = {.lex_state = 252, .external_lex_state = 6},
+  [7167] = {.lex_state = 1281, .external_lex_state = 5},
+  [7168] = {.lex_state = 258, .external_lex_state = 6},
+  [7169] = {.lex_state = 258, .external_lex_state = 6},
+  [7170] = {.lex_state = 1281, .external_lex_state = 5},
+  [7171] = {.lex_state = 253, .external_lex_state = 6},
+  [7172] = {.lex_state = 252, .external_lex_state = 6},
+  [7173] = {.lex_state = 1281, .external_lex_state = 5},
+  [7174] = {.lex_state = 1281, .external_lex_state = 5},
+  [7175] = {.lex_state = 1281, .external_lex_state = 5},
+  [7176] = {.lex_state = 1281, .external_lex_state = 5},
+  [7177] = {.lex_state = 1281, .external_lex_state = 5},
+  [7178] = {.lex_state = 252, .external_lex_state = 6},
   [7179] = {.lex_state = 252, .external_lex_state = 6},
-  [7180] = {.lex_state = 1301, .external_lex_state = 6},
-  [7181] = {.lex_state = 1301, .external_lex_state = 5},
-  [7182] = {.lex_state = 258, .external_lex_state = 6},
-  [7183] = {.lex_state = 1301, .external_lex_state = 6},
-  [7184] = {.lex_state = 1301, .external_lex_state = 5},
-  [7185] = {.lex_state = 1301, .external_lex_state = 5},
-  [7186] = {.lex_state = 1301, .external_lex_state = 5},
-  [7187] = {.lex_state = 1301, .external_lex_state = 6},
-  [7188] = {.lex_state = 1301, .external_lex_state = 6},
-  [7189] = {.lex_state = 259, .external_lex_state = 6},
-  [7190] = {.lex_state = 1301, .external_lex_state = 6},
-  [7191] = {.lex_state = 1301, .external_lex_state = 5},
-  [7192] = {.lex_state = 1301, .external_lex_state = 5},
-  [7193] = {.lex_state = 252, .external_lex_state = 6},
-  [7194] = {.lex_state = 1301, .external_lex_state = 5},
-  [7195] = {.lex_state = 254, .external_lex_state = 6},
-  [7196] = {.lex_state = 1301, .external_lex_state = 5},
-  [7197] = {.lex_state = 1301, .external_lex_state = 5},
-  [7198] = {.lex_state = 1301, .external_lex_state = 5},
-  [7199] = {.lex_state = 1301, .external_lex_state = 10},
-  [7200] = {.lex_state = 258, .external_lex_state = 6},
-  [7201] = {.lex_state = 254, .external_lex_state = 6},
-  [7202] = {.lex_state = 259, .external_lex_state = 6},
-  [7203] = {.lex_state = 1301, .external_lex_state = 5},
-  [7204] = {.lex_state = 252, .external_lex_state = 6},
-  [7205] = {.lex_state = 1301, .external_lex_state = 5},
-  [7206] = {.lex_state = 258, .external_lex_state = 6},
-  [7207] = {.lex_state = 1301, .external_lex_state = 5},
-  [7208] = {.lex_state = 1301, .external_lex_state = 6},
-  [7209] = {.lex_state = 1301, .external_lex_state = 5},
-  [7210] = {.lex_state = 1301, .external_lex_state = 5},
-  [7211] = {.lex_state = 1301, .external_lex_state = 5},
-  [7212] = {.lex_state = 1301, .external_lex_state = 5},
-  [7213] = {.lex_state = 259, .external_lex_state = 6},
-  [7214] = {.lex_state = 1301, .external_lex_state = 10},
-  [7215] = {.lex_state = 254, .external_lex_state = 6},
-  [7216] = {.lex_state = 1301, .external_lex_state = 6},
-  [7217] = {.lex_state = 1301, .external_lex_state = 5},
-  [7218] = {.lex_state = 252, .external_lex_state = 6},
-  [7219] = {.lex_state = 1301, .external_lex_state = 5},
-  [7220] = {.lex_state = 224, .external_lex_state = 6},
-  [7221] = {.lex_state = 1301, .external_lex_state = 5},
-  [7222] = {.lex_state = 1301, .external_lex_state = 5},
-  [7223] = {.lex_state = 1301, .external_lex_state = 5},
-  [7224] = {.lex_state = 1301, .external_lex_state = 5},
-  [7225] = {.lex_state = 1301, .external_lex_state = 5},
-  [7226] = {.lex_state = 259, .external_lex_state = 6},
-  [7227] = {.lex_state = 1301, .external_lex_state = 5},
-  [7228] = {.lex_state = 1301, .external_lex_state = 5},
-  [7229] = {.lex_state = 253, .external_lex_state = 6},
-  [7230] = {.lex_state = 117, .external_lex_state = 6},
-  [7231] = {.lex_state = 1301, .external_lex_state = 5},
-  [7232] = {.lex_state = 1301, .external_lex_state = 5},
-  [7233] = {.lex_state = 1301, .external_lex_state = 6},
-  [7234] = {.lex_state = 257, .external_lex_state = 6},
-  [7235] = {.lex_state = 259, .external_lex_state = 6},
-  [7236] = {.lex_state = 1301, .external_lex_state = 5},
-  [7237] = {.lex_state = 276, .external_lex_state = 6},
-  [7238] = {.lex_state = 259, .external_lex_state = 6},
-  [7239] = {.lex_state = 1301, .external_lex_state = 5},
-  [7240] = {.lex_state = 1301, .external_lex_state = 5},
-  [7241] = {.lex_state = 258, .external_lex_state = 6},
-  [7242] = {.lex_state = 259, .external_lex_state = 6},
-  [7243] = {.lex_state = 259, .external_lex_state = 6},
-  [7244] = {.lex_state = 224, .external_lex_state = 6},
-  [7245] = {.lex_state = 1301, .external_lex_state = 5},
-  [7246] = {.lex_state = 314, .external_lex_state = 6},
-  [7247] = {.lex_state = 1301, .external_lex_state = 5},
-  [7248] = {.lex_state = 1301, .external_lex_state = 6},
-  [7249] = {.lex_state = 259, .external_lex_state = 6},
-  [7250] = {.lex_state = 1301, .external_lex_state = 6},
-  [7251] = {.lex_state = 253, .external_lex_state = 6},
-  [7252] = {.lex_state = 1301, .external_lex_state = 5},
-  [7253] = {.lex_state = 1301, .external_lex_state = 5},
-  [7254] = {.lex_state = 1301, .external_lex_state = 5},
-  [7255] = {.lex_state = 1301, .external_lex_state = 5},
-  [7256] = {.lex_state = 1301, .external_lex_state = 5},
-  [7257] = {.lex_state = 1301, .external_lex_state = 5},
-  [7258] = {.lex_state = 1301, .external_lex_state = 5},
-  [7259] = {.lex_state = 1301, .external_lex_state = 5},
-  [7260] = {.lex_state = 259, .external_lex_state = 6},
-  [7261] = {.lex_state = 1301, .external_lex_state = 6},
-  [7262] = {.lex_state = 1301, .external_lex_state = 6},
-  [7263] = {.lex_state = 1301, .external_lex_state = 4},
-  [7264] = {.lex_state = 1301, .external_lex_state = 5},
-  [7265] = {.lex_state = 1301, .external_lex_state = 5},
-  [7266] = {.lex_state = 1301, .external_lex_state = 5},
-  [7267] = {.lex_state = 1301, .external_lex_state = 6},
-  [7268] = {.lex_state = 1301, .external_lex_state = 6},
-  [7269] = {.lex_state = 255, .external_lex_state = 6},
-  [7270] = {.lex_state = 1301, .external_lex_state = 6},
-  [7271] = {.lex_state = 1301, .external_lex_state = 5},
-  [7272] = {.lex_state = 1301, .external_lex_state = 6},
-  [7273] = {.lex_state = 117, .external_lex_state = 6},
-  [7274] = {.lex_state = 254, .external_lex_state = 6},
-  [7275] = {.lex_state = 1301, .external_lex_state = 6},
-  [7276] = {.lex_state = 1301, .external_lex_state = 5},
-  [7277] = {.lex_state = 1301, .external_lex_state = 5},
-  [7278] = {.lex_state = 1301, .external_lex_state = 5},
-  [7279] = {.lex_state = 253, .external_lex_state = 6},
-  [7280] = {.lex_state = 1301, .external_lex_state = 5},
-  [7281] = {.lex_state = 1301, .external_lex_state = 5},
-  [7282] = {.lex_state = 1301, .external_lex_state = 5},
-  [7283] = {.lex_state = 1301, .external_lex_state = 5},
-  [7284] = {.lex_state = 1301, .external_lex_state = 6},
-  [7285] = {.lex_state = 1301, .external_lex_state = 6},
-  [7286] = {.lex_state = 1301, .external_lex_state = 6},
-  [7287] = {.lex_state = 1301, .external_lex_state = 5},
-  [7288] = {.lex_state = 1301, .external_lex_state = 5},
-  [7289] = {.lex_state = 1301, .external_lex_state = 5},
-  [7290] = {.lex_state = 1301, .external_lex_state = 5},
-  [7291] = {.lex_state = 1301, .external_lex_state = 6},
-  [7292] = {.lex_state = 1301, .external_lex_state = 5},
-  [7293] = {.lex_state = 1301, .external_lex_state = 6},
-  [7294] = {.lex_state = 1301, .external_lex_state = 6},
-  [7295] = {.lex_state = 1301, .external_lex_state = 6},
-  [7296] = {.lex_state = 1301, .external_lex_state = 6},
-  [7297] = {.lex_state = 1301, .external_lex_state = 5},
-  [7298] = {.lex_state = 1301, .external_lex_state = 6},
-  [7299] = {.lex_state = 1301, .external_lex_state = 6},
-  [7300] = {.lex_state = 1301, .external_lex_state = 5},
-  [7301] = {.lex_state = 1301, .external_lex_state = 6},
-  [7302] = {.lex_state = 1301, .external_lex_state = 5},
-  [7303] = {.lex_state = 1301, .external_lex_state = 6},
-  [7304] = {.lex_state = 1301, .external_lex_state = 6},
-  [7305] = {.lex_state = 276, .external_lex_state = 5},
-  [7306] = {.lex_state = 1301, .external_lex_state = 6},
-  [7307] = {.lex_state = 1301, .external_lex_state = 6},
-  [7308] = {.lex_state = 1301, .external_lex_state = 5},
-  [7309] = {.lex_state = 1301, .external_lex_state = 5},
-  [7310] = {.lex_state = 1301, .external_lex_state = 6},
-  [7311] = {.lex_state = 1301, .external_lex_state = 5},
-  [7312] = {.lex_state = 1301, .external_lex_state = 6},
-  [7313] = {.lex_state = 1301, .external_lex_state = 6},
-  [7314] = {.lex_state = 224, .external_lex_state = 6},
-  [7315] = {.lex_state = 1301, .external_lex_state = 6},
-  [7316] = {.lex_state = 1301, .external_lex_state = 5},
-  [7317] = {.lex_state = 107, .external_lex_state = 6},
-  [7318] = {.lex_state = 107, .external_lex_state = 6},
-  [7319] = {.lex_state = 1301, .external_lex_state = 5},
-  [7320] = {.lex_state = 1301, .external_lex_state = 5},
-  [7321] = {.lex_state = 107, .external_lex_state = 6},
+  [7180] = {.lex_state = 1281, .external_lex_state = 5},
+  [7181] = {.lex_state = 1281, .external_lex_state = 5},
+  [7182] = {.lex_state = 1281, .external_lex_state = 5},
+  [7183] = {.lex_state = 1281, .external_lex_state = 5},
+  [7184] = {.lex_state = 1281, .external_lex_state = 5},
+  [7185] = {.lex_state = 253, .external_lex_state = 6},
+  [7186] = {.lex_state = 1281, .external_lex_state = 5},
+  [7187] = {.lex_state = 253, .external_lex_state = 6},
+  [7188] = {.lex_state = 1281, .external_lex_state = 5},
+  [7189] = {.lex_state = 1281, .external_lex_state = 5},
+  [7190] = {.lex_state = 276, .external_lex_state = 6},
+  [7191] = {.lex_state = 258, .external_lex_state = 6},
+  [7192] = {.lex_state = 258, .external_lex_state = 6},
+  [7193] = {.lex_state = 1281, .external_lex_state = 5},
+  [7194] = {.lex_state = 1281, .external_lex_state = 5},
+  [7195] = {.lex_state = 1281, .external_lex_state = 5},
+  [7196] = {.lex_state = 1281, .external_lex_state = 5},
+  [7197] = {.lex_state = 1281, .external_lex_state = 5},
+  [7198] = {.lex_state = 1281, .external_lex_state = 5},
+  [7199] = {.lex_state = 252, .external_lex_state = 6},
+  [7200] = {.lex_state = 1281, .external_lex_state = 5},
+  [7201] = {.lex_state = 258, .external_lex_state = 6},
+  [7202] = {.lex_state = 1281, .external_lex_state = 5},
+  [7203] = {.lex_state = 1281, .external_lex_state = 5},
+  [7204] = {.lex_state = 1281, .external_lex_state = 5},
+  [7205] = {.lex_state = 1281, .external_lex_state = 5},
+  [7206] = {.lex_state = 1281, .external_lex_state = 5},
+  [7207] = {.lex_state = 1281, .external_lex_state = 5},
+  [7208] = {.lex_state = 1281, .external_lex_state = 5},
+  [7209] = {.lex_state = 1281, .external_lex_state = 6},
+  [7210] = {.lex_state = 1281, .external_lex_state = 6},
+  [7211] = {.lex_state = 255, .external_lex_state = 6},
+  [7212] = {.lex_state = 224, .external_lex_state = 6},
+  [7213] = {.lex_state = 1281, .external_lex_state = 5},
+  [7214] = {.lex_state = 1281, .external_lex_state = 5},
+  [7215] = {.lex_state = 1281, .external_lex_state = 6},
+  [7216] = {.lex_state = 1281, .external_lex_state = 6},
+  [7217] = {.lex_state = 1281, .external_lex_state = 5},
+  [7218] = {.lex_state = 1281, .external_lex_state = 5},
+  [7219] = {.lex_state = 1281, .external_lex_state = 5},
+  [7220] = {.lex_state = 1281, .external_lex_state = 5},
+  [7221] = {.lex_state = 1281, .external_lex_state = 5},
+  [7222] = {.lex_state = 276, .external_lex_state = 6},
+  [7223] = {.lex_state = 1281, .external_lex_state = 5},
+  [7224] = {.lex_state = 1281, .external_lex_state = 6},
+  [7225] = {.lex_state = 1281, .external_lex_state = 6},
+  [7226] = {.lex_state = 1281, .external_lex_state = 5},
+  [7227] = {.lex_state = 1281, .external_lex_state = 5},
+  [7228] = {.lex_state = 1281, .external_lex_state = 6},
+  [7229] = {.lex_state = 255, .external_lex_state = 6},
+  [7230] = {.lex_state = 1281, .external_lex_state = 5},
+  [7231] = {.lex_state = 1281, .external_lex_state = 5},
+  [7232] = {.lex_state = 253, .external_lex_state = 6},
+  [7233] = {.lex_state = 1281, .external_lex_state = 5},
+  [7234] = {.lex_state = 1281, .external_lex_state = 5},
+  [7235] = {.lex_state = 1281, .external_lex_state = 6},
+  [7236] = {.lex_state = 224, .external_lex_state = 6},
+  [7237] = {.lex_state = 1281, .external_lex_state = 5},
+  [7238] = {.lex_state = 1281, .external_lex_state = 5},
+  [7239] = {.lex_state = 255, .external_lex_state = 6},
+  [7240] = {.lex_state = 1281, .external_lex_state = 5},
+  [7241] = {.lex_state = 1281, .external_lex_state = 5},
+  [7242] = {.lex_state = 253, .external_lex_state = 6},
+  [7243] = {.lex_state = 1281, .external_lex_state = 6},
+  [7244] = {.lex_state = 1281, .external_lex_state = 5},
+  [7245] = {.lex_state = 1281, .external_lex_state = 5},
+  [7246] = {.lex_state = 1281, .external_lex_state = 5},
+  [7247] = {.lex_state = 117, .external_lex_state = 6},
+  [7248] = {.lex_state = 1281, .external_lex_state = 5},
+  [7249] = {.lex_state = 258, .external_lex_state = 6},
+  [7250] = {.lex_state = 1281, .external_lex_state = 5},
+  [7251] = {.lex_state = 1281, .external_lex_state = 10},
+  [7252] = {.lex_state = 252, .external_lex_state = 6},
+  [7253] = {.lex_state = 1281, .external_lex_state = 6},
+  [7254] = {.lex_state = 252, .external_lex_state = 6},
+  [7255] = {.lex_state = 1281, .external_lex_state = 5},
+  [7256] = {.lex_state = 258, .external_lex_state = 6},
+  [7257] = {.lex_state = 1281, .external_lex_state = 6},
+  [7258] = {.lex_state = 1281, .external_lex_state = 5},
+  [7259] = {.lex_state = 1281, .external_lex_state = 5},
+  [7260] = {.lex_state = 258, .external_lex_state = 6},
+  [7261] = {.lex_state = 1281, .external_lex_state = 6},
+  [7262] = {.lex_state = 252, .external_lex_state = 6},
+  [7263] = {.lex_state = 1281, .external_lex_state = 5},
+  [7264] = {.lex_state = 1281, .external_lex_state = 6},
+  [7265] = {.lex_state = 252, .external_lex_state = 6},
+  [7266] = {.lex_state = 1281, .external_lex_state = 6},
+  [7267] = {.lex_state = 1281, .external_lex_state = 5},
+  [7268] = {.lex_state = 258, .external_lex_state = 6},
+  [7269] = {.lex_state = 1281, .external_lex_state = 5},
+  [7270] = {.lex_state = 252, .external_lex_state = 6},
+  [7271] = {.lex_state = 1281, .external_lex_state = 5},
+  [7272] = {.lex_state = 1281, .external_lex_state = 6},
+  [7273] = {.lex_state = 276, .external_lex_state = 5},
+  [7274] = {.lex_state = 1281, .external_lex_state = 10},
+  [7275] = {.lex_state = 1281, .external_lex_state = 6},
+  [7276] = {.lex_state = 1281, .external_lex_state = 5},
+  [7277] = {.lex_state = 1281, .external_lex_state = 6},
+  [7278] = {.lex_state = 1281, .external_lex_state = 5},
+  [7279] = {.lex_state = 258, .external_lex_state = 6},
+  [7280] = {.lex_state = 1281, .external_lex_state = 4},
+  [7281] = {.lex_state = 117, .external_lex_state = 6},
+  [7282] = {.lex_state = 217, .external_lex_state = 6},
+  [7283] = {.lex_state = 1281, .external_lex_state = 5},
+  [7284] = {.lex_state = 1281, .external_lex_state = 5},
+  [7285] = {.lex_state = 252, .external_lex_state = 6},
+  [7286] = {.lex_state = 1281, .external_lex_state = 6},
+  [7287] = {.lex_state = 1281, .external_lex_state = 5},
+  [7288] = {.lex_state = 1281, .external_lex_state = 6},
+  [7289] = {.lex_state = 1281, .external_lex_state = 5},
+  [7290] = {.lex_state = 1281, .external_lex_state = 5},
+  [7291] = {.lex_state = 253, .external_lex_state = 6},
+  [7292] = {.lex_state = 258, .external_lex_state = 6},
+  [7293] = {.lex_state = 1281, .external_lex_state = 5},
+  [7294] = {.lex_state = 1281, .external_lex_state = 5},
+  [7295] = {.lex_state = 1281, .external_lex_state = 5},
+  [7296] = {.lex_state = 1281, .external_lex_state = 5},
+  [7297] = {.lex_state = 1281, .external_lex_state = 4},
+  [7298] = {.lex_state = 1281, .external_lex_state = 6},
+  [7299] = {.lex_state = 1281, .external_lex_state = 6},
+  [7300] = {.lex_state = 1281, .external_lex_state = 5},
+  [7301] = {.lex_state = 276, .external_lex_state = 5},
+  [7302] = {.lex_state = 1281, .external_lex_state = 5},
+  [7303] = {.lex_state = 1281, .external_lex_state = 6},
+  [7304] = {.lex_state = 1281, .external_lex_state = 5},
+  [7305] = {.lex_state = 1281, .external_lex_state = 6},
+  [7306] = {.lex_state = 1281, .external_lex_state = 5},
+  [7307] = {.lex_state = 253, .external_lex_state = 6},
+  [7308] = {.lex_state = 1281, .external_lex_state = 5},
+  [7309] = {.lex_state = 1281, .external_lex_state = 5},
+  [7310] = {.lex_state = 1281, .external_lex_state = 6},
+  [7311] = {.lex_state = 1281, .external_lex_state = 5},
+  [7312] = {.lex_state = 1281, .external_lex_state = 5},
+  [7313] = {.lex_state = 1281, .external_lex_state = 5},
+  [7314] = {.lex_state = 1281, .external_lex_state = 5},
+  [7315] = {.lex_state = 1281, .external_lex_state = 6},
+  [7316] = {.lex_state = 276, .external_lex_state = 6},
+  [7317] = {.lex_state = 1281, .external_lex_state = 5},
+  [7318] = {.lex_state = 259, .external_lex_state = 6},
+  [7319] = {.lex_state = 259, .external_lex_state = 6},
+  [7320] = {.lex_state = 259, .external_lex_state = 6},
+  [7321] = {.lex_state = 259, .external_lex_state = 6},
   [7322] = {.lex_state = 107, .external_lex_state = 6},
-  [7323] = {.lex_state = 1301, .external_lex_state = 5},
-  [7324] = {.lex_state = 107, .external_lex_state = 6},
-  [7325] = {.lex_state = 107, .external_lex_state = 6},
-  [7326] = {.lex_state = 1301, .external_lex_state = 5},
-  [7327] = {.lex_state = 1301, .external_lex_state = 6},
-  [7328] = {.lex_state = 107, .external_lex_state = 6},
-  [7329] = {.lex_state = 107, .external_lex_state = 6},
-  [7330] = {.lex_state = 107, .external_lex_state = 6},
-  [7331] = {.lex_state = 1301, .external_lex_state = 5},
-  [7332] = {.lex_state = 107, .external_lex_state = 6},
-  [7333] = {.lex_state = 107, .external_lex_state = 6},
-  [7334] = {.lex_state = 1301, .external_lex_state = 5},
+  [7323] = {.lex_state = 1281, .external_lex_state = 5},
+  [7324] = {.lex_state = 1281, .external_lex_state = 5},
+  [7325] = {.lex_state = 1281, .external_lex_state = 5},
+  [7326] = {.lex_state = 1281, .external_lex_state = 5},
+  [7327] = {.lex_state = 1281, .external_lex_state = 5},
+  [7328] = {.lex_state = 276, .external_lex_state = 6},
+  [7329] = {.lex_state = 1281, .external_lex_state = 6},
+  [7330] = {.lex_state = 276, .external_lex_state = 6},
+  [7331] = {.lex_state = 1281, .external_lex_state = 5},
+  [7332] = {.lex_state = 1281, .external_lex_state = 5},
+  [7333] = {.lex_state = 259, .external_lex_state = 6},
+  [7334] = {.lex_state = 276, .external_lex_state = 6},
   [7335] = {.lex_state = 276, .external_lex_state = 6},
-  [7336] = {.lex_state = 107, .external_lex_state = 6},
-  [7337] = {.lex_state = 107, .external_lex_state = 6},
-  [7338] = {.lex_state = 1301, .external_lex_state = 6},
-  [7339] = {.lex_state = 1301, .external_lex_state = 5},
-  [7340] = {.lex_state = 107, .external_lex_state = 6},
-  [7341] = {.lex_state = 107, .external_lex_state = 6},
-  [7342] = {.lex_state = 1301, .external_lex_state = 5},
-  [7343] = {.lex_state = 1301, .external_lex_state = 5},
-  [7344] = {.lex_state = 107, .external_lex_state = 6},
-  [7345] = {.lex_state = 107, .external_lex_state = 6},
-  [7346] = {.lex_state = 276, .external_lex_state = 6},
-  [7347] = {.lex_state = 1301, .external_lex_state = 5},
-  [7348] = {.lex_state = 107, .external_lex_state = 6},
-  [7349] = {.lex_state = 107, .external_lex_state = 6},
-  [7350] = {.lex_state = 1301, .external_lex_state = 6},
-  [7351] = {.lex_state = 107, .external_lex_state = 6},
-  [7352] = {.lex_state = 107, .external_lex_state = 6},
-  [7353] = {.lex_state = 1301, .external_lex_state = 5},
-  [7354] = {.lex_state = 259, .external_lex_state = 6},
-  [7355] = {.lex_state = 107, .external_lex_state = 6},
-  [7356] = {.lex_state = 107, .external_lex_state = 6},
+  [7336] = {.lex_state = 259, .external_lex_state = 6},
+  [7337] = {.lex_state = 1281, .external_lex_state = 6},
+  [7338] = {.lex_state = 259, .external_lex_state = 6},
+  [7339] = {.lex_state = 1281, .external_lex_state = 5},
+  [7340] = {.lex_state = 1281, .external_lex_state = 5},
+  [7341] = {.lex_state = 259, .external_lex_state = 6},
+  [7342] = {.lex_state = 1281, .external_lex_state = 5},
+  [7343] = {.lex_state = 1281, .external_lex_state = 5},
+  [7344] = {.lex_state = 1281, .external_lex_state = 5},
+  [7345] = {.lex_state = 1281, .external_lex_state = 5},
+  [7346] = {.lex_state = 259, .external_lex_state = 6},
+  [7347] = {.lex_state = 1281, .external_lex_state = 5},
+  [7348] = {.lex_state = 259, .external_lex_state = 6},
+  [7349] = {.lex_state = 1281, .external_lex_state = 5},
+  [7350] = {.lex_state = 1281, .external_lex_state = 6},
+  [7351] = {.lex_state = 1281, .external_lex_state = 5},
+  [7352] = {.lex_state = 117, .external_lex_state = 6},
+  [7353] = {.lex_state = 1281, .external_lex_state = 6},
+  [7354] = {.lex_state = 1281, .external_lex_state = 6},
+  [7355] = {.lex_state = 1281, .external_lex_state = 5},
+  [7356] = {.lex_state = 1281, .external_lex_state = 5},
   [7357] = {.lex_state = 107, .external_lex_state = 6},
-  [7358] = {.lex_state = 1301, .external_lex_state = 5},
-  [7359] = {.lex_state = 107, .external_lex_state = 6},
-  [7360] = {.lex_state = 107, .external_lex_state = 6},
-  [7361] = {.lex_state = 1301, .external_lex_state = 5},
-  [7362] = {.lex_state = 107, .external_lex_state = 6},
-  [7363] = {.lex_state = 107, .external_lex_state = 6},
-  [7364] = {.lex_state = 1301, .external_lex_state = 5},
-  [7365] = {.lex_state = 1301, .external_lex_state = 5},
-  [7366] = {.lex_state = 107, .external_lex_state = 6},
-  [7367] = {.lex_state = 107, .external_lex_state = 6},
-  [7368] = {.lex_state = 1301, .external_lex_state = 5},
-  [7369] = {.lex_state = 107, .external_lex_state = 6},
-  [7370] = {.lex_state = 107, .external_lex_state = 6},
-  [7371] = {.lex_state = 1301, .external_lex_state = 5},
-  [7372] = {.lex_state = 107, .external_lex_state = 6},
-  [7373] = {.lex_state = 107, .external_lex_state = 6},
-  [7374] = {.lex_state = 107, .external_lex_state = 6},
-  [7375] = {.lex_state = 259, .external_lex_state = 6},
-  [7376] = {.lex_state = 1301, .external_lex_state = 6},
-  [7377] = {.lex_state = 107, .external_lex_state = 6},
-  [7378] = {.lex_state = 107, .external_lex_state = 6},
-  [7379] = {.lex_state = 316, .external_lex_state = 6},
-  [7380] = {.lex_state = 1301, .external_lex_state = 5},
-  [7381] = {.lex_state = 107, .external_lex_state = 6},
-  [7382] = {.lex_state = 107, .external_lex_state = 6},
-  [7383] = {.lex_state = 1301, .external_lex_state = 5},
-  [7384] = {.lex_state = 1301, .external_lex_state = 5},
-  [7385] = {.lex_state = 107, .external_lex_state = 6},
-  [7386] = {.lex_state = 107, .external_lex_state = 6},
-  [7387] = {.lex_state = 1301, .external_lex_state = 6},
-  [7388] = {.lex_state = 107, .external_lex_state = 6},
-  [7389] = {.lex_state = 107, .external_lex_state = 6},
-  [7390] = {.lex_state = 1301, .external_lex_state = 5},
-  [7391] = {.lex_state = 1301, .external_lex_state = 5},
-  [7392] = {.lex_state = 107, .external_lex_state = 6},
-  [7393] = {.lex_state = 107, .external_lex_state = 6},
-  [7394] = {.lex_state = 1301, .external_lex_state = 5},
-  [7395] = {.lex_state = 107, .external_lex_state = 6},
-  [7396] = {.lex_state = 107, .external_lex_state = 6},
-  [7397] = {.lex_state = 1301, .external_lex_state = 5},
+  [7358] = {.lex_state = 1281, .external_lex_state = 5},
+  [7359] = {.lex_state = 1281, .external_lex_state = 5},
+  [7360] = {.lex_state = 1281, .external_lex_state = 5},
+  [7361] = {.lex_state = 1281, .external_lex_state = 5},
+  [7362] = {.lex_state = 1281, .external_lex_state = 5},
+  [7363] = {.lex_state = 1281, .external_lex_state = 5},
+  [7364] = {.lex_state = 107, .external_lex_state = 6},
+  [7365] = {.lex_state = 1281, .external_lex_state = 5},
+  [7366] = {.lex_state = 259, .external_lex_state = 6},
+  [7367] = {.lex_state = 1281, .external_lex_state = 5},
+  [7368] = {.lex_state = 1281, .external_lex_state = 5},
+  [7369] = {.lex_state = 1281, .external_lex_state = 5},
+  [7370] = {.lex_state = 259, .external_lex_state = 6},
+  [7371] = {.lex_state = 1281, .external_lex_state = 5},
+  [7372] = {.lex_state = 1281, .external_lex_state = 5},
+  [7373] = {.lex_state = 1281, .external_lex_state = 5},
+  [7374] = {.lex_state = 1281, .external_lex_state = 5},
+  [7375] = {.lex_state = 1281, .external_lex_state = 5},
+  [7376] = {.lex_state = 1281, .external_lex_state = 5},
+  [7377] = {.lex_state = 1281, .external_lex_state = 5},
+  [7378] = {.lex_state = 259, .external_lex_state = 6},
+  [7379] = {.lex_state = 1281, .external_lex_state = 5},
+  [7380] = {.lex_state = 1281, .external_lex_state = 5},
+  [7381] = {.lex_state = 1281, .external_lex_state = 5},
+  [7382] = {.lex_state = 1281, .external_lex_state = 5},
+  [7383] = {.lex_state = 1281, .external_lex_state = 5},
+  [7384] = {.lex_state = 1281, .external_lex_state = 5},
+  [7385] = {.lex_state = 1281, .external_lex_state = 5},
+  [7386] = {.lex_state = 226, .external_lex_state = 6},
+  [7387] = {.lex_state = 1281, .external_lex_state = 5},
+  [7388] = {.lex_state = 259, .external_lex_state = 6},
+  [7389] = {.lex_state = 1281, .external_lex_state = 6},
+  [7390] = {.lex_state = 107, .external_lex_state = 6},
+  [7391] = {.lex_state = 1281, .external_lex_state = 5},
+  [7392] = {.lex_state = 1281, .external_lex_state = 5},
+  [7393] = {.lex_state = 1281, .external_lex_state = 6},
+  [7394] = {.lex_state = 1281, .external_lex_state = 5},
+  [7395] = {.lex_state = 259, .external_lex_state = 6},
+  [7396] = {.lex_state = 276, .external_lex_state = 6},
+  [7397] = {.lex_state = 259, .external_lex_state = 6},
   [7398] = {.lex_state = 107, .external_lex_state = 6},
-  [7399] = {.lex_state = 107, .external_lex_state = 6},
-  [7400] = {.lex_state = 1301, .external_lex_state = 5},
-  [7401] = {.lex_state = 107, .external_lex_state = 6},
+  [7399] = {.lex_state = 1281, .external_lex_state = 5},
+  [7400] = {.lex_state = 1281, .external_lex_state = 6},
+  [7401] = {.lex_state = 316, .external_lex_state = 6},
   [7402] = {.lex_state = 107, .external_lex_state = 6},
-  [7403] = {.lex_state = 259, .external_lex_state = 6},
+  [7403] = {.lex_state = 1281, .external_lex_state = 5},
   [7404] = {.lex_state = 107, .external_lex_state = 6},
-  [7405] = {.lex_state = 107, .external_lex_state = 6},
-  [7406] = {.lex_state = 1301, .external_lex_state = 5},
-  [7407] = {.lex_state = 107, .external_lex_state = 6},
-  [7408] = {.lex_state = 107, .external_lex_state = 6},
-  [7409] = {.lex_state = 1301, .external_lex_state = 5},
-  [7410] = {.lex_state = 107, .external_lex_state = 6},
-  [7411] = {.lex_state = 107, .external_lex_state = 6},
-  [7412] = {.lex_state = 107, .external_lex_state = 6},
-  [7413] = {.lex_state = 259, .external_lex_state = 6},
-  [7414] = {.lex_state = 107, .external_lex_state = 6},
-  [7415] = {.lex_state = 1301, .external_lex_state = 6},
-  [7416] = {.lex_state = 259, .external_lex_state = 6},
-  [7417] = {.lex_state = 1301, .external_lex_state = 5},
-  [7418] = {.lex_state = 1301, .external_lex_state = 5},
-  [7419] = {.lex_state = 1301, .external_lex_state = 5},
-  [7420] = {.lex_state = 259, .external_lex_state = 6},
-  [7421] = {.lex_state = 1301, .external_lex_state = 5},
-  [7422] = {.lex_state = 1301, .external_lex_state = 5},
-  [7423] = {.lex_state = 1301, .external_lex_state = 5},
-  [7424] = {.lex_state = 1301, .external_lex_state = 5},
-  [7425] = {.lex_state = 1301, .external_lex_state = 5},
-  [7426] = {.lex_state = 1301, .external_lex_state = 5},
-  [7427] = {.lex_state = 259, .external_lex_state = 6},
-  [7428] = {.lex_state = 276, .external_lex_state = 6},
-  [7429] = {.lex_state = 1301, .external_lex_state = 5},
-  [7430] = {.lex_state = 1301, .external_lex_state = 5},
-  [7431] = {.lex_state = 1301, .external_lex_state = 5},
-  [7432] = {.lex_state = 1301, .external_lex_state = 5},
-  [7433] = {.lex_state = 1301, .external_lex_state = 5},
-  [7434] = {.lex_state = 1301, .external_lex_state = 5},
-  [7435] = {.lex_state = 1301, .external_lex_state = 5},
-  [7436] = {.lex_state = 1301, .external_lex_state = 5},
-  [7437] = {.lex_state = 224, .external_lex_state = 6},
-  [7438] = {.lex_state = 107, .external_lex_state = 6},
-  [7439] = {.lex_state = 1301, .external_lex_state = 5},
-  [7440] = {.lex_state = 1301, .external_lex_state = 6},
-  [7441] = {.lex_state = 259, .external_lex_state = 6},
-  [7442] = {.lex_state = 1301, .external_lex_state = 5},
-  [7443] = {.lex_state = 318, .external_lex_state = 6},
-  [7444] = {.lex_state = 1301, .external_lex_state = 6},
-  [7445] = {.lex_state = 1301, .external_lex_state = 6},
-  [7446] = {.lex_state = 1301, .external_lex_state = 5},
-  [7447] = {.lex_state = 107, .external_lex_state = 6},
-  [7448] = {.lex_state = 1301, .external_lex_state = 6},
-  [7449] = {.lex_state = 117, .external_lex_state = 6},
-  [7450] = {.lex_state = 259, .external_lex_state = 6},
-  [7451] = {.lex_state = 259, .external_lex_state = 6},
-  [7452] = {.lex_state = 1301, .external_lex_state = 5},
-  [7453] = {.lex_state = 1301, .external_lex_state = 5},
-  [7454] = {.lex_state = 1301, .external_lex_state = 5},
-  [7455] = {.lex_state = 276, .external_lex_state = 6},
-  [7456] = {.lex_state = 1301, .external_lex_state = 5},
-  [7457] = {.lex_state = 1301, .external_lex_state = 5},
-  [7458] = {.lex_state = 1301, .external_lex_state = 5},
-  [7459] = {.lex_state = 1301, .external_lex_state = 5},
-  [7460] = {.lex_state = 1301, .external_lex_state = 5},
-  [7461] = {.lex_state = 259, .external_lex_state = 6},
-  [7462] = {.lex_state = 1301, .external_lex_state = 5},
-  [7463] = {.lex_state = 276, .external_lex_state = 6},
-  [7464] = {.lex_state = 1301, .external_lex_state = 5},
-  [7465] = {.lex_state = 1301, .external_lex_state = 5},
-  [7466] = {.lex_state = 259, .external_lex_state = 6},
-  [7467] = {.lex_state = 117, .external_lex_state = 6},
-  [7468] = {.lex_state = 1301, .external_lex_state = 5},
-  [7469] = {.lex_state = 259, .external_lex_state = 6},
-  [7470] = {.lex_state = 1301, .external_lex_state = 5},
-  [7471] = {.lex_state = 1301, .external_lex_state = 5},
-  [7472] = {.lex_state = 1301, .external_lex_state = 5},
-  [7473] = {.lex_state = 276, .external_lex_state = 6},
-  [7474] = {.lex_state = 1301, .external_lex_state = 5},
-  [7475] = {.lex_state = 1301, .external_lex_state = 5},
-  [7476] = {.lex_state = 1301, .external_lex_state = 5},
-  [7477] = {.lex_state = 259, .external_lex_state = 6},
-  [7478] = {.lex_state = 107, .external_lex_state = 6},
-  [7479] = {.lex_state = 259, .external_lex_state = 6},
-  [7480] = {.lex_state = 1301, .external_lex_state = 5},
-  [7481] = {.lex_state = 1301, .external_lex_state = 5},
-  [7482] = {.lex_state = 1301, .external_lex_state = 5},
-  [7483] = {.lex_state = 1301, .external_lex_state = 5},
-  [7484] = {.lex_state = 1301, .external_lex_state = 5},
-  [7485] = {.lex_state = 107, .external_lex_state = 6},
-  [7486] = {.lex_state = 1301, .external_lex_state = 5},
-  [7487] = {.lex_state = 1301, .external_lex_state = 5},
-  [7488] = {.lex_state = 259, .external_lex_state = 6},
-  [7489] = {.lex_state = 259, .external_lex_state = 6},
-  [7490] = {.lex_state = 1301, .external_lex_state = 5},
-  [7491] = {.lex_state = 1301, .external_lex_state = 6},
-  [7492] = {.lex_state = 1301, .external_lex_state = 5},
-  [7493] = {.lex_state = 217, .external_lex_state = 6},
-  [7494] = {.lex_state = 217, .external_lex_state = 6},
-  [7495] = {.lex_state = 1301, .external_lex_state = 5},
-  [7496] = {.lex_state = 1301, .external_lex_state = 5},
-  [7497] = {.lex_state = 107, .external_lex_state = 6},
-  [7498] = {.lex_state = 276, .external_lex_state = 6},
-  [7499] = {.lex_state = 1301, .external_lex_state = 5},
-  [7500] = {.lex_state = 107, .external_lex_state = 6},
-  [7501] = {.lex_state = 1301, .external_lex_state = 5},
-  [7502] = {.lex_state = 1301, .external_lex_state = 5},
-  [7503] = {.lex_state = 1301, .external_lex_state = 5},
-  [7504] = {.lex_state = 1301, .external_lex_state = 5},
-  [7505] = {.lex_state = 1301, .external_lex_state = 5},
-  [7506] = {.lex_state = 1301, .external_lex_state = 5},
-  [7507] = {.lex_state = 1301, .external_lex_state = 5},
-  [7508] = {.lex_state = 259, .external_lex_state = 6},
-  [7509] = {.lex_state = 276, .external_lex_state = 6},
-  [7510] = {.lex_state = 107, .external_lex_state = 6},
-  [7511] = {.lex_state = 259, .external_lex_state = 6},
-  [7512] = {.lex_state = 1301, .external_lex_state = 5},
-  [7513] = {.lex_state = 1301, .external_lex_state = 5},
-  [7514] = {.lex_state = 1301, .external_lex_state = 5},
-  [7515] = {.lex_state = 1301, .external_lex_state = 6},
-  [7516] = {.lex_state = 276, .external_lex_state = 6},
-  [7517] = {.lex_state = 259, .external_lex_state = 6},
-  [7518] = {.lex_state = 1301, .external_lex_state = 5},
-  [7519] = {.lex_state = 316, .external_lex_state = 6},
-  [7520] = {.lex_state = 259, .external_lex_state = 6},
-  [7521] = {.lex_state = 276, .external_lex_state = 6},
-  [7522] = {.lex_state = 1301, .external_lex_state = 5},
-  [7523] = {.lex_state = 1301, .external_lex_state = 6},
+  [7405] = {.lex_state = 1281, .external_lex_state = 5},
+  [7406] = {.lex_state = 1281, .external_lex_state = 5},
+  [7407] = {.lex_state = 1281, .external_lex_state = 5},
+  [7408] = {.lex_state = 1281, .external_lex_state = 5},
+  [7409] = {.lex_state = 1281, .external_lex_state = 5},
+  [7410] = {.lex_state = 1281, .external_lex_state = 5},
+  [7411] = {.lex_state = 1281, .external_lex_state = 6},
+  [7412] = {.lex_state = 1281, .external_lex_state = 5},
+  [7413] = {.lex_state = 107, .external_lex_state = 6},
+  [7414] = {.lex_state = 1281, .external_lex_state = 5},
+  [7415] = {.lex_state = 1281, .external_lex_state = 5},
+  [7416] = {.lex_state = 276, .external_lex_state = 6},
+  [7417] = {.lex_state = 276, .external_lex_state = 6},
+  [7418] = {.lex_state = 276, .external_lex_state = 6},
+  [7419] = {.lex_state = 1281, .external_lex_state = 5},
+  [7420] = {.lex_state = 1281, .external_lex_state = 5},
+  [7421] = {.lex_state = 259, .external_lex_state = 6},
+  [7422] = {.lex_state = 1281, .external_lex_state = 5},
+  [7423] = {.lex_state = 107, .external_lex_state = 6},
+  [7424] = {.lex_state = 1281, .external_lex_state = 5},
+  [7425] = {.lex_state = 318, .external_lex_state = 6},
+  [7426] = {.lex_state = 107, .external_lex_state = 6},
+  [7427] = {.lex_state = 107, .external_lex_state = 6},
+  [7428] = {.lex_state = 1281, .external_lex_state = 6},
+  [7429] = {.lex_state = 1281, .external_lex_state = 5},
+  [7430] = {.lex_state = 1281, .external_lex_state = 5},
+  [7431] = {.lex_state = 1281, .external_lex_state = 5},
+  [7432] = {.lex_state = 1281, .external_lex_state = 5},
+  [7433] = {.lex_state = 1281, .external_lex_state = 5},
+  [7434] = {.lex_state = 1281, .external_lex_state = 5},
+  [7435] = {.lex_state = 1281, .external_lex_state = 5},
+  [7436] = {.lex_state = 1281, .external_lex_state = 5},
+  [7437] = {.lex_state = 1281, .external_lex_state = 5},
+  [7438] = {.lex_state = 1281, .external_lex_state = 5},
+  [7439] = {.lex_state = 1281, .external_lex_state = 5},
+  [7440] = {.lex_state = 1281, .external_lex_state = 5},
+  [7441] = {.lex_state = 1281, .external_lex_state = 5},
+  [7442] = {.lex_state = 1281, .external_lex_state = 5},
+  [7443] = {.lex_state = 1281, .external_lex_state = 5},
+  [7444] = {.lex_state = 1281, .external_lex_state = 5},
+  [7445] = {.lex_state = 1281, .external_lex_state = 5},
+  [7446] = {.lex_state = 1281, .external_lex_state = 5},
+  [7447] = {.lex_state = 1281, .external_lex_state = 5},
+  [7448] = {.lex_state = 1281, .external_lex_state = 5},
+  [7449] = {.lex_state = 259, .external_lex_state = 6},
+  [7450] = {.lex_state = 1281, .external_lex_state = 5},
+  [7451] = {.lex_state = 1281, .external_lex_state = 5},
+  [7452] = {.lex_state = 107, .external_lex_state = 6},
+  [7453] = {.lex_state = 259, .external_lex_state = 6},
+  [7454] = {.lex_state = 1281, .external_lex_state = 5},
+  [7455] = {.lex_state = 1281, .external_lex_state = 5},
+  [7456] = {.lex_state = 107, .external_lex_state = 6},
+  [7457] = {.lex_state = 1281, .external_lex_state = 5},
+  [7458] = {.lex_state = 1281, .external_lex_state = 5},
+  [7459] = {.lex_state = 1281, .external_lex_state = 5},
+  [7460] = {.lex_state = 1281, .external_lex_state = 5},
+  [7461] = {.lex_state = 1281, .external_lex_state = 5},
+  [7462] = {.lex_state = 1281, .external_lex_state = 5},
+  [7463] = {.lex_state = 259, .external_lex_state = 6},
+  [7464] = {.lex_state = 259, .external_lex_state = 6},
+  [7465] = {.lex_state = 318, .external_lex_state = 6},
+  [7466] = {.lex_state = 1281, .external_lex_state = 6},
+  [7467] = {.lex_state = 1281, .external_lex_state = 6},
+  [7468] = {.lex_state = 107, .external_lex_state = 6},
+  [7469] = {.lex_state = 1281, .external_lex_state = 5},
+  [7470] = {.lex_state = 1281, .external_lex_state = 5},
+  [7471] = {.lex_state = 1281, .external_lex_state = 5},
+  [7472] = {.lex_state = 1281, .external_lex_state = 5},
+  [7473] = {.lex_state = 1281, .external_lex_state = 5},
+  [7474] = {.lex_state = 1281, .external_lex_state = 6},
+  [7475] = {.lex_state = 1281, .external_lex_state = 5},
+  [7476] = {.lex_state = 1281, .external_lex_state = 5},
+  [7477] = {.lex_state = 1281, .external_lex_state = 5},
+  [7478] = {.lex_state = 259, .external_lex_state = 6},
+  [7479] = {.lex_state = 1281, .external_lex_state = 5},
+  [7480] = {.lex_state = 1281, .external_lex_state = 5},
+  [7481] = {.lex_state = 107, .external_lex_state = 6},
+  [7482] = {.lex_state = 1281, .external_lex_state = 5},
+  [7483] = {.lex_state = 1281, .external_lex_state = 6},
+  [7484] = {.lex_state = 1281, .external_lex_state = 5},
+  [7485] = {.lex_state = 1281, .external_lex_state = 5},
+  [7486] = {.lex_state = 314, .external_lex_state = 6},
+  [7487] = {.lex_state = 1281, .external_lex_state = 5},
+  [7488] = {.lex_state = 1281, .external_lex_state = 5},
+  [7489] = {.lex_state = 1281, .external_lex_state = 5},
+  [7490] = {.lex_state = 1281, .external_lex_state = 5},
+  [7491] = {.lex_state = 224, .external_lex_state = 6},
+  [7492] = {.lex_state = 259, .external_lex_state = 6},
+  [7493] = {.lex_state = 259, .external_lex_state = 6},
+  [7494] = {.lex_state = 1281, .external_lex_state = 5},
+  [7495] = {.lex_state = 1281, .external_lex_state = 5},
+  [7496] = {.lex_state = 1281, .external_lex_state = 6},
+  [7497] = {.lex_state = 316, .external_lex_state = 6},
+  [7498] = {.lex_state = 1281, .external_lex_state = 5},
+  [7499] = {.lex_state = 1281, .external_lex_state = 5},
+  [7500] = {.lex_state = 259, .external_lex_state = 6},
+  [7501] = {.lex_state = 224, .external_lex_state = 6},
+  [7502] = {.lex_state = 107, .external_lex_state = 6},
+  [7503] = {.lex_state = 1281, .external_lex_state = 5},
+  [7504] = {.lex_state = 1281, .external_lex_state = 5},
+  [7505] = {.lex_state = 259, .external_lex_state = 6},
+  [7506] = {.lex_state = 259, .external_lex_state = 6},
+  [7507] = {.lex_state = 1281, .external_lex_state = 5},
+  [7508] = {.lex_state = 107, .external_lex_state = 6},
+  [7509] = {.lex_state = 1281, .external_lex_state = 5},
+  [7510] = {.lex_state = 117, .external_lex_state = 6},
+  [7511] = {.lex_state = 1281, .external_lex_state = 5},
+  [7512] = {.lex_state = 276, .external_lex_state = 6},
+  [7513] = {.lex_state = 1281, .external_lex_state = 5},
+  [7514] = {.lex_state = 117, .external_lex_state = 6},
+  [7515] = {.lex_state = 259, .external_lex_state = 6},
+  [7516] = {.lex_state = 259, .external_lex_state = 6},
+  [7517] = {.lex_state = 1281, .external_lex_state = 5},
+  [7518] = {.lex_state = 1281, .external_lex_state = 5},
+  [7519] = {.lex_state = 1281, .external_lex_state = 5},
+  [7520] = {.lex_state = 1281, .external_lex_state = 5},
+  [7521] = {.lex_state = 1281, .external_lex_state = 5},
+  [7522] = {.lex_state = 1281, .external_lex_state = 5},
+  [7523] = {.lex_state = 1281, .external_lex_state = 5},
   [7524] = {.lex_state = 276, .external_lex_state = 6},
-  [7525] = {.lex_state = 1301, .external_lex_state = 5},
-  [7526] = {.lex_state = 107, .external_lex_state = 6},
-  [7527] = {.lex_state = 1301, .external_lex_state = 5},
-  [7528] = {.lex_state = 1301, .external_lex_state = 5},
-  [7529] = {.lex_state = 107, .external_lex_state = 6},
-  [7530] = {.lex_state = 1301, .external_lex_state = 5},
+  [7525] = {.lex_state = 1281, .external_lex_state = 5},
+  [7526] = {.lex_state = 117, .external_lex_state = 6},
+  [7527] = {.lex_state = 117, .external_lex_state = 6},
+  [7528] = {.lex_state = 107, .external_lex_state = 6},
+  [7529] = {.lex_state = 1281, .external_lex_state = 5},
+  [7530] = {.lex_state = 107, .external_lex_state = 6},
   [7531] = {.lex_state = 107, .external_lex_state = 6},
-  [7532] = {.lex_state = 1301, .external_lex_state = 5},
-  [7533] = {.lex_state = 107, .external_lex_state = 6},
+  [7532] = {.lex_state = 107, .external_lex_state = 6},
+  [7533] = {.lex_state = 1281, .external_lex_state = 5},
   [7534] = {.lex_state = 107, .external_lex_state = 6},
-  [7535] = {.lex_state = 318, .external_lex_state = 6},
-  [7536] = {.lex_state = 1301, .external_lex_state = 6},
-  [7537] = {.lex_state = 1301, .external_lex_state = 6},
-  [7538] = {.lex_state = 107, .external_lex_state = 6},
-  [7539] = {.lex_state = 276, .external_lex_state = 6},
+  [7535] = {.lex_state = 276, .external_lex_state = 6},
+  [7536] = {.lex_state = 1281, .external_lex_state = 5},
+  [7537] = {.lex_state = 1281, .external_lex_state = 5},
+  [7538] = {.lex_state = 1281, .external_lex_state = 6},
+  [7539] = {.lex_state = 1281, .external_lex_state = 5},
   [7540] = {.lex_state = 107, .external_lex_state = 6},
   [7541] = {.lex_state = 107, .external_lex_state = 6},
-  [7542] = {.lex_state = 1301, .external_lex_state = 5},
+  [7542] = {.lex_state = 1281, .external_lex_state = 6},
   [7543] = {.lex_state = 107, .external_lex_state = 6},
-  [7544] = {.lex_state = 276, .external_lex_state = 6},
-  [7545] = {.lex_state = 1301, .external_lex_state = 6},
-  [7546] = {.lex_state = 259, .external_lex_state = 6},
-  [7547] = {.lex_state = 1301, .external_lex_state = 5},
-  [7548] = {.lex_state = 1301, .external_lex_state = 5},
-  [7549] = {.lex_state = 1301, .external_lex_state = 5},
-  [7550] = {.lex_state = 1301, .external_lex_state = 5},
-  [7551] = {.lex_state = 1301, .external_lex_state = 5},
-  [7552] = {.lex_state = 1301, .external_lex_state = 5},
-  [7553] = {.lex_state = 1301, .external_lex_state = 5},
-  [7554] = {.lex_state = 1301, .external_lex_state = 5},
+  [7544] = {.lex_state = 1281, .external_lex_state = 5},
+  [7545] = {.lex_state = 1281, .external_lex_state = 5},
+  [7546] = {.lex_state = 1281, .external_lex_state = 5},
+  [7547] = {.lex_state = 107, .external_lex_state = 6},
+  [7548] = {.lex_state = 107, .external_lex_state = 6},
+  [7549] = {.lex_state = 107, .external_lex_state = 6},
+  [7550] = {.lex_state = 276, .external_lex_state = 6},
+  [7551] = {.lex_state = 1281, .external_lex_state = 5},
+  [7552] = {.lex_state = 107, .external_lex_state = 6},
+  [7553] = {.lex_state = 107, .external_lex_state = 6},
+  [7554] = {.lex_state = 107, .external_lex_state = 6},
   [7555] = {.lex_state = 107, .external_lex_state = 6},
-  [7556] = {.lex_state = 1301, .external_lex_state = 5},
-  [7557] = {.lex_state = 224, .external_lex_state = 6},
-  [7558] = {.lex_state = 1301, .external_lex_state = 5},
-  [7559] = {.lex_state = 1301, .external_lex_state = 5},
-  [7560] = {.lex_state = 1301, .external_lex_state = 5},
-  [7561] = {.lex_state = 1301, .external_lex_state = 5},
-  [7562] = {.lex_state = 316, .external_lex_state = 6},
-  [7563] = {.lex_state = 1301, .external_lex_state = 5},
-  [7564] = {.lex_state = 1301, .external_lex_state = 6},
-  [7565] = {.lex_state = 1301, .external_lex_state = 5},
-  [7566] = {.lex_state = 1301, .external_lex_state = 5},
-  [7567] = {.lex_state = 318, .external_lex_state = 6},
-  [7568] = {.lex_state = 107, .external_lex_state = 6},
-  [7569] = {.lex_state = 1301, .external_lex_state = 5},
-  [7570] = {.lex_state = 259, .external_lex_state = 6},
-  [7571] = {.lex_state = 1301, .external_lex_state = 5},
-  [7572] = {.lex_state = 1301, .external_lex_state = 5},
-  [7573] = {.lex_state = 1301, .external_lex_state = 5},
-  [7574] = {.lex_state = 107, .external_lex_state = 6},
-  [7575] = {.lex_state = 107, .external_lex_state = 6},
-  [7576] = {.lex_state = 276, .external_lex_state = 6},
-  [7577] = {.lex_state = 259, .external_lex_state = 6},
-  [7578] = {.lex_state = 1301, .external_lex_state = 5},
-  [7579] = {.lex_state = 1301, .external_lex_state = 5},
-  [7580] = {.lex_state = 1301, .external_lex_state = 5},
-  [7581] = {.lex_state = 1301, .external_lex_state = 6},
+  [7556] = {.lex_state = 107, .external_lex_state = 6},
+  [7557] = {.lex_state = 107, .external_lex_state = 6},
+  [7558] = {.lex_state = 1281, .external_lex_state = 6},
+  [7559] = {.lex_state = 107, .external_lex_state = 6},
+  [7560] = {.lex_state = 107, .external_lex_state = 6},
+  [7561] = {.lex_state = 107, .external_lex_state = 6},
+  [7562] = {.lex_state = 318, .external_lex_state = 6},
+  [7563] = {.lex_state = 1281, .external_lex_state = 5},
+  [7564] = {.lex_state = 107, .external_lex_state = 6},
+  [7565] = {.lex_state = 1281, .external_lex_state = 6},
+  [7566] = {.lex_state = 1281, .external_lex_state = 5},
+  [7567] = {.lex_state = 259, .external_lex_state = 6},
+  [7568] = {.lex_state = 1281, .external_lex_state = 6},
+  [7569] = {.lex_state = 107, .external_lex_state = 6},
+  [7570] = {.lex_state = 107, .external_lex_state = 6},
+  [7571] = {.lex_state = 107, .external_lex_state = 6},
+  [7572] = {.lex_state = 107, .external_lex_state = 6},
+  [7573] = {.lex_state = 107, .external_lex_state = 6},
+  [7574] = {.lex_state = 259, .external_lex_state = 6},
+  [7575] = {.lex_state = 1281, .external_lex_state = 5},
+  [7576] = {.lex_state = 107, .external_lex_state = 6},
+  [7577] = {.lex_state = 107, .external_lex_state = 6},
+  [7578] = {.lex_state = 316, .external_lex_state = 6},
+  [7579] = {.lex_state = 107, .external_lex_state = 6},
+  [7580] = {.lex_state = 1281, .external_lex_state = 5},
+  [7581] = {.lex_state = 276, .external_lex_state = 6},
   [7582] = {.lex_state = 107, .external_lex_state = 6},
-  [7583] = {.lex_state = 1301, .external_lex_state = 5},
-  [7584] = {.lex_state = 1301, .external_lex_state = 5},
-  [7585] = {.lex_state = 259, .external_lex_state = 6},
-  [7586] = {.lex_state = 1301, .external_lex_state = 6},
-  [7587] = {.lex_state = 259, .external_lex_state = 6},
-  [7588] = {.lex_state = 107, .external_lex_state = 6},
-  [7589] = {.lex_state = 276, .external_lex_state = 6},
-  [7590] = {.lex_state = 1301, .external_lex_state = 5},
-  [7591] = {.lex_state = 117, .external_lex_state = 6},
+  [7583] = {.lex_state = 107, .external_lex_state = 6},
+  [7584] = {.lex_state = 318, .external_lex_state = 6},
+  [7585] = {.lex_state = 107, .external_lex_state = 6},
+  [7586] = {.lex_state = 107, .external_lex_state = 6},
+  [7587] = {.lex_state = 1281, .external_lex_state = 6},
+  [7588] = {.lex_state = 217, .external_lex_state = 6},
+  [7589] = {.lex_state = 1281, .external_lex_state = 5},
+  [7590] = {.lex_state = 107, .external_lex_state = 6},
+  [7591] = {.lex_state = 107, .external_lex_state = 6},
   [7592] = {.lex_state = 107, .external_lex_state = 6},
-  [7593] = {.lex_state = 1301, .external_lex_state = 5},
-  [7594] = {.lex_state = 1301, .external_lex_state = 5},
+  [7593] = {.lex_state = 107, .external_lex_state = 6},
+  [7594] = {.lex_state = 107, .external_lex_state = 6},
   [7595] = {.lex_state = 107, .external_lex_state = 6},
-  [7596] = {.lex_state = 1301, .external_lex_state = 5},
-  [7597] = {.lex_state = 1301, .external_lex_state = 5},
+  [7596] = {.lex_state = 1281, .external_lex_state = 6},
+  [7597] = {.lex_state = 1281, .external_lex_state = 5},
   [7598] = {.lex_state = 107, .external_lex_state = 6},
-  [7599] = {.lex_state = 276, .external_lex_state = 6},
-  [7600] = {.lex_state = 1301, .external_lex_state = 5},
-  [7601] = {.lex_state = 276, .external_lex_state = 6},
-  [7602] = {.lex_state = 1301, .external_lex_state = 5},
-  [7603] = {.lex_state = 1301, .external_lex_state = 5},
+  [7599] = {.lex_state = 107, .external_lex_state = 6},
+  [7600] = {.lex_state = 1281, .external_lex_state = 6},
+  [7601] = {.lex_state = 1281, .external_lex_state = 5},
+  [7602] = {.lex_state = 107, .external_lex_state = 6},
+  [7603] = {.lex_state = 107, .external_lex_state = 6},
   [7604] = {.lex_state = 107, .external_lex_state = 6},
-  [7605] = {.lex_state = 1301, .external_lex_state = 5},
-  [7606] = {.lex_state = 1301, .external_lex_state = 5},
-  [7607] = {.lex_state = 276, .external_lex_state = 6},
-  [7608] = {.lex_state = 1301, .external_lex_state = 5},
-  [7609] = {.lex_state = 259, .external_lex_state = 6},
-  [7610] = {.lex_state = 226, .external_lex_state = 6},
-  [7611] = {.lex_state = 1301, .external_lex_state = 5},
-  [7612] = {.lex_state = 1301, .external_lex_state = 5},
-  [7613] = {.lex_state = 1301, .external_lex_state = 6},
-  [7614] = {.lex_state = 1301, .external_lex_state = 6},
-  [7615] = {.lex_state = 107, .external_lex_state = 6},
-  [7616] = {.lex_state = 259, .external_lex_state = 6},
+  [7605] = {.lex_state = 1281, .external_lex_state = 6},
+  [7606] = {.lex_state = 107, .external_lex_state = 6},
+  [7607] = {.lex_state = 1281, .external_lex_state = 5},
+  [7608] = {.lex_state = 107, .external_lex_state = 6},
+  [7609] = {.lex_state = 107, .external_lex_state = 6},
+  [7610] = {.lex_state = 1281, .external_lex_state = 6},
+  [7611] = {.lex_state = 107, .external_lex_state = 6},
+  [7612] = {.lex_state = 107, .external_lex_state = 6},
+  [7613] = {.lex_state = 107, .external_lex_state = 6},
+  [7614] = {.lex_state = 107, .external_lex_state = 6},
+  [7615] = {.lex_state = 1281, .external_lex_state = 5},
+  [7616] = {.lex_state = 318, .external_lex_state = 6},
   [7617] = {.lex_state = 107, .external_lex_state = 6},
-  [7618] = {.lex_state = 1301, .external_lex_state = 5},
-  [7619] = {.lex_state = 1301, .external_lex_state = 5},
-  [7620] = {.lex_state = 318, .external_lex_state = 6},
-  [7621] = {.lex_state = 276, .external_lex_state = 6},
-  [7622] = {.lex_state = 1301, .external_lex_state = 5},
-  [7623] = {.lex_state = 1301, .external_lex_state = 5},
-  [7624] = {.lex_state = 1301, .external_lex_state = 6},
-  [7625] = {.lex_state = 117, .external_lex_state = 6},
-  [7626] = {.lex_state = 1301, .external_lex_state = 5},
-  [7627] = {.lex_state = 259, .external_lex_state = 6},
+  [7618] = {.lex_state = 1281, .external_lex_state = 6},
+  [7619] = {.lex_state = 217, .external_lex_state = 6},
+  [7620] = {.lex_state = 107, .external_lex_state = 6},
+  [7621] = {.lex_state = 107, .external_lex_state = 6},
+  [7622] = {.lex_state = 107, .external_lex_state = 6},
+  [7623] = {.lex_state = 276, .external_lex_state = 6},
+  [7624] = {.lex_state = 107, .external_lex_state = 6},
+  [7625] = {.lex_state = 1281, .external_lex_state = 6},
+  [7626] = {.lex_state = 259, .external_lex_state = 6},
+  [7627] = {.lex_state = 107, .external_lex_state = 6},
   [7628] = {.lex_state = 107, .external_lex_state = 6},
-  [7629] = {.lex_state = 1301, .external_lex_state = 6},
-  [7630] = {.lex_state = 1301, .external_lex_state = 5},
-  [7631] = {.lex_state = 1301, .external_lex_state = 5},
-  [7632] = {.lex_state = 1301, .external_lex_state = 5},
-  [7633] = {.lex_state = 1301, .external_lex_state = 5},
-  [7634] = {.lex_state = 1301, .external_lex_state = 5},
-  [7635] = {.lex_state = 1301, .external_lex_state = 5},
-  [7636] = {.lex_state = 1301, .external_lex_state = 5},
-  [7637] = {.lex_state = 1301, .external_lex_state = 5},
-  [7638] = {.lex_state = 276, .external_lex_state = 6},
-  [7639] = {.lex_state = 217, .external_lex_state = 6},
-  [7640] = {.lex_state = 1301, .external_lex_state = 5},
-  [7641] = {.lex_state = 107, .external_lex_state = 6},
+  [7629] = {.lex_state = 1281, .external_lex_state = 5},
+  [7630] = {.lex_state = 1281, .external_lex_state = 5},
+  [7631] = {.lex_state = 1281, .external_lex_state = 6},
+  [7632] = {.lex_state = 107, .external_lex_state = 6},
+  [7633] = {.lex_state = 107, .external_lex_state = 6},
+  [7634] = {.lex_state = 107, .external_lex_state = 6},
+  [7635] = {.lex_state = 107, .external_lex_state = 6},
+  [7636] = {.lex_state = 1281, .external_lex_state = 5},
+  [7637] = {.lex_state = 107, .external_lex_state = 6},
+  [7638] = {.lex_state = 107, .external_lex_state = 6},
+  [7639] = {.lex_state = 1281, .external_lex_state = 6},
+  [7640] = {.lex_state = 1281, .external_lex_state = 5},
+  [7641] = {.lex_state = 276, .external_lex_state = 6},
   [7642] = {.lex_state = 107, .external_lex_state = 6},
-  [7643] = {.lex_state = 1301, .external_lex_state = 5},
-  [7644] = {.lex_state = 1301, .external_lex_state = 5},
-  [7645] = {.lex_state = 1301, .external_lex_state = 6},
-  [7646] = {.lex_state = 1301, .external_lex_state = 6},
-  [7647] = {.lex_state = 1301, .external_lex_state = 5},
-  [7648] = {.lex_state = 1301, .external_lex_state = 5},
-  [7649] = {.lex_state = 1301, .external_lex_state = 5},
+  [7643] = {.lex_state = 1281, .external_lex_state = 5},
+  [7644] = {.lex_state = 1281, .external_lex_state = 5},
+  [7645] = {.lex_state = 107, .external_lex_state = 6},
+  [7646] = {.lex_state = 1281, .external_lex_state = 5},
+  [7647] = {.lex_state = 259, .external_lex_state = 6},
+  [7648] = {.lex_state = 276, .external_lex_state = 6},
+  [7649] = {.lex_state = 1281, .external_lex_state = 5},
   [7650] = {.lex_state = 107, .external_lex_state = 6},
-  [7651] = {.lex_state = 1301, .external_lex_state = 6},
-  [7652] = {.lex_state = 1301, .external_lex_state = 6},
-  [7653] = {.lex_state = 259, .external_lex_state = 6},
-  [7654] = {.lex_state = 1301, .external_lex_state = 5},
+  [7651] = {.lex_state = 1281, .external_lex_state = 6},
+  [7652] = {.lex_state = 276, .external_lex_state = 6},
+  [7653] = {.lex_state = 1281, .external_lex_state = 5},
+  [7654] = {.lex_state = 1281, .external_lex_state = 5},
   [7655] = {.lex_state = 276, .external_lex_state = 6},
-  [7656] = {.lex_state = 259, .external_lex_state = 6},
-  [7657] = {.lex_state = 1301, .external_lex_state = 5},
-  [7658] = {.lex_state = 217, .external_lex_state = 6},
-  [7659] = {.lex_state = 1301, .external_lex_state = 6},
-  [7660] = {.lex_state = 1301, .external_lex_state = 5},
-  [7661] = {.lex_state = 1301, .external_lex_state = 6},
-  [7662] = {.lex_state = 1301, .external_lex_state = 6},
-  [7663] = {.lex_state = 1301, .external_lex_state = 5},
-  [7664] = {.lex_state = 259, .external_lex_state = 6},
-  [7665] = {.lex_state = 1301, .external_lex_state = 6},
-  [7666] = {.lex_state = 1301, .external_lex_state = 6},
-  [7667] = {.lex_state = 1301, .external_lex_state = 5},
-  [7668] = {.lex_state = 107, .external_lex_state = 6},
-  [7669] = {.lex_state = 318, .external_lex_state = 6},
-  [7670] = {.lex_state = 1301, .external_lex_state = 6},
-  [7671] = {.lex_state = 1301, .external_lex_state = 5},
-  [7672] = {.lex_state = 1301, .external_lex_state = 6},
-  [7673] = {.lex_state = 107, .external_lex_state = 6},
-  [7674] = {.lex_state = 1301, .external_lex_state = 5},
+  [7656] = {.lex_state = 107, .external_lex_state = 6},
+  [7657] = {.lex_state = 107, .external_lex_state = 6},
+  [7658] = {.lex_state = 276, .external_lex_state = 6},
+  [7659] = {.lex_state = 1281, .external_lex_state = 5},
+  [7660] = {.lex_state = 217, .external_lex_state = 6},
+  [7661] = {.lex_state = 1281, .external_lex_state = 5},
+  [7662] = {.lex_state = 276, .external_lex_state = 6},
+  [7663] = {.lex_state = 1281, .external_lex_state = 6},
+  [7664] = {.lex_state = 107, .external_lex_state = 6},
+  [7665] = {.lex_state = 1281, .external_lex_state = 5},
+  [7666] = {.lex_state = 1281, .external_lex_state = 5},
+  [7667] = {.lex_state = 107, .external_lex_state = 6},
+  [7668] = {.lex_state = 217, .external_lex_state = 6},
+  [7669] = {.lex_state = 217, .external_lex_state = 6},
+  [7670] = {.lex_state = 107, .external_lex_state = 6},
+  [7671] = {.lex_state = 1281, .external_lex_state = 5},
+  [7672] = {.lex_state = 1281, .external_lex_state = 5},
+  [7673] = {.lex_state = 1281, .external_lex_state = 5},
+  [7674] = {.lex_state = 1281, .external_lex_state = 5},
   [7675] = {.lex_state = 107, .external_lex_state = 6},
-  [7676] = {.lex_state = 1301, .external_lex_state = 5},
-  [7677] = {.lex_state = 1301, .external_lex_state = 5},
-  [7678] = {.lex_state = 1301, .external_lex_state = 5},
-  [7679] = {.lex_state = 1301, .external_lex_state = 5},
-  [7680] = {.lex_state = 1301, .external_lex_state = 5},
-  [7681] = {.lex_state = 107, .external_lex_state = 6},
-  [7682] = {.lex_state = 1301, .external_lex_state = 5},
-  [7683] = {.lex_state = 217, .external_lex_state = 6},
-  [7684] = {.lex_state = 1301, .external_lex_state = 5},
-  [7685] = {.lex_state = 1301, .external_lex_state = 6},
-  [7686] = {.lex_state = 1301, .external_lex_state = 5},
-  [7687] = {.lex_state = 117, .external_lex_state = 6},
-  [7688] = {.lex_state = 1301, .external_lex_state = 5},
-  [7689] = {.lex_state = 107, .external_lex_state = 6},
-  [7690] = {.lex_state = 314, .external_lex_state = 6},
-  [7691] = {.lex_state = 1301, .external_lex_state = 5},
-  [7692] = {.lex_state = 1301, .external_lex_state = 5},
-  [7693] = {.lex_state = 1301, .external_lex_state = 5},
-  [7694] = {.lex_state = 1301, .external_lex_state = 5},
-  [7695] = {.lex_state = 1301, .external_lex_state = 5},
-  [7696] = {.lex_state = 1301, .external_lex_state = 6},
-  [7697] = {.lex_state = 1301, .external_lex_state = 5},
-  [7698] = {.lex_state = 1301, .external_lex_state = 5},
-  [7699] = {.lex_state = 107, .external_lex_state = 6},
-  [7700] = {.lex_state = 1301, .external_lex_state = 5},
-  [7701] = {.lex_state = 1301, .external_lex_state = 5},
-  [7702] = {.lex_state = 1301, .external_lex_state = 5},
-  [7703] = {.lex_state = 259, .external_lex_state = 6},
+  [7676] = {.lex_state = 1281, .external_lex_state = 5},
+  [7677] = {.lex_state = 107, .external_lex_state = 6},
+  [7678] = {.lex_state = 107, .external_lex_state = 6},
+  [7679] = {.lex_state = 107, .external_lex_state = 6},
+  [7680] = {.lex_state = 1281, .external_lex_state = 6},
+  [7681] = {.lex_state = 1281, .external_lex_state = 5},
+  [7682] = {.lex_state = 1281, .external_lex_state = 5},
+  [7683] = {.lex_state = 1281, .external_lex_state = 5},
+  [7684] = {.lex_state = 1281, .external_lex_state = 6},
+  [7685] = {.lex_state = 1281, .external_lex_state = 5},
+  [7686] = {.lex_state = 1281, .external_lex_state = 5},
+  [7687] = {.lex_state = 107, .external_lex_state = 6},
+  [7688] = {.lex_state = 1281, .external_lex_state = 5},
+  [7689] = {.lex_state = 1281, .external_lex_state = 5},
+  [7690] = {.lex_state = 1281, .external_lex_state = 6},
+  [7691] = {.lex_state = 1281, .external_lex_state = 5},
+  [7692] = {.lex_state = 107, .external_lex_state = 6},
+  [7693] = {.lex_state = 1281, .external_lex_state = 5},
+  [7694] = {.lex_state = 1281, .external_lex_state = 5},
+  [7695] = {.lex_state = 1281, .external_lex_state = 5},
+  [7696] = {.lex_state = 1281, .external_lex_state = 6},
+  [7697] = {.lex_state = 1281, .external_lex_state = 5},
+  [7698] = {.lex_state = 107, .external_lex_state = 6},
+  [7699] = {.lex_state = 1281, .external_lex_state = 5},
+  [7700] = {.lex_state = 1281, .external_lex_state = 6},
+  [7701] = {.lex_state = 107, .external_lex_state = 6},
+  [7702] = {.lex_state = 259, .external_lex_state = 6},
+  [7703] = {.lex_state = 1281, .external_lex_state = 5},
   [7704] = {.lex_state = 259, .external_lex_state = 6},
-  [7705] = {.lex_state = 259, .external_lex_state = 6},
-  [7706] = {.lex_state = 1301, .external_lex_state = 6},
-  [7707] = {.lex_state = 264, .external_lex_state = 6},
+  [7705] = {.lex_state = 108, .external_lex_state = 6},
+  [7706] = {.lex_state = 264, .external_lex_state = 6},
+  [7707] = {.lex_state = 1281, .external_lex_state = 6},
   [7708] = {.lex_state = 264, .external_lex_state = 6},
   [7709] = {.lex_state = 264, .external_lex_state = 6},
-  [7710] = {.lex_state = 264, .external_lex_state = 6},
-  [7711] = {.lex_state = 264, .external_lex_state = 6},
+  [7710] = {.lex_state = 108, .external_lex_state = 6},
+  [7711] = {.lex_state = 1281, .external_lex_state = 6},
   [7712] = {.lex_state = 264, .external_lex_state = 6},
   [7713] = {.lex_state = 264, .external_lex_state = 6},
-  [7714] = {.lex_state = 264, .external_lex_state = 6},
+  [7714] = {.lex_state = 276, .external_lex_state = 6},
   [7715] = {.lex_state = 264, .external_lex_state = 6},
   [7716] = {.lex_state = 264, .external_lex_state = 6},
-  [7717] = {.lex_state = 264, .external_lex_state = 6},
-  [7718] = {.lex_state = 1301, .external_lex_state = 6},
-  [7719] = {.lex_state = 117, .external_lex_state = 6},
+  [7717] = {.lex_state = 108, .external_lex_state = 6},
+  [7718] = {.lex_state = 264, .external_lex_state = 6},
+  [7719] = {.lex_state = 1281, .external_lex_state = 6},
   [7720] = {.lex_state = 264, .external_lex_state = 6},
-  [7721] = {.lex_state = 97, .external_lex_state = 6},
-  [7722] = {.lex_state = 264, .external_lex_state = 6},
+  [7721] = {.lex_state = 264, .external_lex_state = 6},
+  [7722] = {.lex_state = 108, .external_lex_state = 6},
   [7723] = {.lex_state = 259, .external_lex_state = 6},
-  [7724] = {.lex_state = 1301, .external_lex_state = 12},
+  [7724] = {.lex_state = 1281, .external_lex_state = 13},
   [7725] = {.lex_state = 117, .external_lex_state = 6},
-  [7726] = {.lex_state = 108, .external_lex_state = 6},
-  [7727] = {.lex_state = 1301, .external_lex_state = 6},
+  [7726] = {.lex_state = 1281, .external_lex_state = 6},
+  [7727] = {.lex_state = 259, .external_lex_state = 6},
   [7728] = {.lex_state = 108, .external_lex_state = 6},
-  [7729] = {.lex_state = 1301, .external_lex_state = 6},
-  [7730] = {.lex_state = 1301, .external_lex_state = 6},
-  [7731] = {.lex_state = 264, .external_lex_state = 6},
+  [7729] = {.lex_state = 264, .external_lex_state = 6},
+  [7730] = {.lex_state = 108, .external_lex_state = 6},
+  [7731] = {.lex_state = 1281, .external_lex_state = 6},
   [7732] = {.lex_state = 108, .external_lex_state = 6},
   [7733] = {.lex_state = 259, .external_lex_state = 6},
   [7734] = {.lex_state = 264, .external_lex_state = 6},
-  [7735] = {.lex_state = 264, .external_lex_state = 6},
-  [7736] = {.lex_state = 1301, .external_lex_state = 6},
-  [7737] = {.lex_state = 264, .external_lex_state = 6},
-  [7738] = {.lex_state = 264, .external_lex_state = 6},
-  [7739] = {.lex_state = 264, .external_lex_state = 6},
+  [7735] = {.lex_state = 1281, .external_lex_state = 6},
+  [7736] = {.lex_state = 108, .external_lex_state = 6},
+  [7737] = {.lex_state = 1281, .external_lex_state = 6},
+  [7738] = {.lex_state = 117, .external_lex_state = 6},
+  [7739] = {.lex_state = 1281, .external_lex_state = 6},
   [7740] = {.lex_state = 108, .external_lex_state = 6},
   [7741] = {.lex_state = 264, .external_lex_state = 6},
   [7742] = {.lex_state = 264, .external_lex_state = 6},
-  [7743] = {.lex_state = 1301, .external_lex_state = 6},
-  [7744] = {.lex_state = 97, .external_lex_state = 6},
-  [7745] = {.lex_state = 264, .external_lex_state = 6},
-  [7746] = {.lex_state = 117, .external_lex_state = 6},
+  [7743] = {.lex_state = 264, .external_lex_state = 6},
+  [7744] = {.lex_state = 264, .external_lex_state = 6},
+  [7745] = {.lex_state = 95, .external_lex_state = 6},
+  [7746] = {.lex_state = 264, .external_lex_state = 6},
   [7747] = {.lex_state = 264, .external_lex_state = 6},
-  [7748] = {.lex_state = 97, .external_lex_state = 6},
+  [7748] = {.lex_state = 259, .external_lex_state = 6},
   [7749] = {.lex_state = 264, .external_lex_state = 6},
   [7750] = {.lex_state = 264, .external_lex_state = 6},
-  [7751] = {.lex_state = 1301, .external_lex_state = 6},
-  [7752] = {.lex_state = 264, .external_lex_state = 6},
-  [7753] = {.lex_state = 264, .external_lex_state = 6},
-  [7754] = {.lex_state = 264, .external_lex_state = 6},
-  [7755] = {.lex_state = 264, .external_lex_state = 6},
+  [7751] = {.lex_state = 108, .external_lex_state = 6},
+  [7752] = {.lex_state = 1281, .external_lex_state = 13},
+  [7753] = {.lex_state = 1281, .external_lex_state = 6},
+  [7754] = {.lex_state = 117, .external_lex_state = 6},
+  [7755] = {.lex_state = 95, .external_lex_state = 6},
   [7756] = {.lex_state = 264, .external_lex_state = 6},
   [7757] = {.lex_state = 264, .external_lex_state = 6},
   [7758] = {.lex_state = 264, .external_lex_state = 6},
-  [7759] = {.lex_state = 264, .external_lex_state = 6},
-  [7760] = {.lex_state = 97, .external_lex_state = 6},
+  [7759] = {.lex_state = 1281, .external_lex_state = 13},
+  [7760] = {.lex_state = 264, .external_lex_state = 6},
   [7761] = {.lex_state = 264, .external_lex_state = 6},
-  [7762] = {.lex_state = 1301, .external_lex_state = 6},
+  [7762] = {.lex_state = 108, .external_lex_state = 6},
   [7763] = {.lex_state = 264, .external_lex_state = 6},
-  [7764] = {.lex_state = 264, .external_lex_state = 6},
-  [7765] = {.lex_state = 1301, .external_lex_state = 12},
+  [7764] = {.lex_state = 1281, .external_lex_state = 6},
+  [7765] = {.lex_state = 1281, .external_lex_state = 13},
   [7766] = {.lex_state = 117, .external_lex_state = 6},
   [7767] = {.lex_state = 264, .external_lex_state = 6},
-  [7768] = {.lex_state = 264, .external_lex_state = 6},
+  [7768] = {.lex_state = 1281, .external_lex_state = 6},
   [7769] = {.lex_state = 108, .external_lex_state = 6},
-  [7770] = {.lex_state = 264, .external_lex_state = 6},
+  [7770] = {.lex_state = 251, .external_lex_state = 6},
   [7771] = {.lex_state = 108, .external_lex_state = 6},
   [7772] = {.lex_state = 264, .external_lex_state = 6},
   [7773] = {.lex_state = 264, .external_lex_state = 6},
@@ -45297,124 +45049,124 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [7775] = {.lex_state = 108, .external_lex_state = 6},
   [7776] = {.lex_state = 264, .external_lex_state = 6},
   [7777] = {.lex_state = 264, .external_lex_state = 6},
-  [7778] = {.lex_state = 264, .external_lex_state = 6},
-  [7779] = {.lex_state = 108, .external_lex_state = 6},
+  [7778] = {.lex_state = 95, .external_lex_state = 6},
+  [7779] = {.lex_state = 319, .external_lex_state = 6},
   [7780] = {.lex_state = 264, .external_lex_state = 6},
   [7781] = {.lex_state = 264, .external_lex_state = 6},
   [7782] = {.lex_state = 264, .external_lex_state = 6},
   [7783] = {.lex_state = 264, .external_lex_state = 6},
-  [7784] = {.lex_state = 264, .external_lex_state = 6},
+  [7784] = {.lex_state = 1281, .external_lex_state = 6},
   [7785] = {.lex_state = 264, .external_lex_state = 6},
-  [7786] = {.lex_state = 1301, .external_lex_state = 6},
+  [7786] = {.lex_state = 276, .external_lex_state = 6},
   [7787] = {.lex_state = 264, .external_lex_state = 6},
-  [7788] = {.lex_state = 1301, .external_lex_state = 6},
+  [7788] = {.lex_state = 264, .external_lex_state = 6},
   [7789] = {.lex_state = 264, .external_lex_state = 6},
   [7790] = {.lex_state = 264, .external_lex_state = 6},
   [7791] = {.lex_state = 264, .external_lex_state = 6},
-  [7792] = {.lex_state = 217, .external_lex_state = 6},
-  [7793] = {.lex_state = 1301, .external_lex_state = 12},
+  [7792] = {.lex_state = 259, .external_lex_state = 6},
+  [7793] = {.lex_state = 264, .external_lex_state = 6},
   [7794] = {.lex_state = 264, .external_lex_state = 6},
-  [7795] = {.lex_state = 117, .external_lex_state = 6},
-  [7796] = {.lex_state = 264, .external_lex_state = 6},
-  [7797] = {.lex_state = 1301, .external_lex_state = 6},
+  [7795] = {.lex_state = 264, .external_lex_state = 6},
+  [7796] = {.lex_state = 276, .external_lex_state = 6},
+  [7797] = {.lex_state = 264, .external_lex_state = 6},
   [7798] = {.lex_state = 117, .external_lex_state = 6},
-  [7799] = {.lex_state = 108, .external_lex_state = 6},
-  [7800] = {.lex_state = 1301, .external_lex_state = 6},
+  [7799] = {.lex_state = 276, .external_lex_state = 6},
+  [7800] = {.lex_state = 264, .external_lex_state = 6},
   [7801] = {.lex_state = 108, .external_lex_state = 6},
   [7802] = {.lex_state = 264, .external_lex_state = 6},
   [7803] = {.lex_state = 108, .external_lex_state = 6},
-  [7804] = {.lex_state = 259, .external_lex_state = 6},
+  [7804] = {.lex_state = 264, .external_lex_state = 6},
   [7805] = {.lex_state = 264, .external_lex_state = 6},
-  [7806] = {.lex_state = 264, .external_lex_state = 6},
+  [7806] = {.lex_state = 1281, .external_lex_state = 6},
   [7807] = {.lex_state = 108, .external_lex_state = 6},
   [7808] = {.lex_state = 264, .external_lex_state = 6},
   [7809] = {.lex_state = 264, .external_lex_state = 6},
   [7810] = {.lex_state = 264, .external_lex_state = 6},
-  [7811] = {.lex_state = 264, .external_lex_state = 6},
-  [7812] = {.lex_state = 276, .external_lex_state = 6},
-  [7813] = {.lex_state = 259, .external_lex_state = 6},
+  [7811] = {.lex_state = 276, .external_lex_state = 6},
+  [7812] = {.lex_state = 259, .external_lex_state = 6},
+  [7813] = {.lex_state = 1281, .external_lex_state = 6},
   [7814] = {.lex_state = 264, .external_lex_state = 6},
   [7815] = {.lex_state = 264, .external_lex_state = 6},
-  [7816] = {.lex_state = 264, .external_lex_state = 6},
-  [7817] = {.lex_state = 264, .external_lex_state = 6},
-  [7818] = {.lex_state = 264, .external_lex_state = 6},
-  [7819] = {.lex_state = 264, .external_lex_state = 6},
+  [7816] = {.lex_state = 217, .external_lex_state = 6},
+  [7817] = {.lex_state = 259, .external_lex_state = 6},
+  [7818] = {.lex_state = 276, .external_lex_state = 6},
+  [7819] = {.lex_state = 276, .external_lex_state = 6},
   [7820] = {.lex_state = 264, .external_lex_state = 6},
   [7821] = {.lex_state = 264, .external_lex_state = 6},
   [7822] = {.lex_state = 264, .external_lex_state = 6},
-  [7823] = {.lex_state = 97, .external_lex_state = 6},
+  [7823] = {.lex_state = 1281, .external_lex_state = 6},
   [7824] = {.lex_state = 264, .external_lex_state = 6},
   [7825] = {.lex_state = 264, .external_lex_state = 6},
   [7826] = {.lex_state = 264, .external_lex_state = 6},
-  [7827] = {.lex_state = 264, .external_lex_state = 6},
-  [7828] = {.lex_state = 264, .external_lex_state = 6},
+  [7827] = {.lex_state = 95, .external_lex_state = 6},
+  [7828] = {.lex_state = 108, .external_lex_state = 6},
   [7829] = {.lex_state = 264, .external_lex_state = 6},
   [7830] = {.lex_state = 117, .external_lex_state = 6},
-  [7831] = {.lex_state = 264, .external_lex_state = 6},
-  [7832] = {.lex_state = 264, .external_lex_state = 6},
+  [7831] = {.lex_state = 1281, .external_lex_state = 6},
+  [7832] = {.lex_state = 117, .external_lex_state = 6},
   [7833] = {.lex_state = 108, .external_lex_state = 6},
-  [7834] = {.lex_state = 108, .external_lex_state = 6},
+  [7834] = {.lex_state = 264, .external_lex_state = 6},
   [7835] = {.lex_state = 108, .external_lex_state = 6},
   [7836] = {.lex_state = 264, .external_lex_state = 6},
   [7837] = {.lex_state = 264, .external_lex_state = 6},
-  [7838] = {.lex_state = 1301, .external_lex_state = 6},
+  [7838] = {.lex_state = 264, .external_lex_state = 6},
   [7839] = {.lex_state = 108, .external_lex_state = 6},
   [7840] = {.lex_state = 264, .external_lex_state = 6},
   [7841] = {.lex_state = 264, .external_lex_state = 6},
   [7842] = {.lex_state = 264, .external_lex_state = 6},
-  [7843] = {.lex_state = 1301, .external_lex_state = 6},
+  [7843] = {.lex_state = 264, .external_lex_state = 6},
   [7844] = {.lex_state = 264, .external_lex_state = 6},
-  [7845] = {.lex_state = 264, .external_lex_state = 6},
+  [7845] = {.lex_state = 276, .external_lex_state = 6},
   [7846] = {.lex_state = 264, .external_lex_state = 6},
   [7847] = {.lex_state = 264, .external_lex_state = 6},
   [7848] = {.lex_state = 264, .external_lex_state = 6},
-  [7849] = {.lex_state = 276, .external_lex_state = 6},
-  [7850] = {.lex_state = 108, .external_lex_state = 6},
+  [7849] = {.lex_state = 108, .external_lex_state = 6},
+  [7850] = {.lex_state = 264, .external_lex_state = 6},
   [7851] = {.lex_state = 264, .external_lex_state = 6},
   [7852] = {.lex_state = 264, .external_lex_state = 6},
   [7853] = {.lex_state = 264, .external_lex_state = 6},
   [7854] = {.lex_state = 264, .external_lex_state = 6},
-  [7855] = {.lex_state = 1301, .external_lex_state = 6},
-  [7856] = {.lex_state = 264, .external_lex_state = 6},
-  [7857] = {.lex_state = 259, .external_lex_state = 6},
+  [7855] = {.lex_state = 264, .external_lex_state = 6},
+  [7856] = {.lex_state = 259, .external_lex_state = 6},
+  [7857] = {.lex_state = 264, .external_lex_state = 6},
   [7858] = {.lex_state = 264, .external_lex_state = 6},
-  [7859] = {.lex_state = 259, .external_lex_state = 6},
-  [7860] = {.lex_state = 264, .external_lex_state = 6},
-  [7861] = {.lex_state = 1301, .external_lex_state = 6},
+  [7859] = {.lex_state = 264, .external_lex_state = 6},
+  [7860] = {.lex_state = 259, .external_lex_state = 6},
+  [7861] = {.lex_state = 1281, .external_lex_state = 6},
   [7862] = {.lex_state = 117, .external_lex_state = 6},
   [7863] = {.lex_state = 264, .external_lex_state = 6},
   [7864] = {.lex_state = 264, .external_lex_state = 6},
   [7865] = {.lex_state = 108, .external_lex_state = 6},
-  [7866] = {.lex_state = 264, .external_lex_state = 6},
+  [7866] = {.lex_state = 1281, .external_lex_state = 6},
   [7867] = {.lex_state = 108, .external_lex_state = 6},
   [7868] = {.lex_state = 264, .external_lex_state = 6},
   [7869] = {.lex_state = 264, .external_lex_state = 6},
-  [7870] = {.lex_state = 1301, .external_lex_state = 6},
+  [7870] = {.lex_state = 264, .external_lex_state = 6},
   [7871] = {.lex_state = 108, .external_lex_state = 6},
   [7872] = {.lex_state = 264, .external_lex_state = 6},
   [7873] = {.lex_state = 264, .external_lex_state = 6},
-  [7874] = {.lex_state = 264, .external_lex_state = 6},
+  [7874] = {.lex_state = 259, .external_lex_state = 6},
   [7875] = {.lex_state = 264, .external_lex_state = 6},
-  [7876] = {.lex_state = 108, .external_lex_state = 6},
+  [7876] = {.lex_state = 264, .external_lex_state = 6},
   [7877] = {.lex_state = 264, .external_lex_state = 6},
   [7878] = {.lex_state = 264, .external_lex_state = 6},
   [7879] = {.lex_state = 264, .external_lex_state = 6},
   [7880] = {.lex_state = 264, .external_lex_state = 6},
   [7881] = {.lex_state = 264, .external_lex_state = 6},
   [7882] = {.lex_state = 264, .external_lex_state = 6},
-  [7883] = {.lex_state = 264, .external_lex_state = 6},
-  [7884] = {.lex_state = 1301, .external_lex_state = 6},
+  [7883] = {.lex_state = 1281, .external_lex_state = 6},
+  [7884] = {.lex_state = 1281, .external_lex_state = 6},
   [7885] = {.lex_state = 264, .external_lex_state = 6},
   [7886] = {.lex_state = 264, .external_lex_state = 6},
-  [7887] = {.lex_state = 1301, .external_lex_state = 6},
+  [7887] = {.lex_state = 1281, .external_lex_state = 6},
   [7888] = {.lex_state = 264, .external_lex_state = 6},
   [7889] = {.lex_state = 264, .external_lex_state = 6},
   [7890] = {.lex_state = 264, .external_lex_state = 6},
-  [7891] = {.lex_state = 259, .external_lex_state = 6},
+  [7891] = {.lex_state = 1281, .external_lex_state = 6},
   [7892] = {.lex_state = 264, .external_lex_state = 6},
   [7893] = {.lex_state = 117, .external_lex_state = 6},
-  [7894] = {.lex_state = 1301, .external_lex_state = 6},
-  [7895] = {.lex_state = 1301, .external_lex_state = 6},
+  [7894] = {.lex_state = 1281, .external_lex_state = 6},
+  [7895] = {.lex_state = 108, .external_lex_state = 6},
   [7896] = {.lex_state = 108, .external_lex_state = 6},
   [7897] = {.lex_state = 108, .external_lex_state = 6},
   [7898] = {.lex_state = 264, .external_lex_state = 6},
@@ -45429,11 +45181,11 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [7907] = {.lex_state = 264, .external_lex_state = 6},
   [7908] = {.lex_state = 264, .external_lex_state = 6},
   [7909] = {.lex_state = 117, .external_lex_state = 6},
-  [7910] = {.lex_state = 276, .external_lex_state = 6},
-  [7911] = {.lex_state = 264, .external_lex_state = 6},
+  [7910] = {.lex_state = 1281, .external_lex_state = 6},
+  [7911] = {.lex_state = 1281, .external_lex_state = 6},
   [7912] = {.lex_state = 108, .external_lex_state = 6},
   [7913] = {.lex_state = 108, .external_lex_state = 6},
-  [7914] = {.lex_state = 264, .external_lex_state = 6},
+  [7914] = {.lex_state = 1281, .external_lex_state = 6},
   [7915] = {.lex_state = 264, .external_lex_state = 6},
   [7916] = {.lex_state = 108, .external_lex_state = 6},
   [7917] = {.lex_state = 264, .external_lex_state = 6},
@@ -45443,10 +45195,10 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [7921] = {.lex_state = 264, .external_lex_state = 6},
   [7922] = {.lex_state = 264, .external_lex_state = 6},
   [7923] = {.lex_state = 264, .external_lex_state = 6},
-  [7924] = {.lex_state = 264, .external_lex_state = 6},
+  [7924] = {.lex_state = 316, .external_lex_state = 6},
   [7925] = {.lex_state = 117, .external_lex_state = 6},
-  [7926] = {.lex_state = 1301, .external_lex_state = 6},
-  [7927] = {.lex_state = 264, .external_lex_state = 6},
+  [7926] = {.lex_state = 1281, .external_lex_state = 6},
+  [7927] = {.lex_state = 1281, .external_lex_state = 6},
   [7928] = {.lex_state = 108, .external_lex_state = 6},
   [7929] = {.lex_state = 108, .external_lex_state = 6},
   [7930] = {.lex_state = 264, .external_lex_state = 6},
@@ -45459,325 +45211,325 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [7937] = {.lex_state = 264, .external_lex_state = 6},
   [7938] = {.lex_state = 264, .external_lex_state = 6},
   [7939] = {.lex_state = 264, .external_lex_state = 6},
-  [7940] = {.lex_state = 108, .external_lex_state = 6},
+  [7940] = {.lex_state = 1281, .external_lex_state = 6},
   [7941] = {.lex_state = 117, .external_lex_state = 6},
-  [7942] = {.lex_state = 264, .external_lex_state = 6},
-  [7943] = {.lex_state = 264, .external_lex_state = 6},
+  [7942] = {.lex_state = 1281, .external_lex_state = 6},
+  [7943] = {.lex_state = 259, .external_lex_state = 6},
   [7944] = {.lex_state = 108, .external_lex_state = 6},
   [7945] = {.lex_state = 108, .external_lex_state = 6},
-  [7946] = {.lex_state = 264, .external_lex_state = 6},
+  [7946] = {.lex_state = 108, .external_lex_state = 6},
   [7947] = {.lex_state = 108, .external_lex_state = 6},
-  [7948] = {.lex_state = 264, .external_lex_state = 6},
+  [7948] = {.lex_state = 108, .external_lex_state = 6},
   [7949] = {.lex_state = 117, .external_lex_state = 6},
-  [7950] = {.lex_state = 264, .external_lex_state = 6},
-  [7951] = {.lex_state = 264, .external_lex_state = 6},
+  [7950] = {.lex_state = 1281, .external_lex_state = 6},
+  [7951] = {.lex_state = 1281, .external_lex_state = 6},
   [7952] = {.lex_state = 108, .external_lex_state = 6},
   [7953] = {.lex_state = 108, .external_lex_state = 6},
-  [7954] = {.lex_state = 264, .external_lex_state = 6},
+  [7954] = {.lex_state = 1281, .external_lex_state = 6},
   [7955] = {.lex_state = 108, .external_lex_state = 6},
-  [7956] = {.lex_state = 264, .external_lex_state = 6},
+  [7956] = {.lex_state = 117, .external_lex_state = 6},
   [7957] = {.lex_state = 117, .external_lex_state = 6},
-  [7958] = {.lex_state = 1301, .external_lex_state = 6},
-  [7959] = {.lex_state = 264, .external_lex_state = 6},
+  [7958] = {.lex_state = 264, .external_lex_state = 6},
+  [7959] = {.lex_state = 1281, .external_lex_state = 13},
   [7960] = {.lex_state = 108, .external_lex_state = 6},
   [7961] = {.lex_state = 108, .external_lex_state = 6},
-  [7962] = {.lex_state = 264, .external_lex_state = 6},
+  [7962] = {.lex_state = 117, .external_lex_state = 6},
   [7963] = {.lex_state = 108, .external_lex_state = 6},
-  [7964] = {.lex_state = 264, .external_lex_state = 6},
+  [7964] = {.lex_state = 1281, .external_lex_state = 13},
   [7965] = {.lex_state = 117, .external_lex_state = 6},
   [7966] = {.lex_state = 264, .external_lex_state = 6},
   [7967] = {.lex_state = 264, .external_lex_state = 6},
   [7968] = {.lex_state = 108, .external_lex_state = 6},
   [7969] = {.lex_state = 108, .external_lex_state = 6},
-  [7970] = {.lex_state = 264, .external_lex_state = 6},
+  [7970] = {.lex_state = 1281, .external_lex_state = 6},
   [7971] = {.lex_state = 108, .external_lex_state = 6},
-  [7972] = {.lex_state = 1301, .external_lex_state = 6},
+  [7972] = {.lex_state = 1281, .external_lex_state = 6},
   [7973] = {.lex_state = 117, .external_lex_state = 6},
-  [7974] = {.lex_state = 108, .external_lex_state = 6},
-  [7975] = {.lex_state = 259, .external_lex_state = 6},
+  [7974] = {.lex_state = 264, .external_lex_state = 6},
+  [7975] = {.lex_state = 1281, .external_lex_state = 6},
   [7976] = {.lex_state = 108, .external_lex_state = 6},
   [7977] = {.lex_state = 108, .external_lex_state = 6},
-  [7978] = {.lex_state = 1301, .external_lex_state = 6},
+  [7978] = {.lex_state = 1281, .external_lex_state = 6},
   [7979] = {.lex_state = 108, .external_lex_state = 6},
-  [7980] = {.lex_state = 264, .external_lex_state = 6},
+  [7980] = {.lex_state = 1281, .external_lex_state = 13},
   [7981] = {.lex_state = 117, .external_lex_state = 6},
-  [7982] = {.lex_state = 264, .external_lex_state = 6},
-  [7983] = {.lex_state = 264, .external_lex_state = 6},
+  [7982] = {.lex_state = 1281, .external_lex_state = 6},
+  [7983] = {.lex_state = 1281, .external_lex_state = 6},
   [7984] = {.lex_state = 108, .external_lex_state = 6},
   [7985] = {.lex_state = 108, .external_lex_state = 6},
   [7986] = {.lex_state = 264, .external_lex_state = 6},
   [7987] = {.lex_state = 108, .external_lex_state = 6},
-  [7988] = {.lex_state = 1301, .external_lex_state = 6},
+  [7988] = {.lex_state = 117, .external_lex_state = 6},
   [7989] = {.lex_state = 117, .external_lex_state = 6},
   [7990] = {.lex_state = 264, .external_lex_state = 6},
-  [7991] = {.lex_state = 264, .external_lex_state = 6},
+  [7991] = {.lex_state = 1281, .external_lex_state = 6},
   [7992] = {.lex_state = 108, .external_lex_state = 6},
   [7993] = {.lex_state = 108, .external_lex_state = 6},
-  [7994] = {.lex_state = 1301, .external_lex_state = 6},
+  [7994] = {.lex_state = 264, .external_lex_state = 6},
   [7995] = {.lex_state = 108, .external_lex_state = 6},
-  [7996] = {.lex_state = 264, .external_lex_state = 6},
+  [7996] = {.lex_state = 108, .external_lex_state = 6},
   [7997] = {.lex_state = 117, .external_lex_state = 6},
   [7998] = {.lex_state = 264, .external_lex_state = 6},
-  [7999] = {.lex_state = 1301, .external_lex_state = 12},
-  [8000] = {.lex_state = 108, .external_lex_state = 6},
+  [7999] = {.lex_state = 264, .external_lex_state = 6},
+  [8000] = {.lex_state = 1281, .external_lex_state = 6},
   [8001] = {.lex_state = 108, .external_lex_state = 6},
-  [8002] = {.lex_state = 117, .external_lex_state = 6},
+  [8002] = {.lex_state = 1281, .external_lex_state = 6},
   [8003] = {.lex_state = 108, .external_lex_state = 6},
   [8004] = {.lex_state = 264, .external_lex_state = 6},
   [8005] = {.lex_state = 117, .external_lex_state = 6},
-  [8006] = {.lex_state = 264, .external_lex_state = 6},
-  [8007] = {.lex_state = 108, .external_lex_state = 6},
+  [8006] = {.lex_state = 217, .external_lex_state = 6},
+  [8007] = {.lex_state = 276, .external_lex_state = 6},
   [8008] = {.lex_state = 108, .external_lex_state = 6},
   [8009] = {.lex_state = 108, .external_lex_state = 6},
-  [8010] = {.lex_state = 259, .external_lex_state = 6},
+  [8010] = {.lex_state = 264, .external_lex_state = 6},
   [8011] = {.lex_state = 108, .external_lex_state = 6},
-  [8012] = {.lex_state = 264, .external_lex_state = 6},
+  [8012] = {.lex_state = 1281, .external_lex_state = 6},
   [8013] = {.lex_state = 117, .external_lex_state = 6},
   [8014] = {.lex_state = 264, .external_lex_state = 6},
   [8015] = {.lex_state = 264, .external_lex_state = 6},
   [8016] = {.lex_state = 108, .external_lex_state = 6},
   [8017] = {.lex_state = 108, .external_lex_state = 6},
-  [8018] = {.lex_state = 259, .external_lex_state = 6},
+  [8018] = {.lex_state = 1281, .external_lex_state = 6},
   [8019] = {.lex_state = 108, .external_lex_state = 6},
-  [8020] = {.lex_state = 264, .external_lex_state = 6},
+  [8020] = {.lex_state = 1281, .external_lex_state = 6},
   [8021] = {.lex_state = 117, .external_lex_state = 6},
   [8022] = {.lex_state = 264, .external_lex_state = 6},
-  [8023] = {.lex_state = 264, .external_lex_state = 6},
+  [8023] = {.lex_state = 1281, .external_lex_state = 6},
   [8024] = {.lex_state = 108, .external_lex_state = 6},
   [8025] = {.lex_state = 108, .external_lex_state = 6},
-  [8026] = {.lex_state = 264, .external_lex_state = 6},
+  [8026] = {.lex_state = 1281, .external_lex_state = 6},
   [8027] = {.lex_state = 108, .external_lex_state = 6},
   [8028] = {.lex_state = 264, .external_lex_state = 6},
   [8029] = {.lex_state = 117, .external_lex_state = 6},
-  [8030] = {.lex_state = 1301, .external_lex_state = 12},
+  [8030] = {.lex_state = 264, .external_lex_state = 6},
   [8031] = {.lex_state = 264, .external_lex_state = 6},
   [8032] = {.lex_state = 108, .external_lex_state = 6},
   [8033] = {.lex_state = 108, .external_lex_state = 6},
-  [8034] = {.lex_state = 259, .external_lex_state = 6},
+  [8034] = {.lex_state = 108, .external_lex_state = 6},
   [8035] = {.lex_state = 108, .external_lex_state = 6},
-  [8036] = {.lex_state = 117, .external_lex_state = 6},
+  [8036] = {.lex_state = 259, .external_lex_state = 6},
   [8037] = {.lex_state = 117, .external_lex_state = 6},
-  [8038] = {.lex_state = 1301, .external_lex_state = 12},
-  [8039] = {.lex_state = 117, .external_lex_state = 6},
+  [8038] = {.lex_state = 264, .external_lex_state = 6},
+  [8039] = {.lex_state = 264, .external_lex_state = 6},
   [8040] = {.lex_state = 108, .external_lex_state = 6},
   [8041] = {.lex_state = 108, .external_lex_state = 6},
-  [8042] = {.lex_state = 1301, .external_lex_state = 6},
+  [8042] = {.lex_state = 276, .external_lex_state = 6},
   [8043] = {.lex_state = 108, .external_lex_state = 6},
-  [8044] = {.lex_state = 264, .external_lex_state = 6},
+  [8044] = {.lex_state = 1281, .external_lex_state = 6},
   [8045] = {.lex_state = 117, .external_lex_state = 6},
-  [8046] = {.lex_state = 108, .external_lex_state = 6},
+  [8046] = {.lex_state = 276, .external_lex_state = 6},
   [8047] = {.lex_state = 264, .external_lex_state = 6},
   [8048] = {.lex_state = 108, .external_lex_state = 6},
   [8049] = {.lex_state = 108, .external_lex_state = 6},
-  [8050] = {.lex_state = 264, .external_lex_state = 6},
+  [8050] = {.lex_state = 108, .external_lex_state = 6},
   [8051] = {.lex_state = 108, .external_lex_state = 6},
-  [8052] = {.lex_state = 259, .external_lex_state = 6},
+  [8052] = {.lex_state = 264, .external_lex_state = 6},
   [8053] = {.lex_state = 117, .external_lex_state = 6},
-  [8054] = {.lex_state = 264, .external_lex_state = 6},
-  [8055] = {.lex_state = 1301, .external_lex_state = 6},
+  [8054] = {.lex_state = 108, .external_lex_state = 6},
+  [8055] = {.lex_state = 1281, .external_lex_state = 6},
   [8056] = {.lex_state = 108, .external_lex_state = 6},
   [8057] = {.lex_state = 108, .external_lex_state = 6},
   [8058] = {.lex_state = 264, .external_lex_state = 6},
   [8059] = {.lex_state = 108, .external_lex_state = 6},
-  [8060] = {.lex_state = 264, .external_lex_state = 6},
+  [8060] = {.lex_state = 108, .external_lex_state = 6},
   [8061] = {.lex_state = 117, .external_lex_state = 6},
-  [8062] = {.lex_state = 108, .external_lex_state = 6},
+  [8062] = {.lex_state = 264, .external_lex_state = 6},
   [8063] = {.lex_state = 264, .external_lex_state = 6},
   [8064] = {.lex_state = 108, .external_lex_state = 6},
   [8065] = {.lex_state = 108, .external_lex_state = 6},
-  [8066] = {.lex_state = 264, .external_lex_state = 6},
+  [8066] = {.lex_state = 1281, .external_lex_state = 6},
   [8067] = {.lex_state = 108, .external_lex_state = 6},
-  [8068] = {.lex_state = 264, .external_lex_state = 6},
+  [8068] = {.lex_state = 1281, .external_lex_state = 6},
   [8069] = {.lex_state = 117, .external_lex_state = 6},
-  [8070] = {.lex_state = 264, .external_lex_state = 6},
+  [8070] = {.lex_state = 1281, .external_lex_state = 6},
   [8071] = {.lex_state = 264, .external_lex_state = 6},
   [8072] = {.lex_state = 108, .external_lex_state = 6},
   [8073] = {.lex_state = 108, .external_lex_state = 6},
-  [8074] = {.lex_state = 108, .external_lex_state = 6},
+  [8074] = {.lex_state = 259, .external_lex_state = 6},
   [8075] = {.lex_state = 108, .external_lex_state = 6},
-  [8076] = {.lex_state = 264, .external_lex_state = 6},
+  [8076] = {.lex_state = 1281, .external_lex_state = 6},
   [8077] = {.lex_state = 117, .external_lex_state = 6},
   [8078] = {.lex_state = 264, .external_lex_state = 6},
-  [8079] = {.lex_state = 259, .external_lex_state = 6},
+  [8079] = {.lex_state = 1281, .external_lex_state = 6},
   [8080] = {.lex_state = 108, .external_lex_state = 6},
   [8081] = {.lex_state = 108, .external_lex_state = 6},
-  [8082] = {.lex_state = 97, .external_lex_state = 6},
+  [8082] = {.lex_state = 108, .external_lex_state = 6},
   [8083] = {.lex_state = 108, .external_lex_state = 6},
-  [8084] = {.lex_state = 264, .external_lex_state = 6},
+  [8084] = {.lex_state = 1281, .external_lex_state = 6},
   [8085] = {.lex_state = 117, .external_lex_state = 6},
   [8086] = {.lex_state = 264, .external_lex_state = 6},
-  [8087] = {.lex_state = 264, .external_lex_state = 6},
+  [8087] = {.lex_state = 1281, .external_lex_state = 6},
   [8088] = {.lex_state = 108, .external_lex_state = 6},
   [8089] = {.lex_state = 108, .external_lex_state = 6},
-  [8090] = {.lex_state = 264, .external_lex_state = 6},
+  [8090] = {.lex_state = 108, .external_lex_state = 6},
   [8091] = {.lex_state = 108, .external_lex_state = 6},
-  [8092] = {.lex_state = 97, .external_lex_state = 6},
+  [8092] = {.lex_state = 117, .external_lex_state = 6},
   [8093] = {.lex_state = 117, .external_lex_state = 6},
-  [8094] = {.lex_state = 264, .external_lex_state = 6},
-  [8095] = {.lex_state = 264, .external_lex_state = 6},
+  [8094] = {.lex_state = 1281, .external_lex_state = 6},
+  [8095] = {.lex_state = 1281, .external_lex_state = 6},
   [8096] = {.lex_state = 108, .external_lex_state = 6},
   [8097] = {.lex_state = 108, .external_lex_state = 6},
-  [8098] = {.lex_state = 264, .external_lex_state = 6},
+  [8098] = {.lex_state = 1281, .external_lex_state = 13},
   [8099] = {.lex_state = 108, .external_lex_state = 6},
-  [8100] = {.lex_state = 1301, .external_lex_state = 6},
+  [8100] = {.lex_state = 264, .external_lex_state = 6},
   [8101] = {.lex_state = 117, .external_lex_state = 6},
-  [8102] = {.lex_state = 97, .external_lex_state = 6},
+  [8102] = {.lex_state = 264, .external_lex_state = 6},
   [8103] = {.lex_state = 264, .external_lex_state = 6},
   [8104] = {.lex_state = 108, .external_lex_state = 6},
   [8105] = {.lex_state = 108, .external_lex_state = 6},
-  [8106] = {.lex_state = 1301, .external_lex_state = 6},
+  [8106] = {.lex_state = 1281, .external_lex_state = 6},
   [8107] = {.lex_state = 108, .external_lex_state = 6},
-  [8108] = {.lex_state = 108, .external_lex_state = 6},
+  [8108] = {.lex_state = 259, .external_lex_state = 6},
   [8109] = {.lex_state = 117, .external_lex_state = 6},
-  [8110] = {.lex_state = 264, .external_lex_state = 6},
-  [8111] = {.lex_state = 264, .external_lex_state = 6},
+  [8110] = {.lex_state = 1281, .external_lex_state = 6},
+  [8111] = {.lex_state = 1281, .external_lex_state = 6},
   [8112] = {.lex_state = 108, .external_lex_state = 6},
   [8113] = {.lex_state = 108, .external_lex_state = 6},
-  [8114] = {.lex_state = 264, .external_lex_state = 6},
+  [8114] = {.lex_state = 1281, .external_lex_state = 6},
   [8115] = {.lex_state = 108, .external_lex_state = 6},
   [8116] = {.lex_state = 264, .external_lex_state = 6},
   [8117] = {.lex_state = 117, .external_lex_state = 6},
-  [8118] = {.lex_state = 1301, .external_lex_state = 6},
-  [8119] = {.lex_state = 264, .external_lex_state = 6},
+  [8118] = {.lex_state = 264, .external_lex_state = 6},
+  [8119] = {.lex_state = 108, .external_lex_state = 6},
   [8120] = {.lex_state = 108, .external_lex_state = 6},
   [8121] = {.lex_state = 108, .external_lex_state = 6},
-  [8122] = {.lex_state = 108, .external_lex_state = 6},
+  [8122] = {.lex_state = 264, .external_lex_state = 6},
   [8123] = {.lex_state = 108, .external_lex_state = 6},
-  [8124] = {.lex_state = 97, .external_lex_state = 6},
+  [8124] = {.lex_state = 276, .external_lex_state = 6},
   [8125] = {.lex_state = 117, .external_lex_state = 6},
   [8126] = {.lex_state = 264, .external_lex_state = 6},
-  [8127] = {.lex_state = 264, .external_lex_state = 6},
+  [8127] = {.lex_state = 259, .external_lex_state = 6},
   [8128] = {.lex_state = 108, .external_lex_state = 6},
   [8129] = {.lex_state = 108, .external_lex_state = 6},
-  [8130] = {.lex_state = 264, .external_lex_state = 6},
+  [8130] = {.lex_state = 1281, .external_lex_state = 13},
   [8131] = {.lex_state = 108, .external_lex_state = 6},
-  [8132] = {.lex_state = 264, .external_lex_state = 6},
+  [8132] = {.lex_state = 117, .external_lex_state = 6},
   [8133] = {.lex_state = 117, .external_lex_state = 6},
-  [8134] = {.lex_state = 264, .external_lex_state = 6},
-  [8135] = {.lex_state = 276, .external_lex_state = 6},
+  [8134] = {.lex_state = 276, .external_lex_state = 6},
+  [8135] = {.lex_state = 259, .external_lex_state = 6},
   [8136] = {.lex_state = 108, .external_lex_state = 6},
   [8137] = {.lex_state = 108, .external_lex_state = 6},
-  [8138] = {.lex_state = 1301, .external_lex_state = 6},
+  [8138] = {.lex_state = 1281, .external_lex_state = 6},
   [8139] = {.lex_state = 108, .external_lex_state = 6},
   [8140] = {.lex_state = 259, .external_lex_state = 6},
   [8141] = {.lex_state = 264, .external_lex_state = 6},
-  [8142] = {.lex_state = 264, .external_lex_state = 6},
-  [8143] = {.lex_state = 264, .external_lex_state = 6},
-  [8144] = {.lex_state = 1301, .external_lex_state = 6},
+  [8142] = {.lex_state = 1281, .external_lex_state = 6},
+  [8143] = {.lex_state = 259, .external_lex_state = 6},
+  [8144] = {.lex_state = 264, .external_lex_state = 6},
   [8145] = {.lex_state = 264, .external_lex_state = 6},
-  [8146] = {.lex_state = 276, .external_lex_state = 6},
-  [8147] = {.lex_state = 1301, .external_lex_state = 6},
-  [8148] = {.lex_state = 264, .external_lex_state = 6},
-  [8149] = {.lex_state = 264, .external_lex_state = 6},
-  [8150] = {.lex_state = 264, .external_lex_state = 6},
-  [8151] = {.lex_state = 264, .external_lex_state = 6},
+  [8146] = {.lex_state = 264, .external_lex_state = 6},
+  [8147] = {.lex_state = 264, .external_lex_state = 6},
+  [8148] = {.lex_state = 108, .external_lex_state = 6},
+  [8149] = {.lex_state = 276, .external_lex_state = 6},
+  [8150] = {.lex_state = 276, .external_lex_state = 6},
+  [8151] = {.lex_state = 117, .external_lex_state = 6},
   [8152] = {.lex_state = 264, .external_lex_state = 6},
-  [8153] = {.lex_state = 1301, .external_lex_state = 6},
-  [8154] = {.lex_state = 264, .external_lex_state = 6},
+  [8153] = {.lex_state = 264, .external_lex_state = 6},
+  [8154] = {.lex_state = 1281, .external_lex_state = 13},
   [8155] = {.lex_state = 264, .external_lex_state = 6},
-  [8156] = {.lex_state = 1301, .external_lex_state = 6},
-  [8157] = {.lex_state = 1301, .external_lex_state = 6},
+  [8156] = {.lex_state = 264, .external_lex_state = 6},
+  [8157] = {.lex_state = 95, .external_lex_state = 6},
   [8158] = {.lex_state = 264, .external_lex_state = 6},
-  [8159] = {.lex_state = 264, .external_lex_state = 6},
+  [8159] = {.lex_state = 1281, .external_lex_state = 6},
   [8160] = {.lex_state = 264, .external_lex_state = 6},
   [8161] = {.lex_state = 264, .external_lex_state = 6},
-  [8162] = {.lex_state = 1301, .external_lex_state = 6},
-  [8163] = {.lex_state = 97, .external_lex_state = 6},
+  [8162] = {.lex_state = 264, .external_lex_state = 6},
+  [8163] = {.lex_state = 264, .external_lex_state = 6},
   [8164] = {.lex_state = 264, .external_lex_state = 6},
-  [8165] = {.lex_state = 259, .external_lex_state = 6},
+  [8165] = {.lex_state = 95, .external_lex_state = 6},
   [8166] = {.lex_state = 276, .external_lex_state = 6},
-  [8167] = {.lex_state = 264, .external_lex_state = 6},
+  [8167] = {.lex_state = 1281, .external_lex_state = 6},
   [8168] = {.lex_state = 264, .external_lex_state = 6},
-  [8169] = {.lex_state = 264, .external_lex_state = 6},
-  [8170] = {.lex_state = 1301, .external_lex_state = 6},
+  [8169] = {.lex_state = 1281, .external_lex_state = 6},
+  [8170] = {.lex_state = 264, .external_lex_state = 6},
   [8171] = {.lex_state = 264, .external_lex_state = 6},
-  [8172] = {.lex_state = 1301, .external_lex_state = 6},
-  [8173] = {.lex_state = 264, .external_lex_state = 6},
-  [8174] = {.lex_state = 264, .external_lex_state = 6},
-  [8175] = {.lex_state = 264, .external_lex_state = 6},
-  [8176] = {.lex_state = 97, .external_lex_state = 6},
+  [8172] = {.lex_state = 95, .external_lex_state = 6},
+  [8173] = {.lex_state = 108, .external_lex_state = 6},
+  [8174] = {.lex_state = 1281, .external_lex_state = 6},
+  [8175] = {.lex_state = 95, .external_lex_state = 6},
+  [8176] = {.lex_state = 95, .external_lex_state = 6},
   [8177] = {.lex_state = 264, .external_lex_state = 6},
   [8178] = {.lex_state = 264, .external_lex_state = 6},
-  [8179] = {.lex_state = 1301, .external_lex_state = 6},
+  [8179] = {.lex_state = 1281, .external_lex_state = 6},
   [8180] = {.lex_state = 322, .external_lex_state = 6},
-  [8181] = {.lex_state = 1301, .external_lex_state = 6},
-  [8182] = {.lex_state = 1301, .external_lex_state = 6},
-  [8183] = {.lex_state = 1301, .external_lex_state = 6},
-  [8184] = {.lex_state = 108, .external_lex_state = 6},
+  [8181] = {.lex_state = 1281, .external_lex_state = 6},
+  [8182] = {.lex_state = 1281, .external_lex_state = 6},
+  [8183] = {.lex_state = 1281, .external_lex_state = 6},
+  [8184] = {.lex_state = 264, .external_lex_state = 6},
   [8185] = {.lex_state = 264, .external_lex_state = 6},
   [8186] = {.lex_state = 117, .external_lex_state = 6},
-  [8187] = {.lex_state = 259, .external_lex_state = 6},
-  [8188] = {.lex_state = 264, .external_lex_state = 6},
-  [8189] = {.lex_state = 1301, .external_lex_state = 6},
+  [8187] = {.lex_state = 1281, .external_lex_state = 6},
+  [8188] = {.lex_state = 95, .external_lex_state = 6},
+  [8189] = {.lex_state = 264, .external_lex_state = 6},
   [8190] = {.lex_state = 264, .external_lex_state = 6},
   [8191] = {.lex_state = 264, .external_lex_state = 6},
-  [8192] = {.lex_state = 1301, .external_lex_state = 6},
+  [8192] = {.lex_state = 1281, .external_lex_state = 6},
   [8193] = {.lex_state = 264, .external_lex_state = 6},
   [8194] = {.lex_state = 264, .external_lex_state = 6},
   [8195] = {.lex_state = 264, .external_lex_state = 6},
-  [8196] = {.lex_state = 276, .external_lex_state = 6},
-  [8197] = {.lex_state = 259, .external_lex_state = 6},
-  [8198] = {.lex_state = 1301, .external_lex_state = 6},
-  [8199] = {.lex_state = 264, .external_lex_state = 6},
+  [8196] = {.lex_state = 1281, .external_lex_state = 6},
+  [8197] = {.lex_state = 264, .external_lex_state = 6},
+  [8198] = {.lex_state = 1281, .external_lex_state = 6},
+  [8199] = {.lex_state = 276, .external_lex_state = 6},
   [8200] = {.lex_state = 264, .external_lex_state = 6},
-  [8201] = {.lex_state = 264, .external_lex_state = 6},
-  [8202] = {.lex_state = 264, .external_lex_state = 6},
-  [8203] = {.lex_state = 97, .external_lex_state = 6},
-  [8204] = {.lex_state = 259, .external_lex_state = 6},
+  [8201] = {.lex_state = 108, .external_lex_state = 6},
+  [8202] = {.lex_state = 1281, .external_lex_state = 6},
+  [8203] = {.lex_state = 95, .external_lex_state = 6},
+  [8204] = {.lex_state = 264, .external_lex_state = 6},
   [8205] = {.lex_state = 264, .external_lex_state = 6},
   [8206] = {.lex_state = 264, .external_lex_state = 6},
   [8207] = {.lex_state = 264, .external_lex_state = 6},
-  [8208] = {.lex_state = 97, .external_lex_state = 6},
-  [8209] = {.lex_state = 264, .external_lex_state = 6},
-  [8210] = {.lex_state = 1301, .external_lex_state = 6},
-  [8211] = {.lex_state = 1301, .external_lex_state = 6},
+  [8208] = {.lex_state = 95, .external_lex_state = 6},
+  [8209] = {.lex_state = 1281, .external_lex_state = 6},
+  [8210] = {.lex_state = 1281, .external_lex_state = 6},
+  [8211] = {.lex_state = 276, .external_lex_state = 6},
   [8212] = {.lex_state = 264, .external_lex_state = 6},
   [8213] = {.lex_state = 264, .external_lex_state = 6},
   [8214] = {.lex_state = 264, .external_lex_state = 6},
-  [8215] = {.lex_state = 276, .external_lex_state = 6},
-  [8216] = {.lex_state = 97, .external_lex_state = 6},
+  [8215] = {.lex_state = 264, .external_lex_state = 6},
+  [8216] = {.lex_state = 95, .external_lex_state = 6},
   [8217] = {.lex_state = 264, .external_lex_state = 6},
-  [8218] = {.lex_state = 97, .external_lex_state = 6},
-  [8219] = {.lex_state = 1301, .external_lex_state = 6},
-  [8220] = {.lex_state = 1301, .external_lex_state = 6},
-  [8221] = {.lex_state = 1301, .external_lex_state = 6},
-  [8222] = {.lex_state = 1301, .external_lex_state = 6},
+  [8218] = {.lex_state = 95, .external_lex_state = 6},
+  [8219] = {.lex_state = 1281, .external_lex_state = 6},
+  [8220] = {.lex_state = 1281, .external_lex_state = 6},
+  [8221] = {.lex_state = 1281, .external_lex_state = 6},
+  [8222] = {.lex_state = 1281, .external_lex_state = 6},
   [8223] = {.lex_state = 264, .external_lex_state = 6},
   [8224] = {.lex_state = 264, .external_lex_state = 6},
-  [8225] = {.lex_state = 97, .external_lex_state = 6},
-  [8226] = {.lex_state = 1301, .external_lex_state = 6},
-  [8227] = {.lex_state = 1301, .external_lex_state = 6},
+  [8225] = {.lex_state = 95, .external_lex_state = 6},
+  [8226] = {.lex_state = 1281, .external_lex_state = 6},
+  [8227] = {.lex_state = 1281, .external_lex_state = 6},
   [8228] = {.lex_state = 264, .external_lex_state = 6},
   [8229] = {.lex_state = 264, .external_lex_state = 6},
   [8230] = {.lex_state = 264, .external_lex_state = 6},
   [8231] = {.lex_state = 264, .external_lex_state = 6},
-  [8232] = {.lex_state = 1301, .external_lex_state = 6},
-  [8233] = {.lex_state = 264, .external_lex_state = 6},
-  [8234] = {.lex_state = 1301, .external_lex_state = 6},
+  [8232] = {.lex_state = 322, .external_lex_state = 6},
+  [8233] = {.lex_state = 95, .external_lex_state = 6},
+  [8234] = {.lex_state = 264, .external_lex_state = 6},
   [8235] = {.lex_state = 264, .external_lex_state = 6},
   [8236] = {.lex_state = 264, .external_lex_state = 6},
   [8237] = {.lex_state = 264, .external_lex_state = 6},
-  [8238] = {.lex_state = 1301, .external_lex_state = 12},
+  [8238] = {.lex_state = 1281, .external_lex_state = 6},
   [8239] = {.lex_state = 264, .external_lex_state = 6},
-  [8240] = {.lex_state = 117, .external_lex_state = 6},
-  [8241] = {.lex_state = 1301, .external_lex_state = 6},
-  [8242] = {.lex_state = 276, .external_lex_state = 6},
-  [8243] = {.lex_state = 108, .external_lex_state = 6},
-  [8244] = {.lex_state = 1301, .external_lex_state = 6},
+  [8240] = {.lex_state = 264, .external_lex_state = 6},
+  [8241] = {.lex_state = 264, .external_lex_state = 6},
+  [8242] = {.lex_state = 264, .external_lex_state = 6},
+  [8243] = {.lex_state = 264, .external_lex_state = 6},
+  [8244] = {.lex_state = 264, .external_lex_state = 6},
   [8245] = {.lex_state = 259, .external_lex_state = 6},
-  [8246] = {.lex_state = 276, .external_lex_state = 6},
-  [8247] = {.lex_state = 259, .external_lex_state = 6},
-  [8248] = {.lex_state = 264, .external_lex_state = 6},
+  [8246] = {.lex_state = 264, .external_lex_state = 6},
+  [8247] = {.lex_state = 1281, .external_lex_state = 6},
+  [8248] = {.lex_state = 1281, .external_lex_state = 6},
   [8249] = {.lex_state = 264, .external_lex_state = 6},
-  [8250] = {.lex_state = 259, .external_lex_state = 6},
-  [8251] = {.lex_state = 264, .external_lex_state = 6},
-  [8252] = {.lex_state = 1301, .external_lex_state = 6},
+  [8250] = {.lex_state = 264, .external_lex_state = 6},
+  [8251] = {.lex_state = 108, .external_lex_state = 6},
+  [8252] = {.lex_state = 264, .external_lex_state = 6},
   [8253] = {.lex_state = 264, .external_lex_state = 6},
-  [8254] = {.lex_state = 264, .external_lex_state = 6},
-  [8255] = {.lex_state = 264, .external_lex_state = 6},
-  [8256] = {.lex_state = 259, .external_lex_state = 6},
-  [8257] = {.lex_state = 276, .external_lex_state = 6},
-  [8258] = {.lex_state = 108, .external_lex_state = 6},
+  [8254] = {.lex_state = 1281, .external_lex_state = 6},
+  [8255] = {.lex_state = 217, .external_lex_state = 6},
+  [8256] = {.lex_state = 264, .external_lex_state = 6},
+  [8257] = {.lex_state = 108, .external_lex_state = 6},
+  [8258] = {.lex_state = 264, .external_lex_state = 6},
   [8259] = {.lex_state = 264, .external_lex_state = 6},
   [8260] = {.lex_state = 264, .external_lex_state = 6},
   [8261] = {.lex_state = 264, .external_lex_state = 6},
@@ -45786,412 +45538,412 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [8264] = {.lex_state = 264, .external_lex_state = 6},
   [8265] = {.lex_state = 276, .external_lex_state = 6},
   [8266] = {.lex_state = 264, .external_lex_state = 6},
-  [8267] = {.lex_state = 319, .external_lex_state = 6},
-  [8268] = {.lex_state = 108, .external_lex_state = 6},
-  [8269] = {.lex_state = 264, .external_lex_state = 6},
+  [8267] = {.lex_state = 264, .external_lex_state = 6},
+  [8268] = {.lex_state = 264, .external_lex_state = 6},
+  [8269] = {.lex_state = 259, .external_lex_state = 6},
   [8270] = {.lex_state = 264, .external_lex_state = 6},
-  [8271] = {.lex_state = 97, .external_lex_state = 6},
-  [8272] = {.lex_state = 1301, .external_lex_state = 6},
+  [8271] = {.lex_state = 95, .external_lex_state = 6},
+  [8272] = {.lex_state = 264, .external_lex_state = 6},
   [8273] = {.lex_state = 264, .external_lex_state = 6},
   [8274] = {.lex_state = 264, .external_lex_state = 6},
   [8275] = {.lex_state = 264, .external_lex_state = 6},
   [8276] = {.lex_state = 264, .external_lex_state = 6},
   [8277] = {.lex_state = 264, .external_lex_state = 6},
-  [8278] = {.lex_state = 117, .external_lex_state = 6},
-  [8279] = {.lex_state = 1301, .external_lex_state = 6},
+  [8278] = {.lex_state = 108, .external_lex_state = 6},
+  [8279] = {.lex_state = 1281, .external_lex_state = 6},
   [8280] = {.lex_state = 264, .external_lex_state = 6},
-  [8281] = {.lex_state = 1301, .external_lex_state = 6},
+  [8281] = {.lex_state = 264, .external_lex_state = 6},
   [8282] = {.lex_state = 264, .external_lex_state = 6},
   [8283] = {.lex_state = 264, .external_lex_state = 6},
-  [8284] = {.lex_state = 264, .external_lex_state = 6},
-  [8285] = {.lex_state = 259, .external_lex_state = 6},
-  [8286] = {.lex_state = 1301, .external_lex_state = 6},
+  [8284] = {.lex_state = 276, .external_lex_state = 6},
+  [8285] = {.lex_state = 1281, .external_lex_state = 13},
+  [8286] = {.lex_state = 117, .external_lex_state = 6},
   [8287] = {.lex_state = 264, .external_lex_state = 6},
-  [8288] = {.lex_state = 1301, .external_lex_state = 6},
+  [8288] = {.lex_state = 1281, .external_lex_state = 13},
   [8289] = {.lex_state = 264, .external_lex_state = 6},
-  [8290] = {.lex_state = 97, .external_lex_state = 6},
+  [8290] = {.lex_state = 95, .external_lex_state = 6},
   [8291] = {.lex_state = 264, .external_lex_state = 6},
-  [8292] = {.lex_state = 264, .external_lex_state = 6},
-  [8293] = {.lex_state = 97, .external_lex_state = 6},
+  [8292] = {.lex_state = 117, .external_lex_state = 6},
+  [8293] = {.lex_state = 95, .external_lex_state = 6},
   [8294] = {.lex_state = 264, .external_lex_state = 6},
-  [8295] = {.lex_state = 97, .external_lex_state = 6},
-  [8296] = {.lex_state = 1301, .external_lex_state = 6},
-  [8297] = {.lex_state = 1301, .external_lex_state = 6},
-  [8298] = {.lex_state = 1301, .external_lex_state = 6},
-  [8299] = {.lex_state = 1301, .external_lex_state = 6},
-  [8300] = {.lex_state = 97, .external_lex_state = 6},
-  [8301] = {.lex_state = 1301, .external_lex_state = 6},
-  [8302] = {.lex_state = 1301, .external_lex_state = 6},
-  [8303] = {.lex_state = 108, .external_lex_state = 6},
+  [8295] = {.lex_state = 95, .external_lex_state = 6},
+  [8296] = {.lex_state = 1281, .external_lex_state = 6},
+  [8297] = {.lex_state = 1281, .external_lex_state = 6},
+  [8298] = {.lex_state = 1281, .external_lex_state = 6},
+  [8299] = {.lex_state = 1281, .external_lex_state = 6},
+  [8300] = {.lex_state = 95, .external_lex_state = 6},
+  [8301] = {.lex_state = 1281, .external_lex_state = 6},
+  [8302] = {.lex_state = 1281, .external_lex_state = 6},
+  [8303] = {.lex_state = 264, .external_lex_state = 6},
   [8304] = {.lex_state = 259, .external_lex_state = 6},
   [8305] = {.lex_state = 264, .external_lex_state = 6},
-  [8306] = {.lex_state = 264, .external_lex_state = 6},
+  [8306] = {.lex_state = 259, .external_lex_state = 6},
   [8307] = {.lex_state = 264, .external_lex_state = 6},
-  [8308] = {.lex_state = 1301, .external_lex_state = 6},
-  [8309] = {.lex_state = 264, .external_lex_state = 6},
-  [8310] = {.lex_state = 1301, .external_lex_state = 6},
-  [8311] = {.lex_state = 1301, .external_lex_state = 6},
+  [8308] = {.lex_state = 259, .external_lex_state = 6},
+  [8309] = {.lex_state = 95, .external_lex_state = 6},
+  [8310] = {.lex_state = 276, .external_lex_state = 6},
+  [8311] = {.lex_state = 259, .external_lex_state = 6},
   [8312] = {.lex_state = 264, .external_lex_state = 6},
-  [8313] = {.lex_state = 1301, .external_lex_state = 6},
-  [8314] = {.lex_state = 264, .external_lex_state = 6},
-  [8315] = {.lex_state = 264, .external_lex_state = 6},
-  [8316] = {.lex_state = 264, .external_lex_state = 6},
+  [8313] = {.lex_state = 264, .external_lex_state = 6},
+  [8314] = {.lex_state = 95, .external_lex_state = 6},
+  [8315] = {.lex_state = 1281, .external_lex_state = 6},
+  [8316] = {.lex_state = 1281, .external_lex_state = 6},
   [8317] = {.lex_state = 264, .external_lex_state = 6},
   [8318] = {.lex_state = 264, .external_lex_state = 6},
   [8319] = {.lex_state = 264, .external_lex_state = 6},
   [8320] = {.lex_state = 264, .external_lex_state = 6},
-  [8321] = {.lex_state = 259, .external_lex_state = 6},
+  [8321] = {.lex_state = 108, .external_lex_state = 6},
   [8322] = {.lex_state = 264, .external_lex_state = 6},
-  [8323] = {.lex_state = 264, .external_lex_state = 6},
-  [8324] = {.lex_state = 97, .external_lex_state = 6},
-  [8325] = {.lex_state = 97, .external_lex_state = 6},
-  [8326] = {.lex_state = 1301, .external_lex_state = 6},
-  [8327] = {.lex_state = 264, .external_lex_state = 6},
+  [8323] = {.lex_state = 1281, .external_lex_state = 6},
+  [8324] = {.lex_state = 95, .external_lex_state = 6},
+  [8325] = {.lex_state = 264, .external_lex_state = 6},
+  [8326] = {.lex_state = 264, .external_lex_state = 6},
+  [8327] = {.lex_state = 1281, .external_lex_state = 6},
   [8328] = {.lex_state = 264, .external_lex_state = 6},
   [8329] = {.lex_state = 264, .external_lex_state = 6},
-  [8330] = {.lex_state = 1301, .external_lex_state = 6},
-  [8331] = {.lex_state = 1301, .external_lex_state = 6},
-  [8332] = {.lex_state = 97, .external_lex_state = 6},
-  [8333] = {.lex_state = 97, .external_lex_state = 6},
-  [8334] = {.lex_state = 97, .external_lex_state = 6},
-  [8335] = {.lex_state = 97, .external_lex_state = 6},
-  [8336] = {.lex_state = 264, .external_lex_state = 6},
+  [8330] = {.lex_state = 264, .external_lex_state = 6},
+  [8331] = {.lex_state = 1281, .external_lex_state = 6},
+  [8332] = {.lex_state = 95, .external_lex_state = 6},
+  [8333] = {.lex_state = 264, .external_lex_state = 6},
+  [8334] = {.lex_state = 264, .external_lex_state = 6},
+  [8335] = {.lex_state = 95, .external_lex_state = 6},
+  [8336] = {.lex_state = 1281, .external_lex_state = 6},
   [8337] = {.lex_state = 259, .external_lex_state = 6},
-  [8338] = {.lex_state = 264, .external_lex_state = 6},
-  [8339] = {.lex_state = 264, .external_lex_state = 6},
-  [8340] = {.lex_state = 276, .external_lex_state = 6},
+  [8338] = {.lex_state = 259, .external_lex_state = 6},
+  [8339] = {.lex_state = 108, .external_lex_state = 6},
+  [8340] = {.lex_state = 264, .external_lex_state = 6},
   [8341] = {.lex_state = 264, .external_lex_state = 6},
   [8342] = {.lex_state = 264, .external_lex_state = 6},
-  [8343] = {.lex_state = 264, .external_lex_state = 6},
-  [8344] = {.lex_state = 1301, .external_lex_state = 6},
+  [8343] = {.lex_state = 276, .external_lex_state = 6},
+  [8344] = {.lex_state = 264, .external_lex_state = 6},
   [8345] = {.lex_state = 264, .external_lex_state = 6},
-  [8346] = {.lex_state = 264, .external_lex_state = 6},
-  [8347] = {.lex_state = 264, .external_lex_state = 6},
-  [8348] = {.lex_state = 264, .external_lex_state = 6},
-  [8349] = {.lex_state = 259, .external_lex_state = 6},
-  [8350] = {.lex_state = 276, .external_lex_state = 6},
-  [8351] = {.lex_state = 1301, .external_lex_state = 6},
-  [8352] = {.lex_state = 264, .external_lex_state = 6},
-  [8353] = {.lex_state = 276, .external_lex_state = 6},
-  [8354] = {.lex_state = 264, .external_lex_state = 6},
-  [8355] = {.lex_state = 97, .external_lex_state = 6},
+  [8346] = {.lex_state = 226, .external_lex_state = 6},
+  [8347] = {.lex_state = 276, .external_lex_state = 6},
+  [8348] = {.lex_state = 1281, .external_lex_state = 6},
+  [8349] = {.lex_state = 1281, .external_lex_state = 6},
+  [8350] = {.lex_state = 264, .external_lex_state = 6},
+  [8351] = {.lex_state = 264, .external_lex_state = 6},
+  [8352] = {.lex_state = 95, .external_lex_state = 6},
+  [8353] = {.lex_state = 264, .external_lex_state = 6},
+  [8354] = {.lex_state = 276, .external_lex_state = 6},
+  [8355] = {.lex_state = 95, .external_lex_state = 6},
   [8356] = {.lex_state = 264, .external_lex_state = 6},
-  [8357] = {.lex_state = 316, .external_lex_state = 6},
+  [8357] = {.lex_state = 264, .external_lex_state = 6},
   [8358] = {.lex_state = 264, .external_lex_state = 6},
-  [8359] = {.lex_state = 264, .external_lex_state = 6},
+  [8359] = {.lex_state = 276, .external_lex_state = 6},
   [8360] = {.lex_state = 264, .external_lex_state = 6},
-  [8361] = {.lex_state = 97, .external_lex_state = 6},
+  [8361] = {.lex_state = 95, .external_lex_state = 6},
   [8362] = {.lex_state = 264, .external_lex_state = 6},
-  [8363] = {.lex_state = 97, .external_lex_state = 6},
-  [8364] = {.lex_state = 108, .external_lex_state = 6},
+  [8363] = {.lex_state = 95, .external_lex_state = 6},
+  [8364] = {.lex_state = 264, .external_lex_state = 6},
   [8365] = {.lex_state = 259, .external_lex_state = 6},
-  [8366] = {.lex_state = 1301, .external_lex_state = 6},
-  [8367] = {.lex_state = 1301, .external_lex_state = 6},
+  [8366] = {.lex_state = 259, .external_lex_state = 6},
+  [8367] = {.lex_state = 264, .external_lex_state = 6},
   [8368] = {.lex_state = 264, .external_lex_state = 6},
   [8369] = {.lex_state = 264, .external_lex_state = 6},
-  [8370] = {.lex_state = 1301, .external_lex_state = 12},
-  [8371] = {.lex_state = 117, .external_lex_state = 6},
-  [8372] = {.lex_state = 264, .external_lex_state = 6},
+  [8370] = {.lex_state = 264, .external_lex_state = 6},
+  [8371] = {.lex_state = 264, .external_lex_state = 6},
+  [8372] = {.lex_state = 108, .external_lex_state = 6},
   [8373] = {.lex_state = 264, .external_lex_state = 6},
-  [8374] = {.lex_state = 259, .external_lex_state = 6},
-  [8375] = {.lex_state = 264, .external_lex_state = 6},
-  [8376] = {.lex_state = 1301, .external_lex_state = 12},
-  [8377] = {.lex_state = 117, .external_lex_state = 6},
+  [8374] = {.lex_state = 264, .external_lex_state = 6},
+  [8375] = {.lex_state = 1281, .external_lex_state = 6},
+  [8376] = {.lex_state = 264, .external_lex_state = 6},
+  [8377] = {.lex_state = 264, .external_lex_state = 6},
   [8378] = {.lex_state = 264, .external_lex_state = 6},
-  [8379] = {.lex_state = 108, .external_lex_state = 6},
-  [8380] = {.lex_state = 108, .external_lex_state = 6},
-  [8381] = {.lex_state = 1301, .external_lex_state = 6},
-  [8382] = {.lex_state = 108, .external_lex_state = 6},
-  [8383] = {.lex_state = 97, .external_lex_state = 6},
-  [8384] = {.lex_state = 97, .external_lex_state = 6},
+  [8379] = {.lex_state = 264, .external_lex_state = 6},
+  [8380] = {.lex_state = 264, .external_lex_state = 6},
+  [8381] = {.lex_state = 264, .external_lex_state = 6},
+  [8382] = {.lex_state = 264, .external_lex_state = 6},
+  [8383] = {.lex_state = 95, .external_lex_state = 6},
+  [8384] = {.lex_state = 95, .external_lex_state = 6},
   [8385] = {.lex_state = 264, .external_lex_state = 6},
   [8386] = {.lex_state = 259, .external_lex_state = 6},
   [8387] = {.lex_state = 264, .external_lex_state = 6},
   [8388] = {.lex_state = 264, .external_lex_state = 6},
-  [8389] = {.lex_state = 1301, .external_lex_state = 6},
-  [8390] = {.lex_state = 264, .external_lex_state = 6},
-  [8391] = {.lex_state = 259, .external_lex_state = 6},
-  [8392] = {.lex_state = 1301, .external_lex_state = 6},
+  [8389] = {.lex_state = 95, .external_lex_state = 6},
+  [8390] = {.lex_state = 108, .external_lex_state = 6},
+  [8391] = {.lex_state = 1281, .external_lex_state = 6},
+  [8392] = {.lex_state = 264, .external_lex_state = 6},
   [8393] = {.lex_state = 264, .external_lex_state = 6},
-  [8394] = {.lex_state = 276, .external_lex_state = 6},
-  [8395] = {.lex_state = 264, .external_lex_state = 6},
+  [8394] = {.lex_state = 264, .external_lex_state = 6},
+  [8395] = {.lex_state = 259, .external_lex_state = 6},
   [8396] = {.lex_state = 264, .external_lex_state = 6},
   [8397] = {.lex_state = 264, .external_lex_state = 6},
   [8398] = {.lex_state = 264, .external_lex_state = 6},
-  [8399] = {.lex_state = 264, .external_lex_state = 6},
-  [8400] = {.lex_state = 1301, .external_lex_state = 12},
-  [8401] = {.lex_state = 117, .external_lex_state = 6},
-  [8402] = {.lex_state = 1301, .external_lex_state = 6},
-  [8403] = {.lex_state = 97, .external_lex_state = 6},
-  [8404] = {.lex_state = 97, .external_lex_state = 6},
+  [8399] = {.lex_state = 95, .external_lex_state = 6},
+  [8400] = {.lex_state = 108, .external_lex_state = 6},
+  [8401] = {.lex_state = 264, .external_lex_state = 6},
+  [8402] = {.lex_state = 264, .external_lex_state = 6},
+  [8403] = {.lex_state = 95, .external_lex_state = 6},
+  [8404] = {.lex_state = 95, .external_lex_state = 6},
   [8405] = {.lex_state = 264, .external_lex_state = 6},
   [8406] = {.lex_state = 259, .external_lex_state = 6},
   [8407] = {.lex_state = 264, .external_lex_state = 6},
-  [8408] = {.lex_state = 264, .external_lex_state = 6},
-  [8409] = {.lex_state = 108, .external_lex_state = 6},
-  [8410] = {.lex_state = 259, .external_lex_state = 6},
-  [8411] = {.lex_state = 264, .external_lex_state = 6},
-  [8412] = {.lex_state = 259, .external_lex_state = 6},
-  [8413] = {.lex_state = 97, .external_lex_state = 6},
-  [8414] = {.lex_state = 251, .external_lex_state = 6},
+  [8408] = {.lex_state = 259, .external_lex_state = 6},
+  [8409] = {.lex_state = 1281, .external_lex_state = 13},
+  [8410] = {.lex_state = 117, .external_lex_state = 6},
+  [8411] = {.lex_state = 1281, .external_lex_state = 13},
+  [8412] = {.lex_state = 264, .external_lex_state = 6},
+  [8413] = {.lex_state = 264, .external_lex_state = 6},
+  [8414] = {.lex_state = 264, .external_lex_state = 6},
   [8415] = {.lex_state = 276, .external_lex_state = 6},
   [8416] = {.lex_state = 264, .external_lex_state = 6},
   [8417] = {.lex_state = 264, .external_lex_state = 6},
   [8418] = {.lex_state = 264, .external_lex_state = 6},
-  [8419] = {.lex_state = 276, .external_lex_state = 6},
-  [8420] = {.lex_state = 1301, .external_lex_state = 6},
-  [8421] = {.lex_state = 1301, .external_lex_state = 12},
-  [8422] = {.lex_state = 117, .external_lex_state = 6},
-  [8423] = {.lex_state = 97, .external_lex_state = 6},
-  [8424] = {.lex_state = 97, .external_lex_state = 6},
-  [8425] = {.lex_state = 264, .external_lex_state = 6},
+  [8419] = {.lex_state = 117, .external_lex_state = 6},
+  [8420] = {.lex_state = 264, .external_lex_state = 6},
+  [8421] = {.lex_state = 259, .external_lex_state = 6},
+  [8422] = {.lex_state = 95, .external_lex_state = 6},
+  [8423] = {.lex_state = 95, .external_lex_state = 6},
+  [8424] = {.lex_state = 95, .external_lex_state = 6},
+  [8425] = {.lex_state = 276, .external_lex_state = 6},
   [8426] = {.lex_state = 259, .external_lex_state = 6},
-  [8427] = {.lex_state = 108, .external_lex_state = 6},
-  [8428] = {.lex_state = 264, .external_lex_state = 6},
-  [8429] = {.lex_state = 108, .external_lex_state = 6},
+  [8427] = {.lex_state = 264, .external_lex_state = 6},
+  [8428] = {.lex_state = 108, .external_lex_state = 6},
+  [8429] = {.lex_state = 1281, .external_lex_state = 13},
   [8430] = {.lex_state = 264, .external_lex_state = 6},
   [8431] = {.lex_state = 264, .external_lex_state = 6},
-  [8432] = {.lex_state = 108, .external_lex_state = 6},
+  [8432] = {.lex_state = 1281, .external_lex_state = 6},
   [8433] = {.lex_state = 264, .external_lex_state = 6},
-  [8434] = {.lex_state = 1301, .external_lex_state = 6},
-  [8435] = {.lex_state = 264, .external_lex_state = 6},
+  [8434] = {.lex_state = 264, .external_lex_state = 6},
+  [8435] = {.lex_state = 1281, .external_lex_state = 6},
   [8436] = {.lex_state = 264, .external_lex_state = 6},
   [8437] = {.lex_state = 264, .external_lex_state = 6},
   [8438] = {.lex_state = 264, .external_lex_state = 6},
-  [8439] = {.lex_state = 1301, .external_lex_state = 6},
-  [8440] = {.lex_state = 97, .external_lex_state = 6},
+  [8439] = {.lex_state = 264, .external_lex_state = 6},
+  [8440] = {.lex_state = 95, .external_lex_state = 6},
   [8441] = {.lex_state = 264, .external_lex_state = 6},
   [8442] = {.lex_state = 259, .external_lex_state = 6},
-  [8443] = {.lex_state = 1301, .external_lex_state = 6},
-  [8444] = {.lex_state = 108, .external_lex_state = 6},
-  [8445] = {.lex_state = 264, .external_lex_state = 6},
-  [8446] = {.lex_state = 108, .external_lex_state = 6},
+  [8443] = {.lex_state = 264, .external_lex_state = 6},
+  [8444] = {.lex_state = 264, .external_lex_state = 6},
+  [8445] = {.lex_state = 1281, .external_lex_state = 6},
+  [8446] = {.lex_state = 117, .external_lex_state = 6},
   [8447] = {.lex_state = 264, .external_lex_state = 6},
-  [8448] = {.lex_state = 276, .external_lex_state = 6},
+  [8448] = {.lex_state = 264, .external_lex_state = 6},
   [8449] = {.lex_state = 264, .external_lex_state = 6},
-  [8450] = {.lex_state = 1301, .external_lex_state = 6},
+  [8450] = {.lex_state = 259, .external_lex_state = 6},
   [8451] = {.lex_state = 264, .external_lex_state = 6},
-  [8452] = {.lex_state = 1301, .external_lex_state = 6},
-  [8453] = {.lex_state = 1301, .external_lex_state = 6},
-  [8454] = {.lex_state = 264, .external_lex_state = 6},
-  [8455] = {.lex_state = 264, .external_lex_state = 6},
-  [8456] = {.lex_state = 97, .external_lex_state = 6},
-  [8457] = {.lex_state = 1301, .external_lex_state = 6},
+  [8452] = {.lex_state = 264, .external_lex_state = 6},
+  [8453] = {.lex_state = 108, .external_lex_state = 6},
+  [8454] = {.lex_state = 108, .external_lex_state = 6},
+  [8455] = {.lex_state = 108, .external_lex_state = 6},
+  [8456] = {.lex_state = 95, .external_lex_state = 6},
+  [8457] = {.lex_state = 108, .external_lex_state = 6},
   [8458] = {.lex_state = 259, .external_lex_state = 6},
-  [8459] = {.lex_state = 276, .external_lex_state = 6},
-  [8460] = {.lex_state = 1301, .external_lex_state = 6},
-  [8461] = {.lex_state = 1301, .external_lex_state = 6},
-  [8462] = {.lex_state = 1301, .external_lex_state = 6},
-  [8463] = {.lex_state = 264, .external_lex_state = 6},
-  [8464] = {.lex_state = 259, .external_lex_state = 6},
+  [8459] = {.lex_state = 1281, .external_lex_state = 6},
+  [8460] = {.lex_state = 264, .external_lex_state = 6},
+  [8461] = {.lex_state = 264, .external_lex_state = 6},
+  [8462] = {.lex_state = 264, .external_lex_state = 6},
+  [8463] = {.lex_state = 117, .external_lex_state = 6},
+  [8464] = {.lex_state = 264, .external_lex_state = 6},
   [8465] = {.lex_state = 264, .external_lex_state = 6},
   [8466] = {.lex_state = 264, .external_lex_state = 6},
-  [8467] = {.lex_state = 1301, .external_lex_state = 6},
-  [8468] = {.lex_state = 1301, .external_lex_state = 6},
-  [8469] = {.lex_state = 1301, .external_lex_state = 6},
-  [8470] = {.lex_state = 1301, .external_lex_state = 6},
-  [8471] = {.lex_state = 108, .external_lex_state = 6},
-  [8472] = {.lex_state = 97, .external_lex_state = 6},
+  [8467] = {.lex_state = 264, .external_lex_state = 6},
+  [8468] = {.lex_state = 264, .external_lex_state = 6},
+  [8469] = {.lex_state = 264, .external_lex_state = 6},
+  [8470] = {.lex_state = 264, .external_lex_state = 6},
+  [8471] = {.lex_state = 264, .external_lex_state = 6},
+  [8472] = {.lex_state = 95, .external_lex_state = 6},
   [8473] = {.lex_state = 264, .external_lex_state = 6},
   [8474] = {.lex_state = 259, .external_lex_state = 6},
   [8475] = {.lex_state = 264, .external_lex_state = 6},
   [8476] = {.lex_state = 264, .external_lex_state = 6},
-  [8477] = {.lex_state = 1301, .external_lex_state = 6},
+  [8477] = {.lex_state = 264, .external_lex_state = 6},
   [8478] = {.lex_state = 264, .external_lex_state = 6},
   [8479] = {.lex_state = 264, .external_lex_state = 6},
   [8480] = {.lex_state = 264, .external_lex_state = 6},
   [8481] = {.lex_state = 264, .external_lex_state = 6},
-  [8482] = {.lex_state = 1301, .external_lex_state = 6},
-  [8483] = {.lex_state = 1301, .external_lex_state = 6},
-  [8484] = {.lex_state = 108, .external_lex_state = 6},
+  [8482] = {.lex_state = 264, .external_lex_state = 6},
+  [8483] = {.lex_state = 264, .external_lex_state = 6},
+  [8484] = {.lex_state = 264, .external_lex_state = 6},
   [8485] = {.lex_state = 264, .external_lex_state = 6},
-  [8486] = {.lex_state = 264, .external_lex_state = 6},
-  [8487] = {.lex_state = 97, .external_lex_state = 6},
-  [8488] = {.lex_state = 259, .external_lex_state = 6},
+  [8486] = {.lex_state = 108, .external_lex_state = 6},
+  [8487] = {.lex_state = 95, .external_lex_state = 6},
+  [8488] = {.lex_state = 264, .external_lex_state = 6},
   [8489] = {.lex_state = 259, .external_lex_state = 6},
-  [8490] = {.lex_state = 276, .external_lex_state = 6},
-  [8491] = {.lex_state = 259, .external_lex_state = 6},
+  [8490] = {.lex_state = 264, .external_lex_state = 6},
+  [8491] = {.lex_state = 1281, .external_lex_state = 6},
   [8492] = {.lex_state = 264, .external_lex_state = 6},
-  [8493] = {.lex_state = 97, .external_lex_state = 6},
+  [8493] = {.lex_state = 264, .external_lex_state = 6},
   [8494] = {.lex_state = 264, .external_lex_state = 6},
   [8495] = {.lex_state = 264, .external_lex_state = 6},
-  [8496] = {.lex_state = 108, .external_lex_state = 6},
-  [8497] = {.lex_state = 1301, .external_lex_state = 6},
-  [8498] = {.lex_state = 1301, .external_lex_state = 6},
+  [8496] = {.lex_state = 264, .external_lex_state = 6},
+  [8497] = {.lex_state = 1281, .external_lex_state = 6},
+  [8498] = {.lex_state = 264, .external_lex_state = 6},
   [8499] = {.lex_state = 264, .external_lex_state = 6},
   [8500] = {.lex_state = 264, .external_lex_state = 6},
   [8501] = {.lex_state = 264, .external_lex_state = 6},
-  [8502] = {.lex_state = 97, .external_lex_state = 6},
-  [8503] = {.lex_state = 1301, .external_lex_state = 6},
+  [8502] = {.lex_state = 95, .external_lex_state = 6},
+  [8503] = {.lex_state = 264, .external_lex_state = 6},
   [8504] = {.lex_state = 259, .external_lex_state = 6},
-  [8505] = {.lex_state = 264, .external_lex_state = 6},
-  [8506] = {.lex_state = 1301, .external_lex_state = 12},
-  [8507] = {.lex_state = 117, .external_lex_state = 6},
-  [8508] = {.lex_state = 264, .external_lex_state = 6},
-  [8509] = {.lex_state = 1301, .external_lex_state = 6},
+  [8505] = {.lex_state = 1281, .external_lex_state = 6},
+  [8506] = {.lex_state = 259, .external_lex_state = 6},
+  [8507] = {.lex_state = 276, .external_lex_state = 6},
+  [8508] = {.lex_state = 108, .external_lex_state = 6},
+  [8509] = {.lex_state = 264, .external_lex_state = 6},
   [8510] = {.lex_state = 264, .external_lex_state = 6},
-  [8511] = {.lex_state = 97, .external_lex_state = 6},
-  [8512] = {.lex_state = 259, .external_lex_state = 6},
+  [8511] = {.lex_state = 95, .external_lex_state = 6},
+  [8512] = {.lex_state = 264, .external_lex_state = 6},
   [8513] = {.lex_state = 259, .external_lex_state = 6},
-  [8514] = {.lex_state = 108, .external_lex_state = 6},
-  [8515] = {.lex_state = 264, .external_lex_state = 6},
-  [8516] = {.lex_state = 1301, .external_lex_state = 6},
-  [8517] = {.lex_state = 259, .external_lex_state = 6},
-  [8518] = {.lex_state = 1301, .external_lex_state = 6},
-  [8519] = {.lex_state = 1301, .external_lex_state = 6},
-  [8520] = {.lex_state = 97, .external_lex_state = 6},
-  [8521] = {.lex_state = 276, .external_lex_state = 6},
+  [8514] = {.lex_state = 264, .external_lex_state = 6},
+  [8515] = {.lex_state = 1281, .external_lex_state = 6},
+  [8516] = {.lex_state = 264, .external_lex_state = 6},
+  [8517] = {.lex_state = 108, .external_lex_state = 6},
+  [8518] = {.lex_state = 1281, .external_lex_state = 6},
+  [8519] = {.lex_state = 264, .external_lex_state = 6},
+  [8520] = {.lex_state = 95, .external_lex_state = 6},
+  [8521] = {.lex_state = 264, .external_lex_state = 6},
   [8522] = {.lex_state = 259, .external_lex_state = 6},
-  [8523] = {.lex_state = 108, .external_lex_state = 6},
-  [8524] = {.lex_state = 276, .external_lex_state = 6},
-  [8525] = {.lex_state = 264, .external_lex_state = 6},
-  [8526] = {.lex_state = 276, .external_lex_state = 6},
-  [8527] = {.lex_state = 97, .external_lex_state = 6},
-  [8528] = {.lex_state = 264, .external_lex_state = 6},
-  [8529] = {.lex_state = 1301, .external_lex_state = 6},
-  [8530] = {.lex_state = 264, .external_lex_state = 6},
+  [8523] = {.lex_state = 264, .external_lex_state = 6},
+  [8524] = {.lex_state = 264, .external_lex_state = 6},
+  [8525] = {.lex_state = 276, .external_lex_state = 6},
+  [8526] = {.lex_state = 1281, .external_lex_state = 6},
+  [8527] = {.lex_state = 95, .external_lex_state = 6},
+  [8528] = {.lex_state = 1281, .external_lex_state = 6},
+  [8529] = {.lex_state = 1281, .external_lex_state = 6},
+  [8530] = {.lex_state = 1281, .external_lex_state = 6},
   [8531] = {.lex_state = 264, .external_lex_state = 6},
-  [8532] = {.lex_state = 276, .external_lex_state = 6},
-  [8533] = {.lex_state = 97, .external_lex_state = 6},
-  [8534] = {.lex_state = 1301, .external_lex_state = 12},
+  [8532] = {.lex_state = 264, .external_lex_state = 6},
+  [8533] = {.lex_state = 95, .external_lex_state = 6},
+  [8534] = {.lex_state = 264, .external_lex_state = 6},
   [8535] = {.lex_state = 264, .external_lex_state = 6},
-  [8536] = {.lex_state = 276, .external_lex_state = 6},
+  [8536] = {.lex_state = 264, .external_lex_state = 6},
   [8537] = {.lex_state = 264, .external_lex_state = 6},
-  [8538] = {.lex_state = 108, .external_lex_state = 6},
-  [8539] = {.lex_state = 97, .external_lex_state = 6},
-  [8540] = {.lex_state = 264, .external_lex_state = 6},
-  [8541] = {.lex_state = 264, .external_lex_state = 6},
-  [8542] = {.lex_state = 1301, .external_lex_state = 6},
+  [8538] = {.lex_state = 264, .external_lex_state = 6},
+  [8539] = {.lex_state = 95, .external_lex_state = 6},
+  [8540] = {.lex_state = 1281, .external_lex_state = 6},
+  [8541] = {.lex_state = 1281, .external_lex_state = 6},
+  [8542] = {.lex_state = 264, .external_lex_state = 6},
   [8543] = {.lex_state = 264, .external_lex_state = 6},
-  [8544] = {.lex_state = 97, .external_lex_state = 6},
-  [8545] = {.lex_state = 259, .external_lex_state = 6},
-  [8546] = {.lex_state = 1301, .external_lex_state = 6},
-  [8547] = {.lex_state = 322, .external_lex_state = 6},
+  [8544] = {.lex_state = 95, .external_lex_state = 6},
+  [8545] = {.lex_state = 264, .external_lex_state = 6},
+  [8546] = {.lex_state = 264, .external_lex_state = 6},
+  [8547] = {.lex_state = 264, .external_lex_state = 6},
   [8548] = {.lex_state = 264, .external_lex_state = 6},
   [8549] = {.lex_state = 264, .external_lex_state = 6},
-  [8550] = {.lex_state = 1301, .external_lex_state = 6},
-  [8551] = {.lex_state = 1301, .external_lex_state = 6},
+  [8550] = {.lex_state = 264, .external_lex_state = 6},
+  [8551] = {.lex_state = 117, .external_lex_state = 6},
   [8552] = {.lex_state = 264, .external_lex_state = 6},
-  [8553] = {.lex_state = 108, .external_lex_state = 6},
+  [8553] = {.lex_state = 264, .external_lex_state = 6},
   [8554] = {.lex_state = 264, .external_lex_state = 6},
   [8555] = {.lex_state = 264, .external_lex_state = 6},
   [8556] = {.lex_state = 264, .external_lex_state = 6},
-  [8557] = {.lex_state = 1301, .external_lex_state = 6},
-  [8558] = {.lex_state = 1301, .external_lex_state = 6},
-  [8559] = {.lex_state = 108, .external_lex_state = 6},
-  [8560] = {.lex_state = 264, .external_lex_state = 6},
-  [8561] = {.lex_state = 264, .external_lex_state = 6},
-  [8562] = {.lex_state = 97, .external_lex_state = 6},
-  [8563] = {.lex_state = 264, .external_lex_state = 6},
-  [8564] = {.lex_state = 1301, .external_lex_state = 6},
-  [8565] = {.lex_state = 1301, .external_lex_state = 6},
-  [8566] = {.lex_state = 264, .external_lex_state = 6},
-  [8567] = {.lex_state = 264, .external_lex_state = 6},
-  [8568] = {.lex_state = 264, .external_lex_state = 6},
-  [8569] = {.lex_state = 108, .external_lex_state = 6},
+  [8557] = {.lex_state = 264, .external_lex_state = 6},
+  [8558] = {.lex_state = 259, .external_lex_state = 6},
+  [8559] = {.lex_state = 1281, .external_lex_state = 6},
+  [8560] = {.lex_state = 259, .external_lex_state = 6},
+  [8561] = {.lex_state = 1281, .external_lex_state = 6},
+  [8562] = {.lex_state = 264, .external_lex_state = 6},
+  [8563] = {.lex_state = 1281, .external_lex_state = 6},
+  [8564] = {.lex_state = 1281, .external_lex_state = 6},
+  [8565] = {.lex_state = 1281, .external_lex_state = 6},
+  [8566] = {.lex_state = 259, .external_lex_state = 6},
+  [8567] = {.lex_state = 259, .external_lex_state = 6},
+  [8568] = {.lex_state = 1281, .external_lex_state = 6},
+  [8569] = {.lex_state = 264, .external_lex_state = 6},
   [8570] = {.lex_state = 264, .external_lex_state = 6},
   [8571] = {.lex_state = 264, .external_lex_state = 6},
   [8572] = {.lex_state = 264, .external_lex_state = 6},
   [8573] = {.lex_state = 264, .external_lex_state = 6},
   [8574] = {.lex_state = 264, .external_lex_state = 6},
-  [8575] = {.lex_state = 264, .external_lex_state = 6},
-  [8576] = {.lex_state = 1301, .external_lex_state = 6},
-  [8577] = {.lex_state = 1301, .external_lex_state = 6},
-  [8578] = {.lex_state = 276, .external_lex_state = 6},
-  [8579] = {.lex_state = 264, .external_lex_state = 6},
+  [8575] = {.lex_state = 117, .external_lex_state = 6},
+  [8576] = {.lex_state = 264, .external_lex_state = 6},
+  [8577] = {.lex_state = 264, .external_lex_state = 6},
+  [8578] = {.lex_state = 264, .external_lex_state = 6},
+  [8579] = {.lex_state = 1281, .external_lex_state = 6},
   [8580] = {.lex_state = 264, .external_lex_state = 6},
-  [8581] = {.lex_state = 1301, .external_lex_state = 6},
+  [8581] = {.lex_state = 95, .external_lex_state = 6},
   [8582] = {.lex_state = 264, .external_lex_state = 6},
-  [8583] = {.lex_state = 264, .external_lex_state = 6},
+  [8583] = {.lex_state = 1281, .external_lex_state = 13},
   [8584] = {.lex_state = 264, .external_lex_state = 6},
-  [8585] = {.lex_state = 217, .external_lex_state = 6},
-  [8586] = {.lex_state = 264, .external_lex_state = 6},
-  [8587] = {.lex_state = 264, .external_lex_state = 6},
-  [8588] = {.lex_state = 276, .external_lex_state = 6},
+  [8585] = {.lex_state = 259, .external_lex_state = 6},
+  [8586] = {.lex_state = 1281, .external_lex_state = 6},
+  [8587] = {.lex_state = 1281, .external_lex_state = 6},
+  [8588] = {.lex_state = 264, .external_lex_state = 6},
   [8589] = {.lex_state = 264, .external_lex_state = 6},
   [8590] = {.lex_state = 264, .external_lex_state = 6},
   [8591] = {.lex_state = 264, .external_lex_state = 6},
-  [8592] = {.lex_state = 1301, .external_lex_state = 6},
-  [8593] = {.lex_state = 1301, .external_lex_state = 6},
-  [8594] = {.lex_state = 1301, .external_lex_state = 6},
-  [8595] = {.lex_state = 1301, .external_lex_state = 6},
+  [8592] = {.lex_state = 117, .external_lex_state = 6},
+  [8593] = {.lex_state = 117, .external_lex_state = 6},
+  [8594] = {.lex_state = 264, .external_lex_state = 6},
+  [8595] = {.lex_state = 264, .external_lex_state = 6},
   [8596] = {.lex_state = 264, .external_lex_state = 6},
-  [8597] = {.lex_state = 1301, .external_lex_state = 6},
+  [8597] = {.lex_state = 108, .external_lex_state = 6},
   [8598] = {.lex_state = 264, .external_lex_state = 6},
-  [8599] = {.lex_state = 1301, .external_lex_state = 6},
-  [8600] = {.lex_state = 1301, .external_lex_state = 6},
-  [8601] = {.lex_state = 1301, .external_lex_state = 6},
+  [8599] = {.lex_state = 264, .external_lex_state = 6},
+  [8600] = {.lex_state = 264, .external_lex_state = 6},
+  [8601] = {.lex_state = 264, .external_lex_state = 6},
   [8602] = {.lex_state = 276, .external_lex_state = 6},
   [8603] = {.lex_state = 264, .external_lex_state = 6},
   [8604] = {.lex_state = 276, .external_lex_state = 6},
   [8605] = {.lex_state = 276, .external_lex_state = 6},
   [8606] = {.lex_state = 276, .external_lex_state = 6},
-  [8607] = {.lex_state = 97, .external_lex_state = 6},
+  [8607] = {.lex_state = 264, .external_lex_state = 6},
   [8608] = {.lex_state = 276, .external_lex_state = 6},
   [8609] = {.lex_state = 276, .external_lex_state = 6},
-  [8610] = {.lex_state = 276, .external_lex_state = 6},
-  [8611] = {.lex_state = 1301, .external_lex_state = 6},
+  [8610] = {.lex_state = 264, .external_lex_state = 6},
+  [8611] = {.lex_state = 264, .external_lex_state = 6},
   [8612] = {.lex_state = 264, .external_lex_state = 6},
-  [8613] = {.lex_state = 1301, .external_lex_state = 6},
-  [8614] = {.lex_state = 1301, .external_lex_state = 6},
-  [8615] = {.lex_state = 264, .external_lex_state = 6},
+  [8613] = {.lex_state = 264, .external_lex_state = 6},
+  [8614] = {.lex_state = 264, .external_lex_state = 6},
+  [8615] = {.lex_state = 1281, .external_lex_state = 6},
   [8616] = {.lex_state = 264, .external_lex_state = 6},
-  [8617] = {.lex_state = 259, .external_lex_state = 6},
-  [8618] = {.lex_state = 1301, .external_lex_state = 12},
-  [8619] = {.lex_state = 264, .external_lex_state = 6},
-  [8620] = {.lex_state = 1301, .external_lex_state = 6},
-  [8621] = {.lex_state = 117, .external_lex_state = 6},
-  [8622] = {.lex_state = 226, .external_lex_state = 6},
-  [8623] = {.lex_state = 108, .external_lex_state = 6},
+  [8617] = {.lex_state = 264, .external_lex_state = 6},
+  [8618] = {.lex_state = 264, .external_lex_state = 6},
+  [8619] = {.lex_state = 259, .external_lex_state = 6},
+  [8620] = {.lex_state = 1281, .external_lex_state = 6},
+  [8621] = {.lex_state = 264, .external_lex_state = 6},
+  [8622] = {.lex_state = 264, .external_lex_state = 6},
+  [8623] = {.lex_state = 264, .external_lex_state = 6},
   [8624] = {.lex_state = 264, .external_lex_state = 6},
-  [8625] = {.lex_state = 264, .external_lex_state = 6},
-  [8626] = {.lex_state = 264, .external_lex_state = 6},
-  [8627] = {.lex_state = 1301, .external_lex_state = 12},
-  [8628] = {.lex_state = 117, .external_lex_state = 6},
-  [8629] = {.lex_state = 1301, .external_lex_state = 12},
-  [8630] = {.lex_state = 117, .external_lex_state = 6},
+  [8625] = {.lex_state = 1281, .external_lex_state = 6},
+  [8626] = {.lex_state = 217, .external_lex_state = 6},
+  [8627] = {.lex_state = 264, .external_lex_state = 6},
+  [8628] = {.lex_state = 264, .external_lex_state = 6},
+  [8629] = {.lex_state = 264, .external_lex_state = 6},
+  [8630] = {.lex_state = 264, .external_lex_state = 6},
   [8631] = {.lex_state = 276, .external_lex_state = 6},
   [8632] = {.lex_state = 276, .external_lex_state = 6},
   [8633] = {.lex_state = 264, .external_lex_state = 6},
-  [8634] = {.lex_state = 1301, .external_lex_state = 6},
-  [8635] = {.lex_state = 217, .external_lex_state = 6},
-  [8636] = {.lex_state = 108, .external_lex_state = 6},
+  [8634] = {.lex_state = 264, .external_lex_state = 6},
+  [8635] = {.lex_state = 264, .external_lex_state = 6},
+  [8636] = {.lex_state = 264, .external_lex_state = 6},
   [8637] = {.lex_state = 259, .external_lex_state = 6},
-  [8638] = {.lex_state = 117, .external_lex_state = 6},
+  [8638] = {.lex_state = 1281, .external_lex_state = 6},
   [8639] = {.lex_state = 264, .external_lex_state = 6},
   [8640] = {.lex_state = 264, .external_lex_state = 6},
-  [8641] = {.lex_state = 264, .external_lex_state = 6},
-  [8642] = {.lex_state = 264, .external_lex_state = 6},
-  [8643] = {.lex_state = 264, .external_lex_state = 6},
+  [8641] = {.lex_state = 259, .external_lex_state = 6},
+  [8642] = {.lex_state = 276, .external_lex_state = 6},
+  [8643] = {.lex_state = 1281, .external_lex_state = 6},
   [8644] = {.lex_state = 264, .external_lex_state = 6},
-  [8645] = {.lex_state = 259, .external_lex_state = 6},
+  [8645] = {.lex_state = 264, .external_lex_state = 6},
   [8646] = {.lex_state = 264, .external_lex_state = 6},
-  [8647] = {.lex_state = 1301, .external_lex_state = 6},
+  [8647] = {.lex_state = 264, .external_lex_state = 6},
   [8648] = {.lex_state = 276, .external_lex_state = 6},
   [8649] = {.lex_state = 264, .external_lex_state = 6},
-  [8650] = {.lex_state = 108, .external_lex_state = 6},
+  [8650] = {.lex_state = 264, .external_lex_state = 6},
   [8651] = {.lex_state = 264, .external_lex_state = 6},
   [8652] = {.lex_state = 264, .external_lex_state = 6},
-  [8653] = {.lex_state = 1301, .external_lex_state = 6},
+  [8653] = {.lex_state = 264, .external_lex_state = 6},
   [8654] = {.lex_state = 264, .external_lex_state = 6},
   [8655] = {.lex_state = 264, .external_lex_state = 6},
-  [8656] = {.lex_state = 276, .external_lex_state = 6},
+  [8656] = {.lex_state = 264, .external_lex_state = 6},
   [8657] = {.lex_state = 264, .external_lex_state = 6},
   [8658] = {.lex_state = 264, .external_lex_state = 6},
   [8659] = {.lex_state = 264, .external_lex_state = 6},
   [8660] = {.lex_state = 264, .external_lex_state = 6},
-  [8661] = {.lex_state = 217, .external_lex_state = 6},
+  [8661] = {.lex_state = 264, .external_lex_state = 6},
   [8662] = {.lex_state = 264, .external_lex_state = 6},
-  [8663] = {.lex_state = 108, .external_lex_state = 6},
+  [8663] = {.lex_state = 276, .external_lex_state = 6},
   [8664] = {.lex_state = 264, .external_lex_state = 6},
-  [8665] = {.lex_state = 264, .external_lex_state = 6},
-  [8666] = {.lex_state = 264, .external_lex_state = 6},
-  [8667] = {.lex_state = 264, .external_lex_state = 6},
-  [8668] = {.lex_state = 264, .external_lex_state = 6},
-  [8669] = {.lex_state = 1301, .external_lex_state = 6},
-  [8670] = {.lex_state = 117, .external_lex_state = 6},
-  [8671] = {.lex_state = 264, .external_lex_state = 6},
-  [8672] = {.lex_state = 276, .external_lex_state = 6},
+  [8665] = {.lex_state = 1281, .external_lex_state = 6},
+  [8666] = {.lex_state = 108, .external_lex_state = 6},
+  [8667] = {.lex_state = 1281, .external_lex_state = 6},
+  [8668] = {.lex_state = 1281, .external_lex_state = 6},
+  [8669] = {.lex_state = 1281, .external_lex_state = 6},
+  [8670] = {.lex_state = 264, .external_lex_state = 6},
+  [8671] = {.lex_state = 108, .external_lex_state = 6},
+  [8672] = {.lex_state = 264, .external_lex_state = 6},
   [8673] = {.lex_state = 276, .external_lex_state = 6},
   [8674] = {.lex_state = 276, .external_lex_state = 6},
   [8675] = {.lex_state = 276, .external_lex_state = 6},
@@ -46201,10 +45953,116 @@ static const TSLexMode ts_lex_modes[STATE_COUNT] = {
   [8679] = {.lex_state = 276, .external_lex_state = 6},
   [8680] = {.lex_state = 276, .external_lex_state = 6},
   [8681] = {.lex_state = 259, .external_lex_state = 6},
-  [8682] = {.lex_state = 264, .external_lex_state = 6},
+  [8682] = {.lex_state = 1281, .external_lex_state = 6},
   [8683] = {.lex_state = 259, .external_lex_state = 6},
-  [8684] = {.lex_state = 117, .external_lex_state = 6},
-  [8685] = {.lex_state = 264, .external_lex_state = 6},
+  [8684] = {.lex_state = 1281, .external_lex_state = 6},
+};
+
+enum {
+  ts_external_token_AMP = 0,
+  ts_external_token__integer_literal = 1,
+  ts_external_token__float_literal = 2,
+  ts_external_token__boz_literal = 3,
+  ts_external_token__string_literal = 4,
+  ts_external_token__string_literal_kind = 5,
+  ts_external_token__external_end_of_statement = 6,
+  ts_external_token__preproc_unary_operator = 7,
+  ts_external_token_hollerith_constant = 8,
+};
+
+static const TSSymbol ts_external_scanner_symbol_map[EXTERNAL_TOKEN_COUNT] = {
+  [ts_external_token_AMP] = anon_sym_AMP,
+  [ts_external_token__integer_literal] = sym__integer_literal,
+  [ts_external_token__float_literal] = sym__float_literal,
+  [ts_external_token__boz_literal] = sym__boz_literal,
+  [ts_external_token__string_literal] = sym__string_literal,
+  [ts_external_token__string_literal_kind] = sym__string_literal_kind,
+  [ts_external_token__external_end_of_statement] = sym__external_end_of_statement,
+  [ts_external_token__preproc_unary_operator] = sym__preproc_unary_operator,
+  [ts_external_token_hollerith_constant] = sym_hollerith_constant,
+};
+
+static const bool ts_external_scanner_states[14][EXTERNAL_TOKEN_COUNT] = {
+  [1] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__float_literal] = true,
+    [ts_external_token__boz_literal] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+    [ts_external_token__external_end_of_statement] = true,
+    [ts_external_token__preproc_unary_operator] = true,
+    [ts_external_token_hollerith_constant] = true,
+  },
+  [2] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__float_literal] = true,
+    [ts_external_token__boz_literal] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+  },
+  [3] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__float_literal] = true,
+    [ts_external_token__boz_literal] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+    [ts_external_token__external_end_of_statement] = true,
+  },
+  [4] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+  },
+  [5] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__external_end_of_statement] = true,
+  },
+  [6] = {
+    [ts_external_token_AMP] = true,
+  },
+  [7] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__float_literal] = true,
+    [ts_external_token__boz_literal] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+    [ts_external_token__preproc_unary_operator] = true,
+  },
+  [8] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__external_end_of_statement] = true,
+  },
+  [9] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__integer_literal] = true,
+    [ts_external_token__float_literal] = true,
+    [ts_external_token__boz_literal] = true,
+  },
+  [10] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+  },
+  [11] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+    [ts_external_token_hollerith_constant] = true,
+  },
+  [12] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__string_literal] = true,
+    [ts_external_token__string_literal_kind] = true,
+    [ts_external_token__external_end_of_statement] = true,
+  },
+  [13] = {
+    [ts_external_token_AMP] = true,
+    [ts_external_token__string_literal] = true,
+  },
 };
 
 static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
@@ -46467,136 +46325,137 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(1),
     [sym__external_end_of_statement] = ACTIONS(1),
     [sym__preproc_unary_operator] = ACTIONS(1),
+    [sym_hollerith_constant] = ACTIONS(1),
   },
   [1] = {
-    [sym_translation_unit] = STATE(8181),
-    [sym_preproc_include] = STATE(51),
-    [sym_preproc_def] = STATE(51),
-    [sym_preproc_function_def] = STATE(51),
-    [sym_preproc_call] = STATE(51),
-    [sym_preproc_if] = STATE(51),
-    [sym_preproc_ifdef] = STATE(51),
-    [sym_preproc_if_in_specification_part] = STATE(193),
-    [sym_preproc_ifdef_in_specification_part] = STATE(193),
-    [sym_preproc_if_in_statements] = STATE(614),
-    [sym_preproc_ifdef_in_statements] = STATE(614),
-    [sym_program] = STATE(51),
-    [sym_program_statement] = STATE(191),
-    [sym_end_program_statement] = STATE(1079),
-    [sym_module] = STATE(51),
-    [sym_module_statement] = STATE(1092),
-    [sym_submodule] = STATE(51),
-    [sym_submodule_statement] = STATE(1110),
-    [sym_interface] = STATE(51),
-    [sym_interface_statement] = STATE(3821),
-    [sym_subroutine] = STATE(51),
-    [sym_subroutine_statement] = STATE(6897),
-    [sym_function] = STATE(51),
-    [sym_function_statement] = STATE(7054),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7126),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(193),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(193),
-    [sym_public_statement] = STATE(193),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(193),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_translation_unit] = STATE(7739),
+    [sym_preproc_include] = STATE(55),
+    [sym_preproc_def] = STATE(55),
+    [sym_preproc_function_def] = STATE(55),
+    [sym_preproc_call] = STATE(55),
+    [sym_preproc_if] = STATE(55),
+    [sym_preproc_ifdef] = STATE(55),
+    [sym_preproc_if_in_specification_part] = STATE(196),
+    [sym_preproc_ifdef_in_specification_part] = STATE(196),
+    [sym_preproc_if_in_statements] = STATE(615),
+    [sym_preproc_ifdef_in_statements] = STATE(615),
+    [sym_program] = STATE(55),
+    [sym_program_statement] = STATE(194),
+    [sym_end_program_statement] = STATE(1094),
+    [sym_module] = STATE(55),
+    [sym_module_statement] = STATE(1075),
+    [sym_submodule] = STATE(55),
+    [sym_submodule_statement] = STATE(1070),
+    [sym_interface] = STATE(55),
+    [sym_interface_statement] = STATE(3892),
+    [sym_subroutine] = STATE(55),
+    [sym_subroutine_statement] = STATE(6931),
+    [sym_function] = STATE(55),
+    [sym_function_statement] = STATE(6932),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6939),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(196),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(196),
+    [sym_public_statement] = STATE(196),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(196),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6912),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(193),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(193),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(51),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(614),
-    [aux_sym_program_repeat1] = STATE(193),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6976),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(196),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(196),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(55),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(615),
+    [aux_sym_program_repeat1] = STATE(196),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [ts_builtin_sym_end] = ACTIONS(5),
     [aux_sym_preproc_include_token1] = ACTIONS(7),
     [aux_sym_preproc_def_token1] = ACTIONS(9),
@@ -46738,143 +46597,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2] = {
-    [sym_preproc_include] = STATE(42),
-    [sym_preproc_def] = STATE(42),
-    [sym_preproc_function_def] = STATE(42),
-    [sym_preproc_call] = STATE(42),
-    [sym_preproc_if] = STATE(42),
-    [sym_preproc_ifdef] = STATE(42),
-    [sym_preproc_else] = STATE(8685),
-    [sym_preproc_elif] = STATE(8685),
-    [sym_preproc_elifdef] = STATE(8685),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8260),
-    [sym_preproc_elif_in_specification_part] = STATE(8260),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8260),
-    [sym_preproc_if_in_statements] = STATE(234),
-    [sym_preproc_ifdef_in_statements] = STATE(234),
-    [sym_preproc_else_in_statements] = STATE(8261),
-    [sym_preproc_elif_in_statements] = STATE(8261),
-    [sym_preproc_elifdef_in_statements] = STATE(8261),
-    [sym_program] = STATE(42),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(42),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(42),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(42),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(42),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(42),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5584),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(34),
+    [sym_preproc_def] = STATE(34),
+    [sym_preproc_function_def] = STATE(34),
+    [sym_preproc_call] = STATE(34),
+    [sym_preproc_if] = STATE(34),
+    [sym_preproc_ifdef] = STATE(34),
+    [sym_preproc_else] = STATE(8471),
+    [sym_preproc_elif] = STATE(8471),
+    [sym_preproc_elifdef] = STATE(8471),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(225),
+    [sym_preproc_ifdef_in_statements] = STATE(225),
+    [sym_preproc_else_in_statements] = STATE(8670),
+    [sym_preproc_elif_in_statements] = STATE(8670),
+    [sym_preproc_elifdef_in_statements] = STATE(8670),
+    [sym_program] = STATE(34),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(34),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(34),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(34),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(34),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(34),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5593),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(42),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(93),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(234),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(34),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(225),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -47021,143 +46880,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [3] = {
-    [sym_preproc_include] = STATE(45),
-    [sym_preproc_def] = STATE(45),
-    [sym_preproc_function_def] = STATE(45),
-    [sym_preproc_call] = STATE(45),
-    [sym_preproc_if] = STATE(45),
-    [sym_preproc_ifdef] = STATE(45),
-    [sym_preproc_else] = STATE(8058),
-    [sym_preproc_elif] = STATE(8058),
-    [sym_preproc_elifdef] = STATE(8058),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(228),
-    [sym_preproc_ifdef_in_statements] = STATE(228),
-    [sym_preproc_else_in_statements] = STATE(8063),
-    [sym_preproc_elif_in_statements] = STATE(8063),
-    [sym_preproc_elifdef_in_statements] = STATE(8063),
-    [sym_program] = STATE(45),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(45),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(45),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(45),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(45),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(45),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5620),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(39),
+    [sym_preproc_def] = STATE(39),
+    [sym_preproc_function_def] = STATE(39),
+    [sym_preproc_call] = STATE(39),
+    [sym_preproc_if] = STATE(39),
+    [sym_preproc_ifdef] = STATE(39),
+    [sym_preproc_else] = STATE(8161),
+    [sym_preproc_elif] = STATE(8161),
+    [sym_preproc_elifdef] = STATE(8161),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8156),
+    [sym_preproc_elif_in_specification_part] = STATE(8156),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8156),
+    [sym_preproc_if_in_statements] = STATE(239),
+    [sym_preproc_ifdef_in_statements] = STATE(239),
+    [sym_preproc_else_in_statements] = STATE(8155),
+    [sym_preproc_elif_in_statements] = STATE(8155),
+    [sym_preproc_elifdef_in_statements] = STATE(8155),
+    [sym_program] = STATE(39),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(39),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(39),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(39),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(39),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(39),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5612),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(45),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(228),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(39),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(239),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -47310,137 +47169,137 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(35),
     [sym_preproc_if] = STATE(35),
     [sym_preproc_ifdef] = STATE(35),
-    [sym_preproc_else] = STATE(8500),
-    [sym_preproc_elif] = STATE(8500),
-    [sym_preproc_elifdef] = STATE(8500),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(237),
-    [sym_preproc_ifdef_in_statements] = STATE(237),
-    [sym_preproc_else_in_statements] = STATE(7844),
-    [sym_preproc_elif_in_statements] = STATE(7844),
-    [sym_preproc_elifdef_in_statements] = STATE(7844),
+    [sym_preproc_else] = STATE(7802),
+    [sym_preproc_elif] = STATE(7802),
+    [sym_preproc_elifdef] = STATE(7802),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(231),
+    [sym_preproc_ifdef_in_statements] = STATE(231),
+    [sym_preproc_else_in_statements] = STATE(8320),
+    [sym_preproc_elif_in_statements] = STATE(8320),
+    [sym_preproc_elifdef_in_statements] = STATE(8320),
     [sym_program] = STATE(35),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(35),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(35),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(35),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(35),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(35),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5616),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5595),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(35),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(237),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(231),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -47587,143 +47446,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [5] = {
-    [sym_preproc_include] = STATE(45),
-    [sym_preproc_def] = STATE(45),
-    [sym_preproc_function_def] = STATE(45),
-    [sym_preproc_call] = STATE(45),
-    [sym_preproc_if] = STATE(45),
-    [sym_preproc_ifdef] = STATE(45),
-    [sym_preproc_else] = STATE(8058),
-    [sym_preproc_elif] = STATE(8058),
-    [sym_preproc_elifdef] = STATE(8058),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(232),
-    [sym_preproc_ifdef_in_statements] = STATE(232),
-    [sym_preproc_else_in_statements] = STATE(8667),
-    [sym_preproc_elif_in_statements] = STATE(8667),
-    [sym_preproc_elifdef_in_statements] = STATE(8667),
-    [sym_program] = STATE(45),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(45),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(45),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(45),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(45),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(45),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5637),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(34),
+    [sym_preproc_def] = STATE(34),
+    [sym_preproc_function_def] = STATE(34),
+    [sym_preproc_call] = STATE(34),
+    [sym_preproc_if] = STATE(34),
+    [sym_preproc_ifdef] = STATE(34),
+    [sym_preproc_else] = STATE(8471),
+    [sym_preproc_elif] = STATE(8471),
+    [sym_preproc_elifdef] = STATE(8471),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(231),
+    [sym_preproc_ifdef_in_statements] = STATE(231),
+    [sym_preproc_else_in_statements] = STATE(8320),
+    [sym_preproc_elif_in_statements] = STATE(8320),
+    [sym_preproc_elifdef_in_statements] = STATE(8320),
+    [sym_program] = STATE(34),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(34),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(34),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(34),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(34),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(34),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5595),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(45),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(232),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(34),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(231),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -47808,7 +47667,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(245),
+    [anon_sym_SEMI] = ACTIONS(239),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -47870,147 +47729,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [6] = {
-    [sym_preproc_include] = STATE(32),
-    [sym_preproc_def] = STATE(32),
-    [sym_preproc_function_def] = STATE(32),
-    [sym_preproc_call] = STATE(32),
-    [sym_preproc_if] = STATE(32),
-    [sym_preproc_ifdef] = STATE(32),
-    [sym_preproc_else] = STATE(8633),
-    [sym_preproc_elif] = STATE(8633),
-    [sym_preproc_elifdef] = STATE(8633),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(232),
-    [sym_preproc_ifdef_in_statements] = STATE(232),
-    [sym_preproc_else_in_statements] = STATE(8667),
-    [sym_preproc_elif_in_statements] = STATE(8667),
-    [sym_preproc_elifdef_in_statements] = STATE(8667),
-    [sym_program] = STATE(32),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(32),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(32),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(32),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(32),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(32),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5637),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(35),
+    [sym_preproc_def] = STATE(35),
+    [sym_preproc_function_def] = STATE(35),
+    [sym_preproc_call] = STATE(35),
+    [sym_preproc_if] = STATE(35),
+    [sym_preproc_ifdef] = STATE(35),
+    [sym_preproc_else] = STATE(7802),
+    [sym_preproc_elif] = STATE(7802),
+    [sym_preproc_elifdef] = STATE(7802),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(227),
+    [sym_preproc_ifdef_in_statements] = STATE(227),
+    [sym_preproc_else_in_statements] = STATE(7774),
+    [sym_preproc_elif_in_statements] = STATE(7774),
+    [sym_preproc_elifdef_in_statements] = STATE(7774),
+    [sym_program] = STATE(35),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(35),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(35),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(35),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(35),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(35),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5635),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(32),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(232),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(35),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(227),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(247),
+    [aux_sym_preproc_if_token2] = ACTIONS(245),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -48019,7 +47878,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(213),
     [sym_preproc_directive] = ACTIONS(215),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(249),
+    [sym_preproc_comment] = ACTIONS(247),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
@@ -48091,7 +47950,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(245),
+    [anon_sym_SEMI] = ACTIONS(249),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -48153,143 +48012,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [7] = {
-    [sym_preproc_include] = STATE(35),
-    [sym_preproc_def] = STATE(35),
-    [sym_preproc_function_def] = STATE(35),
-    [sym_preproc_call] = STATE(35),
-    [sym_preproc_if] = STATE(35),
-    [sym_preproc_ifdef] = STATE(35),
-    [sym_preproc_else] = STATE(8500),
-    [sym_preproc_elif] = STATE(8500),
-    [sym_preproc_elifdef] = STATE(8500),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(232),
-    [sym_preproc_ifdef_in_statements] = STATE(232),
-    [sym_preproc_else_in_statements] = STATE(8667),
-    [sym_preproc_elif_in_statements] = STATE(8667),
-    [sym_preproc_elifdef_in_statements] = STATE(8667),
-    [sym_program] = STATE(35),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(35),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(35),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(35),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(35),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(35),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5637),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(30),
+    [sym_preproc_def] = STATE(30),
+    [sym_preproc_function_def] = STATE(30),
+    [sym_preproc_call] = STATE(30),
+    [sym_preproc_if] = STATE(30),
+    [sym_preproc_ifdef] = STATE(30),
+    [sym_preproc_else] = STATE(8364),
+    [sym_preproc_elif] = STATE(8364),
+    [sym_preproc_elifdef] = STATE(8364),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(231),
+    [sym_preproc_ifdef_in_statements] = STATE(231),
+    [sym_preproc_else_in_statements] = STATE(8320),
+    [sym_preproc_elif_in_statements] = STATE(8320),
+    [sym_preproc_elifdef_in_statements] = STATE(8320),
+    [sym_program] = STATE(30),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(30),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(30),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(30),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(30),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(30),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5595),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(35),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(232),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(30),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(231),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -48374,7 +48233,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(245),
+    [anon_sym_SEMI] = ACTIONS(239),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -48436,143 +48295,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [8] = {
-    [sym_preproc_include] = STATE(30),
-    [sym_preproc_def] = STATE(30),
-    [sym_preproc_function_def] = STATE(30),
-    [sym_preproc_call] = STATE(30),
-    [sym_preproc_if] = STATE(30),
-    [sym_preproc_ifdef] = STATE(30),
-    [sym_preproc_else] = STATE(8416),
-    [sym_preproc_elif] = STATE(8416),
-    [sym_preproc_elifdef] = STATE(8416),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(227),
-    [sym_preproc_ifdef_in_statements] = STATE(227),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_program] = STATE(30),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(30),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(30),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(30),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(30),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(30),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5638),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(40),
+    [sym_preproc_def] = STATE(40),
+    [sym_preproc_function_def] = STATE(40),
+    [sym_preproc_call] = STATE(40),
+    [sym_preproc_if] = STATE(40),
+    [sym_preproc_ifdef] = STATE(40),
+    [sym_preproc_else] = STATE(8543),
+    [sym_preproc_elif] = STATE(8543),
+    [sym_preproc_elifdef] = STATE(8543),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(238),
+    [sym_preproc_ifdef_in_statements] = STATE(238),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_program] = STATE(40),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(40),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(40),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(40),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(40),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(40),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5596),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(30),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(227),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(40),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(238),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -48718,143 +48577,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [9] = {
-    [sym_preproc_include] = STATE(38),
-    [sym_preproc_def] = STATE(38),
-    [sym_preproc_function_def] = STATE(38),
-    [sym_preproc_call] = STATE(38),
-    [sym_preproc_if] = STATE(38),
-    [sym_preproc_ifdef] = STATE(38),
-    [sym_preproc_else] = STATE(8642),
-    [sym_preproc_elif] = STATE(8642),
-    [sym_preproc_elifdef] = STATE(8642),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(233),
-    [sym_preproc_ifdef_in_statements] = STATE(233),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_program] = STATE(38),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(38),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(38),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(38),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(38),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(38),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5602),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(32),
+    [sym_preproc_def] = STATE(32),
+    [sym_preproc_function_def] = STATE(32),
+    [sym_preproc_call] = STATE(32),
+    [sym_preproc_if] = STATE(32),
+    [sym_preproc_ifdef] = STATE(32),
+    [sym_preproc_else] = STATE(8519),
+    [sym_preproc_elif] = STATE(8519),
+    [sym_preproc_elifdef] = STATE(8519),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(228),
+    [sym_preproc_ifdef_in_statements] = STATE(228),
+    [sym_preproc_else_in_statements] = STATE(8618),
+    [sym_preproc_elif_in_statements] = STATE(8618),
+    [sym_preproc_elifdef_in_statements] = STATE(8618),
+    [sym_program] = STATE(32),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(32),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(32),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(32),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(32),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(32),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5632),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(38),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(32),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(233),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(228),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -49000,143 +48859,143 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [10] = {
-    [sym_preproc_include] = STATE(29),
-    [sym_preproc_def] = STATE(29),
-    [sym_preproc_function_def] = STATE(29),
-    [sym_preproc_call] = STATE(29),
-    [sym_preproc_if] = STATE(29),
-    [sym_preproc_ifdef] = STATE(29),
-    [sym_preproc_else] = STATE(8262),
-    [sym_preproc_elif] = STATE(8262),
-    [sym_preproc_elifdef] = STATE(8262),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8263),
-    [sym_preproc_elif_in_specification_part] = STATE(8263),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
-    [sym_preproc_if_in_statements] = STATE(239),
-    [sym_preproc_ifdef_in_statements] = STATE(239),
-    [sym_preproc_else_in_statements] = STATE(8264),
-    [sym_preproc_elif_in_statements] = STATE(8264),
-    [sym_preproc_elifdef_in_statements] = STATE(8264),
-    [sym_program] = STATE(29),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(29),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(29),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(29),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(29),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(29),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5624),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(45),
+    [sym_preproc_def] = STATE(45),
+    [sym_preproc_function_def] = STATE(45),
+    [sym_preproc_call] = STATE(45),
+    [sym_preproc_if] = STATE(45),
+    [sym_preproc_ifdef] = STATE(45),
+    [sym_preproc_else] = STATE(7829),
+    [sym_preproc_elif] = STATE(7829),
+    [sym_preproc_elifdef] = STATE(7829),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(238),
+    [sym_preproc_ifdef_in_statements] = STATE(238),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_program] = STATE(45),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(45),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(45),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(45),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(45),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(45),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5596),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(29),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(87),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(239),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(45),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(238),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -49220,7 +49079,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(265),
+    [anon_sym_SEMI] = ACTIONS(257),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -49282,147 +49141,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [11] = {
-    [sym_preproc_include] = STATE(33),
-    [sym_preproc_def] = STATE(33),
-    [sym_preproc_function_def] = STATE(33),
-    [sym_preproc_call] = STATE(33),
-    [sym_preproc_if] = STATE(33),
-    [sym_preproc_ifdef] = STATE(33),
-    [sym_preproc_else] = STATE(8282),
-    [sym_preproc_elif] = STATE(8282),
-    [sym_preproc_elifdef] = STATE(8282),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(225),
-    [sym_preproc_ifdef_in_statements] = STATE(225),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_program] = STATE(33),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(33),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(33),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(33),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(33),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(33),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5578),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(37),
+    [sym_preproc_def] = STATE(37),
+    [sym_preproc_function_def] = STATE(37),
+    [sym_preproc_call] = STATE(37),
+    [sym_preproc_if] = STATE(37),
+    [sym_preproc_ifdef] = STATE(37),
+    [sym_preproc_else] = STATE(8062),
+    [sym_preproc_elif] = STATE(8062),
+    [sym_preproc_elifdef] = STATE(8062),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(229),
+    [sym_preproc_ifdef_in_statements] = STATE(229),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_program] = STATE(37),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(37),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(37),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(37),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(37),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(37),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5639),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(33),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(225),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(37),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(229),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
+    [aux_sym_preproc_if_token2] = ACTIONS(265),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -49502,7 +49361,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(269),
+    [anon_sym_SEMI] = ACTIONS(267),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -49564,147 +49423,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [12] = {
-    [sym_preproc_include] = STATE(40),
-    [sym_preproc_def] = STATE(40),
-    [sym_preproc_function_def] = STATE(40),
-    [sym_preproc_call] = STATE(40),
-    [sym_preproc_if] = STATE(40),
-    [sym_preproc_ifdef] = STATE(40),
-    [sym_preproc_else] = STATE(8292),
-    [sym_preproc_elif] = STATE(8292),
-    [sym_preproc_elifdef] = STATE(8292),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8315),
-    [sym_preproc_elif_in_specification_part] = STATE(8315),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8315),
+    [sym_preproc_include] = STATE(28),
+    [sym_preproc_def] = STATE(28),
+    [sym_preproc_function_def] = STATE(28),
+    [sym_preproc_call] = STATE(28),
+    [sym_preproc_if] = STATE(28),
+    [sym_preproc_ifdef] = STATE(28),
+    [sym_preproc_else] = STATE(8168),
+    [sym_preproc_elif] = STATE(8168),
+    [sym_preproc_elifdef] = STATE(8168),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
     [sym_preproc_if_in_statements] = STATE(229),
     [sym_preproc_ifdef_in_statements] = STATE(229),
-    [sym_preproc_else_in_statements] = STATE(8510),
-    [sym_preproc_elif_in_statements] = STATE(8510),
-    [sym_preproc_elifdef_in_statements] = STATE(8510),
-    [sym_program] = STATE(40),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(40),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(40),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(40),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(40),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(40),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5586),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_program] = STATE(28),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(28),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(28),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(28),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(28),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(28),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5639),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(40),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(28),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(229),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(271),
+    [aux_sym_preproc_if_token2] = ACTIONS(269),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -49784,7 +49643,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(273),
+    [anon_sym_SEMI] = ACTIONS(267),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -49846,147 +49705,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [13] = {
-    [sym_preproc_include] = STATE(27),
-    [sym_preproc_def] = STATE(27),
-    [sym_preproc_function_def] = STATE(27),
-    [sym_preproc_call] = STATE(27),
-    [sym_preproc_if] = STATE(27),
-    [sym_preproc_ifdef] = STATE(27),
-    [sym_preproc_else] = STATE(8358),
-    [sym_preproc_elif] = STATE(8358),
-    [sym_preproc_elifdef] = STATE(8358),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(227),
-    [sym_preproc_ifdef_in_statements] = STATE(227),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_program] = STATE(27),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(27),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(27),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(27),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(27),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(27),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5638),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(29),
+    [sym_preproc_def] = STATE(29),
+    [sym_preproc_function_def] = STATE(29),
+    [sym_preproc_call] = STATE(29),
+    [sym_preproc_if] = STATE(29),
+    [sym_preproc_ifdef] = STATE(29),
+    [sym_preproc_else] = STATE(8262),
+    [sym_preproc_elif] = STATE(8262),
+    [sym_preproc_elifdef] = STATE(8262),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8263),
+    [sym_preproc_elif_in_specification_part] = STATE(8263),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
+    [sym_preproc_if_in_statements] = STATE(232),
+    [sym_preproc_ifdef_in_statements] = STATE(232),
+    [sym_preproc_else_in_statements] = STATE(8264),
+    [sym_preproc_elif_in_statements] = STATE(8264),
+    [sym_preproc_elifdef_in_statements] = STATE(8264),
+    [sym_program] = STATE(29),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(29),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(29),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(29),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(29),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(29),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5581),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(27),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(227),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(29),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(104),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(232),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(275),
+    [aux_sym_preproc_if_token2] = ACTIONS(271),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -50066,7 +49925,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(257),
+    [anon_sym_SEMI] = ACTIONS(273),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -50128,147 +49987,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [14] = {
-    [sym_preproc_include] = STATE(28),
-    [sym_preproc_def] = STATE(28),
-    [sym_preproc_function_def] = STATE(28),
-    [sym_preproc_call] = STATE(28),
-    [sym_preproc_if] = STATE(28),
-    [sym_preproc_ifdef] = STATE(28),
-    [sym_preproc_else] = STATE(8393),
-    [sym_preproc_elif] = STATE(8393),
-    [sym_preproc_elifdef] = STATE(8393),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(230),
-    [sym_preproc_ifdef_in_statements] = STATE(230),
-    [sym_preproc_else_in_statements] = STATE(8397),
-    [sym_preproc_elif_in_statements] = STATE(8397),
-    [sym_preproc_elifdef_in_statements] = STATE(8397),
-    [sym_program] = STATE(28),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(28),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(28),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(28),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(28),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(28),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5633),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(37),
+    [sym_preproc_def] = STATE(37),
+    [sym_preproc_function_def] = STATE(37),
+    [sym_preproc_call] = STATE(37),
+    [sym_preproc_if] = STATE(37),
+    [sym_preproc_ifdef] = STATE(37),
+    [sym_preproc_else] = STATE(8062),
+    [sym_preproc_elif] = STATE(8062),
+    [sym_preproc_elifdef] = STATE(8062),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(226),
+    [sym_preproc_ifdef_in_statements] = STATE(226),
+    [sym_preproc_else_in_statements] = STATE(8038),
+    [sym_preproc_elif_in_statements] = STATE(8038),
+    [sym_preproc_elifdef_in_statements] = STATE(8038),
+    [sym_program] = STATE(37),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(37),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(37),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(37),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(37),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(37),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5643),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(28),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(37),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(230),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(226),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(277),
+    [aux_sym_preproc_if_token2] = ACTIONS(275),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -50348,7 +50207,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(279),
+    [anon_sym_SEMI] = ACTIONS(277),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -50410,143 +50269,425 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [15] = {
-    [sym_preproc_include] = STATE(30),
-    [sym_preproc_def] = STATE(30),
-    [sym_preproc_function_def] = STATE(30),
-    [sym_preproc_call] = STATE(30),
-    [sym_preproc_if] = STATE(30),
-    [sym_preproc_ifdef] = STATE(30),
-    [sym_preproc_else] = STATE(8416),
-    [sym_preproc_elif] = STATE(8416),
-    [sym_preproc_elifdef] = STATE(8416),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(231),
-    [sym_preproc_ifdef_in_statements] = STATE(231),
-    [sym_preproc_else_in_statements] = STATE(8431),
-    [sym_preproc_elif_in_statements] = STATE(8431),
-    [sym_preproc_elifdef_in_statements] = STATE(8431),
-    [sym_program] = STATE(30),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(30),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(30),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(30),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(30),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(30),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5634),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(41),
+    [sym_preproc_def] = STATE(41),
+    [sym_preproc_function_def] = STATE(41),
+    [sym_preproc_call] = STATE(41),
+    [sym_preproc_if] = STATE(41),
+    [sym_preproc_ifdef] = STATE(41),
+    [sym_preproc_else] = STATE(8496),
+    [sym_preproc_elif] = STATE(8496),
+    [sym_preproc_elifdef] = STATE(8496),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(238),
+    [sym_preproc_ifdef_in_statements] = STATE(238),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_program] = STATE(41),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(41),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(41),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(41),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(41),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(41),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5596),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(30),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(231),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(41),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(238),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(199),
+    [aux_sym_preproc_def_token1] = ACTIONS(201),
+    [aux_sym_preproc_if_token1] = ACTIONS(203),
+    [aux_sym_preproc_if_token2] = ACTIONS(279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
+    [aux_sym_preproc_else_token1] = ACTIONS(209),
+    [aux_sym_preproc_elif_token1] = ACTIONS(211),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(213),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(213),
+    [sym_preproc_directive] = ACTIONS(215),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(23),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_module_statement_token1] = ACTIONS(29),
+    [aux_sym_submodule_statement_token1] = ACTIONS(31),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_function_statement_token1] = ACTIONS(43),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(57),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(223),
+    [aux_sym_public_statement_token1] = ACTIONS(225),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(257),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [16] = {
+    [sym_preproc_include] = STATE(33),
+    [sym_preproc_def] = STATE(33),
+    [sym_preproc_function_def] = STATE(33),
+    [sym_preproc_call] = STATE(33),
+    [sym_preproc_if] = STATE(33),
+    [sym_preproc_ifdef] = STATE(33),
+    [sym_preproc_else] = STATE(8591),
+    [sym_preproc_elif] = STATE(8591),
+    [sym_preproc_elifdef] = STATE(8591),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(230),
+    [sym_preproc_ifdef_in_statements] = STATE(230),
+    [sym_preproc_else_in_statements] = STATE(8640),
+    [sym_preproc_elif_in_statements] = STATE(8640),
+    [sym_preproc_elifdef_in_statements] = STATE(8640),
+    [sym_program] = STATE(33),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(33),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(33),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(33),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(33),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(33),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5603),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3178),
+    [sym_intrinsic_type] = STATE(3177),
+    [sym_derived_type] = STATE(3177),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(33),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(230),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -50691,144 +50832,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [16] = {
+  [17] = {
     [sym_preproc_include] = STATE(31),
     [sym_preproc_def] = STATE(31),
     [sym_preproc_function_def] = STATE(31),
     [sym_preproc_call] = STATE(31),
     [sym_preproc_if] = STATE(31),
     [sym_preproc_ifdef] = STATE(31),
-    [sym_preproc_else] = STATE(8657),
-    [sym_preproc_elif] = STATE(8657),
-    [sym_preproc_elifdef] = STATE(8657),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(235),
-    [sym_preproc_ifdef_in_statements] = STATE(235),
-    [sym_preproc_else_in_statements] = STATE(8655),
-    [sym_preproc_elif_in_statements] = STATE(8655),
-    [sym_preproc_elifdef_in_statements] = STATE(8655),
+    [sym_preproc_else] = STATE(7875),
+    [sym_preproc_elif] = STATE(7875),
+    [sym_preproc_elifdef] = STATE(7875),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(236),
+    [sym_preproc_ifdef_in_statements] = STATE(236),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
     [sym_program] = STATE(31),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(31),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(31),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(31),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(31),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(31),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5642),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5590),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(31),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(235),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(107),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(236),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -50973,144 +51114,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [17] = {
-    [sym_preproc_include] = STATE(36),
-    [sym_preproc_def] = STATE(36),
-    [sym_preproc_function_def] = STATE(36),
-    [sym_preproc_call] = STATE(36),
-    [sym_preproc_if] = STATE(36),
-    [sym_preproc_ifdef] = STATE(36),
-    [sym_preproc_else] = STATE(8570),
-    [sym_preproc_elif] = STATE(8570),
-    [sym_preproc_elifdef] = STATE(8570),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(238),
-    [sym_preproc_ifdef_in_statements] = STATE(238),
-    [sym_preproc_else_in_statements] = STATE(7882),
-    [sym_preproc_elif_in_statements] = STATE(7882),
-    [sym_preproc_elifdef_in_statements] = STATE(7882),
-    [sym_program] = STATE(36),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(36),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(36),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(36),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(36),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(36),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5613),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [18] = {
+    [sym_preproc_include] = STATE(43),
+    [sym_preproc_def] = STATE(43),
+    [sym_preproc_function_def] = STATE(43),
+    [sym_preproc_call] = STATE(43),
+    [sym_preproc_if] = STATE(43),
+    [sym_preproc_ifdef] = STATE(43),
+    [sym_preproc_else] = STATE(7859),
+    [sym_preproc_elif] = STATE(7859),
+    [sym_preproc_elifdef] = STATE(7859),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(7864),
+    [sym_preproc_elif_in_specification_part] = STATE(7864),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
+    [sym_preproc_if_in_statements] = STATE(235),
+    [sym_preproc_ifdef_in_statements] = STATE(235),
+    [sym_preproc_else_in_statements] = STATE(7870),
+    [sym_preproc_elif_in_statements] = STATE(7870),
+    [sym_preproc_elifdef_in_statements] = STATE(7870),
+    [sym_program] = STATE(43),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(43),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(43),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(43),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(43),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(43),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5601),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(36),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(238),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(43),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(235),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -51255,144 +51396,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [18] = {
-    [sym_preproc_include] = STATE(43),
-    [sym_preproc_def] = STATE(43),
-    [sym_preproc_function_def] = STATE(43),
-    [sym_preproc_call] = STATE(43),
-    [sym_preproc_if] = STATE(43),
-    [sym_preproc_ifdef] = STATE(43),
-    [sym_preproc_else] = STATE(8579),
-    [sym_preproc_elif] = STATE(8579),
-    [sym_preproc_elifdef] = STATE(8579),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(226),
-    [sym_preproc_ifdef_in_statements] = STATE(226),
-    [sym_preproc_else_in_statements] = STATE(7883),
-    [sym_preproc_elif_in_statements] = STATE(7883),
-    [sym_preproc_elifdef_in_statements] = STATE(7883),
-    [sym_program] = STATE(43),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(43),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(43),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(43),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(43),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(43),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5579),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [19] = {
+    [sym_preproc_include] = STATE(33),
+    [sym_preproc_def] = STATE(33),
+    [sym_preproc_function_def] = STATE(33),
+    [sym_preproc_call] = STATE(33),
+    [sym_preproc_if] = STATE(33),
+    [sym_preproc_ifdef] = STATE(33),
+    [sym_preproc_else] = STATE(8591),
+    [sym_preproc_elif] = STATE(8591),
+    [sym_preproc_elifdef] = STATE(8591),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(229),
+    [sym_preproc_ifdef_in_statements] = STATE(229),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_program] = STATE(33),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(33),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(33),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(33),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(33),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(33),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5639),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(43),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(226),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(33),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(229),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -51476,7 +51617,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(295),
+    [anon_sym_SEMI] = ACTIONS(267),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -51537,148 +51678,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [19] = {
-    [sym_preproc_include] = STATE(38),
-    [sym_preproc_def] = STATE(38),
-    [sym_preproc_function_def] = STATE(38),
-    [sym_preproc_call] = STATE(38),
-    [sym_preproc_if] = STATE(38),
-    [sym_preproc_ifdef] = STATE(38),
-    [sym_preproc_else] = STATE(8642),
-    [sym_preproc_elif] = STATE(8642),
-    [sym_preproc_elifdef] = STATE(8642),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(240),
-    [sym_preproc_ifdef_in_statements] = STATE(240),
-    [sym_preproc_else_in_statements] = STATE(7911),
-    [sym_preproc_elif_in_statements] = STATE(7911),
-    [sym_preproc_elifdef_in_statements] = STATE(7911),
-    [sym_program] = STATE(38),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(38),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(38),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(38),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(38),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(38),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5612),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [20] = {
+    [sym_preproc_include] = STATE(45),
+    [sym_preproc_def] = STATE(45),
+    [sym_preproc_function_def] = STATE(45),
+    [sym_preproc_call] = STATE(45),
+    [sym_preproc_if] = STATE(45),
+    [sym_preproc_ifdef] = STATE(45),
+    [sym_preproc_else] = STATE(7829),
+    [sym_preproc_elif] = STATE(7829),
+    [sym_preproc_elifdef] = STATE(7829),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(233),
+    [sym_preproc_ifdef_in_statements] = STATE(233),
+    [sym_preproc_else_in_statements] = STATE(7834),
+    [sym_preproc_elif_in_statements] = STATE(7834),
+    [sym_preproc_elifdef_in_statements] = STATE(7834),
+    [sym_program] = STATE(45),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(45),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(45),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(45),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(45),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(45),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5626),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(38),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(240),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(45),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(233),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(297),
+    [aux_sym_preproc_if_token2] = ACTIONS(295),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -51758,7 +51899,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(299),
+    [anon_sym_SEMI] = ACTIONS(297),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -51819,148 +51960,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [20] = {
-    [sym_preproc_include] = STATE(28),
-    [sym_preproc_def] = STATE(28),
-    [sym_preproc_function_def] = STATE(28),
-    [sym_preproc_call] = STATE(28),
-    [sym_preproc_if] = STATE(28),
-    [sym_preproc_ifdef] = STATE(28),
-    [sym_preproc_else] = STATE(8393),
-    [sym_preproc_elif] = STATE(8393),
-    [sym_preproc_elifdef] = STATE(8393),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(236),
-    [sym_preproc_ifdef_in_statements] = STATE(236),
-    [sym_preproc_else_in_statements] = STATE(8026),
-    [sym_preproc_elif_in_statements] = STATE(8026),
-    [sym_preproc_elifdef_in_statements] = STATE(8026),
-    [sym_program] = STATE(28),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(28),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(28),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(28),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(28),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(28),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5604),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [21] = {
+    [sym_preproc_include] = STATE(42),
+    [sym_preproc_def] = STATE(42),
+    [sym_preproc_function_def] = STATE(42),
+    [sym_preproc_call] = STATE(42),
+    [sym_preproc_if] = STATE(42),
+    [sym_preproc_ifdef] = STATE(42),
+    [sym_preproc_else] = STATE(7767),
+    [sym_preproc_elif] = STATE(7767),
+    [sym_preproc_elifdef] = STATE(7767),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(237),
+    [sym_preproc_ifdef_in_statements] = STATE(237),
+    [sym_preproc_else_in_statements] = STATE(7797),
+    [sym_preproc_elif_in_statements] = STATE(7797),
+    [sym_preproc_elifdef_in_statements] = STATE(7797),
+    [sym_program] = STATE(42),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(42),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(42),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(42),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(42),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(42),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5610),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(28),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(236),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(42),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(237),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(301),
+    [aux_sym_preproc_if_token2] = ACTIONS(299),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -52040,7 +52181,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(303),
+    [anon_sym_SEMI] = ACTIONS(301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -52101,148 +52242,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [21] = {
+  [22] = {
     [sym_preproc_include] = STATE(44),
     [sym_preproc_def] = STATE(44),
     [sym_preproc_function_def] = STATE(44),
     [sym_preproc_call] = STATE(44),
     [sym_preproc_if] = STATE(44),
     [sym_preproc_ifdef] = STATE(44),
-    [sym_preproc_else] = STATE(7842),
-    [sym_preproc_elif] = STATE(7842),
-    [sym_preproc_elifdef] = STATE(7842),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(233),
-    [sym_preproc_ifdef_in_statements] = STATE(233),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
+    [sym_preproc_else] = STATE(8462),
+    [sym_preproc_elif] = STATE(8462),
+    [sym_preproc_elifdef] = STATE(8462),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(228),
+    [sym_preproc_ifdef_in_statements] = STATE(228),
+    [sym_preproc_else_in_statements] = STATE(8618),
+    [sym_preproc_elif_in_statements] = STATE(8618),
+    [sym_preproc_elifdef_in_statements] = STATE(8618),
     [sym_program] = STATE(44),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(44),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(44),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(44),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(44),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(44),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5602),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5632),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(44),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(233),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(228),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(305),
+    [aux_sym_preproc_if_token2] = ACTIONS(303),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -52383,148 +52524,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [22] = {
-    [sym_preproc_include] = STATE(31),
-    [sym_preproc_def] = STATE(31),
-    [sym_preproc_function_def] = STATE(31),
-    [sym_preproc_call] = STATE(31),
-    [sym_preproc_if] = STATE(31),
-    [sym_preproc_ifdef] = STATE(31),
-    [sym_preproc_else] = STATE(8657),
-    [sym_preproc_elif] = STATE(8657),
-    [sym_preproc_elifdef] = STATE(8657),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(233),
-    [sym_preproc_ifdef_in_statements] = STATE(233),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_program] = STATE(31),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(31),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(31),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(31),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(31),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(31),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5602),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [23] = {
+    [sym_preproc_include] = STATE(32),
+    [sym_preproc_def] = STATE(32),
+    [sym_preproc_function_def] = STATE(32),
+    [sym_preproc_call] = STATE(32),
+    [sym_preproc_if] = STATE(32),
+    [sym_preproc_ifdef] = STATE(32),
+    [sym_preproc_else] = STATE(8519),
+    [sym_preproc_elif] = STATE(8519),
+    [sym_preproc_elifdef] = STATE(8519),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(234),
+    [sym_preproc_ifdef_in_statements] = STATE(234),
+    [sym_preproc_else_in_statements] = STATE(8664),
+    [sym_preproc_elif_in_statements] = STATE(8664),
+    [sym_preproc_elifdef_in_statements] = STATE(8664),
+    [sym_program] = STATE(32),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(32),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(32),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(32),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(32),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(32),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5573),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(31),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(32),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(233),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(234),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(307),
+    [aux_sym_preproc_if_token2] = ACTIONS(305),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
     [aux_sym_preproc_else_token1] = ACTIONS(209),
@@ -52604,7 +52745,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(261),
+    [anon_sym_SEMI] = ACTIONS(307),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -52665,144 +52806,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [23] = {
-    [sym_preproc_include] = STATE(36),
-    [sym_preproc_def] = STATE(36),
-    [sym_preproc_function_def] = STATE(36),
-    [sym_preproc_call] = STATE(36),
-    [sym_preproc_if] = STATE(36),
-    [sym_preproc_ifdef] = STATE(36),
-    [sym_preproc_else] = STATE(8570),
-    [sym_preproc_elif] = STATE(8570),
-    [sym_preproc_elifdef] = STATE(8570),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(236),
-    [sym_preproc_ifdef_in_statements] = STATE(236),
-    [sym_preproc_else_in_statements] = STATE(8026),
-    [sym_preproc_elif_in_statements] = STATE(8026),
-    [sym_preproc_elifdef_in_statements] = STATE(8026),
-    [sym_program] = STATE(36),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(36),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(36),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(36),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(36),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(36),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5604),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [24] = {
+    [sym_preproc_include] = STATE(42),
+    [sym_preproc_def] = STATE(42),
+    [sym_preproc_function_def] = STATE(42),
+    [sym_preproc_call] = STATE(42),
+    [sym_preproc_if] = STATE(42),
+    [sym_preproc_ifdef] = STATE(42),
+    [sym_preproc_else] = STATE(7767),
+    [sym_preproc_elif] = STATE(7767),
+    [sym_preproc_elifdef] = STATE(7767),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(228),
+    [sym_preproc_ifdef_in_statements] = STATE(228),
+    [sym_preproc_else_in_statements] = STATE(8618),
+    [sym_preproc_elif_in_statements] = STATE(8618),
+    [sym_preproc_elifdef_in_statements] = STATE(8618),
+    [sym_program] = STATE(42),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(42),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(42),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(42),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(42),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(42),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5632),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(36),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(236),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(42),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(228),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -52886,7 +53027,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(303),
+    [anon_sym_SEMI] = ACTIONS(261),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -52947,144 +53088,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [24] = {
-    [sym_preproc_include] = STATE(43),
-    [sym_preproc_def] = STATE(43),
-    [sym_preproc_function_def] = STATE(43),
-    [sym_preproc_call] = STATE(43),
-    [sym_preproc_if] = STATE(43),
-    [sym_preproc_ifdef] = STATE(43),
-    [sym_preproc_else] = STATE(8579),
-    [sym_preproc_elif] = STATE(8579),
-    [sym_preproc_elifdef] = STATE(8579),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(227),
-    [sym_preproc_ifdef_in_statements] = STATE(227),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_program] = STATE(43),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(43),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(43),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(43),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(43),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(43),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5638),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+  [25] = {
+    [sym_preproc_include] = STATE(40),
+    [sym_preproc_def] = STATE(40),
+    [sym_preproc_function_def] = STATE(40),
+    [sym_preproc_call] = STATE(40),
+    [sym_preproc_if] = STATE(40),
+    [sym_preproc_ifdef] = STATE(40),
+    [sym_preproc_else] = STATE(8543),
+    [sym_preproc_elif] = STATE(8543),
+    [sym_preproc_elifdef] = STATE(8543),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(240),
+    [sym_preproc_ifdef_in_statements] = STATE(240),
+    [sym_preproc_else_in_statements] = STATE(8645),
+    [sym_preproc_elif_in_statements] = STATE(8645),
+    [sym_preproc_elifdef_in_statements] = STATE(8645),
+    [sym_program] = STATE(40),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(40),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(40),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(40),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(40),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(40),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(5617),
+    [sym_contains_statement] = STATE(6592),
+    [sym__specification_part] = STATE(1133),
+    [sym_use_statement] = STATE(6593),
+    [sym_implicit_statement] = STATE(6593),
+    [sym_save_statement] = STATE(6593),
+    [sym_private_statement] = STATE(1133),
+    [sym_public_statement] = STATE(1133),
+    [sym_namelist_statement] = STATE(6593),
+    [sym_common_statement] = STATE(6593),
+    [sym_import_statement] = STATE(6593),
+    [sym_derived_type_definition] = STATE(1133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4321),
+    [sym_variable_declaration] = STATE(6593),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6593),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(43),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(227),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6593),
+    [sym_equivalence_statement] = STATE(6593),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(776),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6593),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_enum] = STATE(1133),
+    [sym_enum_statement] = STATE(6041),
+    [sym_enumeration_type] = STATE(1133),
+    [sym_enumeration_type_statement] = STATE(6181),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_statement_function] = STATE(6593),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(40),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(240),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(203),
@@ -53168,7 +53309,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(257),
+    [anon_sym_SEMI] = ACTIONS(313),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -53229,156 +53370,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [25] = {
+  [26] = {
     [sym_preproc_include] = STATE(39),
     [sym_preproc_def] = STATE(39),
     [sym_preproc_function_def] = STATE(39),
     [sym_preproc_call] = STATE(39),
     [sym_preproc_if] = STATE(39),
     [sym_preproc_ifdef] = STATE(39),
-    [sym_preproc_else] = STATE(7970),
-    [sym_preproc_elif] = STATE(7970),
-    [sym_preproc_elifdef] = STATE(7970),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(236),
-    [sym_preproc_ifdef_in_statements] = STATE(236),
-    [sym_preproc_else_in_statements] = STATE(8026),
-    [sym_preproc_elif_in_statements] = STATE(8026),
-    [sym_preproc_elifdef_in_statements] = STATE(8026),
+    [sym_preproc_else] = STATE(8161),
+    [sym_preproc_elif] = STATE(8161),
+    [sym_preproc_elifdef] = STATE(8161),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(39),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(39),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(39),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(39),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(39),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(39),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(5604),
-    [sym_contains_statement] = STATE(6508),
-    [sym__specification_part] = STATE(1139),
-    [sym_use_statement] = STATE(6509),
-    [sym_implicit_statement] = STATE(6509),
-    [sym_save_statement] = STATE(6509),
-    [sym_private_statement] = STATE(1139),
-    [sym_public_statement] = STATE(1139),
-    [sym_namelist_statement] = STATE(6509),
-    [sym_common_statement] = STATE(6509),
-    [sym_import_statement] = STATE(6509),
-    [sym_derived_type_definition] = STATE(1139),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4318),
-    [sym_variable_declaration] = STATE(6509),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6509),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6509),
-    [sym_equivalence_statement] = STATE(6509),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(785),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6509),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_enum] = STATE(1139),
-    [sym_enum_statement] = STATE(6073),
-    [sym_enumeration_type] = STATE(1139),
-    [sym_enumeration_type_statement] = STATE(6154),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_statement_function] = STATE(6509),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(39),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(236),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
-    [aux_sym_preproc_if_token1] = ACTIONS(203),
-    [aux_sym_preproc_if_token2] = ACTIONS(313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(207),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(207),
-    [aux_sym_preproc_else_token1] = ACTIONS(209),
-    [aux_sym_preproc_elif_token1] = ACTIONS(211),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(213),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(213),
+    [aux_sym_preproc_if_token1] = ACTIONS(315),
+    [aux_sym_preproc_if_token2] = ACTIONS(317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
+    [aux_sym_preproc_else_token1] = ACTIONS(321),
+    [aux_sym_preproc_elif_token1] = ACTIONS(323),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(325),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(325),
     [sym_preproc_directive] = ACTIONS(215),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(327),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
@@ -53403,8 +53538,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_implicit_statement_token3] = ACTIONS(57),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(223),
-    [aux_sym_public_statement_token1] = ACTIONS(225),
+    [aux_sym_private_statement_token1] = ACTIONS(61),
+    [aux_sym_public_statement_token1] = ACTIONS(63),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -53450,7 +53585,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(303),
+    [anon_sym_SEMI] = ACTIONS(329),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -53511,141 +53646,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [26] = {
-    [sym_preproc_include] = STATE(42),
-    [sym_preproc_def] = STATE(42),
-    [sym_preproc_function_def] = STATE(42),
-    [sym_preproc_call] = STATE(42),
-    [sym_preproc_if] = STATE(42),
-    [sym_preproc_ifdef] = STATE(42),
-    [sym_preproc_else] = STATE(8685),
-    [sym_preproc_elif] = STATE(8685),
-    [sym_preproc_elifdef] = STATE(8685),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
-    [sym_program] = STATE(42),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(42),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(42),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(42),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(42),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(42),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [27] = {
+    [sym_preproc_include] = STATE(43),
+    [sym_preproc_def] = STATE(43),
+    [sym_preproc_function_def] = STATE(43),
+    [sym_preproc_call] = STATE(43),
+    [sym_preproc_if] = STATE(43),
+    [sym_preproc_ifdef] = STATE(43),
+    [sym_preproc_else] = STATE(7859),
+    [sym_preproc_elif] = STATE(7859),
+    [sym_preproc_elifdef] = STATE(7859),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
+    [sym_program] = STATE(43),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(43),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(43),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(43),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(43),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(43),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(42),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(43),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(317),
+    [aux_sym_preproc_if_token2] = ACTIONS(331),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -53654,7 +53789,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(325),
     [sym_preproc_directive] = ACTIONS(215),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(327),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
@@ -53787,141 +53921,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [27] = {
+  [28] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8322),
-    [sym_preproc_elif] = STATE(8322),
-    [sym_preproc_elifdef] = STATE(8322),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(7855),
+    [sym_preproc_elif] = STATE(7855),
+    [sym_preproc_elifdef] = STATE(7855),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(331),
+    [aux_sym_preproc_if_token2] = ACTIONS(333),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -54062,141 +54196,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [28] = {
+  [29] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8657),
-    [sym_preproc_elif] = STATE(8657),
-    [sym_preproc_elifdef] = STATE(8657),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8443),
+    [sym_preproc_elif] = STATE(8443),
+    [sym_preproc_elifdef] = STATE(8443),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(333),
+    [aux_sym_preproc_if_token2] = ACTIONS(335),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -54337,141 +54471,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [29] = {
+  [30] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8352),
-    [sym_preproc_elif] = STATE(8352),
-    [sym_preproc_elifdef] = STATE(8352),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8496),
+    [sym_preproc_elif] = STATE(8496),
+    [sym_preproc_elifdef] = STATE(8496),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(335),
+    [aux_sym_preproc_if_token2] = ACTIONS(337),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -54612,141 +54746,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [30] = {
+  [31] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(7713),
-    [sym_preproc_elif] = STATE(7713),
-    [sym_preproc_elifdef] = STATE(7713),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8273),
+    [sym_preproc_elif] = STATE(8273),
+    [sym_preproc_elifdef] = STATE(8273),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(337),
+    [aux_sym_preproc_if_token2] = ACTIONS(339),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -54887,141 +55021,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [31] = {
+  [32] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(7832),
-    [sym_preproc_elif] = STATE(7832),
-    [sym_preproc_elifdef] = STATE(7832),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8591),
+    [sym_preproc_elif] = STATE(8591),
+    [sym_preproc_elifdef] = STATE(8591),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(339),
+    [aux_sym_preproc_if_token2] = ACTIONS(341),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -55162,141 +55296,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [32] = {
+  [33] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8358),
-    [sym_preproc_elif] = STATE(8358),
-    [sym_preproc_elifdef] = STATE(8358),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8577),
+    [sym_preproc_elif] = STATE(8577),
+    [sym_preproc_elifdef] = STATE(8577),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(341),
+    [aux_sym_preproc_if_token2] = ACTIONS(343),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -55437,141 +55571,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [33] = {
+  [34] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8014),
-    [sym_preproc_elif] = STATE(8014),
-    [sym_preproc_elifdef] = STATE(8014),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8543),
+    [sym_preproc_elif] = STATE(8543),
+    [sym_preproc_elifdef] = STATE(8543),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(343),
+    [aux_sym_preproc_if_token2] = ACTIONS(345),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -55712,141 +55846,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [34] = {
-    [sym_preproc_include] = STATE(29),
-    [sym_preproc_def] = STATE(29),
-    [sym_preproc_function_def] = STATE(29),
-    [sym_preproc_call] = STATE(29),
-    [sym_preproc_if] = STATE(29),
-    [sym_preproc_ifdef] = STATE(29),
-    [sym_preproc_else] = STATE(8262),
-    [sym_preproc_elif] = STATE(8262),
-    [sym_preproc_elifdef] = STATE(8262),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
-    [sym_program] = STATE(29),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(29),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(29),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(29),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(29),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(29),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [35] = {
+    [sym_preproc_include] = STATE(46),
+    [sym_preproc_def] = STATE(46),
+    [sym_preproc_function_def] = STATE(46),
+    [sym_preproc_call] = STATE(46),
+    [sym_preproc_if] = STATE(46),
+    [sym_preproc_ifdef] = STATE(46),
+    [sym_preproc_else] = STATE(7829),
+    [sym_preproc_elif] = STATE(7829),
+    [sym_preproc_elifdef] = STATE(7829),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
+    [sym_program] = STATE(46),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(46),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(46),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(46),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(46),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(46),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(29),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(46),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(345),
+    [aux_sym_preproc_if_token2] = ACTIONS(347),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -55987,141 +56121,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [35] = {
-    [sym_preproc_include] = STATE(46),
-    [sym_preproc_def] = STATE(46),
-    [sym_preproc_function_def] = STATE(46),
-    [sym_preproc_call] = STATE(46),
-    [sym_preproc_if] = STATE(46),
-    [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8579),
-    [sym_preproc_elif] = STATE(8579),
-    [sym_preproc_elifdef] = STATE(8579),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
-    [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [36] = {
+    [sym_preproc_include] = STATE(31),
+    [sym_preproc_def] = STATE(31),
+    [sym_preproc_function_def] = STATE(31),
+    [sym_preproc_call] = STATE(31),
+    [sym_preproc_if] = STATE(31),
+    [sym_preproc_ifdef] = STATE(31),
+    [sym_preproc_else] = STATE(7875),
+    [sym_preproc_elif] = STATE(7875),
+    [sym_preproc_elifdef] = STATE(7875),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
+    [sym_program] = STATE(31),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(31),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(31),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(31),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(31),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(31),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(31),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(347),
+    [aux_sym_preproc_if_token2] = ACTIONS(349),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -56262,141 +56396,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [36] = {
+  [37] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8642),
-    [sym_preproc_elif] = STATE(8642),
-    [sym_preproc_elifdef] = STATE(8642),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8190),
+    [sym_preproc_elif] = STATE(8190),
+    [sym_preproc_elifdef] = STATE(8190),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(349),
+    [aux_sym_preproc_if_token2] = ACTIONS(351),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -56537,141 +56671,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [37] = {
-    [sym_preproc_include] = STATE(33),
-    [sym_preproc_def] = STATE(33),
-    [sym_preproc_function_def] = STATE(33),
-    [sym_preproc_call] = STATE(33),
-    [sym_preproc_if] = STATE(33),
-    [sym_preproc_ifdef] = STATE(33),
-    [sym_preproc_else] = STATE(8282),
-    [sym_preproc_elif] = STATE(8282),
-    [sym_preproc_elifdef] = STATE(8282),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
-    [sym_program] = STATE(33),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(33),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(33),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(33),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(33),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(33),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [38] = {
+    [sym_preproc_include] = STATE(29),
+    [sym_preproc_def] = STATE(29),
+    [sym_preproc_function_def] = STATE(29),
+    [sym_preproc_call] = STATE(29),
+    [sym_preproc_if] = STATE(29),
+    [sym_preproc_ifdef] = STATE(29),
+    [sym_preproc_else] = STATE(8262),
+    [sym_preproc_elif] = STATE(8262),
+    [sym_preproc_elifdef] = STATE(8262),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
+    [sym_program] = STATE(29),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
+    [sym_module] = STATE(29),
+    [sym_module_statement] = STATE(1100),
+    [sym_submodule] = STATE(29),
+    [sym_submodule_statement] = STATE(969),
+    [sym_interface] = STATE(29),
+    [sym_interface_statement] = STATE(3936),
+    [sym_subroutine] = STATE(29),
+    [sym_subroutine_statement] = STATE(6722),
+    [sym_function] = STATE(29),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(33),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(29),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(351),
+    [aux_sym_preproc_if_token2] = ACTIONS(353),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -56812,141 +56946,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [38] = {
+  [39] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(7825),
-    [sym_preproc_elif] = STATE(7825),
-    [sym_preproc_elifdef] = STATE(7825),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(7875),
+    [sym_preproc_elif] = STATE(7875),
+    [sym_preproc_elifdef] = STATE(7875),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(353),
+    [aux_sym_preproc_if_token2] = ACTIONS(349),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -57087,137 +57221,137 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [39] = {
+  [40] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(7842),
-    [sym_preproc_elif] = STATE(7842),
-    [sym_preproc_elifdef] = STATE(7842),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8588),
+    [sym_preproc_elif] = STATE(8588),
+    [sym_preproc_elifdef] = STATE(8588),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
@@ -57362,137 +57496,137 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [40] = {
+  [41] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
     [sym_preproc_function_def] = STATE(46),
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8568),
-    [sym_preproc_elif] = STATE(8568),
-    [sym_preproc_elifdef] = STATE(8568),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8152),
+    [sym_preproc_elif] = STATE(8152),
+    [sym_preproc_elifdef] = STATE(8152),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
@@ -57637,281 +57771,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [41] = {
-    [sym_preproc_include] = STATE(40),
-    [sym_preproc_def] = STATE(40),
-    [sym_preproc_function_def] = STATE(40),
-    [sym_preproc_call] = STATE(40),
-    [sym_preproc_if] = STATE(40),
-    [sym_preproc_ifdef] = STATE(40),
-    [sym_preproc_else] = STATE(8292),
-    [sym_preproc_elif] = STATE(8292),
-    [sym_preproc_elifdef] = STATE(8292),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
-    [sym_program] = STATE(40),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
-    [sym_module] = STATE(40),
-    [sym_module_statement] = STATE(1096),
-    [sym_submodule] = STATE(40),
-    [sym_submodule_statement] = STATE(1098),
-    [sym_interface] = STATE(40),
-    [sym_interface_statement] = STATE(3856),
-    [sym_subroutine] = STATE(40),
-    [sym_subroutine_statement] = STATE(7155),
-    [sym_function] = STATE(40),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3178),
-    [sym_intrinsic_type] = STATE(3177),
-    [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(40),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(199),
-    [aux_sym_preproc_def_token1] = ACTIONS(201),
-    [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(359),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
-    [aux_sym_preproc_else_token1] = ACTIONS(321),
-    [aux_sym_preproc_elif_token1] = ACTIONS(323),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(325),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(325),
-    [sym_preproc_directive] = ACTIONS(215),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(23),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
-    [aux_sym_module_statement_token1] = ACTIONS(29),
-    [aux_sym_submodule_statement_token1] = ACTIONS(31),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_function_statement_token1] = ACTIONS(43),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(57),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(61),
-    [aux_sym_public_statement_token1] = ACTIONS(63),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(329),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
   [42] = {
     [sym_preproc_include] = STATE(46),
     [sym_preproc_def] = STATE(46),
@@ -57919,134 +57778,134 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8282),
-    [sym_preproc_elif] = STATE(8282),
-    [sym_preproc_elifdef] = STATE(8282),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8062),
+    [sym_preproc_elif] = STATE(8062),
+    [sym_preproc_elifdef] = STATE(8062),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
-    [aux_sym_preproc_if_token2] = ACTIONS(351),
+    [aux_sym_preproc_if_token2] = ACTIONS(359),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(319),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(319),
     [aux_sym_preproc_else_token1] = ACTIONS(321),
@@ -58194,130 +58053,130 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8664),
-    [sym_preproc_elif] = STATE(8664),
-    [sym_preproc_elifdef] = STATE(8664),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8230),
+    [sym_preproc_elif] = STATE(8230),
+    [sym_preproc_elifdef] = STATE(8230),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
@@ -58469,130 +58328,130 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8249),
-    [sym_preproc_elif] = STATE(8249),
-    [sym_preproc_elifdef] = STATE(8249),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8168),
+    [sym_preproc_elif] = STATE(8168),
+    [sym_preproc_elifdef] = STATE(8168),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
@@ -58744,130 +58603,130 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_else] = STATE(8416),
-    [sym_preproc_elif] = STATE(8416),
-    [sym_preproc_elifdef] = STATE(8416),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_else] = STATE(8086),
+    [sym_preproc_elif] = STATE(8086),
+    [sym_preproc_elifdef] = STATE(8086),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(199),
     [aux_sym_preproc_def_token1] = ACTIONS(201),
     [aux_sym_preproc_if_token1] = ACTIONS(315),
@@ -59019,127 +58878,127 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(46),
     [sym_preproc_if] = STATE(46),
     [sym_preproc_ifdef] = STATE(46),
-    [sym_preproc_if_in_specification_part] = STATE(190),
-    [sym_preproc_ifdef_in_specification_part] = STATE(190),
-    [sym_preproc_if_in_statements] = STATE(575),
-    [sym_preproc_ifdef_in_statements] = STATE(575),
+    [sym_preproc_if_in_specification_part] = STATE(189),
+    [sym_preproc_ifdef_in_specification_part] = STATE(189),
+    [sym_preproc_if_in_statements] = STATE(610),
+    [sym_preproc_ifdef_in_statements] = STATE(610),
     [sym_program] = STATE(46),
-    [sym_program_statement] = STATE(196),
-    [sym_end_program_statement] = STATE(842),
+    [sym_program_statement] = STATE(188),
+    [sym_end_program_statement] = STATE(838),
     [sym_module] = STATE(46),
-    [sym_module_statement] = STATE(1096),
+    [sym_module_statement] = STATE(1100),
     [sym_submodule] = STATE(46),
-    [sym_submodule_statement] = STATE(1098),
+    [sym_submodule_statement] = STATE(969),
     [sym_interface] = STATE(46),
-    [sym_interface_statement] = STATE(3856),
+    [sym_interface_statement] = STATE(3936),
     [sym_subroutine] = STATE(46),
-    [sym_subroutine_statement] = STATE(7155),
+    [sym_subroutine_statement] = STATE(6722),
     [sym_function] = STATE(46),
-    [sym_function_statement] = STATE(7156),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6799),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(190),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(190),
-    [sym_public_statement] = STATE(190),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(190),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6721),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(7023),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(189),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(189),
+    [sym_public_statement] = STATE(189),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(189),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6807),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(190),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(190),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(7014),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(189),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(189),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(46),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(575),
-    [aux_sym_program_repeat1] = STATE(190),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(610),
+    [aux_sym_program_repeat1] = STATE(189),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(367),
     [aux_sym_preproc_def_token1] = ACTIONS(370),
     [aux_sym_preproc_if_token1] = ACTIONS(373),
@@ -59285,134 +59144,134 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(651),
   },
   [47] = {
-    [sym_preproc_include] = STATE(55),
-    [sym_preproc_def] = STATE(55),
-    [sym_preproc_function_def] = STATE(55),
-    [sym_preproc_call] = STATE(55),
-    [sym_preproc_if] = STATE(55),
-    [sym_preproc_ifdef] = STATE(55),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(560),
-    [sym_preproc_ifdef_in_statements] = STATE(560),
-    [sym_program] = STATE(55),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(55),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(55),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(55),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(55),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(55),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6442),
-    [sym_contains_statement] = STATE(6713),
-    [sym__specification_part] = STATE(1244),
-    [sym_use_statement] = STATE(6777),
-    [sym_implicit_statement] = STATE(6777),
-    [sym_save_statement] = STATE(6777),
-    [sym_private_statement] = STATE(1244),
-    [sym_public_statement] = STATE(1244),
-    [sym_namelist_statement] = STATE(6777),
-    [sym_common_statement] = STATE(6777),
-    [sym_import_statement] = STATE(6777),
-    [sym_derived_type_definition] = STATE(1244),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4298),
-    [sym_variable_declaration] = STATE(6777),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6777),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(53),
+    [sym_preproc_def] = STATE(53),
+    [sym_preproc_function_def] = STATE(53),
+    [sym_preproc_call] = STATE(53),
+    [sym_preproc_if] = STATE(53),
+    [sym_preproc_ifdef] = STATE(53),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(549),
+    [sym_preproc_ifdef_in_statements] = STATE(549),
+    [sym_program] = STATE(53),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
+    [sym_module] = STATE(53),
+    [sym_module_statement] = STATE(1085),
+    [sym_submodule] = STATE(53),
+    [sym_submodule_statement] = STATE(1076),
+    [sym_interface] = STATE(53),
+    [sym_interface_statement] = STATE(3924),
+    [sym_subroutine] = STATE(53),
+    [sym_subroutine_statement] = STATE(6675),
+    [sym_function] = STATE(53),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6357),
+    [sym_contains_statement] = STATE(7033),
+    [sym__specification_part] = STATE(1322),
+    [sym_use_statement] = STATE(7156),
+    [sym_implicit_statement] = STATE(7156),
+    [sym_save_statement] = STATE(7156),
+    [sym_private_statement] = STATE(1322),
+    [sym_public_statement] = STATE(1322),
+    [sym_namelist_statement] = STATE(7156),
+    [sym_common_statement] = STATE(7156),
+    [sym_import_statement] = STATE(7156),
+    [sym_derived_type_definition] = STATE(1322),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4307),
+    [sym_variable_declaration] = STATE(7156),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7156),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6777),
-    [sym_equivalence_statement] = STATE(6777),
-    [sym__statements] = STATE(6716),
-    [sym_statement_label] = STATE(789),
-    [sym_stop_statement] = STATE(6716),
-    [sym_assignment_statement] = STATE(6716),
-    [sym_pointer_association_statement] = STATE(6716),
-    [sym_subroutine_call] = STATE(6716),
-    [sym_keyword_statement] = STATE(6716),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6777),
-    [sym_do_loop_statement] = STATE(6716),
-    [sym_do_label_statement] = STATE(6716),
-    [sym_end_do_label_statement] = STATE(6716),
-    [sym_if_statement] = STATE(6716),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6716),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6716),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6716),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6716),
-    [sym_select_type_statement] = STATE(6716),
-    [sym_select_rank_statement] = STATE(6716),
-    [sym_block_construct] = STATE(6716),
-    [sym_associate_statement] = STATE(6716),
-    [sym_format_statement] = STATE(6716),
-    [sym_read_statement] = STATE(6716),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6716),
-    [sym_open_statement] = STATE(6716),
-    [sym_close_statement] = STATE(6716),
-    [sym_write_statement] = STATE(6716),
-    [sym_inquire_statement] = STATE(6716),
-    [sym_enum] = STATE(1244),
-    [sym_enum_statement] = STATE(6044),
-    [sym_enumeration_type] = STATE(1244),
-    [sym_enumeration_type_statement] = STATE(6200),
-    [sym_file_position_statement] = STATE(6716),
-    [sym_allocate_statement] = STATE(6716),
-    [sym_statement_function] = STATE(6777),
-    [sym_entry_statement] = STATE(6716),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6716),
-    [sym_coarray_team_statement] = STATE(6716),
-    [sym_coarray_critical_statement] = STATE(6716),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(55),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(200),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(560),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(7156),
+    [sym_equivalence_statement] = STATE(7156),
+    [sym__statements] = STATE(7036),
+    [sym_statement_label] = STATE(790),
+    [sym_stop_statement] = STATE(7036),
+    [sym_assignment_statement] = STATE(7036),
+    [sym_pointer_association_statement] = STATE(7036),
+    [sym_subroutine_call] = STATE(7036),
+    [sym_keyword_statement] = STATE(7036),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(7156),
+    [sym_do_loop_statement] = STATE(7036),
+    [sym_do_label_statement] = STATE(7036),
+    [sym_end_do_label_statement] = STATE(7036),
+    [sym_if_statement] = STATE(7036),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7036),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7036),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7036),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7036),
+    [sym_select_type_statement] = STATE(7036),
+    [sym_select_rank_statement] = STATE(7036),
+    [sym_block_construct] = STATE(7036),
+    [sym_associate_statement] = STATE(7036),
+    [sym_format_statement] = STATE(7036),
+    [sym_read_statement] = STATE(7036),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7036),
+    [sym_open_statement] = STATE(7036),
+    [sym_close_statement] = STATE(7036),
+    [sym_write_statement] = STATE(7036),
+    [sym_inquire_statement] = STATE(7036),
+    [sym_enum] = STATE(1322),
+    [sym_enum_statement] = STATE(6052),
+    [sym_enumeration_type] = STATE(1322),
+    [sym_enumeration_type_statement] = STATE(6234),
+    [sym_file_position_statement] = STATE(7036),
+    [sym_allocate_statement] = STATE(7036),
+    [sym_statement_function] = STATE(7156),
+    [sym_entry_statement] = STATE(7036),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7036),
+    [sym_coarray_team_statement] = STATE(7036),
+    [sym_coarray_critical_statement] = STATE(7036),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(53),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(204),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(549),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(654),
     [aux_sym_preproc_def_token1] = ACTIONS(656),
     [aux_sym_preproc_if_token1] = ACTIONS(658),
@@ -59555,411 +59414,142 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [48] = {
-    [sym_preproc_include] = STATE(54),
-    [sym_preproc_def] = STATE(54),
-    [sym_preproc_function_def] = STATE(54),
-    [sym_preproc_call] = STATE(54),
-    [sym_preproc_if] = STATE(54),
-    [sym_preproc_ifdef] = STATE(54),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(562),
-    [sym_preproc_ifdef_in_statements] = STATE(562),
-    [sym_program] = STATE(54),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(54),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(54),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(54),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(54),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(54),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(6410),
-    [sym_contains_statement] = STATE(6713),
-    [sym__specification_part] = STATE(1244),
-    [sym_use_statement] = STATE(6777),
-    [sym_implicit_statement] = STATE(6777),
-    [sym_save_statement] = STATE(6777),
-    [sym_private_statement] = STATE(1244),
-    [sym_public_statement] = STATE(1244),
-    [sym_namelist_statement] = STATE(6777),
-    [sym_common_statement] = STATE(6777),
-    [sym_import_statement] = STATE(6777),
-    [sym_derived_type_definition] = STATE(1244),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4298),
-    [sym_variable_declaration] = STATE(6777),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6777),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3178),
-    [sym_intrinsic_type] = STATE(3177),
-    [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6777),
-    [sym_equivalence_statement] = STATE(6777),
-    [sym__statements] = STATE(6716),
-    [sym_statement_label] = STATE(789),
-    [sym_stop_statement] = STATE(6716),
-    [sym_assignment_statement] = STATE(6716),
-    [sym_pointer_association_statement] = STATE(6716),
-    [sym_subroutine_call] = STATE(6716),
-    [sym_keyword_statement] = STATE(6716),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6777),
-    [sym_do_loop_statement] = STATE(6716),
-    [sym_do_label_statement] = STATE(6716),
-    [sym_end_do_label_statement] = STATE(6716),
-    [sym_if_statement] = STATE(6716),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6716),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6716),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6716),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6716),
-    [sym_select_type_statement] = STATE(6716),
-    [sym_select_rank_statement] = STATE(6716),
-    [sym_block_construct] = STATE(6716),
-    [sym_associate_statement] = STATE(6716),
-    [sym_format_statement] = STATE(6716),
-    [sym_read_statement] = STATE(6716),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6716),
-    [sym_open_statement] = STATE(6716),
-    [sym_close_statement] = STATE(6716),
-    [sym_write_statement] = STATE(6716),
-    [sym_inquire_statement] = STATE(6716),
-    [sym_enum] = STATE(1244),
-    [sym_enum_statement] = STATE(6044),
-    [sym_enumeration_type] = STATE(1244),
-    [sym_enumeration_type_statement] = STATE(6200),
-    [sym_file_position_statement] = STATE(6716),
-    [sym_allocate_statement] = STATE(6716),
-    [sym_statement_function] = STATE(6777),
-    [sym_entry_statement] = STATE(6716),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6716),
-    [sym_coarray_team_statement] = STATE(6716),
-    [sym_coarray_critical_statement] = STATE(6716),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(54),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(201),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(562),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(654),
-    [aux_sym_preproc_def_token1] = ACTIONS(656),
-    [aux_sym_preproc_if_token1] = ACTIONS(658),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(662),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(662),
-    [sym_preproc_directive] = ACTIONS(664),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(23),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
-    [aux_sym_module_statement_token1] = ACTIONS(29),
-    [aux_sym_submodule_statement_token1] = ACTIONS(31),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_function_statement_token1] = ACTIONS(43),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(57),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(672),
-    [aux_sym_public_statement_token1] = ACTIONS(674),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(680),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [49] = {
-    [sym_preproc_include] = STATE(55),
-    [sym_preproc_def] = STATE(55),
-    [sym_preproc_function_def] = STATE(55),
-    [sym_preproc_call] = STATE(55),
-    [sym_preproc_if] = STATE(55),
-    [sym_preproc_ifdef] = STATE(55),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(620),
-    [sym_preproc_ifdef_in_statements] = STATE(620),
-    [sym_program] = STATE(55),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(55),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(55),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(55),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(55),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(55),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7220),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(188),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(188),
-    [sym_public_statement] = STATE(188),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(188),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_preproc_include] = STATE(53),
+    [sym_preproc_def] = STATE(53),
+    [sym_preproc_function_def] = STATE(53),
+    [sym_preproc_call] = STATE(53),
+    [sym_preproc_if] = STATE(53),
+    [sym_preproc_ifdef] = STATE(53),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(609),
+    [sym_preproc_ifdef_in_statements] = STATE(609),
+    [sym_program] = STATE(53),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
+    [sym_module] = STATE(53),
+    [sym_module_statement] = STATE(1085),
+    [sym_submodule] = STATE(53),
+    [sym_submodule_statement] = STATE(1076),
+    [sym_interface] = STATE(53),
+    [sym_interface_statement] = STATE(3924),
+    [sym_subroutine] = STATE(53),
+    [sym_subroutine_statement] = STATE(6675),
+    [sym_function] = STATE(53),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6608),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(192),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(192),
+    [sym_public_statement] = STATE(192),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(192),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(188),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(188),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(55),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(192),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(192),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(53),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(654),
     [aux_sym_preproc_def_token1] = ACTIONS(656),
-    [aux_sym_preproc_if_token1] = ACTIONS(682),
-    [aux_sym_preproc_if_token2] = ACTIONS(684),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(686),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(686),
+    [aux_sym_preproc_if_token1] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(680),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(682),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(682),
     [sym_preproc_directive] = ACTIONS(664),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(688),
+    [sym_preproc_comment] = ACTIONS(684),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
@@ -60031,6 +59621,275 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(686),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [49] = {
+    [sym_preproc_include] = STATE(51),
+    [sym_preproc_def] = STATE(51),
+    [sym_preproc_function_def] = STATE(51),
+    [sym_preproc_call] = STATE(51),
+    [sym_preproc_if] = STATE(51),
+    [sym_preproc_ifdef] = STATE(51),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(545),
+    [sym_preproc_ifdef_in_statements] = STATE(545),
+    [sym_program] = STATE(51),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
+    [sym_module] = STATE(51),
+    [sym_module_statement] = STATE(1085),
+    [sym_submodule] = STATE(51),
+    [sym_submodule_statement] = STATE(1076),
+    [sym_interface] = STATE(51),
+    [sym_interface_statement] = STATE(3924),
+    [sym_subroutine] = STATE(51),
+    [sym_subroutine_statement] = STATE(6675),
+    [sym_function] = STATE(51),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6431),
+    [sym_contains_statement] = STATE(7033),
+    [sym__specification_part] = STATE(1322),
+    [sym_use_statement] = STATE(7156),
+    [sym_implicit_statement] = STATE(7156),
+    [sym_save_statement] = STATE(7156),
+    [sym_private_statement] = STATE(1322),
+    [sym_public_statement] = STATE(1322),
+    [sym_namelist_statement] = STATE(7156),
+    [sym_common_statement] = STATE(7156),
+    [sym_import_statement] = STATE(7156),
+    [sym_derived_type_definition] = STATE(1322),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4307),
+    [sym_variable_declaration] = STATE(7156),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7156),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3178),
+    [sym_intrinsic_type] = STATE(3177),
+    [sym_derived_type] = STATE(3177),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(7156),
+    [sym_equivalence_statement] = STATE(7156),
+    [sym__statements] = STATE(7036),
+    [sym_statement_label] = STATE(790),
+    [sym_stop_statement] = STATE(7036),
+    [sym_assignment_statement] = STATE(7036),
+    [sym_pointer_association_statement] = STATE(7036),
+    [sym_subroutine_call] = STATE(7036),
+    [sym_keyword_statement] = STATE(7036),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(7156),
+    [sym_do_loop_statement] = STATE(7036),
+    [sym_do_label_statement] = STATE(7036),
+    [sym_end_do_label_statement] = STATE(7036),
+    [sym_if_statement] = STATE(7036),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7036),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7036),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7036),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7036),
+    [sym_select_type_statement] = STATE(7036),
+    [sym_select_rank_statement] = STATE(7036),
+    [sym_block_construct] = STATE(7036),
+    [sym_associate_statement] = STATE(7036),
+    [sym_format_statement] = STATE(7036),
+    [sym_read_statement] = STATE(7036),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7036),
+    [sym_open_statement] = STATE(7036),
+    [sym_close_statement] = STATE(7036),
+    [sym_write_statement] = STATE(7036),
+    [sym_inquire_statement] = STATE(7036),
+    [sym_enum] = STATE(1322),
+    [sym_enum_statement] = STATE(6052),
+    [sym_enumeration_type] = STATE(1322),
+    [sym_enumeration_type_statement] = STATE(6234),
+    [sym_file_position_statement] = STATE(7036),
+    [sym_allocate_statement] = STATE(7036),
+    [sym_statement_function] = STATE(7156),
+    [sym_entry_statement] = STATE(7036),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7036),
+    [sym_coarray_team_statement] = STATE(7036),
+    [sym_coarray_critical_statement] = STATE(7036),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(51),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(202),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(545),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(654),
+    [aux_sym_preproc_def_token1] = ACTIONS(656),
+    [aux_sym_preproc_if_token1] = ACTIONS(658),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(662),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(662),
+    [sym_preproc_directive] = ACTIONS(664),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(23),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_module_statement_token1] = ACTIONS(29),
+    [aux_sym_submodule_statement_token1] = ACTIONS(31),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_function_statement_token1] = ACTIONS(43),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(57),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(672),
+    [aux_sym_public_statement_token1] = ACTIONS(674),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
     [anon_sym_SEMI] = ACTIONS(690),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
@@ -60099,141 +59958,141 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(50),
     [sym_preproc_if] = STATE(50),
     [sym_preproc_ifdef] = STATE(50),
-    [sym_preproc_if_in_specification_part] = STATE(193),
-    [sym_preproc_ifdef_in_specification_part] = STATE(193),
-    [sym_preproc_if_in_statements] = STATE(614),
-    [sym_preproc_ifdef_in_statements] = STATE(614),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(609),
+    [sym_preproc_ifdef_in_statements] = STATE(609),
     [sym_program] = STATE(50),
-    [sym_program_statement] = STATE(191),
-    [sym_end_program_statement] = STATE(1079),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
     [sym_module] = STATE(50),
-    [sym_module_statement] = STATE(1092),
+    [sym_module_statement] = STATE(1085),
     [sym_submodule] = STATE(50),
-    [sym_submodule_statement] = STATE(1110),
+    [sym_submodule_statement] = STATE(1076),
     [sym_interface] = STATE(50),
-    [sym_interface_statement] = STATE(3821),
+    [sym_interface_statement] = STATE(3924),
     [sym_subroutine] = STATE(50),
-    [sym_subroutine_statement] = STATE(6897),
+    [sym_subroutine_statement] = STATE(6675),
     [sym_function] = STATE(50),
-    [sym_function_statement] = STATE(7054),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7126),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(193),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(193),
-    [sym_public_statement] = STATE(193),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(193),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6608),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(192),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(192),
+    [sym_public_statement] = STATE(192),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(192),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6912),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(193),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(193),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(192),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(192),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(50),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(614),
-    [aux_sym_program_repeat1] = STATE(193),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [ts_builtin_sym_end] = ACTIONS(692),
-    [aux_sym_preproc_include_token1] = ACTIONS(694),
-    [aux_sym_preproc_def_token1] = ACTIONS(697),
-    [aux_sym_preproc_if_token1] = ACTIONS(700),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(703),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(703),
-    [sym_preproc_directive] = ACTIONS(706),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(692),
+    [aux_sym_preproc_def_token1] = ACTIONS(695),
+    [aux_sym_preproc_if_token1] = ACTIONS(698),
+    [aux_sym_preproc_if_token2] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(701),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(701),
+    [sym_preproc_directive] = ACTIONS(704),
     [anon_sym_LPAREN2] = ACTIONS(384),
     [anon_sym_PLUS] = ACTIONS(387),
     [anon_sym_DASH] = ACTIONS(387),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_program_statement_token1] = ACTIONS(390),
-    [aux_sym_end_program_statement_token1] = ACTIONS(709),
-    [aux_sym_end_program_statement_token2] = ACTIONS(712),
+    [aux_sym_end_program_statement_token1] = ACTIONS(707),
+    [aux_sym_end_program_statement_token2] = ACTIONS(710),
     [aux_sym_module_statement_token1] = ACTIONS(399),
     [aux_sym_submodule_statement_token1] = ACTIONS(402),
     [aux_sym_interface_statement_token1] = ACTIONS(405),
@@ -60299,7 +60158,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(504),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(504),
     [aux_sym_equivalence_statement_token1] = ACTIONS(507),
-    [anon_sym_SEMI] = ACTIONS(715),
+    [anon_sym_SEMI] = ACTIONS(713),
     [aux_sym_stop_statement_token1] = ACTIONS(513),
     [aux_sym_stop_statement_token2] = ACTIONS(516),
     [aux_sym_subroutine_call_token1] = ACTIONS(519),
@@ -60367,401 +60226,133 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_call] = STATE(50),
     [sym_preproc_if] = STATE(50),
     [sym_preproc_ifdef] = STATE(50),
-    [sym_preproc_if_in_specification_part] = STATE(193),
-    [sym_preproc_ifdef_in_specification_part] = STATE(193),
-    [sym_preproc_if_in_statements] = STATE(614),
-    [sym_preproc_ifdef_in_statements] = STATE(614),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(609),
+    [sym_preproc_ifdef_in_statements] = STATE(609),
     [sym_program] = STATE(50),
-    [sym_program_statement] = STATE(191),
-    [sym_end_program_statement] = STATE(1079),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
     [sym_module] = STATE(50),
-    [sym_module_statement] = STATE(1092),
+    [sym_module_statement] = STATE(1085),
     [sym_submodule] = STATE(50),
-    [sym_submodule_statement] = STATE(1110),
+    [sym_submodule_statement] = STATE(1076),
     [sym_interface] = STATE(50),
-    [sym_interface_statement] = STATE(3821),
+    [sym_interface_statement] = STATE(3924),
     [sym_subroutine] = STATE(50),
-    [sym_subroutine_statement] = STATE(6897),
+    [sym_subroutine_statement] = STATE(6675),
     [sym_function] = STATE(50),
-    [sym_function_statement] = STATE(7054),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7126),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(193),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(193),
-    [sym_public_statement] = STATE(193),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(193),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6608),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(192),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(192),
+    [sym_public_statement] = STATE(192),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(192),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6912),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(193),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(193),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(192),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(192),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_translation_unit_repeat1] = STATE(50),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(614),
-    [aux_sym_program_repeat1] = STATE(193),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [ts_builtin_sym_end] = ACTIONS(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(7),
-    [aux_sym_preproc_def_token1] = ACTIONS(9),
-    [aux_sym_preproc_if_token1] = ACTIONS(11),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(13),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(13),
-    [sym_preproc_directive] = ACTIONS(15),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(23),
-    [aux_sym_end_program_statement_token1] = ACTIONS(25),
-    [aux_sym_end_program_statement_token2] = ACTIONS(27),
-    [aux_sym_module_statement_token1] = ACTIONS(29),
-    [aux_sym_submodule_statement_token1] = ACTIONS(31),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_function_statement_token1] = ACTIONS(43),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(57),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(61),
-    [aux_sym_public_statement_token1] = ACTIONS(63),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(103),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [52] = {
-    [sym_preproc_include] = STATE(54),
-    [sym_preproc_def] = STATE(54),
-    [sym_preproc_function_def] = STATE(54),
-    [sym_preproc_call] = STATE(54),
-    [sym_preproc_if] = STATE(54),
-    [sym_preproc_ifdef] = STATE(54),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(620),
-    [sym_preproc_ifdef_in_statements] = STATE(620),
-    [sym_program] = STATE(54),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(54),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(54),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(54),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(54),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(54),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7220),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(188),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(188),
-    [sym_public_statement] = STATE(188),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(188),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3178),
-    [sym_intrinsic_type] = STATE(3177),
-    [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(188),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(188),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(54),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(654),
     [aux_sym_preproc_def_token1] = ACTIONS(656),
-    [aux_sym_preproc_if_token1] = ACTIONS(682),
-    [aux_sym_preproc_if_token2] = ACTIONS(720),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(686),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(686),
+    [aux_sym_preproc_if_token1] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(716),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(682),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(682),
     [sym_preproc_directive] = ACTIONS(664),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
@@ -60835,7 +60426,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(690),
+    [anon_sym_SEMI] = ACTIONS(686),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -60896,148 +60487,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [53] = {
-    [sym_preproc_include] = STATE(53),
-    [sym_preproc_def] = STATE(53),
-    [sym_preproc_function_def] = STATE(53),
-    [sym_preproc_call] = STATE(53),
-    [sym_preproc_if] = STATE(53),
-    [sym_preproc_ifdef] = STATE(53),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(620),
-    [sym_preproc_ifdef_in_statements] = STATE(620),
-    [sym_program] = STATE(53),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(53),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(53),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(53),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(53),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(53),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7220),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(188),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(188),
-    [sym_public_statement] = STATE(188),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(188),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [52] = {
+    [sym_preproc_include] = STATE(52),
+    [sym_preproc_def] = STATE(52),
+    [sym_preproc_function_def] = STATE(52),
+    [sym_preproc_call] = STATE(52),
+    [sym_preproc_if] = STATE(52),
+    [sym_preproc_ifdef] = STATE(52),
+    [sym_preproc_if_in_specification_part] = STATE(196),
+    [sym_preproc_ifdef_in_specification_part] = STATE(196),
+    [sym_preproc_if_in_statements] = STATE(615),
+    [sym_preproc_ifdef_in_statements] = STATE(615),
+    [sym_program] = STATE(52),
+    [sym_program_statement] = STATE(194),
+    [sym_end_program_statement] = STATE(1094),
+    [sym_module] = STATE(52),
+    [sym_module_statement] = STATE(1075),
+    [sym_submodule] = STATE(52),
+    [sym_submodule_statement] = STATE(1070),
+    [sym_interface] = STATE(52),
+    [sym_interface_statement] = STATE(3892),
+    [sym_subroutine] = STATE(52),
+    [sym_subroutine_statement] = STATE(6931),
+    [sym_function] = STATE(52),
+    [sym_function_statement] = STATE(6932),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6939),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(196),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(196),
+    [sym_public_statement] = STATE(196),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(196),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(188),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(188),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(53),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(722),
-    [aux_sym_preproc_def_token1] = ACTIONS(725),
-    [aux_sym_preproc_if_token1] = ACTIONS(728),
-    [aux_sym_preproc_if_token2] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(731),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(731),
-    [sym_preproc_directive] = ACTIONS(734),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6976),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(196),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(196),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(52),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(615),
+    [aux_sym_program_repeat1] = STATE(196),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [ts_builtin_sym_end] = ACTIONS(718),
+    [aux_sym_preproc_include_token1] = ACTIONS(720),
+    [aux_sym_preproc_def_token1] = ACTIONS(723),
+    [aux_sym_preproc_if_token1] = ACTIONS(726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(729),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(729),
+    [sym_preproc_directive] = ACTIONS(732),
     [anon_sym_LPAREN2] = ACTIONS(384),
     [anon_sym_PLUS] = ACTIONS(387),
     [anon_sym_DASH] = ACTIONS(387),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_program_statement_token1] = ACTIONS(390),
-    [aux_sym_end_program_statement_token1] = ACTIONS(737),
-    [aux_sym_end_program_statement_token2] = ACTIONS(740),
+    [aux_sym_end_program_statement_token1] = ACTIONS(735),
+    [aux_sym_end_program_statement_token2] = ACTIONS(738),
     [aux_sym_module_statement_token1] = ACTIONS(399),
     [aux_sym_submodule_statement_token1] = ACTIONS(402),
     [aux_sym_interface_statement_token1] = ACTIONS(405),
@@ -61103,7 +60694,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(504),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(504),
     [aux_sym_equivalence_statement_token1] = ACTIONS(507),
-    [anon_sym_SEMI] = ACTIONS(743),
+    [anon_sym_SEMI] = ACTIONS(741),
     [aux_sym_stop_statement_token1] = ACTIONS(513),
     [aux_sym_stop_statement_token2] = ACTIONS(516),
     [aux_sym_subroutine_call_token1] = ACTIONS(519),
@@ -61164,140 +60755,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(648),
     [sym__string_literal_kind] = ACTIONS(651),
   },
-  [54] = {
-    [sym_preproc_include] = STATE(53),
-    [sym_preproc_def] = STATE(53),
-    [sym_preproc_function_def] = STATE(53),
-    [sym_preproc_call] = STATE(53),
-    [sym_preproc_if] = STATE(53),
-    [sym_preproc_ifdef] = STATE(53),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(620),
-    [sym_preproc_ifdef_in_statements] = STATE(620),
-    [sym_program] = STATE(53),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(53),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(53),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(53),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(53),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(53),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7220),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(188),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(188),
-    [sym_public_statement] = STATE(188),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(188),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [53] = {
+    [sym_preproc_include] = STATE(50),
+    [sym_preproc_def] = STATE(50),
+    [sym_preproc_function_def] = STATE(50),
+    [sym_preproc_call] = STATE(50),
+    [sym_preproc_if] = STATE(50),
+    [sym_preproc_ifdef] = STATE(50),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(609),
+    [sym_preproc_ifdef_in_statements] = STATE(609),
+    [sym_program] = STATE(50),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
+    [sym_module] = STATE(50),
+    [sym_module_statement] = STATE(1085),
+    [sym_submodule] = STATE(50),
+    [sym_submodule_statement] = STATE(1076),
+    [sym_interface] = STATE(50),
+    [sym_interface_statement] = STATE(3924),
+    [sym_subroutine] = STATE(50),
+    [sym_subroutine_statement] = STATE(6675),
+    [sym_function] = STATE(50),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6608),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(192),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(192),
+    [sym_public_statement] = STATE(192),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(192),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(188),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(188),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(53),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(192),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(192),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(50),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(654),
     [aux_sym_preproc_def_token1] = ACTIONS(656),
-    [aux_sym_preproc_if_token1] = ACTIONS(682),
-    [aux_sym_preproc_if_token2] = ACTIONS(746),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(686),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(686),
+    [aux_sym_preproc_if_token1] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(744),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(682),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(682),
     [sym_preproc_directive] = ACTIONS(664),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
@@ -61371,7 +60962,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(690),
+    [anon_sym_SEMI] = ACTIONS(686),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -61432,140 +61023,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [55] = {
-    [sym_preproc_include] = STATE(53),
-    [sym_preproc_def] = STATE(53),
-    [sym_preproc_function_def] = STATE(53),
-    [sym_preproc_call] = STATE(53),
-    [sym_preproc_if] = STATE(53),
-    [sym_preproc_ifdef] = STATE(53),
-    [sym_preproc_if_in_specification_part] = STATE(188),
-    [sym_preproc_ifdef_in_specification_part] = STATE(188),
-    [sym_preproc_if_in_statements] = STATE(620),
-    [sym_preproc_ifdef_in_statements] = STATE(620),
-    [sym_program] = STATE(53),
-    [sym_program_statement] = STATE(195),
-    [sym_end_program_statement] = STATE(1053),
-    [sym_module] = STATE(53),
-    [sym_module_statement] = STATE(987),
-    [sym_submodule] = STATE(53),
-    [sym_submodule_statement] = STATE(988),
-    [sym_interface] = STATE(53),
-    [sym_interface_statement] = STATE(3858),
-    [sym_subroutine] = STATE(53),
-    [sym_subroutine_statement] = STATE(7184),
-    [sym_function] = STATE(53),
-    [sym_function_statement] = STATE(7185),
-    [sym_language_binding] = STATE(3231),
-    [aux_sym__callable_interface_qualifers] = STATE(5310),
-    [sym_procedure_attributes] = STATE(5310),
-    [sym_internal_procedures] = STATE(7220),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(188),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(188),
-    [sym_public_statement] = STATE(188),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(188),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
+  [54] = {
+    [sym_preproc_include] = STATE(51),
+    [sym_preproc_def] = STATE(51),
+    [sym_preproc_function_def] = STATE(51),
+    [sym_preproc_call] = STATE(51),
+    [sym_preproc_if] = STATE(51),
+    [sym_preproc_ifdef] = STATE(51),
+    [sym_preproc_if_in_specification_part] = STATE(192),
+    [sym_preproc_ifdef_in_specification_part] = STATE(192),
+    [sym_preproc_if_in_statements] = STATE(609),
+    [sym_preproc_ifdef_in_statements] = STATE(609),
+    [sym_program] = STATE(51),
+    [sym_program_statement] = STATE(193),
+    [sym_end_program_statement] = STATE(1040),
+    [sym_module] = STATE(51),
+    [sym_module_statement] = STATE(1085),
+    [sym_submodule] = STATE(51),
+    [sym_submodule_statement] = STATE(1076),
+    [sym_interface] = STATE(51),
+    [sym_interface_statement] = STATE(3924),
+    [sym_subroutine] = STATE(51),
+    [sym_subroutine_statement] = STATE(6675),
+    [sym_function] = STATE(51),
+    [sym_function_statement] = STATE(6674),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6608),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(192),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(192),
+    [sym_public_statement] = STATE(192),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(192),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
     [sym__intrinsic_type] = STATE(3178),
     [sym_intrinsic_type] = STATE(3177),
     [sym_derived_type] = STATE(3177),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_procedure_qualifier] = STATE(5310),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7227),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(188),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(188),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_translation_unit_repeat1] = STATE(53),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
-    [aux_sym_program_repeat1] = STATE(188),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6604),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(192),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(192),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(51),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
+    [aux_sym_program_repeat1] = STATE(192),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(654),
     [aux_sym_preproc_def_token1] = ACTIONS(656),
-    [aux_sym_preproc_if_token1] = ACTIONS(682),
-    [aux_sym_preproc_if_token2] = ACTIONS(720),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(686),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(686),
+    [aux_sym_preproc_if_token1] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(744),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(682),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(682),
     [sym_preproc_directive] = ACTIONS(664),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
@@ -61639,7 +61230,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(690),
+    [anon_sym_SEMI] = ACTIONS(686),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -61700,157 +61291,168 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [56] = {
-    [sym_preproc_include] = STATE(93),
-    [sym_preproc_def] = STATE(93),
-    [sym_preproc_function_def] = STATE(93),
-    [sym_preproc_call] = STATE(93),
-    [sym_preproc_else_in_specification_part] = STATE(8260),
-    [sym_preproc_elif_in_specification_part] = STATE(8260),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8260),
-    [sym_preproc_if_in_statements] = STATE(219),
-    [sym_preproc_ifdef_in_statements] = STATE(219),
-    [sym_preproc_else_in_statements] = STATE(8261),
-    [sym_preproc_elif_in_statements] = STATE(8261),
-    [sym_preproc_elifdef_in_statements] = STATE(8261),
-    [sym_preproc_else_in_procedure_statements] = STATE(8168),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8168),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8168),
-    [sym_interface] = STATE(93),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5590),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(93),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(93),
-    [sym_public_statement] = STATE(93),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(93),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(93),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(93),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(93),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(219),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(748),
-    [aux_sym_preproc_def_token1] = ACTIONS(750),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(205),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+  [55] = {
+    [sym_preproc_include] = STATE(52),
+    [sym_preproc_def] = STATE(52),
+    [sym_preproc_function_def] = STATE(52),
+    [sym_preproc_call] = STATE(52),
+    [sym_preproc_if] = STATE(52),
+    [sym_preproc_ifdef] = STATE(52),
+    [sym_preproc_if_in_specification_part] = STATE(196),
+    [sym_preproc_ifdef_in_specification_part] = STATE(196),
+    [sym_preproc_if_in_statements] = STATE(615),
+    [sym_preproc_ifdef_in_statements] = STATE(615),
+    [sym_program] = STATE(52),
+    [sym_program_statement] = STATE(194),
+    [sym_end_program_statement] = STATE(1094),
+    [sym_module] = STATE(52),
+    [sym_module_statement] = STATE(1075),
+    [sym_submodule] = STATE(52),
+    [sym_submodule_statement] = STATE(1070),
+    [sym_interface] = STATE(52),
+    [sym_interface_statement] = STATE(3892),
+    [sym_subroutine] = STATE(52),
+    [sym_subroutine_statement] = STATE(6931),
+    [sym_function] = STATE(52),
+    [sym_function_statement] = STATE(6932),
+    [sym_language_binding] = STATE(3221),
+    [aux_sym__callable_interface_qualifers] = STATE(5309),
+    [sym_procedure_attributes] = STATE(5309),
+    [sym_internal_procedures] = STATE(6939),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(196),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(196),
+    [sym_public_statement] = STATE(196),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(196),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3178),
+    [sym_intrinsic_type] = STATE(3177),
+    [sym_derived_type] = STATE(3177),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_procedure_qualifier] = STATE(5309),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6976),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(196),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(196),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_translation_unit_repeat1] = STATE(52),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(615),
+    [aux_sym_program_repeat1] = STATE(196),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [ts_builtin_sym_end] = ACTIONS(746),
+    [aux_sym_preproc_include_token1] = ACTIONS(7),
+    [aux_sym_preproc_def_token1] = ACTIONS(9),
+    [aux_sym_preproc_if_token1] = ACTIONS(11),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(13),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(13),
+    [sym_preproc_directive] = ACTIONS(15),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(764),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_program_statement_token1] = ACTIONS(23),
+    [aux_sym_end_program_statement_token1] = ACTIONS(25),
+    [aux_sym_end_program_statement_token2] = ACTIONS(27),
+    [aux_sym_module_statement_token1] = ACTIONS(29),
+    [aux_sym_submodule_statement_token1] = ACTIONS(31),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(39),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_function_statement_token1] = ACTIONS(43),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(47),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(57),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(61),
+    [aux_sym_public_statement_token1] = ACTIONS(63),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -61862,16 +61464,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -61890,8 +61492,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(99),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(99),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(786),
+    [anon_sym_SEMI] = ACTIONS(103),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -61952,157 +61559,157 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [57] = {
-    [sym_preproc_include] = STATE(110),
-    [sym_preproc_def] = STATE(110),
-    [sym_preproc_function_def] = STATE(110),
-    [sym_preproc_call] = STATE(110),
-    [sym_preproc_else_in_specification_part] = STATE(8375),
-    [sym_preproc_elif_in_specification_part] = STATE(8375),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8375),
-    [sym_preproc_if_in_statements] = STATE(213),
-    [sym_preproc_ifdef_in_statements] = STATE(213),
+  [56] = {
+    [sym_preproc_include] = STATE(114),
+    [sym_preproc_def] = STATE(114),
+    [sym_preproc_function_def] = STATE(114),
+    [sym_preproc_call] = STATE(114),
+    [sym_preproc_else_in_specification_part] = STATE(8382),
+    [sym_preproc_elif_in_specification_part] = STATE(8382),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8382),
+    [sym_preproc_if_in_statements] = STATE(210),
+    [sym_preproc_ifdef_in_statements] = STATE(210),
     [sym_preproc_else_in_statements] = STATE(7734),
     [sym_preproc_elif_in_statements] = STATE(7734),
     [sym_preproc_elifdef_in_statements] = STATE(7734),
-    [sym_preproc_else_in_procedure_statements] = STATE(7831),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7831),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7831),
-    [sym_interface] = STATE(110),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5630),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(110),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(110),
-    [sym_public_statement] = STATE(110),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(110),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(110),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(110),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(110),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(213),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_else_in_procedure_statements] = STATE(8584),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8584),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8584),
+    [sym_interface] = STATE(114),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5644),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(114),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(114),
+    [sym_public_statement] = STATE(114),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(114),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(114),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(114),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(114),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(210),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(788),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(790),
+    [sym_preproc_comment] = ACTIONS(766),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -62114,16 +61721,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -62143,7 +61750,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(792),
+    [anon_sym_SEMI] = ACTIONS(788),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -62204,157 +61811,157 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [58] = {
-    [sym_preproc_include] = STATE(88),
-    [sym_preproc_def] = STATE(88),
-    [sym_preproc_function_def] = STATE(88),
-    [sym_preproc_call] = STATE(88),
-    [sym_preproc_else_in_specification_part] = STATE(8060),
-    [sym_preproc_elif_in_specification_part] = STATE(8060),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8060),
-    [sym_preproc_if_in_statements] = STATE(215),
-    [sym_preproc_ifdef_in_statements] = STATE(215),
-    [sym_preproc_else_in_statements] = STATE(8455),
-    [sym_preproc_elif_in_statements] = STATE(8455),
-    [sym_preproc_elifdef_in_statements] = STATE(8455),
-    [sym_preproc_else_in_procedure_statements] = STATE(8174),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8174),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8174),
-    [sym_interface] = STATE(88),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5588),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(88),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(88),
-    [sym_public_statement] = STATE(88),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(88),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(88),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(88),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(88),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(215),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [57] = {
+    [sym_preproc_include] = STATE(100),
+    [sym_preproc_def] = STATE(100),
+    [sym_preproc_function_def] = STATE(100),
+    [sym_preproc_call] = STATE(100),
+    [sym_preproc_else_in_specification_part] = STATE(8476),
+    [sym_preproc_elif_in_specification_part] = STATE(8476),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8476),
+    [sym_preproc_if_in_statements] = STATE(209),
+    [sym_preproc_ifdef_in_statements] = STATE(209),
+    [sym_preproc_else_in_statements] = STATE(8063),
+    [sym_preproc_elif_in_statements] = STATE(8063),
+    [sym_preproc_elifdef_in_statements] = STATE(8063),
+    [sym_preproc_else_in_procedure_statements] = STATE(8146),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8146),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8146),
+    [sym_interface] = STATE(100),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5628),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(100),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(100),
+    [sym_public_statement] = STATE(100),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(100),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(100),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(100),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(209),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(794),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(790),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(796),
+    [sym_preproc_comment] = ACTIONS(792),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -62366,16 +61973,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -62395,7 +62002,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(798),
+    [anon_sym_SEMI] = ACTIONS(794),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -62456,157 +62063,157 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [59] = {
-    [sym_preproc_include] = STATE(119),
-    [sym_preproc_def] = STATE(119),
-    [sym_preproc_function_def] = STATE(119),
-    [sym_preproc_call] = STATE(119),
-    [sym_preproc_else_in_specification_part] = STATE(8501),
-    [sym_preproc_elif_in_specification_part] = STATE(8501),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8501),
-    [sym_preproc_if_in_statements] = STATE(217),
-    [sym_preproc_ifdef_in_statements] = STATE(217),
-    [sym_preproc_else_in_statements] = STATE(8068),
-    [sym_preproc_elif_in_statements] = STATE(8068),
-    [sym_preproc_elifdef_in_statements] = STATE(8068),
-    [sym_preproc_else_in_procedure_statements] = STATE(7768),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7768),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7768),
-    [sym_interface] = STATE(119),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5649),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(119),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(119),
-    [sym_public_statement] = STATE(119),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(119),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(119),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(119),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(119),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(217),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [58] = {
+    [sym_preproc_include] = STATE(90),
+    [sym_preproc_def] = STATE(90),
+    [sym_preproc_function_def] = STATE(90),
+    [sym_preproc_call] = STATE(90),
+    [sym_preproc_else_in_specification_part] = STATE(7781),
+    [sym_preproc_elif_in_specification_part] = STATE(7781),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7781),
+    [sym_preproc_if_in_statements] = STATE(222),
+    [sym_preproc_ifdef_in_statements] = STATE(222),
+    [sym_preproc_else_in_statements] = STATE(7712),
+    [sym_preproc_elif_in_statements] = STATE(7712),
+    [sym_preproc_elifdef_in_statements] = STATE(7712),
+    [sym_preproc_else_in_procedure_statements] = STATE(7758),
+    [sym_preproc_elif_in_procedure_statements] = STATE(7758),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(7758),
+    [sym_interface] = STATE(90),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5585),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(90),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(90),
+    [sym_public_statement] = STATE(90),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(90),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(90),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(90),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(222),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(800),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(796),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(802),
+    [sym_preproc_comment] = ACTIONS(798),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -62618,16 +62225,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -62647,7 +62254,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(804),
+    [anon_sym_SEMI] = ACTIONS(800),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -62708,156 +62315,157 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [60] = {
-    [sym_preproc_include] = STATE(94),
-    [sym_preproc_def] = STATE(94),
-    [sym_preproc_function_def] = STATE(94),
-    [sym_preproc_call] = STATE(94),
-    [sym_preproc_else_in_specification_part] = STATE(8654),
-    [sym_preproc_elif_in_specification_part] = STATE(8654),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8654),
-    [sym_preproc_if_in_statements] = STATE(216),
-    [sym_preproc_ifdef_in_statements] = STATE(216),
-    [sym_preproc_else_in_statements] = STATE(8651),
-    [sym_preproc_elif_in_statements] = STATE(8651),
-    [sym_preproc_elifdef_in_statements] = STATE(8651),
-    [sym_preproc_else_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8050),
-    [sym_interface] = STATE(94),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5648),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(94),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(94),
-    [sym_public_statement] = STATE(94),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(94),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(94),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(94),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(94),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(216),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [59] = {
+    [sym_preproc_include] = STATE(112),
+    [sym_preproc_def] = STATE(112),
+    [sym_preproc_function_def] = STATE(112),
+    [sym_preproc_call] = STATE(112),
+    [sym_preproc_else_in_specification_part] = STATE(8156),
+    [sym_preproc_elif_in_specification_part] = STATE(8156),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8156),
+    [sym_preproc_if_in_statements] = STATE(211),
+    [sym_preproc_ifdef_in_statements] = STATE(211),
+    [sym_preproc_else_in_statements] = STATE(8155),
+    [sym_preproc_elif_in_statements] = STATE(8155),
+    [sym_preproc_elifdef_in_statements] = STATE(8155),
+    [sym_preproc_else_in_procedure_statements] = STATE(8396),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8396),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8396),
+    [sym_interface] = STATE(112),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5649),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(112),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(112),
+    [sym_public_statement] = STATE(112),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(112),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(112),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(211),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(806),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(802),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -62869,16 +62477,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -62898,7 +62506,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(808),
+    [anon_sym_SEMI] = ACTIONS(804),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -62959,156 +62567,156 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [61] = {
-    [sym_preproc_include] = STATE(102),
-    [sym_preproc_def] = STATE(102),
-    [sym_preproc_function_def] = STATE(102),
-    [sym_preproc_call] = STATE(102),
-    [sym_preproc_else_in_specification_part] = STATE(8572),
-    [sym_preproc_elif_in_specification_part] = STATE(8572),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8572),
-    [sym_preproc_if_in_statements] = STATE(218),
-    [sym_preproc_ifdef_in_statements] = STATE(218),
-    [sym_preproc_else_in_statements] = STATE(8126),
-    [sym_preproc_elif_in_statements] = STATE(8126),
-    [sym_preproc_elifdef_in_statements] = STATE(8126),
-    [sym_preproc_else_in_procedure_statements] = STATE(7889),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7889),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7889),
-    [sym_interface] = STATE(102),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5583),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(102),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(102),
-    [sym_public_statement] = STATE(102),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(102),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(102),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(102),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(218),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [60] = {
+    [sym_preproc_include] = STATE(110),
+    [sym_preproc_def] = STATE(110),
+    [sym_preproc_function_def] = STATE(110),
+    [sym_preproc_call] = STATE(110),
+    [sym_preproc_else_in_specification_part] = STATE(8031),
+    [sym_preproc_elif_in_specification_part] = STATE(8031),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8031),
+    [sym_preproc_if_in_statements] = STATE(224),
+    [sym_preproc_ifdef_in_statements] = STATE(224),
+    [sym_preproc_else_in_statements] = STATE(7760),
+    [sym_preproc_elif_in_statements] = STATE(7760),
+    [sym_preproc_elifdef_in_statements] = STATE(7760),
+    [sym_preproc_else_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8393),
+    [sym_interface] = STATE(110),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5582),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(110),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(110),
+    [sym_public_statement] = STATE(110),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(110),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(110),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(110),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(110),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(224),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(810),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(806),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -63120,16 +62728,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -63149,7 +62757,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(812),
+    [anon_sym_SEMI] = ACTIONS(808),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -63210,156 +62818,156 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [62] = {
+  [61] = {
     [sym_preproc_include] = STATE(104),
     [sym_preproc_def] = STATE(104),
     [sym_preproc_function_def] = STATE(104),
     [sym_preproc_call] = STATE(104),
-    [sym_preproc_else_in_specification_part] = STATE(8580),
-    [sym_preproc_elif_in_specification_part] = STATE(8580),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
-    [sym_preproc_if_in_statements] = STATE(220),
-    [sym_preproc_ifdef_in_statements] = STATE(220),
-    [sym_preproc_else_in_statements] = STATE(8127),
-    [sym_preproc_elif_in_statements] = STATE(8127),
-    [sym_preproc_elifdef_in_statements] = STATE(8127),
-    [sym_preproc_else_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7927),
+    [sym_preproc_else_in_specification_part] = STATE(8263),
+    [sym_preproc_elif_in_specification_part] = STATE(8263),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
+    [sym_preproc_if_in_statements] = STATE(213),
+    [sym_preproc_ifdef_in_statements] = STATE(213),
+    [sym_preproc_else_in_statements] = STATE(8264),
+    [sym_preproc_elif_in_statements] = STATE(8264),
+    [sym_preproc_elifdef_in_statements] = STATE(8264),
+    [sym_preproc_else_in_procedure_statements] = STATE(8657),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8657),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8657),
     [sym_interface] = STATE(104),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5625),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5650),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(104),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
     [sym_private_statement] = STATE(104),
     [sym_public_statement] = STATE(104),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
     [sym_derived_type_definition] = STATE(104),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
     [sym_enum] = STATE(104),
-    [sym_enum_statement] = STATE(6047),
+    [sym_enum_statement] = STATE(6065),
     [sym_enumeration_type] = STATE(104),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(104),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(220),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(213),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(814),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(271),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -63371,16 +62979,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -63400,7 +63008,258 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(816),
+    [anon_sym_SEMI] = ACTIONS(810),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [62] = {
+    [sym_preproc_include] = STATE(96),
+    [sym_preproc_def] = STATE(96),
+    [sym_preproc_function_def] = STATE(96),
+    [sym_preproc_call] = STATE(96),
+    [sym_preproc_else_in_specification_part] = STATE(8368),
+    [sym_preproc_elif_in_specification_part] = STATE(8368),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8368),
+    [sym_preproc_if_in_statements] = STATE(219),
+    [sym_preproc_ifdef_in_statements] = STATE(219),
+    [sym_preproc_else_in_statements] = STATE(7742),
+    [sym_preproc_elif_in_statements] = STATE(7742),
+    [sym_preproc_elifdef_in_statements] = STATE(7742),
+    [sym_preproc_else_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8562),
+    [sym_interface] = STATE(96),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5619),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(96),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(96),
+    [sym_public_statement] = STATE(96),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(96),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(96),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(96),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(96),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(219),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(748),
+    [aux_sym_preproc_def_token1] = ACTIONS(750),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(812),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(814),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -63462,155 +63321,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [63] = {
-    [sym_preproc_include] = STATE(105),
-    [sym_preproc_def] = STATE(105),
-    [sym_preproc_function_def] = STATE(105),
-    [sym_preproc_call] = STATE(105),
-    [sym_preproc_else_in_specification_part] = STATE(8639),
-    [sym_preproc_elif_in_specification_part] = STATE(8639),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8639),
-    [sym_preproc_if_in_statements] = STATE(221),
-    [sym_preproc_ifdef_in_statements] = STATE(221),
-    [sym_preproc_else_in_statements] = STATE(8167),
-    [sym_preproc_elif_in_statements] = STATE(8167),
-    [sym_preproc_elifdef_in_statements] = STATE(8167),
-    [sym_preproc_else_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8155),
-    [sym_interface] = STATE(105),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5623),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(105),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(105),
-    [sym_public_statement] = STATE(105),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(105),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(105),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(105),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(105),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(221),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(108),
+    [sym_preproc_def] = STATE(108),
+    [sym_preproc_function_def] = STATE(108),
+    [sym_preproc_call] = STATE(108),
+    [sym_preproc_else_in_specification_part] = STATE(8524),
+    [sym_preproc_elif_in_specification_part] = STATE(8524),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8524),
+    [sym_preproc_if_in_statements] = STATE(215),
+    [sym_preproc_ifdef_in_statements] = STATE(215),
+    [sym_preproc_else_in_statements] = STATE(8100),
+    [sym_preproc_elif_in_statements] = STATE(8100),
+    [sym_preproc_elifdef_in_statements] = STATE(8100),
+    [sym_preproc_else_in_procedure_statements] = STATE(8376),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8376),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8376),
+    [sym_interface] = STATE(108),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5588),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(108),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(108),
+    [sym_public_statement] = STATE(108),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(108),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(108),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(108),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(108),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(215),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(816),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -63622,16 +63481,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -63651,7 +63510,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(820),
+    [anon_sym_SEMI] = ACTIONS(818),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -63713,155 +63572,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [64] = {
-    [sym_preproc_include] = STATE(100),
-    [sym_preproc_def] = STATE(100),
-    [sym_preproc_function_def] = STATE(100),
-    [sym_preproc_call] = STATE(100),
-    [sym_preproc_else_in_specification_part] = STATE(8315),
-    [sym_preproc_elif_in_specification_part] = STATE(8315),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8315),
-    [sym_preproc_if_in_statements] = STATE(224),
-    [sym_preproc_ifdef_in_statements] = STATE(224),
-    [sym_preproc_else_in_statements] = STATE(8510),
-    [sym_preproc_elif_in_statements] = STATE(8510),
-    [sym_preproc_elifdef_in_statements] = STATE(8510),
-    [sym_preproc_else_in_procedure_statements] = STATE(8312),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8312),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8312),
-    [sym_interface] = STATE(100),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5574),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(100),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(100),
-    [sym_public_statement] = STATE(100),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(100),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(100),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(100),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(224),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(85),
+    [sym_preproc_def] = STATE(85),
+    [sym_preproc_function_def] = STATE(85),
+    [sym_preproc_call] = STATE(85),
+    [sym_preproc_else_in_specification_part] = STATE(8356),
+    [sym_preproc_elif_in_specification_part] = STATE(8356),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8356),
+    [sym_preproc_if_in_statements] = STATE(212),
+    [sym_preproc_ifdef_in_statements] = STATE(212),
+    [sym_preproc_else_in_statements] = STATE(7749),
+    [sym_preproc_elif_in_statements] = STATE(7749),
+    [sym_preproc_elifdef_in_statements] = STATE(7749),
+    [sym_preproc_else_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
+    [sym_interface] = STATE(85),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5647),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(85),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(85),
+    [sym_public_statement] = STATE(85),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(85),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(85),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(85),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(212),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -63873,16 +63732,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -63964,155 +63823,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [65] = {
-    [sym_preproc_include] = STATE(90),
-    [sym_preproc_def] = STATE(90),
-    [sym_preproc_function_def] = STATE(90),
-    [sym_preproc_call] = STATE(90),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(223),
-    [sym_preproc_ifdef_in_statements] = STATE(223),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_preproc_else_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8492),
-    [sym_interface] = STATE(90),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5629),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(90),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(90),
-    [sym_public_statement] = STATE(90),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(90),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(90),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(90),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(223),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(94),
+    [sym_preproc_def] = STATE(94),
+    [sym_preproc_function_def] = STATE(94),
+    [sym_preproc_call] = STATE(94),
+    [sym_preproc_else_in_specification_part] = STATE(7772),
+    [sym_preproc_elif_in_specification_part] = STATE(7772),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7772),
+    [sym_preproc_if_in_statements] = STATE(221),
+    [sym_preproc_ifdef_in_statements] = STATE(221),
+    [sym_preproc_else_in_statements] = STATE(8194),
+    [sym_preproc_elif_in_statements] = STATE(8194),
+    [sym_preproc_elifdef_in_statements] = STATE(8194),
+    [sym_preproc_else_in_procedure_statements] = STATE(8228),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8228),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8228),
+    [sym_interface] = STATE(94),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5625),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(94),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(94),
+    [sym_public_statement] = STATE(94),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(94),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(94),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(94),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(94),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(221),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -64124,16 +63983,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -64153,7 +64012,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(824),
+    [anon_sym_SEMI] = ACTIONS(826),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -64215,155 +64074,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [66] = {
-    [sym_preproc_include] = STATE(87),
-    [sym_preproc_def] = STATE(87),
-    [sym_preproc_function_def] = STATE(87),
-    [sym_preproc_call] = STATE(87),
-    [sym_preproc_else_in_specification_part] = STATE(8263),
-    [sym_preproc_elif_in_specification_part] = STATE(8263),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
-    [sym_preproc_if_in_statements] = STATE(222),
-    [sym_preproc_ifdef_in_statements] = STATE(222),
-    [sym_preproc_else_in_statements] = STATE(8264),
-    [sym_preproc_elif_in_statements] = STATE(8264),
-    [sym_preproc_elifdef_in_statements] = STATE(8264),
-    [sym_preproc_else_in_procedure_statements] = STATE(8441),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8441),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8441),
-    [sym_interface] = STATE(87),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5628),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(87),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(87),
-    [sym_public_statement] = STATE(87),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(87),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(87),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(87),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(87),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(222),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(101),
+    [sym_preproc_def] = STATE(101),
+    [sym_preproc_function_def] = STATE(101),
+    [sym_preproc_call] = STATE(101),
+    [sym_preproc_else_in_specification_part] = STATE(7843),
+    [sym_preproc_elif_in_specification_part] = STATE(7843),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7843),
+    [sym_preproc_if_in_statements] = STATE(214),
+    [sym_preproc_ifdef_in_statements] = STATE(214),
+    [sym_preproc_else_in_statements] = STATE(7713),
+    [sym_preproc_elif_in_statements] = STATE(7713),
+    [sym_preproc_elifdef_in_statements] = STATE(7713),
+    [sym_preproc_else_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8191),
+    [sym_interface] = STATE(101),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5613),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(101),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(101),
+    [sym_public_statement] = STATE(101),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(101),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(101),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(101),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(101),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(214),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(263),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(828),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -64375,16 +64234,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -64404,7 +64263,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(826),
+    [anon_sym_SEMI] = ACTIONS(830),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -64466,155 +64325,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [67] = {
-    [sym_preproc_include] = STATE(89),
-    [sym_preproc_def] = STATE(89),
-    [sym_preproc_function_def] = STATE(89),
-    [sym_preproc_call] = STATE(89),
-    [sym_preproc_else_in_specification_part] = STATE(8395),
-    [sym_preproc_elif_in_specification_part] = STATE(8395),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8395),
-    [sym_preproc_if_in_statements] = STATE(210),
-    [sym_preproc_ifdef_in_statements] = STATE(210),
-    [sym_preproc_else_in_statements] = STATE(8555),
-    [sym_preproc_elif_in_statements] = STATE(8555),
-    [sym_preproc_elifdef_in_statements] = STATE(8555),
-    [sym_preproc_else_in_procedure_statements] = STATE(8499),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
-    [sym_interface] = STATE(89),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5646),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(89),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(89),
-    [sym_public_statement] = STATE(89),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(89),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(89),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(89),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(89),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(210),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(119),
+    [sym_preproc_def] = STATE(119),
+    [sym_preproc_function_def] = STATE(119),
+    [sym_preproc_call] = STATE(119),
+    [sym_preproc_else_in_specification_part] = STATE(8614),
+    [sym_preproc_elif_in_specification_part] = STATE(8614),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8614),
+    [sym_preproc_if_in_statements] = STATE(220),
+    [sym_preproc_ifdef_in_statements] = STATE(220),
+    [sym_preproc_else_in_statements] = STATE(8116),
+    [sym_preproc_elif_in_statements] = STATE(8116),
+    [sym_preproc_elifdef_in_statements] = STATE(8116),
+    [sym_preproc_else_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8317),
+    [sym_interface] = STATE(119),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5575),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(119),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(119),
+    [sym_public_statement] = STATE(119),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(119),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(119),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(119),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(119),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(220),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(832),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -64626,16 +64485,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -64655,7 +64514,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(830),
+    [anon_sym_SEMI] = ACTIONS(834),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -64717,155 +64576,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [68] = {
-    [sym_preproc_include] = STATE(112),
-    [sym_preproc_def] = STATE(112),
-    [sym_preproc_function_def] = STATE(112),
-    [sym_preproc_call] = STATE(112),
-    [sym_preproc_else_in_specification_part] = STATE(7722),
-    [sym_preproc_elif_in_specification_part] = STATE(7722),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7722),
-    [sym_preproc_if_in_statements] = STATE(211),
-    [sym_preproc_ifdef_in_statements] = STATE(211),
-    [sym_preproc_else_in_statements] = STATE(7742),
-    [sym_preproc_elif_in_statements] = STATE(7742),
-    [sym_preproc_elifdef_in_statements] = STATE(7742),
-    [sym_preproc_else_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8287),
-    [sym_interface] = STATE(112),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
+    [sym_preproc_include] = STATE(115),
+    [sym_preproc_def] = STATE(115),
+    [sym_preproc_function_def] = STATE(115),
+    [sym_preproc_call] = STATE(115),
+    [sym_preproc_else_in_specification_part] = STATE(8548),
+    [sym_preproc_elif_in_specification_part] = STATE(8548),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8548),
+    [sym_preproc_if_in_statements] = STATE(216),
+    [sym_preproc_ifdef_in_statements] = STATE(216),
+    [sym_preproc_else_in_statements] = STATE(8103),
+    [sym_preproc_elif_in_statements] = STATE(8103),
+    [sym_preproc_elifdef_in_statements] = STATE(8103),
+    [sym_preproc_else_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8243),
+    [sym_interface] = STATE(115),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
     [sym_internal_procedures] = STATE(5587),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(112),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(112),
-    [sym_public_statement] = STATE(112),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(112),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(112),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(211),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(115),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(115),
+    [sym_public_statement] = STATE(115),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(115),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(115),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(115),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(115),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(216),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(832),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(836),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -64877,16 +64736,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -64906,7 +64765,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(834),
+    [anon_sym_SEMI] = ACTIONS(838),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -64968,155 +64827,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [69] = {
-    [sym_preproc_include] = STATE(113),
-    [sym_preproc_def] = STATE(113),
-    [sym_preproc_function_def] = STATE(113),
-    [sym_preproc_call] = STATE(113),
-    [sym_preproc_else_in_specification_part] = STATE(7864),
-    [sym_preproc_elif_in_specification_part] = STATE(7864),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
-    [sym_preproc_if_in_statements] = STATE(212),
-    [sym_preproc_ifdef_in_statements] = STATE(212),
-    [sym_preproc_else_in_statements] = STATE(7749),
-    [sym_preproc_elif_in_statements] = STATE(7749),
-    [sym_preproc_elifdef_in_statements] = STATE(7749),
-    [sym_preproc_else_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7860),
-    [sym_interface] = STATE(113),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5615),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(113),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(113),
-    [sym_public_statement] = STATE(113),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(113),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(113),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(113),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(212),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(107),
+    [sym_preproc_def] = STATE(107),
+    [sym_preproc_function_def] = STATE(107),
+    [sym_preproc_call] = STATE(107),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(217),
+    [sym_preproc_ifdef_in_statements] = STATE(217),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_preproc_else_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8535),
+    [sym_interface] = STATE(107),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5598),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(107),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(107),
+    [sym_public_statement] = STATE(107),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(107),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(107),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(107),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(107),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(217),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(836),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -65128,16 +64987,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -65157,7 +65016,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(838),
+    [anon_sym_SEMI] = ACTIONS(840),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -65219,155 +65078,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [70] = {
-    [sym_preproc_include] = STATE(91),
-    [sym_preproc_def] = STATE(91),
-    [sym_preproc_function_def] = STATE(91),
-    [sym_preproc_call] = STATE(91),
-    [sym_preproc_else_in_specification_part] = STATE(8418),
-    [sym_preproc_elif_in_specification_part] = STATE(8418),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8418),
-    [sym_preproc_if_in_statements] = STATE(214),
-    [sym_preproc_ifdef_in_statements] = STATE(214),
-    [sym_preproc_else_in_statements] = STATE(8556),
-    [sym_preproc_elif_in_statements] = STATE(8556),
-    [sym_preproc_elifdef_in_statements] = STATE(8556),
-    [sym_preproc_else_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8372),
-    [sym_interface] = STATE(91),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5580),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(91),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(91),
-    [sym_public_statement] = STATE(91),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(91),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(91),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(91),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(91),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(214),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(102),
+    [sym_preproc_def] = STATE(102),
+    [sym_preproc_function_def] = STATE(102),
+    [sym_preproc_call] = STATE(102),
+    [sym_preproc_else_in_specification_part] = STATE(7864),
+    [sym_preproc_elif_in_specification_part] = STATE(7864),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
+    [sym_preproc_if_in_statements] = STATE(218),
+    [sym_preproc_ifdef_in_statements] = STATE(218),
+    [sym_preproc_else_in_statements] = STATE(7870),
+    [sym_preproc_elif_in_statements] = STATE(7870),
+    [sym_preproc_elifdef_in_statements] = STATE(7870),
+    [sym_preproc_else_in_procedure_statements] = STATE(8534),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8534),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8534),
+    [sym_interface] = STATE(102),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5589),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(102),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(102),
+    [sym_public_statement] = STATE(102),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(102),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(102),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(102),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(218),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(840),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(289),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -65379,16 +65238,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -65470,155 +65329,155 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [71] = {
-    [sym_preproc_include] = STATE(111),
-    [sym_preproc_def] = STATE(111),
-    [sym_preproc_function_def] = STATE(111),
-    [sym_preproc_call] = STATE(111),
-    [sym_preproc_else_in_specification_part] = STATE(8624),
-    [sym_preproc_elif_in_specification_part] = STATE(8624),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8624),
-    [sym_preproc_if_in_statements] = STATE(209),
-    [sym_preproc_ifdef_in_statements] = STATE(209),
+    [sym_preproc_include] = STATE(109),
+    [sym_preproc_def] = STATE(109),
+    [sym_preproc_function_def] = STATE(109),
+    [sym_preproc_call] = STATE(109),
+    [sym_preproc_else_in_specification_part] = STATE(8371),
+    [sym_preproc_elif_in_specification_part] = STATE(8371),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8371),
+    [sym_preproc_if_in_statements] = STATE(223),
+    [sym_preproc_ifdef_in_statements] = STATE(223),
     [sym_preproc_else_in_statements] = STATE(7741),
     [sym_preproc_elif_in_statements] = STATE(7741),
     [sym_preproc_elifdef_in_statements] = STATE(7741),
-    [sym_preproc_else_in_procedure_statements] = STATE(8253),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8253),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8253),
-    [sym_interface] = STATE(111),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5585),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(111),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(111),
-    [sym_public_statement] = STATE(111),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(111),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(111),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(209),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_else_in_procedure_statements] = STATE(8569),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8569),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8569),
+    [sym_interface] = STATE(109),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5633),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(109),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(109),
+    [sym_public_statement] = STATE(109),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(109),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(109),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(109),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(109),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(223),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(844),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -65630,16 +65489,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -65721,153 +65580,153 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [72] = {
-    [sym_preproc_include] = STATE(93),
-    [sym_preproc_def] = STATE(93),
-    [sym_preproc_function_def] = STATE(93),
-    [sym_preproc_call] = STATE(93),
-    [sym_preproc_else_in_specification_part] = STATE(8260),
-    [sym_preproc_elif_in_specification_part] = STATE(8260),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8260),
+    [sym_preproc_include] = STATE(111),
+    [sym_preproc_def] = STATE(111),
+    [sym_preproc_function_def] = STATE(111),
+    [sym_preproc_call] = STATE(111),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
     [sym_preproc_if_in_statements] = STATE(277),
     [sym_preproc_ifdef_in_statements] = STATE(277),
-    [sym_preproc_else_in_statements] = STATE(8261),
-    [sym_preproc_elif_in_statements] = STATE(8261),
-    [sym_preproc_elifdef_in_statements] = STATE(8261),
-    [sym_interface] = STATE(93),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5714),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(93),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(93),
-    [sym_public_statement] = STATE(93),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(93),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(93),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(93),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(93),
+    [sym_preproc_else_in_statements] = STATE(8320),
+    [sym_preproc_elif_in_statements] = STATE(8320),
+    [sym_preproc_elifdef_in_statements] = STATE(8320),
+    [sym_interface] = STATE(111),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5724),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(111),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(111),
+    [sym_public_statement] = STATE(111),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(111),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(111),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(277),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(205),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(848),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(854),
+    [sym_preproc_comment] = ACTIONS(856),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -65879,16 +65738,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -65908,7 +65767,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(856),
+    [anon_sym_SEMI] = ACTIONS(858),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -65970,153 +65829,153 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [73] = {
-    [sym_preproc_include] = STATE(85),
-    [sym_preproc_def] = STATE(85),
-    [sym_preproc_function_def] = STATE(85),
-    [sym_preproc_call] = STATE(85),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
-    [sym_preproc_if_in_statements] = STATE(251),
-    [sym_preproc_ifdef_in_statements] = STATE(251),
-    [sym_preproc_else_in_statements] = STATE(8667),
-    [sym_preproc_elif_in_statements] = STATE(8667),
-    [sym_preproc_elifdef_in_statements] = STATE(8667),
-    [sym_interface] = STATE(85),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5699),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(85),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(85),
-    [sym_public_statement] = STATE(85),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(85),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(85),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(85),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(251),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(112),
+    [sym_preproc_def] = STATE(112),
+    [sym_preproc_function_def] = STATE(112),
+    [sym_preproc_call] = STATE(112),
+    [sym_preproc_else_in_specification_part] = STATE(8156),
+    [sym_preproc_elif_in_specification_part] = STATE(8156),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8156),
+    [sym_preproc_if_in_statements] = STATE(262),
+    [sym_preproc_ifdef_in_statements] = STATE(262),
+    [sym_preproc_else_in_statements] = STATE(8155),
+    [sym_preproc_elif_in_statements] = STATE(8155),
+    [sym_preproc_elifdef_in_statements] = STATE(8155),
+    [sym_interface] = STATE(112),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5687),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(112),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(112),
+    [sym_public_statement] = STATE(112),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(112),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(112),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(262),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(858),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [sym_preproc_comment] = ACTIONS(860),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -66128,16 +65987,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -66223,148 +66082,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_def] = STATE(86),
     [sym_preproc_function_def] = STATE(86),
     [sym_preproc_call] = STATE(86),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(265),
-    [sym_preproc_ifdef_in_statements] = STATE(265),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(272),
+    [sym_preproc_ifdef_in_statements] = STATE(272),
+    [sym_preproc_else_in_statements] = STATE(8618),
+    [sym_preproc_elif_in_statements] = STATE(8618),
+    [sym_preproc_elifdef_in_statements] = STATE(8618),
     [sym_interface] = STATE(86),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5716),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5697),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(86),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
     [sym_private_statement] = STATE(86),
     [sym_public_statement] = STATE(86),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
     [sym_derived_type_definition] = STATE(86),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
     [sym_enum] = STATE(86),
-    [sym_enum_statement] = STATE(6047),
+    [sym_enum_statement] = STATE(6065),
     [sym_enumeration_type] = STATE(86),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(265),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(272),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(864),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -66376,16 +66235,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -66467,152 +66326,152 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [75] = {
-    [sym_preproc_include] = STATE(100),
-    [sym_preproc_def] = STATE(100),
-    [sym_preproc_function_def] = STATE(100),
-    [sym_preproc_call] = STATE(100),
-    [sym_preproc_else_in_specification_part] = STATE(8315),
-    [sym_preproc_elif_in_specification_part] = STATE(8315),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8315),
-    [sym_preproc_if_in_statements] = STATE(262),
-    [sym_preproc_ifdef_in_statements] = STATE(262),
-    [sym_preproc_else_in_statements] = STATE(8510),
-    [sym_preproc_elif_in_statements] = STATE(8510),
-    [sym_preproc_elifdef_in_statements] = STATE(8510),
-    [sym_interface] = STATE(100),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5721),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(100),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(100),
-    [sym_public_statement] = STATE(100),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(100),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(100),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(100),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(262),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(102),
+    [sym_preproc_def] = STATE(102),
+    [sym_preproc_function_def] = STATE(102),
+    [sym_preproc_call] = STATE(102),
+    [sym_preproc_else_in_specification_part] = STATE(7864),
+    [sym_preproc_elif_in_specification_part] = STATE(7864),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
+    [sym_preproc_if_in_statements] = STATE(267),
+    [sym_preproc_ifdef_in_statements] = STATE(267),
+    [sym_preproc_else_in_statements] = STATE(7870),
+    [sym_preproc_elif_in_statements] = STATE(7870),
+    [sym_preproc_elifdef_in_statements] = STATE(7870),
+    [sym_interface] = STATE(102),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5699),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(102),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(102),
+    [sym_public_statement] = STATE(102),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(102),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(102),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(102),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(267),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(289),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -66624,16 +66483,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -66715,152 +66574,152 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [76] = {
-    [sym_preproc_include] = STATE(99),
-    [sym_preproc_def] = STATE(99),
-    [sym_preproc_function_def] = STATE(99),
-    [sym_preproc_call] = STATE(99),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(245),
-    [sym_preproc_ifdef_in_statements] = STATE(245),
-    [sym_preproc_else_in_statements] = STATE(8026),
-    [sym_preproc_elif_in_statements] = STATE(8026),
-    [sym_preproc_elifdef_in_statements] = STATE(8026),
-    [sym_interface] = STATE(99),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5729),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(99),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(99),
-    [sym_public_statement] = STATE(99),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(99),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(99),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(99),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(245),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(107),
+    [sym_preproc_def] = STATE(107),
+    [sym_preproc_function_def] = STATE(107),
+    [sym_preproc_call] = STATE(107),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(257),
+    [sym_preproc_ifdef_in_statements] = STATE(257),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_interface] = STATE(107),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5702),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(107),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(107),
+    [sym_public_statement] = STATE(107),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(107),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(107),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(107),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(107),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(257),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(870),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -66872,16 +66731,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -66901,7 +66760,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(872),
+    [anon_sym_SEMI] = ACTIONS(870),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -66963,152 +66822,152 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [77] = {
-    [sym_preproc_include] = STATE(87),
-    [sym_preproc_def] = STATE(87),
-    [sym_preproc_function_def] = STATE(87),
-    [sym_preproc_call] = STATE(87),
-    [sym_preproc_else_in_specification_part] = STATE(8263),
-    [sym_preproc_elif_in_specification_part] = STATE(8263),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
-    [sym_preproc_if_in_statements] = STATE(276),
-    [sym_preproc_ifdef_in_statements] = STATE(276),
-    [sym_preproc_else_in_statements] = STATE(8264),
-    [sym_preproc_elif_in_statements] = STATE(8264),
-    [sym_preproc_elifdef_in_statements] = STATE(8264),
-    [sym_interface] = STATE(87),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5735),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(87),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(87),
-    [sym_public_statement] = STATE(87),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(87),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(87),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(87),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(87),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(276),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(99),
+    [sym_preproc_def] = STATE(99),
+    [sym_preproc_function_def] = STATE(99),
+    [sym_preproc_call] = STATE(99),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(263),
+    [sym_preproc_ifdef_in_statements] = STATE(263),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_interface] = STATE(99),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5682),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(99),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(99),
+    [sym_public_statement] = STATE(99),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(99),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(99),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(99),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(263),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(263),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(872),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -67120,16 +66979,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -67211,152 +67070,152 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [78] = {
-    [sym_preproc_include] = STATE(92),
-    [sym_preproc_def] = STATE(92),
-    [sym_preproc_function_def] = STATE(92),
-    [sym_preproc_call] = STATE(92),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(273),
-    [sym_preproc_ifdef_in_statements] = STATE(273),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_interface] = STATE(92),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5731),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(92),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(92),
-    [sym_public_statement] = STATE(92),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(92),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(92),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(92),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(273),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(116),
+    [sym_preproc_def] = STATE(116),
+    [sym_preproc_function_def] = STATE(116),
+    [sym_preproc_call] = STATE(116),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(271),
+    [sym_preproc_ifdef_in_statements] = STATE(271),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_interface] = STATE(116),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5711),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(116),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(116),
+    [sym_public_statement] = STATE(116),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(116),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(116),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(116),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(271),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(876),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -67368,16 +67227,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -67459,152 +67318,152 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [79] = {
-    [sym_preproc_include] = STATE(90),
-    [sym_preproc_def] = STATE(90),
-    [sym_preproc_function_def] = STATE(90),
-    [sym_preproc_call] = STATE(90),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(249),
-    [sym_preproc_ifdef_in_statements] = STATE(249),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_interface] = STATE(90),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5684),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(90),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(90),
-    [sym_public_statement] = STATE(90),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(90),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(90),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(90),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(249),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(104),
+    [sym_preproc_def] = STATE(104),
+    [sym_preproc_function_def] = STATE(104),
+    [sym_preproc_call] = STATE(104),
+    [sym_preproc_else_in_specification_part] = STATE(8263),
+    [sym_preproc_elif_in_specification_part] = STATE(8263),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
+    [sym_preproc_if_in_statements] = STATE(255),
+    [sym_preproc_ifdef_in_statements] = STATE(255),
+    [sym_preproc_else_in_statements] = STATE(8264),
+    [sym_preproc_elif_in_statements] = STATE(8264),
+    [sym_preproc_elifdef_in_statements] = STATE(8264),
+    [sym_interface] = STATE(104),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5719),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(104),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(104),
+    [sym_public_statement] = STATE(104),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(104),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(104),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(104),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(104),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(255),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(271),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -67616,16 +67475,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -67707,150 +67566,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [80] = {
-    [sym_preproc_include] = STATE(93),
-    [sym_preproc_def] = STATE(93),
-    [sym_preproc_function_def] = STATE(93),
-    [sym_preproc_call] = STATE(93),
-    [sym_preproc_else_in_specification_part] = STATE(8260),
-    [sym_preproc_elif_in_specification_part] = STATE(8260),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8260),
-    [sym_preproc_if_in_statements] = STATE(315),
-    [sym_preproc_ifdef_in_statements] = STATE(315),
-    [sym_interface] = STATE(93),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5918),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(93),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(93),
-    [sym_public_statement] = STATE(93),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(93),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(93),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(93),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(93),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(315),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(114),
+    [sym_preproc_def] = STATE(114),
+    [sym_preproc_function_def] = STATE(114),
+    [sym_preproc_call] = STATE(114),
+    [sym_preproc_else_in_specification_part] = STATE(8382),
+    [sym_preproc_elif_in_specification_part] = STATE(8382),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8382),
+    [sym_preproc_if_in_statements] = STATE(471),
+    [sym_preproc_ifdef_in_statements] = STATE(471),
+    [sym_interface] = STATE(114),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5982),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(114),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(114),
+    [sym_public_statement] = STATE(114),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(114),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(114),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(114),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(114),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(471),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(205),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(882),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(888),
+    [sym_preproc_comment] = ACTIONS(890),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -67862,16 +67721,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -67891,7 +67750,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(890),
+    [anon_sym_SEMI] = ACTIONS(892),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -67953,150 +67812,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [81] = {
-    [sym_preproc_include] = STATE(88),
-    [sym_preproc_def] = STATE(88),
-    [sym_preproc_function_def] = STATE(88),
-    [sym_preproc_call] = STATE(88),
-    [sym_preproc_else_in_specification_part] = STATE(8060),
-    [sym_preproc_elif_in_specification_part] = STATE(8060),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8060),
-    [sym_preproc_if_in_statements] = STATE(435),
-    [sym_preproc_ifdef_in_statements] = STATE(435),
-    [sym_interface] = STATE(88),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5908),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(88),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(88),
-    [sym_public_statement] = STATE(88),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(88),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(88),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(88),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(88),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(435),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(112),
+    [sym_preproc_def] = STATE(112),
+    [sym_preproc_function_def] = STATE(112),
+    [sym_preproc_call] = STATE(112),
+    [sym_preproc_else_in_specification_part] = STATE(8156),
+    [sym_preproc_elif_in_specification_part] = STATE(8156),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8156),
+    [sym_preproc_if_in_statements] = STATE(310),
+    [sym_preproc_ifdef_in_statements] = STATE(310),
+    [sym_interface] = STATE(112),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5927),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(112),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(112),
+    [sym_public_statement] = STATE(112),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(112),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(112),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(310),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(892),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [sym_preproc_comment] = ACTIONS(894),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -68108,16 +67967,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -68199,150 +68058,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [82] = {
-    [sym_preproc_include] = STATE(119),
-    [sym_preproc_def] = STATE(119),
-    [sym_preproc_function_def] = STATE(119),
-    [sym_preproc_call] = STATE(119),
-    [sym_preproc_else_in_specification_part] = STATE(8501),
-    [sym_preproc_elif_in_specification_part] = STATE(8501),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8501),
-    [sym_preproc_if_in_statements] = STATE(304),
-    [sym_preproc_ifdef_in_statements] = STATE(304),
-    [sym_interface] = STATE(119),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5959),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(119),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(119),
-    [sym_public_statement] = STATE(119),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(119),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(119),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(119),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(119),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(304),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(111),
+    [sym_preproc_def] = STATE(111),
+    [sym_preproc_function_def] = STATE(111),
+    [sym_preproc_call] = STATE(111),
+    [sym_preproc_else_in_specification_part] = STATE(8350),
+    [sym_preproc_elif_in_specification_part] = STATE(8350),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8350),
+    [sym_preproc_if_in_statements] = STATE(307),
+    [sym_preproc_ifdef_in_statements] = STATE(307),
+    [sym_interface] = STATE(111),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5922),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(111),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(111),
+    [sym_public_statement] = STATE(111),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(111),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(111),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(307),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(898),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [sym_preproc_comment] = ACTIONS(900),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -68354,16 +68213,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -68445,150 +68304,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [83] = {
-    [sym_preproc_include] = STATE(85),
-    [sym_preproc_def] = STATE(85),
-    [sym_preproc_function_def] = STATE(85),
-    [sym_preproc_call] = STATE(85),
-    [sym_preproc_else_in_specification_part] = STATE(8659),
-    [sym_preproc_elif_in_specification_part] = STATE(8659),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8659),
+    [sym_preproc_include] = STATE(90),
+    [sym_preproc_def] = STATE(90),
+    [sym_preproc_function_def] = STATE(90),
+    [sym_preproc_call] = STATE(90),
+    [sym_preproc_else_in_specification_part] = STATE(7781),
+    [sym_preproc_elif_in_specification_part] = STATE(7781),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7781),
     [sym_preproc_if_in_statements] = STATE(306),
     [sym_preproc_ifdef_in_statements] = STATE(306),
-    [sym_interface] = STATE(85),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5825),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(85),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(85),
-    [sym_public_statement] = STATE(85),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(85),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(85),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(85),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
+    [sym_interface] = STATE(90),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5819),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(90),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(90),
+    [sym_public_statement] = STATE(90),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(90),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(90),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(90),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(306),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(904),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [sym_preproc_comment] = ACTIONS(906),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -68600,16 +68459,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -68691,150 +68550,150 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [84] = {
-    [sym_preproc_include] = STATE(110),
-    [sym_preproc_def] = STATE(110),
-    [sym_preproc_function_def] = STATE(110),
-    [sym_preproc_call] = STATE(110),
-    [sym_preproc_else_in_specification_part] = STATE(8375),
-    [sym_preproc_elif_in_specification_part] = STATE(8375),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8375),
-    [sym_preproc_if_in_statements] = STATE(308),
-    [sym_preproc_ifdef_in_statements] = STATE(308),
-    [sym_interface] = STATE(110),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5834),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(110),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(110),
-    [sym_public_statement] = STATE(110),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(110),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(110),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(110),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(110),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(308),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(100),
+    [sym_preproc_def] = STATE(100),
+    [sym_preproc_function_def] = STATE(100),
+    [sym_preproc_call] = STATE(100),
+    [sym_preproc_else_in_specification_part] = STATE(8476),
+    [sym_preproc_elif_in_specification_part] = STATE(8476),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8476),
+    [sym_preproc_if_in_statements] = STATE(419),
+    [sym_preproc_ifdef_in_statements] = STATE(419),
+    [sym_interface] = STATE(100),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5796),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(100),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(100),
+    [sym_public_statement] = STATE(100),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(100),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(100),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(100),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(419),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(910),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [sym_preproc_comment] = ACTIONS(912),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -68846,16 +68705,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -68937,149 +68796,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [85] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(335),
-    [sym_preproc_ifdef_in_statements] = STATE(335),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5817),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(335),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8307),
+    [sym_preproc_elif_in_specification_part] = STATE(8307),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8307),
+    [sym_preproc_if_in_statements] = STATE(316),
+    [sym_preproc_ifdef_in_statements] = STATE(316),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5906),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(316),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(916),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -69091,16 +68950,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -69182,149 +69041,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [86] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(307),
-    [sym_preproc_ifdef_in_statements] = STATE(307),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5842),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(307),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(304),
+    [sym_preproc_ifdef_in_statements] = STATE(304),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5988),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(304),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(920),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -69336,16 +69195,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -69427,149 +69286,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [87] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8398),
-    [sym_preproc_elif_in_specification_part] = STATE(8398),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8398),
-    [sym_preproc_if_in_statements] = STATE(333),
-    [sym_preproc_ifdef_in_statements] = STATE(333),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5803),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(333),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(115),
+    [sym_preproc_def] = STATE(115),
+    [sym_preproc_function_def] = STATE(115),
+    [sym_preproc_call] = STATE(115),
+    [sym_preproc_else_in_specification_part] = STATE(8548),
+    [sym_preproc_elif_in_specification_part] = STATE(8548),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8548),
+    [sym_preproc_if_in_statements] = STATE(395),
+    [sym_preproc_ifdef_in_statements] = STATE(395),
+    [sym_interface] = STATE(115),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5805),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(115),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(115),
+    [sym_public_statement] = STATE(115),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(115),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(115),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(115),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(115),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(395),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -69581,16 +69440,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -69672,149 +69531,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [88] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8418),
-    [sym_preproc_elif_in_specification_part] = STATE(8418),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8418),
-    [sym_preproc_if_in_statements] = STATE(316),
-    [sym_preproc_ifdef_in_statements] = STATE(316),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5966),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(316),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(86),
+    [sym_preproc_def] = STATE(86),
+    [sym_preproc_function_def] = STATE(86),
+    [sym_preproc_call] = STATE(86),
+    [sym_preproc_else_in_specification_part] = STATE(8475),
+    [sym_preproc_elif_in_specification_part] = STATE(8475),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8475),
+    [sym_preproc_if_in_statements] = STATE(393),
+    [sym_preproc_ifdef_in_statements] = STATE(393),
+    [sym_interface] = STATE(86),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5865),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(86),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(86),
+    [sym_public_statement] = STATE(86),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(86),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(86),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(86),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(393),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(928),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -69826,16 +69685,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -69917,149 +69776,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [89] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8654),
-    [sym_preproc_elif_in_specification_part] = STATE(8654),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8654),
-    [sym_preproc_if_in_statements] = STATE(320),
-    [sym_preproc_ifdef_in_statements] = STATE(320),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5981),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(320),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(116),
+    [sym_preproc_def] = STATE(116),
+    [sym_preproc_function_def] = STATE(116),
+    [sym_preproc_call] = STATE(116),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(365),
+    [sym_preproc_ifdef_in_statements] = STATE(365),
+    [sym_interface] = STATE(116),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5879),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(116),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(116),
+    [sym_public_statement] = STATE(116),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(116),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(116),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(116),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(116),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(365),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -70071,16 +69930,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -70162,149 +70021,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [90] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7747),
-    [sym_preproc_elif_in_specification_part] = STATE(7747),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7747),
-    [sym_preproc_if_in_statements] = STATE(334),
-    [sym_preproc_ifdef_in_statements] = STATE(334),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5912),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(334),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(7843),
+    [sym_preproc_elif_in_specification_part] = STATE(7843),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7843),
+    [sym_preproc_if_in_statements] = STATE(429),
+    [sym_preproc_ifdef_in_statements] = STATE(429),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5978),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(429),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -70316,16 +70175,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -70407,149 +70266,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [91] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7710),
-    [sym_preproc_elif_in_specification_part] = STATE(7710),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7710),
-    [sym_preproc_if_in_statements] = STATE(321),
-    [sym_preproc_ifdef_in_statements] = STATE(321),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5984),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(321),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(96),
+    [sym_preproc_def] = STATE(96),
+    [sym_preproc_function_def] = STATE(96),
+    [sym_preproc_call] = STATE(96),
+    [sym_preproc_else_in_specification_part] = STATE(8368),
+    [sym_preproc_elif_in_specification_part] = STATE(8368),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8368),
+    [sym_preproc_if_in_statements] = STATE(335),
+    [sym_preproc_ifdef_in_statements] = STATE(335),
+    [sym_interface] = STATE(96),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5876),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(96),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(96),
+    [sym_public_statement] = STATE(96),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(96),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(96),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(96),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(96),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(335),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(940),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -70561,16 +70420,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -70652,149 +70511,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [92] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(332),
-    [sym_preproc_ifdef_in_statements] = STATE(332),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5861),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(332),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(108),
+    [sym_preproc_def] = STATE(108),
+    [sym_preproc_function_def] = STATE(108),
+    [sym_preproc_call] = STATE(108),
+    [sym_preproc_else_in_specification_part] = STATE(8524),
+    [sym_preproc_elif_in_specification_part] = STATE(8524),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8524),
+    [sym_preproc_if_in_statements] = STATE(430),
+    [sym_preproc_ifdef_in_statements] = STATE(430),
+    [sym_interface] = STATE(108),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5841),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(108),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(108),
+    [sym_public_statement] = STATE(108),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(108),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(108),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(108),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(108),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(430),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(944),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -70806,16 +70665,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -70897,149 +70756,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [93] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(311),
-    [sym_preproc_ifdef_in_statements] = STATE(311),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5885),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(311),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(102),
+    [sym_preproc_def] = STATE(102),
+    [sym_preproc_function_def] = STATE(102),
+    [sym_preproc_call] = STATE(102),
+    [sym_preproc_else_in_specification_part] = STATE(7864),
+    [sym_preproc_elif_in_specification_part] = STATE(7864),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
+    [sym_preproc_if_in_statements] = STATE(460),
+    [sym_preproc_ifdef_in_statements] = STATE(460),
+    [sym_interface] = STATE(102),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5846),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(102),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(102),
+    [sym_public_statement] = STATE(102),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(102),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(102),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(102),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(460),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(289),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -71051,16 +70910,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -71142,149 +71001,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [94] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7824),
-    [sym_preproc_elif_in_specification_part] = STATE(7824),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7824),
-    [sym_preproc_if_in_statements] = STATE(325),
-    [sym_preproc_ifdef_in_statements] = STATE(325),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5874),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(325),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8031),
+    [sym_preproc_elif_in_specification_part] = STATE(8031),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8031),
+    [sym_preproc_if_in_statements] = STATE(452),
+    [sym_preproc_ifdef_in_statements] = STATE(452),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5970),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(452),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(950),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -71296,16 +71155,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -71387,149 +71246,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [95] = {
-    [sym_preproc_include] = STATE(87),
-    [sym_preproc_def] = STATE(87),
-    [sym_preproc_function_def] = STATE(87),
-    [sym_preproc_call] = STATE(87),
-    [sym_preproc_else_in_specification_part] = STATE(8263),
-    [sym_preproc_elif_in_specification_part] = STATE(8263),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
-    [sym_preproc_if_in_statements] = STATE(336),
-    [sym_preproc_ifdef_in_statements] = STATE(336),
-    [sym_interface] = STATE(87),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5920),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(87),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(87),
-    [sym_public_statement] = STATE(87),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(87),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(87),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(87),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(87),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(336),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(109),
+    [sym_preproc_def] = STATE(109),
+    [sym_preproc_function_def] = STATE(109),
+    [sym_preproc_call] = STATE(109),
+    [sym_preproc_else_in_specification_part] = STATE(8371),
+    [sym_preproc_elif_in_specification_part] = STATE(8371),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8371),
+    [sym_preproc_if_in_statements] = STATE(457),
+    [sym_preproc_ifdef_in_statements] = STATE(457),
+    [sym_interface] = STATE(109),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5959),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(109),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(109),
+    [sym_public_statement] = STATE(109),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(109),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(109),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(109),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(109),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(457),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(263),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(954),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -71541,16 +71400,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -71570,7 +71429,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(954),
+    [anon_sym_SEMI] = ACTIONS(956),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -71632,149 +71491,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [96] = {
-    [sym_preproc_include] = STATE(90),
-    [sym_preproc_def] = STATE(90),
-    [sym_preproc_function_def] = STATE(90),
-    [sym_preproc_call] = STATE(90),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(311),
-    [sym_preproc_ifdef_in_statements] = STATE(311),
-    [sym_interface] = STATE(90),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5885),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(90),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(90),
-    [sym_public_statement] = STATE(90),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(90),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(90),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(90),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(90),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(311),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8341),
+    [sym_preproc_elif_in_specification_part] = STATE(8341),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8341),
+    [sym_preproc_if_in_statements] = STATE(326),
+    [sym_preproc_ifdef_in_statements] = STATE(326),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5891),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(326),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(958),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -71786,16 +71645,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -71815,7 +71674,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(948),
+    [anon_sym_SEMI] = ACTIONS(960),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -71877,394 +71736,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [97] = {
-    [sym_preproc_include] = STATE(89),
-    [sym_preproc_def] = STATE(89),
-    [sym_preproc_function_def] = STATE(89),
-    [sym_preproc_call] = STATE(89),
-    [sym_preproc_else_in_specification_part] = STATE(8395),
-    [sym_preproc_elif_in_specification_part] = STATE(8395),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8395),
-    [sym_preproc_if_in_statements] = STATE(464),
-    [sym_preproc_ifdef_in_statements] = STATE(464),
-    [sym_interface] = STATE(89),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5895),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(89),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(89),
-    [sym_public_statement] = STATE(89),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(89),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(89),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(89),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(89),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(464),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(748),
-    [aux_sym_preproc_def_token1] = ACTIONS(750),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(956),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(958),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [98] = {
-    [sym_preproc_include] = STATE(86),
-    [sym_preproc_def] = STATE(86),
-    [sym_preproc_function_def] = STATE(86),
-    [sym_preproc_call] = STATE(86),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(314),
-    [sym_preproc_ifdef_in_statements] = STATE(314),
-    [sym_interface] = STATE(86),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5919),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(86),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(86),
-    [sym_public_statement] = STATE(86),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(86),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(86),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(86),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(86),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(314),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(107),
+    [sym_preproc_def] = STATE(107),
+    [sym_preproc_function_def] = STATE(107),
+    [sym_preproc_call] = STATE(107),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(423),
+    [sym_preproc_ifdef_in_statements] = STATE(423),
+    [sym_interface] = STATE(107),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5976),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(107),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(107),
+    [sym_public_statement] = STATE(107),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(107),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(107),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(107),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(107),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(423),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(960),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -72276,16 +71890,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -72366,150 +71980,395 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
+  [98] = {
+    [sym_preproc_include] = STATE(85),
+    [sym_preproc_def] = STATE(85),
+    [sym_preproc_function_def] = STATE(85),
+    [sym_preproc_call] = STATE(85),
+    [sym_preproc_else_in_specification_part] = STATE(8356),
+    [sym_preproc_elif_in_specification_part] = STATE(8356),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8356),
+    [sym_preproc_if_in_statements] = STATE(328),
+    [sym_preproc_ifdef_in_statements] = STATE(328),
+    [sym_interface] = STATE(85),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5886),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(85),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(85),
+    [sym_public_statement] = STATE(85),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(85),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(85),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(85),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(85),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(328),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(748),
+    [aux_sym_preproc_def_token1] = ACTIONS(750),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(964),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(966),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
   [99] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(314),
-    [sym_preproc_ifdef_in_statements] = STATE(314),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5919),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(314),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(305),
+    [sym_preproc_ifdef_in_statements] = STATE(305),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5947),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(305),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(960),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(968),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -72521,16 +72380,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -72550,7 +72409,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(962),
+    [anon_sym_SEMI] = ACTIONS(970),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -72612,149 +72471,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [100] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8566),
-    [sym_preproc_elif_in_specification_part] = STATE(8566),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8566),
-    [sym_preproc_if_in_statements] = STATE(350),
-    [sym_preproc_ifdef_in_statements] = STATE(350),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5852),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(350),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8548),
+    [sym_preproc_elif_in_specification_part] = STATE(8548),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8548),
+    [sym_preproc_if_in_statements] = STATE(395),
+    [sym_preproc_ifdef_in_statements] = STATE(395),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5805),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(395),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(924),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -72766,16 +72625,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -72795,7 +72654,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(966),
+    [anon_sym_SEMI] = ACTIONS(926),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -72857,149 +72716,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [101] = {
-    [sym_preproc_include] = STATE(92),
-    [sym_preproc_def] = STATE(92),
-    [sym_preproc_function_def] = STATE(92),
-    [sym_preproc_call] = STATE(92),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(335),
-    [sym_preproc_ifdef_in_statements] = STATE(335),
-    [sym_interface] = STATE(92),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5817),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(92),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(92),
-    [sym_public_statement] = STATE(92),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(92),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(92),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(92),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(92),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(335),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8071),
+    [sym_preproc_elif_in_specification_part] = STATE(8071),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8071),
+    [sym_preproc_if_in_statements] = STATE(456),
+    [sym_preproc_ifdef_in_statements] = STATE(456),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5783),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(456),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(916),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(972),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -73011,16 +72870,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -73040,7 +72899,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(918),
+    [anon_sym_SEMI] = ACTIONS(974),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -73102,149 +72961,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [102] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8639),
-    [sym_preproc_elif_in_specification_part] = STATE(8639),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8639),
-    [sym_preproc_if_in_statements] = STATE(341),
-    [sym_preproc_ifdef_in_statements] = STATE(341),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5909),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(341),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8267),
+    [sym_preproc_elif_in_specification_part] = STATE(8267),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8267),
+    [sym_preproc_if_in_statements] = STATE(416),
+    [sym_preproc_ifdef_in_statements] = STATE(416),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5858),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(416),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(968),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(976),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -73256,16 +73115,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -73285,7 +73144,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(970),
+    [anon_sym_SEMI] = ACTIONS(978),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -73347,149 +73206,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [103] = {
-    [sym_preproc_include] = STATE(100),
-    [sym_preproc_def] = STATE(100),
-    [sym_preproc_function_def] = STATE(100),
-    [sym_preproc_call] = STATE(100),
-    [sym_preproc_else_in_specification_part] = STATE(8315),
-    [sym_preproc_elif_in_specification_part] = STATE(8315),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8315),
-    [sym_preproc_if_in_statements] = STATE(351),
-    [sym_preproc_ifdef_in_statements] = STATE(351),
-    [sym_interface] = STATE(100),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5862),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(100),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(100),
-    [sym_public_statement] = STATE(100),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(100),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(100),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(100),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(100),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(351),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(119),
+    [sym_preproc_def] = STATE(119),
+    [sym_preproc_function_def] = STATE(119),
+    [sym_preproc_call] = STATE(119),
+    [sym_preproc_else_in_specification_part] = STATE(8614),
+    [sym_preproc_elif_in_specification_part] = STATE(8614),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8614),
+    [sym_preproc_if_in_statements] = STATE(387),
+    [sym_preproc_ifdef_in_statements] = STATE(387),
+    [sym_interface] = STATE(119),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5791),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(119),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(119),
+    [sym_public_statement] = STATE(119),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(119),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(119),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(119),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(119),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(387),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(980),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -73501,16 +73360,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -73530,7 +73389,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(972),
+    [anon_sym_SEMI] = ACTIONS(982),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -73592,149 +73451,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [104] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8660),
-    [sym_preproc_elif_in_specification_part] = STATE(8660),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8660),
-    [sym_preproc_if_in_statements] = STATE(342),
-    [sym_preproc_ifdef_in_statements] = STATE(342),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5916),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(342),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8439),
+    [sym_preproc_elif_in_specification_part] = STATE(8439),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8439),
+    [sym_preproc_if_in_statements] = STATE(324),
+    [sym_preproc_ifdef_in_statements] = STATE(324),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5902),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(324),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(974),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -73746,16 +73605,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -73775,7 +73634,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(976),
+    [anon_sym_SEMI] = ACTIONS(986),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -73837,149 +73696,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [105] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7770),
-    [sym_preproc_elif_in_specification_part] = STATE(7770),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7770),
-    [sym_preproc_if_in_statements] = STATE(346),
-    [sym_preproc_ifdef_in_statements] = STATE(346),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5952),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(346),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(110),
+    [sym_preproc_def] = STATE(110),
+    [sym_preproc_function_def] = STATE(110),
+    [sym_preproc_call] = STATE(110),
+    [sym_preproc_else_in_specification_part] = STATE(8031),
+    [sym_preproc_elif_in_specification_part] = STATE(8031),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8031),
+    [sym_preproc_if_in_statements] = STATE(452),
+    [sym_preproc_ifdef_in_statements] = STATE(452),
+    [sym_interface] = STATE(110),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5970),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(110),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(110),
+    [sym_public_statement] = STATE(110),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(110),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(110),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(110),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(110),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(452),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(978),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(950),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -73991,16 +73850,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -74020,7 +73879,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(980),
+    [anon_sym_SEMI] = ACTIONS(952),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -74082,149 +73941,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [106] = {
-    [sym_preproc_include] = STATE(102),
-    [sym_preproc_def] = STATE(102),
-    [sym_preproc_function_def] = STATE(102),
-    [sym_preproc_call] = STATE(102),
-    [sym_preproc_else_in_specification_part] = STATE(8572),
-    [sym_preproc_elif_in_specification_part] = STATE(8572),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8572),
-    [sym_preproc_if_in_statements] = STATE(305),
-    [sym_preproc_ifdef_in_statements] = STATE(305),
-    [sym_interface] = STATE(102),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5827),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(102),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(102),
-    [sym_public_statement] = STATE(102),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(102),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(102),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(102),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(102),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(305),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(99),
+    [sym_preproc_def] = STATE(99),
+    [sym_preproc_function_def] = STATE(99),
+    [sym_preproc_call] = STATE(99),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(304),
+    [sym_preproc_ifdef_in_statements] = STATE(304),
+    [sym_interface] = STATE(99),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5988),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(99),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(99),
+    [sym_public_statement] = STATE(99),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(99),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(99),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(99),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(304),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(982),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(920),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -74236,16 +74095,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -74265,7 +74124,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(984),
+    [anon_sym_SEMI] = ACTIONS(922),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -74327,149 +74186,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [107] = {
-    [sym_preproc_include] = STATE(91),
-    [sym_preproc_def] = STATE(91),
-    [sym_preproc_function_def] = STATE(91),
-    [sym_preproc_call] = STATE(91),
-    [sym_preproc_else_in_specification_part] = STATE(8418),
-    [sym_preproc_elif_in_specification_part] = STATE(8418),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8418),
-    [sym_preproc_if_in_statements] = STATE(316),
-    [sym_preproc_ifdef_in_statements] = STATE(316),
-    [sym_interface] = STATE(91),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5966),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(91),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(91),
-    [sym_public_statement] = STATE(91),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(91),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(91),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(91),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(91),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(316),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8270),
+    [sym_preproc_elif_in_specification_part] = STATE(8270),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8270),
+    [sym_preproc_if_in_statements] = STATE(417),
+    [sym_preproc_ifdef_in_statements] = STATE(417),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5850),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(417),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(928),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(988),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -74481,16 +74340,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -74510,7 +74369,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(930),
+    [anon_sym_SEMI] = ACTIONS(990),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -74572,149 +74431,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [108] = {
-    [sym_preproc_include] = STATE(94),
-    [sym_preproc_def] = STATE(94),
-    [sym_preproc_function_def] = STATE(94),
-    [sym_preproc_call] = STATE(94),
-    [sym_preproc_else_in_specification_part] = STATE(8654),
-    [sym_preproc_elif_in_specification_part] = STATE(8654),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8654),
-    [sym_preproc_if_in_statements] = STATE(320),
-    [sym_preproc_ifdef_in_statements] = STATE(320),
-    [sym_interface] = STATE(94),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5981),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(94),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(94),
-    [sym_public_statement] = STATE(94),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(94),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(94),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(94),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(94),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(320),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8614),
+    [sym_preproc_elif_in_specification_part] = STATE(8614),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8614),
+    [sym_preproc_if_in_statements] = STATE(387),
+    [sym_preproc_ifdef_in_statements] = STATE(387),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5791),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(387),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(980),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -74726,16 +74585,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -74755,7 +74614,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(934),
+    [anon_sym_SEMI] = ACTIONS(982),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -74817,149 +74676,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [109] = {
-    [sym_preproc_include] = STATE(99),
-    [sym_preproc_def] = STATE(99),
-    [sym_preproc_function_def] = STATE(99),
-    [sym_preproc_call] = STATE(99),
-    [sym_preproc_else_in_specification_part] = STATE(7983),
-    [sym_preproc_elif_in_specification_part] = STATE(7983),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7983),
-    [sym_preproc_if_in_statements] = STATE(331),
-    [sym_preproc_ifdef_in_statements] = STATE(331),
-    [sym_interface] = STATE(99),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5896),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(99),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(99),
-    [sym_public_statement] = STATE(99),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(99),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(99),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(99),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(99),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(331),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8356),
+    [sym_preproc_elif_in_specification_part] = STATE(8356),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8356),
+    [sym_preproc_if_in_statements] = STATE(328),
+    [sym_preproc_ifdef_in_statements] = STATE(328),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5886),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(328),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(986),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(964),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -74971,16 +74830,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -75000,7 +74859,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(988),
+    [anon_sym_SEMI] = ACTIONS(966),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -75062,149 +74921,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [110] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7722),
-    [sym_preproc_elif_in_specification_part] = STATE(7722),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7722),
-    [sym_preproc_if_in_statements] = STATE(352),
-    [sym_preproc_ifdef_in_statements] = STATE(352),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5838),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(352),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8184),
+    [sym_preproc_elif_in_specification_part] = STATE(8184),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8184),
+    [sym_preproc_if_in_statements] = STATE(461),
+    [sym_preproc_ifdef_in_statements] = STATE(461),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5934),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(461),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(990),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(992),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -75216,16 +75075,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -75245,7 +75104,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(992),
+    [anon_sym_SEMI] = ACTIONS(994),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -75307,149 +75166,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [111] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7864),
-    [sym_preproc_elif_in_specification_part] = STATE(7864),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
-    [sym_preproc_if_in_statements] = STATE(356),
-    [sym_preproc_ifdef_in_statements] = STATE(356),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5884),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(356),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(365),
+    [sym_preproc_ifdef_in_statements] = STATE(365),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5879),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(365),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(994),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(932),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -75461,16 +75320,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -75490,7 +75349,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(996),
+    [anon_sym_SEMI] = ACTIONS(934),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -75552,149 +75411,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [112] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(7898),
-    [sym_preproc_elif_in_specification_part] = STATE(7898),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7898),
-    [sym_preproc_if_in_statements] = STATE(357),
-    [sym_preproc_ifdef_in_statements] = STATE(357),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5890),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(357),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(423),
+    [sym_preproc_ifdef_in_statements] = STATE(423),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5976),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(423),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(998),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -75706,16 +75565,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -75735,7 +75594,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1000),
+    [anon_sym_SEMI] = ACTIONS(962),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -75797,149 +75656,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [113] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_preproc_else_in_specification_part] = STATE(8154),
-    [sym_preproc_elif_in_specification_part] = STATE(8154),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8154),
-    [sym_preproc_if_in_statements] = STATE(361),
-    [sym_preproc_ifdef_in_statements] = STATE(361),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5947),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(361),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(104),
+    [sym_preproc_def] = STATE(104),
+    [sym_preproc_function_def] = STATE(104),
+    [sym_preproc_call] = STATE(104),
+    [sym_preproc_else_in_specification_part] = STATE(8263),
+    [sym_preproc_elif_in_specification_part] = STATE(8263),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8263),
+    [sym_preproc_if_in_statements] = STATE(322),
+    [sym_preproc_ifdef_in_statements] = STATE(322),
+    [sym_interface] = STATE(104),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5785),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(104),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(104),
+    [sym_public_statement] = STATE(104),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(104),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(104),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(104),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(104),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(322),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(271),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -75951,16 +75810,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -75980,7 +75839,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1004),
+    [anon_sym_SEMI] = ACTIONS(996),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -76042,149 +75901,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [114] = {
-    [sym_preproc_include] = STATE(111),
-    [sym_preproc_def] = STATE(111),
-    [sym_preproc_function_def] = STATE(111),
-    [sym_preproc_call] = STATE(111),
-    [sym_preproc_else_in_specification_part] = STATE(8624),
-    [sym_preproc_elif_in_specification_part] = STATE(8624),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8624),
-    [sym_preproc_if_in_statements] = STATE(309),
-    [sym_preproc_ifdef_in_statements] = STATE(309),
-    [sym_interface] = STATE(111),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5879),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(111),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(111),
-    [sym_public_statement] = STATE(111),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(111),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(111),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(111),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(309),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8368),
+    [sym_preproc_elif_in_specification_part] = STATE(8368),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8368),
+    [sym_preproc_if_in_statements] = STATE(335),
+    [sym_preproc_ifdef_in_statements] = STATE(335),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5876),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(335),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1006),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(940),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -76196,16 +76055,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -76225,7 +76084,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1008),
+    [anon_sym_SEMI] = ACTIONS(942),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -76287,149 +76146,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [115] = {
-    [sym_preproc_include] = STATE(104),
-    [sym_preproc_def] = STATE(104),
-    [sym_preproc_function_def] = STATE(104),
-    [sym_preproc_call] = STATE(104),
-    [sym_preproc_else_in_specification_part] = STATE(8580),
-    [sym_preproc_elif_in_specification_part] = STATE(8580),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
-    [sym_preproc_if_in_statements] = STATE(337),
-    [sym_preproc_ifdef_in_statements] = STATE(337),
-    [sym_interface] = STATE(104),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5880),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(104),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(104),
-    [sym_public_statement] = STATE(104),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(104),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(104),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(104),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(104),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(337),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(8590),
+    [sym_preproc_elif_in_specification_part] = STATE(8590),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8590),
+    [sym_preproc_if_in_statements] = STATE(383),
+    [sym_preproc_ifdef_in_statements] = STATE(383),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5786),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(383),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1010),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(998),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -76441,16 +76300,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -76470,7 +76329,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1012),
+    [anon_sym_SEMI] = ACTIONS(1000),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -76532,149 +76391,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [116] = {
-    [sym_preproc_include] = STATE(105),
-    [sym_preproc_def] = STATE(105),
-    [sym_preproc_function_def] = STATE(105),
-    [sym_preproc_call] = STATE(105),
-    [sym_preproc_else_in_specification_part] = STATE(8639),
-    [sym_preproc_elif_in_specification_part] = STATE(8639),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8639),
-    [sym_preproc_if_in_statements] = STATE(341),
-    [sym_preproc_ifdef_in_statements] = STATE(341),
-    [sym_interface] = STATE(105),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5909),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(105),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(105),
-    [sym_public_statement] = STATE(105),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(105),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(105),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(105),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(105),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(341),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(368),
+    [sym_preproc_ifdef_in_statements] = STATE(368),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5933),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(368),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(968),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(1002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -76686,16 +76545,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -76715,7 +76574,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(970),
+    [anon_sym_SEMI] = ACTIONS(1004),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -76777,149 +76636,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [117] = {
-    [sym_preproc_include] = STATE(112),
-    [sym_preproc_def] = STATE(112),
-    [sym_preproc_function_def] = STATE(112),
-    [sym_preproc_call] = STATE(112),
-    [sym_preproc_else_in_specification_part] = STATE(7722),
-    [sym_preproc_elif_in_specification_part] = STATE(7722),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7722),
-    [sym_preproc_if_in_statements] = STATE(352),
-    [sym_preproc_ifdef_in_statements] = STATE(352),
-    [sym_interface] = STATE(112),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5838),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(112),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(112),
-    [sym_public_statement] = STATE(112),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(112),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(112),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(112),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(352),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(94),
+    [sym_preproc_def] = STATE(94),
+    [sym_preproc_function_def] = STATE(94),
+    [sym_preproc_call] = STATE(94),
+    [sym_preproc_else_in_specification_part] = STATE(7772),
+    [sym_preproc_elif_in_specification_part] = STATE(7772),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7772),
+    [sym_preproc_if_in_statements] = STATE(315),
+    [sym_preproc_ifdef_in_statements] = STATE(315),
+    [sym_interface] = STATE(94),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5884),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(94),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(94),
+    [sym_public_statement] = STATE(94),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(94),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(94),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(94),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(94),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(315),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(990),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(1006),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -76931,16 +76790,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -76960,7 +76819,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(992),
+    [anon_sym_SEMI] = ACTIONS(1008),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -77022,149 +76881,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [118] = {
-    [sym_preproc_include] = STATE(113),
-    [sym_preproc_def] = STATE(113),
-    [sym_preproc_function_def] = STATE(113),
-    [sym_preproc_call] = STATE(113),
-    [sym_preproc_else_in_specification_part] = STATE(7864),
-    [sym_preproc_elif_in_specification_part] = STATE(7864),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
-    [sym_preproc_if_in_statements] = STATE(356),
-    [sym_preproc_ifdef_in_statements] = STATE(356),
-    [sym_interface] = STATE(113),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5884),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(113),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(113),
-    [sym_public_statement] = STATE(113),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(113),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(113),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(113),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(356),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(101),
+    [sym_preproc_def] = STATE(101),
+    [sym_preproc_function_def] = STATE(101),
+    [sym_preproc_call] = STATE(101),
+    [sym_preproc_else_in_specification_part] = STATE(7843),
+    [sym_preproc_elif_in_specification_part] = STATE(7843),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7843),
+    [sym_preproc_if_in_statements] = STATE(429),
+    [sym_preproc_ifdef_in_statements] = STATE(429),
+    [sym_interface] = STATE(101),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5978),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(101),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(101),
+    [sym_public_statement] = STATE(101),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(101),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(101),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(101),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(101),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(429),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(994),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_if_token2] = ACTIONS(936),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -77176,16 +77035,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -77205,7 +77064,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(996),
+    [anon_sym_SEMI] = ACTIONS(938),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -77267,149 +77126,149 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [119] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
     [sym_preproc_else_in_specification_part] = STATE(8580),
     [sym_preproc_elif_in_specification_part] = STATE(8580),
     [sym_preproc_elifdef_in_specification_part] = STATE(8580),
-    [sym_preproc_if_in_statements] = STATE(337),
-    [sym_preproc_ifdef_in_statements] = STATE(337),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5880),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(790),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6592),
-    [sym_data_statement] = STATE(6835),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_statement_function] = STATE(6835),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(337),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_if_in_statements] = STATE(372),
+    [sym_preproc_ifdef_in_statements] = STATE(372),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5797),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(773),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(6781),
+    [sym_data_statement] = STATE(7276),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_statement_function] = STATE(7276),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(372),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(748),
     [aux_sym_preproc_def_token1] = ACTIONS(750),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1010),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(764),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(772),
-    [aux_sym_public_statement_token1] = ACTIONS(774),
+    [aux_sym_private_statement_token1] = ACTIONS(774),
+    [aux_sym_public_statement_token1] = ACTIONS(776),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -77421,16 +77280,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -77512,119 +77371,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [120] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(478),
-    [sym_preproc_ifdef_in_statements] = STATE(478),
-    [sym_preproc_if_in_procedure_statements] = STATE(478),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(478),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(887),
-    [sym_internal_procedures] = STATE(6952),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(478),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(519),
+    [sym_preproc_ifdef_in_statements] = STATE(519),
+    [sym_preproc_if_in_procedure_statements] = STATE(519),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(519),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4539),
+    [sym_internal_procedures] = STATE(7144),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(519),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -77641,14 +77500,14 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -77664,16 +77523,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -77755,147 +77614,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [121] = {
-    [sym_preproc_include] = STATE(122),
-    [sym_preproc_def] = STATE(122),
-    [sym_preproc_function_def] = STATE(122),
-    [sym_preproc_call] = STATE(122),
-    [sym_preproc_if_in_specification_part] = STATE(122),
-    [sym_preproc_ifdef_in_specification_part] = STATE(122),
-    [sym_preproc_if_in_statements] = STATE(508),
-    [sym_preproc_ifdef_in_statements] = STATE(508),
-    [sym_preproc_if_in_procedure_statements] = STATE(508),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(508),
-    [sym_interface] = STATE(122),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(1051),
-    [sym_internal_procedures] = STATE(7150),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(122),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(122),
-    [sym_public_statement] = STATE(122),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(122),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(122),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(122),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(122),
-    [aux_sym_subroutine_repeat1] = STATE(508),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+    [sym_preproc_include] = STATE(144),
+    [sym_preproc_def] = STATE(144),
+    [sym_preproc_function_def] = STATE(144),
+    [sym_preproc_call] = STATE(144),
+    [sym_preproc_if_in_specification_part] = STATE(144),
+    [sym_preproc_ifdef_in_specification_part] = STATE(144),
+    [sym_preproc_if_in_statements] = STATE(507),
+    [sym_preproc_ifdef_in_statements] = STATE(507),
+    [sym_preproc_if_in_procedure_statements] = STATE(507),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(507),
+    [sym_interface] = STATE(144),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5101),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6880),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(144),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(144),
+    [sym_public_statement] = STATE(144),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(144),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(144),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(144),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(144),
+    [aux_sym_subroutine_repeat1] = STATE(507),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1034),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1044),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1046),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1036),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -77907,16 +77766,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -77936,7 +77795,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1038),
+    [anon_sym_SEMI] = ACTIONS(1052),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -77998,147 +77857,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [122] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(479),
-    [sym_preproc_ifdef_in_statements] = STATE(479),
-    [sym_preproc_if_in_procedure_statements] = STATE(479),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(479),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(1045),
-    [sym_internal_procedures] = STATE(6636),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(479),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+    [sym_preproc_include] = STATE(140),
+    [sym_preproc_def] = STATE(140),
+    [sym_preproc_function_def] = STATE(140),
+    [sym_preproc_call] = STATE(140),
+    [sym_preproc_if_in_specification_part] = STATE(140),
+    [sym_preproc_ifdef_in_specification_part] = STATE(140),
+    [sym_preproc_if_in_statements] = STATE(480),
+    [sym_preproc_ifdef_in_statements] = STATE(480),
+    [sym_preproc_if_in_procedure_statements] = STATE(480),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(480),
+    [sym_interface] = STATE(140),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5191),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7095),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(140),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(140),
+    [sym_public_statement] = STATE(140),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(140),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(140),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(140),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(140),
+    [aux_sym_subroutine_repeat1] = STATE(480),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1034),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1054),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1056),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1036),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -78150,16 +78009,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -78179,7 +78038,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1040),
+    [anon_sym_SEMI] = ACTIONS(1058),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -78241,147 +78100,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [123] = {
-    [sym_preproc_include] = STATE(126),
-    [sym_preproc_def] = STATE(126),
-    [sym_preproc_function_def] = STATE(126),
-    [sym_preproc_call] = STATE(126),
-    [sym_preproc_if_in_specification_part] = STATE(126),
-    [sym_preproc_ifdef_in_specification_part] = STATE(126),
-    [sym_preproc_if_in_statements] = STATE(503),
-    [sym_preproc_ifdef_in_statements] = STATE(503),
-    [sym_preproc_if_in_procedure_statements] = STATE(503),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(503),
-    [sym_interface] = STATE(126),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5093),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6968),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(126),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(126),
-    [sym_public_statement] = STATE(126),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(126),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+    [sym_preproc_include] = STATE(124),
+    [sym_preproc_def] = STATE(124),
+    [sym_preproc_function_def] = STATE(124),
+    [sym_preproc_call] = STATE(124),
+    [sym_preproc_if_in_specification_part] = STATE(124),
+    [sym_preproc_ifdef_in_specification_part] = STATE(124),
+    [sym_preproc_if_in_statements] = STATE(498),
+    [sym_preproc_ifdef_in_statements] = STATE(498),
+    [sym_preproc_if_in_procedure_statements] = STATE(498),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(498),
+    [sym_interface] = STATE(124),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4551),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6688),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(124),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(124),
+    [sym_public_statement] = STATE(124),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(124),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(126),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(126),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(126),
-    [aux_sym_subroutine_repeat1] = STATE(503),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(124),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(124),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(124),
+    [aux_sym_subroutine_repeat1] = STATE(498),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1052),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1070),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1054),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1072),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -78393,16 +78252,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -78422,7 +78281,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1060),
+    [anon_sym_SEMI] = ACTIONS(1078),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -78484,147 +78343,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [124] = {
-    [sym_preproc_include] = STATE(128),
-    [sym_preproc_def] = STATE(128),
-    [sym_preproc_function_def] = STATE(128),
-    [sym_preproc_call] = STATE(128),
-    [sym_preproc_if_in_specification_part] = STATE(128),
-    [sym_preproc_ifdef_in_specification_part] = STATE(128),
-    [sym_preproc_if_in_statements] = STATE(477),
-    [sym_preproc_ifdef_in_statements] = STATE(477),
-    [sym_preproc_if_in_procedure_statements] = STATE(477),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(477),
-    [sym_interface] = STATE(128),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5103),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6454),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(128),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(128),
-    [sym_public_statement] = STATE(128),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(128),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(497),
+    [sym_preproc_ifdef_in_statements] = STATE(497),
+    [sym_preproc_if_in_procedure_statements] = STATE(497),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(497),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4581),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6715),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(128),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(128),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(128),
-    [aux_sym_subroutine_repeat1] = STATE(477),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(497),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1062),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1070),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1064),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1072),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -78636,16 +78495,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -78665,7 +78524,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1066),
+    [anon_sym_SEMI] = ACTIONS(1080),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -78727,147 +78586,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [125] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(534),
-    [sym_preproc_ifdef_in_statements] = STATE(534),
-    [sym_preproc_if_in_procedure_statements] = STATE(534),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(534),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(4962),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7108),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(534),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_preproc_include] = STATE(135),
+    [sym_preproc_def] = STATE(135),
+    [sym_preproc_function_def] = STATE(135),
+    [sym_preproc_call] = STATE(135),
+    [sym_preproc_if_in_specification_part] = STATE(135),
+    [sym_preproc_ifdef_in_specification_part] = STATE(135),
+    [sym_preproc_if_in_statements] = STATE(496),
+    [sym_preproc_ifdef_in_statements] = STATE(496),
+    [sym_preproc_if_in_procedure_statements] = STATE(496),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(496),
+    [sym_interface] = STATE(135),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(1024),
+    [sym_internal_procedures] = STATE(7172),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(135),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(135),
+    [sym_public_statement] = STATE(135),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(135),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(135),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(135),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(135),
+    [aux_sym_subroutine_repeat1] = STATE(496),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1082),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1070),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1084),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -78879,16 +78738,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -78908,7 +78767,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1072),
+    [anon_sym_SEMI] = ACTIONS(1086),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -78970,147 +78829,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [126] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(536),
-    [sym_preproc_ifdef_in_statements] = STATE(536),
-    [sym_preproc_if_in_procedure_statements] = STATE(536),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(536),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5075),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6863),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(479),
+    [sym_preproc_ifdef_in_statements] = STATE(479),
+    [sym_preproc_if_in_procedure_statements] = STATE(479),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(479),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5085),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6712),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(536),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(479),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1052),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1088),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1054),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1090),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -79122,16 +78981,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -79151,7 +79010,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1074),
+    [anon_sym_SEMI] = ACTIONS(1092),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -79213,147 +79072,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [127] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(531),
-    [sym_preproc_ifdef_in_statements] = STATE(531),
-    [sym_preproc_if_in_procedure_statements] = STATE(531),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(531),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4577),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7052),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(531),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(132),
+    [sym_preproc_def] = STATE(132),
+    [sym_preproc_function_def] = STATE(132),
+    [sym_preproc_call] = STATE(132),
+    [sym_preproc_if_in_specification_part] = STATE(132),
+    [sym_preproc_ifdef_in_specification_part] = STATE(132),
+    [sym_preproc_if_in_statements] = STATE(494),
+    [sym_preproc_ifdef_in_statements] = STATE(494),
+    [sym_preproc_if_in_procedure_statements] = STATE(494),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(494),
+    [sym_interface] = STATE(132),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(1022),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7169),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(132),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(132),
+    [sym_public_statement] = STATE(132),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(132),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(132),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(132),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(132),
+    [aux_sym_subroutine_repeat1] = STATE(494),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1086),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1094),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1088),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1096),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -79365,16 +79224,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -79394,7 +79253,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1094),
+    [anon_sym_SEMI] = ACTIONS(1098),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -79456,147 +79315,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [128] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(480),
-    [sym_preproc_ifdef_in_statements] = STATE(480),
-    [sym_preproc_if_in_procedure_statements] = STATE(480),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(480),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5118),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6466),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(480),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(489),
+    [sym_preproc_ifdef_in_statements] = STATE(489),
+    [sym_preproc_if_in_procedure_statements] = STATE(489),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(489),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5182),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6751),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(489),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1062),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1102),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1064),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -79608,16 +79467,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -79637,7 +79496,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1096),
+    [anon_sym_SEMI] = ACTIONS(1104),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -79699,362 +79558,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [129] = {
-    [sym_preproc_include] = STATE(127),
-    [sym_preproc_def] = STATE(127),
-    [sym_preproc_function_def] = STATE(127),
-    [sym_preproc_call] = STATE(127),
-    [sym_preproc_if_in_specification_part] = STATE(127),
-    [sym_preproc_ifdef_in_specification_part] = STATE(127),
-    [sym_preproc_if_in_statements] = STATE(525),
-    [sym_preproc_ifdef_in_statements] = STATE(525),
-    [sym_preproc_if_in_procedure_statements] = STATE(525),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(525),
-    [sym_interface] = STATE(127),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4553),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6762),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(127),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(127),
-    [sym_public_statement] = STATE(127),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(127),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(127),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(127),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(127),
-    [aux_sym_subroutine_repeat1] = STATE(525),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1086),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1088),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1098),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [130] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(532),
-    [sym_preproc_ifdef_in_statements] = STATE(532),
-    [sym_preproc_if_in_procedure_statements] = STATE(532),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(532),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4579),
-    [sym_internal_procedures] = STATE(7063),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(532),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(474),
+    [sym_preproc_ifdef_in_statements] = STATE(474),
+    [sym_preproc_if_in_procedure_statements] = STATE(474),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(474),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5185),
+    [sym_internal_procedures] = STATE(6756),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(474),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -80065,20 +79681,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1102),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1108),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -80094,16 +79710,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -80123,7 +79739,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1104),
+    [anon_sym_SEMI] = ACTIONS(1110),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -80184,148 +79800,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [131] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
+  [130] = {
+    [sym_preproc_include] = STATE(160),
+    [sym_preproc_def] = STATE(160),
+    [sym_preproc_function_def] = STATE(160),
+    [sym_preproc_call] = STATE(160),
+    [sym_preproc_if_in_specification_part] = STATE(160),
+    [sym_preproc_ifdef_in_specification_part] = STATE(160),
     [sym_preproc_if_in_statements] = STATE(483),
     [sym_preproc_ifdef_in_statements] = STATE(483),
     [sym_preproc_if_in_procedure_statements] = STATE(483),
     [sym_preproc_ifdef_in_procedure_statements] = STATE(483),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(1001),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6495),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
+    [sym_interface] = STATE(160),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4873),
+    [sym_internal_procedures] = STATE(7199),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(160),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(160),
+    [sym_public_statement] = STATE(160),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(160),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(160),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(160),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(160),
     [aux_sym_subroutine_repeat1] = STATE(483),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1112),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1108),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1114),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -80337,16 +79953,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -80366,7 +79982,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1110),
+    [anon_sym_SEMI] = ACTIONS(1116),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -80427,120 +80043,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [132] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(484),
-    [sym_preproc_ifdef_in_statements] = STATE(484),
-    [sym_preproc_if_in_procedure_statements] = STATE(484),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(484),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(1003),
-    [sym_internal_procedures] = STATE(6500),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(484),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [131] = {
+    [sym_preproc_include] = STATE(172),
+    [sym_preproc_def] = STATE(172),
+    [sym_preproc_function_def] = STATE(172),
+    [sym_preproc_call] = STATE(172),
+    [sym_preproc_if_in_specification_part] = STATE(172),
+    [sym_preproc_ifdef_in_specification_part] = STATE(172),
+    [sym_preproc_if_in_statements] = STATE(508),
+    [sym_preproc_ifdef_in_statements] = STATE(508),
+    [sym_preproc_if_in_procedure_statements] = STATE(508),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(508),
+    [sym_interface] = STATE(172),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4597),
+    [sym_internal_procedures] = STATE(6497),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(172),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(172),
+    [sym_public_statement] = STATE(172),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(172),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(172),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(172),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(172),
+    [aux_sym_subroutine_repeat1] = STATE(508),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -80551,20 +80167,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1114),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1120),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -80580,259 +80196,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1116),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [133] = {
-    [sym_preproc_include] = STATE(149),
-    [sym_preproc_def] = STATE(149),
-    [sym_preproc_function_def] = STATE(149),
-    [sym_preproc_call] = STATE(149),
-    [sym_preproc_if_in_specification_part] = STATE(149),
-    [sym_preproc_ifdef_in_specification_part] = STATE(149),
-    [sym_preproc_if_in_statements] = STATE(535),
-    [sym_preproc_ifdef_in_statements] = STATE(535),
-    [sym_preproc_if_in_procedure_statements] = STATE(535),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(535),
-    [sym_interface] = STATE(149),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(1049),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7143),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(149),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(149),
-    [sym_public_statement] = STATE(149),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(149),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(149),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(149),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(149),
-    [aux_sym_subroutine_repeat1] = STATE(535),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -80913,148 +80286,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [134] = {
-    [sym_preproc_include] = STATE(136),
-    [sym_preproc_def] = STATE(136),
-    [sym_preproc_function_def] = STATE(136),
-    [sym_preproc_call] = STATE(136),
-    [sym_preproc_if_in_specification_part] = STATE(136),
-    [sym_preproc_ifdef_in_specification_part] = STATE(136),
-    [sym_preproc_if_in_statements] = STATE(537),
-    [sym_preproc_ifdef_in_statements] = STATE(537),
-    [sym_preproc_if_in_procedure_statements] = STATE(537),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(537),
-    [sym_interface] = STATE(136),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5067),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7179),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(136),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(136),
-    [sym_public_statement] = STATE(136),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(136),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(136),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(136),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(136),
-    [aux_sym_subroutine_repeat1] = STATE(537),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [132] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(491),
+    [sym_preproc_ifdef_in_statements] = STATE(491),
+    [sym_preproc_if_in_procedure_statements] = STATE(491),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(491),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(1091),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7191),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(491),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1094),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1126),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1096),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -81066,16 +80439,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -81095,7 +80468,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1128),
+    [anon_sym_SEMI] = ACTIONS(1124),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -81156,120 +80529,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [135] = {
-    [sym_preproc_include] = STATE(137),
-    [sym_preproc_def] = STATE(137),
-    [sym_preproc_function_def] = STATE(137),
-    [sym_preproc_call] = STATE(137),
-    [sym_preproc_if_in_specification_part] = STATE(137),
-    [sym_preproc_ifdef_in_specification_part] = STATE(137),
-    [sym_preproc_if_in_statements] = STATE(538),
-    [sym_preproc_ifdef_in_statements] = STATE(538),
-    [sym_preproc_if_in_procedure_statements] = STATE(538),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(538),
-    [sym_interface] = STATE(137),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5105),
-    [sym_internal_procedures] = STATE(7182),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(137),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(137),
-    [sym_public_statement] = STATE(137),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(137),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(137),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(137),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(137),
-    [aux_sym_subroutine_repeat1] = STATE(538),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [133] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(505),
+    [sym_preproc_ifdef_in_statements] = STATE(505),
+    [sym_preproc_if_in_procedure_statements] = STATE(505),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(505),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4938),
+    [sym_internal_procedures] = STATE(7265),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(505),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -81280,20 +80653,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1130),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1126),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1132),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1128),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -81309,16 +80682,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -81338,7 +80711,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1134),
+    [anon_sym_SEMI] = ACTIONS(1130),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -81399,148 +80772,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [136] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(539),
-    [sym_preproc_ifdef_in_statements] = STATE(539),
-    [sym_preproc_if_in_procedure_statements] = STATE(539),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(539),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5052),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7193),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(539),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [134] = {
+    [sym_preproc_include] = STATE(163),
+    [sym_preproc_def] = STATE(163),
+    [sym_preproc_function_def] = STATE(163),
+    [sym_preproc_call] = STATE(163),
+    [sym_preproc_if_in_specification_part] = STATE(163),
+    [sym_preproc_ifdef_in_specification_part] = STATE(163),
+    [sym_preproc_if_in_statements] = STATE(484),
+    [sym_preproc_ifdef_in_statements] = STATE(484),
+    [sym_preproc_if_in_procedure_statements] = STATE(484),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(484),
+    [sym_interface] = STATE(163),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4874),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7201),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(163),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(163),
+    [sym_public_statement] = STATE(163),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(163),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(163),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(163),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(163),
+    [aux_sym_subroutine_repeat1] = STATE(484),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1132),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1126),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1134),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -81552,16 +80925,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -81642,120 +81015,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [137] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(475),
-    [sym_preproc_ifdef_in_statements] = STATE(475),
-    [sym_preproc_if_in_procedure_statements] = STATE(475),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(475),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4970),
-    [sym_internal_procedures] = STATE(7200),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(475),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [135] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(529),
+    [sym_preproc_ifdef_in_statements] = STATE(529),
+    [sym_preproc_if_in_procedure_statements] = STATE(529),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(529),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(1077),
+    [sym_internal_procedures] = STATE(7179),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(529),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -81766,20 +81139,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1130),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1082),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1132),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1084),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -81795,16 +81168,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -81885,126 +81258,126 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [138] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(476),
-    [sym_preproc_ifdef_in_statements] = STATE(476),
-    [sym_preproc_if_in_procedure_statements] = STATE(476),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(476),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(885),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6931),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(476),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [136] = {
+    [sym_preproc_include] = STATE(155),
+    [sym_preproc_def] = STATE(155),
+    [sym_preproc_function_def] = STATE(155),
+    [sym_preproc_call] = STATE(155),
+    [sym_preproc_if_in_specification_part] = STATE(155),
+    [sym_preproc_ifdef_in_specification_part] = STATE(155),
+    [sym_preproc_if_in_statements] = STATE(538),
+    [sym_preproc_ifdef_in_statements] = STATE(538),
+    [sym_preproc_if_in_procedure_statements] = STATE(538),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(538),
+    [sym_interface] = STATE(155),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(1038),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6564),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(155),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(155),
+    [sym_public_statement] = STATE(155),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(155),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(155),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(155),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(155),
+    [aux_sym_subroutine_repeat1] = STATE(538),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -82016,17 +81389,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -82038,16 +81411,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -82128,126 +81501,126 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [139] = {
-    [sym_preproc_include] = STATE(140),
-    [sym_preproc_def] = STATE(140),
-    [sym_preproc_function_def] = STATE(140),
-    [sym_preproc_call] = STATE(140),
-    [sym_preproc_if_in_specification_part] = STATE(140),
-    [sym_preproc_ifdef_in_specification_part] = STATE(140),
-    [sym_preproc_if_in_statements] = STATE(485),
-    [sym_preproc_ifdef_in_statements] = STATE(485),
-    [sym_preproc_if_in_procedure_statements] = STATE(485),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(485),
-    [sym_interface] = STATE(140),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(4632),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6553),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(140),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(140),
-    [sym_public_statement] = STATE(140),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(140),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(140),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(140),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(140),
-    [aux_sym_subroutine_repeat1] = STATE(485),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+  [137] = {
+    [sym_preproc_include] = STATE(154),
+    [sym_preproc_def] = STATE(154),
+    [sym_preproc_function_def] = STATE(154),
+    [sym_preproc_call] = STATE(154),
+    [sym_preproc_if_in_specification_part] = STATE(154),
+    [sym_preproc_ifdef_in_specification_part] = STATE(154),
+    [sym_preproc_if_in_statements] = STATE(540),
+    [sym_preproc_ifdef_in_statements] = STATE(540),
+    [sym_preproc_if_in_procedure_statements] = STATE(540),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(540),
+    [sym_interface] = STATE(154),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(1036),
+    [sym_internal_procedures] = STATE(6569),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(154),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(154),
+    [sym_public_statement] = STATE(154),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(154),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(154),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(154),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(154),
+    [aux_sym_subroutine_repeat1] = STATE(540),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -82257,19 +81630,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1148),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1148),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -82281,16 +81654,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -82371,148 +81744,391 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [140] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(486),
-    [sym_preproc_ifdef_in_statements] = STATE(486),
-    [sym_preproc_if_in_procedure_statements] = STATE(486),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(486),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(4569),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6561),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+  [138] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(475),
+    [sym_preproc_ifdef_in_statements] = STATE(475),
+    [sym_preproc_if_in_procedure_statements] = STATE(475),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(475),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5209),
+    [sym_internal_procedures] = STATE(7082),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(475),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1152),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1154),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(1156),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [139] = {
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(513),
+    [sym_preproc_ifdef_in_statements] = STATE(513),
+    [sym_preproc_if_in_procedure_statements] = STATE(513),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(513),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5018),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7229),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(486),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(513),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1158),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1148),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1160),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -82524,16 +82140,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -82553,7 +82169,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1152),
+    [anon_sym_SEMI] = ACTIONS(1162),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -82614,148 +82230,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [141] = {
-    [sym_preproc_include] = STATE(138),
-    [sym_preproc_def] = STATE(138),
-    [sym_preproc_function_def] = STATE(138),
-    [sym_preproc_call] = STATE(138),
-    [sym_preproc_if_in_specification_part] = STATE(138),
-    [sym_preproc_ifdef_in_specification_part] = STATE(138),
-    [sym_preproc_if_in_statements] = STATE(474),
-    [sym_preproc_ifdef_in_statements] = STATE(474),
-    [sym_preproc_if_in_procedure_statements] = STATE(474),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(474),
-    [sym_interface] = STATE(138),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(882),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6821),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(138),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(138),
-    [sym_public_statement] = STATE(138),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(138),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(138),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(138),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(138),
-    [aux_sym_subroutine_repeat1] = STATE(474),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [140] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(477),
+    [sym_preproc_ifdef_in_statements] = STATE(477),
+    [sym_preproc_if_in_procedure_statements] = STATE(477),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(477),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5207),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7089),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(477),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1054),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1056),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -82767,16 +82383,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -82796,7 +82412,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1154),
+    [anon_sym_SEMI] = ACTIONS(1164),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -82857,148 +82473,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [142] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(489),
-    [sym_preproc_ifdef_in_statements] = STATE(489),
-    [sym_preproc_if_in_procedure_statements] = STATE(489),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(489),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4993),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6577),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(489),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [141] = {
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(516),
+    [sym_preproc_ifdef_in_statements] = STATE(516),
+    [sym_preproc_if_in_procedure_statements] = STATE(516),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(516),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5010),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6730),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(516),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1156),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1166),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1158),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1168),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -83010,16 +82626,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -83039,7 +82655,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1160),
+    [anon_sym_SEMI] = ACTIONS(1170),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -83100,148 +82716,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [143] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(490),
-    [sym_preproc_ifdef_in_statements] = STATE(490),
-    [sym_preproc_if_in_procedure_statements] = STATE(490),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(490),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4995),
-    [sym_internal_procedures] = STATE(6579),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(490),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [142] = {
+    [sym_preproc_include] = STATE(143),
+    [sym_preproc_def] = STATE(143),
+    [sym_preproc_function_def] = STATE(143),
+    [sym_preproc_call] = STATE(143),
+    [sym_preproc_if_in_specification_part] = STATE(143),
+    [sym_preproc_ifdef_in_specification_part] = STATE(143),
+    [sym_preproc_if_in_statements] = STATE(476),
+    [sym_preproc_ifdef_in_statements] = STATE(476),
+    [sym_preproc_if_in_procedure_statements] = STATE(476),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(476),
+    [sym_interface] = STATE(143),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5084),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6839),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(143),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(143),
+    [sym_public_statement] = STATE(143),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(143),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(143),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(143),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(143),
+    [aux_sym_subroutine_repeat1] = STATE(476),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1162),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1172),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1174),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1164),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -83253,16 +82869,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -83282,7 +82898,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1166),
+    [anon_sym_SEMI] = ACTIONS(1176),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -83343,148 +82959,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [144] = {
-    [sym_preproc_include] = STATE(120),
-    [sym_preproc_def] = STATE(120),
-    [sym_preproc_function_def] = STATE(120),
-    [sym_preproc_call] = STATE(120),
-    [sym_preproc_if_in_specification_part] = STATE(120),
-    [sym_preproc_ifdef_in_specification_part] = STATE(120),
-    [sym_preproc_if_in_statements] = STATE(472),
-    [sym_preproc_ifdef_in_statements] = STATE(472),
-    [sym_preproc_if_in_procedure_statements] = STATE(472),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(472),
-    [sym_interface] = STATE(120),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(883),
-    [sym_internal_procedures] = STATE(6825),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(120),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(120),
-    [sym_public_statement] = STATE(120),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(120),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(120),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(120),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(120),
-    [aux_sym_subroutine_repeat1] = STATE(472),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [143] = {
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(511),
+    [sym_preproc_ifdef_in_statements] = STATE(511),
+    [sym_preproc_if_in_procedure_statements] = STATE(511),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(511),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5089),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6859),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(511),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1172),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1174),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -83496,16 +83112,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -83525,7 +83141,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1168),
+    [anon_sym_SEMI] = ACTIONS(1178),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -83586,148 +83202,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [145] = {
-    [sym_preproc_include] = STATE(131),
-    [sym_preproc_def] = STATE(131),
-    [sym_preproc_function_def] = STATE(131),
-    [sym_preproc_call] = STATE(131),
-    [sym_preproc_if_in_specification_part] = STATE(131),
-    [sym_preproc_ifdef_in_specification_part] = STATE(131),
-    [sym_preproc_if_in_statements] = STATE(481),
-    [sym_preproc_ifdef_in_statements] = STATE(481),
-    [sym_preproc_if_in_procedure_statements] = STATE(481),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(481),
-    [sym_interface] = STATE(131),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(972),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6490),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(131),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(131),
-    [sym_public_statement] = STATE(131),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(131),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(131),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(131),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(131),
-    [aux_sym_subroutine_repeat1] = STATE(481),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [144] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(502),
+    [sym_preproc_ifdef_in_statements] = STATE(502),
+    [sym_preproc_if_in_procedure_statements] = STATE(502),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(502),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5047),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6891),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(502),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1044),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1108),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1046),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -83739,16 +83355,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -83768,7 +83384,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1170),
+    [anon_sym_SEMI] = ACTIONS(1180),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -83829,120 +83445,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [146] = {
-    [sym_preproc_include] = STATE(132),
-    [sym_preproc_def] = STATE(132),
-    [sym_preproc_function_def] = STATE(132),
-    [sym_preproc_call] = STATE(132),
-    [sym_preproc_if_in_specification_part] = STATE(132),
-    [sym_preproc_ifdef_in_specification_part] = STATE(132),
-    [sym_preproc_if_in_statements] = STATE(482),
-    [sym_preproc_ifdef_in_statements] = STATE(482),
-    [sym_preproc_if_in_procedure_statements] = STATE(482),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(482),
-    [sym_interface] = STATE(132),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(973),
-    [sym_internal_procedures] = STATE(6492),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(132),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(132),
-    [sym_public_statement] = STATE(132),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(132),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(132),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(132),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(132),
-    [aux_sym_subroutine_repeat1] = STATE(482),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [145] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(472),
+    [sym_preproc_ifdef_in_statements] = STATE(472),
+    [sym_preproc_if_in_procedure_statements] = STATE(472),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(472),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4996),
+    [sym_internal_procedures] = STATE(6896),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(472),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -83953,20 +83569,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1182),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1114),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1184),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -83982,16 +83598,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -84011,7 +83627,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1172),
+    [anon_sym_SEMI] = ACTIONS(1186),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -84072,126 +83688,126 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [147] = {
-    [sym_preproc_include] = STATE(130),
-    [sym_preproc_def] = STATE(130),
-    [sym_preproc_function_def] = STATE(130),
-    [sym_preproc_call] = STATE(130),
-    [sym_preproc_if_in_specification_part] = STATE(130),
-    [sym_preproc_ifdef_in_specification_part] = STATE(130),
-    [sym_preproc_if_in_statements] = STATE(530),
-    [sym_preproc_ifdef_in_statements] = STATE(530),
-    [sym_preproc_if_in_procedure_statements] = STATE(530),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(530),
-    [sym_interface] = STATE(130),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4555),
-    [sym_internal_procedures] = STATE(6768),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(130),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(130),
-    [sym_public_statement] = STATE(130),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(130),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(130),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(130),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(130),
-    [aux_sym_subroutine_repeat1] = STATE(530),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [146] = {
+    [sym_preproc_include] = STATE(128),
+    [sym_preproc_def] = STATE(128),
+    [sym_preproc_function_def] = STATE(128),
+    [sym_preproc_call] = STATE(128),
+    [sym_preproc_if_in_specification_part] = STATE(128),
+    [sym_preproc_ifdef_in_specification_part] = STATE(128),
+    [sym_preproc_if_in_statements] = STATE(492),
+    [sym_preproc_ifdef_in_statements] = STATE(492),
+    [sym_preproc_if_in_procedure_statements] = STATE(492),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(492),
+    [sym_interface] = STATE(128),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5171),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6740),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(128),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(128),
+    [sym_public_statement] = STATE(128),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(128),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(128),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(128),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(128),
+    [aux_sym_subroutine_repeat1] = STATE(492),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -84200,20 +83816,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1102),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1102),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -84225,16 +83841,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -84254,7 +83870,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1174),
+    [anon_sym_SEMI] = ACTIONS(1188),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -84315,148 +83931,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [148] = {
-    [sym_preproc_include] = STATE(125),
-    [sym_preproc_def] = STATE(125),
-    [sym_preproc_function_def] = STATE(125),
-    [sym_preproc_call] = STATE(125),
-    [sym_preproc_if_in_specification_part] = STATE(125),
-    [sym_preproc_ifdef_in_specification_part] = STATE(125),
-    [sym_preproc_if_in_statements] = STATE(533),
-    [sym_preproc_ifdef_in_statements] = STATE(533),
-    [sym_preproc_if_in_procedure_statements] = STATE(533),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(533),
-    [sym_interface] = STATE(125),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5206),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7058),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(125),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(125),
-    [sym_public_statement] = STATE(125),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(125),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(125),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(125),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(125),
-    [aux_sym_subroutine_repeat1] = STATE(533),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+  [147] = {
+    [sym_preproc_include] = STATE(129),
+    [sym_preproc_def] = STATE(129),
+    [sym_preproc_function_def] = STATE(129),
+    [sym_preproc_call] = STATE(129),
+    [sym_preproc_if_in_specification_part] = STATE(129),
+    [sym_preproc_ifdef_in_specification_part] = STATE(129),
+    [sym_preproc_if_in_statements] = STATE(490),
+    [sym_preproc_ifdef_in_statements] = STATE(490),
+    [sym_preproc_if_in_procedure_statements] = STATE(490),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(490),
+    [sym_interface] = STATE(129),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5174),
+    [sym_internal_procedures] = STATE(6745),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(129),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(129),
+    [sym_public_statement] = STATE(129),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(129),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(129),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(129),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(129),
+    [aux_sym_subroutine_repeat1] = STATE(490),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1070),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1108),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -84468,16 +84084,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -84497,7 +84113,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1176),
+    [anon_sym_SEMI] = ACTIONS(1190),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -84558,148 +84174,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [149] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(473),
-    [sym_preproc_ifdef_in_statements] = STATE(473),
-    [sym_preproc_if_in_procedure_statements] = STATE(473),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(473),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(1042),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6611),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(473),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [148] = {
+    [sym_preproc_include] = STATE(152),
+    [sym_preproc_def] = STATE(152),
+    [sym_preproc_function_def] = STATE(152),
+    [sym_preproc_call] = STATE(152),
+    [sym_preproc_if_in_specification_part] = STATE(152),
+    [sym_preproc_ifdef_in_specification_part] = STATE(152),
+    [sym_preproc_if_in_statements] = STATE(520),
+    [sym_preproc_ifdef_in_statements] = STATE(520),
+    [sym_preproc_if_in_procedure_statements] = STATE(520),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(520),
+    [sym_interface] = STATE(152),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5229),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6968),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(152),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(152),
+    [sym_public_statement] = STATE(152),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(152),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(152),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(152),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(152),
+    [aux_sym_subroutine_repeat1] = STATE(520),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1120),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1194),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -84711,16 +84327,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -84740,7 +84356,250 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1178),
+    [anon_sym_SEMI] = ACTIONS(1196),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [149] = {
+    [sym_preproc_include] = STATE(180),
+    [sym_preproc_def] = STATE(180),
+    [sym_preproc_function_def] = STATE(180),
+    [sym_preproc_call] = STATE(180),
+    [sym_preproc_if_in_specification_part] = STATE(180),
+    [sym_preproc_ifdef_in_specification_part] = STATE(180),
+    [sym_preproc_if_in_statements] = STATE(473),
+    [sym_preproc_ifdef_in_statements] = STATE(473),
+    [sym_preproc_if_in_procedure_statements] = STATE(473),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(473),
+    [sym_interface] = STATE(180),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5008),
+    [sym_internal_procedures] = STATE(7285),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(180),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(180),
+    [sym_public_statement] = STATE(180),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(180),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(180),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(180),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(180),
+    [aux_sym_subroutine_repeat1] = STATE(473),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1198),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1200),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(1202),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -84802,147 +84661,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [150] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(492),
-    [sym_preproc_ifdef_in_statements] = STATE(492),
-    [sym_preproc_if_in_procedure_statements] = STATE(492),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(492),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5151),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6624),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(492),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_preproc_include] = STATE(182),
+    [sym_preproc_def] = STATE(182),
+    [sym_preproc_function_def] = STATE(182),
+    [sym_preproc_call] = STATE(182),
+    [sym_preproc_if_in_specification_part] = STATE(182),
+    [sym_preproc_ifdef_in_specification_part] = STATE(182),
+    [sym_preproc_if_in_statements] = STATE(503),
+    [sym_preproc_ifdef_in_statements] = STATE(503),
+    [sym_preproc_if_in_procedure_statements] = STATE(503),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(503),
+    [sym_interface] = STATE(182),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5007),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7292),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(182),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(182),
+    [sym_public_statement] = STATE(182),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(182),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(182),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(182),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(182),
+    [aux_sym_subroutine_repeat1] = STATE(503),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1204),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1206),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1182),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -84954,16 +84813,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -84983,7 +84842,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1184),
+    [anon_sym_SEMI] = ACTIONS(1208),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -85045,147 +84904,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [151] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(495),
-    [sym_preproc_ifdef_in_statements] = STATE(495),
-    [sym_preproc_if_in_procedure_statements] = STATE(495),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(495),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5135),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6642),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(495),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(126),
+    [sym_preproc_def] = STATE(126),
+    [sym_preproc_function_def] = STATE(126),
+    [sym_preproc_call] = STATE(126),
+    [sym_preproc_if_in_specification_part] = STATE(126),
+    [sym_preproc_ifdef_in_specification_part] = STATE(126),
+    [sym_preproc_if_in_statements] = STATE(526),
+    [sym_preproc_ifdef_in_statements] = STATE(526),
+    [sym_preproc_if_in_procedure_statements] = STATE(526),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(526),
+    [sym_interface] = STATE(126),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5033),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6775),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(126),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(126),
+    [sym_public_statement] = STATE(126),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(126),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(126),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(126),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(126),
+    [aux_sym_subroutine_repeat1] = STATE(526),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1186),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1088),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1188),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1090),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -85197,16 +85056,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -85226,7 +85085,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1190),
+    [anon_sym_SEMI] = ACTIONS(1210),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -85288,125 +85147,125 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [152] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(496),
-    [sym_preproc_ifdef_in_statements] = STATE(496),
-    [sym_preproc_if_in_procedure_statements] = STATE(496),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(496),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5137),
-    [sym_internal_procedures] = STATE(6645),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(496),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(536),
+    [sym_preproc_ifdef_in_statements] = STATE(536),
+    [sym_preproc_if_in_procedure_statements] = STATE(536),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(536),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5231),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6986),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(536),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -85416,19 +85275,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1194),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1194),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -85440,16 +85299,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -85469,7 +85328,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1196),
+    [anon_sym_SEMI] = ACTIONS(1212),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -85531,147 +85390,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [153] = {
-    [sym_preproc_include] = STATE(142),
-    [sym_preproc_def] = STATE(142),
-    [sym_preproc_function_def] = STATE(142),
-    [sym_preproc_call] = STATE(142),
-    [sym_preproc_if_in_specification_part] = STATE(142),
-    [sym_preproc_ifdef_in_specification_part] = STATE(142),
-    [sym_preproc_if_in_statements] = STATE(487),
-    [sym_preproc_ifdef_in_statements] = STATE(487),
-    [sym_preproc_if_in_procedure_statements] = STATE(487),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(487),
-    [sym_interface] = STATE(142),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4973),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6571),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(142),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(142),
-    [sym_public_statement] = STATE(142),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(142),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(142),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(142),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(142),
-    [aux_sym_subroutine_repeat1] = STATE(487),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(166),
+    [sym_preproc_def] = STATE(166),
+    [sym_preproc_function_def] = STATE(166),
+    [sym_preproc_call] = STATE(166),
+    [sym_preproc_if_in_specification_part] = STATE(166),
+    [sym_preproc_ifdef_in_specification_part] = STATE(166),
+    [sym_preproc_if_in_statements] = STATE(485),
+    [sym_preproc_ifdef_in_statements] = STATE(485),
+    [sym_preproc_if_in_procedure_statements] = STATE(485),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(485),
+    [sym_interface] = STATE(166),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5031),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6625),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(166),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(166),
+    [sym_public_statement] = STATE(166),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(166),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(166),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(166),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(166),
+    [aux_sym_subroutine_repeat1] = STATE(485),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1156),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1214),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1158),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1216),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -85683,16 +85542,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -85712,7 +85571,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1198),
+    [anon_sym_SEMI] = ACTIONS(1218),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -85774,119 +85633,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [154] = {
-    [sym_preproc_include] = STATE(143),
-    [sym_preproc_def] = STATE(143),
-    [sym_preproc_function_def] = STATE(143),
-    [sym_preproc_call] = STATE(143),
-    [sym_preproc_if_in_specification_part] = STATE(143),
-    [sym_preproc_ifdef_in_specification_part] = STATE(143),
-    [sym_preproc_if_in_statements] = STATE(488),
-    [sym_preproc_ifdef_in_statements] = STATE(488),
-    [sym_preproc_if_in_procedure_statements] = STATE(488),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(488),
-    [sym_interface] = STATE(143),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4974),
-    [sym_internal_procedures] = STATE(6574),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(143),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(143),
-    [sym_public_statement] = STATE(143),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(143),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(143),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(143),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(143),
-    [aux_sym_subroutine_repeat1] = STATE(488),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(537),
+    [sym_preproc_ifdef_in_statements] = STATE(537),
+    [sym_preproc_if_in_procedure_statements] = STATE(537),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(537),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(1027),
+    [sym_internal_procedures] = STATE(6580),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(537),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -85897,20 +85756,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1162),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1164),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1148),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -85926,16 +85785,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -85955,7 +85814,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1200),
+    [anon_sym_SEMI] = ACTIONS(1220),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -86017,147 +85876,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [155] = {
-    [sym_preproc_include] = STATE(156),
-    [sym_preproc_def] = STATE(156),
-    [sym_preproc_function_def] = STATE(156),
-    [sym_preproc_call] = STATE(156),
-    [sym_preproc_if_in_specification_part] = STATE(156),
-    [sym_preproc_ifdef_in_specification_part] = STATE(156),
-    [sym_preproc_if_in_statements] = STATE(497),
-    [sym_preproc_ifdef_in_statements] = STATE(497),
-    [sym_preproc_if_in_procedure_statements] = STATE(497),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(497),
-    [sym_interface] = STATE(156),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5026),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6685),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(156),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(156),
-    [sym_public_statement] = STATE(156),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(156),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(156),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(156),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(156),
-    [aux_sym_subroutine_repeat1] = STATE(497),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(539),
+    [sym_preproc_ifdef_in_statements] = STATE(539),
+    [sym_preproc_if_in_procedure_statements] = STATE(539),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(539),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(1018),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6575),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(539),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1202),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1204),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -86169,16 +86028,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -86198,7 +86057,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1206),
+    [anon_sym_SEMI] = ACTIONS(1222),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -86260,147 +86119,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [156] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(498),
-    [sym_preproc_ifdef_in_statements] = STATE(498),
-    [sym_preproc_if_in_procedure_statements] = STATE(498),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(498),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5063),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6689),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+    [sym_preproc_include] = STATE(165),
+    [sym_preproc_def] = STATE(165),
+    [sym_preproc_function_def] = STATE(165),
+    [sym_preproc_call] = STATE(165),
+    [sym_preproc_if_in_specification_part] = STATE(165),
+    [sym_preproc_ifdef_in_specification_part] = STATE(165),
+    [sym_preproc_if_in_statements] = STATE(527),
+    [sym_preproc_ifdef_in_statements] = STATE(527),
+    [sym_preproc_if_in_procedure_statements] = STATE(527),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(527),
+    [sym_interface] = STATE(165),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4947),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6479),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(165),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(165),
+    [sym_public_statement] = STATE(165),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(165),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(498),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(165),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(165),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(165),
+    [aux_sym_subroutine_repeat1] = STATE(527),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1202),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1224),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1204),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1226),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -86412,16 +86271,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -86441,7 +86300,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1208),
+    [anon_sym_SEMI] = ACTIONS(1228),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -86503,147 +86362,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [157] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(501),
-    [sym_preproc_ifdef_in_statements] = STATE(501),
-    [sym_preproc_if_in_procedure_statements] = STATE(501),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(501),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4756),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6703),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(501),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(533),
+    [sym_preproc_ifdef_in_statements] = STATE(533),
+    [sym_preproc_if_in_procedure_statements] = STATE(533),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(533),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4713),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7017),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(533),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1210),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1230),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1212),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1232),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -86655,16 +86514,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -86684,7 +86543,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1214),
+    [anon_sym_SEMI] = ACTIONS(1234),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -86746,119 +86605,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [158] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(502),
-    [sym_preproc_ifdef_in_statements] = STATE(502),
-    [sym_preproc_if_in_procedure_statements] = STATE(502),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(502),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4758),
-    [sym_internal_procedures] = STATE(6706),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(502),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(530),
+    [sym_preproc_ifdef_in_statements] = STATE(530),
+    [sym_preproc_if_in_procedure_statements] = STATE(530),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(530),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4715),
+    [sym_internal_procedures] = STATE(7022),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(530),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -86869,20 +86728,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1216),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1236),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1218),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1238),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -86898,16 +86757,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -86927,7 +86786,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1220),
+    [anon_sym_SEMI] = ACTIONS(1240),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -86989,147 +86848,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [159] = {
-    [sym_preproc_include] = STATE(151),
-    [sym_preproc_def] = STATE(151),
-    [sym_preproc_function_def] = STATE(151),
-    [sym_preproc_call] = STATE(151),
-    [sym_preproc_if_in_specification_part] = STATE(151),
-    [sym_preproc_ifdef_in_specification_part] = STATE(151),
-    [sym_preproc_if_in_statements] = STATE(493),
-    [sym_preproc_ifdef_in_statements] = STATE(493),
-    [sym_preproc_if_in_procedure_statements] = STATE(493),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(493),
-    [sym_interface] = STATE(151),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5124),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6635),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(151),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(151),
-    [sym_public_statement] = STATE(151),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(151),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(151),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(151),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(151),
-    [aux_sym_subroutine_repeat1] = STATE(493),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(506),
+    [sym_preproc_ifdef_in_statements] = STATE(506),
+    [sym_preproc_if_in_procedure_statements] = STATE(506),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(506),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5029),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7260),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(506),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1186),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1242),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1188),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1244),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -87141,16 +87000,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -87170,7 +87029,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1222),
+    [anon_sym_SEMI] = ACTIONS(1246),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -87232,119 +87091,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [160] = {
-    [sym_preproc_include] = STATE(152),
-    [sym_preproc_def] = STATE(152),
-    [sym_preproc_function_def] = STATE(152),
-    [sym_preproc_call] = STATE(152),
-    [sym_preproc_if_in_specification_part] = STATE(152),
-    [sym_preproc_ifdef_in_specification_part] = STATE(152),
-    [sym_preproc_if_in_statements] = STATE(494),
-    [sym_preproc_ifdef_in_statements] = STATE(494),
-    [sym_preproc_if_in_procedure_statements] = STATE(494),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(494),
-    [sym_interface] = STATE(152),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5125),
-    [sym_internal_procedures] = STATE(6637),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(152),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(152),
-    [sym_public_statement] = STATE(152),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(152),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(152),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(152),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(152),
-    [aux_sym_subroutine_repeat1] = STATE(494),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(481),
+    [sym_preproc_ifdef_in_statements] = STATE(481),
+    [sym_preproc_if_in_procedure_statements] = STATE(481),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(481),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4854),
+    [sym_internal_procedures] = STATE(7178),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(481),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -87355,20 +87214,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1112),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1194),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1114),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -87384,16 +87243,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -87413,7 +87272,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1224),
+    [anon_sym_SEMI] = ACTIONS(1248),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -87475,147 +87334,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [161] = {
-    [sym_preproc_include] = STATE(162),
-    [sym_preproc_def] = STATE(162),
-    [sym_preproc_function_def] = STATE(162),
-    [sym_preproc_call] = STATE(162),
-    [sym_preproc_if_in_specification_part] = STATE(162),
-    [sym_preproc_ifdef_in_specification_part] = STATE(162),
+    [sym_preproc_include] = STATE(145),
+    [sym_preproc_def] = STATE(145),
+    [sym_preproc_function_def] = STATE(145),
+    [sym_preproc_call] = STATE(145),
+    [sym_preproc_if_in_specification_part] = STATE(145),
+    [sym_preproc_ifdef_in_specification_part] = STATE(145),
     [sym_preproc_if_in_statements] = STATE(504),
     [sym_preproc_ifdef_in_statements] = STATE(504),
     [sym_preproc_if_in_procedure_statements] = STATE(504),
     [sym_preproc_ifdef_in_procedure_statements] = STATE(504),
-    [sym_interface] = STATE(162),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(4896),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6742),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(162),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(162),
-    [sym_public_statement] = STATE(162),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(162),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(162),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(162),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(162),
+    [sym_interface] = STATE(145),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5081),
+    [sym_internal_procedures] = STATE(6885),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(145),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(145),
+    [sym_public_statement] = STATE(145),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(145),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(145),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(145),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(145),
     [aux_sym_subroutine_repeat1] = STATE(504),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1226),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1182),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1228),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1184),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -87627,16 +87486,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -87656,7 +87515,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1230),
+    [anon_sym_SEMI] = ACTIONS(1250),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -87718,147 +87577,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [162] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(505),
-    [sym_preproc_ifdef_in_statements] = STATE(505),
-    [sym_preproc_if_in_procedure_statements] = STATE(505),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(505),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(4904),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6752),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
+    [sym_preproc_include] = STATE(164),
+    [sym_preproc_def] = STATE(164),
+    [sym_preproc_function_def] = STATE(164),
+    [sym_preproc_call] = STATE(164),
+    [sym_preproc_if_in_specification_part] = STATE(164),
+    [sym_preproc_ifdef_in_specification_part] = STATE(164),
+    [sym_preproc_if_in_statements] = STATE(528),
+    [sym_preproc_ifdef_in_statements] = STATE(528),
+    [sym_preproc_if_in_procedure_statements] = STATE(528),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(528),
+    [sym_interface] = STATE(164),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4788),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7090),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(164),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(164),
+    [sym_public_statement] = STATE(164),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(164),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
     [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(505),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(164),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(164),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(164),
+    [aux_sym_subroutine_repeat1] = STATE(528),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1226),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1252),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1228),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1254),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -87870,16 +87729,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -87899,7 +87758,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1232),
+    [anon_sym_SEMI] = ACTIONS(1256),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -87961,147 +87820,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [163] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(540),
-    [sym_preproc_ifdef_in_statements] = STATE(540),
-    [sym_preproc_if_in_procedure_statements] = STATE(540),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(540),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4548),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6766),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(540),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(482),
+    [sym_preproc_ifdef_in_statements] = STATE(482),
+    [sym_preproc_if_in_procedure_statements] = STATE(482),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(482),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4862),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7192),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(482),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1234),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1132),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1236),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1134),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -88113,16 +87972,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -88142,7 +88001,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1238),
+    [anon_sym_SEMI] = ACTIONS(1258),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -88204,147 +88063,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [164] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(509),
-    [sym_preproc_ifdef_in_statements] = STATE(509),
-    [sym_preproc_if_in_procedure_statements] = STATE(509),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(509),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4559),
-    [sym_internal_procedures] = STATE(6769),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(509),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(525),
+    [sym_preproc_ifdef_in_statements] = STATE(525),
+    [sym_preproc_if_in_procedure_statements] = STATE(525),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(525),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4822),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7108),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(525),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1240),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1252),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1254),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1242),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -88356,16 +88215,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -88385,7 +88244,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1244),
+    [anon_sym_SEMI] = ACTIONS(1260),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -88447,147 +88306,147 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [165] = {
-    [sym_preproc_include] = STATE(157),
-    [sym_preproc_def] = STATE(157),
-    [sym_preproc_function_def] = STATE(157),
-    [sym_preproc_call] = STATE(157),
-    [sym_preproc_if_in_specification_part] = STATE(157),
-    [sym_preproc_ifdef_in_specification_part] = STATE(157),
-    [sym_preproc_if_in_statements] = STATE(499),
-    [sym_preproc_ifdef_in_statements] = STATE(499),
-    [sym_preproc_if_in_procedure_statements] = STATE(499),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(499),
-    [sym_interface] = STATE(157),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4753),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6698),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(157),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(157),
-    [sym_public_statement] = STATE(157),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(157),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(157),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(157),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(157),
-    [aux_sym_subroutine_repeat1] = STATE(499),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_preproc_if_in_statements] = STATE(531),
+    [sym_preproc_ifdef_in_statements] = STATE(531),
+    [sym_preproc_if_in_procedure_statements] = STATE(531),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(531),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4946),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6509),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_subroutine_repeat1] = STATE(531),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1210),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1224),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1212),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1226),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -88599,16 +88458,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -88628,7 +88487,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1246),
+    [anon_sym_SEMI] = ACTIONS(1262),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -88690,119 +88549,362 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [166] = {
-    [sym_preproc_include] = STATE(158),
-    [sym_preproc_def] = STATE(158),
-    [sym_preproc_function_def] = STATE(158),
-    [sym_preproc_call] = STATE(158),
-    [sym_preproc_if_in_specification_part] = STATE(158),
-    [sym_preproc_ifdef_in_specification_part] = STATE(158),
-    [sym_preproc_if_in_statements] = STATE(500),
-    [sym_preproc_ifdef_in_statements] = STATE(500),
-    [sym_preproc_if_in_procedure_statements] = STATE(500),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(500),
-    [sym_interface] = STATE(158),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4754),
-    [sym_internal_procedures] = STATE(6700),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(158),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(158),
-    [sym_public_statement] = STATE(158),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(158),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(158),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(158),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(158),
-    [aux_sym_subroutine_repeat1] = STATE(500),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(487),
+    [sym_preproc_ifdef_in_statements] = STATE(487),
+    [sym_preproc_if_in_procedure_statements] = STATE(487),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(487),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5037),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6630),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(487),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1214),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1216),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(1264),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [167] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(488),
+    [sym_preproc_ifdef_in_statements] = STATE(488),
+    [sym_preproc_if_in_procedure_statements] = STATE(488),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(488),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5045),
+    [sym_internal_procedures] = STATE(6624),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(488),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -88813,20 +88915,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1216),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1266),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1218),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1268),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -88842,16 +88944,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -88871,7 +88973,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1248),
+    [anon_sym_SEMI] = ACTIONS(1270),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -88932,148 +89034,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [167] = {
-    [sym_preproc_include] = STATE(168),
-    [sym_preproc_def] = STATE(168),
-    [sym_preproc_function_def] = STATE(168),
-    [sym_preproc_call] = STATE(168),
-    [sym_preproc_if_in_specification_part] = STATE(168),
-    [sym_preproc_ifdef_in_specification_part] = STATE(168),
-    [sym_preproc_if_in_statements] = STATE(510),
-    [sym_preproc_ifdef_in_statements] = STATE(510),
-    [sym_preproc_if_in_procedure_statements] = STATE(510),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(510),
-    [sym_interface] = STATE(168),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5220),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6802),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(168),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(168),
-    [sym_public_statement] = STATE(168),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(168),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(168),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(168),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(168),
-    [aux_sym_subroutine_repeat1] = STATE(510),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+  [168] = {
+    [sym_preproc_include] = STATE(138),
+    [sym_preproc_def] = STATE(138),
+    [sym_preproc_function_def] = STATE(138),
+    [sym_preproc_call] = STATE(138),
+    [sym_preproc_if_in_specification_part] = STATE(138),
+    [sym_preproc_ifdef_in_specification_part] = STATE(138),
+    [sym_preproc_if_in_statements] = STATE(478),
+    [sym_preproc_ifdef_in_statements] = STATE(478),
+    [sym_preproc_if_in_procedure_statements] = STATE(478),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(478),
+    [sym_interface] = STATE(138),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5192),
+    [sym_internal_procedures] = STATE(7094),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(138),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(138),
+    [sym_public_statement] = STATE(138),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(138),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(138),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(138),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(138),
+    [aux_sym_subroutine_repeat1] = STATE(478),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1250),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1152),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1252),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1154),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -89085,16 +89187,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -89114,7 +89216,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1254),
+    [anon_sym_SEMI] = ACTIONS(1272),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -89175,148 +89277,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [168] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_preproc_if_in_statements] = STATE(511),
-    [sym_preproc_ifdef_in_statements] = STATE(511),
-    [sym_preproc_if_in_procedure_statements] = STATE(511),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(511),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5229),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6811),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_subroutine_repeat1] = STATE(511),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+  [169] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(522),
+    [sym_preproc_ifdef_in_statements] = STATE(522),
+    [sym_preproc_if_in_procedure_statements] = STATE(522),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(522),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4529),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7139),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(522),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1250),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1252),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -89328,16 +89430,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -89357,7 +89459,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1256),
+    [anon_sym_SEMI] = ACTIONS(1278),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -89418,148 +89520,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [169] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(514),
-    [sym_preproc_ifdef_in_statements] = STATE(514),
-    [sym_preproc_if_in_procedure_statements] = STATE(514),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(514),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5065),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6824),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(514),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [170] = {
+    [sym_preproc_include] = STATE(169),
+    [sym_preproc_def] = STATE(169),
+    [sym_preproc_function_def] = STATE(169),
+    [sym_preproc_call] = STATE(169),
+    [sym_preproc_if_in_specification_part] = STATE(169),
+    [sym_preproc_ifdef_in_specification_part] = STATE(169),
+    [sym_preproc_if_in_statements] = STATE(524),
+    [sym_preproc_ifdef_in_statements] = STATE(524),
+    [sym_preproc_if_in_procedure_statements] = STATE(524),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(524),
+    [sym_interface] = STATE(169),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4518),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7128),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(169),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(169),
+    [sym_public_statement] = STATE(169),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(169),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(169),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(169),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(169),
+    [aux_sym_subroutine_repeat1] = STATE(524),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1258),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1260),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -89571,16 +89673,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -89600,7 +89702,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1262),
+    [anon_sym_SEMI] = ACTIONS(1280),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -89661,120 +89763,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [170] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(515),
-    [sym_preproc_ifdef_in_statements] = STATE(515),
-    [sym_preproc_if_in_procedure_statements] = STATE(515),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(515),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5079),
-    [sym_internal_procedures] = STATE(6828),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(515),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [171] = {
+    [sym_preproc_include] = STATE(167),
+    [sym_preproc_def] = STATE(167),
+    [sym_preproc_function_def] = STATE(167),
+    [sym_preproc_call] = STATE(167),
+    [sym_preproc_if_in_specification_part] = STATE(167),
+    [sym_preproc_ifdef_in_specification_part] = STATE(167),
+    [sym_preproc_if_in_statements] = STATE(486),
+    [sym_preproc_ifdef_in_statements] = STATE(486),
+    [sym_preproc_if_in_procedure_statements] = STATE(486),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(486),
+    [sym_interface] = STATE(167),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5032),
+    [sym_internal_procedures] = STATE(6632),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(167),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(167),
+    [sym_public_statement] = STATE(167),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(167),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(167),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(167),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(167),
+    [aux_sym_subroutine_repeat1] = STATE(486),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -89785,20 +89887,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1264),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1266),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1266),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1268),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -89814,16 +89916,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -89843,7 +89945,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1268),
+    [anon_sym_SEMI] = ACTIONS(1282),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -89904,148 +90006,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [171] = {
-    [sym_preproc_include] = STATE(163),
-    [sym_preproc_def] = STATE(163),
-    [sym_preproc_function_def] = STATE(163),
-    [sym_preproc_call] = STATE(163),
-    [sym_preproc_if_in_specification_part] = STATE(163),
-    [sym_preproc_ifdef_in_specification_part] = STATE(163),
-    [sym_preproc_if_in_statements] = STATE(506),
-    [sym_preproc_ifdef_in_statements] = STATE(506),
-    [sym_preproc_if_in_procedure_statements] = STATE(506),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(506),
-    [sym_interface] = STATE(163),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4587),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6761),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(163),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(163),
-    [sym_public_statement] = STATE(163),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(163),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(163),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(163),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(163),
-    [aux_sym_subroutine_repeat1] = STATE(506),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [172] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(499),
+    [sym_preproc_ifdef_in_statements] = STATE(499),
+    [sym_preproc_if_in_procedure_statements] = STATE(499),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(499),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4603),
+    [sym_internal_procedures] = STATE(6506),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(499),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1234),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1236),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1120),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -90057,16 +90159,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -90086,7 +90188,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1270),
+    [anon_sym_SEMI] = ACTIONS(1284),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -90147,120 +90249,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [172] = {
-    [sym_preproc_include] = STATE(164),
-    [sym_preproc_def] = STATE(164),
-    [sym_preproc_function_def] = STATE(164),
-    [sym_preproc_call] = STATE(164),
-    [sym_preproc_if_in_specification_part] = STATE(164),
-    [sym_preproc_ifdef_in_specification_part] = STATE(164),
-    [sym_preproc_if_in_statements] = STATE(507),
-    [sym_preproc_ifdef_in_statements] = STATE(507),
-    [sym_preproc_if_in_procedure_statements] = STATE(507),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(507),
-    [sym_interface] = STATE(164),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4623),
-    [sym_internal_procedures] = STATE(6763),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(164),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(164),
-    [sym_public_statement] = STATE(164),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(164),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(164),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(164),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(164),
-    [aux_sym_subroutine_repeat1] = STATE(507),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [173] = {
+    [sym_preproc_include] = STATE(133),
+    [sym_preproc_def] = STATE(133),
+    [sym_preproc_function_def] = STATE(133),
+    [sym_preproc_call] = STATE(133),
+    [sym_preproc_if_in_specification_part] = STATE(133),
+    [sym_preproc_ifdef_in_specification_part] = STATE(133),
+    [sym_preproc_if_in_statements] = STATE(509),
+    [sym_preproc_ifdef_in_statements] = STATE(509),
+    [sym_preproc_if_in_procedure_statements] = STATE(509),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(509),
+    [sym_interface] = STATE(133),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4992),
+    [sym_internal_procedures] = STATE(7254),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(133),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(133),
+    [sym_public_statement] = STATE(133),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(133),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(133),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(133),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(133),
+    [aux_sym_subroutine_repeat1] = STATE(509),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -90271,20 +90373,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1240),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1126),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1242),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1128),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -90300,16 +90402,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -90329,7 +90431,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1272),
+    [anon_sym_SEMI] = ACTIONS(1286),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -90390,148 +90492,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [173] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(518),
-    [sym_preproc_ifdef_in_statements] = STATE(518),
-    [sym_preproc_if_in_procedure_statements] = STATE(518),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(518),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5161),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6873),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(518),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [174] = {
+    [sym_preproc_include] = STATE(159),
+    [sym_preproc_def] = STATE(159),
+    [sym_preproc_function_def] = STATE(159),
+    [sym_preproc_call] = STATE(159),
+    [sym_preproc_if_in_specification_part] = STATE(159),
+    [sym_preproc_ifdef_in_specification_part] = STATE(159),
+    [sym_preproc_if_in_statements] = STATE(510),
+    [sym_preproc_ifdef_in_statements] = STATE(510),
+    [sym_preproc_if_in_procedure_statements] = STATE(510),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(510),
+    [sym_interface] = STATE(159),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4993),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7249),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(159),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(159),
+    [sym_public_statement] = STATE(159),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(159),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(159),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(159),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(159),
+    [aux_sym_subroutine_repeat1] = STATE(510),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1242),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1244),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -90543,16 +90645,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -90572,7 +90674,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1278),
+    [anon_sym_SEMI] = ACTIONS(1288),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -90633,148 +90735,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [174] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(519),
-    [sym_preproc_ifdef_in_statements] = STATE(519),
-    [sym_preproc_if_in_procedure_statements] = STATE(519),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(519),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5169),
-    [sym_internal_procedures] = STATE(6878),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(519),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [175] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(501),
+    [sym_preproc_ifdef_in_statements] = STATE(501),
+    [sym_preproc_if_in_procedure_statements] = STATE(501),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(501),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4602),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6504),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(501),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1280),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1282),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -90786,16 +90888,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -90815,7 +90917,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1284),
+    [anon_sym_SEMI] = ACTIONS(1294),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -90876,148 +90978,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [175] = {
-    [sym_preproc_include] = STATE(169),
-    [sym_preproc_def] = STATE(169),
-    [sym_preproc_function_def] = STATE(169),
-    [sym_preproc_call] = STATE(169),
-    [sym_preproc_if_in_specification_part] = STATE(169),
-    [sym_preproc_ifdef_in_specification_part] = STATE(169),
-    [sym_preproc_if_in_statements] = STATE(512),
-    [sym_preproc_ifdef_in_statements] = STATE(512),
-    [sym_preproc_if_in_procedure_statements] = STATE(512),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(512),
-    [sym_interface] = STATE(169),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5036),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6819),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(169),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(169),
-    [sym_public_statement] = STATE(169),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(169),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(169),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(169),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(169),
-    [aux_sym_subroutine_repeat1] = STATE(512),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [176] = {
+    [sym_preproc_include] = STATE(120),
+    [sym_preproc_def] = STATE(120),
+    [sym_preproc_function_def] = STATE(120),
+    [sym_preproc_call] = STATE(120),
+    [sym_preproc_if_in_specification_part] = STATE(120),
+    [sym_preproc_ifdef_in_specification_part] = STATE(120),
+    [sym_preproc_if_in_statements] = STATE(523),
+    [sym_preproc_ifdef_in_statements] = STATE(523),
+    [sym_preproc_if_in_procedure_statements] = STATE(523),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(523),
+    [sym_interface] = STATE(120),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4522),
+    [sym_internal_procedures] = STATE(7133),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(120),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(120),
+    [sym_public_statement] = STATE(120),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(120),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(120),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(120),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(120),
+    [aux_sym_subroutine_repeat1] = STATE(523),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1258),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1260),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -91029,16 +91131,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -91058,7 +91160,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1286),
+    [anon_sym_SEMI] = ACTIONS(1296),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -91119,148 +91221,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [176] = {
-    [sym_preproc_include] = STATE(170),
-    [sym_preproc_def] = STATE(170),
-    [sym_preproc_function_def] = STATE(170),
-    [sym_preproc_call] = STATE(170),
-    [sym_preproc_if_in_specification_part] = STATE(170),
-    [sym_preproc_ifdef_in_specification_part] = STATE(170),
-    [sym_preproc_if_in_statements] = STATE(513),
-    [sym_preproc_ifdef_in_statements] = STATE(513),
-    [sym_preproc_if_in_procedure_statements] = STATE(513),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(513),
-    [sym_interface] = STATE(170),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5038),
-    [sym_internal_procedures] = STATE(6822),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(170),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(170),
-    [sym_public_statement] = STATE(170),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(170),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(170),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(170),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(170),
-    [aux_sym_subroutine_repeat1] = STATE(513),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [177] = {
+    [sym_preproc_include] = STATE(187),
+    [sym_preproc_def] = STATE(187),
+    [sym_preproc_function_def] = STATE(187),
+    [sym_preproc_call] = STATE(187),
+    [sym_preproc_if_in_specification_part] = STATE(187),
+    [sym_preproc_ifdef_in_specification_part] = STATE(187),
+    [sym_preproc_if_in_statements] = STATE(521),
+    [sym_preproc_ifdef_in_statements] = STATE(521),
+    [sym_preproc_if_in_procedure_statements] = STATE(521),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(521),
+    [sym_interface] = STATE(187),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(900),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6676),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(187),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(187),
+    [sym_public_statement] = STATE(187),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(187),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(187),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(187),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(187),
+    [aux_sym_subroutine_repeat1] = STATE(521),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1264),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1298),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1300),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1266),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -91272,16 +91374,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -91301,7 +91403,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1288),
+    [anon_sym_SEMI] = ACTIONS(1302),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -91362,126 +91464,369 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [177] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(522),
-    [sym_preproc_ifdef_in_statements] = STATE(522),
-    [sym_preproc_if_in_procedure_statements] = STATE(522),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(522),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4791),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6923),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(522),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [178] = {
+    [sym_preproc_include] = STATE(185),
+    [sym_preproc_def] = STATE(185),
+    [sym_preproc_function_def] = STATE(185),
+    [sym_preproc_call] = STATE(185),
+    [sym_preproc_if_in_specification_part] = STATE(185),
+    [sym_preproc_ifdef_in_specification_part] = STATE(185),
+    [sym_preproc_if_in_statements] = STATE(518),
+    [sym_preproc_ifdef_in_statements] = STATE(518),
+    [sym_preproc_if_in_procedure_statements] = STATE(518),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(518),
+    [sym_interface] = STATE(185),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(903),
+    [sym_internal_procedures] = STATE(6610),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(185),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(185),
+    [sym_public_statement] = STATE(185),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(185),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(185),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(185),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(185),
+    [aux_sym_subroutine_repeat1] = STATE(518),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1304),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1306),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(1308),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [179] = {
+    [sym_preproc_include] = STATE(175),
+    [sym_preproc_def] = STATE(175),
+    [sym_preproc_function_def] = STATE(175),
+    [sym_preproc_call] = STATE(175),
+    [sym_preproc_if_in_specification_part] = STATE(175),
+    [sym_preproc_ifdef_in_specification_part] = STATE(175),
+    [sym_preproc_if_in_statements] = STATE(512),
+    [sym_preproc_ifdef_in_statements] = STATE(512),
+    [sym_preproc_if_in_procedure_statements] = STATE(512),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(512),
+    [sym_interface] = STATE(175),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4592),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6496),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(175),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(175),
+    [sym_public_statement] = STATE(175),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(175),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(175),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(175),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(175),
+    [aux_sym_subroutine_repeat1] = STATE(512),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -91493,17 +91838,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -91515,16 +91860,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -91544,7 +91889,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1294),
+    [anon_sym_SEMI] = ACTIONS(1310),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -91605,120 +91950,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [178] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(523),
-    [sym_preproc_ifdef_in_statements] = STATE(523),
-    [sym_preproc_if_in_procedure_statements] = STATE(523),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(523),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4793),
-    [sym_internal_procedures] = STATE(6926),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(523),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [180] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(493),
+    [sym_preproc_ifdef_in_statements] = STATE(493),
+    [sym_preproc_if_in_procedure_statements] = STATE(493),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(493),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(5025),
+    [sym_internal_procedures] = STATE(7262),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(493),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -91729,20 +92074,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1296),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1198),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1298),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1200),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -91758,16 +92103,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -91787,7 +92132,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1300),
+    [anon_sym_SEMI] = ACTIONS(1312),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -91848,148 +92193,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [179] = {
-    [sym_preproc_include] = STATE(173),
-    [sym_preproc_def] = STATE(173),
-    [sym_preproc_function_def] = STATE(173),
-    [sym_preproc_call] = STATE(173),
-    [sym_preproc_if_in_specification_part] = STATE(173),
-    [sym_preproc_ifdef_in_specification_part] = STATE(173),
-    [sym_preproc_if_in_statements] = STATE(516),
-    [sym_preproc_ifdef_in_statements] = STATE(516),
-    [sym_preproc_if_in_procedure_statements] = STATE(516),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(516),
-    [sym_interface] = STATE(173),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4956),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6868),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(173),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(173),
-    [sym_public_statement] = STATE(173),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(173),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(173),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(173),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(173),
-    [aux_sym_subroutine_repeat1] = STATE(516),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [181] = {
+    [sym_preproc_include] = STATE(139),
+    [sym_preproc_def] = STATE(139),
+    [sym_preproc_function_def] = STATE(139),
+    [sym_preproc_call] = STATE(139),
+    [sym_preproc_if_in_specification_part] = STATE(139),
+    [sym_preproc_ifdef_in_specification_part] = STATE(139),
+    [sym_preproc_if_in_statements] = STATE(515),
+    [sym_preproc_ifdef_in_statements] = STATE(515),
+    [sym_preproc_if_in_procedure_statements] = STATE(515),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(515),
+    [sym_interface] = STATE(139),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(4974),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7211),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(139),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(139),
+    [sym_public_statement] = STATE(139),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(139),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(139),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(139),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(139),
+    [aux_sym_subroutine_repeat1] = STATE(515),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1158),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1160),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -92001,16 +92346,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -92030,7 +92375,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1302),
+    [anon_sym_SEMI] = ACTIONS(1314),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -92091,148 +92436,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [180] = {
-    [sym_preproc_include] = STATE(174),
-    [sym_preproc_def] = STATE(174),
-    [sym_preproc_function_def] = STATE(174),
-    [sym_preproc_call] = STATE(174),
-    [sym_preproc_if_in_specification_part] = STATE(174),
-    [sym_preproc_ifdef_in_specification_part] = STATE(174),
-    [sym_preproc_if_in_statements] = STATE(517),
-    [sym_preproc_ifdef_in_statements] = STATE(517),
-    [sym_preproc_if_in_procedure_statements] = STATE(517),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(517),
-    [sym_interface] = STATE(174),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5041),
-    [sym_internal_procedures] = STATE(6869),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(174),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(174),
-    [sym_public_statement] = STATE(174),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(174),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(174),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(174),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(174),
-    [aux_sym_subroutine_repeat1] = STATE(517),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [182] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(500),
+    [sym_preproc_ifdef_in_statements] = STATE(500),
+    [sym_preproc_if_in_procedure_statements] = STATE(500),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(500),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(5023),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7279),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(500),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1280),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1204),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1206),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1282),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -92244,16 +92589,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -92273,7 +92618,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1304),
+    [anon_sym_SEMI] = ACTIONS(1316),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -92334,148 +92679,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [181] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_preproc_if_in_statements] = STATE(528),
-    [sym_preproc_ifdef_in_statements] = STATE(528),
-    [sym_preproc_if_in_procedure_statements] = STATE(528),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(528),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5071),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6971),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_subroutine_repeat1] = STATE(528),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [183] = {
+    [sym_preproc_include] = STATE(157),
+    [sym_preproc_def] = STATE(157),
+    [sym_preproc_function_def] = STATE(157),
+    [sym_preproc_call] = STATE(157),
+    [sym_preproc_if_in_specification_part] = STATE(157),
+    [sym_preproc_ifdef_in_specification_part] = STATE(157),
+    [sym_preproc_if_in_statements] = STATE(535),
+    [sym_preproc_ifdef_in_statements] = STATE(535),
+    [sym_preproc_if_in_procedure_statements] = STATE(535),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(535),
+    [sym_interface] = STATE(157),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(4708),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7006),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(157),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(157),
+    [sym_public_statement] = STATE(157),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(157),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(157),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(157),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(157),
+    [aux_sym_subroutine_repeat1] = STATE(535),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1306),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1230),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1308),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1232),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -92487,16 +92832,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -92516,7 +92861,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1310),
+    [anon_sym_SEMI] = ACTIONS(1318),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -92577,148 +92922,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [182] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_preproc_if_in_statements] = STATE(529),
-    [sym_preproc_ifdef_in_statements] = STATE(529),
-    [sym_preproc_if_in_procedure_statements] = STATE(529),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(529),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5084),
-    [sym_internal_procedures] = STATE(6973),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_subroutine_repeat1] = STATE(529),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [184] = {
+    [sym_preproc_include] = STATE(141),
+    [sym_preproc_def] = STATE(141),
+    [sym_preproc_function_def] = STATE(141),
+    [sym_preproc_call] = STATE(141),
+    [sym_preproc_if_in_specification_part] = STATE(141),
+    [sym_preproc_ifdef_in_specification_part] = STATE(141),
+    [sym_preproc_if_in_statements] = STATE(495),
+    [sym_preproc_ifdef_in_statements] = STATE(495),
+    [sym_preproc_if_in_procedure_statements] = STATE(495),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(495),
+    [sym_interface] = STATE(141),
+    [sym_interface_statement] = STATE(3916),
+    [sym_end_module_procedure_statement] = STATE(5028),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6893),
+    [sym_contains_statement] = STATE(7155),
+    [sym__specification_part] = STATE(141),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(141),
+    [sym_public_statement] = STATE(141),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(141),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(788),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(7044),
+    [sym_data_statement] = STATE(7010),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_enum] = STATE(141),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(141),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_statement_function] = STATE(7010),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(141),
+    [aux_sym_subroutine_repeat1] = STATE(495),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1060),
+    [aux_sym_preproc_def_token1] = ACTIONS(1062),
+    [aux_sym_preproc_if_token1] = ACTIONS(1064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1066),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1066),
+    [sym_preproc_directive] = ACTIONS(1068),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1312),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1166),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1168),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1314),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(1074),
+    [aux_sym_public_statement_token1] = ACTIONS(1076),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -92730,16 +93075,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -92759,7 +93104,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1316),
+    [anon_sym_SEMI] = ACTIONS(1320),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -92820,148 +93165,148 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [183] = {
-    [sym_preproc_include] = STATE(177),
-    [sym_preproc_def] = STATE(177),
-    [sym_preproc_function_def] = STATE(177),
-    [sym_preproc_call] = STATE(177),
-    [sym_preproc_if_in_specification_part] = STATE(177),
-    [sym_preproc_ifdef_in_specification_part] = STATE(177),
-    [sym_preproc_if_in_statements] = STATE(520),
-    [sym_preproc_ifdef_in_statements] = STATE(520),
-    [sym_preproc_if_in_procedure_statements] = STATE(520),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(520),
-    [sym_interface] = STATE(177),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(4788),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6915),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(177),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(177),
-    [sym_public_statement] = STATE(177),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(177),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(177),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(177),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(177),
-    [aux_sym_subroutine_repeat1] = STATE(520),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+  [185] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_preproc_if_in_statements] = STATE(514),
+    [sym_preproc_ifdef_in_statements] = STATE(514),
+    [sym_preproc_if_in_procedure_statements] = STATE(514),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(514),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(897),
+    [sym_internal_procedures] = STATE(6653),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_subroutine_repeat1] = STATE(514),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1014),
+    [aux_sym_preproc_def_token1] = ACTIONS(1016),
+    [aux_sym_preproc_if_token1] = ACTIONS(1018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
+    [sym_preproc_directive] = ACTIONS(1022),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1304),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1306),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(1028),
+    [aux_sym_public_statement_token1] = ACTIONS(1030),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -92973,16 +93318,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -93002,7 +93347,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1318),
+    [anon_sym_SEMI] = ACTIONS(1322),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -93063,120 +93408,120 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [184] = {
-    [sym_preproc_include] = STATE(178),
-    [sym_preproc_def] = STATE(178),
-    [sym_preproc_function_def] = STATE(178),
-    [sym_preproc_call] = STATE(178),
-    [sym_preproc_if_in_specification_part] = STATE(178),
-    [sym_preproc_ifdef_in_specification_part] = STATE(178),
-    [sym_preproc_if_in_statements] = STATE(521),
-    [sym_preproc_ifdef_in_statements] = STATE(521),
-    [sym_preproc_if_in_procedure_statements] = STATE(521),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(521),
-    [sym_interface] = STATE(178),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(4789),
-    [sym_internal_procedures] = STATE(6919),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(178),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(178),
-    [sym_public_statement] = STATE(178),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(178),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(178),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(178),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(178),
-    [aux_sym_subroutine_repeat1] = STATE(521),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [186] = {
+    [sym_preproc_include] = STATE(158),
+    [sym_preproc_def] = STATE(158),
+    [sym_preproc_function_def] = STATE(158),
+    [sym_preproc_call] = STATE(158),
+    [sym_preproc_if_in_specification_part] = STATE(158),
+    [sym_preproc_ifdef_in_specification_part] = STATE(158),
+    [sym_preproc_if_in_statements] = STATE(534),
+    [sym_preproc_ifdef_in_statements] = STATE(534),
+    [sym_preproc_if_in_procedure_statements] = STATE(534),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(534),
+    [sym_interface] = STATE(158),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym_end_function_statement] = STATE(4771),
+    [sym_internal_procedures] = STATE(7011),
+    [sym_contains_statement] = STATE(6907),
+    [sym__specification_part] = STATE(158),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(158),
+    [sym_public_statement] = STATE(158),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(158),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(775),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6609),
+    [sym_data_statement] = STATE(7034),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_enum] = STATE(158),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(158),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_statement_function] = STATE(7034),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(158),
+    [aux_sym_subroutine_repeat1] = STATE(534),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1014),
     [aux_sym_preproc_def_token1] = ACTIONS(1016),
     [aux_sym_preproc_if_token1] = ACTIONS(1018),
@@ -93187,20 +93532,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1296),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1236),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1298),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1238),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1028),
@@ -93216,16 +93561,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -93245,7 +93590,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1320),
+    [anon_sym_SEMI] = ACTIONS(1324),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -93306,148 +93651,389 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [185] = {
-    [sym_preproc_include] = STATE(181),
-    [sym_preproc_def] = STATE(181),
-    [sym_preproc_function_def] = STATE(181),
-    [sym_preproc_call] = STATE(181),
-    [sym_preproc_if_in_specification_part] = STATE(181),
-    [sym_preproc_ifdef_in_specification_part] = STATE(181),
-    [sym_preproc_if_in_statements] = STATE(526),
-    [sym_preproc_ifdef_in_statements] = STATE(526),
-    [sym_preproc_if_in_procedure_statements] = STATE(526),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(526),
-    [sym_interface] = STATE(181),
-    [sym_interface_statement] = STATE(3919),
-    [sym_end_subroutine_statement] = STATE(5012),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6965),
-    [sym_contains_statement] = STATE(6585),
-    [sym__specification_part] = STATE(181),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(181),
-    [sym_public_statement] = STATE(181),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(181),
-    [sym_abstract_specifier] = STATE(7975),
+  [187] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_preproc_if_in_statements] = STATE(517),
+    [sym_preproc_ifdef_in_statements] = STATE(517),
+    [sym_preproc_if_in_procedure_statements] = STATE(517),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(517),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_end_subroutine_statement] = STATE(874),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6646),
+    [sym_contains_statement] = STATE(6767),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(780),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(6570),
+    [sym_data_statement] = STATE(6908),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_statement_function] = STATE(6908),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_subroutine_repeat1] = STATE(517),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1034),
+    [aux_sym_preproc_def_token1] = ACTIONS(1036),
+    [aux_sym_preproc_if_token1] = ACTIONS(1038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1040),
+    [sym_preproc_directive] = ACTIONS(1042),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1298),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1300),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(1048),
+    [aux_sym_public_statement_token1] = ACTIONS(1050),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [anon_sym_SEMI] = ACTIONS(1326),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(191),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [188] = {
+    [sym_preproc_include] = STATE(190),
+    [sym_preproc_def] = STATE(190),
+    [sym_preproc_function_def] = STATE(190),
+    [sym_preproc_call] = STATE(190),
+    [sym_preproc_if_in_specification_part] = STATE(190),
+    [sym_preproc_ifdef_in_specification_part] = STATE(190),
+    [sym_preproc_if_in_statements] = STATE(606),
+    [sym_preproc_ifdef_in_statements] = STATE(606),
+    [sym_end_program_statement] = STATE(902),
+    [sym_interface] = STATE(190),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6990),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(190),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(190),
+    [sym_public_statement] = STATE(190),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(190),
+    [sym_abstract_specifier] = STATE(7723),
     [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(784),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7245),
-    [sym_data_statement] = STATE(6654),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_enum] = STATE(181),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(181),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_statement_function] = STATE(6654),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(181),
-    [aux_sym_subroutine_repeat1] = STATE(526),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1076),
-    [aux_sym_preproc_def_token1] = ACTIONS(1078),
-    [aux_sym_preproc_if_token1] = ACTIONS(1080),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1082),
-    [sym_preproc_directive] = ACTIONS(1084),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(190),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(190),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(606),
+    [aux_sym_program_repeat1] = STATE(190),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1328),
+    [aux_sym_preproc_def_token1] = ACTIONS(1330),
+    [aux_sym_preproc_if_token1] = ACTIONS(1332),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
+    [sym_preproc_directive] = ACTIONS(1336),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1306),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1308),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1090),
-    [aux_sym_public_statement_token1] = ACTIONS(1092),
+    [aux_sym_private_statement_token1] = ACTIONS(61),
+    [aux_sym_public_statement_token1] = ACTIONS(63),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -93459,16 +94045,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -93488,7 +94074,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1322),
+    [anon_sym_SEMI] = ACTIONS(1338),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -93549,148 +94135,146 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [186] = {
-    [sym_preproc_include] = STATE(182),
-    [sym_preproc_def] = STATE(182),
-    [sym_preproc_function_def] = STATE(182),
-    [sym_preproc_call] = STATE(182),
-    [sym_preproc_if_in_specification_part] = STATE(182),
-    [sym_preproc_ifdef_in_specification_part] = STATE(182),
-    [sym_preproc_if_in_statements] = STATE(527),
-    [sym_preproc_ifdef_in_statements] = STATE(527),
-    [sym_preproc_if_in_procedure_statements] = STATE(527),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(527),
-    [sym_interface] = STATE(182),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym_end_function_statement] = STATE(5017),
-    [sym_internal_procedures] = STATE(6967),
-    [sym_contains_statement] = STATE(6653),
-    [sym__specification_part] = STATE(182),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(182),
-    [sym_public_statement] = STATE(182),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(182),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(786),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6516),
-    [sym_data_statement] = STATE(6714),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_enum] = STATE(182),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(182),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_statement_function] = STATE(6714),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(182),
-    [aux_sym_subroutine_repeat1] = STATE(527),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1014),
-    [aux_sym_preproc_def_token1] = ACTIONS(1016),
-    [aux_sym_preproc_if_token1] = ACTIONS(1018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1020),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1020),
-    [sym_preproc_directive] = ACTIONS(1022),
+  [189] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(606),
+    [sym_preproc_ifdef_in_statements] = STATE(606),
+    [sym_end_program_statement] = STATE(902),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6990),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(606),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1328),
+    [aux_sym_preproc_def_token1] = ACTIONS(1330),
+    [aux_sym_preproc_if_token1] = ACTIONS(1332),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
+    [sym_preproc_directive] = ACTIONS(1336),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1312),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1314),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1028),
-    [aux_sym_public_statement_token1] = ACTIONS(1030),
+    [aux_sym_private_statement_token1] = ACTIONS(61),
+    [aux_sym_public_statement_token1] = ACTIONS(63),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -93702,16 +94286,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -93731,7 +94315,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1324),
+    [anon_sym_SEMI] = ACTIONS(1338),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -93792,148 +94376,146 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [187] = {
-    [sym_preproc_include] = STATE(150),
-    [sym_preproc_def] = STATE(150),
-    [sym_preproc_function_def] = STATE(150),
-    [sym_preproc_call] = STATE(150),
-    [sym_preproc_if_in_specification_part] = STATE(150),
-    [sym_preproc_ifdef_in_specification_part] = STATE(150),
-    [sym_preproc_if_in_statements] = STATE(491),
-    [sym_preproc_ifdef_in_statements] = STATE(491),
-    [sym_preproc_if_in_procedure_statements] = STATE(491),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(491),
-    [sym_interface] = STATE(150),
-    [sym_interface_statement] = STATE(3818),
-    [sym_end_module_procedure_statement] = STATE(5061),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6618),
-    [sym_contains_statement] = STATE(6776),
-    [sym__specification_part] = STATE(150),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(150),
-    [sym_public_statement] = STATE(150),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(150),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(788),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(6719),
-    [sym_data_statement] = STATE(6996),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_enum] = STATE(150),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(150),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_statement_function] = STATE(6996),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_program_repeat1] = STATE(150),
-    [aux_sym_subroutine_repeat1] = STATE(491),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1042),
-    [aux_sym_preproc_def_token1] = ACTIONS(1044),
-    [aux_sym_preproc_if_token1] = ACTIONS(1046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1048),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1048),
-    [sym_preproc_directive] = ACTIONS(1050),
+  [190] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(581),
+    [sym_preproc_ifdef_in_statements] = STATE(581),
+    [sym_end_program_statement] = STATE(853),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6484),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(581),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1328),
+    [aux_sym_preproc_def_token1] = ACTIONS(1330),
+    [aux_sym_preproc_if_token1] = ACTIONS(1332),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
+    [sym_preproc_directive] = ACTIONS(1336),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1182),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1056),
-    [aux_sym_public_statement_token1] = ACTIONS(1058),
+    [aux_sym_private_statement_token1] = ACTIONS(61),
+    [aux_sym_public_statement_token1] = ACTIONS(63),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -93945,16 +94527,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -93974,7 +94556,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1326),
+    [anon_sym_SEMI] = ACTIONS(1340),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -94035,118 +94617,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [188] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(596),
-    [sym_preproc_ifdef_in_statements] = STATE(596),
-    [sym_end_program_statement] = STATE(1055),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7244),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(596),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [191] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(598),
+    [sym_preproc_ifdef_in_statements] = STATE(598),
+    [sym_end_program_statement] = STATE(1000),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6658),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(598),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -94164,13 +94746,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -94186,16 +94768,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -94215,7 +94797,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1338),
+    [anon_sym_SEMI] = ACTIONS(1342),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -94276,118 +94858,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [189] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(609),
-    [sym_preproc_ifdef_in_statements] = STATE(609),
-    [sym_end_program_statement] = STATE(993),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6961),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(609),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [192] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(603),
+    [sym_preproc_ifdef_in_statements] = STATE(603),
+    [sym_end_program_statement] = STATE(1034),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6572),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(603),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -94398,20 +94980,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(25),
-    [aux_sym_end_program_statement_token2] = ACTIONS(27),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -94427,16 +95009,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -94456,7 +95038,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1340),
+    [anon_sym_SEMI] = ACTIONS(1344),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -94517,118 +95099,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [190] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(577),
-    [sym_preproc_ifdef_in_statements] = STATE(577),
-    [sym_end_program_statement] = STATE(844),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6838),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(577),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [193] = {
+    [sym_preproc_include] = STATE(191),
+    [sym_preproc_def] = STATE(191),
+    [sym_preproc_function_def] = STATE(191),
+    [sym_preproc_call] = STATE(191),
+    [sym_preproc_if_in_specification_part] = STATE(191),
+    [sym_preproc_ifdef_in_specification_part] = STATE(191),
+    [sym_preproc_if_in_statements] = STATE(603),
+    [sym_preproc_ifdef_in_statements] = STATE(603),
+    [sym_end_program_statement] = STATE(1034),
+    [sym_interface] = STATE(191),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6572),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(191),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(191),
+    [sym_public_statement] = STATE(191),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(191),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(191),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(191),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(603),
+    [aux_sym_program_repeat1] = STATE(191),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -94639,20 +95221,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -94668,16 +95250,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -94697,7 +95279,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1342),
+    [anon_sym_SEMI] = ACTIONS(1344),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -94758,118 +95340,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [191] = {
-    [sym_preproc_include] = STATE(189),
-    [sym_preproc_def] = STATE(189),
-    [sym_preproc_function_def] = STATE(189),
-    [sym_preproc_call] = STATE(189),
-    [sym_preproc_if_in_specification_part] = STATE(189),
-    [sym_preproc_ifdef_in_specification_part] = STATE(189),
-    [sym_preproc_if_in_statements] = STATE(572),
-    [sym_preproc_ifdef_in_statements] = STATE(572),
-    [sym_end_program_statement] = STATE(1099),
-    [sym_interface] = STATE(189),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7145),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(189),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(189),
-    [sym_public_statement] = STATE(189),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(189),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(189),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(189),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(572),
-    [aux_sym_program_repeat1] = STATE(189),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [194] = {
+    [sym_preproc_include] = STATE(195),
+    [sym_preproc_def] = STATE(195),
+    [sym_preproc_function_def] = STATE(195),
+    [sym_preproc_call] = STATE(195),
+    [sym_preproc_if_in_specification_part] = STATE(195),
+    [sym_preproc_ifdef_in_specification_part] = STATE(195),
+    [sym_preproc_if_in_statements] = STATE(600),
+    [sym_preproc_ifdef_in_statements] = STATE(600),
+    [sym_end_program_statement] = STATE(973),
+    [sym_interface] = STATE(195),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6814),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(195),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(195),
+    [sym_public_statement] = STATE(195),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(195),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(195),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(195),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(600),
+    [aux_sym_program_repeat1] = STATE(195),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -94887,13 +95469,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -94909,16 +95491,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -94938,7 +95520,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1344),
+    [anon_sym_SEMI] = ACTIONS(1346),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -94999,118 +95581,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [192] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(615),
-    [sym_preproc_ifdef_in_statements] = STATE(615),
-    [sym_end_program_statement] = STATE(1061),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7162),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(615),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [195] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(619),
+    [sym_preproc_ifdef_in_statements] = STATE(619),
+    [sym_end_program_statement] = STATE(998),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7145),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(619),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -95121,20 +95703,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(25),
+    [aux_sym_end_program_statement_token2] = ACTIONS(27),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -95150,16 +95732,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -95179,7 +95761,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1346),
+    [anon_sym_SEMI] = ACTIONS(1348),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -95240,118 +95822,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [193] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(572),
-    [sym_preproc_ifdef_in_statements] = STATE(572),
-    [sym_end_program_statement] = STATE(1099),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7145),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(572),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [196] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_preproc_if_in_statements] = STATE(600),
+    [sym_preproc_ifdef_in_statements] = STATE(600),
+    [sym_end_program_statement] = STATE(973),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6814),
+    [sym_contains_statement] = STATE(6941),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(787),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6796),
+    [sym_data_statement] = STATE(6946),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_statement_function] = STATE(6946),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(600),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1328),
     [aux_sym_preproc_def_token1] = ACTIONS(1330),
     [aux_sym_preproc_if_token1] = ACTIONS(1332),
@@ -95369,13 +95951,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(61),
@@ -95391,16 +95973,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -95420,7 +96002,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1344),
+    [anon_sym_SEMI] = ACTIONS(1346),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -95481,146 +96063,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [194] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_preproc_if_in_statements] = STATE(587),
-    [sym_preproc_ifdef_in_statements] = STATE(587),
-    [sym_end_program_statement] = STATE(849),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6735),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(587),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1328),
-    [aux_sym_preproc_def_token1] = ACTIONS(1330),
-    [aux_sym_preproc_if_token1] = ACTIONS(1332),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
-    [sym_preproc_directive] = ACTIONS(1336),
+  [197] = {
+    [sym_preproc_include] = STATE(204),
+    [sym_preproc_def] = STATE(204),
+    [sym_preproc_function_def] = STATE(204),
+    [sym_preproc_call] = STATE(204),
+    [sym_preproc_if_in_statements] = STATE(627),
+    [sym_preproc_ifdef_in_statements] = STATE(627),
+    [sym_interface] = STATE(204),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8256),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(204),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(204),
+    [sym_public_statement] = STATE(204),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(204),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(204),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(204),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(204),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(627),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1350),
+    [aux_sym_preproc_def_token1] = ACTIONS(1352),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(660),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(1358),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1360),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(61),
-    [aux_sym_public_statement_token1] = ACTIONS(63),
+    [aux_sym_private_statement_token1] = ACTIONS(1362),
+    [aux_sym_public_statement_token1] = ACTIONS(1364),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -95632,16 +96212,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -95661,7 +96241,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1348),
+    [anon_sym_SEMI] = ACTIONS(1366),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -95722,146 +96302,144 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [195] = {
-    [sym_preproc_include] = STATE(192),
-    [sym_preproc_def] = STATE(192),
-    [sym_preproc_function_def] = STATE(192),
-    [sym_preproc_call] = STATE(192),
-    [sym_preproc_if_in_specification_part] = STATE(192),
-    [sym_preproc_ifdef_in_specification_part] = STATE(192),
-    [sym_preproc_if_in_statements] = STATE(596),
-    [sym_preproc_ifdef_in_statements] = STATE(596),
-    [sym_end_program_statement] = STATE(1055),
-    [sym_interface] = STATE(192),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7244),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(192),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(192),
-    [sym_public_statement] = STATE(192),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(192),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(192),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(192),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(596),
-    [aux_sym_program_repeat1] = STATE(192),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1328),
-    [aux_sym_preproc_def_token1] = ACTIONS(1330),
-    [aux_sym_preproc_if_token1] = ACTIONS(1332),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
-    [sym_preproc_directive] = ACTIONS(1336),
+  [198] = {
+    [sym_preproc_include] = STATE(204),
+    [sym_preproc_def] = STATE(204),
+    [sym_preproc_function_def] = STATE(204),
+    [sym_preproc_call] = STATE(204),
+    [sym_preproc_if_in_statements] = STATE(630),
+    [sym_preproc_ifdef_in_statements] = STATE(630),
+    [sym_interface] = STATE(204),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8229),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(204),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(204),
+    [sym_public_statement] = STATE(204),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(204),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(204),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(204),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(204),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(630),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1350),
+    [aux_sym_preproc_def_token1] = ACTIONS(1352),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(660),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(1358),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1368),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(61),
-    [aux_sym_public_statement_token1] = ACTIONS(63),
+    [aux_sym_private_statement_token1] = ACTIONS(1362),
+    [aux_sym_public_statement_token1] = ACTIONS(1364),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -95873,16 +96451,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -95902,248 +96480,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1338),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [196] = {
-    [sym_preproc_include] = STATE(194),
-    [sym_preproc_def] = STATE(194),
-    [sym_preproc_function_def] = STATE(194),
-    [sym_preproc_call] = STATE(194),
-    [sym_preproc_if_in_specification_part] = STATE(194),
-    [sym_preproc_ifdef_in_specification_part] = STATE(194),
-    [sym_preproc_if_in_statements] = STATE(577),
-    [sym_preproc_ifdef_in_statements] = STATE(577),
-    [sym_end_program_statement] = STATE(844),
-    [sym_interface] = STATE(194),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6838),
-    [sym_contains_statement] = STATE(7211),
-    [sym__specification_part] = STATE(194),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(194),
-    [sym_public_statement] = STATE(194),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(194),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(779),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(7146),
-    [sym_data_statement] = STATE(6493),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_enum] = STATE(194),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(194),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_statement_function] = STATE(6493),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(577),
-    [aux_sym_program_repeat1] = STATE(194),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1328),
-    [aux_sym_preproc_def_token1] = ACTIONS(1330),
-    [aux_sym_preproc_if_token1] = ACTIONS(1332),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1334),
-    [sym_preproc_directive] = ACTIONS(1336),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(61),
-    [aux_sym_public_statement_token1] = ACTIONS(63),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1342),
+    [anon_sym_SEMI] = ACTIONS(1370),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -96204,115 +96541,115 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [197] = {
-    [sym_preproc_include] = STATE(200),
-    [sym_preproc_def] = STATE(200),
-    [sym_preproc_function_def] = STATE(200),
-    [sym_preproc_call] = STATE(200),
-    [sym_preproc_if_in_statements] = STATE(629),
-    [sym_preproc_ifdef_in_statements] = STATE(629),
-    [sym_interface] = STATE(200),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8360),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(200),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(200),
-    [sym_public_statement] = STATE(200),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(200),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(200),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(200),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(200),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(629),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [199] = {
+    [sym_preproc_include] = STATE(204),
+    [sym_preproc_def] = STATE(204),
+    [sym_preproc_function_def] = STATE(204),
+    [sym_preproc_call] = STATE(204),
+    [sym_preproc_if_in_statements] = STATE(639),
+    [sym_preproc_ifdef_in_statements] = STATE(639),
+    [sym_interface] = STATE(204),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8144),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(204),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(204),
+    [sym_public_statement] = STATE(204),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(204),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(204),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(204),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(204),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(639),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
@@ -96321,23 +96658,23 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1360),
+    [sym_preproc_comment] = ACTIONS(1372),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -96353,16 +96690,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -96382,7 +96719,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1366),
+    [anon_sym_SEMI] = ACTIONS(1374),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -96443,140 +96780,139 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [198] = {
-    [sym_preproc_include] = STATE(200),
-    [sym_preproc_def] = STATE(200),
-    [sym_preproc_function_def] = STATE(200),
-    [sym_preproc_call] = STATE(200),
-    [sym_preproc_if_in_statements] = STATE(632),
-    [sym_preproc_ifdef_in_statements] = STATE(632),
-    [sym_interface] = STATE(200),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8495),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(200),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(200),
-    [sym_public_statement] = STATE(200),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(200),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(200),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(200),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(200),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(632),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [200] = {
+    [sym_preproc_include] = STATE(202),
+    [sym_preproc_def] = STATE(202),
+    [sym_preproc_function_def] = STATE(202),
+    [sym_preproc_call] = STATE(202),
+    [sym_preproc_if_in_statements] = STATE(623),
+    [sym_preproc_ifdef_in_statements] = STATE(623),
+    [sym_interface] = STATE(202),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8394),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(202),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(202),
+    [sym_public_statement] = STATE(202),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(202),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(202),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(202),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(202),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(623),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(660),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1368),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -96592,16 +96928,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -96621,7 +96957,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1370),
+    [anon_sym_SEMI] = ACTIONS(1376),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -96682,140 +97018,139 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [199] = {
-    [sym_preproc_include] = STATE(200),
-    [sym_preproc_def] = STATE(200),
-    [sym_preproc_function_def] = STATE(200),
-    [sym_preproc_call] = STATE(200),
-    [sym_preproc_if_in_statements] = STATE(639),
-    [sym_preproc_ifdef_in_statements] = STATE(639),
-    [sym_interface] = STATE(200),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8590),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(200),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(200),
-    [sym_public_statement] = STATE(200),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(200),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(200),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(200),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(200),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(639),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [201] = {
+    [sym_preproc_include] = STATE(202),
+    [sym_preproc_def] = STATE(202),
+    [sym_preproc_function_def] = STATE(202),
+    [sym_preproc_call] = STATE(202),
+    [sym_preproc_if_in_statements] = STATE(633),
+    [sym_preproc_ifdef_in_statements] = STATE(633),
+    [sym_interface] = STATE(202),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8162),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(202),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(202),
+    [sym_public_statement] = STATE(202),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(202),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(202),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(202),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(202),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(633),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(660),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1372),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -96831,16 +97166,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -96860,7 +97195,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1374),
+    [anon_sym_SEMI] = ACTIONS(1378),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -96921,119 +97256,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [200] = {
-    [sym_preproc_include] = STATE(762),
-    [sym_preproc_def] = STATE(762),
-    [sym_preproc_function_def] = STATE(762),
-    [sym_preproc_call] = STATE(762),
-    [sym_preproc_if_in_statements] = STATE(638),
-    [sym_preproc_ifdef_in_statements] = STATE(638),
-    [sym_interface] = STATE(762),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8217),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(762),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(762),
-    [sym_public_statement] = STATE(762),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(762),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(762),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(762),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(762),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(638),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [202] = {
+    [sym_preproc_include] = STATE(766),
+    [sym_preproc_def] = STATE(766),
+    [sym_preproc_function_def] = STATE(766),
+    [sym_preproc_call] = STATE(766),
+    [sym_preproc_if_in_statements] = STATE(624),
+    [sym_preproc_ifdef_in_statements] = STATE(624),
+    [sym_interface] = STATE(766),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7857),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(766),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(766),
+    [sym_public_statement] = STATE(766),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(766),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(766),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(766),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(766),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(624),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(1380),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
@@ -97041,19 +97376,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -97069,16 +97404,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -97098,7 +97433,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1376),
+    [anon_sym_SEMI] = ACTIONS(1382),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -97159,119 +97494,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [201] = {
-    [sym_preproc_include] = STATE(762),
-    [sym_preproc_def] = STATE(762),
-    [sym_preproc_function_def] = STATE(762),
-    [sym_preproc_call] = STATE(762),
-    [sym_preproc_if_in_statements] = STATE(636),
-    [sym_preproc_ifdef_in_statements] = STATE(636),
-    [sym_interface] = STATE(762),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8254),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(762),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(762),
-    [sym_public_statement] = STATE(762),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(762),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(762),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(762),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(762),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(636),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [203] = {
+    [sym_preproc_include] = STATE(202),
+    [sym_preproc_def] = STATE(202),
+    [sym_preproc_function_def] = STATE(202),
+    [sym_preproc_call] = STATE(202),
+    [sym_preproc_if_in_statements] = STATE(625),
+    [sym_preproc_ifdef_in_statements] = STATE(625),
+    [sym_interface] = STATE(202),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7882),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(202),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(202),
+    [sym_public_statement] = STATE(202),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(202),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(202),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(202),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(202),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(625),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(1378),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
@@ -97279,19 +97614,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -97307,16 +97642,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -97336,7 +97671,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1380),
+    [anon_sym_SEMI] = ACTIONS(1384),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -97397,119 +97732,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [202] = {
-    [sym_preproc_include] = STATE(201),
-    [sym_preproc_def] = STATE(201),
-    [sym_preproc_function_def] = STATE(201),
-    [sym_preproc_call] = STATE(201),
-    [sym_preproc_if_in_statements] = STATE(634),
-    [sym_preproc_ifdef_in_statements] = STATE(634),
-    [sym_interface] = STATE(201),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8116),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(201),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(201),
-    [sym_public_statement] = STATE(201),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(201),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(201),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(201),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(201),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(634),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [204] = {
+    [sym_preproc_include] = STATE(766),
+    [sym_preproc_def] = STATE(766),
+    [sym_preproc_function_def] = STATE(766),
+    [sym_preproc_call] = STATE(766),
+    [sym_preproc_if_in_statements] = STATE(633),
+    [sym_preproc_ifdef_in_statements] = STATE(633),
+    [sym_interface] = STATE(766),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8162),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(766),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(766),
+    [sym_public_statement] = STATE(766),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(766),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(785),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(6919),
+    [sym_data_statement] = STATE(7160),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_enum] = STATE(766),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(766),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_statement_function] = STATE(7160),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(766),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(633),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1350),
     [aux_sym_preproc_def_token1] = ACTIONS(1352),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
     [sym_preproc_directive] = ACTIONS(1358),
@@ -97517,19 +97852,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1362),
@@ -97545,16 +97880,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -97574,7 +97909,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1382),
+    [anon_sym_SEMI] = ACTIONS(1378),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -97635,143 +97970,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [203] = {
-    [sym_preproc_include] = STATE(201),
-    [sym_preproc_def] = STATE(201),
-    [sym_preproc_function_def] = STATE(201),
-    [sym_preproc_call] = STATE(201),
-    [sym_preproc_if_in_statements] = STATE(635),
-    [sym_preproc_ifdef_in_statements] = STATE(635),
-    [sym_interface] = STATE(201),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8407),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(201),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(201),
-    [sym_public_statement] = STATE(201),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(201),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(201),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(201),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(201),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(635),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1350),
-    [aux_sym_preproc_def_token1] = ACTIONS(1352),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(1358),
+  [205] = {
+    [sym_preproc_include] = STATE(206),
+    [sym_preproc_def] = STATE(206),
+    [sym_preproc_function_def] = STATE(206),
+    [sym_preproc_call] = STATE(206),
+    [sym_preproc_if_in_statements] = STATE(658),
+    [sym_preproc_ifdef_in_statements] = STATE(658),
+    [sym_interface] = STATE(206),
+    [sym_interface_statement] = STATE(3870),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(206),
+    [sym_use_statement] = STATE(6768),
+    [sym_implicit_statement] = STATE(6768),
+    [sym_save_statement] = STATE(6768),
+    [sym_private_statement] = STATE(206),
+    [sym_public_statement] = STATE(206),
+    [sym_namelist_statement] = STATE(6768),
+    [sym_common_statement] = STATE(6768),
+    [sym_import_statement] = STATE(6768),
+    [sym_derived_type_definition] = STATE(206),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4317),
+    [sym_variable_declaration] = STATE(6768),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6768),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6768),
+    [sym_equivalence_statement] = STATE(6768),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(783),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6988),
+    [sym_data_statement] = STATE(6768),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7381),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_enum] = STATE(206),
+    [sym_enum_statement] = STATE(6076),
+    [sym_enumeration_type] = STATE(206),
+    [sym_enumeration_type_statement] = STATE(6276),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_statement_function] = STATE(6768),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(206),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(658),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1386),
+    [aux_sym_preproc_def_token1] = ACTIONS(1388),
+    [aux_sym_preproc_if_token1] = ACTIONS(1390),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
+    [sym_preproc_directive] = ACTIONS(1394),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1362),
-    [aux_sym_public_statement_token1] = ACTIONS(1364),
+    [aux_sym_private_statement_token1] = ACTIONS(1398),
+    [aux_sym_public_statement_token1] = ACTIONS(1400),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -97783,16 +98115,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -97812,7 +98144,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1384),
+    [anon_sym_SEMI] = ACTIONS(1402),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -97835,6 +98167,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -97873,143 +98206,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [204] = {
-    [sym_preproc_include] = STATE(201),
-    [sym_preproc_def] = STATE(201),
-    [sym_preproc_function_def] = STATE(201),
-    [sym_preproc_call] = STATE(201),
-    [sym_preproc_if_in_statements] = STATE(638),
-    [sym_preproc_ifdef_in_statements] = STATE(638),
-    [sym_interface] = STATE(201),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8217),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(201),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(201),
-    [sym_public_statement] = STATE(201),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(201),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(791),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6658),
-    [sym_data_statement] = STATE(6933),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_enum] = STATE(201),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(201),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_statement_function] = STATE(6933),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(201),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(638),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1350),
-    [aux_sym_preproc_def_token1] = ACTIONS(1352),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(1358),
+  [206] = {
+    [sym_preproc_include] = STATE(767),
+    [sym_preproc_def] = STATE(767),
+    [sym_preproc_function_def] = STATE(767),
+    [sym_preproc_call] = STATE(767),
+    [sym_preproc_if_in_statements] = STATE(674),
+    [sym_preproc_ifdef_in_statements] = STATE(674),
+    [sym_interface] = STATE(767),
+    [sym_interface_statement] = STATE(3870),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(767),
+    [sym_use_statement] = STATE(6768),
+    [sym_implicit_statement] = STATE(6768),
+    [sym_save_statement] = STATE(6768),
+    [sym_private_statement] = STATE(767),
+    [sym_public_statement] = STATE(767),
+    [sym_namelist_statement] = STATE(6768),
+    [sym_common_statement] = STATE(6768),
+    [sym_import_statement] = STATE(6768),
+    [sym_derived_type_definition] = STATE(767),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4317),
+    [sym_variable_declaration] = STATE(6768),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6768),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6768),
+    [sym_equivalence_statement] = STATE(6768),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(783),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6988),
+    [sym_data_statement] = STATE(6768),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7695),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_enum] = STATE(767),
+    [sym_enum_statement] = STATE(6076),
+    [sym_enumeration_type] = STATE(767),
+    [sym_enumeration_type_statement] = STATE(6276),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_statement_function] = STATE(6768),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(767),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(674),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(1386),
+    [aux_sym_preproc_def_token1] = ACTIONS(1388),
+    [aux_sym_preproc_if_token1] = ACTIONS(1390),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
+    [sym_preproc_directive] = ACTIONS(1394),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1362),
-    [aux_sym_public_statement_token1] = ACTIONS(1364),
+    [aux_sym_private_statement_token1] = ACTIONS(1398),
+    [aux_sym_public_statement_token1] = ACTIONS(1400),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -98021,16 +98351,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -98050,7 +98380,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1376),
+    [anon_sym_SEMI] = ACTIONS(1406),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -98073,6 +98403,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -98111,114 +98442,114 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [205] = {
-    [sym_preproc_include] = STATE(206),
-    [sym_preproc_def] = STATE(206),
-    [sym_preproc_function_def] = STATE(206),
-    [sym_preproc_call] = STATE(206),
-    [sym_preproc_if_in_statements] = STATE(672),
-    [sym_preproc_ifdef_in_statements] = STATE(672),
-    [sym_interface] = STATE(206),
-    [sym_interface_statement] = STATE(3890),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(206),
-    [sym_use_statement] = STATE(6586),
-    [sym_implicit_statement] = STATE(6586),
-    [sym_save_statement] = STATE(6586),
-    [sym_private_statement] = STATE(206),
-    [sym_public_statement] = STATE(206),
-    [sym_namelist_statement] = STATE(6586),
-    [sym_common_statement] = STATE(6586),
-    [sym_import_statement] = STATE(6586),
-    [sym_derived_type_definition] = STATE(206),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4301),
-    [sym_variable_declaration] = STATE(6586),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6586),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6586),
-    [sym_equivalence_statement] = STATE(6586),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(787),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6839),
-    [sym_data_statement] = STATE(6586),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7380),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_enum] = STATE(206),
-    [sym_enum_statement] = STATE(6056),
-    [sym_enumeration_type] = STATE(206),
-    [sym_enumeration_type_statement] = STATE(6171),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_statement_function] = STATE(6586),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(206),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(672),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+  [207] = {
+    [sym_preproc_include] = STATE(208),
+    [sym_preproc_def] = STATE(208),
+    [sym_preproc_function_def] = STATE(208),
+    [sym_preproc_call] = STATE(208),
+    [sym_preproc_if_in_statements] = STATE(697),
+    [sym_preproc_ifdef_in_statements] = STATE(697),
+    [sym_interface] = STATE(208),
+    [sym_interface_statement] = STATE(3870),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(208),
+    [sym_use_statement] = STATE(6768),
+    [sym_implicit_statement] = STATE(6768),
+    [sym_save_statement] = STATE(6768),
+    [sym_private_statement] = STATE(208),
+    [sym_public_statement] = STATE(208),
+    [sym_namelist_statement] = STATE(6768),
+    [sym_common_statement] = STATE(6768),
+    [sym_import_statement] = STATE(6768),
+    [sym_derived_type_definition] = STATE(208),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4317),
+    [sym_variable_declaration] = STATE(6768),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6768),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6768),
+    [sym_equivalence_statement] = STATE(6768),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(783),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6988),
+    [sym_data_statement] = STATE(6768),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7490),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_enum] = STATE(208),
+    [sym_enum_statement] = STATE(6076),
+    [sym_enumeration_type] = STATE(208),
+    [sym_enumeration_type_statement] = STATE(6276),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_statement_function] = STATE(6768),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(208),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(697),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1386),
     [aux_sym_preproc_def_token1] = ACTIONS(1388),
     [aux_sym_preproc_if_token1] = ACTIONS(1390),
@@ -98235,12 +98566,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1398),
@@ -98256,16 +98587,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -98285,7 +98616,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1402),
+    [anon_sym_SEMI] = ACTIONS(1408),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -98347,114 +98678,114 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [206] = {
+  [208] = {
     [sym_preproc_include] = STATE(767),
     [sym_preproc_def] = STATE(767),
     [sym_preproc_function_def] = STATE(767),
     [sym_preproc_call] = STATE(767),
-    [sym_preproc_if_in_statements] = STATE(673),
-    [sym_preproc_ifdef_in_statements] = STATE(673),
+    [sym_preproc_if_in_statements] = STATE(658),
+    [sym_preproc_ifdef_in_statements] = STATE(658),
     [sym_interface] = STATE(767),
-    [sym_interface_statement] = STATE(3890),
-    [sym_language_binding] = STATE(3231),
+    [sym_interface_statement] = STATE(3870),
+    [sym_language_binding] = STATE(3221),
     [sym__specification_part] = STATE(767),
-    [sym_use_statement] = STATE(6586),
-    [sym_implicit_statement] = STATE(6586),
-    [sym_save_statement] = STATE(6586),
+    [sym_use_statement] = STATE(6768),
+    [sym_implicit_statement] = STATE(6768),
+    [sym_save_statement] = STATE(6768),
     [sym_private_statement] = STATE(767),
     [sym_public_statement] = STATE(767),
-    [sym_namelist_statement] = STATE(6586),
-    [sym_common_statement] = STATE(6586),
-    [sym_import_statement] = STATE(6586),
+    [sym_namelist_statement] = STATE(6768),
+    [sym_common_statement] = STATE(6768),
+    [sym_import_statement] = STATE(6768),
     [sym_derived_type_definition] = STATE(767),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4301),
-    [sym_variable_declaration] = STATE(6586),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6586),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6586),
-    [sym_equivalence_statement] = STATE(6586),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(787),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6839),
-    [sym_data_statement] = STATE(6586),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7331),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4317),
+    [sym_variable_declaration] = STATE(6768),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6768),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6768),
+    [sym_equivalence_statement] = STATE(6768),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(783),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6988),
+    [sym_data_statement] = STATE(6768),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7381),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
     [sym_enum] = STATE(767),
-    [sym_enum_statement] = STATE(6056),
+    [sym_enum_statement] = STATE(6076),
     [sym_enumeration_type] = STATE(767),
-    [sym_enumeration_type_statement] = STATE(6171),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_statement_function] = STATE(6586),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
+    [sym_enumeration_type_statement] = STATE(6276),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_statement_function] = STATE(6768),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4709),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(767),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(673),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(658),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(1386),
     [aux_sym_preproc_def_token1] = ACTIONS(1388),
     [aux_sym_preproc_if_token1] = ACTIONS(1390),
@@ -98471,12 +98802,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(1398),
@@ -98492,16 +98823,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token3] = ACTIONS(49),
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -98521,7 +98852,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
     [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1406),
+    [anon_sym_SEMI] = ACTIONS(1402),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -98583,181 +98914,136 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [207] = {
-    [sym_preproc_include] = STATE(767),
-    [sym_preproc_def] = STATE(767),
-    [sym_preproc_function_def] = STATE(767),
-    [sym_preproc_call] = STATE(767),
-    [sym_preproc_if_in_statements] = STATE(694),
-    [sym_preproc_ifdef_in_statements] = STATE(694),
-    [sym_interface] = STATE(767),
-    [sym_interface_statement] = STATE(3890),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(767),
-    [sym_use_statement] = STATE(6586),
-    [sym_implicit_statement] = STATE(6586),
-    [sym_save_statement] = STATE(6586),
-    [sym_private_statement] = STATE(767),
-    [sym_public_statement] = STATE(767),
-    [sym_namelist_statement] = STATE(6586),
-    [sym_common_statement] = STATE(6586),
-    [sym_import_statement] = STATE(6586),
-    [sym_derived_type_definition] = STATE(767),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4301),
-    [sym_variable_declaration] = STATE(6586),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6586),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6586),
-    [sym_equivalence_statement] = STATE(6586),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(787),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6839),
-    [sym_data_statement] = STATE(6586),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7371),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_enum] = STATE(767),
-    [sym_enum_statement] = STATE(6056),
-    [sym_enumeration_type] = STATE(767),
-    [sym_enumeration_type_statement] = STATE(6171),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_statement_function] = STATE(6586),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(767),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(694),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1386),
-    [aux_sym_preproc_def_token1] = ACTIONS(1388),
-    [aux_sym_preproc_if_token1] = ACTIONS(1390),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
-    [sym_preproc_directive] = ACTIONS(1394),
+  [209] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8548),
+    [sym_preproc_elif_in_specification_part] = STATE(8548),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8548),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8103),
+    [sym_preproc_elif_in_statements] = STATE(8103),
+    [sym_preproc_elifdef_in_statements] = STATE(8103),
+    [sym_preproc_else_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8243),
+    [sym_internal_procedures] = STATE(5587),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(836),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1398),
-    [aux_sym_public_statement_token1] = ACTIONS(1400),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1408),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -98768,7 +99054,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_keyword_statement_token6] = ACTIONS(117),
     [aux_sym_keyword_statement_token7] = ACTIONS(111),
     [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
@@ -98780,15 +99066,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
     [aux_sym_close_statement_token1] = ACTIONS(149),
     [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
     [aux_sym_file_position_statement_token1] = ACTIONS(157),
     [aux_sym_file_position_statement_token2] = ACTIONS(157),
     [aux_sym_file_position_statement_token3] = ACTIONS(157),
@@ -98813,187 +99096,142 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [208] = {
-    [sym_preproc_include] = STATE(207),
-    [sym_preproc_def] = STATE(207),
-    [sym_preproc_function_def] = STATE(207),
-    [sym_preproc_call] = STATE(207),
-    [sym_preproc_if_in_statements] = STATE(673),
-    [sym_preproc_ifdef_in_statements] = STATE(673),
-    [sym_interface] = STATE(207),
-    [sym_interface_statement] = STATE(3890),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(207),
-    [sym_use_statement] = STATE(6586),
-    [sym_implicit_statement] = STATE(6586),
-    [sym_save_statement] = STATE(6586),
-    [sym_private_statement] = STATE(207),
-    [sym_public_statement] = STATE(207),
-    [sym_namelist_statement] = STATE(6586),
-    [sym_common_statement] = STATE(6586),
-    [sym_import_statement] = STATE(6586),
-    [sym_derived_type_definition] = STATE(207),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4301),
-    [sym_variable_declaration] = STATE(6586),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6586),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6586),
-    [sym_equivalence_statement] = STATE(6586),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(787),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6839),
-    [sym_data_statement] = STATE(6586),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7331),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_enum] = STATE(207),
-    [sym_enum_statement] = STATE(6056),
-    [sym_enumeration_type] = STATE(207),
-    [sym_enumeration_type_statement] = STATE(6171),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_statement_function] = STATE(6586),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4742),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(207),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(673),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(1386),
-    [aux_sym_preproc_def_token1] = ACTIONS(1388),
-    [aux_sym_preproc_if_token1] = ACTIONS(1390),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
-    [sym_preproc_directive] = ACTIONS(1394),
+  [210] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8368),
+    [sym_preproc_elif_in_specification_part] = STATE(8368),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8368),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7742),
+    [sym_preproc_elif_in_statements] = STATE(7742),
+    [sym_preproc_elifdef_in_statements] = STATE(7742),
+    [sym_preproc_else_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8562),
+    [sym_internal_procedures] = STATE(5619),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(812),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
+    [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(1398),
-    [aux_sym_public_statement_token1] = ACTIONS(1400),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [anon_sym_SEMI] = ACTIONS(1406),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -99004,7 +99242,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_keyword_statement_token6] = ACTIONS(117),
     [aux_sym_keyword_statement_token7] = ACTIONS(111),
     [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(121),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
@@ -99016,15 +99254,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
     [aux_sym_close_statement_token1] = ACTIONS(149),
     [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
     [aux_sym_file_position_statement_token1] = ACTIONS(157),
     [aux_sym_file_position_statement_token2] = ACTIONS(157),
     [aux_sym_file_position_statement_token3] = ACTIONS(157),
@@ -99049,112 +99284,112 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(191),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [209] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7864),
-    [sym_preproc_elif_in_specification_part] = STATE(7864),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7749),
-    [sym_preproc_elif_in_statements] = STATE(7749),
-    [sym_preproc_elifdef_in_statements] = STATE(7749),
-    [sym_preproc_else_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7860),
-    [sym_internal_procedures] = STATE(5615),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [211] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_preproc_else_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8535),
+    [sym_internal_procedures] = STATE(5598),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(836),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -99243,106 +99478,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [210] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8654),
-    [sym_preproc_elif_in_specification_part] = STATE(8654),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8654),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8651),
-    [sym_preproc_elif_in_statements] = STATE(8651),
-    [sym_preproc_elifdef_in_statements] = STATE(8651),
-    [sym_preproc_else_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8050),
-    [sym_internal_procedures] = STATE(5648),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [212] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8307),
+    [sym_preproc_elif_in_specification_part] = STATE(8307),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8307),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7756),
+    [sym_preproc_elif_in_statements] = STATE(7756),
+    [sym_preproc_elifdef_in_statements] = STATE(7756),
+    [sym_preproc_else_in_procedure_statements] = STATE(8473),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8473),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8473),
+    [sym_internal_procedures] = STATE(5594),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(806),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(1424),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -99431,106 +99666,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [211] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7898),
-    [sym_preproc_elif_in_specification_part] = STATE(7898),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7898),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7750),
-    [sym_preproc_elif_in_statements] = STATE(7750),
-    [sym_preproc_elifdef_in_statements] = STATE(7750),
-    [sym_preproc_else_in_procedure_statements] = STATE(7951),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7951),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7951),
-    [sym_internal_procedures] = STATE(5617),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [213] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8439),
+    [sym_preproc_elif_in_specification_part] = STATE(8439),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8439),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8441),
+    [sym_preproc_elif_in_statements] = STATE(8441),
+    [sym_preproc_elifdef_in_statements] = STATE(8441),
+    [sym_preproc_else_in_procedure_statements] = STATE(8623),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8623),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8623),
+    [sym_internal_procedures] = STATE(5618),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1424),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -99619,106 +99854,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [212] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8154),
-    [sym_preproc_elif_in_specification_part] = STATE(8154),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8154),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7756),
-    [sym_preproc_elif_in_statements] = STATE(7756),
-    [sym_preproc_elifdef_in_statements] = STATE(7756),
-    [sym_preproc_else_in_procedure_statements] = STATE(8309),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8309),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8309),
-    [sym_internal_procedures] = STATE(5619),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [214] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8071),
+    [sym_preproc_elif_in_specification_part] = STATE(8071),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8071),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7763),
+    [sym_preproc_elif_in_statements] = STATE(7763),
+    [sym_preproc_elifdef_in_statements] = STATE(7763),
+    [sym_preproc_else_in_procedure_statements] = STATE(8397),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8397),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8397),
+    [sym_internal_procedures] = STATE(5648),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1426),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -99807,106 +100042,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [213] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7722),
-    [sym_preproc_elif_in_specification_part] = STATE(7722),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7722),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7742),
-    [sym_preproc_elif_in_statements] = STATE(7742),
-    [sym_preproc_elifdef_in_statements] = STATE(7742),
-    [sym_preproc_else_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8287),
-    [sym_internal_procedures] = STATE(5587),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [215] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8614),
+    [sym_preproc_elif_in_specification_part] = STATE(8614),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8614),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8116),
+    [sym_preproc_elif_in_statements] = STATE(8116),
+    [sym_preproc_elifdef_in_statements] = STATE(8116),
+    [sym_preproc_else_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8317),
+    [sym_internal_procedures] = STATE(5575),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(832),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -99995,106 +100230,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [214] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7710),
-    [sym_preproc_elif_in_specification_part] = STATE(7710),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7710),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8682),
-    [sym_preproc_elif_in_statements] = STATE(8682),
-    [sym_preproc_elifdef_in_statements] = STATE(8682),
-    [sym_preproc_else_in_procedure_statements] = STATE(8342),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8342),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8342),
-    [sym_internal_procedures] = STATE(5594),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [216] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8590),
+    [sym_preproc_elif_in_specification_part] = STATE(8590),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8590),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8118),
+    [sym_preproc_elif_in_statements] = STATE(8118),
+    [sym_preproc_elifdef_in_statements] = STATE(8118),
+    [sym_preproc_else_in_procedure_statements] = STATE(8319),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8319),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8319),
+    [sym_internal_procedures] = STATE(5609),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1428),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -100183,294 +100418,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [215] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8418),
-    [sym_preproc_elif_in_specification_part] = STATE(8418),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8418),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8556),
-    [sym_preproc_elif_in_statements] = STATE(8556),
-    [sym_preproc_elifdef_in_statements] = STATE(8556),
-    [sym_preproc_else_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8372),
-    [sym_internal_procedures] = STATE(5580),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(840),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [216] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7824),
-    [sym_preproc_elif_in_specification_part] = STATE(7824),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7824),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7754),
-    [sym_preproc_elif_in_statements] = STATE(7754),
-    [sym_preproc_elifdef_in_statements] = STATE(7754),
-    [sym_preproc_else_in_procedure_statements] = STATE(8275),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8275),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8275),
-    [sym_internal_procedures] = STATE(5599),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [217] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8270),
+    [sym_preproc_elif_in_specification_part] = STATE(8270),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8270),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8272),
+    [sym_preproc_elif_in_statements] = STATE(8272),
+    [sym_preproc_elifdef_in_statements] = STATE(8272),
+    [sym_preproc_else_in_procedure_statements] = STATE(8655),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8655),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8655),
+    [sym_internal_procedures] = STATE(5629),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1430),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(988),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -100559,106 +100606,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [217] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8580),
-    [sym_preproc_elif_in_specification_part] = STATE(8580),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8127),
-    [sym_preproc_elif_in_statements] = STATE(8127),
-    [sym_preproc_elifdef_in_statements] = STATE(8127),
-    [sym_preproc_else_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7927),
-    [sym_internal_procedures] = STATE(5625),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [218] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8267),
+    [sym_preproc_elif_in_specification_part] = STATE(8267),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8267),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8268),
+    [sym_preproc_elif_in_statements] = STATE(8268),
+    [sym_preproc_elifdef_in_statements] = STATE(8268),
+    [sym_preproc_else_in_procedure_statements] = STATE(8656),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8656),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8656),
+    [sym_internal_procedures] = STATE(5616),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(814),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(976),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -100747,106 +100794,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [218] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8639),
-    [sym_preproc_elif_in_specification_part] = STATE(8639),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8639),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8167),
-    [sym_preproc_elif_in_statements] = STATE(8167),
-    [sym_preproc_elifdef_in_statements] = STATE(8167),
-    [sym_preproc_else_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8155),
-    [sym_internal_procedures] = STATE(5623),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [219] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8341),
+    [sym_preproc_elif_in_specification_part] = STATE(8341),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8341),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7750),
+    [sym_preproc_elif_in_statements] = STATE(7750),
+    [sym_preproc_elifdef_in_statements] = STATE(7750),
+    [sym_preproc_else_in_procedure_statements] = STATE(8494),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8494),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8494),
+    [sym_internal_procedures] = STATE(5586),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(1430),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -100935,106 +100982,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [219] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_preproc_else_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8492),
-    [sym_internal_procedures] = STATE(5629),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [220] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8580),
+    [sym_preproc_elif_in_specification_part] = STATE(8580),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8145),
+    [sym_preproc_elif_in_statements] = STATE(8145),
+    [sym_preproc_elifdef_in_statements] = STATE(8145),
+    [sym_preproc_else_in_procedure_statements] = STATE(8342),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8342),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8342),
+    [sym_internal_procedures] = STATE(5614),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(1432),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -101123,106 +101170,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [220] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8660),
-    [sym_preproc_elif_in_specification_part] = STATE(8660),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8660),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8169),
-    [sym_preproc_elif_in_statements] = STATE(8169),
-    [sym_preproc_elifdef_in_statements] = STATE(8169),
-    [sym_preproc_else_in_procedure_statements] = STATE(8158),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8158),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8158),
-    [sym_internal_procedures] = STATE(5641),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [221] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8031),
+    [sym_preproc_elif_in_specification_part] = STATE(8031),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8031),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7760),
+    [sym_preproc_elif_in_statements] = STATE(7760),
+    [sym_preproc_elifdef_in_statements] = STATE(7760),
+    [sym_preproc_else_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8393),
+    [sym_internal_procedures] = STATE(5582),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1432),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(806),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -101311,106 +101358,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [221] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7770),
-    [sym_preproc_elif_in_specification_part] = STATE(7770),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7770),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8199),
-    [sym_preproc_elif_in_statements] = STATE(8199),
-    [sym_preproc_elifdef_in_statements] = STATE(8199),
-    [sym_preproc_else_in_procedure_statements] = STATE(8207),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8207),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8207),
-    [sym_internal_procedures] = STATE(5640),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [222] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7843),
+    [sym_preproc_elif_in_specification_part] = STATE(7843),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7843),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7713),
+    [sym_preproc_elif_in_statements] = STATE(7713),
+    [sym_preproc_elifdef_in_statements] = STATE(7713),
+    [sym_preproc_else_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8191),
+    [sym_internal_procedures] = STATE(5613),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1434),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(828),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -101499,106 +101546,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [222] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8398),
-    [sym_preproc_elif_in_specification_part] = STATE(8398),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8398),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7986),
-    [sym_preproc_elif_in_statements] = STATE(7986),
-    [sym_preproc_elifdef_in_statements] = STATE(7986),
-    [sym_preproc_else_in_procedure_statements] = STATE(8320),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8320),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8320),
-    [sym_internal_procedures] = STATE(5575),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [223] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8356),
+    [sym_preproc_elif_in_specification_part] = STATE(8356),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8356),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7749),
+    [sym_preproc_elif_in_statements] = STATE(7749),
+    [sym_preproc_elifdef_in_statements] = STATE(7749),
+    [sym_preproc_else_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
+    [sym_internal_procedures] = STATE(5647),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -101687,106 +101734,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [223] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7747),
-    [sym_preproc_elif_in_specification_part] = STATE(7747),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7747),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7764),
-    [sym_preproc_elif_in_statements] = STATE(7764),
-    [sym_preproc_elifdef_in_statements] = STATE(7764),
-    [sym_preproc_else_in_procedure_statements] = STATE(8323),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8323),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8323),
-    [sym_internal_procedures] = STATE(5576),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [224] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8184),
+    [sym_preproc_elif_in_specification_part] = STATE(8184),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8184),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7836),
+    [sym_preproc_elif_in_statements] = STATE(7836),
+    [sym_preproc_elifdef_in_statements] = STATE(7836),
+    [sym_preproc_else_in_procedure_statements] = STATE(8531),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8531),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8531),
+    [sym_internal_procedures] = STATE(5578),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
+    [aux_sym_preproc_if_token2] = ACTIONS(1434),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(758),
+    [aux_sym_preproc_elif_token1] = ACTIONS(760),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(762),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(762),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -101875,106 +101922,105 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [224] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8566),
-    [sym_preproc_elif_in_specification_part] = STATE(8566),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8566),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8567),
-    [sym_preproc_elif_in_statements] = STATE(8567),
-    [sym_preproc_elifdef_in_statements] = STATE(8567),
-    [sym_preproc_else_in_procedure_statements] = STATE(8668),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8668),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8668),
-    [sym_internal_procedures] = STATE(5635),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(756),
-    [aux_sym_preproc_elif_token1] = ACTIONS(758),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(760),
-    [sym_preproc_directive] = ACTIONS(1414),
+  [225] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8645),
+    [sym_preproc_elif_in_statements] = STATE(8645),
+    [sym_preproc_elifdef_in_statements] = STATE(8645),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5620),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
+    [aux_sym_preproc_include_token1] = ACTIONS(1436),
+    [aux_sym_preproc_def_token1] = ACTIONS(1438),
+    [aux_sym_preproc_if_token1] = ACTIONS(1440),
+    [aux_sym_preproc_if_token2] = ACTIONS(1442),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -102004,7 +102050,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102063,99 +102109,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [225] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(7747),
-    [sym_preproc_elif_in_specification_part] = STATE(7747),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7747),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7764),
-    [sym_preproc_elif_in_statements] = STATE(7764),
-    [sym_preproc_elifdef_in_statements] = STATE(7764),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5627),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [226] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8204),
+    [sym_preproc_elif_in_statements] = STATE(8204),
+    [sym_preproc_elifdef_in_statements] = STATE(8204),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5608),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1450),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -102191,7 +102237,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102250,99 +102296,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [226] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7914),
-    [sym_preproc_elif_in_statements] = STATE(7914),
-    [sym_preproc_elifdef_in_statements] = STATE(7914),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5621),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [227] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(7834),
+    [sym_preproc_elif_in_statements] = STATE(7834),
+    [sym_preproc_elifdef_in_statements] = STATE(7834),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5592),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1448),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1452),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -102378,7 +102424,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102437,99 +102483,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [227] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8318),
-    [sym_preproc_elif_in_statements] = STATE(8318),
-    [sym_preproc_elifdef_in_statements] = STATE(8318),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5631),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [228] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5641),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1450),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(872),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -102565,7 +102611,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102624,99 +102670,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [228] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8431),
-    [sym_preproc_elif_in_statements] = STATE(8431),
-    [sym_preproc_elifdef_in_statements] = STATE(8431),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5636),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [229] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(7852),
+    [sym_preproc_elif_in_statements] = STATE(7852),
+    [sym_preproc_elifdef_in_statements] = STATE(7852),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5640),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1452),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1454),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -102752,7 +102798,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102811,99 +102857,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [229] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8566),
-    [sym_preproc_elif_in_specification_part] = STATE(8566),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8566),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8567),
-    [sym_preproc_elif_in_statements] = STATE(8567),
-    [sym_preproc_elifdef_in_statements] = STATE(8567),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5632),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [230] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8636),
+    [sym_preproc_elif_in_statements] = STATE(8636),
+    [sym_preproc_elifdef_in_statements] = STATE(8636),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5636),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1456),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -102939,7 +102985,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -102998,99 +103044,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [230] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8655),
-    [sym_preproc_elif_in_statements] = STATE(8655),
-    [sym_preproc_elifdef_in_statements] = STATE(8655),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5573),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [231] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5606),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1454),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(876),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -103126,7 +103172,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -103185,99 +103231,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [231] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7712),
-    [sym_preproc_elif_in_statements] = STATE(7712),
-    [sym_preproc_elifdef_in_statements] = STATE(7712),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5643),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [232] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8439),
+    [sym_preproc_elif_in_specification_part] = STATE(8439),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8439),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8441),
+    [sym_preproc_elif_in_statements] = STATE(8441),
+    [sym_preproc_elifdef_in_statements] = STATE(8441),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5623),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1456),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -103313,7 +103359,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -103372,99 +103418,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [232] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5611),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [233] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8078),
+    [sym_preproc_elif_in_statements] = STATE(8078),
+    [sym_preproc_elifdef_in_statements] = STATE(8078),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5638),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(876),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1458),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -103500,7 +103546,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -103559,99 +103605,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [233] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8231),
-    [sym_preproc_elif_in_statements] = STATE(8231),
-    [sym_preproc_elifdef_in_statements] = STATE(8231),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5618),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [234] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8640),
+    [sym_preproc_elif_in_statements] = STATE(8640),
+    [sym_preproc_elifdef_in_statements] = STATE(8640),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5604),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1458),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1460),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -103687,7 +103733,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -103746,99 +103792,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [234] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5582),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [235] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8267),
+    [sym_preproc_elif_in_specification_part] = STATE(8267),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8267),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8268),
+    [sym_preproc_elif_in_statements] = STATE(8268),
+    [sym_preproc_elifdef_in_statements] = STATE(8268),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5602),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(976),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -103874,7 +103920,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -103933,99 +103979,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [235] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7827),
-    [sym_preproc_elif_in_statements] = STATE(7827),
-    [sym_preproc_elifdef_in_statements] = STATE(7827),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5607),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [236] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8270),
+    [sym_preproc_elif_in_specification_part] = STATE(8270),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8270),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8272),
+    [sym_preproc_elif_in_statements] = STATE(8272),
+    [sym_preproc_elifdef_in_statements] = STATE(8272),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5627),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1460),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(988),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -104061,7 +104107,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -104120,99 +104166,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [236] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5593),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [237] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8038),
+    [sym_preproc_elif_in_statements] = STATE(8038),
+    [sym_preproc_elifdef_in_statements] = STATE(8038),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5646),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(864),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1462),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -104248,7 +104294,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -104307,99 +104353,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [237] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7883),
-    [sym_preproc_elif_in_statements] = STATE(7883),
-    [sym_preproc_elifdef_in_statements] = STATE(7883),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5596),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [238] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8153),
+    [sym_preproc_elif_in_statements] = STATE(8153),
+    [sym_preproc_elifdef_in_statements] = STATE(8153),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5607),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1462),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1464),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -104435,7 +104481,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -104494,99 +104540,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [238] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7911),
-    [sym_preproc_elif_in_statements] = STATE(7911),
-    [sym_preproc_elifdef_in_statements] = STATE(7911),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5606),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [239] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5576),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1464),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -104622,7 +104668,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -104681,99 +104727,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [239] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8398),
-    [sym_preproc_elif_in_specification_part] = STATE(8398),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8398),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7986),
-    [sym_preproc_elif_in_statements] = STATE(7986),
-    [sym_preproc_elifdef_in_statements] = STATE(7986),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5622),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
+  [240] = {
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym_preproc_else_in_statements] = STATE(8639),
+    [sym_preproc_elif_in_statements] = STATE(8639),
+    [sym_preproc_elifdef_in_statements] = STATE(8639),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(5642),
+    [sym_contains_statement] = STATE(6592),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
     [aux_sym_preproc_include_token1] = ACTIONS(1436),
     [aux_sym_preproc_def_token1] = ACTIONS(1438),
     [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+    [aux_sym_preproc_if_token2] = ACTIONS(1466),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1444),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1444),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
+    [sym_preproc_directive] = ACTIONS(1446),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -104809,7 +104855,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1448),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -104868,105 +104914,104 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [240] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym_preproc_else_in_statements] = STATE(7943),
-    [sym_preproc_elif_in_statements] = STATE(7943),
-    [sym_preproc_elifdef_in_statements] = STATE(7943),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(5581),
-    [sym_contains_statement] = STATE(6508),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
-    [aux_sym_preproc_include_token1] = ACTIONS(1436),
-    [aux_sym_preproc_def_token1] = ACTIONS(1438),
-    [aux_sym_preproc_if_token1] = ACTIONS(1440),
-    [aux_sym_preproc_if_token2] = ACTIONS(1466),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1442),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1442),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1444),
+  [241] = {
+    [sym_preproc_include] = STATE(270),
+    [sym_preproc_def] = STATE(270),
+    [sym_preproc_function_def] = STATE(270),
+    [sym_preproc_call] = STATE(270),
+    [sym_preproc_if_in_statements] = STATE(270),
+    [sym_preproc_ifdef_in_statements] = STATE(270),
+    [sym_preproc_else_in_statements] = STATE(7712),
+    [sym_preproc_elif_in_statements] = STATE(7712),
+    [sym_preproc_elifdef_in_statements] = STATE(7712),
+    [sym_preproc_else_in_procedure_statements] = STATE(7758),
+    [sym_preproc_elif_in_procedure_statements] = STATE(7758),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(7758),
+    [sym_internal_procedures] = STATE(5694),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(270),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(1468),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1476),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -104996,7 +105041,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1446),
+    [anon_sym_SEMI] = ACTIONS(1478),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105055,104 +105100,104 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [241] = {
-    [sym_preproc_include] = STATE(280),
-    [sym_preproc_def] = STATE(280),
-    [sym_preproc_function_def] = STATE(280),
-    [sym_preproc_call] = STATE(280),
-    [sym_preproc_if_in_statements] = STATE(280),
-    [sym_preproc_ifdef_in_statements] = STATE(280),
-    [sym_preproc_else_in_statements] = STATE(8455),
-    [sym_preproc_elif_in_statements] = STATE(8455),
-    [sym_preproc_elifdef_in_statements] = STATE(8455),
-    [sym_preproc_else_in_procedure_statements] = STATE(8174),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8174),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8174),
-    [sym_internal_procedures] = STATE(5694),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [242] = {
+    [sym_preproc_include] = STATE(260),
+    [sym_preproc_def] = STATE(260),
+    [sym_preproc_function_def] = STATE(260),
+    [sym_preproc_call] = STATE(260),
+    [sym_preproc_if_in_statements] = STATE(260),
+    [sym_preproc_ifdef_in_statements] = STATE(260),
+    [sym_preproc_else_in_statements] = STATE(8155),
+    [sym_preproc_elif_in_statements] = STATE(8155),
+    [sym_preproc_elifdef_in_statements] = STATE(8155),
+    [sym_preproc_else_in_procedure_statements] = STATE(8396),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8396),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8396),
+    [sym_internal_procedures] = STATE(5733),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(280),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(260),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1468),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1480),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1476),
+    [sym_preproc_comment] = ACTIONS(1482),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -105182,7 +105227,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1478),
+    [anon_sym_SEMI] = ACTIONS(1484),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105241,104 +105286,104 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [242] = {
-    [sym_preproc_include] = STATE(269),
-    [sym_preproc_def] = STATE(269),
-    [sym_preproc_function_def] = STATE(269),
-    [sym_preproc_call] = STATE(269),
-    [sym_preproc_if_in_statements] = STATE(269),
-    [sym_preproc_ifdef_in_statements] = STATE(269),
-    [sym_preproc_else_in_statements] = STATE(8261),
-    [sym_preproc_elif_in_statements] = STATE(8261),
-    [sym_preproc_elifdef_in_statements] = STATE(8261),
-    [sym_preproc_else_in_procedure_statements] = STATE(8168),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8168),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8168),
-    [sym_internal_procedures] = STATE(5730),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [243] = {
+    [sym_preproc_include] = STATE(275),
+    [sym_preproc_def] = STATE(275),
+    [sym_preproc_function_def] = STATE(275),
+    [sym_preproc_call] = STATE(275),
+    [sym_preproc_if_in_statements] = STATE(275),
+    [sym_preproc_ifdef_in_statements] = STATE(275),
+    [sym_preproc_else_in_statements] = STATE(7734),
+    [sym_preproc_elif_in_statements] = STATE(7734),
+    [sym_preproc_elifdef_in_statements] = STATE(7734),
+    [sym_preproc_else_in_procedure_statements] = STATE(8584),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8584),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8584),
+    [sym_internal_procedures] = STATE(5732),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(269),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(275),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1480),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1486),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1482),
+    [sym_preproc_comment] = ACTIONS(1488),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -105368,7 +105413,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1484),
+    [anon_sym_SEMI] = ACTIONS(1490),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105427,104 +105472,104 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [243] = {
-    [sym_preproc_include] = STATE(256),
-    [sym_preproc_def] = STATE(256),
-    [sym_preproc_function_def] = STATE(256),
-    [sym_preproc_call] = STATE(256),
-    [sym_preproc_if_in_statements] = STATE(256),
-    [sym_preproc_ifdef_in_statements] = STATE(256),
-    [sym_preproc_else_in_statements] = STATE(8068),
-    [sym_preproc_elif_in_statements] = STATE(8068),
-    [sym_preproc_elifdef_in_statements] = STATE(8068),
-    [sym_preproc_else_in_procedure_statements] = STATE(7768),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7768),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7768),
-    [sym_internal_procedures] = STATE(5705),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [244] = {
+    [sym_preproc_include] = STATE(279),
+    [sym_preproc_def] = STATE(279),
+    [sym_preproc_function_def] = STATE(279),
+    [sym_preproc_call] = STATE(279),
+    [sym_preproc_if_in_statements] = STATE(279),
+    [sym_preproc_ifdef_in_statements] = STATE(279),
+    [sym_preproc_else_in_statements] = STATE(8063),
+    [sym_preproc_elif_in_statements] = STATE(8063),
+    [sym_preproc_elifdef_in_statements] = STATE(8063),
+    [sym_preproc_else_in_procedure_statements] = STATE(8146),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8146),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8146),
+    [sym_internal_procedures] = STATE(5693),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(256),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(279),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1486),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1492),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1488),
+    [sym_preproc_comment] = ACTIONS(1494),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -105554,7 +105599,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1490),
+    [anon_sym_SEMI] = ACTIONS(1496),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105613,104 +105658,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [244] = {
-    [sym_preproc_include] = STATE(248),
-    [sym_preproc_def] = STATE(248),
-    [sym_preproc_function_def] = STATE(248),
-    [sym_preproc_call] = STATE(248),
-    [sym_preproc_if_in_statements] = STATE(248),
-    [sym_preproc_ifdef_in_statements] = STATE(248),
-    [sym_preproc_else_in_statements] = STATE(7734),
-    [sym_preproc_elif_in_statements] = STATE(7734),
-    [sym_preproc_elifdef_in_statements] = STATE(7734),
-    [sym_preproc_else_in_procedure_statements] = STATE(7831),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7831),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7831),
-    [sym_internal_procedures] = STATE(5736),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [245] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8268),
+    [sym_preproc_elif_in_statements] = STATE(8268),
+    [sym_preproc_elifdef_in_statements] = STATE(8268),
+    [sym_preproc_else_in_procedure_statements] = STATE(8656),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8656),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8656),
+    [sym_internal_procedures] = STATE(5726),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(248),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1492),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1498),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1494),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -105740,7 +105784,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1496),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105799,103 +105843,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [245] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_internal_procedures] = STATE(5716),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [246] = {
+    [sym_preproc_include] = STATE(269),
+    [sym_preproc_def] = STATE(269),
+    [sym_preproc_function_def] = STATE(269),
+    [sym_preproc_call] = STATE(269),
+    [sym_preproc_if_in_statements] = STATE(269),
+    [sym_preproc_ifdef_in_statements] = STATE(269),
+    [sym_preproc_else_in_statements] = STATE(8100),
+    [sym_preproc_elif_in_statements] = STATE(8100),
+    [sym_preproc_elifdef_in_statements] = STATE(8100),
+    [sym_preproc_else_in_procedure_statements] = STATE(8376),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8376),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8376),
+    [sym_internal_procedures] = STATE(5709),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(269),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(864),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
+    [aux_sym_preproc_if_token2] = ACTIONS(1500),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -105925,7 +105969,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1502),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -105984,93 +106028,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [246] = {
-    [sym_preproc_include] = STATE(263),
-    [sym_preproc_def] = STATE(263),
-    [sym_preproc_function_def] = STATE(263),
-    [sym_preproc_call] = STATE(263),
-    [sym_preproc_if_in_statements] = STATE(263),
-    [sym_preproc_ifdef_in_statements] = STATE(263),
-    [sym_preproc_else_in_statements] = STATE(7742),
-    [sym_preproc_elif_in_statements] = STATE(7742),
-    [sym_preproc_elifdef_in_statements] = STATE(7742),
-    [sym_preproc_else_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8287),
-    [sym_internal_procedures] = STATE(5683),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [247] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7749),
+    [sym_preproc_elif_in_statements] = STATE(7749),
+    [sym_preproc_elifdef_in_statements] = STATE(7749),
+    [sym_preproc_else_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
+    [sym_internal_procedures] = STATE(5713),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(263),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1498),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1504),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -106080,7 +106124,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -106110,7 +106154,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1500),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -106169,93 +106213,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [247] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8651),
-    [sym_preproc_elif_in_statements] = STATE(8651),
-    [sym_preproc_elifdef_in_statements] = STATE(8651),
-    [sym_preproc_else_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8050),
-    [sym_internal_procedures] = STATE(5728),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [248] = {
+    [sym_preproc_include] = STATE(252),
+    [sym_preproc_def] = STATE(252),
+    [sym_preproc_function_def] = STATE(252),
+    [sym_preproc_call] = STATE(252),
+    [sym_preproc_if_in_statements] = STATE(252),
+    [sym_preproc_ifdef_in_statements] = STATE(252),
+    [sym_preproc_else_in_statements] = STATE(7749),
+    [sym_preproc_elif_in_statements] = STATE(7749),
+    [sym_preproc_elifdef_in_statements] = STATE(7749),
+    [sym_preproc_else_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
+    [sym_internal_procedures] = STATE(5713),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(252),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1502),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1504),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -106265,7 +106309,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -106295,7 +106339,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1506),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -106354,93 +106398,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [248] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7742),
-    [sym_preproc_elif_in_statements] = STATE(7742),
-    [sym_preproc_elifdef_in_statements] = STATE(7742),
-    [sym_preproc_else_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8287),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8287),
-    [sym_internal_procedures] = STATE(5683),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [249] = {
+    [sym_preproc_include] = STATE(264),
+    [sym_preproc_def] = STATE(264),
+    [sym_preproc_function_def] = STATE(264),
+    [sym_preproc_call] = STATE(264),
+    [sym_preproc_if_in_statements] = STATE(264),
+    [sym_preproc_ifdef_in_statements] = STATE(264),
+    [sym_preproc_else_in_statements] = STATE(8264),
+    [sym_preproc_elif_in_statements] = STATE(8264),
+    [sym_preproc_elifdef_in_statements] = STATE(8264),
+    [sym_preproc_else_in_procedure_statements] = STATE(8657),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8657),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8657),
+    [sym_internal_procedures] = STATE(5686),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(264),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1498),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1508),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -106450,7 +106494,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -106480,7 +106524,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1510),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -106539,103 +106583,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [249] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7747),
-    [sym_preproc_elif_in_specification_part] = STATE(7747),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7747),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7764),
-    [sym_preproc_elif_in_statements] = STATE(7764),
-    [sym_preproc_elifdef_in_statements] = STATE(7764),
-    [sym_internal_procedures] = STATE(5681),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [250] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7750),
+    [sym_preproc_elif_in_statements] = STATE(7750),
+    [sym_preproc_elifdef_in_statements] = STATE(7750),
+    [sym_preproc_else_in_procedure_statements] = STATE(8494),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8494),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8494),
+    [sym_internal_procedures] = STATE(5721),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
+    [aux_sym_preproc_if_token2] = ACTIONS(1512),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -106724,93 +106768,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [250] = {
-    [sym_preproc_include] = STATE(266),
-    [sym_preproc_def] = STATE(266),
-    [sym_preproc_function_def] = STATE(266),
-    [sym_preproc_call] = STATE(266),
-    [sym_preproc_if_in_statements] = STATE(266),
-    [sym_preproc_ifdef_in_statements] = STATE(266),
-    [sym_preproc_else_in_statements] = STATE(8651),
-    [sym_preproc_elif_in_statements] = STATE(8651),
-    [sym_preproc_elifdef_in_statements] = STATE(8651),
-    [sym_preproc_else_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8050),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8050),
+  [251] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7760),
+    [sym_preproc_elif_in_statements] = STATE(7760),
+    [sym_preproc_elifdef_in_statements] = STATE(7760),
+    [sym_preproc_else_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8393),
     [sym_internal_procedures] = STATE(5728),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(266),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1502),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1514),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -106820,7 +106864,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -106850,7 +106894,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1504),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -106909,103 +106953,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [251] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_internal_procedures] = STATE(5731),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [252] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7756),
+    [sym_preproc_elif_in_statements] = STATE(7756),
+    [sym_preproc_elifdef_in_statements] = STATE(7756),
+    [sym_preproc_else_in_procedure_statements] = STATE(8473),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8473),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8473),
+    [sym_internal_procedures] = STATE(5722),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(876),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
+    [aux_sym_preproc_if_token2] = ACTIONS(1516),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -107094,93 +107138,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [252] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8682),
-    [sym_preproc_elif_in_statements] = STATE(8682),
-    [sym_preproc_elifdef_in_statements] = STATE(8682),
-    [sym_preproc_else_in_procedure_statements] = STATE(8342),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8342),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8342),
-    [sym_internal_procedures] = STATE(5732),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [253] = {
+    [sym_preproc_include] = STATE(250),
+    [sym_preproc_def] = STATE(250),
+    [sym_preproc_function_def] = STATE(250),
+    [sym_preproc_call] = STATE(250),
+    [sym_preproc_if_in_statements] = STATE(250),
+    [sym_preproc_ifdef_in_statements] = STATE(250),
+    [sym_preproc_else_in_statements] = STATE(7742),
+    [sym_preproc_elif_in_statements] = STATE(7742),
+    [sym_preproc_elifdef_in_statements] = STATE(7742),
+    [sym_preproc_else_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8562),
+    [sym_internal_procedures] = STATE(5704),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(250),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1506),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1518),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -107190,7 +107234,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -107220,7 +107264,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1520),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -107279,93 +107323,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [253] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7749),
-    [sym_preproc_elif_in_statements] = STATE(7749),
-    [sym_preproc_elifdef_in_statements] = STATE(7749),
-    [sym_preproc_else_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7860),
-    [sym_internal_procedures] = STATE(5687),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [254] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8145),
+    [sym_preproc_elif_in_statements] = STATE(8145),
+    [sym_preproc_elifdef_in_statements] = STATE(8145),
+    [sym_preproc_else_in_procedure_statements] = STATE(8342),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8342),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8342),
+    [sym_internal_procedures] = STATE(5727),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1508),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1522),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -107375,7 +107419,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -107464,103 +107508,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [254] = {
-    [sym_preproc_include] = STATE(258),
-    [sym_preproc_def] = STATE(258),
-    [sym_preproc_function_def] = STATE(258),
-    [sym_preproc_call] = STATE(258),
-    [sym_preproc_if_in_statements] = STATE(258),
-    [sym_preproc_ifdef_in_statements] = STATE(258),
-    [sym_preproc_else_in_statements] = STATE(8126),
-    [sym_preproc_elif_in_statements] = STATE(8126),
-    [sym_preproc_elifdef_in_statements] = STATE(8126),
-    [sym_preproc_else_in_procedure_statements] = STATE(7889),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7889),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7889),
-    [sym_internal_procedures] = STATE(5739),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [255] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8439),
+    [sym_preproc_elif_in_specification_part] = STATE(8439),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8439),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8441),
+    [sym_preproc_elif_in_statements] = STATE(8441),
+    [sym_preproc_elifdef_in_statements] = STATE(8441),
+    [sym_internal_procedures] = STATE(5723),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(258),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1510),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -107590,7 +107634,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1512),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -107649,93 +107693,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [255] = {
-    [sym_preproc_include] = STATE(260),
-    [sym_preproc_def] = STATE(260),
-    [sym_preproc_function_def] = STATE(260),
-    [sym_preproc_call] = STATE(260),
-    [sym_preproc_if_in_statements] = STATE(260),
-    [sym_preproc_ifdef_in_statements] = STATE(260),
-    [sym_preproc_else_in_statements] = STATE(8127),
-    [sym_preproc_elif_in_statements] = STATE(8127),
-    [sym_preproc_elifdef_in_statements] = STATE(8127),
-    [sym_preproc_else_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7927),
+  [256] = {
+    [sym_preproc_include] = STATE(251),
+    [sym_preproc_def] = STATE(251),
+    [sym_preproc_function_def] = STATE(251),
+    [sym_preproc_call] = STATE(251),
+    [sym_preproc_if_in_statements] = STATE(251),
+    [sym_preproc_ifdef_in_statements] = STATE(251),
+    [sym_preproc_else_in_statements] = STATE(8194),
+    [sym_preproc_elif_in_statements] = STATE(8194),
+    [sym_preproc_elifdef_in_statements] = STATE(8194),
+    [sym_preproc_else_in_procedure_statements] = STATE(8228),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8228),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8228),
     [sym_internal_procedures] = STATE(5715),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(260),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(251),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1514),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1524),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -107745,7 +107789,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -107775,7 +107819,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1516),
+    [anon_sym_SEMI] = ACTIONS(1526),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -107834,103 +107878,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [256] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8127),
-    [sym_preproc_elif_in_statements] = STATE(8127),
-    [sym_preproc_elifdef_in_statements] = STATE(8127),
-    [sym_preproc_else_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7927),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7927),
-    [sym_internal_procedures] = STATE(5715),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [257] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8270),
+    [sym_preproc_elif_in_specification_part] = STATE(8270),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8270),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8272),
+    [sym_preproc_elif_in_statements] = STATE(8272),
+    [sym_preproc_elifdef_in_statements] = STATE(8272),
+    [sym_internal_procedures] = STATE(5692),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1514),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(988),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108019,93 +108063,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [257] = {
-    [sym_preproc_include] = STATE(264),
-    [sym_preproc_def] = STATE(264),
-    [sym_preproc_function_def] = STATE(264),
-    [sym_preproc_call] = STATE(264),
-    [sym_preproc_if_in_statements] = STATE(264),
-    [sym_preproc_ifdef_in_statements] = STATE(264),
-    [sym_preproc_else_in_statements] = STATE(7749),
-    [sym_preproc_elif_in_statements] = STATE(7749),
-    [sym_preproc_elifdef_in_statements] = STATE(7749),
-    [sym_preproc_else_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7860),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7860),
-    [sym_internal_procedures] = STATE(5687),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [258] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8272),
+    [sym_preproc_elif_in_statements] = STATE(8272),
+    [sym_preproc_elifdef_in_statements] = STATE(8272),
+    [sym_preproc_else_in_procedure_statements] = STATE(8655),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8655),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8655),
+    [sym_internal_procedures] = STATE(5683),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(264),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1508),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1528),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -108115,7 +108159,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108145,7 +108189,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1518),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -108204,93 +108248,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [258] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8167),
-    [sym_preproc_elif_in_statements] = STATE(8167),
-    [sym_preproc_elifdef_in_statements] = STATE(8167),
-    [sym_preproc_else_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8155),
-    [sym_internal_procedures] = STATE(5734),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [259] = {
+    [sym_preproc_include] = STATE(280),
+    [sym_preproc_def] = STATE(280),
+    [sym_preproc_function_def] = STATE(280),
+    [sym_preproc_call] = STATE(280),
+    [sym_preproc_if_in_statements] = STATE(280),
+    [sym_preproc_ifdef_in_statements] = STATE(280),
+    [sym_preproc_else_in_statements] = STATE(7760),
+    [sym_preproc_elif_in_statements] = STATE(7760),
+    [sym_preproc_elifdef_in_statements] = STATE(7760),
+    [sym_preproc_else_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8393),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8393),
+    [sym_internal_procedures] = STATE(5728),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(280),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1520),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1514),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -108300,7 +108344,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108330,7 +108374,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1530),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -108389,93 +108433,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [259] = {
-    [sym_preproc_include] = STATE(261),
-    [sym_preproc_def] = STATE(261),
-    [sym_preproc_function_def] = STATE(261),
-    [sym_preproc_call] = STATE(261),
-    [sym_preproc_if_in_statements] = STATE(261),
-    [sym_preproc_ifdef_in_statements] = STATE(261),
-    [sym_preproc_else_in_statements] = STATE(8167),
-    [sym_preproc_elif_in_statements] = STATE(8167),
-    [sym_preproc_elifdef_in_statements] = STATE(8167),
-    [sym_preproc_else_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8155),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8155),
-    [sym_internal_procedures] = STATE(5734),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [260] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_preproc_else_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8535),
+    [sym_internal_procedures] = STATE(5718),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(261),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1520),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1532),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -108485,7 +108529,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108515,7 +108559,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1522),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -108574,93 +108618,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [260] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8169),
-    [sym_preproc_elif_in_statements] = STATE(8169),
-    [sym_preproc_elifdef_in_statements] = STATE(8169),
-    [sym_preproc_else_in_procedure_statements] = STATE(8158),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8158),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8158),
-    [sym_internal_procedures] = STATE(5737),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [261] = {
+    [sym_preproc_include] = STATE(247),
+    [sym_preproc_def] = STATE(247),
+    [sym_preproc_function_def] = STATE(247),
+    [sym_preproc_call] = STATE(247),
+    [sym_preproc_if_in_statements] = STATE(247),
+    [sym_preproc_ifdef_in_statements] = STATE(247),
+    [sym_preproc_else_in_statements] = STATE(7741),
+    [sym_preproc_elif_in_statements] = STATE(7741),
+    [sym_preproc_elifdef_in_statements] = STATE(7741),
+    [sym_preproc_else_in_procedure_statements] = STATE(8569),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8569),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8569),
+    [sym_internal_procedures] = STATE(5700),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(247),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1524),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1534),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -108670,7 +108714,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108700,7 +108744,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1536),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -108759,103 +108803,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [261] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8199),
-    [sym_preproc_elif_in_statements] = STATE(8199),
-    [sym_preproc_elifdef_in_statements] = STATE(8199),
-    [sym_preproc_else_in_procedure_statements] = STATE(8207),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8207),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8207),
-    [sym_internal_procedures] = STATE(5690),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [262] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_internal_procedures] = STATE(5702),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1526),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -108944,103 +108988,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [262] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8566),
-    [sym_preproc_elif_in_specification_part] = STATE(8566),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8566),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8567),
-    [sym_preproc_elif_in_statements] = STATE(8567),
-    [sym_preproc_elifdef_in_statements] = STATE(8567),
-    [sym_internal_procedures] = STATE(5733),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [263] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7852),
+    [sym_preproc_elif_in_statements] = STATE(7852),
+    [sym_preproc_elifdef_in_statements] = STATE(7852),
+    [sym_internal_procedures] = STATE(5716),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
+    [aux_sym_preproc_if_token2] = ACTIONS(1454),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -109129,93 +109173,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [263] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7750),
-    [sym_preproc_elif_in_statements] = STATE(7750),
-    [sym_preproc_elifdef_in_statements] = STATE(7750),
-    [sym_preproc_else_in_procedure_statements] = STATE(7951),
-    [sym_preproc_elif_in_procedure_statements] = STATE(7951),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(7951),
-    [sym_internal_procedures] = STATE(5698),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [264] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8441),
+    [sym_preproc_elif_in_statements] = STATE(8441),
+    [sym_preproc_elifdef_in_statements] = STATE(8441),
+    [sym_preproc_else_in_procedure_statements] = STATE(8623),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8623),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8623),
+    [sym_internal_procedures] = STATE(5707),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1528),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1538),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -109225,7 +109269,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -109314,93 +109358,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [264] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7756),
-    [sym_preproc_elif_in_statements] = STATE(7756),
-    [sym_preproc_elifdef_in_statements] = STATE(7756),
-    [sym_preproc_else_in_procedure_statements] = STATE(8309),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8309),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8309),
-    [sym_internal_procedures] = STATE(5702),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [265] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8118),
+    [sym_preproc_elif_in_statements] = STATE(8118),
+    [sym_preproc_elifdef_in_statements] = STATE(8118),
+    [sym_preproc_else_in_procedure_statements] = STATE(8319),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8319),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8319),
+    [sym_internal_procedures] = STATE(5680),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1530),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1540),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -109410,192 +109454,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [265] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8231),
-    [sym_preproc_elif_in_statements] = STATE(8231),
-    [sym_preproc_elifdef_in_statements] = STATE(8231),
-    [sym_internal_procedures] = STATE(5710),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1458),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -109685,92 +109544,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [266] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7754),
-    [sym_preproc_elif_in_statements] = STATE(7754),
-    [sym_preproc_elifdef_in_statements] = STATE(7754),
-    [sym_preproc_else_in_procedure_statements] = STATE(8275),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8275),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8275),
-    [sym_internal_procedures] = STATE(5712),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7763),
+    [sym_preproc_elif_in_statements] = STATE(7763),
+    [sym_preproc_elifdef_in_statements] = STATE(7763),
+    [sym_preproc_else_in_procedure_statements] = STATE(8397),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8397),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8397),
+    [sym_internal_procedures] = STATE(5734),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1532),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1542),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -109780,7 +109639,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -109870,102 +109729,102 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [267] = {
-    [sym_preproc_include] = STATE(271),
-    [sym_preproc_def] = STATE(271),
-    [sym_preproc_function_def] = STATE(271),
-    [sym_preproc_call] = STATE(271),
-    [sym_preproc_if_in_statements] = STATE(271),
-    [sym_preproc_ifdef_in_statements] = STATE(271),
-    [sym_preproc_else_in_statements] = STATE(8264),
-    [sym_preproc_elif_in_statements] = STATE(8264),
-    [sym_preproc_elifdef_in_statements] = STATE(8264),
-    [sym_preproc_else_in_procedure_statements] = STATE(8441),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8441),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8441),
-    [sym_internal_procedures] = STATE(5713),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8267),
+    [sym_preproc_elif_in_specification_part] = STATE(8267),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8267),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8268),
+    [sym_preproc_elif_in_statements] = STATE(8268),
+    [sym_preproc_elifdef_in_statements] = STATE(8268),
+    [sym_internal_procedures] = STATE(5690),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(271),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1534),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(976),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -109995,7 +109854,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1536),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -110055,92 +109914,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [268] = {
-    [sym_preproc_include] = STATE(272),
-    [sym_preproc_def] = STATE(272),
-    [sym_preproc_function_def] = STATE(272),
-    [sym_preproc_call] = STATE(272),
-    [sym_preproc_if_in_statements] = STATE(272),
-    [sym_preproc_ifdef_in_statements] = STATE(272),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_preproc_else_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8492),
-    [sym_internal_procedures] = STATE(5722),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_include] = STATE(254),
+    [sym_preproc_def] = STATE(254),
+    [sym_preproc_function_def] = STATE(254),
+    [sym_preproc_call] = STATE(254),
+    [sym_preproc_if_in_statements] = STATE(254),
+    [sym_preproc_ifdef_in_statements] = STATE(254),
+    [sym_preproc_else_in_statements] = STATE(8116),
+    [sym_preproc_elif_in_statements] = STATE(8116),
+    [sym_preproc_elifdef_in_statements] = STATE(8116),
+    [sym_preproc_else_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8317),
+    [sym_internal_procedures] = STATE(5730),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(272),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(254),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1538),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1544),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -110150,7 +110009,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -110180,7 +110039,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1540),
+    [anon_sym_SEMI] = ACTIONS(1546),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -110240,92 +110099,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [269] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_preproc_else_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8492),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8492),
-    [sym_internal_procedures] = STATE(5722),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8116),
+    [sym_preproc_elif_in_statements] = STATE(8116),
+    [sym_preproc_elifdef_in_statements] = STATE(8116),
+    [sym_preproc_else_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8317),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8317),
+    [sym_internal_procedures] = STATE(5730),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1538),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1544),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -110335,7 +110194,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -110425,277 +110284,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [270] = {
-    [sym_preproc_include] = STATE(274),
-    [sym_preproc_def] = STATE(274),
-    [sym_preproc_function_def] = STATE(274),
-    [sym_preproc_call] = STATE(274),
-    [sym_preproc_if_in_statements] = STATE(274),
-    [sym_preproc_ifdef_in_statements] = STATE(274),
-    [sym_preproc_else_in_statements] = STATE(8510),
-    [sym_preproc_elif_in_statements] = STATE(8510),
-    [sym_preproc_elifdef_in_statements] = STATE(8510),
-    [sym_preproc_else_in_procedure_statements] = STATE(8312),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8312),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8312),
-    [sym_internal_procedures] = STATE(5703),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(274),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1542),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1544),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [271] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7986),
-    [sym_preproc_elif_in_statements] = STATE(7986),
-    [sym_preproc_elifdef_in_statements] = STATE(7986),
-    [sym_preproc_else_in_procedure_statements] = STATE(8320),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8320),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8320),
-    [sym_internal_procedures] = STATE(5680),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7713),
+    [sym_preproc_elif_in_statements] = STATE(7713),
+    [sym_preproc_elifdef_in_statements] = STATE(7713),
+    [sym_preproc_else_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8191),
+    [sym_internal_procedures] = STATE(5698),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1546),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1548),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -110705,7 +110379,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -110794,103 +110468,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [272] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7764),
-    [sym_preproc_elif_in_statements] = STATE(7764),
-    [sym_preproc_elifdef_in_statements] = STATE(7764),
-    [sym_preproc_else_in_procedure_statements] = STATE(8323),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8323),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8323),
-    [sym_internal_procedures] = STATE(5707),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [271] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8153),
+    [sym_preproc_elif_in_statements] = STATE(8153),
+    [sym_preproc_elifdef_in_statements] = STATE(8153),
+    [sym_internal_procedures] = STATE(5725),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1548),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(1464),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -110979,103 +110653,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [273] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8318),
-    [sym_preproc_elif_in_statements] = STATE(8318),
-    [sym_preproc_elifdef_in_statements] = STATE(8318),
-    [sym_internal_procedures] = STATE(5726),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [272] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_internal_procedures] = STATE(5682),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1450),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
+    [aux_sym_preproc_if_token2] = ACTIONS(872),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -111164,93 +110838,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [274] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8567),
-    [sym_preproc_elif_in_statements] = STATE(8567),
-    [sym_preproc_elifdef_in_statements] = STATE(8567),
-    [sym_preproc_else_in_procedure_statements] = STATE(8668),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8668),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8668),
+  [273] = {
+    [sym_preproc_include] = STATE(258),
+    [sym_preproc_def] = STATE(258),
+    [sym_preproc_function_def] = STATE(258),
+    [sym_preproc_call] = STATE(258),
+    [sym_preproc_if_in_statements] = STATE(258),
+    [sym_preproc_ifdef_in_statements] = STATE(258),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_preproc_else_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8535),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8535),
     [sym_internal_procedures] = STATE(5718),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(258),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1550),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1532),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -111260,7 +110934,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -111290,7 +110964,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1550),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -111349,93 +111023,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [275] = {
-    [sym_preproc_include] = STATE(253),
-    [sym_preproc_def] = STATE(253),
-    [sym_preproc_function_def] = STATE(253),
-    [sym_preproc_call] = STATE(253),
-    [sym_preproc_if_in_statements] = STATE(253),
-    [sym_preproc_ifdef_in_statements] = STATE(253),
-    [sym_preproc_else_in_statements] = STATE(7741),
-    [sym_preproc_elif_in_statements] = STATE(7741),
-    [sym_preproc_elifdef_in_statements] = STATE(7741),
-    [sym_preproc_else_in_procedure_statements] = STATE(8253),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8253),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8253),
-    [sym_internal_procedures] = STATE(5709),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [274] = {
+    [sym_preproc_include] = STATE(266),
+    [sym_preproc_def] = STATE(266),
+    [sym_preproc_function_def] = STATE(266),
+    [sym_preproc_call] = STATE(266),
+    [sym_preproc_if_in_statements] = STATE(266),
+    [sym_preproc_ifdef_in_statements] = STATE(266),
+    [sym_preproc_else_in_statements] = STATE(7713),
+    [sym_preproc_elif_in_statements] = STATE(7713),
+    [sym_preproc_elifdef_in_statements] = STATE(7713),
+    [sym_preproc_else_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8191),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8191),
+    [sym_internal_procedures] = STATE(5698),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(253),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(266),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1552),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1548),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -111445,7 +111119,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -111475,7 +111149,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1554),
+    [anon_sym_SEMI] = ACTIONS(1552),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -111534,463 +111208,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [276] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8398),
-    [sym_preproc_elif_in_specification_part] = STATE(8398),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8398),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7986),
-    [sym_preproc_elif_in_statements] = STATE(7986),
-    [sym_preproc_elifdef_in_statements] = STATE(7986),
-    [sym_internal_procedures] = STATE(5708),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [277] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_internal_procedures] = STATE(5684),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(848),
-    [aux_sym_preproc_elif_token1] = ACTIONS(850),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(852),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(852),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [278] = {
-    [sym_preproc_include] = STATE(247),
-    [sym_preproc_def] = STATE(247),
-    [sym_preproc_function_def] = STATE(247),
-    [sym_preproc_call] = STATE(247),
-    [sym_preproc_if_in_statements] = STATE(247),
-    [sym_preproc_ifdef_in_statements] = STATE(247),
-    [sym_preproc_else_in_statements] = STATE(8555),
-    [sym_preproc_elif_in_statements] = STATE(8555),
-    [sym_preproc_elifdef_in_statements] = STATE(8555),
-    [sym_preproc_else_in_procedure_statements] = STATE(8499),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8499),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8499),
-    [sym_internal_procedures] = STATE(5685),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [275] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7742),
+    [sym_preproc_elif_in_statements] = STATE(7742),
+    [sym_preproc_elifdef_in_statements] = STATE(7742),
+    [sym_preproc_else_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8562),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8562),
+    [sym_internal_procedures] = STATE(5704),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(247),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1518),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -112000,7 +111304,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -112030,7 +111334,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1558),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -112089,93 +111393,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [279] = {
-    [sym_preproc_include] = STATE(252),
-    [sym_preproc_def] = STATE(252),
-    [sym_preproc_function_def] = STATE(252),
-    [sym_preproc_call] = STATE(252),
-    [sym_preproc_if_in_statements] = STATE(252),
-    [sym_preproc_ifdef_in_statements] = STATE(252),
-    [sym_preproc_else_in_statements] = STATE(8556),
-    [sym_preproc_elif_in_statements] = STATE(8556),
-    [sym_preproc_elifdef_in_statements] = STATE(8556),
-    [sym_preproc_else_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8372),
-    [sym_internal_procedures] = STATE(5719),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [276] = {
+    [sym_preproc_include] = STATE(245),
+    [sym_preproc_def] = STATE(245),
+    [sym_preproc_function_def] = STATE(245),
+    [sym_preproc_call] = STATE(245),
+    [sym_preproc_if_in_statements] = STATE(245),
+    [sym_preproc_ifdef_in_statements] = STATE(245),
+    [sym_preproc_else_in_statements] = STATE(7870),
+    [sym_preproc_elif_in_statements] = STATE(7870),
+    [sym_preproc_elifdef_in_statements] = STATE(7870),
+    [sym_preproc_else_in_procedure_statements] = STATE(8534),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8534),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8534),
+    [sym_internal_procedures] = STATE(5714),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(252),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(245),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1560),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1554),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1470),
     [aux_sym_preproc_elif_token1] = ACTIONS(1472),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
@@ -112185,7 +111489,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -112215,7 +111519,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1562),
+    [anon_sym_SEMI] = ACTIONS(1556),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -112274,103 +111578,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [280] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8556),
-    [sym_preproc_elif_in_statements] = STATE(8556),
-    [sym_preproc_elifdef_in_statements] = STATE(8556),
-    [sym_preproc_else_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elif_in_procedure_statements] = STATE(8372),
-    [sym_preproc_elifdef_in_procedure_statements] = STATE(8372),
-    [sym_internal_procedures] = STATE(5719),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [277] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_internal_procedures] = STATE(5711),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1560),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1470),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
+    [aux_sym_preproc_if_token2] = ACTIONS(876),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(850),
+    [aux_sym_preproc_elif_token1] = ACTIONS(852),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(854),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(854),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -112459,284 +111763,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [281] = {
-    [sym_preproc_include] = STATE(373),
-    [sym_preproc_def] = STATE(373),
-    [sym_preproc_function_def] = STATE(373),
-    [sym_preproc_call] = STATE(373),
-    [sym_preproc_if_in_statements] = STATE(373),
-    [sym_preproc_ifdef_in_statements] = STATE(373),
-    [sym_preproc_else_in_statements] = STATE(8078),
-    [sym_preproc_elif_in_statements] = STATE(8078),
-    [sym_preproc_elifdef_in_statements] = STATE(8078),
-    [sym_internal_procedures] = STATE(5875),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(373),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1564),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1572),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1574),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [282] = {
-    [sym_preproc_include] = STATE(340),
-    [sym_preproc_def] = STATE(340),
-    [sym_preproc_function_def] = STATE(340),
-    [sym_preproc_call] = STATE(340),
-    [sym_preproc_if_in_statements] = STATE(340),
-    [sym_preproc_ifdef_in_statements] = STATE(340),
-    [sym_preproc_else_in_statements] = STATE(8396),
-    [sym_preproc_elif_in_statements] = STATE(8396),
-    [sym_preproc_elifdef_in_statements] = STATE(8396),
-    [sym_internal_procedures] = STATE(5893),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [278] = {
+    [sym_preproc_include] = STATE(265),
+    [sym_preproc_def] = STATE(265),
+    [sym_preproc_function_def] = STATE(265),
+    [sym_preproc_call] = STATE(265),
+    [sym_preproc_if_in_statements] = STATE(265),
+    [sym_preproc_ifdef_in_statements] = STATE(265),
+    [sym_preproc_else_in_statements] = STATE(8103),
+    [sym_preproc_elif_in_statements] = STATE(8103),
+    [sym_preproc_elifdef_in_statements] = STATE(8103),
+    [sym_preproc_else_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8243),
+    [sym_internal_procedures] = STATE(5696),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(340),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(265),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1576),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1558),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1578),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -112766,7 +111889,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1580),
+    [anon_sym_SEMI] = ACTIONS(1560),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -112825,101 +111948,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [283] = {
-    [sym_preproc_include] = STATE(394),
-    [sym_preproc_def] = STATE(394),
-    [sym_preproc_function_def] = STATE(394),
-    [sym_preproc_call] = STATE(394),
-    [sym_preproc_if_in_statements] = STATE(394),
-    [sym_preproc_ifdef_in_statements] = STATE(394),
-    [sym_preproc_else_in_statements] = STATE(8430),
-    [sym_preproc_elif_in_statements] = STATE(8430),
-    [sym_preproc_elifdef_in_statements] = STATE(8430),
-    [sym_internal_procedures] = STATE(5946),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [279] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8103),
+    [sym_preproc_elif_in_statements] = STATE(8103),
+    [sym_preproc_elifdef_in_statements] = STATE(8103),
+    [sym_preproc_else_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8243),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8243),
+    [sym_internal_procedures] = STATE(5696),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(394),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1582),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1558),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1584),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -112949,7 +112074,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1586),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113008,101 +112133,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [284] = {
-    [sym_preproc_include] = STATE(330),
-    [sym_preproc_def] = STATE(330),
-    [sym_preproc_function_def] = STATE(330),
-    [sym_preproc_call] = STATE(330),
-    [sym_preproc_if_in_statements] = STATE(330),
-    [sym_preproc_ifdef_in_statements] = STATE(330),
-    [sym_preproc_else_in_statements] = STATE(8261),
-    [sym_preproc_elif_in_statements] = STATE(8261),
-    [sym_preproc_elifdef_in_statements] = STATE(8261),
-    [sym_internal_procedures] = STATE(5820),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [280] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7836),
+    [sym_preproc_elif_in_statements] = STATE(7836),
+    [sym_preproc_elifdef_in_statements] = STATE(7836),
+    [sym_preproc_else_in_procedure_statements] = STATE(8531),
+    [sym_preproc_elif_in_procedure_statements] = STATE(8531),
+    [sym_preproc_elifdef_in_procedure_statements] = STATE(8531),
+    [sym_internal_procedures] = STATE(5712),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(330),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1588),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1562),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1470),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1472),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1474),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1474),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1590),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -113132,7 +112259,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1592),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113191,101 +112318,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [285] = {
-    [sym_preproc_include] = STATE(409),
-    [sym_preproc_def] = STATE(409),
-    [sym_preproc_function_def] = STATE(409),
-    [sym_preproc_call] = STATE(409),
-    [sym_preproc_if_in_statements] = STATE(409),
-    [sym_preproc_ifdef_in_statements] = STATE(409),
-    [sym_preproc_else_in_statements] = STATE(8541),
-    [sym_preproc_elif_in_statements] = STATE(8541),
-    [sym_preproc_elifdef_in_statements] = STATE(8541),
-    [sym_internal_procedures] = STATE(5845),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [281] = {
+    [sym_preproc_include] = STATE(389),
+    [sym_preproc_def] = STATE(389),
+    [sym_preproc_function_def] = STATE(389),
+    [sym_preproc_call] = STATE(389),
+    [sym_preproc_if_in_statements] = STATE(389),
+    [sym_preproc_ifdef_in_statements] = STATE(389),
+    [sym_preproc_else_in_statements] = STATE(8381),
+    [sym_preproc_elif_in_statements] = STATE(8381),
+    [sym_preproc_elifdef_in_statements] = STATE(8381),
+    [sym_internal_procedures] = STATE(5795),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(409),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(389),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1564),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1596),
+    [sym_preproc_comment] = ACTIONS(1572),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -113315,7 +112442,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1598),
+    [anon_sym_SEMI] = ACTIONS(1574),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113374,101 +112501,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [286] = {
-    [sym_preproc_include] = STATE(355),
-    [sym_preproc_def] = STATE(355),
-    [sym_preproc_function_def] = STATE(355),
-    [sym_preproc_call] = STATE(355),
-    [sym_preproc_if_in_statements] = STATE(355),
-    [sym_preproc_ifdef_in_statements] = STATE(355),
-    [sym_preproc_else_in_statements] = STATE(7796),
-    [sym_preproc_elif_in_statements] = STATE(7796),
-    [sym_preproc_elifdef_in_statements] = STATE(7796),
-    [sym_internal_procedures] = STATE(5881),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [282] = {
+    [sym_preproc_include] = STATE(455),
+    [sym_preproc_def] = STATE(455),
+    [sym_preproc_function_def] = STATE(455),
+    [sym_preproc_call] = STATE(455),
+    [sym_preproc_if_in_statements] = STATE(455),
+    [sym_preproc_ifdef_in_statements] = STATE(455),
+    [sym_preproc_else_in_statements] = STATE(7773),
+    [sym_preproc_elif_in_statements] = STATE(7773),
+    [sym_preproc_elifdef_in_statements] = STATE(7773),
+    [sym_internal_procedures] = STATE(5882),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(355),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(455),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1576),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1602),
+    [sym_preproc_comment] = ACTIONS(1578),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -113498,7 +112625,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1604),
+    [anon_sym_SEMI] = ACTIONS(1580),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113557,101 +112684,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [287] = {
-    [sym_preproc_include] = STATE(380),
-    [sym_preproc_def] = STATE(380),
-    [sym_preproc_function_def] = STATE(380),
-    [sym_preproc_call] = STATE(380),
-    [sym_preproc_if_in_statements] = STATE(380),
-    [sym_preproc_ifdef_in_statements] = STATE(380),
-    [sym_preproc_else_in_statements] = STATE(8063),
-    [sym_preproc_elif_in_statements] = STATE(8063),
-    [sym_preproc_elifdef_in_statements] = STATE(8063),
-    [sym_internal_procedures] = STATE(5927),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [283] = {
+    [sym_preproc_include] = STATE(343),
+    [sym_preproc_def] = STATE(343),
+    [sym_preproc_function_def] = STATE(343),
+    [sym_preproc_call] = STATE(343),
+    [sym_preproc_if_in_statements] = STATE(343),
+    [sym_preproc_ifdef_in_statements] = STATE(343),
+    [sym_preproc_else_in_statements] = STATE(7931),
+    [sym_preproc_elif_in_statements] = STATE(7931),
+    [sym_preproc_elifdef_in_statements] = STATE(7931),
+    [sym_internal_procedures] = STATE(5980),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(380),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(343),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1582),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1608),
+    [sym_preproc_comment] = ACTIONS(1584),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -113681,7 +112808,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1610),
+    [anon_sym_SEMI] = ACTIONS(1586),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113740,101 +112867,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [288] = {
-    [sym_preproc_include] = STATE(313),
-    [sym_preproc_def] = STATE(313),
-    [sym_preproc_function_def] = STATE(313),
-    [sym_preproc_call] = STATE(313),
-    [sym_preproc_if_in_statements] = STATE(313),
-    [sym_preproc_ifdef_in_statements] = STATE(313),
-    [sym_preproc_else_in_statements] = STATE(8667),
-    [sym_preproc_elif_in_statements] = STATE(8667),
-    [sym_preproc_elifdef_in_statements] = STATE(8667),
-    [sym_internal_procedures] = STATE(5975),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [284] = {
+    [sym_preproc_include] = STATE(433),
+    [sym_preproc_def] = STATE(433),
+    [sym_preproc_function_def] = STATE(433),
+    [sym_preproc_call] = STATE(433),
+    [sym_preproc_if_in_statements] = STATE(433),
+    [sym_preproc_ifdef_in_statements] = STATE(433),
+    [sym_preproc_else_in_statements] = STATE(8670),
+    [sym_preproc_elif_in_statements] = STATE(8670),
+    [sym_preproc_elifdef_in_statements] = STATE(8670),
+    [sym_internal_procedures] = STATE(5925),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(313),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(433),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1588),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1614),
+    [sym_preproc_comment] = ACTIONS(1590),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -113864,7 +112991,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1616),
+    [anon_sym_SEMI] = ACTIONS(1592),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -113923,101 +113050,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [289] = {
-    [sym_preproc_include] = STATE(387),
-    [sym_preproc_def] = STATE(387),
-    [sym_preproc_function_def] = STATE(387),
-    [sym_preproc_call] = STATE(387),
-    [sym_preproc_if_in_statements] = STATE(387),
-    [sym_preproc_ifdef_in_statements] = STATE(387),
-    [sym_preproc_else_in_statements] = STATE(8274),
-    [sym_preproc_elif_in_statements] = STATE(8274),
-    [sym_preproc_elifdef_in_statements] = STATE(8274),
-    [sym_internal_procedures] = STATE(5971),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [285] = {
+    [sym_preproc_include] = STATE(401),
+    [sym_preproc_def] = STATE(401),
+    [sym_preproc_function_def] = STATE(401),
+    [sym_preproc_call] = STATE(401),
+    [sym_preproc_if_in_statements] = STATE(401),
+    [sym_preproc_ifdef_in_statements] = STATE(401),
+    [sym_preproc_else_in_statements] = STATE(7869),
+    [sym_preproc_elif_in_statements] = STATE(7869),
+    [sym_preproc_elifdef_in_statements] = STATE(7869),
+    [sym_internal_procedures] = STATE(5842),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(387),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(401),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1594),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1620),
+    [sym_preproc_comment] = ACTIONS(1596),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114047,7 +113174,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1622),
+    [anon_sym_SEMI] = ACTIONS(1598),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -114106,101 +113233,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [290] = {
-    [sym_preproc_include] = STATE(417),
-    [sym_preproc_def] = STATE(417),
-    [sym_preproc_function_def] = STATE(417),
-    [sym_preproc_call] = STATE(417),
-    [sym_preproc_if_in_statements] = STATE(417),
-    [sym_preproc_ifdef_in_statements] = STATE(417),
-    [sym_preproc_else_in_statements] = STATE(8652),
-    [sym_preproc_elif_in_statements] = STATE(8652),
-    [sym_preproc_elifdef_in_statements] = STATE(8652),
-    [sym_internal_procedures] = STATE(5889),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [286] = {
+    [sym_preproc_include] = STATE(302),
+    [sym_preproc_def] = STATE(302),
+    [sym_preproc_function_def] = STATE(302),
+    [sym_preproc_call] = STATE(302),
+    [sym_preproc_if_in_statements] = STATE(302),
+    [sym_preproc_ifdef_in_statements] = STATE(302),
+    [sym_preproc_else_in_statements] = STATE(7729),
+    [sym_preproc_elif_in_statements] = STATE(7729),
+    [sym_preproc_elifdef_in_statements] = STATE(7729),
+    [sym_internal_procedures] = STATE(5825),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(417),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(302),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1600),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1626),
+    [sym_preproc_comment] = ACTIONS(1602),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114230,7 +113357,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1628),
+    [anon_sym_SEMI] = ACTIONS(1604),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -114289,101 +113416,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [291] = {
-    [sym_preproc_include] = STATE(366),
-    [sym_preproc_def] = STATE(366),
-    [sym_preproc_function_def] = STATE(366),
-    [sym_preproc_call] = STATE(366),
-    [sym_preproc_if_in_statements] = STATE(366),
-    [sym_preproc_ifdef_in_statements] = STATE(366),
-    [sym_preproc_else_in_statements] = STATE(8435),
-    [sym_preproc_elif_in_statements] = STATE(8435),
-    [sym_preproc_elifdef_in_statements] = STATE(8435),
-    [sym_internal_procedures] = STATE(5829),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [287] = {
+    [sym_preproc_include] = STATE(410),
+    [sym_preproc_def] = STATE(410),
+    [sym_preproc_function_def] = STATE(410),
+    [sym_preproc_call] = STATE(410),
+    [sym_preproc_if_in_statements] = STATE(410),
+    [sym_preproc_ifdef_in_statements] = STATE(410),
+    [sym_preproc_else_in_statements] = STATE(8058),
+    [sym_preproc_elif_in_statements] = STATE(8058),
+    [sym_preproc_elifdef_in_statements] = STATE(8058),
+    [sym_internal_procedures] = STATE(5802),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(366),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(410),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1632),
+    [sym_preproc_comment] = ACTIONS(1608),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114413,7 +113540,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1634),
+    [anon_sym_SEMI] = ACTIONS(1610),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -114472,101 +113599,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [292] = {
-    [sym_preproc_include] = STATE(319),
-    [sym_preproc_def] = STATE(319),
-    [sym_preproc_function_def] = STATE(319),
-    [sym_preproc_call] = STATE(319),
-    [sym_preproc_if_in_statements] = STATE(319),
-    [sym_preproc_ifdef_in_statements] = STATE(319),
-    [sym_preproc_else_in_statements] = STATE(8505),
-    [sym_preproc_elif_in_statements] = STATE(8505),
-    [sym_preproc_elifdef_in_statements] = STATE(8505),
-    [sym_internal_procedures] = STATE(5979),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [288] = {
+    [sym_preproc_include] = STATE(396),
+    [sym_preproc_def] = STATE(396),
+    [sym_preproc_function_def] = STATE(396),
+    [sym_preproc_call] = STATE(396),
+    [sym_preproc_if_in_statements] = STATE(396),
+    [sym_preproc_ifdef_in_statements] = STATE(396),
+    [sym_preproc_else_in_statements] = STATE(8249),
+    [sym_preproc_elif_in_statements] = STATE(8249),
+    [sym_preproc_elifdef_in_statements] = STATE(8249),
+    [sym_internal_procedures] = STATE(5894),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(319),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(396),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1636),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1638),
+    [sym_preproc_comment] = ACTIONS(1614),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114596,7 +113723,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1640),
+    [anon_sym_SEMI] = ACTIONS(1616),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -114655,101 +113782,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [293] = {
-    [sym_preproc_include] = STATE(424),
-    [sym_preproc_def] = STATE(424),
-    [sym_preproc_function_def] = STATE(424),
-    [sym_preproc_call] = STATE(424),
-    [sym_preproc_if_in_statements] = STATE(424),
-    [sym_preproc_ifdef_in_statements] = STATE(424),
-    [sym_preproc_else_in_statements] = STATE(7773),
-    [sym_preproc_elif_in_statements] = STATE(7773),
-    [sym_preproc_elifdef_in_statements] = STATE(7773),
-    [sym_internal_procedures] = STATE(5924),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [289] = {
+    [sym_preproc_include] = STATE(313),
+    [sym_preproc_def] = STATE(313),
+    [sym_preproc_function_def] = STATE(313),
+    [sym_preproc_call] = STATE(313),
+    [sym_preproc_if_in_statements] = STATE(313),
+    [sym_preproc_ifdef_in_statements] = STATE(313),
+    [sym_preproc_else_in_statements] = STATE(8330),
+    [sym_preproc_elif_in_statements] = STATE(8330),
+    [sym_preproc_elifdef_in_statements] = STATE(8330),
+    [sym_internal_procedures] = STATE(5992),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(424),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(313),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1642),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1644),
+    [sym_preproc_comment] = ACTIONS(1620),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114779,7 +113906,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1646),
+    [anon_sym_SEMI] = ACTIONS(1622),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -114838,7 +113965,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [294] = {
+  [290] = {
     [sym_preproc_include] = STATE(431),
     [sym_preproc_def] = STATE(431),
     [sym_preproc_function_def] = STATE(431),
@@ -114848,91 +113975,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_else_in_statements] = STATE(7805),
     [sym_preproc_elif_in_statements] = STATE(7805),
     [sym_preproc_elifdef_in_statements] = STATE(7805),
-    [sym_internal_procedures] = STATE(5948),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_internal_procedures] = STATE(5962),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(431),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1648),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1624),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1650),
+    [sym_preproc_comment] = ACTIONS(1626),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -114962,7 +114089,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1652),
+    [anon_sym_SEMI] = ACTIONS(1628),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115021,101 +114148,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [295] = {
-    [sym_preproc_include] = STATE(401),
-    [sym_preproc_def] = STATE(401),
-    [sym_preproc_function_def] = STATE(401),
-    [sym_preproc_call] = STATE(401),
-    [sym_preproc_if_in_statements] = STATE(401),
-    [sym_preproc_ifdef_in_statements] = STATE(401),
-    [sym_preproc_else_in_statements] = STATE(7844),
-    [sym_preproc_elif_in_statements] = STATE(7844),
-    [sym_preproc_elifdef_in_statements] = STATE(7844),
-    [sym_internal_procedures] = STATE(5970),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [291] = {
+    [sym_preproc_include] = STATE(364),
+    [sym_preproc_def] = STATE(364),
+    [sym_preproc_function_def] = STATE(364),
+    [sym_preproc_call] = STATE(364),
+    [sym_preproc_if_in_statements] = STATE(364),
+    [sym_preproc_ifdef_in_statements] = STATE(364),
+    [sym_preproc_else_in_statements] = STATE(8155),
+    [sym_preproc_elif_in_statements] = STATE(8155),
+    [sym_preproc_elifdef_in_statements] = STATE(8155),
+    [sym_internal_procedures] = STATE(5880),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(401),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(364),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1654),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1630),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1656),
+    [sym_preproc_comment] = ACTIONS(1632),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -115145,7 +114272,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1658),
+    [anon_sym_SEMI] = ACTIONS(1634),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115204,101 +114331,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [296] = {
-    [sym_preproc_include] = STATE(438),
-    [sym_preproc_def] = STATE(438),
-    [sym_preproc_function_def] = STATE(438),
-    [sym_preproc_call] = STATE(438),
-    [sym_preproc_if_in_statements] = STATE(438),
-    [sym_preproc_ifdef_in_statements] = STATE(438),
-    [sym_preproc_else_in_statements] = STATE(7837),
-    [sym_preproc_elif_in_statements] = STATE(7837),
-    [sym_preproc_elifdef_in_statements] = STATE(7837),
-    [sym_internal_procedures] = STATE(5960),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [292] = {
+    [sym_preproc_include] = STATE(377),
+    [sym_preproc_def] = STATE(377),
+    [sym_preproc_function_def] = STATE(377),
+    [sym_preproc_call] = STATE(377),
+    [sym_preproc_if_in_statements] = STATE(377),
+    [sym_preproc_ifdef_in_statements] = STATE(377),
+    [sym_preproc_else_in_statements] = STATE(7899),
+    [sym_preproc_elif_in_statements] = STATE(7899),
+    [sym_preproc_elifdef_in_statements] = STATE(7899),
+    [sym_internal_procedures] = STATE(5887),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(438),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(377),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1660),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1636),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1662),
+    [sym_preproc_comment] = ACTIONS(1638),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -115328,7 +114455,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1664),
+    [anon_sym_SEMI] = ACTIONS(1640),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115387,101 +114514,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [297] = {
-    [sym_preproc_include] = STATE(445),
-    [sym_preproc_def] = STATE(445),
-    [sym_preproc_function_def] = STATE(445),
-    [sym_preproc_call] = STATE(445),
-    [sym_preproc_if_in_statements] = STATE(445),
-    [sym_preproc_ifdef_in_statements] = STATE(445),
-    [sym_preproc_else_in_statements] = STATE(7869),
-    [sym_preproc_elif_in_statements] = STATE(7869),
-    [sym_preproc_elifdef_in_statements] = STATE(7869),
+  [293] = {
+    [sym_preproc_include] = STATE(309),
+    [sym_preproc_def] = STATE(309),
+    [sym_preproc_function_def] = STATE(309),
+    [sym_preproc_call] = STATE(309),
+    [sym_preproc_if_in_statements] = STATE(309),
+    [sym_preproc_ifdef_in_statements] = STATE(309),
+    [sym_preproc_else_in_statements] = STATE(8320),
+    [sym_preproc_elif_in_statements] = STATE(8320),
+    [sym_preproc_elifdef_in_statements] = STATE(8320),
     [sym_internal_procedures] = STATE(5973),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(445),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(309),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1666),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1642),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1668),
+    [sym_preproc_comment] = ACTIONS(1644),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -115511,7 +114638,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1670),
+    [anon_sym_SEMI] = ACTIONS(1646),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115570,101 +114697,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [298] = {
-    [sym_preproc_include] = STATE(452),
-    [sym_preproc_def] = STATE(452),
-    [sym_preproc_function_def] = STATE(452),
-    [sym_preproc_call] = STATE(452),
-    [sym_preproc_if_in_statements] = STATE(452),
-    [sym_preproc_ifdef_in_statements] = STATE(452),
-    [sym_preproc_else_in_statements] = STATE(7899),
-    [sym_preproc_elif_in_statements] = STATE(7899),
-    [sym_preproc_elifdef_in_statements] = STATE(7899),
-    [sym_internal_procedures] = STATE(5786),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [294] = {
+    [sym_preproc_include] = STATE(445),
+    [sym_preproc_def] = STATE(445),
+    [sym_preproc_function_def] = STATE(445),
+    [sym_preproc_call] = STATE(445),
+    [sym_preproc_if_in_statements] = STATE(445),
+    [sym_preproc_ifdef_in_statements] = STATE(445),
+    [sym_preproc_else_in_statements] = STATE(7892),
+    [sym_preproc_elif_in_statements] = STATE(7892),
+    [sym_preproc_elifdef_in_statements] = STATE(7892),
+    [sym_internal_procedures] = STATE(5987),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(452),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(445),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1672),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1674),
+    [sym_preproc_comment] = ACTIONS(1650),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -115694,7 +114821,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1676),
+    [anon_sym_SEMI] = ACTIONS(1652),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115753,101 +114880,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [299] = {
-    [sym_preproc_include] = STATE(459),
-    [sym_preproc_def] = STATE(459),
-    [sym_preproc_function_def] = STATE(459),
-    [sym_preproc_call] = STATE(459),
-    [sym_preproc_if_in_statements] = STATE(459),
-    [sym_preproc_ifdef_in_statements] = STATE(459),
-    [sym_preproc_else_in_statements] = STATE(7915),
-    [sym_preproc_elif_in_statements] = STATE(7915),
-    [sym_preproc_elifdef_in_statements] = STATE(7915),
-    [sym_internal_procedures] = STATE(5795),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [295] = {
+    [sym_preproc_include] = STATE(339),
+    [sym_preproc_def] = STATE(339),
+    [sym_preproc_function_def] = STATE(339),
+    [sym_preproc_call] = STATE(339),
+    [sym_preproc_if_in_statements] = STATE(339),
+    [sym_preproc_ifdef_in_statements] = STATE(339),
+    [sym_preproc_else_in_statements] = STATE(8482),
+    [sym_preproc_elif_in_statements] = STATE(8482),
+    [sym_preproc_elifdef_in_statements] = STATE(8482),
+    [sym_internal_procedures] = STATE(5909),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(459),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(339),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1654),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1680),
+    [sym_preproc_comment] = ACTIONS(1656),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -115877,7 +115004,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1682),
+    [anon_sym_SEMI] = ACTIONS(1658),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -115936,101 +115063,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [300] = {
-    [sym_preproc_include] = STATE(467),
-    [sym_preproc_def] = STATE(467),
-    [sym_preproc_function_def] = STATE(467),
-    [sym_preproc_call] = STATE(467),
-    [sym_preproc_if_in_statements] = STATE(467),
-    [sym_preproc_ifdef_in_statements] = STATE(467),
-    [sym_preproc_else_in_statements] = STATE(7931),
-    [sym_preproc_elif_in_statements] = STATE(7931),
-    [sym_preproc_elifdef_in_statements] = STATE(7931),
-    [sym_internal_procedures] = STATE(5804),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [296] = {
+    [sym_preproc_include] = STATE(357),
+    [sym_preproc_def] = STATE(357),
+    [sym_preproc_function_def] = STATE(357),
+    [sym_preproc_call] = STATE(357),
+    [sym_preproc_if_in_statements] = STATE(357),
+    [sym_preproc_ifdef_in_statements] = STATE(357),
+    [sym_preproc_else_in_statements] = STATE(7915),
+    [sym_preproc_elif_in_statements] = STATE(7915),
+    [sym_preproc_elifdef_in_statements] = STATE(7915),
+    [sym_internal_procedures] = STATE(5943),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(467),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(357),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1684),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1660),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(1686),
+    [sym_preproc_comment] = ACTIONS(1662),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -116060,7 +115187,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1688),
+    [anon_sym_SEMI] = ACTIONS(1664),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -116119,100 +115246,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [301] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7821),
-    [sym_preproc_elif_in_statements] = STATE(7821),
-    [sym_preproc_elifdef_in_statements] = STATE(7821),
-    [sym_internal_procedures] = STATE(5957),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [297] = {
+    [sym_preproc_include] = STATE(331),
+    [sym_preproc_def] = STATE(331),
+    [sym_preproc_function_def] = STATE(331),
+    [sym_preproc_call] = STATE(331),
+    [sym_preproc_if_in_statements] = STATE(331),
+    [sym_preproc_ifdef_in_statements] = STATE(331),
+    [sym_preproc_else_in_statements] = STATE(8102),
+    [sym_preproc_elif_in_statements] = STATE(8102),
+    [sym_preproc_elifdef_in_statements] = STATE(8102),
+    [sym_internal_procedures] = STATE(5885),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(331),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1690),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1666),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1668),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -116242,7 +115370,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1670),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -116301,100 +115429,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [302] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7937),
-    [sym_preproc_elif_in_statements] = STATE(7937),
-    [sym_preproc_elifdef_in_statements] = STATE(7937),
-    [sym_internal_procedures] = STATE(5811),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [298] = {
+    [sym_preproc_include] = STATE(442),
+    [sym_preproc_def] = STATE(442),
+    [sym_preproc_function_def] = STATE(442),
+    [sym_preproc_call] = STATE(442),
+    [sym_preproc_if_in_statements] = STATE(442),
+    [sym_preproc_ifdef_in_statements] = STATE(442),
+    [sym_preproc_else_in_statements] = STATE(8477),
+    [sym_preproc_elif_in_statements] = STATE(8477),
+    [sym_preproc_elifdef_in_statements] = STATE(8477),
+    [sym_internal_procedures] = STATE(5986),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(442),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1692),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1672),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1674),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -116424,7 +115553,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1676),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -116483,100 +115612,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [303] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8318),
-    [sym_preproc_elif_in_statements] = STATE(8318),
-    [sym_preproc_elifdef_in_statements] = STATE(8318),
-    [sym_internal_procedures] = STATE(5891),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [299] = {
+    [sym_preproc_include] = STATE(371),
+    [sym_preproc_def] = STATE(371),
+    [sym_preproc_function_def] = STATE(371),
+    [sym_preproc_call] = STATE(371),
+    [sym_preproc_if_in_statements] = STATE(371),
+    [sym_preproc_ifdef_in_statements] = STATE(371),
+    [sym_preproc_else_in_statements] = STATE(7774),
+    [sym_preproc_elif_in_statements] = STATE(7774),
+    [sym_preproc_elifdef_in_statements] = STATE(7774),
+    [sym_internal_procedures] = STATE(5848),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(371),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1694),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1678),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1680),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -116606,7 +115736,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1682),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -116665,100 +115795,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [304] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8580),
-    [sym_preproc_elif_in_specification_part] = STATE(8580),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5880),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [300] = {
+    [sym_preproc_include] = STATE(418),
+    [sym_preproc_def] = STATE(418),
+    [sym_preproc_function_def] = STATE(418),
+    [sym_preproc_call] = STATE(418),
+    [sym_preproc_if_in_statements] = STATE(418),
+    [sym_preproc_ifdef_in_statements] = STATE(418),
+    [sym_preproc_else_in_statements] = STATE(7837),
+    [sym_preproc_elif_in_statements] = STATE(7837),
+    [sym_preproc_elifdef_in_statements] = STATE(7837),
+    [sym_internal_procedures] = STATE(5816),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(418),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1010),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1684),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(1686),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -116788,7 +115919,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1688),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -116847,100 +115978,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [305] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8639),
-    [sym_preproc_elif_in_specification_part] = STATE(8639),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8639),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5909),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [301] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8613),
+    [sym_preproc_elif_in_statements] = STATE(8613),
+    [sym_preproc_elifdef_in_statements] = STATE(8613),
+    [sym_internal_procedures] = STATE(5914),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(968),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1690),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -117029,100 +116160,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [306] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8408),
-    [sym_preproc_elif_in_specification_part] = STATE(8408),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8408),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5817),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [302] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7718),
+    [sym_preproc_elif_in_statements] = STATE(7718),
+    [sym_preproc_elifdef_in_statements] = STATE(7718),
+    [sym_internal_procedures] = STATE(5895),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(916),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1692),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -117211,100 +116342,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [307] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7819),
-    [sym_preproc_elif_in_specification_part] = STATE(7819),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7819),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5926),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [303] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8358),
+    [sym_preproc_elif_in_statements] = STATE(8358),
+    [sym_preproc_elifdef_in_statements] = STATE(8358),
+    [sym_internal_procedures] = STATE(5984),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1696),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1694),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -117393,100 +116524,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [308] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7722),
-    [sym_preproc_elif_in_specification_part] = STATE(7722),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7722),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5838),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [304] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7851),
+    [sym_preproc_elif_in_specification_part] = STATE(7851),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7851),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5947),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(990),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(968),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -117575,100 +116706,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [309] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7864),
-    [sym_preproc_elif_in_specification_part] = STATE(7864),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7864),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5884),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [305] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8259),
+    [sym_preproc_elif_in_specification_part] = STATE(8259),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8259),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5864),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(994),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1696),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -117757,282 +116888,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [310] = {
-    [sym_preproc_include] = STATE(406),
-    [sym_preproc_def] = STATE(406),
-    [sym_preproc_function_def] = STATE(406),
-    [sym_preproc_call] = STATE(406),
-    [sym_preproc_if_in_statements] = STATE(406),
-    [sym_preproc_ifdef_in_statements] = STATE(406),
-    [sym_preproc_else_in_statements] = STATE(8026),
-    [sym_preproc_elif_in_statements] = STATE(8026),
-    [sym_preproc_elifdef_in_statements] = STATE(8026),
-    [sym_internal_procedures] = STATE(5800),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(406),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1698),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1700),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [311] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7747),
-    [sym_preproc_elif_in_specification_part] = STATE(7747),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7747),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5912),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [306] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7843),
+    [sym_preproc_elif_in_specification_part] = STATE(7843),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7843),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5978),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118121,100 +117070,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [312] = {
-    [sym_preproc_include] = STATE(303),
-    [sym_preproc_def] = STATE(303),
-    [sym_preproc_function_def] = STATE(303),
-    [sym_preproc_call] = STATE(303),
-    [sym_preproc_if_in_statements] = STATE(303),
-    [sym_preproc_ifdef_in_statements] = STATE(303),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_internal_procedures] = STATE(5814),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [307] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8498),
+    [sym_preproc_elif_in_specification_part] = STATE(8498),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8498),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5879),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(303),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1702),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(932),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118244,7 +117193,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1704),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -118303,90 +117252,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [313] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8438),
-    [sym_preproc_elif_in_statements] = STATE(8438),
-    [sym_preproc_elifdef_in_statements] = STATE(8438),
-    [sym_internal_procedures] = STATE(5814),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [308] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8153),
+    [sym_preproc_elif_in_statements] = STATE(8153),
+    [sym_preproc_elifdef_in_statements] = STATE(8153),
+    [sym_internal_procedures] = STATE(5866),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1702),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1698),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -118396,7 +117345,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118485,100 +117434,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [314] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8228),
-    [sym_preproc_elif_in_specification_part] = STATE(8228),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8228),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5842),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [309] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_internal_procedures] = STATE(5861),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(920),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1700),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118667,100 +117616,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [315] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8283),
-    [sym_preproc_elif_in_specification_part] = STATE(8283),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8283),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5885),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [310] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7876),
+    [sym_preproc_elif_in_specification_part] = STATE(7876),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7876),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5976),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(267),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118849,100 +117798,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [316] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7710),
-    [sym_preproc_elif_in_specification_part] = STATE(7710),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7710),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5984),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [311] = {
+    [sym_preproc_include] = STATE(348),
+    [sym_preproc_def] = STATE(348),
+    [sym_preproc_function_def] = STATE(348),
+    [sym_preproc_call] = STATE(348),
+    [sym_preproc_if_in_statements] = STATE(348),
+    [sym_preproc_ifdef_in_statements] = STATE(348),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_internal_procedures] = STATE(5870),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(348),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(940),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1702),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -118972,7 +117921,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1704),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -119031,90 +117980,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [317] = {
-    [sym_preproc_include] = STATE(322),
-    [sym_preproc_def] = STATE(322),
-    [sym_preproc_function_def] = STATE(322),
-    [sym_preproc_call] = STATE(322),
-    [sym_preproc_if_in_statements] = STATE(322),
-    [sym_preproc_ifdef_in_statements] = STATE(322),
-    [sym_preproc_else_in_statements] = STATE(8573),
-    [sym_preproc_elif_in_statements] = STATE(8573),
-    [sym_preproc_elifdef_in_statements] = STATE(8573),
-    [sym_internal_procedures] = STATE(5883),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [312] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8171),
+    [sym_preproc_elif_in_statements] = STATE(8171),
+    [sym_preproc_elifdef_in_statements] = STATE(8171),
+    [sym_internal_procedures] = STATE(5870),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(322),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1706),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1702),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -119124,7 +118073,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -119154,7 +118103,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1708),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -119213,90 +118162,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [318] = {
-    [sym_preproc_include] = STATE(324),
-    [sym_preproc_def] = STATE(324),
-    [sym_preproc_function_def] = STATE(324),
-    [sym_preproc_call] = STATE(324),
-    [sym_preproc_if_in_statements] = STATE(324),
-    [sym_preproc_ifdef_in_statements] = STATE(324),
-    [sym_preproc_else_in_statements] = STATE(8582),
-    [sym_preproc_elif_in_statements] = STATE(8582),
-    [sym_preproc_elifdef_in_statements] = STATE(8582),
-    [sym_internal_procedures] = STATE(5857),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [313] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8344),
+    [sym_preproc_elif_in_statements] = STATE(8344),
+    [sym_preproc_elifdef_in_statements] = STATE(8344),
+    [sym_internal_procedures] = STATE(5963),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(324),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1710),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1706),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -119306,7 +118255,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -119336,7 +118285,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1712),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -119395,90 +118344,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [319] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8582),
-    [sym_preproc_elif_in_statements] = STATE(8582),
-    [sym_preproc_elifdef_in_statements] = STATE(8582),
-    [sym_internal_procedures] = STATE(5857),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [314] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7974),
+    [sym_preproc_elif_in_statements] = STATE(7974),
+    [sym_preproc_elifdef_in_statements] = STATE(7974),
+    [sym_internal_procedures] = STATE(5918),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1710),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1708),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -119488,7 +118437,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -119577,100 +118526,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [320] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7824),
-    [sym_preproc_elif_in_specification_part] = STATE(7824),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7824),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5874),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [315] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8031),
+    [sym_preproc_elif_in_specification_part] = STATE(8031),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8031),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5970),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(950),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -119759,100 +118708,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [321] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7848),
-    [sym_preproc_elif_in_specification_part] = STATE(7848),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7848),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5953),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [316] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8266),
+    [sym_preproc_elif_in_specification_part] = STATE(8266),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8266),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5917),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1714),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1710),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -119941,90 +118890,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [322] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8640),
-    [sym_preproc_elif_in_statements] = STATE(8640),
-    [sym_preproc_elifdef_in_statements] = STATE(8640),
-    [sym_internal_procedures] = STATE(5792),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [317] = {
+    [sym_preproc_include] = STATE(344),
+    [sym_preproc_def] = STATE(344),
+    [sym_preproc_function_def] = STATE(344),
+    [sym_preproc_call] = STATE(344),
+    [sym_preproc_if_in_statements] = STATE(344),
+    [sym_preproc_ifdef_in_statements] = STATE(344),
+    [sym_preproc_else_in_statements] = STATE(8344),
+    [sym_preproc_elif_in_statements] = STATE(8344),
+    [sym_preproc_elifdef_in_statements] = STATE(8344),
+    [sym_internal_procedures] = STATE(5963),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(344),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1716),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1706),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -120034,7 +118983,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -120064,7 +119013,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1712),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -120123,90 +119072,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [323] = {
-    [sym_preproc_include] = STATE(326),
-    [sym_preproc_def] = STATE(326),
-    [sym_preproc_function_def] = STATE(326),
-    [sym_preproc_call] = STATE(326),
-    [sym_preproc_if_in_statements] = STATE(326),
-    [sym_preproc_ifdef_in_statements] = STATE(326),
-    [sym_preproc_else_in_statements] = STATE(8640),
-    [sym_preproc_elif_in_statements] = STATE(8640),
-    [sym_preproc_elifdef_in_statements] = STATE(8640),
-    [sym_internal_procedures] = STATE(5792),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [318] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8015),
+    [sym_preproc_elif_in_statements] = STATE(8015),
+    [sym_preproc_elifdef_in_statements] = STATE(8015),
+    [sym_internal_procedures] = STATE(5877),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(326),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1716),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1714),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -120216,7 +119165,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -120246,7 +119195,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1718),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -120305,90 +119254,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [324] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8662),
-    [sym_preproc_elif_in_statements] = STATE(8662),
-    [sym_preproc_elifdef_in_statements] = STATE(8662),
-    [sym_internal_procedures] = STATE(5824),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [319] = {
+    [sym_preproc_include] = STATE(308),
+    [sym_preproc_def] = STATE(308),
+    [sym_preproc_function_def] = STATE(308),
+    [sym_preproc_call] = STATE(308),
+    [sym_preproc_if_in_statements] = STATE(308),
+    [sym_preproc_ifdef_in_statements] = STATE(308),
+    [sym_preproc_else_in_statements] = STATE(8503),
+    [sym_preproc_elif_in_statements] = STATE(8503),
+    [sym_preproc_elifdef_in_statements] = STATE(8503),
+    [sym_internal_procedures] = STATE(5861),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(308),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1720),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1700),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -120398,7 +119347,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -120428,7 +119377,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1716),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -120487,100 +119436,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [325] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8095),
-    [sym_preproc_elif_in_specification_part] = STATE(8095),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8095),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5826),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [320] = {
+    [sym_preproc_include] = STATE(314),
+    [sym_preproc_def] = STATE(314),
+    [sym_preproc_function_def] = STATE(314),
+    [sym_preproc_call] = STATE(314),
+    [sym_preproc_if_in_statements] = STATE(314),
+    [sym_preproc_ifdef_in_statements] = STATE(314),
+    [sym_preproc_else_in_statements] = STATE(8022),
+    [sym_preproc_elif_in_statements] = STATE(8022),
+    [sym_preproc_elifdef_in_statements] = STATE(8022),
+    [sym_internal_procedures] = STATE(5916),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(314),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1722),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1718),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -120610,7 +119559,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1720),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -120669,90 +119618,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [326] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7820),
-    [sym_preproc_elif_in_statements] = STATE(7820),
-    [sym_preproc_elifdef_in_statements] = STATE(7820),
-    [sym_internal_procedures] = STATE(5929),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [321] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8022),
+    [sym_preproc_elif_in_statements] = STATE(8022),
+    [sym_preproc_elifdef_in_statements] = STATE(8022),
+    [sym_internal_procedures] = STATE(5916),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1724),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1718),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -120762,7 +119711,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -120851,100 +119800,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [327] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8231),
-    [sym_preproc_elif_in_statements] = STATE(8231),
-    [sym_preproc_elifdef_in_statements] = STATE(8231),
-    [sym_internal_procedures] = STATE(5887),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [322] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8439),
+    [sym_preproc_elif_in_specification_part] = STATE(8439),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8439),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5902),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121033,90 +119982,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [328] = {
-    [sym_preproc_include] = STATE(349),
-    [sym_preproc_def] = STATE(349),
-    [sym_preproc_function_def] = STATE(349),
-    [sym_preproc_call] = STATE(349),
-    [sym_preproc_if_in_statements] = STATE(349),
-    [sym_preproc_ifdef_in_statements] = STATE(349),
-    [sym_preproc_else_in_statements] = STATE(8264),
-    [sym_preproc_elif_in_statements] = STATE(8264),
-    [sym_preproc_elifdef_in_statements] = STATE(8264),
-    [sym_internal_procedures] = STATE(5856),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [323] = {
+    [sym_preproc_include] = STATE(303),
+    [sym_preproc_def] = STATE(303),
+    [sym_preproc_function_def] = STATE(303),
+    [sym_preproc_call] = STATE(303),
+    [sym_preproc_if_in_statements] = STATE(303),
+    [sym_preproc_ifdef_in_statements] = STATE(303),
+    [sym_preproc_else_in_statements] = STATE(8305),
+    [sym_preproc_elif_in_statements] = STATE(8305),
+    [sym_preproc_elifdef_in_statements] = STATE(8305),
+    [sym_internal_procedures] = STATE(5966),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(349),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(303),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1728),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1722),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -121126,7 +120075,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121156,7 +120105,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1730),
+    [anon_sym_SEMI] = ACTIONS(1724),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -121215,100 +120164,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [329] = {
-    [sym_preproc_include] = STATE(471),
-    [sym_preproc_def] = STATE(471),
-    [sym_preproc_function_def] = STATE(471),
-    [sym_preproc_call] = STATE(471),
-    [sym_preproc_if_in_statements] = STATE(471),
-    [sym_preproc_ifdef_in_statements] = STATE(471),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_internal_procedures] = STATE(5871),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [324] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8572),
+    [sym_preproc_elif_in_specification_part] = STATE(8572),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8572),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5991),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(471),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1732),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121338,7 +120287,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1734),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -121397,90 +120346,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [330] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8329),
-    [sym_preproc_elif_in_statements] = STATE(8329),
-    [sym_preproc_elifdef_in_statements] = STATE(8329),
-    [sym_internal_procedures] = STATE(5871),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [325] = {
+    [sym_preproc_include] = STATE(356),
+    [sym_preproc_def] = STATE(356),
+    [sym_preproc_function_def] = STATE(356),
+    [sym_preproc_call] = STATE(356),
+    [sym_preproc_if_in_statements] = STATE(356),
+    [sym_preproc_ifdef_in_statements] = STATE(356),
+    [sym_preproc_else_in_statements] = STATE(8451),
+    [sym_preproc_elif_in_statements] = STATE(8451),
+    [sym_preproc_elifdef_in_statements] = STATE(8451),
+    [sym_internal_procedures] = STATE(5874),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(356),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1732),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1728),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -121490,7 +120439,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121520,7 +120469,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1730),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -121579,100 +120528,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [331] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7806),
-    [sym_preproc_elif_in_specification_part] = STATE(7806),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7806),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5919),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [326] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8291),
+    [sym_preproc_elif_in_specification_part] = STATE(8291),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8291),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5908),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(960),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1732),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121761,100 +120710,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [332] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8387),
-    [sym_preproc_elif_in_specification_part] = STATE(8387),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8387),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5994),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [327] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8272),
+    [sym_preproc_elif_in_statements] = STATE(8272),
+    [sym_preproc_elifdef_in_statements] = STATE(8272),
+    [sym_internal_procedures] = STATE(5979),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1736),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1734),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -121943,100 +120892,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [333] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8596),
-    [sym_preproc_elif_in_specification_part] = STATE(8596),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8596),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5865),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [328] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8307),
+    [sym_preproc_elif_in_specification_part] = STATE(8307),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8307),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5906),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1738),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(916),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122125,100 +121074,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [334] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8646),
-    [sym_preproc_elif_in_specification_part] = STATE(8646),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8646),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5950),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [329] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8268),
+    [sym_preproc_elif_in_statements] = STATE(8268),
+    [sym_preproc_elifdef_in_statements] = STATE(8268),
+    [sym_internal_procedures] = STATE(5954),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1740),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1736),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122307,100 +121256,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [335] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8317),
-    [sym_preproc_elif_in_specification_part] = STATE(8317),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8317),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5861),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [330] = {
+    [sym_preproc_include] = STATE(351),
+    [sym_preproc_def] = STATE(351),
+    [sym_preproc_function_def] = STATE(351),
+    [sym_preproc_call] = STATE(351),
+    [sym_preproc_if_in_statements] = STATE(351),
+    [sym_preproc_ifdef_in_statements] = STATE(351),
+    [sym_preproc_else_in_statements] = STATE(8264),
+    [sym_preproc_elif_in_statements] = STATE(8264),
+    [sym_preproc_elifdef_in_statements] = STATE(8264),
+    [sym_internal_procedures] = STATE(5940),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(351),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(944),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1738),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122430,7 +121379,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1740),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -122489,100 +121438,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [336] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8398),
-    [sym_preproc_elif_in_specification_part] = STATE(8398),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8398),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5803),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [331] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8039),
+    [sym_preproc_elif_in_statements] = STATE(8039),
+    [sym_preproc_elifdef_in_statements] = STATE(8039),
+    [sym_internal_procedures] = STATE(5903),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122671,100 +121620,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [337] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8660),
-    [sym_preproc_elif_in_specification_part] = STATE(8660),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8660),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5916),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [332] = {
+    [sym_preproc_include] = STATE(318),
+    [sym_preproc_def] = STATE(318),
+    [sym_preproc_function_def] = STATE(318),
+    [sym_preproc_call] = STATE(318),
+    [sym_preproc_if_in_statements] = STATE(318),
+    [sym_preproc_ifdef_in_statements] = STATE(318),
+    [sym_preproc_else_in_statements] = STATE(8039),
+    [sym_preproc_elif_in_statements] = STATE(8039),
+    [sym_preproc_elifdef_in_statements] = STATE(8039),
+    [sym_internal_procedures] = STATE(5903),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(318),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(974),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122794,7 +121743,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1744),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -122853,90 +121802,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [338] = {
-    [sym_preproc_include] = STATE(343),
-    [sym_preproc_def] = STATE(343),
-    [sym_preproc_function_def] = STATE(343),
-    [sym_preproc_call] = STATE(343),
-    [sym_preproc_if_in_statements] = STATE(343),
-    [sym_preproc_ifdef_in_statements] = STATE(343),
-    [sym_preproc_else_in_statements] = STATE(8626),
-    [sym_preproc_elif_in_statements] = STATE(8626),
-    [sym_preproc_elifdef_in_statements] = STATE(8626),
-    [sym_internal_procedures] = STATE(5931),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [333] = {
+    [sym_preproc_include] = STATE(321),
+    [sym_preproc_def] = STATE(321),
+    [sym_preproc_function_def] = STATE(321),
+    [sym_preproc_call] = STATE(321),
+    [sym_preproc_if_in_statements] = STATE(321),
+    [sym_preproc_ifdef_in_statements] = STATE(321),
+    [sym_preproc_else_in_statements] = STATE(8047),
+    [sym_preproc_elif_in_statements] = STATE(8047),
+    [sym_preproc_elifdef_in_statements] = STATE(8047),
+    [sym_internal_procedures] = STATE(5898),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(343),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(321),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1742),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -122946,7 +121895,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -122976,7 +121925,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1744),
+    [anon_sym_SEMI] = ACTIONS(1748),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -123035,90 +121984,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [339] = {
-    [sym_preproc_include] = STATE(345),
-    [sym_preproc_def] = STATE(345),
-    [sym_preproc_function_def] = STATE(345),
-    [sym_preproc_call] = STATE(345),
-    [sym_preproc_if_in_statements] = STATE(345),
-    [sym_preproc_ifdef_in_statements] = STATE(345),
-    [sym_preproc_else_in_statements] = STATE(7735),
-    [sym_preproc_elif_in_statements] = STATE(7735),
-    [sym_preproc_elifdef_in_statements] = STATE(7735),
-    [sym_internal_procedures] = STATE(5938),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [334] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7937),
+    [sym_preproc_elif_in_statements] = STATE(7937),
+    [sym_preproc_elifdef_in_statements] = STATE(7937),
+    [sym_internal_procedures] = STATE(5818),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(345),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1746),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -123128,7 +122077,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -123158,7 +122107,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1748),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -123217,90 +122166,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [340] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7735),
-    [sym_preproc_elif_in_statements] = STATE(7735),
-    [sym_preproc_elifdef_in_statements] = STATE(7735),
-    [sym_internal_procedures] = STATE(5938),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [335] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8341),
+    [sym_preproc_elif_in_specification_part] = STATE(8341),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8341),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5891),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1746),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(958),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(1414),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(1420),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [336] = {
+    [sym_preproc_include] = STATE(347),
+    [sym_preproc_def] = STATE(347),
+    [sym_preproc_function_def] = STATE(347),
+    [sym_preproc_call] = STATE(347),
+    [sym_preproc_if_in_statements] = STATE(347),
+    [sym_preproc_ifdef_in_statements] = STATE(347),
+    [sym_preproc_else_in_statements] = STATE(8452),
+    [sym_preproc_elif_in_statements] = STATE(8452),
+    [sym_preproc_elifdef_in_statements] = STATE(8452),
+    [sym_internal_procedures] = STATE(5875),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(347),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(1752),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -123310,7 +122441,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -123340,7 +122471,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1754),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -123399,100 +122530,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [341] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7770),
-    [sym_preproc_elif_in_specification_part] = STATE(7770),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7770),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5952),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [337] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7936),
+    [sym_preproc_elif_in_statements] = STATE(7936),
+    [sym_preproc_elifdef_in_statements] = STATE(7936),
+    [sym_internal_procedures] = STATE(5826),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(978),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1756),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -123581,100 +122712,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [342] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7868),
-    [sym_preproc_elif_in_specification_part] = STATE(7868),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7868),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5961),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [338] = {
+    [sym_preproc_include] = STATE(334),
+    [sym_preproc_def] = STATE(334),
+    [sym_preproc_function_def] = STATE(334),
+    [sym_preproc_call] = STATE(334),
+    [sym_preproc_if_in_statements] = STATE(334),
+    [sym_preproc_ifdef_in_statements] = STATE(334),
+    [sym_preproc_else_in_statements] = STATE(7935),
+    [sym_preproc_elif_in_statements] = STATE(7935),
+    [sym_preproc_elifdef_in_statements] = STATE(7935),
+    [sym_internal_procedures] = STATE(5828),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(334),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1750),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1758),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -123704,7 +122835,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1760),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -123763,90 +122894,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [343] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7866),
-    [sym_preproc_elif_in_statements] = STATE(7866),
-    [sym_preproc_elifdef_in_statements] = STATE(7866),
-    [sym_internal_procedures] = STATE(5877),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [339] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8451),
+    [sym_preproc_elif_in_statements] = STATE(8451),
+    [sym_preproc_elifdef_in_statements] = STATE(8451),
+    [sym_internal_procedures] = STATE(5874),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1752),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1728),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -123856,7 +122987,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -123945,90 +123076,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [344] = {
-    [sym_preproc_include] = STATE(347),
-    [sym_preproc_def] = STATE(347),
-    [sym_preproc_function_def] = STATE(347),
-    [sym_preproc_call] = STATE(347),
-    [sym_preproc_if_in_statements] = STATE(347),
-    [sym_preproc_ifdef_in_statements] = STATE(347),
-    [sym_preproc_else_in_statements] = STATE(7866),
-    [sym_preproc_elif_in_statements] = STATE(7866),
-    [sym_preproc_elifdef_in_statements] = STATE(7866),
-    [sym_internal_procedures] = STATE(5877),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [340] = {
+    [sym_preproc_include] = STATE(312),
+    [sym_preproc_def] = STATE(312),
+    [sym_preproc_function_def] = STATE(312),
+    [sym_preproc_call] = STATE(312),
+    [sym_preproc_if_in_statements] = STATE(312),
+    [sym_preproc_ifdef_in_statements] = STATE(312),
+    [sym_preproc_else_in_statements] = STATE(8618),
+    [sym_preproc_elif_in_statements] = STATE(8618),
+    [sym_preproc_elifdef_in_statements] = STATE(8618),
+    [sym_internal_procedures] = STATE(5849),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(347),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(312),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1752),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1762),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -124038,7 +123169,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124068,7 +123199,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1754),
+    [anon_sym_SEMI] = ACTIONS(1764),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -124127,90 +123258,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [345] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7924),
-    [sym_preproc_elif_in_statements] = STATE(7924),
-    [sym_preproc_elifdef_in_statements] = STATE(7924),
-    [sym_internal_procedures] = STATE(5878),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [341] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8427),
+    [sym_preproc_elif_in_statements] = STATE(8427),
+    [sym_preproc_elifdef_in_statements] = STATE(8427),
+    [sym_internal_procedures] = STATE(5981),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1756),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1766),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -124220,7 +123351,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124309,100 +123440,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [346] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7772),
-    [sym_preproc_elif_in_specification_part] = STATE(7772),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7772),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5813),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [342] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7935),
+    [sym_preproc_elif_in_statements] = STATE(7935),
+    [sym_preproc_elifdef_in_statements] = STATE(7935),
+    [sym_internal_procedures] = STATE(5828),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1758),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124491,90 +123622,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [347] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8161),
-    [sym_preproc_elif_in_statements] = STATE(8161),
-    [sym_preproc_elifdef_in_statements] = STATE(8161),
-    [sym_internal_procedures] = STATE(5915),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [343] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7934),
+    [sym_preproc_elif_in_statements] = STATE(7934),
+    [sym_preproc_elifdef_in_statements] = STATE(7934),
+    [sym_internal_procedures] = STATE(5888),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1768),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -124584,7 +123715,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124673,90 +123804,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [348] = {
-    [sym_preproc_include] = STATE(363),
-    [sym_preproc_def] = STATE(363),
-    [sym_preproc_function_def] = STATE(363),
-    [sym_preproc_call] = STATE(363),
-    [sym_preproc_if_in_statements] = STATE(363),
-    [sym_preproc_ifdef_in_statements] = STATE(363),
-    [sym_preproc_else_in_statements] = STATE(8510),
-    [sym_preproc_elif_in_statements] = STATE(8510),
-    [sym_preproc_elifdef_in_statements] = STATE(8510),
-    [sym_internal_procedures] = STATE(5886),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [344] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8362),
+    [sym_preproc_elif_in_statements] = STATE(8362),
+    [sym_preproc_elifdef_in_statements] = STATE(8362),
+    [sym_internal_procedures] = STATE(5983),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(363),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1762),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -124766,7 +123897,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124796,7 +123927,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1764),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -124855,90 +123986,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [349] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7986),
-    [sym_preproc_elif_in_statements] = STATE(7986),
-    [sym_preproc_elifdef_in_statements] = STATE(7986),
-    [sym_internal_procedures] = STATE(5913),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [345] = {
+    [sym_preproc_include] = STATE(337),
+    [sym_preproc_def] = STATE(337),
+    [sym_preproc_function_def] = STATE(337),
+    [sym_preproc_call] = STATE(337),
+    [sym_preproc_if_in_statements] = STATE(337),
+    [sym_preproc_ifdef_in_statements] = STATE(337),
+    [sym_preproc_else_in_statements] = STATE(7934),
+    [sym_preproc_elif_in_statements] = STATE(7934),
+    [sym_preproc_elifdef_in_statements] = STATE(7934),
+    [sym_internal_procedures] = STATE(5888),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(337),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1766),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1768),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -124948,7 +124079,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -124978,7 +124109,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1772),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -125037,100 +124168,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [350] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8543),
-    [sym_preproc_elif_in_specification_part] = STATE(8543),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8543),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5963),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [346] = {
+    [sym_preproc_include] = STATE(342),
+    [sym_preproc_def] = STATE(342),
+    [sym_preproc_function_def] = STATE(342),
+    [sym_preproc_call] = STATE(342),
+    [sym_preproc_if_in_statements] = STATE(342),
+    [sym_preproc_ifdef_in_statements] = STATE(342),
+    [sym_preproc_else_in_statements] = STATE(7933),
+    [sym_preproc_elif_in_statements] = STATE(7933),
+    [sym_preproc_elifdef_in_statements] = STATE(7933),
+    [sym_internal_procedures] = STATE(5967),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(342),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1768),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1774),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -125160,7 +124291,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1776),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -125219,100 +124350,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [351] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8566),
-    [sym_preproc_elif_in_specification_part] = STATE(8566),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8566),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5852),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [347] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8431),
+    [sym_preproc_elif_in_statements] = STATE(8431),
+    [sym_preproc_elifdef_in_statements] = STATE(8431),
+    [sym_internal_procedures] = STATE(5857),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1778),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -125401,100 +124532,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [352] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(7898),
-    [sym_preproc_elif_in_specification_part] = STATE(7898),
-    [sym_preproc_elifdef_in_specification_part] = STATE(7898),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5890),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [348] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7852),
+    [sym_preproc_elif_in_statements] = STATE(7852),
+    [sym_preproc_elifdef_in_statements] = STATE(7852),
+    [sym_internal_procedures] = STATE(5919),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(998),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1780),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -125583,90 +124714,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [353] = {
-    [sym_preproc_include] = STATE(358),
-    [sym_preproc_def] = STATE(358),
-    [sym_preproc_function_def] = STATE(358),
-    [sym_preproc_call] = STATE(358),
-    [sym_preproc_if_in_statements] = STATE(358),
-    [sym_preproc_ifdef_in_statements] = STATE(358),
-    [sym_preproc_else_in_statements] = STATE(7948),
-    [sym_preproc_elif_in_statements] = STATE(7948),
-    [sym_preproc_elifdef_in_statements] = STATE(7948),
-    [sym_internal_procedures] = STATE(5917),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [349] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7921),
+    [sym_preproc_elif_in_statements] = STATE(7921),
+    [sym_preproc_elifdef_in_statements] = STATE(7921),
+    [sym_internal_procedures] = STATE(5969),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(358),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1770),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1782),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -125676,7 +124807,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -125706,7 +124837,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1772),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -125765,90 +124896,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [354] = {
-    [sym_preproc_include] = STATE(360),
-    [sym_preproc_def] = STATE(360),
-    [sym_preproc_function_def] = STATE(360),
-    [sym_preproc_call] = STATE(360),
-    [sym_preproc_if_in_statements] = STATE(360),
-    [sym_preproc_ifdef_in_statements] = STATE(360),
-    [sym_preproc_else_in_statements] = STATE(7956),
-    [sym_preproc_elif_in_statements] = STATE(7956),
-    [sym_preproc_elifdef_in_statements] = STATE(7956),
-    [sym_internal_procedures] = STATE(5922),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [350] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7920),
+    [sym_preproc_elif_in_statements] = STATE(7920),
+    [sym_preproc_elifdef_in_statements] = STATE(7920),
+    [sym_internal_procedures] = STATE(5901),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(360),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1774),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1784),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -125858,7 +124989,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -125888,7 +125019,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1776),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -125947,90 +125078,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [355] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7956),
-    [sym_preproc_elif_in_statements] = STATE(7956),
-    [sym_preproc_elifdef_in_statements] = STATE(7956),
-    [sym_internal_procedures] = STATE(5922),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [351] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8441),
+    [sym_preproc_elif_in_statements] = STATE(8441),
+    [sym_preproc_elifdef_in_statements] = STATE(8441),
+    [sym_internal_procedures] = STATE(5830),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1774),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1786),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -126040,7 +125171,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -126129,100 +125260,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [356] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8154),
-    [sym_preproc_elif_in_specification_part] = STATE(8154),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8154),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5947),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [352] = {
+    [sym_preproc_include] = STATE(349),
+    [sym_preproc_def] = STATE(349),
+    [sym_preproc_function_def] = STATE(349),
+    [sym_preproc_call] = STATE(349),
+    [sym_preproc_if_in_statements] = STATE(349),
+    [sym_preproc_ifdef_in_statements] = STATE(349),
+    [sym_preproc_else_in_statements] = STATE(7919),
+    [sym_preproc_elif_in_statements] = STATE(7919),
+    [sym_preproc_elifdef_in_statements] = STATE(7919),
+    [sym_internal_procedures] = STATE(5958),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(349),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1788),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -126252,7 +125383,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1790),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -126311,272 +125442,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [357] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8175),
-    [sym_preproc_elif_in_specification_part] = STATE(8175),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8175),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5962),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [353] = {
+    [sym_preproc_include] = STATE(358),
+    [sym_preproc_def] = STATE(358),
+    [sym_preproc_function_def] = STATE(358),
+    [sym_preproc_call] = STATE(358),
+    [sym_preproc_if_in_statements] = STATE(358),
+    [sym_preproc_ifdef_in_statements] = STATE(358),
+    [sym_preproc_else_in_statements] = STATE(8431),
+    [sym_preproc_elif_in_statements] = STATE(8431),
+    [sym_preproc_elifdef_in_statements] = STATE(8431),
+    [sym_internal_procedures] = STATE(5857),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(358),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1778),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
-    [sym_preproc_directive] = ACTIONS(1414),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [358] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7990),
-    [sym_preproc_elif_in_statements] = STATE(7990),
-    [sym_preproc_elifdef_in_statements] = STATE(7990),
-    [sym_internal_procedures] = STATE(5974),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(1410),
-    [aux_sym_preproc_def_token1] = ACTIONS(1412),
-    [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1780),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -126586,7 +125535,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -126616,7 +125565,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1792),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -126675,90 +125624,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [359] = {
-    [sym_preproc_include] = STATE(362),
-    [sym_preproc_def] = STATE(362),
-    [sym_preproc_function_def] = STATE(362),
-    [sym_preproc_call] = STATE(362),
-    [sym_preproc_if_in_statements] = STATE(362),
-    [sym_preproc_ifdef_in_statements] = STATE(362),
-    [sym_preproc_else_in_statements] = STATE(7990),
-    [sym_preproc_elif_in_statements] = STATE(7990),
-    [sym_preproc_elifdef_in_statements] = STATE(7990),
-    [sym_internal_procedures] = STATE(5974),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [354] = {
+    [sym_preproc_include] = STATE(329),
+    [sym_preproc_def] = STATE(329),
+    [sym_preproc_function_def] = STATE(329),
+    [sym_preproc_call] = STATE(329),
+    [sym_preproc_if_in_statements] = STATE(329),
+    [sym_preproc_ifdef_in_statements] = STATE(329),
+    [sym_preproc_else_in_statements] = STATE(7870),
+    [sym_preproc_elif_in_statements] = STATE(7870),
+    [sym_preproc_elifdef_in_statements] = STATE(7870),
+    [sym_internal_procedures] = STATE(5972),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(362),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(329),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1780),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1794),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -126768,7 +125717,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -126798,7 +125747,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1782),
+    [anon_sym_SEMI] = ACTIONS(1796),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -126857,90 +125806,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [360] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7996),
-    [sym_preproc_elif_in_statements] = STATE(7996),
-    [sym_preproc_elifdef_in_statements] = STATE(7996),
-    [sym_internal_procedures] = STATE(5989),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [355] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7919),
+    [sym_preproc_elif_in_statements] = STATE(7919),
+    [sym_preproc_elifdef_in_statements] = STATE(7919),
+    [sym_internal_procedures] = STATE(5958),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1784),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1788),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -126950,7 +125899,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127039,100 +125988,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [361] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8277),
-    [sym_preproc_elif_in_specification_part] = STATE(8277),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8277),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5992),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [356] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8340),
+    [sym_preproc_elif_in_statements] = STATE(8340),
+    [sym_preproc_elifdef_in_statements] = STATE(8340),
+    [sym_internal_procedures] = STATE(5856),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1786),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1798),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127221,90 +126170,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [362] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8086),
-    [sym_preproc_elif_in_statements] = STATE(8086),
-    [sym_preproc_elifdef_in_statements] = STATE(8086),
-    [sym_internal_procedures] = STATE(5785),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [357] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7918),
+    [sym_preproc_elif_in_statements] = STATE(7918),
+    [sym_preproc_elifdef_in_statements] = STATE(7918),
+    [sym_internal_procedures] = STATE(5964),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1788),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -127314,7 +126263,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127403,90 +126352,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [363] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8567),
-    [sym_preproc_elif_in_statements] = STATE(8567),
-    [sym_preproc_elifdef_in_statements] = STATE(8567),
-    [sym_internal_procedures] = STATE(5789),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [358] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8420),
+    [sym_preproc_elif_in_statements] = STATE(8420),
+    [sym_preproc_elifdef_in_statements] = STATE(8420),
+    [sym_internal_procedures] = STATE(5854),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1790),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1802),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -127496,7 +126445,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127585,90 +126534,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [364] = {
-    [sym_preproc_include] = STATE(367),
-    [sym_preproc_def] = STATE(367),
-    [sym_preproc_function_def] = STATE(367),
-    [sym_preproc_call] = STATE(367),
-    [sym_preproc_if_in_statements] = STATE(367),
-    [sym_preproc_ifdef_in_statements] = STATE(367),
-    [sym_preproc_else_in_statements] = STATE(8485),
-    [sym_preproc_elif_in_statements] = STATE(8485),
-    [sym_preproc_elifdef_in_statements] = STATE(8485),
-    [sym_internal_procedures] = STATE(5833),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [359] = {
+    [sym_preproc_include] = STATE(350),
+    [sym_preproc_def] = STATE(350),
+    [sym_preproc_function_def] = STATE(350),
+    [sym_preproc_call] = STATE(350),
+    [sym_preproc_if_in_statements] = STATE(350),
+    [sym_preproc_ifdef_in_statements] = STATE(350),
+    [sym_preproc_else_in_statements] = STATE(7918),
+    [sym_preproc_elif_in_statements] = STATE(7918),
+    [sym_preproc_elifdef_in_statements] = STATE(7918),
+    [sym_internal_procedures] = STATE(5964),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(367),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(350),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -127678,7 +126627,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127708,7 +126657,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1794),
+    [anon_sym_SEMI] = ACTIONS(1804),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -127767,90 +126716,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [365] = {
-    [sym_preproc_include] = STATE(369),
-    [sym_preproc_def] = STATE(369),
-    [sym_preproc_function_def] = STATE(369),
-    [sym_preproc_call] = STATE(369),
-    [sym_preproc_if_in_statements] = STATE(369),
-    [sym_preproc_ifdef_in_statements] = STATE(369),
-    [sym_preproc_else_in_statements] = STATE(8486),
-    [sym_preproc_elif_in_statements] = STATE(8486),
-    [sym_preproc_elifdef_in_statements] = STATE(8486),
-    [sym_internal_procedures] = STATE(5836),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [360] = {
+    [sym_preproc_include] = STATE(355),
+    [sym_preproc_def] = STATE(355),
+    [sym_preproc_function_def] = STATE(355),
+    [sym_preproc_call] = STATE(355),
+    [sym_preproc_if_in_statements] = STATE(355),
+    [sym_preproc_ifdef_in_statements] = STATE(355),
+    [sym_preproc_else_in_statements] = STATE(7917),
+    [sym_preproc_elif_in_statements] = STATE(7917),
+    [sym_preproc_elifdef_in_statements] = STATE(7917),
+    [sym_internal_procedures] = STATE(5945),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(369),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(355),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1796),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1806),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -127860,7 +126809,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -127890,7 +126839,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1798),
+    [anon_sym_SEMI] = ACTIONS(1808),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -127949,90 +126898,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [366] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8486),
-    [sym_preproc_elif_in_statements] = STATE(8486),
-    [sym_preproc_elifdef_in_statements] = STATE(8486),
-    [sym_internal_procedures] = STATE(5836),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [361] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7905),
+    [sym_preproc_elif_in_statements] = STATE(7905),
+    [sym_preproc_elifdef_in_statements] = STATE(7905),
+    [sym_internal_procedures] = STATE(5942),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1796),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1810),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -128042,7 +126991,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128131,90 +127080,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [367] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8531),
-    [sym_preproc_elif_in_statements] = STATE(8531),
-    [sym_preproc_elifdef_in_statements] = STATE(8531),
-    [sym_internal_procedures] = STATE(5847),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [362] = {
+    [sym_preproc_include] = STATE(327),
+    [sym_preproc_def] = STATE(327),
+    [sym_preproc_function_def] = STATE(327),
+    [sym_preproc_call] = STATE(327),
+    [sym_preproc_if_in_statements] = STATE(327),
+    [sym_preproc_ifdef_in_statements] = STATE(327),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_internal_procedures] = STATE(5965),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(327),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1800),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1812),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -128224,7 +127173,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128254,7 +127203,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1814),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -128313,90 +127262,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [368] = {
-    [sym_preproc_include] = STATE(370),
-    [sym_preproc_def] = STATE(370),
-    [sym_preproc_function_def] = STATE(370),
-    [sym_preproc_call] = STATE(370),
-    [sym_preproc_if_in_statements] = STATE(370),
-    [sym_preproc_ifdef_in_statements] = STATE(370),
-    [sym_preproc_else_in_statements] = STATE(8531),
-    [sym_preproc_elif_in_statements] = STATE(8531),
-    [sym_preproc_elifdef_in_statements] = STATE(8531),
-    [sym_internal_procedures] = STATE(5847),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [363] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8294),
+    [sym_preproc_elif_in_statements] = STATE(8294),
+    [sym_preproc_elifdef_in_statements] = STATE(8294),
+    [sym_internal_procedures] = STATE(5829),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(370),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1800),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1816),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -128406,7 +127355,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128436,7 +127385,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1802),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -128495,90 +127444,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [369] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8535),
-    [sym_preproc_elif_in_statements] = STATE(8535),
-    [sym_preproc_elifdef_in_statements] = STATE(8535),
-    [sym_internal_procedures] = STATE(5848),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [364] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7877),
+    [sym_preproc_elif_in_statements] = STATE(7877),
+    [sym_preproc_elifdef_in_statements] = STATE(7877),
+    [sym_internal_procedures] = STATE(5965),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1804),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1812),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -128588,7 +127537,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128677,100 +127626,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [370] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8586),
-    [sym_preproc_elif_in_statements] = STATE(8586),
-    [sym_preproc_elifdef_in_statements] = STATE(8586),
-    [sym_internal_procedures] = STATE(5850),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [365] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7999),
+    [sym_preproc_elif_in_specification_part] = STATE(7999),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7999),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5933),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1806),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128859,90 +127808,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [371] = {
-    [sym_preproc_include] = STATE(374),
-    [sym_preproc_def] = STATE(374),
-    [sym_preproc_function_def] = STATE(374),
-    [sym_preproc_call] = STATE(374),
-    [sym_preproc_if_in_statements] = STATE(374),
-    [sym_preproc_ifdef_in_statements] = STATE(374),
-    [sym_preproc_else_in_statements] = STATE(8110),
-    [sym_preproc_elif_in_statements] = STATE(8110),
-    [sym_preproc_elifdef_in_statements] = STATE(8110),
-    [sym_internal_procedures] = STATE(5888),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [366] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7904),
+    [sym_preproc_elif_in_statements] = STATE(7904),
+    [sym_preproc_elifdef_in_statements] = STATE(7904),
+    [sym_internal_procedures] = STATE(5920),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(374),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1808),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1818),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -128952,7 +127901,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -128982,7 +127931,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1810),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -129041,90 +127990,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [372] = {
-    [sym_preproc_include] = STATE(376),
-    [sym_preproc_def] = STATE(376),
-    [sym_preproc_function_def] = STATE(376),
-    [sym_preproc_call] = STATE(376),
-    [sym_preproc_if_in_statements] = STATE(376),
-    [sym_preproc_ifdef_in_statements] = STATE(376),
-    [sym_preproc_else_in_statements] = STATE(8114),
-    [sym_preproc_elif_in_statements] = STATE(8114),
-    [sym_preproc_elifdef_in_statements] = STATE(8114),
-    [sym_internal_procedures] = STATE(5892),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [367] = {
+    [sym_preproc_include] = STATE(361),
+    [sym_preproc_def] = STATE(361),
+    [sym_preproc_function_def] = STATE(361),
+    [sym_preproc_call] = STATE(361),
+    [sym_preproc_if_in_statements] = STATE(361),
+    [sym_preproc_ifdef_in_statements] = STATE(361),
+    [sym_preproc_else_in_statements] = STATE(7903),
+    [sym_preproc_elif_in_statements] = STATE(7903),
+    [sym_preproc_elifdef_in_statements] = STATE(7903),
+    [sym_internal_procedures] = STATE(5915),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(376),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(361),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1812),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -129134,7 +128083,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -129164,7 +128113,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1814),
+    [anon_sym_SEMI] = ACTIONS(1822),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -129223,100 +128172,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [373] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8114),
-    [sym_preproc_elif_in_statements] = STATE(8114),
-    [sym_preproc_elifdef_in_statements] = STATE(8114),
-    [sym_internal_procedures] = STATE(5892),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [368] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(7788),
+    [sym_preproc_elif_in_specification_part] = STATE(7788),
+    [sym_preproc_elifdef_in_specification_part] = STATE(7788),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5974),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1812),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -129405,90 +128354,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [374] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8132),
-    [sym_preproc_elif_in_statements] = STATE(8132),
-    [sym_preproc_elifdef_in_statements] = STATE(8132),
-    [sym_internal_procedures] = STATE(5897),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [369] = {
+    [sym_preproc_include] = STATE(378),
+    [sym_preproc_def] = STATE(378),
+    [sym_preproc_function_def] = STATE(378),
+    [sym_preproc_call] = STATE(378),
+    [sym_preproc_if_in_statements] = STATE(378),
+    [sym_preproc_ifdef_in_statements] = STATE(378),
+    [sym_preproc_else_in_statements] = STATE(7797),
+    [sym_preproc_elif_in_statements] = STATE(7797),
+    [sym_preproc_elifdef_in_statements] = STATE(7797),
+    [sym_internal_procedures] = STATE(5836),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(378),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1816),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1826),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -129498,7 +128447,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -129528,7 +128477,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1828),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -129587,90 +128536,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [375] = {
-    [sym_preproc_include] = STATE(377),
-    [sym_preproc_def] = STATE(377),
-    [sym_preproc_function_def] = STATE(377),
-    [sym_preproc_call] = STATE(377),
-    [sym_preproc_if_in_statements] = STATE(377),
-    [sym_preproc_ifdef_in_statements] = STATE(377),
-    [sym_preproc_else_in_statements] = STATE(8132),
-    [sym_preproc_elif_in_statements] = STATE(8132),
-    [sym_preproc_elifdef_in_statements] = STATE(8132),
-    [sym_internal_procedures] = STATE(5897),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [370] = {
+    [sym_preproc_include] = STATE(380),
+    [sym_preproc_def] = STATE(380),
+    [sym_preproc_function_def] = STATE(380),
+    [sym_preproc_call] = STATE(380),
+    [sym_preproc_if_in_statements] = STATE(380),
+    [sym_preproc_ifdef_in_statements] = STATE(380),
+    [sym_preproc_else_in_statements] = STATE(7834),
+    [sym_preproc_elif_in_statements] = STATE(7834),
+    [sym_preproc_elifdef_in_statements] = STATE(7834),
+    [sym_internal_procedures] = STATE(5892),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(377),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(380),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1816),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1830),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -129680,7 +128629,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -129710,7 +128659,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1818),
+    [anon_sym_SEMI] = ACTIONS(1832),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -129769,90 +128718,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [376] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8134),
-    [sym_preproc_elif_in_statements] = STATE(8134),
-    [sym_preproc_elifdef_in_statements] = STATE(8134),
-    [sym_internal_procedures] = STATE(5898),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [371] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7834),
+    [sym_preproc_elif_in_statements] = STATE(7834),
+    [sym_preproc_elifdef_in_statements] = STATE(7834),
+    [sym_internal_procedures] = STATE(5892),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1820),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1830),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -129862,7 +128811,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -129951,90 +128900,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [377] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8150),
-    [sym_preproc_elif_in_statements] = STATE(8150),
-    [sym_preproc_elifdef_in_statements] = STATE(8150),
-    [sym_internal_procedures] = STATE(5899),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [372] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8516),
+    [sym_preproc_elif_in_specification_part] = STATE(8516),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8516),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5822),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(1834),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(1414),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(1420),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [373] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7903),
+    [sym_preproc_elif_in_statements] = STATE(7903),
+    [sym_preproc_elifdef_in_statements] = STATE(7903),
+    [sym_internal_procedures] = STATE(5915),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1822),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130044,7 +129175,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130133,90 +129264,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [378] = {
-    [sym_preproc_include] = STATE(381),
-    [sym_preproc_def] = STATE(381),
-    [sym_preproc_function_def] = STATE(381),
-    [sym_preproc_call] = STATE(381),
-    [sym_preproc_if_in_statements] = STATE(381),
-    [sym_preproc_ifdef_in_statements] = STATE(381),
-    [sym_preproc_else_in_statements] = STATE(8397),
-    [sym_preproc_elif_in_statements] = STATE(8397),
-    [sym_preproc_elifdef_in_statements] = STATE(8397),
-    [sym_internal_procedures] = STATE(5934),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [374] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8334),
+    [sym_preproc_elif_in_statements] = STATE(8334),
+    [sym_preproc_elifdef_in_statements] = STATE(8334),
+    [sym_internal_procedures] = STATE(5815),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(381),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1836),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130226,7 +129357,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130256,7 +129387,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1826),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -130315,90 +129446,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [379] = {
-    [sym_preproc_include] = STATE(383),
-    [sym_preproc_def] = STATE(383),
-    [sym_preproc_function_def] = STATE(383),
-    [sym_preproc_call] = STATE(383),
-    [sym_preproc_if_in_statements] = STATE(383),
-    [sym_preproc_ifdef_in_statements] = STATE(383),
-    [sym_preproc_else_in_statements] = STATE(8431),
-    [sym_preproc_elif_in_statements] = STATE(8431),
-    [sym_preproc_elifdef_in_statements] = STATE(8431),
-    [sym_internal_procedures] = STATE(5935),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [375] = {
+    [sym_preproc_include] = STATE(363),
+    [sym_preproc_def] = STATE(363),
+    [sym_preproc_function_def] = STATE(363),
+    [sym_preproc_call] = STATE(363),
+    [sym_preproc_if_in_statements] = STATE(363),
+    [sym_preproc_ifdef_in_statements] = STATE(363),
+    [sym_preproc_else_in_statements] = STATE(8353),
+    [sym_preproc_elif_in_statements] = STATE(8353),
+    [sym_preproc_elifdef_in_statements] = STATE(8353),
+    [sym_internal_procedures] = STATE(5813),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(383),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(363),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1838),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130408,7 +129539,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130438,7 +129569,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1830),
+    [anon_sym_SEMI] = ACTIONS(1840),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -130497,90 +129628,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [380] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8431),
-    [sym_preproc_elif_in_statements] = STATE(8431),
-    [sym_preproc_elifdef_in_statements] = STATE(8431),
-    [sym_internal_procedures] = STATE(5935),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [376] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8353),
+    [sym_preproc_elif_in_statements] = STATE(8353),
+    [sym_preproc_elifdef_in_statements] = STATE(8353),
+    [sym_internal_procedures] = STATE(5813),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1838),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130590,7 +129721,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130679,90 +129810,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [381] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8655),
-    [sym_preproc_elif_in_statements] = STATE(8655),
-    [sym_preproc_elifdef_in_statements] = STATE(8655),
-    [sym_internal_procedures] = STATE(5940),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [377] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7902),
+    [sym_preproc_elif_in_statements] = STATE(7902),
+    [sym_preproc_elifdef_in_statements] = STATE(7902),
+    [sym_internal_procedures] = STATE(5900),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1832),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1842),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130772,7 +129903,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130861,90 +129992,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [382] = {
-    [sym_preproc_include] = STATE(384),
-    [sym_preproc_def] = STATE(384),
-    [sym_preproc_function_def] = STATE(384),
-    [sym_preproc_call] = STATE(384),
-    [sym_preproc_if_in_statements] = STATE(384),
-    [sym_preproc_ifdef_in_statements] = STATE(384),
-    [sym_preproc_else_in_statements] = STATE(8655),
-    [sym_preproc_elif_in_statements] = STATE(8655),
-    [sym_preproc_elifdef_in_statements] = STATE(8655),
-    [sym_internal_procedures] = STATE(5940),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [378] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8038),
+    [sym_preproc_elif_in_statements] = STATE(8038),
+    [sym_preproc_elifdef_in_statements] = STATE(8038),
+    [sym_internal_procedures] = STATE(5907),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(384),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1832),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1844),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -130954,7 +130085,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -130984,7 +130115,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1834),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -131043,90 +130174,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [383] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7712),
-    [sym_preproc_elif_in_statements] = STATE(7712),
-    [sym_preproc_elifdef_in_statements] = STATE(7712),
-    [sym_internal_procedures] = STATE(5941),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [379] = {
+    [sym_preproc_include] = STATE(382),
+    [sym_preproc_def] = STATE(382),
+    [sym_preproc_function_def] = STATE(382),
+    [sym_preproc_call] = STATE(382),
+    [sym_preproc_if_in_statements] = STATE(382),
+    [sym_preproc_ifdef_in_statements] = STATE(382),
+    [sym_preproc_else_in_statements] = STATE(8038),
+    [sym_preproc_elif_in_statements] = STATE(8038),
+    [sym_preproc_elifdef_in_statements] = STATE(8038),
+    [sym_internal_procedures] = STATE(5907),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(382),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1836),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1844),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -131136,7 +130267,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -131166,7 +130297,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1846),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -131225,90 +130356,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [384] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7827),
-    [sym_preproc_elif_in_statements] = STATE(7827),
-    [sym_preproc_elifdef_in_statements] = STATE(7827),
-    [sym_internal_procedures] = STATE(5942),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [380] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8078),
+    [sym_preproc_elif_in_statements] = STATE(8078),
+    [sym_preproc_elifdef_in_statements] = STATE(8078),
+    [sym_internal_procedures] = STATE(5944),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1838),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1848),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -131318,7 +130449,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -131407,90 +130538,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [385] = {
-    [sym_preproc_include] = STATE(388),
-    [sym_preproc_def] = STATE(388),
-    [sym_preproc_function_def] = STATE(388),
-    [sym_preproc_call] = STATE(388),
-    [sym_preproc_if_in_statements] = STATE(388),
-    [sym_preproc_ifdef_in_statements] = STATE(388),
-    [sym_preproc_else_in_statements] = STATE(8305),
-    [sym_preproc_elif_in_statements] = STATE(8305),
-    [sym_preproc_elifdef_in_statements] = STATE(8305),
-    [sym_internal_procedures] = STATE(5982),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [381] = {
+    [sym_preproc_include] = STATE(366),
+    [sym_preproc_def] = STATE(366),
+    [sym_preproc_function_def] = STATE(366),
+    [sym_preproc_call] = STATE(366),
+    [sym_preproc_if_in_statements] = STATE(366),
+    [sym_preproc_ifdef_in_statements] = STATE(366),
+    [sym_preproc_else_in_statements] = STATE(7902),
+    [sym_preproc_elif_in_statements] = STATE(7902),
+    [sym_preproc_elifdef_in_statements] = STATE(7902),
+    [sym_internal_procedures] = STATE(5900),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(388),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(366),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1840),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1842),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -131500,7 +130631,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -131530,7 +130661,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1842),
+    [anon_sym_SEMI] = ACTIONS(1850),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -131589,90 +130720,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [386] = {
-    [sym_preproc_include] = STATE(390),
-    [sym_preproc_def] = STATE(390),
-    [sym_preproc_function_def] = STATE(390),
-    [sym_preproc_call] = STATE(390),
-    [sym_preproc_if_in_statements] = STATE(390),
-    [sym_preproc_ifdef_in_statements] = STATE(390),
-    [sym_preproc_else_in_statements] = STATE(8306),
-    [sym_preproc_elif_in_statements] = STATE(8306),
-    [sym_preproc_elifdef_in_statements] = STATE(8306),
-    [sym_internal_procedures] = STATE(5985),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [382] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8204),
+    [sym_preproc_elif_in_statements] = STATE(8204),
+    [sym_preproc_elifdef_in_statements] = STATE(8204),
+    [sym_internal_procedures] = STATE(5960),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(390),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1844),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1852),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -131682,7 +130813,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -131712,7 +130843,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1846),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -131771,100 +130902,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [387] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8306),
-    [sym_preproc_elif_in_statements] = STATE(8306),
-    [sym_preproc_elifdef_in_statements] = STATE(8306),
-    [sym_internal_procedures] = STATE(5985),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [383] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8571),
+    [sym_preproc_elif_in_specification_part] = STATE(8571),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8571),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5803),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1844),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1854),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -131953,90 +131084,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [388] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8327),
-    [sym_preproc_elif_in_statements] = STATE(8327),
-    [sym_preproc_elifdef_in_statements] = STATE(8327),
-    [sym_internal_procedures] = STATE(5993),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [384] = {
+    [sym_preproc_include] = STATE(373),
+    [sym_preproc_def] = STATE(373),
+    [sym_preproc_function_def] = STATE(373),
+    [sym_preproc_call] = STATE(373),
+    [sym_preproc_if_in_statements] = STATE(373),
+    [sym_preproc_ifdef_in_statements] = STATE(373),
+    [sym_preproc_else_in_statements] = STATE(7901),
+    [sym_preproc_elif_in_statements] = STATE(7901),
+    [sym_preproc_elifdef_in_statements] = STATE(7901),
+    [sym_internal_procedures] = STATE(5890),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(373),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1848),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1856),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132046,7 +131177,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132076,7 +131207,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1858),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -132135,90 +131266,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [389] = {
-    [sym_preproc_include] = STATE(391),
-    [sym_preproc_def] = STATE(391),
-    [sym_preproc_function_def] = STATE(391),
-    [sym_preproc_call] = STATE(391),
-    [sym_preproc_if_in_statements] = STATE(391),
-    [sym_preproc_ifdef_in_statements] = STATE(391),
-    [sym_preproc_else_in_statements] = STATE(8327),
-    [sym_preproc_elif_in_statements] = STATE(8327),
-    [sym_preproc_elifdef_in_statements] = STATE(8327),
-    [sym_internal_procedures] = STATE(5993),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [385] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7885),
+    [sym_preproc_elif_in_statements] = STATE(7885),
+    [sym_preproc_elifdef_in_statements] = STATE(7885),
+    [sym_internal_procedures] = STATE(5873),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(391),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1848),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1860),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132228,7 +131359,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132258,7 +131389,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1850),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -132317,90 +131448,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [390] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8328),
-    [sym_preproc_elif_in_statements] = STATE(8328),
-    [sym_preproc_elifdef_in_statements] = STATE(8328),
-    [sym_internal_procedures] = STATE(5839),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [386] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7879),
+    [sym_preproc_elif_in_statements] = STATE(7879),
+    [sym_preproc_elifdef_in_statements] = STATE(7879),
+    [sym_internal_procedures] = STATE(5872),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1852),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1862),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132410,7 +131541,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132499,90 +131630,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [391] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8339),
-    [sym_preproc_elif_in_statements] = STATE(8339),
-    [sym_preproc_elifdef_in_statements] = STATE(8339),
-    [sym_internal_procedures] = STATE(5876),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [387] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8580),
+    [sym_preproc_elif_in_specification_part] = STATE(8580),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8580),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5797),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1854),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(1414),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(1420),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [388] = {
+    [sym_preproc_include] = STATE(385),
+    [sym_preproc_def] = STATE(385),
+    [sym_preproc_function_def] = STATE(385),
+    [sym_preproc_call] = STATE(385),
+    [sym_preproc_if_in_statements] = STATE(385),
+    [sym_preproc_ifdef_in_statements] = STATE(385),
+    [sym_preproc_else_in_statements] = STATE(7878),
+    [sym_preproc_elif_in_statements] = STATE(7878),
+    [sym_preproc_elifdef_in_statements] = STATE(7878),
+    [sym_internal_procedures] = STATE(5871),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(385),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(1864),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132592,7 +131905,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132622,7 +131935,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1866),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -132681,90 +131994,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [392] = {
-    [sym_preproc_include] = STATE(395),
-    [sym_preproc_def] = STATE(395),
-    [sym_preproc_function_def] = STATE(395),
-    [sym_preproc_call] = STATE(395),
-    [sym_preproc_if_in_statements] = STATE(395),
-    [sym_preproc_ifdef_in_statements] = STATE(395),
-    [sym_preproc_else_in_statements] = STATE(8447),
-    [sym_preproc_elif_in_statements] = STATE(8447),
-    [sym_preproc_elifdef_in_statements] = STATE(8447),
-    [sym_internal_procedures] = STATE(5809),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [389] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8367),
+    [sym_preproc_elif_in_statements] = STATE(8367),
+    [sym_preproc_elifdef_in_statements] = STATE(8367),
+    [sym_internal_procedures] = STATE(5784),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(395),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1856),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1868),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132774,7 +132087,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132804,7 +132117,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1858),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -132863,90 +132176,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [393] = {
-    [sym_preproc_include] = STATE(397),
-    [sym_preproc_def] = STATE(397),
-    [sym_preproc_function_def] = STATE(397),
-    [sym_preproc_call] = STATE(397),
-    [sym_preproc_if_in_statements] = STATE(397),
-    [sym_preproc_ifdef_in_statements] = STATE(397),
-    [sym_preproc_else_in_statements] = STATE(8449),
-    [sym_preproc_elif_in_statements] = STATE(8449),
-    [sym_preproc_elifdef_in_statements] = STATE(8449),
-    [sym_internal_procedures] = STATE(5823),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [390] = {
+    [sym_preproc_include] = STATE(374),
+    [sym_preproc_def] = STATE(374),
+    [sym_preproc_function_def] = STATE(374),
+    [sym_preproc_call] = STATE(374),
+    [sym_preproc_if_in_statements] = STATE(374),
+    [sym_preproc_ifdef_in_statements] = STATE(374),
+    [sym_preproc_else_in_statements] = STATE(8367),
+    [sym_preproc_elif_in_statements] = STATE(8367),
+    [sym_preproc_elifdef_in_statements] = STATE(8367),
+    [sym_internal_procedures] = STATE(5784),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(397),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(374),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1860),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1868),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -132956,7 +132269,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -132986,7 +132299,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1862),
+    [anon_sym_SEMI] = ACTIONS(1870),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -133045,90 +132358,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [394] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8449),
-    [sym_preproc_elif_in_statements] = STATE(8449),
-    [sym_preproc_elifdef_in_statements] = STATE(8449),
-    [sym_internal_procedures] = STATE(5823),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [391] = {
+    [sym_preproc_include] = STATE(376),
+    [sym_preproc_def] = STATE(376),
+    [sym_preproc_function_def] = STATE(376),
+    [sym_preproc_call] = STATE(376),
+    [sym_preproc_if_in_statements] = STATE(376),
+    [sym_preproc_ifdef_in_statements] = STATE(376),
+    [sym_preproc_else_in_statements] = STATE(8369),
+    [sym_preproc_elif_in_statements] = STATE(8369),
+    [sym_preproc_elifdef_in_statements] = STATE(8369),
+    [sym_internal_procedures] = STATE(5787),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(376),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1860),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1872),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -133138,7 +132451,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -133168,7 +132481,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1874),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -133227,90 +132540,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [395] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8465),
-    [sym_preproc_elif_in_statements] = STATE(8465),
-    [sym_preproc_elifdef_in_statements] = STATE(8465),
-    [sym_internal_procedures] = STATE(5832),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [392] = {
+    [sym_preproc_include] = STATE(398),
+    [sym_preproc_def] = STATE(398),
+    [sym_preproc_function_def] = STATE(398),
+    [sym_preproc_call] = STATE(398),
+    [sym_preproc_if_in_statements] = STATE(398),
+    [sym_preproc_ifdef_in_statements] = STATE(398),
+    [sym_preproc_else_in_statements] = STATE(8195),
+    [sym_preproc_elif_in_statements] = STATE(8195),
+    [sym_preproc_elifdef_in_statements] = STATE(8195),
+    [sym_internal_procedures] = STATE(5883),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(398),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1864),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1876),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -133320,7 +132633,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -133350,7 +132663,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1878),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -133409,100 +132722,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [396] = {
-    [sym_preproc_include] = STATE(398),
-    [sym_preproc_def] = STATE(398),
-    [sym_preproc_function_def] = STATE(398),
-    [sym_preproc_call] = STATE(398),
-    [sym_preproc_if_in_statements] = STATE(398),
-    [sym_preproc_ifdef_in_statements] = STATE(398),
-    [sym_preproc_else_in_statements] = STATE(8465),
-    [sym_preproc_elif_in_statements] = STATE(8465),
-    [sym_preproc_elifdef_in_statements] = STATE(8465),
-    [sym_internal_procedures] = STATE(5832),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [393] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8052),
+    [sym_preproc_elif_in_specification_part] = STATE(8052),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8052),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5988),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(398),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1864),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(920),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -133532,7 +132845,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1866),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -133591,90 +132904,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [397] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8466),
-    [sym_preproc_elif_in_statements] = STATE(8466),
-    [sym_preproc_elifdef_in_statements] = STATE(8466),
-    [sym_internal_procedures] = STATE(5840),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [394] = {
+    [sym_preproc_include] = STATE(400),
+    [sym_preproc_def] = STATE(400),
+    [sym_preproc_function_def] = STATE(400),
+    [sym_preproc_call] = STATE(400),
+    [sym_preproc_if_in_statements] = STATE(400),
+    [sym_preproc_ifdef_in_statements] = STATE(400),
+    [sym_preproc_else_in_statements] = STATE(8189),
+    [sym_preproc_elif_in_statements] = STATE(8189),
+    [sym_preproc_elifdef_in_statements] = STATE(8189),
+    [sym_internal_procedures] = STATE(5878),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(400),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1868),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1880),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -133684,7 +132997,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -133714,7 +133027,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1882),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -133773,100 +133086,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [398] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8473),
-    [sym_preproc_elif_in_statements] = STATE(8473),
-    [sym_preproc_elifdef_in_statements] = STATE(8473),
-    [sym_internal_procedures] = STATE(5849),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [395] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8590),
+    [sym_preproc_elif_in_specification_part] = STATE(8590),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8590),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5786),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1870),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(998),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -133955,90 +133268,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [399] = {
-    [sym_preproc_include] = STATE(402),
-    [sym_preproc_def] = STATE(402),
-    [sym_preproc_function_def] = STATE(402),
-    [sym_preproc_call] = STATE(402),
-    [sym_preproc_if_in_statements] = STATE(402),
-    [sym_preproc_ifdef_in_statements] = STATE(402),
-    [sym_preproc_else_in_statements] = STATE(7882),
-    [sym_preproc_elif_in_statements] = STATE(7882),
-    [sym_preproc_elifdef_in_statements] = STATE(7882),
-    [sym_internal_procedures] = STATE(5788),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [396] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8189),
+    [sym_preproc_elif_in_statements] = STATE(8189),
+    [sym_preproc_elifdef_in_statements] = STATE(8189),
+    [sym_internal_procedures] = STATE(5878),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(402),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1872),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1880),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134048,7 +133361,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -134078,7 +133391,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1874),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -134137,90 +133450,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [400] = {
-    [sym_preproc_include] = STATE(404),
-    [sym_preproc_def] = STATE(404),
-    [sym_preproc_function_def] = STATE(404),
-    [sym_preproc_call] = STATE(404),
-    [sym_preproc_if_in_statements] = STATE(404),
-    [sym_preproc_ifdef_in_statements] = STATE(404),
-    [sym_preproc_else_in_statements] = STATE(7883),
-    [sym_preproc_elif_in_statements] = STATE(7883),
-    [sym_preproc_elifdef_in_statements] = STATE(7883),
-    [sym_internal_procedures] = STATE(5805),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [397] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7878),
+    [sym_preproc_elif_in_statements] = STATE(7878),
+    [sym_preproc_elifdef_in_statements] = STATE(7878),
+    [sym_internal_procedures] = STATE(5871),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(404),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1876),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1864),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134230,7 +133543,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -134260,7 +133573,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1878),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -134319,90 +133632,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [401] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7883),
-    [sym_preproc_elif_in_statements] = STATE(7883),
-    [sym_preproc_elifdef_in_statements] = STATE(7883),
-    [sym_internal_procedures] = STATE(5805),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [398] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8178),
+    [sym_preproc_elif_in_statements] = STATE(8178),
+    [sym_preproc_elifdef_in_statements] = STATE(8178),
+    [sym_internal_procedures] = STATE(5869),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1876),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1884),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134412,7 +133725,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -134501,90 +133814,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [402] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7911),
-    [sym_preproc_elif_in_statements] = STATE(7911),
-    [sym_preproc_elifdef_in_statements] = STATE(7911),
-    [sym_internal_procedures] = STATE(5812),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [399] = {
+    [sym_preproc_include] = STATE(402),
+    [sym_preproc_def] = STATE(402),
+    [sym_preproc_function_def] = STATE(402),
+    [sym_preproc_call] = STATE(402),
+    [sym_preproc_if_in_statements] = STATE(402),
+    [sym_preproc_ifdef_in_statements] = STATE(402),
+    [sym_preproc_else_in_statements] = STATE(8178),
+    [sym_preproc_elif_in_statements] = STATE(8178),
+    [sym_preproc_elifdef_in_statements] = STATE(8178),
+    [sym_internal_procedures] = STATE(5869),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(402),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1880),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1884),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134594,7 +133907,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -134624,7 +133937,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1886),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -134683,90 +133996,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [403] = {
-    [sym_preproc_include] = STATE(405),
-    [sym_preproc_def] = STATE(405),
-    [sym_preproc_function_def] = STATE(405),
-    [sym_preproc_call] = STATE(405),
-    [sym_preproc_if_in_statements] = STATE(405),
-    [sym_preproc_ifdef_in_statements] = STATE(405),
-    [sym_preproc_else_in_statements] = STATE(7911),
-    [sym_preproc_elif_in_statements] = STATE(7911),
-    [sym_preproc_elifdef_in_statements] = STATE(7911),
-    [sym_internal_procedures] = STATE(5812),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [400] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8177),
+    [sym_preproc_elif_in_statements] = STATE(8177),
+    [sym_preproc_elifdef_in_statements] = STATE(8177),
+    [sym_internal_procedures] = STATE(5867),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(405),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1880),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1888),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134776,7 +134089,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -134806,7 +134119,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1882),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -134865,90 +134178,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [404] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7914),
-    [sym_preproc_elif_in_statements] = STATE(7914),
-    [sym_preproc_elifdef_in_statements] = STATE(7914),
-    [sym_internal_procedures] = STATE(5815),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [401] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7873),
+    [sym_preproc_elif_in_statements] = STATE(7873),
+    [sym_preproc_elifdef_in_statements] = STATE(7873),
+    [sym_internal_procedures] = STATE(5855),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1884),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1890),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -134958,7 +134271,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135047,90 +134360,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [405] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7943),
-    [sym_preproc_elif_in_statements] = STATE(7943),
-    [sym_preproc_elifdef_in_statements] = STATE(7943),
-    [sym_internal_procedures] = STATE(5816),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [402] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8164),
+    [sym_preproc_elif_in_statements] = STATE(8164),
+    [sym_preproc_elifdef_in_statements] = STATE(8164),
+    [sym_internal_procedures] = STATE(5862),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1886),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1892),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -135140,7 +134453,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135229,90 +134542,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [406] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_internal_procedures] = STATE(5904),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [403] = {
+    [sym_preproc_include] = STATE(386),
+    [sym_preproc_def] = STATE(386),
+    [sym_preproc_function_def] = STATE(386),
+    [sym_preproc_call] = STATE(386),
+    [sym_preproc_if_in_statements] = STATE(386),
+    [sym_preproc_ifdef_in_statements] = STATE(386),
+    [sym_preproc_else_in_statements] = STATE(7873),
+    [sym_preproc_elif_in_statements] = STATE(7873),
+    [sym_preproc_elifdef_in_statements] = STATE(7873),
+    [sym_internal_procedures] = STATE(5855),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(386),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1888),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1890),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -135322,7 +134635,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135352,7 +134665,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1894),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -135411,90 +134724,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [407] = {
-    [sym_preproc_include] = STATE(410),
-    [sym_preproc_def] = STATE(410),
-    [sym_preproc_function_def] = STATE(410),
-    [sym_preproc_call] = STATE(410),
-    [sym_preproc_if_in_statements] = STATE(410),
-    [sym_preproc_ifdef_in_statements] = STATE(410),
-    [sym_preproc_else_in_statements] = STATE(8560),
-    [sym_preproc_elif_in_statements] = STATE(8560),
-    [sym_preproc_elifdef_in_statements] = STATE(8560),
-    [sym_internal_procedures] = STATE(5846),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [404] = {
+    [sym_preproc_include] = STATE(397),
+    [sym_preproc_def] = STATE(397),
+    [sym_preproc_function_def] = STATE(397),
+    [sym_preproc_call] = STATE(397),
+    [sym_preproc_if_in_statements] = STATE(397),
+    [sym_preproc_ifdef_in_statements] = STATE(397),
+    [sym_preproc_else_in_statements] = STATE(7872),
+    [sym_preproc_elif_in_statements] = STATE(7872),
+    [sym_preproc_elifdef_in_statements] = STATE(7872),
+    [sym_internal_procedures] = STATE(5843),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(410),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(397),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1890),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1896),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -135504,7 +134817,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135534,7 +134847,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1892),
+    [anon_sym_SEMI] = ACTIONS(1898),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -135593,90 +134906,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [408] = {
-    [sym_preproc_include] = STATE(412),
-    [sym_preproc_def] = STATE(412),
-    [sym_preproc_function_def] = STATE(412),
-    [sym_preproc_call] = STATE(412),
-    [sym_preproc_if_in_statements] = STATE(412),
-    [sym_preproc_ifdef_in_statements] = STATE(412),
-    [sym_preproc_else_in_statements] = STATE(8561),
-    [sym_preproc_elif_in_statements] = STATE(8561),
-    [sym_preproc_elifdef_in_statements] = STATE(8561),
-    [sym_internal_procedures] = STATE(5851),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [405] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7853),
+    [sym_preproc_elif_in_statements] = STATE(7853),
+    [sym_preproc_elifdef_in_statements] = STATE(7853),
+    [sym_internal_procedures] = STATE(5831),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(412),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1894),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1900),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -135686,7 +134999,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135716,7 +135029,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1896),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -135775,90 +135088,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [409] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8561),
-    [sym_preproc_elif_in_statements] = STATE(8561),
-    [sym_preproc_elifdef_in_statements] = STATE(8561),
-    [sym_internal_procedures] = STATE(5851),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [406] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7847),
+    [sym_preproc_elif_in_statements] = STATE(7847),
+    [sym_preproc_elifdef_in_statements] = STATE(7847),
+    [sym_internal_procedures] = STATE(5827),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1894),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1902),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -135868,7 +135181,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -135957,90 +135270,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [410] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8583),
-    [sym_preproc_elif_in_statements] = STATE(8583),
-    [sym_preproc_elifdef_in_statements] = STATE(8583),
-    [sym_internal_procedures] = STATE(5855),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [407] = {
+    [sym_preproc_include] = STATE(411),
+    [sym_preproc_def] = STATE(411),
+    [sym_preproc_function_def] = STATE(411),
+    [sym_preproc_call] = STATE(411),
+    [sym_preproc_if_in_statements] = STATE(411),
+    [sym_preproc_ifdef_in_statements] = STATE(411),
+    [sym_preproc_else_in_statements] = STATE(8030),
+    [sym_preproc_elif_in_statements] = STATE(8030),
+    [sym_preproc_elifdef_in_statements] = STATE(8030),
+    [sym_internal_procedures] = STATE(5801),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(411),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1898),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1904),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136050,7 +135363,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136080,7 +135393,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1906),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -136139,90 +135452,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [411] = {
+  [408] = {
     [sym_preproc_include] = STATE(413),
     [sym_preproc_def] = STATE(413),
     [sym_preproc_function_def] = STATE(413),
     [sym_preproc_call] = STATE(413),
     [sym_preproc_if_in_statements] = STATE(413),
     [sym_preproc_ifdef_in_statements] = STATE(413),
-    [sym_preproc_else_in_statements] = STATE(8583),
-    [sym_preproc_elif_in_statements] = STATE(8583),
-    [sym_preproc_elifdef_in_statements] = STATE(8583),
-    [sym_internal_procedures] = STATE(5855),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_preproc_else_in_statements] = STATE(8028),
+    [sym_preproc_elif_in_statements] = STATE(8028),
+    [sym_preproc_elifdef_in_statements] = STATE(8028),
+    [sym_internal_procedures] = STATE(5798),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(413),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1898),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1908),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136232,7 +135545,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136262,7 +135575,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1900),
+    [anon_sym_SEMI] = ACTIONS(1910),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -136321,90 +135634,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [412] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8584),
-    [sym_preproc_elif_in_statements] = STATE(8584),
-    [sym_preproc_elifdef_in_statements] = STATE(8584),
-    [sym_internal_procedures] = STATE(5859),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [409] = {
+    [sym_preproc_include] = STATE(405),
+    [sym_preproc_def] = STATE(405),
+    [sym_preproc_function_def] = STATE(405),
+    [sym_preproc_call] = STATE(405),
+    [sym_preproc_if_in_statements] = STATE(405),
+    [sym_preproc_ifdef_in_statements] = STATE(405),
+    [sym_preproc_else_in_statements] = STATE(7846),
+    [sym_preproc_elif_in_statements] = STATE(7846),
+    [sym_preproc_elifdef_in_statements] = STATE(7846),
+    [sym_internal_procedures] = STATE(5824),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(405),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1902),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1912),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136414,7 +135727,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136444,7 +135757,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1914),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -136503,90 +135816,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [413] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8591),
-    [sym_preproc_elif_in_statements] = STATE(8591),
-    [sym_preproc_elifdef_in_statements] = STATE(8591),
-    [sym_internal_procedures] = STATE(5860),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [410] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8028),
+    [sym_preproc_elif_in_statements] = STATE(8028),
+    [sym_preproc_elifdef_in_statements] = STATE(8028),
+    [sym_internal_procedures] = STATE(5798),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1904),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1908),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136596,7 +135909,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136685,90 +135998,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [414] = {
-    [sym_preproc_include] = STATE(327),
-    [sym_preproc_def] = STATE(327),
-    [sym_preproc_function_def] = STATE(327),
-    [sym_preproc_call] = STATE(327),
-    [sym_preproc_if_in_statements] = STATE(327),
-    [sym_preproc_ifdef_in_statements] = STATE(327),
-    [sym_preproc_else_in_statements] = STATE(7816),
-    [sym_preproc_elif_in_statements] = STATE(7816),
-    [sym_preproc_elifdef_in_statements] = STATE(7816),
-    [sym_internal_procedures] = STATE(5904),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [411] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8010),
+    [sym_preproc_elif_in_statements] = STATE(8010),
+    [sym_preproc_elifdef_in_statements] = STATE(8010),
+    [sym_internal_procedures] = STATE(5793),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(327),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1888),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1916),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136778,7 +136091,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136808,7 +136121,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1906),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -136867,90 +136180,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [415] = {
-    [sym_preproc_include] = STATE(418),
-    [sym_preproc_def] = STATE(418),
-    [sym_preproc_function_def] = STATE(418),
-    [sym_preproc_call] = STATE(418),
-    [sym_preproc_if_in_statements] = STATE(418),
-    [sym_preproc_ifdef_in_statements] = STATE(418),
-    [sym_preproc_else_in_statements] = STATE(8665),
-    [sym_preproc_elif_in_statements] = STATE(8665),
-    [sym_preproc_elifdef_in_statements] = STATE(8665),
-    [sym_internal_procedures] = STATE(5894),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [412] = {
+    [sym_preproc_include] = STATE(414),
+    [sym_preproc_def] = STATE(414),
+    [sym_preproc_function_def] = STATE(414),
+    [sym_preproc_call] = STATE(414),
+    [sym_preproc_if_in_statements] = STATE(414),
+    [sym_preproc_ifdef_in_statements] = STATE(414),
+    [sym_preproc_else_in_statements] = STATE(8010),
+    [sym_preproc_elif_in_statements] = STATE(8010),
+    [sym_preproc_elifdef_in_statements] = STATE(8010),
+    [sym_internal_procedures] = STATE(5793),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(418),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(414),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1908),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1916),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -136960,7 +136273,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -136990,7 +136303,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1910),
+    [anon_sym_SEMI] = ACTIONS(1918),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -137049,90 +136362,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [416] = {
-    [sym_preproc_include] = STATE(420),
-    [sym_preproc_def] = STATE(420),
-    [sym_preproc_function_def] = STATE(420),
-    [sym_preproc_call] = STATE(420),
-    [sym_preproc_if_in_statements] = STATE(420),
-    [sym_preproc_ifdef_in_statements] = STATE(420),
-    [sym_preproc_else_in_statements] = STATE(8666),
-    [sym_preproc_elif_in_statements] = STATE(8666),
-    [sym_preproc_elifdef_in_statements] = STATE(8666),
-    [sym_internal_procedures] = STATE(5901),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [413] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8004),
+    [sym_preproc_elif_in_statements] = STATE(8004),
+    [sym_preproc_elifdef_in_statements] = STATE(8004),
+    [sym_internal_procedures] = STATE(5790),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(420),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1912),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1920),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -137142,7 +136455,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -137172,7 +136485,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1914),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -137231,90 +136544,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [417] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(8666),
-    [sym_preproc_elif_in_statements] = STATE(8666),
-    [sym_preproc_elifdef_in_statements] = STATE(8666),
-    [sym_internal_procedures] = STATE(5901),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [414] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7994),
+    [sym_preproc_elif_in_statements] = STATE(7994),
+    [sym_preproc_elifdef_in_statements] = STATE(7994),
+    [sym_internal_procedures] = STATE(5789),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1912),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1922),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -137324,7 +136637,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -137413,90 +136726,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [418] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7708),
-    [sym_preproc_elif_in_statements] = STATE(7708),
-    [sym_preproc_elifdef_in_statements] = STATE(7708),
-    [sym_internal_procedures] = STATE(5903),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [415] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7846),
+    [sym_preproc_elif_in_statements] = STATE(7846),
+    [sym_preproc_elifdef_in_statements] = STATE(7846),
+    [sym_internal_procedures] = STATE(5824),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1916),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1912),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -137506,7 +136819,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -137595,100 +136908,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [419] = {
-    [sym_preproc_include] = STATE(421),
-    [sym_preproc_def] = STATE(421),
-    [sym_preproc_function_def] = STATE(421),
-    [sym_preproc_call] = STATE(421),
-    [sym_preproc_if_in_statements] = STATE(421),
-    [sym_preproc_ifdef_in_statements] = STATE(421),
-    [sym_preproc_else_in_statements] = STATE(7708),
-    [sym_preproc_elif_in_statements] = STATE(7708),
-    [sym_preproc_elifdef_in_statements] = STATE(7708),
-    [sym_internal_procedures] = STATE(5903),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [416] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8444),
+    [sym_preproc_elif_in_specification_part] = STATE(8444),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8444),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5868),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(421),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1916),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1924),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -137718,7 +137031,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1918),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -137777,100 +137090,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [420] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7709),
-    [sym_preproc_elif_in_statements] = STATE(7709),
-    [sym_preproc_elifdef_in_statements] = STATE(7709),
-    [sym_internal_procedures] = STATE(5905),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [417] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8448),
+    [sym_preproc_elif_in_specification_part] = STATE(8448),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8448),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5811),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1920),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(1926),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -137959,90 +137272,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [421] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7715),
-    [sym_preproc_elif_in_statements] = STATE(7715),
-    [sym_preproc_elifdef_in_statements] = STATE(7715),
-    [sym_internal_procedures] = STATE(5906),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [418] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7841),
+    [sym_preproc_elif_in_statements] = STATE(7841),
+    [sym_preproc_elifdef_in_statements] = STATE(7841),
+    [sym_internal_procedures] = STATE(5821),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1922),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1928),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -138052,7 +137365,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138141,100 +137454,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [422] = {
-    [sym_preproc_include] = STATE(425),
-    [sym_preproc_def] = STATE(425),
-    [sym_preproc_function_def] = STATE(425),
-    [sym_preproc_call] = STATE(425),
-    [sym_preproc_if_in_statements] = STATE(425),
-    [sym_preproc_ifdef_in_statements] = STATE(425),
-    [sym_preproc_else_in_statements] = STATE(7776),
-    [sym_preproc_elif_in_statements] = STATE(7776),
-    [sym_preproc_elifdef_in_statements] = STATE(7776),
-    [sym_internal_procedures] = STATE(5928),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [419] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8548),
+    [sym_preproc_elif_in_specification_part] = STATE(8548),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8548),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5805),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(425),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1924),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(924),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138264,7 +137577,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1926),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -138323,90 +137636,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [423] = {
-    [sym_preproc_include] = STATE(427),
-    [sym_preproc_def] = STATE(427),
-    [sym_preproc_function_def] = STATE(427),
-    [sym_preproc_call] = STATE(427),
-    [sym_preproc_if_in_statements] = STATE(427),
-    [sym_preproc_ifdef_in_statements] = STATE(427),
-    [sym_preproc_else_in_statements] = STATE(7777),
-    [sym_preproc_elif_in_statements] = STATE(7777),
-    [sym_preproc_elifdef_in_statements] = STATE(7777),
-    [sym_internal_procedures] = STATE(5930),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [420] = {
+    [sym_preproc_include] = STATE(406),
+    [sym_preproc_def] = STATE(406),
+    [sym_preproc_function_def] = STATE(406),
+    [sym_preproc_call] = STATE(406),
+    [sym_preproc_if_in_statements] = STATE(406),
+    [sym_preproc_ifdef_in_statements] = STATE(406),
+    [sym_preproc_else_in_statements] = STATE(7841),
+    [sym_preproc_elif_in_statements] = STATE(7841),
+    [sym_preproc_elifdef_in_statements] = STATE(7841),
+    [sym_internal_procedures] = STATE(5821),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(427),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(406),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1928),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -138416,7 +137729,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138505,90 +137818,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [424] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7777),
-    [sym_preproc_elif_in_statements] = STATE(7777),
-    [sym_preproc_elifdef_in_statements] = STATE(7777),
-    [sym_internal_procedures] = STATE(5930),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [421] = {
+    [sym_preproc_include] = STATE(415),
+    [sym_preproc_def] = STATE(415),
+    [sym_preproc_function_def] = STATE(415),
+    [sym_preproc_call] = STATE(415),
+    [sym_preproc_if_in_statements] = STATE(415),
+    [sym_preproc_ifdef_in_statements] = STATE(415),
+    [sym_preproc_else_in_statements] = STATE(7840),
+    [sym_preproc_elif_in_statements] = STATE(7840),
+    [sym_preproc_elifdef_in_statements] = STATE(7840),
+    [sym_internal_procedures] = STATE(5820),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(415),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1928),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1932),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -138598,7 +137911,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138628,7 +137941,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1934),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -138687,90 +138000,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [425] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7782),
-    [sym_preproc_elif_in_statements] = STATE(7782),
-    [sym_preproc_elifdef_in_statements] = STATE(7782),
-    [sym_internal_procedures] = STATE(5932),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [422] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7821),
+    [sym_preproc_elif_in_statements] = STATE(7821),
+    [sym_preproc_elifdef_in_statements] = STATE(7821),
+    [sym_internal_procedures] = STATE(5838),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1936),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -138780,7 +138093,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138869,100 +138182,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [426] = {
-    [sym_preproc_include] = STATE(428),
-    [sym_preproc_def] = STATE(428),
-    [sym_preproc_function_def] = STATE(428),
-    [sym_preproc_call] = STATE(428),
-    [sym_preproc_if_in_statements] = STATE(428),
-    [sym_preproc_ifdef_in_statements] = STATE(428),
-    [sym_preproc_else_in_statements] = STATE(7782),
-    [sym_preproc_elif_in_statements] = STATE(7782),
-    [sym_preproc_elifdef_in_statements] = STATE(7782),
-    [sym_internal_procedures] = STATE(5932),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [423] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8270),
+    [sym_preproc_elif_in_specification_part] = STATE(8270),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8270),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5850),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(428),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(988),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -138992,7 +138305,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1934),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -139051,90 +138364,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [427] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7783),
-    [sym_preproc_elif_in_statements] = STATE(7783),
-    [sym_preproc_elifdef_in_statements] = STATE(7783),
+  [424] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7815),
+    [sym_preproc_elif_in_statements] = STATE(7815),
+    [sym_preproc_elifdef_in_statements] = STATE(7815),
     [sym_internal_procedures] = STATE(5937),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1938),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -139144,7 +138457,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -139233,90 +138546,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [428] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7789),
-    [sym_preproc_elif_in_statements] = STATE(7789),
-    [sym_preproc_elifdef_in_statements] = STATE(7789),
-    [sym_internal_procedures] = STATE(5945),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [425] = {
+    [sym_preproc_include] = STATE(435),
+    [sym_preproc_def] = STATE(435),
+    [sym_preproc_function_def] = STATE(435),
+    [sym_preproc_call] = STATE(435),
+    [sym_preproc_if_in_statements] = STATE(435),
+    [sym_preproc_ifdef_in_statements] = STATE(435),
+    [sym_preproc_else_in_statements] = STATE(8664),
+    [sym_preproc_elif_in_statements] = STATE(8664),
+    [sym_preproc_elifdef_in_statements] = STATE(8664),
+    [sym_internal_procedures] = STATE(5928),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(435),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1938),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1940),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -139326,7 +138639,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -139356,7 +138669,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1942),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -139415,90 +138728,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [429] = {
-    [sym_preproc_include] = STATE(432),
-    [sym_preproc_def] = STATE(432),
-    [sym_preproc_function_def] = STATE(432),
-    [sym_preproc_call] = STATE(432),
-    [sym_preproc_if_in_statements] = STATE(432),
-    [sym_preproc_ifdef_in_statements] = STATE(432),
-    [sym_preproc_else_in_statements] = STATE(7808),
-    [sym_preproc_elif_in_statements] = STATE(7808),
-    [sym_preproc_elifdef_in_statements] = STATE(7808),
-    [sym_internal_procedures] = STATE(5949),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [426] = {
+    [sym_preproc_include] = STATE(422),
+    [sym_preproc_def] = STATE(422),
+    [sym_preproc_function_def] = STATE(422),
+    [sym_preproc_call] = STATE(422),
+    [sym_preproc_if_in_statements] = STATE(422),
+    [sym_preproc_ifdef_in_statements] = STATE(422),
+    [sym_preproc_else_in_statements] = STATE(7814),
+    [sym_preproc_elif_in_statements] = STATE(7814),
+    [sym_preproc_elifdef_in_statements] = STATE(7814),
+    [sym_internal_procedures] = STATE(5832),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(432),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(422),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1940),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1944),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -139508,7 +138821,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -139538,7 +138851,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1942),
+    [anon_sym_SEMI] = ACTIONS(1946),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -139597,90 +138910,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [430] = {
-    [sym_preproc_include] = STATE(434),
-    [sym_preproc_def] = STATE(434),
-    [sym_preproc_function_def] = STATE(434),
-    [sym_preproc_call] = STATE(434),
-    [sym_preproc_if_in_statements] = STATE(434),
-    [sym_preproc_ifdef_in_statements] = STATE(434),
-    [sym_preproc_else_in_statements] = STATE(7809),
-    [sym_preproc_elif_in_statements] = STATE(7809),
-    [sym_preproc_elifdef_in_statements] = STATE(7809),
-    [sym_internal_procedures] = STATE(5951),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [427] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7814),
+    [sym_preproc_elif_in_statements] = STATE(7814),
+    [sym_preproc_elifdef_in_statements] = STATE(7814),
+    [sym_internal_procedures] = STATE(5832),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(434),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1944),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -139690,7 +139003,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -139720,7 +139033,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1946),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -139779,90 +139092,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [431] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7809),
-    [sym_preproc_elif_in_statements] = STATE(7809),
-    [sym_preproc_elifdef_in_statements] = STATE(7809),
-    [sym_internal_procedures] = STATE(5951),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [428] = {
+    [sym_preproc_include] = STATE(437),
+    [sym_preproc_def] = STATE(437),
+    [sym_preproc_function_def] = STATE(437),
+    [sym_preproc_call] = STATE(437),
+    [sym_preproc_if_in_statements] = STATE(437),
+    [sym_preproc_ifdef_in_statements] = STATE(437),
+    [sym_preproc_else_in_statements] = STATE(8645),
+    [sym_preproc_elif_in_statements] = STATE(8645),
+    [sym_preproc_elifdef_in_statements] = STATE(8645),
+    [sym_internal_procedures] = STATE(5932),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(437),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1944),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1948),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -139872,7 +139185,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -139902,7 +139215,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1950),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -139961,100 +139274,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [432] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7814),
-    [sym_preproc_elif_in_statements] = STATE(7814),
-    [sym_preproc_elifdef_in_statements] = STATE(7814),
-    [sym_internal_procedures] = STATE(5954),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [429] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8071),
+    [sym_preproc_elif_in_specification_part] = STATE(8071),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8071),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5783),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1948),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(972),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140143,100 +139456,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [433] = {
-    [sym_preproc_include] = STATE(301),
-    [sym_preproc_def] = STATE(301),
-    [sym_preproc_function_def] = STATE(301),
-    [sym_preproc_call] = STATE(301),
-    [sym_preproc_if_in_statements] = STATE(301),
-    [sym_preproc_ifdef_in_statements] = STATE(301),
-    [sym_preproc_else_in_statements] = STATE(7814),
-    [sym_preproc_elif_in_statements] = STATE(7814),
-    [sym_preproc_elifdef_in_statements] = STATE(7814),
-    [sym_internal_procedures] = STATE(5954),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [430] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8614),
+    [sym_preproc_elif_in_specification_part] = STATE(8614),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8614),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5791),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(301),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1948),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(980),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140266,7 +139579,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1950),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -140325,90 +139638,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [434] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7815),
-    [sym_preproc_elif_in_statements] = STATE(7815),
-    [sym_preproc_elifdef_in_statements] = STATE(7815),
-    [sym_internal_procedures] = STATE(5955),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [431] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7809),
+    [sym_preproc_elif_in_statements] = STATE(7809),
+    [sym_preproc_elifdef_in_statements] = STATE(7809),
+    [sym_internal_procedures] = STATE(5837),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1952),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -140418,7 +139731,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140507,100 +139820,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [435] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8418),
-    [sym_preproc_elif_in_specification_part] = STATE(8418),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8418),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5966),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [432] = {
+    [sym_preproc_include] = STATE(424),
+    [sym_preproc_def] = STATE(424),
+    [sym_preproc_function_def] = STATE(424),
+    [sym_preproc_call] = STATE(424),
+    [sym_preproc_if_in_statements] = STATE(424),
+    [sym_preproc_ifdef_in_statements] = STATE(424),
+    [sym_preproc_else_in_statements] = STATE(7809),
+    [sym_preproc_elif_in_statements] = STATE(7809),
+    [sym_preproc_elifdef_in_statements] = STATE(7809),
+    [sym_internal_procedures] = STATE(5837),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(424),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(928),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(1952),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140630,7 +139943,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1954),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -140689,90 +140002,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [436] = {
-    [sym_preproc_include] = STATE(439),
-    [sym_preproc_def] = STATE(439),
-    [sym_preproc_function_def] = STATE(439),
-    [sym_preproc_call] = STATE(439),
-    [sym_preproc_if_in_statements] = STATE(439),
-    [sym_preproc_ifdef_in_statements] = STATE(439),
-    [sym_preproc_else_in_statements] = STATE(7840),
-    [sym_preproc_elif_in_statements] = STATE(7840),
-    [sym_preproc_elifdef_in_statements] = STATE(7840),
-    [sym_internal_procedures] = STATE(5964),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [433] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8645),
+    [sym_preproc_elif_in_statements] = STATE(8645),
+    [sym_preproc_elifdef_in_statements] = STATE(8645),
+    [sym_internal_procedures] = STATE(5932),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(439),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1954),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1948),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -140782,7 +140095,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140812,7 +140125,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1956),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -140871,90 +140184,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [437] = {
-    [sym_preproc_include] = STATE(441),
-    [sym_preproc_def] = STATE(441),
-    [sym_preproc_function_def] = STATE(441),
-    [sym_preproc_call] = STATE(441),
-    [sym_preproc_if_in_statements] = STATE(441),
-    [sym_preproc_ifdef_in_statements] = STATE(441),
-    [sym_preproc_else_in_statements] = STATE(7841),
-    [sym_preproc_elif_in_statements] = STATE(7841),
-    [sym_preproc_elifdef_in_statements] = STATE(7841),
-    [sym_internal_procedures] = STATE(5965),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [434] = {
+    [sym_preproc_include] = STATE(427),
+    [sym_preproc_def] = STATE(427),
+    [sym_preproc_function_def] = STATE(427),
+    [sym_preproc_call] = STATE(427),
+    [sym_preproc_if_in_statements] = STATE(427),
+    [sym_preproc_ifdef_in_statements] = STATE(427),
+    [sym_preproc_else_in_statements] = STATE(7808),
+    [sym_preproc_elif_in_statements] = STATE(7808),
+    [sym_preproc_elifdef_in_statements] = STATE(7808),
+    [sym_internal_procedures] = STATE(5844),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(441),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(427),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1958),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1956),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -140964,7 +140277,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -140994,7 +140307,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1960),
+    [anon_sym_SEMI] = ACTIONS(1958),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -141053,90 +140366,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [438] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7841),
-    [sym_preproc_elif_in_statements] = STATE(7841),
-    [sym_preproc_elifdef_in_statements] = STATE(7841),
-    [sym_internal_procedures] = STATE(5965),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [435] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8640),
+    [sym_preproc_elif_in_statements] = STATE(8640),
+    [sym_preproc_elifdef_in_statements] = STATE(8640),
+    [sym_internal_procedures] = STATE(5939),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1958),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1960),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -141146,7 +140459,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -141235,90 +140548,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [439] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7846),
-    [sym_preproc_elif_in_statements] = STATE(7846),
-    [sym_preproc_elifdef_in_statements] = STATE(7846),
-    [sym_internal_procedures] = STATE(5967),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [436] = {
+    [sym_preproc_include] = STATE(438),
+    [sym_preproc_def] = STATE(438),
+    [sym_preproc_function_def] = STATE(438),
+    [sym_preproc_call] = STATE(438),
+    [sym_preproc_if_in_statements] = STATE(438),
+    [sym_preproc_ifdef_in_statements] = STATE(438),
+    [sym_preproc_else_in_statements] = STATE(8640),
+    [sym_preproc_elif_in_statements] = STATE(8640),
+    [sym_preproc_elifdef_in_statements] = STATE(8640),
+    [sym_internal_procedures] = STATE(5939),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(438),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1962),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1960),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -141328,7 +140641,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -141358,7 +140671,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1962),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -141417,90 +140730,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [440] = {
-    [sym_preproc_include] = STATE(442),
-    [sym_preproc_def] = STATE(442),
-    [sym_preproc_function_def] = STATE(442),
-    [sym_preproc_call] = STATE(442),
-    [sym_preproc_if_in_statements] = STATE(442),
-    [sym_preproc_ifdef_in_statements] = STATE(442),
-    [sym_preproc_else_in_statements] = STATE(7846),
-    [sym_preproc_elif_in_statements] = STATE(7846),
-    [sym_preproc_elifdef_in_statements] = STATE(7846),
-    [sym_internal_procedures] = STATE(5967),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [437] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8639),
+    [sym_preproc_elif_in_statements] = STATE(8639),
+    [sym_preproc_elifdef_in_statements] = STATE(8639),
+    [sym_internal_procedures] = STATE(5950),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(442),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1962),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1964),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -141510,7 +140823,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -141540,7 +140853,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1964),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -141599,90 +140912,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [441] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7847),
-    [sym_preproc_elif_in_statements] = STATE(7847),
-    [sym_preproc_elifdef_in_statements] = STATE(7847),
-    [sym_internal_procedures] = STATE(5968),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [438] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8636),
+    [sym_preproc_elif_in_statements] = STATE(8636),
+    [sym_preproc_elifdef_in_statements] = STATE(8636),
+    [sym_internal_procedures] = STATE(5957),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1966),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -141692,7 +141005,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -141781,90 +141094,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [442] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7853),
-    [sym_preproc_elif_in_statements] = STATE(7853),
-    [sym_preproc_elifdef_in_statements] = STATE(7853),
-    [sym_internal_procedures] = STATE(5969),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [439] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7789),
+    [sym_preproc_elif_in_statements] = STATE(7789),
+    [sym_preproc_elifdef_in_statements] = STATE(7789),
+    [sym_internal_procedures] = STATE(5975),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1968),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -141874,7 +141187,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -141963,90 +141276,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [443] = {
-    [sym_preproc_include] = STATE(446),
-    [sym_preproc_def] = STATE(446),
-    [sym_preproc_function_def] = STATE(446),
-    [sym_preproc_call] = STATE(446),
-    [sym_preproc_if_in_statements] = STATE(446),
-    [sym_preproc_ifdef_in_statements] = STATE(446),
-    [sym_preproc_else_in_statements] = STATE(7872),
-    [sym_preproc_elif_in_statements] = STATE(7872),
-    [sym_preproc_elifdef_in_statements] = STATE(7872),
-    [sym_internal_procedures] = STATE(5977),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [440] = {
+    [sym_preproc_include] = STATE(301),
+    [sym_preproc_def] = STATE(301),
+    [sym_preproc_function_def] = STATE(301),
+    [sym_preproc_call] = STATE(301),
+    [sym_preproc_if_in_statements] = STATE(301),
+    [sym_preproc_ifdef_in_statements] = STATE(301),
+    [sym_preproc_else_in_statements] = STATE(8430),
+    [sym_preproc_elif_in_statements] = STATE(8430),
+    [sym_preproc_elifdef_in_statements] = STATE(8430),
+    [sym_internal_procedures] = STATE(5936),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(446),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(301),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1970),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142056,7 +141369,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -142145,90 +141458,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [444] = {
-    [sym_preproc_include] = STATE(448),
-    [sym_preproc_def] = STATE(448),
-    [sym_preproc_function_def] = STATE(448),
-    [sym_preproc_call] = STATE(448),
-    [sym_preproc_if_in_statements] = STATE(448),
-    [sym_preproc_ifdef_in_statements] = STATE(448),
-    [sym_preproc_else_in_statements] = STATE(7873),
-    [sym_preproc_elif_in_statements] = STATE(7873),
-    [sym_preproc_elifdef_in_statements] = STATE(7873),
-    [sym_internal_procedures] = STATE(5978),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [441] = {
+    [sym_preproc_include] = STATE(463),
+    [sym_preproc_def] = STATE(463),
+    [sym_preproc_function_def] = STATE(463),
+    [sym_preproc_call] = STATE(463),
+    [sym_preproc_if_in_statements] = STATE(463),
+    [sym_preproc_ifdef_in_statements] = STATE(463),
+    [sym_preproc_else_in_statements] = STATE(8549),
+    [sym_preproc_elif_in_statements] = STATE(8549),
+    [sym_preproc_elifdef_in_statements] = STATE(8549),
+    [sym_internal_procedures] = STATE(5935),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(448),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(463),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1974),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142238,7 +141551,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -142327,90 +141640,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [445] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7873),
-    [sym_preproc_elif_in_statements] = STATE(7873),
-    [sym_preproc_elifdef_in_statements] = STATE(7873),
-    [sym_internal_procedures] = STATE(5978),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [442] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8549),
+    [sym_preproc_elif_in_statements] = STATE(8549),
+    [sym_preproc_elifdef_in_statements] = STATE(8549),
+    [sym_internal_procedures] = STATE(5935),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1974),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142420,7 +141733,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -142509,90 +141822,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [446] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7878),
-    [sym_preproc_elif_in_statements] = STATE(7878),
-    [sym_preproc_elifdef_in_statements] = STATE(7878),
-    [sym_internal_procedures] = STATE(5983),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [443] = {
+    [sym_preproc_include] = STATE(446),
+    [sym_preproc_def] = STATE(446),
+    [sym_preproc_function_def] = STATE(446),
+    [sym_preproc_call] = STATE(446),
+    [sym_preproc_if_in_statements] = STATE(446),
+    [sym_preproc_ifdef_in_statements] = STATE(446),
+    [sym_preproc_else_in_statements] = STATE(7848),
+    [sym_preproc_elif_in_statements] = STATE(7848),
+    [sym_preproc_elifdef_in_statements] = STATE(7848),
+    [sym_internal_procedures] = STATE(5968),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(446),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1978),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142602,7 +141915,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -142632,7 +141945,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(1980),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -142691,90 +142004,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [447] = {
-    [sym_preproc_include] = STATE(449),
-    [sym_preproc_def] = STATE(449),
-    [sym_preproc_function_def] = STATE(449),
-    [sym_preproc_call] = STATE(449),
-    [sym_preproc_if_in_statements] = STATE(449),
-    [sym_preproc_ifdef_in_statements] = STATE(449),
-    [sym_preproc_else_in_statements] = STATE(7878),
-    [sym_preproc_elif_in_statements] = STATE(7878),
-    [sym_preproc_elifdef_in_statements] = STATE(7878),
-    [sym_internal_procedures] = STATE(5983),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [444] = {
+    [sym_preproc_include] = STATE(448),
+    [sym_preproc_def] = STATE(448),
+    [sym_preproc_function_def] = STATE(448),
+    [sym_preproc_call] = STATE(448),
+    [sym_preproc_if_in_statements] = STATE(448),
+    [sym_preproc_ifdef_in_statements] = STATE(448),
+    [sym_preproc_else_in_statements] = STATE(7844),
+    [sym_preproc_elif_in_statements] = STATE(7844),
+    [sym_preproc_elifdef_in_statements] = STATE(7844),
+    [sym_internal_procedures] = STATE(5955),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(449),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(448),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1978),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1982),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142784,7 +142097,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -142814,7 +142127,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1980),
+    [anon_sym_SEMI] = ACTIONS(1984),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -142873,90 +142186,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [448] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7879),
-    [sym_preproc_elif_in_statements] = STATE(7879),
-    [sym_preproc_elifdef_in_statements] = STATE(7879),
-    [sym_internal_procedures] = STATE(5986),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [445] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7844),
+    [sym_preproc_elif_in_statements] = STATE(7844),
+    [sym_preproc_elifdef_in_statements] = STATE(7844),
+    [sym_internal_procedures] = STATE(5955),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1982),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -142966,7 +142279,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143055,90 +142368,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [449] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7885),
-    [sym_preproc_elif_in_statements] = STATE(7885),
-    [sym_preproc_elifdef_in_statements] = STATE(7885),
-    [sym_internal_procedures] = STATE(5988),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [446] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7824),
+    [sym_preproc_elif_in_statements] = STATE(7824),
+    [sym_preproc_elifdef_in_statements] = STATE(7824),
+    [sym_internal_procedures] = STATE(5946),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1984),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1986),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -143148,7 +142461,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143237,90 +142550,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [450] = {
-    [sym_preproc_include] = STATE(453),
-    [sym_preproc_def] = STATE(453),
-    [sym_preproc_function_def] = STATE(453),
-    [sym_preproc_call] = STATE(453),
-    [sym_preproc_if_in_statements] = STATE(453),
-    [sym_preproc_ifdef_in_statements] = STATE(453),
-    [sym_preproc_else_in_statements] = STATE(7901),
-    [sym_preproc_elif_in_statements] = STATE(7901),
-    [sym_preproc_elifdef_in_statements] = STATE(7901),
-    [sym_internal_procedures] = STATE(5787),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [447] = {
+    [sym_preproc_include] = STATE(449),
+    [sym_preproc_def] = STATE(449),
+    [sym_preproc_function_def] = STATE(449),
+    [sym_preproc_call] = STATE(449),
+    [sym_preproc_if_in_statements] = STATE(449),
+    [sym_preproc_ifdef_in_statements] = STATE(449),
+    [sym_preproc_else_in_statements] = STATE(7824),
+    [sym_preproc_elif_in_statements] = STATE(7824),
+    [sym_preproc_elifdef_in_statements] = STATE(7824),
+    [sym_internal_procedures] = STATE(5946),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(453),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(449),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1986),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -143330,7 +142643,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143419,90 +142732,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [451] = {
-    [sym_preproc_include] = STATE(455),
-    [sym_preproc_def] = STATE(455),
-    [sym_preproc_function_def] = STATE(455),
-    [sym_preproc_call] = STATE(455),
-    [sym_preproc_if_in_statements] = STATE(455),
-    [sym_preproc_ifdef_in_statements] = STATE(455),
-    [sym_preproc_else_in_statements] = STATE(7902),
-    [sym_preproc_elif_in_statements] = STATE(7902),
-    [sym_preproc_elifdef_in_statements] = STATE(7902),
-    [sym_internal_procedures] = STATE(5790),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [448] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7820),
+    [sym_preproc_elif_in_statements] = STATE(7820),
+    [sym_preproc_elifdef_in_statements] = STATE(7820),
+    [sym_internal_procedures] = STATE(5941),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(455),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1990),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -143512,7 +142825,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143542,7 +142855,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1992),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -143601,90 +142914,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [452] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7902),
-    [sym_preproc_elif_in_statements] = STATE(7902),
-    [sym_preproc_elifdef_in_statements] = STATE(7902),
-    [sym_internal_procedures] = STATE(5790),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [449] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7810),
+    [sym_preproc_elif_in_statements] = STATE(7810),
+    [sym_preproc_elifdef_in_statements] = STATE(7810),
+    [sym_internal_procedures] = STATE(5938),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1990),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1992),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -143694,7 +143007,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143783,90 +143096,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [453] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7903),
-    [sym_preproc_elif_in_statements] = STATE(7903),
-    [sym_preproc_elifdef_in_statements] = STATE(7903),
-    [sym_internal_procedures] = STATE(5791),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [450] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7783),
+    [sym_preproc_elif_in_statements] = STATE(7783),
+    [sym_preproc_elifdef_in_statements] = STATE(7783),
+    [sym_internal_procedures] = STATE(5910),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
     [aux_sym_preproc_if_token2] = ACTIONS(1994),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -143876,7 +143189,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -143965,90 +143278,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [454] = {
-    [sym_preproc_include] = STATE(456),
-    [sym_preproc_def] = STATE(456),
-    [sym_preproc_function_def] = STATE(456),
-    [sym_preproc_call] = STATE(456),
-    [sym_preproc_if_in_statements] = STATE(456),
-    [sym_preproc_ifdef_in_statements] = STATE(456),
-    [sym_preproc_else_in_statements] = STATE(7903),
-    [sym_preproc_elif_in_statements] = STATE(7903),
-    [sym_preproc_elifdef_in_statements] = STATE(7903),
-    [sym_internal_procedures] = STATE(5791),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [451] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8578),
+    [sym_preproc_elif_in_statements] = STATE(8578),
+    [sym_preproc_elifdef_in_statements] = STATE(8578),
+    [sym_internal_procedures] = STATE(5897),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(456),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1994),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -144058,7 +143371,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -144088,7 +143401,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1996),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -144147,100 +143460,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [455] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7904),
-    [sym_preproc_elif_in_statements] = STATE(7904),
-    [sym_preproc_elifdef_in_statements] = STATE(7904),
-    [sym_internal_procedures] = STATE(5793),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [452] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8184),
+    [sym_preproc_elif_in_specification_part] = STATE(8184),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8184),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5934),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(1998),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(992),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -144329,90 +143642,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [456] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7905),
-    [sym_preproc_elif_in_statements] = STATE(7905),
-    [sym_preproc_elifdef_in_statements] = STATE(7905),
-    [sym_internal_procedures] = STATE(5794),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [453] = {
+    [sym_preproc_include] = STATE(439),
+    [sym_preproc_def] = STATE(439),
+    [sym_preproc_function_def] = STATE(439),
+    [sym_preproc_call] = STATE(439),
+    [sym_preproc_if_in_statements] = STATE(439),
+    [sym_preproc_ifdef_in_statements] = STATE(439),
+    [sym_preproc_else_in_statements] = STATE(7782),
+    [sym_preproc_elif_in_statements] = STATE(7782),
+    [sym_preproc_elifdef_in_statements] = STATE(7782),
+    [sym_internal_procedures] = STATE(5926),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(439),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1998),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -144422,7 +143735,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -144452,7 +143765,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(2000),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -144511,90 +143824,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [457] = {
-    [sym_preproc_include] = STATE(460),
-    [sym_preproc_def] = STATE(460),
-    [sym_preproc_function_def] = STATE(460),
-    [sym_preproc_call] = STATE(460),
-    [sym_preproc_if_in_statements] = STATE(460),
-    [sym_preproc_ifdef_in_statements] = STATE(460),
-    [sym_preproc_else_in_statements] = STATE(7917),
-    [sym_preproc_elif_in_statements] = STATE(7917),
-    [sym_preproc_elifdef_in_statements] = STATE(7917),
-    [sym_internal_procedures] = STATE(5796),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [454] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7782),
+    [sym_preproc_elif_in_statements] = STATE(7782),
+    [sym_preproc_elifdef_in_statements] = STATE(7782),
+    [sym_internal_procedures] = STATE(5926),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(460),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1998),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -144604,7 +143917,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -144634,7 +143947,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2004),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -144693,90 +144006,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [458] = {
-    [sym_preproc_include] = STATE(462),
-    [sym_preproc_def] = STATE(462),
-    [sym_preproc_function_def] = STATE(462),
-    [sym_preproc_call] = STATE(462),
-    [sym_preproc_if_in_statements] = STATE(462),
-    [sym_preproc_ifdef_in_statements] = STATE(462),
-    [sym_preproc_else_in_statements] = STATE(7918),
-    [sym_preproc_elif_in_statements] = STATE(7918),
-    [sym_preproc_elifdef_in_statements] = STATE(7918),
-    [sym_internal_procedures] = STATE(5797),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [455] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7777),
+    [sym_preproc_elif_in_statements] = STATE(7777),
+    [sym_preproc_elifdef_in_statements] = STATE(7777),
+    [sym_internal_procedures] = STATE(5913),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(462),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2006),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -144786,7 +144099,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -144816,7 +144129,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2008),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -144875,100 +144188,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [459] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7918),
-    [sym_preproc_elif_in_statements] = STATE(7918),
-    [sym_preproc_elifdef_in_statements] = STATE(7918),
-    [sym_internal_procedures] = STATE(5797),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [456] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8193),
+    [sym_preproc_elif_in_specification_part] = STATE(8193),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8193),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5931),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2006),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(2004),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145057,100 +144370,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [460] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7919),
-    [sym_preproc_elif_in_statements] = STATE(7919),
-    [sym_preproc_elifdef_in_statements] = STATE(7919),
-    [sym_internal_procedures] = STATE(5799),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [457] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8356),
+    [sym_preproc_elif_in_specification_part] = STATE(8356),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8356),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5886),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2010),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(964),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145239,90 +144552,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [461] = {
-    [sym_preproc_include] = STATE(463),
-    [sym_preproc_def] = STATE(463),
-    [sym_preproc_function_def] = STATE(463),
-    [sym_preproc_call] = STATE(463),
-    [sym_preproc_if_in_statements] = STATE(463),
-    [sym_preproc_ifdef_in_statements] = STATE(463),
-    [sym_preproc_else_in_statements] = STATE(7919),
-    [sym_preproc_elif_in_statements] = STATE(7919),
-    [sym_preproc_elifdef_in_statements] = STATE(7919),
-    [sym_internal_procedures] = STATE(5799),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [458] = {
+    [sym_preproc_include] = STATE(467),
+    [sym_preproc_def] = STATE(467),
+    [sym_preproc_function_def] = STATE(467),
+    [sym_preproc_call] = STATE(467),
+    [sym_preproc_if_in_statements] = STATE(467),
+    [sym_preproc_ifdef_in_statements] = STATE(467),
+    [sym_preproc_else_in_statements] = STATE(7721),
+    [sym_preproc_elif_in_statements] = STATE(7721),
+    [sym_preproc_elifdef_in_statements] = STATE(7721),
+    [sym_internal_procedures] = STATE(5845),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(463),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(467),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2010),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2006),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -145332,7 +144645,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145362,7 +144675,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2012),
+    [anon_sym_SEMI] = ACTIONS(2008),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -145421,90 +144734,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [462] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7920),
-    [sym_preproc_elif_in_statements] = STATE(7920),
-    [sym_preproc_elifdef_in_statements] = STATE(7920),
-    [sym_internal_procedures] = STATE(5801),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [459] = {
+    [sym_preproc_include] = STATE(469),
+    [sym_preproc_def] = STATE(469),
+    [sym_preproc_function_def] = STATE(469),
+    [sym_preproc_call] = STATE(469),
+    [sym_preproc_if_in_statements] = STATE(469),
+    [sym_preproc_ifdef_in_statements] = STATE(469),
+    [sym_preproc_else_in_statements] = STATE(7718),
+    [sym_preproc_elif_in_statements] = STATE(7718),
+    [sym_preproc_elifdef_in_statements] = STATE(7718),
+    [sym_internal_procedures] = STATE(5895),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(469),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2014),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1692),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -145514,7 +144827,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145544,7 +144857,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(2010),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -145603,100 +144916,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [463] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7921),
-    [sym_preproc_elif_in_statements] = STATE(7921),
-    [sym_preproc_elifdef_in_statements] = STATE(7921),
-    [sym_internal_procedures] = STATE(5802),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [460] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8267),
+    [sym_preproc_elif_in_specification_part] = STATE(8267),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8267),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5858),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2016),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(1566),
-    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [aux_sym_preproc_if_token2] = ACTIONS(976),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145785,100 +145098,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [464] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_else_in_specification_part] = STATE(8654),
-    [sym_preproc_elif_in_specification_part] = STATE(8654),
-    [sym_preproc_elifdef_in_specification_part] = STATE(8654),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_internal_procedures] = STATE(5981),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [461] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8281),
+    [sym_preproc_elif_in_specification_part] = STATE(8281),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8281),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5911),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
-    [aux_sym_preproc_else_token1] = ACTIONS(882),
-    [aux_sym_preproc_elif_token1] = ACTIONS(884),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(886),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(886),
+    [aux_sym_preproc_if_token2] = ACTIONS(2012),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
     [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -145967,90 +145280,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [465] = {
-    [sym_preproc_include] = STATE(468),
-    [sym_preproc_def] = STATE(468),
-    [sym_preproc_function_def] = STATE(468),
-    [sym_preproc_call] = STATE(468),
-    [sym_preproc_if_in_statements] = STATE(468),
-    [sym_preproc_ifdef_in_statements] = STATE(468),
-    [sym_preproc_else_in_statements] = STATE(7933),
-    [sym_preproc_elif_in_statements] = STATE(7933),
-    [sym_preproc_elifdef_in_statements] = STATE(7933),
-    [sym_internal_procedures] = STATE(5806),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [462] = {
+    [sym_preproc_include] = STATE(341),
+    [sym_preproc_def] = STATE(341),
+    [sym_preproc_function_def] = STATE(341),
+    [sym_preproc_call] = STATE(341),
+    [sym_preproc_if_in_statements] = STATE(341),
+    [sym_preproc_ifdef_in_statements] = STATE(341),
+    [sym_preproc_else_in_statements] = STATE(8358),
+    [sym_preproc_elif_in_statements] = STATE(8358),
+    [sym_preproc_elifdef_in_statements] = STATE(8358),
+    [sym_internal_procedures] = STATE(5984),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(468),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(341),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2018),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1694),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146060,7 +145373,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -146090,7 +145403,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2020),
+    [anon_sym_SEMI] = ACTIONS(2014),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -146149,90 +145462,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [466] = {
-    [sym_preproc_include] = STATE(470),
-    [sym_preproc_def] = STATE(470),
-    [sym_preproc_function_def] = STATE(470),
-    [sym_preproc_call] = STATE(470),
-    [sym_preproc_if_in_statements] = STATE(470),
-    [sym_preproc_ifdef_in_statements] = STATE(470),
-    [sym_preproc_else_in_statements] = STATE(7934),
-    [sym_preproc_elif_in_statements] = STATE(7934),
-    [sym_preproc_elifdef_in_statements] = STATE(7934),
-    [sym_internal_procedures] = STATE(5807),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [463] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(8589),
+    [sym_preproc_elif_in_statements] = STATE(8589),
+    [sym_preproc_elifdef_in_statements] = STATE(8589),
+    [sym_internal_procedures] = STATE(5912),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(470),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2022),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2016),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146242,7 +145555,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -146272,7 +145585,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2024),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -146331,90 +145644,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [467] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7934),
-    [sym_preproc_elif_in_statements] = STATE(7934),
-    [sym_preproc_elifdef_in_statements] = STATE(7934),
-    [sym_internal_procedures] = STATE(5807),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [464] = {
+    [sym_preproc_include] = STATE(451),
+    [sym_preproc_def] = STATE(451),
+    [sym_preproc_function_def] = STATE(451),
+    [sym_preproc_call] = STATE(451),
+    [sym_preproc_if_in_statements] = STATE(451),
+    [sym_preproc_ifdef_in_statements] = STATE(451),
+    [sym_preproc_else_in_statements] = STATE(8613),
+    [sym_preproc_elif_in_statements] = STATE(8613),
+    [sym_preproc_elifdef_in_statements] = STATE(8613),
+    [sym_internal_procedures] = STATE(5914),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(451),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2022),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(1690),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146424,7 +145737,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -146454,7 +145767,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(2018),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -146513,90 +145826,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [468] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7935),
-    [sym_preproc_elif_in_statements] = STATE(7935),
-    [sym_preproc_elifdef_in_statements] = STATE(7935),
-    [sym_internal_procedures] = STATE(5808),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [465] = {
+    [sym_preproc_include] = STATE(450),
+    [sym_preproc_def] = STATE(450),
+    [sym_preproc_function_def] = STATE(450),
+    [sym_preproc_call] = STATE(450),
+    [sym_preproc_if_in_statements] = STATE(450),
+    [sym_preproc_ifdef_in_statements] = STATE(450),
+    [sym_preproc_else_in_statements] = STATE(7777),
+    [sym_preproc_elif_in_statements] = STATE(7777),
+    [sym_preproc_elifdef_in_statements] = STATE(7777),
+    [sym_internal_procedures] = STATE(5913),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(450),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146606,7 +145919,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -146636,7 +145949,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(1420),
+    [anon_sym_SEMI] = ACTIONS(2020),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -146695,90 +146008,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [469] = {
-    [sym_preproc_include] = STATE(302),
-    [sym_preproc_def] = STATE(302),
-    [sym_preproc_function_def] = STATE(302),
-    [sym_preproc_call] = STATE(302),
-    [sym_preproc_if_in_statements] = STATE(302),
-    [sym_preproc_ifdef_in_statements] = STATE(302),
-    [sym_preproc_else_in_statements] = STATE(7935),
-    [sym_preproc_elif_in_statements] = STATE(7935),
-    [sym_preproc_elifdef_in_statements] = STATE(7935),
-    [sym_internal_procedures] = STATE(5808),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [466] = {
+    [sym_preproc_include] = STATE(454),
+    [sym_preproc_def] = STATE(454),
+    [sym_preproc_function_def] = STATE(454),
+    [sym_preproc_call] = STATE(454),
+    [sym_preproc_if_in_statements] = STATE(454),
+    [sym_preproc_ifdef_in_statements] = STATE(454),
+    [sym_preproc_else_in_statements] = STATE(7776),
+    [sym_preproc_elif_in_statements] = STATE(7776),
+    [sym_preproc_elifdef_in_statements] = STATE(7776),
+    [sym_internal_procedures] = STATE(5812),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(302),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(454),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2022),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146788,7 +146101,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -146818,7 +146131,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2028),
+    [anon_sym_SEMI] = ACTIONS(2024),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -146877,90 +146190,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [470] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7936),
-    [sym_preproc_elif_in_statements] = STATE(7936),
-    [sym_preproc_elifdef_in_statements] = STATE(7936),
-    [sym_internal_procedures] = STATE(5810),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [467] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7708),
+    [sym_preproc_elif_in_statements] = STATE(7708),
+    [sym_preproc_elifdef_in_statements] = STATE(7708),
+    [sym_internal_procedures] = STATE(5896),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2030),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2026),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -146970,7 +146283,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -147059,90 +146372,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [471] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym_preproc_else_in_statements] = STATE(7764),
-    [sym_preproc_elif_in_statements] = STATE(7764),
-    [sym_preproc_elifdef_in_statements] = STATE(7764),
-    [sym_internal_procedures] = STATE(5914),
-    [sym_contains_statement] = STATE(7152),
-    [sym__statements] = STATE(6778),
+  [468] = {
+    [sym_preproc_include] = STATE(470),
+    [sym_preproc_def] = STATE(470),
+    [sym_preproc_function_def] = STATE(470),
+    [sym_preproc_call] = STATE(470),
+    [sym_preproc_if_in_statements] = STATE(470),
+    [sym_preproc_ifdef_in_statements] = STATE(470),
+    [sym_preproc_else_in_statements] = STATE(7708),
+    [sym_preproc_elif_in_statements] = STATE(7708),
+    [sym_preproc_elifdef_in_statements] = STATE(7708),
+    [sym_internal_procedures] = STATE(5896),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
     [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(470),
     [aux_sym_preproc_include_token1] = ACTIONS(1410),
     [aux_sym_preproc_def_token1] = ACTIONS(1412),
     [aux_sym_preproc_if_token1] = ACTIONS(752),
-    [aux_sym_preproc_if_token2] = ACTIONS(2032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(754),
+    [aux_sym_preproc_if_token2] = ACTIONS(2026),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [sym_preproc_directive] = ACTIONS(1414),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2028),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [469] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7709),
+    [sym_preproc_elif_in_statements] = STATE(7709),
+    [sym_preproc_elifdef_in_statements] = STATE(7709),
+    [sym_internal_procedures] = STATE(5899),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(2030),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
     [aux_sym_preproc_else_token1] = ACTIONS(1566),
     [aux_sym_preproc_elif_token1] = ACTIONS(1568),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
@@ -147152,7 +146647,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -147241,99 +146736,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [472] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(887),
-    [sym_internal_procedures] = STATE(6952),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+  [470] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_preproc_else_in_statements] = STATE(7715),
+    [sym_preproc_elif_in_statements] = STATE(7715),
+    [sym_preproc_elifdef_in_statements] = STATE(7715),
+    [sym_internal_procedures] = STATE(5905),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(2032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(1566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(1568),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(1570),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(1570),
+    [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -147360,7 +146859,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -147419,98 +146918,102 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [473] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(976),
-    [sym_internal_procedures] = STATE(6924),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [471] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_else_in_specification_part] = STATE(8368),
+    [sym_preproc_elif_in_specification_part] = STATE(8368),
+    [sym_preproc_elifdef_in_specification_part] = STATE(8368),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym_internal_procedures] = STATE(5876),
+    [sym_contains_statement] = STATE(6727),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(1410),
+    [aux_sym_preproc_def_token1] = ACTIONS(1412),
+    [aux_sym_preproc_if_token1] = ACTIONS(752),
+    [aux_sym_preproc_if_token2] = ACTIONS(940),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(756),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(756),
+    [aux_sym_preproc_else_token1] = ACTIONS(884),
+    [aux_sym_preproc_elif_token1] = ACTIONS(886),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(888),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(888),
+    [sym_preproc_directive] = ACTIONS(1414),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1120),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -147538,7 +147041,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(1420),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -147597,99 +147100,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [474] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(885),
-    [sym_internal_procedures] = STATE(6931),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [472] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4942),
+    [sym_internal_procedures] = STATE(6901),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1182),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1184),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -147716,7 +147219,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -147775,84 +147278,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [475] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5138),
-    [sym_internal_procedures] = STATE(7206),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [473] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5025),
+    [sym_internal_procedures] = STATE(7262),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -147863,11 +147366,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1130),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1198),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1132),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1200),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -147953,99 +147456,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [476] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(890),
-    [sym_internal_procedures] = STATE(7016),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [474] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5217),
+    [sym_internal_procedures] = STATE(6761),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1108),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -148072,7 +147575,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -148131,99 +147634,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [477] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5118),
-    [sym_internal_procedures] = STATE(6466),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+  [475] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5228),
+    [sym_internal_procedures] = STATE(7075),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1062),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1152),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1064),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1154),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -148250,7 +147753,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -148309,99 +147812,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [478] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(892),
-    [sym_internal_procedures] = STATE(7020),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+  [476] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5089),
+    [sym_internal_procedures] = STATE(6859),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1172),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1174),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -148428,7 +147931,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2056),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -148487,84 +147990,262 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [479] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(981),
-    [sym_internal_procedures] = STATE(6938),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [477] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5225),
+    [sym_internal_procedures] = STATE(7079),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1054),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2068),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [478] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5209),
+    [sym_internal_procedures] = STATE(7082),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -148575,11 +148256,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1034),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1152),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1036),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1154),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -148665,98 +148346,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [480] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5159),
-    [sym_internal_procedures] = STATE(6476),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+  [479] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5120),
+    [sym_internal_procedures] = STATE(6687),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1062),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1088),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1064),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1090),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -148784,7 +148465,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2056),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -148843,98 +148524,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [481] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(1001),
-    [sym_internal_procedures] = STATE(6495),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+  [480] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5207),
+    [sym_internal_procedures] = STATE(7089),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1054),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1108),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1056),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -148962,7 +148643,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -149021,84 +148702,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [482] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(1003),
-    [sym_internal_procedures] = STATE(6500),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [481] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4845),
+    [sym_internal_procedures] = STATE(7166),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -149199,98 +148880,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [483] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(1013),
-    [sym_internal_procedures] = STATE(6503),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+  [482] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4849),
+    [sym_internal_procedures] = STATE(7168),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1132),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1108),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1134),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -149318,7 +148999,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -149377,84 +149058,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [484] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(1016),
-    [sym_internal_procedures] = STATE(6505),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [483] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4854),
+    [sym_internal_procedures] = STATE(7178),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -149555,84 +149236,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [485] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4569),
-    [sym_internal_procedures] = STATE(6561),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+  [484] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4862),
+    [sym_internal_procedures] = STATE(7192),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -149643,10 +149324,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1132),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1148),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1134),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -149733,84 +149414,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [486] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4503),
-    [sym_internal_procedures] = STATE(6567),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+  [485] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5037),
+    [sym_internal_procedures] = STATE(6630),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -149821,10 +149502,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1214),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1148),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1216),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -149911,99 +149592,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [487] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4993),
-    [sym_internal_procedures] = STATE(6577),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [486] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5045),
+    [sym_internal_procedures] = STATE(6624),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1156),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1266),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1158),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1268),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -150030,7 +149711,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -150089,99 +149770,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [488] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4995),
-    [sym_internal_procedures] = STATE(6579),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+  [487] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5050),
+    [sym_internal_procedures] = STATE(6616),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1162),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1214),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1216),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1164),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -150208,7 +149889,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -150267,99 +149948,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [489] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5016),
-    [sym_internal_procedures] = STATE(6581),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [488] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5059),
+    [sym_internal_procedures] = STATE(6613),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1156),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1266),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1158),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1268),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -150386,7 +150067,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -150445,99 +150126,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [490] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5021),
-    [sym_internal_procedures] = STATE(6583),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+  [489] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4935),
+    [sym_internal_procedures] = STATE(6759),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1162),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1102),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1164),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -150564,7 +150245,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -150623,99 +150304,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [491] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5151),
-    [sym_internal_procedures] = STATE(6624),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+  [490] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5185),
+    [sym_internal_procedures] = STATE(6756),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1106),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1182),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1108),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -150742,7 +150423,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -150801,84 +150482,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [492] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5199),
-    [sym_internal_procedures] = STATE(6629),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+  [491] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(980),
+    [sym_internal_procedures] = STATE(6906),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -150889,10 +150570,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1094),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1182),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1096),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -150979,98 +150660,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [493] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5135),
-    [sym_internal_procedures] = STATE(6642),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+  [492] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5182),
+    [sym_internal_procedures] = STATE(6751),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1186),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1188),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1102),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -151098,7 +150779,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -151157,84 +150838,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [494] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5137),
-    [sym_internal_procedures] = STATE(6645),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [493] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(5044),
+    [sym_internal_procedures] = STATE(7252),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -151245,11 +150926,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1198),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1194),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1200),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -151335,84 +151016,262 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [495] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5141),
-    [sym_internal_procedures] = STATE(6648),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+  [494] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(1091),
+    [sym_internal_procedures] = STATE(7191),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1094),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2068),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [495] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5010),
+    [sym_internal_procedures] = STATE(6730),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -151423,10 +151282,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1186),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1166),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1188),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1168),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -151514,83 +151373,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [496] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5144),
-    [sym_internal_procedures] = STATE(6650),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(1077),
+    [sym_internal_procedures] = STATE(7179),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -151601,11 +151460,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1082),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1194),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1084),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -151692,97 +151551,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [497] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5063),
-    [sym_internal_procedures] = STATE(6689),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4520),
+    [sym_internal_procedures] = STATE(6729),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1202),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1070),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1204),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1072),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -151810,7 +151669,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2056),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -151870,97 +151729,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [498] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5076),
-    [sym_internal_procedures] = STATE(6693),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4581),
+    [sym_internal_procedures] = STATE(6715),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1202),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1070),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1204),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1072),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -151988,7 +151847,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2056),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -152048,98 +151907,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [499] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4756),
-    [sym_internal_procedures] = STATE(6703),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4586),
+    [sym_internal_procedures] = STATE(6513),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1210),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1212),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1120),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -152166,7 +152025,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -152226,98 +152085,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [500] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4758),
-    [sym_internal_procedures] = STATE(6706),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5041),
+    [sym_internal_procedures] = STATE(7256),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1216),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1204),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1206),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1218),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -152344,7 +152203,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -152404,97 +152263,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [501] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4762),
-    [sym_internal_procedures] = STATE(6708),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4578),
+    [sym_internal_procedures] = STATE(6511),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1210),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1212),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -152522,7 +152381,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -152582,98 +152441,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [502] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4765),
-    [sym_internal_procedures] = STATE(6710),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5019),
+    [sym_internal_procedures] = STATE(6899),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1216),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1044),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1046),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1218),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -152700,7 +152559,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -152760,83 +152619,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [503] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5075),
-    [sym_internal_procedures] = STATE(6863),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5023),
+    [sym_internal_procedures] = STATE(7279),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -152847,10 +152706,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1052),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1204),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1054),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1206),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -152938,98 +152797,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [504] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4904),
-    [sym_internal_procedures] = STATE(6752),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4996),
+    [sym_internal_procedures] = STATE(6896),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1226),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1182),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1228),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1184),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -153056,7 +152915,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -153116,98 +152975,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [505] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4911),
-    [sym_internal_procedures] = STATE(6756),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4955),
+    [sym_internal_procedures] = STATE(7270),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1226),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1126),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1228),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1128),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -153234,7 +153093,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -153294,97 +153153,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [506] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4548),
-    [sym_internal_procedures] = STATE(6766),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4952),
+    [sym_internal_procedures] = STATE(7268),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1234),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1242),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1236),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1244),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -153412,7 +153271,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -153472,98 +153331,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [507] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4559),
-    [sym_internal_procedures] = STATE(6769),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5047),
+    [sym_internal_procedures] = STATE(6891),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1240),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1044),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1046),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1242),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -153590,7 +153449,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -153650,83 +153509,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [508] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(1045),
-    [sym_internal_procedures] = STATE(6636),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4603),
+    [sym_internal_procedures] = STATE(6506),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -153737,11 +153596,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1034),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1036),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1120),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -153828,83 +153687,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [509] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4500),
-    [sym_internal_procedures] = STATE(6773),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4938),
+    [sym_internal_procedures] = STATE(7265),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -153915,11 +153774,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1240),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1126),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1242),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1128),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -154006,83 +153865,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [510] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5229),
-    [sym_internal_procedures] = STATE(6811),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(5029),
+    [sym_internal_procedures] = STATE(7260),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -154093,10 +153952,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1250),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1242),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1252),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1244),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -154184,83 +154043,261 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [511] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5046),
-    [sym_internal_procedures] = STATE(6814),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5108),
+    [sym_internal_procedures] = STATE(6870),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1172),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1174),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2056),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [512] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4602),
+    [sym_internal_procedures] = STATE(6504),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -154271,10 +154308,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1250),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1252),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -154361,84 +154398,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [512] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5065),
-    [sym_internal_procedures] = STATE(6824),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+  [513] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5078),
+    [sym_internal_procedures] = STATE(7239),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -154449,10 +154486,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1258),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1158),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1260),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1160),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -154539,84 +154576,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [513] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5079),
-    [sym_internal_procedures] = STATE(6828),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [514] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(889),
+    [sym_internal_procedures] = STATE(6690),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -154627,11 +154664,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1264),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1304),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1266),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1306),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -154717,84 +154754,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [514] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5166),
-    [sym_internal_procedures] = STATE(6830),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+  [515] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5018),
+    [sym_internal_procedures] = STATE(7229),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -154805,10 +154842,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1258),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1158),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1260),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1160),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -154895,262 +154932,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [515] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5191),
-    [sym_internal_procedures] = STATE(6832),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1264),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1266),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
   [516] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5161),
-    [sym_internal_procedures] = STATE(6873),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5150),
+    [sym_internal_procedures] = STATE(6596),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -155161,10 +155020,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1166),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1168),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -155252,98 +155111,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [517] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5169),
-    [sym_internal_procedures] = STATE(6878),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(893),
+    [sym_internal_procedures] = STATE(6680),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1280),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1298),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1300),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1282),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -155370,7 +155229,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -155430,98 +155289,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [518] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5174),
-    [sym_internal_procedures] = STATE(6881),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(897),
+    [sym_internal_procedures] = STATE(6653),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1304),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1306),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -155548,7 +155407,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -155608,83 +155467,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [519] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5182),
-    [sym_internal_procedures] = STATE(6883),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4605),
+    [sym_internal_procedures] = STATE(7149),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -155695,11 +155554,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1280),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1282),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -155786,83 +155645,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [520] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4791),
-    [sym_internal_procedures] = STATE(6923),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5231),
+    [sym_internal_procedures] = STATE(6986),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -155873,10 +155732,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1194),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -155964,98 +155823,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [521] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4793),
-    [sym_internal_procedures] = STATE(6926),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(874),
+    [sym_internal_procedures] = STATE(6646),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1296),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1298),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1300),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1298),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -156082,7 +155941,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -156142,97 +156001,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [522] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4797),
-    [sym_internal_procedures] = STATE(6928),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4570),
+    [sym_internal_procedures] = STATE(7147),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1290),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1292),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -156260,7 +156119,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -156320,83 +156179,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [523] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4800),
-    [sym_internal_procedures] = STATE(6930),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4539),
+    [sym_internal_procedures] = STATE(7144),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -156407,11 +156266,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1296),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1024),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1298),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1026),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -156498,261 +156357,261 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [524] = {
-    [sym_preproc_include] = STATE(524),
-    [sym_preproc_def] = STATE(524),
-    [sym_preproc_function_def] = STATE(524),
-    [sym_preproc_call] = STATE(524),
-    [sym_preproc_if_in_statements] = STATE(524),
-    [sym_preproc_ifdef_in_statements] = STATE(524),
-    [sym__statements] = STATE(6806),
-    [sym_statement_label] = STATE(796),
-    [sym_stop_statement] = STATE(6806),
-    [sym_assignment_statement] = STATE(6806),
-    [sym_pointer_association_statement] = STATE(6806),
-    [sym_subroutine_call] = STATE(6806),
-    [sym_keyword_statement] = STATE(6806),
-    [sym_include_statement] = STATE(6806),
-    [sym_do_loop_statement] = STATE(6806),
-    [sym_do_label_statement] = STATE(6806),
-    [sym_end_do_label_statement] = STATE(6806),
-    [sym_if_statement] = STATE(6806),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6806),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6806),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6806),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6806),
-    [sym_select_type_statement] = STATE(6806),
-    [sym_select_rank_statement] = STATE(6806),
-    [sym_block_construct] = STATE(6806),
-    [sym_associate_statement] = STATE(6806),
-    [sym_format_statement] = STATE(6806),
-    [sym_read_statement] = STATE(6806),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6806),
-    [sym_open_statement] = STATE(6806),
-    [sym_close_statement] = STATE(6806),
-    [sym_write_statement] = STATE(6806),
-    [sym_inquire_statement] = STATE(6806),
-    [sym_file_position_statement] = STATE(6806),
-    [sym_allocate_statement] = STATE(6806),
-    [sym_entry_statement] = STATE(6806),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6806),
-    [sym_coarray_team_statement] = STATE(6806),
-    [sym_coarray_critical_statement] = STATE(6806),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(524),
-    [aux_sym_preproc_include_token1] = ACTIONS(2070),
-    [aux_sym_preproc_def_token1] = ACTIONS(2073),
-    [aux_sym_preproc_if_token1] = ACTIONS(2076),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2081),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2081),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2084),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4529),
+    [sym_internal_procedures] = STATE(7139),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(2111),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1274),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1276),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2068),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
   [525] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4577),
-    [sym_internal_procedures] = STATE(7052),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4885),
+    [sym_internal_procedures] = STATE(7118),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -156763,10 +156622,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1086),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1252),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1088),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1254),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -156854,83 +156713,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [526] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5071),
-    [sym_internal_procedures] = STATE(6971),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5085),
+    [sym_internal_procedures] = STATE(6712),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -156941,10 +156800,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1306),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1088),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1308),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1090),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -157032,98 +156891,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [527] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5084),
-    [sym_internal_procedures] = STATE(6973),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4946),
+    [sym_internal_procedures] = STATE(6509),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2046),
+    [aux_sym_preproc_def_token1] = ACTIONS(2048),
+    [aux_sym_preproc_if_token1] = ACTIONS(2050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
+    [sym_preproc_directive] = ACTIONS(2054),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1312),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1224),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1226),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1314),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -157150,7 +157009,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2056),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -157210,83 +157069,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [528] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5192),
-    [sym_internal_procedures] = STATE(6975),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4822),
+    [sym_internal_procedures] = STATE(7108),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -157297,10 +157156,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1306),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1252),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1308),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1254),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -157388,83 +157247,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [529] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(5196),
-    [sym_internal_procedures] = STATE(6977),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(1003),
+    [sym_internal_procedures] = STATE(6897),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -157475,11 +157334,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1312),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1082),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1314),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1084),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -157566,83 +157425,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [530] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4579),
-    [sym_internal_procedures] = STATE(7063),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4735),
+    [sym_internal_procedures] = STATE(7027),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
     [aux_sym_preproc_include_token1] = ACTIONS(2034),
     [aux_sym_preproc_def_token1] = ACTIONS(2036),
     [aux_sym_preproc_if_token1] = ACTIONS(2038),
@@ -157653,11 +157512,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1236),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1102),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1238),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -157744,83 +157603,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [531] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4583),
-    [sym_internal_procedures] = STATE(7218),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(4969),
+    [sym_internal_procedures] = STATE(6537),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -157831,10 +157690,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1086),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1224),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1088),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1226),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -157922,98 +157781,276 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [532] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4586),
-    [sym_internal_procedures] = STATE(7241),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+    [sym_preproc_include] = STATE(532),
+    [sym_preproc_def] = STATE(532),
+    [sym_preproc_function_def] = STATE(532),
+    [sym_preproc_call] = STATE(532),
+    [sym_preproc_if_in_statements] = STATE(532),
+    [sym_preproc_ifdef_in_statements] = STATE(532),
+    [sym__statements] = STATE(7016),
+    [sym_statement_label] = STATE(807),
+    [sym_stop_statement] = STATE(7016),
+    [sym_assignment_statement] = STATE(7016),
+    [sym_pointer_association_statement] = STATE(7016),
+    [sym_subroutine_call] = STATE(7016),
+    [sym_keyword_statement] = STATE(7016),
+    [sym_include_statement] = STATE(7016),
+    [sym_do_loop_statement] = STATE(7016),
+    [sym_do_label_statement] = STATE(7016),
+    [sym_end_do_label_statement] = STATE(7016),
+    [sym_if_statement] = STATE(7016),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7016),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7016),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7016),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7016),
+    [sym_select_type_statement] = STATE(7016),
+    [sym_select_rank_statement] = STATE(7016),
+    [sym_block_construct] = STATE(7016),
+    [sym_associate_statement] = STATE(7016),
+    [sym_format_statement] = STATE(7016),
+    [sym_read_statement] = STATE(7016),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7016),
+    [sym_open_statement] = STATE(7016),
+    [sym_close_statement] = STATE(7016),
+    [sym_write_statement] = STATE(7016),
+    [sym_inquire_statement] = STATE(7016),
+    [sym_file_position_statement] = STATE(7016),
+    [sym_allocate_statement] = STATE(7016),
+    [sym_entry_statement] = STATE(7016),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7016),
+    [sym_coarray_team_statement] = STATE(7016),
+    [sym_coarray_critical_statement] = STATE(7016),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(532),
+    [aux_sym_preproc_include_token1] = ACTIONS(2070),
+    [aux_sym_preproc_def_token1] = ACTIONS(2073),
+    [aux_sym_preproc_if_token1] = ACTIONS(2076),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2081),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2081),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2084),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(2111),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [533] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4732),
+    [sym_internal_procedures] = STATE(7025),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1230),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1232),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1102),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -158040,7 +158077,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -158099,99 +158136,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [533] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4962),
-    [sym_internal_procedures] = STATE(7108),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+  [534] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(4715),
+    [sym_internal_procedures] = STATE(7022),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1236),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1070),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1238),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -158218,7 +158255,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -158277,84 +158314,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [534] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(4986),
-    [sym_internal_procedures] = STATE(7132),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
+  [535] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(4713),
+    [sym_internal_procedures] = STATE(7017),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(2058),
     [aux_sym_preproc_def_token1] = ACTIONS(2060),
     [aux_sym_preproc_if_token1] = ACTIONS(2062),
@@ -158365,10 +158402,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1230),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1070),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1232),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -158455,84 +158492,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [535] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(1042),
-    [sym_internal_procedures] = STATE(6611),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
+  [536] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym_end_module_procedure_statement] = STATE(5165),
+    [sym_internal_procedures] = STATE(6996),
+    [sym_contains_statement] = STATE(7155),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
     [aux_sym_preproc_include_token1] = ACTIONS(2046),
     [aux_sym_preproc_def_token1] = ACTIONS(2048),
     [aux_sym_preproc_if_token1] = ACTIONS(2050),
@@ -158543,10 +158580,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1118),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1192),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1120),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1194),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -158633,99 +158670,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [536] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym_end_module_procedure_statement] = STATE(5107),
-    [sym_internal_procedures] = STATE(7079),
-    [sym_contains_statement] = STATE(6776),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2058),
-    [aux_sym_preproc_def_token1] = ACTIONS(2060),
-    [aux_sym_preproc_if_token1] = ACTIONS(2062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
-    [sym_preproc_directive] = ACTIONS(2066),
+  [537] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(1082),
+    [sym_internal_procedures] = STATE(6585),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1052),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(1054),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1148),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -158752,7 +158789,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2068),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -158811,98 +158848,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [537] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5052),
-    [sym_internal_procedures] = STATE(7193),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
+  [538] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(1018),
+    [sym_internal_procedures] = STATE(6575),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
     [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1126),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
@@ -158930,7 +158967,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -158989,99 +159026,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [538] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym_end_function_statement] = STATE(4970),
-    [sym_internal_procedures] = STATE(7200),
-    [sym_contains_statement] = STATE(6653),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
-    [aux_sym_preproc_include_token1] = ACTIONS(2034),
-    [aux_sym_preproc_def_token1] = ACTIONS(2036),
-    [aux_sym_preproc_if_token1] = ACTIONS(2038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
-    [sym_preproc_directive] = ACTIONS(2042),
+  [539] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym_end_subroutine_statement] = STATE(1073),
+    [sym_internal_procedures] = STATE(6583),
+    [sym_contains_statement] = STATE(6767),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
+    [aux_sym_preproc_include_token1] = ACTIONS(2058),
+    [aux_sym_preproc_def_token1] = ACTIONS(2060),
+    [aux_sym_preproc_if_token1] = ACTIONS(2062),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2064),
+    [sym_preproc_directive] = ACTIONS(2066),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1130),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1140),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1142),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_end_function_statement_token1] = ACTIONS(1132),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -159108,7 +159145,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2044),
+    [anon_sym_SEMI] = ACTIONS(2068),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -159167,99 +159204,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [539] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(5126),
-    [sym_internal_procedures] = STATE(7204),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [540] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym_end_function_statement] = STATE(1027),
+    [sym_internal_procedures] = STATE(6580),
+    [sym_contains_statement] = STATE(6907),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(2034),
+    [aux_sym_preproc_def_token1] = ACTIONS(2036),
+    [aux_sym_preproc_if_token1] = ACTIONS(2038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2040),
+    [sym_preproc_directive] = ACTIONS(2042),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1146),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1126),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_end_function_statement_token1] = ACTIONS(1148),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
@@ -159286,7 +159323,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2044),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -159345,101 +159382,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [540] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym_end_subroutine_statement] = STATE(4588),
-    [sym_internal_procedures] = STATE(6771),
-    [sym_contains_statement] = STATE(6585),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(2046),
-    [aux_sym_preproc_def_token1] = ACTIONS(2048),
-    [aux_sym_preproc_if_token1] = ACTIONS(2050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2052),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2052),
-    [sym_preproc_directive] = ACTIONS(2054),
+  [541] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2246),
+    [aux_sym_preproc_def_token1] = ACTIONS(2249),
+    [aux_sym_preproc_if_token1] = ACTIONS(2252),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2255),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2255),
+    [sym_preproc_directive] = ACTIONS(2258),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1234),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2261),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(1236),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2264),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -159452,6 +159483,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2264),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -159464,7 +159496,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2056),
+    [anon_sym_SEMI] = ACTIONS(2266),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -159486,6 +159518,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2264),
+    [aux_sym_type_statement_token2] = ACTIONS(2264),
+    [aux_sym_type_statement_token3] = ACTIONS(2264),
+    [aux_sym__class_default_token1] = ACTIONS(2264),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -159517,101 +159553,280 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(2268),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [541] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [542] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2246),
-    [aux_sym_preproc_def_token1] = ACTIONS(2249),
-    [aux_sym_preproc_if_token1] = ACTIONS(2252),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2255),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2255),
-    [sym_preproc_directive] = ACTIONS(2258),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2271),
+    [aux_sym_preproc_def_token1] = ACTIONS(2274),
+    [aux_sym_preproc_if_token1] = ACTIONS(2277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2280),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2280),
+    [sym_preproc_directive] = ACTIONS(2283),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym_derived_type_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(2286),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_type_statement_token2] = ACTIONS(2079),
+    [aux_sym_type_statement_token3] = ACTIONS(2079),
+    [aux_sym__class_default_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [543] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_end_where_statement] = STATE(7659),
+    [sym_elsewhere_clause] = STATE(6019),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym__block_where_statement_repeat1] = STATE(6019),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2261),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2299),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2264),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -159624,7 +159839,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2264),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -159637,7 +159851,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2266),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -159652,17 +159866,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2303),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2305),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2307),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2264),
-    [aux_sym_type_statement_token2] = ACTIONS(2264),
-    [aux_sym_type_statement_token3] = ACTIONS(2264),
-    [aux_sym__class_default_token1] = ACTIONS(2264),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -159694,101 +159907,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2268),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [542] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [544] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2271),
-    [aux_sym_preproc_def_token1] = ACTIONS(2274),
-    [aux_sym_preproc_if_token1] = ACTIONS(2277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2280),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2280),
-    [sym_preproc_directive] = ACTIONS(2283),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2309),
+    [aux_sym_preproc_def_token1] = ACTIONS(2312),
+    [aux_sym_preproc_if_token1] = ACTIONS(2315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2318),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2318),
+    [sym_preproc_directive] = ACTIONS(2321),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2286),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2324),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2289),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2327),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -159801,7 +160014,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2289),
+    [aux_sym_derived_type_token1] = ACTIONS(2327),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -159836,10 +160049,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2289),
-    [aux_sym_type_statement_token2] = ACTIONS(2289),
-    [aux_sym_type_statement_token3] = ACTIONS(2289),
-    [aux_sym__class_default_token1] = ACTIONS(2289),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2327),
+    [aux_sym_type_statement_token2] = ACTIONS(2327),
+    [aux_sym_type_statement_token3] = ACTIONS(2327),
+    [aux_sym__class_default_token1] = ACTIONS(2327),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -159871,101 +160084,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2291),
+    [sym__integer_literal] = ACTIONS(2329),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [543] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2294),
-    [aux_sym_preproc_def_token1] = ACTIONS(2297),
-    [aux_sym_preproc_if_token1] = ACTIONS(2300),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2303),
-    [sym_preproc_directive] = ACTIONS(2306),
+  [545] = {
+    [sym_preproc_include] = STATE(649),
+    [sym_preproc_def] = STATE(649),
+    [sym_preproc_function_def] = STATE(649),
+    [sym_preproc_call] = STATE(649),
+    [sym_preproc_if_in_statements] = STATE(649),
+    [sym_preproc_ifdef_in_statements] = STATE(649),
+    [sym_end_program_statement] = STATE(1034),
+    [sym_internal_procedures] = STATE(6434),
+    [sym_contains_statement] = STATE(7033),
+    [sym__statements] = STATE(7036),
+    [sym_statement_label] = STATE(809),
+    [sym_stop_statement] = STATE(7036),
+    [sym_assignment_statement] = STATE(7036),
+    [sym_pointer_association_statement] = STATE(7036),
+    [sym_subroutine_call] = STATE(7036),
+    [sym_keyword_statement] = STATE(7036),
+    [sym_include_statement] = STATE(7036),
+    [sym_do_loop_statement] = STATE(7036),
+    [sym_do_label_statement] = STATE(7036),
+    [sym_end_do_label_statement] = STATE(7036),
+    [sym_if_statement] = STATE(7036),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7036),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7036),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7036),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7036),
+    [sym_select_type_statement] = STATE(7036),
+    [sym_select_rank_statement] = STATE(7036),
+    [sym_block_construct] = STATE(7036),
+    [sym_associate_statement] = STATE(7036),
+    [sym_format_statement] = STATE(7036),
+    [sym_read_statement] = STATE(7036),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7036),
+    [sym_open_statement] = STATE(7036),
+    [sym_close_statement] = STATE(7036),
+    [sym_write_statement] = STATE(7036),
+    [sym_inquire_statement] = STATE(7036),
+    [sym_file_position_statement] = STATE(7036),
+    [sym_allocate_statement] = STATE(7036),
+    [sym_entry_statement] = STATE(7036),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7036),
+    [sym_coarray_team_statement] = STATE(7036),
+    [sym_coarray_critical_statement] = STATE(7036),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(649),
+    [aux_sym_preproc_include_token1] = ACTIONS(2332),
+    [aux_sym_preproc_def_token1] = ACTIONS(2334),
+    [aux_sym_preproc_if_token1] = ACTIONS(2336),
+    [aux_sym_preproc_if_token2] = ACTIONS(1380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2338),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2338),
+    [sym_preproc_directive] = ACTIONS(2340),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2309),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2312),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -159978,7 +160196,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2312),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -159991,7 +160208,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2266),
+    [anon_sym_SEMI] = ACTIONS(2342),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160013,10 +160230,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2312),
-    [aux_sym_type_statement_token2] = ACTIONS(2312),
-    [aux_sym_type_statement_token3] = ACTIONS(2312),
-    [aux_sym__class_default_token1] = ACTIONS(2312),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160048,101 +160261,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2314),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [544] = {
-    [sym_preproc_include] = STATE(559),
-    [sym_preproc_def] = STATE(559),
-    [sym_preproc_function_def] = STATE(559),
-    [sym_preproc_call] = STATE(559),
-    [sym_preproc_if_in_statements] = STATE(559),
-    [sym_preproc_ifdef_in_statements] = STATE(559),
-    [sym__statements] = STATE(6997),
+  [546] = {
+    [sym_preproc_include] = STATE(552),
+    [sym_preproc_def] = STATE(552),
+    [sym_preproc_function_def] = STATE(552),
+    [sym_preproc_call] = STATE(552),
+    [sym_preproc_if_in_statements] = STATE(552),
+    [sym_preproc_ifdef_in_statements] = STATE(552),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(559),
-    [aux_sym_preproc_include_token1] = ACTIONS(2317),
-    [aux_sym_preproc_def_token1] = ACTIONS(2320),
-    [aux_sym_preproc_if_token1] = ACTIONS(2323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2326),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2326),
-    [sym_preproc_directive] = ACTIONS(2329),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(552),
+    [aux_sym_preproc_include_token1] = ACTIONS(2344),
+    [aux_sym_preproc_def_token1] = ACTIONS(2347),
+    [aux_sym_preproc_if_token1] = ACTIONS(2350),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2353),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2353),
+    [sym_preproc_directive] = ACTIONS(2356),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2332),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2359),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2335),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2362),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -160155,7 +160368,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2335),
+    [aux_sym_derived_type_token1] = ACTIONS(2362),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -160168,7 +160381,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2337),
+    [anon_sym_SEMI] = ACTIONS(2364),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160190,10 +160403,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2335),
-    [aux_sym_type_statement_token2] = ACTIONS(2335),
-    [aux_sym_type_statement_token3] = ACTIONS(2335),
-    [aux_sym__class_default_token1] = ACTIONS(2335),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2362),
+    [aux_sym_type_statement_token2] = ACTIONS(2362),
+    [aux_sym_type_statement_token3] = ACTIONS(2362),
+    [aux_sym__class_default_token1] = ACTIONS(2362),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160225,101 +160438,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2339),
+    [sym__integer_literal] = ACTIONS(2366),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [545] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [547] = {
+    [sym_preproc_include] = STATE(567),
+    [sym_preproc_def] = STATE(567),
+    [sym_preproc_function_def] = STATE(567),
+    [sym_preproc_call] = STATE(567),
+    [sym_preproc_if_in_statements] = STATE(567),
+    [sym_preproc_ifdef_in_statements] = STATE(567),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2342),
-    [aux_sym_preproc_def_token1] = ACTIONS(2345),
-    [aux_sym_preproc_if_token1] = ACTIONS(2348),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2351),
-    [sym_preproc_directive] = ACTIONS(2354),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(567),
+    [aux_sym_preproc_include_token1] = ACTIONS(2369),
+    [aux_sym_preproc_def_token1] = ACTIONS(2372),
+    [aux_sym_preproc_if_token1] = ACTIONS(2375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2378),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2378),
+    [sym_preproc_directive] = ACTIONS(2381),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2357),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2384),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2360),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2387),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -160332,7 +160545,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2360),
+    [aux_sym_derived_type_token1] = ACTIONS(2387),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -160345,7 +160558,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2266),
+    [anon_sym_SEMI] = ACTIONS(2389),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160367,10 +160580,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2360),
-    [aux_sym_type_statement_token2] = ACTIONS(2360),
-    [aux_sym_type_statement_token3] = ACTIONS(2360),
-    [aux_sym__class_default_token1] = ACTIONS(2360),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2387),
+    [aux_sym_type_statement_token2] = ACTIONS(2387),
+    [aux_sym_type_statement_token3] = ACTIONS(2387),
+    [aux_sym__class_default_token1] = ACTIONS(2387),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160402,101 +160615,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2362),
+    [sym__integer_literal] = ACTIONS(2391),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [546] = {
-    [sym_preproc_include] = STATE(550),
-    [sym_preproc_def] = STATE(550),
-    [sym_preproc_function_def] = STATE(550),
-    [sym_preproc_call] = STATE(550),
-    [sym_preproc_if_in_statements] = STATE(550),
-    [sym_preproc_ifdef_in_statements] = STATE(550),
-    [sym__statements] = STATE(6997),
+  [548] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(550),
-    [aux_sym_preproc_include_token1] = ACTIONS(2365),
-    [aux_sym_preproc_def_token1] = ACTIONS(2368),
-    [aux_sym_preproc_if_token1] = ACTIONS(2371),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2374),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2374),
-    [sym_preproc_directive] = ACTIONS(2377),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2369),
+    [aux_sym_preproc_def_token1] = ACTIONS(2372),
+    [aux_sym_preproc_if_token1] = ACTIONS(2375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2378),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2378),
+    [sym_preproc_directive] = ACTIONS(2381),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2380),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2384),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2383),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2387),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -160509,7 +160722,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2383),
+    [aux_sym_derived_type_token1] = ACTIONS(2387),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -160522,7 +160735,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2385),
+    [anon_sym_SEMI] = ACTIONS(2266),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160544,10 +160757,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2383),
-    [aux_sym_type_statement_token2] = ACTIONS(2383),
-    [aux_sym_type_statement_token3] = ACTIONS(2383),
-    [aux_sym__class_default_token1] = ACTIONS(2383),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2387),
+    [aux_sym_type_statement_token2] = ACTIONS(2387),
+    [aux_sym_type_statement_token3] = ACTIONS(2387),
+    [aux_sym__class_default_token1] = ACTIONS(2387),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160579,101 +160792,106 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2387),
+    [sym__integer_literal] = ACTIONS(2391),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [547] = {
-    [sym_preproc_include] = STATE(541),
-    [sym_preproc_def] = STATE(541),
-    [sym_preproc_function_def] = STATE(541),
-    [sym_preproc_call] = STATE(541),
-    [sym_preproc_if_in_statements] = STATE(541),
-    [sym_preproc_ifdef_in_statements] = STATE(541),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(541),
-    [aux_sym_preproc_include_token1] = ACTIONS(2390),
-    [aux_sym_preproc_def_token1] = ACTIONS(2393),
-    [aux_sym_preproc_if_token1] = ACTIONS(2396),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2399),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2399),
-    [sym_preproc_directive] = ACTIONS(2402),
+  [549] = {
+    [sym_preproc_include] = STATE(649),
+    [sym_preproc_def] = STATE(649),
+    [sym_preproc_function_def] = STATE(649),
+    [sym_preproc_call] = STATE(649),
+    [sym_preproc_if_in_statements] = STATE(649),
+    [sym_preproc_ifdef_in_statements] = STATE(649),
+    [sym_end_program_statement] = STATE(1034),
+    [sym_internal_procedures] = STATE(6428),
+    [sym_contains_statement] = STATE(7033),
+    [sym__statements] = STATE(7036),
+    [sym_statement_label] = STATE(809),
+    [sym_stop_statement] = STATE(7036),
+    [sym_assignment_statement] = STATE(7036),
+    [sym_pointer_association_statement] = STATE(7036),
+    [sym_subroutine_call] = STATE(7036),
+    [sym_keyword_statement] = STATE(7036),
+    [sym_include_statement] = STATE(7036),
+    [sym_do_loop_statement] = STATE(7036),
+    [sym_do_label_statement] = STATE(7036),
+    [sym_end_do_label_statement] = STATE(7036),
+    [sym_if_statement] = STATE(7036),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7036),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7036),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7036),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7036),
+    [sym_select_type_statement] = STATE(7036),
+    [sym_select_rank_statement] = STATE(7036),
+    [sym_block_construct] = STATE(7036),
+    [sym_associate_statement] = STATE(7036),
+    [sym_format_statement] = STATE(7036),
+    [sym_read_statement] = STATE(7036),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7036),
+    [sym_open_statement] = STATE(7036),
+    [sym_close_statement] = STATE(7036),
+    [sym_write_statement] = STATE(7036),
+    [sym_inquire_statement] = STATE(7036),
+    [sym_file_position_statement] = STATE(7036),
+    [sym_allocate_statement] = STATE(7036),
+    [sym_entry_statement] = STATE(7036),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7036),
+    [sym_coarray_team_statement] = STATE(7036),
+    [sym_coarray_critical_statement] = STATE(7036),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(649),
+    [aux_sym_preproc_include_token1] = ACTIONS(2332),
+    [aux_sym_preproc_def_token1] = ACTIONS(2334),
+    [aux_sym_preproc_if_token1] = ACTIONS(2336),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2338),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2338),
+    [sym_preproc_directive] = ACTIONS(2340),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2408),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -160686,7 +160904,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2408),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -160699,7 +160916,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2410),
+    [anon_sym_SEMI] = ACTIONS(2342),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160721,10 +160938,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2408),
-    [aux_sym_type_statement_token2] = ACTIONS(2408),
-    [aux_sym_type_statement_token3] = ACTIONS(2408),
-    [aux_sym__class_default_token1] = ACTIONS(2408),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160756,103 +160969,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2412),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [548] = {
-    [sym_preproc_include] = STATE(567),
-    [sym_preproc_def] = STATE(567),
-    [sym_preproc_function_def] = STATE(567),
-    [sym_preproc_call] = STATE(567),
-    [sym_preproc_if_in_statements] = STATE(567),
-    [sym_preproc_ifdef_in_statements] = STATE(567),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_end_where_statement] = STATE(7383),
-    [sym_elsewhere_clause] = STATE(6035),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(567),
-    [aux_sym__block_where_statement_repeat1] = STATE(6035),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [550] = {
+    [sym_preproc_include] = STATE(559),
+    [sym_preproc_def] = STATE(559),
+    [sym_preproc_function_def] = STATE(559),
+    [sym_preproc_call] = STATE(559),
+    [sym_preproc_if_in_statements] = STATE(559),
+    [sym_preproc_ifdef_in_statements] = STATE(559),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(559),
+    [aux_sym_preproc_include_token1] = ACTIONS(2394),
+    [aux_sym_preproc_def_token1] = ACTIONS(2397),
+    [aux_sym_preproc_if_token1] = ACTIONS(2400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2403),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2403),
+    [sym_preproc_directive] = ACTIONS(2406),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2409),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2412),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -160865,6 +161076,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2412),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -160877,7 +161089,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2427),
+    [anon_sym_SEMI] = ACTIONS(2414),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -160892,16 +161104,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2429),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2431),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2433),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2412),
+    [aux_sym_type_statement_token2] = ACTIONS(2412),
+    [aux_sym_type_statement_token3] = ACTIONS(2412),
+    [aux_sym__class_default_token1] = ACTIONS(2412),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -160933,101 +161146,103 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(2416),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [549] = {
-    [sym_preproc_include] = STATE(564),
-    [sym_preproc_def] = STATE(564),
-    [sym_preproc_function_def] = STATE(564),
-    [sym_preproc_call] = STATE(564),
-    [sym_preproc_if_in_statements] = STATE(564),
-    [sym_preproc_ifdef_in_statements] = STATE(564),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(564),
-    [aux_sym_preproc_include_token1] = ACTIONS(2435),
-    [aux_sym_preproc_def_token1] = ACTIONS(2438),
-    [aux_sym_preproc_if_token1] = ACTIONS(2441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2444),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2444),
-    [sym_preproc_directive] = ACTIONS(2447),
+  [551] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_end_where_statement] = STATE(7520),
+    [sym_elsewhere_clause] = STATE(6033),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym__block_where_statement_repeat1] = STATE(6033),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2450),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2299),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2453),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161040,7 +161255,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2453),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161053,7 +161267,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2455),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -161068,17 +161282,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2303),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2305),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2307),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2453),
-    [aux_sym_type_statement_token2] = ACTIONS(2453),
-    [aux_sym_type_statement_token3] = ACTIONS(2453),
-    [aux_sym__class_default_token1] = ACTIONS(2453),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161110,101 +161323,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2457),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [550] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [552] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2390),
-    [aux_sym_preproc_def_token1] = ACTIONS(2393),
-    [aux_sym_preproc_if_token1] = ACTIONS(2396),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2399),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2399),
-    [sym_preproc_directive] = ACTIONS(2402),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2419),
+    [aux_sym_preproc_def_token1] = ACTIONS(2422),
+    [aux_sym_preproc_if_token1] = ACTIONS(2425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2428),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2428),
+    [sym_preproc_directive] = ACTIONS(2431),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2434),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2408),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2437),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161217,7 +161430,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2408),
+    [aux_sym_derived_type_token1] = ACTIONS(2437),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161252,10 +161465,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2408),
-    [aux_sym_type_statement_token2] = ACTIONS(2408),
-    [aux_sym_type_statement_token3] = ACTIONS(2408),
-    [aux_sym__class_default_token1] = ACTIONS(2408),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2437),
+    [aux_sym_type_statement_token2] = ACTIONS(2437),
+    [aux_sym_type_statement_token3] = ACTIONS(2437),
+    [aux_sym__class_default_token1] = ACTIONS(2437),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161287,101 +161500,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2412),
+    [sym__integer_literal] = ACTIONS(2439),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [551] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [553] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2435),
-    [aux_sym_preproc_def_token1] = ACTIONS(2438),
-    [aux_sym_preproc_if_token1] = ACTIONS(2441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2444),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2444),
-    [sym_preproc_directive] = ACTIONS(2447),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2442),
+    [aux_sym_preproc_def_token1] = ACTIONS(2445),
+    [aux_sym_preproc_if_token1] = ACTIONS(2448),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2451),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2451),
+    [sym_preproc_directive] = ACTIONS(2454),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2450),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2457),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2460),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161394,7 +161607,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2453),
+    [aux_sym_derived_type_token1] = ACTIONS(2460),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161429,10 +161642,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2453),
-    [aux_sym_type_statement_token2] = ACTIONS(2453),
-    [aux_sym_type_statement_token3] = ACTIONS(2453),
-    [aux_sym__class_default_token1] = ACTIONS(2453),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2460),
+    [aux_sym_type_statement_token2] = ACTIONS(2460),
+    [aux_sym_type_statement_token3] = ACTIONS(2460),
+    [aux_sym__class_default_token1] = ACTIONS(2460),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161464,101 +161677,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2457),
+    [sym__integer_literal] = ACTIONS(2462),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [552] = {
+  [554] = {
     [sym_preproc_include] = STATE(555),
     [sym_preproc_def] = STATE(555),
     [sym_preproc_function_def] = STATE(555),
     [sym_preproc_call] = STATE(555),
     [sym_preproc_if_in_statements] = STATE(555),
     [sym_preproc_ifdef_in_statements] = STATE(555),
-    [sym__statements] = STATE(6997),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(555),
-    [aux_sym_preproc_include_token1] = ACTIONS(2460),
-    [aux_sym_preproc_def_token1] = ACTIONS(2463),
-    [aux_sym_preproc_if_token1] = ACTIONS(2466),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2469),
-    [sym_preproc_directive] = ACTIONS(2472),
+    [aux_sym_preproc_include_token1] = ACTIONS(2246),
+    [aux_sym_preproc_def_token1] = ACTIONS(2249),
+    [aux_sym_preproc_if_token1] = ACTIONS(2252),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2255),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2255),
+    [sym_preproc_directive] = ACTIONS(2258),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2475),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2261),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2478),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2264),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161571,7 +161784,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2478),
+    [aux_sym_derived_type_token1] = ACTIONS(2264),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161584,7 +161797,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2480),
+    [anon_sym_SEMI] = ACTIONS(2465),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -161606,10 +161819,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2478),
-    [aux_sym_type_statement_token2] = ACTIONS(2478),
-    [aux_sym_type_statement_token3] = ACTIONS(2478),
-    [aux_sym__class_default_token1] = ACTIONS(2478),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2264),
+    [aux_sym_type_statement_token2] = ACTIONS(2264),
+    [aux_sym_type_statement_token3] = ACTIONS(2264),
+    [aux_sym__class_default_token1] = ACTIONS(2264),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161641,103 +161854,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2482),
+    [sym__integer_literal] = ACTIONS(2268),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [553] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_end_where_statement] = STATE(7383),
-    [sym_elsewhere_clause] = STATE(6035),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym__block_where_statement_repeat1] = STATE(6035),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [555] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2467),
+    [aux_sym_preproc_def_token1] = ACTIONS(2470),
+    [aux_sym_preproc_if_token1] = ACTIONS(2473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2476),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2476),
+    [sym_preproc_directive] = ACTIONS(2479),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2482),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2485),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161750,6 +161961,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2485),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161762,7 +161974,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(2266),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -161777,16 +161989,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2429),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2431),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2433),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2485),
+    [aux_sym_type_statement_token2] = ACTIONS(2485),
+    [aux_sym_type_statement_token3] = ACTIONS(2485),
+    [aux_sym__class_default_token1] = ACTIONS(2485),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161818,101 +162031,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(2487),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [554] = {
+  [556] = {
     [sym_preproc_include] = STATE(542),
     [sym_preproc_def] = STATE(542),
     [sym_preproc_function_def] = STATE(542),
     [sym_preproc_call] = STATE(542),
     [sym_preproc_if_in_statements] = STATE(542),
     [sym_preproc_ifdef_in_statements] = STATE(542),
-    [sym__statements] = STATE(6997),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
-    [aux_sym_preproc_include_token1] = ACTIONS(2487),
-    [aux_sym_preproc_def_token1] = ACTIONS(2490),
-    [aux_sym_preproc_if_token1] = ACTIONS(2493),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2496),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2496),
-    [sym_preproc_directive] = ACTIONS(2499),
+    [aux_sym_preproc_include_token1] = ACTIONS(2490),
+    [aux_sym_preproc_def_token1] = ACTIONS(2493),
+    [aux_sym_preproc_if_token1] = ACTIONS(2496),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2499),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2499),
+    [sym_preproc_directive] = ACTIONS(2502),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2502),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2505),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2505),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2508),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -161925,7 +162138,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2505),
+    [aux_sym_derived_type_token1] = ACTIONS(2508),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -161938,7 +162151,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2507),
+    [anon_sym_SEMI] = ACTIONS(2266),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -161960,10 +162173,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2505),
-    [aux_sym_type_statement_token2] = ACTIONS(2505),
-    [aux_sym_type_statement_token3] = ACTIONS(2505),
-    [aux_sym__class_default_token1] = ACTIONS(2505),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2508),
+    [aux_sym_type_statement_token2] = ACTIONS(2508),
+    [aux_sym_type_statement_token3] = ACTIONS(2508),
+    [aux_sym__class_default_token1] = ACTIONS(2508),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -161995,101 +162208,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2509),
+    [sym__integer_literal] = ACTIONS(2510),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [555] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [557] = {
+    [sym_preproc_include] = STATE(553),
+    [sym_preproc_def] = STATE(553),
+    [sym_preproc_function_def] = STATE(553),
+    [sym_preproc_call] = STATE(553),
+    [sym_preproc_if_in_statements] = STATE(553),
+    [sym_preproc_ifdef_in_statements] = STATE(553),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2487),
-    [aux_sym_preproc_def_token1] = ACTIONS(2490),
-    [aux_sym_preproc_if_token1] = ACTIONS(2493),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2496),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2496),
-    [sym_preproc_directive] = ACTIONS(2499),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(553),
+    [aux_sym_preproc_include_token1] = ACTIONS(2513),
+    [aux_sym_preproc_def_token1] = ACTIONS(2516),
+    [aux_sym_preproc_if_token1] = ACTIONS(2519),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2522),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2522),
+    [sym_preproc_directive] = ACTIONS(2525),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2502),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2528),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2505),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2531),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -162102,7 +162315,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2505),
+    [aux_sym_derived_type_token1] = ACTIONS(2531),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -162115,7 +162328,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2266),
+    [anon_sym_SEMI] = ACTIONS(2533),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -162137,10 +162350,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2505),
-    [aux_sym_type_statement_token2] = ACTIONS(2505),
-    [aux_sym_type_statement_token3] = ACTIONS(2505),
-    [aux_sym__class_default_token1] = ACTIONS(2505),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2531),
+    [aux_sym_type_statement_token2] = ACTIONS(2531),
+    [aux_sym_type_statement_token3] = ACTIONS(2531),
+    [aux_sym__class_default_token1] = ACTIONS(2531),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -162172,103 +162385,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2509),
+    [sym__integer_literal] = ACTIONS(2535),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [556] = {
-    [sym_preproc_include] = STATE(553),
-    [sym_preproc_def] = STATE(553),
-    [sym_preproc_function_def] = STATE(553),
-    [sym_preproc_call] = STATE(553),
-    [sym_preproc_if_in_statements] = STATE(553),
-    [sym_preproc_ifdef_in_statements] = STATE(553),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_end_where_statement] = STATE(7502),
-    [sym_elsewhere_clause] = STATE(6024),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(553),
-    [aux_sym__block_where_statement_repeat1] = STATE(6024),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [558] = {
+    [sym_preproc_include] = STATE(556),
+    [sym_preproc_def] = STATE(556),
+    [sym_preproc_function_def] = STATE(556),
+    [sym_preproc_call] = STATE(556),
+    [sym_preproc_if_in_statements] = STATE(556),
+    [sym_preproc_ifdef_in_statements] = STATE(556),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(556),
+    [aux_sym_preproc_include_token1] = ACTIONS(2419),
+    [aux_sym_preproc_def_token1] = ACTIONS(2422),
+    [aux_sym_preproc_if_token1] = ACTIONS(2425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2428),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2428),
+    [sym_preproc_directive] = ACTIONS(2431),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2434),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2437),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -162281,6 +162492,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2437),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -162293,7 +162505,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2512),
+    [anon_sym_SEMI] = ACTIONS(2538),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -162308,16 +162520,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2429),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2431),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2433),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2437),
+    [aux_sym_type_statement_token2] = ACTIONS(2437),
+    [aux_sym_type_statement_token3] = ACTIONS(2437),
+    [aux_sym__class_default_token1] = ACTIONS(2437),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -162349,101 +162562,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(2439),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [557] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [559] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2514),
-    [aux_sym_preproc_def_token1] = ACTIONS(2517),
-    [aux_sym_preproc_if_token1] = ACTIONS(2520),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2523),
-    [sym_preproc_directive] = ACTIONS(2526),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2540),
+    [aux_sym_preproc_def_token1] = ACTIONS(2543),
+    [aux_sym_preproc_if_token1] = ACTIONS(2546),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2549),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2549),
+    [sym_preproc_directive] = ACTIONS(2552),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2529),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2555),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2532),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2558),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -162456,7 +162669,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2532),
+    [aux_sym_derived_type_token1] = ACTIONS(2558),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -162491,10 +162704,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2532),
-    [aux_sym_type_statement_token2] = ACTIONS(2532),
-    [aux_sym_type_statement_token3] = ACTIONS(2532),
-    [aux_sym__class_default_token1] = ACTIONS(2532),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2558),
+    [aux_sym_type_statement_token2] = ACTIONS(2558),
+    [aux_sym_type_statement_token3] = ACTIONS(2558),
+    [aux_sym__class_default_token1] = ACTIONS(2558),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -162526,101 +162739,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2534),
+    [sym__integer_literal] = ACTIONS(2560),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [558] = {
-    [sym_preproc_include] = STATE(545),
-    [sym_preproc_def] = STATE(545),
-    [sym_preproc_function_def] = STATE(545),
-    [sym_preproc_call] = STATE(545),
-    [sym_preproc_if_in_statements] = STATE(545),
-    [sym_preproc_ifdef_in_statements] = STATE(545),
-    [sym__statements] = STATE(6997),
+  [560] = {
+    [sym_preproc_include] = STATE(544),
+    [sym_preproc_def] = STATE(544),
+    [sym_preproc_function_def] = STATE(544),
+    [sym_preproc_call] = STATE(544),
+    [sym_preproc_if_in_statements] = STATE(544),
+    [sym_preproc_ifdef_in_statements] = STATE(544),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(545),
-    [aux_sym_preproc_include_token1] = ACTIONS(2537),
-    [aux_sym_preproc_def_token1] = ACTIONS(2540),
-    [aux_sym_preproc_if_token1] = ACTIONS(2543),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2546),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2546),
-    [sym_preproc_directive] = ACTIONS(2549),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(544),
+    [aux_sym_preproc_include_token1] = ACTIONS(2540),
+    [aux_sym_preproc_def_token1] = ACTIONS(2543),
+    [aux_sym_preproc_if_token1] = ACTIONS(2546),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2549),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2549),
+    [sym_preproc_directive] = ACTIONS(2552),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2552),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2555),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2555),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2558),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -162633,7 +162846,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2555),
+    [aux_sym_derived_type_token1] = ACTIONS(2558),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -162646,7 +162859,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2557),
+    [anon_sym_SEMI] = ACTIONS(2563),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -162668,10 +162881,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2555),
-    [aux_sym_type_statement_token2] = ACTIONS(2555),
-    [aux_sym_type_statement_token3] = ACTIONS(2555),
-    [aux_sym__class_default_token1] = ACTIONS(2555),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2558),
+    [aux_sym_type_statement_token2] = ACTIONS(2558),
+    [aux_sym_type_statement_token3] = ACTIONS(2558),
+    [aux_sym__class_default_token1] = ACTIONS(2558),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -162703,101 +162916,455 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2559),
+    [sym__integer_literal] = ACTIONS(2560),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [559] = {
+  [561] = {
+    [sym_preproc_include] = STATE(551),
+    [sym_preproc_def] = STATE(551),
+    [sym_preproc_function_def] = STATE(551),
+    [sym_preproc_call] = STATE(551),
+    [sym_preproc_if_in_statements] = STATE(551),
+    [sym_preproc_ifdef_in_statements] = STATE(551),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_end_where_statement] = STATE(7659),
+    [sym_elsewhere_clause] = STATE(6019),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(551),
+    [aux_sym__block_where_statement_repeat1] = STATE(6019),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2299),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2565),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2303),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2305),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2307),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [562] = {
     [sym_preproc_include] = STATE(563),
     [sym_preproc_def] = STATE(563),
     [sym_preproc_function_def] = STATE(563),
     [sym_preproc_call] = STATE(563),
     [sym_preproc_if_in_statements] = STATE(563),
     [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2537),
-    [aux_sym_preproc_def_token1] = ACTIONS(2540),
-    [aux_sym_preproc_if_token1] = ACTIONS(2543),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2546),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2546),
-    [sym_preproc_directive] = ACTIONS(2549),
+    [aux_sym_preproc_include_token1] = ACTIONS(2567),
+    [aux_sym_preproc_def_token1] = ACTIONS(2570),
+    [aux_sym_preproc_if_token1] = ACTIONS(2573),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2576),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2576),
+    [sym_preproc_directive] = ACTIONS(2579),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2582),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2585),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2585),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2587),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2585),
+    [aux_sym_type_statement_token2] = ACTIONS(2585),
+    [aux_sym_type_statement_token3] = ACTIONS(2585),
+    [aux_sym__class_default_token1] = ACTIONS(2585),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2589),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [563] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2513),
+    [aux_sym_preproc_def_token1] = ACTIONS(2516),
+    [aux_sym_preproc_if_token1] = ACTIONS(2519),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2522),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2522),
+    [sym_preproc_directive] = ACTIONS(2525),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2552),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2528),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2555),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2531),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -162810,7 +163377,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2555),
+    [aux_sym_derived_type_token1] = ACTIONS(2531),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -162845,10 +163412,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2555),
-    [aux_sym_type_statement_token2] = ACTIONS(2555),
-    [aux_sym_type_statement_token3] = ACTIONS(2555),
-    [aux_sym__class_default_token1] = ACTIONS(2555),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2531),
+    [aux_sym_type_statement_token2] = ACTIONS(2531),
+    [aux_sym_type_statement_token3] = ACTIONS(2531),
+    [aux_sym__class_default_token1] = ACTIONS(2531),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -162880,105 +163447,102 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2559),
+    [sym__integer_literal] = ACTIONS(2535),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [560] = {
-    [sym_preproc_include] = STATE(643),
-    [sym_preproc_def] = STATE(643),
-    [sym_preproc_function_def] = STATE(643),
-    [sym_preproc_call] = STATE(643),
-    [sym_preproc_if_in_statements] = STATE(643),
-    [sym_preproc_ifdef_in_statements] = STATE(643),
-    [sym_end_program_statement] = STATE(1055),
-    [sym_internal_procedures] = STATE(6443),
-    [sym_contains_statement] = STATE(6713),
-    [sym__statements] = STATE(6716),
-    [sym_statement_label] = STATE(804),
-    [sym_stop_statement] = STATE(6716),
-    [sym_assignment_statement] = STATE(6716),
-    [sym_pointer_association_statement] = STATE(6716),
-    [sym_subroutine_call] = STATE(6716),
-    [sym_keyword_statement] = STATE(6716),
-    [sym_include_statement] = STATE(6716),
-    [sym_do_loop_statement] = STATE(6716),
-    [sym_do_label_statement] = STATE(6716),
-    [sym_end_do_label_statement] = STATE(6716),
-    [sym_if_statement] = STATE(6716),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6716),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6716),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6716),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6716),
-    [sym_select_type_statement] = STATE(6716),
-    [sym_select_rank_statement] = STATE(6716),
-    [sym_block_construct] = STATE(6716),
-    [sym_associate_statement] = STATE(6716),
-    [sym_format_statement] = STATE(6716),
-    [sym_read_statement] = STATE(6716),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6716),
-    [sym_open_statement] = STATE(6716),
-    [sym_close_statement] = STATE(6716),
-    [sym_write_statement] = STATE(6716),
-    [sym_inquire_statement] = STATE(6716),
-    [sym_file_position_statement] = STATE(6716),
-    [sym_allocate_statement] = STATE(6716),
-    [sym_entry_statement] = STATE(6716),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6716),
-    [sym_coarray_team_statement] = STATE(6716),
-    [sym_coarray_critical_statement] = STATE(6716),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(643),
-    [aux_sym_preproc_include_token1] = ACTIONS(2562),
-    [aux_sym_preproc_def_token1] = ACTIONS(2564),
-    [aux_sym_preproc_if_token1] = ACTIONS(2566),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2568),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2568),
-    [sym_preproc_directive] = ACTIONS(2570),
+  [564] = {
+    [sym_preproc_include] = STATE(543),
+    [sym_preproc_def] = STATE(543),
+    [sym_preproc_function_def] = STATE(543),
+    [sym_preproc_call] = STATE(543),
+    [sym_preproc_if_in_statements] = STATE(543),
+    [sym_preproc_ifdef_in_statements] = STATE(543),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_end_where_statement] = STATE(7355),
+    [sym_elsewhere_clause] = STATE(5996),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(543),
+    [aux_sym__block_where_statement_repeat1] = STATE(5996),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2299),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -163004,7 +163568,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2572),
+    [anon_sym_SEMI] = ACTIONS(2592),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -163019,8 +163583,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2303),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2305),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2307),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -163063,277 +163630,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [561] = {
-    [sym_preproc_include] = STATE(561),
-    [sym_preproc_def] = STATE(561),
-    [sym_preproc_function_def] = STATE(561),
-    [sym_preproc_call] = STATE(561),
-    [sym_preproc_if_in_statements] = STATE(561),
-    [sym_preproc_ifdef_in_statements] = STATE(561),
-    [sym__statements] = STATE(6778),
-    [sym_statement_label] = STATE(802),
-    [sym_stop_statement] = STATE(6778),
-    [sym_assignment_statement] = STATE(6778),
-    [sym_pointer_association_statement] = STATE(6778),
-    [sym_subroutine_call] = STATE(6778),
-    [sym_keyword_statement] = STATE(6778),
-    [sym_include_statement] = STATE(6778),
-    [sym_do_loop_statement] = STATE(6778),
-    [sym_do_label_statement] = STATE(6778),
-    [sym_end_do_label_statement] = STATE(6778),
-    [sym_if_statement] = STATE(6778),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6778),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6778),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6778),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6778),
-    [sym_select_type_statement] = STATE(6778),
-    [sym_select_rank_statement] = STATE(6778),
-    [sym_block_construct] = STATE(6778),
-    [sym_associate_statement] = STATE(6778),
-    [sym_format_statement] = STATE(6778),
-    [sym_read_statement] = STATE(6778),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6778),
-    [sym_open_statement] = STATE(6778),
-    [sym_close_statement] = STATE(6778),
-    [sym_write_statement] = STATE(6778),
-    [sym_inquire_statement] = STATE(6778),
-    [sym_file_position_statement] = STATE(6778),
-    [sym_allocate_statement] = STATE(6778),
-    [sym_entry_statement] = STATE(6778),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6778),
-    [sym_coarray_team_statement] = STATE(6778),
-    [sym_coarray_critical_statement] = STATE(6778),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(561),
-    [aux_sym_preproc_include_token1] = ACTIONS(2574),
-    [aux_sym_preproc_def_token1] = ACTIONS(2577),
-    [aux_sym_preproc_if_token1] = ACTIONS(2580),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2583),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2583),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2586),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
+  [565] = {
+    [sym_preproc_include] = STATE(541),
+    [sym_preproc_def] = STATE(541),
+    [sym_preproc_function_def] = STATE(541),
+    [sym_preproc_call] = STATE(541),
+    [sym_preproc_if_in_statements] = STATE(541),
+    [sym_preproc_ifdef_in_statements] = STATE(541),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(541),
+    [aux_sym_preproc_include_token1] = ACTIONS(2594),
+    [aux_sym_preproc_def_token1] = ACTIONS(2597),
+    [aux_sym_preproc_if_token1] = ACTIONS(2600),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2603),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2603),
+    [sym_preproc_directive] = ACTIONS(2606),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(2589),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2609),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2614),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2612),
+    [aux_sym_type_statement_token2] = ACTIONS(2612),
+    [aux_sym_type_statement_token3] = ACTIONS(2612),
+    [aux_sym__class_default_token1] = ACTIONS(2612),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
+    [sym__integer_literal] = ACTIONS(2616),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [562] = {
-    [sym_preproc_include] = STATE(643),
-    [sym_preproc_def] = STATE(643),
-    [sym_preproc_function_def] = STATE(643),
-    [sym_preproc_call] = STATE(643),
-    [sym_preproc_if_in_statements] = STATE(643),
-    [sym_preproc_ifdef_in_statements] = STATE(643),
-    [sym_end_program_statement] = STATE(1055),
-    [sym_internal_procedures] = STATE(6415),
-    [sym_contains_statement] = STATE(6713),
-    [sym__statements] = STATE(6716),
-    [sym_statement_label] = STATE(804),
-    [sym_stop_statement] = STATE(6716),
-    [sym_assignment_statement] = STATE(6716),
-    [sym_pointer_association_statement] = STATE(6716),
-    [sym_subroutine_call] = STATE(6716),
-    [sym_keyword_statement] = STATE(6716),
-    [sym_include_statement] = STATE(6716),
-    [sym_do_loop_statement] = STATE(6716),
-    [sym_do_label_statement] = STATE(6716),
-    [sym_end_do_label_statement] = STATE(6716),
-    [sym_if_statement] = STATE(6716),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6716),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6716),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6716),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6716),
-    [sym_select_type_statement] = STATE(6716),
-    [sym_select_rank_statement] = STATE(6716),
-    [sym_block_construct] = STATE(6716),
-    [sym_associate_statement] = STATE(6716),
-    [sym_format_statement] = STATE(6716),
-    [sym_read_statement] = STATE(6716),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6716),
-    [sym_open_statement] = STATE(6716),
-    [sym_close_statement] = STATE(6716),
-    [sym_write_statement] = STATE(6716),
-    [sym_inquire_statement] = STATE(6716),
-    [sym_file_position_statement] = STATE(6716),
-    [sym_allocate_statement] = STATE(6716),
-    [sym_entry_statement] = STATE(6716),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6716),
-    [sym_coarray_team_statement] = STATE(6716),
-    [sym_coarray_critical_statement] = STATE(6716),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(643),
-    [aux_sym_preproc_include_token1] = ACTIONS(2562),
-    [aux_sym_preproc_def_token1] = ACTIONS(2564),
-    [aux_sym_preproc_if_token1] = ACTIONS(2566),
-    [aux_sym_preproc_if_token2] = ACTIONS(1378),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2568),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2568),
-    [sym_preproc_directive] = ACTIONS(2570),
+  [566] = {
+    [sym_preproc_include] = STATE(548),
+    [sym_preproc_def] = STATE(548),
+    [sym_preproc_function_def] = STATE(548),
+    [sym_preproc_call] = STATE(548),
+    [sym_preproc_if_in_statements] = STATE(548),
+    [sym_preproc_ifdef_in_statements] = STATE(548),
+    [sym__statements] = STATE(7008),
+    [sym_statement_label] = STATE(810),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(548),
+    [aux_sym_preproc_include_token1] = ACTIONS(2619),
+    [aux_sym_preproc_def_token1] = ACTIONS(2622),
+    [aux_sym_preproc_if_token1] = ACTIONS(2625),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2628),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2628),
+    [sym_preproc_directive] = ACTIONS(2631),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2634),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2637),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -163346,6 +163908,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2637),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -163358,7 +163921,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2572),
+    [anon_sym_SEMI] = ACTIONS(2639),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -163380,6 +163943,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2637),
+    [aux_sym_type_statement_token2] = ACTIONS(2637),
+    [aux_sym_type_statement_token3] = ACTIONS(2637),
+    [aux_sym__class_default_token1] = ACTIONS(2637),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -163411,91 +163978,273 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(2641),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [563] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
+  [567] = {
+    [sym_preproc_include] = STATE(542),
+    [sym_preproc_def] = STATE(542),
+    [sym_preproc_function_def] = STATE(542),
+    [sym_preproc_call] = STATE(542),
+    [sym_preproc_if_in_statements] = STATE(542),
+    [sym_preproc_ifdef_in_statements] = STATE(542),
+    [sym__statements] = STATE(7008),
     [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2592),
-    [aux_sym_preproc_def_token1] = ACTIONS(2595),
-    [aux_sym_preproc_if_token1] = ACTIONS(2598),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2601),
-    [sym_preproc_directive] = ACTIONS(2604),
+    [sym_stop_statement] = STATE(7008),
+    [sym_assignment_statement] = STATE(7008),
+    [sym_pointer_association_statement] = STATE(7008),
+    [sym_subroutine_call] = STATE(7008),
+    [sym_keyword_statement] = STATE(7008),
+    [sym_include_statement] = STATE(7008),
+    [sym_do_loop_statement] = STATE(7008),
+    [sym_do_label_statement] = STATE(7008),
+    [sym_end_do_label_statement] = STATE(7008),
+    [sym_if_statement] = STATE(7008),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7008),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7008),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7008),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7008),
+    [sym_select_type_statement] = STATE(7008),
+    [sym_select_rank_statement] = STATE(7008),
+    [sym_block_construct] = STATE(7008),
+    [sym_associate_statement] = STATE(7008),
+    [sym_format_statement] = STATE(7008),
+    [sym_read_statement] = STATE(7008),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7008),
+    [sym_open_statement] = STATE(7008),
+    [sym_close_statement] = STATE(7008),
+    [sym_write_statement] = STATE(7008),
+    [sym_inquire_statement] = STATE(7008),
+    [sym_file_position_statement] = STATE(7008),
+    [sym_allocate_statement] = STATE(7008),
+    [sym_entry_statement] = STATE(7008),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7008),
+    [sym_coarray_team_statement] = STATE(7008),
+    [sym_coarray_critical_statement] = STATE(7008),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(542),
+    [aux_sym_preproc_include_token1] = ACTIONS(2644),
+    [aux_sym_preproc_def_token1] = ACTIONS(2647),
+    [aux_sym_preproc_if_token1] = ACTIONS(2650),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2653),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2653),
+    [sym_preproc_directive] = ACTIONS(2656),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2659),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2662),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym_derived_type_token1] = ACTIONS(2662),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(2266),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2662),
+    [aux_sym_type_statement_token2] = ACTIONS(2662),
+    [aux_sym_type_statement_token3] = ACTIONS(2662),
+    [aux_sym__class_default_token1] = ACTIONS(2662),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2664),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [568] = {
+    [sym_preproc_include] = STATE(568),
+    [sym_preproc_def] = STATE(568),
+    [sym_preproc_function_def] = STATE(568),
+    [sym_preproc_call] = STATE(568),
+    [sym_preproc_if_in_statements] = STATE(568),
+    [sym_preproc_ifdef_in_statements] = STATE(568),
+    [sym__statements] = STATE(7158),
+    [sym_statement_label] = STATE(802),
+    [sym_stop_statement] = STATE(7158),
+    [sym_assignment_statement] = STATE(7158),
+    [sym_pointer_association_statement] = STATE(7158),
+    [sym_subroutine_call] = STATE(7158),
+    [sym_keyword_statement] = STATE(7158),
+    [sym_include_statement] = STATE(7158),
+    [sym_do_loop_statement] = STATE(7158),
+    [sym_do_label_statement] = STATE(7158),
+    [sym_end_do_label_statement] = STATE(7158),
+    [sym_if_statement] = STATE(7158),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7158),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7158),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7158),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7158),
+    [sym_select_type_statement] = STATE(7158),
+    [sym_select_rank_statement] = STATE(7158),
+    [sym_block_construct] = STATE(7158),
+    [sym_associate_statement] = STATE(7158),
+    [sym_format_statement] = STATE(7158),
+    [sym_read_statement] = STATE(7158),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7158),
+    [sym_open_statement] = STATE(7158),
+    [sym_close_statement] = STATE(7158),
+    [sym_write_statement] = STATE(7158),
+    [sym_inquire_statement] = STATE(7158),
+    [sym_file_position_statement] = STATE(7158),
+    [sym_allocate_statement] = STATE(7158),
+    [sym_entry_statement] = STATE(7158),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7158),
+    [sym_coarray_team_statement] = STATE(7158),
+    [sym_coarray_critical_statement] = STATE(7158),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(568),
+    [aux_sym_preproc_include_token1] = ACTIONS(2667),
+    [aux_sym_preproc_def_token1] = ACTIONS(2670),
+    [aux_sym_preproc_if_token1] = ACTIONS(2673),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2676),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2676),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2679),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -163504,8 +164253,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
     [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
     [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2079),
     [aux_sym_implicit_statement_token4] = ACTIONS(2102),
     [aux_sym_save_statement_token1] = ACTIONS(2102),
     [aux_sym_private_statement_token1] = ACTIONS(2102),
@@ -163518,7 +164267,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
     [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
     [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym_derived_type_token1] = ACTIONS(2079),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
@@ -163531,7 +164279,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(2607),
+    [anon_sym_SEMI] = ACTIONS(2682),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -163553,10 +164301,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(2153),
     [aux_sym_select_type_statement_token1] = ACTIONS(2156),
     [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
-    [aux_sym_type_statement_token2] = ACTIONS(2079),
-    [aux_sym_type_statement_token3] = ACTIONS(2079),
-    [aux_sym__class_default_token1] = ACTIONS(2079),
     [aux_sym_block_construct_token1] = ACTIONS(2162),
     [aux_sym_associate_statement_token1] = ACTIONS(2165),
     [aux_sym_format_statement_token1] = ACTIONS(2168),
@@ -163594,95 +164338,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [564] = {
-    [sym_preproc_include] = STATE(563),
-    [sym_preproc_def] = STATE(563),
-    [sym_preproc_function_def] = STATE(563),
-    [sym_preproc_call] = STATE(563),
-    [sym_preproc_if_in_statements] = STATE(563),
-    [sym_preproc_ifdef_in_statements] = STATE(563),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(563),
-    [aux_sym_preproc_include_token1] = ACTIONS(2610),
-    [aux_sym_preproc_def_token1] = ACTIONS(2613),
-    [aux_sym_preproc_if_token1] = ACTIONS(2616),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2619),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2619),
-    [sym_preproc_directive] = ACTIONS(2622),
+  [569] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2691),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2691),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2691),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2691),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2691),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2625),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2628),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -163695,7 +164443,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2628),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -163708,7 +164455,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2266),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -163730,10 +164477,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2628),
-    [aux_sym_type_statement_token2] = ACTIONS(2628),
-    [aux_sym_type_statement_token3] = ACTIONS(2628),
-    [aux_sym__class_default_token1] = ACTIONS(2628),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -163765,101 +164508,105 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2630),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [565] = {
-    [sym_preproc_include] = STATE(543),
-    [sym_preproc_def] = STATE(543),
-    [sym_preproc_function_def] = STATE(543),
-    [sym_preproc_call] = STATE(543),
-    [sym_preproc_if_in_statements] = STATE(543),
-    [sym_preproc_ifdef_in_statements] = STATE(543),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(543),
-    [aux_sym_preproc_include_token1] = ACTIONS(2633),
-    [aux_sym_preproc_def_token1] = ACTIONS(2636),
-    [aux_sym_preproc_if_token1] = ACTIONS(2639),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2642),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2642),
-    [sym_preproc_directive] = ACTIONS(2645),
+  [570] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2485),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2485),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2485),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2485),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2648),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2651),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -163872,7 +164619,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2651),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -163885,7 +164631,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2653),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -163907,10 +164653,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2651),
-    [aux_sym_type_statement_token2] = ACTIONS(2651),
-    [aux_sym_type_statement_token3] = ACTIONS(2651),
-    [aux_sym__class_default_token1] = ACTIONS(2651),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -163942,101 +164684,105 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2655),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [566] = {
-    [sym_preproc_include] = STATE(557),
-    [sym_preproc_def] = STATE(557),
-    [sym_preproc_function_def] = STATE(557),
-    [sym_preproc_call] = STATE(557),
-    [sym_preproc_if_in_statements] = STATE(557),
-    [sym_preproc_ifdef_in_statements] = STATE(557),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(557),
-    [aux_sym_preproc_include_token1] = ACTIONS(2294),
-    [aux_sym_preproc_def_token1] = ACTIONS(2297),
-    [aux_sym_preproc_if_token1] = ACTIONS(2300),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2303),
-    [sym_preproc_directive] = ACTIONS(2306),
+  [571] = {
+    [sym_preproc_include] = STATE(618),
+    [sym_preproc_def] = STATE(618),
+    [sym_preproc_function_def] = STATE(618),
+    [sym_preproc_call] = STATE(618),
+    [sym_preproc_if_in_statements] = STATE(618),
+    [sym_preproc_ifdef_in_statements] = STATE(618),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(618),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2437),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2309),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2312),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -164049,7 +164795,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2312),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -164062,7 +164807,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2658),
+    [anon_sym_SEMI] = ACTIONS(2699),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -164084,10 +164829,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2312),
-    [aux_sym_type_statement_token2] = ACTIONS(2312),
-    [aux_sym_type_statement_token3] = ACTIONS(2312),
-    [aux_sym__class_default_token1] = ACTIONS(2312),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -164119,99 +164860,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2314),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [567] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_end_where_statement] = STATE(7470),
-    [sym_elsewhere_clause] = STATE(6029),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym__block_where_statement_repeat1] = STATE(6029),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [572] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2558),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2558),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -164240,7 +164983,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -164255,11 +164998,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2429),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2431),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2433),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -164302,95 +165042,99 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [568] = {
-    [sym_preproc_include] = STATE(551),
-    [sym_preproc_def] = STATE(551),
-    [sym_preproc_function_def] = STATE(551),
-    [sym_preproc_call] = STATE(551),
-    [sym_preproc_if_in_statements] = STATE(551),
-    [sym_preproc_ifdef_in_statements] = STATE(551),
-    [sym__statements] = STATE(6997),
-    [sym_statement_label] = STATE(810),
-    [sym_stop_statement] = STATE(6997),
-    [sym_assignment_statement] = STATE(6997),
-    [sym_pointer_association_statement] = STATE(6997),
-    [sym_subroutine_call] = STATE(6997),
-    [sym_keyword_statement] = STATE(6997),
-    [sym_include_statement] = STATE(6997),
-    [sym_do_loop_statement] = STATE(6997),
-    [sym_do_label_statement] = STATE(6997),
-    [sym_end_do_label_statement] = STATE(6997),
-    [sym_if_statement] = STATE(6997),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6997),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6997),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6997),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6997),
-    [sym_select_type_statement] = STATE(6997),
-    [sym_select_rank_statement] = STATE(6997),
-    [sym_block_construct] = STATE(6997),
-    [sym_associate_statement] = STATE(6997),
-    [sym_format_statement] = STATE(6997),
-    [sym_read_statement] = STATE(6997),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6997),
-    [sym_open_statement] = STATE(6997),
-    [sym_close_statement] = STATE(6997),
-    [sym_write_statement] = STATE(6997),
-    [sym_inquire_statement] = STATE(6997),
-    [sym_file_position_statement] = STATE(6997),
-    [sym_allocate_statement] = STATE(6997),
-    [sym_entry_statement] = STATE(6997),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6997),
-    [sym_coarray_team_statement] = STATE(6997),
-    [sym_coarray_critical_statement] = STATE(6997),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(551),
-    [aux_sym_preproc_include_token1] = ACTIONS(2660),
-    [aux_sym_preproc_def_token1] = ACTIONS(2663),
-    [aux_sym_preproc_if_token1] = ACTIONS(2666),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2669),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2669),
-    [sym_preproc_directive] = ACTIONS(2672),
+  [573] = {
+    [sym_preproc_include] = STATE(604),
+    [sym_preproc_def] = STATE(604),
+    [sym_preproc_function_def] = STATE(604),
+    [sym_preproc_call] = STATE(604),
+    [sym_preproc_if_in_statements] = STATE(604),
+    [sym_preproc_ifdef_in_statements] = STATE(604),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(604),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2558),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2558),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2558),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2675),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2678),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -164403,7 +165147,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(97),
     [aux_sym__intrinsic_type_token3] = ACTIONS(97),
     [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym_derived_type_token1] = ACTIONS(2678),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -164416,7 +165159,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2680),
+    [anon_sym_SEMI] = ACTIONS(2701),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -164438,10 +165181,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2678),
-    [aux_sym_type_statement_token2] = ACTIONS(2678),
-    [aux_sym_type_statement_token3] = ACTIONS(2678),
-    [aux_sym__class_default_token1] = ACTIONS(2678),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -164473,101 +165212,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2682),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [569] = {
-    [sym_preproc_include] = STATE(580),
-    [sym_preproc_def] = STATE(580),
-    [sym_preproc_function_def] = STATE(580),
-    [sym_preproc_call] = STATE(580),
-    [sym_preproc_if_in_statements] = STATE(580),
-    [sym_preproc_ifdef_in_statements] = STATE(580),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(580),
+  [574] = {
+    [sym_preproc_include] = STATE(611),
+    [sym_preproc_def] = STATE(611),
+    [sym_preproc_function_def] = STATE(611),
+    [sym_preproc_call] = STATE(611),
+    [sym_preproc_if_in_statements] = STATE(611),
+    [sym_preproc_ifdef_in_statements] = STATE(611),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(611),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2505),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2505),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2585),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2585),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2585),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2585),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2585),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -164596,7 +165335,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2695),
+    [anon_sym_SEMI] = ACTIONS(2703),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -164655,270 +165394,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [570] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2697),
-    [aux_sym_preproc_def_token1] = ACTIONS(2700),
-    [aux_sym_preproc_if_token1] = ACTIONS(2703),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2706),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2706),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2709),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(2712),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [571] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(782),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7701),
-    [sym_elseif_clause] = STATE(5743),
-    [sym_else_clause] = STATE(6301),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym__block_if_statement_repeat1] = STATE(5743),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [575] = {
+    [sym_preproc_include] = STATE(602),
+    [sym_preproc_def] = STATE(602),
+    [sym_preproc_function_def] = STATE(602),
+    [sym_preproc_call] = STATE(602),
+    [sym_preproc_if_in_statements] = STATE(602),
+    [sym_preproc_ifdef_in_statements] = STATE(602),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(602),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2637),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2637),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2637),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2637),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2637),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -164947,7 +165511,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
+    [anon_sym_SEMI] = ACTIONS(2705),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -164961,9 +165525,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -165007,98 +165570,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [572] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(993),
-    [sym_internal_procedures] = STATE(6961),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [576] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2707),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2707),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(25),
-    [aux_sym_end_program_statement_token2] = ACTIONS(27),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -165124,7 +165687,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -165183,95 +165746,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [573] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [577] = {
+    [sym_preproc_include] = STATE(569),
+    [sym_preproc_def] = STATE(569),
+    [sym_preproc_function_def] = STATE(569),
+    [sym_preproc_call] = STATE(569),
+    [sym_preproc_if_in_statements] = STATE(569),
+    [sym_preproc_ifdef_in_statements] = STATE(569),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(569),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2747),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2747),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2707),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2707),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2707),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -165300,7 +165863,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2709),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -165359,95 +165922,94 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [574] = {
-    [sym_preproc_include] = STATE(588),
-    [sym_preproc_def] = STATE(588),
-    [sym_preproc_function_def] = STATE(588),
-    [sym_preproc_call] = STATE(588),
-    [sym_preproc_if_in_statements] = STATE(588),
-    [sym_preproc_ifdef_in_statements] = STATE(588),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(588),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2751),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2751),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2751),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2751),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2751),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [578] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(778),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7460),
+    [sym_elseif_clause] = STATE(5740),
+    [sym_else_clause] = STATE(6194),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym__block_if_statement_repeat1] = STATE(5740),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -165476,7 +166038,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2753),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -165490,8 +166052,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -165535,98 +166098,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [575] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(844),
-    [sym_internal_procedures] = STATE(6838),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [579] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(791),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7399),
+    [sym_elseif_clause] = STATE(5749),
+    [sym_else_clause] = STATE(6233),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym__block_if_statement_repeat1] = STATE(5749),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -165652,7 +166214,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -165666,8 +166228,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -165711,98 +166274,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [576] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2755),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2755),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2755),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2755),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2755),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [580] = {
+    [sym_preproc_include] = STATE(636),
+    [sym_preproc_def] = STATE(636),
+    [sym_preproc_function_def] = STATE(636),
+    [sym_preproc_call] = STATE(636),
+    [sym_preproc_if_in_statements] = STATE(636),
+    [sym_preproc_ifdef_in_statements] = STATE(636),
+    [sym_internal_procedures] = STATE(7825),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(636),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(2735),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(2739),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -165828,7 +166391,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2741),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -165887,88 +166450,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [577] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(849),
-    [sym_internal_procedures] = STATE(6735),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [581] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(887),
+    [sym_internal_procedures] = STATE(6500),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -166004,7 +166567,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166063,95 +166626,94 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [578] = {
-    [sym_preproc_include] = STATE(597),
-    [sym_preproc_def] = STATE(597),
-    [sym_preproc_function_def] = STATE(597),
-    [sym_preproc_call] = STATE(597),
-    [sym_preproc_if_in_statements] = STATE(597),
-    [sym_preproc_ifdef_in_statements] = STATE(597),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(597),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2678),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2678),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2678),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2678),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [582] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(777),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7551),
+    [sym_elseif_clause] = STATE(5742),
+    [sym_else_clause] = STATE(6195),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym__block_if_statement_repeat1] = STATE(5742),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -166180,7 +166742,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2757),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166194,8 +166756,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -166239,98 +166802,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [579] = {
-    [sym_preproc_include] = STATE(623),
-    [sym_preproc_def] = STATE(623),
-    [sym_preproc_function_def] = STATE(623),
-    [sym_preproc_call] = STATE(623),
-    [sym_preproc_if_in_statements] = STATE(623),
-    [sym_preproc_ifdef_in_statements] = STATE(623),
-    [sym_internal_procedures] = STATE(7881),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(623),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2763),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [583] = {
+    [sym_preproc_include] = STATE(578),
+    [sym_preproc_def] = STATE(578),
+    [sym_preproc_function_def] = STATE(578),
+    [sym_preproc_call] = STATE(578),
+    [sym_preproc_if_in_statements] = STATE(578),
+    [sym_preproc_ifdef_in_statements] = STATE(578),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(777),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7551),
+    [sym_elseif_clause] = STATE(5742),
+    [sym_else_clause] = STATE(6195),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(578),
+    [aux_sym__block_if_statement_repeat1] = STATE(5742),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(2767),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -166356,7 +166918,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2769),
+    [anon_sym_SEMI] = ACTIONS(2755),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166370,8 +166932,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -166415,95 +166978,94 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [580] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2289),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2289),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2289),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [584] = {
+    [sym_preproc_include] = STATE(582),
+    [sym_preproc_def] = STATE(582),
+    [sym_preproc_function_def] = STATE(582),
+    [sym_preproc_call] = STATE(582),
+    [sym_preproc_if_in_statements] = STATE(582),
+    [sym_preproc_ifdef_in_statements] = STATE(582),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(784),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7644),
+    [sym_elseif_clause] = STATE(5759),
+    [sym_else_clause] = STATE(6294),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(582),
+    [aux_sym__block_if_statement_repeat1] = STATE(5759),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -166532,7 +167094,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2757),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166546,8 +167108,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -166591,95 +167154,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [581] = {
-    [sym_preproc_include] = STATE(595),
-    [sym_preproc_def] = STATE(595),
-    [sym_preproc_function_def] = STATE(595),
-    [sym_preproc_call] = STATE(595),
-    [sym_preproc_if_in_statements] = STATE(595),
-    [sym_preproc_ifdef_in_statements] = STATE(595),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(595),
+  [585] = {
+    [sym_preproc_include] = STATE(594),
+    [sym_preproc_def] = STATE(594),
+    [sym_preproc_function_def] = STATE(594),
+    [sym_preproc_call] = STATE(594),
+    [sym_preproc_if_in_statements] = STATE(594),
+    [sym_preproc_ifdef_in_statements] = STATE(594),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(594),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2651),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2651),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2651),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2651),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2651),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2759),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2759),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2759),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2759),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2759),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -166708,7 +167271,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2771),
+    [anon_sym_SEMI] = ACTIONS(2761),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166767,95 +167330,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [582] = {
-    [sym_preproc_include] = STATE(603),
-    [sym_preproc_def] = STATE(603),
-    [sym_preproc_function_def] = STATE(603),
-    [sym_preproc_call] = STATE(603),
-    [sym_preproc_if_in_statements] = STATE(603),
-    [sym_preproc_ifdef_in_statements] = STATE(603),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(603),
+  [586] = {
+    [sym_preproc_include] = STATE(596),
+    [sym_preproc_def] = STATE(596),
+    [sym_preproc_function_def] = STATE(596),
+    [sym_preproc_call] = STATE(596),
+    [sym_preproc_if_in_statements] = STATE(596),
+    [sym_preproc_ifdef_in_statements] = STATE(596),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(596),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2773),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2773),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2773),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2773),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2773),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2362),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2362),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2362),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2362),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2362),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -166884,7 +167447,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2775),
+    [anon_sym_SEMI] = ACTIONS(2763),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -166943,94 +167506,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [583] = {
-    [sym_preproc_include] = STATE(571),
-    [sym_preproc_def] = STATE(571),
-    [sym_preproc_function_def] = STATE(571),
-    [sym_preproc_call] = STATE(571),
-    [sym_preproc_if_in_statements] = STATE(571),
-    [sym_preproc_ifdef_in_statements] = STATE(571),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(776),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7551),
-    [sym_elseif_clause] = STATE(5758),
-    [sym_else_clause] = STATE(6157),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(571),
-    [aux_sym__block_if_statement_repeat1] = STATE(5758),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [587] = {
+    [sym_preproc_include] = STATE(572),
+    [sym_preproc_def] = STATE(572),
+    [sym_preproc_function_def] = STATE(572),
+    [sym_preproc_call] = STATE(572),
+    [sym_preproc_if_in_statements] = STATE(572),
+    [sym_preproc_ifdef_in_statements] = STATE(572),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(572),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2412),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2412),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2412),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2412),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2412),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -167059,7 +167623,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2777),
+    [anon_sym_SEMI] = ACTIONS(2765),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167073,9 +167637,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -167119,94 +167682,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [584] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(780),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7605),
-    [sym_elseif_clause] = STATE(5753),
-    [sym_else_clause] = STATE(6119),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym__block_if_statement_repeat1] = STATE(5753),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [588] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2767),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2767),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2767),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2767),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2767),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -167235,7 +167799,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167249,9 +167813,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -167295,95 +167858,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [585] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [589] = {
+    [sym_preproc_include] = STATE(576),
+    [sym_preproc_def] = STATE(576),
+    [sym_preproc_function_def] = STATE(576),
+    [sym_preproc_call] = STATE(576),
+    [sym_preproc_if_in_statements] = STATE(576),
+    [sym_preproc_ifdef_in_statements] = STATE(576),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(576),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2779),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2779),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2779),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2779),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2779),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2769),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2769),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2769),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2769),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2769),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -167412,7 +167975,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2771),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167471,95 +168034,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [586] = {
-    [sym_preproc_include] = STATE(604),
-    [sym_preproc_def] = STATE(604),
-    [sym_preproc_function_def] = STATE(604),
-    [sym_preproc_call] = STATE(604),
-    [sym_preproc_if_in_statements] = STATE(604),
-    [sym_preproc_ifdef_in_statements] = STATE(604),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(604),
+  [590] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2781),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2781),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2662),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2662),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2662),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2662),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2662),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -167588,7 +168151,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2783),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167647,98 +168210,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [587] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(857),
-    [sym_internal_procedures] = STATE(7018),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [591] = {
+    [sym_preproc_include] = STATE(620),
+    [sym_preproc_def] = STATE(620),
+    [sym_preproc_function_def] = STATE(620),
+    [sym_preproc_call] = STATE(620),
+    [sym_preproc_if_in_statements] = STATE(620),
+    [sym_preproc_ifdef_in_statements] = STATE(620),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(620),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2773),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2773),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(219),
-    [aux_sym_end_program_statement_token2] = ACTIONS(221),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -167764,7 +168327,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2775),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167823,98 +168386,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [588] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2781),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2781),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2781),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [592] = {
+    [sym_preproc_include] = STATE(628),
+    [sym_preproc_def] = STATE(628),
+    [sym_preproc_function_def] = STATE(628),
+    [sym_preproc_call] = STATE(628),
+    [sym_preproc_if_in_statements] = STATE(628),
+    [sym_preproc_ifdef_in_statements] = STATE(628),
+    [sym_internal_procedures] = STATE(8398),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(628),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(2777),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
+    [sym_preproc_comment] = ACTIONS(2779),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -167940,7 +168503,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2781),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -167999,95 +168562,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [589] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [593] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2785),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2785),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2785),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2785),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2783),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2783),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -168116,7 +168679,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -168175,95 +168738,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [590] = {
+  [594] = {
     [sym_preproc_include] = STATE(608),
     [sym_preproc_def] = STATE(608),
     [sym_preproc_function_def] = STATE(608),
     [sym_preproc_call] = STATE(608),
     [sym_preproc_if_in_statements] = STATE(608),
     [sym_preproc_ifdef_in_statements] = STATE(608),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2335),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2335),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2335),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2335),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2335),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2773),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2773),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2773),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -168292,7 +168855,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2787),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -168351,95 +168914,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [591] = {
+  [595] = {
     [sym_preproc_include] = STATE(607),
     [sym_preproc_def] = STATE(607),
     [sym_preproc_function_def] = STATE(607),
     [sym_preproc_call] = STATE(607),
     [sym_preproc_if_in_statements] = STATE(607),
     [sym_preproc_ifdef_in_statements] = STATE(607),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(607),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2383),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2383),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2383),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2383),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2383),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2783),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2783),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2783),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -168468,7 +169031,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2789),
+    [anon_sym_SEMI] = ACTIONS(2785),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -168527,271 +169090,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [592] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(773),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7632),
-    [sym_elseif_clause] = STATE(5754),
-    [sym_else_clause] = STATE(6226),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym__block_if_statement_repeat1] = STATE(5754),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [593] = {
-    [sym_preproc_include] = STATE(617),
-    [sym_preproc_def] = STATE(617),
-    [sym_preproc_function_def] = STATE(617),
-    [sym_preproc_call] = STATE(617),
-    [sym_preproc_if_in_statements] = STATE(617),
-    [sym_preproc_ifdef_in_statements] = STATE(617),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(617),
+  [596] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2478),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2478),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2478),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2478),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2478),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2437),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2437),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -168820,7 +169207,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2791),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -168879,95 +169266,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [594] = {
-    [sym_preproc_include] = STATE(621),
-    [sym_preproc_def] = STATE(621),
-    [sym_preproc_function_def] = STATE(621),
-    [sym_preproc_call] = STATE(621),
-    [sym_preproc_if_in_statements] = STATE(621),
-    [sym_preproc_ifdef_in_statements] = STATE(621),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(621),
+  [597] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2312),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2312),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2787),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2787),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -168996,7 +169383,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2793),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169055,98 +169442,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [595] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2312),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2312),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2312),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [598] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(1060),
+    [sym_internal_procedures] = STATE(6644),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -169172,7 +169559,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169231,98 +169618,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [596] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(1061),
-    [sym_internal_procedures] = STATE(7162),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [599] = {
+    [sym_preproc_include] = STATE(588),
+    [sym_preproc_def] = STATE(588),
+    [sym_preproc_function_def] = STATE(588),
+    [sym_preproc_call] = STATE(588),
+    [sym_preproc_if_in_statements] = STATE(588),
+    [sym_preproc_ifdef_in_statements] = STATE(588),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(588),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2787),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2787),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2787),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -169348,7 +169735,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2789),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169407,98 +169794,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [597] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2453),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [600] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(998),
+    [sym_internal_procedures] = STATE(7145),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(25),
+    [aux_sym_end_program_statement_token2] = ACTIONS(27),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -169524,7 +169911,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169583,95 +169970,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [598] = {
-    [sym_preproc_include] = STATE(573),
-    [sym_preproc_def] = STATE(573),
-    [sym_preproc_function_def] = STATE(573),
-    [sym_preproc_call] = STATE(573),
-    [sym_preproc_if_in_statements] = STATE(573),
-    [sym_preproc_ifdef_in_statements] = STATE(573),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(573),
+  [601] = {
+    [sym_preproc_include] = STATE(590),
+    [sym_preproc_def] = STATE(590),
+    [sym_preproc_function_def] = STATE(590),
+    [sym_preproc_call] = STATE(590),
+    [sym_preproc_if_in_statements] = STATE(590),
+    [sym_preproc_ifdef_in_statements] = STATE(590),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(590),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2795),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2795),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2795),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2795),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2795),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2387),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2387),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -169700,7 +170087,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2797),
+    [anon_sym_SEMI] = ACTIONS(2791),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169759,95 +170146,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [599] = {
-    [sym_preproc_include] = STATE(576),
-    [sym_preproc_def] = STATE(576),
-    [sym_preproc_function_def] = STATE(576),
-    [sym_preproc_call] = STATE(576),
-    [sym_preproc_if_in_statements] = STATE(576),
-    [sym_preproc_ifdef_in_statements] = STATE(576),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(576),
+  [602] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2747),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2747),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2747),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2387),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2387),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2387),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -169876,7 +170263,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2799),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -169935,98 +170322,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [600] = {
-    [sym_preproc_include] = STATE(589),
-    [sym_preproc_def] = STATE(589),
-    [sym_preproc_function_def] = STATE(589),
-    [sym_preproc_call] = STATE(589),
-    [sym_preproc_if_in_statements] = STATE(589),
-    [sym_preproc_ifdef_in_statements] = STATE(589),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(589),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2801),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2801),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [603] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(1000),
+    [sym_internal_procedures] = STATE(6658),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -170052,7 +170439,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2803),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170111,95 +170498,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [601] = {
-    [sym_preproc_include] = STATE(618),
-    [sym_preproc_def] = STATE(618),
-    [sym_preproc_function_def] = STATE(618),
-    [sym_preproc_call] = STATE(618),
-    [sym_preproc_if_in_statements] = STATE(618),
-    [sym_preproc_ifdef_in_statements] = STATE(618),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(618),
+  [604] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2555),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2555),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2327),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2327),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2327),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2327),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2327),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -170228,7 +170615,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2805),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170287,95 +170674,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [602] = {
-    [sym_preproc_include] = STATE(585),
-    [sym_preproc_def] = STATE(585),
-    [sym_preproc_function_def] = STATE(585),
-    [sym_preproc_call] = STATE(585),
-    [sym_preproc_if_in_statements] = STATE(585),
-    [sym_preproc_ifdef_in_statements] = STATE(585),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(585),
+  [605] = {
+    [sym_preproc_include] = STATE(621),
+    [sym_preproc_def] = STATE(621),
+    [sym_preproc_function_def] = STATE(621),
+    [sym_preproc_call] = STATE(621),
+    [sym_preproc_if_in_statements] = STATE(621),
+    [sym_preproc_ifdef_in_statements] = STATE(621),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(621),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2807),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2807),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2531),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -170404,7 +170791,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2809),
+    [anon_sym_SEMI] = ACTIONS(2793),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170463,98 +170850,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [603] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2801),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2801),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2801),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [606] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(853),
+    [sym_internal_procedures] = STATE(6484),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -170580,7 +170967,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170639,95 +171026,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [604] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [607] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2811),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2811),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2811),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2811),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2811),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2795),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2795),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2795),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2795),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2795),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -170756,7 +171143,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170815,98 +171202,274 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [605] = {
-    [sym_preproc_include] = STATE(611),
-    [sym_preproc_def] = STATE(611),
-    [sym_preproc_function_def] = STATE(611),
-    [sym_preproc_call] = STATE(611),
-    [sym_preproc_if_in_statements] = STATE(611),
-    [sym_preproc_ifdef_in_statements] = STATE(611),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(611),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2408),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2408),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [608] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2797),
+    [aux_sym_preproc_def_token1] = ACTIONS(2800),
+    [aux_sym_preproc_if_token1] = ACTIONS(2803),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2806),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2806),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2809),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(2812),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [609] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(1034),
+    [sym_internal_procedures] = STATE(6572),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(668),
+    [aux_sym_end_program_statement_token2] = ACTIONS(670),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -170932,7 +171495,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2813),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -170991,98 +171554,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [606] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2807),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2807),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2807),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [610] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(902),
+    [sym_internal_procedures] = STATE(6990),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(219),
+    [aux_sym_end_program_statement_token2] = ACTIONS(221),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -171108,7 +171671,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -171167,95 +171730,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [607] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [611] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2408),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2408),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2408),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2531),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2531),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -171284,7 +171847,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -171343,95 +171906,94 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [608] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2555),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2555),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2555),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [612] = {
+    [sym_preproc_include] = STATE(579),
+    [sym_preproc_def] = STATE(579),
+    [sym_preproc_function_def] = STATE(579),
+    [sym_preproc_call] = STATE(579),
+    [sym_preproc_if_in_statements] = STATE(579),
+    [sym_preproc_ifdef_in_statements] = STATE(579),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(778),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7460),
+    [sym_elseif_clause] = STATE(5740),
+    [sym_else_clause] = STATE(6194),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(579),
+    [aux_sym__block_if_statement_repeat1] = STATE(5740),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2721),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -171460,7 +172022,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2815),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -171474,8 +172036,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2727),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2729),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -171519,98 +172082,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [609] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(995),
-    [sym_internal_procedures] = STATE(7314),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [613] = {
+    [sym_preproc_include] = STATE(593),
+    [sym_preproc_def] = STATE(593),
+    [sym_preproc_function_def] = STATE(593),
+    [sym_preproc_call] = STATE(593),
+    [sym_preproc_if_in_statements] = STATE(593),
+    [sym_preproc_ifdef_in_statements] = STATE(593),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(593),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2817),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2817),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2817),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2817),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2817),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(25),
-    [aux_sym_end_program_statement_token2] = ACTIONS(27),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -171636,7 +172199,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2819),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -171695,98 +172258,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [610] = {
-    [sym_preproc_include] = STATE(624),
-    [sym_preproc_def] = STATE(624),
-    [sym_preproc_function_def] = STATE(624),
-    [sym_preproc_call] = STATE(624),
-    [sym_preproc_if_in_statements] = STATE(624),
-    [sym_preproc_ifdef_in_statements] = STATE(624),
-    [sym_internal_procedures] = STATE(8451),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(624),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2815),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [614] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2264),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2264),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [sym_preproc_comment] = ACTIONS(2817),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -171812,7 +172375,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2819),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -171871,98 +172434,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [611] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2264),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2264),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2264),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2264),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2264),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [615] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(973),
+    [sym_internal_procedures] = STATE(6814),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(25),
+    [aux_sym_end_program_statement_token2] = ACTIONS(27),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -171988,7 +172551,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172047,95 +172610,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [612] = {
-    [sym_preproc_include] = STATE(606),
-    [sym_preproc_def] = STATE(606),
-    [sym_preproc_function_def] = STATE(606),
-    [sym_preproc_call] = STATE(606),
-    [sym_preproc_if_in_statements] = STATE(606),
-    [sym_preproc_ifdef_in_statements] = STATE(606),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(606),
+  [616] = {
+    [sym_preproc_include] = STATE(570),
+    [sym_preproc_def] = STATE(570),
+    [sym_preproc_function_def] = STATE(570),
+    [sym_preproc_call] = STATE(570),
+    [sym_preproc_if_in_statements] = STATE(570),
+    [sym_preproc_ifdef_in_statements] = STATE(570),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2821),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2821),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2821),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2821),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2821),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2264),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2264),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2264),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -172164,7 +172727,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2823),
+    [anon_sym_SEMI] = ACTIONS(2821),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172223,95 +172786,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [613] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [617] = {
+    [sym_preproc_include] = STATE(597),
+    [sym_preproc_def] = STATE(597),
+    [sym_preproc_function_def] = STATE(597),
+    [sym_preproc_call] = STATE(597),
+    [sym_preproc_if_in_statements] = STATE(597),
+    [sym_preproc_ifdef_in_statements] = STATE(597),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(597),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2628),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2628),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2628),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2628),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2628),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2823),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2823),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2823),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2823),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2823),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -172340,7 +172903,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2825),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172399,98 +172962,98 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [614] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(1099),
-    [sym_internal_procedures] = STATE(7145),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [618] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2508),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2508),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2508),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2508),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2508),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(25),
-    [aux_sym_end_program_statement_token2] = ACTIONS(27),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -172516,7 +173079,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172575,94 +173138,94 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [615] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(1071),
-    [sym_internal_procedures] = STATE(7170),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [619] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym_end_program_statement] = STATE(1093),
+    [sym_internal_procedures] = STATE(7236),
+    [sym_contains_statement] = STATE(6941),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(2743),
+    [aux_sym_preproc_def_token1] = ACTIONS(2745),
+    [aux_sym_preproc_if_token1] = ACTIONS(2747),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2749),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2749),
+    [sym_preproc_directive] = ACTIONS(2751),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(25),
+    [aux_sym_end_program_statement_token2] = ACTIONS(27),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -172692,7 +173255,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2753),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172751,94 +173314,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [616] = {
-    [sym_preproc_include] = STATE(584),
-    [sym_preproc_def] = STATE(584),
-    [sym_preproc_function_def] = STATE(584),
-    [sym_preproc_call] = STATE(584),
-    [sym_preproc_if_in_statements] = STATE(584),
-    [sym_preproc_ifdef_in_statements] = STATE(584),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(773),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7632),
-    [sym_elseif_clause] = STATE(5754),
-    [sym_else_clause] = STATE(6226),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(584),
-    [aux_sym__block_if_statement_repeat1] = STATE(5754),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [620] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
+    [aux_sym_preproc_include_token1] = ACTIONS(2685),
+    [aux_sym_preproc_def_token1] = ACTIONS(2687),
+    [aux_sym_preproc_if_token1] = ACTIONS(2689),
+    [aux_sym_preproc_if_token2] = ACTIONS(2827),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2827),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2827),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2827),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2827),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -172867,7 +173431,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2825),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -172881,9 +173445,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -172927,95 +173490,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [617] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [621] = {
+    [sym_preproc_include] = STATE(608),
+    [sym_preproc_def] = STATE(608),
+    [sym_preproc_function_def] = STATE(608),
+    [sym_preproc_call] = STATE(608),
+    [sym_preproc_if_in_statements] = STATE(608),
+    [sym_preproc_ifdef_in_statements] = STATE(608),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(608),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2505),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2505),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2505),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2460),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2460),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2460),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2460),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2460),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -173044,7 +173607,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2697),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173103,95 +173666,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [618] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
+  [622] = {
+    [sym_preproc_include] = STATE(614),
+    [sym_preproc_def] = STATE(614),
+    [sym_preproc_function_def] = STATE(614),
+    [sym_preproc_call] = STATE(614),
+    [sym_preproc_if_in_statements] = STATE(614),
+    [sym_preproc_ifdef_in_statements] = STATE(614),
+    [sym__statements] = STATE(6881),
+    [sym_statement_label] = STATE(798),
+    [sym_stop_statement] = STATE(6881),
+    [sym_assignment_statement] = STATE(6881),
+    [sym_pointer_association_statement] = STATE(6881),
+    [sym_subroutine_call] = STATE(6881),
+    [sym_keyword_statement] = STATE(6881),
+    [sym_include_statement] = STATE(6881),
+    [sym_do_loop_statement] = STATE(6881),
+    [sym_do_label_statement] = STATE(6881),
+    [sym_end_do_label_statement] = STATE(6881),
+    [sym_if_statement] = STATE(6881),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6881),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6881),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6881),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6881),
+    [sym_select_type_statement] = STATE(6881),
+    [sym_select_rank_statement] = STATE(6881),
+    [sym_block_construct] = STATE(6881),
+    [sym_associate_statement] = STATE(6881),
+    [sym_format_statement] = STATE(6881),
+    [sym_read_statement] = STATE(6881),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6881),
+    [sym_open_statement] = STATE(6881),
+    [sym_close_statement] = STATE(6881),
+    [sym_write_statement] = STATE(6881),
+    [sym_inquire_statement] = STATE(6881),
+    [sym_file_position_statement] = STATE(6881),
+    [sym_allocate_statement] = STATE(6881),
+    [sym_entry_statement] = STATE(6881),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6881),
+    [sym_coarray_team_statement] = STATE(6881),
+    [sym_coarray_critical_statement] = STATE(6881),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(614),
     [aux_sym_preproc_include_token1] = ACTIONS(2685),
     [aux_sym_preproc_def_token1] = ACTIONS(2687),
     [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2360),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2360),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2360),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2360),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2360),
-    [sym_preproc_directive] = ACTIONS(2693),
+    [aux_sym_preproc_if_token2] = ACTIONS(2612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2693),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2693),
+    [aux_sym_preproc_else_token1] = ACTIONS(2612),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2612),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2612),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2612),
+    [sym_preproc_directive] = ACTIONS(2695),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -173220,7 +173783,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2829),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173279,97 +173842,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [619] = {
-    [sym_preproc_include] = STATE(592),
-    [sym_preproc_def] = STATE(592),
-    [sym_preproc_function_def] = STATE(592),
-    [sym_preproc_call] = STATE(592),
-    [sym_preproc_if_in_statements] = STATE(592),
-    [sym_preproc_ifdef_in_statements] = STATE(592),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(782),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7701),
-    [sym_elseif_clause] = STATE(5743),
-    [sym_else_clause] = STATE(6301),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(592),
-    [aux_sym__block_if_statement_repeat1] = STATE(5743),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [623] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8532),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(1380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2725),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -173395,7 +173958,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2827),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173409,9 +173972,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2731),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2733),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -173455,94 +174017,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [620] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym_end_program_statement] = STATE(1055),
-    [sym_internal_procedures] = STATE(7244),
-    [sym_contains_statement] = STATE(7211),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(2735),
-    [aux_sym_preproc_def_token1] = ACTIONS(2737),
-    [aux_sym_preproc_if_token1] = ACTIONS(2739),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2741),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2741),
-    [sym_preproc_directive] = ACTIONS(2743),
+  [624] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8261),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(2833),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(668),
-    [aux_sym_end_program_statement_token2] = ACTIONS(670),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -173572,7 +174133,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2745),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173631,98 +174192,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [621] = {
-    [sym_preproc_include] = STATE(570),
-    [sym_preproc_def] = STATE(570),
-    [sym_preproc_function_def] = STATE(570),
-    [sym_preproc_call] = STATE(570),
-    [sym_preproc_if_in_statements] = STATE(570),
-    [sym_preproc_ifdef_in_statements] = STATE(570),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(570),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2532),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2532),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2532),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2532),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2532),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [625] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8275),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(1380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -173748,7 +174308,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2749),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173807,98 +174367,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [622] = {
-    [sym_preproc_include] = STATE(613),
-    [sym_preproc_def] = STATE(613),
-    [sym_preproc_function_def] = STATE(613),
-    [sym_preproc_call] = STATE(613),
-    [sym_preproc_if_in_statements] = STATE(613),
-    [sym_preproc_ifdef_in_statements] = STATE(613),
-    [sym__statements] = STATE(7067),
-    [sym_statement_label] = STATE(792),
-    [sym_stop_statement] = STATE(7067),
-    [sym_assignment_statement] = STATE(7067),
-    [sym_pointer_association_statement] = STATE(7067),
-    [sym_subroutine_call] = STATE(7067),
-    [sym_keyword_statement] = STATE(7067),
-    [sym_include_statement] = STATE(7067),
-    [sym_do_loop_statement] = STATE(7067),
-    [sym_do_label_statement] = STATE(7067),
-    [sym_end_do_label_statement] = STATE(7067),
-    [sym_if_statement] = STATE(7067),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7067),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7067),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7067),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7067),
-    [sym_select_type_statement] = STATE(7067),
-    [sym_select_rank_statement] = STATE(7067),
-    [sym_block_construct] = STATE(7067),
-    [sym_associate_statement] = STATE(7067),
-    [sym_format_statement] = STATE(7067),
-    [sym_read_statement] = STATE(7067),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7067),
-    [sym_open_statement] = STATE(7067),
-    [sym_close_statement] = STATE(7067),
-    [sym_write_statement] = STATE(7067),
-    [sym_inquire_statement] = STATE(7067),
-    [sym_file_position_statement] = STATE(7067),
-    [sym_allocate_statement] = STATE(7067),
-    [sym_entry_statement] = STATE(7067),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7067),
-    [sym_coarray_team_statement] = STATE(7067),
-    [sym_coarray_critical_statement] = STATE(7067),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(613),
-    [aux_sym_preproc_include_token1] = ACTIONS(2685),
-    [aux_sym_preproc_def_token1] = ACTIONS(2687),
-    [aux_sym_preproc_if_token1] = ACTIONS(2689),
-    [aux_sym_preproc_if_token2] = ACTIONS(2453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2691),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2691),
-    [aux_sym_preproc_else_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2453),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2453),
-    [sym_preproc_directive] = ACTIONS(2693),
+  [626] = {
+    [sym_preproc_include] = STATE(626),
+    [sym_preproc_def] = STATE(626),
+    [sym_preproc_function_def] = STATE(626),
+    [sym_preproc_call] = STATE(626),
+    [sym_interface] = STATE(626),
+    [sym_interface_statement] = STATE(3919),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(626),
+    [sym_use_statement] = STATE(7276),
+    [sym_implicit_statement] = STATE(7276),
+    [sym_save_statement] = STATE(7276),
+    [sym_private_statement] = STATE(626),
+    [sym_public_statement] = STATE(626),
+    [sym_namelist_statement] = STATE(7276),
+    [sym_common_statement] = STATE(7276),
+    [sym_import_statement] = STATE(7276),
+    [sym_derived_type_definition] = STATE(626),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4305),
+    [sym_variable_declaration] = STATE(7276),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7276),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7276),
+    [sym_equivalence_statement] = STATE(7276),
+    [sym_statement_label] = STATE(6672),
+    [sym_include_statement] = STATE(7276),
+    [sym_data_statement] = STATE(7276),
+    [sym_enum] = STATE(626),
+    [sym_enum_statement] = STATE(6065),
+    [sym_enumeration_type] = STATE(626),
+    [sym_enumeration_type_statement] = STATE(6123),
+    [sym_statement_function] = STATE(7276),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(626),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(2835),
+    [aux_sym_preproc_def_token1] = ACTIONS(2838),
+    [aux_sym_preproc_if_token1] = ACTIONS(2841),
+    [aux_sym_preproc_if_token2] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2841),
+    [aux_sym_preproc_else_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2841),
+    [sym_preproc_directive] = ACTIONS(2843),
+    [anon_sym_LPAREN2] = ACTIONS(2841),
+    [anon_sym_PLUS] = ACTIONS(2846),
+    [anon_sym_DASH] = ACTIONS(2846),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2848),
+    [aux_sym_interface_statement_token1] = ACTIONS(2851),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2854),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2854),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(2857),
+    [aux_sym_language_binding_token1] = ACTIONS(2860),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(2863),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2866),
+    [aux_sym_contains_statement_token1] = ACTIONS(2841),
+    [aux_sym_use_statement_token1] = ACTIONS(2869),
+    [aux_sym_use_statement_token2] = ACTIONS(2866),
+    [aux_sym_implicit_statement_token1] = ACTIONS(2872),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2875),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2866),
+    [aux_sym_save_statement_token1] = ACTIONS(2878),
+    [aux_sym_private_statement_token1] = ACTIONS(2881),
+    [aux_sym_public_statement_token1] = ACTIONS(2884),
+    [aux_sym_namelist_statement_token1] = ACTIONS(2887),
+    [aux_sym_common_statement_token1] = ACTIONS(2890),
+    [aux_sym_import_statement_token1] = ACTIONS(2893),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2866),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(2896),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token1] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token4] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2866),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2908),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(2911),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(2905),
+    [aux_sym_derived_type_token1] = ACTIONS(2914),
+    [aux_sym_declared_type_token1] = ACTIONS(2917),
+    [aux_sym_declared_type_token2] = ACTIONS(2917),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(2920),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2923),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(2926),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2929),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(2899),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2932),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(2899),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2854),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2854),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(2935),
+    [anon_sym_SEMI] = ACTIONS(2846),
+    [aux_sym_stop_statement_token1] = ACTIONS(2854),
+    [aux_sym_stop_statement_token2] = ACTIONS(2854),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2841),
+    [aux_sym_include_statement_token1] = ACTIONS(2938),
+    [aux_sym_data_statement_token1] = ACTIONS(2941),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2841),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2854),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2841),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2841),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2944),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2841),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2841),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2841),
+    [aux_sym_block_construct_token1] = ACTIONS(2854),
+    [aux_sym_associate_statement_token1] = ACTIONS(2841),
+    [aux_sym_format_statement_token1] = ACTIONS(2854),
+    [aux_sym_print_statement_token1] = ACTIONS(2841),
+    [aux_sym_open_statement_token1] = ACTIONS(2841),
+    [aux_sym_close_statement_token1] = ACTIONS(2841),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2854),
+    [aux_sym_enum_statement_token1] = ACTIONS(2947),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(2950),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2841),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2841),
+    [aux_sym_entry_statement_token1] = ACTIONS(2854),
+    [aux_sym_logical_expression_token5] = ACTIONS(2846),
+    [anon_sym_DOT] = ACTIONS(2841),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2846),
+    [anon_sym_LBRACK] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2846),
+    [aux_sym_null_literal_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2841),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2854),
+    [aux_sym_identifier_token1] = ACTIONS(2854),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2953),
+    [sym__float_literal] = ACTIONS(2846),
+    [sym__boz_literal] = ACTIONS(2846),
+    [sym__string_literal] = ACTIONS(2846),
+    [sym__string_literal_kind] = ACTIONS(2846),
+  },
+  [627] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(7882),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
+    [aux_sym_preproc_if_token1] = ACTIONS(1354),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -173924,7 +174658,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2829),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -173983,93 +174717,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [623] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(7752),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [628] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8537),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2831),
+    [aux_sym_preproc_if_token2] = ACTIONS(2956),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -174099,7 +174833,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -174158,93 +174892,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [624] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(7784),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [629] = {
+    [sym_preproc_include] = STATE(631),
+    [sym_preproc_def] = STATE(631),
+    [sym_preproc_function_def] = STATE(631),
+    [sym_preproc_call] = STATE(631),
+    [sym_preproc_if_in_statements] = STATE(631),
+    [sym_preproc_ifdef_in_statements] = STATE(631),
+    [sym_internal_procedures] = STATE(8537),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(631),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2835),
+    [aux_sym_preproc_if_token2] = ACTIONS(2956),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -174274,7 +175008,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2958),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -174333,93 +175067,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [625] = {
-    [sym_preproc_include] = STATE(628),
-    [sym_preproc_def] = STATE(628),
-    [sym_preproc_function_def] = STATE(628),
-    [sym_preproc_call] = STATE(628),
-    [sym_preproc_if_in_statements] = STATE(628),
-    [sym_preproc_ifdef_in_statements] = STATE(628),
-    [sym_internal_procedures] = STATE(7784),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(628),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [630] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8394),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2835),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -174449,7 +175183,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2837),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -174508,268 +175242,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [626] = {
-    [sym_preproc_include] = STATE(626),
-    [sym_preproc_def] = STATE(626),
-    [sym_preproc_function_def] = STATE(626),
-    [sym_preproc_call] = STATE(626),
-    [sym_preproc_if_in_statements] = STATE(626),
-    [sym_preproc_ifdef_in_statements] = STATE(626),
-    [sym_preproc_if_in_procedure_statements] = STATE(626),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(626),
-    [sym__statements] = STATE(7277),
-    [sym_statement_label] = STATE(798),
-    [sym_stop_statement] = STATE(7277),
-    [sym_assignment_statement] = STATE(7277),
-    [sym_pointer_association_statement] = STATE(7277),
-    [sym_subroutine_call] = STATE(7277),
-    [sym_keyword_statement] = STATE(7277),
-    [sym_include_statement] = STATE(7277),
-    [sym_do_loop_statement] = STATE(7277),
-    [sym_do_label_statement] = STATE(7277),
-    [sym_end_do_label_statement] = STATE(7277),
-    [sym_if_statement] = STATE(7277),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7277),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7277),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7277),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7277),
-    [sym_select_type_statement] = STATE(7277),
-    [sym_select_rank_statement] = STATE(7277),
-    [sym_block_construct] = STATE(7277),
-    [sym_associate_statement] = STATE(7277),
-    [sym_format_statement] = STATE(7277),
-    [sym_read_statement] = STATE(7277),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7277),
-    [sym_open_statement] = STATE(7277),
-    [sym_close_statement] = STATE(7277),
-    [sym_write_statement] = STATE(7277),
-    [sym_inquire_statement] = STATE(7277),
-    [sym_file_position_statement] = STATE(7277),
-    [sym_allocate_statement] = STATE(7277),
-    [sym_entry_statement] = STATE(7277),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7277),
-    [sym_coarray_team_statement] = STATE(7277),
-    [sym_coarray_critical_statement] = STATE(7277),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(626),
-    [aux_sym_preproc_include_token1] = ACTIONS(2839),
-    [aux_sym_preproc_def_token1] = ACTIONS(2842),
-    [aux_sym_preproc_if_token1] = ACTIONS(2845),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2848),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2848),
-    [sym_preproc_directive] = ACTIONS(2851),
-    [anon_sym_LPAREN2] = ACTIONS(2854),
-    [anon_sym_PLUS] = ACTIONS(2857),
-    [anon_sym_DASH] = ACTIONS(2857),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2860),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2863),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2866),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2871),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2871),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2871),
-    [aux_sym_save_statement_token1] = ACTIONS(2871),
-    [aux_sym_private_statement_token1] = ACTIONS(2871),
-    [aux_sym_public_statement_token1] = ACTIONS(2871),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2871),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2874),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2871),
-    [anon_sym_SEMI] = ACTIONS(2880),
-    [aux_sym_stop_statement_token1] = ACTIONS(2883),
-    [aux_sym_stop_statement_token2] = ACTIONS(2886),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2889),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2892),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2898),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2901),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2892),
-    [aux_sym_include_statement_token1] = ACTIONS(2904),
-    [aux_sym_data_statement_token1] = ACTIONS(2871),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2907),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2910),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2871),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2871),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2913),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2916),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2919),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2922),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2925),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2928),
-    [aux_sym_block_construct_token1] = ACTIONS(2931),
-    [aux_sym_associate_statement_token1] = ACTIONS(2934),
-    [aux_sym_format_statement_token1] = ACTIONS(2937),
-    [aux_sym_print_statement_token1] = ACTIONS(2940),
-    [aux_sym_open_statement_token1] = ACTIONS(2943),
-    [aux_sym_close_statement_token1] = ACTIONS(2946),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2949),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2955),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2958),
-    [aux_sym_entry_statement_token1] = ACTIONS(2961),
-    [aux_sym_logical_expression_token5] = ACTIONS(2964),
-    [anon_sym_DOT] = ACTIONS(2967),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2970),
-    [anon_sym_LBRACK] = ACTIONS(2973),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2976),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2976),
-    [aux_sym_null_literal_token1] = ACTIONS(2979),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2985),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2988),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2997),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3000),
-    [aux_sym_identifier_token1] = ACTIONS(2871),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3003),
-    [sym__float_literal] = ACTIONS(3006),
-    [sym__boz_literal] = ACTIONS(3006),
-    [sym__string_literal] = ACTIONS(3009),
-    [sym__string_literal_kind] = ACTIONS(3012),
-  },
-  [627] = {
-    [sym_preproc_include] = STATE(637),
-    [sym_preproc_def] = STATE(637),
-    [sym_preproc_function_def] = STATE(637),
-    [sym_preproc_call] = STATE(637),
-    [sym_preproc_if_in_statements] = STATE(637),
-    [sym_preproc_ifdef_in_statements] = STATE(637),
-    [sym_internal_procedures] = STATE(7752),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(637),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [631] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8654),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(2831),
+    [aux_sym_preproc_if_token2] = ACTIONS(2960),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -174799,7 +175358,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3015),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -174858,93 +175417,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [628] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8345),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [632] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8437),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(3017),
+    [aux_sym_preproc_if_token2] = ACTIONS(2962),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -174974,7 +175533,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -175033,93 +175592,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [629] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8407),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [633] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(7857),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(1380),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -175149,7 +175708,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -175208,443 +175767,443 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [630] = {
-    [sym_preproc_include] = STATE(630),
-    [sym_preproc_def] = STATE(630),
-    [sym_preproc_function_def] = STATE(630),
-    [sym_preproc_call] = STATE(630),
-    [sym_interface] = STATE(630),
-    [sym_interface_statement] = STATE(3820),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(630),
-    [sym_use_statement] = STATE(6835),
-    [sym_implicit_statement] = STATE(6835),
-    [sym_save_statement] = STATE(6835),
-    [sym_private_statement] = STATE(630),
-    [sym_public_statement] = STATE(630),
-    [sym_namelist_statement] = STATE(6835),
-    [sym_common_statement] = STATE(6835),
-    [sym_import_statement] = STATE(6835),
-    [sym_derived_type_definition] = STATE(630),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4309),
-    [sym_variable_declaration] = STATE(6835),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6835),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6835),
-    [sym_equivalence_statement] = STATE(6835),
-    [sym_statement_label] = STATE(7189),
-    [sym_include_statement] = STATE(6835),
-    [sym_data_statement] = STATE(6835),
-    [sym_enum] = STATE(630),
-    [sym_enum_statement] = STATE(6047),
-    [sym_enumeration_type] = STATE(630),
-    [sym_enumeration_type_statement] = STATE(6210),
-    [sym_statement_function] = STATE(6835),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(630),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(3019),
-    [aux_sym_preproc_def_token1] = ACTIONS(3022),
-    [aux_sym_preproc_if_token1] = ACTIONS(3025),
-    [aux_sym_preproc_if_token2] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3025),
-    [aux_sym_preproc_else_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elif_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(3025),
-    [sym_preproc_directive] = ACTIONS(3027),
-    [anon_sym_LPAREN2] = ACTIONS(3025),
-    [anon_sym_PLUS] = ACTIONS(3030),
-    [anon_sym_DASH] = ACTIONS(3030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3032),
-    [aux_sym_interface_statement_token1] = ACTIONS(3035),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3041),
-    [aux_sym_language_binding_token1] = ACTIONS(3044),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3047),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3050),
-    [aux_sym_contains_statement_token1] = ACTIONS(3025),
-    [aux_sym_use_statement_token1] = ACTIONS(3053),
-    [aux_sym_use_statement_token2] = ACTIONS(3050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3056),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3059),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3050),
-    [aux_sym_save_statement_token1] = ACTIONS(3062),
-    [aux_sym_private_statement_token1] = ACTIONS(3065),
-    [aux_sym_public_statement_token1] = ACTIONS(3068),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3071),
-    [aux_sym_common_statement_token1] = ACTIONS(3074),
-    [aux_sym_import_statement_token1] = ACTIONS(3077),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3080),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3092),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3095),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3089),
-    [aux_sym_derived_type_token1] = ACTIONS(3098),
-    [aux_sym_declared_type_token1] = ACTIONS(3101),
-    [aux_sym_declared_type_token2] = ACTIONS(3101),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3107),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3110),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3113),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3083),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3083),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3119),
-    [anon_sym_SEMI] = ACTIONS(3030),
-    [aux_sym_stop_statement_token1] = ACTIONS(3038),
-    [aux_sym_stop_statement_token2] = ACTIONS(3038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3025),
-    [aux_sym_include_statement_token1] = ACTIONS(3122),
-    [aux_sym_data_statement_token1] = ACTIONS(3125),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3025),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3025),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3025),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3025),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3025),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3025),
-    [aux_sym_block_construct_token1] = ACTIONS(3038),
-    [aux_sym_associate_statement_token1] = ACTIONS(3025),
-    [aux_sym_format_statement_token1] = ACTIONS(3038),
-    [aux_sym_print_statement_token1] = ACTIONS(3025),
-    [aux_sym_open_statement_token1] = ACTIONS(3025),
-    [aux_sym_close_statement_token1] = ACTIONS(3025),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3038),
-    [aux_sym_enum_statement_token1] = ACTIONS(3131),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3134),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3025),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3025),
-    [aux_sym_entry_statement_token1] = ACTIONS(3038),
-    [aux_sym_logical_expression_token5] = ACTIONS(3030),
-    [anon_sym_DOT] = ACTIONS(3025),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3030),
-    [anon_sym_LBRACK] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3030),
-    [aux_sym_null_literal_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3025),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3038),
-    [aux_sym_identifier_token1] = ACTIONS(3038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3137),
-    [sym__float_literal] = ACTIONS(3030),
-    [sym__boz_literal] = ACTIONS(3030),
-    [sym__string_literal] = ACTIONS(3030),
-    [sym__string_literal_kind] = ACTIONS(3030),
+  [634] = {
+    [sym_preproc_include] = STATE(634),
+    [sym_preproc_def] = STATE(634),
+    [sym_preproc_function_def] = STATE(634),
+    [sym_preproc_call] = STATE(634),
+    [sym_preproc_if_in_statements] = STATE(634),
+    [sym_preproc_ifdef_in_statements] = STATE(634),
+    [sym_preproc_if_in_procedure_statements] = STATE(634),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(634),
+    [sym__statements] = STATE(6524),
+    [sym_statement_label] = STATE(812),
+    [sym_stop_statement] = STATE(6524),
+    [sym_assignment_statement] = STATE(6524),
+    [sym_pointer_association_statement] = STATE(6524),
+    [sym_subroutine_call] = STATE(6524),
+    [sym_keyword_statement] = STATE(6524),
+    [sym_include_statement] = STATE(6524),
+    [sym_do_loop_statement] = STATE(6524),
+    [sym_do_label_statement] = STATE(6524),
+    [sym_end_do_label_statement] = STATE(6524),
+    [sym_if_statement] = STATE(6524),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6524),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6524),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6524),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6524),
+    [sym_select_type_statement] = STATE(6524),
+    [sym_select_rank_statement] = STATE(6524),
+    [sym_block_construct] = STATE(6524),
+    [sym_associate_statement] = STATE(6524),
+    [sym_format_statement] = STATE(6524),
+    [sym_read_statement] = STATE(6524),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6524),
+    [sym_open_statement] = STATE(6524),
+    [sym_close_statement] = STATE(6524),
+    [sym_write_statement] = STATE(6524),
+    [sym_inquire_statement] = STATE(6524),
+    [sym_file_position_statement] = STATE(6524),
+    [sym_allocate_statement] = STATE(6524),
+    [sym_entry_statement] = STATE(6524),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6524),
+    [sym_coarray_team_statement] = STATE(6524),
+    [sym_coarray_critical_statement] = STATE(6524),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(634),
+    [aux_sym_preproc_include_token1] = ACTIONS(2964),
+    [aux_sym_preproc_def_token1] = ACTIONS(2967),
+    [aux_sym_preproc_if_token1] = ACTIONS(2970),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2973),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2973),
+    [sym_preproc_directive] = ACTIONS(2976),
+    [anon_sym_LPAREN2] = ACTIONS(2979),
+    [anon_sym_PLUS] = ACTIONS(2982),
+    [anon_sym_DASH] = ACTIONS(2982),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2985),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2988),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2991),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2996),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2996),
+    [aux_sym_save_statement_token1] = ACTIONS(2996),
+    [aux_sym_private_statement_token1] = ACTIONS(2996),
+    [aux_sym_public_statement_token1] = ACTIONS(2996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2999),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2996),
+    [anon_sym_SEMI] = ACTIONS(3005),
+    [aux_sym_stop_statement_token1] = ACTIONS(3008),
+    [aux_sym_stop_statement_token2] = ACTIONS(3011),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3014),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3017),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3023),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3026),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3017),
+    [aux_sym_include_statement_token1] = ACTIONS(3029),
+    [aux_sym_data_statement_token1] = ACTIONS(2996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3035),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3041),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3047),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3053),
+    [aux_sym_block_construct_token1] = ACTIONS(3056),
+    [aux_sym_associate_statement_token1] = ACTIONS(3059),
+    [aux_sym_format_statement_token1] = ACTIONS(3062),
+    [aux_sym_print_statement_token1] = ACTIONS(3065),
+    [aux_sym_open_statement_token1] = ACTIONS(3068),
+    [aux_sym_close_statement_token1] = ACTIONS(3071),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3080),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3083),
+    [aux_sym_entry_statement_token1] = ACTIONS(3086),
+    [aux_sym_logical_expression_token5] = ACTIONS(3089),
+    [anon_sym_DOT] = ACTIONS(3092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3095),
+    [anon_sym_LBRACK] = ACTIONS(3098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3101),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3101),
+    [aux_sym_null_literal_token1] = ACTIONS(3104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3110),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3113),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3119),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3122),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3125),
+    [aux_sym_identifier_token1] = ACTIONS(2996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3128),
+    [sym__float_literal] = ACTIONS(3131),
+    [sym__boz_literal] = ACTIONS(3131),
+    [sym__string_literal] = ACTIONS(3134),
+    [sym__string_literal_kind] = ACTIONS(3137),
   },
-  [631] = {
-    [sym_preproc_include] = STATE(631),
-    [sym_preproc_def] = STATE(631),
-    [sym_preproc_function_def] = STATE(631),
-    [sym_preproc_call] = STATE(631),
-    [sym_preproc_if_in_statements] = STATE(631),
-    [sym_preproc_ifdef_in_statements] = STATE(631),
-    [sym_preproc_if_in_procedure_statements] = STATE(631),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(631),
-    [sym__statements] = STATE(6945),
-    [sym_statement_label] = STATE(795),
-    [sym_stop_statement] = STATE(6945),
-    [sym_assignment_statement] = STATE(6945),
-    [sym_pointer_association_statement] = STATE(6945),
-    [sym_subroutine_call] = STATE(6945),
-    [sym_keyword_statement] = STATE(6945),
-    [sym_include_statement] = STATE(6945),
-    [sym_do_loop_statement] = STATE(6945),
-    [sym_do_label_statement] = STATE(6945),
-    [sym_end_do_label_statement] = STATE(6945),
-    [sym_if_statement] = STATE(6945),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6945),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6945),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6945),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6945),
-    [sym_select_type_statement] = STATE(6945),
-    [sym_select_rank_statement] = STATE(6945),
-    [sym_block_construct] = STATE(6945),
-    [sym_associate_statement] = STATE(6945),
-    [sym_format_statement] = STATE(6945),
-    [sym_read_statement] = STATE(6945),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6945),
-    [sym_open_statement] = STATE(6945),
-    [sym_close_statement] = STATE(6945),
-    [sym_write_statement] = STATE(6945),
-    [sym_inquire_statement] = STATE(6945),
-    [sym_file_position_statement] = STATE(6945),
-    [sym_allocate_statement] = STATE(6945),
-    [sym_entry_statement] = STATE(6945),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6945),
-    [sym_coarray_team_statement] = STATE(6945),
-    [sym_coarray_critical_statement] = STATE(6945),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(631),
+  [635] = {
+    [sym_preproc_include] = STATE(635),
+    [sym_preproc_def] = STATE(635),
+    [sym_preproc_function_def] = STATE(635),
+    [sym_preproc_call] = STATE(635),
+    [sym_preproc_if_in_statements] = STATE(635),
+    [sym_preproc_ifdef_in_statements] = STATE(635),
+    [sym_preproc_if_in_procedure_statements] = STATE(635),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(635),
+    [sym__statements] = STATE(7170),
+    [sym_statement_label] = STATE(801),
+    [sym_stop_statement] = STATE(7170),
+    [sym_assignment_statement] = STATE(7170),
+    [sym_pointer_association_statement] = STATE(7170),
+    [sym_subroutine_call] = STATE(7170),
+    [sym_keyword_statement] = STATE(7170),
+    [sym_include_statement] = STATE(7170),
+    [sym_do_loop_statement] = STATE(7170),
+    [sym_do_label_statement] = STATE(7170),
+    [sym_end_do_label_statement] = STATE(7170),
+    [sym_if_statement] = STATE(7170),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7170),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7170),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7170),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7170),
+    [sym_select_type_statement] = STATE(7170),
+    [sym_select_rank_statement] = STATE(7170),
+    [sym_block_construct] = STATE(7170),
+    [sym_associate_statement] = STATE(7170),
+    [sym_format_statement] = STATE(7170),
+    [sym_read_statement] = STATE(7170),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7170),
+    [sym_open_statement] = STATE(7170),
+    [sym_close_statement] = STATE(7170),
+    [sym_write_statement] = STATE(7170),
+    [sym_inquire_statement] = STATE(7170),
+    [sym_file_position_statement] = STATE(7170),
+    [sym_allocate_statement] = STATE(7170),
+    [sym_entry_statement] = STATE(7170),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7170),
+    [sym_coarray_team_statement] = STATE(7170),
+    [sym_coarray_critical_statement] = STATE(7170),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(635),
     [aux_sym_preproc_include_token1] = ACTIONS(3140),
     [aux_sym_preproc_def_token1] = ACTIONS(3143),
     [aux_sym_preproc_if_token1] = ACTIONS(3146),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3149),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3149),
     [sym_preproc_directive] = ACTIONS(3152),
-    [anon_sym_LPAREN2] = ACTIONS(2854),
-    [anon_sym_PLUS] = ACTIONS(2857),
-    [anon_sym_DASH] = ACTIONS(2857),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2860),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2863),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2866),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2871),
-    [aux_sym_end_function_statement_token1] = ACTIONS(2869),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2871),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2871),
-    [aux_sym_save_statement_token1] = ACTIONS(2871),
-    [aux_sym_private_statement_token1] = ACTIONS(2871),
-    [aux_sym_public_statement_token1] = ACTIONS(2871),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2871),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2874),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2871),
+    [anon_sym_LPAREN2] = ACTIONS(2979),
+    [anon_sym_PLUS] = ACTIONS(2982),
+    [anon_sym_DASH] = ACTIONS(2982),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2985),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2988),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2991),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2996),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2996),
+    [aux_sym_save_statement_token1] = ACTIONS(2996),
+    [aux_sym_private_statement_token1] = ACTIONS(2996),
+    [aux_sym_public_statement_token1] = ACTIONS(2996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2999),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2996),
     [anon_sym_SEMI] = ACTIONS(3155),
-    [aux_sym_stop_statement_token1] = ACTIONS(2883),
-    [aux_sym_stop_statement_token2] = ACTIONS(2886),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2889),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2892),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2898),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2901),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2892),
-    [aux_sym_include_statement_token1] = ACTIONS(2904),
-    [aux_sym_data_statement_token1] = ACTIONS(2871),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2907),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2910),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2871),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2871),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2913),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2916),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2919),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2922),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2925),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2928),
-    [aux_sym_block_construct_token1] = ACTIONS(2931),
-    [aux_sym_associate_statement_token1] = ACTIONS(2934),
-    [aux_sym_format_statement_token1] = ACTIONS(2937),
-    [aux_sym_print_statement_token1] = ACTIONS(2940),
-    [aux_sym_open_statement_token1] = ACTIONS(2943),
-    [aux_sym_close_statement_token1] = ACTIONS(2946),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2949),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2955),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2958),
-    [aux_sym_entry_statement_token1] = ACTIONS(2961),
-    [aux_sym_logical_expression_token5] = ACTIONS(2964),
-    [anon_sym_DOT] = ACTIONS(2967),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2970),
-    [anon_sym_LBRACK] = ACTIONS(2973),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2976),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2976),
-    [aux_sym_null_literal_token1] = ACTIONS(2979),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2985),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2988),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2997),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3000),
-    [aux_sym_identifier_token1] = ACTIONS(2871),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3003),
-    [sym__float_literal] = ACTIONS(3006),
-    [sym__boz_literal] = ACTIONS(3006),
-    [sym__string_literal] = ACTIONS(3009),
-    [sym__string_literal_kind] = ACTIONS(3012),
+    [aux_sym_stop_statement_token1] = ACTIONS(3008),
+    [aux_sym_stop_statement_token2] = ACTIONS(3011),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3014),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3017),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3023),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3026),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3017),
+    [aux_sym_include_statement_token1] = ACTIONS(3029),
+    [aux_sym_data_statement_token1] = ACTIONS(2996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3035),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3041),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3047),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3053),
+    [aux_sym_block_construct_token1] = ACTIONS(3056),
+    [aux_sym_associate_statement_token1] = ACTIONS(3059),
+    [aux_sym_format_statement_token1] = ACTIONS(3062),
+    [aux_sym_print_statement_token1] = ACTIONS(3065),
+    [aux_sym_open_statement_token1] = ACTIONS(3068),
+    [aux_sym_close_statement_token1] = ACTIONS(3071),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3080),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3083),
+    [aux_sym_entry_statement_token1] = ACTIONS(3086),
+    [aux_sym_logical_expression_token5] = ACTIONS(3089),
+    [anon_sym_DOT] = ACTIONS(3092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3095),
+    [anon_sym_LBRACK] = ACTIONS(3098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3101),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3101),
+    [aux_sym_null_literal_token1] = ACTIONS(3104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3110),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3113),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3119),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3122),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3125),
+    [aux_sym_identifier_token1] = ACTIONS(2996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3128),
+    [sym__float_literal] = ACTIONS(3131),
+    [sym__boz_literal] = ACTIONS(3131),
+    [sym__string_literal] = ACTIONS(3134),
+    [sym__string_literal_kind] = ACTIONS(3137),
   },
-  [632] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8217),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [636] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8258),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
+    [aux_sym_preproc_if_token2] = ACTIONS(3158),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -175674,7 +176233,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -175733,268 +176292,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [633] = {
-    [sym_preproc_include] = STATE(633),
-    [sym_preproc_def] = STATE(633),
-    [sym_preproc_function_def] = STATE(633),
-    [sym_preproc_call] = STATE(633),
-    [sym_preproc_if_in_statements] = STATE(633),
-    [sym_preproc_ifdef_in_statements] = STATE(633),
-    [sym_preproc_if_in_procedure_statements] = STATE(633),
-    [sym_preproc_ifdef_in_procedure_statements] = STATE(633),
-    [sym__statements] = STATE(7144),
-    [sym_statement_label] = STATE(801),
-    [sym_stop_statement] = STATE(7144),
-    [sym_assignment_statement] = STATE(7144),
-    [sym_pointer_association_statement] = STATE(7144),
-    [sym_subroutine_call] = STATE(7144),
-    [sym_keyword_statement] = STATE(7144),
-    [sym_include_statement] = STATE(7144),
-    [sym_do_loop_statement] = STATE(7144),
-    [sym_do_label_statement] = STATE(7144),
-    [sym_end_do_label_statement] = STATE(7144),
-    [sym_if_statement] = STATE(7144),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7144),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7144),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7144),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7144),
-    [sym_select_type_statement] = STATE(7144),
-    [sym_select_rank_statement] = STATE(7144),
-    [sym_block_construct] = STATE(7144),
-    [sym_associate_statement] = STATE(7144),
-    [sym_format_statement] = STATE(7144),
-    [sym_read_statement] = STATE(7144),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7144),
-    [sym_open_statement] = STATE(7144),
-    [sym_close_statement] = STATE(7144),
-    [sym_write_statement] = STATE(7144),
-    [sym_inquire_statement] = STATE(7144),
-    [sym_file_position_statement] = STATE(7144),
-    [sym_allocate_statement] = STATE(7144),
-    [sym_entry_statement] = STATE(7144),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7144),
-    [sym_coarray_team_statement] = STATE(7144),
-    [sym_coarray_critical_statement] = STATE(7144),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_subroutine_repeat1] = STATE(633),
-    [aux_sym_preproc_include_token1] = ACTIONS(3158),
-    [aux_sym_preproc_def_token1] = ACTIONS(3161),
-    [aux_sym_preproc_if_token1] = ACTIONS(3164),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3167),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3167),
-    [sym_preproc_directive] = ACTIONS(3170),
-    [anon_sym_LPAREN2] = ACTIONS(2854),
-    [anon_sym_PLUS] = ACTIONS(2857),
-    [anon_sym_DASH] = ACTIONS(2857),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2860),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2863),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2866),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2871),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2871),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2871),
-    [aux_sym_save_statement_token1] = ACTIONS(2871),
-    [aux_sym_private_statement_token1] = ACTIONS(2871),
-    [aux_sym_public_statement_token1] = ACTIONS(2871),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2871),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2871),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2871),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2874),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2877),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2871),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2871),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2871),
-    [anon_sym_SEMI] = ACTIONS(3173),
-    [aux_sym_stop_statement_token1] = ACTIONS(2883),
-    [aux_sym_stop_statement_token2] = ACTIONS(2886),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2889),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2892),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2895),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2898),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2901),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2892),
-    [aux_sym_include_statement_token1] = ACTIONS(2904),
-    [aux_sym_data_statement_token1] = ACTIONS(2871),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2907),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2910),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2871),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2871),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2913),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2916),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2919),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2922),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2925),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2928),
-    [aux_sym_block_construct_token1] = ACTIONS(2931),
-    [aux_sym_associate_statement_token1] = ACTIONS(2934),
-    [aux_sym_format_statement_token1] = ACTIONS(2937),
-    [aux_sym_print_statement_token1] = ACTIONS(2940),
-    [aux_sym_open_statement_token1] = ACTIONS(2943),
-    [aux_sym_close_statement_token1] = ACTIONS(2946),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2949),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2952),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2955),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2958),
-    [aux_sym_entry_statement_token1] = ACTIONS(2961),
-    [aux_sym_logical_expression_token5] = ACTIONS(2964),
-    [anon_sym_DOT] = ACTIONS(2967),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2970),
-    [anon_sym_LBRACK] = ACTIONS(2973),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2976),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2976),
-    [aux_sym_null_literal_token1] = ACTIONS(2979),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2982),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2985),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2988),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2991),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2997),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3000),
-    [aux_sym_identifier_token1] = ACTIONS(2871),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3003),
-    [sym__float_literal] = ACTIONS(3006),
-    [sym__boz_literal] = ACTIONS(3006),
-    [sym__string_literal] = ACTIONS(3009),
-    [sym__string_literal_kind] = ACTIONS(3012),
-  },
-  [634] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8291),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [637] = {
+    [sym_preproc_include] = STATE(632),
+    [sym_preproc_def] = STATE(632),
+    [sym_preproc_function_def] = STATE(632),
+    [sym_preproc_call] = STATE(632),
+    [sym_preproc_if_in_statements] = STATE(632),
+    [sym_preproc_ifdef_in_statements] = STATE(632),
+    [sym_internal_procedures] = STATE(8258),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(632),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(1378),
+    [aux_sym_preproc_if_token2] = ACTIONS(3158),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -176024,7 +176408,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(3160),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176083,93 +176467,268 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [635] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8276),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
+  [638] = {
+    [sym_preproc_include] = STATE(638),
+    [sym_preproc_def] = STATE(638),
+    [sym_preproc_function_def] = STATE(638),
+    [sym_preproc_call] = STATE(638),
+    [sym_preproc_if_in_statements] = STATE(638),
+    [sym_preproc_ifdef_in_statements] = STATE(638),
+    [sym_preproc_if_in_procedure_statements] = STATE(638),
+    [sym_preproc_ifdef_in_procedure_statements] = STATE(638),
+    [sym__statements] = STATE(6935),
+    [sym_statement_label] = STATE(811),
+    [sym_stop_statement] = STATE(6935),
+    [sym_assignment_statement] = STATE(6935),
+    [sym_pointer_association_statement] = STATE(6935),
+    [sym_subroutine_call] = STATE(6935),
+    [sym_keyword_statement] = STATE(6935),
+    [sym_include_statement] = STATE(6935),
+    [sym_do_loop_statement] = STATE(6935),
+    [sym_do_label_statement] = STATE(6935),
+    [sym_end_do_label_statement] = STATE(6935),
+    [sym_if_statement] = STATE(6935),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6935),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6935),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6935),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6935),
+    [sym_select_type_statement] = STATE(6935),
+    [sym_select_rank_statement] = STATE(6935),
+    [sym_block_construct] = STATE(6935),
+    [sym_associate_statement] = STATE(6935),
+    [sym_format_statement] = STATE(6935),
+    [sym_read_statement] = STATE(6935),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6935),
+    [sym_open_statement] = STATE(6935),
+    [sym_close_statement] = STATE(6935),
+    [sym_write_statement] = STATE(6935),
+    [sym_inquire_statement] = STATE(6935),
+    [sym_file_position_statement] = STATE(6935),
+    [sym_allocate_statement] = STATE(6935),
+    [sym_entry_statement] = STATE(6935),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6935),
+    [sym_coarray_team_statement] = STATE(6935),
+    [sym_coarray_critical_statement] = STATE(6935),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_subroutine_repeat1] = STATE(638),
+    [aux_sym_preproc_include_token1] = ACTIONS(3162),
+    [aux_sym_preproc_def_token1] = ACTIONS(3165),
+    [aux_sym_preproc_if_token1] = ACTIONS(3168),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3171),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3171),
+    [sym_preproc_directive] = ACTIONS(3174),
+    [anon_sym_LPAREN2] = ACTIONS(2979),
+    [anon_sym_PLUS] = ACTIONS(2982),
+    [anon_sym_DASH] = ACTIONS(2982),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2985),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2988),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2991),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2996),
+    [aux_sym_end_function_statement_token1] = ACTIONS(2994),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2996),
+    [aux_sym_save_statement_token1] = ACTIONS(2996),
+    [aux_sym_private_statement_token1] = ACTIONS(2996),
+    [aux_sym_public_statement_token1] = ACTIONS(2996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2999),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2996),
+    [anon_sym_SEMI] = ACTIONS(3177),
+    [aux_sym_stop_statement_token1] = ACTIONS(3008),
+    [aux_sym_stop_statement_token2] = ACTIONS(3011),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3014),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3017),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3023),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3026),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3017),
+    [aux_sym_include_statement_token1] = ACTIONS(3029),
+    [aux_sym_data_statement_token1] = ACTIONS(2996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3035),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3041),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3047),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3053),
+    [aux_sym_block_construct_token1] = ACTIONS(3056),
+    [aux_sym_associate_statement_token1] = ACTIONS(3059),
+    [aux_sym_format_statement_token1] = ACTIONS(3062),
+    [aux_sym_print_statement_token1] = ACTIONS(3065),
+    [aux_sym_open_statement_token1] = ACTIONS(3068),
+    [aux_sym_close_statement_token1] = ACTIONS(3071),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3077),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3080),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3083),
+    [aux_sym_entry_statement_token1] = ACTIONS(3086),
+    [aux_sym_logical_expression_token5] = ACTIONS(3089),
+    [anon_sym_DOT] = ACTIONS(3092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3095),
+    [anon_sym_LBRACK] = ACTIONS(3098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3101),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3101),
+    [aux_sym_null_literal_token1] = ACTIONS(3104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3107),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3110),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3113),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3119),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3122),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3125),
+    [aux_sym_identifier_token1] = ACTIONS(2996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3128),
+    [sym__float_literal] = ACTIONS(3131),
+    [sym__boz_literal] = ACTIONS(3131),
+    [sym__string_literal] = ACTIONS(3134),
+    [sym__string_literal_kind] = ACTIONS(3137),
+  },
+  [639] = {
+    [sym_preproc_include] = STATE(684),
+    [sym_preproc_def] = STATE(684),
+    [sym_preproc_function_def] = STATE(684),
+    [sym_preproc_call] = STATE(684),
+    [sym_preproc_if_in_statements] = STATE(684),
+    [sym_preproc_ifdef_in_statements] = STATE(684),
+    [sym_internal_procedures] = STATE(8162),
+    [sym_contains_statement] = STATE(6726),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
+    [aux_sym_preproc_include_token1] = ACTIONS(2731),
+    [aux_sym_preproc_def_token1] = ACTIONS(2733),
     [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(1378),
+    [aux_sym_preproc_if_token2] = ACTIONS(688),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+    [sym_preproc_directive] = ACTIONS(2737),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -176199,7 +176758,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2831),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176258,97 +176817,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [636] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8289),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(3176),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [640] = {
+    [sym_preproc_include] = STATE(645),
+    [sym_preproc_def] = STATE(645),
+    [sym_preproc_function_def] = STATE(645),
+    [sym_preproc_call] = STATE(645),
+    [sym_preproc_if_in_statements] = STATE(645),
+    [sym_preproc_ifdef_in_statements] = STATE(645),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(645),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3180),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -176374,7 +176929,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(3183),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176389,8 +176944,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3185),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3185),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3185),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -176433,97 +176991,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [637] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8463),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(3178),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [641] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3187),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -176549,7 +177103,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176564,8 +177118,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3190),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3190),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3190),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -176608,97 +177165,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [638] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8254),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(1378),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [642] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3192),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -176724,7 +177277,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176739,8 +177292,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3195),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3195),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3195),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -176783,97 +177339,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [639] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym_internal_procedures] = STATE(8116),
-    [sym_contains_statement] = STATE(7153),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(2759),
-    [aux_sym_preproc_def_token1] = ACTIONS(2761),
-    [aux_sym_preproc_if_token1] = ACTIONS(1354),
-    [aux_sym_preproc_if_token2] = ACTIONS(678),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1356),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1356),
-    [sym_preproc_directive] = ACTIONS(2765),
+  [643] = {
+    [sym_preproc_include] = STATE(652),
+    [sym_preproc_def] = STATE(652),
+    [sym_preproc_function_def] = STATE(652),
+    [sym_preproc_call] = STATE(652),
+    [sym_preproc_if_in_statements] = STATE(652),
+    [sym_preproc_ifdef_in_statements] = STATE(652),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(652),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3192),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token2] = ACTIONS(97),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
@@ -176899,7 +177451,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2833),
+    [anon_sym_SEMI] = ACTIONS(3197),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -176914,8 +177466,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3195),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3195),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3195),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -176958,90 +177513,264 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [640] = {
+  [644] = {
     [sym_preproc_include] = STATE(644),
     [sym_preproc_def] = STATE(644),
     [sym_preproc_function_def] = STATE(644),
     [sym_preproc_call] = STATE(644),
     [sym_preproc_if_in_statements] = STATE(644),
     [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym_preproc_include_token1] = ACTIONS(3199),
+    [aux_sym_preproc_def_token1] = ACTIONS(3202),
+    [aux_sym_preproc_if_token1] = ACTIONS(3205),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3208),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3208),
+    [sym_preproc_directive] = ACTIONS(3211),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3214),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2079),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [645] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3217),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -177070,7 +177799,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -177085,11 +177814,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3183),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3220),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3183),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3183),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3220),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3220),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -177132,90 +177861,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [641] = {
-    [sym_preproc_include] = STATE(652),
-    [sym_preproc_def] = STATE(652),
-    [sym_preproc_function_def] = STATE(652),
-    [sym_preproc_call] = STATE(652),
-    [sym_preproc_if_in_statements] = STATE(652),
-    [sym_preproc_ifdef_in_statements] = STATE(652),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(652),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [646] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3180),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3222),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -177244,7 +177973,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3185),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -177259,11 +177988,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3183),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3225),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3183),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3183),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3225),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3225),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -177306,90 +178035,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [642] = {
-    [sym_preproc_include] = STATE(648),
-    [sym_preproc_def] = STATE(648),
-    [sym_preproc_function_def] = STATE(648),
-    [sym_preproc_call] = STATE(648),
-    [sym_preproc_if_in_statements] = STATE(648),
-    [sym_preproc_ifdef_in_statements] = STATE(648),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(648),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [647] = {
+    [sym_preproc_include] = STATE(641),
+    [sym_preproc_def] = STATE(641),
+    [sym_preproc_function_def] = STATE(641),
+    [sym_preproc_call] = STATE(641),
+    [sym_preproc_if_in_statements] = STATE(641),
+    [sym_preproc_ifdef_in_statements] = STATE(641),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(641),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3187),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3222),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -177418,7 +178147,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3190),
+    [anon_sym_SEMI] = ACTIONS(3227),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -177433,11 +178162,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3192),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3225),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3192),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3192),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3225),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3225),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -177480,267 +178209,270 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [643] = {
-    [sym_preproc_include] = STATE(643),
-    [sym_preproc_def] = STATE(643),
-    [sym_preproc_function_def] = STATE(643),
-    [sym_preproc_call] = STATE(643),
-    [sym_preproc_if_in_statements] = STATE(643),
-    [sym_preproc_ifdef_in_statements] = STATE(643),
-    [sym__statements] = STATE(6716),
-    [sym_statement_label] = STATE(804),
-    [sym_stop_statement] = STATE(6716),
-    [sym_assignment_statement] = STATE(6716),
-    [sym_pointer_association_statement] = STATE(6716),
-    [sym_subroutine_call] = STATE(6716),
-    [sym_keyword_statement] = STATE(6716),
-    [sym_include_statement] = STATE(6716),
-    [sym_do_loop_statement] = STATE(6716),
-    [sym_do_label_statement] = STATE(6716),
-    [sym_end_do_label_statement] = STATE(6716),
-    [sym_if_statement] = STATE(6716),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6716),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6716),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6716),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6716),
-    [sym_select_type_statement] = STATE(6716),
-    [sym_select_rank_statement] = STATE(6716),
-    [sym_block_construct] = STATE(6716),
-    [sym_associate_statement] = STATE(6716),
-    [sym_format_statement] = STATE(6716),
-    [sym_read_statement] = STATE(6716),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6716),
-    [sym_open_statement] = STATE(6716),
-    [sym_close_statement] = STATE(6716),
-    [sym_write_statement] = STATE(6716),
-    [sym_inquire_statement] = STATE(6716),
-    [sym_file_position_statement] = STATE(6716),
-    [sym_allocate_statement] = STATE(6716),
-    [sym_entry_statement] = STATE(6716),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6716),
-    [sym_coarray_team_statement] = STATE(6716),
-    [sym_coarray_critical_statement] = STATE(6716),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(643),
-    [aux_sym_preproc_include_token1] = ACTIONS(3194),
-    [aux_sym_preproc_def_token1] = ACTIONS(3197),
-    [aux_sym_preproc_if_token1] = ACTIONS(3200),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3203),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3203),
-    [sym_preproc_directive] = ACTIONS(3206),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
+  [648] = {
+    [sym_preproc_include] = STATE(650),
+    [sym_preproc_def] = STATE(650),
+    [sym_preproc_function_def] = STATE(650),
+    [sym_preproc_call] = STATE(650),
+    [sym_preproc_if_in_statements] = STATE(650),
+    [sym_preproc_ifdef_in_statements] = STATE(650),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(650),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3209),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3229),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(3232),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3234),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3234),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3234),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [644] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(3212),
-    [aux_sym_preproc_def_token1] = ACTIONS(3215),
-    [aux_sym_preproc_if_token1] = ACTIONS(3218),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3221),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3221),
-    [sym_preproc_directive] = ACTIONS(3224),
+  [649] = {
+    [sym_preproc_include] = STATE(649),
+    [sym_preproc_def] = STATE(649),
+    [sym_preproc_function_def] = STATE(649),
+    [sym_preproc_call] = STATE(649),
+    [sym_preproc_if_in_statements] = STATE(649),
+    [sym_preproc_ifdef_in_statements] = STATE(649),
+    [sym__statements] = STATE(7036),
+    [sym_statement_label] = STATE(809),
+    [sym_stop_statement] = STATE(7036),
+    [sym_assignment_statement] = STATE(7036),
+    [sym_pointer_association_statement] = STATE(7036),
+    [sym_subroutine_call] = STATE(7036),
+    [sym_keyword_statement] = STATE(7036),
+    [sym_include_statement] = STATE(7036),
+    [sym_do_loop_statement] = STATE(7036),
+    [sym_do_label_statement] = STATE(7036),
+    [sym_end_do_label_statement] = STATE(7036),
+    [sym_if_statement] = STATE(7036),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7036),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7036),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7036),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7036),
+    [sym_select_type_statement] = STATE(7036),
+    [sym_select_rank_statement] = STATE(7036),
+    [sym_block_construct] = STATE(7036),
+    [sym_associate_statement] = STATE(7036),
+    [sym_format_statement] = STATE(7036),
+    [sym_read_statement] = STATE(7036),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7036),
+    [sym_open_statement] = STATE(7036),
+    [sym_close_statement] = STATE(7036),
+    [sym_write_statement] = STATE(7036),
+    [sym_inquire_statement] = STATE(7036),
+    [sym_file_position_statement] = STATE(7036),
+    [sym_allocate_statement] = STATE(7036),
+    [sym_entry_statement] = STATE(7036),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7036),
+    [sym_coarray_team_statement] = STATE(7036),
+    [sym_coarray_critical_statement] = STATE(7036),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(649),
+    [aux_sym_preproc_include_token1] = ACTIONS(3236),
+    [aux_sym_preproc_def_token1] = ACTIONS(3239),
+    [aux_sym_preproc_if_token1] = ACTIONS(3242),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3245),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3245),
+    [sym_preproc_directive] = ACTIONS(3248),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
     [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
     [aux_sym_use_statement_token2] = ACTIONS(2102),
     [aux_sym_implicit_statement_token4] = ACTIONS(2102),
     [aux_sym_save_statement_token1] = ACTIONS(2102),
@@ -177766,7 +178498,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3227),
+    [anon_sym_SEMI] = ACTIONS(3251),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -177781,11 +178513,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
     [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
     [aux_sym_elseif_clause_token2] = ACTIONS(2102),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2079),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2079),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
     [aux_sym_select_case_statement_token1] = ACTIONS(2150),
     [aux_sym_select_case_statement_token3] = ACTIONS(2153),
@@ -177828,90 +178557,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [645] = {
+  [650] = {
     [sym_preproc_include] = STATE(644),
     [sym_preproc_def] = STATE(644),
     [sym_preproc_function_def] = STATE(644),
     [sym_preproc_call] = STATE(644),
     [sym_preproc_if_in_statements] = STATE(644),
     [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3230),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3254),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -177940,7 +178669,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -177955,11 +178684,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3233),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3257),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3233),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3233),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3257),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3257),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -178002,90 +178731,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [646] = {
-    [sym_preproc_include] = STATE(653),
-    [sym_preproc_def] = STATE(653),
-    [sym_preproc_function_def] = STATE(653),
-    [sym_preproc_call] = STATE(653),
-    [sym_preproc_if_in_statements] = STATE(653),
-    [sym_preproc_ifdef_in_statements] = STATE(653),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(653),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [651] = {
+    [sym_preproc_include] = STATE(642),
+    [sym_preproc_def] = STATE(642),
+    [sym_preproc_function_def] = STATE(642),
+    [sym_preproc_call] = STATE(642),
+    [sym_preproc_if_in_statements] = STATE(642),
+    [sym_preproc_ifdef_in_statements] = STATE(642),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(642),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3235),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3254),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178114,7 +178843,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3238),
+    [anon_sym_SEMI] = ACTIONS(3259),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178129,11 +178858,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3240),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3257),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3240),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3240),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3257),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3257),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -178176,90 +178905,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [647] = {
-    [sym_preproc_include] = STATE(640),
-    [sym_preproc_def] = STATE(640),
-    [sym_preproc_function_def] = STATE(640),
-    [sym_preproc_call] = STATE(640),
-    [sym_preproc_if_in_statements] = STATE(640),
-    [sym_preproc_ifdef_in_statements] = STATE(640),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(640),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [652] = {
+    [sym_preproc_include] = STATE(644),
+    [sym_preproc_def] = STATE(644),
+    [sym_preproc_function_def] = STATE(644),
+    [sym_preproc_call] = STATE(644),
+    [sym_preproc_if_in_statements] = STATE(644),
+    [sym_preproc_ifdef_in_statements] = STATE(644),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3242),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3261),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178288,7 +179017,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3245),
+    [anon_sym_SEMI] = ACTIONS(2301),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178303,11 +179032,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3247),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3264),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3247),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3247),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3264),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3264),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -178350,90 +179079,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [648] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [653] = {
+    [sym_preproc_include] = STATE(646),
+    [sym_preproc_def] = STATE(646),
+    [sym_preproc_function_def] = STATE(646),
+    [sym_preproc_call] = STATE(646),
+    [sym_preproc_if_in_statements] = STATE(646),
+    [sym_preproc_ifdef_in_statements] = STATE(646),
+    [sym__statements] = STATE(7278),
+    [sym_statement_label] = STATE(803),
+    [sym_stop_statement] = STATE(7278),
+    [sym_assignment_statement] = STATE(7278),
+    [sym_pointer_association_statement] = STATE(7278),
+    [sym_subroutine_call] = STATE(7278),
+    [sym_keyword_statement] = STATE(7278),
+    [sym_include_statement] = STATE(7278),
+    [sym_do_loop_statement] = STATE(7278),
+    [sym_do_label_statement] = STATE(7278),
+    [sym_end_do_label_statement] = STATE(7278),
+    [sym_if_statement] = STATE(7278),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7278),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7278),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7278),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7278),
+    [sym_select_type_statement] = STATE(7278),
+    [sym_select_rank_statement] = STATE(7278),
+    [sym_block_construct] = STATE(7278),
+    [sym_associate_statement] = STATE(7278),
+    [sym_format_statement] = STATE(7278),
+    [sym_read_statement] = STATE(7278),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7278),
+    [sym_open_statement] = STATE(7278),
+    [sym_close_statement] = STATE(7278),
+    [sym_write_statement] = STATE(7278),
+    [sym_inquire_statement] = STATE(7278),
+    [sym_file_position_statement] = STATE(7278),
+    [sym_allocate_statement] = STATE(7278),
+    [sym_entry_statement] = STATE(7278),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7278),
+    [sym_coarray_team_statement] = STATE(7278),
+    [sym_coarray_critical_statement] = STATE(7278),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(646),
+    [aux_sym_preproc_include_token1] = ACTIONS(2289),
+    [aux_sym_preproc_def_token1] = ACTIONS(2291),
+    [aux_sym_preproc_if_token1] = ACTIONS(2293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2295),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2295),
+    [sym_preproc_directive] = ACTIONS(2297),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3242),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3217),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178462,7 +179191,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(3266),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178477,11 +179206,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3247),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3220),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3247),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3247),
+    [aux_sym_end_where_statement_token1] = ACTIONS(3220),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(3220),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -178524,90 +179253,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [649] = {
-    [sym_preproc_include] = STATE(651),
-    [sym_preproc_def] = STATE(651),
-    [sym_preproc_function_def] = STATE(651),
-    [sym_preproc_call] = STATE(651),
-    [sym_preproc_if_in_statements] = STATE(651),
-    [sym_preproc_ifdef_in_statements] = STATE(651),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(651),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [654] = {
+    [sym_preproc_include] = STATE(691),
+    [sym_preproc_def] = STATE(691),
+    [sym_preproc_function_def] = STATE(691),
+    [sym_preproc_call] = STATE(691),
+    [sym_preproc_if_in_statements] = STATE(691),
+    [sym_preproc_ifdef_in_statements] = STATE(691),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(691),
+    [aux_sym_preproc_include_token1] = ACTIONS(3268),
+    [aux_sym_preproc_def_token1] = ACTIONS(3271),
+    [aux_sym_preproc_if_token1] = ACTIONS(3274),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3277),
+    [sym_preproc_directive] = ACTIONS(3280),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3249),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3283),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178636,7 +179365,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3252),
+    [anon_sym_SEMI] = ACTIONS(3286),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178651,16 +179380,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3254),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3254),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3254),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2787),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2787),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -178692,96 +179420,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3288),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [650] = {
-    [sym_preproc_include] = STATE(645),
-    [sym_preproc_def] = STATE(645),
-    [sym_preproc_function_def] = STATE(645),
-    [sym_preproc_call] = STATE(645),
-    [sym_preproc_if_in_statements] = STATE(645),
-    [sym_preproc_ifdef_in_statements] = STATE(645),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(645),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [655] = {
+    [sym_preproc_include] = STATE(688),
+    [sym_preproc_def] = STATE(688),
+    [sym_preproc_function_def] = STATE(688),
+    [sym_preproc_call] = STATE(688),
+    [sym_preproc_if_in_statements] = STATE(688),
+    [sym_preproc_ifdef_in_statements] = STATE(688),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(688),
+    [aux_sym_preproc_include_token1] = ACTIONS(3268),
+    [aux_sym_preproc_def_token1] = ACTIONS(3271),
+    [aux_sym_preproc_if_token1] = ACTIONS(3274),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3277),
+    [sym_preproc_directive] = ACTIONS(3280),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3256),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3283),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178810,7 +179538,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3259),
+    [anon_sym_SEMI] = ACTIONS(3291),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178825,16 +179553,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3261),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3261),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3261),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2787),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2787),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -178866,96 +179593,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3288),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [651] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [656] = {
+    [sym_preproc_include] = STATE(694),
+    [sym_preproc_def] = STATE(694),
+    [sym_preproc_function_def] = STATE(694),
+    [sym_preproc_call] = STATE(694),
+    [sym_preproc_if_in_statements] = STATE(694),
+    [sym_preproc_ifdef_in_statements] = STATE(694),
+    [sym__statements] = STATE(6910),
+    [sym_statement_label] = STATE(772),
+    [sym_stop_statement] = STATE(6910),
+    [sym_assignment_statement] = STATE(6910),
+    [sym_pointer_association_statement] = STATE(6910),
+    [sym_subroutine_call] = STATE(6910),
+    [sym_keyword_statement] = STATE(6910),
+    [sym_include_statement] = STATE(6910),
+    [sym_do_loop_statement] = STATE(6910),
+    [sym_do_label_statement] = STATE(6910),
+    [sym_end_do_label_statement] = STATE(6910),
+    [sym_if_statement] = STATE(6910),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6910),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6910),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6910),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7473),
+    [sym_select_case_statement] = STATE(6910),
+    [sym_select_type_statement] = STATE(6910),
+    [sym_select_rank_statement] = STATE(6910),
+    [sym_block_construct] = STATE(6910),
+    [sym_associate_statement] = STATE(6910),
+    [sym_format_statement] = STATE(6910),
+    [sym_read_statement] = STATE(6910),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6910),
+    [sym_open_statement] = STATE(6910),
+    [sym_close_statement] = STATE(6910),
+    [sym_write_statement] = STATE(6910),
+    [sym_inquire_statement] = STATE(6910),
+    [sym_file_position_statement] = STATE(6910),
+    [sym_allocate_statement] = STATE(6910),
+    [sym_entry_statement] = STATE(6910),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6910),
+    [sym_coarray_team_statement] = STATE(6910),
+    [sym_coarray_critical_statement] = STATE(6910),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(694),
+    [aux_sym_preproc_include_token1] = ACTIONS(3293),
+    [aux_sym_preproc_def_token1] = ACTIONS(3295),
+    [aux_sym_preproc_if_token1] = ACTIONS(3297),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3299),
+    [sym_preproc_directive] = ACTIONS(3301),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3256),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3303),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -178984,7 +179712,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(3305),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -178999,12 +179727,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3261),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3261),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3261),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -179040,96 +179766,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3309),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [652] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [657] = {
+    [sym_preproc_include] = STATE(661),
+    [sym_preproc_def] = STATE(661),
+    [sym_preproc_function_def] = STATE(661),
+    [sym_preproc_call] = STATE(661),
+    [sym_preproc_if_in_statements] = STATE(661),
+    [sym_preproc_ifdef_in_statements] = STATE(661),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7385),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(661),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3263),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -179158,7 +179885,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(3323),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -179173,11 +179900,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3266),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3266),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3266),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
@@ -179185,6 +179909,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -179220,90 +179945,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [653] = {
-    [sym_preproc_include] = STATE(644),
-    [sym_preproc_def] = STATE(644),
-    [sym_preproc_function_def] = STATE(644),
-    [sym_preproc_call] = STATE(644),
-    [sym_preproc_if_in_statements] = STATE(644),
-    [sym_preproc_ifdef_in_statements] = STATE(644),
-    [sym__statements] = STATE(6836),
-    [sym_statement_label] = STATE(797),
-    [sym_stop_statement] = STATE(6836),
-    [sym_assignment_statement] = STATE(6836),
-    [sym_pointer_association_statement] = STATE(6836),
-    [sym_subroutine_call] = STATE(6836),
-    [sym_keyword_statement] = STATE(6836),
-    [sym_include_statement] = STATE(6836),
-    [sym_do_loop_statement] = STATE(6836),
-    [sym_do_label_statement] = STATE(6836),
-    [sym_end_do_label_statement] = STATE(6836),
-    [sym_if_statement] = STATE(6836),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6836),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6836),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6836),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6836),
-    [sym_select_type_statement] = STATE(6836),
-    [sym_select_rank_statement] = STATE(6836),
-    [sym_block_construct] = STATE(6836),
-    [sym_associate_statement] = STATE(6836),
-    [sym_format_statement] = STATE(6836),
-    [sym_read_statement] = STATE(6836),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6836),
-    [sym_open_statement] = STATE(6836),
-    [sym_close_statement] = STATE(6836),
-    [sym_write_statement] = STATE(6836),
-    [sym_inquire_statement] = STATE(6836),
-    [sym_file_position_statement] = STATE(6836),
-    [sym_allocate_statement] = STATE(6836),
-    [sym_entry_statement] = STATE(6836),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6836),
-    [sym_coarray_team_statement] = STATE(6836),
-    [sym_coarray_critical_statement] = STATE(6836),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(644),
-    [aux_sym_preproc_include_token1] = ACTIONS(2415),
-    [aux_sym_preproc_def_token1] = ACTIONS(2417),
-    [aux_sym_preproc_if_token1] = ACTIONS(2419),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2421),
-    [sym_preproc_directive] = ACTIONS(2423),
+  [658] = {
+    [sym_preproc_include] = STATE(741),
+    [sym_preproc_def] = STATE(741),
+    [sym_preproc_function_def] = STATE(741),
+    [sym_preproc_call] = STATE(741),
+    [sym_preproc_if_in_statements] = STATE(741),
+    [sym_preproc_ifdef_in_statements] = STATE(741),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(796),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6595),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7695),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(741),
+    [aux_sym_preproc_include_token1] = ACTIONS(3327),
+    [aux_sym_preproc_def_token1] = ACTIONS(3329),
+    [aux_sym_preproc_if_token1] = ACTIONS(1390),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
+    [sym_preproc_directive] = ACTIONS(3331),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3249),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -179332,7 +180058,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2485),
+    [anon_sym_SEMI] = ACTIONS(3333),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -179347,17 +180073,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3254),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym_end_where_statement_token1] = ACTIONS(3254),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(3254),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -179394,90 +180118,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [654] = {
-    [sym_preproc_include] = STATE(698),
-    [sym_preproc_def] = STATE(698),
-    [sym_preproc_function_def] = STATE(698),
-    [sym_preproc_call] = STATE(698),
-    [sym_preproc_if_in_statements] = STATE(698),
-    [sym_preproc_ifdef_in_statements] = STATE(698),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(698),
-    [aux_sym_preproc_include_token1] = ACTIONS(3268),
-    [aux_sym_preproc_def_token1] = ACTIONS(3271),
-    [aux_sym_preproc_if_token1] = ACTIONS(3274),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3277),
-    [sym_preproc_directive] = ACTIONS(3280),
+  [659] = {
+    [sym_preproc_include] = STATE(706),
+    [sym_preproc_def] = STATE(706),
+    [sym_preproc_function_def] = STATE(706),
+    [sym_preproc_call] = STATE(706),
+    [sym_preproc_if_in_statements] = STATE(706),
+    [sym_preproc_ifdef_in_statements] = STATE(706),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(789),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7344),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3283),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -179506,7 +180231,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3286),
+    [anon_sym_SEMI] = ACTIONS(3347),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -179519,17 +180244,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2781),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2781),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -179561,270 +180285,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3288),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [655] = {
-    [sym_preproc_include] = STATE(655),
-    [sym_preproc_def] = STATE(655),
-    [sym_preproc_function_def] = STATE(655),
-    [sym_preproc_call] = STATE(655),
-    [sym_preproc_if_in_statements] = STATE(655),
-    [sym_preproc_ifdef_in_statements] = STATE(655),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(655),
-    [aux_sym_preproc_include_token1] = ACTIONS(3291),
-    [aux_sym_preproc_def_token1] = ACTIONS(3294),
-    [aux_sym_preproc_if_token1] = ACTIONS(3297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3300),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3300),
-    [sym_preproc_directive] = ACTIONS(3303),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3306),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [656] = {
-    [sym_preproc_include] = STATE(664),
-    [sym_preproc_def] = STATE(664),
-    [sym_preproc_function_def] = STATE(664),
-    [sym_preproc_call] = STATE(664),
-    [sym_preproc_if_in_statements] = STATE(664),
-    [sym_preproc_ifdef_in_statements] = STATE(664),
-    [sym__statements] = STATE(6655),
-    [sym_statement_label] = STATE(772),
-    [sym_stop_statement] = STATE(6655),
-    [sym_assignment_statement] = STATE(6655),
-    [sym_pointer_association_statement] = STATE(6655),
-    [sym_subroutine_call] = STATE(6655),
-    [sym_keyword_statement] = STATE(6655),
-    [sym_include_statement] = STATE(6655),
-    [sym_do_loop_statement] = STATE(6655),
-    [sym_do_label_statement] = STATE(6655),
-    [sym_end_do_label_statement] = STATE(6655),
-    [sym_if_statement] = STATE(6655),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6655),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6655),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6655),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7319),
-    [sym_select_case_statement] = STATE(6655),
-    [sym_select_type_statement] = STATE(6655),
-    [sym_select_rank_statement] = STATE(6655),
-    [sym_block_construct] = STATE(6655),
-    [sym_associate_statement] = STATE(6655),
-    [sym_format_statement] = STATE(6655),
-    [sym_read_statement] = STATE(6655),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6655),
-    [sym_open_statement] = STATE(6655),
-    [sym_close_statement] = STATE(6655),
-    [sym_write_statement] = STATE(6655),
-    [sym_inquire_statement] = STATE(6655),
-    [sym_file_position_statement] = STATE(6655),
-    [sym_allocate_statement] = STATE(6655),
-    [sym_entry_statement] = STATE(6655),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6655),
-    [sym_coarray_team_statement] = STATE(6655),
-    [sym_coarray_critical_statement] = STATE(6655),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(664),
-    [aux_sym_preproc_include_token1] = ACTIONS(3309),
-    [aux_sym_preproc_def_token1] = ACTIONS(3311),
-    [aux_sym_preproc_if_token1] = ACTIONS(3313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3315),
-    [sym_preproc_directive] = ACTIONS(3317),
+  [660] = {
+    [sym_preproc_include] = STATE(659),
+    [sym_preproc_def] = STATE(659),
+    [sym_preproc_function_def] = STATE(659),
+    [sym_preproc_call] = STATE(659),
+    [sym_preproc_if_in_statements] = STATE(659),
+    [sym_preproc_ifdef_in_statements] = STATE(659),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(781),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7525),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(659),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3319),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -179853,7 +180404,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3321),
+    [anon_sym_SEMI] = ACTIONS(3351),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -179866,12 +180417,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -179907,270 +180458,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3325),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [657] = {
-    [sym_preproc_include] = STATE(657),
-    [sym_preproc_def] = STATE(657),
-    [sym_preproc_function_def] = STATE(657),
-    [sym_preproc_call] = STATE(657),
-    [sym_preproc_if_in_statements] = STATE(657),
-    [sym_preproc_ifdef_in_statements] = STATE(657),
-    [sym__statements] = STATE(6870),
-    [sym_statement_label] = STATE(803),
-    [sym_stop_statement] = STATE(6870),
-    [sym_assignment_statement] = STATE(6870),
-    [sym_pointer_association_statement] = STATE(6870),
-    [sym_subroutine_call] = STATE(6870),
-    [sym_keyword_statement] = STATE(6870),
-    [sym_include_statement] = STATE(6870),
-    [sym_do_loop_statement] = STATE(6870),
-    [sym_do_label_statement] = STATE(6870),
-    [sym_end_do_label_statement] = STATE(6870),
-    [sym_if_statement] = STATE(6870),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6870),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6870),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6870),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6870),
-    [sym_select_type_statement] = STATE(6870),
-    [sym_select_rank_statement] = STATE(6870),
-    [sym_block_construct] = STATE(6870),
-    [sym_associate_statement] = STATE(6870),
-    [sym_format_statement] = STATE(6870),
-    [sym_read_statement] = STATE(6870),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6870),
-    [sym_open_statement] = STATE(6870),
-    [sym_close_statement] = STATE(6870),
-    [sym_write_statement] = STATE(6870),
-    [sym_inquire_statement] = STATE(6870),
-    [sym_file_position_statement] = STATE(6870),
-    [sym_allocate_statement] = STATE(6870),
-    [sym_entry_statement] = STATE(6870),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6870),
-    [sym_coarray_team_statement] = STATE(6870),
-    [sym_coarray_critical_statement] = STATE(6870),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(657),
-    [aux_sym_preproc_include_token1] = ACTIONS(3327),
-    [aux_sym_preproc_def_token1] = ACTIONS(3330),
-    [aux_sym_preproc_if_token1] = ACTIONS(3333),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3336),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3336),
-    [sym_preproc_directive] = ACTIONS(3339),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3342),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [658] = {
-    [sym_preproc_include] = STATE(704),
-    [sym_preproc_def] = STATE(704),
-    [sym_preproc_function_def] = STATE(704),
-    [sym_preproc_call] = STATE(704),
-    [sym_preproc_if_in_statements] = STATE(704),
-    [sym_preproc_ifdef_in_statements] = STATE(704),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7596),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(704),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+  [661] = {
+    [sym_preproc_include] = STATE(715),
+    [sym_preproc_def] = STATE(715),
+    [sym_preproc_function_def] = STATE(715),
+    [sym_preproc_call] = STATE(715),
+    [sym_preproc_if_in_statements] = STATE(715),
+    [sym_preproc_ifdef_in_statements] = STATE(715),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7327),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(715),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -180199,7 +180577,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3357),
+    [anon_sym_SEMI] = ACTIONS(3353),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -180223,7 +180601,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -180259,91 +180637,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [659] = {
-    [sym_preproc_include] = STATE(731),
-    [sym_preproc_def] = STATE(731),
-    [sym_preproc_function_def] = STATE(731),
-    [sym_preproc_call] = STATE(731),
-    [sym_preproc_if_in_statements] = STATE(731),
-    [sym_preproc_ifdef_in_statements] = STATE(731),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7550),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(731),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+  [662] = {
+    [sym_preproc_include] = STATE(671),
+    [sym_preproc_def] = STATE(671),
+    [sym_preproc_function_def] = STATE(671),
+    [sym_preproc_call] = STATE(671),
+    [sym_preproc_if_in_statements] = STATE(671),
+    [sym_preproc_ifdef_in_statements] = STATE(671),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7504),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(671),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -180372,7 +180750,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3373),
+    [anon_sym_SEMI] = ACTIONS(3355),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -180396,6 +180774,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -180423,7 +180802,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -180432,263 +180810,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [660] = {
-    [sym_preproc_include] = STATE(660),
-    [sym_preproc_def] = STATE(660),
-    [sym_preproc_function_def] = STATE(660),
-    [sym_preproc_call] = STATE(660),
-    [sym_preproc_if_in_specification_part] = STATE(660),
-    [sym_preproc_ifdef_in_specification_part] = STATE(660),
-    [sym_interface] = STATE(660),
-    [sym_interface_statement] = STATE(3919),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(660),
-    [sym_use_statement] = STATE(6654),
-    [sym_implicit_statement] = STATE(6654),
-    [sym_save_statement] = STATE(6654),
-    [sym_private_statement] = STATE(660),
-    [sym_public_statement] = STATE(660),
-    [sym_namelist_statement] = STATE(6654),
-    [sym_common_statement] = STATE(6654),
-    [sym_import_statement] = STATE(6654),
-    [sym_derived_type_definition] = STATE(660),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4312),
-    [sym_variable_declaration] = STATE(6654),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6654),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6654),
-    [sym_equivalence_statement] = STATE(6654),
-    [sym_statement_label] = STATE(7226),
-    [sym_include_statement] = STATE(6654),
-    [sym_data_statement] = STATE(6654),
-    [sym_enum] = STATE(660),
-    [sym_enum_statement] = STATE(6039),
-    [sym_enumeration_type] = STATE(660),
-    [sym_enumeration_type_statement] = STATE(6183),
-    [sym_statement_function] = STATE(6654),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_program_repeat1] = STATE(660),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(3377),
-    [aux_sym_preproc_def_token1] = ACTIONS(3380),
-    [aux_sym_preproc_if_token1] = ACTIONS(3383),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3386),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3386),
-    [sym_preproc_directive] = ACTIONS(3389),
-    [anon_sym_LPAREN2] = ACTIONS(3392),
-    [anon_sym_PLUS] = ACTIONS(3394),
-    [anon_sym_DASH] = ACTIONS(3394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3396),
-    [aux_sym_interface_statement_token1] = ACTIONS(3399),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3402),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3402),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(3392),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3405),
-    [aux_sym_language_binding_token1] = ACTIONS(3408),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3411),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3414),
-    [aux_sym_contains_statement_token1] = ACTIONS(3392),
-    [aux_sym_use_statement_token1] = ACTIONS(3417),
-    [aux_sym_use_statement_token2] = ACTIONS(3414),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3420),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3423),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3414),
-    [aux_sym_save_statement_token1] = ACTIONS(3426),
-    [aux_sym_private_statement_token1] = ACTIONS(3429),
-    [aux_sym_public_statement_token1] = ACTIONS(3432),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3435),
-    [aux_sym_common_statement_token1] = ACTIONS(3438),
-    [aux_sym_import_statement_token1] = ACTIONS(3441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3414),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3444),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3414),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3456),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3459),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3453),
-    [aux_sym_derived_type_token1] = ACTIONS(3462),
-    [aux_sym_declared_type_token1] = ACTIONS(3465),
-    [aux_sym_declared_type_token2] = ACTIONS(3465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3468),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3471),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3474),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3447),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3480),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3447),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3402),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3402),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3483),
-    [anon_sym_SEMI] = ACTIONS(3394),
-    [aux_sym_stop_statement_token1] = ACTIONS(3402),
-    [aux_sym_stop_statement_token2] = ACTIONS(3402),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3392),
-    [aux_sym_include_statement_token1] = ACTIONS(3486),
-    [aux_sym_data_statement_token1] = ACTIONS(3489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3402),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3492),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3392),
-    [aux_sym_block_construct_token1] = ACTIONS(3402),
-    [aux_sym_associate_statement_token1] = ACTIONS(3392),
-    [aux_sym_format_statement_token1] = ACTIONS(3402),
-    [aux_sym_print_statement_token1] = ACTIONS(3392),
-    [aux_sym_open_statement_token1] = ACTIONS(3392),
-    [aux_sym_close_statement_token1] = ACTIONS(3392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3402),
-    [aux_sym_enum_statement_token1] = ACTIONS(3495),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3498),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3392),
-    [aux_sym_entry_statement_token1] = ACTIONS(3402),
-    [aux_sym_logical_expression_token5] = ACTIONS(3394),
-    [anon_sym_DOT] = ACTIONS(3392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3394),
-    [anon_sym_LBRACK] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3394),
-    [aux_sym_null_literal_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3402),
-    [aux_sym_identifier_token1] = ACTIONS(3402),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3501),
-    [sym__float_literal] = ACTIONS(3394),
-    [sym__boz_literal] = ACTIONS(3394),
-    [sym__string_literal] = ACTIONS(3394),
-    [sym__string_literal_kind] = ACTIONS(3394),
-  },
-  [661] = {
+  [663] = {
     [sym_preproc_include] = STATE(655),
     [sym_preproc_def] = STATE(655),
     [sym_preproc_function_def] = STATE(655),
     [sym_preproc_call] = STATE(655),
     [sym_preproc_if_in_statements] = STATE(655),
     [sym_preproc_ifdef_in_statements] = STATE(655),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(655),
-    [aux_sym_preproc_include_token1] = ACTIONS(3504),
-    [aux_sym_preproc_def_token1] = ACTIONS(3507),
-    [aux_sym_preproc_if_token1] = ACTIONS(3510),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3513),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3513),
-    [sym_preproc_directive] = ACTIONS(3516),
+    [aux_sym_preproc_include_token1] = ACTIONS(3357),
+    [aux_sym_preproc_def_token1] = ACTIONS(3360),
+    [aux_sym_preproc_if_token1] = ACTIONS(3363),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3366),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3366),
+    [sym_preproc_directive] = ACTIONS(3369),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3519),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3372),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -180717,7 +180922,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3522),
+    [anon_sym_SEMI] = ACTIONS(3375),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -180736,11 +180941,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2747),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2823),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2747),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2823),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -180772,97 +180977,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3524),
+    [sym__integer_literal] = ACTIONS(3377),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [662] = {
-    [sym_preproc_include] = STATE(678),
-    [sym_preproc_def] = STATE(678),
-    [sym_preproc_function_def] = STATE(678),
-    [sym_preproc_call] = STATE(678),
-    [sym_preproc_if_in_statements] = STATE(678),
-    [sym_preproc_ifdef_in_statements] = STATE(678),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(781),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7391),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(678),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [664] = {
+    [sym_preproc_include] = STATE(679),
+    [sym_preproc_def] = STATE(679),
+    [sym_preproc_function_def] = STATE(679),
+    [sym_preproc_call] = STATE(679),
+    [sym_preproc_if_in_statements] = STATE(679),
+    [sym_preproc_ifdef_in_statements] = STATE(679),
+    [sym__statements] = STATE(7070),
+    [sym_statement_label] = STATE(808),
+    [sym_stop_statement] = STATE(7070),
+    [sym_assignment_statement] = STATE(7070),
+    [sym_pointer_association_statement] = STATE(7070),
+    [sym_subroutine_call] = STATE(7070),
+    [sym_keyword_statement] = STATE(7070),
+    [sym_include_statement] = STATE(7070),
+    [sym_do_loop_statement] = STATE(7070),
+    [sym_do_label_statement] = STATE(7070),
+    [sym_end_do_label_statement] = STATE(7070),
+    [sym_if_statement] = STATE(7070),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7070),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7070),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7070),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7070),
+    [sym_select_type_statement] = STATE(7070),
+    [sym_select_rank_statement] = STATE(7070),
+    [sym_block_construct] = STATE(7070),
+    [sym_associate_statement] = STATE(7070),
+    [sym_format_statement] = STATE(7070),
+    [sym_read_statement] = STATE(7070),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7070),
+    [sym_open_statement] = STATE(7070),
+    [sym_close_statement] = STATE(7070),
+    [sym_write_statement] = STATE(7070),
+    [sym_inquire_statement] = STATE(7070),
+    [sym_file_position_statement] = STATE(7070),
+    [sym_allocate_statement] = STATE(7070),
+    [sym_entry_statement] = STATE(7070),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7070),
+    [sym_coarray_team_statement] = STATE(7070),
+    [sym_end_coarray_team_statement] = STATE(7685),
+    [sym_coarray_critical_statement] = STATE(7070),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(679),
+    [aux_sym_preproc_include_token1] = ACTIONS(3380),
+    [aux_sym_preproc_def_token1] = ACTIONS(3382),
+    [aux_sym_preproc_if_token1] = ACTIONS(3384),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3386),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3386),
+    [sym_preproc_directive] = ACTIONS(3388),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3390),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -180891,7 +181096,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3539),
+    [anon_sym_SEMI] = ACTIONS(3392),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -180904,7 +181109,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -180942,6 +181146,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3394),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
@@ -180951,91 +181156,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [663] = {
-    [sym_preproc_include] = STATE(659),
-    [sym_preproc_def] = STATE(659),
-    [sym_preproc_function_def] = STATE(659),
-    [sym_preproc_call] = STATE(659),
-    [sym_preproc_if_in_statements] = STATE(659),
-    [sym_preproc_ifdef_in_statements] = STATE(659),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7663),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(659),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+  [665] = {
+    [sym_preproc_include] = STATE(722),
+    [sym_preproc_def] = STATE(722),
+    [sym_preproc_function_def] = STATE(722),
+    [sym_preproc_call] = STATE(722),
+    [sym_preproc_if_in_statements] = STATE(722),
+    [sym_preproc_ifdef_in_statements] = STATE(722),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7683),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(722),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181064,7 +181269,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3543),
+    [anon_sym_SEMI] = ACTIONS(3408),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181115,7 +181320,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -181124,91 +181329,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [664] = {
-    [sym_preproc_include] = STATE(748),
-    [sym_preproc_def] = STATE(748),
-    [sym_preproc_function_def] = STATE(748),
-    [sym_preproc_call] = STATE(748),
-    [sym_preproc_if_in_statements] = STATE(748),
-    [sym_preproc_ifdef_in_statements] = STATE(748),
-    [sym__statements] = STATE(6655),
-    [sym_statement_label] = STATE(771),
-    [sym_stop_statement] = STATE(6655),
-    [sym_assignment_statement] = STATE(6655),
-    [sym_pointer_association_statement] = STATE(6655),
-    [sym_subroutine_call] = STATE(6655),
-    [sym_keyword_statement] = STATE(6655),
-    [sym_include_statement] = STATE(6655),
-    [sym_do_loop_statement] = STATE(6655),
-    [sym_do_label_statement] = STATE(6655),
-    [sym_end_do_label_statement] = STATE(6655),
-    [sym_if_statement] = STATE(6655),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6655),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6655),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6655),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7608),
-    [sym_select_case_statement] = STATE(6655),
-    [sym_select_type_statement] = STATE(6655),
-    [sym_select_rank_statement] = STATE(6655),
-    [sym_block_construct] = STATE(6655),
-    [sym_associate_statement] = STATE(6655),
-    [sym_format_statement] = STATE(6655),
-    [sym_read_statement] = STATE(6655),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6655),
-    [sym_open_statement] = STATE(6655),
-    [sym_close_statement] = STATE(6655),
-    [sym_write_statement] = STATE(6655),
-    [sym_inquire_statement] = STATE(6655),
-    [sym_file_position_statement] = STATE(6655),
-    [sym_allocate_statement] = STATE(6655),
-    [sym_entry_statement] = STATE(6655),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6655),
-    [sym_coarray_team_statement] = STATE(6655),
-    [sym_coarray_critical_statement] = STATE(6655),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(748),
-    [aux_sym_preproc_include_token1] = ACTIONS(3309),
-    [aux_sym_preproc_def_token1] = ACTIONS(3311),
-    [aux_sym_preproc_if_token1] = ACTIONS(3313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3315),
-    [sym_preproc_directive] = ACTIONS(3317),
+  [666] = {
+    [sym_preproc_include] = STATE(688),
+    [sym_preproc_def] = STATE(688),
+    [sym_preproc_function_def] = STATE(688),
+    [sym_preproc_call] = STATE(688),
+    [sym_preproc_if_in_statements] = STATE(688),
+    [sym_preproc_ifdef_in_statements] = STATE(688),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(688),
+    [aux_sym_preproc_include_token1] = ACTIONS(3412),
+    [aux_sym_preproc_def_token1] = ACTIONS(3415),
+    [aux_sym_preproc_if_token1] = ACTIONS(3418),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3421),
+    [sym_preproc_directive] = ACTIONS(3424),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3319),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3427),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181237,7 +181441,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3545),
+    [anon_sym_SEMI] = ACTIONS(3291),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181255,11 +181459,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2707),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2707),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -181291,97 +181496,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3325),
+    [sym__integer_literal] = ACTIONS(3430),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [665] = {
-    [sym_preproc_include] = STATE(721),
-    [sym_preproc_def] = STATE(721),
-    [sym_preproc_function_def] = STATE(721),
-    [sym_preproc_call] = STATE(721),
-    [sym_preproc_if_in_statements] = STATE(721),
-    [sym_preproc_ifdef_in_statements] = STATE(721),
-    [sym__statements] = STATE(6979),
-    [sym_statement_label] = STATE(807),
-    [sym_stop_statement] = STATE(6979),
-    [sym_assignment_statement] = STATE(6979),
-    [sym_pointer_association_statement] = STATE(6979),
-    [sym_subroutine_call] = STATE(6979),
-    [sym_keyword_statement] = STATE(6979),
-    [sym_include_statement] = STATE(6979),
-    [sym_do_loop_statement] = STATE(6979),
-    [sym_do_label_statement] = STATE(6979),
-    [sym_end_do_label_statement] = STATE(6979),
-    [sym_if_statement] = STATE(6979),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6979),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6979),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6979),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6979),
-    [sym_select_type_statement] = STATE(6979),
-    [sym_select_rank_statement] = STATE(6979),
-    [sym_block_construct] = STATE(6979),
-    [sym_associate_statement] = STATE(6979),
-    [sym_format_statement] = STATE(6979),
-    [sym_read_statement] = STATE(6979),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6979),
-    [sym_open_statement] = STATE(6979),
-    [sym_close_statement] = STATE(6979),
-    [sym_write_statement] = STATE(6979),
-    [sym_inquire_statement] = STATE(6979),
-    [sym_file_position_statement] = STATE(6979),
-    [sym_allocate_statement] = STATE(6979),
-    [sym_entry_statement] = STATE(6979),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6979),
-    [sym_coarray_team_statement] = STATE(6979),
-    [sym_end_coarray_team_statement] = STATE(7468),
-    [sym_coarray_critical_statement] = STATE(6979),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(721),
-    [aux_sym_preproc_include_token1] = ACTIONS(3547),
-    [aux_sym_preproc_def_token1] = ACTIONS(3549),
-    [aux_sym_preproc_if_token1] = ACTIONS(3551),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3553),
-    [sym_preproc_directive] = ACTIONS(3555),
+  [667] = {
+    [sym_preproc_include] = STATE(665),
+    [sym_preproc_def] = STATE(665),
+    [sym_preproc_function_def] = STATE(665),
+    [sym_preproc_call] = STATE(665),
+    [sym_preproc_if_in_statements] = STATE(665),
+    [sym_preproc_ifdef_in_statements] = STATE(665),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7422),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(665),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3557),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181410,7 +181615,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3433),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181460,8 +181665,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3561),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -181470,91 +181675,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [666] = {
-    [sym_preproc_include] = STATE(658),
-    [sym_preproc_def] = STATE(658),
-    [sym_preproc_function_def] = STATE(658),
-    [sym_preproc_call] = STATE(658),
-    [sym_preproc_if_in_statements] = STATE(658),
-    [sym_preproc_ifdef_in_statements] = STATE(658),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7640),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(658),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+  [668] = {
+    [sym_preproc_include] = STATE(677),
+    [sym_preproc_def] = STATE(677),
+    [sym_preproc_function_def] = STATE(677),
+    [sym_preproc_call] = STATE(677),
+    [sym_preproc_if_in_statements] = STATE(677),
+    [sym_preproc_ifdef_in_statements] = STATE(677),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7469),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(677),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181583,7 +181788,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3563),
+    [anon_sym_SEMI] = ACTIONS(3435),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181607,7 +181812,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -181635,6 +181839,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -181643,91 +181848,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [667] = {
-    [sym_preproc_include] = STATE(665),
-    [sym_preproc_def] = STATE(665),
-    [sym_preproc_function_def] = STATE(665),
-    [sym_preproc_call] = STATE(665),
-    [sym_preproc_if_in_statements] = STATE(665),
-    [sym_preproc_ifdef_in_statements] = STATE(665),
-    [sym__statements] = STATE(6979),
-    [sym_statement_label] = STATE(807),
-    [sym_stop_statement] = STATE(6979),
-    [sym_assignment_statement] = STATE(6979),
-    [sym_pointer_association_statement] = STATE(6979),
-    [sym_subroutine_call] = STATE(6979),
-    [sym_keyword_statement] = STATE(6979),
-    [sym_include_statement] = STATE(6979),
-    [sym_do_loop_statement] = STATE(6979),
-    [sym_do_label_statement] = STATE(6979),
-    [sym_end_do_label_statement] = STATE(6979),
-    [sym_if_statement] = STATE(6979),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6979),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6979),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6979),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6979),
-    [sym_select_type_statement] = STATE(6979),
-    [sym_select_rank_statement] = STATE(6979),
-    [sym_block_construct] = STATE(6979),
-    [sym_associate_statement] = STATE(6979),
-    [sym_format_statement] = STATE(6979),
-    [sym_read_statement] = STATE(6979),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6979),
-    [sym_open_statement] = STATE(6979),
-    [sym_close_statement] = STATE(6979),
-    [sym_write_statement] = STATE(6979),
-    [sym_inquire_statement] = STATE(6979),
-    [sym_file_position_statement] = STATE(6979),
-    [sym_allocate_statement] = STATE(6979),
-    [sym_entry_statement] = STATE(6979),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6979),
-    [sym_coarray_team_statement] = STATE(6979),
-    [sym_end_coarray_team_statement] = STATE(7643),
-    [sym_coarray_critical_statement] = STATE(6979),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(665),
-    [aux_sym_preproc_include_token1] = ACTIONS(3547),
-    [aux_sym_preproc_def_token1] = ACTIONS(3549),
-    [aux_sym_preproc_if_token1] = ACTIONS(3551),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3553),
-    [sym_preproc_directive] = ACTIONS(3555),
+  [669] = {
+    [sym_preproc_include] = STATE(717),
+    [sym_preproc_def] = STATE(717),
+    [sym_preproc_function_def] = STATE(717),
+    [sym_preproc_call] = STATE(717),
+    [sym_preproc_if_in_statements] = STATE(717),
+    [sym_preproc_ifdef_in_statements] = STATE(717),
+    [sym__statements] = STATE(6910),
+    [sym_statement_label] = STATE(772),
+    [sym_stop_statement] = STATE(6910),
+    [sym_assignment_statement] = STATE(6910),
+    [sym_pointer_association_statement] = STATE(6910),
+    [sym_subroutine_call] = STATE(6910),
+    [sym_keyword_statement] = STATE(6910),
+    [sym_include_statement] = STATE(6910),
+    [sym_do_loop_statement] = STATE(6910),
+    [sym_do_label_statement] = STATE(6910),
+    [sym_end_do_label_statement] = STATE(6910),
+    [sym_if_statement] = STATE(6910),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6910),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6910),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6910),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7473),
+    [sym_select_case_statement] = STATE(6910),
+    [sym_select_type_statement] = STATE(6910),
+    [sym_select_rank_statement] = STATE(6910),
+    [sym_block_construct] = STATE(6910),
+    [sym_associate_statement] = STATE(6910),
+    [sym_format_statement] = STATE(6910),
+    [sym_read_statement] = STATE(6910),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6910),
+    [sym_open_statement] = STATE(6910),
+    [sym_close_statement] = STATE(6910),
+    [sym_write_statement] = STATE(6910),
+    [sym_inquire_statement] = STATE(6910),
+    [sym_file_position_statement] = STATE(6910),
+    [sym_allocate_statement] = STATE(6910),
+    [sym_entry_statement] = STATE(6910),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6910),
+    [sym_coarray_team_statement] = STATE(6910),
+    [sym_coarray_critical_statement] = STATE(6910),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+    [aux_sym_preproc_include_token1] = ACTIONS(3293),
+    [aux_sym_preproc_def_token1] = ACTIONS(3295),
+    [aux_sym_preproc_if_token1] = ACTIONS(3297),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3299),
+    [sym_preproc_directive] = ACTIONS(3301),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3557),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3303),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181756,7 +181961,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3565),
+    [anon_sym_SEMI] = ACTIONS(3437),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181774,6 +181979,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -181806,101 +182012,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3561),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3309),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [668] = {
-    [sym_preproc_include] = STATE(687),
-    [sym_preproc_def] = STATE(687),
-    [sym_preproc_function_def] = STATE(687),
-    [sym_preproc_call] = STATE(687),
-    [sym_preproc_if_in_statements] = STATE(687),
-    [sym_preproc_ifdef_in_statements] = STATE(687),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7347),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+  [670] = {
+    [sym_preproc_include] = STATE(686),
+    [sym_preproc_def] = STATE(686),
+    [sym_preproc_function_def] = STATE(686),
+    [sym_preproc_call] = STATE(686),
+    [sym_preproc_if_in_statements] = STATE(686),
+    [sym_preproc_ifdef_in_statements] = STATE(686),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(786),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7566),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(686),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -181929,7 +182134,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3567),
+    [anon_sym_SEMI] = ACTIONS(3439),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -181942,6 +182147,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -181980,7 +182186,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -181989,90 +182194,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [669] = {
-    [sym_preproc_include] = STATE(655),
-    [sym_preproc_def] = STATE(655),
-    [sym_preproc_function_def] = STATE(655),
-    [sym_preproc_call] = STATE(655),
-    [sym_preproc_if_in_statements] = STATE(655),
-    [sym_preproc_ifdef_in_statements] = STATE(655),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(655),
-    [aux_sym_preproc_include_token1] = ACTIONS(3268),
-    [aux_sym_preproc_def_token1] = ACTIONS(3271),
-    [aux_sym_preproc_if_token1] = ACTIONS(3274),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3277),
-    [sym_preproc_directive] = ACTIONS(3280),
+  [671] = {
+    [sym_preproc_include] = STATE(715),
+    [sym_preproc_def] = STATE(715),
+    [sym_preproc_function_def] = STATE(715),
+    [sym_preproc_call] = STATE(715),
+    [sym_preproc_if_in_statements] = STATE(715),
+    [sym_preproc_ifdef_in_statements] = STATE(715),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7446),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(715),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3283),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -182101,7 +182307,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3522),
+    [anon_sym_SEMI] = ACTIONS(3353),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -182120,13 +182326,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2781),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2781),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -182156,97 +182361,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3288),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [670] = {
-    [sym_preproc_include] = STATE(738),
-    [sym_preproc_def] = STATE(738),
-    [sym_preproc_function_def] = STATE(738),
-    [sym_preproc_call] = STATE(738),
-    [sym_preproc_if_in_statements] = STATE(738),
-    [sym_preproc_ifdef_in_statements] = STATE(738),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(781),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7391),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [672] = {
+    [sym_preproc_include] = STATE(692),
+    [sym_preproc_def] = STATE(692),
+    [sym_preproc_function_def] = STATE(692),
+    [sym_preproc_call] = STATE(692),
+    [sym_preproc_if_in_statements] = STATE(692),
+    [sym_preproc_ifdef_in_statements] = STATE(692),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(692),
+    [aux_sym_preproc_include_token1] = ACTIONS(3412),
+    [aux_sym_preproc_def_token1] = ACTIONS(3415),
+    [aux_sym_preproc_if_token1] = ACTIONS(3418),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3421),
+    [sym_preproc_directive] = ACTIONS(3424),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3427),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -182275,7 +182479,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3569),
+    [anon_sym_SEMI] = ACTIONS(3441),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -182288,16 +182492,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2707),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2707),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -182329,270 +182534,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3430),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [671] = {
-    [sym_preproc_include] = STATE(671),
-    [sym_preproc_def] = STATE(671),
-    [sym_preproc_function_def] = STATE(671),
-    [sym_preproc_call] = STATE(671),
-    [sym_preproc_if_in_specification_part] = STATE(671),
-    [sym_preproc_ifdef_in_specification_part] = STATE(671),
-    [sym_interface] = STATE(671),
-    [sym_interface_statement] = STATE(3837),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(671),
-    [sym_use_statement] = STATE(6493),
-    [sym_implicit_statement] = STATE(6493),
-    [sym_save_statement] = STATE(6493),
-    [sym_private_statement] = STATE(671),
-    [sym_public_statement] = STATE(671),
-    [sym_namelist_statement] = STATE(6493),
-    [sym_common_statement] = STATE(6493),
-    [sym_import_statement] = STATE(6493),
-    [sym_derived_type_definition] = STATE(671),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4295),
-    [sym_variable_declaration] = STATE(6493),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6493),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6493),
-    [sym_equivalence_statement] = STATE(6493),
-    [sym_statement_label] = STATE(7160),
-    [sym_include_statement] = STATE(6493),
-    [sym_data_statement] = STATE(6493),
-    [sym_enum] = STATE(671),
-    [sym_enum_statement] = STATE(6077),
-    [sym_enumeration_type] = STATE(671),
-    [sym_enumeration_type_statement] = STATE(6083),
-    [sym_statement_function] = STATE(6493),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_program_repeat1] = STATE(671),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(3571),
-    [aux_sym_preproc_def_token1] = ACTIONS(3574),
-    [aux_sym_preproc_if_token1] = ACTIONS(3577),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3580),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3580),
-    [sym_preproc_directive] = ACTIONS(3583),
-    [anon_sym_LPAREN2] = ACTIONS(3392),
-    [anon_sym_PLUS] = ACTIONS(3394),
-    [anon_sym_DASH] = ACTIONS(3394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3396),
-    [aux_sym_end_program_statement_token2] = ACTIONS(3392),
-    [aux_sym_interface_statement_token1] = ACTIONS(3399),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3402),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3402),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3405),
-    [aux_sym_language_binding_token1] = ACTIONS(3408),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3411),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3414),
-    [aux_sym_contains_statement_token1] = ACTIONS(3392),
-    [aux_sym_use_statement_token1] = ACTIONS(3417),
-    [aux_sym_use_statement_token2] = ACTIONS(3414),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3420),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3423),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3414),
-    [aux_sym_save_statement_token1] = ACTIONS(3426),
-    [aux_sym_private_statement_token1] = ACTIONS(3586),
-    [aux_sym_public_statement_token1] = ACTIONS(3589),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3435),
-    [aux_sym_common_statement_token1] = ACTIONS(3438),
-    [aux_sym_import_statement_token1] = ACTIONS(3441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3414),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3444),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3414),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3456),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3459),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3453),
-    [aux_sym_derived_type_token1] = ACTIONS(3462),
-    [aux_sym_declared_type_token1] = ACTIONS(3465),
-    [aux_sym_declared_type_token2] = ACTIONS(3465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3468),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3471),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3474),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3447),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3480),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3447),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3402),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3402),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3483),
-    [anon_sym_SEMI] = ACTIONS(3394),
-    [aux_sym_stop_statement_token1] = ACTIONS(3402),
-    [aux_sym_stop_statement_token2] = ACTIONS(3402),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3392),
-    [aux_sym_include_statement_token1] = ACTIONS(3486),
-    [aux_sym_data_statement_token1] = ACTIONS(3489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3402),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3492),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3392),
-    [aux_sym_block_construct_token1] = ACTIONS(3402),
-    [aux_sym_associate_statement_token1] = ACTIONS(3392),
-    [aux_sym_format_statement_token1] = ACTIONS(3402),
-    [aux_sym_print_statement_token1] = ACTIONS(3392),
-    [aux_sym_open_statement_token1] = ACTIONS(3392),
-    [aux_sym_close_statement_token1] = ACTIONS(3392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3402),
-    [aux_sym_enum_statement_token1] = ACTIONS(3495),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3498),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3392),
-    [aux_sym_entry_statement_token1] = ACTIONS(3402),
-    [aux_sym_logical_expression_token5] = ACTIONS(3394),
-    [anon_sym_DOT] = ACTIONS(3392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3394),
-    [anon_sym_LBRACK] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3394),
-    [aux_sym_null_literal_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3402),
-    [aux_sym_identifier_token1] = ACTIONS(3402),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3501),
-    [sym__float_literal] = ACTIONS(3394),
-    [sym__boz_literal] = ACTIONS(3394),
-    [sym__string_literal] = ACTIONS(3394),
-    [sym__string_literal_kind] = ACTIONS(3394),
-  },
-  [672] = {
-    [sym_preproc_include] = STATE(745),
-    [sym_preproc_def] = STATE(745),
-    [sym_preproc_function_def] = STATE(745),
-    [sym_preproc_call] = STATE(745),
-    [sym_preproc_if_in_statements] = STATE(745),
-    [sym_preproc_ifdef_in_statements] = STATE(745),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(800),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6511),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7331),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(745),
-    [aux_sym_preproc_include_token1] = ACTIONS(3592),
-    [aux_sym_preproc_def_token1] = ACTIONS(3594),
-    [aux_sym_preproc_if_token1] = ACTIONS(1390),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
-    [sym_preproc_directive] = ACTIONS(3596),
+  [673] = {
+    [sym_preproc_include] = STATE(706),
+    [sym_preproc_def] = STATE(706),
+    [sym_preproc_function_def] = STATE(706),
+    [sym_preproc_call] = STATE(706),
+    [sym_preproc_if_in_statements] = STATE(706),
+    [sym_preproc_ifdef_in_statements] = STATE(706),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(782),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7630),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -182621,7 +182653,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3598),
+    [anon_sym_SEMI] = ACTIONS(3347),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -182634,6 +182666,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -182644,7 +182677,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -182681,86 +182713,86 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [673] = {
-    [sym_preproc_include] = STATE(745),
-    [sym_preproc_def] = STATE(745),
-    [sym_preproc_function_def] = STATE(745),
-    [sym_preproc_call] = STATE(745),
-    [sym_preproc_if_in_statements] = STATE(745),
-    [sym_preproc_ifdef_in_statements] = STATE(745),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(800),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6511),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7371),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(745),
-    [aux_sym_preproc_include_token1] = ACTIONS(3592),
-    [aux_sym_preproc_def_token1] = ACTIONS(3594),
+  [674] = {
+    [sym_preproc_include] = STATE(741),
+    [sym_preproc_def] = STATE(741),
+    [sym_preproc_function_def] = STATE(741),
+    [sym_preproc_call] = STATE(741),
+    [sym_preproc_if_in_statements] = STATE(741),
+    [sym_preproc_ifdef_in_statements] = STATE(741),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(796),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6595),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7476),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(741),
+    [aux_sym_preproc_include_token1] = ACTIONS(3327),
+    [aux_sym_preproc_def_token1] = ACTIONS(3329),
     [aux_sym_preproc_if_token1] = ACTIONS(1390),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
-    [sym_preproc_directive] = ACTIONS(3596),
+    [sym_preproc_directive] = ACTIONS(3331),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -182794,7 +182826,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3598),
+    [anon_sym_SEMI] = ACTIONS(3333),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -182854,91 +182886,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [674] = {
-    [sym_preproc_include] = STATE(685),
-    [sym_preproc_def] = STATE(685),
-    [sym_preproc_function_def] = STATE(685),
-    [sym_preproc_call] = STATE(685),
-    [sym_preproc_if_in_statements] = STATE(685),
-    [sym_preproc_ifdef_in_statements] = STATE(685),
-    [sym__statements] = STATE(6655),
-    [sym_statement_label] = STATE(769),
-    [sym_stop_statement] = STATE(6655),
-    [sym_assignment_statement] = STATE(6655),
-    [sym_pointer_association_statement] = STATE(6655),
-    [sym_subroutine_call] = STATE(6655),
-    [sym_keyword_statement] = STATE(6655),
-    [sym_include_statement] = STATE(6655),
-    [sym_do_loop_statement] = STATE(6655),
-    [sym_do_label_statement] = STATE(6655),
-    [sym_end_do_label_statement] = STATE(6655),
-    [sym_if_statement] = STATE(6655),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6655),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6655),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6655),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7697),
-    [sym_select_case_statement] = STATE(6655),
-    [sym_select_type_statement] = STATE(6655),
-    [sym_select_rank_statement] = STATE(6655),
-    [sym_block_construct] = STATE(6655),
-    [sym_associate_statement] = STATE(6655),
-    [sym_format_statement] = STATE(6655),
-    [sym_read_statement] = STATE(6655),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6655),
-    [sym_open_statement] = STATE(6655),
-    [sym_close_statement] = STATE(6655),
-    [sym_write_statement] = STATE(6655),
-    [sym_inquire_statement] = STATE(6655),
-    [sym_file_position_statement] = STATE(6655),
-    [sym_allocate_statement] = STATE(6655),
-    [sym_entry_statement] = STATE(6655),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6655),
-    [sym_coarray_team_statement] = STATE(6655),
-    [sym_coarray_critical_statement] = STATE(6655),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(685),
-    [aux_sym_preproc_include_token1] = ACTIONS(3309),
-    [aux_sym_preproc_def_token1] = ACTIONS(3311),
-    [aux_sym_preproc_if_token1] = ACTIONS(3313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3315),
-    [sym_preproc_directive] = ACTIONS(3317),
+  [675] = {
+    [sym_preproc_include] = STATE(698),
+    [sym_preproc_def] = STATE(698),
+    [sym_preproc_function_def] = STATE(698),
+    [sym_preproc_call] = STATE(698),
+    [sym_preproc_if_in_statements] = STATE(698),
+    [sym_preproc_ifdef_in_statements] = STATE(698),
+    [sym__statements] = STATE(7070),
+    [sym_statement_label] = STATE(808),
+    [sym_stop_statement] = STATE(7070),
+    [sym_assignment_statement] = STATE(7070),
+    [sym_pointer_association_statement] = STATE(7070),
+    [sym_subroutine_call] = STATE(7070),
+    [sym_keyword_statement] = STATE(7070),
+    [sym_include_statement] = STATE(7070),
+    [sym_do_loop_statement] = STATE(7070),
+    [sym_do_label_statement] = STATE(7070),
+    [sym_end_do_label_statement] = STATE(7070),
+    [sym_if_statement] = STATE(7070),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7070),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7070),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7070),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7070),
+    [sym_select_type_statement] = STATE(7070),
+    [sym_select_rank_statement] = STATE(7070),
+    [sym_block_construct] = STATE(7070),
+    [sym_associate_statement] = STATE(7070),
+    [sym_format_statement] = STATE(7070),
+    [sym_read_statement] = STATE(7070),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7070),
+    [sym_open_statement] = STATE(7070),
+    [sym_close_statement] = STATE(7070),
+    [sym_write_statement] = STATE(7070),
+    [sym_inquire_statement] = STATE(7070),
+    [sym_file_position_statement] = STATE(7070),
+    [sym_allocate_statement] = STATE(7070),
+    [sym_entry_statement] = STATE(7070),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7070),
+    [sym_coarray_team_statement] = STATE(7070),
+    [sym_end_coarray_team_statement] = STATE(7487),
+    [sym_coarray_critical_statement] = STATE(7070),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(698),
+    [aux_sym_preproc_include_token1] = ACTIONS(3380),
+    [aux_sym_preproc_def_token1] = ACTIONS(3382),
+    [aux_sym_preproc_if_token1] = ACTIONS(3384),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3386),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3386),
+    [sym_preproc_directive] = ACTIONS(3388),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3319),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3390),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -182967,7 +182999,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3600),
+    [anon_sym_SEMI] = ACTIONS(3443),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -182985,7 +183017,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -183018,273 +183049,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3394),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3325),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [675] = {
-    [sym_preproc_include] = STATE(675),
-    [sym_preproc_def] = STATE(675),
-    [sym_preproc_function_def] = STATE(675),
-    [sym_preproc_call] = STATE(675),
-    [sym_preproc_if_in_statements] = STATE(675),
-    [sym_preproc_ifdef_in_statements] = STATE(675),
-    [sym__statements] = STATE(6888),
-    [sym_statement_label] = STATE(809),
-    [sym_stop_statement] = STATE(6888),
-    [sym_assignment_statement] = STATE(6888),
-    [sym_pointer_association_statement] = STATE(6888),
-    [sym_subroutine_call] = STATE(6888),
-    [sym_keyword_statement] = STATE(6888),
-    [sym_include_statement] = STATE(6888),
-    [sym_do_loop_statement] = STATE(6888),
-    [sym_do_label_statement] = STATE(6888),
-    [sym_end_do_label_statement] = STATE(6888),
-    [sym_if_statement] = STATE(6888),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6888),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6888),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6888),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6888),
-    [sym_select_type_statement] = STATE(6888),
-    [sym_select_rank_statement] = STATE(6888),
-    [sym_block_construct] = STATE(6888),
-    [sym_associate_statement] = STATE(6888),
-    [sym_format_statement] = STATE(6888),
-    [sym_read_statement] = STATE(6888),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6888),
-    [sym_open_statement] = STATE(6888),
-    [sym_close_statement] = STATE(6888),
-    [sym_write_statement] = STATE(6888),
-    [sym_inquire_statement] = STATE(6888),
-    [sym_file_position_statement] = STATE(6888),
-    [sym_allocate_statement] = STATE(6888),
-    [sym_entry_statement] = STATE(6888),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6888),
-    [sym_coarray_team_statement] = STATE(6888),
-    [sym_coarray_critical_statement] = STATE(6888),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(675),
-    [aux_sym_preproc_include_token1] = ACTIONS(3602),
-    [aux_sym_preproc_def_token1] = ACTIONS(3605),
-    [aux_sym_preproc_if_token1] = ACTIONS(3608),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3611),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3611),
-    [sym_preproc_directive] = ACTIONS(3614),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3617),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
   [676] = {
-    [sym_preproc_include] = STATE(738),
-    [sym_preproc_def] = STATE(738),
-    [sym_preproc_function_def] = STATE(738),
-    [sym_preproc_call] = STATE(738),
-    [sym_preproc_if_in_statements] = STATE(738),
-    [sym_preproc_ifdef_in_statements] = STATE(738),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(783),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7694),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+    [sym_preproc_include] = STATE(722),
+    [sym_preproc_def] = STATE(722),
+    [sym_preproc_function_def] = STATE(722),
+    [sym_preproc_call] = STATE(722),
+    [sym_preproc_if_in_statements] = STATE(722),
+    [sym_preproc_ifdef_in_statements] = STATE(722),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7471),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(722),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -183313,7 +183172,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3569),
+    [anon_sym_SEMI] = ACTIONS(3408),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -183326,7 +183185,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -183365,6 +183223,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -183374,263 +183233,263 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [677] = {
-    [sym_preproc_include] = STATE(677),
-    [sym_preproc_def] = STATE(677),
-    [sym_preproc_function_def] = STATE(677),
-    [sym_preproc_call] = STATE(677),
-    [sym_preproc_if_in_specification_part] = STATE(677),
-    [sym_preproc_ifdef_in_specification_part] = STATE(677),
-    [sym_interface] = STATE(677),
-    [sym_interface_statement] = STATE(3830),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(677),
-    [sym_use_statement] = STATE(6714),
-    [sym_implicit_statement] = STATE(6714),
-    [sym_save_statement] = STATE(6714),
-    [sym_private_statement] = STATE(677),
-    [sym_public_statement] = STATE(677),
-    [sym_namelist_statement] = STATE(6714),
-    [sym_common_statement] = STATE(6714),
-    [sym_import_statement] = STATE(6714),
-    [sym_derived_type_definition] = STATE(677),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4317),
-    [sym_variable_declaration] = STATE(6714),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6714),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6714),
-    [sym_equivalence_statement] = STATE(6714),
-    [sym_statement_label] = STATE(7235),
-    [sym_include_statement] = STATE(6714),
-    [sym_data_statement] = STATE(6714),
-    [sym_enum] = STATE(677),
-    [sym_enum_statement] = STATE(6041),
-    [sym_enumeration_type] = STATE(677),
-    [sym_enumeration_type_statement] = STATE(6190),
-    [sym_statement_function] = STATE(6714),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_program_repeat1] = STATE(677),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(3620),
-    [aux_sym_preproc_def_token1] = ACTIONS(3623),
-    [aux_sym_preproc_if_token1] = ACTIONS(3626),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3629),
-    [sym_preproc_directive] = ACTIONS(3632),
-    [anon_sym_LPAREN2] = ACTIONS(3392),
-    [anon_sym_PLUS] = ACTIONS(3394),
-    [anon_sym_DASH] = ACTIONS(3394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3396),
-    [aux_sym_interface_statement_token1] = ACTIONS(3399),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3402),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3402),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3405),
-    [aux_sym_language_binding_token1] = ACTIONS(3408),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3411),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3414),
-    [aux_sym_end_function_statement_token1] = ACTIONS(3392),
-    [aux_sym_contains_statement_token1] = ACTIONS(3392),
-    [aux_sym_use_statement_token1] = ACTIONS(3417),
-    [aux_sym_use_statement_token2] = ACTIONS(3414),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3420),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3423),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3414),
-    [aux_sym_save_statement_token1] = ACTIONS(3426),
-    [aux_sym_private_statement_token1] = ACTIONS(3635),
-    [aux_sym_public_statement_token1] = ACTIONS(3638),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3435),
-    [aux_sym_common_statement_token1] = ACTIONS(3438),
-    [aux_sym_import_statement_token1] = ACTIONS(3441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3414),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3444),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3414),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3456),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3459),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3453),
-    [aux_sym_derived_type_token1] = ACTIONS(3462),
-    [aux_sym_declared_type_token1] = ACTIONS(3465),
-    [aux_sym_declared_type_token2] = ACTIONS(3465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3468),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3471),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3474),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3447),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3480),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3447),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3402),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3402),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3483),
-    [anon_sym_SEMI] = ACTIONS(3394),
-    [aux_sym_stop_statement_token1] = ACTIONS(3402),
-    [aux_sym_stop_statement_token2] = ACTIONS(3402),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3392),
-    [aux_sym_include_statement_token1] = ACTIONS(3486),
-    [aux_sym_data_statement_token1] = ACTIONS(3489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3402),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3492),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3392),
-    [aux_sym_block_construct_token1] = ACTIONS(3402),
-    [aux_sym_associate_statement_token1] = ACTIONS(3392),
-    [aux_sym_format_statement_token1] = ACTIONS(3402),
-    [aux_sym_print_statement_token1] = ACTIONS(3392),
-    [aux_sym_open_statement_token1] = ACTIONS(3392),
-    [aux_sym_close_statement_token1] = ACTIONS(3392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3402),
-    [aux_sym_enum_statement_token1] = ACTIONS(3495),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3498),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3392),
-    [aux_sym_entry_statement_token1] = ACTIONS(3402),
-    [aux_sym_logical_expression_token5] = ACTIONS(3394),
-    [anon_sym_DOT] = ACTIONS(3392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3394),
-    [anon_sym_LBRACK] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3394),
-    [aux_sym_null_literal_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3402),
-    [aux_sym_identifier_token1] = ACTIONS(3402),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3501),
-    [sym__float_literal] = ACTIONS(3394),
-    [sym__boz_literal] = ACTIONS(3394),
-    [sym__string_literal] = ACTIONS(3394),
-    [sym__string_literal_kind] = ACTIONS(3394),
+    [sym_preproc_include] = STATE(722),
+    [sym_preproc_def] = STATE(722),
+    [sym_preproc_function_def] = STATE(722),
+    [sym_preproc_call] = STATE(722),
+    [sym_preproc_if_in_statements] = STATE(722),
+    [sym_preproc_ifdef_in_statements] = STATE(722),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7422),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(722),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(3408),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(1422),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
   [678] = {
-    [sym_preproc_include] = STATE(738),
-    [sym_preproc_def] = STATE(738),
-    [sym_preproc_function_def] = STATE(738),
-    [sym_preproc_call] = STATE(738),
-    [sym_preproc_if_in_statements] = STATE(738),
-    [sym_preproc_ifdef_in_statements] = STATE(738),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(775),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7425),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+    [sym_preproc_include] = STATE(685),
+    [sym_preproc_def] = STATE(685),
+    [sym_preproc_function_def] = STATE(685),
+    [sym_preproc_call] = STATE(685),
+    [sym_preproc_if_in_statements] = STATE(685),
+    [sym_preproc_ifdef_in_statements] = STATE(685),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(782),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7630),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(685),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -183659,7 +183518,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3569),
+    [anon_sym_SEMI] = ACTIONS(3445),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -183672,7 +183531,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -183720,89 +183579,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [679] = {
-    [sym_preproc_include] = STATE(661),
-    [sym_preproc_def] = STATE(661),
-    [sym_preproc_function_def] = STATE(661),
-    [sym_preproc_call] = STATE(661),
-    [sym_preproc_if_in_statements] = STATE(661),
-    [sym_preproc_ifdef_in_statements] = STATE(661),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(661),
-    [aux_sym_preproc_include_token1] = ACTIONS(3641),
-    [aux_sym_preproc_def_token1] = ACTIONS(3644),
-    [aux_sym_preproc_if_token1] = ACTIONS(3647),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3650),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3650),
-    [sym_preproc_directive] = ACTIONS(3653),
+    [sym_preproc_include] = STATE(718),
+    [sym_preproc_def] = STATE(718),
+    [sym_preproc_function_def] = STATE(718),
+    [sym_preproc_call] = STATE(718),
+    [sym_preproc_if_in_statements] = STATE(718),
+    [sym_preproc_ifdef_in_statements] = STATE(718),
+    [sym__statements] = STATE(7070),
+    [sym_statement_label] = STATE(808),
+    [sym_stop_statement] = STATE(7070),
+    [sym_assignment_statement] = STATE(7070),
+    [sym_pointer_association_statement] = STATE(7070),
+    [sym_subroutine_call] = STATE(7070),
+    [sym_keyword_statement] = STATE(7070),
+    [sym_include_statement] = STATE(7070),
+    [sym_do_loop_statement] = STATE(7070),
+    [sym_do_label_statement] = STATE(7070),
+    [sym_end_do_label_statement] = STATE(7070),
+    [sym_if_statement] = STATE(7070),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7070),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7070),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7070),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7070),
+    [sym_select_type_statement] = STATE(7070),
+    [sym_select_rank_statement] = STATE(7070),
+    [sym_block_construct] = STATE(7070),
+    [sym_associate_statement] = STATE(7070),
+    [sym_format_statement] = STATE(7070),
+    [sym_read_statement] = STATE(7070),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7070),
+    [sym_open_statement] = STATE(7070),
+    [sym_close_statement] = STATE(7070),
+    [sym_write_statement] = STATE(7070),
+    [sym_inquire_statement] = STATE(7070),
+    [sym_file_position_statement] = STATE(7070),
+    [sym_allocate_statement] = STATE(7070),
+    [sym_entry_statement] = STATE(7070),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7070),
+    [sym_coarray_team_statement] = STATE(7070),
+    [sym_end_coarray_team_statement] = STATE(7487),
+    [sym_coarray_critical_statement] = STATE(7070),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
+    [aux_sym_preproc_include_token1] = ACTIONS(3380),
+    [aux_sym_preproc_def_token1] = ACTIONS(3382),
+    [aux_sym_preproc_if_token1] = ACTIONS(3384),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3386),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3386),
+    [sym_preproc_directive] = ACTIONS(3388),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3656),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3390),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -183831,7 +183691,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3659),
+    [anon_sym_SEMI] = ACTIONS(3447),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -183850,11 +183710,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2795),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2795),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -183883,100 +183741,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3394),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3661),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [680] = {
-    [sym_preproc_include] = STATE(681),
-    [sym_preproc_def] = STATE(681),
-    [sym_preproc_function_def] = STATE(681),
-    [sym_preproc_call] = STATE(681),
-    [sym_preproc_if_in_statements] = STATE(681),
-    [sym_preproc_ifdef_in_statements] = STATE(681),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7465),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(681),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+    [sym_preproc_include] = STATE(673),
+    [sym_preproc_def] = STATE(673),
+    [sym_preproc_function_def] = STATE(673),
+    [sym_preproc_call] = STATE(673),
+    [sym_preproc_if_in_statements] = STATE(673),
+    [sym_preproc_ifdef_in_statements] = STATE(673),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(789),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7344),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(673),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184005,7 +183864,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3664),
+    [anon_sym_SEMI] = ACTIONS(3449),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184018,6 +183877,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -184029,7 +183889,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -184066,90 +183925,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [681] = {
-    [sym_preproc_include] = STATE(704),
-    [sym_preproc_def] = STATE(704),
-    [sym_preproc_function_def] = STATE(704),
-    [sym_preproc_call] = STATE(704),
-    [sym_preproc_if_in_statements] = STATE(704),
-    [sym_preproc_ifdef_in_statements] = STATE(704),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7527),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(704),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+    [sym_preproc_include] = STATE(682),
+    [sym_preproc_def] = STATE(682),
+    [sym_preproc_function_def] = STATE(682),
+    [sym_preproc_call] = STATE(682),
+    [sym_preproc_if_in_statements] = STATE(682),
+    [sym_preproc_ifdef_in_statements] = STATE(682),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7446),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(682),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184178,7 +184037,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3357),
+    [anon_sym_SEMI] = ACTIONS(3451),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184202,7 +184061,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -184239,90 +184098,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [682] = {
-    [sym_preproc_include] = STATE(699),
-    [sym_preproc_def] = STATE(699),
-    [sym_preproc_function_def] = STATE(699),
-    [sym_preproc_call] = STATE(699),
-    [sym_preproc_if_in_statements] = STATE(699),
-    [sym_preproc_ifdef_in_statements] = STATE(699),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7527),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(699),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+    [sym_preproc_include] = STATE(715),
+    [sym_preproc_def] = STATE(715),
+    [sym_preproc_function_def] = STATE(715),
+    [sym_preproc_call] = STATE(715),
+    [sym_preproc_if_in_statements] = STATE(715),
+    [sym_preproc_ifdef_in_statements] = STATE(715),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_end_associate_statement] = STATE(7385),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(715),
+    [aux_sym_preproc_include_token1] = ACTIONS(3311),
+    [aux_sym_preproc_def_token1] = ACTIONS(3313),
+    [aux_sym_preproc_if_token1] = ACTIONS(3315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3317),
+    [sym_preproc_directive] = ACTIONS(3319),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3321),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184351,7 +184210,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3666),
+    [anon_sym_SEMI] = ACTIONS(3353),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184375,7 +184234,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(3325),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -184412,90 +184271,436 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [683] = {
+    [sym_preproc_include] = STATE(683),
+    [sym_preproc_def] = STATE(683),
+    [sym_preproc_function_def] = STATE(683),
+    [sym_preproc_call] = STATE(683),
+    [sym_preproc_if_in_specification_part] = STATE(683),
+    [sym_preproc_ifdef_in_specification_part] = STATE(683),
+    [sym_interface] = STATE(683),
+    [sym_interface_statement] = STATE(3916),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(683),
+    [sym_use_statement] = STATE(7010),
+    [sym_implicit_statement] = STATE(7010),
+    [sym_save_statement] = STATE(7010),
+    [sym_private_statement] = STATE(683),
+    [sym_public_statement] = STATE(683),
+    [sym_namelist_statement] = STATE(7010),
+    [sym_common_statement] = STATE(7010),
+    [sym_import_statement] = STATE(7010),
+    [sym_derived_type_definition] = STATE(683),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4319),
+    [sym_variable_declaration] = STATE(7010),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7010),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7010),
+    [sym_equivalence_statement] = STATE(7010),
+    [sym_statement_label] = STATE(6547),
+    [sym_include_statement] = STATE(7010),
+    [sym_data_statement] = STATE(7010),
+    [sym_enum] = STATE(683),
+    [sym_enum_statement] = STATE(6072),
+    [sym_enumeration_type] = STATE(683),
+    [sym_enumeration_type_statement] = STATE(6093),
+    [sym_statement_function] = STATE(7010),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_program_repeat1] = STATE(683),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(3453),
+    [aux_sym_preproc_def_token1] = ACTIONS(3456),
+    [aux_sym_preproc_if_token1] = ACTIONS(3459),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3462),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3462),
+    [sym_preproc_directive] = ACTIONS(3465),
+    [anon_sym_LPAREN2] = ACTIONS(3468),
+    [anon_sym_PLUS] = ACTIONS(3470),
+    [anon_sym_DASH] = ACTIONS(3470),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3472),
+    [aux_sym_interface_statement_token1] = ACTIONS(3475),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(3478),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(3478),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(3481),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(3468),
+    [aux_sym_language_binding_token1] = ACTIONS(3484),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(3487),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(3490),
+    [aux_sym_contains_statement_token1] = ACTIONS(3468),
+    [aux_sym_use_statement_token1] = ACTIONS(3493),
+    [aux_sym_use_statement_token2] = ACTIONS(3490),
+    [aux_sym_implicit_statement_token1] = ACTIONS(3496),
+    [aux_sym_implicit_statement_token3] = ACTIONS(3499),
+    [aux_sym_implicit_statement_token4] = ACTIONS(3490),
+    [aux_sym_save_statement_token1] = ACTIONS(3502),
+    [aux_sym_private_statement_token1] = ACTIONS(3505),
+    [aux_sym_public_statement_token1] = ACTIONS(3508),
+    [aux_sym_namelist_statement_token1] = ACTIONS(3511),
+    [aux_sym_common_statement_token1] = ACTIONS(3514),
+    [aux_sym_import_statement_token1] = ACTIONS(3517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(3490),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(3520),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token1] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token2] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token3] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token4] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token5] = ACTIONS(3490),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(3532),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(3535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(3529),
+    [aux_sym_derived_type_token1] = ACTIONS(3538),
+    [aux_sym_declared_type_token1] = ACTIONS(3541),
+    [aux_sym_declared_type_token2] = ACTIONS(3541),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3544),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3550),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3553),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3523),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3556),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3523),
+    [aux_sym_type_qualifier_token1] = ACTIONS(3478),
+    [aux_sym_type_qualifier_token2] = ACTIONS(3478),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3470),
+    [aux_sym_stop_statement_token1] = ACTIONS(3478),
+    [aux_sym_stop_statement_token2] = ACTIONS(3478),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3468),
+    [aux_sym_include_statement_token1] = ACTIONS(3562),
+    [aux_sym_data_statement_token1] = ACTIONS(3565),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3468),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3478),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3468),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3468),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3568),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3468),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3468),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3468),
+    [aux_sym_block_construct_token1] = ACTIONS(3478),
+    [aux_sym_associate_statement_token1] = ACTIONS(3468),
+    [aux_sym_format_statement_token1] = ACTIONS(3478),
+    [aux_sym_print_statement_token1] = ACTIONS(3468),
+    [aux_sym_open_statement_token1] = ACTIONS(3468),
+    [aux_sym_close_statement_token1] = ACTIONS(3468),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3478),
+    [aux_sym_enum_statement_token1] = ACTIONS(3571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3574),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3468),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3468),
+    [aux_sym_entry_statement_token1] = ACTIONS(3478),
+    [aux_sym_logical_expression_token5] = ACTIONS(3470),
+    [anon_sym_DOT] = ACTIONS(3468),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3470),
+    [anon_sym_LBRACK] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3470),
+    [aux_sym_null_literal_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3468),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3478),
+    [aux_sym_identifier_token1] = ACTIONS(3478),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3577),
+    [sym__float_literal] = ACTIONS(3470),
+    [sym__boz_literal] = ACTIONS(3470),
+    [sym__string_literal] = ACTIONS(3470),
+    [sym__string_literal_kind] = ACTIONS(3470),
+  },
+  [684] = {
     [sym_preproc_include] = STATE(684),
     [sym_preproc_def] = STATE(684),
     [sym_preproc_function_def] = STATE(684),
     [sym_preproc_call] = STATE(684),
     [sym_preproc_if_in_statements] = STATE(684),
     [sym_preproc_ifdef_in_statements] = STATE(684),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7619),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7248),
+    [sym_statement_label] = STATE(805),
+    [sym_stop_statement] = STATE(7248),
+    [sym_assignment_statement] = STATE(7248),
+    [sym_pointer_association_statement] = STATE(7248),
+    [sym_subroutine_call] = STATE(7248),
+    [sym_keyword_statement] = STATE(7248),
+    [sym_include_statement] = STATE(7248),
+    [sym_do_loop_statement] = STATE(7248),
+    [sym_do_label_statement] = STATE(7248),
+    [sym_end_do_label_statement] = STATE(7248),
+    [sym_if_statement] = STATE(7248),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7248),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7248),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7248),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7248),
+    [sym_select_type_statement] = STATE(7248),
+    [sym_select_rank_statement] = STATE(7248),
+    [sym_block_construct] = STATE(7248),
+    [sym_associate_statement] = STATE(7248),
+    [sym_format_statement] = STATE(7248),
+    [sym_read_statement] = STATE(7248),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7248),
+    [sym_open_statement] = STATE(7248),
+    [sym_close_statement] = STATE(7248),
+    [sym_write_statement] = STATE(7248),
+    [sym_inquire_statement] = STATE(7248),
+    [sym_file_position_statement] = STATE(7248),
+    [sym_allocate_statement] = STATE(7248),
+    [sym_entry_statement] = STATE(7248),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7248),
+    [sym_coarray_team_statement] = STATE(7248),
+    [sym_coarray_critical_statement] = STATE(7248),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(684),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+    [aux_sym_preproc_include_token1] = ACTIONS(3580),
+    [aux_sym_preproc_def_token1] = ACTIONS(3583),
+    [aux_sym_preproc_if_token1] = ACTIONS(3586),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3589),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3589),
+    [sym_preproc_directive] = ACTIONS(3592),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3595),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [685] = {
+    [sym_preproc_include] = STATE(706),
+    [sym_preproc_def] = STATE(706),
+    [sym_preproc_function_def] = STATE(706),
+    [sym_preproc_call] = STATE(706),
+    [sym_preproc_if_in_statements] = STATE(706),
+    [sym_preproc_ifdef_in_statements] = STATE(706),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(786),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7566),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184524,7 +184729,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3668),
+    [anon_sym_SEMI] = ACTIONS(3347),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184537,6 +184742,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -184575,7 +184781,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -184584,91 +184789,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [684] = {
-    [sym_preproc_include] = STATE(731),
-    [sym_preproc_def] = STATE(731),
-    [sym_preproc_function_def] = STATE(731),
-    [sym_preproc_call] = STATE(731),
-    [sym_preproc_if_in_statements] = STATE(731),
-    [sym_preproc_ifdef_in_statements] = STATE(731),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7663),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(731),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+  [686] = {
+    [sym_preproc_include] = STATE(706),
+    [sym_preproc_def] = STATE(706),
+    [sym_preproc_function_def] = STATE(706),
+    [sym_preproc_call] = STATE(706),
+    [sym_preproc_if_in_statements] = STATE(706),
+    [sym_preproc_ifdef_in_statements] = STATE(706),
+    [sym__statements] = STATE(6605),
+    [sym_statement_label] = STATE(774),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_end_do_loop_statement] = STATE(7462),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
+    [aux_sym_preproc_include_token1] = ACTIONS(3335),
+    [aux_sym_preproc_def_token1] = ACTIONS(3337),
+    [aux_sym_preproc_if_token1] = ACTIONS(3339),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3341),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3341),
+    [sym_preproc_directive] = ACTIONS(3343),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3345),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184697,7 +184902,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3373),
+    [anon_sym_SEMI] = ACTIONS(3347),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184710,6 +184915,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3349),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -184748,7 +184954,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(1422),
@@ -184757,91 +184962,437 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [685] = {
-    [sym_preproc_include] = STATE(748),
-    [sym_preproc_def] = STATE(748),
-    [sym_preproc_function_def] = STATE(748),
-    [sym_preproc_call] = STATE(748),
-    [sym_preproc_if_in_statements] = STATE(748),
-    [sym_preproc_ifdef_in_statements] = STATE(748),
-    [sym__statements] = STATE(6655),
-    [sym_statement_label] = STATE(772),
-    [sym_stop_statement] = STATE(6655),
-    [sym_assignment_statement] = STATE(6655),
-    [sym_pointer_association_statement] = STATE(6655),
-    [sym_subroutine_call] = STATE(6655),
-    [sym_keyword_statement] = STATE(6655),
-    [sym_include_statement] = STATE(6655),
-    [sym_do_loop_statement] = STATE(6655),
-    [sym_do_label_statement] = STATE(6655),
-    [sym_end_do_label_statement] = STATE(6655),
-    [sym_if_statement] = STATE(6655),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6655),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6655),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6655),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7319),
-    [sym_select_case_statement] = STATE(6655),
-    [sym_select_type_statement] = STATE(6655),
-    [sym_select_rank_statement] = STATE(6655),
-    [sym_block_construct] = STATE(6655),
-    [sym_associate_statement] = STATE(6655),
-    [sym_format_statement] = STATE(6655),
-    [sym_read_statement] = STATE(6655),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6655),
-    [sym_open_statement] = STATE(6655),
-    [sym_close_statement] = STATE(6655),
-    [sym_write_statement] = STATE(6655),
-    [sym_inquire_statement] = STATE(6655),
-    [sym_file_position_statement] = STATE(6655),
-    [sym_allocate_statement] = STATE(6655),
-    [sym_entry_statement] = STATE(6655),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6655),
-    [sym_coarray_team_statement] = STATE(6655),
-    [sym_coarray_critical_statement] = STATE(6655),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(748),
-    [aux_sym_preproc_include_token1] = ACTIONS(3309),
-    [aux_sym_preproc_def_token1] = ACTIONS(3311),
-    [aux_sym_preproc_if_token1] = ACTIONS(3313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3315),
-    [sym_preproc_directive] = ACTIONS(3317),
+  [687] = {
+    [sym_preproc_include] = STATE(687),
+    [sym_preproc_def] = STATE(687),
+    [sym_preproc_function_def] = STATE(687),
+    [sym_preproc_call] = STATE(687),
+    [sym_preproc_if_in_statements] = STATE(687),
+    [sym_preproc_ifdef_in_statements] = STATE(687),
+    [sym__statements] = STATE(6971),
+    [sym_statement_label] = STATE(806),
+    [sym_stop_statement] = STATE(6971),
+    [sym_assignment_statement] = STATE(6971),
+    [sym_pointer_association_statement] = STATE(6971),
+    [sym_subroutine_call] = STATE(6971),
+    [sym_keyword_statement] = STATE(6971),
+    [sym_include_statement] = STATE(6971),
+    [sym_do_loop_statement] = STATE(6971),
+    [sym_do_label_statement] = STATE(6971),
+    [sym_end_do_label_statement] = STATE(6971),
+    [sym_if_statement] = STATE(6971),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6971),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6971),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6971),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6971),
+    [sym_select_type_statement] = STATE(6971),
+    [sym_select_rank_statement] = STATE(6971),
+    [sym_block_construct] = STATE(6971),
+    [sym_associate_statement] = STATE(6971),
+    [sym_format_statement] = STATE(6971),
+    [sym_read_statement] = STATE(6971),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6971),
+    [sym_open_statement] = STATE(6971),
+    [sym_close_statement] = STATE(6971),
+    [sym_write_statement] = STATE(6971),
+    [sym_inquire_statement] = STATE(6971),
+    [sym_file_position_statement] = STATE(6971),
+    [sym_allocate_statement] = STATE(6971),
+    [sym_entry_statement] = STATE(6971),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6971),
+    [sym_coarray_team_statement] = STATE(6971),
+    [sym_coarray_critical_statement] = STATE(6971),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(687),
+    [aux_sym_preproc_include_token1] = ACTIONS(3598),
+    [aux_sym_preproc_def_token1] = ACTIONS(3601),
+    [aux_sym_preproc_if_token1] = ACTIONS(3604),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3607),
+    [sym_preproc_directive] = ACTIONS(3610),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3613),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [688] = {
+    [sym_preproc_include] = STATE(688),
+    [sym_preproc_def] = STATE(688),
+    [sym_preproc_function_def] = STATE(688),
+    [sym_preproc_call] = STATE(688),
+    [sym_preproc_if_in_statements] = STATE(688),
+    [sym_preproc_ifdef_in_statements] = STATE(688),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(688),
+    [aux_sym_preproc_include_token1] = ACTIONS(3616),
+    [aux_sym_preproc_def_token1] = ACTIONS(3619),
+    [aux_sym_preproc_if_token1] = ACTIONS(3622),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3625),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3625),
+    [sym_preproc_directive] = ACTIONS(3628),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3631),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [689] = {
+    [sym_preproc_include] = STATE(669),
+    [sym_preproc_def] = STATE(669),
+    [sym_preproc_function_def] = STATE(669),
+    [sym_preproc_call] = STATE(669),
+    [sym_preproc_if_in_statements] = STATE(669),
+    [sym_preproc_ifdef_in_statements] = STATE(669),
+    [sym__statements] = STATE(6910),
+    [sym_statement_label] = STATE(768),
+    [sym_stop_statement] = STATE(6910),
+    [sym_assignment_statement] = STATE(6910),
+    [sym_pointer_association_statement] = STATE(6910),
+    [sym_subroutine_call] = STATE(6910),
+    [sym_keyword_statement] = STATE(6910),
+    [sym_include_statement] = STATE(6910),
+    [sym_do_loop_statement] = STATE(6910),
+    [sym_do_label_statement] = STATE(6910),
+    [sym_end_do_label_statement] = STATE(6910),
+    [sym_if_statement] = STATE(6910),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6910),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6910),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6910),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7442),
+    [sym_select_case_statement] = STATE(6910),
+    [sym_select_type_statement] = STATE(6910),
+    [sym_select_rank_statement] = STATE(6910),
+    [sym_block_construct] = STATE(6910),
+    [sym_associate_statement] = STATE(6910),
+    [sym_format_statement] = STATE(6910),
+    [sym_read_statement] = STATE(6910),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6910),
+    [sym_open_statement] = STATE(6910),
+    [sym_close_statement] = STATE(6910),
+    [sym_write_statement] = STATE(6910),
+    [sym_inquire_statement] = STATE(6910),
+    [sym_file_position_statement] = STATE(6910),
+    [sym_allocate_statement] = STATE(6910),
+    [sym_entry_statement] = STATE(6910),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6910),
+    [sym_coarray_team_statement] = STATE(6910),
+    [sym_coarray_critical_statement] = STATE(6910),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(669),
+    [aux_sym_preproc_include_token1] = ACTIONS(3293),
+    [aux_sym_preproc_def_token1] = ACTIONS(3295),
+    [aux_sym_preproc_if_token1] = ACTIONS(3297),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3299),
+    [sym_preproc_directive] = ACTIONS(3301),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3319),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3303),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -184870,7 +185421,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3545),
+    [anon_sym_SEMI] = ACTIONS(3634),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -184888,7 +185439,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -184924,96 +185475,269 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3325),
+    [sym__integer_literal] = ACTIONS(3309),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [686] = {
-    [sym_preproc_include] = STATE(692),
-    [sym_preproc_def] = STATE(692),
-    [sym_preproc_function_def] = STATE(692),
-    [sym_preproc_call] = STATE(692),
-    [sym_preproc_if_in_statements] = STATE(692),
-    [sym_preproc_ifdef_in_statements] = STATE(692),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(692),
-    [aux_sym_preproc_include_token1] = ACTIONS(3504),
-    [aux_sym_preproc_def_token1] = ACTIONS(3507),
-    [aux_sym_preproc_if_token1] = ACTIONS(3510),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3513),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3513),
-    [sym_preproc_directive] = ACTIONS(3516),
+  [690] = {
+    [sym_preproc_include] = STATE(690),
+    [sym_preproc_def] = STATE(690),
+    [sym_preproc_function_def] = STATE(690),
+    [sym_preproc_call] = STATE(690),
+    [sym_preproc_if_in_specification_part] = STATE(690),
+    [sym_preproc_ifdef_in_specification_part] = STATE(690),
+    [sym_interface] = STATE(690),
+    [sym_interface_statement] = STATE(3845),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(690),
+    [sym_use_statement] = STATE(6946),
+    [sym_implicit_statement] = STATE(6946),
+    [sym_save_statement] = STATE(6946),
+    [sym_private_statement] = STATE(690),
+    [sym_public_statement] = STATE(690),
+    [sym_namelist_statement] = STATE(6946),
+    [sym_common_statement] = STATE(6946),
+    [sym_import_statement] = STATE(6946),
+    [sym_derived_type_definition] = STATE(690),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4312),
+    [sym_variable_declaration] = STATE(6946),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6946),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6946),
+    [sym_equivalence_statement] = STATE(6946),
+    [sym_statement_label] = STATE(6719),
+    [sym_include_statement] = STATE(6946),
+    [sym_data_statement] = STATE(6946),
+    [sym_enum] = STATE(690),
+    [sym_enum_statement] = STATE(6066),
+    [sym_enumeration_type] = STATE(690),
+    [sym_enumeration_type_statement] = STATE(6212),
+    [sym_statement_function] = STATE(6946),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_program_repeat1] = STATE(690),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(3636),
+    [aux_sym_preproc_def_token1] = ACTIONS(3639),
+    [aux_sym_preproc_if_token1] = ACTIONS(3642),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3645),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3645),
+    [sym_preproc_directive] = ACTIONS(3648),
+    [anon_sym_LPAREN2] = ACTIONS(3468),
+    [anon_sym_PLUS] = ACTIONS(3470),
+    [anon_sym_DASH] = ACTIONS(3470),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3472),
+    [aux_sym_end_program_statement_token2] = ACTIONS(3468),
+    [aux_sym_interface_statement_token1] = ACTIONS(3475),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(3478),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(3478),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(3481),
+    [aux_sym_language_binding_token1] = ACTIONS(3484),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(3487),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(3490),
+    [aux_sym_contains_statement_token1] = ACTIONS(3468),
+    [aux_sym_use_statement_token1] = ACTIONS(3493),
+    [aux_sym_use_statement_token2] = ACTIONS(3490),
+    [aux_sym_implicit_statement_token1] = ACTIONS(3496),
+    [aux_sym_implicit_statement_token3] = ACTIONS(3499),
+    [aux_sym_implicit_statement_token4] = ACTIONS(3490),
+    [aux_sym_save_statement_token1] = ACTIONS(3502),
+    [aux_sym_private_statement_token1] = ACTIONS(3651),
+    [aux_sym_public_statement_token1] = ACTIONS(3654),
+    [aux_sym_namelist_statement_token1] = ACTIONS(3511),
+    [aux_sym_common_statement_token1] = ACTIONS(3514),
+    [aux_sym_import_statement_token1] = ACTIONS(3517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(3490),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(3520),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token1] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token2] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token3] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token4] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token5] = ACTIONS(3490),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(3532),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(3535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(3529),
+    [aux_sym_derived_type_token1] = ACTIONS(3538),
+    [aux_sym_declared_type_token1] = ACTIONS(3541),
+    [aux_sym_declared_type_token2] = ACTIONS(3541),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3544),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3550),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3553),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3523),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3556),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3523),
+    [aux_sym_type_qualifier_token1] = ACTIONS(3478),
+    [aux_sym_type_qualifier_token2] = ACTIONS(3478),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3470),
+    [aux_sym_stop_statement_token1] = ACTIONS(3478),
+    [aux_sym_stop_statement_token2] = ACTIONS(3478),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3468),
+    [aux_sym_include_statement_token1] = ACTIONS(3562),
+    [aux_sym_data_statement_token1] = ACTIONS(3565),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3468),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3478),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3468),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3468),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3568),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3468),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3468),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3468),
+    [aux_sym_block_construct_token1] = ACTIONS(3478),
+    [aux_sym_associate_statement_token1] = ACTIONS(3468),
+    [aux_sym_format_statement_token1] = ACTIONS(3478),
+    [aux_sym_print_statement_token1] = ACTIONS(3468),
+    [aux_sym_open_statement_token1] = ACTIONS(3468),
+    [aux_sym_close_statement_token1] = ACTIONS(3468),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3478),
+    [aux_sym_enum_statement_token1] = ACTIONS(3571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3574),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3468),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3468),
+    [aux_sym_entry_statement_token1] = ACTIONS(3478),
+    [aux_sym_logical_expression_token5] = ACTIONS(3470),
+    [anon_sym_DOT] = ACTIONS(3468),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3470),
+    [anon_sym_LBRACK] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3470),
+    [aux_sym_null_literal_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3468),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3478),
+    [aux_sym_identifier_token1] = ACTIONS(3478),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3577),
+    [sym__float_literal] = ACTIONS(3470),
+    [sym__boz_literal] = ACTIONS(3470),
+    [sym__string_literal] = ACTIONS(3470),
+    [sym__string_literal_kind] = ACTIONS(3470),
+  },
+  [691] = {
+    [sym_preproc_include] = STATE(688),
+    [sym_preproc_def] = STATE(688),
+    [sym_preproc_function_def] = STATE(688),
+    [sym_preproc_call] = STATE(688),
+    [sym_preproc_if_in_statements] = STATE(688),
+    [sym_preproc_ifdef_in_statements] = STATE(688),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(688),
+    [aux_sym_preproc_include_token1] = ACTIONS(3657),
+    [aux_sym_preproc_def_token1] = ACTIONS(3660),
+    [aux_sym_preproc_if_token1] = ACTIONS(3663),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3666),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3666),
+    [sym_preproc_directive] = ACTIONS(3669),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3519),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3672),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185042,7 +185766,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3670),
+    [anon_sym_SEMI] = ACTIONS(3291),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185061,11 +185785,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2747),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2767),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2747),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2767),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -185097,97 +185821,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3524),
+    [sym__integer_literal] = ACTIONS(3675),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [687] = {
-    [sym_preproc_include] = STATE(731),
-    [sym_preproc_def] = STATE(731),
-    [sym_preproc_function_def] = STATE(731),
-    [sym_preproc_call] = STATE(731),
-    [sym_preproc_if_in_statements] = STATE(731),
-    [sym_preproc_ifdef_in_statements] = STATE(731),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_end_coarray_critical_statement] = STATE(7619),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(731),
-    [aux_sym_preproc_include_token1] = ACTIONS(3361),
-    [aux_sym_preproc_def_token1] = ACTIONS(3363),
-    [aux_sym_preproc_if_token1] = ACTIONS(3365),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3367),
-    [sym_preproc_directive] = ACTIONS(3369),
+  [692] = {
+    [sym_preproc_include] = STATE(688),
+    [sym_preproc_def] = STATE(688),
+    [sym_preproc_function_def] = STATE(688),
+    [sym_preproc_call] = STATE(688),
+    [sym_preproc_if_in_statements] = STATE(688),
+    [sym_preproc_ifdef_in_statements] = STATE(688),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(688),
+    [aux_sym_preproc_include_token1] = ACTIONS(3678),
+    [aux_sym_preproc_def_token1] = ACTIONS(3681),
+    [aux_sym_preproc_if_token1] = ACTIONS(3684),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3687),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3687),
+    [sym_preproc_directive] = ACTIONS(3690),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3371),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3693),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185216,7 +185939,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3373),
+    [anon_sym_SEMI] = ACTIONS(3291),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185235,9 +185958,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2691),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2691),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -185267,100 +185992,272 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3375),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3696),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [688] = {
-    [sym_preproc_include] = STATE(670),
-    [sym_preproc_def] = STATE(670),
-    [sym_preproc_function_def] = STATE(670),
-    [sym_preproc_call] = STATE(670),
-    [sym_preproc_if_in_statements] = STATE(670),
-    [sym_preproc_ifdef_in_statements] = STATE(670),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(778),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7512),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(670),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [693] = {
+    [sym_preproc_include] = STATE(693),
+    [sym_preproc_def] = STATE(693),
+    [sym_preproc_function_def] = STATE(693),
+    [sym_preproc_call] = STATE(693),
+    [sym_preproc_if_in_specification_part] = STATE(693),
+    [sym_preproc_ifdef_in_specification_part] = STATE(693),
+    [sym_interface] = STATE(693),
+    [sym_interface_statement] = STATE(3849),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(693),
+    [sym_use_statement] = STATE(6908),
+    [sym_implicit_statement] = STATE(6908),
+    [sym_save_statement] = STATE(6908),
+    [sym_private_statement] = STATE(693),
+    [sym_public_statement] = STATE(693),
+    [sym_namelist_statement] = STATE(6908),
+    [sym_common_statement] = STATE(6908),
+    [sym_import_statement] = STATE(6908),
+    [sym_derived_type_definition] = STATE(693),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4298),
+    [sym_variable_declaration] = STATE(6908),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6908),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6908),
+    [sym_equivalence_statement] = STATE(6908),
+    [sym_statement_label] = STATE(6594),
+    [sym_include_statement] = STATE(6908),
+    [sym_data_statement] = STATE(6908),
+    [sym_enum] = STATE(693),
+    [sym_enum_statement] = STATE(6073),
+    [sym_enumeration_type] = STATE(693),
+    [sym_enumeration_type_statement] = STATE(6114),
+    [sym_statement_function] = STATE(6908),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_program_repeat1] = STATE(693),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(3699),
+    [aux_sym_preproc_def_token1] = ACTIONS(3702),
+    [aux_sym_preproc_if_token1] = ACTIONS(3705),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3708),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3708),
+    [sym_preproc_directive] = ACTIONS(3711),
+    [anon_sym_LPAREN2] = ACTIONS(3468),
+    [anon_sym_PLUS] = ACTIONS(3470),
+    [anon_sym_DASH] = ACTIONS(3470),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3472),
+    [aux_sym_interface_statement_token1] = ACTIONS(3475),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(3478),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(3478),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(3468),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(3481),
+    [aux_sym_language_binding_token1] = ACTIONS(3484),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(3487),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(3490),
+    [aux_sym_contains_statement_token1] = ACTIONS(3468),
+    [aux_sym_use_statement_token1] = ACTIONS(3493),
+    [aux_sym_use_statement_token2] = ACTIONS(3490),
+    [aux_sym_implicit_statement_token1] = ACTIONS(3496),
+    [aux_sym_implicit_statement_token3] = ACTIONS(3499),
+    [aux_sym_implicit_statement_token4] = ACTIONS(3490),
+    [aux_sym_save_statement_token1] = ACTIONS(3502),
+    [aux_sym_private_statement_token1] = ACTIONS(3714),
+    [aux_sym_public_statement_token1] = ACTIONS(3717),
+    [aux_sym_namelist_statement_token1] = ACTIONS(3511),
+    [aux_sym_common_statement_token1] = ACTIONS(3514),
+    [aux_sym_import_statement_token1] = ACTIONS(3517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(3490),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(3520),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token1] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token2] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token3] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token4] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token5] = ACTIONS(3490),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(3532),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(3535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(3529),
+    [aux_sym_derived_type_token1] = ACTIONS(3538),
+    [aux_sym_declared_type_token1] = ACTIONS(3541),
+    [aux_sym_declared_type_token2] = ACTIONS(3541),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3544),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3550),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3553),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3523),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3556),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3523),
+    [aux_sym_type_qualifier_token1] = ACTIONS(3478),
+    [aux_sym_type_qualifier_token2] = ACTIONS(3478),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3470),
+    [aux_sym_stop_statement_token1] = ACTIONS(3478),
+    [aux_sym_stop_statement_token2] = ACTIONS(3478),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3468),
+    [aux_sym_include_statement_token1] = ACTIONS(3562),
+    [aux_sym_data_statement_token1] = ACTIONS(3565),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3468),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3478),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3468),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3468),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3568),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3468),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3468),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3468),
+    [aux_sym_block_construct_token1] = ACTIONS(3478),
+    [aux_sym_associate_statement_token1] = ACTIONS(3468),
+    [aux_sym_format_statement_token1] = ACTIONS(3478),
+    [aux_sym_print_statement_token1] = ACTIONS(3468),
+    [aux_sym_open_statement_token1] = ACTIONS(3468),
+    [aux_sym_close_statement_token1] = ACTIONS(3468),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3478),
+    [aux_sym_enum_statement_token1] = ACTIONS(3571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3574),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3468),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3468),
+    [aux_sym_entry_statement_token1] = ACTIONS(3478),
+    [aux_sym_logical_expression_token5] = ACTIONS(3470),
+    [anon_sym_DOT] = ACTIONS(3468),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3470),
+    [anon_sym_LBRACK] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3470),
+    [aux_sym_null_literal_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3468),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3478),
+    [aux_sym_identifier_token1] = ACTIONS(3478),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3577),
+    [sym__float_literal] = ACTIONS(3470),
+    [sym__boz_literal] = ACTIONS(3470),
+    [sym__string_literal] = ACTIONS(3470),
+    [sym__string_literal_kind] = ACTIONS(3470),
+  },
+  [694] = {
+    [sym_preproc_include] = STATE(717),
+    [sym_preproc_def] = STATE(717),
+    [sym_preproc_function_def] = STATE(717),
+    [sym_preproc_call] = STATE(717),
+    [sym_preproc_if_in_statements] = STATE(717),
+    [sym_preproc_ifdef_in_statements] = STATE(717),
+    [sym__statements] = STATE(6910),
+    [sym_statement_label] = STATE(769),
+    [sym_stop_statement] = STATE(6910),
+    [sym_assignment_statement] = STATE(6910),
+    [sym_pointer_association_statement] = STATE(6910),
+    [sym_subroutine_call] = STATE(6910),
+    [sym_keyword_statement] = STATE(6910),
+    [sym_include_statement] = STATE(6910),
+    [sym_do_loop_statement] = STATE(6910),
+    [sym_do_label_statement] = STATE(6910),
+    [sym_end_do_label_statement] = STATE(6910),
+    [sym_if_statement] = STATE(6910),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6910),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6910),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6910),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7665),
+    [sym_select_case_statement] = STATE(6910),
+    [sym_select_type_statement] = STATE(6910),
+    [sym_select_rank_statement] = STATE(6910),
+    [sym_block_construct] = STATE(6910),
+    [sym_associate_statement] = STATE(6910),
+    [sym_format_statement] = STATE(6910),
+    [sym_read_statement] = STATE(6910),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6910),
+    [sym_open_statement] = STATE(6910),
+    [sym_close_statement] = STATE(6910),
+    [sym_write_statement] = STATE(6910),
+    [sym_inquire_statement] = STATE(6910),
+    [sym_file_position_statement] = STATE(6910),
+    [sym_allocate_statement] = STATE(6910),
+    [sym_entry_statement] = STATE(6910),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6910),
+    [sym_coarray_team_statement] = STATE(6910),
+    [sym_coarray_critical_statement] = STATE(6910),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+    [aux_sym_preproc_include_token1] = ACTIONS(3293),
+    [aux_sym_preproc_def_token1] = ACTIONS(3295),
+    [aux_sym_preproc_if_token1] = ACTIONS(3297),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3299),
+    [sym_preproc_directive] = ACTIONS(3301),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3303),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185389,7 +186286,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3672),
+    [anon_sym_SEMI] = ACTIONS(3437),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185402,12 +186299,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -185443,96 +186340,270 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3309),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [689] = {
-    [sym_preproc_include] = STATE(669),
-    [sym_preproc_def] = STATE(669),
-    [sym_preproc_function_def] = STATE(669),
-    [sym_preproc_call] = STATE(669),
-    [sym_preproc_if_in_statements] = STATE(669),
-    [sym_preproc_ifdef_in_statements] = STATE(669),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(669),
-    [aux_sym_preproc_include_token1] = ACTIONS(3674),
-    [aux_sym_preproc_def_token1] = ACTIONS(3677),
-    [aux_sym_preproc_if_token1] = ACTIONS(3680),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3683),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3683),
-    [sym_preproc_directive] = ACTIONS(3686),
+  [695] = {
+    [sym_preproc_include] = STATE(695),
+    [sym_preproc_def] = STATE(695),
+    [sym_preproc_function_def] = STATE(695),
+    [sym_preproc_call] = STATE(695),
+    [sym_preproc_if_in_specification_part] = STATE(695),
+    [sym_preproc_ifdef_in_specification_part] = STATE(695),
+    [sym_interface] = STATE(695),
+    [sym_interface_statement] = STATE(3888),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(695),
+    [sym_use_statement] = STATE(7034),
+    [sym_implicit_statement] = STATE(7034),
+    [sym_save_statement] = STATE(7034),
+    [sym_private_statement] = STATE(695),
+    [sym_public_statement] = STATE(695),
+    [sym_namelist_statement] = STATE(7034),
+    [sym_common_statement] = STATE(7034),
+    [sym_import_statement] = STATE(7034),
+    [sym_derived_type_definition] = STATE(695),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4300),
+    [sym_variable_declaration] = STATE(7034),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7034),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7034),
+    [sym_equivalence_statement] = STATE(7034),
+    [sym_statement_label] = STATE(6574),
+    [sym_include_statement] = STATE(7034),
+    [sym_data_statement] = STATE(7034),
+    [sym_enum] = STATE(695),
+    [sym_enum_statement] = STATE(6047),
+    [sym_enumeration_type] = STATE(695),
+    [sym_enumeration_type_statement] = STATE(6157),
+    [sym_statement_function] = STATE(7034),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_program_repeat1] = STATE(695),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(3720),
+    [aux_sym_preproc_def_token1] = ACTIONS(3723),
+    [aux_sym_preproc_if_token1] = ACTIONS(3726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3729),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3729),
+    [sym_preproc_directive] = ACTIONS(3732),
+    [anon_sym_LPAREN2] = ACTIONS(3468),
+    [anon_sym_PLUS] = ACTIONS(3470),
+    [anon_sym_DASH] = ACTIONS(3470),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3472),
+    [aux_sym_interface_statement_token1] = ACTIONS(3475),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(3478),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(3478),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(3481),
+    [aux_sym_language_binding_token1] = ACTIONS(3484),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(3487),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(3490),
+    [aux_sym_end_function_statement_token1] = ACTIONS(3468),
+    [aux_sym_contains_statement_token1] = ACTIONS(3468),
+    [aux_sym_use_statement_token1] = ACTIONS(3493),
+    [aux_sym_use_statement_token2] = ACTIONS(3490),
+    [aux_sym_implicit_statement_token1] = ACTIONS(3496),
+    [aux_sym_implicit_statement_token3] = ACTIONS(3499),
+    [aux_sym_implicit_statement_token4] = ACTIONS(3490),
+    [aux_sym_save_statement_token1] = ACTIONS(3502),
+    [aux_sym_private_statement_token1] = ACTIONS(3735),
+    [aux_sym_public_statement_token1] = ACTIONS(3738),
+    [aux_sym_namelist_statement_token1] = ACTIONS(3511),
+    [aux_sym_common_statement_token1] = ACTIONS(3514),
+    [aux_sym_import_statement_token1] = ACTIONS(3517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(3490),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(3520),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token1] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token2] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token3] = ACTIONS(3490),
+    [aux_sym_variable_attributes_token4] = ACTIONS(3523),
+    [aux_sym_variable_attributes_token5] = ACTIONS(3490),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(3526),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(3532),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(3535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(3529),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(3529),
+    [aux_sym_derived_type_token1] = ACTIONS(3538),
+    [aux_sym_declared_type_token1] = ACTIONS(3541),
+    [aux_sym_declared_type_token2] = ACTIONS(3541),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3544),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3550),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3553),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3523),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3556),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3490),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3523),
+    [aux_sym_type_qualifier_token1] = ACTIONS(3478),
+    [aux_sym_type_qualifier_token2] = ACTIONS(3478),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3470),
+    [aux_sym_stop_statement_token1] = ACTIONS(3478),
+    [aux_sym_stop_statement_token2] = ACTIONS(3478),
+    [aux_sym_subroutine_call_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token1] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token2] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token3] = ACTIONS(3478),
+    [aux_sym_keyword_statement_token4] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token6] = ACTIONS(3468),
+    [aux_sym_keyword_statement_token7] = ACTIONS(3468),
+    [aux_sym_include_statement_token1] = ACTIONS(3562),
+    [aux_sym_data_statement_token1] = ACTIONS(3565),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(3468),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3478),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3478),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(3468),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(3468),
+    [aux_sym_select_case_statement_token1] = ACTIONS(3568),
+    [aux_sym_select_case_statement_token3] = ACTIONS(3468),
+    [aux_sym_select_type_statement_token1] = ACTIONS(3468),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(3468),
+    [aux_sym_block_construct_token1] = ACTIONS(3478),
+    [aux_sym_associate_statement_token1] = ACTIONS(3468),
+    [aux_sym_format_statement_token1] = ACTIONS(3478),
+    [aux_sym_print_statement_token1] = ACTIONS(3468),
+    [aux_sym_open_statement_token1] = ACTIONS(3468),
+    [aux_sym_close_statement_token1] = ACTIONS(3468),
+    [aux_sym_inquire_statement_token1] = ACTIONS(3478),
+    [aux_sym_enum_statement_token1] = ACTIONS(3571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3574),
+    [aux_sym_file_position_statement_token1] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token2] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token3] = ACTIONS(3468),
+    [aux_sym_file_position_statement_token4] = ACTIONS(3468),
+    [aux_sym_allocate_statement_token1] = ACTIONS(3468),
+    [aux_sym_entry_statement_token1] = ACTIONS(3478),
+    [aux_sym_logical_expression_token5] = ACTIONS(3470),
+    [anon_sym_DOT] = ACTIONS(3468),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(3470),
+    [anon_sym_LBRACK] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token1] = ACTIONS(3470),
+    [aux_sym_boolean_literal_token2] = ACTIONS(3470),
+    [aux_sym_null_literal_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token2] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token6] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token8] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token11] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token12] = ACTIONS(3478),
+    [aux_sym_coarray_statement_token13] = ACTIONS(3468),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(3478),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3478),
+    [aux_sym_identifier_token1] = ACTIONS(3478),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3577),
+    [sym__float_literal] = ACTIONS(3470),
+    [sym__boz_literal] = ACTIONS(3470),
+    [sym__string_literal] = ACTIONS(3470),
+    [sym__string_literal_kind] = ACTIONS(3470),
+  },
+  [696] = {
+    [sym_preproc_include] = STATE(676),
+    [sym_preproc_def] = STATE(676),
+    [sym_preproc_function_def] = STATE(676),
+    [sym_preproc_call] = STATE(676),
+    [sym_preproc_if_in_statements] = STATE(676),
+    [sym_preproc_ifdef_in_statements] = STATE(676),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_end_coarray_critical_statement] = STATE(7683),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(676),
+    [aux_sym_preproc_include_token1] = ACTIONS(3396),
+    [aux_sym_preproc_def_token1] = ACTIONS(3398),
+    [aux_sym_preproc_if_token1] = ACTIONS(3400),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3402),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3402),
+    [sym_preproc_directive] = ACTIONS(3404),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3689),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3406),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185561,7 +186632,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3692),
+    [anon_sym_SEMI] = ACTIONS(3741),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185580,11 +186651,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2751),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2751),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -185614,99 +186683,100 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(3410),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3694),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [690] = {
-    [sym_preproc_include] = STATE(693),
-    [sym_preproc_def] = STATE(693),
-    [sym_preproc_function_def] = STATE(693),
-    [sym_preproc_call] = STATE(693),
-    [sym_preproc_if_in_statements] = STATE(693),
-    [sym_preproc_ifdef_in_statements] = STATE(693),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(783),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7694),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(693),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [697] = {
+    [sym_preproc_include] = STATE(741),
+    [sym_preproc_def] = STATE(741),
+    [sym_preproc_function_def] = STATE(741),
+    [sym_preproc_call] = STATE(741),
+    [sym_preproc_if_in_statements] = STATE(741),
+    [sym_preproc_ifdef_in_statements] = STATE(741),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(796),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6595),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_end_block_construct_statement] = STATE(7381),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(741),
+    [aux_sym_preproc_include_token1] = ACTIONS(3327),
+    [aux_sym_preproc_def_token1] = ACTIONS(3329),
+    [aux_sym_preproc_if_token1] = ACTIONS(1390),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
+    [sym_preproc_directive] = ACTIONS(3331),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185735,7 +186805,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3697),
+    [anon_sym_SEMI] = ACTIONS(3333),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185748,7 +186818,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -185759,6 +186828,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -185795,91 +186865,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [691] = {
-    [sym_preproc_include] = STATE(695),
-    [sym_preproc_def] = STATE(695),
-    [sym_preproc_function_def] = STATE(695),
-    [sym_preproc_call] = STATE(695),
-    [sym_preproc_if_in_statements] = STATE(695),
-    [sym_preproc_ifdef_in_statements] = STATE(695),
-    [sym__statements] = STATE(6979),
-    [sym_statement_label] = STATE(807),
-    [sym_stop_statement] = STATE(6979),
-    [sym_assignment_statement] = STATE(6979),
-    [sym_pointer_association_statement] = STATE(6979),
-    [sym_subroutine_call] = STATE(6979),
-    [sym_keyword_statement] = STATE(6979),
-    [sym_include_statement] = STATE(6979),
-    [sym_do_loop_statement] = STATE(6979),
-    [sym_do_label_statement] = STATE(6979),
-    [sym_end_do_label_statement] = STATE(6979),
-    [sym_if_statement] = STATE(6979),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6979),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6979),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6979),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6979),
-    [sym_select_type_statement] = STATE(6979),
-    [sym_select_rank_statement] = STATE(6979),
-    [sym_block_construct] = STATE(6979),
-    [sym_associate_statement] = STATE(6979),
-    [sym_format_statement] = STATE(6979),
-    [sym_read_statement] = STATE(6979),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6979),
-    [sym_open_statement] = STATE(6979),
-    [sym_close_statement] = STATE(6979),
-    [sym_write_statement] = STATE(6979),
-    [sym_inquire_statement] = STATE(6979),
-    [sym_file_position_statement] = STATE(6979),
-    [sym_allocate_statement] = STATE(6979),
-    [sym_entry_statement] = STATE(6979),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6979),
-    [sym_coarray_team_statement] = STATE(6979),
-    [sym_end_coarray_team_statement] = STATE(7468),
-    [sym_coarray_critical_statement] = STATE(6979),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(695),
-    [aux_sym_preproc_include_token1] = ACTIONS(3547),
-    [aux_sym_preproc_def_token1] = ACTIONS(3549),
-    [aux_sym_preproc_if_token1] = ACTIONS(3551),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3553),
-    [sym_preproc_directive] = ACTIONS(3555),
+  [698] = {
+    [sym_preproc_include] = STATE(718),
+    [sym_preproc_def] = STATE(718),
+    [sym_preproc_function_def] = STATE(718),
+    [sym_preproc_call] = STATE(718),
+    [sym_preproc_if_in_statements] = STATE(718),
+    [sym_preproc_ifdef_in_statements] = STATE(718),
+    [sym__statements] = STATE(7070),
+    [sym_statement_label] = STATE(808),
+    [sym_stop_statement] = STATE(7070),
+    [sym_assignment_statement] = STATE(7070),
+    [sym_pointer_association_statement] = STATE(7070),
+    [sym_subroutine_call] = STATE(7070),
+    [sym_keyword_statement] = STATE(7070),
+    [sym_include_statement] = STATE(7070),
+    [sym_do_loop_statement] = STATE(7070),
+    [sym_do_label_statement] = STATE(7070),
+    [sym_end_do_label_statement] = STATE(7070),
+    [sym_if_statement] = STATE(7070),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7070),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7070),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7070),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7070),
+    [sym_select_type_statement] = STATE(7070),
+    [sym_select_rank_statement] = STATE(7070),
+    [sym_block_construct] = STATE(7070),
+    [sym_associate_statement] = STATE(7070),
+    [sym_format_statement] = STATE(7070),
+    [sym_read_statement] = STATE(7070),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7070),
+    [sym_open_statement] = STATE(7070),
+    [sym_close_statement] = STATE(7070),
+    [sym_write_statement] = STATE(7070),
+    [sym_inquire_statement] = STATE(7070),
+    [sym_file_position_statement] = STATE(7070),
+    [sym_allocate_statement] = STATE(7070),
+    [sym_entry_statement] = STATE(7070),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7070),
+    [sym_coarray_team_statement] = STATE(7070),
+    [sym_end_coarray_team_statement] = STATE(7407),
+    [sym_coarray_critical_statement] = STATE(7070),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
+    [aux_sym_preproc_include_token1] = ACTIONS(3380),
+    [aux_sym_preproc_def_token1] = ACTIONS(3382),
+    [aux_sym_preproc_if_token1] = ACTIONS(3384),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3386),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3386),
+    [sym_preproc_directive] = ACTIONS(3388),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3557),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3390),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -185908,7 +186978,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3699),
+    [anon_sym_SEMI] = ACTIONS(3447),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -185958,7 +187028,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3561),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3394),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
@@ -185968,90 +187038,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [692] = {
-    [sym_preproc_include] = STATE(655),
-    [sym_preproc_def] = STATE(655),
-    [sym_preproc_function_def] = STATE(655),
-    [sym_preproc_call] = STATE(655),
-    [sym_preproc_if_in_statements] = STATE(655),
-    [sym_preproc_ifdef_in_statements] = STATE(655),
-    [sym__statements] = STATE(7049),
-    [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(655),
-    [aux_sym_preproc_include_token1] = ACTIONS(3701),
-    [aux_sym_preproc_def_token1] = ACTIONS(3704),
-    [aux_sym_preproc_if_token1] = ACTIONS(3707),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3710),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3710),
-    [sym_preproc_directive] = ACTIONS(3713),
+  [699] = {
+    [sym_preproc_include] = STATE(666),
+    [sym_preproc_def] = STATE(666),
+    [sym_preproc_function_def] = STATE(666),
+    [sym_preproc_call] = STATE(666),
+    [sym_preproc_if_in_statements] = STATE(666),
+    [sym_preproc_ifdef_in_statements] = STATE(666),
+    [sym__statements] = STATE(6903),
+    [sym_statement_label] = STATE(795),
+    [sym_stop_statement] = STATE(6903),
+    [sym_assignment_statement] = STATE(6903),
+    [sym_pointer_association_statement] = STATE(6903),
+    [sym_subroutine_call] = STATE(6903),
+    [sym_keyword_statement] = STATE(6903),
+    [sym_include_statement] = STATE(6903),
+    [sym_do_loop_statement] = STATE(6903),
+    [sym_do_label_statement] = STATE(6903),
+    [sym_end_do_label_statement] = STATE(6903),
+    [sym_if_statement] = STATE(6903),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6903),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6903),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6903),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6903),
+    [sym_select_type_statement] = STATE(6903),
+    [sym_select_rank_statement] = STATE(6903),
+    [sym_block_construct] = STATE(6903),
+    [sym_associate_statement] = STATE(6903),
+    [sym_format_statement] = STATE(6903),
+    [sym_read_statement] = STATE(6903),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6903),
+    [sym_open_statement] = STATE(6903),
+    [sym_close_statement] = STATE(6903),
+    [sym_write_statement] = STATE(6903),
+    [sym_inquire_statement] = STATE(6903),
+    [sym_file_position_statement] = STATE(6903),
+    [sym_allocate_statement] = STATE(6903),
+    [sym_entry_statement] = STATE(6903),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6903),
+    [sym_coarray_team_statement] = STATE(6903),
+    [sym_coarray_critical_statement] = STATE(6903),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(666),
+    [aux_sym_preproc_include_token1] = ACTIONS(3743),
+    [aux_sym_preproc_def_token1] = ACTIONS(3746),
+    [aux_sym_preproc_if_token1] = ACTIONS(3749),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3752),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3752),
+    [sym_preproc_directive] = ACTIONS(3755),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3716),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3758),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -186080,7 +187150,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3522),
+    [anon_sym_SEMI] = ACTIONS(3761),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -186099,11 +187169,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2755),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2769),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2755),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2769),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -186135,97 +187205,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3719),
+    [sym__integer_literal] = ACTIONS(3763),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [693] = {
-    [sym_preproc_include] = STATE(738),
-    [sym_preproc_def] = STATE(738),
-    [sym_preproc_function_def] = STATE(738),
-    [sym_preproc_call] = STATE(738),
-    [sym_preproc_if_in_statements] = STATE(738),
-    [sym_preproc_ifdef_in_statements] = STATE(738),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(777),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7678),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [700] = {
+    [sym_preproc_include] = STATE(721),
+    [sym_preproc_def] = STATE(721),
+    [sym_preproc_function_def] = STATE(721),
+    [sym_preproc_call] = STATE(721),
+    [sym_preproc_if_in_statements] = STATE(721),
+    [sym_preproc_ifdef_in_statements] = STATE(721),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(721),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -186254,7 +187324,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3569),
+    [anon_sym_SEMI] = ACTIONS(3776),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -186267,7 +187337,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -186314,91 +187383,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [694] = {
-    [sym_preproc_include] = STATE(745),
-    [sym_preproc_def] = STATE(745),
-    [sym_preproc_function_def] = STATE(745),
-    [sym_preproc_call] = STATE(745),
-    [sym_preproc_if_in_statements] = STATE(745),
-    [sym_preproc_ifdef_in_statements] = STATE(745),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(800),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6511),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_end_block_construct_statement] = STATE(7505),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(745),
-    [aux_sym_preproc_include_token1] = ACTIONS(3592),
-    [aux_sym_preproc_def_token1] = ACTIONS(3594),
-    [aux_sym_preproc_if_token1] = ACTIONS(1390),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(1392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(1392),
-    [sym_preproc_directive] = ACTIONS(3596),
+  [701] = {
+    [sym_preproc_include] = STATE(742),
+    [sym_preproc_def] = STATE(742),
+    [sym_preproc_function_def] = STATE(742),
+    [sym_preproc_call] = STATE(742),
+    [sym_preproc_if_in_statements] = STATE(742),
+    [sym_preproc_ifdef_in_statements] = STATE(742),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(742),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2585),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(1396),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -186427,7 +187496,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3598),
+    [anon_sym_SEMI] = ACTIONS(3778),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -186450,7 +187519,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(1404),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
@@ -186487,91 +187555,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [695] = {
-    [sym_preproc_include] = STATE(721),
-    [sym_preproc_def] = STATE(721),
-    [sym_preproc_function_def] = STATE(721),
-    [sym_preproc_call] = STATE(721),
-    [sym_preproc_if_in_statements] = STATE(721),
-    [sym_preproc_ifdef_in_statements] = STATE(721),
-    [sym__statements] = STATE(6979),
-    [sym_statement_label] = STATE(807),
-    [sym_stop_statement] = STATE(6979),
-    [sym_assignment_statement] = STATE(6979),
-    [sym_pointer_association_statement] = STATE(6979),
-    [sym_subroutine_call] = STATE(6979),
-    [sym_keyword_statement] = STATE(6979),
-    [sym_include_statement] = STATE(6979),
-    [sym_do_loop_statement] = STATE(6979),
-    [sym_do_label_statement] = STATE(6979),
-    [sym_end_do_label_statement] = STATE(6979),
-    [sym_if_statement] = STATE(6979),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6979),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6979),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6979),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6979),
-    [sym_select_type_statement] = STATE(6979),
-    [sym_select_rank_statement] = STATE(6979),
-    [sym_block_construct] = STATE(6979),
-    [sym_associate_statement] = STATE(6979),
-    [sym_format_statement] = STATE(6979),
-    [sym_read_statement] = STATE(6979),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6979),
-    [sym_open_statement] = STATE(6979),
-    [sym_close_statement] = STATE(6979),
-    [sym_write_statement] = STATE(6979),
-    [sym_inquire_statement] = STATE(6979),
-    [sym_file_position_statement] = STATE(6979),
-    [sym_allocate_statement] = STATE(6979),
-    [sym_entry_statement] = STATE(6979),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6979),
-    [sym_coarray_team_statement] = STATE(6979),
-    [sym_end_coarray_team_statement] = STATE(7578),
-    [sym_coarray_critical_statement] = STATE(6979),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(721),
-    [aux_sym_preproc_include_token1] = ACTIONS(3547),
-    [aux_sym_preproc_def_token1] = ACTIONS(3549),
-    [aux_sym_preproc_if_token1] = ACTIONS(3551),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3553),
-    [sym_preproc_directive] = ACTIONS(3555),
+  [702] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2707),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3557),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -186600,7 +187668,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3559),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -186650,7 +187718,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(183),
     [aux_sym_coarray_statement_token13] = ACTIONS(185),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(3561),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
@@ -186660,264 +187727,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [696] = {
-    [sym_preproc_include] = STATE(696),
-    [sym_preproc_def] = STATE(696),
-    [sym_preproc_function_def] = STATE(696),
-    [sym_preproc_call] = STATE(696),
-    [sym_preproc_if_in_specification_part] = STATE(696),
-    [sym_preproc_ifdef_in_specification_part] = STATE(696),
-    [sym_interface] = STATE(696),
-    [sym_interface_statement] = STATE(3818),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(696),
-    [sym_use_statement] = STATE(6996),
-    [sym_implicit_statement] = STATE(6996),
-    [sym_save_statement] = STATE(6996),
-    [sym_private_statement] = STATE(696),
-    [sym_public_statement] = STATE(696),
-    [sym_namelist_statement] = STATE(6996),
-    [sym_common_statement] = STATE(6996),
-    [sym_import_statement] = STATE(6996),
-    [sym_derived_type_definition] = STATE(696),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4315),
-    [sym_variable_declaration] = STATE(6996),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6996),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6996),
-    [sym_equivalence_statement] = STATE(6996),
-    [sym_statement_label] = STATE(7249),
-    [sym_include_statement] = STATE(6996),
-    [sym_data_statement] = STATE(6996),
-    [sym_enum] = STATE(696),
-    [sym_enum_statement] = STATE(6058),
-    [sym_enumeration_type] = STATE(696),
-    [sym_enumeration_type_statement] = STATE(6236),
-    [sym_statement_function] = STATE(6996),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_program_repeat1] = STATE(696),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(3722),
-    [aux_sym_preproc_def_token1] = ACTIONS(3725),
-    [aux_sym_preproc_if_token1] = ACTIONS(3728),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3731),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3731),
-    [sym_preproc_directive] = ACTIONS(3734),
-    [anon_sym_LPAREN2] = ACTIONS(3392),
-    [anon_sym_PLUS] = ACTIONS(3394),
-    [anon_sym_DASH] = ACTIONS(3394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3396),
-    [aux_sym_interface_statement_token1] = ACTIONS(3399),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3402),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3402),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3405),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(3392),
-    [aux_sym_language_binding_token1] = ACTIONS(3408),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3411),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3414),
-    [aux_sym_contains_statement_token1] = ACTIONS(3392),
-    [aux_sym_use_statement_token1] = ACTIONS(3417),
-    [aux_sym_use_statement_token2] = ACTIONS(3414),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3420),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3423),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3414),
-    [aux_sym_save_statement_token1] = ACTIONS(3426),
-    [aux_sym_private_statement_token1] = ACTIONS(3737),
-    [aux_sym_public_statement_token1] = ACTIONS(3740),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3435),
-    [aux_sym_common_statement_token1] = ACTIONS(3438),
-    [aux_sym_import_statement_token1] = ACTIONS(3441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3414),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3444),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3414),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3447),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3414),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3450),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3456),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3459),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3453),
-    [aux_sym_derived_type_token1] = ACTIONS(3462),
-    [aux_sym_declared_type_token1] = ACTIONS(3465),
-    [aux_sym_declared_type_token2] = ACTIONS(3465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3468),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3471),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3474),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3447),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3480),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3414),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3447),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3402),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3402),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3483),
-    [anon_sym_SEMI] = ACTIONS(3394),
-    [aux_sym_stop_statement_token1] = ACTIONS(3402),
-    [aux_sym_stop_statement_token2] = ACTIONS(3402),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3402),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3392),
-    [aux_sym_include_statement_token1] = ACTIONS(3486),
-    [aux_sym_data_statement_token1] = ACTIONS(3489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3402),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3402),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3492),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3392),
-    [aux_sym_block_construct_token1] = ACTIONS(3402),
-    [aux_sym_associate_statement_token1] = ACTIONS(3392),
-    [aux_sym_format_statement_token1] = ACTIONS(3402),
-    [aux_sym_print_statement_token1] = ACTIONS(3392),
-    [aux_sym_open_statement_token1] = ACTIONS(3392),
-    [aux_sym_close_statement_token1] = ACTIONS(3392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3402),
-    [aux_sym_enum_statement_token1] = ACTIONS(3495),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3498),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3392),
-    [aux_sym_entry_statement_token1] = ACTIONS(3402),
-    [aux_sym_logical_expression_token5] = ACTIONS(3394),
-    [anon_sym_DOT] = ACTIONS(3392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3394),
-    [anon_sym_LBRACK] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3394),
-    [aux_sym_null_literal_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3402),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3402),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3402),
-    [aux_sym_identifier_token1] = ACTIONS(3402),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3501),
-    [sym__float_literal] = ACTIONS(3394),
-    [sym__boz_literal] = ACTIONS(3394),
-    [sym__string_literal] = ACTIONS(3394),
-    [sym__string_literal_kind] = ACTIONS(3394),
-  },
-  [697] = {
-    [sym_preproc_include] = STATE(676),
-    [sym_preproc_def] = STATE(676),
-    [sym_preproc_function_def] = STATE(676),
-    [sym_preproc_call] = STATE(676),
-    [sym_preproc_if_in_statements] = STATE(676),
-    [sym_preproc_ifdef_in_statements] = STATE(676),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(775),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_end_do_loop_statement] = STATE(7425),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(676),
-    [aux_sym_preproc_include_token1] = ACTIONS(3527),
-    [aux_sym_preproc_def_token1] = ACTIONS(3529),
-    [aux_sym_preproc_if_token1] = ACTIONS(3531),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3533),
-    [sym_preproc_directive] = ACTIONS(3535),
+  [703] = {
+    [sym_preproc_include] = STATE(729),
+    [sym_preproc_def] = STATE(729),
+    [sym_preproc_function_def] = STATE(729),
+    [sym_preproc_call] = STATE(729),
+    [sym_preproc_if_in_statements] = STATE(729),
+    [sym_preproc_ifdef_in_statements] = STATE(729),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(729),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2707),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3537),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -186946,7 +187840,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3743),
+    [anon_sym_SEMI] = ACTIONS(3782),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -186959,7 +187853,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(3541),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -187006,264 +187899,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [698] = {
-    [sym_preproc_include] = STATE(655),
-    [sym_preproc_def] = STATE(655),
-    [sym_preproc_function_def] = STATE(655),
-    [sym_preproc_call] = STATE(655),
-    [sym_preproc_if_in_statements] = STATE(655),
-    [sym_preproc_ifdef_in_statements] = STATE(655),
-    [sym__statements] = STATE(7049),
+  [704] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
     [sym_statement_label] = STATE(799),
-    [sym_stop_statement] = STATE(7049),
-    [sym_assignment_statement] = STATE(7049),
-    [sym_pointer_association_statement] = STATE(7049),
-    [sym_subroutine_call] = STATE(7049),
-    [sym_keyword_statement] = STATE(7049),
-    [sym_include_statement] = STATE(7049),
-    [sym_do_loop_statement] = STATE(7049),
-    [sym_do_label_statement] = STATE(7049),
-    [sym_end_do_label_statement] = STATE(7049),
-    [sym_if_statement] = STATE(7049),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7049),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7049),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7049),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7049),
-    [sym_select_type_statement] = STATE(7049),
-    [sym_select_rank_statement] = STATE(7049),
-    [sym_block_construct] = STATE(7049),
-    [sym_associate_statement] = STATE(7049),
-    [sym_format_statement] = STATE(7049),
-    [sym_read_statement] = STATE(7049),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7049),
-    [sym_open_statement] = STATE(7049),
-    [sym_close_statement] = STATE(7049),
-    [sym_write_statement] = STATE(7049),
-    [sym_inquire_statement] = STATE(7049),
-    [sym_file_position_statement] = STATE(7049),
-    [sym_allocate_statement] = STATE(7049),
-    [sym_entry_statement] = STATE(7049),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7049),
-    [sym_coarray_team_statement] = STATE(7049),
-    [sym_coarray_critical_statement] = STATE(7049),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(655),
-    [aux_sym_preproc_include_token1] = ACTIONS(3745),
-    [aux_sym_preproc_def_token1] = ACTIONS(3748),
-    [aux_sym_preproc_if_token1] = ACTIONS(3751),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3754),
-    [sym_preproc_directive] = ACTIONS(3757),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3522),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2811),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2811),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3763),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [699] = {
-    [sym_preproc_include] = STATE(704),
-    [sym_preproc_def] = STATE(704),
-    [sym_preproc_function_def] = STATE(704),
-    [sym_preproc_call] = STATE(704),
-    [sym_preproc_if_in_statements] = STATE(704),
-    [sym_preproc_ifdef_in_statements] = STATE(704),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_end_associate_statement] = STATE(7640),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(704),
-    [aux_sym_preproc_include_token1] = ACTIONS(3345),
-    [aux_sym_preproc_def_token1] = ACTIONS(3347),
-    [aux_sym_preproc_if_token1] = ACTIONS(3349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3351),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3351),
-    [sym_preproc_directive] = ACTIONS(3353),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2795),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3355),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -187292,7 +188012,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3357),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -187316,7 +188036,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(3359),
     [aux_sym_format_statement_token1] = ACTIONS(143),
     [aux_sym_print_statement_token1] = ACTIONS(145),
     [aux_sym_open_statement_token1] = ACTIONS(147),
@@ -187352,83 +188071,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [700] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [705] = {
+    [sym_preproc_include] = STATE(759),
+    [sym_preproc_def] = STATE(759),
+    [sym_preproc_function_def] = STATE(759),
+    [sym_preproc_call] = STATE(759),
+    [sym_preproc_if_in_statements] = STATE(759),
+    [sym_preproc_ifdef_in_statements] = STATE(759),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(759),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2453),
+    [aux_sym_preproc_if_token2] = ACTIONS(2759),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -187436,7 +188155,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -187465,179 +188184,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [701] = {
-    [sym_preproc_include] = STATE(751),
-    [sym_preproc_def] = STATE(751),
-    [sym_preproc_function_def] = STATE(751),
-    [sym_preproc_call] = STATE(751),
-    [sym_preproc_if_in_statements] = STATE(751),
-    [sym_preproc_ifdef_in_statements] = STATE(751),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(751),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2555),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3778),
+    [anon_sym_SEMI] = ACTIONS(3784),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -187696,255 +188243,255 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [702] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
+  [706] = {
+    [sym_preproc_include] = STATE(706),
+    [sym_preproc_def] = STATE(706),
+    [sym_preproc_function_def] = STATE(706),
+    [sym_preproc_call] = STATE(706),
+    [sym_preproc_if_in_statements] = STATE(706),
+    [sym_preproc_ifdef_in_statements] = STATE(706),
+    [sym__statements] = STATE(6605),
     [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [sym_stop_statement] = STATE(6605),
+    [sym_assignment_statement] = STATE(6605),
+    [sym_pointer_association_statement] = STATE(6605),
+    [sym_subroutine_call] = STATE(6605),
+    [sym_keyword_statement] = STATE(6605),
+    [sym_include_statement] = STATE(6605),
+    [sym_do_loop_statement] = STATE(6605),
+    [sym_do_label_statement] = STATE(6605),
+    [sym_end_do_label_statement] = STATE(6605),
+    [sym_if_statement] = STATE(6605),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6605),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6605),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6605),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6605),
+    [sym_select_type_statement] = STATE(6605),
+    [sym_select_rank_statement] = STATE(6605),
+    [sym_block_construct] = STATE(6605),
+    [sym_associate_statement] = STATE(6605),
+    [sym_format_statement] = STATE(6605),
+    [sym_read_statement] = STATE(6605),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6605),
+    [sym_open_statement] = STATE(6605),
+    [sym_close_statement] = STATE(6605),
+    [sym_write_statement] = STATE(6605),
+    [sym_inquire_statement] = STATE(6605),
+    [sym_file_position_statement] = STATE(6605),
+    [sym_allocate_statement] = STATE(6605),
+    [sym_entry_statement] = STATE(6605),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6605),
+    [sym_coarray_team_statement] = STATE(6605),
+    [sym_coarray_critical_statement] = STATE(6605),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
+    [aux_sym_preproc_include_token1] = ACTIONS(3786),
+    [aux_sym_preproc_def_token1] = ACTIONS(3789),
+    [aux_sym_preproc_if_token1] = ACTIONS(3792),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3795),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3795),
+    [sym_preproc_directive] = ACTIONS(3798),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3780),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3783),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3786),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3783),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3801),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3788),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [703] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [707] = {
+    [sym_preproc_include] = STATE(748),
+    [sym_preproc_def] = STATE(748),
+    [sym_preproc_function_def] = STATE(748),
+    [sym_preproc_call] = STATE(748),
+    [sym_preproc_if_in_statements] = STATE(748),
+    [sym_preproc_ifdef_in_statements] = STATE(748),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(748),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2755),
+    [aux_sym_preproc_if_token2] = ACTIONS(2362),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -187952,7 +188499,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -187981,7 +188528,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3804),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -188040,85 +188587,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [704] = {
-    [sym_preproc_include] = STATE(704),
-    [sym_preproc_def] = STATE(704),
-    [sym_preproc_function_def] = STATE(704),
-    [sym_preproc_call] = STATE(704),
-    [sym_preproc_if_in_statements] = STATE(704),
-    [sym_preproc_ifdef_in_statements] = STATE(704),
-    [sym__statements] = STATE(7024),
-    [sym_statement_label] = STATE(811),
-    [sym_stop_statement] = STATE(7024),
-    [sym_assignment_statement] = STATE(7024),
-    [sym_pointer_association_statement] = STATE(7024),
-    [sym_subroutine_call] = STATE(7024),
-    [sym_keyword_statement] = STATE(7024),
-    [sym_include_statement] = STATE(7024),
-    [sym_do_loop_statement] = STATE(7024),
-    [sym_do_label_statement] = STATE(7024),
-    [sym_end_do_label_statement] = STATE(7024),
-    [sym_if_statement] = STATE(7024),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7024),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7024),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7024),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7024),
-    [sym_select_type_statement] = STATE(7024),
-    [sym_select_rank_statement] = STATE(7024),
-    [sym_block_construct] = STATE(7024),
-    [sym_associate_statement] = STATE(7024),
-    [sym_format_statement] = STATE(7024),
-    [sym_read_statement] = STATE(7024),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7024),
-    [sym_open_statement] = STATE(7024),
-    [sym_close_statement] = STATE(7024),
-    [sym_write_statement] = STATE(7024),
-    [sym_inquire_statement] = STATE(7024),
-    [sym_file_position_statement] = STATE(7024),
-    [sym_allocate_statement] = STATE(7024),
-    [sym_entry_statement] = STATE(7024),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7024),
-    [sym_coarray_team_statement] = STATE(7024),
-    [sym_coarray_critical_statement] = STATE(7024),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(704),
-    [aux_sym_preproc_include_token1] = ACTIONS(3791),
-    [aux_sym_preproc_def_token1] = ACTIONS(3794),
-    [aux_sym_preproc_if_token1] = ACTIONS(3797),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3800),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3800),
-    [sym_preproc_directive] = ACTIONS(3803),
+  [708] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(794),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym_preproc_include_token1] = ACTIONS(3806),
+    [aux_sym_preproc_def_token1] = ACTIONS(3809),
+    [aux_sym_preproc_if_token1] = ACTIONS(3812),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3815),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3815),
+    [sym_preproc_directive] = ACTIONS(3818),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -188152,7 +188699,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3806),
+    [anon_sym_SEMI] = ACTIONS(3821),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -188167,6 +188714,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
     [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
     [aux_sym_elseif_clause_token2] = ACTIONS(2102),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
@@ -188176,7 +188724,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
     [aux_sym_block_construct_token1] = ACTIONS(2162),
     [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(2079),
     [aux_sym_format_statement_token1] = ACTIONS(2168),
     [aux_sym_print_statement_token1] = ACTIONS(2171),
     [aux_sym_open_statement_token1] = ACTIONS(2174),
@@ -188212,90 +188759,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [705] = {
-    [sym_preproc_include] = STATE(716),
-    [sym_preproc_def] = STATE(716),
-    [sym_preproc_function_def] = STATE(716),
-    [sym_preproc_call] = STATE(716),
-    [sym_preproc_if_in_statements] = STATE(716),
-    [sym_preproc_ifdef_in_statements] = STATE(716),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(716),
-    [aux_sym_preproc_include_token1] = ACTIONS(3809),
-    [aux_sym_preproc_def_token1] = ACTIONS(3812),
-    [aux_sym_preproc_if_token1] = ACTIONS(3815),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3818),
-    [sym_preproc_directive] = ACTIONS(3821),
+  [709] = {
+    [sym_preproc_include] = STATE(740),
+    [sym_preproc_def] = STATE(740),
+    [sym_preproc_function_def] = STATE(740),
+    [sym_preproc_call] = STATE(740),
+    [sym_preproc_if_in_statements] = STATE(740),
+    [sym_preproc_ifdef_in_statements] = STATE(740),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(740),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2412),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -188318,13 +188866,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3827),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3830),
+    [anon_sym_SEMI] = ACTIONS(3824),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -188346,7 +188894,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2807),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -188378,89 +188925,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3832),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [706] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [710] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2807),
+    [aux_sym_preproc_if_token2] = ACTIONS(2460),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -188468,7 +189015,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -188497,7 +189044,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -188556,83 +189103,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [707] = {
-    [sym_preproc_include] = STATE(740),
-    [sym_preproc_def] = STATE(740),
-    [sym_preproc_function_def] = STATE(740),
-    [sym_preproc_call] = STATE(740),
-    [sym_preproc_if_in_statements] = STATE(740),
-    [sym_preproc_ifdef_in_statements] = STATE(740),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(740),
+  [711] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2801),
+    [aux_sym_preproc_if_token2] = ACTIONS(2662),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -188640,7 +189187,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -188669,7 +189216,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3835),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -188728,83 +189275,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [708] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [712] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2801),
+    [aux_sym_preproc_if_token2] = ACTIONS(2767),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -188812,7 +189359,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -188841,7 +189388,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -188900,83 +189447,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [709] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [713] = {
+    [sym_preproc_include] = STATE(702),
+    [sym_preproc_def] = STATE(702),
+    [sym_preproc_function_def] = STATE(702),
+    [sym_preproc_call] = STATE(702),
+    [sym_preproc_if_in_statements] = STATE(702),
+    [sym_preproc_ifdef_in_statements] = STATE(702),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(702),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2555),
+    [aux_sym_preproc_if_token2] = ACTIONS(2769),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -188984,7 +189531,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -189013,7 +189560,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3826),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -189072,255 +189619,427 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [710] = {
-    [sym_preproc_include] = STATE(712),
-    [sym_preproc_def] = STATE(712),
-    [sym_preproc_function_def] = STATE(712),
-    [sym_preproc_call] = STATE(712),
-    [sym_preproc_if_in_statements] = STATE(712),
-    [sym_preproc_ifdef_in_statements] = STATE(712),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
-    [aux_sym_preproc_include_token1] = ACTIONS(2807),
-    [aux_sym_preproc_def_token1] = ACTIONS(2807),
-    [aux_sym_preproc_if_token1] = ACTIONS(2807),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2807),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2807),
-    [sym_preproc_directive] = ACTIONS(2807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+  [714] = {
+    [sym_preproc_include] = STATE(714),
+    [sym_preproc_def] = STATE(714),
+    [sym_preproc_function_def] = STATE(714),
+    [sym_preproc_call] = STATE(714),
+    [sym_preproc_if_in_statements] = STATE(714),
+    [sym_preproc_ifdef_in_statements] = STATE(714),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(714),
+    [aux_sym_preproc_include_token1] = ACTIONS(3828),
+    [aux_sym_preproc_def_token1] = ACTIONS(3831),
+    [aux_sym_preproc_if_token1] = ACTIONS(3834),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3837),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3837),
+    [sym_preproc_directive] = ACTIONS(3840),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2807),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2807),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3837),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2807),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3843),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3839),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [711] = {
-    [sym_preproc_include] = STATE(747),
-    [sym_preproc_def] = STATE(747),
-    [sym_preproc_function_def] = STATE(747),
-    [sym_preproc_call] = STATE(747),
-    [sym_preproc_if_in_statements] = STATE(747),
-    [sym_preproc_ifdef_in_statements] = STATE(747),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(747),
+  [715] = {
+    [sym_preproc_include] = STATE(715),
+    [sym_preproc_def] = STATE(715),
+    [sym_preproc_function_def] = STATE(715),
+    [sym_preproc_call] = STATE(715),
+    [sym_preproc_if_in_statements] = STATE(715),
+    [sym_preproc_ifdef_in_statements] = STATE(715),
+    [sym__statements] = STATE(6958),
+    [sym_statement_label] = STATE(800),
+    [sym_stop_statement] = STATE(6958),
+    [sym_assignment_statement] = STATE(6958),
+    [sym_pointer_association_statement] = STATE(6958),
+    [sym_subroutine_call] = STATE(6958),
+    [sym_keyword_statement] = STATE(6958),
+    [sym_include_statement] = STATE(6958),
+    [sym_do_loop_statement] = STATE(6958),
+    [sym_do_label_statement] = STATE(6958),
+    [sym_end_do_label_statement] = STATE(6958),
+    [sym_if_statement] = STATE(6958),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6958),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6958),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6958),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6958),
+    [sym_select_type_statement] = STATE(6958),
+    [sym_select_rank_statement] = STATE(6958),
+    [sym_block_construct] = STATE(6958),
+    [sym_associate_statement] = STATE(6958),
+    [sym_format_statement] = STATE(6958),
+    [sym_read_statement] = STATE(6958),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6958),
+    [sym_open_statement] = STATE(6958),
+    [sym_close_statement] = STATE(6958),
+    [sym_write_statement] = STATE(6958),
+    [sym_inquire_statement] = STATE(6958),
+    [sym_file_position_statement] = STATE(6958),
+    [sym_allocate_statement] = STATE(6958),
+    [sym_entry_statement] = STATE(6958),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6958),
+    [sym_coarray_team_statement] = STATE(6958),
+    [sym_coarray_critical_statement] = STATE(6958),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(715),
+    [aux_sym_preproc_include_token1] = ACTIONS(3846),
+    [aux_sym_preproc_def_token1] = ACTIONS(3849),
+    [aux_sym_preproc_if_token1] = ACTIONS(3852),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3855),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3855),
+    [sym_preproc_directive] = ACTIONS(3858),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3861),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [716] = {
+    [sym_preproc_include] = STATE(711),
+    [sym_preproc_def] = STATE(711),
+    [sym_preproc_function_def] = STATE(711),
+    [sym_preproc_call] = STATE(711),
+    [sym_preproc_if_in_statements] = STATE(711),
+    [sym_preproc_ifdef_in_statements] = STATE(711),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(711),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2651),
+    [aux_sym_preproc_if_token2] = ACTIONS(2387),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -189328,7 +190047,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -189357,7 +190076,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3841),
+    [anon_sym_SEMI] = ACTIONS(3864),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -189416,85 +190135,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [712] = {
-    [sym_preproc_include] = STATE(712),
-    [sym_preproc_def] = STATE(712),
-    [sym_preproc_function_def] = STATE(712),
-    [sym_preproc_call] = STATE(712),
-    [sym_preproc_if_in_statements] = STATE(712),
-    [sym_preproc_ifdef_in_statements] = STATE(712),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
-    [aux_sym_preproc_include_token1] = ACTIONS(3843),
-    [aux_sym_preproc_def_token1] = ACTIONS(3846),
-    [aux_sym_preproc_if_token1] = ACTIONS(3849),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3852),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3852),
-    [sym_preproc_directive] = ACTIONS(3855),
+  [717] = {
+    [sym_preproc_include] = STATE(717),
+    [sym_preproc_def] = STATE(717),
+    [sym_preproc_function_def] = STATE(717),
+    [sym_preproc_call] = STATE(717),
+    [sym_preproc_if_in_statements] = STATE(717),
+    [sym_preproc_ifdef_in_statements] = STATE(717),
+    [sym__statements] = STATE(6910),
+    [sym_statement_label] = STATE(804),
+    [sym_stop_statement] = STATE(6910),
+    [sym_assignment_statement] = STATE(6910),
+    [sym_pointer_association_statement] = STATE(6910),
+    [sym_subroutine_call] = STATE(6910),
+    [sym_keyword_statement] = STATE(6910),
+    [sym_include_statement] = STATE(6910),
+    [sym_do_loop_statement] = STATE(6910),
+    [sym_do_label_statement] = STATE(6910),
+    [sym_end_do_label_statement] = STATE(6910),
+    [sym_if_statement] = STATE(6910),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6910),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6910),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6910),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6910),
+    [sym_select_type_statement] = STATE(6910),
+    [sym_select_rank_statement] = STATE(6910),
+    [sym_block_construct] = STATE(6910),
+    [sym_associate_statement] = STATE(6910),
+    [sym_format_statement] = STATE(6910),
+    [sym_read_statement] = STATE(6910),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6910),
+    [sym_open_statement] = STATE(6910),
+    [sym_close_statement] = STATE(6910),
+    [sym_write_statement] = STATE(6910),
+    [sym_inquire_statement] = STATE(6910),
+    [sym_file_position_statement] = STATE(6910),
+    [sym_allocate_statement] = STATE(6910),
+    [sym_entry_statement] = STATE(6910),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6910),
+    [sym_coarray_team_statement] = STATE(6910),
+    [sym_coarray_critical_statement] = STATE(6910),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+    [aux_sym_preproc_include_token1] = ACTIONS(3866),
+    [aux_sym_preproc_def_token1] = ACTIONS(3869),
+    [aux_sym_preproc_if_token1] = ACTIONS(3872),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3875),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3875),
+    [sym_preproc_directive] = ACTIONS(3878),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -189528,7 +190247,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3858),
+    [anon_sym_SEMI] = ACTIONS(3881),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -189546,11 +190265,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(2102),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(2079),
     [aux_sym_select_case_statement_token1] = ACTIONS(2150),
     [aux_sym_select_case_statement_token3] = ACTIONS(2153),
     [aux_sym_select_type_statement_token1] = ACTIONS(2156),
     [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
     [aux_sym_block_construct_token1] = ACTIONS(2162),
     [aux_sym_associate_statement_token1] = ACTIONS(2165),
     [aux_sym_format_statement_token1] = ACTIONS(2168),
@@ -189588,91 +190307,262 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [713] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
+  [718] = {
+    [sym_preproc_include] = STATE(718),
+    [sym_preproc_def] = STATE(718),
+    [sym_preproc_function_def] = STATE(718),
+    [sym_preproc_call] = STATE(718),
+    [sym_preproc_if_in_statements] = STATE(718),
+    [sym_preproc_ifdef_in_statements] = STATE(718),
+    [sym__statements] = STATE(7070),
+    [sym_statement_label] = STATE(808),
+    [sym_stop_statement] = STATE(7070),
+    [sym_assignment_statement] = STATE(7070),
+    [sym_pointer_association_statement] = STATE(7070),
+    [sym_subroutine_call] = STATE(7070),
+    [sym_keyword_statement] = STATE(7070),
+    [sym_include_statement] = STATE(7070),
+    [sym_do_loop_statement] = STATE(7070),
+    [sym_do_label_statement] = STATE(7070),
+    [sym_end_do_label_statement] = STATE(7070),
+    [sym_if_statement] = STATE(7070),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7070),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7070),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7070),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7070),
+    [sym_select_type_statement] = STATE(7070),
+    [sym_select_rank_statement] = STATE(7070),
+    [sym_block_construct] = STATE(7070),
+    [sym_associate_statement] = STATE(7070),
+    [sym_format_statement] = STATE(7070),
+    [sym_read_statement] = STATE(7070),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7070),
+    [sym_open_statement] = STATE(7070),
+    [sym_close_statement] = STATE(7070),
+    [sym_write_statement] = STATE(7070),
+    [sym_inquire_statement] = STATE(7070),
+    [sym_file_position_statement] = STATE(7070),
+    [sym_allocate_statement] = STATE(7070),
+    [sym_entry_statement] = STATE(7070),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7070),
+    [sym_coarray_team_statement] = STATE(7070),
+    [sym_coarray_critical_statement] = STATE(7070),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
+    [aux_sym_preproc_include_token1] = ACTIONS(3884),
+    [aux_sym_preproc_def_token1] = ACTIONS(3887),
+    [aux_sym_preproc_if_token1] = ACTIONS(3890),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3893),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3893),
+    [sym_preproc_directive] = ACTIONS(3896),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(3899),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [719] = {
+    [sym_preproc_include] = STATE(760),
+    [sym_preproc_def] = STATE(760),
+    [sym_preproc_function_def] = STATE(760),
+    [sym_preproc_call] = STATE(760),
+    [sym_preproc_if_in_statements] = STATE(760),
+    [sym_preproc_ifdef_in_statements] = STATE(760),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2811),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(760),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3902),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -189701,7 +190591,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3905),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -189715,8 +190605,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3907),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3910),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3907),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -189754,89 +190645,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3912),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [714] = {
-    [sym_preproc_include] = STATE(741),
-    [sym_preproc_def] = STATE(741),
-    [sym_preproc_function_def] = STATE(741),
-    [sym_preproc_call] = STATE(741),
-    [sym_preproc_if_in_statements] = STATE(741),
-    [sym_preproc_ifdef_in_statements] = STATE(741),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(741),
+  [720] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2408),
+    [aux_sym_preproc_if_token2] = ACTIONS(2827),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -189844,7 +190735,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -189873,7 +190764,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3861),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -189932,83 +190823,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [715] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [721] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2408),
+    [aux_sym_preproc_if_token2] = ACTIONS(2508),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -190016,7 +190907,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -190045,7 +190936,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -190104,429 +190995,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [716] = {
-    [sym_preproc_include] = STATE(712),
-    [sym_preproc_def] = STATE(712),
-    [sym_preproc_function_def] = STATE(712),
-    [sym_preproc_call] = STATE(712),
-    [sym_preproc_if_in_statements] = STATE(712),
-    [sym_preproc_ifdef_in_statements] = STATE(712),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
-    [aux_sym_preproc_include_token1] = ACTIONS(2779),
-    [aux_sym_preproc_def_token1] = ACTIONS(2779),
-    [aux_sym_preproc_if_token1] = ACTIONS(2779),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2779),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2779),
-    [sym_preproc_directive] = ACTIONS(2779),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2779),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2779),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3837),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2779),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3863),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [717] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3865),
-    [aux_sym_preproc_def_token1] = ACTIONS(3868),
-    [aux_sym_preproc_if_token1] = ACTIONS(3871),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3874),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3874),
-    [sym_preproc_directive] = ACTIONS(3877),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3880),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [718] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(3883),
-    [aux_sym_preproc_def_token1] = ACTIONS(3886),
-    [aux_sym_preproc_if_token1] = ACTIONS(3889),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3892),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3892),
-    [sym_preproc_directive] = ACTIONS(3895),
+  [722] = {
+    [sym_preproc_include] = STATE(722),
+    [sym_preproc_def] = STATE(722),
+    [sym_preproc_function_def] = STATE(722),
+    [sym_preproc_call] = STATE(722),
+    [sym_preproc_if_in_statements] = STATE(722),
+    [sym_preproc_ifdef_in_statements] = STATE(722),
+    [sym__statements] = STATE(6770),
+    [sym_statement_label] = STATE(792),
+    [sym_stop_statement] = STATE(6770),
+    [sym_assignment_statement] = STATE(6770),
+    [sym_pointer_association_statement] = STATE(6770),
+    [sym_subroutine_call] = STATE(6770),
+    [sym_keyword_statement] = STATE(6770),
+    [sym_include_statement] = STATE(6770),
+    [sym_do_loop_statement] = STATE(6770),
+    [sym_do_label_statement] = STATE(6770),
+    [sym_end_do_label_statement] = STATE(6770),
+    [sym_if_statement] = STATE(6770),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6770),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6770),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6770),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6770),
+    [sym_select_type_statement] = STATE(6770),
+    [sym_select_rank_statement] = STATE(6770),
+    [sym_block_construct] = STATE(6770),
+    [sym_associate_statement] = STATE(6770),
+    [sym_format_statement] = STATE(6770),
+    [sym_read_statement] = STATE(6770),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6770),
+    [sym_open_statement] = STATE(6770),
+    [sym_close_statement] = STATE(6770),
+    [sym_write_statement] = STATE(6770),
+    [sym_inquire_statement] = STATE(6770),
+    [sym_file_position_statement] = STATE(6770),
+    [sym_allocate_statement] = STATE(6770),
+    [sym_entry_statement] = STATE(6770),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6770),
+    [sym_coarray_team_statement] = STATE(6770),
+    [sym_coarray_critical_statement] = STATE(6770),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(722),
+    [aux_sym_preproc_include_token1] = ACTIONS(3915),
+    [aux_sym_preproc_def_token1] = ACTIONS(3918),
+    [aux_sym_preproc_if_token1] = ACTIONS(3921),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3924),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3924),
+    [sym_preproc_directive] = ACTIONS(3927),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -190560,7 +191107,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3898),
+    [anon_sym_SEMI] = ACTIONS(3930),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -190575,7 +191122,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
     [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
     [aux_sym_elseif_clause_token2] = ACTIONS(2102),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
@@ -190612,6 +191158,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(2225),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2102),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(2234),
@@ -190620,91 +191167,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [719] = {
-    [sym_preproc_include] = STATE(742),
-    [sym_preproc_def] = STATE(742),
-    [sym_preproc_function_def] = STATE(742),
-    [sym_preproc_call] = STATE(742),
-    [sym_preproc_if_in_statements] = STATE(742),
-    [sym_preproc_ifdef_in_statements] = STATE(742),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(742),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2505),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [723] = {
+    [sym_preproc_include] = STATE(714),
+    [sym_preproc_def] = STATE(714),
+    [sym_preproc_function_def] = STATE(714),
+    [sym_preproc_call] = STATE(714),
+    [sym_preproc_if_in_statements] = STATE(714),
+    [sym_preproc_ifdef_in_statements] = STATE(714),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(714),
+    [aux_sym_preproc_include_token1] = ACTIONS(2783),
+    [aux_sym_preproc_def_token1] = ACTIONS(2783),
+    [aux_sym_preproc_if_token1] = ACTIONS(2783),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2783),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2783),
+    [sym_preproc_directive] = ACTIONS(2783),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2783),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -190727,13 +191273,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2783),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3901),
+    [anon_sym_SEMI] = ACTIONS(3933),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -190755,6 +191301,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2783),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -190786,97 +191333,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3935),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [720] = {
-    [sym_preproc_include] = STATE(750),
-    [sym_preproc_def] = STATE(750),
-    [sym_preproc_function_def] = STATE(750),
-    [sym_preproc_call] = STATE(750),
-    [sym_preproc_if_in_statements] = STATE(750),
-    [sym_preproc_ifdef_in_statements] = STATE(750),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(750),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2795),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [724] = {
+    [sym_preproc_include] = STATE(747),
+    [sym_preproc_def] = STATE(747),
+    [sym_preproc_function_def] = STATE(747),
+    [sym_preproc_call] = STATE(747),
+    [sym_preproc_if_in_statements] = STATE(747),
+    [sym_preproc_ifdef_in_statements] = STATE(747),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(747),
+    [aux_sym_preproc_include_token1] = ACTIONS(3937),
+    [aux_sym_preproc_def_token1] = ACTIONS(3940),
+    [aux_sym_preproc_if_token1] = ACTIONS(3943),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3946),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3946),
+    [sym_preproc_directive] = ACTIONS(3949),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3952),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -190899,13 +191445,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3955),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3903),
+    [anon_sym_SEMI] = ACTIONS(3958),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -190927,6 +191473,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2783),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -190958,261 +191505,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3960),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [721] = {
-    [sym_preproc_include] = STATE(721),
-    [sym_preproc_def] = STATE(721),
-    [sym_preproc_function_def] = STATE(721),
-    [sym_preproc_call] = STATE(721),
-    [sym_preproc_if_in_statements] = STATE(721),
-    [sym_preproc_ifdef_in_statements] = STATE(721),
-    [sym__statements] = STATE(6979),
-    [sym_statement_label] = STATE(807),
-    [sym_stop_statement] = STATE(6979),
-    [sym_assignment_statement] = STATE(6979),
-    [sym_pointer_association_statement] = STATE(6979),
-    [sym_subroutine_call] = STATE(6979),
-    [sym_keyword_statement] = STATE(6979),
-    [sym_include_statement] = STATE(6979),
-    [sym_do_loop_statement] = STATE(6979),
-    [sym_do_label_statement] = STATE(6979),
-    [sym_end_do_label_statement] = STATE(6979),
-    [sym_if_statement] = STATE(6979),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6979),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6979),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6979),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6979),
-    [sym_select_type_statement] = STATE(6979),
-    [sym_select_rank_statement] = STATE(6979),
-    [sym_block_construct] = STATE(6979),
-    [sym_associate_statement] = STATE(6979),
-    [sym_format_statement] = STATE(6979),
-    [sym_read_statement] = STATE(6979),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6979),
-    [sym_open_statement] = STATE(6979),
-    [sym_close_statement] = STATE(6979),
-    [sym_write_statement] = STATE(6979),
-    [sym_inquire_statement] = STATE(6979),
-    [sym_file_position_statement] = STATE(6979),
-    [sym_allocate_statement] = STATE(6979),
-    [sym_entry_statement] = STATE(6979),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6979),
-    [sym_coarray_team_statement] = STATE(6979),
-    [sym_coarray_critical_statement] = STATE(6979),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(721),
-    [aux_sym_preproc_include_token1] = ACTIONS(3905),
-    [aux_sym_preproc_def_token1] = ACTIONS(3908),
-    [aux_sym_preproc_if_token1] = ACTIONS(3911),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3914),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3914),
-    [sym_preproc_directive] = ACTIONS(3917),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3920),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [722] = {
-    [sym_preproc_include] = STATE(700),
-    [sym_preproc_def] = STATE(700),
-    [sym_preproc_function_def] = STATE(700),
-    [sym_preproc_call] = STATE(700),
-    [sym_preproc_if_in_statements] = STATE(700),
-    [sym_preproc_ifdef_in_statements] = STATE(700),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(700),
+  [725] = {
+    [sym_preproc_include] = STATE(738),
+    [sym_preproc_def] = STATE(738),
+    [sym_preproc_function_def] = STATE(738),
+    [sym_preproc_call] = STATE(738),
+    [sym_preproc_if_in_statements] = STATE(738),
+    [sym_preproc_ifdef_in_statements] = STATE(738),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2678),
+    [aux_sym_preproc_if_token2] = ACTIONS(2612),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -191220,7 +191595,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -191249,7 +191624,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3923),
+    [anon_sym_SEMI] = ACTIONS(3963),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -191308,91 +191683,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [723] = {
-    [sym_preproc_include] = STATE(706),
-    [sym_preproc_def] = STATE(706),
-    [sym_preproc_function_def] = STATE(706),
-    [sym_preproc_call] = STATE(706),
-    [sym_preproc_if_in_statements] = STATE(706),
-    [sym_preproc_ifdef_in_statements] = STATE(706),
-    [sym__statements] = STATE(7074),
+  [726] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(706),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2821),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3902),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -191421,7 +191795,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3925),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -191435,8 +191809,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3907),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3910),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3907),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -191474,97 +191849,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3912),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [724] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
+  [727] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2779),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3965),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -191593,7 +191967,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -191607,8 +191981,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3968),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3971),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3968),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -191646,97 +192021,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3973),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [725] = {
-    [sym_preproc_include] = STATE(713),
-    [sym_preproc_def] = STATE(713),
-    [sym_preproc_function_def] = STATE(713),
-    [sym_preproc_call] = STATE(713),
-    [sym_preproc_if_in_statements] = STATE(713),
-    [sym_preproc_ifdef_in_statements] = STATE(713),
-    [sym__statements] = STATE(7074),
+  [728] = {
+    [sym_preproc_include] = STATE(726),
+    [sym_preproc_def] = STATE(726),
+    [sym_preproc_function_def] = STATE(726),
+    [sym_preproc_call] = STATE(726),
+    [sym_preproc_if_in_statements] = STATE(726),
+    [sym_preproc_ifdef_in_statements] = STATE(726),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(713),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2781),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(726),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3976),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -191765,7 +192139,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3927),
+    [anon_sym_SEMI] = ACTIONS(3979),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -191779,8 +192153,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3981),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3984),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3981),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -191818,89 +192193,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(3986),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [726] = {
-    [sym_preproc_include] = STATE(709),
-    [sym_preproc_def] = STATE(709),
-    [sym_preproc_function_def] = STATE(709),
-    [sym_preproc_call] = STATE(709),
-    [sym_preproc_if_in_statements] = STATE(709),
-    [sym_preproc_ifdef_in_statements] = STATE(709),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(709),
+  [729] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2335),
+    [aux_sym_preproc_if_token2] = ACTIONS(2691),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -191908,7 +192283,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -191937,7 +192312,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3929),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -191996,90 +192371,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [727] = {
-    [sym_preproc_include] = STATE(757),
-    [sym_preproc_def] = STATE(757),
-    [sym_preproc_function_def] = STATE(757),
-    [sym_preproc_call] = STATE(757),
-    [sym_preproc_if_in_statements] = STATE(757),
-    [sym_preproc_ifdef_in_statements] = STATE(757),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(757),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [730] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
+    [sym_statement_label] = STATE(794),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3931),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3989),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -192108,7 +192483,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3934),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -192122,9 +192497,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3936),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3939),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3936),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3992),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3995),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3992),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -192162,96 +192537,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3941),
+    [sym__integer_literal] = ACTIONS(3997),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [728] = {
-    [sym_preproc_include] = STATE(710),
-    [sym_preproc_def] = STATE(710),
-    [sym_preproc_function_def] = STATE(710),
-    [sym_preproc_call] = STATE(710),
-    [sym_preproc_if_in_statements] = STATE(710),
-    [sym_preproc_ifdef_in_statements] = STATE(710),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(710),
-    [aux_sym_preproc_include_token1] = ACTIONS(3944),
-    [aux_sym_preproc_def_token1] = ACTIONS(3947),
-    [aux_sym_preproc_if_token1] = ACTIONS(3950),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3953),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3953),
-    [sym_preproc_directive] = ACTIONS(3956),
+  [731] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2327),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3959),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -192274,13 +192650,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3962),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3965),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -192302,7 +192678,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2821),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -192334,97 +192709,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3967),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [729] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2781),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [732] = {
+    [sym_preproc_include] = STATE(752),
+    [sym_preproc_def] = STATE(752),
+    [sym_preproc_function_def] = STATE(752),
+    [sym_preproc_call] = STATE(752),
+    [sym_preproc_if_in_statements] = STATE(752),
+    [sym_preproc_ifdef_in_statements] = STATE(752),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(752),
+    [aux_sym_preproc_include_token1] = ACTIONS(4000),
+    [aux_sym_preproc_def_token1] = ACTIONS(4003),
+    [aux_sym_preproc_if_token1] = ACTIONS(4006),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4009),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4009),
+    [sym_preproc_directive] = ACTIONS(4012),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4015),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -192447,13 +192821,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4018),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4021),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -192475,6 +192849,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2773),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -192506,97 +192881,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4023),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [730] = {
-    [sym_preproc_include] = STATE(715),
-    [sym_preproc_def] = STATE(715),
-    [sym_preproc_function_def] = STATE(715),
-    [sym_preproc_call] = STATE(715),
-    [sym_preproc_if_in_statements] = STATE(715),
-    [sym_preproc_ifdef_in_statements] = STATE(715),
-    [sym__statements] = STATE(7074),
+  [733] = {
+    [sym_preproc_include] = STATE(730),
+    [sym_preproc_def] = STATE(730),
+    [sym_preproc_function_def] = STATE(730),
+    [sym_preproc_call] = STATE(730),
+    [sym_preproc_if_in_statements] = STATE(730),
+    [sym_preproc_ifdef_in_statements] = STATE(730),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(715),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2383),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(730),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4026),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -192625,7 +192999,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3970),
+    [anon_sym_SEMI] = ACTIONS(4029),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -192639,8 +193013,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4031),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4031),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -192678,268 +193053,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4036),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [731] = {
-    [sym_preproc_include] = STATE(731),
-    [sym_preproc_def] = STATE(731),
-    [sym_preproc_function_def] = STATE(731),
-    [sym_preproc_call] = STATE(731),
-    [sym_preproc_if_in_statements] = STATE(731),
-    [sym_preproc_ifdef_in_statements] = STATE(731),
-    [sym__statements] = STATE(6588),
-    [sym_statement_label] = STATE(793),
-    [sym_stop_statement] = STATE(6588),
-    [sym_assignment_statement] = STATE(6588),
-    [sym_pointer_association_statement] = STATE(6588),
-    [sym_subroutine_call] = STATE(6588),
-    [sym_keyword_statement] = STATE(6588),
-    [sym_include_statement] = STATE(6588),
-    [sym_do_loop_statement] = STATE(6588),
-    [sym_do_label_statement] = STATE(6588),
-    [sym_end_do_label_statement] = STATE(6588),
-    [sym_if_statement] = STATE(6588),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6588),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6588),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6588),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6588),
-    [sym_select_type_statement] = STATE(6588),
-    [sym_select_rank_statement] = STATE(6588),
-    [sym_block_construct] = STATE(6588),
-    [sym_associate_statement] = STATE(6588),
-    [sym_format_statement] = STATE(6588),
-    [sym_read_statement] = STATE(6588),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6588),
-    [sym_open_statement] = STATE(6588),
-    [sym_close_statement] = STATE(6588),
-    [sym_write_statement] = STATE(6588),
-    [sym_inquire_statement] = STATE(6588),
-    [sym_file_position_statement] = STATE(6588),
-    [sym_allocate_statement] = STATE(6588),
-    [sym_entry_statement] = STATE(6588),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6588),
-    [sym_coarray_team_statement] = STATE(6588),
-    [sym_coarray_critical_statement] = STATE(6588),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(731),
-    [aux_sym_preproc_include_token1] = ACTIONS(3972),
-    [aux_sym_preproc_def_token1] = ACTIONS(3975),
-    [aux_sym_preproc_if_token1] = ACTIONS(3978),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3981),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3981),
-    [sym_preproc_directive] = ACTIONS(3984),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(3987),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [732] = {
-    [sym_preproc_include] = STATE(755),
-    [sym_preproc_def] = STATE(755),
-    [sym_preproc_function_def] = STATE(755),
-    [sym_preproc_call] = STATE(755),
-    [sym_preproc_if_in_statements] = STATE(755),
-    [sym_preproc_ifdef_in_statements] = STATE(755),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(755),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [734] = {
+    [sym_preproc_include] = STATE(756),
+    [sym_preproc_def] = STATE(756),
+    [sym_preproc_function_def] = STATE(756),
+    [sym_preproc_call] = STATE(756),
+    [sym_preproc_if_in_statements] = STATE(756),
+    [sym_preproc_ifdef_in_statements] = STATE(756),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(756),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2637),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3990),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -192968,7 +193172,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3993),
+    [anon_sym_SEMI] = ACTIONS(4039),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -192982,9 +193186,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3995),
-    [aux_sym_elseif_clause_token1] = ACTIONS(3998),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3995),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -193022,96 +193225,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4000),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [733] = {
-    [sym_preproc_include] = STATE(734),
-    [sym_preproc_def] = STATE(734),
-    [sym_preproc_function_def] = STATE(734),
-    [sym_preproc_call] = STATE(734),
-    [sym_preproc_if_in_statements] = STATE(734),
-    [sym_preproc_ifdef_in_statements] = STATE(734),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(734),
-    [aux_sym_preproc_include_token1] = ACTIONS(4003),
-    [aux_sym_preproc_def_token1] = ACTIONS(4006),
-    [aux_sym_preproc_if_token1] = ACTIONS(4009),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4012),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4012),
-    [sym_preproc_directive] = ACTIONS(4015),
+  [735] = {
+    [sym_preproc_include] = STATE(749),
+    [sym_preproc_def] = STATE(749),
+    [sym_preproc_function_def] = STATE(749),
+    [sym_preproc_call] = STATE(749),
+    [sym_preproc_if_in_statements] = STATE(749),
+    [sym_preproc_ifdef_in_statements] = STATE(749),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(749),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2817),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4018),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -193134,13 +193338,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4021),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4024),
+    [anon_sym_SEMI] = ACTIONS(4041),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -193162,7 +193366,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2773),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -193194,96 +193397,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4026),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [734] = {
-    [sym_preproc_include] = STATE(712),
-    [sym_preproc_def] = STATE(712),
-    [sym_preproc_function_def] = STATE(712),
-    [sym_preproc_call] = STATE(712),
-    [sym_preproc_if_in_statements] = STATE(712),
-    [sym_preproc_ifdef_in_statements] = STATE(712),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
-    [aux_sym_preproc_include_token1] = ACTIONS(2801),
-    [aux_sym_preproc_def_token1] = ACTIONS(2801),
-    [aux_sym_preproc_if_token1] = ACTIONS(2801),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2801),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2801),
-    [sym_preproc_directive] = ACTIONS(2801),
+  [736] = {
+    [sym_preproc_include] = STATE(714),
+    [sym_preproc_def] = STATE(714),
+    [sym_preproc_function_def] = STATE(714),
+    [sym_preproc_call] = STATE(714),
+    [sym_preproc_if_in_statements] = STATE(714),
+    [sym_preproc_ifdef_in_statements] = STATE(714),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(714),
+    [aux_sym_preproc_include_token1] = ACTIONS(2773),
+    [aux_sym_preproc_def_token1] = ACTIONS(2773),
+    [aux_sym_preproc_if_token1] = ACTIONS(2773),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2773),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2773),
+    [sym_preproc_directive] = ACTIONS(2773),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2801),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2773),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -193306,13 +193509,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2801),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2773),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3837),
+    [anon_sym_SEMI] = ACTIONS(3933),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -193334,7 +193537,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2801),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2773),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -193366,89 +193569,261 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4029),
+    [sym__integer_literal] = ACTIONS(4043),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [735] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [737] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(4045),
+    [aux_sym_preproc_def_token1] = ACTIONS(4048),
+    [aux_sym_preproc_if_token1] = ACTIONS(4051),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4054),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4054),
+    [sym_preproc_directive] = ACTIONS(4057),
+    [anon_sym_LPAREN2] = ACTIONS(2087),
+    [anon_sym_PLUS] = ACTIONS(2090),
+    [anon_sym_DASH] = ACTIONS(2090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
+    [aux_sym_use_statement_token2] = ACTIONS(2102),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
+    [aux_sym_save_statement_token1] = ACTIONS(2102),
+    [aux_sym_private_statement_token1] = ACTIONS(2102),
+    [aux_sym_public_statement_token1] = ACTIONS(2102),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
+    [anon_sym_SEMI] = ACTIONS(4060),
+    [aux_sym_stop_statement_token1] = ACTIONS(2114),
+    [aux_sym_stop_statement_token2] = ACTIONS(2117),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
+    [aux_sym_include_statement_token1] = ACTIONS(2135),
+    [aux_sym_data_statement_token1] = ACTIONS(2102),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
+    [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_associate_statement_token1] = ACTIONS(2165),
+    [aux_sym_format_statement_token1] = ACTIONS(2168),
+    [aux_sym_print_statement_token1] = ACTIONS(2171),
+    [aux_sym_open_statement_token1] = ACTIONS(2174),
+    [aux_sym_close_statement_token1] = ACTIONS(2177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
+    [aux_sym_entry_statement_token1] = ACTIONS(2192),
+    [aux_sym_logical_expression_token5] = ACTIONS(2195),
+    [anon_sym_DOT] = ACTIONS(2198),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
+    [anon_sym_LBRACK] = ACTIONS(2204),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
+    [aux_sym_null_literal_token1] = ACTIONS(2210),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
+    [aux_sym_identifier_token1] = ACTIONS(2102),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2234),
+    [sym__float_literal] = ACTIONS(2237),
+    [sym__boz_literal] = ACTIONS(2237),
+    [sym__string_literal] = ACTIONS(2240),
+    [sym__string_literal_kind] = ACTIONS(2243),
+  },
+  [738] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2505),
+    [aux_sym_preproc_if_token2] = ACTIONS(2264),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -193456,7 +193831,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -193485,7 +193860,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -193544,83 +193919,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [736] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [739] = {
+    [sym_preproc_include] = STATE(731),
+    [sym_preproc_def] = STATE(731),
+    [sym_preproc_function_def] = STATE(731),
+    [sym_preproc_call] = STATE(731),
+    [sym_preproc_if_in_statements] = STATE(731),
+    [sym_preproc_ifdef_in_statements] = STATE(731),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(731),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2532),
+    [aux_sym_preproc_if_token2] = ACTIONS(2558),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -193628,7 +194003,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -193657,7 +194032,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4063),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -193716,83 +194091,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [737] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [740] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2628),
+    [aux_sym_preproc_if_token2] = ACTIONS(2558),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -193800,7 +194175,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -193829,7 +194204,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -193888,85 +194263,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [738] = {
-    [sym_preproc_include] = STATE(738),
-    [sym_preproc_def] = STATE(738),
-    [sym_preproc_function_def] = STATE(738),
-    [sym_preproc_call] = STATE(738),
-    [sym_preproc_if_in_statements] = STATE(738),
-    [sym_preproc_ifdef_in_statements] = STATE(738),
-    [sym__statements] = STATE(7225),
-    [sym_statement_label] = STATE(806),
-    [sym_stop_statement] = STATE(7225),
-    [sym_assignment_statement] = STATE(7225),
-    [sym_pointer_association_statement] = STATE(7225),
-    [sym_subroutine_call] = STATE(7225),
-    [sym_keyword_statement] = STATE(7225),
-    [sym_include_statement] = STATE(7225),
-    [sym_do_loop_statement] = STATE(7225),
-    [sym_do_label_statement] = STATE(7225),
-    [sym_end_do_label_statement] = STATE(7225),
-    [sym_if_statement] = STATE(7225),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7225),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7225),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7225),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7225),
-    [sym_select_type_statement] = STATE(7225),
-    [sym_select_rank_statement] = STATE(7225),
-    [sym_block_construct] = STATE(7225),
-    [sym_associate_statement] = STATE(7225),
-    [sym_format_statement] = STATE(7225),
-    [sym_read_statement] = STATE(7225),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7225),
-    [sym_open_statement] = STATE(7225),
-    [sym_close_statement] = STATE(7225),
-    [sym_write_statement] = STATE(7225),
-    [sym_inquire_statement] = STATE(7225),
-    [sym_file_position_statement] = STATE(7225),
-    [sym_allocate_statement] = STATE(7225),
-    [sym_entry_statement] = STATE(7225),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7225),
-    [sym_coarray_team_statement] = STATE(7225),
-    [sym_coarray_critical_statement] = STATE(7225),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(738),
-    [aux_sym_preproc_include_token1] = ACTIONS(4031),
-    [aux_sym_preproc_def_token1] = ACTIONS(4034),
-    [aux_sym_preproc_if_token1] = ACTIONS(4037),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4040),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4040),
-    [sym_preproc_directive] = ACTIONS(4043),
+  [741] = {
+    [sym_preproc_include] = STATE(741),
+    [sym_preproc_def] = STATE(741),
+    [sym_preproc_function_def] = STATE(741),
+    [sym_preproc_call] = STATE(741),
+    [sym_preproc_if_in_statements] = STATE(741),
+    [sym_preproc_ifdef_in_statements] = STATE(741),
+    [sym__statements] = STATE(6595),
+    [sym_statement_label] = STATE(796),
+    [sym_stop_statement] = STATE(6595),
+    [sym_assignment_statement] = STATE(6595),
+    [sym_pointer_association_statement] = STATE(6595),
+    [sym_subroutine_call] = STATE(6595),
+    [sym_keyword_statement] = STATE(6595),
+    [sym_include_statement] = STATE(6595),
+    [sym_do_loop_statement] = STATE(6595),
+    [sym_do_label_statement] = STATE(6595),
+    [sym_end_do_label_statement] = STATE(6595),
+    [sym_if_statement] = STATE(6595),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6595),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6595),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6595),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6595),
+    [sym_select_type_statement] = STATE(6595),
+    [sym_select_rank_statement] = STATE(6595),
+    [sym_block_construct] = STATE(6595),
+    [sym_associate_statement] = STATE(6595),
+    [sym_format_statement] = STATE(6595),
+    [sym_read_statement] = STATE(6595),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6595),
+    [sym_open_statement] = STATE(6595),
+    [sym_close_statement] = STATE(6595),
+    [sym_write_statement] = STATE(6595),
+    [sym_inquire_statement] = STATE(6595),
+    [sym_file_position_statement] = STATE(6595),
+    [sym_allocate_statement] = STATE(6595),
+    [sym_entry_statement] = STATE(6595),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6595),
+    [sym_coarray_team_statement] = STATE(6595),
+    [sym_coarray_critical_statement] = STATE(6595),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(741),
+    [aux_sym_preproc_include_token1] = ACTIONS(4065),
+    [aux_sym_preproc_def_token1] = ACTIONS(4068),
+    [aux_sym_preproc_if_token1] = ACTIONS(4071),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4074),
+    [sym_preproc_directive] = ACTIONS(4077),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -194000,7 +194375,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(4046),
+    [anon_sym_SEMI] = ACTIONS(4080),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -194013,7 +194388,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(2135),
     [aux_sym_data_statement_token1] = ACTIONS(2102),
     [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(2079),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
     [aux_sym_end_if_statement_token1] = ACTIONS(2102),
     [aux_sym_elseif_clause_token2] = ACTIONS(2102),
@@ -194024,6 +194398,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(2156),
     [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
     [aux_sym_block_construct_token1] = ACTIONS(2162),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(2079),
     [aux_sym_associate_statement_token1] = ACTIONS(2165),
     [aux_sym_format_statement_token1] = ACTIONS(2168),
     [aux_sym_print_statement_token1] = ACTIONS(2171),
@@ -194060,90 +194435,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [739] = {
-    [sym_preproc_include] = STATE(712),
-    [sym_preproc_def] = STATE(712),
-    [sym_preproc_function_def] = STATE(712),
-    [sym_preproc_call] = STATE(712),
-    [sym_preproc_if_in_statements] = STATE(712),
-    [sym_preproc_ifdef_in_statements] = STATE(712),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
-    [aux_sym_preproc_include_token1] = ACTIONS(2785),
-    [aux_sym_preproc_def_token1] = ACTIONS(2785),
-    [aux_sym_preproc_if_token1] = ACTIONS(2785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2785),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2785),
-    [sym_preproc_directive] = ACTIONS(2785),
+  [742] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2785),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -194166,13 +194542,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2785),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3837),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -194194,7 +194570,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2785),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -194226,97 +194601,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4049),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [740] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [743] = {
+    [sym_preproc_include] = STATE(736),
+    [sym_preproc_def] = STATE(736),
+    [sym_preproc_function_def] = STATE(736),
+    [sym_preproc_call] = STATE(736),
+    [sym_preproc_if_in_statements] = STATE(736),
+    [sym_preproc_ifdef_in_statements] = STATE(736),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(736),
+    [aux_sym_preproc_include_token1] = ACTIONS(4083),
+    [aux_sym_preproc_def_token1] = ACTIONS(4086),
+    [aux_sym_preproc_if_token1] = ACTIONS(4089),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4092),
+    [sym_preproc_directive] = ACTIONS(4095),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4098),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -194339,13 +194713,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4101),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4104),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -194367,6 +194741,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2759),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -194398,89 +194773,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4106),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [741] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [744] = {
+    [sym_preproc_include] = STATE(710),
+    [sym_preproc_def] = STATE(710),
+    [sym_preproc_function_def] = STATE(710),
+    [sym_preproc_call] = STATE(710),
+    [sym_preproc_if_in_statements] = STATE(710),
+    [sym_preproc_ifdef_in_statements] = STATE(710),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(710),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2264),
+    [aux_sym_preproc_if_token2] = ACTIONS(2531),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -194488,7 +194863,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -194517,7 +194892,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4109),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -194576,83 +194951,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [742] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [745] = {
+    [sym_preproc_include] = STATE(712),
+    [sym_preproc_def] = STATE(712),
+    [sym_preproc_function_def] = STATE(712),
+    [sym_preproc_call] = STATE(712),
+    [sym_preproc_if_in_statements] = STATE(712),
+    [sym_preproc_ifdef_in_statements] = STATE(712),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(712),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2289),
+    [aux_sym_preproc_if_token2] = ACTIONS(2787),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -194660,7 +195035,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -194689,7 +195064,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4111),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -194748,91 +195123,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [743] = {
-    [sym_preproc_include] = STATE(735),
-    [sym_preproc_def] = STATE(735),
-    [sym_preproc_function_def] = STATE(735),
-    [sym_preproc_call] = STATE(735),
-    [sym_preproc_if_in_statements] = STATE(735),
-    [sym_preproc_ifdef_in_statements] = STATE(735),
-    [sym__statements] = STATE(7074),
+  [746] = {
+    [sym_preproc_include] = STATE(727),
+    [sym_preproc_def] = STATE(727),
+    [sym_preproc_function_def] = STATE(727),
+    [sym_preproc_call] = STATE(727),
+    [sym_preproc_if_in_statements] = STATE(727),
+    [sym_preproc_ifdef_in_statements] = STATE(727),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(735),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2478),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(727),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(3989),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -194861,7 +195235,179 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4051),
+    [anon_sym_SEMI] = ACTIONS(4113),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(3992),
+    [aux_sym_elseif_clause_token1] = ACTIONS(3995),
+    [aux_sym_elseif_clause_token2] = ACTIONS(3992),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(3997),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [747] = {
+    [sym_preproc_include] = STATE(714),
+    [sym_preproc_def] = STATE(714),
+    [sym_preproc_function_def] = STATE(714),
+    [sym_preproc_call] = STATE(714),
+    [sym_preproc_if_in_statements] = STATE(714),
+    [sym_preproc_ifdef_in_statements] = STATE(714),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(714),
+    [aux_sym_preproc_include_token1] = ACTIONS(2795),
+    [aux_sym_preproc_def_token1] = ACTIONS(2795),
+    [aux_sym_preproc_if_token1] = ACTIONS(2795),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2795),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2795),
+    [sym_preproc_directive] = ACTIONS(2795),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2795),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2795),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(3933),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -194883,6 +195429,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2795),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -194914,89 +195461,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4115),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [744] = {
-    [sym_preproc_include] = STATE(708),
-    [sym_preproc_def] = STATE(708),
-    [sym_preproc_function_def] = STATE(708),
-    [sym_preproc_call] = STATE(708),
-    [sym_preproc_if_in_statements] = STATE(708),
-    [sym_preproc_ifdef_in_statements] = STATE(708),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+  [748] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2773),
+    [aux_sym_preproc_if_token2] = ACTIONS(2437),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -195004,7 +195551,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -195033,7 +195580,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4053),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -195092,255 +195639,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [745] = {
-    [sym_preproc_include] = STATE(745),
-    [sym_preproc_def] = STATE(745),
-    [sym_preproc_function_def] = STATE(745),
-    [sym_preproc_call] = STATE(745),
-    [sym_preproc_if_in_statements] = STATE(745),
-    [sym_preproc_ifdef_in_statements] = STATE(745),
-    [sym__statements] = STATE(6511),
-    [sym_statement_label] = STATE(800),
-    [sym_stop_statement] = STATE(6511),
-    [sym_assignment_statement] = STATE(6511),
-    [sym_pointer_association_statement] = STATE(6511),
-    [sym_subroutine_call] = STATE(6511),
-    [sym_keyword_statement] = STATE(6511),
-    [sym_include_statement] = STATE(6511),
-    [sym_do_loop_statement] = STATE(6511),
-    [sym_do_label_statement] = STATE(6511),
-    [sym_end_do_label_statement] = STATE(6511),
-    [sym_if_statement] = STATE(6511),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6511),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6511),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6511),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6511),
-    [sym_select_type_statement] = STATE(6511),
-    [sym_select_rank_statement] = STATE(6511),
-    [sym_block_construct] = STATE(6511),
-    [sym_associate_statement] = STATE(6511),
-    [sym_format_statement] = STATE(6511),
-    [sym_read_statement] = STATE(6511),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6511),
-    [sym_open_statement] = STATE(6511),
-    [sym_close_statement] = STATE(6511),
-    [sym_write_statement] = STATE(6511),
-    [sym_inquire_statement] = STATE(6511),
-    [sym_file_position_statement] = STATE(6511),
-    [sym_allocate_statement] = STATE(6511),
-    [sym_entry_statement] = STATE(6511),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6511),
-    [sym_coarray_team_statement] = STATE(6511),
-    [sym_coarray_critical_statement] = STATE(6511),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(745),
-    [aux_sym_preproc_include_token1] = ACTIONS(4055),
-    [aux_sym_preproc_def_token1] = ACTIONS(4058),
-    [aux_sym_preproc_if_token1] = ACTIONS(4061),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4064),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4064),
-    [sym_preproc_directive] = ACTIONS(4067),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(4070),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [746] = {
-    [sym_preproc_include] = STATE(736),
-    [sym_preproc_def] = STATE(736),
-    [sym_preproc_function_def] = STATE(736),
-    [sym_preproc_call] = STATE(736),
-    [sym_preproc_if_in_statements] = STATE(736),
-    [sym_preproc_ifdef_in_statements] = STATE(736),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(736),
+  [749] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2312),
+    [aux_sym_preproc_if_token2] = ACTIONS(2783),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -195348,7 +195723,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -195377,7 +195752,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4073),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -195436,83 +195811,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [747] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [750] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2312),
+    [aux_sym_preproc_if_token2] = ACTIONS(2787),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -195520,7 +195895,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -195549,7 +195924,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -195608,255 +195983,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [748] = {
-    [sym_preproc_include] = STATE(748),
-    [sym_preproc_def] = STATE(748),
-    [sym_preproc_function_def] = STATE(748),
-    [sym_preproc_call] = STATE(748),
-    [sym_preproc_if_in_statements] = STATE(748),
-    [sym_preproc_ifdef_in_statements] = STATE(748),
-    [sym__statements] = STATE(6655),
-    [sym_statement_label] = STATE(808),
-    [sym_stop_statement] = STATE(6655),
-    [sym_assignment_statement] = STATE(6655),
-    [sym_pointer_association_statement] = STATE(6655),
-    [sym_subroutine_call] = STATE(6655),
-    [sym_keyword_statement] = STATE(6655),
-    [sym_include_statement] = STATE(6655),
-    [sym_do_loop_statement] = STATE(6655),
-    [sym_do_label_statement] = STATE(6655),
-    [sym_end_do_label_statement] = STATE(6655),
-    [sym_if_statement] = STATE(6655),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6655),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6655),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6655),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6655),
-    [sym_select_type_statement] = STATE(6655),
-    [sym_select_rank_statement] = STATE(6655),
-    [sym_block_construct] = STATE(6655),
-    [sym_associate_statement] = STATE(6655),
-    [sym_format_statement] = STATE(6655),
-    [sym_read_statement] = STATE(6655),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6655),
-    [sym_open_statement] = STATE(6655),
-    [sym_close_statement] = STATE(6655),
-    [sym_write_statement] = STATE(6655),
-    [sym_inquire_statement] = STATE(6655),
-    [sym_file_position_statement] = STATE(6655),
-    [sym_allocate_statement] = STATE(6655),
-    [sym_entry_statement] = STATE(6655),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6655),
-    [sym_coarray_team_statement] = STATE(6655),
-    [sym_coarray_critical_statement] = STATE(6655),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(748),
-    [aux_sym_preproc_include_token1] = ACTIONS(4075),
-    [aux_sym_preproc_def_token1] = ACTIONS(4078),
-    [aux_sym_preproc_if_token1] = ACTIONS(4081),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4084),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4084),
-    [sym_preproc_directive] = ACTIONS(4087),
-    [anon_sym_LPAREN2] = ACTIONS(2087),
-    [anon_sym_PLUS] = ACTIONS(2090),
-    [anon_sym_DASH] = ACTIONS(2090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2093),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2099),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2102),
-    [aux_sym_use_statement_token2] = ACTIONS(2102),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2102),
-    [aux_sym_save_statement_token1] = ACTIONS(2102),
-    [aux_sym_private_statement_token1] = ACTIONS(2102),
-    [aux_sym_public_statement_token1] = ACTIONS(2102),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2102),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2102),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2102),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2105),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2102),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2102),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(4090),
-    [aux_sym_stop_statement_token1] = ACTIONS(2114),
-    [aux_sym_stop_statement_token2] = ACTIONS(2117),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2123),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2126),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2129),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2123),
-    [aux_sym_include_statement_token1] = ACTIONS(2135),
-    [aux_sym_data_statement_token1] = ACTIONS(2102),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2141),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2102),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2102),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2144),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2147),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2150),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2153),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2156),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2159),
-    [aux_sym_block_construct_token1] = ACTIONS(2162),
-    [aux_sym_associate_statement_token1] = ACTIONS(2165),
-    [aux_sym_format_statement_token1] = ACTIONS(2168),
-    [aux_sym_print_statement_token1] = ACTIONS(2171),
-    [aux_sym_open_statement_token1] = ACTIONS(2174),
-    [aux_sym_close_statement_token1] = ACTIONS(2177),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2180),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2183),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2186),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2189),
-    [aux_sym_entry_statement_token1] = ACTIONS(2192),
-    [aux_sym_logical_expression_token5] = ACTIONS(2195),
-    [anon_sym_DOT] = ACTIONS(2198),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(2201),
-    [anon_sym_LBRACK] = ACTIONS(2204),
-    [aux_sym_boolean_literal_token1] = ACTIONS(2207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(2207),
-    [aux_sym_null_literal_token1] = ACTIONS(2210),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2213),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2216),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2219),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2222),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2225),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2228),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2231),
-    [aux_sym_identifier_token1] = ACTIONS(2102),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(2234),
-    [sym__float_literal] = ACTIONS(2237),
-    [sym__boz_literal] = ACTIONS(2237),
-    [sym__string_literal] = ACTIONS(2240),
-    [sym__string_literal_kind] = ACTIONS(2243),
-  },
-  [749] = {
-    [sym_preproc_include] = STATE(703),
-    [sym_preproc_def] = STATE(703),
-    [sym_preproc_function_def] = STATE(703),
-    [sym_preproc_call] = STATE(703),
-    [sym_preproc_if_in_statements] = STATE(703),
-    [sym_preproc_ifdef_in_statements] = STATE(703),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(703),
+  [751] = {
+    [sym_preproc_include] = STATE(757),
+    [sym_preproc_def] = STATE(757),
+    [sym_preproc_function_def] = STATE(757),
+    [sym_preproc_call] = STATE(757),
+    [sym_preproc_if_in_statements] = STATE(757),
+    [sym_preproc_ifdef_in_statements] = STATE(757),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(757),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2747),
+    [aux_sym_preproc_if_token2] = ACTIONS(2264),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -195864,7 +196067,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -195893,7 +196096,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4093),
+    [anon_sym_SEMI] = ACTIONS(4117),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -195952,91 +196155,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [750] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2747),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [752] = {
+    [sym_preproc_include] = STATE(714),
+    [sym_preproc_def] = STATE(714),
+    [sym_preproc_function_def] = STATE(714),
+    [sym_preproc_call] = STATE(714),
+    [sym_preproc_if_in_statements] = STATE(714),
+    [sym_preproc_ifdef_in_statements] = STATE(714),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(714),
+    [aux_sym_preproc_include_token1] = ACTIONS(2827),
+    [aux_sym_preproc_def_token1] = ACTIONS(2827),
+    [aux_sym_preproc_if_token1] = ACTIONS(2827),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2827),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2827),
+    [sym_preproc_directive] = ACTIONS(2827),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2827),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196059,13 +196261,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2827),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(3933),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196087,6 +196289,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2827),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -196118,89 +196321,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4119),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [751] = {
-    [sym_preproc_include] = STATE(717),
-    [sym_preproc_def] = STATE(717),
-    [sym_preproc_function_def] = STATE(717),
-    [sym_preproc_call] = STATE(717),
-    [sym_preproc_if_in_statements] = STATE(717),
-    [sym_preproc_ifdef_in_statements] = STATE(717),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(717),
+  [753] = {
+    [sym_preproc_include] = STATE(720),
+    [sym_preproc_def] = STATE(720),
+    [sym_preproc_function_def] = STATE(720),
+    [sym_preproc_call] = STATE(720),
+    [sym_preproc_if_in_statements] = STATE(720),
+    [sym_preproc_ifdef_in_statements] = STATE(720),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(720),
     [aux_sym_preproc_include_token1] = ACTIONS(3766),
     [aux_sym_preproc_def_token1] = ACTIONS(3768),
     [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2360),
+    [aux_sym_preproc_if_token2] = ACTIONS(2773),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
     [sym_preproc_directive] = ACTIONS(3774),
@@ -196208,7 +196411,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196237,7 +196440,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(3776),
+    [anon_sym_SEMI] = ACTIONS(4121),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196296,91 +196499,90 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [752] = {
-    [sym_preproc_include] = STATE(737),
-    [sym_preproc_def] = STATE(737),
-    [sym_preproc_function_def] = STATE(737),
-    [sym_preproc_call] = STATE(737),
-    [sym_preproc_if_in_statements] = STATE(737),
-    [sym_preproc_ifdef_in_statements] = STATE(737),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [754] = {
+    [sym_preproc_include] = STATE(723),
+    [sym_preproc_def] = STATE(723),
+    [sym_preproc_function_def] = STATE(723),
+    [sym_preproc_call] = STATE(723),
+    [sym_preproc_if_in_statements] = STATE(723),
+    [sym_preproc_ifdef_in_statements] = STATE(723),
+    [sym__statements] = STATE(6892),
+    [sym_statement_label] = STATE(797),
+    [sym_stop_statement] = STATE(6892),
+    [sym_assignment_statement] = STATE(6892),
+    [sym_pointer_association_statement] = STATE(6892),
+    [sym_subroutine_call] = STATE(6892),
+    [sym_keyword_statement] = STATE(6892),
+    [sym_include_statement] = STATE(6892),
+    [sym_do_loop_statement] = STATE(6892),
+    [sym_do_label_statement] = STATE(6892),
+    [sym_end_do_label_statement] = STATE(6892),
+    [sym_if_statement] = STATE(6892),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6892),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6892),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6892),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6892),
+    [sym_select_type_statement] = STATE(6892),
+    [sym_select_rank_statement] = STATE(6892),
+    [sym_block_construct] = STATE(6892),
+    [sym_associate_statement] = STATE(6892),
+    [sym_format_statement] = STATE(6892),
+    [sym_read_statement] = STATE(6892),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6892),
+    [sym_open_statement] = STATE(6892),
+    [sym_close_statement] = STATE(6892),
+    [sym_write_statement] = STATE(6892),
+    [sym_inquire_statement] = STATE(6892),
+    [sym_file_position_statement] = STATE(6892),
+    [sym_allocate_statement] = STATE(6892),
+    [sym_entry_statement] = STATE(6892),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6892),
+    [sym_coarray_team_statement] = STATE(6892),
+    [sym_coarray_critical_statement] = STATE(6892),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(723),
+    [aux_sym_preproc_include_token1] = ACTIONS(4123),
+    [aux_sym_preproc_def_token1] = ACTIONS(4126),
+    [aux_sym_preproc_if_token1] = ACTIONS(4129),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4132),
+    [sym_preproc_directive] = ACTIONS(4135),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4138),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196403,13 +196605,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4141),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4095),
+    [anon_sym_SEMI] = ACTIONS(4144),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196431,6 +196633,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2817),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -196462,96 +196665,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4146),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [753] = {
-    [sym_preproc_include] = STATE(756),
-    [sym_preproc_def] = STATE(756),
-    [sym_preproc_function_def] = STATE(756),
-    [sym_preproc_call] = STATE(756),
-    [sym_preproc_if_in_statements] = STATE(756),
-    [sym_preproc_ifdef_in_statements] = STATE(756),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(756),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [755] = {
+    [sym_preproc_include] = STATE(704),
+    [sym_preproc_def] = STATE(704),
+    [sym_preproc_function_def] = STATE(704),
+    [sym_preproc_call] = STATE(704),
+    [sym_preproc_if_in_statements] = STATE(704),
+    [sym_preproc_ifdef_in_statements] = STATE(704),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(704),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2783),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4097),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196580,7 +196784,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4100),
+    [anon_sym_SEMI] = ACTIONS(4149),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196594,9 +196798,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4102),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4105),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4102),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -196634,96 +196837,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4107),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [754] = {
-    [sym_preproc_include] = STATE(702),
-    [sym_preproc_def] = STATE(702),
-    [sym_preproc_function_def] = STATE(702),
-    [sym_preproc_call] = STATE(702),
-    [sym_preproc_if_in_statements] = STATE(702),
-    [sym_preproc_ifdef_in_statements] = STATE(702),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(702),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [756] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2387),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4110),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196752,7 +196956,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4113),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196766,9 +196970,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4115),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4118),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4115),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -196806,96 +197009,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4120),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [755] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [757] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4110),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -196924,7 +197128,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -196938,9 +197142,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4115),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4118),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4115),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -196978,96 +197181,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4120),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [756] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [758] = {
+    [sym_preproc_include] = STATE(750),
+    [sym_preproc_def] = STATE(750),
+    [sym_preproc_function_def] = STATE(750),
+    [sym_preproc_call] = STATE(750),
+    [sym_preproc_if_in_statements] = STATE(750),
+    [sym_preproc_ifdef_in_statements] = STATE(750),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(750),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2823),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4123),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -197096,7 +197300,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
+    [anon_sym_SEMI] = ACTIONS(4151),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -197110,9 +197314,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4126),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4129),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4126),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -197150,96 +197353,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4131),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [757] = {
-    [sym_preproc_include] = STATE(718),
-    [sym_preproc_def] = STATE(718),
-    [sym_preproc_function_def] = STATE(718),
-    [sym_preproc_call] = STATE(718),
-    [sym_preproc_if_in_statements] = STATE(718),
-    [sym_preproc_ifdef_in_statements] = STATE(718),
-    [sym__statements] = STATE(6934),
-    [sym_statement_label] = STATE(813),
-    [sym_stop_statement] = STATE(6934),
-    [sym_assignment_statement] = STATE(6934),
-    [sym_pointer_association_statement] = STATE(6934),
-    [sym_subroutine_call] = STATE(6934),
-    [sym_keyword_statement] = STATE(6934),
-    [sym_include_statement] = STATE(6934),
-    [sym_do_loop_statement] = STATE(6934),
-    [sym_do_label_statement] = STATE(6934),
-    [sym_end_do_label_statement] = STATE(6934),
-    [sym_if_statement] = STATE(6934),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6934),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6934),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6934),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6934),
-    [sym_select_type_statement] = STATE(6934),
-    [sym_select_rank_statement] = STATE(6934),
-    [sym_block_construct] = STATE(6934),
-    [sym_associate_statement] = STATE(6934),
-    [sym_format_statement] = STATE(6934),
-    [sym_read_statement] = STATE(6934),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6934),
-    [sym_open_statement] = STATE(6934),
-    [sym_close_statement] = STATE(6934),
-    [sym_write_statement] = STATE(6934),
-    [sym_inquire_statement] = STATE(6934),
-    [sym_file_position_statement] = STATE(6934),
-    [sym_allocate_statement] = STATE(6934),
-    [sym_entry_statement] = STATE(6934),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6934),
-    [sym_coarray_team_statement] = STATE(6934),
-    [sym_coarray_critical_statement] = STATE(6934),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(718),
-    [aux_sym_preproc_include_token1] = ACTIONS(2715),
-    [aux_sym_preproc_def_token1] = ACTIONS(2717),
-    [aux_sym_preproc_if_token1] = ACTIONS(2719),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2721),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2721),
-    [sym_preproc_directive] = ACTIONS(2723),
+  [759] = {
+    [sym_preproc_include] = STATE(737),
+    [sym_preproc_def] = STATE(737),
+    [sym_preproc_function_def] = STATE(737),
+    [sym_preproc_call] = STATE(737),
+    [sym_preproc_if_in_statements] = STATE(737),
+    [sym_preproc_ifdef_in_statements] = STATE(737),
+    [sym__statements] = STATE(6872),
+    [sym_statement_label] = STATE(799),
+    [sym_stop_statement] = STATE(6872),
+    [sym_assignment_statement] = STATE(6872),
+    [sym_pointer_association_statement] = STATE(6872),
+    [sym_subroutine_call] = STATE(6872),
+    [sym_keyword_statement] = STATE(6872),
+    [sym_include_statement] = STATE(6872),
+    [sym_do_loop_statement] = STATE(6872),
+    [sym_do_label_statement] = STATE(6872),
+    [sym_end_do_label_statement] = STATE(6872),
+    [sym_if_statement] = STATE(6872),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6872),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6872),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6872),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6872),
+    [sym_select_type_statement] = STATE(6872),
+    [sym_select_rank_statement] = STATE(6872),
+    [sym_block_construct] = STATE(6872),
+    [sym_associate_statement] = STATE(6872),
+    [sym_format_statement] = STATE(6872),
+    [sym_read_statement] = STATE(6872),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6872),
+    [sym_open_statement] = STATE(6872),
+    [sym_close_statement] = STATE(6872),
+    [sym_write_statement] = STATE(6872),
+    [sym_inquire_statement] = STATE(6872),
+    [sym_file_position_statement] = STATE(6872),
+    [sym_allocate_statement] = STATE(6872),
+    [sym_entry_statement] = STATE(6872),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6872),
+    [sym_coarray_team_statement] = STATE(6872),
+    [sym_coarray_critical_statement] = STATE(6872),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(737),
+    [aux_sym_preproc_include_token1] = ACTIONS(3766),
+    [aux_sym_preproc_def_token1] = ACTIONS(3768),
+    [aux_sym_preproc_if_token1] = ACTIONS(3770),
+    [aux_sym_preproc_if_token2] = ACTIONS(2773),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
+    [sym_preproc_directive] = ACTIONS(3774),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4097),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -197268,7 +197472,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(2727),
+    [anon_sym_SEMI] = ACTIONS(3780),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -197282,9 +197486,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4102),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4105),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4102),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
@@ -197322,97 +197525,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4107),
+    [sym__integer_literal] = ACTIONS(1422),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [758] = {
-    [sym_preproc_include] = STATE(724),
-    [sym_preproc_def] = STATE(724),
-    [sym_preproc_function_def] = STATE(724),
-    [sym_preproc_call] = STATE(724),
-    [sym_preproc_if_in_statements] = STATE(724),
-    [sym_preproc_ifdef_in_statements] = STATE(724),
-    [sym__statements] = STATE(7074),
+  [760] = {
+    [sym_preproc_include] = STATE(708),
+    [sym_preproc_def] = STATE(708),
+    [sym_preproc_function_def] = STATE(708),
+    [sym_preproc_call] = STATE(708),
+    [sym_preproc_if_in_statements] = STATE(708),
+    [sym_preproc_ifdef_in_statements] = STATE(708),
+    [sym__statements] = STATE(7159),
     [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(724),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2807),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+    [sym_stop_statement] = STATE(7159),
+    [sym_assignment_statement] = STATE(7159),
+    [sym_pointer_association_statement] = STATE(7159),
+    [sym_subroutine_call] = STATE(7159),
+    [sym_keyword_statement] = STATE(7159),
+    [sym_include_statement] = STATE(7159),
+    [sym_do_loop_statement] = STATE(7159),
+    [sym_do_label_statement] = STATE(7159),
+    [sym_end_do_label_statement] = STATE(7159),
+    [sym_if_statement] = STATE(7159),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7159),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7159),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7159),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7159),
+    [sym_select_type_statement] = STATE(7159),
+    [sym_select_rank_statement] = STATE(7159),
+    [sym_block_construct] = STATE(7159),
+    [sym_associate_statement] = STATE(7159),
+    [sym_format_statement] = STATE(7159),
+    [sym_read_statement] = STATE(7159),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7159),
+    [sym_open_statement] = STATE(7159),
+    [sym_close_statement] = STATE(7159),
+    [sym_write_statement] = STATE(7159),
+    [sym_inquire_statement] = STATE(7159),
+    [sym_file_position_statement] = STATE(7159),
+    [sym_allocate_statement] = STATE(7159),
+    [sym_entry_statement] = STATE(7159),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7159),
+    [sym_coarray_team_statement] = STATE(7159),
+    [sym_coarray_critical_statement] = STATE(7159),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(708),
+    [aux_sym_preproc_include_token1] = ACTIONS(2711),
+    [aux_sym_preproc_def_token1] = ACTIONS(2713),
+    [aux_sym_preproc_if_token1] = ACTIONS(2715),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2717),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2717),
+    [sym_preproc_directive] = ACTIONS(2719),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4153),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -197441,7 +197643,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4134),
+    [anon_sym_SEMI] = ACTIONS(2723),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -197455,7 +197657,179 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4156),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4159),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4156),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_select_case_statement_token1] = ACTIONS(131),
+    [aux_sym_select_case_statement_token3] = ACTIONS(133),
+    [aux_sym_select_type_statement_token1] = ACTIONS(135),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
+    [aux_sym_block_construct_token1] = ACTIONS(139),
+    [aux_sym_associate_statement_token1] = ACTIONS(141),
+    [aux_sym_format_statement_token1] = ACTIONS(143),
+    [aux_sym_print_statement_token1] = ACTIONS(145),
+    [aux_sym_open_statement_token1] = ACTIONS(147),
+    [aux_sym_close_statement_token1] = ACTIONS(149),
+    [aux_sym_inquire_statement_token1] = ACTIONS(151),
+    [aux_sym_file_position_statement_token1] = ACTIONS(157),
+    [aux_sym_file_position_statement_token2] = ACTIONS(157),
+    [aux_sym_file_position_statement_token3] = ACTIONS(157),
+    [aux_sym_file_position_statement_token4] = ACTIONS(159),
+    [aux_sym_allocate_statement_token1] = ACTIONS(161),
+    [aux_sym_entry_statement_token1] = ACTIONS(163),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(179),
+    [aux_sym_coarray_statement_token8] = ACTIONS(181),
+    [aux_sym_coarray_statement_token11] = ACTIONS(183),
+    [aux_sym_coarray_statement_token12] = ACTIONS(183),
+    [aux_sym_coarray_statement_token13] = ACTIONS(185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4161),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [761] = {
+    [sym_preproc_include] = STATE(765),
+    [sym_preproc_def] = STATE(765),
+    [sym_preproc_function_def] = STATE(765),
+    [sym_preproc_call] = STATE(765),
+    [sym_preproc_if_in_statements] = STATE(765),
+    [sym_preproc_ifdef_in_statements] = STATE(765),
+    [sym__statements] = STATE(6921),
+    [sym_statement_label] = STATE(793),
+    [sym_stop_statement] = STATE(6921),
+    [sym_assignment_statement] = STATE(6921),
+    [sym_pointer_association_statement] = STATE(6921),
+    [sym_subroutine_call] = STATE(6921),
+    [sym_keyword_statement] = STATE(6921),
+    [sym_include_statement] = STATE(6921),
+    [sym_do_loop_statement] = STATE(6921),
+    [sym_do_label_statement] = STATE(6921),
+    [sym_end_do_label_statement] = STATE(6921),
+    [sym_if_statement] = STATE(6921),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6921),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6921),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6921),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6921),
+    [sym_select_type_statement] = STATE(6921),
+    [sym_select_rank_statement] = STATE(6921),
+    [sym_block_construct] = STATE(6921),
+    [sym_associate_statement] = STATE(6921),
+    [sym_format_statement] = STATE(6921),
+    [sym_read_statement] = STATE(6921),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6921),
+    [sym_open_statement] = STATE(6921),
+    [sym_close_statement] = STATE(6921),
+    [sym_write_statement] = STATE(6921),
+    [sym_inquire_statement] = STATE(6921),
+    [sym_file_position_statement] = STATE(6921),
+    [sym_allocate_statement] = STATE(6921),
+    [sym_entry_statement] = STATE(6921),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6921),
+    [sym_coarray_team_statement] = STATE(6921),
+    [sym_coarray_critical_statement] = STATE(6921),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(765),
+    [aux_sym_preproc_include_token1] = ACTIONS(4164),
+    [aux_sym_preproc_def_token1] = ACTIONS(4166),
+    [aux_sym_preproc_if_token1] = ACTIONS(4168),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4170),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4170),
+    [sym_preproc_directive] = ACTIONS(4172),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4174),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(4177),
+    [aux_sym_stop_statement_token1] = ACTIONS(105),
+    [aux_sym_stop_statement_token2] = ACTIONS(107),
+    [aux_sym_subroutine_call_token1] = ACTIONS(109),
+    [aux_sym_keyword_statement_token1] = ACTIONS(111),
+    [aux_sym_keyword_statement_token2] = ACTIONS(113),
+    [aux_sym_keyword_statement_token3] = ACTIONS(113),
+    [aux_sym_keyword_statement_token4] = ACTIONS(115),
+    [aux_sym_keyword_statement_token6] = ACTIONS(117),
+    [aux_sym_keyword_statement_token7] = ACTIONS(111),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4179),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -197494,97 +197868,96 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
+    [sym__integer_literal] = ACTIONS(4182),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [759] = {
-    [sym_preproc_include] = STATE(729),
-    [sym_preproc_def] = STATE(729),
-    [sym_preproc_function_def] = STATE(729),
-    [sym_preproc_call] = STATE(729),
-    [sym_preproc_if_in_statements] = STATE(729),
-    [sym_preproc_ifdef_in_statements] = STATE(729),
-    [sym__statements] = STATE(7074),
-    [sym_statement_label] = STATE(794),
-    [sym_stop_statement] = STATE(7074),
-    [sym_assignment_statement] = STATE(7074),
-    [sym_pointer_association_statement] = STATE(7074),
-    [sym_subroutine_call] = STATE(7074),
-    [sym_keyword_statement] = STATE(7074),
-    [sym_include_statement] = STATE(7074),
-    [sym_do_loop_statement] = STATE(7074),
-    [sym_do_label_statement] = STATE(7074),
-    [sym_end_do_label_statement] = STATE(7074),
-    [sym_if_statement] = STATE(7074),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7074),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7074),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7074),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7074),
-    [sym_select_type_statement] = STATE(7074),
-    [sym_select_rank_statement] = STATE(7074),
-    [sym_block_construct] = STATE(7074),
-    [sym_associate_statement] = STATE(7074),
-    [sym_format_statement] = STATE(7074),
-    [sym_read_statement] = STATE(7074),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7074),
-    [sym_open_statement] = STATE(7074),
-    [sym_close_statement] = STATE(7074),
-    [sym_write_statement] = STATE(7074),
-    [sym_inquire_statement] = STATE(7074),
-    [sym_file_position_statement] = STATE(7074),
-    [sym_allocate_statement] = STATE(7074),
-    [sym_entry_statement] = STATE(7074),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7074),
-    [sym_coarray_team_statement] = STATE(7074),
-    [sym_coarray_critical_statement] = STATE(7074),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(729),
-    [aux_sym_preproc_include_token1] = ACTIONS(3766),
-    [aux_sym_preproc_def_token1] = ACTIONS(3768),
-    [aux_sym_preproc_if_token1] = ACTIONS(3770),
-    [aux_sym_preproc_if_token2] = ACTIONS(2751),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3772),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3772),
-    [sym_preproc_directive] = ACTIONS(3774),
+  [762] = {
+    [sym_preproc_include] = STATE(764),
+    [sym_preproc_def] = STATE(764),
+    [sym_preproc_function_def] = STATE(764),
+    [sym_preproc_call] = STATE(764),
+    [sym_preproc_if_in_statements] = STATE(764),
+    [sym_preproc_ifdef_in_statements] = STATE(764),
+    [sym__statements] = STATE(6921),
+    [sym_statement_label] = STATE(793),
+    [sym_stop_statement] = STATE(6921),
+    [sym_assignment_statement] = STATE(6921),
+    [sym_pointer_association_statement] = STATE(6921),
+    [sym_subroutine_call] = STATE(6921),
+    [sym_keyword_statement] = STATE(6921),
+    [sym_include_statement] = STATE(6921),
+    [sym_do_loop_statement] = STATE(6921),
+    [sym_do_label_statement] = STATE(6921),
+    [sym_end_do_label_statement] = STATE(6921),
+    [sym_if_statement] = STATE(6921),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6921),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6921),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6921),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6921),
+    [sym_select_type_statement] = STATE(6921),
+    [sym_select_rank_statement] = STATE(6921),
+    [sym_block_construct] = STATE(6921),
+    [sym_associate_statement] = STATE(6921),
+    [sym_format_statement] = STATE(6921),
+    [sym_read_statement] = STATE(6921),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6921),
+    [sym_open_statement] = STATE(6921),
+    [sym_close_statement] = STATE(6921),
+    [sym_write_statement] = STATE(6921),
+    [sym_inquire_statement] = STATE(6921),
+    [sym_file_position_statement] = STATE(6921),
+    [sym_allocate_statement] = STATE(6921),
+    [sym_entry_statement] = STATE(6921),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6921),
+    [sym_coarray_team_statement] = STATE(6921),
+    [sym_coarray_critical_statement] = STATE(6921),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(764),
+    [aux_sym_preproc_include_token1] = ACTIONS(4164),
+    [aux_sym_preproc_def_token1] = ACTIONS(4166),
+    [aux_sym_preproc_if_token1] = ACTIONS(4168),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4170),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4170),
+    [sym_preproc_directive] = ACTIONS(4172),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4174),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -197613,7 +197986,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4136),
+    [anon_sym_SEMI] = ACTIONS(4185),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -197627,178 +198000,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(1422),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [760] = {
-    [sym_preproc_include] = STATE(739),
-    [sym_preproc_def] = STATE(739),
-    [sym_preproc_function_def] = STATE(739),
-    [sym_preproc_call] = STATE(739),
-    [sym_preproc_if_in_statements] = STATE(739),
-    [sym_preproc_ifdef_in_statements] = STATE(739),
-    [sym__statements] = STATE(7059),
-    [sym_statement_label] = STATE(805),
-    [sym_stop_statement] = STATE(7059),
-    [sym_assignment_statement] = STATE(7059),
-    [sym_pointer_association_statement] = STATE(7059),
-    [sym_subroutine_call] = STATE(7059),
-    [sym_keyword_statement] = STATE(7059),
-    [sym_include_statement] = STATE(7059),
-    [sym_do_loop_statement] = STATE(7059),
-    [sym_do_label_statement] = STATE(7059),
-    [sym_end_do_label_statement] = STATE(7059),
-    [sym_if_statement] = STATE(7059),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7059),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7059),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7059),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7059),
-    [sym_select_type_statement] = STATE(7059),
-    [sym_select_rank_statement] = STATE(7059),
-    [sym_block_construct] = STATE(7059),
-    [sym_associate_statement] = STATE(7059),
-    [sym_format_statement] = STATE(7059),
-    [sym_read_statement] = STATE(7059),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7059),
-    [sym_open_statement] = STATE(7059),
-    [sym_close_statement] = STATE(7059),
-    [sym_write_statement] = STATE(7059),
-    [sym_inquire_statement] = STATE(7059),
-    [sym_file_position_statement] = STATE(7059),
-    [sym_allocate_statement] = STATE(7059),
-    [sym_entry_statement] = STATE(7059),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7059),
-    [sym_coarray_team_statement] = STATE(7059),
-    [sym_coarray_critical_statement] = STATE(7059),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(739),
-    [aux_sym_preproc_include_token1] = ACTIONS(4138),
-    [aux_sym_preproc_def_token1] = ACTIONS(4141),
-    [aux_sym_preproc_if_token1] = ACTIONS(4144),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4147),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4147),
-    [sym_preproc_directive] = ACTIONS(4150),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4153),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4156),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4159),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4179),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -197806,7 +198008,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
     [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2801),
     [aux_sym_block_construct_token1] = ACTIONS(139),
     [aux_sym_associate_statement_token1] = ACTIONS(141),
     [aux_sym_format_statement_token1] = ACTIONS(143),
@@ -197838,85 +198039,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4161),
+    [sym__integer_literal] = ACTIONS(4182),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [761] = {
-    [sym_preproc_include] = STATE(763),
-    [sym_preproc_def] = STATE(763),
-    [sym_preproc_function_def] = STATE(763),
-    [sym_preproc_call] = STATE(763),
-    [sym_preproc_if_in_statements] = STATE(763),
-    [sym_preproc_ifdef_in_statements] = STATE(763),
-    [sym__statements] = STATE(7038),
-    [sym_statement_label] = STATE(812),
-    [sym_stop_statement] = STATE(7038),
-    [sym_assignment_statement] = STATE(7038),
-    [sym_pointer_association_statement] = STATE(7038),
-    [sym_subroutine_call] = STATE(7038),
-    [sym_keyword_statement] = STATE(7038),
-    [sym_include_statement] = STATE(7038),
-    [sym_do_loop_statement] = STATE(7038),
-    [sym_do_label_statement] = STATE(7038),
-    [sym_end_do_label_statement] = STATE(7038),
-    [sym_if_statement] = STATE(7038),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7038),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7038),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7038),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7038),
-    [sym_select_type_statement] = STATE(7038),
-    [sym_select_rank_statement] = STATE(7038),
-    [sym_block_construct] = STATE(7038),
-    [sym_associate_statement] = STATE(7038),
-    [sym_format_statement] = STATE(7038),
-    [sym_read_statement] = STATE(7038),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7038),
-    [sym_open_statement] = STATE(7038),
-    [sym_close_statement] = STATE(7038),
-    [sym_write_statement] = STATE(7038),
-    [sym_inquire_statement] = STATE(7038),
-    [sym_file_position_statement] = STATE(7038),
-    [sym_allocate_statement] = STATE(7038),
-    [sym_entry_statement] = STATE(7038),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7038),
-    [sym_coarray_team_statement] = STATE(7038),
-    [sym_coarray_critical_statement] = STATE(7038),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(763),
+  [763] = {
+    [sym_preproc_include] = STATE(762),
+    [sym_preproc_def] = STATE(762),
+    [sym_preproc_function_def] = STATE(762),
+    [sym_preproc_call] = STATE(762),
+    [sym_preproc_if_in_statements] = STATE(762),
+    [sym_preproc_ifdef_in_statements] = STATE(762),
+    [sym__statements] = STATE(6921),
+    [sym_statement_label] = STATE(793),
+    [sym_stop_statement] = STATE(6921),
+    [sym_assignment_statement] = STATE(6921),
+    [sym_pointer_association_statement] = STATE(6921),
+    [sym_subroutine_call] = STATE(6921),
+    [sym_keyword_statement] = STATE(6921),
+    [sym_include_statement] = STATE(6921),
+    [sym_do_loop_statement] = STATE(6921),
+    [sym_do_label_statement] = STATE(6921),
+    [sym_end_do_label_statement] = STATE(6921),
+    [sym_if_statement] = STATE(6921),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6921),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6921),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6921),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6921),
+    [sym_select_type_statement] = STATE(6921),
+    [sym_select_rank_statement] = STATE(6921),
+    [sym_block_construct] = STATE(6921),
+    [sym_associate_statement] = STATE(6921),
+    [sym_format_statement] = STATE(6921),
+    [sym_read_statement] = STATE(6921),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6921),
+    [sym_open_statement] = STATE(6921),
+    [sym_close_statement] = STATE(6921),
+    [sym_write_statement] = STATE(6921),
+    [sym_inquire_statement] = STATE(6921),
+    [sym_file_position_statement] = STATE(6921),
+    [sym_allocate_statement] = STATE(6921),
+    [sym_entry_statement] = STATE(6921),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6921),
+    [sym_coarray_team_statement] = STATE(6921),
+    [sym_coarray_critical_statement] = STATE(6921),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(762),
     [aux_sym_preproc_include_token1] = ACTIONS(4164),
     [aux_sym_preproc_def_token1] = ACTIONS(4166),
     [aux_sym_preproc_if_token1] = ACTIONS(4168),
@@ -197927,7 +198128,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4174),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4187),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -197956,7 +198157,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4177),
+    [anon_sym_SEMI] = ACTIONS(4190),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -197970,7 +198171,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4179),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4192),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -198009,262 +198210,91 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4182),
+    [sym__integer_literal] = ACTIONS(4195),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [762] = {
-    [sym_preproc_include] = STATE(762),
-    [sym_preproc_def] = STATE(762),
-    [sym_preproc_function_def] = STATE(762),
-    [sym_preproc_call] = STATE(762),
-    [sym_interface] = STATE(762),
-    [sym_interface_statement] = STATE(3907),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(762),
-    [sym_use_statement] = STATE(6933),
-    [sym_implicit_statement] = STATE(6933),
-    [sym_save_statement] = STATE(6933),
-    [sym_private_statement] = STATE(762),
-    [sym_public_statement] = STATE(762),
-    [sym_namelist_statement] = STATE(6933),
-    [sym_common_statement] = STATE(6933),
-    [sym_import_statement] = STATE(6933),
-    [sym_derived_type_definition] = STATE(762),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4300),
-    [sym_variable_declaration] = STATE(6933),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6933),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6933),
-    [sym_equivalence_statement] = STATE(6933),
-    [sym_statement_label] = STATE(7243),
-    [sym_include_statement] = STATE(6933),
-    [sym_data_statement] = STATE(6933),
-    [sym_enum] = STATE(762),
-    [sym_enum_statement] = STATE(6053),
-    [sym_enumeration_type] = STATE(762),
-    [sym_enumeration_type_statement] = STATE(6223),
-    [sym_statement_function] = STATE(6933),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(762),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4185),
-    [aux_sym_preproc_def_token1] = ACTIONS(4188),
-    [aux_sym_preproc_if_token1] = ACTIONS(3025),
-    [aux_sym_preproc_if_token2] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3025),
-    [sym_preproc_directive] = ACTIONS(4191),
-    [anon_sym_LPAREN2] = ACTIONS(3025),
-    [anon_sym_PLUS] = ACTIONS(3030),
-    [anon_sym_DASH] = ACTIONS(3030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3032),
-    [aux_sym_interface_statement_token1] = ACTIONS(3035),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3041),
-    [aux_sym_language_binding_token1] = ACTIONS(3044),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3047),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3050),
-    [aux_sym_contains_statement_token1] = ACTIONS(3025),
-    [aux_sym_use_statement_token1] = ACTIONS(3053),
-    [aux_sym_use_statement_token2] = ACTIONS(3050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3056),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3059),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3050),
-    [aux_sym_save_statement_token1] = ACTIONS(3062),
-    [aux_sym_private_statement_token1] = ACTIONS(4194),
-    [aux_sym_public_statement_token1] = ACTIONS(4197),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3071),
-    [aux_sym_common_statement_token1] = ACTIONS(3074),
-    [aux_sym_import_statement_token1] = ACTIONS(3077),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3080),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3092),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3095),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3089),
-    [aux_sym_derived_type_token1] = ACTIONS(3098),
-    [aux_sym_declared_type_token1] = ACTIONS(3101),
-    [aux_sym_declared_type_token2] = ACTIONS(3101),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3107),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3110),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3113),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3083),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3083),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3119),
-    [anon_sym_SEMI] = ACTIONS(3030),
-    [aux_sym_stop_statement_token1] = ACTIONS(3038),
-    [aux_sym_stop_statement_token2] = ACTIONS(3038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3025),
-    [aux_sym_include_statement_token1] = ACTIONS(3122),
-    [aux_sym_data_statement_token1] = ACTIONS(3125),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3025),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3025),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3025),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3025),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3025),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3025),
-    [aux_sym_block_construct_token1] = ACTIONS(3038),
-    [aux_sym_associate_statement_token1] = ACTIONS(3025),
-    [aux_sym_format_statement_token1] = ACTIONS(3038),
-    [aux_sym_print_statement_token1] = ACTIONS(3025),
-    [aux_sym_open_statement_token1] = ACTIONS(3025),
-    [aux_sym_close_statement_token1] = ACTIONS(3025),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3038),
-    [aux_sym_enum_statement_token1] = ACTIONS(3131),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3134),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3025),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3025),
-    [aux_sym_entry_statement_token1] = ACTIONS(3038),
-    [aux_sym_logical_expression_token5] = ACTIONS(3030),
-    [anon_sym_DOT] = ACTIONS(3025),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3030),
-    [anon_sym_LBRACK] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3030),
-    [aux_sym_null_literal_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3025),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3038),
-    [aux_sym_identifier_token1] = ACTIONS(3038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3137),
-    [sym__float_literal] = ACTIONS(3030),
-    [sym__boz_literal] = ACTIONS(3030),
-    [sym__string_literal] = ACTIONS(3030),
-    [sym__string_literal_kind] = ACTIONS(3030),
-  },
-  [763] = {
-    [sym_preproc_include] = STATE(763),
-    [sym_preproc_def] = STATE(763),
-    [sym_preproc_function_def] = STATE(763),
-    [sym_preproc_call] = STATE(763),
-    [sym_preproc_if_in_statements] = STATE(763),
-    [sym_preproc_ifdef_in_statements] = STATE(763),
-    [sym__statements] = STATE(7038),
-    [sym_statement_label] = STATE(812),
-    [sym_stop_statement] = STATE(7038),
-    [sym_assignment_statement] = STATE(7038),
-    [sym_pointer_association_statement] = STATE(7038),
-    [sym_subroutine_call] = STATE(7038),
-    [sym_keyword_statement] = STATE(7038),
-    [sym_include_statement] = STATE(7038),
-    [sym_do_loop_statement] = STATE(7038),
-    [sym_do_label_statement] = STATE(7038),
-    [sym_end_do_label_statement] = STATE(7038),
-    [sym_if_statement] = STATE(7038),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7038),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7038),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7038),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7038),
-    [sym_select_type_statement] = STATE(7038),
-    [sym_select_rank_statement] = STATE(7038),
-    [sym_block_construct] = STATE(7038),
-    [sym_associate_statement] = STATE(7038),
-    [sym_format_statement] = STATE(7038),
-    [sym_read_statement] = STATE(7038),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7038),
-    [sym_open_statement] = STATE(7038),
-    [sym_close_statement] = STATE(7038),
-    [sym_write_statement] = STATE(7038),
-    [sym_inquire_statement] = STATE(7038),
-    [sym_file_position_statement] = STATE(7038),
-    [sym_allocate_statement] = STATE(7038),
-    [sym_entry_statement] = STATE(7038),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7038),
-    [sym_coarray_team_statement] = STATE(7038),
-    [sym_coarray_critical_statement] = STATE(7038),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(763),
-    [aux_sym_preproc_include_token1] = ACTIONS(4200),
-    [aux_sym_preproc_def_token1] = ACTIONS(4203),
-    [aux_sym_preproc_if_token1] = ACTIONS(4206),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4209),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4209),
-    [sym_preproc_directive] = ACTIONS(4212),
+  [764] = {
+    [sym_preproc_include] = STATE(764),
+    [sym_preproc_def] = STATE(764),
+    [sym_preproc_function_def] = STATE(764),
+    [sym_preproc_call] = STATE(764),
+    [sym_preproc_if_in_statements] = STATE(764),
+    [sym_preproc_ifdef_in_statements] = STATE(764),
+    [sym__statements] = STATE(6921),
+    [sym_statement_label] = STATE(793),
+    [sym_stop_statement] = STATE(6921),
+    [sym_assignment_statement] = STATE(6921),
+    [sym_pointer_association_statement] = STATE(6921),
+    [sym_subroutine_call] = STATE(6921),
+    [sym_keyword_statement] = STATE(6921),
+    [sym_include_statement] = STATE(6921),
+    [sym_do_loop_statement] = STATE(6921),
+    [sym_do_label_statement] = STATE(6921),
+    [sym_end_do_label_statement] = STATE(6921),
+    [sym_if_statement] = STATE(6921),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6921),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6921),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6921),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6921),
+    [sym_select_type_statement] = STATE(6921),
+    [sym_select_rank_statement] = STATE(6921),
+    [sym_block_construct] = STATE(6921),
+    [sym_associate_statement] = STATE(6921),
+    [sym_format_statement] = STATE(6921),
+    [sym_read_statement] = STATE(6921),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6921),
+    [sym_open_statement] = STATE(6921),
+    [sym_close_statement] = STATE(6921),
+    [sym_write_statement] = STATE(6921),
+    [sym_inquire_statement] = STATE(6921),
+    [sym_file_position_statement] = STATE(6921),
+    [sym_allocate_statement] = STATE(6921),
+    [sym_entry_statement] = STATE(6921),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6921),
+    [sym_coarray_team_statement] = STATE(6921),
+    [sym_coarray_critical_statement] = STATE(6921),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(764),
+    [aux_sym_preproc_include_token1] = ACTIONS(4198),
+    [aux_sym_preproc_def_token1] = ACTIONS(4201),
+    [aux_sym_preproc_if_token1] = ACTIONS(4204),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4207),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4207),
+    [sym_preproc_directive] = ACTIONS(4210),
     [anon_sym_LPAREN2] = ACTIONS(2087),
     [anon_sym_PLUS] = ACTIONS(2090),
     [anon_sym_DASH] = ACTIONS(2090),
@@ -198298,7 +198328,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2102),
     [aux_sym_type_qualifier_token1] = ACTIONS(2102),
     [aux_sym_type_qualifier_token2] = ACTIONS(2102),
-    [anon_sym_SEMI] = ACTIONS(4215),
+    [anon_sym_SEMI] = ACTIONS(4213),
     [aux_sym_stop_statement_token1] = ACTIONS(2114),
     [aux_sym_stop_statement_token2] = ACTIONS(2117),
     [aux_sym_subroutine_call_token1] = ACTIONS(2120),
@@ -198357,79 +198387,79 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(2240),
     [sym__string_literal_kind] = ACTIONS(2243),
   },
-  [764] = {
-    [sym_preproc_include] = STATE(763),
-    [sym_preproc_def] = STATE(763),
-    [sym_preproc_function_def] = STATE(763),
-    [sym_preproc_call] = STATE(763),
-    [sym_preproc_if_in_statements] = STATE(763),
-    [sym_preproc_ifdef_in_statements] = STATE(763),
-    [sym__statements] = STATE(7038),
-    [sym_statement_label] = STATE(812),
-    [sym_stop_statement] = STATE(7038),
-    [sym_assignment_statement] = STATE(7038),
-    [sym_pointer_association_statement] = STATE(7038),
-    [sym_subroutine_call] = STATE(7038),
-    [sym_keyword_statement] = STATE(7038),
-    [sym_include_statement] = STATE(7038),
-    [sym_do_loop_statement] = STATE(7038),
-    [sym_do_label_statement] = STATE(7038),
-    [sym_end_do_label_statement] = STATE(7038),
-    [sym_if_statement] = STATE(7038),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7038),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7038),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7038),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7038),
-    [sym_select_type_statement] = STATE(7038),
-    [sym_select_rank_statement] = STATE(7038),
-    [sym_block_construct] = STATE(7038),
-    [sym_associate_statement] = STATE(7038),
-    [sym_format_statement] = STATE(7038),
-    [sym_read_statement] = STATE(7038),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7038),
-    [sym_open_statement] = STATE(7038),
-    [sym_close_statement] = STATE(7038),
-    [sym_write_statement] = STATE(7038),
-    [sym_inquire_statement] = STATE(7038),
-    [sym_file_position_statement] = STATE(7038),
-    [sym_allocate_statement] = STATE(7038),
-    [sym_entry_statement] = STATE(7038),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7038),
-    [sym_coarray_team_statement] = STATE(7038),
-    [sym_coarray_critical_statement] = STATE(7038),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(763),
+  [765] = {
+    [sym_preproc_include] = STATE(764),
+    [sym_preproc_def] = STATE(764),
+    [sym_preproc_function_def] = STATE(764),
+    [sym_preproc_call] = STATE(764),
+    [sym_preproc_if_in_statements] = STATE(764),
+    [sym_preproc_ifdef_in_statements] = STATE(764),
+    [sym__statements] = STATE(6921),
+    [sym_statement_label] = STATE(793),
+    [sym_stop_statement] = STATE(6921),
+    [sym_assignment_statement] = STATE(6921),
+    [sym_pointer_association_statement] = STATE(6921),
+    [sym_subroutine_call] = STATE(6921),
+    [sym_keyword_statement] = STATE(6921),
+    [sym_include_statement] = STATE(6921),
+    [sym_do_loop_statement] = STATE(6921),
+    [sym_do_label_statement] = STATE(6921),
+    [sym_end_do_label_statement] = STATE(6921),
+    [sym_if_statement] = STATE(6921),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6921),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6921),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6921),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6921),
+    [sym_select_type_statement] = STATE(6921),
+    [sym_select_rank_statement] = STATE(6921),
+    [sym_block_construct] = STATE(6921),
+    [sym_associate_statement] = STATE(6921),
+    [sym_format_statement] = STATE(6921),
+    [sym_read_statement] = STATE(6921),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6921),
+    [sym_open_statement] = STATE(6921),
+    [sym_close_statement] = STATE(6921),
+    [sym_write_statement] = STATE(6921),
+    [sym_inquire_statement] = STATE(6921),
+    [sym_file_position_statement] = STATE(6921),
+    [sym_allocate_statement] = STATE(6921),
+    [sym_entry_statement] = STATE(6921),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6921),
+    [sym_coarray_team_statement] = STATE(6921),
+    [sym_coarray_critical_statement] = STATE(6921),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(764),
     [aux_sym_preproc_include_token1] = ACTIONS(4164),
     [aux_sym_preproc_def_token1] = ACTIONS(4166),
     [aux_sym_preproc_if_token1] = ACTIONS(4168),
@@ -198440,7 +198470,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4218),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4216),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -198469,7 +198499,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4177),
+    [anon_sym_SEMI] = ACTIONS(4185),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -198483,7 +198513,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4221),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4219),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -198522,96 +198552,425 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4224),
+    [sym__integer_literal] = ACTIONS(4222),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [765] = {
-    [sym_preproc_include] = STATE(761),
-    [sym_preproc_def] = STATE(761),
-    [sym_preproc_function_def] = STATE(761),
-    [sym_preproc_call] = STATE(761),
-    [sym_preproc_if_in_statements] = STATE(761),
-    [sym_preproc_ifdef_in_statements] = STATE(761),
-    [sym__statements] = STATE(7038),
-    [sym_statement_label] = STATE(812),
-    [sym_stop_statement] = STATE(7038),
-    [sym_assignment_statement] = STATE(7038),
-    [sym_pointer_association_statement] = STATE(7038),
-    [sym_subroutine_call] = STATE(7038),
-    [sym_keyword_statement] = STATE(7038),
-    [sym_include_statement] = STATE(7038),
-    [sym_do_loop_statement] = STATE(7038),
-    [sym_do_label_statement] = STATE(7038),
-    [sym_end_do_label_statement] = STATE(7038),
-    [sym_if_statement] = STATE(7038),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7038),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7038),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7038),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7038),
-    [sym_select_type_statement] = STATE(7038),
-    [sym_select_rank_statement] = STATE(7038),
-    [sym_block_construct] = STATE(7038),
-    [sym_associate_statement] = STATE(7038),
-    [sym_format_statement] = STATE(7038),
-    [sym_read_statement] = STATE(7038),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7038),
-    [sym_open_statement] = STATE(7038),
-    [sym_close_statement] = STATE(7038),
-    [sym_write_statement] = STATE(7038),
-    [sym_inquire_statement] = STATE(7038),
-    [sym_file_position_statement] = STATE(7038),
-    [sym_allocate_statement] = STATE(7038),
-    [sym_entry_statement] = STATE(7038),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7038),
-    [sym_coarray_team_statement] = STATE(7038),
-    [sym_coarray_critical_statement] = STATE(7038),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(761),
-    [aux_sym_preproc_include_token1] = ACTIONS(4164),
-    [aux_sym_preproc_def_token1] = ACTIONS(4166),
-    [aux_sym_preproc_if_token1] = ACTIONS(4168),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4170),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4170),
-    [sym_preproc_directive] = ACTIONS(4172),
+  [766] = {
+    [sym_preproc_include] = STATE(766),
+    [sym_preproc_def] = STATE(766),
+    [sym_preproc_function_def] = STATE(766),
+    [sym_preproc_call] = STATE(766),
+    [sym_interface] = STATE(766),
+    [sym_interface_statement] = STATE(3934),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(766),
+    [sym_use_statement] = STATE(7160),
+    [sym_implicit_statement] = STATE(7160),
+    [sym_save_statement] = STATE(7160),
+    [sym_private_statement] = STATE(766),
+    [sym_public_statement] = STATE(766),
+    [sym_namelist_statement] = STATE(7160),
+    [sym_common_statement] = STATE(7160),
+    [sym_import_statement] = STATE(7160),
+    [sym_derived_type_definition] = STATE(766),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4318),
+    [sym_variable_declaration] = STATE(7160),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7160),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7160),
+    [sym_equivalence_statement] = STATE(7160),
+    [sym_statement_label] = STATE(6565),
+    [sym_include_statement] = STATE(7160),
+    [sym_data_statement] = STATE(7160),
+    [sym_enum] = STATE(766),
+    [sym_enum_statement] = STATE(6036),
+    [sym_enumeration_type] = STATE(766),
+    [sym_enumeration_type_statement] = STATE(6214),
+    [sym_statement_function] = STATE(7160),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(766),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4225),
+    [aux_sym_preproc_def_token1] = ACTIONS(4228),
+    [aux_sym_preproc_if_token1] = ACTIONS(2841),
+    [aux_sym_preproc_if_token2] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2841),
+    [sym_preproc_directive] = ACTIONS(4231),
+    [anon_sym_LPAREN2] = ACTIONS(2841),
+    [anon_sym_PLUS] = ACTIONS(2846),
+    [anon_sym_DASH] = ACTIONS(2846),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2848),
+    [aux_sym_interface_statement_token1] = ACTIONS(2851),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2854),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2854),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(2857),
+    [aux_sym_language_binding_token1] = ACTIONS(2860),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(2863),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2866),
+    [aux_sym_contains_statement_token1] = ACTIONS(2841),
+    [aux_sym_use_statement_token1] = ACTIONS(2869),
+    [aux_sym_use_statement_token2] = ACTIONS(2866),
+    [aux_sym_implicit_statement_token1] = ACTIONS(2872),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2875),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2866),
+    [aux_sym_save_statement_token1] = ACTIONS(2878),
+    [aux_sym_private_statement_token1] = ACTIONS(4234),
+    [aux_sym_public_statement_token1] = ACTIONS(4237),
+    [aux_sym_namelist_statement_token1] = ACTIONS(2887),
+    [aux_sym_common_statement_token1] = ACTIONS(2890),
+    [aux_sym_import_statement_token1] = ACTIONS(2893),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2866),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(2896),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token1] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token4] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2866),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2908),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(2911),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(2905),
+    [aux_sym_derived_type_token1] = ACTIONS(2914),
+    [aux_sym_declared_type_token1] = ACTIONS(2917),
+    [aux_sym_declared_type_token2] = ACTIONS(2917),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(2920),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2923),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(2926),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2929),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(2899),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2932),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(2899),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2854),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2854),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(2935),
+    [anon_sym_SEMI] = ACTIONS(2846),
+    [aux_sym_stop_statement_token1] = ACTIONS(2854),
+    [aux_sym_stop_statement_token2] = ACTIONS(2854),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2841),
+    [aux_sym_include_statement_token1] = ACTIONS(2938),
+    [aux_sym_data_statement_token1] = ACTIONS(2941),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2841),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2854),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2841),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2841),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2944),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2841),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2841),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2841),
+    [aux_sym_block_construct_token1] = ACTIONS(2854),
+    [aux_sym_associate_statement_token1] = ACTIONS(2841),
+    [aux_sym_format_statement_token1] = ACTIONS(2854),
+    [aux_sym_print_statement_token1] = ACTIONS(2841),
+    [aux_sym_open_statement_token1] = ACTIONS(2841),
+    [aux_sym_close_statement_token1] = ACTIONS(2841),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2854),
+    [aux_sym_enum_statement_token1] = ACTIONS(2947),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(2950),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2841),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2841),
+    [aux_sym_entry_statement_token1] = ACTIONS(2854),
+    [aux_sym_logical_expression_token5] = ACTIONS(2846),
+    [anon_sym_DOT] = ACTIONS(2841),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2846),
+    [anon_sym_LBRACK] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2846),
+    [aux_sym_null_literal_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2841),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2854),
+    [aux_sym_identifier_token1] = ACTIONS(2854),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2953),
+    [sym__float_literal] = ACTIONS(2846),
+    [sym__boz_literal] = ACTIONS(2846),
+    [sym__string_literal] = ACTIONS(2846),
+    [sym__string_literal_kind] = ACTIONS(2846),
+  },
+  [767] = {
+    [sym_preproc_include] = STATE(767),
+    [sym_preproc_def] = STATE(767),
+    [sym_preproc_function_def] = STATE(767),
+    [sym_preproc_call] = STATE(767),
+    [sym_interface] = STATE(767),
+    [sym_interface_statement] = STATE(3870),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(767),
+    [sym_use_statement] = STATE(6768),
+    [sym_implicit_statement] = STATE(6768),
+    [sym_save_statement] = STATE(6768),
+    [sym_private_statement] = STATE(767),
+    [sym_public_statement] = STATE(767),
+    [sym_namelist_statement] = STATE(6768),
+    [sym_common_statement] = STATE(6768),
+    [sym_import_statement] = STATE(6768),
+    [sym_derived_type_definition] = STATE(767),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4317),
+    [sym_variable_declaration] = STATE(6768),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6768),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6768),
+    [sym_equivalence_statement] = STATE(6768),
+    [sym_statement_label] = STATE(6633),
+    [sym_include_statement] = STATE(6768),
+    [sym_data_statement] = STATE(6768),
+    [sym_enum] = STATE(767),
+    [sym_enum_statement] = STATE(6076),
+    [sym_enumeration_type] = STATE(767),
+    [sym_enumeration_type_statement] = STATE(6276),
+    [sym_statement_function] = STATE(6768),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(767),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4240),
+    [aux_sym_preproc_def_token1] = ACTIONS(4243),
+    [aux_sym_preproc_if_token1] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2841),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2841),
+    [sym_preproc_directive] = ACTIONS(4246),
+    [anon_sym_LPAREN2] = ACTIONS(2841),
+    [anon_sym_PLUS] = ACTIONS(2846),
+    [anon_sym_DASH] = ACTIONS(2846),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2848),
+    [aux_sym_interface_statement_token1] = ACTIONS(2851),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2854),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2854),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(2857),
+    [aux_sym_language_binding_token1] = ACTIONS(2860),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(2863),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2866),
+    [aux_sym_use_statement_token1] = ACTIONS(2869),
+    [aux_sym_use_statement_token2] = ACTIONS(2866),
+    [aux_sym_implicit_statement_token1] = ACTIONS(2872),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2875),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2866),
+    [aux_sym_save_statement_token1] = ACTIONS(2878),
+    [aux_sym_private_statement_token1] = ACTIONS(4249),
+    [aux_sym_public_statement_token1] = ACTIONS(4252),
+    [aux_sym_namelist_statement_token1] = ACTIONS(2887),
+    [aux_sym_common_statement_token1] = ACTIONS(2890),
+    [aux_sym_import_statement_token1] = ACTIONS(2893),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2866),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(2896),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token1] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token4] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2866),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2908),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(2911),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(2905),
+    [aux_sym_derived_type_token1] = ACTIONS(2914),
+    [aux_sym_declared_type_token1] = ACTIONS(2917),
+    [aux_sym_declared_type_token2] = ACTIONS(2917),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(2920),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2923),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(2926),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2929),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(2899),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2932),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(2899),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2854),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2854),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(2935),
+    [anon_sym_SEMI] = ACTIONS(2846),
+    [aux_sym_stop_statement_token1] = ACTIONS(2854),
+    [aux_sym_stop_statement_token2] = ACTIONS(2854),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2841),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2841),
+    [aux_sym_include_statement_token1] = ACTIONS(2938),
+    [aux_sym_data_statement_token1] = ACTIONS(2941),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2841),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2854),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2841),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2841),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2944),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2841),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2841),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2841),
+    [aux_sym_block_construct_token1] = ACTIONS(2854),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(2841),
+    [aux_sym_associate_statement_token1] = ACTIONS(2841),
+    [aux_sym_format_statement_token1] = ACTIONS(2854),
+    [aux_sym_print_statement_token1] = ACTIONS(2841),
+    [aux_sym_open_statement_token1] = ACTIONS(2841),
+    [aux_sym_close_statement_token1] = ACTIONS(2841),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2854),
+    [aux_sym_enum_statement_token1] = ACTIONS(2947),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(2950),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2841),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2841),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2841),
+    [aux_sym_entry_statement_token1] = ACTIONS(2854),
+    [aux_sym_logical_expression_token5] = ACTIONS(2846),
+    [anon_sym_DOT] = ACTIONS(2841),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(2846),
+    [anon_sym_LBRACK] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token1] = ACTIONS(2846),
+    [aux_sym_boolean_literal_token2] = ACTIONS(2846),
+    [aux_sym_null_literal_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2841),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2854),
+    [aux_sym_identifier_token1] = ACTIONS(2854),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2953),
+    [sym__float_literal] = ACTIONS(2846),
+    [sym__boz_literal] = ACTIONS(2846),
+    [sym__string_literal] = ACTIONS(2846),
+    [sym__string_literal_kind] = ACTIONS(2846),
+  },
+  [768] = {
+    [sym__statements] = STATE(6927),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6927),
+    [sym_assignment_statement] = STATE(6927),
+    [sym_pointer_association_statement] = STATE(6927),
+    [sym_subroutine_call] = STATE(6927),
+    [sym_keyword_statement] = STATE(6927),
+    [sym_include_statement] = STATE(6927),
+    [sym_do_loop_statement] = STATE(6927),
+    [sym_do_label_statement] = STATE(6927),
+    [sym_end_do_label_statement] = STATE(6927),
+    [sym_if_statement] = STATE(6927),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6927),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6927),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6927),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7473),
+    [sym_select_case_statement] = STATE(6927),
+    [sym_select_type_statement] = STATE(6927),
+    [sym_select_rank_statement] = STATE(6927),
+    [sym_block_construct] = STATE(6927),
+    [sym_associate_statement] = STATE(6927),
+    [sym_format_statement] = STATE(6927),
+    [sym_read_statement] = STATE(6927),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6927),
+    [sym_open_statement] = STATE(6927),
+    [sym_close_statement] = STATE(6927),
+    [sym_write_statement] = STATE(6927),
+    [sym_inquire_statement] = STATE(6927),
+    [sym_file_position_statement] = STATE(6927),
+    [sym_allocate_statement] = STATE(6927),
+    [sym_entry_statement] = STATE(6927),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6927),
+    [sym_coarray_team_statement] = STATE(6927),
+    [sym_coarray_critical_statement] = STATE(6927),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4218),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4255),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -198640,7 +198999,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4227),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -198653,11 +199011,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4221),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -198693,96 +199053,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4224),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [766] = {
-    [sym_preproc_include] = STATE(764),
-    [sym_preproc_def] = STATE(764),
-    [sym_preproc_function_def] = STATE(764),
-    [sym_preproc_call] = STATE(764),
-    [sym_preproc_if_in_statements] = STATE(764),
-    [sym_preproc_ifdef_in_statements] = STATE(764),
-    [sym__statements] = STATE(7038),
-    [sym_statement_label] = STATE(812),
-    [sym_stop_statement] = STATE(7038),
-    [sym_assignment_statement] = STATE(7038),
-    [sym_pointer_association_statement] = STATE(7038),
-    [sym_subroutine_call] = STATE(7038),
-    [sym_keyword_statement] = STATE(7038),
-    [sym_include_statement] = STATE(7038),
-    [sym_do_loop_statement] = STATE(7038),
-    [sym_do_label_statement] = STATE(7038),
-    [sym_end_do_label_statement] = STATE(7038),
-    [sym_if_statement] = STATE(7038),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7038),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7038),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7038),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7038),
-    [sym_select_type_statement] = STATE(7038),
-    [sym_select_rank_statement] = STATE(7038),
-    [sym_block_construct] = STATE(7038),
-    [sym_associate_statement] = STATE(7038),
-    [sym_format_statement] = STATE(7038),
-    [sym_read_statement] = STATE(7038),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7038),
-    [sym_open_statement] = STATE(7038),
-    [sym_close_statement] = STATE(7038),
-    [sym_write_statement] = STATE(7038),
-    [sym_inquire_statement] = STATE(7038),
-    [sym_file_position_statement] = STATE(7038),
-    [sym_allocate_statement] = STATE(7038),
-    [sym_entry_statement] = STATE(7038),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7038),
-    [sym_coarray_team_statement] = STATE(7038),
-    [sym_coarray_critical_statement] = STATE(7038),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [aux_sym_preproc_if_in_specification_part_repeat1] = STATE(764),
-    [aux_sym_preproc_include_token1] = ACTIONS(4164),
-    [aux_sym_preproc_def_token1] = ACTIONS(4166),
-    [aux_sym_preproc_if_token1] = ACTIONS(4168),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4170),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4170),
-    [sym_preproc_directive] = ACTIONS(4172),
+  [769] = {
+    [sym__statements] = STATE(6927),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6927),
+    [sym_assignment_statement] = STATE(6927),
+    [sym_pointer_association_statement] = STATE(6927),
+    [sym_subroutine_call] = STATE(6927),
+    [sym_keyword_statement] = STATE(6927),
+    [sym_include_statement] = STATE(6927),
+    [sym_do_loop_statement] = STATE(6927),
+    [sym_do_label_statement] = STATE(6927),
+    [sym_end_do_label_statement] = STATE(6927),
+    [sym_if_statement] = STATE(6927),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6927),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6927),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6927),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7470),
+    [sym_select_case_statement] = STATE(6927),
+    [sym_select_type_statement] = STATE(6927),
+    [sym_select_rank_statement] = STATE(6927),
+    [sym_block_construct] = STATE(6927),
+    [sym_associate_statement] = STATE(6927),
+    [sym_format_statement] = STATE(6927),
+    [sym_read_statement] = STATE(6927),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6927),
+    [sym_open_statement] = STATE(6927),
+    [sym_close_statement] = STATE(6927),
+    [sym_write_statement] = STATE(6927),
+    [sym_inquire_statement] = STATE(6927),
+    [sym_file_position_statement] = STATE(6927),
+    [sym_allocate_statement] = STATE(6927),
+    [sym_entry_statement] = STATE(6927),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6927),
+    [sym_coarray_team_statement] = STATE(6927),
+    [sym_coarray_critical_statement] = STATE(6927),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4229),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4255),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -198811,7 +199159,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4232),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -198824,11 +199171,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4234),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -198864,254 +199213,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4237),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [767] = {
-    [sym_preproc_include] = STATE(767),
-    [sym_preproc_def] = STATE(767),
-    [sym_preproc_function_def] = STATE(767),
-    [sym_preproc_call] = STATE(767),
-    [sym_interface] = STATE(767),
-    [sym_interface_statement] = STATE(3890),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(767),
-    [sym_use_statement] = STATE(6586),
-    [sym_implicit_statement] = STATE(6586),
-    [sym_save_statement] = STATE(6586),
-    [sym_private_statement] = STATE(767),
-    [sym_public_statement] = STATE(767),
-    [sym_namelist_statement] = STATE(6586),
-    [sym_common_statement] = STATE(6586),
-    [sym_import_statement] = STATE(6586),
-    [sym_derived_type_definition] = STATE(767),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4301),
-    [sym_variable_declaration] = STATE(6586),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6586),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6586),
-    [sym_equivalence_statement] = STATE(6586),
-    [sym_statement_label] = STATE(7202),
-    [sym_include_statement] = STATE(6586),
-    [sym_data_statement] = STATE(6586),
-    [sym_enum] = STATE(767),
-    [sym_enum_statement] = STATE(6056),
-    [sym_enumeration_type] = STATE(767),
-    [sym_enumeration_type_statement] = STATE(6171),
-    [sym_statement_function] = STATE(6586),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(767),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4240),
-    [aux_sym_preproc_def_token1] = ACTIONS(4243),
-    [aux_sym_preproc_if_token1] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(3025),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(3025),
-    [sym_preproc_directive] = ACTIONS(4246),
-    [anon_sym_LPAREN2] = ACTIONS(3025),
-    [anon_sym_PLUS] = ACTIONS(3030),
-    [anon_sym_DASH] = ACTIONS(3030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3032),
-    [aux_sym_interface_statement_token1] = ACTIONS(3035),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3041),
-    [aux_sym_language_binding_token1] = ACTIONS(3044),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3047),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3050),
-    [aux_sym_use_statement_token1] = ACTIONS(3053),
-    [aux_sym_use_statement_token2] = ACTIONS(3050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3056),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3059),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3050),
-    [aux_sym_save_statement_token1] = ACTIONS(3062),
-    [aux_sym_private_statement_token1] = ACTIONS(4249),
-    [aux_sym_public_statement_token1] = ACTIONS(4252),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3071),
-    [aux_sym_common_statement_token1] = ACTIONS(3074),
-    [aux_sym_import_statement_token1] = ACTIONS(3077),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3080),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3092),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3095),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3089),
-    [aux_sym_derived_type_token1] = ACTIONS(3098),
-    [aux_sym_declared_type_token1] = ACTIONS(3101),
-    [aux_sym_declared_type_token2] = ACTIONS(3101),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3107),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3110),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3113),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3083),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3083),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3119),
-    [anon_sym_SEMI] = ACTIONS(3030),
-    [aux_sym_stop_statement_token1] = ACTIONS(3038),
-    [aux_sym_stop_statement_token2] = ACTIONS(3038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token1] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token6] = ACTIONS(3025),
-    [aux_sym_keyword_statement_token7] = ACTIONS(3025),
-    [aux_sym_include_statement_token1] = ACTIONS(3122),
-    [aux_sym_data_statement_token1] = ACTIONS(3125),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(3025),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(3025),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(3025),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(3025),
-    [aux_sym_select_type_statement_token1] = ACTIONS(3025),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(3025),
-    [aux_sym_block_construct_token1] = ACTIONS(3038),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(3025),
-    [aux_sym_associate_statement_token1] = ACTIONS(3025),
-    [aux_sym_format_statement_token1] = ACTIONS(3038),
-    [aux_sym_print_statement_token1] = ACTIONS(3025),
-    [aux_sym_open_statement_token1] = ACTIONS(3025),
-    [aux_sym_close_statement_token1] = ACTIONS(3025),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3038),
-    [aux_sym_enum_statement_token1] = ACTIONS(3131),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3134),
-    [aux_sym_file_position_statement_token1] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token2] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token3] = ACTIONS(3025),
-    [aux_sym_file_position_statement_token4] = ACTIONS(3025),
-    [aux_sym_allocate_statement_token1] = ACTIONS(3025),
-    [aux_sym_entry_statement_token1] = ACTIONS(3038),
-    [aux_sym_logical_expression_token5] = ACTIONS(3030),
-    [anon_sym_DOT] = ACTIONS(3025),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(3030),
-    [anon_sym_LBRACK] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(3030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(3030),
-    [aux_sym_null_literal_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(3025),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3038),
-    [aux_sym_identifier_token1] = ACTIONS(3038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3137),
-    [sym__float_literal] = ACTIONS(3030),
-    [sym__boz_literal] = ACTIONS(3030),
-    [sym__string_literal] = ACTIONS(3030),
-    [sym__string_literal_kind] = ACTIONS(3030),
-  },
-  [768] = {
-    [sym__statements] = STATE(7686),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7686),
-    [sym_assignment_statement] = STATE(7686),
-    [sym_pointer_association_statement] = STATE(7686),
-    [sym_subroutine_call] = STATE(7686),
-    [sym_keyword_statement] = STATE(7686),
-    [sym_include_statement] = STATE(7686),
-    [sym_do_loop_statement] = STATE(7686),
-    [sym_do_label_statement] = STATE(7686),
-    [sym_end_do_label_statement] = STATE(7686),
-    [sym_if_statement] = STATE(7686),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7686),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7686),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7686),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7686),
-    [sym_select_type_statement] = STATE(7686),
-    [sym_select_rank_statement] = STATE(7686),
-    [sym_block_construct] = STATE(7686),
-    [sym_associate_statement] = STATE(7686),
-    [sym_format_statement] = STATE(7686),
-    [sym_read_statement] = STATE(7686),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7686),
-    [sym_open_statement] = STATE(7686),
-    [sym_close_statement] = STATE(7686),
-    [sym_write_statement] = STATE(7686),
-    [sym_inquire_statement] = STATE(7686),
-    [sym_file_position_statement] = STATE(7686),
-    [sym_allocate_statement] = STATE(7686),
-    [sym_entry_statement] = STATE(7686),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7686),
-    [sym_coarray_team_statement] = STATE(7686),
-    [sym_coarray_critical_statement] = STATE(7686),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [sym__end_of_statement] = STATE(556),
+  [770] = {
+    [sym__statements] = STATE(7499),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7499),
+    [sym_assignment_statement] = STATE(7499),
+    [sym_pointer_association_statement] = STATE(7499),
+    [sym_subroutine_call] = STATE(7499),
+    [sym_keyword_statement] = STATE(7499),
+    [sym_include_statement] = STATE(7499),
+    [sym_do_loop_statement] = STATE(7499),
+    [sym_do_label_statement] = STATE(7499),
+    [sym_end_do_label_statement] = STATE(7499),
+    [sym_if_statement] = STATE(7499),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7499),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7499),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7499),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7499),
+    [sym_select_type_statement] = STATE(7499),
+    [sym_select_rank_statement] = STATE(7499),
+    [sym_block_construct] = STATE(7499),
+    [sym_associate_statement] = STATE(7499),
+    [sym_format_statement] = STATE(7499),
+    [sym_read_statement] = STATE(7499),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7499),
+    [sym_open_statement] = STATE(7499),
+    [sym_close_statement] = STATE(7499),
+    [sym_write_statement] = STATE(7499),
+    [sym_inquire_statement] = STATE(7499),
+    [sym_file_position_statement] = STATE(7499),
+    [sym_allocate_statement] = STATE(7499),
+    [sym_entry_statement] = STATE(7499),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7499),
+    [sym_coarray_team_statement] = STATE(7499),
+    [sym_coarray_critical_statement] = STATE(7499),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [sym__end_of_statement] = STATE(564),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -199140,7 +199319,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4255),
+    [anon_sym_SEMI] = ACTIONS(4261),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -199193,85 +199372,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
-    [sym__external_end_of_statement] = ACTIONS(4255),
+    [sym__external_end_of_statement] = ACTIONS(4261),
   },
-  [769] = {
-    [sym__statements] = STATE(6662),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6662),
-    [sym_assignment_statement] = STATE(6662),
-    [sym_pointer_association_statement] = STATE(6662),
-    [sym_subroutine_call] = STATE(6662),
-    [sym_keyword_statement] = STATE(6662),
-    [sym_include_statement] = STATE(6662),
-    [sym_do_loop_statement] = STATE(6662),
-    [sym_do_label_statement] = STATE(6662),
-    [sym_end_do_label_statement] = STATE(6662),
-    [sym_if_statement] = STATE(6662),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6662),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6662),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6662),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7319),
-    [sym_select_case_statement] = STATE(6662),
-    [sym_select_type_statement] = STATE(6662),
-    [sym_select_rank_statement] = STATE(6662),
-    [sym_block_construct] = STATE(6662),
-    [sym_associate_statement] = STATE(6662),
-    [sym_format_statement] = STATE(6662),
-    [sym_read_statement] = STATE(6662),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6662),
-    [sym_open_statement] = STATE(6662),
-    [sym_close_statement] = STATE(6662),
-    [sym_write_statement] = STATE(6662),
-    [sym_inquire_statement] = STATE(6662),
-    [sym_file_position_statement] = STATE(6662),
-    [sym_allocate_statement] = STATE(6662),
-    [sym_entry_statement] = STATE(6662),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6662),
-    [sym_coarray_team_statement] = STATE(6662),
-    [sym_coarray_critical_statement] = STATE(6662),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+  [771] = {
+    [sym__statements] = STATE(7383),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7383),
+    [sym_assignment_statement] = STATE(7383),
+    [sym_pointer_association_statement] = STATE(7383),
+    [sym_subroutine_call] = STATE(7383),
+    [sym_keyword_statement] = STATE(7383),
+    [sym_include_statement] = STATE(7383),
+    [sym_do_loop_statement] = STATE(7383),
+    [sym_do_label_statement] = STATE(7383),
+    [sym_end_do_label_statement] = STATE(7383),
+    [sym_if_statement] = STATE(7383),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7383),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7383),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7383),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7383),
+    [sym_select_type_statement] = STATE(7383),
+    [sym_select_rank_statement] = STATE(7383),
+    [sym_block_construct] = STATE(7383),
+    [sym_associate_statement] = STATE(7383),
+    [sym_format_statement] = STATE(7383),
+    [sym_read_statement] = STATE(7383),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7383),
+    [sym_open_statement] = STATE(7383),
+    [sym_close_statement] = STATE(7383),
+    [sym_write_statement] = STATE(7383),
+    [sym_inquire_statement] = STATE(7383),
+    [sym_file_position_statement] = STATE(7383),
+    [sym_allocate_statement] = STATE(7383),
+    [sym_entry_statement] = STATE(7383),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7383),
+    [sym_coarray_team_statement] = STATE(7383),
+    [sym_coarray_critical_statement] = STATE(7383),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
+    [sym__end_of_statement] = STATE(689),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4259),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -199300,6 +199479,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(4263),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -199312,13 +199492,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -199354,84 +199532,85 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
+    [sym__external_end_of_statement] = ACTIONS(4263),
   },
-  [770] = {
-    [sym__statements] = STATE(7597),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7597),
-    [sym_assignment_statement] = STATE(7597),
-    [sym_pointer_association_statement] = STATE(7597),
-    [sym_subroutine_call] = STATE(7597),
-    [sym_keyword_statement] = STATE(7597),
-    [sym_include_statement] = STATE(7597),
-    [sym_do_loop_statement] = STATE(7597),
-    [sym_do_label_statement] = STATE(7597),
-    [sym_end_do_label_statement] = STATE(7597),
-    [sym_if_statement] = STATE(7597),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7597),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7597),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7597),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7597),
-    [sym_select_type_statement] = STATE(7597),
-    [sym_select_rank_statement] = STATE(7597),
-    [sym_block_construct] = STATE(7597),
-    [sym_associate_statement] = STATE(7597),
-    [sym_format_statement] = STATE(7597),
-    [sym_read_statement] = STATE(7597),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7597),
-    [sym_open_statement] = STATE(7597),
-    [sym_close_statement] = STATE(7597),
-    [sym_write_statement] = STATE(7597),
-    [sym_inquire_statement] = STATE(7597),
-    [sym_file_position_statement] = STATE(7597),
-    [sym_allocate_statement] = STATE(7597),
-    [sym_entry_statement] = STATE(7597),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7597),
-    [sym_coarray_team_statement] = STATE(7597),
-    [sym_coarray_critical_statement] = STATE(7597),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [sym__end_of_statement] = STATE(674),
+  [772] = {
+    [sym__statements] = STATE(6927),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6927),
+    [sym_assignment_statement] = STATE(6927),
+    [sym_pointer_association_statement] = STATE(6927),
+    [sym_subroutine_call] = STATE(6927),
+    [sym_keyword_statement] = STATE(6927),
+    [sym_include_statement] = STATE(6927),
+    [sym_do_loop_statement] = STATE(6927),
+    [sym_do_label_statement] = STATE(6927),
+    [sym_end_do_label_statement] = STATE(6927),
+    [sym_if_statement] = STATE(6927),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6927),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6927),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6927),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_end_forall_statement] = STATE(7665),
+    [sym_select_case_statement] = STATE(6927),
+    [sym_select_type_statement] = STATE(6927),
+    [sym_select_rank_statement] = STATE(6927),
+    [sym_block_construct] = STATE(6927),
+    [sym_associate_statement] = STATE(6927),
+    [sym_format_statement] = STATE(6927),
+    [sym_read_statement] = STATE(6927),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6927),
+    [sym_open_statement] = STATE(6927),
+    [sym_close_statement] = STATE(6927),
+    [sym_write_statement] = STATE(6927),
+    [sym_inquire_statement] = STATE(6927),
+    [sym_file_position_statement] = STATE(6927),
+    [sym_allocate_statement] = STATE(6927),
+    [sym_entry_statement] = STATE(6927),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6927),
+    [sym_coarray_team_statement] = STATE(6927),
+    [sym_coarray_critical_statement] = STATE(6927),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4255),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -199460,7 +199639,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
     [aux_sym_type_qualifier_token1] = ACTIONS(97),
     [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [anon_sym_SEMI] = ACTIONS(4263),
     [aux_sym_stop_statement_token1] = ACTIONS(105),
     [aux_sym_stop_statement_token2] = ACTIONS(107),
     [aux_sym_subroutine_call_token1] = ACTIONS(109),
@@ -199473,11 +199651,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(3307),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -199513,89 +199693,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
-    [sym__external_end_of_statement] = ACTIONS(4263),
   },
-  [771] = {
-    [sym__statements] = STATE(6662),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6662),
-    [sym_assignment_statement] = STATE(6662),
-    [sym_pointer_association_statement] = STATE(6662),
-    [sym_subroutine_call] = STATE(6662),
-    [sym_keyword_statement] = STATE(6662),
-    [sym_include_statement] = STATE(6662),
-    [sym_do_loop_statement] = STATE(6662),
-    [sym_do_label_statement] = STATE(6662),
-    [sym_end_do_label_statement] = STATE(6662),
-    [sym_if_statement] = STATE(6662),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6662),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6662),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6662),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7554),
-    [sym_select_case_statement] = STATE(6662),
-    [sym_select_type_statement] = STATE(6662),
-    [sym_select_rank_statement] = STATE(6662),
-    [sym_block_construct] = STATE(6662),
-    [sym_associate_statement] = STATE(6662),
-    [sym_format_statement] = STATE(6662),
-    [sym_read_statement] = STATE(6662),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6662),
-    [sym_open_statement] = STATE(6662),
-    [sym_close_statement] = STATE(6662),
-    [sym_write_statement] = STATE(6662),
-    [sym_inquire_statement] = STATE(6662),
-    [sym_file_position_statement] = STATE(6662),
-    [sym_allocate_statement] = STATE(6662),
-    [sym_entry_statement] = STATE(6662),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6662),
-    [sym_coarray_team_statement] = STATE(6662),
-    [sym_coarray_critical_statement] = STATE(6662),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+  [773] = {
+    [sym__statements] = STATE(7173),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7173),
+    [sym_assignment_statement] = STATE(7173),
+    [sym_pointer_association_statement] = STATE(7173),
+    [sym_subroutine_call] = STATE(7173),
+    [sym_keyword_statement] = STATE(7173),
+    [sym_include_statement] = STATE(7173),
+    [sym_do_loop_statement] = STATE(7173),
+    [sym_do_label_statement] = STATE(7173),
+    [sym_end_do_label_statement] = STATE(7173),
+    [sym_if_statement] = STATE(7173),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7173),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7173),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7173),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7173),
+    [sym_select_type_statement] = STATE(7173),
+    [sym_select_rank_statement] = STATE(7173),
+    [sym_block_construct] = STATE(7173),
+    [sym_associate_statement] = STATE(7173),
+    [sym_format_statement] = STATE(7053),
+    [sym_read_statement] = STATE(7173),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7173),
+    [sym_open_statement] = STATE(7173),
+    [sym_close_statement] = STATE(7173),
+    [sym_write_statement] = STATE(7173),
+    [sym_inquire_statement] = STATE(7173),
+    [sym_file_position_statement] = STATE(7173),
+    [sym_allocate_statement] = STATE(7173),
+    [sym_entry_statement] = STATE(7173),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7173),
+    [sym_coarray_team_statement] = STATE(7173),
+    [sym_coarray_critical_statement] = STATE(7173),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4259),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -199632,13 +199811,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -199674,84 +199852,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [772] = {
-    [sym__statements] = STATE(6662),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6662),
-    [sym_assignment_statement] = STATE(6662),
-    [sym_pointer_association_statement] = STATE(6662),
-    [sym_subroutine_call] = STATE(6662),
-    [sym_keyword_statement] = STATE(6662),
-    [sym_include_statement] = STATE(6662),
-    [sym_do_loop_statement] = STATE(6662),
-    [sym_do_label_statement] = STATE(6662),
-    [sym_end_do_label_statement] = STATE(6662),
-    [sym_if_statement] = STATE(6662),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6662),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6662),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6662),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_end_forall_statement] = STATE(7608),
-    [sym_select_case_statement] = STATE(6662),
-    [sym_select_type_statement] = STATE(6662),
-    [sym_select_rank_statement] = STATE(6662),
-    [sym_block_construct] = STATE(6662),
-    [sym_associate_statement] = STATE(6662),
-    [sym_format_statement] = STATE(6662),
-    [sym_read_statement] = STATE(6662),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6662),
-    [sym_open_statement] = STATE(6662),
-    [sym_close_statement] = STATE(6662),
-    [sym_write_statement] = STATE(6662),
-    [sym_inquire_statement] = STATE(6662),
-    [sym_file_position_statement] = STATE(6662),
-    [sym_allocate_statement] = STATE(6662),
-    [sym_entry_statement] = STATE(6662),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6662),
-    [sym_coarray_team_statement] = STATE(6662),
-    [sym_coarray_critical_statement] = STATE(6662),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+  [774] = {
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_end_do_loop_statement] = STATE(7369),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4259),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -199792,13 +199970,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(3323),
     [aux_sym_select_case_statement_token1] = ACTIONS(131),
     [aux_sym_select_case_statement_token3] = ACTIONS(133),
     [aux_sym_select_type_statement_token1] = ACTIONS(135),
@@ -199834,79 +200011,78 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [773] = {
-    [sym__statements] = STATE(6941),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6941),
-    [sym_assignment_statement] = STATE(6941),
-    [sym_pointer_association_statement] = STATE(6941),
-    [sym_subroutine_call] = STATE(6941),
-    [sym_keyword_statement] = STATE(6941),
-    [sym_include_statement] = STATE(6941),
-    [sym_do_loop_statement] = STATE(6941),
-    [sym_do_label_statement] = STATE(6941),
-    [sym_end_do_label_statement] = STATE(6941),
-    [sym_if_statement] = STATE(6941),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6941),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7605),
-    [sym_where_statement] = STATE(6941),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6941),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6941),
-    [sym_select_type_statement] = STATE(6941),
-    [sym_select_rank_statement] = STATE(6941),
-    [sym_block_construct] = STATE(6941),
-    [sym_associate_statement] = STATE(6941),
-    [sym_format_statement] = STATE(6941),
-    [sym_read_statement] = STATE(6941),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6941),
-    [sym_open_statement] = STATE(6941),
-    [sym_close_statement] = STATE(6941),
-    [sym_write_statement] = STATE(6941),
-    [sym_inquire_statement] = STATE(6941),
-    [sym_file_position_statement] = STATE(6941),
-    [sym_allocate_statement] = STATE(6941),
-    [sym_entry_statement] = STATE(6941),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6941),
-    [sym_coarray_team_statement] = STATE(6941),
-    [sym_coarray_critical_statement] = STATE(6941),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+  [775] = {
+    [sym__statements] = STATE(6836),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6836),
+    [sym_assignment_statement] = STATE(6836),
+    [sym_pointer_association_statement] = STATE(6836),
+    [sym_subroutine_call] = STATE(6836),
+    [sym_keyword_statement] = STATE(6836),
+    [sym_include_statement] = STATE(6836),
+    [sym_do_loop_statement] = STATE(6836),
+    [sym_do_label_statement] = STATE(6836),
+    [sym_end_do_label_statement] = STATE(6836),
+    [sym_if_statement] = STATE(6836),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6836),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6836),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6836),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6836),
+    [sym_select_type_statement] = STATE(6836),
+    [sym_select_rank_statement] = STATE(6836),
+    [sym_block_construct] = STATE(6836),
+    [sym_associate_statement] = STATE(6836),
+    [sym_format_statement] = STATE(6790),
+    [sym_read_statement] = STATE(6836),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6836),
+    [sym_open_statement] = STATE(6836),
+    [sym_close_statement] = STATE(6836),
+    [sym_write_statement] = STATE(6836),
+    [sym_inquire_statement] = STATE(6836),
+    [sym_file_position_statement] = STATE(6836),
+    [sym_allocate_statement] = STATE(6836),
+    [sym_entry_statement] = STATE(6836),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6836),
+    [sym_coarray_team_statement] = STATE(6836),
+    [sym_coarray_critical_statement] = STATE(6836),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -199916,6 +200092,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -199952,325 +200129,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [774] = {
-    [sym__statements] = STATE(7549),
-    [sym_statement_label] = STATE(6610),
-    [sym_statement_label_reference] = STATE(7978),
-    [sym_stop_statement] = STATE(7549),
-    [sym_assignment_statement] = STATE(7549),
-    [sym_pointer_association_statement] = STATE(7549),
-    [sym_subroutine_call] = STATE(7549),
-    [sym_keyword_statement] = STATE(7549),
-    [sym_include_statement] = STATE(7549),
-    [sym_do_loop_statement] = STATE(7549),
-    [sym_do_label_statement] = STATE(7549),
-    [sym_end_do_label_statement] = STATE(7549),
-    [sym_if_statement] = STATE(7549),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7549),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7549),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7549),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7549),
-    [sym_select_type_statement] = STATE(7549),
-    [sym_select_rank_statement] = STATE(7549),
-    [sym_block_construct] = STATE(7549),
-    [sym_associate_statement] = STATE(7549),
-    [sym_format_statement] = STATE(7549),
-    [sym_read_statement] = STATE(7549),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7549),
-    [sym_open_statement] = STATE(7549),
-    [sym_close_statement] = STATE(7549),
-    [sym_write_statement] = STATE(7549),
-    [sym_inquire_statement] = STATE(7549),
-    [sym_file_position_statement] = STATE(7549),
-    [sym_allocate_statement] = STATE(7549),
-    [sym_entry_statement] = STATE(7549),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7549),
-    [sym_coarray_team_statement] = STATE(7549),
-    [sym_coarray_critical_statement] = STATE(7549),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym__block_if_statement_token1] = ACTIONS(4267),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(127),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(129),
-    [aux_sym_select_case_statement_token1] = ACTIONS(131),
-    [aux_sym_select_case_statement_token3] = ACTIONS(133),
-    [aux_sym_select_type_statement_token1] = ACTIONS(135),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(137),
-    [aux_sym_block_construct_token1] = ACTIONS(139),
-    [aux_sym_associate_statement_token1] = ACTIONS(141),
-    [aux_sym_format_statement_token1] = ACTIONS(143),
-    [aux_sym_print_statement_token1] = ACTIONS(145),
-    [aux_sym_open_statement_token1] = ACTIONS(147),
-    [aux_sym_close_statement_token1] = ACTIONS(149),
-    [aux_sym_inquire_statement_token1] = ACTIONS(151),
-    [aux_sym_file_position_statement_token1] = ACTIONS(157),
-    [aux_sym_file_position_statement_token2] = ACTIONS(157),
-    [aux_sym_file_position_statement_token3] = ACTIONS(157),
-    [aux_sym_file_position_statement_token4] = ACTIONS(159),
-    [aux_sym_allocate_statement_token1] = ACTIONS(161),
-    [aux_sym_entry_statement_token1] = ACTIONS(163),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(177),
-    [aux_sym_coarray_statement_token2] = ACTIONS(177),
-    [aux_sym_coarray_statement_token6] = ACTIONS(179),
-    [aux_sym_coarray_statement_token8] = ACTIONS(181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(183),
-    [aux_sym_coarray_statement_token12] = ACTIONS(183),
-    [aux_sym_coarray_statement_token13] = ACTIONS(185),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(187),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [775] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_end_do_loop_statement] = STATE(7694),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(105),
-    [aux_sym_stop_statement_token2] = ACTIONS(107),
-    [aux_sym_subroutine_call_token1] = ACTIONS(109),
-    [aux_sym_keyword_statement_token1] = ACTIONS(111),
-    [aux_sym_keyword_statement_token2] = ACTIONS(113),
-    [aux_sym_keyword_statement_token3] = ACTIONS(113),
-    [aux_sym_keyword_statement_token4] = ACTIONS(115),
-    [aux_sym_keyword_statement_token6] = ACTIONS(117),
-    [aux_sym_keyword_statement_token7] = ACTIONS(111),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -200311,79 +200170,78 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [776] = {
-    [sym__statements] = STATE(6941),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6941),
-    [sym_assignment_statement] = STATE(6941),
-    [sym_pointer_association_statement] = STATE(6941),
-    [sym_subroutine_call] = STATE(6941),
-    [sym_keyword_statement] = STATE(6941),
-    [sym_include_statement] = STATE(6941),
-    [sym_do_loop_statement] = STATE(6941),
-    [sym_do_label_statement] = STATE(6941),
-    [sym_end_do_label_statement] = STATE(6941),
-    [sym_if_statement] = STATE(6941),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6941),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7701),
-    [sym_where_statement] = STATE(6941),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6941),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6941),
-    [sym_select_type_statement] = STATE(6941),
-    [sym_select_rank_statement] = STATE(6941),
-    [sym_block_construct] = STATE(6941),
-    [sym_associate_statement] = STATE(6941),
-    [sym_format_statement] = STATE(6941),
-    [sym_read_statement] = STATE(6941),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6941),
-    [sym_open_statement] = STATE(6941),
-    [sym_close_statement] = STATE(6941),
-    [sym_write_statement] = STATE(6941),
-    [sym_inquire_statement] = STATE(6941),
-    [sym_file_position_statement] = STATE(6941),
-    [sym_allocate_statement] = STATE(6941),
-    [sym_entry_statement] = STATE(6941),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6941),
-    [sym_coarray_team_statement] = STATE(6941),
-    [sym_coarray_critical_statement] = STATE(6941),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6982),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6982),
+    [sym_assignment_statement] = STATE(6982),
+    [sym_pointer_association_statement] = STATE(6982),
+    [sym_subroutine_call] = STATE(6982),
+    [sym_keyword_statement] = STATE(6982),
+    [sym_include_statement] = STATE(6982),
+    [sym_do_loop_statement] = STATE(6982),
+    [sym_do_label_statement] = STATE(6982),
+    [sym_end_do_label_statement] = STATE(6982),
+    [sym_if_statement] = STATE(6982),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6982),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6982),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6982),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6982),
+    [sym_select_type_statement] = STATE(6982),
+    [sym_select_rank_statement] = STATE(6982),
+    [sym_block_construct] = STATE(6982),
+    [sym_associate_statement] = STATE(6982),
+    [sym_format_statement] = STATE(6980),
+    [sym_read_statement] = STATE(6982),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6982),
+    [sym_open_statement] = STATE(6982),
+    [sym_close_statement] = STATE(6982),
+    [sym_write_statement] = STATE(6982),
+    [sym_inquire_statement] = STATE(6982),
+    [sym_file_position_statement] = STATE(6982),
+    [sym_allocate_statement] = STATE(6982),
+    [sym_entry_statement] = STATE(6982),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6982),
+    [sym_coarray_team_statement] = STATE(6982),
+    [sym_coarray_critical_statement] = STATE(6982),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -200393,6 +200251,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -200429,9 +200288,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -200470,84 +200329,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [777] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_end_do_loop_statement] = STATE(7474),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7132),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7132),
+    [sym_assignment_statement] = STATE(7132),
+    [sym_pointer_association_statement] = STATE(7132),
+    [sym_subroutine_call] = STATE(7132),
+    [sym_keyword_statement] = STATE(7132),
+    [sym_include_statement] = STATE(7132),
+    [sym_do_loop_statement] = STATE(7132),
+    [sym_do_label_statement] = STATE(7132),
+    [sym_end_do_label_statement] = STATE(7132),
+    [sym_if_statement] = STATE(7132),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7132),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7460),
+    [sym_where_statement] = STATE(7132),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7132),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7132),
+    [sym_select_type_statement] = STATE(7132),
+    [sym_select_rank_statement] = STATE(7132),
+    [sym_block_construct] = STATE(7132),
+    [sym_associate_statement] = STATE(7132),
+    [sym_format_statement] = STATE(7132),
+    [sym_read_statement] = STATE(7132),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7132),
+    [sym_open_statement] = STATE(7132),
+    [sym_close_statement] = STATE(7132),
+    [sym_write_statement] = STATE(7132),
+    [sym_inquire_statement] = STATE(7132),
+    [sym_file_position_statement] = STATE(7132),
+    [sym_allocate_statement] = STATE(7132),
+    [sym_entry_statement] = STATE(7132),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7132),
+    [sym_coarray_team_statement] = STATE(7132),
+    [sym_coarray_critical_statement] = STATE(7132),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -200588,9 +200447,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -200629,84 +200488,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [778] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_end_do_loop_statement] = STATE(7391),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7132),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7132),
+    [sym_assignment_statement] = STATE(7132),
+    [sym_pointer_association_statement] = STATE(7132),
+    [sym_subroutine_call] = STATE(7132),
+    [sym_keyword_statement] = STATE(7132),
+    [sym_include_statement] = STATE(7132),
+    [sym_do_loop_statement] = STATE(7132),
+    [sym_do_label_statement] = STATE(7132),
+    [sym_end_do_label_statement] = STATE(7132),
+    [sym_if_statement] = STATE(7132),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7132),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7399),
+    [sym_where_statement] = STATE(7132),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7132),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7132),
+    [sym_select_type_statement] = STATE(7132),
+    [sym_select_rank_statement] = STATE(7132),
+    [sym_block_construct] = STATE(7132),
+    [sym_associate_statement] = STATE(7132),
+    [sym_format_statement] = STATE(7132),
+    [sym_read_statement] = STATE(7132),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7132),
+    [sym_open_statement] = STATE(7132),
+    [sym_close_statement] = STATE(7132),
+    [sym_write_statement] = STATE(7132),
+    [sym_inquire_statement] = STATE(7132),
+    [sym_file_position_statement] = STATE(7132),
+    [sym_allocate_statement] = STATE(7132),
+    [sym_entry_statement] = STATE(7132),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7132),
+    [sym_coarray_team_statement] = STATE(7132),
+    [sym_coarray_critical_statement] = STATE(7132),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -200747,9 +200606,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -200788,88 +200647,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [779] = {
-    [sym__statements] = STATE(6465),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6465),
-    [sym_assignment_statement] = STATE(6465),
-    [sym_pointer_association_statement] = STATE(6465),
-    [sym_subroutine_call] = STATE(6465),
-    [sym_keyword_statement] = STATE(6465),
-    [sym_include_statement] = STATE(6465),
-    [sym_do_loop_statement] = STATE(6465),
-    [sym_do_label_statement] = STATE(6465),
-    [sym_end_do_label_statement] = STATE(6465),
-    [sym_if_statement] = STATE(6465),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6465),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6465),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6465),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6465),
-    [sym_select_type_statement] = STATE(6465),
-    [sym_select_rank_statement] = STATE(6465),
-    [sym_block_construct] = STATE(6465),
-    [sym_associate_statement] = STATE(6465),
-    [sym_format_statement] = STATE(6513),
-    [sym_read_statement] = STATE(6465),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6465),
-    [sym_open_statement] = STATE(6465),
-    [sym_close_statement] = STATE(6465),
-    [sym_write_statement] = STATE(6465),
-    [sym_inquire_statement] = STATE(6465),
-    [sym_file_position_statement] = STATE(6465),
-    [sym_allocate_statement] = STATE(6465),
-    [sym_entry_statement] = STATE(6465),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6465),
-    [sym_coarray_team_statement] = STATE(6465),
-    [sym_coarray_critical_statement] = STATE(6465),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7523),
+    [sym_statement_label] = STATE(7101),
+    [sym_statement_label_reference] = STATE(8181),
+    [sym_stop_statement] = STATE(7523),
+    [sym_assignment_statement] = STATE(7523),
+    [sym_pointer_association_statement] = STATE(7523),
+    [sym_subroutine_call] = STATE(7523),
+    [sym_keyword_statement] = STATE(7523),
+    [sym_include_statement] = STATE(7523),
+    [sym_do_loop_statement] = STATE(7523),
+    [sym_do_label_statement] = STATE(7523),
+    [sym_end_do_label_statement] = STATE(7523),
+    [sym_if_statement] = STATE(7523),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7523),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7523),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7523),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7523),
+    [sym_select_type_statement] = STATE(7523),
+    [sym_select_rank_statement] = STATE(7523),
+    [sym_block_construct] = STATE(7523),
+    [sym_associate_statement] = STATE(7523),
+    [sym_format_statement] = STATE(7523),
+    [sym_read_statement] = STATE(7523),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7523),
+    [sym_open_statement] = STATE(7523),
+    [sym_close_statement] = STATE(7523),
+    [sym_write_statement] = STATE(7523),
+    [sym_inquire_statement] = STATE(7523),
+    [sym_file_position_statement] = STATE(7523),
+    [sym_allocate_statement] = STATE(7523),
+    [sym_entry_statement] = STATE(7523),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7523),
+    [sym_coarray_team_statement] = STATE(7523),
+    [sym_coarray_critical_statement] = STATE(7523),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -200906,8 +200765,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
+    [aux_sym__block_if_statement_token1] = ACTIONS(4275),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
@@ -200947,79 +200806,78 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [780] = {
-    [sym__statements] = STATE(6941),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6941),
-    [sym_assignment_statement] = STATE(6941),
-    [sym_pointer_association_statement] = STATE(6941),
-    [sym_subroutine_call] = STATE(6941),
-    [sym_keyword_statement] = STATE(6941),
-    [sym_include_statement] = STATE(6941),
-    [sym_do_loop_statement] = STATE(6941),
-    [sym_do_label_statement] = STATE(6941),
-    [sym_end_do_label_statement] = STATE(6941),
-    [sym_if_statement] = STATE(6941),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6941),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7590),
-    [sym_where_statement] = STATE(6941),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6941),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6941),
-    [sym_select_type_statement] = STATE(6941),
-    [sym_select_rank_statement] = STATE(6941),
-    [sym_block_construct] = STATE(6941),
-    [sym_associate_statement] = STATE(6941),
-    [sym_format_statement] = STATE(6941),
-    [sym_read_statement] = STATE(6941),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6941),
-    [sym_open_statement] = STATE(6941),
-    [sym_close_statement] = STATE(6941),
-    [sym_write_statement] = STATE(6941),
-    [sym_inquire_statement] = STATE(6941),
-    [sym_file_position_statement] = STATE(6941),
-    [sym_allocate_statement] = STATE(6941),
-    [sym_entry_statement] = STATE(6941),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6941),
-    [sym_coarray_team_statement] = STATE(6941),
-    [sym_coarray_critical_statement] = STATE(6941),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7193),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7193),
+    [sym_assignment_statement] = STATE(7193),
+    [sym_pointer_association_statement] = STATE(7193),
+    [sym_subroutine_call] = STATE(7193),
+    [sym_keyword_statement] = STATE(7193),
+    [sym_include_statement] = STATE(7193),
+    [sym_do_loop_statement] = STATE(7193),
+    [sym_do_label_statement] = STATE(7193),
+    [sym_end_do_label_statement] = STATE(7193),
+    [sym_if_statement] = STATE(7193),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7193),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7193),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7193),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7193),
+    [sym_select_type_statement] = STATE(7193),
+    [sym_select_rank_statement] = STATE(7193),
+    [sym_block_construct] = STATE(7193),
+    [sym_associate_statement] = STATE(7193),
+    [sym_format_statement] = STATE(6619),
+    [sym_read_statement] = STATE(7193),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7193),
+    [sym_open_statement] = STATE(7193),
+    [sym_close_statement] = STATE(7193),
+    [sym_write_statement] = STATE(7193),
+    [sym_inquire_statement] = STATE(7193),
+    [sym_file_position_statement] = STATE(7193),
+    [sym_allocate_statement] = STATE(7193),
+    [sym_entry_statement] = STATE(7193),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7193),
+    [sym_coarray_team_statement] = STATE(7193),
+    [sym_coarray_critical_statement] = STATE(7193),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -201029,6 +200887,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -201065,9 +200924,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -201106,79 +200965,79 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [781] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_end_do_loop_statement] = STATE(7425),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_end_do_loop_statement] = STATE(7344),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -201265,84 +201124,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [782] = {
-    [sym__statements] = STATE(6941),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6941),
-    [sym_assignment_statement] = STATE(6941),
-    [sym_pointer_association_statement] = STATE(6941),
-    [sym_subroutine_call] = STATE(6941),
-    [sym_keyword_statement] = STATE(6941),
-    [sym_include_statement] = STATE(6941),
-    [sym_do_loop_statement] = STATE(6941),
-    [sym_do_label_statement] = STATE(6941),
-    [sym_end_do_label_statement] = STATE(6941),
-    [sym_if_statement] = STATE(6941),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6941),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_end_if_statement] = STATE(7632),
-    [sym_where_statement] = STATE(6941),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6941),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6941),
-    [sym_select_type_statement] = STATE(6941),
-    [sym_select_rank_statement] = STATE(6941),
-    [sym_block_construct] = STATE(6941),
-    [sym_associate_statement] = STATE(6941),
-    [sym_format_statement] = STATE(6941),
-    [sym_read_statement] = STATE(6941),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6941),
-    [sym_open_statement] = STATE(6941),
-    [sym_close_statement] = STATE(6941),
-    [sym_write_statement] = STATE(6941),
-    [sym_inquire_statement] = STATE(6941),
-    [sym_file_position_statement] = STATE(6941),
-    [sym_allocate_statement] = STATE(6941),
-    [sym_entry_statement] = STATE(6941),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6941),
-    [sym_coarray_team_statement] = STATE(6941),
-    [sym_coarray_critical_statement] = STATE(6941),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_end_do_loop_statement] = STATE(7566),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -201383,9 +201242,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2729),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -201424,88 +201283,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [783] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_end_do_loop_statement] = STATE(7678),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6618),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6618),
+    [sym_assignment_statement] = STATE(6618),
+    [sym_pointer_association_statement] = STATE(6618),
+    [sym_subroutine_call] = STATE(6618),
+    [sym_keyword_statement] = STATE(6618),
+    [sym_include_statement] = STATE(6618),
+    [sym_do_loop_statement] = STATE(6618),
+    [sym_do_label_statement] = STATE(6618),
+    [sym_end_do_label_statement] = STATE(6618),
+    [sym_if_statement] = STATE(6618),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6618),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6618),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6618),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6618),
+    [sym_select_type_statement] = STATE(6618),
+    [sym_select_rank_statement] = STATE(6618),
+    [sym_block_construct] = STATE(6618),
+    [sym_associate_statement] = STATE(6618),
+    [sym_format_statement] = STATE(6562),
+    [sym_read_statement] = STATE(6618),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6618),
+    [sym_open_statement] = STATE(6618),
+    [sym_close_statement] = STATE(6618),
+    [sym_write_statement] = STATE(6618),
+    [sym_inquire_statement] = STATE(6618),
+    [sym_file_position_statement] = STATE(6618),
+    [sym_allocate_statement] = STATE(6618),
+    [sym_entry_statement] = STATE(6618),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6618),
+    [sym_coarray_team_statement] = STATE(6618),
+    [sym_coarray_critical_statement] = STATE(6618),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -201542,7 +201401,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -201583,78 +201442,79 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [784] = {
-    [sym__statements] = STATE(6609),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6609),
-    [sym_assignment_statement] = STATE(6609),
-    [sym_pointer_association_statement] = STATE(6609),
-    [sym_subroutine_call] = STATE(6609),
-    [sym_keyword_statement] = STATE(6609),
-    [sym_include_statement] = STATE(6609),
-    [sym_do_loop_statement] = STATE(6609),
-    [sym_do_label_statement] = STATE(6609),
-    [sym_end_do_label_statement] = STATE(6609),
-    [sym_if_statement] = STATE(6609),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6609),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6609),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6609),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6609),
-    [sym_select_type_statement] = STATE(6609),
-    [sym_select_rank_statement] = STATE(6609),
-    [sym_block_construct] = STATE(6609),
-    [sym_associate_statement] = STATE(6609),
-    [sym_format_statement] = STATE(6521),
-    [sym_read_statement] = STATE(6609),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6609),
-    [sym_open_statement] = STATE(6609),
-    [sym_close_statement] = STATE(6609),
-    [sym_write_statement] = STATE(6609),
-    [sym_inquire_statement] = STATE(6609),
-    [sym_file_position_statement] = STATE(6609),
-    [sym_allocate_statement] = STATE(6609),
-    [sym_entry_statement] = STATE(6609),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6609),
-    [sym_coarray_team_statement] = STATE(6609),
-    [sym_coarray_critical_statement] = STATE(6609),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7132),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7132),
+    [sym_assignment_statement] = STATE(7132),
+    [sym_pointer_association_statement] = STATE(7132),
+    [sym_subroutine_call] = STATE(7132),
+    [sym_keyword_statement] = STATE(7132),
+    [sym_include_statement] = STATE(7132),
+    [sym_do_loop_statement] = STATE(7132),
+    [sym_do_label_statement] = STATE(7132),
+    [sym_end_do_label_statement] = STATE(7132),
+    [sym_if_statement] = STATE(7132),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7132),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7551),
+    [sym_where_statement] = STATE(7132),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7132),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7132),
+    [sym_select_type_statement] = STATE(7132),
+    [sym_select_rank_statement] = STATE(7132),
+    [sym_block_construct] = STATE(7132),
+    [sym_associate_statement] = STATE(7132),
+    [sym_format_statement] = STATE(7132),
+    [sym_read_statement] = STATE(7132),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7132),
+    [sym_open_statement] = STATE(7132),
+    [sym_close_statement] = STATE(7132),
+    [sym_write_statement] = STATE(7132),
+    [sym_inquire_statement] = STATE(7132),
+    [sym_file_position_statement] = STATE(7132),
+    [sym_allocate_statement] = STATE(7132),
+    [sym_entry_statement] = STATE(7132),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7132),
+    [sym_coarray_team_statement] = STATE(7132),
+    [sym_coarray_critical_statement] = STATE(7132),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -201664,7 +201524,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -201701,9 +201560,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -201742,88 +201601,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [785] = {
-    [sym__statements] = STATE(6855),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6855),
-    [sym_assignment_statement] = STATE(6855),
-    [sym_pointer_association_statement] = STATE(6855),
-    [sym_subroutine_call] = STATE(6855),
-    [sym_keyword_statement] = STATE(6855),
-    [sym_include_statement] = STATE(6855),
-    [sym_do_loop_statement] = STATE(6855),
-    [sym_do_label_statement] = STATE(6855),
-    [sym_end_do_label_statement] = STATE(6855),
-    [sym_if_statement] = STATE(6855),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6855),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6855),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6855),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6855),
-    [sym_select_type_statement] = STATE(6855),
-    [sym_select_rank_statement] = STATE(6855),
-    [sym_block_construct] = STATE(6855),
-    [sym_associate_statement] = STATE(6855),
-    [sym_format_statement] = STATE(6856),
-    [sym_read_statement] = STATE(6855),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6855),
-    [sym_open_statement] = STATE(6855),
-    [sym_close_statement] = STATE(6855),
-    [sym_write_statement] = STATE(6855),
-    [sym_inquire_statement] = STATE(6855),
-    [sym_file_position_statement] = STATE(6855),
-    [sym_allocate_statement] = STATE(6855),
-    [sym_entry_statement] = STATE(6855),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6855),
-    [sym_coarray_team_statement] = STATE(6855),
-    [sym_coarray_critical_statement] = STATE(6855),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7241),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7241),
+    [sym_assignment_statement] = STATE(7241),
+    [sym_pointer_association_statement] = STATE(7241),
+    [sym_subroutine_call] = STATE(7241),
+    [sym_keyword_statement] = STATE(7241),
+    [sym_include_statement] = STATE(7241),
+    [sym_do_loop_statement] = STATE(7241),
+    [sym_do_label_statement] = STATE(7241),
+    [sym_end_do_label_statement] = STATE(7241),
+    [sym_if_statement] = STATE(7241),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7241),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7241),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7241),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7241),
+    [sym_select_type_statement] = STATE(7241),
+    [sym_select_rank_statement] = STATE(7241),
+    [sym_block_construct] = STATE(7241),
+    [sym_associate_statement] = STATE(7241),
+    [sym_format_statement] = STATE(7174),
+    [sym_read_statement] = STATE(7241),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7241),
+    [sym_open_statement] = STATE(7241),
+    [sym_close_statement] = STATE(7241),
+    [sym_write_statement] = STATE(7241),
+    [sym_inquire_statement] = STATE(7241),
+    [sym_file_position_statement] = STATE(7241),
+    [sym_allocate_statement] = STATE(7241),
+    [sym_entry_statement] = STATE(7241),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7241),
+    [sym_coarray_team_statement] = STATE(7241),
+    [sym_coarray_critical_statement] = STATE(7241),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -201860,7 +201719,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -201901,88 +201760,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [786] = {
-    [sym__statements] = STATE(7012),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7012),
-    [sym_assignment_statement] = STATE(7012),
-    [sym_pointer_association_statement] = STATE(7012),
-    [sym_subroutine_call] = STATE(7012),
-    [sym_keyword_statement] = STATE(7012),
-    [sym_include_statement] = STATE(7012),
-    [sym_do_loop_statement] = STATE(7012),
-    [sym_do_label_statement] = STATE(7012),
-    [sym_end_do_label_statement] = STATE(7012),
-    [sym_if_statement] = STATE(7012),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7012),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7012),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7012),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7012),
-    [sym_select_type_statement] = STATE(7012),
-    [sym_select_rank_statement] = STATE(7012),
-    [sym_block_construct] = STATE(7012),
-    [sym_associate_statement] = STATE(7012),
-    [sym_format_statement] = STATE(6595),
-    [sym_read_statement] = STATE(7012),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7012),
-    [sym_open_statement] = STATE(7012),
-    [sym_close_statement] = STATE(7012),
-    [sym_write_statement] = STATE(7012),
-    [sym_inquire_statement] = STATE(7012),
-    [sym_file_position_statement] = STATE(7012),
-    [sym_allocate_statement] = STATE(7012),
-    [sym_entry_statement] = STATE(7012),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7012),
-    [sym_coarray_team_statement] = STATE(7012),
-    [sym_coarray_critical_statement] = STATE(7012),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_end_do_loop_statement] = STATE(7462),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202019,7 +201878,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -202060,88 +201919,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [787] = {
-    [sym__statements] = STATE(6520),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6520),
-    [sym_assignment_statement] = STATE(6520),
-    [sym_pointer_association_statement] = STATE(6520),
-    [sym_subroutine_call] = STATE(6520),
-    [sym_keyword_statement] = STATE(6520),
-    [sym_include_statement] = STATE(6520),
-    [sym_do_loop_statement] = STATE(6520),
-    [sym_do_label_statement] = STATE(6520),
-    [sym_end_do_label_statement] = STATE(6520),
-    [sym_if_statement] = STATE(6520),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6520),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6520),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6520),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6520),
-    [sym_select_type_statement] = STATE(6520),
-    [sym_select_rank_statement] = STATE(6520),
-    [sym_block_construct] = STATE(6520),
-    [sym_associate_statement] = STATE(6520),
-    [sym_format_statement] = STATE(7254),
-    [sym_read_statement] = STATE(6520),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6520),
-    [sym_open_statement] = STATE(6520),
-    [sym_close_statement] = STATE(6520),
-    [sym_write_statement] = STATE(6520),
-    [sym_inquire_statement] = STATE(6520),
-    [sym_file_position_statement] = STATE(6520),
-    [sym_allocate_statement] = STATE(6520),
-    [sym_entry_statement] = STATE(6520),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6520),
-    [sym_coarray_team_statement] = STATE(6520),
-    [sym_coarray_critical_statement] = STATE(6520),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6550),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6550),
+    [sym_assignment_statement] = STATE(6550),
+    [sym_pointer_association_statement] = STATE(6550),
+    [sym_subroutine_call] = STATE(6550),
+    [sym_keyword_statement] = STATE(6550),
+    [sym_include_statement] = STATE(6550),
+    [sym_do_loop_statement] = STATE(6550),
+    [sym_do_label_statement] = STATE(6550),
+    [sym_end_do_label_statement] = STATE(6550),
+    [sym_if_statement] = STATE(6550),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6550),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6550),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6550),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6550),
+    [sym_select_type_statement] = STATE(6550),
+    [sym_select_rank_statement] = STATE(6550),
+    [sym_block_construct] = STATE(6550),
+    [sym_associate_statement] = STATE(6550),
+    [sym_format_statement] = STATE(6530),
+    [sym_read_statement] = STATE(6550),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6550),
+    [sym_open_statement] = STATE(6550),
+    [sym_close_statement] = STATE(6550),
+    [sym_write_statement] = STATE(6550),
+    [sym_inquire_statement] = STATE(6550),
+    [sym_file_position_statement] = STATE(6550),
+    [sym_allocate_statement] = STATE(6550),
+    [sym_entry_statement] = STATE(6550),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6550),
+    [sym_coarray_team_statement] = STATE(6550),
+    [sym_coarray_critical_statement] = STATE(6550),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202178,7 +202037,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -202219,88 +202078,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [788] = {
-    [sym__statements] = STATE(7297),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7297),
-    [sym_assignment_statement] = STATE(7297),
-    [sym_pointer_association_statement] = STATE(7297),
-    [sym_subroutine_call] = STATE(7297),
-    [sym_keyword_statement] = STATE(7297),
-    [sym_include_statement] = STATE(7297),
-    [sym_do_loop_statement] = STATE(7297),
-    [sym_do_label_statement] = STATE(7297),
-    [sym_end_do_label_statement] = STATE(7297),
-    [sym_if_statement] = STATE(7297),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7297),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7297),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7297),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7297),
-    [sym_select_type_statement] = STATE(7297),
-    [sym_select_rank_statement] = STATE(7297),
-    [sym_block_construct] = STATE(7297),
-    [sym_associate_statement] = STATE(7297),
-    [sym_format_statement] = STATE(6843),
-    [sym_read_statement] = STATE(7297),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7297),
-    [sym_open_statement] = STATE(7297),
-    [sym_close_statement] = STATE(7297),
-    [sym_write_statement] = STATE(7297),
-    [sym_inquire_statement] = STATE(7297),
-    [sym_file_position_statement] = STATE(7297),
-    [sym_allocate_statement] = STATE(7297),
-    [sym_entry_statement] = STATE(7297),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7297),
-    [sym_coarray_team_statement] = STATE(7297),
-    [sym_coarray_critical_statement] = STATE(7297),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6458),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6458),
+    [sym_assignment_statement] = STATE(6458),
+    [sym_pointer_association_statement] = STATE(6458),
+    [sym_subroutine_call] = STATE(6458),
+    [sym_keyword_statement] = STATE(6458),
+    [sym_include_statement] = STATE(6458),
+    [sym_do_loop_statement] = STATE(6458),
+    [sym_do_label_statement] = STATE(6458),
+    [sym_end_do_label_statement] = STATE(6458),
+    [sym_if_statement] = STATE(6458),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6458),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6458),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6458),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6458),
+    [sym_select_type_statement] = STATE(6458),
+    [sym_select_rank_statement] = STATE(6458),
+    [sym_block_construct] = STATE(6458),
+    [sym_associate_statement] = STATE(6458),
+    [sym_format_statement] = STATE(7294),
+    [sym_read_statement] = STATE(6458),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6458),
+    [sym_open_statement] = STATE(6458),
+    [sym_close_statement] = STATE(6458),
+    [sym_write_statement] = STATE(6458),
+    [sym_inquire_statement] = STATE(6458),
+    [sym_file_position_statement] = STATE(6458),
+    [sym_allocate_statement] = STATE(6458),
+    [sym_entry_statement] = STATE(6458),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6458),
+    [sym_coarray_team_statement] = STATE(6458),
+    [sym_coarray_critical_statement] = STATE(6458),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202337,7 +202196,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -202378,88 +202237,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [789] = {
-    [sym__statements] = STATE(6723),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6723),
-    [sym_assignment_statement] = STATE(6723),
-    [sym_pointer_association_statement] = STATE(6723),
-    [sym_subroutine_call] = STATE(6723),
-    [sym_keyword_statement] = STATE(6723),
-    [sym_include_statement] = STATE(6723),
-    [sym_do_loop_statement] = STATE(6723),
-    [sym_do_label_statement] = STATE(6723),
-    [sym_end_do_label_statement] = STATE(6723),
-    [sym_if_statement] = STATE(6723),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6723),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6723),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6723),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6723),
-    [sym_select_type_statement] = STATE(6723),
-    [sym_select_rank_statement] = STATE(6723),
-    [sym_block_construct] = STATE(6723),
-    [sym_associate_statement] = STATE(6723),
-    [sym_format_statement] = STATE(6663),
-    [sym_read_statement] = STATE(6723),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6723),
-    [sym_open_statement] = STATE(6723),
-    [sym_close_statement] = STATE(6723),
-    [sym_write_statement] = STATE(6723),
-    [sym_inquire_statement] = STATE(6723),
-    [sym_file_position_statement] = STATE(6723),
-    [sym_allocate_statement] = STATE(6723),
-    [sym_entry_statement] = STATE(6723),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6723),
-    [sym_coarray_team_statement] = STATE(6723),
-    [sym_coarray_critical_statement] = STATE(6723),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_end_do_loop_statement] = STATE(7630),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4269),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202496,7 +202355,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4271),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -202537,88 +202396,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [790] = {
-    [sym__statements] = STATE(6783),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6783),
-    [sym_assignment_statement] = STATE(6783),
-    [sym_pointer_association_statement] = STATE(6783),
-    [sym_subroutine_call] = STATE(6783),
-    [sym_keyword_statement] = STATE(6783),
-    [sym_include_statement] = STATE(6783),
-    [sym_do_loop_statement] = STATE(6783),
-    [sym_do_label_statement] = STATE(6783),
-    [sym_end_do_label_statement] = STATE(6783),
-    [sym_if_statement] = STATE(6783),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6783),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6783),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6783),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6783),
-    [sym_select_type_statement] = STATE(6783),
-    [sym_select_rank_statement] = STATE(6783),
-    [sym_block_construct] = STATE(6783),
-    [sym_associate_statement] = STATE(6783),
-    [sym_format_statement] = STATE(6724),
-    [sym_read_statement] = STATE(6783),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6783),
-    [sym_open_statement] = STATE(6783),
-    [sym_close_statement] = STATE(6783),
-    [sym_write_statement] = STATE(6783),
-    [sym_inquire_statement] = STATE(6783),
-    [sym_file_position_statement] = STATE(6783),
-    [sym_allocate_statement] = STATE(6783),
-    [sym_entry_statement] = STATE(6783),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6783),
-    [sym_coarray_team_statement] = STATE(6783),
-    [sym_coarray_critical_statement] = STATE(6783),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7052),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7052),
+    [sym_assignment_statement] = STATE(7052),
+    [sym_pointer_association_statement] = STATE(7052),
+    [sym_subroutine_call] = STATE(7052),
+    [sym_keyword_statement] = STATE(7052),
+    [sym_include_statement] = STATE(7052),
+    [sym_do_loop_statement] = STATE(7052),
+    [sym_do_label_statement] = STATE(7052),
+    [sym_end_do_label_statement] = STATE(7052),
+    [sym_if_statement] = STATE(7052),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7052),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7052),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7052),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7052),
+    [sym_select_type_statement] = STATE(7052),
+    [sym_select_rank_statement] = STATE(7052),
+    [sym_block_construct] = STATE(7052),
+    [sym_associate_statement] = STATE(7052),
+    [sym_format_statement] = STATE(6928),
+    [sym_read_statement] = STATE(7052),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7052),
+    [sym_open_statement] = STATE(7052),
+    [sym_close_statement] = STATE(7052),
+    [sym_write_statement] = STATE(7052),
+    [sym_inquire_statement] = STATE(7052),
+    [sym_file_position_statement] = STATE(7052),
+    [sym_allocate_statement] = STATE(7052),
+    [sym_entry_statement] = STATE(7052),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7052),
+    [sym_coarray_team_statement] = STATE(7052),
+    [sym_coarray_critical_statement] = STATE(7052),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4267),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202655,7 +202514,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -202696,78 +202555,79 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [791] = {
-    [sym__statements] = STATE(6894),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6894),
-    [sym_assignment_statement] = STATE(6894),
-    [sym_pointer_association_statement] = STATE(6894),
-    [sym_subroutine_call] = STATE(6894),
-    [sym_keyword_statement] = STATE(6894),
-    [sym_include_statement] = STATE(6894),
-    [sym_do_loop_statement] = STATE(6894),
-    [sym_do_label_statement] = STATE(6894),
-    [sym_end_do_label_statement] = STATE(6894),
-    [sym_if_statement] = STATE(6894),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6894),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6894),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6894),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6894),
-    [sym_select_type_statement] = STATE(6894),
-    [sym_select_rank_statement] = STATE(6894),
-    [sym_block_construct] = STATE(6894),
-    [sym_associate_statement] = STATE(6894),
-    [sym_format_statement] = STATE(6784),
-    [sym_read_statement] = STATE(6894),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6894),
-    [sym_open_statement] = STATE(6894),
-    [sym_close_statement] = STATE(6894),
-    [sym_write_statement] = STATE(6894),
-    [sym_inquire_statement] = STATE(6894),
-    [sym_file_position_statement] = STATE(6894),
-    [sym_allocate_statement] = STATE(6894),
-    [sym_entry_statement] = STATE(6894),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6894),
-    [sym_coarray_team_statement] = STATE(6894),
-    [sym_coarray_critical_statement] = STATE(6894),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7132),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7132),
+    [sym_assignment_statement] = STATE(7132),
+    [sym_pointer_association_statement] = STATE(7132),
+    [sym_subroutine_call] = STATE(7132),
+    [sym_keyword_statement] = STATE(7132),
+    [sym_include_statement] = STATE(7132),
+    [sym_do_loop_statement] = STATE(7132),
+    [sym_do_label_statement] = STATE(7132),
+    [sym_end_do_label_statement] = STATE(7132),
+    [sym_if_statement] = STATE(7132),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7132),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_end_if_statement] = STATE(7356),
+    [sym_where_statement] = STATE(7132),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7132),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7132),
+    [sym_select_type_statement] = STATE(7132),
+    [sym_select_rank_statement] = STATE(7132),
+    [sym_block_construct] = STATE(7132),
+    [sym_associate_statement] = STATE(7132),
+    [sym_format_statement] = STATE(7132),
+    [sym_read_statement] = STATE(7132),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7132),
+    [sym_open_statement] = STATE(7132),
+    [sym_close_statement] = STATE(7132),
+    [sym_write_statement] = STATE(7132),
+    [sym_inquire_statement] = STATE(7132),
+    [sym_file_position_statement] = STATE(7132),
+    [sym_allocate_statement] = STATE(7132),
+    [sym_entry_statement] = STATE(7132),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7132),
+    [sym_coarray_team_statement] = STATE(7132),
+    [sym_coarray_critical_statement] = STATE(7132),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
@@ -202777,7 +202637,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4275),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -202814,9 +202673,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2725),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
     [aux_sym__inline_where_statement_token1] = ACTIONS(127),
     [aux_sym__forall_control_expression_token1] = ACTIONS(129),
@@ -202855,83 +202714,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [792] = {
-    [sym__statements] = STATE(7069),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7069),
-    [sym_assignment_statement] = STATE(7069),
-    [sym_pointer_association_statement] = STATE(7069),
-    [sym_subroutine_call] = STATE(7069),
-    [sym_keyword_statement] = STATE(7069),
-    [sym_include_statement] = STATE(7069),
-    [sym_do_loop_statement] = STATE(7069),
-    [sym_do_label_statement] = STATE(7069),
-    [sym_end_do_label_statement] = STATE(7069),
-    [sym_if_statement] = STATE(7069),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7069),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7069),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7069),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7069),
-    [sym_select_type_statement] = STATE(7069),
-    [sym_select_rank_statement] = STATE(7069),
-    [sym_block_construct] = STATE(7069),
-    [sym_associate_statement] = STATE(7069),
-    [sym_format_statement] = STATE(7069),
-    [sym_read_statement] = STATE(7069),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7069),
-    [sym_open_statement] = STATE(7069),
-    [sym_close_statement] = STATE(7069),
-    [sym_write_statement] = STATE(7069),
-    [sym_inquire_statement] = STATE(7069),
-    [sym_file_position_statement] = STATE(7069),
-    [sym_allocate_statement] = STATE(7069),
-    [sym_entry_statement] = STATE(7069),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7069),
-    [sym_coarray_team_statement] = STATE(7069),
-    [sym_coarray_critical_statement] = STATE(7069),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6789),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6789),
+    [sym_assignment_statement] = STATE(6789),
+    [sym_pointer_association_statement] = STATE(6789),
+    [sym_subroutine_call] = STATE(6789),
+    [sym_keyword_statement] = STATE(6789),
+    [sym_include_statement] = STATE(6789),
+    [sym_do_loop_statement] = STATE(6789),
+    [sym_do_label_statement] = STATE(6789),
+    [sym_end_do_label_statement] = STATE(6789),
+    [sym_if_statement] = STATE(6789),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6789),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6789),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6789),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6789),
+    [sym_select_type_statement] = STATE(6789),
+    [sym_select_rank_statement] = STATE(6789),
+    [sym_block_construct] = STATE(6789),
+    [sym_associate_statement] = STATE(6789),
+    [sym_format_statement] = STATE(6789),
+    [sym_read_statement] = STATE(6789),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6789),
+    [sym_open_statement] = STATE(6789),
+    [sym_close_statement] = STATE(6789),
+    [sym_write_statement] = STATE(6789),
+    [sym_inquire_statement] = STATE(6789),
+    [sym_file_position_statement] = STATE(6789),
+    [sym_allocate_statement] = STATE(6789),
+    [sym_entry_statement] = STATE(6789),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6789),
+    [sym_coarray_team_statement] = STATE(6789),
+    [sym_coarray_critical_statement] = STATE(6789),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -202972,7 +202831,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203013,83 +202872,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [793] = {
-    [sym__statements] = STATE(6594),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6594),
-    [sym_assignment_statement] = STATE(6594),
-    [sym_pointer_association_statement] = STATE(6594),
-    [sym_subroutine_call] = STATE(6594),
-    [sym_keyword_statement] = STATE(6594),
-    [sym_include_statement] = STATE(6594),
-    [sym_do_loop_statement] = STATE(6594),
-    [sym_do_label_statement] = STATE(6594),
-    [sym_end_do_label_statement] = STATE(6594),
-    [sym_if_statement] = STATE(6594),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6594),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6594),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6594),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6594),
-    [sym_select_type_statement] = STATE(6594),
-    [sym_select_rank_statement] = STATE(6594),
-    [sym_block_construct] = STATE(6594),
-    [sym_associate_statement] = STATE(6594),
-    [sym_format_statement] = STATE(6594),
-    [sym_read_statement] = STATE(6594),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6594),
-    [sym_open_statement] = STATE(6594),
-    [sym_close_statement] = STATE(6594),
-    [sym_write_statement] = STATE(6594),
-    [sym_inquire_statement] = STATE(6594),
-    [sym_file_position_statement] = STATE(6594),
-    [sym_allocate_statement] = STATE(6594),
-    [sym_entry_statement] = STATE(6594),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6594),
-    [sym_coarray_team_statement] = STATE(6594),
-    [sym_coarray_critical_statement] = STATE(6594),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6915),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6915),
+    [sym_assignment_statement] = STATE(6915),
+    [sym_pointer_association_statement] = STATE(6915),
+    [sym_subroutine_call] = STATE(6915),
+    [sym_keyword_statement] = STATE(6915),
+    [sym_include_statement] = STATE(6915),
+    [sym_do_loop_statement] = STATE(6915),
+    [sym_do_label_statement] = STATE(6915),
+    [sym_end_do_label_statement] = STATE(6915),
+    [sym_if_statement] = STATE(6915),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6915),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6915),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6915),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6915),
+    [sym_select_type_statement] = STATE(6915),
+    [sym_select_rank_statement] = STATE(6915),
+    [sym_block_construct] = STATE(6915),
+    [sym_associate_statement] = STATE(6915),
+    [sym_format_statement] = STATE(6915),
+    [sym_read_statement] = STATE(6915),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6915),
+    [sym_open_statement] = STATE(6915),
+    [sym_close_statement] = STATE(6915),
+    [sym_write_statement] = STATE(6915),
+    [sym_inquire_statement] = STATE(6915),
+    [sym_file_position_statement] = STATE(6915),
+    [sym_allocate_statement] = STATE(6915),
+    [sym_entry_statement] = STATE(6915),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6915),
+    [sym_coarray_team_statement] = STATE(6915),
+    [sym_coarray_critical_statement] = STATE(6915),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203130,7 +202989,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203171,83 +203030,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [794] = {
-    [sym__statements] = STATE(7077),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7077),
-    [sym_assignment_statement] = STATE(7077),
-    [sym_pointer_association_statement] = STATE(7077),
-    [sym_subroutine_call] = STATE(7077),
-    [sym_keyword_statement] = STATE(7077),
-    [sym_include_statement] = STATE(7077),
-    [sym_do_loop_statement] = STATE(7077),
-    [sym_do_label_statement] = STATE(7077),
-    [sym_end_do_label_statement] = STATE(7077),
-    [sym_if_statement] = STATE(7077),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7077),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7077),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7077),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7077),
-    [sym_select_type_statement] = STATE(7077),
-    [sym_select_rank_statement] = STATE(7077),
-    [sym_block_construct] = STATE(7077),
-    [sym_associate_statement] = STATE(7077),
-    [sym_format_statement] = STATE(7077),
-    [sym_read_statement] = STATE(7077),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7077),
-    [sym_open_statement] = STATE(7077),
-    [sym_close_statement] = STATE(7077),
-    [sym_write_statement] = STATE(7077),
-    [sym_inquire_statement] = STATE(7077),
-    [sym_file_position_statement] = STATE(7077),
-    [sym_allocate_statement] = STATE(7077),
-    [sym_entry_statement] = STATE(7077),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7077),
-    [sym_coarray_team_statement] = STATE(7077),
-    [sym_coarray_critical_statement] = STATE(7077),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7132),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7132),
+    [sym_assignment_statement] = STATE(7132),
+    [sym_pointer_association_statement] = STATE(7132),
+    [sym_subroutine_call] = STATE(7132),
+    [sym_keyword_statement] = STATE(7132),
+    [sym_include_statement] = STATE(7132),
+    [sym_do_loop_statement] = STATE(7132),
+    [sym_do_label_statement] = STATE(7132),
+    [sym_end_do_label_statement] = STATE(7132),
+    [sym_if_statement] = STATE(7132),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7132),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7132),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7132),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7132),
+    [sym_select_type_statement] = STATE(7132),
+    [sym_select_rank_statement] = STATE(7132),
+    [sym_block_construct] = STATE(7132),
+    [sym_associate_statement] = STATE(7132),
+    [sym_format_statement] = STATE(7132),
+    [sym_read_statement] = STATE(7132),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7132),
+    [sym_open_statement] = STATE(7132),
+    [sym_close_statement] = STATE(7132),
+    [sym_write_statement] = STATE(7132),
+    [sym_inquire_statement] = STATE(7132),
+    [sym_file_position_statement] = STATE(7132),
+    [sym_allocate_statement] = STATE(7132),
+    [sym_entry_statement] = STATE(7132),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7132),
+    [sym_coarray_team_statement] = STATE(7132),
+    [sym_coarray_critical_statement] = STATE(7132),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203288,7 +203147,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203329,83 +203188,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [795] = {
-    [sym__statements] = STATE(7012),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7012),
-    [sym_assignment_statement] = STATE(7012),
-    [sym_pointer_association_statement] = STATE(7012),
-    [sym_subroutine_call] = STATE(7012),
-    [sym_keyword_statement] = STATE(7012),
-    [sym_include_statement] = STATE(7012),
-    [sym_do_loop_statement] = STATE(7012),
-    [sym_do_label_statement] = STATE(7012),
-    [sym_end_do_label_statement] = STATE(7012),
-    [sym_if_statement] = STATE(7012),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7012),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7012),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7012),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7012),
-    [sym_select_type_statement] = STATE(7012),
-    [sym_select_rank_statement] = STATE(7012),
-    [sym_block_construct] = STATE(7012),
-    [sym_associate_statement] = STATE(7012),
-    [sym_format_statement] = STATE(7012),
-    [sym_read_statement] = STATE(7012),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7012),
-    [sym_open_statement] = STATE(7012),
-    [sym_close_statement] = STATE(7012),
-    [sym_write_statement] = STATE(7012),
-    [sym_inquire_statement] = STATE(7012),
-    [sym_file_position_statement] = STATE(7012),
-    [sym_allocate_statement] = STATE(7012),
-    [sym_entry_statement] = STATE(7012),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7012),
-    [sym_coarray_team_statement] = STATE(7012),
-    [sym_coarray_critical_statement] = STATE(7012),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6895),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6895),
+    [sym_assignment_statement] = STATE(6895),
+    [sym_pointer_association_statement] = STATE(6895),
+    [sym_subroutine_call] = STATE(6895),
+    [sym_keyword_statement] = STATE(6895),
+    [sym_include_statement] = STATE(6895),
+    [sym_do_loop_statement] = STATE(6895),
+    [sym_do_label_statement] = STATE(6895),
+    [sym_end_do_label_statement] = STATE(6895),
+    [sym_if_statement] = STATE(6895),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6895),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6895),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6895),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6895),
+    [sym_select_type_statement] = STATE(6895),
+    [sym_select_rank_statement] = STATE(6895),
+    [sym_block_construct] = STATE(6895),
+    [sym_associate_statement] = STATE(6895),
+    [sym_format_statement] = STATE(6895),
+    [sym_read_statement] = STATE(6895),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6895),
+    [sym_open_statement] = STATE(6895),
+    [sym_close_statement] = STATE(6895),
+    [sym_write_statement] = STATE(6895),
+    [sym_inquire_statement] = STATE(6895),
+    [sym_file_position_statement] = STATE(6895),
+    [sym_allocate_statement] = STATE(6895),
+    [sym_entry_statement] = STATE(6895),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6895),
+    [sym_coarray_team_statement] = STATE(6895),
+    [sym_coarray_critical_statement] = STATE(6895),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203446,7 +203305,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203487,83 +203346,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [796] = {
-    [sym__statements] = STATE(6855),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6855),
-    [sym_assignment_statement] = STATE(6855),
-    [sym_pointer_association_statement] = STATE(6855),
-    [sym_subroutine_call] = STATE(6855),
-    [sym_keyword_statement] = STATE(6855),
-    [sym_include_statement] = STATE(6855),
-    [sym_do_loop_statement] = STATE(6855),
-    [sym_do_label_statement] = STATE(6855),
-    [sym_end_do_label_statement] = STATE(6855),
-    [sym_if_statement] = STATE(6855),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6855),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6855),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6855),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6855),
-    [sym_select_type_statement] = STATE(6855),
-    [sym_select_rank_statement] = STATE(6855),
-    [sym_block_construct] = STATE(6855),
-    [sym_associate_statement] = STATE(6855),
-    [sym_format_statement] = STATE(6855),
-    [sym_read_statement] = STATE(6855),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6855),
-    [sym_open_statement] = STATE(6855),
-    [sym_close_statement] = STATE(6855),
-    [sym_write_statement] = STATE(6855),
-    [sym_inquire_statement] = STATE(6855),
-    [sym_file_position_statement] = STATE(6855),
-    [sym_allocate_statement] = STATE(6855),
-    [sym_entry_statement] = STATE(6855),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6855),
-    [sym_coarray_team_statement] = STATE(6855),
-    [sym_coarray_critical_statement] = STATE(6855),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6618),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6618),
+    [sym_assignment_statement] = STATE(6618),
+    [sym_pointer_association_statement] = STATE(6618),
+    [sym_subroutine_call] = STATE(6618),
+    [sym_keyword_statement] = STATE(6618),
+    [sym_include_statement] = STATE(6618),
+    [sym_do_loop_statement] = STATE(6618),
+    [sym_do_label_statement] = STATE(6618),
+    [sym_end_do_label_statement] = STATE(6618),
+    [sym_if_statement] = STATE(6618),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6618),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6618),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6618),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6618),
+    [sym_select_type_statement] = STATE(6618),
+    [sym_select_rank_statement] = STATE(6618),
+    [sym_block_construct] = STATE(6618),
+    [sym_associate_statement] = STATE(6618),
+    [sym_format_statement] = STATE(6618),
+    [sym_read_statement] = STATE(6618),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6618),
+    [sym_open_statement] = STATE(6618),
+    [sym_close_statement] = STATE(6618),
+    [sym_write_statement] = STATE(6618),
+    [sym_inquire_statement] = STATE(6618),
+    [sym_file_position_statement] = STATE(6618),
+    [sym_allocate_statement] = STATE(6618),
+    [sym_entry_statement] = STATE(6618),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6618),
+    [sym_coarray_team_statement] = STATE(6618),
+    [sym_coarray_critical_statement] = STATE(6618),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203604,7 +203463,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203645,83 +203504,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [797] = {
-    [sym__statements] = STATE(6842),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6842),
-    [sym_assignment_statement] = STATE(6842),
-    [sym_pointer_association_statement] = STATE(6842),
-    [sym_subroutine_call] = STATE(6842),
-    [sym_keyword_statement] = STATE(6842),
-    [sym_include_statement] = STATE(6842),
-    [sym_do_loop_statement] = STATE(6842),
-    [sym_do_label_statement] = STATE(6842),
-    [sym_end_do_label_statement] = STATE(6842),
-    [sym_if_statement] = STATE(6842),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6842),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6842),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6842),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6842),
-    [sym_select_type_statement] = STATE(6842),
-    [sym_select_rank_statement] = STATE(6842),
-    [sym_block_construct] = STATE(6842),
-    [sym_associate_statement] = STATE(6842),
-    [sym_format_statement] = STATE(6842),
-    [sym_read_statement] = STATE(6842),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6842),
-    [sym_open_statement] = STATE(6842),
-    [sym_close_statement] = STATE(6842),
-    [sym_write_statement] = STATE(6842),
-    [sym_inquire_statement] = STATE(6842),
-    [sym_file_position_statement] = STATE(6842),
-    [sym_allocate_statement] = STATE(6842),
-    [sym_entry_statement] = STATE(6842),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6842),
-    [sym_coarray_team_statement] = STATE(6842),
-    [sym_coarray_critical_statement] = STATE(6842),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6887),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6887),
+    [sym_assignment_statement] = STATE(6887),
+    [sym_pointer_association_statement] = STATE(6887),
+    [sym_subroutine_call] = STATE(6887),
+    [sym_keyword_statement] = STATE(6887),
+    [sym_include_statement] = STATE(6887),
+    [sym_do_loop_statement] = STATE(6887),
+    [sym_do_label_statement] = STATE(6887),
+    [sym_end_do_label_statement] = STATE(6887),
+    [sym_if_statement] = STATE(6887),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6887),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6887),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6887),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6887),
+    [sym_select_type_statement] = STATE(6887),
+    [sym_select_rank_statement] = STATE(6887),
+    [sym_block_construct] = STATE(6887),
+    [sym_associate_statement] = STATE(6887),
+    [sym_format_statement] = STATE(6887),
+    [sym_read_statement] = STATE(6887),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6887),
+    [sym_open_statement] = STATE(6887),
+    [sym_close_statement] = STATE(6887),
+    [sym_write_statement] = STATE(6887),
+    [sym_inquire_statement] = STATE(6887),
+    [sym_file_position_statement] = STATE(6887),
+    [sym_allocate_statement] = STATE(6887),
+    [sym_entry_statement] = STATE(6887),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6887),
+    [sym_coarray_team_statement] = STATE(6887),
+    [sym_coarray_critical_statement] = STATE(6887),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203762,7 +203621,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203803,83 +203662,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [798] = {
-    [sym__statements] = STATE(7297),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7297),
-    [sym_assignment_statement] = STATE(7297),
-    [sym_pointer_association_statement] = STATE(7297),
-    [sym_subroutine_call] = STATE(7297),
-    [sym_keyword_statement] = STATE(7297),
-    [sym_include_statement] = STATE(7297),
-    [sym_do_loop_statement] = STATE(7297),
-    [sym_do_label_statement] = STATE(7297),
-    [sym_end_do_label_statement] = STATE(7297),
-    [sym_if_statement] = STATE(7297),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7297),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7297),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7297),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7297),
-    [sym_select_type_statement] = STATE(7297),
-    [sym_select_rank_statement] = STATE(7297),
-    [sym_block_construct] = STATE(7297),
-    [sym_associate_statement] = STATE(7297),
-    [sym_format_statement] = STATE(7297),
-    [sym_read_statement] = STATE(7297),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7297),
-    [sym_open_statement] = STATE(7297),
-    [sym_close_statement] = STATE(7297),
-    [sym_write_statement] = STATE(7297),
-    [sym_inquire_statement] = STATE(7297),
-    [sym_file_position_statement] = STATE(7297),
-    [sym_allocate_statement] = STATE(7297),
-    [sym_entry_statement] = STATE(7297),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7297),
-    [sym_coarray_team_statement] = STATE(7297),
-    [sym_coarray_critical_statement] = STATE(7297),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6878),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6878),
+    [sym_assignment_statement] = STATE(6878),
+    [sym_pointer_association_statement] = STATE(6878),
+    [sym_subroutine_call] = STATE(6878),
+    [sym_keyword_statement] = STATE(6878),
+    [sym_include_statement] = STATE(6878),
+    [sym_do_loop_statement] = STATE(6878),
+    [sym_do_label_statement] = STATE(6878),
+    [sym_end_do_label_statement] = STATE(6878),
+    [sym_if_statement] = STATE(6878),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6878),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6878),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6878),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6878),
+    [sym_select_type_statement] = STATE(6878),
+    [sym_select_rank_statement] = STATE(6878),
+    [sym_block_construct] = STATE(6878),
+    [sym_associate_statement] = STATE(6878),
+    [sym_format_statement] = STATE(6878),
+    [sym_read_statement] = STATE(6878),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6878),
+    [sym_open_statement] = STATE(6878),
+    [sym_close_statement] = STATE(6878),
+    [sym_write_statement] = STATE(6878),
+    [sym_inquire_statement] = STATE(6878),
+    [sym_file_position_statement] = STATE(6878),
+    [sym_allocate_statement] = STATE(6878),
+    [sym_entry_statement] = STATE(6878),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6878),
+    [sym_coarray_team_statement] = STATE(6878),
+    [sym_coarray_critical_statement] = STATE(6878),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -203920,7 +203779,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -203961,83 +203820,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [799] = {
-    [sym__statements] = STATE(7051),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7051),
-    [sym_assignment_statement] = STATE(7051),
-    [sym_pointer_association_statement] = STATE(7051),
-    [sym_subroutine_call] = STATE(7051),
-    [sym_keyword_statement] = STATE(7051),
-    [sym_include_statement] = STATE(7051),
-    [sym_do_loop_statement] = STATE(7051),
-    [sym_do_label_statement] = STATE(7051),
-    [sym_end_do_label_statement] = STATE(7051),
-    [sym_if_statement] = STATE(7051),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7051),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7051),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7051),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7051),
-    [sym_select_type_statement] = STATE(7051),
-    [sym_select_rank_statement] = STATE(7051),
-    [sym_block_construct] = STATE(7051),
-    [sym_associate_statement] = STATE(7051),
-    [sym_format_statement] = STATE(7051),
-    [sym_read_statement] = STATE(7051),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7051),
-    [sym_open_statement] = STATE(7051),
-    [sym_close_statement] = STATE(7051),
-    [sym_write_statement] = STATE(7051),
-    [sym_inquire_statement] = STATE(7051),
-    [sym_file_position_statement] = STATE(7051),
-    [sym_allocate_statement] = STATE(7051),
-    [sym_entry_statement] = STATE(7051),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7051),
-    [sym_coarray_team_statement] = STATE(7051),
-    [sym_coarray_critical_statement] = STATE(7051),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6868),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6868),
+    [sym_assignment_statement] = STATE(6868),
+    [sym_pointer_association_statement] = STATE(6868),
+    [sym_subroutine_call] = STATE(6868),
+    [sym_keyword_statement] = STATE(6868),
+    [sym_include_statement] = STATE(6868),
+    [sym_do_loop_statement] = STATE(6868),
+    [sym_do_label_statement] = STATE(6868),
+    [sym_end_do_label_statement] = STATE(6868),
+    [sym_if_statement] = STATE(6868),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6868),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6868),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6868),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6868),
+    [sym_select_type_statement] = STATE(6868),
+    [sym_select_rank_statement] = STATE(6868),
+    [sym_block_construct] = STATE(6868),
+    [sym_associate_statement] = STATE(6868),
+    [sym_format_statement] = STATE(6868),
+    [sym_read_statement] = STATE(6868),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6868),
+    [sym_open_statement] = STATE(6868),
+    [sym_close_statement] = STATE(6868),
+    [sym_write_statement] = STATE(6868),
+    [sym_inquire_statement] = STATE(6868),
+    [sym_file_position_statement] = STATE(6868),
+    [sym_allocate_statement] = STATE(6868),
+    [sym_entry_statement] = STATE(6868),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6868),
+    [sym_coarray_team_statement] = STATE(6868),
+    [sym_coarray_critical_statement] = STATE(6868),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204078,7 +203937,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204119,83 +203978,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [800] = {
-    [sym__statements] = STATE(6520),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6520),
-    [sym_assignment_statement] = STATE(6520),
-    [sym_pointer_association_statement] = STATE(6520),
-    [sym_subroutine_call] = STATE(6520),
-    [sym_keyword_statement] = STATE(6520),
-    [sym_include_statement] = STATE(6520),
-    [sym_do_loop_statement] = STATE(6520),
-    [sym_do_label_statement] = STATE(6520),
-    [sym_end_do_label_statement] = STATE(6520),
-    [sym_if_statement] = STATE(6520),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6520),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6520),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6520),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6520),
-    [sym_select_type_statement] = STATE(6520),
-    [sym_select_rank_statement] = STATE(6520),
-    [sym_block_construct] = STATE(6520),
-    [sym_associate_statement] = STATE(6520),
-    [sym_format_statement] = STATE(6520),
-    [sym_read_statement] = STATE(6520),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6520),
-    [sym_open_statement] = STATE(6520),
-    [sym_close_statement] = STATE(6520),
-    [sym_write_statement] = STATE(6520),
-    [sym_inquire_statement] = STATE(6520),
-    [sym_file_position_statement] = STATE(6520),
-    [sym_allocate_statement] = STATE(6520),
-    [sym_entry_statement] = STATE(6520),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6520),
-    [sym_coarray_team_statement] = STATE(6520),
-    [sym_coarray_critical_statement] = STATE(6520),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6953),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6953),
+    [sym_assignment_statement] = STATE(6953),
+    [sym_pointer_association_statement] = STATE(6953),
+    [sym_subroutine_call] = STATE(6953),
+    [sym_keyword_statement] = STATE(6953),
+    [sym_include_statement] = STATE(6953),
+    [sym_do_loop_statement] = STATE(6953),
+    [sym_do_label_statement] = STATE(6953),
+    [sym_end_do_label_statement] = STATE(6953),
+    [sym_if_statement] = STATE(6953),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6953),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6953),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6953),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6953),
+    [sym_select_type_statement] = STATE(6953),
+    [sym_select_rank_statement] = STATE(6953),
+    [sym_block_construct] = STATE(6953),
+    [sym_associate_statement] = STATE(6953),
+    [sym_format_statement] = STATE(6953),
+    [sym_read_statement] = STATE(6953),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6953),
+    [sym_open_statement] = STATE(6953),
+    [sym_close_statement] = STATE(6953),
+    [sym_write_statement] = STATE(6953),
+    [sym_inquire_statement] = STATE(6953),
+    [sym_file_position_statement] = STATE(6953),
+    [sym_allocate_statement] = STATE(6953),
+    [sym_entry_statement] = STATE(6953),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6953),
+    [sym_coarray_team_statement] = STATE(6953),
+    [sym_coarray_critical_statement] = STATE(6953),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204236,7 +204095,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204277,83 +204136,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [801] = {
-    [sym__statements] = STATE(6609),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6609),
-    [sym_assignment_statement] = STATE(6609),
-    [sym_pointer_association_statement] = STATE(6609),
-    [sym_subroutine_call] = STATE(6609),
-    [sym_keyword_statement] = STATE(6609),
-    [sym_include_statement] = STATE(6609),
-    [sym_do_loop_statement] = STATE(6609),
-    [sym_do_label_statement] = STATE(6609),
-    [sym_end_do_label_statement] = STATE(6609),
-    [sym_if_statement] = STATE(6609),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6609),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6609),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6609),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6609),
-    [sym_select_type_statement] = STATE(6609),
-    [sym_select_rank_statement] = STATE(6609),
-    [sym_block_construct] = STATE(6609),
-    [sym_associate_statement] = STATE(6609),
-    [sym_format_statement] = STATE(6609),
-    [sym_read_statement] = STATE(6609),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6609),
-    [sym_open_statement] = STATE(6609),
-    [sym_close_statement] = STATE(6609),
-    [sym_write_statement] = STATE(6609),
-    [sym_inquire_statement] = STATE(6609),
-    [sym_file_position_statement] = STATE(6609),
-    [sym_allocate_statement] = STATE(6609),
-    [sym_entry_statement] = STATE(6609),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6609),
-    [sym_coarray_team_statement] = STATE(6609),
-    [sym_coarray_critical_statement] = STATE(6609),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7193),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7193),
+    [sym_assignment_statement] = STATE(7193),
+    [sym_pointer_association_statement] = STATE(7193),
+    [sym_subroutine_call] = STATE(7193),
+    [sym_keyword_statement] = STATE(7193),
+    [sym_include_statement] = STATE(7193),
+    [sym_do_loop_statement] = STATE(7193),
+    [sym_do_label_statement] = STATE(7193),
+    [sym_end_do_label_statement] = STATE(7193),
+    [sym_if_statement] = STATE(7193),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7193),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7193),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7193),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7193),
+    [sym_select_type_statement] = STATE(7193),
+    [sym_select_rank_statement] = STATE(7193),
+    [sym_block_construct] = STATE(7193),
+    [sym_associate_statement] = STATE(7193),
+    [sym_format_statement] = STATE(7193),
+    [sym_read_statement] = STATE(7193),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7193),
+    [sym_open_statement] = STATE(7193),
+    [sym_close_statement] = STATE(7193),
+    [sym_write_statement] = STATE(7193),
+    [sym_inquire_statement] = STATE(7193),
+    [sym_file_position_statement] = STATE(7193),
+    [sym_allocate_statement] = STATE(7193),
+    [sym_entry_statement] = STATE(7193),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7193),
+    [sym_coarray_team_statement] = STATE(7193),
+    [sym_coarray_critical_statement] = STATE(7193),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204394,7 +204253,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204435,83 +204294,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [802] = {
-    [sym__statements] = STATE(6783),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6783),
-    [sym_assignment_statement] = STATE(6783),
-    [sym_pointer_association_statement] = STATE(6783),
-    [sym_subroutine_call] = STATE(6783),
-    [sym_keyword_statement] = STATE(6783),
-    [sym_include_statement] = STATE(6783),
-    [sym_do_loop_statement] = STATE(6783),
-    [sym_do_label_statement] = STATE(6783),
-    [sym_end_do_label_statement] = STATE(6783),
-    [sym_if_statement] = STATE(6783),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6783),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6783),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6783),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6783),
-    [sym_select_type_statement] = STATE(6783),
-    [sym_select_rank_statement] = STATE(6783),
-    [sym_block_construct] = STATE(6783),
-    [sym_associate_statement] = STATE(6783),
-    [sym_format_statement] = STATE(6783),
-    [sym_read_statement] = STATE(6783),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6783),
-    [sym_open_statement] = STATE(6783),
-    [sym_close_statement] = STATE(6783),
-    [sym_write_statement] = STATE(6783),
-    [sym_inquire_statement] = STATE(6783),
-    [sym_file_position_statement] = STATE(6783),
-    [sym_allocate_statement] = STATE(6783),
-    [sym_entry_statement] = STATE(6783),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6783),
-    [sym_coarray_team_statement] = STATE(6783),
-    [sym_coarray_critical_statement] = STATE(6783),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7173),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7173),
+    [sym_assignment_statement] = STATE(7173),
+    [sym_pointer_association_statement] = STATE(7173),
+    [sym_subroutine_call] = STATE(7173),
+    [sym_keyword_statement] = STATE(7173),
+    [sym_include_statement] = STATE(7173),
+    [sym_do_loop_statement] = STATE(7173),
+    [sym_do_label_statement] = STATE(7173),
+    [sym_end_do_label_statement] = STATE(7173),
+    [sym_if_statement] = STATE(7173),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7173),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7173),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7173),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7173),
+    [sym_select_type_statement] = STATE(7173),
+    [sym_select_rank_statement] = STATE(7173),
+    [sym_block_construct] = STATE(7173),
+    [sym_associate_statement] = STATE(7173),
+    [sym_format_statement] = STATE(7173),
+    [sym_read_statement] = STATE(7173),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7173),
+    [sym_open_statement] = STATE(7173),
+    [sym_close_statement] = STATE(7173),
+    [sym_write_statement] = STATE(7173),
+    [sym_inquire_statement] = STATE(7173),
+    [sym_file_position_statement] = STATE(7173),
+    [sym_allocate_statement] = STATE(7173),
+    [sym_entry_statement] = STATE(7173),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7173),
+    [sym_coarray_team_statement] = STATE(7173),
+    [sym_coarray_critical_statement] = STATE(7173),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204552,7 +204411,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204593,83 +204452,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [803] = {
-    [sym__statements] = STATE(6465),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6465),
-    [sym_assignment_statement] = STATE(6465),
-    [sym_pointer_association_statement] = STATE(6465),
-    [sym_subroutine_call] = STATE(6465),
-    [sym_keyword_statement] = STATE(6465),
-    [sym_include_statement] = STATE(6465),
-    [sym_do_loop_statement] = STATE(6465),
-    [sym_do_label_statement] = STATE(6465),
-    [sym_end_do_label_statement] = STATE(6465),
-    [sym_if_statement] = STATE(6465),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6465),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6465),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6465),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6465),
-    [sym_select_type_statement] = STATE(6465),
-    [sym_select_rank_statement] = STATE(6465),
-    [sym_block_construct] = STATE(6465),
-    [sym_associate_statement] = STATE(6465),
-    [sym_format_statement] = STATE(6465),
-    [sym_read_statement] = STATE(6465),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6465),
-    [sym_open_statement] = STATE(6465),
-    [sym_close_statement] = STATE(6465),
-    [sym_write_statement] = STATE(6465),
-    [sym_inquire_statement] = STATE(6465),
-    [sym_file_position_statement] = STATE(6465),
-    [sym_allocate_statement] = STATE(6465),
-    [sym_entry_statement] = STATE(6465),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6465),
-    [sym_coarray_team_statement] = STATE(6465),
-    [sym_coarray_critical_statement] = STATE(6465),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7293),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7293),
+    [sym_assignment_statement] = STATE(7293),
+    [sym_pointer_association_statement] = STATE(7293),
+    [sym_subroutine_call] = STATE(7293),
+    [sym_keyword_statement] = STATE(7293),
+    [sym_include_statement] = STATE(7293),
+    [sym_do_loop_statement] = STATE(7293),
+    [sym_do_label_statement] = STATE(7293),
+    [sym_end_do_label_statement] = STATE(7293),
+    [sym_if_statement] = STATE(7293),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7293),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7293),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7293),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7293),
+    [sym_select_type_statement] = STATE(7293),
+    [sym_select_rank_statement] = STATE(7293),
+    [sym_block_construct] = STATE(7293),
+    [sym_associate_statement] = STATE(7293),
+    [sym_format_statement] = STATE(7293),
+    [sym_read_statement] = STATE(7293),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7293),
+    [sym_open_statement] = STATE(7293),
+    [sym_close_statement] = STATE(7293),
+    [sym_write_statement] = STATE(7293),
+    [sym_inquire_statement] = STATE(7293),
+    [sym_file_position_statement] = STATE(7293),
+    [sym_allocate_statement] = STATE(7293),
+    [sym_entry_statement] = STATE(7293),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7293),
+    [sym_coarray_team_statement] = STATE(7293),
+    [sym_coarray_critical_statement] = STATE(7293),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204710,7 +204569,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204751,83 +204610,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [804] = {
-    [sym__statements] = STATE(6723),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6723),
-    [sym_assignment_statement] = STATE(6723),
-    [sym_pointer_association_statement] = STATE(6723),
-    [sym_subroutine_call] = STATE(6723),
-    [sym_keyword_statement] = STATE(6723),
-    [sym_include_statement] = STATE(6723),
-    [sym_do_loop_statement] = STATE(6723),
-    [sym_do_label_statement] = STATE(6723),
-    [sym_end_do_label_statement] = STATE(6723),
-    [sym_if_statement] = STATE(6723),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6723),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6723),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6723),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6723),
-    [sym_select_type_statement] = STATE(6723),
-    [sym_select_rank_statement] = STATE(6723),
-    [sym_block_construct] = STATE(6723),
-    [sym_associate_statement] = STATE(6723),
-    [sym_format_statement] = STATE(6723),
-    [sym_read_statement] = STATE(6723),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6723),
-    [sym_open_statement] = STATE(6723),
-    [sym_close_statement] = STATE(6723),
-    [sym_write_statement] = STATE(6723),
-    [sym_inquire_statement] = STATE(6723),
-    [sym_file_position_statement] = STATE(6723),
-    [sym_allocate_statement] = STATE(6723),
-    [sym_entry_statement] = STATE(6723),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6723),
-    [sym_coarray_team_statement] = STATE(6723),
-    [sym_coarray_critical_statement] = STATE(6723),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6927),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6927),
+    [sym_assignment_statement] = STATE(6927),
+    [sym_pointer_association_statement] = STATE(6927),
+    [sym_subroutine_call] = STATE(6927),
+    [sym_keyword_statement] = STATE(6927),
+    [sym_include_statement] = STATE(6927),
+    [sym_do_loop_statement] = STATE(6927),
+    [sym_do_label_statement] = STATE(6927),
+    [sym_end_do_label_statement] = STATE(6927),
+    [sym_if_statement] = STATE(6927),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6927),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6927),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6927),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6927),
+    [sym_select_type_statement] = STATE(6927),
+    [sym_select_rank_statement] = STATE(6927),
+    [sym_block_construct] = STATE(6927),
+    [sym_associate_statement] = STATE(6927),
+    [sym_format_statement] = STATE(6927),
+    [sym_read_statement] = STATE(6927),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6927),
+    [sym_open_statement] = STATE(6927),
+    [sym_close_statement] = STATE(6927),
+    [sym_write_statement] = STATE(6927),
+    [sym_inquire_statement] = STATE(6927),
+    [sym_file_position_statement] = STATE(6927),
+    [sym_allocate_statement] = STATE(6927),
+    [sym_entry_statement] = STATE(6927),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6927),
+    [sym_coarray_team_statement] = STATE(6927),
+    [sym_coarray_critical_statement] = STATE(6927),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -204868,7 +204727,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -204909,83 +204768,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [805] = {
-    [sym__statements] = STATE(7062),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7062),
-    [sym_assignment_statement] = STATE(7062),
-    [sym_pointer_association_statement] = STATE(7062),
-    [sym_subroutine_call] = STATE(7062),
-    [sym_keyword_statement] = STATE(7062),
-    [sym_include_statement] = STATE(7062),
-    [sym_do_loop_statement] = STATE(7062),
-    [sym_do_label_statement] = STATE(7062),
-    [sym_end_do_label_statement] = STATE(7062),
-    [sym_if_statement] = STATE(7062),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7062),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7062),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7062),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7062),
-    [sym_select_type_statement] = STATE(7062),
-    [sym_select_rank_statement] = STATE(7062),
-    [sym_block_construct] = STATE(7062),
-    [sym_associate_statement] = STATE(7062),
-    [sym_format_statement] = STATE(7062),
-    [sym_read_statement] = STATE(7062),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7062),
-    [sym_open_statement] = STATE(7062),
-    [sym_close_statement] = STATE(7062),
-    [sym_write_statement] = STATE(7062),
-    [sym_inquire_statement] = STATE(7062),
-    [sym_file_position_statement] = STATE(7062),
-    [sym_allocate_statement] = STATE(7062),
-    [sym_entry_statement] = STATE(7062),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7062),
-    [sym_coarray_team_statement] = STATE(7062),
-    [sym_coarray_critical_statement] = STATE(7062),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7241),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7241),
+    [sym_assignment_statement] = STATE(7241),
+    [sym_pointer_association_statement] = STATE(7241),
+    [sym_subroutine_call] = STATE(7241),
+    [sym_keyword_statement] = STATE(7241),
+    [sym_include_statement] = STATE(7241),
+    [sym_do_loop_statement] = STATE(7241),
+    [sym_do_label_statement] = STATE(7241),
+    [sym_end_do_label_statement] = STATE(7241),
+    [sym_if_statement] = STATE(7241),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7241),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7241),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7241),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7241),
+    [sym_select_type_statement] = STATE(7241),
+    [sym_select_rank_statement] = STATE(7241),
+    [sym_block_construct] = STATE(7241),
+    [sym_associate_statement] = STATE(7241),
+    [sym_format_statement] = STATE(7241),
+    [sym_read_statement] = STATE(7241),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7241),
+    [sym_open_statement] = STATE(7241),
+    [sym_close_statement] = STATE(7241),
+    [sym_write_statement] = STATE(7241),
+    [sym_inquire_statement] = STATE(7241),
+    [sym_file_position_statement] = STATE(7241),
+    [sym_allocate_statement] = STATE(7241),
+    [sym_entry_statement] = STATE(7241),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7241),
+    [sym_coarray_team_statement] = STATE(7241),
+    [sym_coarray_critical_statement] = STATE(7241),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205026,7 +204885,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205067,83 +204926,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [806] = {
-    [sym__statements] = STATE(7253),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7253),
-    [sym_assignment_statement] = STATE(7253),
-    [sym_pointer_association_statement] = STATE(7253),
-    [sym_subroutine_call] = STATE(7253),
-    [sym_keyword_statement] = STATE(7253),
-    [sym_include_statement] = STATE(7253),
-    [sym_do_loop_statement] = STATE(7253),
-    [sym_do_label_statement] = STATE(7253),
-    [sym_end_do_label_statement] = STATE(7253),
-    [sym_if_statement] = STATE(7253),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7253),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7253),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7253),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7253),
-    [sym_select_type_statement] = STATE(7253),
-    [sym_select_rank_statement] = STATE(7253),
-    [sym_block_construct] = STATE(7253),
-    [sym_associate_statement] = STATE(7253),
-    [sym_format_statement] = STATE(7253),
-    [sym_read_statement] = STATE(7253),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7253),
-    [sym_open_statement] = STATE(7253),
-    [sym_close_statement] = STATE(7253),
-    [sym_write_statement] = STATE(7253),
-    [sym_inquire_statement] = STATE(7253),
-    [sym_file_position_statement] = STATE(7253),
-    [sym_allocate_statement] = STATE(7253),
-    [sym_entry_statement] = STATE(7253),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7253),
-    [sym_coarray_team_statement] = STATE(7253),
-    [sym_coarray_critical_statement] = STATE(7253),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6550),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6550),
+    [sym_assignment_statement] = STATE(6550),
+    [sym_pointer_association_statement] = STATE(6550),
+    [sym_subroutine_call] = STATE(6550),
+    [sym_keyword_statement] = STATE(6550),
+    [sym_include_statement] = STATE(6550),
+    [sym_do_loop_statement] = STATE(6550),
+    [sym_do_label_statement] = STATE(6550),
+    [sym_end_do_label_statement] = STATE(6550),
+    [sym_if_statement] = STATE(6550),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6550),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6550),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6550),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6550),
+    [sym_select_type_statement] = STATE(6550),
+    [sym_select_rank_statement] = STATE(6550),
+    [sym_block_construct] = STATE(6550),
+    [sym_associate_statement] = STATE(6550),
+    [sym_format_statement] = STATE(6550),
+    [sym_read_statement] = STATE(6550),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6550),
+    [sym_open_statement] = STATE(6550),
+    [sym_close_statement] = STATE(6550),
+    [sym_write_statement] = STATE(6550),
+    [sym_inquire_statement] = STATE(6550),
+    [sym_file_position_statement] = STATE(6550),
+    [sym_allocate_statement] = STATE(6550),
+    [sym_entry_statement] = STATE(6550),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6550),
+    [sym_coarray_team_statement] = STATE(6550),
+    [sym_coarray_critical_statement] = STATE(6550),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205184,7 +205043,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205225,7 +205084,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
@@ -205233,7 +205092,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
   },
   [807] = {
     [sym__statements] = STATE(6982),
-    [sym_statement_label] = STATE(7610),
+    [sym_statement_label] = STATE(7386),
     [sym_stop_statement] = STATE(6982),
     [sym_assignment_statement] = STATE(6982),
     [sym_pointer_association_statement] = STATE(6982),
@@ -205244,16 +205103,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_do_label_statement] = STATE(6982),
     [sym_end_do_label_statement] = STATE(6982),
     [sym_if_statement] = STATE(6982),
-    [sym__inline_if_statement] = STATE(7692),
+    [sym__inline_if_statement] = STATE(7649),
     [sym_arithmetic_if_statement] = STATE(6982),
-    [sym__block_if_statement] = STATE(7692),
+    [sym__block_if_statement] = STATE(7649),
     [sym_where_statement] = STATE(6982),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
     [sym_forall_statement] = STATE(6982),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
     [sym_select_case_statement] = STATE(6982),
     [sym_select_type_statement] = STATE(6982),
     [sym_select_rank_statement] = STATE(6982),
@@ -205261,8 +205120,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_associate_statement] = STATE(6982),
     [sym_format_statement] = STATE(6982),
     [sym_read_statement] = STATE(6982),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
     [sym_print_statement] = STATE(6982),
     [sym_open_statement] = STATE(6982),
     [sym_close_statement] = STATE(6982),
@@ -205271,37 +205130,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_file_position_statement] = STATE(6982),
     [sym_allocate_statement] = STATE(6982),
     [sym_entry_statement] = STATE(6982),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
     [sym_coarray_statement] = STATE(6982),
     [sym_coarray_team_statement] = STATE(6982),
     [sym_coarray_critical_statement] = STATE(6982),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205342,7 +205201,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205383,83 +205242,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [808] = {
-    [sym__statements] = STATE(6662),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6662),
-    [sym_assignment_statement] = STATE(6662),
-    [sym_pointer_association_statement] = STATE(6662),
-    [sym_subroutine_call] = STATE(6662),
-    [sym_keyword_statement] = STATE(6662),
-    [sym_include_statement] = STATE(6662),
-    [sym_do_loop_statement] = STATE(6662),
-    [sym_do_label_statement] = STATE(6662),
-    [sym_end_do_label_statement] = STATE(6662),
-    [sym_if_statement] = STATE(6662),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6662),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6662),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6662),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6662),
-    [sym_select_type_statement] = STATE(6662),
-    [sym_select_rank_statement] = STATE(6662),
-    [sym_block_construct] = STATE(6662),
-    [sym_associate_statement] = STATE(6662),
-    [sym_format_statement] = STATE(6662),
-    [sym_read_statement] = STATE(6662),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6662),
-    [sym_open_statement] = STATE(6662),
-    [sym_close_statement] = STATE(6662),
-    [sym_write_statement] = STATE(6662),
-    [sym_inquire_statement] = STATE(6662),
-    [sym_file_position_statement] = STATE(6662),
-    [sym_allocate_statement] = STATE(6662),
-    [sym_entry_statement] = STATE(6662),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6662),
-    [sym_coarray_team_statement] = STATE(6662),
-    [sym_coarray_critical_statement] = STATE(6662),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7058),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7058),
+    [sym_assignment_statement] = STATE(7058),
+    [sym_pointer_association_statement] = STATE(7058),
+    [sym_subroutine_call] = STATE(7058),
+    [sym_keyword_statement] = STATE(7058),
+    [sym_include_statement] = STATE(7058),
+    [sym_do_loop_statement] = STATE(7058),
+    [sym_do_label_statement] = STATE(7058),
+    [sym_end_do_label_statement] = STATE(7058),
+    [sym_if_statement] = STATE(7058),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7058),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7058),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7058),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7058),
+    [sym_select_type_statement] = STATE(7058),
+    [sym_select_rank_statement] = STATE(7058),
+    [sym_block_construct] = STATE(7058),
+    [sym_associate_statement] = STATE(7058),
+    [sym_format_statement] = STATE(7058),
+    [sym_read_statement] = STATE(7058),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7058),
+    [sym_open_statement] = STATE(7058),
+    [sym_close_statement] = STATE(7058),
+    [sym_write_statement] = STATE(7058),
+    [sym_inquire_statement] = STATE(7058),
+    [sym_file_position_statement] = STATE(7058),
+    [sym_allocate_statement] = STATE(7058),
+    [sym_entry_statement] = STATE(7058),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7058),
+    [sym_coarray_team_statement] = STATE(7058),
+    [sym_coarray_critical_statement] = STATE(7058),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205500,7 +205359,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205541,83 +205400,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [809] = {
-    [sym__statements] = STATE(6894),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6894),
-    [sym_assignment_statement] = STATE(6894),
-    [sym_pointer_association_statement] = STATE(6894),
-    [sym_subroutine_call] = STATE(6894),
-    [sym_keyword_statement] = STATE(6894),
-    [sym_include_statement] = STATE(6894),
-    [sym_do_loop_statement] = STATE(6894),
-    [sym_do_label_statement] = STATE(6894),
-    [sym_end_do_label_statement] = STATE(6894),
-    [sym_if_statement] = STATE(6894),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6894),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6894),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6894),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6894),
-    [sym_select_type_statement] = STATE(6894),
-    [sym_select_rank_statement] = STATE(6894),
-    [sym_block_construct] = STATE(6894),
-    [sym_associate_statement] = STATE(6894),
-    [sym_format_statement] = STATE(6894),
-    [sym_read_statement] = STATE(6894),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6894),
-    [sym_open_statement] = STATE(6894),
-    [sym_close_statement] = STATE(6894),
-    [sym_write_statement] = STATE(6894),
-    [sym_inquire_statement] = STATE(6894),
-    [sym_file_position_statement] = STATE(6894),
-    [sym_allocate_statement] = STATE(6894),
-    [sym_entry_statement] = STATE(6894),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6894),
-    [sym_coarray_team_statement] = STATE(6894),
-    [sym_coarray_critical_statement] = STATE(6894),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(7052),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(7052),
+    [sym_assignment_statement] = STATE(7052),
+    [sym_pointer_association_statement] = STATE(7052),
+    [sym_subroutine_call] = STATE(7052),
+    [sym_keyword_statement] = STATE(7052),
+    [sym_include_statement] = STATE(7052),
+    [sym_do_loop_statement] = STATE(7052),
+    [sym_do_label_statement] = STATE(7052),
+    [sym_end_do_label_statement] = STATE(7052),
+    [sym_if_statement] = STATE(7052),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(7052),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(7052),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(7052),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(7052),
+    [sym_select_type_statement] = STATE(7052),
+    [sym_select_rank_statement] = STATE(7052),
+    [sym_block_construct] = STATE(7052),
+    [sym_associate_statement] = STATE(7052),
+    [sym_format_statement] = STATE(7052),
+    [sym_read_statement] = STATE(7052),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(7052),
+    [sym_open_statement] = STATE(7052),
+    [sym_close_statement] = STATE(7052),
+    [sym_write_statement] = STATE(7052),
+    [sym_inquire_statement] = STATE(7052),
+    [sym_file_position_statement] = STATE(7052),
+    [sym_allocate_statement] = STATE(7052),
+    [sym_entry_statement] = STATE(7052),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(7052),
+    [sym_coarray_team_statement] = STATE(7052),
+    [sym_coarray_critical_statement] = STATE(7052),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205658,7 +205517,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205699,83 +205558,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [810] = {
-    [sym__statements] = STATE(7003),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7003),
-    [sym_assignment_statement] = STATE(7003),
-    [sym_pointer_association_statement] = STATE(7003),
-    [sym_subroutine_call] = STATE(7003),
-    [sym_keyword_statement] = STATE(7003),
-    [sym_include_statement] = STATE(7003),
-    [sym_do_loop_statement] = STATE(7003),
-    [sym_do_label_statement] = STATE(7003),
-    [sym_end_do_label_statement] = STATE(7003),
-    [sym_if_statement] = STATE(7003),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7003),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7003),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7003),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7003),
-    [sym_select_type_statement] = STATE(7003),
-    [sym_select_rank_statement] = STATE(7003),
-    [sym_block_construct] = STATE(7003),
-    [sym_associate_statement] = STATE(7003),
-    [sym_format_statement] = STATE(7003),
-    [sym_read_statement] = STATE(7003),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7003),
-    [sym_open_statement] = STATE(7003),
-    [sym_close_statement] = STATE(7003),
-    [sym_write_statement] = STATE(7003),
-    [sym_inquire_statement] = STATE(7003),
-    [sym_file_position_statement] = STATE(7003),
-    [sym_allocate_statement] = STATE(7003),
-    [sym_entry_statement] = STATE(7003),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7003),
-    [sym_coarray_team_statement] = STATE(7003),
-    [sym_coarray_critical_statement] = STATE(7003),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6992),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6992),
+    [sym_assignment_statement] = STATE(6992),
+    [sym_pointer_association_statement] = STATE(6992),
+    [sym_subroutine_call] = STATE(6992),
+    [sym_keyword_statement] = STATE(6992),
+    [sym_include_statement] = STATE(6992),
+    [sym_do_loop_statement] = STATE(6992),
+    [sym_do_label_statement] = STATE(6992),
+    [sym_end_do_label_statement] = STATE(6992),
+    [sym_if_statement] = STATE(6992),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6992),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6992),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6992),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6992),
+    [sym_select_type_statement] = STATE(6992),
+    [sym_select_rank_statement] = STATE(6992),
+    [sym_block_construct] = STATE(6992),
+    [sym_associate_statement] = STATE(6992),
+    [sym_format_statement] = STATE(6992),
+    [sym_read_statement] = STATE(6992),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6992),
+    [sym_open_statement] = STATE(6992),
+    [sym_close_statement] = STATE(6992),
+    [sym_write_statement] = STATE(6992),
+    [sym_inquire_statement] = STATE(6992),
+    [sym_file_position_statement] = STATE(6992),
+    [sym_allocate_statement] = STATE(6992),
+    [sym_entry_statement] = STATE(6992),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6992),
+    [sym_coarray_team_statement] = STATE(6992),
+    [sym_coarray_critical_statement] = STATE(6992),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205816,7 +205675,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -205857,83 +205716,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [811] = {
-    [sym__statements] = STATE(7028),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7028),
-    [sym_assignment_statement] = STATE(7028),
-    [sym_pointer_association_statement] = STATE(7028),
-    [sym_subroutine_call] = STATE(7028),
-    [sym_keyword_statement] = STATE(7028),
-    [sym_include_statement] = STATE(7028),
-    [sym_do_loop_statement] = STATE(7028),
-    [sym_do_label_statement] = STATE(7028),
-    [sym_end_do_label_statement] = STATE(7028),
-    [sym_if_statement] = STATE(7028),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7028),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7028),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7028),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7028),
-    [sym_select_type_statement] = STATE(7028),
-    [sym_select_rank_statement] = STATE(7028),
-    [sym_block_construct] = STATE(7028),
-    [sym_associate_statement] = STATE(7028),
-    [sym_format_statement] = STATE(7028),
-    [sym_read_statement] = STATE(7028),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7028),
-    [sym_open_statement] = STATE(7028),
-    [sym_close_statement] = STATE(7028),
-    [sym_write_statement] = STATE(7028),
-    [sym_inquire_statement] = STATE(7028),
-    [sym_file_position_statement] = STATE(7028),
-    [sym_allocate_statement] = STATE(7028),
-    [sym_entry_statement] = STATE(7028),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7028),
-    [sym_coarray_team_statement] = STATE(7028),
-    [sym_coarray_critical_statement] = STATE(7028),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6836),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6836),
+    [sym_assignment_statement] = STATE(6836),
+    [sym_pointer_association_statement] = STATE(6836),
+    [sym_subroutine_call] = STATE(6836),
+    [sym_keyword_statement] = STATE(6836),
+    [sym_include_statement] = STATE(6836),
+    [sym_do_loop_statement] = STATE(6836),
+    [sym_do_label_statement] = STATE(6836),
+    [sym_end_do_label_statement] = STATE(6836),
+    [sym_if_statement] = STATE(6836),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6836),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6836),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6836),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6836),
+    [sym_select_type_statement] = STATE(6836),
+    [sym_select_rank_statement] = STATE(6836),
+    [sym_block_construct] = STATE(6836),
+    [sym_associate_statement] = STATE(6836),
+    [sym_format_statement] = STATE(6836),
+    [sym_read_statement] = STATE(6836),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6836),
+    [sym_open_statement] = STATE(6836),
+    [sym_close_statement] = STATE(6836),
+    [sym_write_statement] = STATE(6836),
+    [sym_inquire_statement] = STATE(6836),
+    [sym_file_position_statement] = STATE(6836),
+    [sym_allocate_statement] = STATE(6836),
+    [sym_entry_statement] = STATE(6836),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6836),
+    [sym_coarray_team_statement] = STATE(6836),
+    [sym_coarray_critical_statement] = STATE(6836),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -205974,7 +205833,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -206015,83 +205874,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [812] = {
-    [sym__statements] = STATE(7040),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(7040),
-    [sym_assignment_statement] = STATE(7040),
-    [sym_pointer_association_statement] = STATE(7040),
-    [sym_subroutine_call] = STATE(7040),
-    [sym_keyword_statement] = STATE(7040),
-    [sym_include_statement] = STATE(7040),
-    [sym_do_loop_statement] = STATE(7040),
-    [sym_do_label_statement] = STATE(7040),
-    [sym_end_do_label_statement] = STATE(7040),
-    [sym_if_statement] = STATE(7040),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(7040),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(7040),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(7040),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(7040),
-    [sym_select_type_statement] = STATE(7040),
-    [sym_select_rank_statement] = STATE(7040),
-    [sym_block_construct] = STATE(7040),
-    [sym_associate_statement] = STATE(7040),
-    [sym_format_statement] = STATE(7040),
-    [sym_read_statement] = STATE(7040),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(7040),
-    [sym_open_statement] = STATE(7040),
-    [sym_close_statement] = STATE(7040),
-    [sym_write_statement] = STATE(7040),
-    [sym_inquire_statement] = STATE(7040),
-    [sym_file_position_statement] = STATE(7040),
-    [sym_allocate_statement] = STATE(7040),
-    [sym_entry_statement] = STATE(7040),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(7040),
-    [sym_coarray_team_statement] = STATE(7040),
-    [sym_coarray_critical_statement] = STATE(7040),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6458),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6458),
+    [sym_assignment_statement] = STATE(6458),
+    [sym_pointer_association_statement] = STATE(6458),
+    [sym_subroutine_call] = STATE(6458),
+    [sym_keyword_statement] = STATE(6458),
+    [sym_include_statement] = STATE(6458),
+    [sym_do_loop_statement] = STATE(6458),
+    [sym_do_label_statement] = STATE(6458),
+    [sym_end_do_label_statement] = STATE(6458),
+    [sym_if_statement] = STATE(6458),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6458),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6458),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6458),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6458),
+    [sym_select_type_statement] = STATE(6458),
+    [sym_select_rank_statement] = STATE(6458),
+    [sym_block_construct] = STATE(6458),
+    [sym_associate_statement] = STATE(6458),
+    [sym_format_statement] = STATE(6458),
+    [sym_read_statement] = STATE(6458),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6458),
+    [sym_open_statement] = STATE(6458),
+    [sym_close_statement] = STATE(6458),
+    [sym_write_statement] = STATE(6458),
+    [sym_inquire_statement] = STATE(6458),
+    [sym_file_position_statement] = STATE(6458),
+    [sym_allocate_statement] = STATE(6458),
+    [sym_entry_statement] = STATE(6458),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6458),
+    [sym_coarray_team_statement] = STATE(6458),
+    [sym_coarray_critical_statement] = STATE(6458),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -206132,7 +205991,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -206173,83 +206032,83 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [813] = {
-    [sym__statements] = STATE(6941),
-    [sym_statement_label] = STATE(7610),
-    [sym_stop_statement] = STATE(6941),
-    [sym_assignment_statement] = STATE(6941),
-    [sym_pointer_association_statement] = STATE(6941),
-    [sym_subroutine_call] = STATE(6941),
-    [sym_keyword_statement] = STATE(6941),
-    [sym_include_statement] = STATE(6941),
-    [sym_do_loop_statement] = STATE(6941),
-    [sym_do_label_statement] = STATE(6941),
-    [sym_end_do_label_statement] = STATE(6941),
-    [sym_if_statement] = STATE(6941),
-    [sym__inline_if_statement] = STATE(7692),
-    [sym_arithmetic_if_statement] = STATE(6941),
-    [sym__block_if_statement] = STATE(7692),
-    [sym_where_statement] = STATE(6941),
-    [sym__inline_where_statement] = STATE(7334),
-    [sym__block_where_statement] = STATE(7334),
-    [sym_forall_statement] = STATE(6941),
-    [sym__forall_control_expression] = STATE(770),
-    [sym__inline_forall_statement] = STATE(7390),
-    [sym__block_forall_statement] = STATE(7390),
-    [sym_select_case_statement] = STATE(6941),
-    [sym_select_type_statement] = STATE(6941),
-    [sym_select_rank_statement] = STATE(6941),
-    [sym_block_construct] = STATE(6941),
-    [sym_associate_statement] = STATE(6941),
-    [sym_format_statement] = STATE(6941),
-    [sym_read_statement] = STATE(6941),
-    [sym__simple_read_statement] = STATE(7464),
-    [sym__parameterized_read_statement] = STATE(7464),
-    [sym_print_statement] = STATE(6941),
-    [sym_open_statement] = STATE(6941),
-    [sym_close_statement] = STATE(6941),
-    [sym_write_statement] = STATE(6941),
-    [sym_inquire_statement] = STATE(6941),
-    [sym_file_position_statement] = STATE(6941),
-    [sym_allocate_statement] = STATE(6941),
-    [sym_entry_statement] = STATE(6941),
-    [sym__expression] = STATE(4626),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4737),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_block_label_start_expression] = STATE(5656),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_coarray_statement] = STATE(6941),
-    [sym_coarray_team_statement] = STATE(6941),
-    [sym_coarray_critical_statement] = STATE(6941),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4894),
+    [sym__statements] = STATE(6563),
+    [sym_statement_label] = STATE(7386),
+    [sym_stop_statement] = STATE(6563),
+    [sym_assignment_statement] = STATE(6563),
+    [sym_pointer_association_statement] = STATE(6563),
+    [sym_subroutine_call] = STATE(6563),
+    [sym_keyword_statement] = STATE(6563),
+    [sym_include_statement] = STATE(6563),
+    [sym_do_loop_statement] = STATE(6563),
+    [sym_do_label_statement] = STATE(6563),
+    [sym_end_do_label_statement] = STATE(6563),
+    [sym_if_statement] = STATE(6563),
+    [sym__inline_if_statement] = STATE(7649),
+    [sym_arithmetic_if_statement] = STATE(6563),
+    [sym__block_if_statement] = STATE(7649),
+    [sym_where_statement] = STATE(6563),
+    [sym__inline_where_statement] = STATE(7629),
+    [sym__block_where_statement] = STATE(7629),
+    [sym_forall_statement] = STATE(6563),
+    [sym__forall_control_expression] = STATE(771),
+    [sym__inline_forall_statement] = STATE(7563),
+    [sym__block_forall_statement] = STATE(7563),
+    [sym_select_case_statement] = STATE(6563),
+    [sym_select_type_statement] = STATE(6563),
+    [sym_select_rank_statement] = STATE(6563),
+    [sym_block_construct] = STATE(6563),
+    [sym_associate_statement] = STATE(6563),
+    [sym_format_statement] = STATE(6563),
+    [sym_read_statement] = STATE(6563),
+    [sym__simple_read_statement] = STATE(7615),
+    [sym__parameterized_read_statement] = STATE(7615),
+    [sym_print_statement] = STATE(6563),
+    [sym_open_statement] = STATE(6563),
+    [sym_close_statement] = STATE(6563),
+    [sym_write_statement] = STATE(6563),
+    [sym_inquire_statement] = STATE(6563),
+    [sym_file_position_statement] = STATE(6563),
+    [sym_allocate_statement] = STATE(6563),
+    [sym_entry_statement] = STATE(6563),
+    [sym__expression] = STATE(4613),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4707),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_block_label_start_expression] = STATE(5654),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_coarray_statement] = STATE(6563),
+    [sym_coarray_team_statement] = STATE(6563),
+    [sym_coarray_critical_statement] = STATE(6563),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4929),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4273),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4265),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(35),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(37),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -206290,7 +206149,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(119),
     [aux_sym_data_statement_token1] = ACTIONS(97),
     [aux_sym_do_loop_statement_token1] = ACTIONS(123),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4261),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4257),
     [aux_sym__inline_if_statement_token1] = ACTIONS(125),
     [aux_sym_end_if_statement_token1] = ACTIONS(97),
     [aux_sym_elseif_clause_token2] = ACTIONS(97),
@@ -206331,7 +206190,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(189),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
+    [sym__integer_literal] = ACTIONS(4259),
     [sym__float_literal] = ACTIONS(193),
     [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
@@ -206497,8 +206356,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(4285),
     [anon_sym_LPAREN2] = ACTIONS(4285),
     [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
+    [anon_sym_PLUS] = ACTIONS(4289),
+    [anon_sym_DASH] = ACTIONS(4289),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_program_statement_token1] = ACTIONS(4285),
     [aux_sym_end_program_statement_token1] = ACTIONS(4285),
@@ -206568,7 +206427,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(4285),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(4285),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
+    [anon_sym_SEMI] = ACTIONS(4289),
     [aux_sym_stop_statement_token1] = ACTIONS(4285),
     [aux_sym_stop_statement_token2] = ACTIONS(4285),
     [aux_sym_subroutine_call_token1] = ACTIONS(4285),
@@ -206605,12 +206464,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4285),
     [aux_sym_allocate_statement_token1] = ACTIONS(4285),
     [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
+    [aux_sym_logical_expression_token5] = ACTIONS(4289),
     [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4289),
+    [anon_sym_LBRACK] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4289),
     [aux_sym_null_literal_token1] = ACTIONS(4285),
     [aux_sym_coarray_statement_token1] = ACTIONS(4285),
     [aux_sym_coarray_statement_token2] = ACTIONS(4285),
@@ -206623,159 +206482,1181 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
     [aux_sym_identifier_token1] = ACTIONS(4285),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(4289),
+    [sym__float_literal] = ACTIONS(4289),
+    [sym__boz_literal] = ACTIONS(4289),
+    [sym__string_literal] = ACTIONS(4289),
+    [sym__string_literal_kind] = ACTIONS(4289),
   },
   [816] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token2] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [aux_sym_preproc_else_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_LPAREN2] = ACTIONS(4289),
-    [sym_preproc_comment] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4289),
-    [aux_sym_module_statement_token1] = ACTIONS(4289),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_function_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4289),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4289),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [anon_sym_SEMI] = ACTIONS(4291),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4289),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4289),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_associate_statement_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_print_statement_token1] = ACTIONS(4289),
-    [aux_sym_open_statement_token1] = ACTIONS(4289),
-    [aux_sym_close_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4289),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_logical_expression_token5] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4291),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
-    [sym__float_literal] = ACTIONS(4291),
-    [sym__boz_literal] = ACTIONS(4291),
-    [sym__string_literal] = ACTIONS(4291),
-    [sym__string_literal_kind] = ACTIONS(4291),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [aux_sym_preproc_else_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(4295),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
   [817] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4299),
+    [aux_sym_preproc_def_token1] = ACTIONS(4299),
+    [aux_sym_preproc_if_token1] = ACTIONS(4299),
+    [aux_sym_preproc_if_token2] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4299),
+    [aux_sym_preproc_else_token1] = ACTIONS(4299),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4299),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4299),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4299),
+    [sym_preproc_directive] = ACTIONS(4299),
+    [anon_sym_LPAREN2] = ACTIONS(4299),
+    [sym_preproc_comment] = ACTIONS(4301),
+    [anon_sym_PLUS] = ACTIONS(4303),
+    [anon_sym_DASH] = ACTIONS(4303),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4299),
+    [aux_sym_module_statement_token1] = ACTIONS(4299),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4299),
+    [aux_sym_interface_statement_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4299),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4299),
+    [aux_sym_function_statement_token1] = ACTIONS(4299),
+    [aux_sym_language_binding_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4299),
+    [aux_sym_contains_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token2] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4299),
+    [aux_sym_save_statement_token1] = ACTIONS(4299),
+    [aux_sym_private_statement_token1] = ACTIONS(4299),
+    [aux_sym_public_statement_token1] = ACTIONS(4299),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4299),
+    [aux_sym_common_statement_token1] = ACTIONS(4299),
+    [aux_sym_import_statement_token1] = ACTIONS(4299),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4299),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4299),
+    [aux_sym_derived_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4299),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4299),
+    [anon_sym_SEMI] = ACTIONS(4303),
+    [aux_sym_stop_statement_token1] = ACTIONS(4299),
+    [aux_sym_stop_statement_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4299),
+    [aux_sym_include_statement_token1] = ACTIONS(4299),
+    [aux_sym_data_statement_token1] = ACTIONS(4299),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4299),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4299),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4299),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4299),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4299),
+    [aux_sym_block_construct_token1] = ACTIONS(4299),
+    [aux_sym_associate_statement_token1] = ACTIONS(4299),
+    [aux_sym_format_statement_token1] = ACTIONS(4299),
+    [aux_sym_print_statement_token1] = ACTIONS(4299),
+    [aux_sym_open_statement_token1] = ACTIONS(4299),
+    [aux_sym_close_statement_token1] = ACTIONS(4299),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4299),
+    [aux_sym_enum_statement_token1] = ACTIONS(4299),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4299),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4299),
+    [aux_sym_entry_statement_token1] = ACTIONS(4299),
+    [aux_sym_logical_expression_token5] = ACTIONS(4303),
+    [anon_sym_DOT] = ACTIONS(4299),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4303),
+    [anon_sym_LBRACK] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4303),
+    [aux_sym_null_literal_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4299),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4299),
+    [aux_sym_identifier_token1] = ACTIONS(4299),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4303),
+    [sym__float_literal] = ACTIONS(4303),
+    [sym__boz_literal] = ACTIONS(4303),
+    [sym__string_literal] = ACTIONS(4303),
+    [sym__string_literal_kind] = ACTIONS(4303),
+  },
+  [818] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4305),
+    [aux_sym_preproc_def_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
+    [aux_sym_preproc_else_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4305),
+    [sym_preproc_directive] = ACTIONS(4305),
+    [anon_sym_LPAREN2] = ACTIONS(4305),
+    [sym_preproc_comment] = ACTIONS(4307),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
+    [aux_sym_contains_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token2] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
+    [aux_sym_save_statement_token1] = ACTIONS(4305),
+    [aux_sym_private_statement_token1] = ACTIONS(4305),
+    [aux_sym_public_statement_token1] = ACTIONS(4305),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
+    [aux_sym_common_statement_token1] = ACTIONS(4305),
+    [aux_sym_import_statement_token1] = ACTIONS(4305),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
+    [aux_sym_derived_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
+    [anon_sym_SEMI] = ACTIONS(4309),
+    [aux_sym_stop_statement_token1] = ACTIONS(4305),
+    [aux_sym_stop_statement_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
+    [aux_sym_include_statement_token1] = ACTIONS(4305),
+    [aux_sym_data_statement_token1] = ACTIONS(4305),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
+    [aux_sym_block_construct_token1] = ACTIONS(4305),
+    [aux_sym_associate_statement_token1] = ACTIONS(4305),
+    [aux_sym_format_statement_token1] = ACTIONS(4305),
+    [aux_sym_print_statement_token1] = ACTIONS(4305),
+    [aux_sym_open_statement_token1] = ACTIONS(4305),
+    [aux_sym_close_statement_token1] = ACTIONS(4305),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
+    [aux_sym_enum_statement_token1] = ACTIONS(4305),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
+    [aux_sym_entry_statement_token1] = ACTIONS(4305),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
+    [anon_sym_DOT] = ACTIONS(4305),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
+    [aux_sym_null_literal_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
+    [aux_sym_identifier_token1] = ACTIONS(4305),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
+  },
+  [819] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4311),
+    [aux_sym_preproc_def_token1] = ACTIONS(4311),
+    [aux_sym_preproc_if_token1] = ACTIONS(4311),
+    [aux_sym_preproc_if_token2] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4311),
+    [aux_sym_preproc_else_token1] = ACTIONS(4311),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4311),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4311),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4311),
+    [sym_preproc_directive] = ACTIONS(4311),
+    [anon_sym_LPAREN2] = ACTIONS(4311),
+    [sym_preproc_comment] = ACTIONS(4313),
+    [anon_sym_PLUS] = ACTIONS(4315),
+    [anon_sym_DASH] = ACTIONS(4315),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4311),
+    [aux_sym_module_statement_token1] = ACTIONS(4311),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4311),
+    [aux_sym_interface_statement_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4311),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4311),
+    [aux_sym_function_statement_token1] = ACTIONS(4311),
+    [aux_sym_language_binding_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4311),
+    [aux_sym_contains_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token2] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4311),
+    [aux_sym_save_statement_token1] = ACTIONS(4311),
+    [aux_sym_private_statement_token1] = ACTIONS(4311),
+    [aux_sym_public_statement_token1] = ACTIONS(4311),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4311),
+    [aux_sym_common_statement_token1] = ACTIONS(4311),
+    [aux_sym_import_statement_token1] = ACTIONS(4311),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4311),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4311),
+    [aux_sym_derived_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4311),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4311),
+    [anon_sym_SEMI] = ACTIONS(4315),
+    [aux_sym_stop_statement_token1] = ACTIONS(4311),
+    [aux_sym_stop_statement_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4311),
+    [aux_sym_include_statement_token1] = ACTIONS(4311),
+    [aux_sym_data_statement_token1] = ACTIONS(4311),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4311),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4311),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4311),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4311),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4311),
+    [aux_sym_block_construct_token1] = ACTIONS(4311),
+    [aux_sym_associate_statement_token1] = ACTIONS(4311),
+    [aux_sym_format_statement_token1] = ACTIONS(4311),
+    [aux_sym_print_statement_token1] = ACTIONS(4311),
+    [aux_sym_open_statement_token1] = ACTIONS(4311),
+    [aux_sym_close_statement_token1] = ACTIONS(4311),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4311),
+    [aux_sym_enum_statement_token1] = ACTIONS(4311),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4311),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4311),
+    [aux_sym_entry_statement_token1] = ACTIONS(4311),
+    [aux_sym_logical_expression_token5] = ACTIONS(4315),
+    [anon_sym_DOT] = ACTIONS(4311),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4315),
+    [anon_sym_LBRACK] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4315),
+    [aux_sym_null_literal_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4311),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4311),
+    [aux_sym_identifier_token1] = ACTIONS(4311),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4315),
+    [sym__float_literal] = ACTIONS(4315),
+    [sym__boz_literal] = ACTIONS(4315),
+    [sym__string_literal] = ACTIONS(4315),
+    [sym__string_literal_kind] = ACTIONS(4315),
+  },
+  [820] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(4319),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [821] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token2] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [aux_sym_preproc_else_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_LPAREN2] = ACTIONS(4321),
+    [sym_preproc_comment] = ACTIONS(4323),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4321),
+    [aux_sym_module_statement_token1] = ACTIONS(4321),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_function_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4321),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4321),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [anon_sym_SEMI] = ACTIONS(4323),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4321),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4321),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_associate_statement_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_print_statement_token1] = ACTIONS(4321),
+    [aux_sym_open_statement_token1] = ACTIONS(4321),
+    [aux_sym_close_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4321),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_logical_expression_token5] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4323),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4323),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+    [sym__float_literal] = ACTIONS(4323),
+    [sym__boz_literal] = ACTIONS(4323),
+    [sym__string_literal] = ACTIONS(4323),
+    [sym__string_literal_kind] = ACTIONS(4323),
+  },
+  [822] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4279),
+    [aux_sym_preproc_def_token1] = ACTIONS(4279),
+    [aux_sym_preproc_if_token1] = ACTIONS(4279),
+    [aux_sym_preproc_if_token2] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4279),
+    [aux_sym_preproc_else_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4279),
+    [sym_preproc_directive] = ACTIONS(4279),
+    [anon_sym_LPAREN2] = ACTIONS(4279),
+    [sym_preproc_comment] = ACTIONS(4325),
+    [anon_sym_PLUS] = ACTIONS(4327),
+    [anon_sym_DASH] = ACTIONS(4327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4279),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4279),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4279),
+    [aux_sym_contains_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token2] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4279),
+    [aux_sym_save_statement_token1] = ACTIONS(4279),
+    [aux_sym_private_statement_token1] = ACTIONS(4279),
+    [aux_sym_public_statement_token1] = ACTIONS(4279),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4279),
+    [aux_sym_common_statement_token1] = ACTIONS(4279),
+    [aux_sym_import_statement_token1] = ACTIONS(4279),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4279),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4279),
+    [aux_sym_derived_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4279),
+    [anon_sym_SEMI] = ACTIONS(4327),
+    [aux_sym_stop_statement_token1] = ACTIONS(4279),
+    [aux_sym_stop_statement_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4279),
+    [aux_sym_include_statement_token1] = ACTIONS(4279),
+    [aux_sym_data_statement_token1] = ACTIONS(4279),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4279),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4279),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4279),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4279),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4279),
+    [aux_sym_block_construct_token1] = ACTIONS(4279),
+    [aux_sym_associate_statement_token1] = ACTIONS(4279),
+    [aux_sym_format_statement_token1] = ACTIONS(4279),
+    [aux_sym_print_statement_token1] = ACTIONS(4279),
+    [aux_sym_open_statement_token1] = ACTIONS(4279),
+    [aux_sym_close_statement_token1] = ACTIONS(4279),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4279),
+    [aux_sym_enum_statement_token1] = ACTIONS(4279),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4279),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4279),
+    [aux_sym_entry_statement_token1] = ACTIONS(4279),
+    [aux_sym_logical_expression_token5] = ACTIONS(4327),
+    [anon_sym_DOT] = ACTIONS(4279),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4327),
+    [anon_sym_LBRACK] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4327),
+    [aux_sym_null_literal_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4279),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4279),
+    [aux_sym_identifier_token1] = ACTIONS(4279),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4327),
+    [sym__float_literal] = ACTIONS(4327),
+    [sym__boz_literal] = ACTIONS(4327),
+    [sym__string_literal] = ACTIONS(4327),
+    [sym__string_literal_kind] = ACTIONS(4327),
+  },
+  [823] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [aux_sym_preproc_else_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(4333),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4337),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_module_statement_token1] = ACTIONS(4337),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4337),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4337),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_function_statement_token1] = ACTIONS(4337),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4337),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [824] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4293),
     [aux_sym_preproc_def_token1] = ACTIONS(4293),
     [aux_sym_preproc_if_token1] = ACTIONS(4293),
@@ -206788,9 +207669,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
     [sym_preproc_directive] = ACTIONS(4293),
     [anon_sym_LPAREN2] = ACTIONS(4293),
-    [sym_preproc_comment] = ACTIONS(4295),
-    [anon_sym_PLUS] = ACTIONS(4295),
-    [anon_sym_DASH] = ACTIONS(4295),
+    [sym_preproc_comment] = ACTIONS(4339),
+    [anon_sym_PLUS] = ACTIONS(4341),
+    [anon_sym_DASH] = ACTIONS(4341),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_program_statement_token1] = ACTIONS(4293),
     [aux_sym_end_program_statement_token1] = ACTIONS(4293),
@@ -206860,7 +207741,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [anon_sym_SEMI] = ACTIONS(4295),
+    [anon_sym_SEMI] = ACTIONS(4341),
     [aux_sym_stop_statement_token1] = ACTIONS(4293),
     [aux_sym_stop_statement_token2] = ACTIONS(4293),
     [aux_sym_subroutine_call_token1] = ACTIONS(4293),
@@ -206897,12 +207778,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4293),
     [aux_sym_allocate_statement_token1] = ACTIONS(4293),
     [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_logical_expression_token5] = ACTIONS(4295),
+    [aux_sym_logical_expression_token5] = ACTIONS(4341),
     [anon_sym_DOT] = ACTIONS(4293),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4295),
-    [anon_sym_LBRACK] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4295),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4341),
+    [anon_sym_LBRACK] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4341),
     [aux_sym_null_literal_token1] = ACTIONS(4293),
     [aux_sym_coarray_statement_token1] = ACTIONS(4293),
     [aux_sym_coarray_statement_token2] = ACTIONS(4293),
@@ -206915,318 +207796,902 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
     [aux_sym_identifier_token1] = ACTIONS(4293),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
-    [sym__float_literal] = ACTIONS(4295),
-    [sym__boz_literal] = ACTIONS(4295),
-    [sym__string_literal] = ACTIONS(4295),
-    [sym__string_literal_kind] = ACTIONS(4295),
+    [sym__integer_literal] = ACTIONS(4341),
+    [sym__float_literal] = ACTIONS(4341),
+    [sym__boz_literal] = ACTIONS(4341),
+    [sym__string_literal] = ACTIONS(4341),
+    [sym__string_literal_kind] = ACTIONS(4341),
   },
-  [818] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
+  [825] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4285),
-    [aux_sym_module_statement_token1] = ACTIONS(4285),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_function_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4285),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4285),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4343),
+    [aux_sym_module_statement_token1] = ACTIONS(4343),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_function_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
   },
-  [819] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token2] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [aux_sym_preproc_else_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_LPAREN2] = ACTIONS(4297),
-    [sym_preproc_comment] = ACTIONS(4299),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4297),
-    [aux_sym_module_statement_token1] = ACTIONS(4297),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_function_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4297),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4297),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [anon_sym_SEMI] = ACTIONS(4299),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4297),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4297),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_associate_statement_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_print_statement_token1] = ACTIONS(4297),
-    [aux_sym_open_statement_token1] = ACTIONS(4297),
-    [aux_sym_close_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4297),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_logical_expression_token5] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4299),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4299),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
-    [sym__float_literal] = ACTIONS(4299),
-    [sym__boz_literal] = ACTIONS(4299),
-    [sym__string_literal] = ACTIONS(4299),
-    [sym__string_literal_kind] = ACTIONS(4299),
+  [826] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token2] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [aux_sym_preproc_else_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
+    [anon_sym_LPAREN2] = ACTIONS(4347),
+    [sym_preproc_comment] = ACTIONS(4349),
+    [anon_sym_PLUS] = ACTIONS(4349),
+    [anon_sym_DASH] = ACTIONS(4349),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
+    [aux_sym_module_statement_token1] = ACTIONS(4347),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4347),
+    [aux_sym_interface_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4347),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
+    [aux_sym_function_statement_token1] = ACTIONS(4347),
+    [aux_sym_language_binding_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
+    [aux_sym_common_statement_token1] = ACTIONS(4347),
+    [aux_sym_import_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
+    [aux_sym_derived_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4347),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4347),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4347),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
+    [anon_sym_SEMI] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_associate_statement_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_print_statement_token1] = ACTIONS(4347),
+    [aux_sym_open_statement_token1] = ACTIONS(4347),
+    [aux_sym_close_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_enum_statement_token1] = ACTIONS(4347),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_logical_expression_token5] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(4347),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4349),
+    [anon_sym_LBRACK] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4349),
+    [sym__float_literal] = ACTIONS(4349),
+    [sym__boz_literal] = ACTIONS(4349),
+    [sym__string_literal] = ACTIONS(4349),
+    [sym__string_literal_kind] = ACTIONS(4349),
   },
-  [820] = {
+  [827] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4351),
+    [aux_sym_preproc_def_token1] = ACTIONS(4351),
+    [aux_sym_preproc_if_token1] = ACTIONS(4351),
+    [aux_sym_preproc_if_token2] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4351),
+    [aux_sym_preproc_else_token1] = ACTIONS(4351),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4351),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4351),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4351),
+    [sym_preproc_directive] = ACTIONS(4351),
+    [anon_sym_LPAREN2] = ACTIONS(4351),
+    [sym_preproc_comment] = ACTIONS(4353),
+    [anon_sym_PLUS] = ACTIONS(4355),
+    [anon_sym_DASH] = ACTIONS(4355),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4351),
+    [aux_sym_module_statement_token1] = ACTIONS(4351),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4351),
+    [aux_sym_interface_statement_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4351),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4351),
+    [aux_sym_function_statement_token1] = ACTIONS(4351),
+    [aux_sym_language_binding_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4351),
+    [aux_sym_contains_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token2] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4351),
+    [aux_sym_save_statement_token1] = ACTIONS(4351),
+    [aux_sym_private_statement_token1] = ACTIONS(4351),
+    [aux_sym_public_statement_token1] = ACTIONS(4351),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4351),
+    [aux_sym_common_statement_token1] = ACTIONS(4351),
+    [aux_sym_import_statement_token1] = ACTIONS(4351),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4351),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4351),
+    [aux_sym_derived_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4351),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4351),
+    [anon_sym_SEMI] = ACTIONS(4355),
+    [aux_sym_stop_statement_token1] = ACTIONS(4351),
+    [aux_sym_stop_statement_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4351),
+    [aux_sym_include_statement_token1] = ACTIONS(4351),
+    [aux_sym_data_statement_token1] = ACTIONS(4351),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4351),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4351),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4351),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4351),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4351),
+    [aux_sym_block_construct_token1] = ACTIONS(4351),
+    [aux_sym_associate_statement_token1] = ACTIONS(4351),
+    [aux_sym_format_statement_token1] = ACTIONS(4351),
+    [aux_sym_print_statement_token1] = ACTIONS(4351),
+    [aux_sym_open_statement_token1] = ACTIONS(4351),
+    [aux_sym_close_statement_token1] = ACTIONS(4351),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4351),
+    [aux_sym_enum_statement_token1] = ACTIONS(4351),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4351),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4351),
+    [aux_sym_entry_statement_token1] = ACTIONS(4351),
+    [aux_sym_logical_expression_token5] = ACTIONS(4355),
+    [anon_sym_DOT] = ACTIONS(4351),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4355),
+    [anon_sym_LBRACK] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4355),
+    [aux_sym_null_literal_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4351),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4351),
+    [aux_sym_identifier_token1] = ACTIONS(4351),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4355),
+    [sym__float_literal] = ACTIONS(4355),
+    [sym__boz_literal] = ACTIONS(4355),
+    [sym__string_literal] = ACTIONS(4355),
+    [sym__string_literal_kind] = ACTIONS(4355),
+  },
+  [828] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4357),
+    [aux_sym_preproc_def_token1] = ACTIONS(4357),
+    [aux_sym_preproc_if_token1] = ACTIONS(4357),
+    [aux_sym_preproc_if_token2] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4357),
+    [aux_sym_preproc_else_token1] = ACTIONS(4357),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4357),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4357),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4357),
+    [sym_preproc_directive] = ACTIONS(4357),
+    [anon_sym_LPAREN2] = ACTIONS(4357),
+    [sym_preproc_comment] = ACTIONS(4359),
+    [anon_sym_PLUS] = ACTIONS(4361),
+    [anon_sym_DASH] = ACTIONS(4361),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4357),
+    [aux_sym_module_statement_token1] = ACTIONS(4357),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4357),
+    [aux_sym_interface_statement_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4357),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4357),
+    [aux_sym_function_statement_token1] = ACTIONS(4357),
+    [aux_sym_language_binding_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4357),
+    [aux_sym_contains_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token2] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4357),
+    [aux_sym_save_statement_token1] = ACTIONS(4357),
+    [aux_sym_private_statement_token1] = ACTIONS(4357),
+    [aux_sym_public_statement_token1] = ACTIONS(4357),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4357),
+    [aux_sym_common_statement_token1] = ACTIONS(4357),
+    [aux_sym_import_statement_token1] = ACTIONS(4357),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4357),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4357),
+    [aux_sym_derived_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4357),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4357),
+    [anon_sym_SEMI] = ACTIONS(4361),
+    [aux_sym_stop_statement_token1] = ACTIONS(4357),
+    [aux_sym_stop_statement_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4357),
+    [aux_sym_include_statement_token1] = ACTIONS(4357),
+    [aux_sym_data_statement_token1] = ACTIONS(4357),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4357),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4357),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4357),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4357),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4357),
+    [aux_sym_block_construct_token1] = ACTIONS(4357),
+    [aux_sym_associate_statement_token1] = ACTIONS(4357),
+    [aux_sym_format_statement_token1] = ACTIONS(4357),
+    [aux_sym_print_statement_token1] = ACTIONS(4357),
+    [aux_sym_open_statement_token1] = ACTIONS(4357),
+    [aux_sym_close_statement_token1] = ACTIONS(4357),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4357),
+    [aux_sym_enum_statement_token1] = ACTIONS(4357),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4357),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4357),
+    [aux_sym_entry_statement_token1] = ACTIONS(4357),
+    [aux_sym_logical_expression_token5] = ACTIONS(4361),
+    [anon_sym_DOT] = ACTIONS(4357),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4361),
+    [anon_sym_LBRACK] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4361),
+    [aux_sym_null_literal_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4357),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4357),
+    [aux_sym_identifier_token1] = ACTIONS(4357),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4361),
+    [sym__float_literal] = ACTIONS(4361),
+    [sym__boz_literal] = ACTIONS(4361),
+    [sym__string_literal] = ACTIONS(4361),
+    [sym__string_literal_kind] = ACTIONS(4361),
+  },
+  [829] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4343),
+    [aux_sym_module_statement_token1] = ACTIONS(4343),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_function_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4343),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
+  },
+  [830] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4363),
+    [aux_sym_preproc_def_token1] = ACTIONS(4363),
+    [aux_sym_preproc_if_token1] = ACTIONS(4363),
+    [aux_sym_preproc_if_token2] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4363),
+    [aux_sym_preproc_else_token1] = ACTIONS(4363),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4363),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4363),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4363),
+    [sym_preproc_directive] = ACTIONS(4363),
+    [anon_sym_LPAREN2] = ACTIONS(4363),
+    [sym_preproc_comment] = ACTIONS(4365),
+    [anon_sym_PLUS] = ACTIONS(4367),
+    [anon_sym_DASH] = ACTIONS(4367),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4363),
+    [aux_sym_module_statement_token1] = ACTIONS(4363),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4363),
+    [aux_sym_interface_statement_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4363),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4363),
+    [aux_sym_function_statement_token1] = ACTIONS(4363),
+    [aux_sym_language_binding_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4363),
+    [aux_sym_contains_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token2] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4363),
+    [aux_sym_save_statement_token1] = ACTIONS(4363),
+    [aux_sym_private_statement_token1] = ACTIONS(4363),
+    [aux_sym_public_statement_token1] = ACTIONS(4363),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4363),
+    [aux_sym_common_statement_token1] = ACTIONS(4363),
+    [aux_sym_import_statement_token1] = ACTIONS(4363),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4363),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4363),
+    [aux_sym_derived_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4363),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4363),
+    [anon_sym_SEMI] = ACTIONS(4367),
+    [aux_sym_stop_statement_token1] = ACTIONS(4363),
+    [aux_sym_stop_statement_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4363),
+    [aux_sym_include_statement_token1] = ACTIONS(4363),
+    [aux_sym_data_statement_token1] = ACTIONS(4363),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4363),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4363),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4363),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4363),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4363),
+    [aux_sym_block_construct_token1] = ACTIONS(4363),
+    [aux_sym_associate_statement_token1] = ACTIONS(4363),
+    [aux_sym_format_statement_token1] = ACTIONS(4363),
+    [aux_sym_print_statement_token1] = ACTIONS(4363),
+    [aux_sym_open_statement_token1] = ACTIONS(4363),
+    [aux_sym_close_statement_token1] = ACTIONS(4363),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4363),
+    [aux_sym_enum_statement_token1] = ACTIONS(4363),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4363),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4363),
+    [aux_sym_entry_statement_token1] = ACTIONS(4363),
+    [aux_sym_logical_expression_token5] = ACTIONS(4367),
+    [anon_sym_DOT] = ACTIONS(4363),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4367),
+    [anon_sym_LBRACK] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4367),
+    [aux_sym_null_literal_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4363),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4363),
+    [aux_sym_identifier_token1] = ACTIONS(4363),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4367),
+    [sym__float_literal] = ACTIONS(4367),
+    [sym__boz_literal] = ACTIONS(4367),
+    [sym__string_literal] = ACTIONS(4367),
+    [sym__string_literal_kind] = ACTIONS(4367),
+  },
+  [831] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4277),
     [aux_sym_preproc_def_token1] = ACTIONS(4277),
     [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [aux_sym_preproc_else_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4301),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
     [sym_preproc_directive] = ACTIONS(4277),
     [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(4303),
+    [sym_preproc_comment] = ACTIONS(4371),
     [anon_sym_PLUS] = ACTIONS(4283),
     [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
@@ -207359,2341 +208824,735 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4283),
     [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [821] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [aux_sym_preproc_else_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(4309),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4313),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_module_statement_token1] = ACTIONS(4313),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4313),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4313),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_function_statement_token1] = ACTIONS(4313),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4313),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [822] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(4319),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [823] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4325),
-    [aux_sym_preproc_def_token1] = ACTIONS(4325),
-    [aux_sym_preproc_if_token1] = ACTIONS(4325),
-    [aux_sym_preproc_if_token2] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4325),
-    [aux_sym_preproc_else_token1] = ACTIONS(4325),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4325),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4325),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4325),
-    [sym_preproc_directive] = ACTIONS(4325),
-    [anon_sym_LPAREN2] = ACTIONS(4325),
-    [sym_preproc_comment] = ACTIONS(4327),
-    [anon_sym_PLUS] = ACTIONS(4329),
-    [anon_sym_DASH] = ACTIONS(4329),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4325),
-    [aux_sym_module_statement_token1] = ACTIONS(4325),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4325),
-    [aux_sym_interface_statement_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4325),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4325),
-    [aux_sym_function_statement_token1] = ACTIONS(4325),
-    [aux_sym_language_binding_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4325),
-    [aux_sym_contains_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token2] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4325),
-    [aux_sym_save_statement_token1] = ACTIONS(4325),
-    [aux_sym_private_statement_token1] = ACTIONS(4325),
-    [aux_sym_public_statement_token1] = ACTIONS(4325),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4325),
-    [aux_sym_common_statement_token1] = ACTIONS(4325),
-    [aux_sym_import_statement_token1] = ACTIONS(4325),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4325),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4325),
-    [aux_sym_derived_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4325),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4325),
-    [anon_sym_SEMI] = ACTIONS(4329),
-    [aux_sym_stop_statement_token1] = ACTIONS(4325),
-    [aux_sym_stop_statement_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4325),
-    [aux_sym_include_statement_token1] = ACTIONS(4325),
-    [aux_sym_data_statement_token1] = ACTIONS(4325),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4325),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4325),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4325),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4325),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4325),
-    [aux_sym_block_construct_token1] = ACTIONS(4325),
-    [aux_sym_associate_statement_token1] = ACTIONS(4325),
-    [aux_sym_format_statement_token1] = ACTIONS(4325),
-    [aux_sym_print_statement_token1] = ACTIONS(4325),
-    [aux_sym_open_statement_token1] = ACTIONS(4325),
-    [aux_sym_close_statement_token1] = ACTIONS(4325),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4325),
-    [aux_sym_enum_statement_token1] = ACTIONS(4325),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4325),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4325),
-    [aux_sym_entry_statement_token1] = ACTIONS(4325),
-    [aux_sym_logical_expression_token5] = ACTIONS(4329),
-    [anon_sym_DOT] = ACTIONS(4325),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4329),
-    [anon_sym_LBRACK] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4329),
-    [aux_sym_null_literal_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4325),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4325),
-    [aux_sym_identifier_token1] = ACTIONS(4325),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4329),
-    [sym__float_literal] = ACTIONS(4329),
-    [sym__boz_literal] = ACTIONS(4329),
-    [sym__string_literal] = ACTIONS(4329),
-    [sym__string_literal_kind] = ACTIONS(4329),
-  },
-  [824] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4323),
-    [aux_sym_preproc_def_token1] = ACTIONS(4323),
-    [aux_sym_preproc_if_token1] = ACTIONS(4323),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4323),
-    [aux_sym_preproc_else_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4323),
-    [sym_preproc_directive] = ACTIONS(4323),
-    [anon_sym_LPAREN2] = ACTIONS(4323),
-    [sym_preproc_comment] = ACTIONS(4331),
-    [anon_sym_PLUS] = ACTIONS(4333),
-    [anon_sym_DASH] = ACTIONS(4333),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4323),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4323),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4323),
-    [aux_sym_contains_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token2] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4323),
-    [aux_sym_save_statement_token1] = ACTIONS(4323),
-    [aux_sym_private_statement_token1] = ACTIONS(4323),
-    [aux_sym_public_statement_token1] = ACTIONS(4323),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4323),
-    [aux_sym_common_statement_token1] = ACTIONS(4323),
-    [aux_sym_import_statement_token1] = ACTIONS(4323),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4323),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4323),
-    [aux_sym_derived_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4323),
-    [anon_sym_SEMI] = ACTIONS(4333),
-    [aux_sym_stop_statement_token1] = ACTIONS(4323),
-    [aux_sym_stop_statement_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4323),
-    [aux_sym_include_statement_token1] = ACTIONS(4323),
-    [aux_sym_data_statement_token1] = ACTIONS(4323),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4323),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4323),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4323),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4323),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4323),
-    [aux_sym_block_construct_token1] = ACTIONS(4323),
-    [aux_sym_associate_statement_token1] = ACTIONS(4323),
-    [aux_sym_format_statement_token1] = ACTIONS(4323),
-    [aux_sym_print_statement_token1] = ACTIONS(4323),
-    [aux_sym_open_statement_token1] = ACTIONS(4323),
-    [aux_sym_close_statement_token1] = ACTIONS(4323),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4323),
-    [aux_sym_enum_statement_token1] = ACTIONS(4323),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4323),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4323),
-    [aux_sym_entry_statement_token1] = ACTIONS(4323),
-    [aux_sym_logical_expression_token5] = ACTIONS(4333),
-    [anon_sym_DOT] = ACTIONS(4323),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4333),
-    [anon_sym_LBRACK] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4333),
-    [aux_sym_null_literal_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4323),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4323),
-    [aux_sym_identifier_token1] = ACTIONS(4323),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4333),
-    [sym__float_literal] = ACTIONS(4333),
-    [sym__boz_literal] = ACTIONS(4333),
-    [sym__string_literal] = ACTIONS(4333),
-    [sym__string_literal_kind] = ACTIONS(4333),
-  },
-  [825] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4335),
-    [aux_sym_preproc_def_token1] = ACTIONS(4335),
-    [aux_sym_preproc_if_token1] = ACTIONS(4335),
-    [aux_sym_preproc_if_token2] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4335),
-    [aux_sym_preproc_else_token1] = ACTIONS(4335),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4335),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4335),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4335),
-    [sym_preproc_directive] = ACTIONS(4335),
-    [anon_sym_LPAREN2] = ACTIONS(4335),
-    [sym_preproc_comment] = ACTIONS(4337),
-    [anon_sym_PLUS] = ACTIONS(4339),
-    [anon_sym_DASH] = ACTIONS(4339),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4335),
-    [aux_sym_module_statement_token1] = ACTIONS(4335),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4335),
-    [aux_sym_interface_statement_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4335),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4335),
-    [aux_sym_function_statement_token1] = ACTIONS(4335),
-    [aux_sym_language_binding_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4335),
-    [aux_sym_contains_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token2] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4335),
-    [aux_sym_save_statement_token1] = ACTIONS(4335),
-    [aux_sym_private_statement_token1] = ACTIONS(4335),
-    [aux_sym_public_statement_token1] = ACTIONS(4335),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4335),
-    [aux_sym_common_statement_token1] = ACTIONS(4335),
-    [aux_sym_import_statement_token1] = ACTIONS(4335),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4335),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4335),
-    [aux_sym_derived_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4335),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4335),
-    [anon_sym_SEMI] = ACTIONS(4339),
-    [aux_sym_stop_statement_token1] = ACTIONS(4335),
-    [aux_sym_stop_statement_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4335),
-    [aux_sym_include_statement_token1] = ACTIONS(4335),
-    [aux_sym_data_statement_token1] = ACTIONS(4335),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4335),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4335),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4335),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4335),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4335),
-    [aux_sym_block_construct_token1] = ACTIONS(4335),
-    [aux_sym_associate_statement_token1] = ACTIONS(4335),
-    [aux_sym_format_statement_token1] = ACTIONS(4335),
-    [aux_sym_print_statement_token1] = ACTIONS(4335),
-    [aux_sym_open_statement_token1] = ACTIONS(4335),
-    [aux_sym_close_statement_token1] = ACTIONS(4335),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4335),
-    [aux_sym_enum_statement_token1] = ACTIONS(4335),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4335),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4335),
-    [aux_sym_entry_statement_token1] = ACTIONS(4335),
-    [aux_sym_logical_expression_token5] = ACTIONS(4339),
-    [anon_sym_DOT] = ACTIONS(4335),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4339),
-    [anon_sym_LBRACK] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4339),
-    [aux_sym_null_literal_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4335),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4335),
-    [aux_sym_identifier_token1] = ACTIONS(4335),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4339),
-    [sym__float_literal] = ACTIONS(4339),
-    [sym__boz_literal] = ACTIONS(4339),
-    [sym__string_literal] = ACTIONS(4339),
-    [sym__string_literal_kind] = ACTIONS(4339),
-  },
-  [826] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4341),
-    [aux_sym_preproc_def_token1] = ACTIONS(4341),
-    [aux_sym_preproc_if_token1] = ACTIONS(4341),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4341),
-    [aux_sym_preproc_else_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4341),
-    [sym_preproc_directive] = ACTIONS(4341),
-    [anon_sym_LPAREN2] = ACTIONS(4341),
-    [sym_preproc_comment] = ACTIONS(4343),
-    [anon_sym_PLUS] = ACTIONS(4345),
-    [anon_sym_DASH] = ACTIONS(4345),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4341),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4341),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4341),
-    [aux_sym_contains_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token2] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4341),
-    [aux_sym_save_statement_token1] = ACTIONS(4341),
-    [aux_sym_private_statement_token1] = ACTIONS(4341),
-    [aux_sym_public_statement_token1] = ACTIONS(4341),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4341),
-    [aux_sym_common_statement_token1] = ACTIONS(4341),
-    [aux_sym_import_statement_token1] = ACTIONS(4341),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4341),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4341),
-    [aux_sym_derived_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4341),
-    [anon_sym_SEMI] = ACTIONS(4345),
-    [aux_sym_stop_statement_token1] = ACTIONS(4341),
-    [aux_sym_stop_statement_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4341),
-    [aux_sym_include_statement_token1] = ACTIONS(4341),
-    [aux_sym_data_statement_token1] = ACTIONS(4341),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4341),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4341),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4341),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4341),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4341),
-    [aux_sym_block_construct_token1] = ACTIONS(4341),
-    [aux_sym_associate_statement_token1] = ACTIONS(4341),
-    [aux_sym_format_statement_token1] = ACTIONS(4341),
-    [aux_sym_print_statement_token1] = ACTIONS(4341),
-    [aux_sym_open_statement_token1] = ACTIONS(4341),
-    [aux_sym_close_statement_token1] = ACTIONS(4341),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4341),
-    [aux_sym_enum_statement_token1] = ACTIONS(4341),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4341),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4341),
-    [aux_sym_entry_statement_token1] = ACTIONS(4341),
-    [aux_sym_logical_expression_token5] = ACTIONS(4345),
-    [anon_sym_DOT] = ACTIONS(4341),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
-    [anon_sym_LBRACK] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
-    [aux_sym_null_literal_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4341),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4341),
-    [aux_sym_identifier_token1] = ACTIONS(4341),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4345),
-    [sym__float_literal] = ACTIONS(4345),
-    [sym__boz_literal] = ACTIONS(4345),
-    [sym__string_literal] = ACTIONS(4345),
-    [sym__string_literal_kind] = ACTIONS(4345),
-  },
-  [827] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(4351),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [828] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4355),
-    [aux_sym_preproc_def_token1] = ACTIONS(4355),
-    [aux_sym_preproc_if_token1] = ACTIONS(4355),
-    [aux_sym_preproc_if_token2] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4355),
-    [aux_sym_preproc_else_token1] = ACTIONS(4355),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4355),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4355),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4355),
-    [sym_preproc_directive] = ACTIONS(4355),
-    [anon_sym_LPAREN2] = ACTIONS(4355),
-    [sym_preproc_comment] = ACTIONS(4357),
-    [anon_sym_PLUS] = ACTIONS(4359),
-    [anon_sym_DASH] = ACTIONS(4359),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4355),
-    [aux_sym_module_statement_token1] = ACTIONS(4355),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4355),
-    [aux_sym_interface_statement_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4355),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4355),
-    [aux_sym_function_statement_token1] = ACTIONS(4355),
-    [aux_sym_language_binding_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4355),
-    [aux_sym_contains_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token2] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4355),
-    [aux_sym_save_statement_token1] = ACTIONS(4355),
-    [aux_sym_private_statement_token1] = ACTIONS(4355),
-    [aux_sym_public_statement_token1] = ACTIONS(4355),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4355),
-    [aux_sym_common_statement_token1] = ACTIONS(4355),
-    [aux_sym_import_statement_token1] = ACTIONS(4355),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4355),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4355),
-    [aux_sym_derived_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4355),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4355),
-    [anon_sym_SEMI] = ACTIONS(4359),
-    [aux_sym_stop_statement_token1] = ACTIONS(4355),
-    [aux_sym_stop_statement_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4355),
-    [aux_sym_include_statement_token1] = ACTIONS(4355),
-    [aux_sym_data_statement_token1] = ACTIONS(4355),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4355),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4355),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4355),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4355),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4355),
-    [aux_sym_block_construct_token1] = ACTIONS(4355),
-    [aux_sym_associate_statement_token1] = ACTIONS(4355),
-    [aux_sym_format_statement_token1] = ACTIONS(4355),
-    [aux_sym_print_statement_token1] = ACTIONS(4355),
-    [aux_sym_open_statement_token1] = ACTIONS(4355),
-    [aux_sym_close_statement_token1] = ACTIONS(4355),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4355),
-    [aux_sym_enum_statement_token1] = ACTIONS(4355),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4355),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4355),
-    [aux_sym_entry_statement_token1] = ACTIONS(4355),
-    [aux_sym_logical_expression_token5] = ACTIONS(4359),
-    [anon_sym_DOT] = ACTIONS(4355),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4359),
-    [anon_sym_LBRACK] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4359),
-    [aux_sym_null_literal_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4355),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4355),
-    [aux_sym_identifier_token1] = ACTIONS(4355),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4359),
-    [sym__float_literal] = ACTIONS(4359),
-    [sym__boz_literal] = ACTIONS(4359),
-    [sym__string_literal] = ACTIONS(4359),
-    [sym__string_literal_kind] = ACTIONS(4359),
-  },
-  [829] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [aux_sym_preproc_else_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
-    [sym_preproc_comment] = ACTIONS(4363),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
-  },
-  [830] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4367),
-    [aux_sym_preproc_def_token1] = ACTIONS(4367),
-    [aux_sym_preproc_if_token1] = ACTIONS(4367),
-    [aux_sym_preproc_if_token2] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4367),
-    [aux_sym_preproc_else_token1] = ACTIONS(4367),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4367),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4367),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4367),
-    [sym_preproc_directive] = ACTIONS(4367),
-    [anon_sym_LPAREN2] = ACTIONS(4367),
-    [sym_preproc_comment] = ACTIONS(4369),
-    [anon_sym_PLUS] = ACTIONS(4371),
-    [anon_sym_DASH] = ACTIONS(4371),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4367),
-    [aux_sym_module_statement_token1] = ACTIONS(4367),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4367),
-    [aux_sym_interface_statement_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4367),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4367),
-    [aux_sym_function_statement_token1] = ACTIONS(4367),
-    [aux_sym_language_binding_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4367),
-    [aux_sym_contains_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token2] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4367),
-    [aux_sym_save_statement_token1] = ACTIONS(4367),
-    [aux_sym_private_statement_token1] = ACTIONS(4367),
-    [aux_sym_public_statement_token1] = ACTIONS(4367),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4367),
-    [aux_sym_common_statement_token1] = ACTIONS(4367),
-    [aux_sym_import_statement_token1] = ACTIONS(4367),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4367),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4367),
-    [aux_sym_derived_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4367),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4367),
-    [anon_sym_SEMI] = ACTIONS(4371),
-    [aux_sym_stop_statement_token1] = ACTIONS(4367),
-    [aux_sym_stop_statement_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4367),
-    [aux_sym_include_statement_token1] = ACTIONS(4367),
-    [aux_sym_data_statement_token1] = ACTIONS(4367),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4367),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4367),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4367),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4367),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4367),
-    [aux_sym_block_construct_token1] = ACTIONS(4367),
-    [aux_sym_associate_statement_token1] = ACTIONS(4367),
-    [aux_sym_format_statement_token1] = ACTIONS(4367),
-    [aux_sym_print_statement_token1] = ACTIONS(4367),
-    [aux_sym_open_statement_token1] = ACTIONS(4367),
-    [aux_sym_close_statement_token1] = ACTIONS(4367),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4367),
-    [aux_sym_enum_statement_token1] = ACTIONS(4367),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4367),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4367),
-    [aux_sym_entry_statement_token1] = ACTIONS(4367),
-    [aux_sym_logical_expression_token5] = ACTIONS(4371),
-    [anon_sym_DOT] = ACTIONS(4367),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4371),
-    [anon_sym_LBRACK] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4371),
-    [aux_sym_null_literal_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4367),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4367),
-    [aux_sym_identifier_token1] = ACTIONS(4367),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4371),
-    [sym__float_literal] = ACTIONS(4371),
-    [sym__boz_literal] = ACTIONS(4371),
-    [sym__string_literal] = ACTIONS(4371),
-    [sym__string_literal_kind] = ACTIONS(4371),
-  },
-  [831] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [aux_sym_preproc_else_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [sym_preproc_comment] = ACTIONS(4375),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
-  },
   [832] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4379),
-    [aux_sym_preproc_def_token1] = ACTIONS(4379),
-    [aux_sym_preproc_if_token1] = ACTIONS(4379),
-    [aux_sym_preproc_if_token2] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4379),
-    [aux_sym_preproc_else_token1] = ACTIONS(4379),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4379),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4379),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4379),
-    [sym_preproc_directive] = ACTIONS(4379),
-    [anon_sym_LPAREN2] = ACTIONS(4379),
-    [sym_preproc_comment] = ACTIONS(4381),
-    [anon_sym_PLUS] = ACTIONS(4383),
-    [anon_sym_DASH] = ACTIONS(4383),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4379),
-    [aux_sym_module_statement_token1] = ACTIONS(4379),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4379),
-    [aux_sym_interface_statement_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4379),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4379),
-    [aux_sym_function_statement_token1] = ACTIONS(4379),
-    [aux_sym_language_binding_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4379),
-    [aux_sym_contains_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token2] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4379),
-    [aux_sym_save_statement_token1] = ACTIONS(4379),
-    [aux_sym_private_statement_token1] = ACTIONS(4379),
-    [aux_sym_public_statement_token1] = ACTIONS(4379),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4379),
-    [aux_sym_common_statement_token1] = ACTIONS(4379),
-    [aux_sym_import_statement_token1] = ACTIONS(4379),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4379),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4379),
-    [aux_sym_derived_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4379),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4379),
-    [anon_sym_SEMI] = ACTIONS(4383),
-    [aux_sym_stop_statement_token1] = ACTIONS(4379),
-    [aux_sym_stop_statement_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4379),
-    [aux_sym_include_statement_token1] = ACTIONS(4379),
-    [aux_sym_data_statement_token1] = ACTIONS(4379),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4379),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4379),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4379),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4379),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4379),
-    [aux_sym_block_construct_token1] = ACTIONS(4379),
-    [aux_sym_associate_statement_token1] = ACTIONS(4379),
-    [aux_sym_format_statement_token1] = ACTIONS(4379),
-    [aux_sym_print_statement_token1] = ACTIONS(4379),
-    [aux_sym_open_statement_token1] = ACTIONS(4379),
-    [aux_sym_close_statement_token1] = ACTIONS(4379),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4379),
-    [aux_sym_enum_statement_token1] = ACTIONS(4379),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4379),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4379),
-    [aux_sym_entry_statement_token1] = ACTIONS(4379),
-    [aux_sym_logical_expression_token5] = ACTIONS(4383),
-    [anon_sym_DOT] = ACTIONS(4379),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4383),
-    [anon_sym_LBRACK] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4383),
-    [aux_sym_null_literal_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4379),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4379),
-    [aux_sym_identifier_token1] = ACTIONS(4379),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4383),
-    [sym__float_literal] = ACTIONS(4383),
-    [sym__boz_literal] = ACTIONS(4383),
-    [sym__string_literal] = ACTIONS(4383),
-    [sym__string_literal_kind] = ACTIONS(4383),
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token2] = ACTIONS(4337),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [aux_sym_preproc_else_token1] = ACTIONS(4337),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4337),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4337),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4337),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(4373),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4337),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_module_statement_token1] = ACTIONS(4337),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4337),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4337),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_function_statement_token1] = ACTIONS(4337),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4337),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
   },
   [833] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4385),
-    [aux_sym_preproc_def_token1] = ACTIONS(4385),
-    [aux_sym_preproc_if_token1] = ACTIONS(4385),
-    [aux_sym_preproc_if_token2] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4385),
-    [aux_sym_preproc_else_token1] = ACTIONS(4385),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4385),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4385),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4385),
-    [sym_preproc_directive] = ACTIONS(4385),
-    [anon_sym_LPAREN2] = ACTIONS(4385),
-    [sym_preproc_comment] = ACTIONS(4387),
-    [anon_sym_PLUS] = ACTIONS(4389),
-    [anon_sym_DASH] = ACTIONS(4389),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4385),
-    [aux_sym_module_statement_token1] = ACTIONS(4385),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4385),
-    [aux_sym_interface_statement_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4385),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4385),
-    [aux_sym_function_statement_token1] = ACTIONS(4385),
-    [aux_sym_language_binding_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4385),
-    [aux_sym_contains_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token2] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4385),
-    [aux_sym_save_statement_token1] = ACTIONS(4385),
-    [aux_sym_private_statement_token1] = ACTIONS(4385),
-    [aux_sym_public_statement_token1] = ACTIONS(4385),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4385),
-    [aux_sym_common_statement_token1] = ACTIONS(4385),
-    [aux_sym_import_statement_token1] = ACTIONS(4385),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4385),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4385),
-    [aux_sym_derived_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4385),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4385),
-    [anon_sym_SEMI] = ACTIONS(4389),
-    [aux_sym_stop_statement_token1] = ACTIONS(4385),
-    [aux_sym_stop_statement_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4385),
-    [aux_sym_include_statement_token1] = ACTIONS(4385),
-    [aux_sym_data_statement_token1] = ACTIONS(4385),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4385),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4385),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4385),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4385),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4385),
-    [aux_sym_block_construct_token1] = ACTIONS(4385),
-    [aux_sym_associate_statement_token1] = ACTIONS(4385),
-    [aux_sym_format_statement_token1] = ACTIONS(4385),
-    [aux_sym_print_statement_token1] = ACTIONS(4385),
-    [aux_sym_open_statement_token1] = ACTIONS(4385),
-    [aux_sym_close_statement_token1] = ACTIONS(4385),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4385),
-    [aux_sym_enum_statement_token1] = ACTIONS(4385),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4385),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4385),
-    [aux_sym_entry_statement_token1] = ACTIONS(4385),
-    [aux_sym_logical_expression_token5] = ACTIONS(4389),
-    [anon_sym_DOT] = ACTIONS(4385),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4389),
-    [anon_sym_LBRACK] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4389),
-    [aux_sym_null_literal_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4385),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4385),
-    [aux_sym_identifier_token1] = ACTIONS(4385),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4389),
-    [sym__float_literal] = ACTIONS(4389),
-    [sym__boz_literal] = ACTIONS(4389),
-    [sym__string_literal] = ACTIONS(4389),
-    [sym__string_literal_kind] = ACTIONS(4389),
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [aux_sym_preproc_else_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [sym_preproc_comment] = ACTIONS(4377),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
   },
   [834] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token2] = ACTIONS(4313),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [aux_sym_preproc_else_token1] = ACTIONS(4313),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4313),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4313),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4313),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(4391),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4313),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_module_statement_token1] = ACTIONS(4313),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4313),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4313),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_function_statement_token1] = ACTIONS(4313),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4313),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token2] = ACTIONS(4383),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [aux_sym_preproc_else_token1] = ACTIONS(4383),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4383),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4383),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4383),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(4385),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4383),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_module_statement_token1] = ACTIONS(4383),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4383),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4383),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_function_statement_token1] = ACTIONS(4383),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4383),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
   },
   [835] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [aux_sym_preproc_else_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4323),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(4393),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token2] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [aux_sym_preproc_else_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_LPAREN2] = ACTIONS(4389),
+    [sym_preproc_comment] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4389),
+    [aux_sym_module_statement_token1] = ACTIONS(4389),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_function_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4389),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4389),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [anon_sym_SEMI] = ACTIONS(4391),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4389),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4389),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_associate_statement_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_print_statement_token1] = ACTIONS(4389),
+    [aux_sym_open_statement_token1] = ACTIONS(4389),
+    [aux_sym_close_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4389),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_logical_expression_token5] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4391),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
+    [sym__float_literal] = ACTIONS(4391),
+    [sym__boz_literal] = ACTIONS(4391),
+    [sym__string_literal] = ACTIONS(4391),
+    [sym__string_literal_kind] = ACTIONS(4391),
   },
   [836] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [aux_sym_preproc_else_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4341),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [aux_sym_preproc_else_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
     [sym_preproc_comment] = ACTIONS(4395),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4383),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_module_statement_token1] = ACTIONS(4383),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4383),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4383),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_function_statement_token1] = ACTIONS(4383),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4383),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
   },
   [837] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4397),
@@ -210421,6 +210280,151 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(4415),
   },
   [842] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [843] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4417),
     [aux_sym_preproc_def_token1] = ACTIONS(4417),
     [aux_sym_preproc_if_token1] = ACTIONS(4417),
@@ -210565,33 +210569,33 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4419),
     [sym__string_literal_kind] = ACTIONS(4419),
   },
-  [843] = {
+  [844] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4421),
     [aux_sym_preproc_def_token1] = ACTIONS(4421),
     [aux_sym_preproc_if_token1] = ACTIONS(4421),
-    [aux_sym_preproc_if_token2] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
-    [aux_sym_preproc_else_token1] = ACTIONS(4421),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4421),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4421),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4421),
+    [aux_sym_preproc_else_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4305),
     [sym_preproc_directive] = ACTIONS(4421),
     [anon_sym_LPAREN2] = ACTIONS(4421),
     [anon_sym_PLUS] = ACTIONS(4423),
     [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
     [aux_sym_end_program_statement_token1] = ACTIONS(4421),
     [aux_sym_end_program_statement_token2] = ACTIONS(4421),
-    [aux_sym_module_statement_token1] = ACTIONS(4421),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
     [aux_sym_interface_statement_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
-    [aux_sym_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
     [aux_sym_language_binding_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
@@ -210643,11 +210647,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
     [aux_sym_type_qualifier_token1] = ACTIONS(4421),
     [aux_sym_type_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4421),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
     [anon_sym_SEMI] = ACTIONS(4423),
     [aux_sym_stop_statement_token1] = ACTIONS(4421),
@@ -210710,7 +210714,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4423),
     [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [844] = {
+  [845] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4425),
     [aux_sym_preproc_def_token1] = ACTIONS(4425),
     [aux_sym_preproc_if_token1] = ACTIONS(4425),
@@ -210855,7 +210859,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4427),
     [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [845] = {
+  [846] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4429),
     [aux_sym_preproc_def_token1] = ACTIONS(4429),
     [aux_sym_preproc_if_token1] = ACTIONS(4429),
@@ -211000,7 +211004,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4431),
     [sym__string_literal_kind] = ACTIONS(4431),
   },
-  [846] = {
+  [847] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4433),
     [aux_sym_preproc_def_token1] = ACTIONS(4433),
     [aux_sym_preproc_if_token1] = ACTIONS(4433),
@@ -211145,166 +211149,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4435),
     [sym__string_literal_kind] = ACTIONS(4435),
   },
-  [847] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(376),
-    [aux_sym_preproc_def_token1] = ACTIONS(376),
-    [aux_sym_preproc_if_token1] = ACTIONS(376),
-    [aux_sym_preproc_if_token2] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
-    [aux_sym_preproc_else_token1] = ACTIONS(376),
-    [aux_sym_preproc_elif_token1] = ACTIONS(376),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(376),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(376),
-    [sym_preproc_directive] = ACTIONS(376),
-    [anon_sym_LPAREN2] = ACTIONS(376),
-    [anon_sym_PLUS] = ACTIONS(692),
-    [anon_sym_DASH] = ACTIONS(692),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token2] = ACTIONS(376),
-    [aux_sym_module_statement_token1] = ACTIONS(376),
-    [aux_sym_submodule_statement_token1] = ACTIONS(376),
-    [aux_sym_interface_statement_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
-    [aux_sym_function_statement_token1] = ACTIONS(376),
-    [aux_sym_language_binding_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
-    [aux_sym_contains_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token2] = ACTIONS(376),
-    [aux_sym_implicit_statement_token1] = ACTIONS(376),
-    [aux_sym_implicit_statement_token3] = ACTIONS(376),
-    [aux_sym_implicit_statement_token4] = ACTIONS(376),
-    [aux_sym_save_statement_token1] = ACTIONS(376),
-    [aux_sym_private_statement_token1] = ACTIONS(376),
-    [aux_sym_public_statement_token1] = ACTIONS(376),
-    [aux_sym_namelist_statement_token1] = ACTIONS(376),
-    [aux_sym_common_statement_token1] = ACTIONS(376),
-    [aux_sym_import_statement_token1] = ACTIONS(376),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
-    [aux_sym_variable_attributes_token1] = ACTIONS(376),
-    [aux_sym_variable_attributes_token2] = ACTIONS(376),
-    [aux_sym_variable_attributes_token3] = ACTIONS(376),
-    [aux_sym_variable_attributes_token4] = ACTIONS(376),
-    [aux_sym_variable_attributes_token5] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
-    [aux_sym_derived_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
-    [aux_sym_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
-    [anon_sym_SEMI] = ACTIONS(692),
-    [aux_sym_stop_statement_token1] = ACTIONS(376),
-    [aux_sym_stop_statement_token2] = ACTIONS(376),
-    [aux_sym_subroutine_call_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token2] = ACTIONS(376),
-    [aux_sym_keyword_statement_token3] = ACTIONS(376),
-    [aux_sym_keyword_statement_token4] = ACTIONS(376),
-    [aux_sym_keyword_statement_token6] = ACTIONS(376),
-    [aux_sym_keyword_statement_token7] = ACTIONS(376),
-    [aux_sym_include_statement_token1] = ACTIONS(376),
-    [aux_sym_data_statement_token1] = ACTIONS(376),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
-    [aux_sym_end_if_statement_token1] = ACTIONS(376),
-    [aux_sym_elseif_clause_token2] = ACTIONS(376),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token3] = ACTIONS(376),
-    [aux_sym_select_type_statement_token1] = ACTIONS(376),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
-    [aux_sym_block_construct_token1] = ACTIONS(376),
-    [aux_sym_associate_statement_token1] = ACTIONS(376),
-    [aux_sym_format_statement_token1] = ACTIONS(376),
-    [aux_sym_print_statement_token1] = ACTIONS(376),
-    [aux_sym_open_statement_token1] = ACTIONS(376),
-    [aux_sym_close_statement_token1] = ACTIONS(376),
-    [aux_sym_inquire_statement_token1] = ACTIONS(376),
-    [aux_sym_enum_statement_token1] = ACTIONS(376),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token2] = ACTIONS(376),
-    [aux_sym_file_position_statement_token3] = ACTIONS(376),
-    [aux_sym_file_position_statement_token4] = ACTIONS(376),
-    [aux_sym_allocate_statement_token1] = ACTIONS(376),
-    [aux_sym_entry_statement_token1] = ACTIONS(376),
-    [aux_sym_logical_expression_token5] = ACTIONS(692),
-    [anon_sym_DOT] = ACTIONS(376),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(692),
-    [anon_sym_LBRACK] = ACTIONS(692),
-    [aux_sym_boolean_literal_token1] = ACTIONS(692),
-    [aux_sym_boolean_literal_token2] = ACTIONS(692),
-    [aux_sym_null_literal_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token2] = ACTIONS(376),
-    [aux_sym_coarray_statement_token6] = ACTIONS(376),
-    [aux_sym_coarray_statement_token8] = ACTIONS(376),
-    [aux_sym_coarray_statement_token11] = ACTIONS(376),
-    [aux_sym_coarray_statement_token12] = ACTIONS(376),
-    [aux_sym_coarray_statement_token13] = ACTIONS(376),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
-    [aux_sym_identifier_token1] = ACTIONS(376),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(692),
-    [sym__float_literal] = ACTIONS(692),
-    [sym__boz_literal] = ACTIONS(692),
-    [sym__string_literal] = ACTIONS(692),
-    [sym__string_literal_kind] = ACTIONS(692),
-  },
-  [848] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4437),
-    [aux_sym_preproc_def_token1] = ACTIONS(4437),
-    [aux_sym_preproc_if_token1] = ACTIONS(4437),
-    [aux_sym_preproc_if_token2] = ACTIONS(4437),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
-    [aux_sym_preproc_else_token1] = ACTIONS(4437),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4437),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4437),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4437),
-    [sym_preproc_directive] = ACTIONS(4437),
-    [anon_sym_LPAREN2] = ACTIONS(4437),
-    [anon_sym_PLUS] = ACTIONS(4439),
-    [anon_sym_DASH] = ACTIONS(4439),
+  [848] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [aux_sym_preproc_else_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_program_statement_token1] = ACTIONS(4437),
     [aux_sym_end_program_statement_token1] = ACTIONS(4437),
@@ -212161,151 +212020,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(4459),
   },
   [854] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [855] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4461),
     [aux_sym_preproc_def_token1] = ACTIONS(4461),
     [aux_sym_preproc_if_token1] = ACTIONS(4461),
@@ -212450,7 +212164,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4463),
     [sym__string_literal_kind] = ACTIONS(4463),
   },
-  [856] = {
+  [855] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4465),
     [aux_sym_preproc_def_token1] = ACTIONS(4465),
     [aux_sym_preproc_if_token1] = ACTIONS(4465),
@@ -212595,7 +212309,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4467),
     [sym__string_literal_kind] = ACTIONS(4467),
   },
-  [857] = {
+  [856] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4469),
     [aux_sym_preproc_def_token1] = ACTIONS(4469),
     [aux_sym_preproc_if_token1] = ACTIONS(4469),
@@ -212740,7 +212454,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4471),
     [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [858] = {
+  [857] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4473),
     [aux_sym_preproc_def_token1] = ACTIONS(4473),
     [aux_sym_preproc_if_token1] = ACTIONS(4473),
@@ -212885,7 +212599,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4475),
     [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [859] = {
+  [858] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4477),
     [aux_sym_preproc_def_token1] = ACTIONS(4477),
     [aux_sym_preproc_if_token1] = ACTIONS(4477),
@@ -213030,7 +212744,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4479),
     [sym__string_literal_kind] = ACTIONS(4479),
   },
-  [860] = {
+  [859] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4481),
     [aux_sym_preproc_def_token1] = ACTIONS(4481),
     [aux_sym_preproc_if_token1] = ACTIONS(4481),
@@ -213175,6 +212889,151 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4483),
     [sym__string_literal_kind] = ACTIONS(4483),
   },
+  [860] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [aux_sym_preproc_else_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
+  },
   [861] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4485),
     [aux_sym_preproc_def_token1] = ACTIONS(4485),
@@ -213611,177 +213470,32 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(4495),
   },
   [864] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [865] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4497),
     [aux_sym_preproc_def_token1] = ACTIONS(4497),
     [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
+    [aux_sym_preproc_if_token2] = ACTIONS(4497),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
+    [aux_sym_preproc_else_token1] = ACTIONS(4497),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4497),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4497),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4497),
     [sym_preproc_directive] = ACTIONS(4497),
     [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+    [anon_sym_PLUS] = ACTIONS(4499),
+    [anon_sym_DASH] = ACTIONS(4499),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
+    [aux_sym_program_statement_token1] = ACTIONS(4497),
     [aux_sym_end_program_statement_token1] = ACTIONS(4497),
     [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
+    [aux_sym_module_statement_token1] = ACTIONS(4497),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4497),
     [aux_sym_interface_statement_token1] = ACTIONS(4497),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4497),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
+    [aux_sym_function_statement_token1] = ACTIONS(4497),
     [aux_sym_language_binding_token1] = ACTIONS(4497),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
@@ -213833,13 +213547,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
     [aux_sym_type_qualifier_token1] = ACTIONS(4497),
     [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4497),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
+    [anon_sym_SEMI] = ACTIONS(4499),
     [aux_sym_stop_statement_token1] = ACTIONS(4497),
     [aux_sym_stop_statement_token2] = ACTIONS(4497),
     [aux_sym_subroutine_call_token1] = ACTIONS(4497),
@@ -213876,12 +213590,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4497),
     [aux_sym_allocate_statement_token1] = ACTIONS(4497),
     [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
+    [aux_sym_logical_expression_token5] = ACTIONS(4499),
     [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4499),
+    [anon_sym_LBRACK] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4499),
     [aux_sym_null_literal_token1] = ACTIONS(4497),
     [aux_sym_coarray_statement_token1] = ACTIONS(4497),
     [aux_sym_coarray_statement_token2] = ACTIONS(4497),
@@ -213894,5088 +213608,4943 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
     [aux_sym_identifier_token1] = ACTIONS(4497),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(4499),
+    [sym__float_literal] = ACTIONS(4499),
+    [sym__boz_literal] = ACTIONS(4499),
+    [sym__string_literal] = ACTIONS(4499),
+    [sym__string_literal_kind] = ACTIONS(4499),
+  },
+  [865] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4501),
+    [aux_sym_preproc_def_token1] = ACTIONS(4501),
+    [aux_sym_preproc_if_token1] = ACTIONS(4501),
+    [aux_sym_preproc_if_token2] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4501),
+    [aux_sym_preproc_else_token1] = ACTIONS(4501),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4501),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4501),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4501),
+    [sym_preproc_directive] = ACTIONS(4501),
+    [anon_sym_LPAREN2] = ACTIONS(4501),
+    [anon_sym_PLUS] = ACTIONS(4503),
+    [anon_sym_DASH] = ACTIONS(4503),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4501),
+    [aux_sym_module_statement_token1] = ACTIONS(4501),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4501),
+    [aux_sym_interface_statement_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4501),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4501),
+    [aux_sym_function_statement_token1] = ACTIONS(4501),
+    [aux_sym_language_binding_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4501),
+    [aux_sym_contains_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token2] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4501),
+    [aux_sym_save_statement_token1] = ACTIONS(4501),
+    [aux_sym_private_statement_token1] = ACTIONS(4501),
+    [aux_sym_public_statement_token1] = ACTIONS(4501),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4501),
+    [aux_sym_common_statement_token1] = ACTIONS(4501),
+    [aux_sym_import_statement_token1] = ACTIONS(4501),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4501),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4501),
+    [aux_sym_derived_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4501),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4501),
+    [anon_sym_SEMI] = ACTIONS(4503),
+    [aux_sym_stop_statement_token1] = ACTIONS(4501),
+    [aux_sym_stop_statement_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4501),
+    [aux_sym_include_statement_token1] = ACTIONS(4501),
+    [aux_sym_data_statement_token1] = ACTIONS(4501),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4501),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4501),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4501),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4501),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4501),
+    [aux_sym_block_construct_token1] = ACTIONS(4501),
+    [aux_sym_associate_statement_token1] = ACTIONS(4501),
+    [aux_sym_format_statement_token1] = ACTIONS(4501),
+    [aux_sym_print_statement_token1] = ACTIONS(4501),
+    [aux_sym_open_statement_token1] = ACTIONS(4501),
+    [aux_sym_close_statement_token1] = ACTIONS(4501),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4501),
+    [aux_sym_enum_statement_token1] = ACTIONS(4501),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4501),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4501),
+    [aux_sym_entry_statement_token1] = ACTIONS(4501),
+    [aux_sym_logical_expression_token5] = ACTIONS(4503),
+    [anon_sym_DOT] = ACTIONS(4501),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4503),
+    [anon_sym_LBRACK] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4503),
+    [aux_sym_null_literal_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4501),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4501),
+    [aux_sym_identifier_token1] = ACTIONS(4501),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4503),
+    [sym__float_literal] = ACTIONS(4503),
+    [sym__boz_literal] = ACTIONS(4503),
+    [sym__string_literal] = ACTIONS(4503),
+    [sym__string_literal_kind] = ACTIONS(4503),
   },
   [866] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4503),
-    [aux_sym_preproc_def_token1] = ACTIONS(4503),
-    [aux_sym_preproc_if_token1] = ACTIONS(4503),
-    [aux_sym_preproc_if_token2] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4503),
-    [aux_sym_preproc_else_token1] = ACTIONS(4503),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4503),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4503),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4503),
-    [sym_preproc_directive] = ACTIONS(4503),
-    [anon_sym_LPAREN2] = ACTIONS(4503),
-    [anon_sym_PLUS] = ACTIONS(4505),
-    [anon_sym_DASH] = ACTIONS(4505),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4503),
-    [aux_sym_module_statement_token1] = ACTIONS(4503),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4503),
-    [aux_sym_interface_statement_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4503),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4503),
-    [aux_sym_function_statement_token1] = ACTIONS(4503),
-    [aux_sym_language_binding_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4503),
-    [aux_sym_contains_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token2] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4503),
-    [aux_sym_save_statement_token1] = ACTIONS(4503),
-    [aux_sym_private_statement_token1] = ACTIONS(4503),
-    [aux_sym_public_statement_token1] = ACTIONS(4503),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4503),
-    [aux_sym_common_statement_token1] = ACTIONS(4503),
-    [aux_sym_import_statement_token1] = ACTIONS(4503),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4503),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4503),
-    [aux_sym_derived_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4503),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4503),
-    [anon_sym_SEMI] = ACTIONS(4505),
-    [aux_sym_stop_statement_token1] = ACTIONS(4503),
-    [aux_sym_stop_statement_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4503),
-    [aux_sym_include_statement_token1] = ACTIONS(4503),
-    [aux_sym_data_statement_token1] = ACTIONS(4503),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4503),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4503),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4503),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4503),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4503),
-    [aux_sym_block_construct_token1] = ACTIONS(4503),
-    [aux_sym_associate_statement_token1] = ACTIONS(4503),
-    [aux_sym_format_statement_token1] = ACTIONS(4503),
-    [aux_sym_print_statement_token1] = ACTIONS(4503),
-    [aux_sym_open_statement_token1] = ACTIONS(4503),
-    [aux_sym_close_statement_token1] = ACTIONS(4503),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4503),
-    [aux_sym_enum_statement_token1] = ACTIONS(4503),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4503),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4503),
-    [aux_sym_entry_statement_token1] = ACTIONS(4503),
-    [aux_sym_logical_expression_token5] = ACTIONS(4505),
-    [anon_sym_DOT] = ACTIONS(4503),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4505),
-    [anon_sym_LBRACK] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4505),
-    [aux_sym_null_literal_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4503),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4503),
-    [aux_sym_identifier_token1] = ACTIONS(4503),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4505),
-    [sym__float_literal] = ACTIONS(4505),
-    [sym__boz_literal] = ACTIONS(4505),
-    [sym__string_literal] = ACTIONS(4505),
-    [sym__string_literal_kind] = ACTIONS(4505),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [aux_sym_preproc_else_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4293),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
   [867] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [aux_sym_preproc_else_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
+    [aux_sym_preproc_include_token1] = ACTIONS(4505),
+    [aux_sym_preproc_def_token1] = ACTIONS(4505),
+    [aux_sym_preproc_if_token1] = ACTIONS(4505),
+    [aux_sym_preproc_if_token2] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4505),
+    [aux_sym_preproc_else_token1] = ACTIONS(4505),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4505),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4505),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4505),
+    [sym_preproc_directive] = ACTIONS(4505),
+    [anon_sym_LPAREN2] = ACTIONS(4505),
+    [anon_sym_PLUS] = ACTIONS(4507),
+    [anon_sym_DASH] = ACTIONS(4507),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4505),
+    [aux_sym_module_statement_token1] = ACTIONS(4505),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4505),
+    [aux_sym_interface_statement_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4505),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4505),
+    [aux_sym_function_statement_token1] = ACTIONS(4505),
+    [aux_sym_language_binding_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4505),
+    [aux_sym_contains_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token2] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4505),
+    [aux_sym_save_statement_token1] = ACTIONS(4505),
+    [aux_sym_private_statement_token1] = ACTIONS(4505),
+    [aux_sym_public_statement_token1] = ACTIONS(4505),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4505),
+    [aux_sym_common_statement_token1] = ACTIONS(4505),
+    [aux_sym_import_statement_token1] = ACTIONS(4505),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4505),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4505),
+    [aux_sym_derived_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4505),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4505),
+    [anon_sym_SEMI] = ACTIONS(4507),
+    [aux_sym_stop_statement_token1] = ACTIONS(4505),
+    [aux_sym_stop_statement_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4505),
+    [aux_sym_include_statement_token1] = ACTIONS(4505),
+    [aux_sym_data_statement_token1] = ACTIONS(4505),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4505),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4505),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4505),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4505),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4505),
+    [aux_sym_block_construct_token1] = ACTIONS(4505),
+    [aux_sym_associate_statement_token1] = ACTIONS(4505),
+    [aux_sym_format_statement_token1] = ACTIONS(4505),
+    [aux_sym_print_statement_token1] = ACTIONS(4505),
+    [aux_sym_open_statement_token1] = ACTIONS(4505),
+    [aux_sym_close_statement_token1] = ACTIONS(4505),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4505),
+    [aux_sym_enum_statement_token1] = ACTIONS(4505),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4505),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4505),
+    [aux_sym_entry_statement_token1] = ACTIONS(4505),
+    [aux_sym_logical_expression_token5] = ACTIONS(4507),
+    [anon_sym_DOT] = ACTIONS(4505),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4507),
+    [anon_sym_LBRACK] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4507),
+    [aux_sym_null_literal_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4505),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4505),
+    [aux_sym_identifier_token1] = ACTIONS(4505),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4507),
+    [sym__float_literal] = ACTIONS(4507),
+    [sym__boz_literal] = ACTIONS(4507),
+    [sym__string_literal] = ACTIONS(4507),
+    [sym__string_literal_kind] = ACTIONS(4507),
   },
   [868] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4507),
-    [aux_sym_preproc_def_token1] = ACTIONS(4507),
-    [aux_sym_preproc_if_token1] = ACTIONS(4507),
-    [aux_sym_preproc_if_token2] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4507),
-    [aux_sym_preproc_else_token1] = ACTIONS(4507),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4507),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4507),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4507),
-    [sym_preproc_directive] = ACTIONS(4507),
-    [anon_sym_LPAREN2] = ACTIONS(4507),
-    [anon_sym_PLUS] = ACTIONS(4509),
-    [anon_sym_DASH] = ACTIONS(4509),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4507),
-    [aux_sym_module_statement_token1] = ACTIONS(4507),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4507),
-    [aux_sym_interface_statement_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4507),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4507),
-    [aux_sym_function_statement_token1] = ACTIONS(4507),
-    [aux_sym_language_binding_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4507),
-    [aux_sym_contains_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token2] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4507),
-    [aux_sym_save_statement_token1] = ACTIONS(4507),
-    [aux_sym_private_statement_token1] = ACTIONS(4507),
-    [aux_sym_public_statement_token1] = ACTIONS(4507),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4507),
-    [aux_sym_common_statement_token1] = ACTIONS(4507),
-    [aux_sym_import_statement_token1] = ACTIONS(4507),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4507),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4507),
-    [aux_sym_derived_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4507),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4507),
-    [anon_sym_SEMI] = ACTIONS(4509),
-    [aux_sym_stop_statement_token1] = ACTIONS(4507),
-    [aux_sym_stop_statement_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4507),
-    [aux_sym_include_statement_token1] = ACTIONS(4507),
-    [aux_sym_data_statement_token1] = ACTIONS(4507),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4507),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4507),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4507),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4507),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4507),
-    [aux_sym_block_construct_token1] = ACTIONS(4507),
-    [aux_sym_associate_statement_token1] = ACTIONS(4507),
-    [aux_sym_format_statement_token1] = ACTIONS(4507),
-    [aux_sym_print_statement_token1] = ACTIONS(4507),
-    [aux_sym_open_statement_token1] = ACTIONS(4507),
-    [aux_sym_close_statement_token1] = ACTIONS(4507),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4507),
-    [aux_sym_enum_statement_token1] = ACTIONS(4507),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4507),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4507),
-    [aux_sym_entry_statement_token1] = ACTIONS(4507),
-    [aux_sym_logical_expression_token5] = ACTIONS(4509),
-    [anon_sym_DOT] = ACTIONS(4507),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4509),
-    [anon_sym_LBRACK] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4509),
-    [aux_sym_null_literal_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4507),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4507),
-    [aux_sym_identifier_token1] = ACTIONS(4507),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4509),
-    [sym__float_literal] = ACTIONS(4509),
-    [sym__boz_literal] = ACTIONS(4509),
-    [sym__string_literal] = ACTIONS(4509),
-    [sym__string_literal_kind] = ACTIONS(4509),
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [aux_sym_preproc_else_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
   [869] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4511),
-    [aux_sym_preproc_def_token1] = ACTIONS(4511),
-    [aux_sym_preproc_if_token1] = ACTIONS(4511),
-    [aux_sym_preproc_if_token2] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4511),
-    [aux_sym_preproc_else_token1] = ACTIONS(4511),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4511),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4511),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4511),
-    [sym_preproc_directive] = ACTIONS(4511),
-    [anon_sym_LPAREN2] = ACTIONS(4511),
-    [anon_sym_PLUS] = ACTIONS(4513),
-    [anon_sym_DASH] = ACTIONS(4513),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4511),
-    [aux_sym_module_statement_token1] = ACTIONS(4511),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4511),
-    [aux_sym_interface_statement_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4511),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4511),
-    [aux_sym_function_statement_token1] = ACTIONS(4511),
-    [aux_sym_language_binding_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4511),
-    [aux_sym_contains_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token2] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4511),
-    [aux_sym_save_statement_token1] = ACTIONS(4511),
-    [aux_sym_private_statement_token1] = ACTIONS(4511),
-    [aux_sym_public_statement_token1] = ACTIONS(4511),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4511),
-    [aux_sym_common_statement_token1] = ACTIONS(4511),
-    [aux_sym_import_statement_token1] = ACTIONS(4511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4511),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4511),
-    [aux_sym_derived_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4511),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4511),
-    [anon_sym_SEMI] = ACTIONS(4513),
-    [aux_sym_stop_statement_token1] = ACTIONS(4511),
-    [aux_sym_stop_statement_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4511),
-    [aux_sym_include_statement_token1] = ACTIONS(4511),
-    [aux_sym_data_statement_token1] = ACTIONS(4511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4511),
-    [aux_sym_block_construct_token1] = ACTIONS(4511),
-    [aux_sym_associate_statement_token1] = ACTIONS(4511),
-    [aux_sym_format_statement_token1] = ACTIONS(4511),
-    [aux_sym_print_statement_token1] = ACTIONS(4511),
-    [aux_sym_open_statement_token1] = ACTIONS(4511),
-    [aux_sym_close_statement_token1] = ACTIONS(4511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4511),
-    [aux_sym_enum_statement_token1] = ACTIONS(4511),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4511),
-    [aux_sym_entry_statement_token1] = ACTIONS(4511),
-    [aux_sym_logical_expression_token5] = ACTIONS(4513),
-    [anon_sym_DOT] = ACTIONS(4511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4513),
-    [anon_sym_LBRACK] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4513),
-    [aux_sym_null_literal_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4511),
-    [aux_sym_identifier_token1] = ACTIONS(4511),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4513),
-    [sym__float_literal] = ACTIONS(4513),
-    [sym__boz_literal] = ACTIONS(4513),
-    [sym__string_literal] = ACTIONS(4513),
-    [sym__string_literal_kind] = ACTIONS(4513),
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_module_statement_token1] = ACTIONS(4513),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_function_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
   [870] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4515),
-    [aux_sym_preproc_def_token1] = ACTIONS(4515),
-    [aux_sym_preproc_if_token1] = ACTIONS(4515),
-    [aux_sym_preproc_if_token2] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4515),
-    [aux_sym_preproc_else_token1] = ACTIONS(4515),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4515),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4515),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4515),
-    [sym_preproc_directive] = ACTIONS(4515),
-    [anon_sym_LPAREN2] = ACTIONS(4515),
-    [anon_sym_PLUS] = ACTIONS(4517),
-    [anon_sym_DASH] = ACTIONS(4517),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4515),
-    [aux_sym_module_statement_token1] = ACTIONS(4515),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4515),
-    [aux_sym_interface_statement_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4515),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4515),
-    [aux_sym_function_statement_token1] = ACTIONS(4515),
-    [aux_sym_language_binding_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4515),
-    [aux_sym_contains_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token2] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4515),
-    [aux_sym_save_statement_token1] = ACTIONS(4515),
-    [aux_sym_private_statement_token1] = ACTIONS(4515),
-    [aux_sym_public_statement_token1] = ACTIONS(4515),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4515),
-    [aux_sym_common_statement_token1] = ACTIONS(4515),
-    [aux_sym_import_statement_token1] = ACTIONS(4515),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4515),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4515),
-    [aux_sym_derived_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4515),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4515),
-    [anon_sym_SEMI] = ACTIONS(4517),
-    [aux_sym_stop_statement_token1] = ACTIONS(4515),
-    [aux_sym_stop_statement_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4515),
-    [aux_sym_include_statement_token1] = ACTIONS(4515),
-    [aux_sym_data_statement_token1] = ACTIONS(4515),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4515),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4515),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4515),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4515),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4515),
-    [aux_sym_block_construct_token1] = ACTIONS(4515),
-    [aux_sym_associate_statement_token1] = ACTIONS(4515),
-    [aux_sym_format_statement_token1] = ACTIONS(4515),
-    [aux_sym_print_statement_token1] = ACTIONS(4515),
-    [aux_sym_open_statement_token1] = ACTIONS(4515),
-    [aux_sym_close_statement_token1] = ACTIONS(4515),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4515),
-    [aux_sym_enum_statement_token1] = ACTIONS(4515),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4515),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4515),
-    [aux_sym_entry_statement_token1] = ACTIONS(4515),
-    [aux_sym_logical_expression_token5] = ACTIONS(4517),
-    [anon_sym_DOT] = ACTIONS(4515),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4517),
-    [anon_sym_LBRACK] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4517),
-    [aux_sym_null_literal_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4515),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4515),
-    [aux_sym_identifier_token1] = ACTIONS(4515),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4517),
-    [sym__float_literal] = ACTIONS(4517),
-    [sym__boz_literal] = ACTIONS(4517),
-    [sym__string_literal] = ACTIONS(4517),
-    [sym__string_literal_kind] = ACTIONS(4517),
+    [aux_sym_preproc_include_token1] = ACTIONS(4517),
+    [aux_sym_preproc_def_token1] = ACTIONS(4517),
+    [aux_sym_preproc_if_token1] = ACTIONS(4517),
+    [aux_sym_preproc_if_token2] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4517),
+    [aux_sym_preproc_else_token1] = ACTIONS(4517),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4517),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4517),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4517),
+    [sym_preproc_directive] = ACTIONS(4517),
+    [anon_sym_LPAREN2] = ACTIONS(4517),
+    [anon_sym_PLUS] = ACTIONS(4519),
+    [anon_sym_DASH] = ACTIONS(4519),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4517),
+    [aux_sym_module_statement_token1] = ACTIONS(4517),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4517),
+    [aux_sym_interface_statement_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4517),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4517),
+    [aux_sym_function_statement_token1] = ACTIONS(4517),
+    [aux_sym_language_binding_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4517),
+    [aux_sym_contains_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token2] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4517),
+    [aux_sym_save_statement_token1] = ACTIONS(4517),
+    [aux_sym_private_statement_token1] = ACTIONS(4517),
+    [aux_sym_public_statement_token1] = ACTIONS(4517),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4517),
+    [aux_sym_common_statement_token1] = ACTIONS(4517),
+    [aux_sym_import_statement_token1] = ACTIONS(4517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4517),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4517),
+    [aux_sym_derived_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4517),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4517),
+    [anon_sym_SEMI] = ACTIONS(4519),
+    [aux_sym_stop_statement_token1] = ACTIONS(4517),
+    [aux_sym_stop_statement_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4517),
+    [aux_sym_include_statement_token1] = ACTIONS(4517),
+    [aux_sym_data_statement_token1] = ACTIONS(4517),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4517),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4517),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4517),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4517),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4517),
+    [aux_sym_block_construct_token1] = ACTIONS(4517),
+    [aux_sym_associate_statement_token1] = ACTIONS(4517),
+    [aux_sym_format_statement_token1] = ACTIONS(4517),
+    [aux_sym_print_statement_token1] = ACTIONS(4517),
+    [aux_sym_open_statement_token1] = ACTIONS(4517),
+    [aux_sym_close_statement_token1] = ACTIONS(4517),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4517),
+    [aux_sym_enum_statement_token1] = ACTIONS(4517),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4517),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4517),
+    [aux_sym_entry_statement_token1] = ACTIONS(4517),
+    [aux_sym_logical_expression_token5] = ACTIONS(4519),
+    [anon_sym_DOT] = ACTIONS(4517),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4519),
+    [anon_sym_LBRACK] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4519),
+    [aux_sym_null_literal_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4517),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4517),
+    [aux_sym_identifier_token1] = ACTIONS(4517),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4519),
+    [sym__float_literal] = ACTIONS(4519),
+    [sym__boz_literal] = ACTIONS(4519),
+    [sym__string_literal] = ACTIONS(4519),
+    [sym__string_literal_kind] = ACTIONS(4519),
   },
   [871] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4519),
-    [aux_sym_preproc_def_token1] = ACTIONS(4519),
-    [aux_sym_preproc_if_token1] = ACTIONS(4519),
-    [aux_sym_preproc_if_token2] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4519),
-    [aux_sym_preproc_else_token1] = ACTIONS(4519),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4519),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4519),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4519),
-    [sym_preproc_directive] = ACTIONS(4519),
-    [anon_sym_LPAREN2] = ACTIONS(4519),
-    [anon_sym_PLUS] = ACTIONS(4521),
-    [anon_sym_DASH] = ACTIONS(4521),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4519),
-    [aux_sym_module_statement_token1] = ACTIONS(4519),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4519),
-    [aux_sym_interface_statement_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4519),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4519),
-    [aux_sym_function_statement_token1] = ACTIONS(4519),
-    [aux_sym_language_binding_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4519),
-    [aux_sym_contains_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token2] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4519),
-    [aux_sym_save_statement_token1] = ACTIONS(4519),
-    [aux_sym_private_statement_token1] = ACTIONS(4519),
-    [aux_sym_public_statement_token1] = ACTIONS(4519),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4519),
-    [aux_sym_common_statement_token1] = ACTIONS(4519),
-    [aux_sym_import_statement_token1] = ACTIONS(4519),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4519),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4519),
-    [aux_sym_derived_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4519),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4519),
-    [anon_sym_SEMI] = ACTIONS(4521),
-    [aux_sym_stop_statement_token1] = ACTIONS(4519),
-    [aux_sym_stop_statement_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4519),
-    [aux_sym_include_statement_token1] = ACTIONS(4519),
-    [aux_sym_data_statement_token1] = ACTIONS(4519),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4519),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4519),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4519),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4519),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4519),
-    [aux_sym_block_construct_token1] = ACTIONS(4519),
-    [aux_sym_associate_statement_token1] = ACTIONS(4519),
-    [aux_sym_format_statement_token1] = ACTIONS(4519),
-    [aux_sym_print_statement_token1] = ACTIONS(4519),
-    [aux_sym_open_statement_token1] = ACTIONS(4519),
-    [aux_sym_close_statement_token1] = ACTIONS(4519),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4519),
-    [aux_sym_enum_statement_token1] = ACTIONS(4519),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4519),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4519),
-    [aux_sym_entry_statement_token1] = ACTIONS(4519),
-    [aux_sym_logical_expression_token5] = ACTIONS(4521),
-    [anon_sym_DOT] = ACTIONS(4519),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4521),
-    [anon_sym_LBRACK] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4521),
-    [aux_sym_null_literal_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4519),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4519),
-    [aux_sym_identifier_token1] = ACTIONS(4519),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4521),
-    [sym__float_literal] = ACTIONS(4521),
-    [sym__boz_literal] = ACTIONS(4521),
-    [sym__string_literal] = ACTIONS(4521),
-    [sym__string_literal_kind] = ACTIONS(4521),
+    [aux_sym_preproc_include_token1] = ACTIONS(376),
+    [aux_sym_preproc_def_token1] = ACTIONS(376),
+    [aux_sym_preproc_if_token1] = ACTIONS(376),
+    [aux_sym_preproc_if_token2] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
+    [aux_sym_preproc_else_token1] = ACTIONS(376),
+    [aux_sym_preproc_elif_token1] = ACTIONS(376),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(376),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(376),
+    [sym_preproc_directive] = ACTIONS(376),
+    [anon_sym_LPAREN2] = ACTIONS(376),
+    [anon_sym_PLUS] = ACTIONS(718),
+    [anon_sym_DASH] = ACTIONS(718),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token2] = ACTIONS(376),
+    [aux_sym_module_statement_token1] = ACTIONS(376),
+    [aux_sym_submodule_statement_token1] = ACTIONS(376),
+    [aux_sym_interface_statement_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
+    [aux_sym_function_statement_token1] = ACTIONS(376),
+    [aux_sym_language_binding_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
+    [aux_sym_contains_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token2] = ACTIONS(376),
+    [aux_sym_implicit_statement_token1] = ACTIONS(376),
+    [aux_sym_implicit_statement_token3] = ACTIONS(376),
+    [aux_sym_implicit_statement_token4] = ACTIONS(376),
+    [aux_sym_save_statement_token1] = ACTIONS(376),
+    [aux_sym_private_statement_token1] = ACTIONS(376),
+    [aux_sym_public_statement_token1] = ACTIONS(376),
+    [aux_sym_namelist_statement_token1] = ACTIONS(376),
+    [aux_sym_common_statement_token1] = ACTIONS(376),
+    [aux_sym_import_statement_token1] = ACTIONS(376),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
+    [aux_sym_variable_attributes_token1] = ACTIONS(376),
+    [aux_sym_variable_attributes_token2] = ACTIONS(376),
+    [aux_sym_variable_attributes_token3] = ACTIONS(376),
+    [aux_sym_variable_attributes_token4] = ACTIONS(376),
+    [aux_sym_variable_attributes_token5] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
+    [aux_sym_derived_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
+    [aux_sym_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
+    [anon_sym_SEMI] = ACTIONS(718),
+    [aux_sym_stop_statement_token1] = ACTIONS(376),
+    [aux_sym_stop_statement_token2] = ACTIONS(376),
+    [aux_sym_subroutine_call_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token2] = ACTIONS(376),
+    [aux_sym_keyword_statement_token3] = ACTIONS(376),
+    [aux_sym_keyword_statement_token4] = ACTIONS(376),
+    [aux_sym_keyword_statement_token6] = ACTIONS(376),
+    [aux_sym_keyword_statement_token7] = ACTIONS(376),
+    [aux_sym_include_statement_token1] = ACTIONS(376),
+    [aux_sym_data_statement_token1] = ACTIONS(376),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
+    [aux_sym_end_if_statement_token1] = ACTIONS(376),
+    [aux_sym_elseif_clause_token2] = ACTIONS(376),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token3] = ACTIONS(376),
+    [aux_sym_select_type_statement_token1] = ACTIONS(376),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
+    [aux_sym_block_construct_token1] = ACTIONS(376),
+    [aux_sym_associate_statement_token1] = ACTIONS(376),
+    [aux_sym_format_statement_token1] = ACTIONS(376),
+    [aux_sym_print_statement_token1] = ACTIONS(376),
+    [aux_sym_open_statement_token1] = ACTIONS(376),
+    [aux_sym_close_statement_token1] = ACTIONS(376),
+    [aux_sym_inquire_statement_token1] = ACTIONS(376),
+    [aux_sym_enum_statement_token1] = ACTIONS(376),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token2] = ACTIONS(376),
+    [aux_sym_file_position_statement_token3] = ACTIONS(376),
+    [aux_sym_file_position_statement_token4] = ACTIONS(376),
+    [aux_sym_allocate_statement_token1] = ACTIONS(376),
+    [aux_sym_entry_statement_token1] = ACTIONS(376),
+    [aux_sym_logical_expression_token5] = ACTIONS(718),
+    [anon_sym_DOT] = ACTIONS(376),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(718),
+    [anon_sym_LBRACK] = ACTIONS(718),
+    [aux_sym_boolean_literal_token1] = ACTIONS(718),
+    [aux_sym_boolean_literal_token2] = ACTIONS(718),
+    [aux_sym_null_literal_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token2] = ACTIONS(376),
+    [aux_sym_coarray_statement_token6] = ACTIONS(376),
+    [aux_sym_coarray_statement_token8] = ACTIONS(376),
+    [aux_sym_coarray_statement_token11] = ACTIONS(376),
+    [aux_sym_coarray_statement_token12] = ACTIONS(376),
+    [aux_sym_coarray_statement_token13] = ACTIONS(376),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
+    [aux_sym_identifier_token1] = ACTIONS(376),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(718),
+    [sym__float_literal] = ACTIONS(718),
+    [sym__boz_literal] = ACTIONS(718),
+    [sym__string_literal] = ACTIONS(718),
+    [sym__string_literal_kind] = ACTIONS(718),
   },
   [872] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [aux_sym_preproc_else_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
+    [aux_sym_preproc_include_token1] = ACTIONS(4521),
+    [aux_sym_preproc_def_token1] = ACTIONS(4521),
+    [aux_sym_preproc_if_token1] = ACTIONS(4521),
+    [aux_sym_preproc_if_token2] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4521),
+    [aux_sym_preproc_else_token1] = ACTIONS(4521),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4521),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4521),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4521),
+    [sym_preproc_directive] = ACTIONS(4521),
+    [anon_sym_LPAREN2] = ACTIONS(4521),
+    [anon_sym_PLUS] = ACTIONS(4523),
+    [anon_sym_DASH] = ACTIONS(4523),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4521),
+    [aux_sym_module_statement_token1] = ACTIONS(4521),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4521),
+    [aux_sym_interface_statement_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4521),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4521),
+    [aux_sym_function_statement_token1] = ACTIONS(4521),
+    [aux_sym_language_binding_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4521),
+    [aux_sym_contains_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token2] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4521),
+    [aux_sym_save_statement_token1] = ACTIONS(4521),
+    [aux_sym_private_statement_token1] = ACTIONS(4521),
+    [aux_sym_public_statement_token1] = ACTIONS(4521),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4521),
+    [aux_sym_common_statement_token1] = ACTIONS(4521),
+    [aux_sym_import_statement_token1] = ACTIONS(4521),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4521),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4521),
+    [aux_sym_derived_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4521),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4521),
+    [anon_sym_SEMI] = ACTIONS(4523),
+    [aux_sym_stop_statement_token1] = ACTIONS(4521),
+    [aux_sym_stop_statement_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4521),
+    [aux_sym_include_statement_token1] = ACTIONS(4521),
+    [aux_sym_data_statement_token1] = ACTIONS(4521),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4521),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4521),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4521),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4521),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4521),
+    [aux_sym_block_construct_token1] = ACTIONS(4521),
+    [aux_sym_associate_statement_token1] = ACTIONS(4521),
+    [aux_sym_format_statement_token1] = ACTIONS(4521),
+    [aux_sym_print_statement_token1] = ACTIONS(4521),
+    [aux_sym_open_statement_token1] = ACTIONS(4521),
+    [aux_sym_close_statement_token1] = ACTIONS(4521),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4521),
+    [aux_sym_enum_statement_token1] = ACTIONS(4521),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4521),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4521),
+    [aux_sym_entry_statement_token1] = ACTIONS(4521),
+    [aux_sym_logical_expression_token5] = ACTIONS(4523),
+    [anon_sym_DOT] = ACTIONS(4521),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4523),
+    [anon_sym_LBRACK] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4523),
+    [aux_sym_null_literal_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4521),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4521),
+    [aux_sym_identifier_token1] = ACTIONS(4521),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4523),
+    [sym__float_literal] = ACTIONS(4523),
+    [sym__boz_literal] = ACTIONS(4523),
+    [sym__string_literal] = ACTIONS(4523),
+    [sym__string_literal_kind] = ACTIONS(4523),
   },
   [873] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
     [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
     [aux_sym_preproc_else_token1] = ACTIONS(4525),
     [aux_sym_preproc_elif_token1] = ACTIONS(4525),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
   [874] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_module_statement_token1] = ACTIONS(4529),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_function_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [aux_sym_preproc_include_token1] = ACTIONS(4527),
+    [aux_sym_preproc_def_token1] = ACTIONS(4527),
+    [aux_sym_preproc_if_token1] = ACTIONS(4527),
+    [aux_sym_preproc_if_token2] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4527),
+    [aux_sym_preproc_else_token1] = ACTIONS(4527),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4527),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4527),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4527),
+    [sym_preproc_directive] = ACTIONS(4527),
+    [anon_sym_LPAREN2] = ACTIONS(4527),
+    [anon_sym_PLUS] = ACTIONS(4529),
+    [anon_sym_DASH] = ACTIONS(4529),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4527),
+    [aux_sym_module_statement_token1] = ACTIONS(4527),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4527),
+    [aux_sym_interface_statement_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4527),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4527),
+    [aux_sym_function_statement_token1] = ACTIONS(4527),
+    [aux_sym_language_binding_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4527),
+    [aux_sym_contains_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token2] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4527),
+    [aux_sym_save_statement_token1] = ACTIONS(4527),
+    [aux_sym_private_statement_token1] = ACTIONS(4527),
+    [aux_sym_public_statement_token1] = ACTIONS(4527),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4527),
+    [aux_sym_common_statement_token1] = ACTIONS(4527),
+    [aux_sym_import_statement_token1] = ACTIONS(4527),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4527),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4527),
+    [aux_sym_derived_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4527),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4527),
+    [anon_sym_SEMI] = ACTIONS(4529),
+    [aux_sym_stop_statement_token1] = ACTIONS(4527),
+    [aux_sym_stop_statement_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4527),
+    [aux_sym_include_statement_token1] = ACTIONS(4527),
+    [aux_sym_data_statement_token1] = ACTIONS(4527),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4527),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4527),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4527),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4527),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4527),
+    [aux_sym_block_construct_token1] = ACTIONS(4527),
+    [aux_sym_associate_statement_token1] = ACTIONS(4527),
+    [aux_sym_format_statement_token1] = ACTIONS(4527),
+    [aux_sym_print_statement_token1] = ACTIONS(4527),
+    [aux_sym_open_statement_token1] = ACTIONS(4527),
+    [aux_sym_close_statement_token1] = ACTIONS(4527),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4527),
+    [aux_sym_enum_statement_token1] = ACTIONS(4527),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4527),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4527),
+    [aux_sym_entry_statement_token1] = ACTIONS(4527),
+    [aux_sym_logical_expression_token5] = ACTIONS(4529),
+    [anon_sym_DOT] = ACTIONS(4527),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4529),
+    [anon_sym_LBRACK] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4529),
+    [aux_sym_null_literal_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4527),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4527),
+    [aux_sym_identifier_token1] = ACTIONS(4527),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4529),
+    [sym__float_literal] = ACTIONS(4529),
+    [sym__boz_literal] = ACTIONS(4529),
+    [sym__string_literal] = ACTIONS(4529),
+    [sym__string_literal_kind] = ACTIONS(4529),
   },
   [875] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4533),
-    [aux_sym_preproc_def_token1] = ACTIONS(4533),
-    [aux_sym_preproc_if_token1] = ACTIONS(4533),
-    [aux_sym_preproc_if_token2] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4533),
-    [aux_sym_preproc_else_token1] = ACTIONS(4533),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4533),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4533),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4533),
-    [sym_preproc_directive] = ACTIONS(4533),
-    [anon_sym_LPAREN2] = ACTIONS(4533),
-    [anon_sym_PLUS] = ACTIONS(4535),
-    [anon_sym_DASH] = ACTIONS(4535),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4533),
-    [aux_sym_module_statement_token1] = ACTIONS(4533),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4533),
-    [aux_sym_interface_statement_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4533),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4533),
-    [aux_sym_function_statement_token1] = ACTIONS(4533),
-    [aux_sym_language_binding_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4533),
-    [aux_sym_contains_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token2] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4533),
-    [aux_sym_save_statement_token1] = ACTIONS(4533),
-    [aux_sym_private_statement_token1] = ACTIONS(4533),
-    [aux_sym_public_statement_token1] = ACTIONS(4533),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4533),
-    [aux_sym_common_statement_token1] = ACTIONS(4533),
-    [aux_sym_import_statement_token1] = ACTIONS(4533),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4533),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4533),
-    [aux_sym_derived_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4533),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4533),
-    [anon_sym_SEMI] = ACTIONS(4535),
-    [aux_sym_stop_statement_token1] = ACTIONS(4533),
-    [aux_sym_stop_statement_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4533),
-    [aux_sym_include_statement_token1] = ACTIONS(4533),
-    [aux_sym_data_statement_token1] = ACTIONS(4533),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4533),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4533),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4533),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4533),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4533),
-    [aux_sym_block_construct_token1] = ACTIONS(4533),
-    [aux_sym_associate_statement_token1] = ACTIONS(4533),
-    [aux_sym_format_statement_token1] = ACTIONS(4533),
-    [aux_sym_print_statement_token1] = ACTIONS(4533),
-    [aux_sym_open_statement_token1] = ACTIONS(4533),
-    [aux_sym_close_statement_token1] = ACTIONS(4533),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4533),
-    [aux_sym_enum_statement_token1] = ACTIONS(4533),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4533),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4533),
-    [aux_sym_entry_statement_token1] = ACTIONS(4533),
-    [aux_sym_logical_expression_token5] = ACTIONS(4535),
-    [anon_sym_DOT] = ACTIONS(4533),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4535),
-    [anon_sym_LBRACK] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4535),
-    [aux_sym_null_literal_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4533),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4533),
-    [aux_sym_identifier_token1] = ACTIONS(4533),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4535),
-    [sym__float_literal] = ACTIONS(4535),
-    [sym__boz_literal] = ACTIONS(4535),
-    [sym__string_literal] = ACTIONS(4535),
-    [sym__string_literal_kind] = ACTIONS(4535),
+    [aux_sym_preproc_include_token1] = ACTIONS(4531),
+    [aux_sym_preproc_def_token1] = ACTIONS(4531),
+    [aux_sym_preproc_if_token1] = ACTIONS(4531),
+    [aux_sym_preproc_if_token2] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4531),
+    [aux_sym_preproc_else_token1] = ACTIONS(4531),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4531),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4531),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4531),
+    [sym_preproc_directive] = ACTIONS(4531),
+    [anon_sym_LPAREN2] = ACTIONS(4531),
+    [anon_sym_PLUS] = ACTIONS(4533),
+    [anon_sym_DASH] = ACTIONS(4533),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4531),
+    [aux_sym_module_statement_token1] = ACTIONS(4531),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4531),
+    [aux_sym_interface_statement_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4531),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4531),
+    [aux_sym_function_statement_token1] = ACTIONS(4531),
+    [aux_sym_language_binding_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4531),
+    [aux_sym_contains_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token2] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4531),
+    [aux_sym_save_statement_token1] = ACTIONS(4531),
+    [aux_sym_private_statement_token1] = ACTIONS(4531),
+    [aux_sym_public_statement_token1] = ACTIONS(4531),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4531),
+    [aux_sym_common_statement_token1] = ACTIONS(4531),
+    [aux_sym_import_statement_token1] = ACTIONS(4531),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4531),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4531),
+    [aux_sym_derived_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4531),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4531),
+    [anon_sym_SEMI] = ACTIONS(4533),
+    [aux_sym_stop_statement_token1] = ACTIONS(4531),
+    [aux_sym_stop_statement_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4531),
+    [aux_sym_include_statement_token1] = ACTIONS(4531),
+    [aux_sym_data_statement_token1] = ACTIONS(4531),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4531),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4531),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4531),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4531),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4531),
+    [aux_sym_block_construct_token1] = ACTIONS(4531),
+    [aux_sym_associate_statement_token1] = ACTIONS(4531),
+    [aux_sym_format_statement_token1] = ACTIONS(4531),
+    [aux_sym_print_statement_token1] = ACTIONS(4531),
+    [aux_sym_open_statement_token1] = ACTIONS(4531),
+    [aux_sym_close_statement_token1] = ACTIONS(4531),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4531),
+    [aux_sym_enum_statement_token1] = ACTIONS(4531),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4531),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4531),
+    [aux_sym_entry_statement_token1] = ACTIONS(4531),
+    [aux_sym_logical_expression_token5] = ACTIONS(4533),
+    [anon_sym_DOT] = ACTIONS(4531),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4533),
+    [anon_sym_LBRACK] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4533),
+    [aux_sym_null_literal_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4531),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4531),
+    [aux_sym_identifier_token1] = ACTIONS(4531),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4533),
+    [sym__float_literal] = ACTIONS(4533),
+    [sym__boz_literal] = ACTIONS(4533),
+    [sym__string_literal] = ACTIONS(4533),
+    [sym__string_literal_kind] = ACTIONS(4533),
   },
   [876] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4537),
-    [aux_sym_preproc_def_token1] = ACTIONS(4537),
-    [aux_sym_preproc_if_token1] = ACTIONS(4537),
-    [aux_sym_preproc_if_token2] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4537),
-    [aux_sym_preproc_else_token1] = ACTIONS(4537),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4537),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4537),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4537),
-    [sym_preproc_directive] = ACTIONS(4537),
-    [anon_sym_LPAREN2] = ACTIONS(4537),
-    [anon_sym_PLUS] = ACTIONS(4539),
-    [anon_sym_DASH] = ACTIONS(4539),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4537),
-    [aux_sym_module_statement_token1] = ACTIONS(4537),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4537),
-    [aux_sym_interface_statement_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4537),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4537),
-    [aux_sym_function_statement_token1] = ACTIONS(4537),
-    [aux_sym_language_binding_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4537),
-    [aux_sym_contains_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token2] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4537),
-    [aux_sym_save_statement_token1] = ACTIONS(4537),
-    [aux_sym_private_statement_token1] = ACTIONS(4537),
-    [aux_sym_public_statement_token1] = ACTIONS(4537),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4537),
-    [aux_sym_common_statement_token1] = ACTIONS(4537),
-    [aux_sym_import_statement_token1] = ACTIONS(4537),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4537),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4537),
-    [aux_sym_derived_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4537),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4537),
-    [anon_sym_SEMI] = ACTIONS(4539),
-    [aux_sym_stop_statement_token1] = ACTIONS(4537),
-    [aux_sym_stop_statement_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4537),
-    [aux_sym_include_statement_token1] = ACTIONS(4537),
-    [aux_sym_data_statement_token1] = ACTIONS(4537),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4537),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4537),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4537),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4537),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4537),
-    [aux_sym_block_construct_token1] = ACTIONS(4537),
-    [aux_sym_associate_statement_token1] = ACTIONS(4537),
-    [aux_sym_format_statement_token1] = ACTIONS(4537),
-    [aux_sym_print_statement_token1] = ACTIONS(4537),
-    [aux_sym_open_statement_token1] = ACTIONS(4537),
-    [aux_sym_close_statement_token1] = ACTIONS(4537),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4537),
-    [aux_sym_enum_statement_token1] = ACTIONS(4537),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4537),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4537),
-    [aux_sym_entry_statement_token1] = ACTIONS(4537),
-    [aux_sym_logical_expression_token5] = ACTIONS(4539),
-    [anon_sym_DOT] = ACTIONS(4537),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4539),
-    [anon_sym_LBRACK] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4539),
-    [aux_sym_null_literal_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4537),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4537),
-    [aux_sym_identifier_token1] = ACTIONS(4537),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4539),
-    [sym__float_literal] = ACTIONS(4539),
-    [sym__boz_literal] = ACTIONS(4539),
-    [sym__string_literal] = ACTIONS(4539),
-    [sym__string_literal_kind] = ACTIONS(4539),
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_module_statement_token1] = ACTIONS(4535),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_function_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
   [877] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4541),
-    [aux_sym_preproc_def_token1] = ACTIONS(4541),
-    [aux_sym_preproc_if_token1] = ACTIONS(4541),
-    [aux_sym_preproc_if_token2] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4541),
-    [aux_sym_preproc_else_token1] = ACTIONS(4541),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4541),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4541),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4541),
-    [sym_preproc_directive] = ACTIONS(4541),
-    [anon_sym_LPAREN2] = ACTIONS(4541),
-    [anon_sym_PLUS] = ACTIONS(4543),
-    [anon_sym_DASH] = ACTIONS(4543),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4541),
-    [aux_sym_module_statement_token1] = ACTIONS(4541),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4541),
-    [aux_sym_interface_statement_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4541),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4541),
-    [aux_sym_function_statement_token1] = ACTIONS(4541),
-    [aux_sym_language_binding_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4541),
-    [aux_sym_contains_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token2] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4541),
-    [aux_sym_save_statement_token1] = ACTIONS(4541),
-    [aux_sym_private_statement_token1] = ACTIONS(4541),
-    [aux_sym_public_statement_token1] = ACTIONS(4541),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4541),
-    [aux_sym_common_statement_token1] = ACTIONS(4541),
-    [aux_sym_import_statement_token1] = ACTIONS(4541),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4541),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4541),
-    [aux_sym_derived_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4541),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4541),
-    [anon_sym_SEMI] = ACTIONS(4543),
-    [aux_sym_stop_statement_token1] = ACTIONS(4541),
-    [aux_sym_stop_statement_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4541),
-    [aux_sym_include_statement_token1] = ACTIONS(4541),
-    [aux_sym_data_statement_token1] = ACTIONS(4541),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4541),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4541),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4541),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4541),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4541),
-    [aux_sym_block_construct_token1] = ACTIONS(4541),
-    [aux_sym_associate_statement_token1] = ACTIONS(4541),
-    [aux_sym_format_statement_token1] = ACTIONS(4541),
-    [aux_sym_print_statement_token1] = ACTIONS(4541),
-    [aux_sym_open_statement_token1] = ACTIONS(4541),
-    [aux_sym_close_statement_token1] = ACTIONS(4541),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4541),
-    [aux_sym_enum_statement_token1] = ACTIONS(4541),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4541),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4541),
-    [aux_sym_entry_statement_token1] = ACTIONS(4541),
-    [aux_sym_logical_expression_token5] = ACTIONS(4543),
-    [anon_sym_DOT] = ACTIONS(4541),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4543),
-    [anon_sym_LBRACK] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4543),
-    [aux_sym_null_literal_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4541),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4541),
-    [aux_sym_identifier_token1] = ACTIONS(4541),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4543),
-    [sym__float_literal] = ACTIONS(4543),
-    [sym__boz_literal] = ACTIONS(4543),
-    [sym__string_literal] = ACTIONS(4543),
-    [sym__string_literal_kind] = ACTIONS(4543),
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_module_statement_token1] = ACTIONS(4539),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_function_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
   [878] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4545),
-    [aux_sym_preproc_def_token1] = ACTIONS(4545),
-    [aux_sym_preproc_if_token1] = ACTIONS(4545),
-    [aux_sym_preproc_if_token2] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4545),
-    [aux_sym_preproc_else_token1] = ACTIONS(4545),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4545),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4545),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4545),
-    [sym_preproc_directive] = ACTIONS(4545),
-    [anon_sym_LPAREN2] = ACTIONS(4545),
-    [anon_sym_PLUS] = ACTIONS(4547),
-    [anon_sym_DASH] = ACTIONS(4547),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4545),
-    [aux_sym_module_statement_token1] = ACTIONS(4545),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4545),
-    [aux_sym_interface_statement_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4545),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4545),
-    [aux_sym_function_statement_token1] = ACTIONS(4545),
-    [aux_sym_language_binding_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4545),
-    [aux_sym_contains_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token2] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4545),
-    [aux_sym_save_statement_token1] = ACTIONS(4545),
-    [aux_sym_private_statement_token1] = ACTIONS(4545),
-    [aux_sym_public_statement_token1] = ACTIONS(4545),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4545),
-    [aux_sym_common_statement_token1] = ACTIONS(4545),
-    [aux_sym_import_statement_token1] = ACTIONS(4545),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4545),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4545),
-    [aux_sym_derived_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4545),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4545),
-    [anon_sym_SEMI] = ACTIONS(4547),
-    [aux_sym_stop_statement_token1] = ACTIONS(4545),
-    [aux_sym_stop_statement_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4545),
-    [aux_sym_include_statement_token1] = ACTIONS(4545),
-    [aux_sym_data_statement_token1] = ACTIONS(4545),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4545),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4545),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4545),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4545),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4545),
-    [aux_sym_block_construct_token1] = ACTIONS(4545),
-    [aux_sym_associate_statement_token1] = ACTIONS(4545),
-    [aux_sym_format_statement_token1] = ACTIONS(4545),
-    [aux_sym_print_statement_token1] = ACTIONS(4545),
-    [aux_sym_open_statement_token1] = ACTIONS(4545),
-    [aux_sym_close_statement_token1] = ACTIONS(4545),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4545),
-    [aux_sym_enum_statement_token1] = ACTIONS(4545),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4545),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4545),
-    [aux_sym_entry_statement_token1] = ACTIONS(4545),
-    [aux_sym_logical_expression_token5] = ACTIONS(4547),
-    [anon_sym_DOT] = ACTIONS(4545),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4547),
-    [anon_sym_LBRACK] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4547),
-    [aux_sym_null_literal_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4545),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4545),
-    [aux_sym_identifier_token1] = ACTIONS(4545),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4547),
-    [sym__float_literal] = ACTIONS(4547),
-    [sym__boz_literal] = ACTIONS(4547),
-    [sym__string_literal] = ACTIONS(4547),
-    [sym__string_literal_kind] = ACTIONS(4547),
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_module_statement_token1] = ACTIONS(4543),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_function_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
   [879] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4549),
-    [aux_sym_preproc_def_token1] = ACTIONS(4549),
-    [aux_sym_preproc_if_token1] = ACTIONS(4549),
-    [aux_sym_preproc_if_token2] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4549),
-    [aux_sym_preproc_else_token1] = ACTIONS(4549),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4549),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4549),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4549),
-    [sym_preproc_directive] = ACTIONS(4549),
-    [anon_sym_LPAREN2] = ACTIONS(4549),
-    [anon_sym_PLUS] = ACTIONS(4551),
-    [anon_sym_DASH] = ACTIONS(4551),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4549),
-    [aux_sym_module_statement_token1] = ACTIONS(4549),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4549),
-    [aux_sym_interface_statement_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4549),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4549),
-    [aux_sym_function_statement_token1] = ACTIONS(4549),
-    [aux_sym_language_binding_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4549),
-    [aux_sym_contains_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token2] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4549),
-    [aux_sym_save_statement_token1] = ACTIONS(4549),
-    [aux_sym_private_statement_token1] = ACTIONS(4549),
-    [aux_sym_public_statement_token1] = ACTIONS(4549),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4549),
-    [aux_sym_common_statement_token1] = ACTIONS(4549),
-    [aux_sym_import_statement_token1] = ACTIONS(4549),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4549),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4549),
-    [aux_sym_derived_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4549),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4549),
-    [anon_sym_SEMI] = ACTIONS(4551),
-    [aux_sym_stop_statement_token1] = ACTIONS(4549),
-    [aux_sym_stop_statement_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4549),
-    [aux_sym_include_statement_token1] = ACTIONS(4549),
-    [aux_sym_data_statement_token1] = ACTIONS(4549),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4549),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4549),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4549),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4549),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4549),
-    [aux_sym_block_construct_token1] = ACTIONS(4549),
-    [aux_sym_associate_statement_token1] = ACTIONS(4549),
-    [aux_sym_format_statement_token1] = ACTIONS(4549),
-    [aux_sym_print_statement_token1] = ACTIONS(4549),
-    [aux_sym_open_statement_token1] = ACTIONS(4549),
-    [aux_sym_close_statement_token1] = ACTIONS(4549),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4549),
-    [aux_sym_enum_statement_token1] = ACTIONS(4549),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4549),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4549),
-    [aux_sym_entry_statement_token1] = ACTIONS(4549),
-    [aux_sym_logical_expression_token5] = ACTIONS(4551),
-    [anon_sym_DOT] = ACTIONS(4549),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4551),
-    [anon_sym_LBRACK] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4551),
-    [aux_sym_null_literal_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4549),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4549),
-    [aux_sym_identifier_token1] = ACTIONS(4549),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4551),
-    [sym__float_literal] = ACTIONS(4551),
-    [sym__boz_literal] = ACTIONS(4551),
-    [sym__string_literal] = ACTIONS(4551),
-    [sym__string_literal_kind] = ACTIONS(4551),
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [aux_sym_preproc_else_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4279),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4279),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
   [880] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [aux_sym_preproc_else_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4323),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+    [aux_sym_preproc_include_token1] = ACTIONS(4547),
+    [aux_sym_preproc_def_token1] = ACTIONS(4547),
+    [aux_sym_preproc_if_token1] = ACTIONS(4547),
+    [aux_sym_preproc_if_token2] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4547),
+    [aux_sym_preproc_else_token1] = ACTIONS(4547),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4547),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4547),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4547),
+    [sym_preproc_directive] = ACTIONS(4547),
+    [anon_sym_LPAREN2] = ACTIONS(4547),
+    [anon_sym_PLUS] = ACTIONS(4549),
+    [anon_sym_DASH] = ACTIONS(4549),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4547),
+    [aux_sym_module_statement_token1] = ACTIONS(4547),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4547),
+    [aux_sym_interface_statement_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4547),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4547),
+    [aux_sym_function_statement_token1] = ACTIONS(4547),
+    [aux_sym_language_binding_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4547),
+    [aux_sym_contains_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token2] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4547),
+    [aux_sym_save_statement_token1] = ACTIONS(4547),
+    [aux_sym_private_statement_token1] = ACTIONS(4547),
+    [aux_sym_public_statement_token1] = ACTIONS(4547),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4547),
+    [aux_sym_common_statement_token1] = ACTIONS(4547),
+    [aux_sym_import_statement_token1] = ACTIONS(4547),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4547),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4547),
+    [aux_sym_derived_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4547),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4547),
+    [anon_sym_SEMI] = ACTIONS(4549),
+    [aux_sym_stop_statement_token1] = ACTIONS(4547),
+    [aux_sym_stop_statement_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4547),
+    [aux_sym_include_statement_token1] = ACTIONS(4547),
+    [aux_sym_data_statement_token1] = ACTIONS(4547),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4547),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4547),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4547),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4547),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4547),
+    [aux_sym_block_construct_token1] = ACTIONS(4547),
+    [aux_sym_associate_statement_token1] = ACTIONS(4547),
+    [aux_sym_format_statement_token1] = ACTIONS(4547),
+    [aux_sym_print_statement_token1] = ACTIONS(4547),
+    [aux_sym_open_statement_token1] = ACTIONS(4547),
+    [aux_sym_close_statement_token1] = ACTIONS(4547),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4547),
+    [aux_sym_enum_statement_token1] = ACTIONS(4547),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4547),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4547),
+    [aux_sym_entry_statement_token1] = ACTIONS(4547),
+    [aux_sym_logical_expression_token5] = ACTIONS(4549),
+    [anon_sym_DOT] = ACTIONS(4547),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4549),
+    [anon_sym_LBRACK] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4549),
+    [aux_sym_null_literal_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4547),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4547),
+    [aux_sym_identifier_token1] = ACTIONS(4547),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4549),
+    [sym__float_literal] = ACTIONS(4549),
+    [sym__boz_literal] = ACTIONS(4549),
+    [sym__string_literal] = ACTIONS(4549),
+    [sym__string_literal_kind] = ACTIONS(4549),
   },
   [881] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [aux_sym_preproc_else_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4341),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [aux_sym_preproc_include_token1] = ACTIONS(4551),
+    [aux_sym_preproc_def_token1] = ACTIONS(4551),
+    [aux_sym_preproc_if_token1] = ACTIONS(4551),
+    [aux_sym_preproc_if_token2] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4551),
+    [aux_sym_preproc_else_token1] = ACTIONS(4551),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4551),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4551),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4551),
+    [sym_preproc_directive] = ACTIONS(4551),
+    [anon_sym_LPAREN2] = ACTIONS(4551),
+    [anon_sym_PLUS] = ACTIONS(4553),
+    [anon_sym_DASH] = ACTIONS(4553),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4551),
+    [aux_sym_module_statement_token1] = ACTIONS(4551),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4551),
+    [aux_sym_interface_statement_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4551),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4551),
+    [aux_sym_function_statement_token1] = ACTIONS(4551),
+    [aux_sym_language_binding_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4551),
+    [aux_sym_contains_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token2] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4551),
+    [aux_sym_save_statement_token1] = ACTIONS(4551),
+    [aux_sym_private_statement_token1] = ACTIONS(4551),
+    [aux_sym_public_statement_token1] = ACTIONS(4551),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4551),
+    [aux_sym_common_statement_token1] = ACTIONS(4551),
+    [aux_sym_import_statement_token1] = ACTIONS(4551),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4551),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4551),
+    [aux_sym_derived_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4551),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4551),
+    [anon_sym_SEMI] = ACTIONS(4553),
+    [aux_sym_stop_statement_token1] = ACTIONS(4551),
+    [aux_sym_stop_statement_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4551),
+    [aux_sym_include_statement_token1] = ACTIONS(4551),
+    [aux_sym_data_statement_token1] = ACTIONS(4551),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4551),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4551),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4551),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4551),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4551),
+    [aux_sym_block_construct_token1] = ACTIONS(4551),
+    [aux_sym_associate_statement_token1] = ACTIONS(4551),
+    [aux_sym_format_statement_token1] = ACTIONS(4551),
+    [aux_sym_print_statement_token1] = ACTIONS(4551),
+    [aux_sym_open_statement_token1] = ACTIONS(4551),
+    [aux_sym_close_statement_token1] = ACTIONS(4551),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4551),
+    [aux_sym_enum_statement_token1] = ACTIONS(4551),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4551),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4551),
+    [aux_sym_entry_statement_token1] = ACTIONS(4551),
+    [aux_sym_logical_expression_token5] = ACTIONS(4553),
+    [anon_sym_DOT] = ACTIONS(4551),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4553),
+    [anon_sym_LBRACK] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4553),
+    [aux_sym_null_literal_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4551),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4551),
+    [aux_sym_identifier_token1] = ACTIONS(4551),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4553),
+    [sym__float_literal] = ACTIONS(4553),
+    [sym__boz_literal] = ACTIONS(4553),
+    [sym__string_literal] = ACTIONS(4553),
+    [sym__string_literal_kind] = ACTIONS(4553),
   },
   [882] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4553),
-    [aux_sym_preproc_def_token1] = ACTIONS(4553),
-    [aux_sym_preproc_if_token1] = ACTIONS(4553),
-    [aux_sym_preproc_if_token2] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4553),
-    [aux_sym_preproc_else_token1] = ACTIONS(4553),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4553),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4553),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4553),
-    [sym_preproc_directive] = ACTIONS(4553),
-    [anon_sym_LPAREN2] = ACTIONS(4553),
-    [anon_sym_PLUS] = ACTIONS(4555),
-    [anon_sym_DASH] = ACTIONS(4555),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4553),
-    [aux_sym_module_statement_token1] = ACTIONS(4553),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4553),
-    [aux_sym_interface_statement_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4553),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4553),
-    [aux_sym_function_statement_token1] = ACTIONS(4553),
-    [aux_sym_language_binding_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4553),
-    [aux_sym_contains_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token2] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4553),
-    [aux_sym_save_statement_token1] = ACTIONS(4553),
-    [aux_sym_private_statement_token1] = ACTIONS(4553),
-    [aux_sym_public_statement_token1] = ACTIONS(4553),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4553),
-    [aux_sym_common_statement_token1] = ACTIONS(4553),
-    [aux_sym_import_statement_token1] = ACTIONS(4553),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4553),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4553),
-    [aux_sym_derived_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4553),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4553),
-    [anon_sym_SEMI] = ACTIONS(4555),
-    [aux_sym_stop_statement_token1] = ACTIONS(4553),
-    [aux_sym_stop_statement_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4553),
-    [aux_sym_include_statement_token1] = ACTIONS(4553),
-    [aux_sym_data_statement_token1] = ACTIONS(4553),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4553),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4553),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4553),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4553),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4553),
-    [aux_sym_block_construct_token1] = ACTIONS(4553),
-    [aux_sym_associate_statement_token1] = ACTIONS(4553),
-    [aux_sym_format_statement_token1] = ACTIONS(4553),
-    [aux_sym_print_statement_token1] = ACTIONS(4553),
-    [aux_sym_open_statement_token1] = ACTIONS(4553),
-    [aux_sym_close_statement_token1] = ACTIONS(4553),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4553),
-    [aux_sym_enum_statement_token1] = ACTIONS(4553),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4553),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4553),
-    [aux_sym_entry_statement_token1] = ACTIONS(4553),
-    [aux_sym_logical_expression_token5] = ACTIONS(4555),
-    [anon_sym_DOT] = ACTIONS(4553),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4555),
-    [anon_sym_LBRACK] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4555),
-    [aux_sym_null_literal_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4553),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4553),
-    [aux_sym_identifier_token1] = ACTIONS(4553),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4555),
-    [sym__float_literal] = ACTIONS(4555),
-    [sym__boz_literal] = ACTIONS(4555),
-    [sym__string_literal] = ACTIONS(4555),
-    [sym__string_literal_kind] = ACTIONS(4555),
+    [aux_sym_preproc_include_token1] = ACTIONS(4555),
+    [aux_sym_preproc_def_token1] = ACTIONS(4555),
+    [aux_sym_preproc_if_token1] = ACTIONS(4555),
+    [aux_sym_preproc_if_token2] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4555),
+    [aux_sym_preproc_else_token1] = ACTIONS(4555),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4555),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4555),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4555),
+    [sym_preproc_directive] = ACTIONS(4555),
+    [anon_sym_LPAREN2] = ACTIONS(4555),
+    [anon_sym_PLUS] = ACTIONS(4557),
+    [anon_sym_DASH] = ACTIONS(4557),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4555),
+    [aux_sym_module_statement_token1] = ACTIONS(4555),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4555),
+    [aux_sym_interface_statement_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4555),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4555),
+    [aux_sym_function_statement_token1] = ACTIONS(4555),
+    [aux_sym_language_binding_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4555),
+    [aux_sym_contains_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token2] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4555),
+    [aux_sym_save_statement_token1] = ACTIONS(4555),
+    [aux_sym_private_statement_token1] = ACTIONS(4555),
+    [aux_sym_public_statement_token1] = ACTIONS(4555),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4555),
+    [aux_sym_common_statement_token1] = ACTIONS(4555),
+    [aux_sym_import_statement_token1] = ACTIONS(4555),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4555),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4555),
+    [aux_sym_derived_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4555),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4555),
+    [anon_sym_SEMI] = ACTIONS(4557),
+    [aux_sym_stop_statement_token1] = ACTIONS(4555),
+    [aux_sym_stop_statement_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4555),
+    [aux_sym_include_statement_token1] = ACTIONS(4555),
+    [aux_sym_data_statement_token1] = ACTIONS(4555),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4555),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4555),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4555),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4555),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4555),
+    [aux_sym_block_construct_token1] = ACTIONS(4555),
+    [aux_sym_associate_statement_token1] = ACTIONS(4555),
+    [aux_sym_format_statement_token1] = ACTIONS(4555),
+    [aux_sym_print_statement_token1] = ACTIONS(4555),
+    [aux_sym_open_statement_token1] = ACTIONS(4555),
+    [aux_sym_close_statement_token1] = ACTIONS(4555),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4555),
+    [aux_sym_enum_statement_token1] = ACTIONS(4555),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4555),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4555),
+    [aux_sym_entry_statement_token1] = ACTIONS(4555),
+    [aux_sym_logical_expression_token5] = ACTIONS(4557),
+    [anon_sym_DOT] = ACTIONS(4555),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4557),
+    [anon_sym_LBRACK] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4557),
+    [aux_sym_null_literal_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4555),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4555),
+    [aux_sym_identifier_token1] = ACTIONS(4555),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4557),
+    [sym__float_literal] = ACTIONS(4557),
+    [sym__boz_literal] = ACTIONS(4557),
+    [sym__string_literal] = ACTIONS(4557),
+    [sym__string_literal_kind] = ACTIONS(4557),
   },
   [883] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4557),
-    [aux_sym_preproc_def_token1] = ACTIONS(4557),
-    [aux_sym_preproc_if_token1] = ACTIONS(4557),
-    [aux_sym_preproc_if_token2] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4557),
-    [aux_sym_preproc_else_token1] = ACTIONS(4557),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4557),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4557),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4557),
-    [sym_preproc_directive] = ACTIONS(4557),
-    [anon_sym_LPAREN2] = ACTIONS(4557),
-    [anon_sym_PLUS] = ACTIONS(4559),
-    [anon_sym_DASH] = ACTIONS(4559),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4557),
-    [aux_sym_module_statement_token1] = ACTIONS(4557),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4557),
-    [aux_sym_interface_statement_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4557),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4557),
-    [aux_sym_function_statement_token1] = ACTIONS(4557),
-    [aux_sym_language_binding_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4557),
-    [aux_sym_contains_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token2] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4557),
-    [aux_sym_save_statement_token1] = ACTIONS(4557),
-    [aux_sym_private_statement_token1] = ACTIONS(4557),
-    [aux_sym_public_statement_token1] = ACTIONS(4557),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4557),
-    [aux_sym_common_statement_token1] = ACTIONS(4557),
-    [aux_sym_import_statement_token1] = ACTIONS(4557),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4557),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4557),
-    [aux_sym_derived_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4557),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4557),
-    [anon_sym_SEMI] = ACTIONS(4559),
-    [aux_sym_stop_statement_token1] = ACTIONS(4557),
-    [aux_sym_stop_statement_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4557),
-    [aux_sym_include_statement_token1] = ACTIONS(4557),
-    [aux_sym_data_statement_token1] = ACTIONS(4557),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4557),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4557),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4557),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4557),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4557),
-    [aux_sym_block_construct_token1] = ACTIONS(4557),
-    [aux_sym_associate_statement_token1] = ACTIONS(4557),
-    [aux_sym_format_statement_token1] = ACTIONS(4557),
-    [aux_sym_print_statement_token1] = ACTIONS(4557),
-    [aux_sym_open_statement_token1] = ACTIONS(4557),
-    [aux_sym_close_statement_token1] = ACTIONS(4557),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4557),
-    [aux_sym_enum_statement_token1] = ACTIONS(4557),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4557),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4557),
-    [aux_sym_entry_statement_token1] = ACTIONS(4557),
-    [aux_sym_logical_expression_token5] = ACTIONS(4559),
-    [anon_sym_DOT] = ACTIONS(4557),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4559),
-    [anon_sym_LBRACK] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4559),
-    [aux_sym_null_literal_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4557),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4557),
-    [aux_sym_identifier_token1] = ACTIONS(4557),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4559),
-    [sym__float_literal] = ACTIONS(4559),
-    [sym__boz_literal] = ACTIONS(4559),
-    [sym__string_literal] = ACTIONS(4559),
-    [sym__string_literal_kind] = ACTIONS(4559),
+    [aux_sym_preproc_include_token1] = ACTIONS(4559),
+    [aux_sym_preproc_def_token1] = ACTIONS(4559),
+    [aux_sym_preproc_if_token1] = ACTIONS(4559),
+    [aux_sym_preproc_if_token2] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4559),
+    [aux_sym_preproc_else_token1] = ACTIONS(4559),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4559),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4559),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4559),
+    [sym_preproc_directive] = ACTIONS(4559),
+    [anon_sym_LPAREN2] = ACTIONS(4559),
+    [anon_sym_PLUS] = ACTIONS(4561),
+    [anon_sym_DASH] = ACTIONS(4561),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4559),
+    [aux_sym_module_statement_token1] = ACTIONS(4559),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4559),
+    [aux_sym_interface_statement_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4559),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4559),
+    [aux_sym_function_statement_token1] = ACTIONS(4559),
+    [aux_sym_language_binding_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4559),
+    [aux_sym_contains_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token2] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4559),
+    [aux_sym_save_statement_token1] = ACTIONS(4559),
+    [aux_sym_private_statement_token1] = ACTIONS(4559),
+    [aux_sym_public_statement_token1] = ACTIONS(4559),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4559),
+    [aux_sym_common_statement_token1] = ACTIONS(4559),
+    [aux_sym_import_statement_token1] = ACTIONS(4559),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4559),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4559),
+    [aux_sym_derived_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4559),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4559),
+    [anon_sym_SEMI] = ACTIONS(4561),
+    [aux_sym_stop_statement_token1] = ACTIONS(4559),
+    [aux_sym_stop_statement_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4559),
+    [aux_sym_include_statement_token1] = ACTIONS(4559),
+    [aux_sym_data_statement_token1] = ACTIONS(4559),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4559),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4559),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4559),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4559),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4559),
+    [aux_sym_block_construct_token1] = ACTIONS(4559),
+    [aux_sym_associate_statement_token1] = ACTIONS(4559),
+    [aux_sym_format_statement_token1] = ACTIONS(4559),
+    [aux_sym_print_statement_token1] = ACTIONS(4559),
+    [aux_sym_open_statement_token1] = ACTIONS(4559),
+    [aux_sym_close_statement_token1] = ACTIONS(4559),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4559),
+    [aux_sym_enum_statement_token1] = ACTIONS(4559),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4559),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4559),
+    [aux_sym_entry_statement_token1] = ACTIONS(4559),
+    [aux_sym_logical_expression_token5] = ACTIONS(4561),
+    [anon_sym_DOT] = ACTIONS(4559),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4561),
+    [anon_sym_LBRACK] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4561),
+    [aux_sym_null_literal_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4559),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4559),
+    [aux_sym_identifier_token1] = ACTIONS(4559),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4561),
+    [sym__float_literal] = ACTIONS(4561),
+    [sym__boz_literal] = ACTIONS(4561),
+    [sym__string_literal] = ACTIONS(4561),
+    [sym__string_literal_kind] = ACTIONS(4561),
   },
   [884] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4561),
-    [aux_sym_preproc_def_token1] = ACTIONS(4561),
-    [aux_sym_preproc_if_token1] = ACTIONS(4561),
-    [aux_sym_preproc_if_token2] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4561),
-    [aux_sym_preproc_else_token1] = ACTIONS(4561),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4561),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4561),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4561),
-    [sym_preproc_directive] = ACTIONS(4561),
-    [anon_sym_LPAREN2] = ACTIONS(4561),
-    [anon_sym_PLUS] = ACTIONS(4563),
-    [anon_sym_DASH] = ACTIONS(4563),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4561),
-    [aux_sym_module_statement_token1] = ACTIONS(4561),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4561),
-    [aux_sym_interface_statement_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4561),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4561),
-    [aux_sym_function_statement_token1] = ACTIONS(4561),
-    [aux_sym_language_binding_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4561),
-    [aux_sym_contains_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token2] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4561),
-    [aux_sym_save_statement_token1] = ACTIONS(4561),
-    [aux_sym_private_statement_token1] = ACTIONS(4561),
-    [aux_sym_public_statement_token1] = ACTIONS(4561),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4561),
-    [aux_sym_common_statement_token1] = ACTIONS(4561),
-    [aux_sym_import_statement_token1] = ACTIONS(4561),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4561),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4561),
-    [aux_sym_derived_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4561),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4561),
-    [anon_sym_SEMI] = ACTIONS(4563),
-    [aux_sym_stop_statement_token1] = ACTIONS(4561),
-    [aux_sym_stop_statement_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4561),
-    [aux_sym_include_statement_token1] = ACTIONS(4561),
-    [aux_sym_data_statement_token1] = ACTIONS(4561),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4561),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4561),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4561),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4561),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4561),
-    [aux_sym_block_construct_token1] = ACTIONS(4561),
-    [aux_sym_associate_statement_token1] = ACTIONS(4561),
-    [aux_sym_format_statement_token1] = ACTIONS(4561),
-    [aux_sym_print_statement_token1] = ACTIONS(4561),
-    [aux_sym_open_statement_token1] = ACTIONS(4561),
-    [aux_sym_close_statement_token1] = ACTIONS(4561),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4561),
-    [aux_sym_enum_statement_token1] = ACTIONS(4561),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4561),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4561),
-    [aux_sym_entry_statement_token1] = ACTIONS(4561),
-    [aux_sym_logical_expression_token5] = ACTIONS(4563),
-    [anon_sym_DOT] = ACTIONS(4561),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4563),
-    [anon_sym_LBRACK] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4563),
-    [aux_sym_null_literal_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4561),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4561),
-    [aux_sym_identifier_token1] = ACTIONS(4561),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4563),
-    [sym__float_literal] = ACTIONS(4563),
-    [sym__boz_literal] = ACTIONS(4563),
-    [sym__string_literal] = ACTIONS(4563),
-    [sym__string_literal_kind] = ACTIONS(4563),
+    [aux_sym_preproc_include_token1] = ACTIONS(4563),
+    [aux_sym_preproc_def_token1] = ACTIONS(4563),
+    [aux_sym_preproc_if_token1] = ACTIONS(4563),
+    [aux_sym_preproc_if_token2] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4563),
+    [aux_sym_preproc_else_token1] = ACTIONS(4563),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4563),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4563),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4563),
+    [sym_preproc_directive] = ACTIONS(4563),
+    [anon_sym_LPAREN2] = ACTIONS(4563),
+    [anon_sym_PLUS] = ACTIONS(4565),
+    [anon_sym_DASH] = ACTIONS(4565),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4563),
+    [aux_sym_module_statement_token1] = ACTIONS(4563),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4563),
+    [aux_sym_interface_statement_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4563),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4563),
+    [aux_sym_function_statement_token1] = ACTIONS(4563),
+    [aux_sym_language_binding_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4563),
+    [aux_sym_contains_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token2] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4563),
+    [aux_sym_save_statement_token1] = ACTIONS(4563),
+    [aux_sym_private_statement_token1] = ACTIONS(4563),
+    [aux_sym_public_statement_token1] = ACTIONS(4563),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4563),
+    [aux_sym_common_statement_token1] = ACTIONS(4563),
+    [aux_sym_import_statement_token1] = ACTIONS(4563),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4563),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4563),
+    [aux_sym_derived_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4563),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4563),
+    [anon_sym_SEMI] = ACTIONS(4565),
+    [aux_sym_stop_statement_token1] = ACTIONS(4563),
+    [aux_sym_stop_statement_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4563),
+    [aux_sym_include_statement_token1] = ACTIONS(4563),
+    [aux_sym_data_statement_token1] = ACTIONS(4563),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4563),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4563),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4563),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4563),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4563),
+    [aux_sym_block_construct_token1] = ACTIONS(4563),
+    [aux_sym_associate_statement_token1] = ACTIONS(4563),
+    [aux_sym_format_statement_token1] = ACTIONS(4563),
+    [aux_sym_print_statement_token1] = ACTIONS(4563),
+    [aux_sym_open_statement_token1] = ACTIONS(4563),
+    [aux_sym_close_statement_token1] = ACTIONS(4563),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4563),
+    [aux_sym_enum_statement_token1] = ACTIONS(4563),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4563),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4563),
+    [aux_sym_entry_statement_token1] = ACTIONS(4563),
+    [aux_sym_logical_expression_token5] = ACTIONS(4565),
+    [anon_sym_DOT] = ACTIONS(4563),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4565),
+    [anon_sym_LBRACK] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4565),
+    [aux_sym_null_literal_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4563),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4563),
+    [aux_sym_identifier_token1] = ACTIONS(4563),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4565),
+    [sym__float_literal] = ACTIONS(4565),
+    [sym__boz_literal] = ACTIONS(4565),
+    [sym__string_literal] = ACTIONS(4565),
+    [sym__string_literal_kind] = ACTIONS(4565),
   },
   [885] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4565),
-    [aux_sym_preproc_def_token1] = ACTIONS(4565),
-    [aux_sym_preproc_if_token1] = ACTIONS(4565),
-    [aux_sym_preproc_if_token2] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4565),
-    [aux_sym_preproc_else_token1] = ACTIONS(4565),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4565),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4565),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4565),
-    [sym_preproc_directive] = ACTIONS(4565),
-    [anon_sym_LPAREN2] = ACTIONS(4565),
-    [anon_sym_PLUS] = ACTIONS(4567),
-    [anon_sym_DASH] = ACTIONS(4567),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4565),
-    [aux_sym_module_statement_token1] = ACTIONS(4565),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4565),
-    [aux_sym_interface_statement_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4565),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4565),
-    [aux_sym_function_statement_token1] = ACTIONS(4565),
-    [aux_sym_language_binding_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4565),
-    [aux_sym_contains_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token2] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4565),
-    [aux_sym_save_statement_token1] = ACTIONS(4565),
-    [aux_sym_private_statement_token1] = ACTIONS(4565),
-    [aux_sym_public_statement_token1] = ACTIONS(4565),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4565),
-    [aux_sym_common_statement_token1] = ACTIONS(4565),
-    [aux_sym_import_statement_token1] = ACTIONS(4565),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4565),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4565),
-    [aux_sym_derived_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4565),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4565),
-    [anon_sym_SEMI] = ACTIONS(4567),
-    [aux_sym_stop_statement_token1] = ACTIONS(4565),
-    [aux_sym_stop_statement_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4565),
-    [aux_sym_include_statement_token1] = ACTIONS(4565),
-    [aux_sym_data_statement_token1] = ACTIONS(4565),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4565),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4565),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4565),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4565),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4565),
-    [aux_sym_block_construct_token1] = ACTIONS(4565),
-    [aux_sym_associate_statement_token1] = ACTIONS(4565),
-    [aux_sym_format_statement_token1] = ACTIONS(4565),
-    [aux_sym_print_statement_token1] = ACTIONS(4565),
-    [aux_sym_open_statement_token1] = ACTIONS(4565),
-    [aux_sym_close_statement_token1] = ACTIONS(4565),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4565),
-    [aux_sym_enum_statement_token1] = ACTIONS(4565),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4565),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4565),
-    [aux_sym_entry_statement_token1] = ACTIONS(4565),
-    [aux_sym_logical_expression_token5] = ACTIONS(4567),
-    [anon_sym_DOT] = ACTIONS(4565),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4567),
-    [anon_sym_LBRACK] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4567),
-    [aux_sym_null_literal_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4565),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4565),
-    [aux_sym_identifier_token1] = ACTIONS(4565),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4567),
-    [sym__float_literal] = ACTIONS(4567),
-    [sym__boz_literal] = ACTIONS(4567),
-    [sym__string_literal] = ACTIONS(4567),
-    [sym__string_literal_kind] = ACTIONS(4567),
+    [aux_sym_preproc_include_token1] = ACTIONS(4567),
+    [aux_sym_preproc_def_token1] = ACTIONS(4567),
+    [aux_sym_preproc_if_token1] = ACTIONS(4567),
+    [aux_sym_preproc_if_token2] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4567),
+    [aux_sym_preproc_else_token1] = ACTIONS(4567),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4567),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4567),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4567),
+    [sym_preproc_directive] = ACTIONS(4567),
+    [anon_sym_LPAREN2] = ACTIONS(4567),
+    [anon_sym_PLUS] = ACTIONS(4569),
+    [anon_sym_DASH] = ACTIONS(4569),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4567),
+    [aux_sym_module_statement_token1] = ACTIONS(4567),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4567),
+    [aux_sym_interface_statement_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4567),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4567),
+    [aux_sym_function_statement_token1] = ACTIONS(4567),
+    [aux_sym_language_binding_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4567),
+    [aux_sym_contains_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token2] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4567),
+    [aux_sym_save_statement_token1] = ACTIONS(4567),
+    [aux_sym_private_statement_token1] = ACTIONS(4567),
+    [aux_sym_public_statement_token1] = ACTIONS(4567),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4567),
+    [aux_sym_common_statement_token1] = ACTIONS(4567),
+    [aux_sym_import_statement_token1] = ACTIONS(4567),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4567),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4567),
+    [aux_sym_derived_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4567),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4567),
+    [anon_sym_SEMI] = ACTIONS(4569),
+    [aux_sym_stop_statement_token1] = ACTIONS(4567),
+    [aux_sym_stop_statement_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4567),
+    [aux_sym_include_statement_token1] = ACTIONS(4567),
+    [aux_sym_data_statement_token1] = ACTIONS(4567),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4567),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4567),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4567),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4567),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4567),
+    [aux_sym_block_construct_token1] = ACTIONS(4567),
+    [aux_sym_associate_statement_token1] = ACTIONS(4567),
+    [aux_sym_format_statement_token1] = ACTIONS(4567),
+    [aux_sym_print_statement_token1] = ACTIONS(4567),
+    [aux_sym_open_statement_token1] = ACTIONS(4567),
+    [aux_sym_close_statement_token1] = ACTIONS(4567),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4567),
+    [aux_sym_enum_statement_token1] = ACTIONS(4567),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4567),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4567),
+    [aux_sym_entry_statement_token1] = ACTIONS(4567),
+    [aux_sym_logical_expression_token5] = ACTIONS(4569),
+    [anon_sym_DOT] = ACTIONS(4567),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4569),
+    [anon_sym_LBRACK] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4569),
+    [aux_sym_null_literal_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4567),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4567),
+    [aux_sym_identifier_token1] = ACTIONS(4567),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4569),
+    [sym__float_literal] = ACTIONS(4569),
+    [sym__boz_literal] = ACTIONS(4569),
+    [sym__string_literal] = ACTIONS(4569),
+    [sym__string_literal_kind] = ACTIONS(4569),
   },
   [886] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4569),
-    [aux_sym_preproc_def_token1] = ACTIONS(4569),
-    [aux_sym_preproc_if_token1] = ACTIONS(4569),
-    [aux_sym_preproc_if_token2] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4569),
-    [aux_sym_preproc_else_token1] = ACTIONS(4569),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4569),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4569),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4569),
-    [sym_preproc_directive] = ACTIONS(4569),
-    [anon_sym_LPAREN2] = ACTIONS(4569),
-    [anon_sym_PLUS] = ACTIONS(4571),
-    [anon_sym_DASH] = ACTIONS(4571),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4569),
-    [aux_sym_module_statement_token1] = ACTIONS(4569),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4569),
-    [aux_sym_interface_statement_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4569),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4569),
-    [aux_sym_function_statement_token1] = ACTIONS(4569),
-    [aux_sym_language_binding_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4569),
-    [aux_sym_contains_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token2] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4569),
-    [aux_sym_save_statement_token1] = ACTIONS(4569),
-    [aux_sym_private_statement_token1] = ACTIONS(4569),
-    [aux_sym_public_statement_token1] = ACTIONS(4569),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4569),
-    [aux_sym_common_statement_token1] = ACTIONS(4569),
-    [aux_sym_import_statement_token1] = ACTIONS(4569),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4569),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4569),
-    [aux_sym_derived_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4569),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4569),
-    [anon_sym_SEMI] = ACTIONS(4571),
-    [aux_sym_stop_statement_token1] = ACTIONS(4569),
-    [aux_sym_stop_statement_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4569),
-    [aux_sym_include_statement_token1] = ACTIONS(4569),
-    [aux_sym_data_statement_token1] = ACTIONS(4569),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4569),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4569),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4569),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4569),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4569),
-    [aux_sym_block_construct_token1] = ACTIONS(4569),
-    [aux_sym_associate_statement_token1] = ACTIONS(4569),
-    [aux_sym_format_statement_token1] = ACTIONS(4569),
-    [aux_sym_print_statement_token1] = ACTIONS(4569),
-    [aux_sym_open_statement_token1] = ACTIONS(4569),
-    [aux_sym_close_statement_token1] = ACTIONS(4569),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4569),
-    [aux_sym_enum_statement_token1] = ACTIONS(4569),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4569),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4569),
-    [aux_sym_entry_statement_token1] = ACTIONS(4569),
-    [aux_sym_logical_expression_token5] = ACTIONS(4571),
-    [anon_sym_DOT] = ACTIONS(4569),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4571),
-    [anon_sym_LBRACK] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4571),
-    [aux_sym_null_literal_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4569),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4569),
-    [aux_sym_identifier_token1] = ACTIONS(4569),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4571),
-    [sym__float_literal] = ACTIONS(4571),
-    [sym__boz_literal] = ACTIONS(4571),
-    [sym__string_literal] = ACTIONS(4571),
-    [sym__string_literal_kind] = ACTIONS(4571),
+    [aux_sym_preproc_include_token1] = ACTIONS(4571),
+    [aux_sym_preproc_def_token1] = ACTIONS(4571),
+    [aux_sym_preproc_if_token1] = ACTIONS(4571),
+    [aux_sym_preproc_if_token2] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4571),
+    [aux_sym_preproc_else_token1] = ACTIONS(4571),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4571),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4571),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4571),
+    [sym_preproc_directive] = ACTIONS(4571),
+    [anon_sym_LPAREN2] = ACTIONS(4571),
+    [anon_sym_PLUS] = ACTIONS(4573),
+    [anon_sym_DASH] = ACTIONS(4573),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4571),
+    [aux_sym_module_statement_token1] = ACTIONS(4571),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4571),
+    [aux_sym_interface_statement_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4571),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4571),
+    [aux_sym_function_statement_token1] = ACTIONS(4571),
+    [aux_sym_language_binding_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4571),
+    [aux_sym_contains_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token2] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4571),
+    [aux_sym_save_statement_token1] = ACTIONS(4571),
+    [aux_sym_private_statement_token1] = ACTIONS(4571),
+    [aux_sym_public_statement_token1] = ACTIONS(4571),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4571),
+    [aux_sym_common_statement_token1] = ACTIONS(4571),
+    [aux_sym_import_statement_token1] = ACTIONS(4571),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4571),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4571),
+    [aux_sym_derived_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4571),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4571),
+    [anon_sym_SEMI] = ACTIONS(4573),
+    [aux_sym_stop_statement_token1] = ACTIONS(4571),
+    [aux_sym_stop_statement_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4571),
+    [aux_sym_include_statement_token1] = ACTIONS(4571),
+    [aux_sym_data_statement_token1] = ACTIONS(4571),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4571),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4571),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4571),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4571),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4571),
+    [aux_sym_block_construct_token1] = ACTIONS(4571),
+    [aux_sym_associate_statement_token1] = ACTIONS(4571),
+    [aux_sym_format_statement_token1] = ACTIONS(4571),
+    [aux_sym_print_statement_token1] = ACTIONS(4571),
+    [aux_sym_open_statement_token1] = ACTIONS(4571),
+    [aux_sym_close_statement_token1] = ACTIONS(4571),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4571),
+    [aux_sym_enum_statement_token1] = ACTIONS(4571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4571),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4571),
+    [aux_sym_entry_statement_token1] = ACTIONS(4571),
+    [aux_sym_logical_expression_token5] = ACTIONS(4573),
+    [anon_sym_DOT] = ACTIONS(4571),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4573),
+    [anon_sym_LBRACK] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4573),
+    [aux_sym_null_literal_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4571),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4571),
+    [aux_sym_identifier_token1] = ACTIONS(4571),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4573),
+    [sym__float_literal] = ACTIONS(4573),
+    [sym__boz_literal] = ACTIONS(4573),
+    [sym__string_literal] = ACTIONS(4573),
+    [sym__string_literal_kind] = ACTIONS(4573),
   },
   [887] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4573),
-    [aux_sym_preproc_def_token1] = ACTIONS(4573),
-    [aux_sym_preproc_if_token1] = ACTIONS(4573),
-    [aux_sym_preproc_if_token2] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4573),
-    [aux_sym_preproc_else_token1] = ACTIONS(4573),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4573),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4573),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4573),
-    [sym_preproc_directive] = ACTIONS(4573),
-    [anon_sym_LPAREN2] = ACTIONS(4573),
-    [anon_sym_PLUS] = ACTIONS(4575),
-    [anon_sym_DASH] = ACTIONS(4575),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4573),
-    [aux_sym_module_statement_token1] = ACTIONS(4573),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4573),
-    [aux_sym_interface_statement_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4573),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4573),
-    [aux_sym_function_statement_token1] = ACTIONS(4573),
-    [aux_sym_language_binding_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4573),
-    [aux_sym_contains_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token2] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4573),
-    [aux_sym_save_statement_token1] = ACTIONS(4573),
-    [aux_sym_private_statement_token1] = ACTIONS(4573),
-    [aux_sym_public_statement_token1] = ACTIONS(4573),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4573),
-    [aux_sym_common_statement_token1] = ACTIONS(4573),
-    [aux_sym_import_statement_token1] = ACTIONS(4573),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4573),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4573),
-    [aux_sym_derived_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4573),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4573),
-    [anon_sym_SEMI] = ACTIONS(4575),
-    [aux_sym_stop_statement_token1] = ACTIONS(4573),
-    [aux_sym_stop_statement_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4573),
-    [aux_sym_include_statement_token1] = ACTIONS(4573),
-    [aux_sym_data_statement_token1] = ACTIONS(4573),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4573),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4573),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4573),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4573),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4573),
-    [aux_sym_block_construct_token1] = ACTIONS(4573),
-    [aux_sym_associate_statement_token1] = ACTIONS(4573),
-    [aux_sym_format_statement_token1] = ACTIONS(4573),
-    [aux_sym_print_statement_token1] = ACTIONS(4573),
-    [aux_sym_open_statement_token1] = ACTIONS(4573),
-    [aux_sym_close_statement_token1] = ACTIONS(4573),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4573),
-    [aux_sym_enum_statement_token1] = ACTIONS(4573),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4573),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4573),
-    [aux_sym_entry_statement_token1] = ACTIONS(4573),
-    [aux_sym_logical_expression_token5] = ACTIONS(4575),
-    [anon_sym_DOT] = ACTIONS(4573),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4575),
-    [anon_sym_LBRACK] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4575),
-    [aux_sym_null_literal_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4573),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4573),
-    [aux_sym_identifier_token1] = ACTIONS(4573),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4575),
-    [sym__float_literal] = ACTIONS(4575),
-    [sym__boz_literal] = ACTIONS(4575),
-    [sym__string_literal] = ACTIONS(4575),
-    [sym__string_literal_kind] = ACTIONS(4575),
+    [aux_sym_preproc_include_token1] = ACTIONS(4575),
+    [aux_sym_preproc_def_token1] = ACTIONS(4575),
+    [aux_sym_preproc_if_token1] = ACTIONS(4575),
+    [aux_sym_preproc_if_token2] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4575),
+    [aux_sym_preproc_else_token1] = ACTIONS(4575),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4575),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4575),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4575),
+    [sym_preproc_directive] = ACTIONS(4575),
+    [anon_sym_LPAREN2] = ACTIONS(4575),
+    [anon_sym_PLUS] = ACTIONS(4577),
+    [anon_sym_DASH] = ACTIONS(4577),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4575),
+    [aux_sym_module_statement_token1] = ACTIONS(4575),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4575),
+    [aux_sym_interface_statement_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4575),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4575),
+    [aux_sym_function_statement_token1] = ACTIONS(4575),
+    [aux_sym_language_binding_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4575),
+    [aux_sym_contains_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token2] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4575),
+    [aux_sym_save_statement_token1] = ACTIONS(4575),
+    [aux_sym_private_statement_token1] = ACTIONS(4575),
+    [aux_sym_public_statement_token1] = ACTIONS(4575),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4575),
+    [aux_sym_common_statement_token1] = ACTIONS(4575),
+    [aux_sym_import_statement_token1] = ACTIONS(4575),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4575),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4575),
+    [aux_sym_derived_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4575),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4575),
+    [anon_sym_SEMI] = ACTIONS(4577),
+    [aux_sym_stop_statement_token1] = ACTIONS(4575),
+    [aux_sym_stop_statement_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4575),
+    [aux_sym_include_statement_token1] = ACTIONS(4575),
+    [aux_sym_data_statement_token1] = ACTIONS(4575),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4575),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4575),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4575),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4575),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4575),
+    [aux_sym_block_construct_token1] = ACTIONS(4575),
+    [aux_sym_associate_statement_token1] = ACTIONS(4575),
+    [aux_sym_format_statement_token1] = ACTIONS(4575),
+    [aux_sym_print_statement_token1] = ACTIONS(4575),
+    [aux_sym_open_statement_token1] = ACTIONS(4575),
+    [aux_sym_close_statement_token1] = ACTIONS(4575),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4575),
+    [aux_sym_enum_statement_token1] = ACTIONS(4575),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4575),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4575),
+    [aux_sym_entry_statement_token1] = ACTIONS(4575),
+    [aux_sym_logical_expression_token5] = ACTIONS(4577),
+    [anon_sym_DOT] = ACTIONS(4575),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4577),
+    [anon_sym_LBRACK] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4577),
+    [aux_sym_null_literal_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4575),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4575),
+    [aux_sym_identifier_token1] = ACTIONS(4575),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4577),
+    [sym__float_literal] = ACTIONS(4577),
+    [sym__boz_literal] = ACTIONS(4577),
+    [sym__string_literal] = ACTIONS(4577),
+    [sym__string_literal_kind] = ACTIONS(4577),
   },
   [888] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4577),
-    [aux_sym_preproc_def_token1] = ACTIONS(4577),
-    [aux_sym_preproc_if_token1] = ACTIONS(4577),
-    [aux_sym_preproc_if_token2] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4577),
-    [aux_sym_preproc_else_token1] = ACTIONS(4577),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4577),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4577),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4577),
-    [sym_preproc_directive] = ACTIONS(4577),
-    [anon_sym_LPAREN2] = ACTIONS(4577),
-    [anon_sym_PLUS] = ACTIONS(4579),
-    [anon_sym_DASH] = ACTIONS(4579),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4577),
-    [aux_sym_module_statement_token1] = ACTIONS(4577),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4577),
-    [aux_sym_interface_statement_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4577),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4577),
-    [aux_sym_function_statement_token1] = ACTIONS(4577),
-    [aux_sym_language_binding_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4577),
-    [aux_sym_contains_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token2] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4577),
-    [aux_sym_save_statement_token1] = ACTIONS(4577),
-    [aux_sym_private_statement_token1] = ACTIONS(4577),
-    [aux_sym_public_statement_token1] = ACTIONS(4577),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4577),
-    [aux_sym_common_statement_token1] = ACTIONS(4577),
-    [aux_sym_import_statement_token1] = ACTIONS(4577),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4577),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4577),
-    [aux_sym_derived_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4577),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4577),
-    [anon_sym_SEMI] = ACTIONS(4579),
-    [aux_sym_stop_statement_token1] = ACTIONS(4577),
-    [aux_sym_stop_statement_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4577),
-    [aux_sym_include_statement_token1] = ACTIONS(4577),
-    [aux_sym_data_statement_token1] = ACTIONS(4577),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4577),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4577),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4577),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4577),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4577),
-    [aux_sym_block_construct_token1] = ACTIONS(4577),
-    [aux_sym_associate_statement_token1] = ACTIONS(4577),
-    [aux_sym_format_statement_token1] = ACTIONS(4577),
-    [aux_sym_print_statement_token1] = ACTIONS(4577),
-    [aux_sym_open_statement_token1] = ACTIONS(4577),
-    [aux_sym_close_statement_token1] = ACTIONS(4577),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4577),
-    [aux_sym_enum_statement_token1] = ACTIONS(4577),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4577),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4577),
-    [aux_sym_entry_statement_token1] = ACTIONS(4577),
-    [aux_sym_logical_expression_token5] = ACTIONS(4579),
-    [anon_sym_DOT] = ACTIONS(4577),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4579),
-    [anon_sym_LBRACK] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4579),
-    [aux_sym_null_literal_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4577),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4577),
-    [aux_sym_identifier_token1] = ACTIONS(4577),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4579),
-    [sym__float_literal] = ACTIONS(4579),
-    [sym__boz_literal] = ACTIONS(4579),
-    [sym__string_literal] = ACTIONS(4579),
-    [sym__string_literal_kind] = ACTIONS(4579),
+    [aux_sym_preproc_include_token1] = ACTIONS(4579),
+    [aux_sym_preproc_def_token1] = ACTIONS(4579),
+    [aux_sym_preproc_if_token1] = ACTIONS(4579),
+    [aux_sym_preproc_if_token2] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4579),
+    [aux_sym_preproc_else_token1] = ACTIONS(4579),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4579),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4579),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4579),
+    [sym_preproc_directive] = ACTIONS(4579),
+    [anon_sym_LPAREN2] = ACTIONS(4579),
+    [anon_sym_PLUS] = ACTIONS(4581),
+    [anon_sym_DASH] = ACTIONS(4581),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4579),
+    [aux_sym_module_statement_token1] = ACTIONS(4579),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4579),
+    [aux_sym_interface_statement_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4579),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4579),
+    [aux_sym_function_statement_token1] = ACTIONS(4579),
+    [aux_sym_language_binding_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4579),
+    [aux_sym_contains_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token2] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4579),
+    [aux_sym_save_statement_token1] = ACTIONS(4579),
+    [aux_sym_private_statement_token1] = ACTIONS(4579),
+    [aux_sym_public_statement_token1] = ACTIONS(4579),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4579),
+    [aux_sym_common_statement_token1] = ACTIONS(4579),
+    [aux_sym_import_statement_token1] = ACTIONS(4579),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4579),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4579),
+    [aux_sym_derived_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4579),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4579),
+    [anon_sym_SEMI] = ACTIONS(4581),
+    [aux_sym_stop_statement_token1] = ACTIONS(4579),
+    [aux_sym_stop_statement_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4579),
+    [aux_sym_include_statement_token1] = ACTIONS(4579),
+    [aux_sym_data_statement_token1] = ACTIONS(4579),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4579),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4579),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4579),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4579),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4579),
+    [aux_sym_block_construct_token1] = ACTIONS(4579),
+    [aux_sym_associate_statement_token1] = ACTIONS(4579),
+    [aux_sym_format_statement_token1] = ACTIONS(4579),
+    [aux_sym_print_statement_token1] = ACTIONS(4579),
+    [aux_sym_open_statement_token1] = ACTIONS(4579),
+    [aux_sym_close_statement_token1] = ACTIONS(4579),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4579),
+    [aux_sym_enum_statement_token1] = ACTIONS(4579),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4579),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4579),
+    [aux_sym_entry_statement_token1] = ACTIONS(4579),
+    [aux_sym_logical_expression_token5] = ACTIONS(4581),
+    [anon_sym_DOT] = ACTIONS(4579),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4581),
+    [anon_sym_LBRACK] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4581),
+    [aux_sym_null_literal_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4579),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4579),
+    [aux_sym_identifier_token1] = ACTIONS(4579),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4581),
+    [sym__float_literal] = ACTIONS(4581),
+    [sym__boz_literal] = ACTIONS(4581),
+    [sym__string_literal] = ACTIONS(4581),
+    [sym__string_literal_kind] = ACTIONS(4581),
   },
   [889] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4581),
-    [aux_sym_preproc_def_token1] = ACTIONS(4581),
-    [aux_sym_preproc_if_token1] = ACTIONS(4581),
-    [aux_sym_preproc_if_token2] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4581),
-    [aux_sym_preproc_else_token1] = ACTIONS(4581),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4581),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4581),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4581),
-    [sym_preproc_directive] = ACTIONS(4581),
-    [anon_sym_LPAREN2] = ACTIONS(4581),
-    [anon_sym_PLUS] = ACTIONS(4583),
-    [anon_sym_DASH] = ACTIONS(4583),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4581),
-    [aux_sym_module_statement_token1] = ACTIONS(4581),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4581),
-    [aux_sym_interface_statement_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4581),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4581),
-    [aux_sym_function_statement_token1] = ACTIONS(4581),
-    [aux_sym_language_binding_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4581),
-    [aux_sym_contains_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token2] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4581),
-    [aux_sym_save_statement_token1] = ACTIONS(4581),
-    [aux_sym_private_statement_token1] = ACTIONS(4581),
-    [aux_sym_public_statement_token1] = ACTIONS(4581),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4581),
-    [aux_sym_common_statement_token1] = ACTIONS(4581),
-    [aux_sym_import_statement_token1] = ACTIONS(4581),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4581),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4581),
-    [aux_sym_derived_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4581),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4581),
-    [anon_sym_SEMI] = ACTIONS(4583),
-    [aux_sym_stop_statement_token1] = ACTIONS(4581),
-    [aux_sym_stop_statement_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4581),
-    [aux_sym_include_statement_token1] = ACTIONS(4581),
-    [aux_sym_data_statement_token1] = ACTIONS(4581),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4581),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4581),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4581),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4581),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4581),
-    [aux_sym_block_construct_token1] = ACTIONS(4581),
-    [aux_sym_associate_statement_token1] = ACTIONS(4581),
-    [aux_sym_format_statement_token1] = ACTIONS(4581),
-    [aux_sym_print_statement_token1] = ACTIONS(4581),
-    [aux_sym_open_statement_token1] = ACTIONS(4581),
-    [aux_sym_close_statement_token1] = ACTIONS(4581),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4581),
-    [aux_sym_enum_statement_token1] = ACTIONS(4581),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4581),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4581),
-    [aux_sym_entry_statement_token1] = ACTIONS(4581),
-    [aux_sym_logical_expression_token5] = ACTIONS(4583),
-    [anon_sym_DOT] = ACTIONS(4581),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4583),
-    [anon_sym_LBRACK] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4583),
-    [aux_sym_null_literal_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4581),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4581),
-    [aux_sym_identifier_token1] = ACTIONS(4581),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4583),
-    [sym__float_literal] = ACTIONS(4583),
-    [sym__boz_literal] = ACTIONS(4583),
-    [sym__string_literal] = ACTIONS(4583),
-    [sym__string_literal_kind] = ACTIONS(4583),
+    [aux_sym_preproc_include_token1] = ACTIONS(4583),
+    [aux_sym_preproc_def_token1] = ACTIONS(4583),
+    [aux_sym_preproc_if_token1] = ACTIONS(4583),
+    [aux_sym_preproc_if_token2] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4583),
+    [aux_sym_preproc_else_token1] = ACTIONS(4583),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4583),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4583),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4583),
+    [sym_preproc_directive] = ACTIONS(4583),
+    [anon_sym_LPAREN2] = ACTIONS(4583),
+    [anon_sym_PLUS] = ACTIONS(4585),
+    [anon_sym_DASH] = ACTIONS(4585),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4583),
+    [aux_sym_module_statement_token1] = ACTIONS(4583),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4583),
+    [aux_sym_interface_statement_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4583),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4583),
+    [aux_sym_function_statement_token1] = ACTIONS(4583),
+    [aux_sym_language_binding_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4583),
+    [aux_sym_contains_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token2] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4583),
+    [aux_sym_save_statement_token1] = ACTIONS(4583),
+    [aux_sym_private_statement_token1] = ACTIONS(4583),
+    [aux_sym_public_statement_token1] = ACTIONS(4583),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4583),
+    [aux_sym_common_statement_token1] = ACTIONS(4583),
+    [aux_sym_import_statement_token1] = ACTIONS(4583),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4583),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4583),
+    [aux_sym_derived_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4583),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4583),
+    [anon_sym_SEMI] = ACTIONS(4585),
+    [aux_sym_stop_statement_token1] = ACTIONS(4583),
+    [aux_sym_stop_statement_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4583),
+    [aux_sym_include_statement_token1] = ACTIONS(4583),
+    [aux_sym_data_statement_token1] = ACTIONS(4583),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4583),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4583),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4583),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4583),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4583),
+    [aux_sym_block_construct_token1] = ACTIONS(4583),
+    [aux_sym_associate_statement_token1] = ACTIONS(4583),
+    [aux_sym_format_statement_token1] = ACTIONS(4583),
+    [aux_sym_print_statement_token1] = ACTIONS(4583),
+    [aux_sym_open_statement_token1] = ACTIONS(4583),
+    [aux_sym_close_statement_token1] = ACTIONS(4583),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4583),
+    [aux_sym_enum_statement_token1] = ACTIONS(4583),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4583),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4583),
+    [aux_sym_entry_statement_token1] = ACTIONS(4583),
+    [aux_sym_logical_expression_token5] = ACTIONS(4585),
+    [anon_sym_DOT] = ACTIONS(4583),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4585),
+    [anon_sym_LBRACK] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4585),
+    [aux_sym_null_literal_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4583),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4583),
+    [aux_sym_identifier_token1] = ACTIONS(4583),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4585),
+    [sym__float_literal] = ACTIONS(4585),
+    [sym__boz_literal] = ACTIONS(4585),
+    [sym__string_literal] = ACTIONS(4585),
+    [sym__string_literal_kind] = ACTIONS(4585),
   },
   [890] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4585),
-    [aux_sym_preproc_def_token1] = ACTIONS(4585),
-    [aux_sym_preproc_if_token1] = ACTIONS(4585),
-    [aux_sym_preproc_if_token2] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4585),
-    [aux_sym_preproc_else_token1] = ACTIONS(4585),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4585),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4585),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4585),
-    [sym_preproc_directive] = ACTIONS(4585),
-    [anon_sym_LPAREN2] = ACTIONS(4585),
-    [anon_sym_PLUS] = ACTIONS(4587),
-    [anon_sym_DASH] = ACTIONS(4587),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4585),
-    [aux_sym_module_statement_token1] = ACTIONS(4585),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4585),
-    [aux_sym_interface_statement_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4585),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4585),
-    [aux_sym_function_statement_token1] = ACTIONS(4585),
-    [aux_sym_language_binding_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4585),
-    [aux_sym_contains_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token2] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4585),
-    [aux_sym_save_statement_token1] = ACTIONS(4585),
-    [aux_sym_private_statement_token1] = ACTIONS(4585),
-    [aux_sym_public_statement_token1] = ACTIONS(4585),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4585),
-    [aux_sym_common_statement_token1] = ACTIONS(4585),
-    [aux_sym_import_statement_token1] = ACTIONS(4585),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4585),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4585),
-    [aux_sym_derived_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4585),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4585),
-    [anon_sym_SEMI] = ACTIONS(4587),
-    [aux_sym_stop_statement_token1] = ACTIONS(4585),
-    [aux_sym_stop_statement_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4585),
-    [aux_sym_include_statement_token1] = ACTIONS(4585),
-    [aux_sym_data_statement_token1] = ACTIONS(4585),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4585),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4585),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4585),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4585),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4585),
-    [aux_sym_block_construct_token1] = ACTIONS(4585),
-    [aux_sym_associate_statement_token1] = ACTIONS(4585),
-    [aux_sym_format_statement_token1] = ACTIONS(4585),
-    [aux_sym_print_statement_token1] = ACTIONS(4585),
-    [aux_sym_open_statement_token1] = ACTIONS(4585),
-    [aux_sym_close_statement_token1] = ACTIONS(4585),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4585),
-    [aux_sym_enum_statement_token1] = ACTIONS(4585),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4585),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4585),
-    [aux_sym_entry_statement_token1] = ACTIONS(4585),
-    [aux_sym_logical_expression_token5] = ACTIONS(4587),
-    [anon_sym_DOT] = ACTIONS(4585),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4587),
-    [anon_sym_LBRACK] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4587),
-    [aux_sym_null_literal_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4585),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4585),
-    [aux_sym_identifier_token1] = ACTIONS(4585),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4587),
-    [sym__float_literal] = ACTIONS(4587),
-    [sym__boz_literal] = ACTIONS(4587),
-    [sym__string_literal] = ACTIONS(4587),
-    [sym__string_literal_kind] = ACTIONS(4587),
+    [aux_sym_preproc_include_token1] = ACTIONS(4587),
+    [aux_sym_preproc_def_token1] = ACTIONS(4587),
+    [aux_sym_preproc_if_token1] = ACTIONS(4587),
+    [aux_sym_preproc_if_token2] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4587),
+    [aux_sym_preproc_else_token1] = ACTIONS(4587),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4587),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4587),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4587),
+    [sym_preproc_directive] = ACTIONS(4587),
+    [anon_sym_LPAREN2] = ACTIONS(4587),
+    [anon_sym_PLUS] = ACTIONS(4589),
+    [anon_sym_DASH] = ACTIONS(4589),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4587),
+    [aux_sym_module_statement_token1] = ACTIONS(4587),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4587),
+    [aux_sym_interface_statement_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4587),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4587),
+    [aux_sym_function_statement_token1] = ACTIONS(4587),
+    [aux_sym_language_binding_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4587),
+    [aux_sym_contains_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token2] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4587),
+    [aux_sym_save_statement_token1] = ACTIONS(4587),
+    [aux_sym_private_statement_token1] = ACTIONS(4587),
+    [aux_sym_public_statement_token1] = ACTIONS(4587),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4587),
+    [aux_sym_common_statement_token1] = ACTIONS(4587),
+    [aux_sym_import_statement_token1] = ACTIONS(4587),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4587),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4587),
+    [aux_sym_derived_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4587),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4587),
+    [anon_sym_SEMI] = ACTIONS(4589),
+    [aux_sym_stop_statement_token1] = ACTIONS(4587),
+    [aux_sym_stop_statement_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4587),
+    [aux_sym_include_statement_token1] = ACTIONS(4587),
+    [aux_sym_data_statement_token1] = ACTIONS(4587),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4587),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4587),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4587),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4587),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4587),
+    [aux_sym_block_construct_token1] = ACTIONS(4587),
+    [aux_sym_associate_statement_token1] = ACTIONS(4587),
+    [aux_sym_format_statement_token1] = ACTIONS(4587),
+    [aux_sym_print_statement_token1] = ACTIONS(4587),
+    [aux_sym_open_statement_token1] = ACTIONS(4587),
+    [aux_sym_close_statement_token1] = ACTIONS(4587),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4587),
+    [aux_sym_enum_statement_token1] = ACTIONS(4587),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4587),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4587),
+    [aux_sym_entry_statement_token1] = ACTIONS(4587),
+    [aux_sym_logical_expression_token5] = ACTIONS(4589),
+    [anon_sym_DOT] = ACTIONS(4587),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4589),
+    [anon_sym_LBRACK] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4589),
+    [aux_sym_null_literal_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4587),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4587),
+    [aux_sym_identifier_token1] = ACTIONS(4587),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4589),
+    [sym__float_literal] = ACTIONS(4589),
+    [sym__boz_literal] = ACTIONS(4589),
+    [sym__string_literal] = ACTIONS(4589),
+    [sym__string_literal_kind] = ACTIONS(4589),
   },
   [891] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4589),
-    [aux_sym_preproc_def_token1] = ACTIONS(4589),
-    [aux_sym_preproc_if_token1] = ACTIONS(4589),
-    [aux_sym_preproc_if_token2] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4589),
-    [aux_sym_preproc_else_token1] = ACTIONS(4589),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4589),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4589),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4589),
-    [sym_preproc_directive] = ACTIONS(4589),
-    [anon_sym_LPAREN2] = ACTIONS(4589),
-    [anon_sym_PLUS] = ACTIONS(4591),
-    [anon_sym_DASH] = ACTIONS(4591),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4589),
-    [aux_sym_module_statement_token1] = ACTIONS(4589),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4589),
-    [aux_sym_interface_statement_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4589),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4589),
-    [aux_sym_function_statement_token1] = ACTIONS(4589),
-    [aux_sym_language_binding_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4589),
-    [aux_sym_contains_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token2] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4589),
-    [aux_sym_save_statement_token1] = ACTIONS(4589),
-    [aux_sym_private_statement_token1] = ACTIONS(4589),
-    [aux_sym_public_statement_token1] = ACTIONS(4589),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4589),
-    [aux_sym_common_statement_token1] = ACTIONS(4589),
-    [aux_sym_import_statement_token1] = ACTIONS(4589),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4589),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4589),
-    [aux_sym_derived_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4589),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4589),
-    [anon_sym_SEMI] = ACTIONS(4591),
-    [aux_sym_stop_statement_token1] = ACTIONS(4589),
-    [aux_sym_stop_statement_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4589),
-    [aux_sym_include_statement_token1] = ACTIONS(4589),
-    [aux_sym_data_statement_token1] = ACTIONS(4589),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4589),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4589),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4589),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4589),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4589),
-    [aux_sym_block_construct_token1] = ACTIONS(4589),
-    [aux_sym_associate_statement_token1] = ACTIONS(4589),
-    [aux_sym_format_statement_token1] = ACTIONS(4589),
-    [aux_sym_print_statement_token1] = ACTIONS(4589),
-    [aux_sym_open_statement_token1] = ACTIONS(4589),
-    [aux_sym_close_statement_token1] = ACTIONS(4589),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4589),
-    [aux_sym_enum_statement_token1] = ACTIONS(4589),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4589),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4589),
-    [aux_sym_entry_statement_token1] = ACTIONS(4589),
-    [aux_sym_logical_expression_token5] = ACTIONS(4591),
-    [anon_sym_DOT] = ACTIONS(4589),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4591),
-    [anon_sym_LBRACK] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4591),
-    [aux_sym_null_literal_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4589),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4589),
-    [aux_sym_identifier_token1] = ACTIONS(4589),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4591),
-    [sym__float_literal] = ACTIONS(4591),
-    [sym__boz_literal] = ACTIONS(4591),
-    [sym__string_literal] = ACTIONS(4591),
-    [sym__string_literal_kind] = ACTIONS(4591),
+    [aux_sym_preproc_include_token1] = ACTIONS(4591),
+    [aux_sym_preproc_def_token1] = ACTIONS(4591),
+    [aux_sym_preproc_if_token1] = ACTIONS(4591),
+    [aux_sym_preproc_if_token2] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4591),
+    [aux_sym_preproc_else_token1] = ACTIONS(4591),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4591),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4591),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4591),
+    [sym_preproc_directive] = ACTIONS(4591),
+    [anon_sym_LPAREN2] = ACTIONS(4591),
+    [anon_sym_PLUS] = ACTIONS(4593),
+    [anon_sym_DASH] = ACTIONS(4593),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4591),
+    [aux_sym_module_statement_token1] = ACTIONS(4591),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4591),
+    [aux_sym_interface_statement_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4591),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4591),
+    [aux_sym_function_statement_token1] = ACTIONS(4591),
+    [aux_sym_language_binding_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4591),
+    [aux_sym_contains_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token2] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4591),
+    [aux_sym_save_statement_token1] = ACTIONS(4591),
+    [aux_sym_private_statement_token1] = ACTIONS(4591),
+    [aux_sym_public_statement_token1] = ACTIONS(4591),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4591),
+    [aux_sym_common_statement_token1] = ACTIONS(4591),
+    [aux_sym_import_statement_token1] = ACTIONS(4591),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4591),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4591),
+    [aux_sym_derived_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4591),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4591),
+    [anon_sym_SEMI] = ACTIONS(4593),
+    [aux_sym_stop_statement_token1] = ACTIONS(4591),
+    [aux_sym_stop_statement_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4591),
+    [aux_sym_include_statement_token1] = ACTIONS(4591),
+    [aux_sym_data_statement_token1] = ACTIONS(4591),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4591),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4591),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4591),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4591),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4591),
+    [aux_sym_block_construct_token1] = ACTIONS(4591),
+    [aux_sym_associate_statement_token1] = ACTIONS(4591),
+    [aux_sym_format_statement_token1] = ACTIONS(4591),
+    [aux_sym_print_statement_token1] = ACTIONS(4591),
+    [aux_sym_open_statement_token1] = ACTIONS(4591),
+    [aux_sym_close_statement_token1] = ACTIONS(4591),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4591),
+    [aux_sym_enum_statement_token1] = ACTIONS(4591),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4591),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4591),
+    [aux_sym_entry_statement_token1] = ACTIONS(4591),
+    [aux_sym_logical_expression_token5] = ACTIONS(4593),
+    [anon_sym_DOT] = ACTIONS(4591),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4593),
+    [anon_sym_LBRACK] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4593),
+    [aux_sym_null_literal_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4591),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4591),
+    [aux_sym_identifier_token1] = ACTIONS(4591),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4593),
+    [sym__float_literal] = ACTIONS(4593),
+    [sym__boz_literal] = ACTIONS(4593),
+    [sym__string_literal] = ACTIONS(4593),
+    [sym__string_literal_kind] = ACTIONS(4593),
   },
   [892] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4593),
-    [aux_sym_preproc_def_token1] = ACTIONS(4593),
-    [aux_sym_preproc_if_token1] = ACTIONS(4593),
-    [aux_sym_preproc_if_token2] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4593),
-    [aux_sym_preproc_else_token1] = ACTIONS(4593),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4593),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4593),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4593),
-    [sym_preproc_directive] = ACTIONS(4593),
-    [anon_sym_LPAREN2] = ACTIONS(4593),
-    [anon_sym_PLUS] = ACTIONS(4595),
-    [anon_sym_DASH] = ACTIONS(4595),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4593),
-    [aux_sym_module_statement_token1] = ACTIONS(4593),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4593),
-    [aux_sym_interface_statement_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4593),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4593),
-    [aux_sym_function_statement_token1] = ACTIONS(4593),
-    [aux_sym_language_binding_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4593),
-    [aux_sym_contains_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token2] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4593),
-    [aux_sym_save_statement_token1] = ACTIONS(4593),
-    [aux_sym_private_statement_token1] = ACTIONS(4593),
-    [aux_sym_public_statement_token1] = ACTIONS(4593),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4593),
-    [aux_sym_common_statement_token1] = ACTIONS(4593),
-    [aux_sym_import_statement_token1] = ACTIONS(4593),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4593),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4593),
-    [aux_sym_derived_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4593),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4593),
-    [anon_sym_SEMI] = ACTIONS(4595),
-    [aux_sym_stop_statement_token1] = ACTIONS(4593),
-    [aux_sym_stop_statement_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4593),
-    [aux_sym_include_statement_token1] = ACTIONS(4593),
-    [aux_sym_data_statement_token1] = ACTIONS(4593),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4593),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4593),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4593),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4593),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4593),
-    [aux_sym_block_construct_token1] = ACTIONS(4593),
-    [aux_sym_associate_statement_token1] = ACTIONS(4593),
-    [aux_sym_format_statement_token1] = ACTIONS(4593),
-    [aux_sym_print_statement_token1] = ACTIONS(4593),
-    [aux_sym_open_statement_token1] = ACTIONS(4593),
-    [aux_sym_close_statement_token1] = ACTIONS(4593),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4593),
-    [aux_sym_enum_statement_token1] = ACTIONS(4593),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4593),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4593),
-    [aux_sym_entry_statement_token1] = ACTIONS(4593),
-    [aux_sym_logical_expression_token5] = ACTIONS(4595),
-    [anon_sym_DOT] = ACTIONS(4593),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4595),
-    [anon_sym_LBRACK] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4595),
-    [aux_sym_null_literal_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4593),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4593),
-    [aux_sym_identifier_token1] = ACTIONS(4593),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4595),
-    [sym__float_literal] = ACTIONS(4595),
-    [sym__boz_literal] = ACTIONS(4595),
-    [sym__string_literal] = ACTIONS(4595),
-    [sym__string_literal_kind] = ACTIONS(4595),
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_module_statement_token1] = ACTIONS(4595),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_function_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
   [893] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [aux_sym_preproc_else_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [aux_sym_preproc_include_token1] = ACTIONS(4599),
+    [aux_sym_preproc_def_token1] = ACTIONS(4599),
+    [aux_sym_preproc_if_token1] = ACTIONS(4599),
+    [aux_sym_preproc_if_token2] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4599),
+    [aux_sym_preproc_else_token1] = ACTIONS(4599),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4599),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4599),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4599),
+    [sym_preproc_directive] = ACTIONS(4599),
+    [anon_sym_LPAREN2] = ACTIONS(4599),
+    [anon_sym_PLUS] = ACTIONS(4601),
+    [anon_sym_DASH] = ACTIONS(4601),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4599),
+    [aux_sym_module_statement_token1] = ACTIONS(4599),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4599),
+    [aux_sym_interface_statement_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4599),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4599),
+    [aux_sym_function_statement_token1] = ACTIONS(4599),
+    [aux_sym_language_binding_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4599),
+    [aux_sym_contains_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token2] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4599),
+    [aux_sym_save_statement_token1] = ACTIONS(4599),
+    [aux_sym_private_statement_token1] = ACTIONS(4599),
+    [aux_sym_public_statement_token1] = ACTIONS(4599),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4599),
+    [aux_sym_common_statement_token1] = ACTIONS(4599),
+    [aux_sym_import_statement_token1] = ACTIONS(4599),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4599),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4599),
+    [aux_sym_derived_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4599),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4599),
+    [anon_sym_SEMI] = ACTIONS(4601),
+    [aux_sym_stop_statement_token1] = ACTIONS(4599),
+    [aux_sym_stop_statement_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4599),
+    [aux_sym_include_statement_token1] = ACTIONS(4599),
+    [aux_sym_data_statement_token1] = ACTIONS(4599),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4599),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4599),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4599),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4599),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4599),
+    [aux_sym_block_construct_token1] = ACTIONS(4599),
+    [aux_sym_associate_statement_token1] = ACTIONS(4599),
+    [aux_sym_format_statement_token1] = ACTIONS(4599),
+    [aux_sym_print_statement_token1] = ACTIONS(4599),
+    [aux_sym_open_statement_token1] = ACTIONS(4599),
+    [aux_sym_close_statement_token1] = ACTIONS(4599),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4599),
+    [aux_sym_enum_statement_token1] = ACTIONS(4599),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4599),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4599),
+    [aux_sym_entry_statement_token1] = ACTIONS(4599),
+    [aux_sym_logical_expression_token5] = ACTIONS(4601),
+    [anon_sym_DOT] = ACTIONS(4599),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4601),
+    [anon_sym_LBRACK] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4601),
+    [aux_sym_null_literal_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4599),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4599),
+    [aux_sym_identifier_token1] = ACTIONS(4599),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4601),
+    [sym__float_literal] = ACTIONS(4601),
+    [sym__boz_literal] = ACTIONS(4601),
+    [sym__string_literal] = ACTIONS(4601),
+    [sym__string_literal_kind] = ACTIONS(4601),
   },
   [894] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [aux_sym_preproc_else_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+    [aux_sym_preproc_include_token1] = ACTIONS(4603),
+    [aux_sym_preproc_def_token1] = ACTIONS(4603),
+    [aux_sym_preproc_if_token1] = ACTIONS(4603),
+    [aux_sym_preproc_if_token2] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4603),
+    [aux_sym_preproc_else_token1] = ACTIONS(4603),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4603),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4603),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4603),
+    [sym_preproc_directive] = ACTIONS(4603),
+    [anon_sym_LPAREN2] = ACTIONS(4603),
+    [anon_sym_PLUS] = ACTIONS(4605),
+    [anon_sym_DASH] = ACTIONS(4605),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4603),
+    [aux_sym_module_statement_token1] = ACTIONS(4603),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4603),
+    [aux_sym_interface_statement_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4603),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4603),
+    [aux_sym_function_statement_token1] = ACTIONS(4603),
+    [aux_sym_language_binding_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4603),
+    [aux_sym_contains_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token2] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4603),
+    [aux_sym_save_statement_token1] = ACTIONS(4603),
+    [aux_sym_private_statement_token1] = ACTIONS(4603),
+    [aux_sym_public_statement_token1] = ACTIONS(4603),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4603),
+    [aux_sym_common_statement_token1] = ACTIONS(4603),
+    [aux_sym_import_statement_token1] = ACTIONS(4603),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4603),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4603),
+    [aux_sym_derived_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4603),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4603),
+    [anon_sym_SEMI] = ACTIONS(4605),
+    [aux_sym_stop_statement_token1] = ACTIONS(4603),
+    [aux_sym_stop_statement_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4603),
+    [aux_sym_include_statement_token1] = ACTIONS(4603),
+    [aux_sym_data_statement_token1] = ACTIONS(4603),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4603),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4603),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4603),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4603),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4603),
+    [aux_sym_block_construct_token1] = ACTIONS(4603),
+    [aux_sym_associate_statement_token1] = ACTIONS(4603),
+    [aux_sym_format_statement_token1] = ACTIONS(4603),
+    [aux_sym_print_statement_token1] = ACTIONS(4603),
+    [aux_sym_open_statement_token1] = ACTIONS(4603),
+    [aux_sym_close_statement_token1] = ACTIONS(4603),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4603),
+    [aux_sym_enum_statement_token1] = ACTIONS(4603),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4603),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4603),
+    [aux_sym_entry_statement_token1] = ACTIONS(4603),
+    [aux_sym_logical_expression_token5] = ACTIONS(4605),
+    [anon_sym_DOT] = ACTIONS(4603),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4605),
+    [anon_sym_LBRACK] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4605),
+    [aux_sym_null_literal_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4603),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4603),
+    [aux_sym_identifier_token1] = ACTIONS(4603),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4605),
+    [sym__float_literal] = ACTIONS(4605),
+    [sym__boz_literal] = ACTIONS(4605),
+    [sym__string_literal] = ACTIONS(4605),
+    [sym__string_literal_kind] = ACTIONS(4605),
   },
   [895] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4597),
-    [aux_sym_preproc_def_token1] = ACTIONS(4597),
-    [aux_sym_preproc_if_token1] = ACTIONS(4597),
-    [aux_sym_preproc_if_token2] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4597),
-    [aux_sym_preproc_else_token1] = ACTIONS(4597),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4597),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4597),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4597),
-    [sym_preproc_directive] = ACTIONS(4597),
-    [anon_sym_LPAREN2] = ACTIONS(4597),
-    [anon_sym_PLUS] = ACTIONS(4599),
-    [anon_sym_DASH] = ACTIONS(4599),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4597),
-    [aux_sym_module_statement_token1] = ACTIONS(4597),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4597),
-    [aux_sym_interface_statement_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4597),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4597),
-    [aux_sym_function_statement_token1] = ACTIONS(4597),
-    [aux_sym_language_binding_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4597),
-    [aux_sym_contains_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token2] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4597),
-    [aux_sym_save_statement_token1] = ACTIONS(4597),
-    [aux_sym_private_statement_token1] = ACTIONS(4597),
-    [aux_sym_public_statement_token1] = ACTIONS(4597),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4597),
-    [aux_sym_common_statement_token1] = ACTIONS(4597),
-    [aux_sym_import_statement_token1] = ACTIONS(4597),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4597),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4597),
-    [aux_sym_derived_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4597),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4597),
-    [anon_sym_SEMI] = ACTIONS(4599),
-    [aux_sym_stop_statement_token1] = ACTIONS(4597),
-    [aux_sym_stop_statement_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4597),
-    [aux_sym_include_statement_token1] = ACTIONS(4597),
-    [aux_sym_data_statement_token1] = ACTIONS(4597),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4597),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4597),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4597),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4597),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4597),
-    [aux_sym_block_construct_token1] = ACTIONS(4597),
-    [aux_sym_associate_statement_token1] = ACTIONS(4597),
-    [aux_sym_format_statement_token1] = ACTIONS(4597),
-    [aux_sym_print_statement_token1] = ACTIONS(4597),
-    [aux_sym_open_statement_token1] = ACTIONS(4597),
-    [aux_sym_close_statement_token1] = ACTIONS(4597),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4597),
-    [aux_sym_enum_statement_token1] = ACTIONS(4597),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4597),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4597),
-    [aux_sym_entry_statement_token1] = ACTIONS(4597),
-    [aux_sym_logical_expression_token5] = ACTIONS(4599),
-    [anon_sym_DOT] = ACTIONS(4597),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4599),
-    [anon_sym_LBRACK] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4599),
-    [aux_sym_null_literal_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4597),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4597),
-    [aux_sym_identifier_token1] = ACTIONS(4597),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4599),
-    [sym__float_literal] = ACTIONS(4599),
-    [sym__boz_literal] = ACTIONS(4599),
-    [sym__string_literal] = ACTIONS(4599),
-    [sym__string_literal_kind] = ACTIONS(4599),
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_module_statement_token1] = ACTIONS(4607),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_function_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
   [896] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [aux_sym_preproc_else_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4601),
-    [aux_sym_module_statement_token1] = ACTIONS(4601),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_function_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+    [aux_sym_preproc_include_token1] = ACTIONS(4611),
+    [aux_sym_preproc_def_token1] = ACTIONS(4611),
+    [aux_sym_preproc_if_token1] = ACTIONS(4611),
+    [aux_sym_preproc_if_token2] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4611),
+    [aux_sym_preproc_else_token1] = ACTIONS(4611),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4611),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4611),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4611),
+    [sym_preproc_directive] = ACTIONS(4611),
+    [anon_sym_LPAREN2] = ACTIONS(4611),
+    [anon_sym_PLUS] = ACTIONS(4613),
+    [anon_sym_DASH] = ACTIONS(4613),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4611),
+    [aux_sym_module_statement_token1] = ACTIONS(4611),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4611),
+    [aux_sym_interface_statement_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4611),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4611),
+    [aux_sym_function_statement_token1] = ACTIONS(4611),
+    [aux_sym_language_binding_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4611),
+    [aux_sym_contains_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token2] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4611),
+    [aux_sym_save_statement_token1] = ACTIONS(4611),
+    [aux_sym_private_statement_token1] = ACTIONS(4611),
+    [aux_sym_public_statement_token1] = ACTIONS(4611),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4611),
+    [aux_sym_common_statement_token1] = ACTIONS(4611),
+    [aux_sym_import_statement_token1] = ACTIONS(4611),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4611),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4611),
+    [aux_sym_derived_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4611),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4611),
+    [anon_sym_SEMI] = ACTIONS(4613),
+    [aux_sym_stop_statement_token1] = ACTIONS(4611),
+    [aux_sym_stop_statement_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4611),
+    [aux_sym_include_statement_token1] = ACTIONS(4611),
+    [aux_sym_data_statement_token1] = ACTIONS(4611),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4611),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4611),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4611),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4611),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4611),
+    [aux_sym_block_construct_token1] = ACTIONS(4611),
+    [aux_sym_associate_statement_token1] = ACTIONS(4611),
+    [aux_sym_format_statement_token1] = ACTIONS(4611),
+    [aux_sym_print_statement_token1] = ACTIONS(4611),
+    [aux_sym_open_statement_token1] = ACTIONS(4611),
+    [aux_sym_close_statement_token1] = ACTIONS(4611),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4611),
+    [aux_sym_enum_statement_token1] = ACTIONS(4611),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4611),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4611),
+    [aux_sym_entry_statement_token1] = ACTIONS(4611),
+    [aux_sym_logical_expression_token5] = ACTIONS(4613),
+    [anon_sym_DOT] = ACTIONS(4611),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4613),
+    [anon_sym_LBRACK] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4613),
+    [aux_sym_null_literal_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4611),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4611),
+    [aux_sym_identifier_token1] = ACTIONS(4611),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4613),
+    [sym__float_literal] = ACTIONS(4613),
+    [sym__boz_literal] = ACTIONS(4613),
+    [sym__string_literal] = ACTIONS(4613),
+    [sym__string_literal_kind] = ACTIONS(4613),
   },
   [897] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [aux_sym_preproc_else_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4605),
-    [aux_sym_module_statement_token1] = ACTIONS(4605),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_function_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+    [aux_sym_preproc_include_token1] = ACTIONS(4615),
+    [aux_sym_preproc_def_token1] = ACTIONS(4615),
+    [aux_sym_preproc_if_token1] = ACTIONS(4615),
+    [aux_sym_preproc_if_token2] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4615),
+    [aux_sym_preproc_else_token1] = ACTIONS(4615),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4615),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4615),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4615),
+    [sym_preproc_directive] = ACTIONS(4615),
+    [anon_sym_LPAREN2] = ACTIONS(4615),
+    [anon_sym_PLUS] = ACTIONS(4617),
+    [anon_sym_DASH] = ACTIONS(4617),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4615),
+    [aux_sym_module_statement_token1] = ACTIONS(4615),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4615),
+    [aux_sym_interface_statement_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4615),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4615),
+    [aux_sym_function_statement_token1] = ACTIONS(4615),
+    [aux_sym_language_binding_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4615),
+    [aux_sym_contains_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token2] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4615),
+    [aux_sym_save_statement_token1] = ACTIONS(4615),
+    [aux_sym_private_statement_token1] = ACTIONS(4615),
+    [aux_sym_public_statement_token1] = ACTIONS(4615),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4615),
+    [aux_sym_common_statement_token1] = ACTIONS(4615),
+    [aux_sym_import_statement_token1] = ACTIONS(4615),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4615),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4615),
+    [aux_sym_derived_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4615),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4615),
+    [anon_sym_SEMI] = ACTIONS(4617),
+    [aux_sym_stop_statement_token1] = ACTIONS(4615),
+    [aux_sym_stop_statement_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4615),
+    [aux_sym_include_statement_token1] = ACTIONS(4615),
+    [aux_sym_data_statement_token1] = ACTIONS(4615),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4615),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4615),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4615),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4615),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4615),
+    [aux_sym_block_construct_token1] = ACTIONS(4615),
+    [aux_sym_associate_statement_token1] = ACTIONS(4615),
+    [aux_sym_format_statement_token1] = ACTIONS(4615),
+    [aux_sym_print_statement_token1] = ACTIONS(4615),
+    [aux_sym_open_statement_token1] = ACTIONS(4615),
+    [aux_sym_close_statement_token1] = ACTIONS(4615),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4615),
+    [aux_sym_enum_statement_token1] = ACTIONS(4615),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4615),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4615),
+    [aux_sym_entry_statement_token1] = ACTIONS(4615),
+    [aux_sym_logical_expression_token5] = ACTIONS(4617),
+    [anon_sym_DOT] = ACTIONS(4615),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4617),
+    [anon_sym_LBRACK] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4617),
+    [aux_sym_null_literal_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4615),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4615),
+    [aux_sym_identifier_token1] = ACTIONS(4615),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4617),
+    [sym__float_literal] = ACTIONS(4617),
+    [sym__boz_literal] = ACTIONS(4617),
+    [sym__string_literal] = ACTIONS(4617),
+    [sym__string_literal_kind] = ACTIONS(4617),
   },
   [898] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [aux_sym_preproc_else_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4609),
-    [aux_sym_module_statement_token1] = ACTIONS(4609),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_function_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
   [899] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [aux_sym_preproc_else_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4613),
-    [aux_sym_module_statement_token1] = ACTIONS(4613),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_function_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
-  },
-  [900] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [aux_sym_preproc_else_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4617),
-    [aux_sym_module_statement_token1] = ACTIONS(4617),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_function_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
-  },
-  [901] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4621),
     [aux_sym_preproc_def_token1] = ACTIONS(4621),
     [aux_sym_preproc_if_token1] = ACTIONS(4621),
@@ -219120,7 +218689,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4623),
     [sym__string_literal_kind] = ACTIONS(4623),
   },
-  [902] = {
+  [900] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4625),
     [aux_sym_preproc_def_token1] = ACTIONS(4625),
     [aux_sym_preproc_if_token1] = ACTIONS(4625),
@@ -219265,7 +218834,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4627),
     [sym__string_literal_kind] = ACTIONS(4627),
   },
-  [903] = {
+  [901] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4629),
     [aux_sym_preproc_def_token1] = ACTIONS(4629),
     [aux_sym_preproc_if_token1] = ACTIONS(4629),
@@ -219410,7 +218979,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4631),
     [sym__string_literal_kind] = ACTIONS(4631),
   },
-  [904] = {
+  [902] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4633),
     [aux_sym_preproc_def_token1] = ACTIONS(4633),
     [aux_sym_preproc_if_token1] = ACTIONS(4633),
@@ -219555,7 +219124,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4635),
     [sym__string_literal_kind] = ACTIONS(4635),
   },
-  [905] = {
+  [903] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4637),
     [aux_sym_preproc_def_token1] = ACTIONS(4637),
     [aux_sym_preproc_if_token1] = ACTIONS(4637),
@@ -219700,7 +219269,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4639),
     [sym__string_literal_kind] = ACTIONS(4639),
   },
-  [906] = {
+  [904] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4641),
     [aux_sym_preproc_def_token1] = ACTIONS(4641),
     [aux_sym_preproc_if_token1] = ACTIONS(4641),
@@ -219845,53 +219414,343 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4643),
     [sym__string_literal_kind] = ACTIONS(4643),
   },
+  [905] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [906] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4305),
+    [aux_sym_preproc_def_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
+    [aux_sym_preproc_else_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4305),
+    [sym_preproc_directive] = ACTIONS(4305),
+    [anon_sym_LPAREN2] = ACTIONS(4305),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
+    [aux_sym_contains_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token2] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
+    [aux_sym_save_statement_token1] = ACTIONS(4305),
+    [aux_sym_private_statement_token1] = ACTIONS(4305),
+    [aux_sym_public_statement_token1] = ACTIONS(4305),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
+    [aux_sym_common_statement_token1] = ACTIONS(4305),
+    [aux_sym_import_statement_token1] = ACTIONS(4305),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
+    [aux_sym_derived_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
+    [anon_sym_SEMI] = ACTIONS(4309),
+    [aux_sym_stop_statement_token1] = ACTIONS(4305),
+    [aux_sym_stop_statement_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
+    [aux_sym_include_statement_token1] = ACTIONS(4305),
+    [aux_sym_data_statement_token1] = ACTIONS(4305),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
+    [aux_sym_block_construct_token1] = ACTIONS(4305),
+    [aux_sym_associate_statement_token1] = ACTIONS(4305),
+    [aux_sym_format_statement_token1] = ACTIONS(4305),
+    [aux_sym_print_statement_token1] = ACTIONS(4305),
+    [aux_sym_open_statement_token1] = ACTIONS(4305),
+    [aux_sym_close_statement_token1] = ACTIONS(4305),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
+    [aux_sym_enum_statement_token1] = ACTIONS(4305),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
+    [aux_sym_entry_statement_token1] = ACTIONS(4305),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
+    [anon_sym_DOT] = ACTIONS(4305),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
+    [aux_sym_null_literal_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
+    [aux_sym_identifier_token1] = ACTIONS(4305),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
+  },
   [907] = {
-    [sym_preproc_include] = STATE(958),
-    [sym_preproc_def] = STATE(958),
-    [sym_preproc_function_def] = STATE(958),
-    [sym_preproc_call] = STATE(958),
-    [sym_preproc_else_in_module] = STATE(8530),
-    [sym_preproc_elif_in_module] = STATE(8530),
-    [sym_preproc_elifdef_in_module] = STATE(8530),
-    [sym_interface] = STATE(958),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5972),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(958),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(958),
-    [sym_public_statement] = STATE(958),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(958),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(958),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(958),
+    [sym_preproc_include] = STATE(940),
+    [sym_preproc_def] = STATE(940),
+    [sym_preproc_function_def] = STATE(940),
+    [sym_preproc_call] = STATE(940),
+    [sym_preproc_else_in_module] = STATE(8214),
+    [sym_preproc_elif_in_module] = STATE(8214),
+    [sym_preproc_elifdef_in_module] = STATE(8214),
+    [sym_interface] = STATE(940),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5971),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(940),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(940),
+    [sym_public_statement] = STATE(940),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(940),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(940),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(940),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(958),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(940),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4649),
@@ -219902,19 +219761,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(4657),
     [sym_preproc_comment] = ACTIONS(4659),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -219931,15 +219790,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -219989,52 +219848,52 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [908] = {
-    [sym_preproc_include] = STATE(917),
-    [sym_preproc_def] = STATE(917),
-    [sym_preproc_function_def] = STATE(917),
-    [sym_preproc_call] = STATE(917),
-    [sym_preproc_else_in_module] = STATE(7863),
-    [sym_preproc_elif_in_module] = STATE(7863),
-    [sym_preproc_elifdef_in_module] = STATE(7863),
-    [sym_interface] = STATE(917),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5869),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(917),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(917),
-    [sym_public_statement] = STATE(917),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(917),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(917),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(917),
+    [sym_preproc_include] = STATE(913),
+    [sym_preproc_def] = STATE(913),
+    [sym_preproc_function_def] = STATE(913),
+    [sym_preproc_call] = STATE(913),
+    [sym_preproc_else_in_module] = STATE(8380),
+    [sym_preproc_elif_in_module] = STATE(8380),
+    [sym_preproc_elifdef_in_module] = STATE(8380),
+    [sym_interface] = STATE(913),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5985),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(913),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(913),
+    [sym_public_statement] = STATE(913),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(913),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(913),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(913),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(917),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(913),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4673),
@@ -220045,19 +219904,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(4657),
     [sym_preproc_comment] = ACTIONS(4675),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -220074,15 +219933,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -220132,52 +219991,52 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [909] = {
-    [sym_preproc_include] = STATE(949),
-    [sym_preproc_def] = STATE(949),
-    [sym_preproc_function_def] = STATE(949),
-    [sym_preproc_call] = STATE(949),
-    [sym_preproc_else_in_module] = STATE(7774),
-    [sym_preproc_elif_in_module] = STATE(7774),
-    [sym_preproc_elifdef_in_module] = STATE(7774),
-    [sym_interface] = STATE(949),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5923),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(949),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(949),
-    [sym_public_statement] = STATE(949),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(949),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(949),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(949),
+    [sym_preproc_include] = STATE(919),
+    [sym_preproc_def] = STATE(919),
+    [sym_preproc_function_def] = STATE(919),
+    [sym_preproc_call] = STATE(919),
+    [sym_preproc_else_in_module] = STATE(7998),
+    [sym_preproc_elif_in_module] = STATE(7998),
+    [sym_preproc_elifdef_in_module] = STATE(7998),
+    [sym_interface] = STATE(919),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5977),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(919),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(919),
+    [sym_public_statement] = STATE(919),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(919),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(919),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(919),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(949),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(919),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4677),
@@ -220188,19 +220047,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(4657),
     [sym_preproc_comment] = ACTIONS(4679),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -220217,15 +220076,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -220275,216 +220134,358 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [910] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
     [sym_preproc_comment] = ACTIONS(4681),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
   [911] = {
-    [sym_preproc_include] = STATE(914),
-    [sym_preproc_def] = STATE(914),
-    [sym_preproc_function_def] = STATE(914),
-    [sym_preproc_call] = STATE(914),
-    [sym_preproc_else_in_module] = STATE(8549),
-    [sym_preproc_elif_in_module] = STATE(8549),
-    [sym_preproc_elifdef_in_module] = STATE(8549),
-    [sym_interface] = STATE(914),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5956),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(914),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(914),
-    [sym_public_statement] = STATE(914),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(914),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(914),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(914),
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [sym_preproc_comment] = ACTIONS(4683),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
+  },
+  [912] = {
+    [sym_preproc_include] = STATE(1113),
+    [sym_preproc_def] = STATE(1113),
+    [sym_preproc_function_def] = STATE(1113),
+    [sym_preproc_call] = STATE(1113),
+    [sym_preproc_else_in_module] = STATE(8303),
+    [sym_preproc_elif_in_module] = STATE(8303),
+    [sym_preproc_elifdef_in_module] = STATE(8303),
+    [sym_interface] = STATE(1113),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5904),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(1113),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(1113),
+    [sym_public_statement] = STATE(1113),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(1113),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(1113),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(914),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4683),
+    [aux_sym_preproc_if_token2] = ACTIONS(4685),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -220501,15 +220502,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -220558,217 +220559,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [912] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [sym_preproc_comment] = ACTIONS(4685),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
-  },
   [913] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(8549),
-    [sym_preproc_elif_in_module] = STATE(8549),
-    [sym_preproc_elifdef_in_module] = STATE(8549),
+    [sym_preproc_else_in_module] = STATE(7744),
+    [sym_preproc_elif_in_module] = STATE(7744),
+    [sym_preproc_elifdef_in_module] = STATE(7744),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5956),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5806),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4683),
+    [aux_sym_preproc_if_token2] = ACTIONS(4687),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -220785,15 +220644,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -220843,52 +220702,52 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [914] = {
-    [sym_preproc_include] = STATE(1113),
-    [sym_preproc_def] = STATE(1113),
-    [sym_preproc_function_def] = STATE(1113),
-    [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(8023),
-    [sym_preproc_elif_in_module] = STATE(8023),
-    [sym_preproc_elifdef_in_module] = STATE(8023),
-    [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5902),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(1113),
-    [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(1113),
+    [sym_preproc_include] = STATE(922),
+    [sym_preproc_def] = STATE(922),
+    [sym_preproc_function_def] = STATE(922),
+    [sym_preproc_call] = STATE(922),
+    [sym_preproc_else_in_module] = STATE(7744),
+    [sym_preproc_elif_in_module] = STATE(7744),
+    [sym_preproc_elifdef_in_module] = STATE(7744),
+    [sym_interface] = STATE(922),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5806),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(922),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(922),
+    [sym_public_statement] = STATE(922),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(922),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(922),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(922),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(922),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4687),
@@ -220898,19 +220757,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -220927,15 +220786,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -220985,52 +220844,52 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [915] = {
-    [sym_preproc_include] = STATE(919),
-    [sym_preproc_def] = STATE(919),
-    [sym_preproc_function_def] = STATE(919),
-    [sym_preproc_call] = STATE(919),
-    [sym_preproc_else_in_module] = STATE(8164),
-    [sym_preproc_elif_in_module] = STATE(8164),
-    [sym_preproc_elifdef_in_module] = STATE(8164),
-    [sym_interface] = STATE(919),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5911),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(919),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(919),
-    [sym_public_statement] = STATE(919),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(919),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(919),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(919),
+    [sym_preproc_include] = STATE(912),
+    [sym_preproc_def] = STATE(912),
+    [sym_preproc_function_def] = STATE(912),
+    [sym_preproc_call] = STATE(912),
+    [sym_preproc_else_in_module] = STATE(8197),
+    [sym_preproc_elif_in_module] = STATE(8197),
+    [sym_preproc_elifdef_in_module] = STATE(8197),
+    [sym_interface] = STATE(912),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5924),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(912),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(912),
+    [sym_public_statement] = STATE(912),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(912),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(912),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(912),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(919),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(912),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4689),
@@ -221040,19 +220899,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -221069,15 +220928,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -221127,52 +220986,52 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [916] = {
-    [sym_preproc_include] = STATE(943),
-    [sym_preproc_def] = STATE(943),
-    [sym_preproc_function_def] = STATE(943),
-    [sym_preproc_call] = STATE(943),
-    [sym_preproc_else_in_module] = STATE(8230),
-    [sym_preproc_elif_in_module] = STATE(8230),
-    [sym_preproc_elifdef_in_module] = STATE(8230),
-    [sym_interface] = STATE(943),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5944),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(943),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(943),
-    [sym_public_statement] = STATE(943),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(943),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(943),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(943),
+    [sym_preproc_include] = STATE(953),
+    [sym_preproc_def] = STATE(953),
+    [sym_preproc_function_def] = STATE(953),
+    [sym_preproc_call] = STATE(953),
+    [sym_preproc_else_in_module] = STATE(7747),
+    [sym_preproc_elif_in_module] = STATE(7747),
+    [sym_preproc_elifdef_in_module] = STATE(7747),
+    [sym_interface] = STATE(953),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5804),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(953),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(953),
+    [sym_public_statement] = STATE(953),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(953),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(953),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(953),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(943),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(953),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4691),
@@ -221182,19 +221041,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -221211,15 +221070,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -221269,74 +221128,216 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [917] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(4693),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4337),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_module_statement_token1] = ACTIONS(4337),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4337),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4337),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_function_statement_token1] = ACTIONS(4337),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4337),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [918] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(8230),
-    [sym_preproc_elif_in_module] = STATE(8230),
-    [sym_preproc_elifdef_in_module] = STATE(8230),
+    [sym_preproc_else_in_module] = STATE(8197),
+    [sym_preproc_elif_in_module] = STATE(8197),
+    [sym_preproc_elifdef_in_module] = STATE(8197),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5944),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5924),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4691),
+    [aux_sym_preproc_if_token2] = ACTIONS(4689),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -221353,15 +221354,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -221410,195 +221411,53 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [918] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(4693),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4279),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
-    [aux_sym_module_statement_token1] = ACTIONS(4279),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_function_statement_token1] = ACTIONS(4279),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
   [919] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7908),
-    [sym_preproc_elif_in_module] = STATE(7908),
-    [sym_preproc_elifdef_in_module] = STATE(7908),
+    [sym_preproc_else_in_module] = STATE(8141),
+    [sym_preproc_elif_in_module] = STATE(8141),
+    [sym_preproc_elifdef_in_module] = STATE(8141),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5872),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5949),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
     [aux_sym_preproc_if_token2] = ACTIONS(4695),
@@ -221608,19 +221467,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -221637,15 +221496,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -221695,74 +221554,358 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__integer_literal] = ACTIONS(4671),
   },
   [920] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4311),
+    [aux_sym_preproc_def_token1] = ACTIONS(4311),
+    [aux_sym_preproc_if_token1] = ACTIONS(4311),
+    [aux_sym_preproc_if_token2] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4311),
+    [sym_preproc_directive] = ACTIONS(4311),
+    [anon_sym_LPAREN2] = ACTIONS(4311),
+    [sym_preproc_comment] = ACTIONS(4697),
+    [anon_sym_PLUS] = ACTIONS(4315),
+    [anon_sym_DASH] = ACTIONS(4315),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4311),
+    [aux_sym_module_statement_token1] = ACTIONS(4311),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4311),
+    [aux_sym_interface_statement_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4311),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4311),
+    [aux_sym_function_statement_token1] = ACTIONS(4311),
+    [aux_sym_language_binding_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4311),
+    [aux_sym_contains_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token2] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4311),
+    [aux_sym_save_statement_token1] = ACTIONS(4311),
+    [aux_sym_private_statement_token1] = ACTIONS(4311),
+    [aux_sym_public_statement_token1] = ACTIONS(4311),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4311),
+    [aux_sym_common_statement_token1] = ACTIONS(4311),
+    [aux_sym_import_statement_token1] = ACTIONS(4311),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4311),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4311),
+    [aux_sym_derived_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4311),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4311),
+    [anon_sym_SEMI] = ACTIONS(4315),
+    [aux_sym_stop_statement_token1] = ACTIONS(4311),
+    [aux_sym_stop_statement_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4311),
+    [aux_sym_include_statement_token1] = ACTIONS(4311),
+    [aux_sym_data_statement_token1] = ACTIONS(4311),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4311),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4311),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4311),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4311),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4311),
+    [aux_sym_block_construct_token1] = ACTIONS(4311),
+    [aux_sym_associate_statement_token1] = ACTIONS(4311),
+    [aux_sym_format_statement_token1] = ACTIONS(4311),
+    [aux_sym_print_statement_token1] = ACTIONS(4311),
+    [aux_sym_open_statement_token1] = ACTIONS(4311),
+    [aux_sym_close_statement_token1] = ACTIONS(4311),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4311),
+    [aux_sym_enum_statement_token1] = ACTIONS(4311),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4311),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4311),
+    [aux_sym_entry_statement_token1] = ACTIONS(4311),
+    [aux_sym_logical_expression_token5] = ACTIONS(4315),
+    [anon_sym_DOT] = ACTIONS(4311),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4315),
+    [anon_sym_LBRACK] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4315),
+    [aux_sym_null_literal_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4311),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4311),
+    [aux_sym_identifier_token1] = ACTIONS(4311),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4315),
+    [sym__float_literal] = ACTIONS(4315),
+    [sym__boz_literal] = ACTIONS(4315),
+    [sym__string_literal] = ACTIONS(4315),
+    [sym__string_literal_kind] = ACTIONS(4315),
+  },
+  [921] = {
+    [ts_builtin_sym_end] = ACTIONS(4699),
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(4701),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4383),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_module_statement_token1] = ACTIONS(4383),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4383),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4383),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_function_statement_token1] = ACTIONS(4383),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4383),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [922] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(8206),
-    [sym_preproc_elif_in_module] = STATE(8206),
-    [sym_preproc_elifdef_in_module] = STATE(8206),
+    [sym_preproc_else_in_module] = STATE(8215),
+    [sym_preproc_elif_in_module] = STATE(8215),
+    [sym_preproc_elifdef_in_module] = STATE(8215),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5900),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5989),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4697),
+    [aux_sym_preproc_if_token2] = ACTIONS(4703),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -221779,15 +221922,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -221836,1211 +221979,1069 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [921] = {
-    [ts_builtin_sym_end] = ACTIONS(4339),
-    [aux_sym_preproc_include_token1] = ACTIONS(4335),
-    [aux_sym_preproc_def_token1] = ACTIONS(4335),
-    [aux_sym_preproc_if_token1] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4335),
-    [sym_preproc_directive] = ACTIONS(4335),
-    [anon_sym_LPAREN2] = ACTIONS(4335),
-    [sym_preproc_comment] = ACTIONS(4699),
-    [anon_sym_PLUS] = ACTIONS(4339),
-    [anon_sym_DASH] = ACTIONS(4339),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4335),
-    [aux_sym_module_statement_token1] = ACTIONS(4335),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4335),
-    [aux_sym_interface_statement_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4335),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4335),
-    [aux_sym_function_statement_token1] = ACTIONS(4335),
-    [aux_sym_language_binding_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4335),
-    [aux_sym_contains_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token2] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4335),
-    [aux_sym_save_statement_token1] = ACTIONS(4335),
-    [aux_sym_private_statement_token1] = ACTIONS(4335),
-    [aux_sym_public_statement_token1] = ACTIONS(4335),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4335),
-    [aux_sym_common_statement_token1] = ACTIONS(4335),
-    [aux_sym_import_statement_token1] = ACTIONS(4335),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4335),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4335),
-    [aux_sym_derived_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4335),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4335),
-    [anon_sym_SEMI] = ACTIONS(4339),
-    [aux_sym_stop_statement_token1] = ACTIONS(4335),
-    [aux_sym_stop_statement_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4335),
-    [aux_sym_include_statement_token1] = ACTIONS(4335),
-    [aux_sym_data_statement_token1] = ACTIONS(4335),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4335),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4335),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4335),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4335),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4335),
-    [aux_sym_block_construct_token1] = ACTIONS(4335),
-    [aux_sym_associate_statement_token1] = ACTIONS(4335),
-    [aux_sym_format_statement_token1] = ACTIONS(4335),
-    [aux_sym_print_statement_token1] = ACTIONS(4335),
-    [aux_sym_open_statement_token1] = ACTIONS(4335),
-    [aux_sym_close_statement_token1] = ACTIONS(4335),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4335),
-    [aux_sym_enum_statement_token1] = ACTIONS(4335),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4335),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4335),
-    [aux_sym_entry_statement_token1] = ACTIONS(4335),
-    [aux_sym_logical_expression_token5] = ACTIONS(4339),
-    [anon_sym_DOT] = ACTIONS(4335),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4339),
-    [anon_sym_LBRACK] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4339),
-    [aux_sym_null_literal_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4335),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4335),
-    [aux_sym_identifier_token1] = ACTIONS(4335),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4339),
-    [sym__float_literal] = ACTIONS(4339),
-    [sym__boz_literal] = ACTIONS(4339),
-    [sym__string_literal] = ACTIONS(4339),
-    [sym__string_literal_kind] = ACTIONS(4339),
-  },
-  [922] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(4701),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4313),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_module_statement_token1] = ACTIONS(4313),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4313),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4313),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_function_statement_token1] = ACTIONS(4313),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4313),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
   [923] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(4703),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+    [ts_builtin_sym_end] = ACTIONS(4367),
+    [aux_sym_preproc_include_token1] = ACTIONS(4363),
+    [aux_sym_preproc_def_token1] = ACTIONS(4363),
+    [aux_sym_preproc_if_token1] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4363),
+    [sym_preproc_directive] = ACTIONS(4363),
+    [anon_sym_LPAREN2] = ACTIONS(4363),
+    [sym_preproc_comment] = ACTIONS(4705),
+    [anon_sym_PLUS] = ACTIONS(4367),
+    [anon_sym_DASH] = ACTIONS(4367),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4363),
+    [aux_sym_module_statement_token1] = ACTIONS(4363),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4363),
+    [aux_sym_interface_statement_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4363),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4363),
+    [aux_sym_function_statement_token1] = ACTIONS(4363),
+    [aux_sym_language_binding_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4363),
+    [aux_sym_contains_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token2] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4363),
+    [aux_sym_save_statement_token1] = ACTIONS(4363),
+    [aux_sym_private_statement_token1] = ACTIONS(4363),
+    [aux_sym_public_statement_token1] = ACTIONS(4363),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4363),
+    [aux_sym_common_statement_token1] = ACTIONS(4363),
+    [aux_sym_import_statement_token1] = ACTIONS(4363),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4363),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4363),
+    [aux_sym_derived_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4363),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4363),
+    [anon_sym_SEMI] = ACTIONS(4367),
+    [aux_sym_stop_statement_token1] = ACTIONS(4363),
+    [aux_sym_stop_statement_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4363),
+    [aux_sym_include_statement_token1] = ACTIONS(4363),
+    [aux_sym_data_statement_token1] = ACTIONS(4363),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4363),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4363),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4363),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4363),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4363),
+    [aux_sym_block_construct_token1] = ACTIONS(4363),
+    [aux_sym_associate_statement_token1] = ACTIONS(4363),
+    [aux_sym_format_statement_token1] = ACTIONS(4363),
+    [aux_sym_print_statement_token1] = ACTIONS(4363),
+    [aux_sym_open_statement_token1] = ACTIONS(4363),
+    [aux_sym_close_statement_token1] = ACTIONS(4363),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4363),
+    [aux_sym_enum_statement_token1] = ACTIONS(4363),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4363),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4363),
+    [aux_sym_entry_statement_token1] = ACTIONS(4363),
+    [aux_sym_logical_expression_token5] = ACTIONS(4367),
+    [anon_sym_DOT] = ACTIONS(4363),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4367),
+    [anon_sym_LBRACK] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4367),
+    [aux_sym_null_literal_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4363),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4363),
+    [aux_sym_identifier_token1] = ACTIONS(4363),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4367),
+    [sym__float_literal] = ACTIONS(4367),
+    [sym__boz_literal] = ACTIONS(4367),
+    [sym__string_literal] = ACTIONS(4367),
+    [sym__string_literal_kind] = ACTIONS(4367),
   },
   [924] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4325),
-    [aux_sym_preproc_def_token1] = ACTIONS(4325),
-    [aux_sym_preproc_if_token1] = ACTIONS(4325),
-    [aux_sym_preproc_if_token2] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4325),
-    [sym_preproc_directive] = ACTIONS(4325),
-    [anon_sym_LPAREN2] = ACTIONS(4325),
-    [sym_preproc_comment] = ACTIONS(4705),
-    [anon_sym_PLUS] = ACTIONS(4329),
-    [anon_sym_DASH] = ACTIONS(4329),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4325),
-    [aux_sym_module_statement_token1] = ACTIONS(4325),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4325),
-    [aux_sym_interface_statement_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4325),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4325),
-    [aux_sym_function_statement_token1] = ACTIONS(4325),
-    [aux_sym_language_binding_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4325),
-    [aux_sym_contains_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token2] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4325),
-    [aux_sym_save_statement_token1] = ACTIONS(4325),
-    [aux_sym_private_statement_token1] = ACTIONS(4325),
-    [aux_sym_public_statement_token1] = ACTIONS(4325),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4325),
-    [aux_sym_common_statement_token1] = ACTIONS(4325),
-    [aux_sym_import_statement_token1] = ACTIONS(4325),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4325),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4325),
-    [aux_sym_derived_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4325),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4325),
-    [anon_sym_SEMI] = ACTIONS(4329),
-    [aux_sym_stop_statement_token1] = ACTIONS(4325),
-    [aux_sym_stop_statement_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4325),
-    [aux_sym_include_statement_token1] = ACTIONS(4325),
-    [aux_sym_data_statement_token1] = ACTIONS(4325),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4325),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4325),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4325),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4325),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4325),
-    [aux_sym_block_construct_token1] = ACTIONS(4325),
-    [aux_sym_associate_statement_token1] = ACTIONS(4325),
-    [aux_sym_format_statement_token1] = ACTIONS(4325),
-    [aux_sym_print_statement_token1] = ACTIONS(4325),
-    [aux_sym_open_statement_token1] = ACTIONS(4325),
-    [aux_sym_close_statement_token1] = ACTIONS(4325),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4325),
-    [aux_sym_enum_statement_token1] = ACTIONS(4325),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4325),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4325),
-    [aux_sym_entry_statement_token1] = ACTIONS(4325),
-    [aux_sym_logical_expression_token5] = ACTIONS(4329),
-    [anon_sym_DOT] = ACTIONS(4325),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4329),
-    [anon_sym_LBRACK] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4329),
-    [aux_sym_null_literal_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4325),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4325),
-    [aux_sym_identifier_token1] = ACTIONS(4325),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4329),
-    [sym__float_literal] = ACTIONS(4329),
-    [sym__boz_literal] = ACTIONS(4329),
-    [sym__string_literal] = ACTIONS(4329),
-    [sym__string_literal_kind] = ACTIONS(4329),
+    [ts_builtin_sym_end] = ACTIONS(4303),
+    [aux_sym_preproc_include_token1] = ACTIONS(4299),
+    [aux_sym_preproc_def_token1] = ACTIONS(4299),
+    [aux_sym_preproc_if_token1] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4299),
+    [sym_preproc_directive] = ACTIONS(4299),
+    [anon_sym_LPAREN2] = ACTIONS(4299),
+    [sym_preproc_comment] = ACTIONS(4707),
+    [anon_sym_PLUS] = ACTIONS(4303),
+    [anon_sym_DASH] = ACTIONS(4303),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4299),
+    [aux_sym_module_statement_token1] = ACTIONS(4299),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4299),
+    [aux_sym_interface_statement_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4299),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4299),
+    [aux_sym_function_statement_token1] = ACTIONS(4299),
+    [aux_sym_language_binding_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4299),
+    [aux_sym_contains_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token2] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4299),
+    [aux_sym_save_statement_token1] = ACTIONS(4299),
+    [aux_sym_private_statement_token1] = ACTIONS(4299),
+    [aux_sym_public_statement_token1] = ACTIONS(4299),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4299),
+    [aux_sym_common_statement_token1] = ACTIONS(4299),
+    [aux_sym_import_statement_token1] = ACTIONS(4299),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4299),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4299),
+    [aux_sym_derived_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4299),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4299),
+    [anon_sym_SEMI] = ACTIONS(4303),
+    [aux_sym_stop_statement_token1] = ACTIONS(4299),
+    [aux_sym_stop_statement_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4299),
+    [aux_sym_include_statement_token1] = ACTIONS(4299),
+    [aux_sym_data_statement_token1] = ACTIONS(4299),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4299),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4299),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4299),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4299),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4299),
+    [aux_sym_block_construct_token1] = ACTIONS(4299),
+    [aux_sym_associate_statement_token1] = ACTIONS(4299),
+    [aux_sym_format_statement_token1] = ACTIONS(4299),
+    [aux_sym_print_statement_token1] = ACTIONS(4299),
+    [aux_sym_open_statement_token1] = ACTIONS(4299),
+    [aux_sym_close_statement_token1] = ACTIONS(4299),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4299),
+    [aux_sym_enum_statement_token1] = ACTIONS(4299),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4299),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4299),
+    [aux_sym_entry_statement_token1] = ACTIONS(4299),
+    [aux_sym_logical_expression_token5] = ACTIONS(4303),
+    [anon_sym_DOT] = ACTIONS(4299),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4303),
+    [anon_sym_LBRACK] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4303),
+    [aux_sym_null_literal_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4299),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4299),
+    [aux_sym_identifier_token1] = ACTIONS(4299),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4303),
+    [sym__float_literal] = ACTIONS(4303),
+    [sym__boz_literal] = ACTIONS(4303),
+    [sym__string_literal] = ACTIONS(4303),
+    [sym__string_literal_kind] = ACTIONS(4303),
   },
   [925] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4323),
-    [aux_sym_preproc_def_token1] = ACTIONS(4323),
-    [aux_sym_preproc_if_token1] = ACTIONS(4323),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4323),
-    [sym_preproc_directive] = ACTIONS(4323),
-    [anon_sym_LPAREN2] = ACTIONS(4323),
-    [sym_preproc_comment] = ACTIONS(4707),
-    [anon_sym_PLUS] = ACTIONS(4333),
-    [anon_sym_DASH] = ACTIONS(4333),
+    [aux_sym_preproc_include_token1] = ACTIONS(4293),
+    [aux_sym_preproc_def_token1] = ACTIONS(4293),
+    [aux_sym_preproc_if_token1] = ACTIONS(4293),
+    [aux_sym_preproc_if_token2] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
+    [sym_preproc_directive] = ACTIONS(4293),
+    [anon_sym_LPAREN2] = ACTIONS(4293),
+    [sym_preproc_comment] = ACTIONS(4709),
+    [anon_sym_PLUS] = ACTIONS(4341),
+    [anon_sym_DASH] = ACTIONS(4341),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4323),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4323),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4323),
-    [aux_sym_contains_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token2] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4323),
-    [aux_sym_save_statement_token1] = ACTIONS(4323),
-    [aux_sym_private_statement_token1] = ACTIONS(4323),
-    [aux_sym_public_statement_token1] = ACTIONS(4323),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4323),
-    [aux_sym_common_statement_token1] = ACTIONS(4323),
-    [aux_sym_import_statement_token1] = ACTIONS(4323),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4323),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4323),
-    [aux_sym_derived_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4323),
-    [anon_sym_SEMI] = ACTIONS(4333),
-    [aux_sym_stop_statement_token1] = ACTIONS(4323),
-    [aux_sym_stop_statement_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4323),
-    [aux_sym_include_statement_token1] = ACTIONS(4323),
-    [aux_sym_data_statement_token1] = ACTIONS(4323),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4323),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4323),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4323),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4323),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4323),
-    [aux_sym_block_construct_token1] = ACTIONS(4323),
-    [aux_sym_associate_statement_token1] = ACTIONS(4323),
-    [aux_sym_format_statement_token1] = ACTIONS(4323),
-    [aux_sym_print_statement_token1] = ACTIONS(4323),
-    [aux_sym_open_statement_token1] = ACTIONS(4323),
-    [aux_sym_close_statement_token1] = ACTIONS(4323),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4323),
-    [aux_sym_enum_statement_token1] = ACTIONS(4323),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4323),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4323),
-    [aux_sym_entry_statement_token1] = ACTIONS(4323),
-    [aux_sym_logical_expression_token5] = ACTIONS(4333),
-    [anon_sym_DOT] = ACTIONS(4323),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4333),
-    [anon_sym_LBRACK] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4333),
-    [aux_sym_null_literal_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4323),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4323),
-    [aux_sym_identifier_token1] = ACTIONS(4323),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4333),
-    [sym__float_literal] = ACTIONS(4333),
-    [sym__boz_literal] = ACTIONS(4333),
-    [sym__string_literal] = ACTIONS(4333),
-    [sym__string_literal_kind] = ACTIONS(4333),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4293),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4293),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
+    [aux_sym_contains_statement_token1] = ACTIONS(4293),
+    [aux_sym_use_statement_token1] = ACTIONS(4293),
+    [aux_sym_use_statement_token2] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
+    [aux_sym_save_statement_token1] = ACTIONS(4293),
+    [aux_sym_private_statement_token1] = ACTIONS(4293),
+    [aux_sym_public_statement_token1] = ACTIONS(4293),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
+    [aux_sym_common_statement_token1] = ACTIONS(4293),
+    [aux_sym_import_statement_token1] = ACTIONS(4293),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
+    [aux_sym_derived_type_token1] = ACTIONS(4293),
+    [aux_sym_declared_type_token1] = ACTIONS(4293),
+    [aux_sym_declared_type_token2] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
+    [anon_sym_SEMI] = ACTIONS(4341),
+    [aux_sym_stop_statement_token1] = ACTIONS(4293),
+    [aux_sym_stop_statement_token2] = ACTIONS(4293),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4293),
+    [aux_sym_include_statement_token1] = ACTIONS(4293),
+    [aux_sym_data_statement_token1] = ACTIONS(4293),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4293),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4293),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4293),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4293),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4293),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4293),
+    [aux_sym_block_construct_token1] = ACTIONS(4293),
+    [aux_sym_associate_statement_token1] = ACTIONS(4293),
+    [aux_sym_format_statement_token1] = ACTIONS(4293),
+    [aux_sym_print_statement_token1] = ACTIONS(4293),
+    [aux_sym_open_statement_token1] = ACTIONS(4293),
+    [aux_sym_close_statement_token1] = ACTIONS(4293),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
+    [aux_sym_enum_statement_token1] = ACTIONS(4293),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4293),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4293),
+    [aux_sym_entry_statement_token1] = ACTIONS(4293),
+    [aux_sym_logical_expression_token5] = ACTIONS(4341),
+    [anon_sym_DOT] = ACTIONS(4293),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4341),
+    [anon_sym_LBRACK] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4341),
+    [aux_sym_null_literal_token1] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4293),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
+    [aux_sym_identifier_token1] = ACTIONS(4293),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4341),
+    [sym__float_literal] = ACTIONS(4341),
+    [sym__boz_literal] = ACTIONS(4341),
+    [sym__string_literal] = ACTIONS(4341),
+    [sym__string_literal_kind] = ACTIONS(4341),
   },
   [926] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4379),
-    [aux_sym_preproc_def_token1] = ACTIONS(4379),
-    [aux_sym_preproc_if_token1] = ACTIONS(4379),
-    [aux_sym_preproc_if_token2] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4379),
-    [sym_preproc_directive] = ACTIONS(4379),
-    [anon_sym_LPAREN2] = ACTIONS(4379),
-    [sym_preproc_comment] = ACTIONS(4709),
-    [anon_sym_PLUS] = ACTIONS(4383),
-    [anon_sym_DASH] = ACTIONS(4383),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4379),
-    [aux_sym_module_statement_token1] = ACTIONS(4379),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4379),
-    [aux_sym_interface_statement_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4379),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4379),
-    [aux_sym_function_statement_token1] = ACTIONS(4379),
-    [aux_sym_language_binding_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4379),
-    [aux_sym_contains_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token2] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4379),
-    [aux_sym_save_statement_token1] = ACTIONS(4379),
-    [aux_sym_private_statement_token1] = ACTIONS(4379),
-    [aux_sym_public_statement_token1] = ACTIONS(4379),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4379),
-    [aux_sym_common_statement_token1] = ACTIONS(4379),
-    [aux_sym_import_statement_token1] = ACTIONS(4379),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4379),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4379),
-    [aux_sym_derived_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4379),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4379),
-    [anon_sym_SEMI] = ACTIONS(4383),
-    [aux_sym_stop_statement_token1] = ACTIONS(4379),
-    [aux_sym_stop_statement_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4379),
-    [aux_sym_include_statement_token1] = ACTIONS(4379),
-    [aux_sym_data_statement_token1] = ACTIONS(4379),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4379),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4379),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4379),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4379),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4379),
-    [aux_sym_block_construct_token1] = ACTIONS(4379),
-    [aux_sym_associate_statement_token1] = ACTIONS(4379),
-    [aux_sym_format_statement_token1] = ACTIONS(4379),
-    [aux_sym_print_statement_token1] = ACTIONS(4379),
-    [aux_sym_open_statement_token1] = ACTIONS(4379),
-    [aux_sym_close_statement_token1] = ACTIONS(4379),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4379),
-    [aux_sym_enum_statement_token1] = ACTIONS(4379),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4379),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4379),
-    [aux_sym_entry_statement_token1] = ACTIONS(4379),
-    [aux_sym_logical_expression_token5] = ACTIONS(4383),
-    [anon_sym_DOT] = ACTIONS(4379),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4383),
-    [anon_sym_LBRACK] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4383),
-    [aux_sym_null_literal_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4379),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4379),
-    [aux_sym_identifier_token1] = ACTIONS(4379),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4383),
-    [sym__float_literal] = ACTIONS(4383),
-    [sym__boz_literal] = ACTIONS(4383),
-    [sym__string_literal] = ACTIONS(4383),
-    [sym__string_literal_kind] = ACTIONS(4383),
+    [aux_sym_preproc_include_token1] = ACTIONS(4299),
+    [aux_sym_preproc_def_token1] = ACTIONS(4299),
+    [aux_sym_preproc_if_token1] = ACTIONS(4299),
+    [aux_sym_preproc_if_token2] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4299),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4299),
+    [sym_preproc_directive] = ACTIONS(4299),
+    [anon_sym_LPAREN2] = ACTIONS(4299),
+    [sym_preproc_comment] = ACTIONS(4711),
+    [anon_sym_PLUS] = ACTIONS(4303),
+    [anon_sym_DASH] = ACTIONS(4303),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4299),
+    [aux_sym_module_statement_token1] = ACTIONS(4299),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4299),
+    [aux_sym_interface_statement_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4299),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4299),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4299),
+    [aux_sym_function_statement_token1] = ACTIONS(4299),
+    [aux_sym_language_binding_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4299),
+    [aux_sym_contains_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token1] = ACTIONS(4299),
+    [aux_sym_use_statement_token2] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4299),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4299),
+    [aux_sym_save_statement_token1] = ACTIONS(4299),
+    [aux_sym_private_statement_token1] = ACTIONS(4299),
+    [aux_sym_public_statement_token1] = ACTIONS(4299),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4299),
+    [aux_sym_common_statement_token1] = ACTIONS(4299),
+    [aux_sym_import_statement_token1] = ACTIONS(4299),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4299),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4299),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4299),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4299),
+    [aux_sym_derived_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token1] = ACTIONS(4299),
+    [aux_sym_declared_type_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4299),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4299),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4299),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4299),
+    [anon_sym_SEMI] = ACTIONS(4303),
+    [aux_sym_stop_statement_token1] = ACTIONS(4299),
+    [aux_sym_stop_statement_token2] = ACTIONS(4299),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4299),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4299),
+    [aux_sym_include_statement_token1] = ACTIONS(4299),
+    [aux_sym_data_statement_token1] = ACTIONS(4299),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4299),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4299),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4299),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4299),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4299),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4299),
+    [aux_sym_block_construct_token1] = ACTIONS(4299),
+    [aux_sym_associate_statement_token1] = ACTIONS(4299),
+    [aux_sym_format_statement_token1] = ACTIONS(4299),
+    [aux_sym_print_statement_token1] = ACTIONS(4299),
+    [aux_sym_open_statement_token1] = ACTIONS(4299),
+    [aux_sym_close_statement_token1] = ACTIONS(4299),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4299),
+    [aux_sym_enum_statement_token1] = ACTIONS(4299),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4299),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4299),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4299),
+    [aux_sym_entry_statement_token1] = ACTIONS(4299),
+    [aux_sym_logical_expression_token5] = ACTIONS(4303),
+    [anon_sym_DOT] = ACTIONS(4299),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4303),
+    [anon_sym_LBRACK] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4303),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4303),
+    [aux_sym_null_literal_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4299),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4299),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4299),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4299),
+    [aux_sym_identifier_token1] = ACTIONS(4299),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4303),
+    [sym__float_literal] = ACTIONS(4303),
+    [sym__boz_literal] = ACTIONS(4303),
+    [sym__string_literal] = ACTIONS(4303),
+    [sym__string_literal_kind] = ACTIONS(4303),
   },
   [927] = {
-    [ts_builtin_sym_end] = ACTIONS(4329),
-    [aux_sym_preproc_include_token1] = ACTIONS(4325),
-    [aux_sym_preproc_def_token1] = ACTIONS(4325),
-    [aux_sym_preproc_if_token1] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4325),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4325),
-    [sym_preproc_directive] = ACTIONS(4325),
-    [anon_sym_LPAREN2] = ACTIONS(4325),
-    [sym_preproc_comment] = ACTIONS(4711),
-    [anon_sym_PLUS] = ACTIONS(4329),
-    [anon_sym_DASH] = ACTIONS(4329),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4325),
-    [aux_sym_module_statement_token1] = ACTIONS(4325),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4325),
-    [aux_sym_interface_statement_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4325),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4325),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4325),
-    [aux_sym_function_statement_token1] = ACTIONS(4325),
-    [aux_sym_language_binding_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4325),
-    [aux_sym_contains_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token1] = ACTIONS(4325),
-    [aux_sym_use_statement_token2] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4325),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4325),
-    [aux_sym_save_statement_token1] = ACTIONS(4325),
-    [aux_sym_private_statement_token1] = ACTIONS(4325),
-    [aux_sym_public_statement_token1] = ACTIONS(4325),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4325),
-    [aux_sym_common_statement_token1] = ACTIONS(4325),
-    [aux_sym_import_statement_token1] = ACTIONS(4325),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4325),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4325),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4325),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4325),
-    [aux_sym_derived_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token1] = ACTIONS(4325),
-    [aux_sym_declared_type_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4325),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4325),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4325),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4325),
-    [anon_sym_SEMI] = ACTIONS(4329),
-    [aux_sym_stop_statement_token1] = ACTIONS(4325),
-    [aux_sym_stop_statement_token2] = ACTIONS(4325),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4325),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4325),
-    [aux_sym_include_statement_token1] = ACTIONS(4325),
-    [aux_sym_data_statement_token1] = ACTIONS(4325),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4325),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4325),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4325),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4325),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4325),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4325),
-    [aux_sym_block_construct_token1] = ACTIONS(4325),
-    [aux_sym_associate_statement_token1] = ACTIONS(4325),
-    [aux_sym_format_statement_token1] = ACTIONS(4325),
-    [aux_sym_print_statement_token1] = ACTIONS(4325),
-    [aux_sym_open_statement_token1] = ACTIONS(4325),
-    [aux_sym_close_statement_token1] = ACTIONS(4325),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4325),
-    [aux_sym_enum_statement_token1] = ACTIONS(4325),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4325),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4325),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4325),
-    [aux_sym_entry_statement_token1] = ACTIONS(4325),
-    [aux_sym_logical_expression_token5] = ACTIONS(4329),
-    [anon_sym_DOT] = ACTIONS(4325),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4329),
-    [anon_sym_LBRACK] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4329),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4329),
-    [aux_sym_null_literal_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4325),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4325),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4325),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4325),
-    [aux_sym_identifier_token1] = ACTIONS(4325),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4329),
-    [sym__float_literal] = ACTIONS(4329),
-    [sym__boz_literal] = ACTIONS(4329),
-    [sym__string_literal] = ACTIONS(4329),
-    [sym__string_literal_kind] = ACTIONS(4329),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(4713),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
   [928] = {
-    [ts_builtin_sym_end] = ACTIONS(4389),
-    [aux_sym_preproc_include_token1] = ACTIONS(4385),
-    [aux_sym_preproc_def_token1] = ACTIONS(4385),
-    [aux_sym_preproc_if_token1] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4385),
-    [sym_preproc_directive] = ACTIONS(4385),
-    [anon_sym_LPAREN2] = ACTIONS(4385),
-    [sym_preproc_comment] = ACTIONS(4713),
-    [anon_sym_PLUS] = ACTIONS(4389),
-    [anon_sym_DASH] = ACTIONS(4389),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4385),
-    [aux_sym_module_statement_token1] = ACTIONS(4385),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4385),
-    [aux_sym_interface_statement_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4385),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4385),
-    [aux_sym_function_statement_token1] = ACTIONS(4385),
-    [aux_sym_language_binding_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4385),
-    [aux_sym_contains_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token2] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4385),
-    [aux_sym_save_statement_token1] = ACTIONS(4385),
-    [aux_sym_private_statement_token1] = ACTIONS(4385),
-    [aux_sym_public_statement_token1] = ACTIONS(4385),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4385),
-    [aux_sym_common_statement_token1] = ACTIONS(4385),
-    [aux_sym_import_statement_token1] = ACTIONS(4385),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4385),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4385),
-    [aux_sym_derived_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4385),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4385),
-    [anon_sym_SEMI] = ACTIONS(4389),
-    [aux_sym_stop_statement_token1] = ACTIONS(4385),
-    [aux_sym_stop_statement_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4385),
-    [aux_sym_include_statement_token1] = ACTIONS(4385),
-    [aux_sym_data_statement_token1] = ACTIONS(4385),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4385),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4385),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4385),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4385),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4385),
-    [aux_sym_block_construct_token1] = ACTIONS(4385),
-    [aux_sym_associate_statement_token1] = ACTIONS(4385),
-    [aux_sym_format_statement_token1] = ACTIONS(4385),
-    [aux_sym_print_statement_token1] = ACTIONS(4385),
-    [aux_sym_open_statement_token1] = ACTIONS(4385),
-    [aux_sym_close_statement_token1] = ACTIONS(4385),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4385),
-    [aux_sym_enum_statement_token1] = ACTIONS(4385),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4385),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4385),
-    [aux_sym_entry_statement_token1] = ACTIONS(4385),
-    [aux_sym_logical_expression_token5] = ACTIONS(4389),
-    [anon_sym_DOT] = ACTIONS(4385),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4389),
-    [anon_sym_LBRACK] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4389),
-    [aux_sym_null_literal_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4385),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4385),
-    [aux_sym_identifier_token1] = ACTIONS(4385),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4389),
-    [sym__float_literal] = ACTIONS(4389),
-    [sym__boz_literal] = ACTIONS(4389),
-    [sym__string_literal] = ACTIONS(4389),
-    [sym__string_literal_kind] = ACTIONS(4389),
+    [ts_builtin_sym_end] = ACTIONS(4341),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(4715),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
   [929] = {
-    [sym_preproc_include] = STATE(960),
-    [sym_preproc_def] = STATE(960),
-    [sym_preproc_function_def] = STATE(960),
-    [sym_preproc_call] = STATE(960),
-    [sym_preproc_else_in_module] = STATE(7875),
-    [sym_preproc_elif_in_module] = STATE(7875),
-    [sym_preproc_elifdef_in_module] = STATE(7875),
-    [sym_interface] = STATE(960),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5821),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(960),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(960),
-    [sym_public_statement] = STATE(960),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(960),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(960),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(960),
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token2] = ACTIONS(4383),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(4717),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4383),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_module_statement_token1] = ACTIONS(4383),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4383),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4383),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_function_statement_token1] = ACTIONS(4383),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4383),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [930] = {
+    [sym_preproc_include] = STATE(952),
+    [sym_preproc_def] = STATE(952),
+    [sym_preproc_function_def] = STATE(952),
+    [sym_preproc_call] = STATE(952),
+    [sym_preproc_else_in_module] = STATE(8141),
+    [sym_preproc_elif_in_module] = STATE(8141),
+    [sym_preproc_elifdef_in_module] = STATE(8141),
+    [sym_interface] = STATE(952),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5949),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(952),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(952),
+    [sym_public_statement] = STATE(952),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(952),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(952),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(952),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(960),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(952),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4715),
+    [aux_sym_preproc_if_token2] = ACTIONS(4695),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -223057,15 +223058,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -223114,927 +223115,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [930] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4335),
-    [aux_sym_preproc_def_token1] = ACTIONS(4335),
-    [aux_sym_preproc_if_token1] = ACTIONS(4335),
-    [aux_sym_preproc_if_token2] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4335),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4335),
-    [sym_preproc_directive] = ACTIONS(4335),
-    [anon_sym_LPAREN2] = ACTIONS(4335),
-    [sym_preproc_comment] = ACTIONS(4717),
-    [anon_sym_PLUS] = ACTIONS(4339),
-    [anon_sym_DASH] = ACTIONS(4339),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4335),
-    [aux_sym_module_statement_token1] = ACTIONS(4335),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4335),
-    [aux_sym_interface_statement_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4335),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4335),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4335),
-    [aux_sym_function_statement_token1] = ACTIONS(4335),
-    [aux_sym_language_binding_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4335),
-    [aux_sym_contains_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token1] = ACTIONS(4335),
-    [aux_sym_use_statement_token2] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4335),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4335),
-    [aux_sym_save_statement_token1] = ACTIONS(4335),
-    [aux_sym_private_statement_token1] = ACTIONS(4335),
-    [aux_sym_public_statement_token1] = ACTIONS(4335),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4335),
-    [aux_sym_common_statement_token1] = ACTIONS(4335),
-    [aux_sym_import_statement_token1] = ACTIONS(4335),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4335),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4335),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4335),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4335),
-    [aux_sym_derived_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token1] = ACTIONS(4335),
-    [aux_sym_declared_type_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4335),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4335),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4335),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4335),
-    [anon_sym_SEMI] = ACTIONS(4339),
-    [aux_sym_stop_statement_token1] = ACTIONS(4335),
-    [aux_sym_stop_statement_token2] = ACTIONS(4335),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4335),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4335),
-    [aux_sym_include_statement_token1] = ACTIONS(4335),
-    [aux_sym_data_statement_token1] = ACTIONS(4335),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4335),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4335),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4335),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4335),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4335),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4335),
-    [aux_sym_block_construct_token1] = ACTIONS(4335),
-    [aux_sym_associate_statement_token1] = ACTIONS(4335),
-    [aux_sym_format_statement_token1] = ACTIONS(4335),
-    [aux_sym_print_statement_token1] = ACTIONS(4335),
-    [aux_sym_open_statement_token1] = ACTIONS(4335),
-    [aux_sym_close_statement_token1] = ACTIONS(4335),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4335),
-    [aux_sym_enum_statement_token1] = ACTIONS(4335),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4335),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4335),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4335),
-    [aux_sym_entry_statement_token1] = ACTIONS(4335),
-    [aux_sym_logical_expression_token5] = ACTIONS(4339),
-    [anon_sym_DOT] = ACTIONS(4335),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4339),
-    [anon_sym_LBRACK] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4339),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4339),
-    [aux_sym_null_literal_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4335),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4335),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4335),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4335),
-    [aux_sym_identifier_token1] = ACTIONS(4335),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4339),
-    [sym__float_literal] = ACTIONS(4339),
-    [sym__boz_literal] = ACTIONS(4339),
-    [sym__string_literal] = ACTIONS(4339),
-    [sym__string_literal_kind] = ACTIONS(4339),
-  },
   [931] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4341),
-    [aux_sym_preproc_def_token1] = ACTIONS(4341),
-    [aux_sym_preproc_if_token1] = ACTIONS(4341),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4341),
-    [sym_preproc_directive] = ACTIONS(4341),
-    [anon_sym_LPAREN2] = ACTIONS(4341),
-    [sym_preproc_comment] = ACTIONS(4719),
-    [anon_sym_PLUS] = ACTIONS(4345),
-    [anon_sym_DASH] = ACTIONS(4345),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4341),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4341),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4341),
-    [aux_sym_contains_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token2] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4341),
-    [aux_sym_save_statement_token1] = ACTIONS(4341),
-    [aux_sym_private_statement_token1] = ACTIONS(4341),
-    [aux_sym_public_statement_token1] = ACTIONS(4341),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4341),
-    [aux_sym_common_statement_token1] = ACTIONS(4341),
-    [aux_sym_import_statement_token1] = ACTIONS(4341),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4341),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4341),
-    [aux_sym_derived_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4341),
-    [anon_sym_SEMI] = ACTIONS(4345),
-    [aux_sym_stop_statement_token1] = ACTIONS(4341),
-    [aux_sym_stop_statement_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4341),
-    [aux_sym_include_statement_token1] = ACTIONS(4341),
-    [aux_sym_data_statement_token1] = ACTIONS(4341),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4341),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4341),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4341),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4341),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4341),
-    [aux_sym_block_construct_token1] = ACTIONS(4341),
-    [aux_sym_associate_statement_token1] = ACTIONS(4341),
-    [aux_sym_format_statement_token1] = ACTIONS(4341),
-    [aux_sym_print_statement_token1] = ACTIONS(4341),
-    [aux_sym_open_statement_token1] = ACTIONS(4341),
-    [aux_sym_close_statement_token1] = ACTIONS(4341),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4341),
-    [aux_sym_enum_statement_token1] = ACTIONS(4341),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4341),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4341),
-    [aux_sym_entry_statement_token1] = ACTIONS(4341),
-    [aux_sym_logical_expression_token5] = ACTIONS(4345),
-    [anon_sym_DOT] = ACTIONS(4341),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
-    [anon_sym_LBRACK] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
-    [aux_sym_null_literal_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4341),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4341),
-    [aux_sym_identifier_token1] = ACTIONS(4341),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4345),
-    [sym__float_literal] = ACTIONS(4345),
-    [sym__boz_literal] = ACTIONS(4345),
-    [sym__string_literal] = ACTIONS(4345),
-    [sym__string_literal_kind] = ACTIONS(4345),
-  },
-  [932] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(4721),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [933] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4355),
-    [aux_sym_preproc_def_token1] = ACTIONS(4355),
-    [aux_sym_preproc_if_token1] = ACTIONS(4355),
-    [aux_sym_preproc_if_token2] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4355),
-    [sym_preproc_directive] = ACTIONS(4355),
-    [anon_sym_LPAREN2] = ACTIONS(4355),
-    [sym_preproc_comment] = ACTIONS(4723),
-    [anon_sym_PLUS] = ACTIONS(4359),
-    [anon_sym_DASH] = ACTIONS(4359),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4355),
-    [aux_sym_module_statement_token1] = ACTIONS(4355),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4355),
-    [aux_sym_interface_statement_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4355),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4355),
-    [aux_sym_function_statement_token1] = ACTIONS(4355),
-    [aux_sym_language_binding_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4355),
-    [aux_sym_contains_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token2] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4355),
-    [aux_sym_save_statement_token1] = ACTIONS(4355),
-    [aux_sym_private_statement_token1] = ACTIONS(4355),
-    [aux_sym_public_statement_token1] = ACTIONS(4355),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4355),
-    [aux_sym_common_statement_token1] = ACTIONS(4355),
-    [aux_sym_import_statement_token1] = ACTIONS(4355),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4355),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4355),
-    [aux_sym_derived_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4355),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4355),
-    [anon_sym_SEMI] = ACTIONS(4359),
-    [aux_sym_stop_statement_token1] = ACTIONS(4355),
-    [aux_sym_stop_statement_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4355),
-    [aux_sym_include_statement_token1] = ACTIONS(4355),
-    [aux_sym_data_statement_token1] = ACTIONS(4355),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4355),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4355),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4355),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4355),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4355),
-    [aux_sym_block_construct_token1] = ACTIONS(4355),
-    [aux_sym_associate_statement_token1] = ACTIONS(4355),
-    [aux_sym_format_statement_token1] = ACTIONS(4355),
-    [aux_sym_print_statement_token1] = ACTIONS(4355),
-    [aux_sym_open_statement_token1] = ACTIONS(4355),
-    [aux_sym_close_statement_token1] = ACTIONS(4355),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4355),
-    [aux_sym_enum_statement_token1] = ACTIONS(4355),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4355),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4355),
-    [aux_sym_entry_statement_token1] = ACTIONS(4355),
-    [aux_sym_logical_expression_token5] = ACTIONS(4359),
-    [anon_sym_DOT] = ACTIONS(4355),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4359),
-    [anon_sym_LBRACK] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4359),
-    [aux_sym_null_literal_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4355),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4355),
-    [aux_sym_identifier_token1] = ACTIONS(4355),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4359),
-    [sym__float_literal] = ACTIONS(4359),
-    [sym__boz_literal] = ACTIONS(4359),
-    [sym__string_literal] = ACTIONS(4359),
-    [sym__string_literal_kind] = ACTIONS(4359),
-  },
-  [934] = {
-    [ts_builtin_sym_end] = ACTIONS(4345),
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(4725),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [935] = {
-    [ts_builtin_sym_end] = ACTIONS(4345),
-    [aux_sym_preproc_include_token1] = ACTIONS(4341),
-    [aux_sym_preproc_def_token1] = ACTIONS(4341),
-    [aux_sym_preproc_if_token1] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4341),
-    [sym_preproc_directive] = ACTIONS(4341),
-    [anon_sym_LPAREN2] = ACTIONS(4341),
-    [sym_preproc_comment] = ACTIONS(4727),
-    [anon_sym_PLUS] = ACTIONS(4345),
-    [anon_sym_DASH] = ACTIONS(4345),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4341),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4341),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4341),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4341),
-    [aux_sym_contains_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token1] = ACTIONS(4341),
-    [aux_sym_use_statement_token2] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4341),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4341),
-    [aux_sym_save_statement_token1] = ACTIONS(4341),
-    [aux_sym_private_statement_token1] = ACTIONS(4341),
-    [aux_sym_public_statement_token1] = ACTIONS(4341),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4341),
-    [aux_sym_common_statement_token1] = ACTIONS(4341),
-    [aux_sym_import_statement_token1] = ACTIONS(4341),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4341),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4341),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4341),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4341),
-    [aux_sym_derived_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token1] = ACTIONS(4341),
-    [aux_sym_declared_type_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4341),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4341),
-    [anon_sym_SEMI] = ACTIONS(4345),
-    [aux_sym_stop_statement_token1] = ACTIONS(4341),
-    [aux_sym_stop_statement_token2] = ACTIONS(4341),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4341),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4341),
-    [aux_sym_include_statement_token1] = ACTIONS(4341),
-    [aux_sym_data_statement_token1] = ACTIONS(4341),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4341),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4341),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4341),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4341),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4341),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4341),
-    [aux_sym_block_construct_token1] = ACTIONS(4341),
-    [aux_sym_associate_statement_token1] = ACTIONS(4341),
-    [aux_sym_format_statement_token1] = ACTIONS(4341),
-    [aux_sym_print_statement_token1] = ACTIONS(4341),
-    [aux_sym_open_statement_token1] = ACTIONS(4341),
-    [aux_sym_close_statement_token1] = ACTIONS(4341),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4341),
-    [aux_sym_enum_statement_token1] = ACTIONS(4341),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4341),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4341),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4341),
-    [aux_sym_entry_statement_token1] = ACTIONS(4341),
-    [aux_sym_logical_expression_token5] = ACTIONS(4345),
-    [anon_sym_DOT] = ACTIONS(4341),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
-    [anon_sym_LBRACK] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
-    [aux_sym_null_literal_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4341),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4341),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4341),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4341),
-    [aux_sym_identifier_token1] = ACTIONS(4341),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4345),
-    [sym__float_literal] = ACTIONS(4345),
-    [sym__boz_literal] = ACTIONS(4345),
-    [sym__string_literal] = ACTIONS(4345),
-    [sym__string_literal_kind] = ACTIONS(4345),
-  },
-  [936] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7880),
-    [sym_preproc_elif_in_module] = STATE(7880),
-    [sym_preproc_elifdef_in_module] = STATE(7880),
+    [sym_preproc_else_in_module] = STATE(8514),
+    [sym_preproc_elif_in_module] = STATE(8514),
+    [sym_preproc_elifdef_in_module] = STATE(8514),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5863),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5823),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4729),
+    [aux_sym_preproc_if_token2] = ACTIONS(4719),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -224051,15 +223200,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -224108,217 +223257,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [937] = {
-    [ts_builtin_sym_end] = ACTIONS(4333),
-    [aux_sym_preproc_include_token1] = ACTIONS(4323),
-    [aux_sym_preproc_def_token1] = ACTIONS(4323),
-    [aux_sym_preproc_if_token1] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4323),
-    [sym_preproc_directive] = ACTIONS(4323),
-    [anon_sym_LPAREN2] = ACTIONS(4323),
-    [sym_preproc_comment] = ACTIONS(4731),
-    [anon_sym_PLUS] = ACTIONS(4333),
-    [anon_sym_DASH] = ACTIONS(4333),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4323),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4323),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4323),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4323),
-    [aux_sym_contains_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token1] = ACTIONS(4323),
-    [aux_sym_use_statement_token2] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4323),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4323),
-    [aux_sym_save_statement_token1] = ACTIONS(4323),
-    [aux_sym_private_statement_token1] = ACTIONS(4323),
-    [aux_sym_public_statement_token1] = ACTIONS(4323),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4323),
-    [aux_sym_common_statement_token1] = ACTIONS(4323),
-    [aux_sym_import_statement_token1] = ACTIONS(4323),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4323),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4323),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4323),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4323),
-    [aux_sym_derived_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token1] = ACTIONS(4323),
-    [aux_sym_declared_type_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4323),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4323),
-    [anon_sym_SEMI] = ACTIONS(4333),
-    [aux_sym_stop_statement_token1] = ACTIONS(4323),
-    [aux_sym_stop_statement_token2] = ACTIONS(4323),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4323),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4323),
-    [aux_sym_include_statement_token1] = ACTIONS(4323),
-    [aux_sym_data_statement_token1] = ACTIONS(4323),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4323),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4323),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4323),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4323),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4323),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4323),
-    [aux_sym_block_construct_token1] = ACTIONS(4323),
-    [aux_sym_associate_statement_token1] = ACTIONS(4323),
-    [aux_sym_format_statement_token1] = ACTIONS(4323),
-    [aux_sym_print_statement_token1] = ACTIONS(4323),
-    [aux_sym_open_statement_token1] = ACTIONS(4323),
-    [aux_sym_close_statement_token1] = ACTIONS(4323),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4323),
-    [aux_sym_enum_statement_token1] = ACTIONS(4323),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4323),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4323),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4323),
-    [aux_sym_entry_statement_token1] = ACTIONS(4323),
-    [aux_sym_logical_expression_token5] = ACTIONS(4333),
-    [anon_sym_DOT] = ACTIONS(4323),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4333),
-    [anon_sym_LBRACK] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4333),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4333),
-    [aux_sym_null_literal_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4323),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4323),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4323),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4323),
-    [aux_sym_identifier_token1] = ACTIONS(4323),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4333),
-    [sym__float_literal] = ACTIONS(4333),
-    [sym__boz_literal] = ACTIONS(4333),
-    [sym__string_literal] = ACTIONS(4333),
-    [sym__string_literal_kind] = ACTIONS(4333),
-  },
-  [938] = {
-    [sym_preproc_include] = STATE(913),
-    [sym_preproc_def] = STATE(913),
-    [sym_preproc_function_def] = STATE(913),
-    [sym_preproc_call] = STATE(913),
-    [sym_preproc_else_in_module] = STATE(8537),
-    [sym_preproc_elif_in_module] = STATE(8537),
-    [sym_preproc_elifdef_in_module] = STATE(8537),
-    [sym_interface] = STATE(913),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5980),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(913),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(913),
-    [sym_public_statement] = STATE(913),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(913),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(913),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(913),
+  [932] = {
+    [sym_preproc_include] = STATE(918),
+    [sym_preproc_def] = STATE(918),
+    [sym_preproc_function_def] = STATE(918),
+    [sym_preproc_call] = STATE(918),
+    [sym_preproc_else_in_module] = STATE(8126),
+    [sym_preproc_elif_in_module] = STATE(8126),
+    [sym_preproc_elifdef_in_module] = STATE(8126),
+    [sym_interface] = STATE(918),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5953),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(918),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(918),
+    [sym_public_statement] = STATE(918),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(918),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(918),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(918),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(913),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(918),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4733),
+    [aux_sym_preproc_if_token2] = ACTIONS(4721),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -224335,15 +223342,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -224392,359 +223399,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [939] = {
-    [ts_builtin_sym_end] = ACTIONS(4371),
-    [aux_sym_preproc_include_token1] = ACTIONS(4367),
-    [aux_sym_preproc_def_token1] = ACTIONS(4367),
-    [aux_sym_preproc_if_token1] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4367),
-    [sym_preproc_directive] = ACTIONS(4367),
-    [anon_sym_LPAREN2] = ACTIONS(4367),
-    [sym_preproc_comment] = ACTIONS(4735),
-    [anon_sym_PLUS] = ACTIONS(4371),
-    [anon_sym_DASH] = ACTIONS(4371),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4367),
-    [aux_sym_module_statement_token1] = ACTIONS(4367),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4367),
-    [aux_sym_interface_statement_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4367),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4367),
-    [aux_sym_function_statement_token1] = ACTIONS(4367),
-    [aux_sym_language_binding_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4367),
-    [aux_sym_contains_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token2] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4367),
-    [aux_sym_save_statement_token1] = ACTIONS(4367),
-    [aux_sym_private_statement_token1] = ACTIONS(4367),
-    [aux_sym_public_statement_token1] = ACTIONS(4367),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4367),
-    [aux_sym_common_statement_token1] = ACTIONS(4367),
-    [aux_sym_import_statement_token1] = ACTIONS(4367),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4367),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4367),
-    [aux_sym_derived_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4367),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4367),
-    [anon_sym_SEMI] = ACTIONS(4371),
-    [aux_sym_stop_statement_token1] = ACTIONS(4367),
-    [aux_sym_stop_statement_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4367),
-    [aux_sym_include_statement_token1] = ACTIONS(4367),
-    [aux_sym_data_statement_token1] = ACTIONS(4367),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4367),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4367),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4367),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4367),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4367),
-    [aux_sym_block_construct_token1] = ACTIONS(4367),
-    [aux_sym_associate_statement_token1] = ACTIONS(4367),
-    [aux_sym_format_statement_token1] = ACTIONS(4367),
-    [aux_sym_print_statement_token1] = ACTIONS(4367),
-    [aux_sym_open_statement_token1] = ACTIONS(4367),
-    [aux_sym_close_statement_token1] = ACTIONS(4367),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4367),
-    [aux_sym_enum_statement_token1] = ACTIONS(4367),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4367),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4367),
-    [aux_sym_entry_statement_token1] = ACTIONS(4367),
-    [aux_sym_logical_expression_token5] = ACTIONS(4371),
-    [anon_sym_DOT] = ACTIONS(4367),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4371),
-    [anon_sym_LBRACK] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4371),
-    [aux_sym_null_literal_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4367),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4367),
-    [aux_sym_identifier_token1] = ACTIONS(4367),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4371),
-    [sym__float_literal] = ACTIONS(4371),
-    [sym__boz_literal] = ACTIONS(4371),
-    [sym__string_literal] = ACTIONS(4371),
-    [sym__string_literal_kind] = ACTIONS(4371),
-  },
-  [940] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4367),
-    [aux_sym_preproc_def_token1] = ACTIONS(4367),
-    [aux_sym_preproc_if_token1] = ACTIONS(4367),
-    [aux_sym_preproc_if_token2] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4367),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4367),
-    [sym_preproc_directive] = ACTIONS(4367),
-    [anon_sym_LPAREN2] = ACTIONS(4367),
-    [sym_preproc_comment] = ACTIONS(4737),
-    [anon_sym_PLUS] = ACTIONS(4371),
-    [anon_sym_DASH] = ACTIONS(4371),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4367),
-    [aux_sym_module_statement_token1] = ACTIONS(4367),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4367),
-    [aux_sym_interface_statement_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4367),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4367),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4367),
-    [aux_sym_function_statement_token1] = ACTIONS(4367),
-    [aux_sym_language_binding_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4367),
-    [aux_sym_contains_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token1] = ACTIONS(4367),
-    [aux_sym_use_statement_token2] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4367),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4367),
-    [aux_sym_save_statement_token1] = ACTIONS(4367),
-    [aux_sym_private_statement_token1] = ACTIONS(4367),
-    [aux_sym_public_statement_token1] = ACTIONS(4367),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4367),
-    [aux_sym_common_statement_token1] = ACTIONS(4367),
-    [aux_sym_import_statement_token1] = ACTIONS(4367),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4367),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4367),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4367),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4367),
-    [aux_sym_derived_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token1] = ACTIONS(4367),
-    [aux_sym_declared_type_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4367),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4367),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4367),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4367),
-    [anon_sym_SEMI] = ACTIONS(4371),
-    [aux_sym_stop_statement_token1] = ACTIONS(4367),
-    [aux_sym_stop_statement_token2] = ACTIONS(4367),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4367),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4367),
-    [aux_sym_include_statement_token1] = ACTIONS(4367),
-    [aux_sym_data_statement_token1] = ACTIONS(4367),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4367),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4367),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4367),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4367),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4367),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4367),
-    [aux_sym_block_construct_token1] = ACTIONS(4367),
-    [aux_sym_associate_statement_token1] = ACTIONS(4367),
-    [aux_sym_format_statement_token1] = ACTIONS(4367),
-    [aux_sym_print_statement_token1] = ACTIONS(4367),
-    [aux_sym_open_statement_token1] = ACTIONS(4367),
-    [aux_sym_close_statement_token1] = ACTIONS(4367),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4367),
-    [aux_sym_enum_statement_token1] = ACTIONS(4367),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4367),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4367),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4367),
-    [aux_sym_entry_statement_token1] = ACTIONS(4367),
-    [aux_sym_logical_expression_token5] = ACTIONS(4371),
-    [anon_sym_DOT] = ACTIONS(4367),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4371),
-    [anon_sym_LBRACK] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4371),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4371),
-    [aux_sym_null_literal_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4367),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4367),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4367),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4367),
-    [aux_sym_identifier_token1] = ACTIONS(4367),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4371),
-    [sym__float_literal] = ACTIONS(4371),
-    [sym__boz_literal] = ACTIONS(4371),
-    [sym__string_literal] = ACTIONS(4371),
-    [sym__string_literal_kind] = ACTIONS(4371),
-  },
-  [941] = {
-    [sym_preproc_include] = STATE(920),
-    [sym_preproc_def] = STATE(920),
-    [sym_preproc_function_def] = STATE(920),
-    [sym_preproc_call] = STATE(920),
-    [sym_preproc_else_in_module] = STATE(7836),
-    [sym_preproc_elif_in_module] = STATE(7836),
-    [sym_preproc_elifdef_in_module] = STATE(7836),
-    [sym_interface] = STATE(920),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5870),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(920),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(920),
-    [sym_public_statement] = STATE(920),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(920),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(920),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(920),
+  [933] = {
+    [sym_preproc_include] = STATE(1113),
+    [sym_preproc_def] = STATE(1113),
+    [sym_preproc_function_def] = STATE(1113),
+    [sym_preproc_call] = STATE(1113),
+    [sym_preproc_else_in_module] = STATE(8373),
+    [sym_preproc_elif_in_module] = STATE(8373),
+    [sym_preproc_elifdef_in_module] = STATE(8373),
+    [sym_interface] = STATE(1113),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5923),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(1113),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(1113),
+    [sym_public_statement] = STATE(1113),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(1113),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(1113),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(920),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4739),
+    [aux_sym_preproc_if_token2] = ACTIONS(4723),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -224761,15 +223484,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -224818,217 +223541,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [942] = {
-    [ts_builtin_sym_end] = ACTIONS(4377),
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [sym_preproc_comment] = ACTIONS(4741),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
-  },
-  [943] = {
+  [934] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7942),
-    [sym_preproc_elif_in_module] = STATE(7942),
-    [sym_preproc_elifdef_in_module] = STATE(7942),
+    [sym_preproc_else_in_module] = STATE(8512),
+    [sym_preproc_elif_in_module] = STATE(8512),
+    [sym_preproc_elifdef_in_module] = STATE(8512),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5873),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5817),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4743),
+    [aux_sym_preproc_if_token2] = ACTIONS(4725),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -225045,15 +223626,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -225102,359 +223683,643 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [944] = {
-    [ts_builtin_sym_end] = ACTIONS(4383),
-    [aux_sym_preproc_include_token1] = ACTIONS(4379),
-    [aux_sym_preproc_def_token1] = ACTIONS(4379),
-    [aux_sym_preproc_if_token1] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4379),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4379),
-    [sym_preproc_directive] = ACTIONS(4379),
-    [anon_sym_LPAREN2] = ACTIONS(4379),
-    [sym_preproc_comment] = ACTIONS(4745),
-    [anon_sym_PLUS] = ACTIONS(4383),
-    [anon_sym_DASH] = ACTIONS(4383),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4379),
-    [aux_sym_module_statement_token1] = ACTIONS(4379),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4379),
-    [aux_sym_interface_statement_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4379),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4379),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4379),
-    [aux_sym_function_statement_token1] = ACTIONS(4379),
-    [aux_sym_language_binding_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4379),
-    [aux_sym_contains_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token1] = ACTIONS(4379),
-    [aux_sym_use_statement_token2] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4379),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4379),
-    [aux_sym_save_statement_token1] = ACTIONS(4379),
-    [aux_sym_private_statement_token1] = ACTIONS(4379),
-    [aux_sym_public_statement_token1] = ACTIONS(4379),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4379),
-    [aux_sym_common_statement_token1] = ACTIONS(4379),
-    [aux_sym_import_statement_token1] = ACTIONS(4379),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4379),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4379),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4379),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4379),
-    [aux_sym_derived_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token1] = ACTIONS(4379),
-    [aux_sym_declared_type_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4379),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4379),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4379),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4379),
-    [anon_sym_SEMI] = ACTIONS(4383),
-    [aux_sym_stop_statement_token1] = ACTIONS(4379),
-    [aux_sym_stop_statement_token2] = ACTIONS(4379),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4379),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4379),
-    [aux_sym_include_statement_token1] = ACTIONS(4379),
-    [aux_sym_data_statement_token1] = ACTIONS(4379),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4379),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4379),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4379),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4379),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4379),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4379),
-    [aux_sym_block_construct_token1] = ACTIONS(4379),
-    [aux_sym_associate_statement_token1] = ACTIONS(4379),
-    [aux_sym_format_statement_token1] = ACTIONS(4379),
-    [aux_sym_print_statement_token1] = ACTIONS(4379),
-    [aux_sym_open_statement_token1] = ACTIONS(4379),
-    [aux_sym_close_statement_token1] = ACTIONS(4379),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4379),
-    [aux_sym_enum_statement_token1] = ACTIONS(4379),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4379),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4379),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4379),
-    [aux_sym_entry_statement_token1] = ACTIONS(4379),
-    [aux_sym_logical_expression_token5] = ACTIONS(4383),
-    [anon_sym_DOT] = ACTIONS(4379),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4383),
-    [anon_sym_LBRACK] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4383),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4383),
-    [aux_sym_null_literal_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4379),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4379),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4379),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4379),
-    [aux_sym_identifier_token1] = ACTIONS(4379),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4383),
-    [sym__float_literal] = ACTIONS(4383),
-    [sym__boz_literal] = ACTIONS(4383),
-    [sym__string_literal] = ACTIONS(4383),
-    [sym__string_literal_kind] = ACTIONS(4383),
-  },
-  [945] = {
-    [ts_builtin_sym_end] = ACTIONS(4747),
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(4749),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
+  [935] = {
+    [sym_preproc_include] = STATE(934),
+    [sym_preproc_def] = STATE(934),
+    [sym_preproc_function_def] = STATE(934),
+    [sym_preproc_call] = STATE(934),
+    [sym_preproc_else_in_module] = STATE(8377),
+    [sym_preproc_elif_in_module] = STATE(8377),
+    [sym_preproc_elifdef_in_module] = STATE(8377),
+    [sym_interface] = STATE(934),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5952),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(934),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(934),
+    [sym_public_statement] = STATE(934),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(934),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(934),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(934),
+    [sym_enumeration_type_statement] = STATE(6217),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(934),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4645),
+    [aux_sym_preproc_def_token1] = ACTIONS(4647),
+    [aux_sym_preproc_if_token2] = ACTIONS(4727),
+    [aux_sym_preproc_else_token1] = ACTIONS(4651),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4653),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
+    [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4279),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
-    [aux_sym_module_statement_token1] = ACTIONS(4279),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_function_statement_token1] = ACTIONS(4279),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4661),
+    [aux_sym_public_statement_token1] = ACTIONS(4663),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [946] = {
-    [sym_preproc_include] = STATE(1113),
-    [sym_preproc_def] = STATE(1113),
-    [sym_preproc_function_def] = STATE(1113),
-    [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7856),
-    [sym_preproc_elif_in_module] = STATE(7856),
-    [sym_preproc_elifdef_in_module] = STATE(7856),
-    [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5784),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(1113),
-    [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(1113),
+  [936] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token2] = ACTIONS(4337),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(4729),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4337),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_module_statement_token1] = ACTIONS(4337),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4337),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4337),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_function_statement_token1] = ACTIONS(4337),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4337),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [937] = {
+    [ts_builtin_sym_end] = ACTIONS(4315),
+    [aux_sym_preproc_include_token1] = ACTIONS(4311),
+    [aux_sym_preproc_def_token1] = ACTIONS(4311),
+    [aux_sym_preproc_if_token1] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4311),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4311),
+    [sym_preproc_directive] = ACTIONS(4311),
+    [anon_sym_LPAREN2] = ACTIONS(4311),
+    [sym_preproc_comment] = ACTIONS(4731),
+    [anon_sym_PLUS] = ACTIONS(4315),
+    [anon_sym_DASH] = ACTIONS(4315),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4311),
+    [aux_sym_module_statement_token1] = ACTIONS(4311),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4311),
+    [aux_sym_interface_statement_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4311),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4311),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4311),
+    [aux_sym_function_statement_token1] = ACTIONS(4311),
+    [aux_sym_language_binding_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4311),
+    [aux_sym_contains_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token1] = ACTIONS(4311),
+    [aux_sym_use_statement_token2] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4311),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4311),
+    [aux_sym_save_statement_token1] = ACTIONS(4311),
+    [aux_sym_private_statement_token1] = ACTIONS(4311),
+    [aux_sym_public_statement_token1] = ACTIONS(4311),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4311),
+    [aux_sym_common_statement_token1] = ACTIONS(4311),
+    [aux_sym_import_statement_token1] = ACTIONS(4311),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4311),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4311),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4311),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4311),
+    [aux_sym_derived_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token1] = ACTIONS(4311),
+    [aux_sym_declared_type_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4311),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4311),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4311),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4311),
+    [anon_sym_SEMI] = ACTIONS(4315),
+    [aux_sym_stop_statement_token1] = ACTIONS(4311),
+    [aux_sym_stop_statement_token2] = ACTIONS(4311),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4311),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4311),
+    [aux_sym_include_statement_token1] = ACTIONS(4311),
+    [aux_sym_data_statement_token1] = ACTIONS(4311),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4311),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4311),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4311),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4311),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4311),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4311),
+    [aux_sym_block_construct_token1] = ACTIONS(4311),
+    [aux_sym_associate_statement_token1] = ACTIONS(4311),
+    [aux_sym_format_statement_token1] = ACTIONS(4311),
+    [aux_sym_print_statement_token1] = ACTIONS(4311),
+    [aux_sym_open_statement_token1] = ACTIONS(4311),
+    [aux_sym_close_statement_token1] = ACTIONS(4311),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4311),
+    [aux_sym_enum_statement_token1] = ACTIONS(4311),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4311),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4311),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4311),
+    [aux_sym_entry_statement_token1] = ACTIONS(4311),
+    [aux_sym_logical_expression_token5] = ACTIONS(4315),
+    [anon_sym_DOT] = ACTIONS(4311),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4315),
+    [anon_sym_LBRACK] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4315),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4315),
+    [aux_sym_null_literal_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4311),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4311),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4311),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4311),
+    [aux_sym_identifier_token1] = ACTIONS(4311),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4315),
+    [sym__float_literal] = ACTIONS(4315),
+    [sym__boz_literal] = ACTIONS(4315),
+    [sym__string_literal] = ACTIONS(4315),
+    [sym__string_literal_kind] = ACTIONS(4315),
+  },
+  [938] = {
+    [ts_builtin_sym_end] = ACTIONS(4341),
+    [aux_sym_preproc_include_token1] = ACTIONS(4293),
+    [aux_sym_preproc_def_token1] = ACTIONS(4293),
+    [aux_sym_preproc_if_token1] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
+    [sym_preproc_directive] = ACTIONS(4293),
+    [anon_sym_LPAREN2] = ACTIONS(4293),
+    [sym_preproc_comment] = ACTIONS(4733),
+    [anon_sym_PLUS] = ACTIONS(4341),
+    [anon_sym_DASH] = ACTIONS(4341),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4293),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4293),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
+    [aux_sym_contains_statement_token1] = ACTIONS(4293),
+    [aux_sym_use_statement_token1] = ACTIONS(4293),
+    [aux_sym_use_statement_token2] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
+    [aux_sym_save_statement_token1] = ACTIONS(4293),
+    [aux_sym_private_statement_token1] = ACTIONS(4293),
+    [aux_sym_public_statement_token1] = ACTIONS(4293),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
+    [aux_sym_common_statement_token1] = ACTIONS(4293),
+    [aux_sym_import_statement_token1] = ACTIONS(4293),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
+    [aux_sym_derived_type_token1] = ACTIONS(4293),
+    [aux_sym_declared_type_token1] = ACTIONS(4293),
+    [aux_sym_declared_type_token2] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
+    [anon_sym_SEMI] = ACTIONS(4341),
+    [aux_sym_stop_statement_token1] = ACTIONS(4293),
+    [aux_sym_stop_statement_token2] = ACTIONS(4293),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4293),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4293),
+    [aux_sym_include_statement_token1] = ACTIONS(4293),
+    [aux_sym_data_statement_token1] = ACTIONS(4293),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4293),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4293),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4293),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4293),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4293),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4293),
+    [aux_sym_block_construct_token1] = ACTIONS(4293),
+    [aux_sym_associate_statement_token1] = ACTIONS(4293),
+    [aux_sym_format_statement_token1] = ACTIONS(4293),
+    [aux_sym_print_statement_token1] = ACTIONS(4293),
+    [aux_sym_open_statement_token1] = ACTIONS(4293),
+    [aux_sym_close_statement_token1] = ACTIONS(4293),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
+    [aux_sym_enum_statement_token1] = ACTIONS(4293),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4293),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4293),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4293),
+    [aux_sym_entry_statement_token1] = ACTIONS(4293),
+    [aux_sym_logical_expression_token5] = ACTIONS(4341),
+    [anon_sym_DOT] = ACTIONS(4293),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4341),
+    [anon_sym_LBRACK] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4341),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4341),
+    [aux_sym_null_literal_token1] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4293),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
+    [aux_sym_identifier_token1] = ACTIONS(4293),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4341),
+    [sym__float_literal] = ACTIONS(4341),
+    [sym__boz_literal] = ACTIONS(4341),
+    [sym__string_literal] = ACTIONS(4341),
+    [sym__string_literal_kind] = ACTIONS(4341),
+  },
+  [939] = {
+    [sym_preproc_include] = STATE(931),
+    [sym_preproc_def] = STATE(931),
+    [sym_preproc_function_def] = STATE(931),
+    [sym_preproc_call] = STATE(931),
+    [sym_preproc_else_in_module] = STATE(8378),
+    [sym_preproc_elif_in_module] = STATE(8378),
+    [sym_preproc_elifdef_in_module] = STATE(8378),
+    [sym_interface] = STATE(931),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5930),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(931),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(931),
+    [sym_public_statement] = STATE(931),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(931),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(931),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(931),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(931),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4751),
+    [aux_sym_preproc_if_token2] = ACTIONS(4735),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -225471,15 +224336,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -225528,75 +224393,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [947] = {
-    [sym_preproc_include] = STATE(946),
-    [sym_preproc_def] = STATE(946),
-    [sym_preproc_function_def] = STATE(946),
-    [sym_preproc_call] = STATE(946),
-    [sym_preproc_else_in_module] = STATE(7717),
-    [sym_preproc_elif_in_module] = STATE(7717),
-    [sym_preproc_elifdef_in_module] = STATE(7717),
-    [sym_interface] = STATE(946),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5864),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(946),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(946),
-    [sym_public_statement] = STATE(946),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(946),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(946),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(946),
+  [940] = {
+    [sym_preproc_include] = STATE(1113),
+    [sym_preproc_def] = STATE(1113),
+    [sym_preproc_function_def] = STATE(1113),
+    [sym_preproc_call] = STATE(1113),
+    [sym_preproc_else_in_module] = STATE(8378),
+    [sym_preproc_elif_in_module] = STATE(8378),
+    [sym_preproc_elifdef_in_module] = STATE(8378),
+    [sym_interface] = STATE(1113),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5930),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(1113),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(1113),
+    [sym_public_statement] = STATE(1113),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(1113),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(1113),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(946),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4753),
+    [aux_sym_preproc_if_token2] = ACTIONS(4735),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -225613,15 +224478,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -225670,7 +224535,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [948] = {
+  [941] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4277),
     [aux_sym_preproc_def_token1] = ACTIONS(4277),
     [aux_sym_preproc_if_token1] = ACTIONS(4277),
@@ -225679,7 +224544,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
     [sym_preproc_directive] = ACTIONS(4277),
     [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(4755),
+    [sym_preproc_comment] = ACTIONS(4737),
     [anon_sym_PLUS] = ACTIONS(4283),
     [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
@@ -225812,75 +224677,359 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4283),
     [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [949] = {
-    [sym_preproc_include] = STATE(1113),
-    [sym_preproc_def] = STATE(1113),
-    [sym_preproc_function_def] = STATE(1113),
-    [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7717),
-    [sym_preproc_elif_in_module] = STATE(7717),
-    [sym_preproc_elifdef_in_module] = STATE(7717),
-    [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5864),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(1113),
-    [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(1113),
+  [942] = {
+    [ts_builtin_sym_end] = ACTIONS(4289),
+    [aux_sym_preproc_include_token1] = ACTIONS(4285),
+    [aux_sym_preproc_def_token1] = ACTIONS(4285),
+    [aux_sym_preproc_if_token1] = ACTIONS(4285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
+    [sym_preproc_directive] = ACTIONS(4285),
+    [anon_sym_LPAREN2] = ACTIONS(4285),
+    [sym_preproc_comment] = ACTIONS(4739),
+    [anon_sym_PLUS] = ACTIONS(4289),
+    [anon_sym_DASH] = ACTIONS(4289),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4285),
+    [aux_sym_module_statement_token1] = ACTIONS(4285),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4285),
+    [aux_sym_interface_statement_token1] = ACTIONS(4285),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4285),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
+    [aux_sym_function_statement_token1] = ACTIONS(4285),
+    [aux_sym_language_binding_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
+    [aux_sym_contains_statement_token1] = ACTIONS(4285),
+    [aux_sym_use_statement_token1] = ACTIONS(4285),
+    [aux_sym_use_statement_token2] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
+    [aux_sym_save_statement_token1] = ACTIONS(4285),
+    [aux_sym_private_statement_token1] = ACTIONS(4285),
+    [aux_sym_public_statement_token1] = ACTIONS(4285),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
+    [aux_sym_common_statement_token1] = ACTIONS(4285),
+    [aux_sym_import_statement_token1] = ACTIONS(4285),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
+    [aux_sym_derived_type_token1] = ACTIONS(4285),
+    [aux_sym_declared_type_token1] = ACTIONS(4285),
+    [aux_sym_declared_type_token2] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4285),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
+    [anon_sym_SEMI] = ACTIONS(4289),
+    [aux_sym_stop_statement_token1] = ACTIONS(4285),
+    [aux_sym_stop_statement_token2] = ACTIONS(4285),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
+    [aux_sym_include_statement_token1] = ACTIONS(4285),
+    [aux_sym_data_statement_token1] = ACTIONS(4285),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
+    [aux_sym_block_construct_token1] = ACTIONS(4285),
+    [aux_sym_associate_statement_token1] = ACTIONS(4285),
+    [aux_sym_format_statement_token1] = ACTIONS(4285),
+    [aux_sym_print_statement_token1] = ACTIONS(4285),
+    [aux_sym_open_statement_token1] = ACTIONS(4285),
+    [aux_sym_close_statement_token1] = ACTIONS(4285),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
+    [aux_sym_enum_statement_token1] = ACTIONS(4285),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
+    [aux_sym_entry_statement_token1] = ACTIONS(4285),
+    [aux_sym_logical_expression_token5] = ACTIONS(4289),
+    [anon_sym_DOT] = ACTIONS(4285),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4289),
+    [anon_sym_LBRACK] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4289),
+    [aux_sym_null_literal_token1] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
+    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4289),
+    [sym__float_literal] = ACTIONS(4289),
+    [sym__boz_literal] = ACTIONS(4289),
+    [sym__string_literal] = ACTIONS(4289),
+    [sym__string_literal_kind] = ACTIONS(4289),
+  },
+  [943] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4357),
+    [aux_sym_preproc_def_token1] = ACTIONS(4357),
+    [aux_sym_preproc_if_token1] = ACTIONS(4357),
+    [aux_sym_preproc_if_token2] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4357),
+    [sym_preproc_directive] = ACTIONS(4357),
+    [anon_sym_LPAREN2] = ACTIONS(4357),
+    [sym_preproc_comment] = ACTIONS(4741),
+    [anon_sym_PLUS] = ACTIONS(4361),
+    [anon_sym_DASH] = ACTIONS(4361),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4357),
+    [aux_sym_module_statement_token1] = ACTIONS(4357),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4357),
+    [aux_sym_interface_statement_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4357),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4357),
+    [aux_sym_function_statement_token1] = ACTIONS(4357),
+    [aux_sym_language_binding_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4357),
+    [aux_sym_contains_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token2] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4357),
+    [aux_sym_save_statement_token1] = ACTIONS(4357),
+    [aux_sym_private_statement_token1] = ACTIONS(4357),
+    [aux_sym_public_statement_token1] = ACTIONS(4357),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4357),
+    [aux_sym_common_statement_token1] = ACTIONS(4357),
+    [aux_sym_import_statement_token1] = ACTIONS(4357),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4357),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4357),
+    [aux_sym_derived_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4357),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4357),
+    [anon_sym_SEMI] = ACTIONS(4361),
+    [aux_sym_stop_statement_token1] = ACTIONS(4357),
+    [aux_sym_stop_statement_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4357),
+    [aux_sym_include_statement_token1] = ACTIONS(4357),
+    [aux_sym_data_statement_token1] = ACTIONS(4357),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4357),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4357),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4357),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4357),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4357),
+    [aux_sym_block_construct_token1] = ACTIONS(4357),
+    [aux_sym_associate_statement_token1] = ACTIONS(4357),
+    [aux_sym_format_statement_token1] = ACTIONS(4357),
+    [aux_sym_print_statement_token1] = ACTIONS(4357),
+    [aux_sym_open_statement_token1] = ACTIONS(4357),
+    [aux_sym_close_statement_token1] = ACTIONS(4357),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4357),
+    [aux_sym_enum_statement_token1] = ACTIONS(4357),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4357),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4357),
+    [aux_sym_entry_statement_token1] = ACTIONS(4357),
+    [aux_sym_logical_expression_token5] = ACTIONS(4361),
+    [anon_sym_DOT] = ACTIONS(4357),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4361),
+    [anon_sym_LBRACK] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4361),
+    [aux_sym_null_literal_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4357),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4357),
+    [aux_sym_identifier_token1] = ACTIONS(4357),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4361),
+    [sym__float_literal] = ACTIONS(4361),
+    [sym__boz_literal] = ACTIONS(4361),
+    [sym__string_literal] = ACTIONS(4361),
+    [sym__string_literal_kind] = ACTIONS(4361),
+  },
+  [944] = {
+    [sym_preproc_include] = STATE(957),
+    [sym_preproc_def] = STATE(957),
+    [sym_preproc_function_def] = STATE(957),
+    [sym_preproc_call] = STATE(957),
+    [sym_preproc_else_in_module] = STATE(8510),
+    [sym_preproc_elif_in_module] = STATE(8510),
+    [sym_preproc_elifdef_in_module] = STATE(8510),
+    [sym_interface] = STATE(957),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5809),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(957),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(957),
+    [sym_public_statement] = STATE(957),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(957),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(957),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(957),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(957),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4753),
+    [aux_sym_preproc_if_token2] = ACTIONS(4743),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -225897,15 +225046,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -225954,75 +225103,359 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [950] = {
-    [sym_preproc_include] = STATE(962),
-    [sym_preproc_def] = STATE(962),
-    [sym_preproc_function_def] = STATE(962),
-    [sym_preproc_call] = STATE(962),
-    [sym_preproc_else_in_module] = STATE(7745),
-    [sym_preproc_elif_in_module] = STATE(7745),
-    [sym_preproc_elifdef_in_module] = STATE(7745),
-    [sym_interface] = STATE(962),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5987),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(962),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(962),
-    [sym_public_statement] = STATE(962),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(962),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(962),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(962),
+  [945] = {
+    [ts_builtin_sym_end] = ACTIONS(4379),
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [sym_preproc_comment] = ACTIONS(4745),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
+  },
+  [946] = {
+    [ts_builtin_sym_end] = ACTIONS(4361),
+    [aux_sym_preproc_include_token1] = ACTIONS(4357),
+    [aux_sym_preproc_def_token1] = ACTIONS(4357),
+    [aux_sym_preproc_if_token1] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4357),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4357),
+    [sym_preproc_directive] = ACTIONS(4357),
+    [anon_sym_LPAREN2] = ACTIONS(4357),
+    [sym_preproc_comment] = ACTIONS(4747),
+    [anon_sym_PLUS] = ACTIONS(4361),
+    [anon_sym_DASH] = ACTIONS(4361),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4357),
+    [aux_sym_module_statement_token1] = ACTIONS(4357),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4357),
+    [aux_sym_interface_statement_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4357),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4357),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4357),
+    [aux_sym_function_statement_token1] = ACTIONS(4357),
+    [aux_sym_language_binding_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4357),
+    [aux_sym_contains_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token1] = ACTIONS(4357),
+    [aux_sym_use_statement_token2] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4357),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4357),
+    [aux_sym_save_statement_token1] = ACTIONS(4357),
+    [aux_sym_private_statement_token1] = ACTIONS(4357),
+    [aux_sym_public_statement_token1] = ACTIONS(4357),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4357),
+    [aux_sym_common_statement_token1] = ACTIONS(4357),
+    [aux_sym_import_statement_token1] = ACTIONS(4357),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4357),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4357),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4357),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4357),
+    [aux_sym_derived_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token1] = ACTIONS(4357),
+    [aux_sym_declared_type_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4357),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4357),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4357),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4357),
+    [anon_sym_SEMI] = ACTIONS(4361),
+    [aux_sym_stop_statement_token1] = ACTIONS(4357),
+    [aux_sym_stop_statement_token2] = ACTIONS(4357),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4357),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4357),
+    [aux_sym_include_statement_token1] = ACTIONS(4357),
+    [aux_sym_data_statement_token1] = ACTIONS(4357),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4357),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4357),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4357),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4357),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4357),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4357),
+    [aux_sym_block_construct_token1] = ACTIONS(4357),
+    [aux_sym_associate_statement_token1] = ACTIONS(4357),
+    [aux_sym_format_statement_token1] = ACTIONS(4357),
+    [aux_sym_print_statement_token1] = ACTIONS(4357),
+    [aux_sym_open_statement_token1] = ACTIONS(4357),
+    [aux_sym_close_statement_token1] = ACTIONS(4357),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4357),
+    [aux_sym_enum_statement_token1] = ACTIONS(4357),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4357),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4357),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4357),
+    [aux_sym_entry_statement_token1] = ACTIONS(4357),
+    [aux_sym_logical_expression_token5] = ACTIONS(4361),
+    [anon_sym_DOT] = ACTIONS(4357),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4361),
+    [anon_sym_LBRACK] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4361),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4361),
+    [aux_sym_null_literal_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4357),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4357),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4357),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4357),
+    [aux_sym_identifier_token1] = ACTIONS(4357),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4361),
+    [sym__float_literal] = ACTIONS(4361),
+    [sym__boz_literal] = ACTIONS(4361),
+    [sym__string_literal] = ACTIONS(4361),
+    [sym__string_literal_kind] = ACTIONS(4361),
+  },
+  [947] = {
+    [sym_preproc_include] = STATE(933),
+    [sym_preproc_def] = STATE(933),
+    [sym_preproc_function_def] = STATE(933),
+    [sym_preproc_call] = STATE(933),
+    [sym_preproc_else_in_module] = STATE(8212),
+    [sym_preproc_elif_in_module] = STATE(8212),
+    [sym_preproc_elifdef_in_module] = STATE(8212),
+    [sym_interface] = STATE(933),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5990),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(933),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(933),
+    [sym_public_statement] = STATE(933),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(933),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(933),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(933),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(962),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(933),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4757),
+    [aux_sym_preproc_if_token2] = ACTIONS(4749),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -226039,15 +225472,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -226096,30 +225529,314 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [951] = {
+  [948] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4285),
+    [aux_sym_preproc_def_token1] = ACTIONS(4285),
+    [aux_sym_preproc_if_token1] = ACTIONS(4285),
+    [aux_sym_preproc_if_token2] = ACTIONS(4285),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
+    [sym_preproc_directive] = ACTIONS(4285),
+    [anon_sym_LPAREN2] = ACTIONS(4285),
+    [sym_preproc_comment] = ACTIONS(4751),
+    [anon_sym_PLUS] = ACTIONS(4289),
+    [anon_sym_DASH] = ACTIONS(4289),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4285),
+    [aux_sym_module_statement_token1] = ACTIONS(4285),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4285),
+    [aux_sym_interface_statement_token1] = ACTIONS(4285),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4285),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
+    [aux_sym_function_statement_token1] = ACTIONS(4285),
+    [aux_sym_language_binding_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
+    [aux_sym_contains_statement_token1] = ACTIONS(4285),
+    [aux_sym_use_statement_token1] = ACTIONS(4285),
+    [aux_sym_use_statement_token2] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
+    [aux_sym_save_statement_token1] = ACTIONS(4285),
+    [aux_sym_private_statement_token1] = ACTIONS(4285),
+    [aux_sym_public_statement_token1] = ACTIONS(4285),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
+    [aux_sym_common_statement_token1] = ACTIONS(4285),
+    [aux_sym_import_statement_token1] = ACTIONS(4285),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
+    [aux_sym_derived_type_token1] = ACTIONS(4285),
+    [aux_sym_declared_type_token1] = ACTIONS(4285),
+    [aux_sym_declared_type_token2] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4285),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4285),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
+    [anon_sym_SEMI] = ACTIONS(4289),
+    [aux_sym_stop_statement_token1] = ACTIONS(4285),
+    [aux_sym_stop_statement_token2] = ACTIONS(4285),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
+    [aux_sym_include_statement_token1] = ACTIONS(4285),
+    [aux_sym_data_statement_token1] = ACTIONS(4285),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
+    [aux_sym_block_construct_token1] = ACTIONS(4285),
+    [aux_sym_associate_statement_token1] = ACTIONS(4285),
+    [aux_sym_format_statement_token1] = ACTIONS(4285),
+    [aux_sym_print_statement_token1] = ACTIONS(4285),
+    [aux_sym_open_statement_token1] = ACTIONS(4285),
+    [aux_sym_close_statement_token1] = ACTIONS(4285),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
+    [aux_sym_enum_statement_token1] = ACTIONS(4285),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
+    [aux_sym_entry_statement_token1] = ACTIONS(4285),
+    [aux_sym_logical_expression_token5] = ACTIONS(4289),
+    [anon_sym_DOT] = ACTIONS(4285),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4289),
+    [anon_sym_LBRACK] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4289),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4289),
+    [aux_sym_null_literal_token1] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
+    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4289),
+    [sym__float_literal] = ACTIONS(4289),
+    [sym__boz_literal] = ACTIONS(4289),
+    [sym__string_literal] = ACTIONS(4289),
+    [sym__string_literal_kind] = ACTIONS(4289),
+  },
+  [949] = {
+    [ts_builtin_sym_end] = ACTIONS(4327),
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(4753),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [950] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4305),
     [aux_sym_preproc_def_token1] = ACTIONS(4305),
     [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token2] = ACTIONS(4313),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
     [sym_preproc_directive] = ACTIONS(4305),
     [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(4759),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
+    [sym_preproc_comment] = ACTIONS(4755),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4313),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
     [aux_sym_end_program_statement_token1] = ACTIONS(4305),
     [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_module_statement_token1] = ACTIONS(4313),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4313),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
     [aux_sym_interface_statement_token1] = ACTIONS(4305),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4313),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_function_statement_token1] = ACTIONS(4313),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
     [aux_sym_language_binding_token1] = ACTIONS(4305),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
@@ -226171,13 +225888,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
     [aux_sym_type_qualifier_token1] = ACTIONS(4305),
     [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4313),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
+    [anon_sym_SEMI] = ACTIONS(4309),
     [aux_sym_stop_statement_token1] = ACTIONS(4305),
     [aux_sym_stop_statement_token2] = ACTIONS(4305),
     [aux_sym_subroutine_call_token1] = ACTIONS(4305),
@@ -226214,12 +225931,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4305),
     [aux_sym_allocate_statement_token1] = ACTIONS(4305),
     [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
     [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
     [aux_sym_null_literal_token1] = ACTIONS(4305),
     [aux_sym_coarray_statement_token1] = ACTIONS(4305),
     [aux_sym_coarray_statement_token2] = ACTIONS(4305),
@@ -226232,365 +225949,223 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
     [aux_sym_identifier_token1] = ACTIONS(4305),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [952] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(4761),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
   },
-  [953] = {
-    [ts_builtin_sym_end] = ACTIONS(4333),
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(4763),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [951] = {
+    [ts_builtin_sym_end] = ACTIONS(4757),
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(4759),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4337),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_module_statement_token1] = ACTIONS(4337),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4337),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4337),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_function_statement_token1] = ACTIONS(4337),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4337),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4337),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
   },
-  [954] = {
-    [sym_preproc_include] = STATE(936),
-    [sym_preproc_def] = STATE(936),
-    [sym_preproc_function_def] = STATE(936),
-    [sym_preproc_call] = STATE(936),
-    [sym_preproc_else_in_module] = STATE(7753),
-    [sym_preproc_elif_in_module] = STATE(7753),
-    [sym_preproc_elifdef_in_module] = STATE(7753),
-    [sym_interface] = STATE(936),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5990),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(936),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(936),
-    [sym_public_statement] = STATE(936),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(936),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(936),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(936),
+  [952] = {
+    [sym_preproc_include] = STATE(1113),
+    [sym_preproc_def] = STATE(1113),
+    [sym_preproc_function_def] = STATE(1113),
+    [sym_preproc_call] = STATE(1113),
+    [sym_preproc_else_in_module] = STATE(8200),
+    [sym_preproc_elif_in_module] = STATE(8200),
+    [sym_preproc_elifdef_in_module] = STATE(8200),
+    [sym_interface] = STATE(1113),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5921),
+    [sym_contains_statement] = STATE(6727),
+    [sym__specification_part] = STATE(1113),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(1113),
+    [sym_public_statement] = STATE(1113),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(1113),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(1113),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(936),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4765),
+    [aux_sym_preproc_if_token2] = ACTIONS(4761),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -226607,15 +226182,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -226664,501 +226239,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [955] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(4767),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [956] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4385),
-    [aux_sym_preproc_def_token1] = ACTIONS(4385),
-    [aux_sym_preproc_if_token1] = ACTIONS(4385),
-    [aux_sym_preproc_if_token2] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4385),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4385),
-    [sym_preproc_directive] = ACTIONS(4385),
-    [anon_sym_LPAREN2] = ACTIONS(4385),
-    [sym_preproc_comment] = ACTIONS(4769),
-    [anon_sym_PLUS] = ACTIONS(4389),
-    [anon_sym_DASH] = ACTIONS(4389),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4385),
-    [aux_sym_module_statement_token1] = ACTIONS(4385),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4385),
-    [aux_sym_interface_statement_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4385),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4385),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4385),
-    [aux_sym_function_statement_token1] = ACTIONS(4385),
-    [aux_sym_language_binding_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4385),
-    [aux_sym_contains_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token1] = ACTIONS(4385),
-    [aux_sym_use_statement_token2] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4385),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4385),
-    [aux_sym_save_statement_token1] = ACTIONS(4385),
-    [aux_sym_private_statement_token1] = ACTIONS(4385),
-    [aux_sym_public_statement_token1] = ACTIONS(4385),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4385),
-    [aux_sym_common_statement_token1] = ACTIONS(4385),
-    [aux_sym_import_statement_token1] = ACTIONS(4385),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4385),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4385),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4385),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4385),
-    [aux_sym_derived_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token1] = ACTIONS(4385),
-    [aux_sym_declared_type_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4385),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4385),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4385),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4385),
-    [anon_sym_SEMI] = ACTIONS(4389),
-    [aux_sym_stop_statement_token1] = ACTIONS(4385),
-    [aux_sym_stop_statement_token2] = ACTIONS(4385),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4385),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4385),
-    [aux_sym_include_statement_token1] = ACTIONS(4385),
-    [aux_sym_data_statement_token1] = ACTIONS(4385),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4385),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4385),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4385),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4385),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4385),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4385),
-    [aux_sym_block_construct_token1] = ACTIONS(4385),
-    [aux_sym_associate_statement_token1] = ACTIONS(4385),
-    [aux_sym_format_statement_token1] = ACTIONS(4385),
-    [aux_sym_print_statement_token1] = ACTIONS(4385),
-    [aux_sym_open_statement_token1] = ACTIONS(4385),
-    [aux_sym_close_statement_token1] = ACTIONS(4385),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4385),
-    [aux_sym_enum_statement_token1] = ACTIONS(4385),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4385),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4385),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4385),
-    [aux_sym_entry_statement_token1] = ACTIONS(4385),
-    [aux_sym_logical_expression_token5] = ACTIONS(4389),
-    [anon_sym_DOT] = ACTIONS(4385),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4389),
-    [anon_sym_LBRACK] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4389),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4389),
-    [aux_sym_null_literal_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4385),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4385),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4385),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4385),
-    [aux_sym_identifier_token1] = ACTIONS(4385),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4389),
-    [sym__float_literal] = ACTIONS(4389),
-    [sym__boz_literal] = ACTIONS(4389),
-    [sym__string_literal] = ACTIONS(4389),
-    [sym__string_literal_kind] = ACTIONS(4389),
-  },
-  [957] = {
-    [ts_builtin_sym_end] = ACTIONS(4359),
-    [aux_sym_preproc_include_token1] = ACTIONS(4355),
-    [aux_sym_preproc_def_token1] = ACTIONS(4355),
-    [aux_sym_preproc_if_token1] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4355),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4355),
-    [sym_preproc_directive] = ACTIONS(4355),
-    [anon_sym_LPAREN2] = ACTIONS(4355),
-    [sym_preproc_comment] = ACTIONS(4771),
-    [anon_sym_PLUS] = ACTIONS(4359),
-    [anon_sym_DASH] = ACTIONS(4359),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4355),
-    [aux_sym_module_statement_token1] = ACTIONS(4355),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4355),
-    [aux_sym_interface_statement_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4355),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4355),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4355),
-    [aux_sym_function_statement_token1] = ACTIONS(4355),
-    [aux_sym_language_binding_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4355),
-    [aux_sym_contains_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token1] = ACTIONS(4355),
-    [aux_sym_use_statement_token2] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4355),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4355),
-    [aux_sym_save_statement_token1] = ACTIONS(4355),
-    [aux_sym_private_statement_token1] = ACTIONS(4355),
-    [aux_sym_public_statement_token1] = ACTIONS(4355),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4355),
-    [aux_sym_common_statement_token1] = ACTIONS(4355),
-    [aux_sym_import_statement_token1] = ACTIONS(4355),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4355),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4355),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4355),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4355),
-    [aux_sym_derived_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token1] = ACTIONS(4355),
-    [aux_sym_declared_type_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4355),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4355),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4355),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4355),
-    [anon_sym_SEMI] = ACTIONS(4359),
-    [aux_sym_stop_statement_token1] = ACTIONS(4355),
-    [aux_sym_stop_statement_token2] = ACTIONS(4355),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4355),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4355),
-    [aux_sym_include_statement_token1] = ACTIONS(4355),
-    [aux_sym_data_statement_token1] = ACTIONS(4355),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4355),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4355),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4355),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4355),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4355),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4355),
-    [aux_sym_block_construct_token1] = ACTIONS(4355),
-    [aux_sym_associate_statement_token1] = ACTIONS(4355),
-    [aux_sym_format_statement_token1] = ACTIONS(4355),
-    [aux_sym_print_statement_token1] = ACTIONS(4355),
-    [aux_sym_open_statement_token1] = ACTIONS(4355),
-    [aux_sym_close_statement_token1] = ACTIONS(4355),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4355),
-    [aux_sym_enum_statement_token1] = ACTIONS(4355),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4355),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4355),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4355),
-    [aux_sym_entry_statement_token1] = ACTIONS(4355),
-    [aux_sym_logical_expression_token5] = ACTIONS(4359),
-    [anon_sym_DOT] = ACTIONS(4355),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4359),
-    [anon_sym_LBRACK] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4359),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4359),
-    [aux_sym_null_literal_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4355),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4355),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4355),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4355),
-    [aux_sym_identifier_token1] = ACTIONS(4355),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4359),
-    [sym__float_literal] = ACTIONS(4359),
-    [sym__boz_literal] = ACTIONS(4359),
-    [sym__string_literal] = ACTIONS(4359),
-    [sym__string_literal_kind] = ACTIONS(4359),
-  },
-  [958] = {
+  [953] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7753),
-    [sym_preproc_elif_in_module] = STATE(7753),
-    [sym_preproc_elifdef_in_module] = STATE(7753),
+    [sym_preproc_else_in_module] = STATE(8212),
+    [sym_preproc_elif_in_module] = STATE(8212),
+    [sym_preproc_elifdef_in_module] = STATE(8212),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
     [sym_internal_procedures] = STATE(5990),
-    [sym_contains_statement] = STATE(7152),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4765),
+    [aux_sym_preproc_if_token2] = ACTIONS(4749),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -227175,15 +226324,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -227232,217 +226381,501 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [959] = {
-    [ts_builtin_sym_end] = ACTIONS(4365),
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
-    [sym_preproc_comment] = ACTIONS(4773),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
+  [954] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4351),
+    [aux_sym_preproc_def_token1] = ACTIONS(4351),
+    [aux_sym_preproc_if_token1] = ACTIONS(4351),
+    [aux_sym_preproc_if_token2] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4351),
+    [sym_preproc_directive] = ACTIONS(4351),
+    [anon_sym_LPAREN2] = ACTIONS(4351),
+    [sym_preproc_comment] = ACTIONS(4763),
+    [anon_sym_PLUS] = ACTIONS(4355),
+    [anon_sym_DASH] = ACTIONS(4355),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4351),
+    [aux_sym_module_statement_token1] = ACTIONS(4351),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4351),
+    [aux_sym_interface_statement_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4351),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4351),
+    [aux_sym_function_statement_token1] = ACTIONS(4351),
+    [aux_sym_language_binding_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4351),
+    [aux_sym_contains_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token2] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4351),
+    [aux_sym_save_statement_token1] = ACTIONS(4351),
+    [aux_sym_private_statement_token1] = ACTIONS(4351),
+    [aux_sym_public_statement_token1] = ACTIONS(4351),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4351),
+    [aux_sym_common_statement_token1] = ACTIONS(4351),
+    [aux_sym_import_statement_token1] = ACTIONS(4351),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4351),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4351),
+    [aux_sym_derived_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4351),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4351),
+    [anon_sym_SEMI] = ACTIONS(4355),
+    [aux_sym_stop_statement_token1] = ACTIONS(4351),
+    [aux_sym_stop_statement_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4351),
+    [aux_sym_include_statement_token1] = ACTIONS(4351),
+    [aux_sym_data_statement_token1] = ACTIONS(4351),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4351),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4351),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4351),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4351),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4351),
+    [aux_sym_block_construct_token1] = ACTIONS(4351),
+    [aux_sym_associate_statement_token1] = ACTIONS(4351),
+    [aux_sym_format_statement_token1] = ACTIONS(4351),
+    [aux_sym_print_statement_token1] = ACTIONS(4351),
+    [aux_sym_open_statement_token1] = ACTIONS(4351),
+    [aux_sym_close_statement_token1] = ACTIONS(4351),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4351),
+    [aux_sym_enum_statement_token1] = ACTIONS(4351),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4351),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4351),
+    [aux_sym_entry_statement_token1] = ACTIONS(4351),
+    [aux_sym_logical_expression_token5] = ACTIONS(4355),
+    [anon_sym_DOT] = ACTIONS(4351),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4355),
+    [anon_sym_LBRACK] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4355),
+    [aux_sym_null_literal_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4351),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4351),
+    [aux_sym_identifier_token1] = ACTIONS(4351),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4355),
+    [sym__float_literal] = ACTIONS(4355),
+    [sym__boz_literal] = ACTIONS(4355),
+    [sym__string_literal] = ACTIONS(4355),
+    [sym__string_literal_kind] = ACTIONS(4355),
   },
-  [960] = {
+  [955] = {
+    [ts_builtin_sym_end] = ACTIONS(4355),
+    [aux_sym_preproc_include_token1] = ACTIONS(4351),
+    [aux_sym_preproc_def_token1] = ACTIONS(4351),
+    [aux_sym_preproc_if_token1] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4351),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4351),
+    [sym_preproc_directive] = ACTIONS(4351),
+    [anon_sym_LPAREN2] = ACTIONS(4351),
+    [sym_preproc_comment] = ACTIONS(4765),
+    [anon_sym_PLUS] = ACTIONS(4355),
+    [anon_sym_DASH] = ACTIONS(4355),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4351),
+    [aux_sym_module_statement_token1] = ACTIONS(4351),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4351),
+    [aux_sym_interface_statement_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4351),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4351),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4351),
+    [aux_sym_function_statement_token1] = ACTIONS(4351),
+    [aux_sym_language_binding_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4351),
+    [aux_sym_contains_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token1] = ACTIONS(4351),
+    [aux_sym_use_statement_token2] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4351),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4351),
+    [aux_sym_save_statement_token1] = ACTIONS(4351),
+    [aux_sym_private_statement_token1] = ACTIONS(4351),
+    [aux_sym_public_statement_token1] = ACTIONS(4351),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4351),
+    [aux_sym_common_statement_token1] = ACTIONS(4351),
+    [aux_sym_import_statement_token1] = ACTIONS(4351),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4351),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4351),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4351),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4351),
+    [aux_sym_derived_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token1] = ACTIONS(4351),
+    [aux_sym_declared_type_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4351),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4351),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4351),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4351),
+    [anon_sym_SEMI] = ACTIONS(4355),
+    [aux_sym_stop_statement_token1] = ACTIONS(4351),
+    [aux_sym_stop_statement_token2] = ACTIONS(4351),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4351),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4351),
+    [aux_sym_include_statement_token1] = ACTIONS(4351),
+    [aux_sym_data_statement_token1] = ACTIONS(4351),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4351),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4351),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4351),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4351),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4351),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4351),
+    [aux_sym_block_construct_token1] = ACTIONS(4351),
+    [aux_sym_associate_statement_token1] = ACTIONS(4351),
+    [aux_sym_format_statement_token1] = ACTIONS(4351),
+    [aux_sym_print_statement_token1] = ACTIONS(4351),
+    [aux_sym_open_statement_token1] = ACTIONS(4351),
+    [aux_sym_close_statement_token1] = ACTIONS(4351),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4351),
+    [aux_sym_enum_statement_token1] = ACTIONS(4351),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4351),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4351),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4351),
+    [aux_sym_entry_statement_token1] = ACTIONS(4351),
+    [aux_sym_logical_expression_token5] = ACTIONS(4355),
+    [anon_sym_DOT] = ACTIONS(4351),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4355),
+    [anon_sym_LBRACK] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4355),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4355),
+    [aux_sym_null_literal_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4351),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4351),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4351),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4351),
+    [aux_sym_identifier_token1] = ACTIONS(4351),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4355),
+    [sym__float_literal] = ACTIONS(4355),
+    [sym__boz_literal] = ACTIONS(4355),
+    [sym__string_literal] = ACTIONS(4355),
+    [sym__string_literal_kind] = ACTIONS(4355),
+  },
+  [956] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4279),
+    [aux_sym_preproc_def_token1] = ACTIONS(4279),
+    [aux_sym_preproc_if_token1] = ACTIONS(4279),
+    [aux_sym_preproc_if_token2] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4279),
+    [sym_preproc_directive] = ACTIONS(4279),
+    [anon_sym_LPAREN2] = ACTIONS(4279),
+    [sym_preproc_comment] = ACTIONS(4767),
+    [anon_sym_PLUS] = ACTIONS(4327),
+    [anon_sym_DASH] = ACTIONS(4327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4279),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4279),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4279),
+    [aux_sym_contains_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token2] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4279),
+    [aux_sym_save_statement_token1] = ACTIONS(4279),
+    [aux_sym_private_statement_token1] = ACTIONS(4279),
+    [aux_sym_public_statement_token1] = ACTIONS(4279),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4279),
+    [aux_sym_common_statement_token1] = ACTIONS(4279),
+    [aux_sym_import_statement_token1] = ACTIONS(4279),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4279),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4279),
+    [aux_sym_derived_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4279),
+    [anon_sym_SEMI] = ACTIONS(4327),
+    [aux_sym_stop_statement_token1] = ACTIONS(4279),
+    [aux_sym_stop_statement_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4279),
+    [aux_sym_include_statement_token1] = ACTIONS(4279),
+    [aux_sym_data_statement_token1] = ACTIONS(4279),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4279),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4279),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4279),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4279),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4279),
+    [aux_sym_block_construct_token1] = ACTIONS(4279),
+    [aux_sym_associate_statement_token1] = ACTIONS(4279),
+    [aux_sym_format_statement_token1] = ACTIONS(4279),
+    [aux_sym_print_statement_token1] = ACTIONS(4279),
+    [aux_sym_open_statement_token1] = ACTIONS(4279),
+    [aux_sym_close_statement_token1] = ACTIONS(4279),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4279),
+    [aux_sym_enum_statement_token1] = ACTIONS(4279),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4279),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4279),
+    [aux_sym_entry_statement_token1] = ACTIONS(4279),
+    [aux_sym_logical_expression_token5] = ACTIONS(4327),
+    [anon_sym_DOT] = ACTIONS(4279),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4327),
+    [anon_sym_LBRACK] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4327),
+    [aux_sym_null_literal_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4279),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4279),
+    [aux_sym_identifier_token1] = ACTIONS(4279),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4327),
+    [sym__float_literal] = ACTIONS(4327),
+    [sym__boz_literal] = ACTIONS(4327),
+    [sym__string_literal] = ACTIONS(4327),
+    [sym__string_literal_kind] = ACTIONS(4327),
+  },
+  [957] = {
     [sym_preproc_include] = STATE(1113),
     [sym_preproc_def] = STATE(1113),
     [sym_preproc_function_def] = STATE(1113),
     [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(8145),
-    [sym_preproc_elif_in_module] = STATE(8145),
-    [sym_preproc_elifdef_in_module] = STATE(8145),
+    [sym_preproc_else_in_module] = STATE(8662),
+    [sym_preproc_elif_in_module] = STATE(8662),
+    [sym_preproc_elifdef_in_module] = STATE(8662),
     [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5868),
-    [sym_contains_statement] = STATE(7152),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(5792),
+    [sym_contains_statement] = STATE(6727),
     [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
     [sym_private_statement] = STATE(1113),
     [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
     [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
     [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
+    [sym_enum_statement] = STATE(6043),
     [sym_enumeration_type] = STATE(1113),
     [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
     [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
     [aux_sym_preproc_include_token1] = ACTIONS(4645),
     [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4775),
+    [aux_sym_preproc_if_token2] = ACTIONS(4769),
     [aux_sym_preproc_else_token1] = ACTIONS(4651),
     [aux_sym_preproc_elif_token1] = ACTIONS(4653),
     [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
     [sym_preproc_directive] = ACTIONS(4657),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4661),
@@ -227459,15 +226892,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -227516,114 +226949,540 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [961] = {
-    [ts_builtin_sym_end] = ACTIONS(4777),
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(4779),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
+  [958] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(4771),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4313),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_module_statement_token1] = ACTIONS(4313),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4313),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4313),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_function_statement_token1] = ACTIONS(4313),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4313),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4313),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [959] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(4773),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4383),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_module_statement_token1] = ACTIONS(4383),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4383),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4383),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_function_statement_token1] = ACTIONS(4383),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4383),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4383),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [960] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4363),
+    [aux_sym_preproc_def_token1] = ACTIONS(4363),
+    [aux_sym_preproc_if_token1] = ACTIONS(4363),
+    [aux_sym_preproc_if_token2] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4363),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4363),
+    [sym_preproc_directive] = ACTIONS(4363),
+    [anon_sym_LPAREN2] = ACTIONS(4363),
+    [sym_preproc_comment] = ACTIONS(4775),
+    [anon_sym_PLUS] = ACTIONS(4367),
+    [anon_sym_DASH] = ACTIONS(4367),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4363),
+    [aux_sym_module_statement_token1] = ACTIONS(4363),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4363),
+    [aux_sym_interface_statement_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4363),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4363),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4363),
+    [aux_sym_function_statement_token1] = ACTIONS(4363),
+    [aux_sym_language_binding_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4363),
+    [aux_sym_contains_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token1] = ACTIONS(4363),
+    [aux_sym_use_statement_token2] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4363),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4363),
+    [aux_sym_save_statement_token1] = ACTIONS(4363),
+    [aux_sym_private_statement_token1] = ACTIONS(4363),
+    [aux_sym_public_statement_token1] = ACTIONS(4363),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4363),
+    [aux_sym_common_statement_token1] = ACTIONS(4363),
+    [aux_sym_import_statement_token1] = ACTIONS(4363),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4363),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4363),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4363),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4363),
+    [aux_sym_derived_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token1] = ACTIONS(4363),
+    [aux_sym_declared_type_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4363),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4363),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4363),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4363),
+    [anon_sym_SEMI] = ACTIONS(4367),
+    [aux_sym_stop_statement_token1] = ACTIONS(4363),
+    [aux_sym_stop_statement_token2] = ACTIONS(4363),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4363),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4363),
+    [aux_sym_include_statement_token1] = ACTIONS(4363),
+    [aux_sym_data_statement_token1] = ACTIONS(4363),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4363),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4363),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4363),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4363),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4363),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4363),
+    [aux_sym_block_construct_token1] = ACTIONS(4363),
+    [aux_sym_associate_statement_token1] = ACTIONS(4363),
+    [aux_sym_format_statement_token1] = ACTIONS(4363),
+    [aux_sym_print_statement_token1] = ACTIONS(4363),
+    [aux_sym_open_statement_token1] = ACTIONS(4363),
+    [aux_sym_close_statement_token1] = ACTIONS(4363),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4363),
+    [aux_sym_enum_statement_token1] = ACTIONS(4363),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4363),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4363),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4363),
+    [aux_sym_entry_statement_token1] = ACTIONS(4363),
+    [aux_sym_logical_expression_token5] = ACTIONS(4367),
+    [anon_sym_DOT] = ACTIONS(4363),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4367),
+    [anon_sym_LBRACK] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4367),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4367),
+    [aux_sym_null_literal_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4363),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4363),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4363),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4363),
+    [aux_sym_identifier_token1] = ACTIONS(4363),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4367),
+    [sym__float_literal] = ACTIONS(4367),
+    [sym__boz_literal] = ACTIONS(4367),
+    [sym__string_literal] = ACTIONS(4367),
+    [sym__string_literal_kind] = ACTIONS(4367),
+  },
+  [961] = {
+    [ts_builtin_sym_end] = ACTIONS(4309),
+    [aux_sym_preproc_include_token1] = ACTIONS(4305),
+    [aux_sym_preproc_def_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
+    [sym_preproc_directive] = ACTIONS(4305),
+    [anon_sym_LPAREN2] = ACTIONS(4305),
+    [sym_preproc_comment] = ACTIONS(4777),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
+    [aux_sym_contains_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token2] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
+    [aux_sym_save_statement_token1] = ACTIONS(4305),
+    [aux_sym_private_statement_token1] = ACTIONS(4305),
+    [aux_sym_public_statement_token1] = ACTIONS(4305),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
+    [aux_sym_common_statement_token1] = ACTIONS(4305),
+    [aux_sym_import_statement_token1] = ACTIONS(4305),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
+    [aux_sym_derived_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
+    [anon_sym_SEMI] = ACTIONS(4309),
+    [aux_sym_stop_statement_token1] = ACTIONS(4305),
+    [aux_sym_stop_statement_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
+    [aux_sym_include_statement_token1] = ACTIONS(4305),
+    [aux_sym_data_statement_token1] = ACTIONS(4305),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
+    [aux_sym_block_construct_token1] = ACTIONS(4305),
+    [aux_sym_associate_statement_token1] = ACTIONS(4305),
+    [aux_sym_format_statement_token1] = ACTIONS(4305),
+    [aux_sym_print_statement_token1] = ACTIONS(4305),
+    [aux_sym_open_statement_token1] = ACTIONS(4305),
     [aux_sym_close_statement_token1] = ACTIONS(4305),
     [aux_sym_inquire_statement_token1] = ACTIONS(4305),
     [aux_sym_enum_statement_token1] = ACTIONS(4305),
@@ -227634,12 +227493,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4305),
     [aux_sym_allocate_statement_token1] = ACTIONS(4305),
     [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
     [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
     [aux_sym_null_literal_token1] = ACTIONS(4305),
     [aux_sym_coarray_statement_token1] = ACTIONS(4305),
     [aux_sym_coarray_statement_token2] = ACTIONS(4305),
@@ -227652,85 +227511,226 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
     [aux_sym_identifier_token1] = ACTIONS(4305),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
   },
   [962] = {
-    [sym_preproc_include] = STATE(1113),
-    [sym_preproc_def] = STATE(1113),
-    [sym_preproc_function_def] = STATE(1113),
-    [sym_preproc_call] = STATE(1113),
-    [sym_preproc_else_in_module] = STATE(7875),
-    [sym_preproc_elif_in_module] = STATE(7875),
-    [sym_preproc_elifdef_in_module] = STATE(7875),
-    [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(5821),
-    [sym_contains_statement] = STATE(7152),
-    [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(1113),
-    [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(1113),
-    [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4645),
-    [aux_sym_preproc_def_token1] = ACTIONS(4647),
-    [aux_sym_preproc_if_token2] = ACTIONS(4715),
-    [aux_sym_preproc_else_token1] = ACTIONS(4651),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4653),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4655),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4655),
-    [sym_preproc_directive] = ACTIONS(4657),
+    [ts_builtin_sym_end] = ACTIONS(4327),
+    [aux_sym_preproc_include_token1] = ACTIONS(4279),
+    [aux_sym_preproc_def_token1] = ACTIONS(4279),
+    [aux_sym_preproc_if_token1] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4279),
+    [sym_preproc_directive] = ACTIONS(4279),
+    [anon_sym_LPAREN2] = ACTIONS(4279),
+    [sym_preproc_comment] = ACTIONS(4779),
+    [anon_sym_PLUS] = ACTIONS(4327),
+    [anon_sym_DASH] = ACTIONS(4327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4279),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4279),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4279),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4279),
+    [aux_sym_contains_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token1] = ACTIONS(4279),
+    [aux_sym_use_statement_token2] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4279),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4279),
+    [aux_sym_save_statement_token1] = ACTIONS(4279),
+    [aux_sym_private_statement_token1] = ACTIONS(4279),
+    [aux_sym_public_statement_token1] = ACTIONS(4279),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4279),
+    [aux_sym_common_statement_token1] = ACTIONS(4279),
+    [aux_sym_import_statement_token1] = ACTIONS(4279),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4279),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4279),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4279),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4279),
+    [aux_sym_derived_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token1] = ACTIONS(4279),
+    [aux_sym_declared_type_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4279),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4279),
+    [anon_sym_SEMI] = ACTIONS(4327),
+    [aux_sym_stop_statement_token1] = ACTIONS(4279),
+    [aux_sym_stop_statement_token2] = ACTIONS(4279),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4279),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4279),
+    [aux_sym_include_statement_token1] = ACTIONS(4279),
+    [aux_sym_data_statement_token1] = ACTIONS(4279),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4279),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4279),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4279),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4279),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4279),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4279),
+    [aux_sym_block_construct_token1] = ACTIONS(4279),
+    [aux_sym_associate_statement_token1] = ACTIONS(4279),
+    [aux_sym_format_statement_token1] = ACTIONS(4279),
+    [aux_sym_print_statement_token1] = ACTIONS(4279),
+    [aux_sym_open_statement_token1] = ACTIONS(4279),
+    [aux_sym_close_statement_token1] = ACTIONS(4279),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4279),
+    [aux_sym_enum_statement_token1] = ACTIONS(4279),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4279),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4279),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4279),
+    [aux_sym_entry_statement_token1] = ACTIONS(4279),
+    [aux_sym_logical_expression_token5] = ACTIONS(4327),
+    [anon_sym_DOT] = ACTIONS(4279),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4327),
+    [anon_sym_LBRACK] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4327),
+    [aux_sym_null_literal_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4279),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4279),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4279),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4279),
+    [aux_sym_identifier_token1] = ACTIONS(4279),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4327),
+    [sym__float_literal] = ACTIONS(4327),
+    [sym__boz_literal] = ACTIONS(4327),
+    [sym__string_literal] = ACTIONS(4327),
+    [sym__string_literal_kind] = ACTIONS(4327),
+  },
+  [963] = {
+    [sym_preproc_include] = STATE(1111),
+    [sym_preproc_def] = STATE(1111),
+    [sym_preproc_function_def] = STATE(1111),
+    [sym_preproc_call] = STATE(1111),
+    [sym_preproc_if_in_module] = STATE(1111),
+    [sym_preproc_ifdef_in_module] = STATE(1111),
+    [sym_end_submodule_statement] = STATE(846),
+    [sym_interface] = STATE(1111),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6492),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(1111),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1111),
+    [sym_public_statement] = STATE(1111),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1111),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1111),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1111),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4791),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4793),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4661),
-    [aux_sym_public_statement_token1] = ACTIONS(4663),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
     [aux_sym_namelist_statement_token1] = ACTIONS(65),
     [aux_sym_common_statement_token1] = ACTIONS(67),
     [aux_sym_import_statement_token1] = ACTIONS(69),
@@ -227743,15 +227743,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -227800,2968 +227800,1558 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [963] = {
-    [ts_builtin_sym_end] = ACTIONS(4475),
-    [aux_sym_preproc_include_token1] = ACTIONS(4473),
-    [aux_sym_preproc_def_token1] = ACTIONS(4473),
-    [aux_sym_preproc_if_token1] = ACTIONS(4473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
-    [sym_preproc_directive] = ACTIONS(4473),
-    [anon_sym_LPAREN2] = ACTIONS(4473),
-    [anon_sym_PLUS] = ACTIONS(4475),
-    [anon_sym_DASH] = ACTIONS(4475),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4473),
-    [aux_sym_module_statement_token1] = ACTIONS(4473),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4473),
-    [aux_sym_interface_statement_token1] = ACTIONS(4473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
-    [aux_sym_function_statement_token1] = ACTIONS(4473),
-    [aux_sym_language_binding_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
-    [aux_sym_contains_statement_token1] = ACTIONS(4473),
-    [aux_sym_use_statement_token1] = ACTIONS(4473),
-    [aux_sym_use_statement_token2] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
-    [aux_sym_save_statement_token1] = ACTIONS(4473),
-    [aux_sym_private_statement_token1] = ACTIONS(4473),
-    [aux_sym_public_statement_token1] = ACTIONS(4473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
-    [aux_sym_common_statement_token1] = ACTIONS(4473),
-    [aux_sym_import_statement_token1] = ACTIONS(4473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
-    [aux_sym_derived_type_token1] = ACTIONS(4473),
-    [aux_sym_declared_type_token1] = ACTIONS(4473),
-    [aux_sym_declared_type_token2] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
-    [anon_sym_SEMI] = ACTIONS(4475),
-    [aux_sym_stop_statement_token1] = ACTIONS(4473),
-    [aux_sym_stop_statement_token2] = ACTIONS(4473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
-    [aux_sym_include_statement_token1] = ACTIONS(4473),
-    [aux_sym_data_statement_token1] = ACTIONS(4473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
-    [aux_sym_block_construct_token1] = ACTIONS(4473),
-    [aux_sym_associate_statement_token1] = ACTIONS(4473),
-    [aux_sym_format_statement_token1] = ACTIONS(4473),
-    [aux_sym_print_statement_token1] = ACTIONS(4473),
-    [aux_sym_open_statement_token1] = ACTIONS(4473),
-    [aux_sym_close_statement_token1] = ACTIONS(4473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
-    [aux_sym_enum_statement_token1] = ACTIONS(4473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
-    [aux_sym_entry_statement_token1] = ACTIONS(4473),
-    [aux_sym_logical_expression_token5] = ACTIONS(4475),
-    [anon_sym_DOT] = ACTIONS(4473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
-    [anon_sym_LBRACK] = ACTIONS(4475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
-    [aux_sym_null_literal_token1] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
-    [aux_sym_identifier_token1] = ACTIONS(4473),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4475),
-    [sym__float_literal] = ACTIONS(4475),
-    [sym__boz_literal] = ACTIONS(4475),
-    [sym__string_literal] = ACTIONS(4475),
-    [sym__string_literal_kind] = ACTIONS(4475),
-  },
   [964] = {
-    [ts_builtin_sym_end] = ACTIONS(4509),
-    [aux_sym_preproc_include_token1] = ACTIONS(4507),
-    [aux_sym_preproc_def_token1] = ACTIONS(4507),
-    [aux_sym_preproc_if_token1] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4507),
-    [sym_preproc_directive] = ACTIONS(4507),
-    [anon_sym_LPAREN2] = ACTIONS(4507),
-    [anon_sym_PLUS] = ACTIONS(4509),
-    [anon_sym_DASH] = ACTIONS(4509),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4507),
-    [aux_sym_module_statement_token1] = ACTIONS(4507),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4507),
-    [aux_sym_interface_statement_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4507),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4507),
-    [aux_sym_function_statement_token1] = ACTIONS(4507),
-    [aux_sym_language_binding_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4507),
-    [aux_sym_contains_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token2] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4507),
-    [aux_sym_save_statement_token1] = ACTIONS(4507),
-    [aux_sym_private_statement_token1] = ACTIONS(4507),
-    [aux_sym_public_statement_token1] = ACTIONS(4507),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4507),
-    [aux_sym_common_statement_token1] = ACTIONS(4507),
-    [aux_sym_import_statement_token1] = ACTIONS(4507),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4507),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4507),
-    [aux_sym_derived_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4507),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4507),
-    [anon_sym_SEMI] = ACTIONS(4509),
-    [aux_sym_stop_statement_token1] = ACTIONS(4507),
-    [aux_sym_stop_statement_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4507),
-    [aux_sym_include_statement_token1] = ACTIONS(4507),
-    [aux_sym_data_statement_token1] = ACTIONS(4507),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4507),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4507),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4507),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4507),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4507),
-    [aux_sym_block_construct_token1] = ACTIONS(4507),
-    [aux_sym_associate_statement_token1] = ACTIONS(4507),
-    [aux_sym_format_statement_token1] = ACTIONS(4507),
-    [aux_sym_print_statement_token1] = ACTIONS(4507),
-    [aux_sym_open_statement_token1] = ACTIONS(4507),
-    [aux_sym_close_statement_token1] = ACTIONS(4507),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4507),
-    [aux_sym_enum_statement_token1] = ACTIONS(4507),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4507),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4507),
-    [aux_sym_entry_statement_token1] = ACTIONS(4507),
-    [aux_sym_logical_expression_token5] = ACTIONS(4509),
-    [anon_sym_DOT] = ACTIONS(4507),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4509),
-    [anon_sym_LBRACK] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4509),
-    [aux_sym_null_literal_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4507),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4507),
-    [aux_sym_identifier_token1] = ACTIONS(4507),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4509),
-    [sym__float_literal] = ACTIONS(4509),
-    [sym__boz_literal] = ACTIONS(4509),
-    [sym__string_literal] = ACTIONS(4509),
-    [sym__string_literal_kind] = ACTIONS(4509),
+    [aux_sym_preproc_include_token1] = ACTIONS(4521),
+    [aux_sym_preproc_def_token1] = ACTIONS(4521),
+    [aux_sym_preproc_if_token1] = ACTIONS(4521),
+    [aux_sym_preproc_if_token2] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4521),
+    [sym_preproc_directive] = ACTIONS(4521),
+    [anon_sym_LPAREN2] = ACTIONS(4521),
+    [anon_sym_PLUS] = ACTIONS(4523),
+    [anon_sym_DASH] = ACTIONS(4523),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4521),
+    [aux_sym_module_statement_token1] = ACTIONS(4521),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4521),
+    [aux_sym_interface_statement_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4521),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4521),
+    [aux_sym_function_statement_token1] = ACTIONS(4521),
+    [aux_sym_language_binding_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4521),
+    [aux_sym_contains_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token2] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4521),
+    [aux_sym_save_statement_token1] = ACTIONS(4521),
+    [aux_sym_private_statement_token1] = ACTIONS(4521),
+    [aux_sym_public_statement_token1] = ACTIONS(4521),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4521),
+    [aux_sym_common_statement_token1] = ACTIONS(4521),
+    [aux_sym_import_statement_token1] = ACTIONS(4521),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4521),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4521),
+    [aux_sym_derived_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4521),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4521),
+    [anon_sym_SEMI] = ACTIONS(4523),
+    [aux_sym_stop_statement_token1] = ACTIONS(4521),
+    [aux_sym_stop_statement_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4521),
+    [aux_sym_include_statement_token1] = ACTIONS(4521),
+    [aux_sym_data_statement_token1] = ACTIONS(4521),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4521),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4521),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4521),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4521),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4521),
+    [aux_sym_block_construct_token1] = ACTIONS(4521),
+    [aux_sym_associate_statement_token1] = ACTIONS(4521),
+    [aux_sym_format_statement_token1] = ACTIONS(4521),
+    [aux_sym_print_statement_token1] = ACTIONS(4521),
+    [aux_sym_open_statement_token1] = ACTIONS(4521),
+    [aux_sym_close_statement_token1] = ACTIONS(4521),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4521),
+    [aux_sym_enum_statement_token1] = ACTIONS(4521),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4521),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4521),
+    [aux_sym_entry_statement_token1] = ACTIONS(4521),
+    [aux_sym_logical_expression_token5] = ACTIONS(4523),
+    [anon_sym_DOT] = ACTIONS(4521),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4523),
+    [anon_sym_LBRACK] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4523),
+    [aux_sym_null_literal_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4521),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4521),
+    [aux_sym_identifier_token1] = ACTIONS(4521),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4523),
+    [sym__float_literal] = ACTIONS(4523),
+    [sym__boz_literal] = ACTIONS(4523),
+    [sym__string_literal] = ACTIONS(4523),
+    [sym__string_literal_kind] = ACTIONS(4523),
   },
   [965] = {
-    [ts_builtin_sym_end] = ACTIONS(4333),
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_module_statement_token1] = ACTIONS(4539),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_function_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
   [966] = {
-    [ts_builtin_sym_end] = ACTIONS(4513),
-    [aux_sym_preproc_include_token1] = ACTIONS(4511),
-    [aux_sym_preproc_def_token1] = ACTIONS(4511),
-    [aux_sym_preproc_if_token1] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4511),
-    [sym_preproc_directive] = ACTIONS(4511),
-    [anon_sym_LPAREN2] = ACTIONS(4511),
-    [anon_sym_PLUS] = ACTIONS(4513),
-    [anon_sym_DASH] = ACTIONS(4513),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4511),
-    [aux_sym_module_statement_token1] = ACTIONS(4511),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4511),
-    [aux_sym_interface_statement_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4511),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4511),
-    [aux_sym_function_statement_token1] = ACTIONS(4511),
-    [aux_sym_language_binding_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4511),
-    [aux_sym_contains_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token2] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4511),
-    [aux_sym_save_statement_token1] = ACTIONS(4511),
-    [aux_sym_private_statement_token1] = ACTIONS(4511),
-    [aux_sym_public_statement_token1] = ACTIONS(4511),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4511),
-    [aux_sym_common_statement_token1] = ACTIONS(4511),
-    [aux_sym_import_statement_token1] = ACTIONS(4511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4511),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4511),
-    [aux_sym_derived_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4511),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4511),
-    [anon_sym_SEMI] = ACTIONS(4513),
-    [aux_sym_stop_statement_token1] = ACTIONS(4511),
-    [aux_sym_stop_statement_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4511),
-    [aux_sym_include_statement_token1] = ACTIONS(4511),
-    [aux_sym_data_statement_token1] = ACTIONS(4511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4511),
-    [aux_sym_block_construct_token1] = ACTIONS(4511),
-    [aux_sym_associate_statement_token1] = ACTIONS(4511),
-    [aux_sym_format_statement_token1] = ACTIONS(4511),
-    [aux_sym_print_statement_token1] = ACTIONS(4511),
-    [aux_sym_open_statement_token1] = ACTIONS(4511),
-    [aux_sym_close_statement_token1] = ACTIONS(4511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4511),
-    [aux_sym_enum_statement_token1] = ACTIONS(4511),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4511),
-    [aux_sym_entry_statement_token1] = ACTIONS(4511),
-    [aux_sym_logical_expression_token5] = ACTIONS(4513),
-    [anon_sym_DOT] = ACTIONS(4511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4513),
-    [anon_sym_LBRACK] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4513),
-    [aux_sym_null_literal_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4511),
-    [aux_sym_identifier_token1] = ACTIONS(4511),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4513),
-    [sym__float_literal] = ACTIONS(4513),
-    [sym__boz_literal] = ACTIONS(4513),
-    [sym__string_literal] = ACTIONS(4513),
-    [sym__string_literal_kind] = ACTIONS(4513),
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_module_statement_token1] = ACTIONS(4535),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_function_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
   [967] = {
-    [ts_builtin_sym_end] = ACTIONS(4517),
-    [aux_sym_preproc_include_token1] = ACTIONS(4515),
-    [aux_sym_preproc_def_token1] = ACTIONS(4515),
-    [aux_sym_preproc_if_token1] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4515),
-    [sym_preproc_directive] = ACTIONS(4515),
-    [anon_sym_LPAREN2] = ACTIONS(4515),
-    [anon_sym_PLUS] = ACTIONS(4517),
-    [anon_sym_DASH] = ACTIONS(4517),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4515),
-    [aux_sym_module_statement_token1] = ACTIONS(4515),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4515),
-    [aux_sym_interface_statement_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4515),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4515),
-    [aux_sym_function_statement_token1] = ACTIONS(4515),
-    [aux_sym_language_binding_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4515),
-    [aux_sym_contains_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token2] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4515),
-    [aux_sym_save_statement_token1] = ACTIONS(4515),
-    [aux_sym_private_statement_token1] = ACTIONS(4515),
-    [aux_sym_public_statement_token1] = ACTIONS(4515),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4515),
-    [aux_sym_common_statement_token1] = ACTIONS(4515),
-    [aux_sym_import_statement_token1] = ACTIONS(4515),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4515),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4515),
-    [aux_sym_derived_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4515),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4515),
-    [anon_sym_SEMI] = ACTIONS(4517),
-    [aux_sym_stop_statement_token1] = ACTIONS(4515),
-    [aux_sym_stop_statement_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4515),
-    [aux_sym_include_statement_token1] = ACTIONS(4515),
-    [aux_sym_data_statement_token1] = ACTIONS(4515),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4515),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4515),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4515),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4515),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4515),
-    [aux_sym_block_construct_token1] = ACTIONS(4515),
-    [aux_sym_associate_statement_token1] = ACTIONS(4515),
-    [aux_sym_format_statement_token1] = ACTIONS(4515),
-    [aux_sym_print_statement_token1] = ACTIONS(4515),
-    [aux_sym_open_statement_token1] = ACTIONS(4515),
-    [aux_sym_close_statement_token1] = ACTIONS(4515),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4515),
-    [aux_sym_enum_statement_token1] = ACTIONS(4515),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4515),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4515),
-    [aux_sym_entry_statement_token1] = ACTIONS(4515),
-    [aux_sym_logical_expression_token5] = ACTIONS(4517),
-    [anon_sym_DOT] = ACTIONS(4515),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4517),
-    [anon_sym_LBRACK] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4517),
-    [aux_sym_null_literal_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4515),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4515),
-    [aux_sym_identifier_token1] = ACTIONS(4515),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4517),
-    [sym__float_literal] = ACTIONS(4517),
-    [sym__boz_literal] = ACTIONS(4517),
-    [sym__string_literal] = ACTIONS(4517),
-    [sym__string_literal_kind] = ACTIONS(4517),
+    [aux_sym_preproc_include_token1] = ACTIONS(4517),
+    [aux_sym_preproc_def_token1] = ACTIONS(4517),
+    [aux_sym_preproc_if_token1] = ACTIONS(4517),
+    [aux_sym_preproc_if_token2] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4517),
+    [sym_preproc_directive] = ACTIONS(4517),
+    [anon_sym_LPAREN2] = ACTIONS(4517),
+    [anon_sym_PLUS] = ACTIONS(4519),
+    [anon_sym_DASH] = ACTIONS(4519),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4517),
+    [aux_sym_module_statement_token1] = ACTIONS(4517),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4517),
+    [aux_sym_interface_statement_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4517),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4517),
+    [aux_sym_function_statement_token1] = ACTIONS(4517),
+    [aux_sym_language_binding_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4517),
+    [aux_sym_contains_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token2] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4517),
+    [aux_sym_save_statement_token1] = ACTIONS(4517),
+    [aux_sym_private_statement_token1] = ACTIONS(4517),
+    [aux_sym_public_statement_token1] = ACTIONS(4517),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4517),
+    [aux_sym_common_statement_token1] = ACTIONS(4517),
+    [aux_sym_import_statement_token1] = ACTIONS(4517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4517),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4517),
+    [aux_sym_derived_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4517),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4517),
+    [anon_sym_SEMI] = ACTIONS(4519),
+    [aux_sym_stop_statement_token1] = ACTIONS(4517),
+    [aux_sym_stop_statement_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4517),
+    [aux_sym_include_statement_token1] = ACTIONS(4517),
+    [aux_sym_data_statement_token1] = ACTIONS(4517),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4517),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4517),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4517),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4517),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4517),
+    [aux_sym_block_construct_token1] = ACTIONS(4517),
+    [aux_sym_associate_statement_token1] = ACTIONS(4517),
+    [aux_sym_format_statement_token1] = ACTIONS(4517),
+    [aux_sym_print_statement_token1] = ACTIONS(4517),
+    [aux_sym_open_statement_token1] = ACTIONS(4517),
+    [aux_sym_close_statement_token1] = ACTIONS(4517),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4517),
+    [aux_sym_enum_statement_token1] = ACTIONS(4517),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4517),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4517),
+    [aux_sym_entry_statement_token1] = ACTIONS(4517),
+    [aux_sym_logical_expression_token5] = ACTIONS(4519),
+    [anon_sym_DOT] = ACTIONS(4517),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4519),
+    [anon_sym_LBRACK] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4519),
+    [aux_sym_null_literal_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4517),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4517),
+    [aux_sym_identifier_token1] = ACTIONS(4517),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4519),
+    [sym__float_literal] = ACTIONS(4519),
+    [sym__boz_literal] = ACTIONS(4519),
+    [sym__string_literal] = ACTIONS(4519),
+    [sym__string_literal_kind] = ACTIONS(4519),
   },
   [968] = {
-    [ts_builtin_sym_end] = ACTIONS(4623),
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4621),
-    [aux_sym_module_statement_token1] = ACTIONS(4621),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_function_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_module_statement_token1] = ACTIONS(4469),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_function_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
   [969] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4537),
-    [aux_sym_preproc_def_token1] = ACTIONS(4537),
-    [aux_sym_preproc_if_token1] = ACTIONS(4537),
-    [aux_sym_preproc_if_token2] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4537),
-    [sym_preproc_directive] = ACTIONS(4537),
-    [anon_sym_LPAREN2] = ACTIONS(4537),
-    [anon_sym_PLUS] = ACTIONS(4539),
-    [anon_sym_DASH] = ACTIONS(4539),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4537),
-    [aux_sym_module_statement_token1] = ACTIONS(4537),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4537),
-    [aux_sym_interface_statement_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4537),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4537),
-    [aux_sym_function_statement_token1] = ACTIONS(4537),
-    [aux_sym_language_binding_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4537),
-    [aux_sym_contains_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token2] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4537),
-    [aux_sym_save_statement_token1] = ACTIONS(4537),
-    [aux_sym_private_statement_token1] = ACTIONS(4537),
-    [aux_sym_public_statement_token1] = ACTIONS(4537),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4537),
-    [aux_sym_common_statement_token1] = ACTIONS(4537),
-    [aux_sym_import_statement_token1] = ACTIONS(4537),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4537),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4537),
-    [aux_sym_derived_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4537),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4537),
-    [anon_sym_SEMI] = ACTIONS(4539),
-    [aux_sym_stop_statement_token1] = ACTIONS(4537),
-    [aux_sym_stop_statement_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4537),
-    [aux_sym_include_statement_token1] = ACTIONS(4537),
-    [aux_sym_data_statement_token1] = ACTIONS(4537),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4537),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4537),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4537),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4537),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4537),
-    [aux_sym_block_construct_token1] = ACTIONS(4537),
-    [aux_sym_associate_statement_token1] = ACTIONS(4537),
-    [aux_sym_format_statement_token1] = ACTIONS(4537),
-    [aux_sym_print_statement_token1] = ACTIONS(4537),
-    [aux_sym_open_statement_token1] = ACTIONS(4537),
-    [aux_sym_close_statement_token1] = ACTIONS(4537),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4537),
-    [aux_sym_enum_statement_token1] = ACTIONS(4537),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4537),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4537),
-    [aux_sym_entry_statement_token1] = ACTIONS(4537),
-    [aux_sym_logical_expression_token5] = ACTIONS(4539),
-    [anon_sym_DOT] = ACTIONS(4537),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4539),
-    [anon_sym_LBRACK] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4539),
-    [aux_sym_null_literal_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4537),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4537),
-    [aux_sym_identifier_token1] = ACTIONS(4537),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4539),
-    [sym__float_literal] = ACTIONS(4539),
-    [sym__boz_literal] = ACTIONS(4539),
-    [sym__string_literal] = ACTIONS(4539),
-    [sym__string_literal_kind] = ACTIONS(4539),
+    [sym_preproc_include] = STATE(963),
+    [sym_preproc_def] = STATE(963),
+    [sym_preproc_function_def] = STATE(963),
+    [sym_preproc_call] = STATE(963),
+    [sym_preproc_if_in_module] = STATE(963),
+    [sym_preproc_ifdef_in_module] = STATE(963),
+    [sym_end_submodule_statement] = STATE(880),
+    [sym_interface] = STATE(963),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6481),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(963),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(963),
+    [sym_public_statement] = STATE(963),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(963),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(963),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(963),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(963),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4791),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4793),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4671),
   },
   [970] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
+    [ts_builtin_sym_end] = ACTIONS(4533),
+    [aux_sym_preproc_include_token1] = ACTIONS(4531),
+    [aux_sym_preproc_def_token1] = ACTIONS(4531),
+    [aux_sym_preproc_if_token1] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4531),
+    [sym_preproc_directive] = ACTIONS(4531),
+    [anon_sym_LPAREN2] = ACTIONS(4531),
+    [anon_sym_PLUS] = ACTIONS(4533),
+    [anon_sym_DASH] = ACTIONS(4533),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4531),
+    [aux_sym_module_statement_token1] = ACTIONS(4531),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4531),
+    [aux_sym_interface_statement_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4531),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4531),
+    [aux_sym_function_statement_token1] = ACTIONS(4531),
+    [aux_sym_language_binding_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4531),
+    [aux_sym_contains_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token2] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4531),
+    [aux_sym_save_statement_token1] = ACTIONS(4531),
+    [aux_sym_private_statement_token1] = ACTIONS(4531),
+    [aux_sym_public_statement_token1] = ACTIONS(4531),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4531),
+    [aux_sym_common_statement_token1] = ACTIONS(4531),
+    [aux_sym_import_statement_token1] = ACTIONS(4531),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4531),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4531),
+    [aux_sym_derived_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4531),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4531),
+    [anon_sym_SEMI] = ACTIONS(4533),
+    [aux_sym_stop_statement_token1] = ACTIONS(4531),
+    [aux_sym_stop_statement_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4531),
+    [aux_sym_include_statement_token1] = ACTIONS(4531),
+    [aux_sym_data_statement_token1] = ACTIONS(4531),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4531),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4531),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4531),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4531),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4531),
+    [aux_sym_block_construct_token1] = ACTIONS(4531),
+    [aux_sym_associate_statement_token1] = ACTIONS(4531),
+    [aux_sym_format_statement_token1] = ACTIONS(4531),
+    [aux_sym_print_statement_token1] = ACTIONS(4531),
+    [aux_sym_open_statement_token1] = ACTIONS(4531),
+    [aux_sym_close_statement_token1] = ACTIONS(4531),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4531),
+    [aux_sym_enum_statement_token1] = ACTIONS(4531),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4531),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4531),
+    [aux_sym_entry_statement_token1] = ACTIONS(4531),
+    [aux_sym_logical_expression_token5] = ACTIONS(4533),
+    [anon_sym_DOT] = ACTIONS(4531),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4533),
+    [anon_sym_LBRACK] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4533),
+    [aux_sym_null_literal_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4531),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4531),
+    [aux_sym_identifier_token1] = ACTIONS(4531),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4533),
+    [sym__float_literal] = ACTIONS(4533),
+    [sym__boz_literal] = ACTIONS(4533),
+    [sym__string_literal] = ACTIONS(4533),
+    [sym__string_literal_kind] = ACTIONS(4533),
   },
   [971] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4541),
-    [aux_sym_preproc_def_token1] = ACTIONS(4541),
-    [aux_sym_preproc_if_token1] = ACTIONS(4541),
-    [aux_sym_preproc_if_token2] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4541),
-    [sym_preproc_directive] = ACTIONS(4541),
-    [anon_sym_LPAREN2] = ACTIONS(4541),
-    [anon_sym_PLUS] = ACTIONS(4543),
-    [anon_sym_DASH] = ACTIONS(4543),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4541),
-    [aux_sym_module_statement_token1] = ACTIONS(4541),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4541),
-    [aux_sym_interface_statement_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4541),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4541),
-    [aux_sym_function_statement_token1] = ACTIONS(4541),
-    [aux_sym_language_binding_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4541),
-    [aux_sym_contains_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token2] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4541),
-    [aux_sym_save_statement_token1] = ACTIONS(4541),
-    [aux_sym_private_statement_token1] = ACTIONS(4541),
-    [aux_sym_public_statement_token1] = ACTIONS(4541),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4541),
-    [aux_sym_common_statement_token1] = ACTIONS(4541),
-    [aux_sym_import_statement_token1] = ACTIONS(4541),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4541),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4541),
-    [aux_sym_derived_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4541),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4541),
-    [anon_sym_SEMI] = ACTIONS(4543),
-    [aux_sym_stop_statement_token1] = ACTIONS(4541),
-    [aux_sym_stop_statement_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4541),
-    [aux_sym_include_statement_token1] = ACTIONS(4541),
-    [aux_sym_data_statement_token1] = ACTIONS(4541),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4541),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4541),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4541),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4541),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4541),
-    [aux_sym_block_construct_token1] = ACTIONS(4541),
-    [aux_sym_associate_statement_token1] = ACTIONS(4541),
-    [aux_sym_format_statement_token1] = ACTIONS(4541),
-    [aux_sym_print_statement_token1] = ACTIONS(4541),
-    [aux_sym_open_statement_token1] = ACTIONS(4541),
-    [aux_sym_close_statement_token1] = ACTIONS(4541),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4541),
-    [aux_sym_enum_statement_token1] = ACTIONS(4541),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4541),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4541),
-    [aux_sym_entry_statement_token1] = ACTIONS(4541),
-    [aux_sym_logical_expression_token5] = ACTIONS(4543),
-    [anon_sym_DOT] = ACTIONS(4541),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4543),
-    [anon_sym_LBRACK] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4543),
-    [aux_sym_null_literal_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4541),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4541),
-    [aux_sym_identifier_token1] = ACTIONS(4541),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4543),
-    [sym__float_literal] = ACTIONS(4543),
-    [sym__boz_literal] = ACTIONS(4543),
-    [sym__string_literal] = ACTIONS(4543),
-    [sym__string_literal_kind] = ACTIONS(4543),
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
   [972] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4553),
-    [aux_sym_preproc_def_token1] = ACTIONS(4553),
-    [aux_sym_preproc_if_token1] = ACTIONS(4553),
-    [aux_sym_preproc_if_token2] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4553),
-    [sym_preproc_directive] = ACTIONS(4553),
-    [anon_sym_LPAREN2] = ACTIONS(4553),
-    [anon_sym_PLUS] = ACTIONS(4555),
-    [anon_sym_DASH] = ACTIONS(4555),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4553),
-    [aux_sym_module_statement_token1] = ACTIONS(4553),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4553),
-    [aux_sym_interface_statement_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4553),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4553),
-    [aux_sym_function_statement_token1] = ACTIONS(4553),
-    [aux_sym_language_binding_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4553),
-    [aux_sym_contains_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token2] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4553),
-    [aux_sym_save_statement_token1] = ACTIONS(4553),
-    [aux_sym_private_statement_token1] = ACTIONS(4553),
-    [aux_sym_public_statement_token1] = ACTIONS(4553),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4553),
-    [aux_sym_common_statement_token1] = ACTIONS(4553),
-    [aux_sym_import_statement_token1] = ACTIONS(4553),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4553),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4553),
-    [aux_sym_derived_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4553),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4553),
-    [anon_sym_SEMI] = ACTIONS(4555),
-    [aux_sym_stop_statement_token1] = ACTIONS(4553),
-    [aux_sym_stop_statement_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4553),
-    [aux_sym_include_statement_token1] = ACTIONS(4553),
-    [aux_sym_data_statement_token1] = ACTIONS(4553),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4553),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4553),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4553),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4553),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4553),
-    [aux_sym_block_construct_token1] = ACTIONS(4553),
-    [aux_sym_associate_statement_token1] = ACTIONS(4553),
-    [aux_sym_format_statement_token1] = ACTIONS(4553),
-    [aux_sym_print_statement_token1] = ACTIONS(4553),
-    [aux_sym_open_statement_token1] = ACTIONS(4553),
-    [aux_sym_close_statement_token1] = ACTIONS(4553),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4553),
-    [aux_sym_enum_statement_token1] = ACTIONS(4553),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4553),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4553),
-    [aux_sym_entry_statement_token1] = ACTIONS(4553),
-    [aux_sym_logical_expression_token5] = ACTIONS(4555),
-    [anon_sym_DOT] = ACTIONS(4553),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4555),
-    [anon_sym_LBRACK] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4555),
-    [aux_sym_null_literal_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4553),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4553),
-    [aux_sym_identifier_token1] = ACTIONS(4553),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4555),
-    [sym__float_literal] = ACTIONS(4555),
-    [sym__boz_literal] = ACTIONS(4555),
-    [sym__string_literal] = ACTIONS(4555),
-    [sym__string_literal_kind] = ACTIONS(4555),
-  },
-  [973] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4557),
-    [aux_sym_preproc_def_token1] = ACTIONS(4557),
-    [aux_sym_preproc_if_token1] = ACTIONS(4557),
-    [aux_sym_preproc_if_token2] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4557),
-    [sym_preproc_directive] = ACTIONS(4557),
-    [anon_sym_LPAREN2] = ACTIONS(4557),
-    [anon_sym_PLUS] = ACTIONS(4559),
-    [anon_sym_DASH] = ACTIONS(4559),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4557),
-    [aux_sym_module_statement_token1] = ACTIONS(4557),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4557),
-    [aux_sym_interface_statement_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4557),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4557),
-    [aux_sym_function_statement_token1] = ACTIONS(4557),
-    [aux_sym_language_binding_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4557),
-    [aux_sym_contains_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token2] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4557),
-    [aux_sym_save_statement_token1] = ACTIONS(4557),
-    [aux_sym_private_statement_token1] = ACTIONS(4557),
-    [aux_sym_public_statement_token1] = ACTIONS(4557),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4557),
-    [aux_sym_common_statement_token1] = ACTIONS(4557),
-    [aux_sym_import_statement_token1] = ACTIONS(4557),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4557),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4557),
-    [aux_sym_derived_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4557),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4557),
-    [anon_sym_SEMI] = ACTIONS(4559),
-    [aux_sym_stop_statement_token1] = ACTIONS(4557),
-    [aux_sym_stop_statement_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4557),
-    [aux_sym_include_statement_token1] = ACTIONS(4557),
-    [aux_sym_data_statement_token1] = ACTIONS(4557),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4557),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4557),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4557),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4557),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4557),
-    [aux_sym_block_construct_token1] = ACTIONS(4557),
-    [aux_sym_associate_statement_token1] = ACTIONS(4557),
-    [aux_sym_format_statement_token1] = ACTIONS(4557),
-    [aux_sym_print_statement_token1] = ACTIONS(4557),
-    [aux_sym_open_statement_token1] = ACTIONS(4557),
-    [aux_sym_close_statement_token1] = ACTIONS(4557),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4557),
-    [aux_sym_enum_statement_token1] = ACTIONS(4557),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4557),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4557),
-    [aux_sym_entry_statement_token1] = ACTIONS(4557),
-    [aux_sym_logical_expression_token5] = ACTIONS(4559),
-    [anon_sym_DOT] = ACTIONS(4557),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4559),
-    [anon_sym_LBRACK] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4559),
-    [aux_sym_null_literal_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4557),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4557),
-    [aux_sym_identifier_token1] = ACTIONS(4557),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4559),
-    [sym__float_literal] = ACTIONS(4559),
-    [sym__boz_literal] = ACTIONS(4559),
-    [sym__string_literal] = ACTIONS(4559),
-    [sym__string_literal_kind] = ACTIONS(4559),
-  },
-  [974] = {
-    [ts_builtin_sym_end] = ACTIONS(4579),
-    [aux_sym_preproc_include_token1] = ACTIONS(4577),
-    [aux_sym_preproc_def_token1] = ACTIONS(4577),
-    [aux_sym_preproc_if_token1] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4577),
-    [sym_preproc_directive] = ACTIONS(4577),
-    [anon_sym_LPAREN2] = ACTIONS(4577),
-    [anon_sym_PLUS] = ACTIONS(4579),
-    [anon_sym_DASH] = ACTIONS(4579),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4577),
-    [aux_sym_module_statement_token1] = ACTIONS(4577),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4577),
-    [aux_sym_interface_statement_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4577),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4577),
-    [aux_sym_function_statement_token1] = ACTIONS(4577),
-    [aux_sym_language_binding_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4577),
-    [aux_sym_contains_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token2] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4577),
-    [aux_sym_save_statement_token1] = ACTIONS(4577),
-    [aux_sym_private_statement_token1] = ACTIONS(4577),
-    [aux_sym_public_statement_token1] = ACTIONS(4577),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4577),
-    [aux_sym_common_statement_token1] = ACTIONS(4577),
-    [aux_sym_import_statement_token1] = ACTIONS(4577),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4577),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4577),
-    [aux_sym_derived_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4577),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4577),
-    [anon_sym_SEMI] = ACTIONS(4579),
-    [aux_sym_stop_statement_token1] = ACTIONS(4577),
-    [aux_sym_stop_statement_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4577),
-    [aux_sym_include_statement_token1] = ACTIONS(4577),
-    [aux_sym_data_statement_token1] = ACTIONS(4577),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4577),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4577),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4577),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4577),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4577),
-    [aux_sym_block_construct_token1] = ACTIONS(4577),
-    [aux_sym_associate_statement_token1] = ACTIONS(4577),
-    [aux_sym_format_statement_token1] = ACTIONS(4577),
-    [aux_sym_print_statement_token1] = ACTIONS(4577),
-    [aux_sym_open_statement_token1] = ACTIONS(4577),
-    [aux_sym_close_statement_token1] = ACTIONS(4577),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4577),
-    [aux_sym_enum_statement_token1] = ACTIONS(4577),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4577),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4577),
-    [aux_sym_entry_statement_token1] = ACTIONS(4577),
-    [aux_sym_logical_expression_token5] = ACTIONS(4579),
-    [anon_sym_DOT] = ACTIONS(4577),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4579),
-    [anon_sym_LBRACK] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4579),
-    [aux_sym_null_literal_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4577),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4577),
-    [aux_sym_identifier_token1] = ACTIONS(4577),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4579),
-    [sym__float_literal] = ACTIONS(4579),
-    [sym__boz_literal] = ACTIONS(4579),
-    [sym__string_literal] = ACTIONS(4579),
-    [sym__string_literal_kind] = ACTIONS(4579),
-  },
-  [975] = {
-    [ts_builtin_sym_end] = ACTIONS(4583),
-    [aux_sym_preproc_include_token1] = ACTIONS(4581),
-    [aux_sym_preproc_def_token1] = ACTIONS(4581),
-    [aux_sym_preproc_if_token1] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4581),
-    [sym_preproc_directive] = ACTIONS(4581),
-    [anon_sym_LPAREN2] = ACTIONS(4581),
-    [anon_sym_PLUS] = ACTIONS(4583),
-    [anon_sym_DASH] = ACTIONS(4583),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4581),
-    [aux_sym_module_statement_token1] = ACTIONS(4581),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4581),
-    [aux_sym_interface_statement_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4581),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4581),
-    [aux_sym_function_statement_token1] = ACTIONS(4581),
-    [aux_sym_language_binding_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4581),
-    [aux_sym_contains_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token2] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4581),
-    [aux_sym_save_statement_token1] = ACTIONS(4581),
-    [aux_sym_private_statement_token1] = ACTIONS(4581),
-    [aux_sym_public_statement_token1] = ACTIONS(4581),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4581),
-    [aux_sym_common_statement_token1] = ACTIONS(4581),
-    [aux_sym_import_statement_token1] = ACTIONS(4581),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4581),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4581),
-    [aux_sym_derived_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4581),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4581),
-    [anon_sym_SEMI] = ACTIONS(4583),
-    [aux_sym_stop_statement_token1] = ACTIONS(4581),
-    [aux_sym_stop_statement_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4581),
-    [aux_sym_include_statement_token1] = ACTIONS(4581),
-    [aux_sym_data_statement_token1] = ACTIONS(4581),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4581),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4581),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4581),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4581),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4581),
-    [aux_sym_block_construct_token1] = ACTIONS(4581),
-    [aux_sym_associate_statement_token1] = ACTIONS(4581),
-    [aux_sym_format_statement_token1] = ACTIONS(4581),
-    [aux_sym_print_statement_token1] = ACTIONS(4581),
-    [aux_sym_open_statement_token1] = ACTIONS(4581),
-    [aux_sym_close_statement_token1] = ACTIONS(4581),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4581),
-    [aux_sym_enum_statement_token1] = ACTIONS(4581),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4581),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4581),
-    [aux_sym_entry_statement_token1] = ACTIONS(4581),
-    [aux_sym_logical_expression_token5] = ACTIONS(4583),
-    [anon_sym_DOT] = ACTIONS(4581),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4583),
-    [anon_sym_LBRACK] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4583),
-    [aux_sym_null_literal_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4581),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4581),
-    [aux_sym_identifier_token1] = ACTIONS(4581),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4583),
-    [sym__float_literal] = ACTIONS(4583),
-    [sym__boz_literal] = ACTIONS(4583),
-    [sym__string_literal] = ACTIONS(4583),
-    [sym__string_literal_kind] = ACTIONS(4583),
-  },
-  [976] = {
-    [ts_builtin_sym_end] = ACTIONS(4587),
-    [aux_sym_preproc_include_token1] = ACTIONS(4585),
-    [aux_sym_preproc_def_token1] = ACTIONS(4585),
-    [aux_sym_preproc_if_token1] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4585),
-    [sym_preproc_directive] = ACTIONS(4585),
-    [anon_sym_LPAREN2] = ACTIONS(4585),
-    [anon_sym_PLUS] = ACTIONS(4587),
-    [anon_sym_DASH] = ACTIONS(4587),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4585),
-    [aux_sym_module_statement_token1] = ACTIONS(4585),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4585),
-    [aux_sym_interface_statement_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4585),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4585),
-    [aux_sym_function_statement_token1] = ACTIONS(4585),
-    [aux_sym_language_binding_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4585),
-    [aux_sym_contains_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token2] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4585),
-    [aux_sym_save_statement_token1] = ACTIONS(4585),
-    [aux_sym_private_statement_token1] = ACTIONS(4585),
-    [aux_sym_public_statement_token1] = ACTIONS(4585),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4585),
-    [aux_sym_common_statement_token1] = ACTIONS(4585),
-    [aux_sym_import_statement_token1] = ACTIONS(4585),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4585),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4585),
-    [aux_sym_derived_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4585),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4585),
-    [anon_sym_SEMI] = ACTIONS(4587),
-    [aux_sym_stop_statement_token1] = ACTIONS(4585),
-    [aux_sym_stop_statement_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4585),
-    [aux_sym_include_statement_token1] = ACTIONS(4585),
-    [aux_sym_data_statement_token1] = ACTIONS(4585),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4585),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4585),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4585),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4585),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4585),
-    [aux_sym_block_construct_token1] = ACTIONS(4585),
-    [aux_sym_associate_statement_token1] = ACTIONS(4585),
-    [aux_sym_format_statement_token1] = ACTIONS(4585),
-    [aux_sym_print_statement_token1] = ACTIONS(4585),
-    [aux_sym_open_statement_token1] = ACTIONS(4585),
-    [aux_sym_close_statement_token1] = ACTIONS(4585),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4585),
-    [aux_sym_enum_statement_token1] = ACTIONS(4585),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4585),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4585),
-    [aux_sym_entry_statement_token1] = ACTIONS(4585),
-    [aux_sym_logical_expression_token5] = ACTIONS(4587),
-    [anon_sym_DOT] = ACTIONS(4585),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4587),
-    [anon_sym_LBRACK] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4587),
-    [aux_sym_null_literal_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4585),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4585),
-    [aux_sym_identifier_token1] = ACTIONS(4585),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4587),
-    [sym__float_literal] = ACTIONS(4587),
-    [sym__boz_literal] = ACTIONS(4587),
-    [sym__string_literal] = ACTIONS(4587),
-    [sym__string_literal_kind] = ACTIONS(4587),
-  },
-  [977] = {
-    [ts_builtin_sym_end] = ACTIONS(4467),
-    [aux_sym_preproc_include_token1] = ACTIONS(4465),
-    [aux_sym_preproc_def_token1] = ACTIONS(4465),
-    [aux_sym_preproc_if_token1] = ACTIONS(4465),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4465),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4465),
-    [sym_preproc_directive] = ACTIONS(4465),
-    [anon_sym_LPAREN2] = ACTIONS(4465),
-    [anon_sym_PLUS] = ACTIONS(4467),
-    [anon_sym_DASH] = ACTIONS(4467),
+    [ts_builtin_sym_end] = ACTIONS(4435),
+    [aux_sym_preproc_include_token1] = ACTIONS(4433),
+    [aux_sym_preproc_def_token1] = ACTIONS(4433),
+    [aux_sym_preproc_if_token1] = ACTIONS(4433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4433),
+    [sym_preproc_directive] = ACTIONS(4433),
+    [anon_sym_LPAREN2] = ACTIONS(4433),
+    [anon_sym_PLUS] = ACTIONS(4435),
+    [anon_sym_DASH] = ACTIONS(4435),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4465),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4465),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4465),
-    [aux_sym_module_statement_token1] = ACTIONS(4465),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4465),
-    [aux_sym_interface_statement_token1] = ACTIONS(4465),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4465),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4465),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4465),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4465),
-    [aux_sym_function_statement_token1] = ACTIONS(4465),
-    [aux_sym_language_binding_token1] = ACTIONS(4465),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4465),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4465),
-    [aux_sym_contains_statement_token1] = ACTIONS(4465),
-    [aux_sym_use_statement_token1] = ACTIONS(4465),
-    [aux_sym_use_statement_token2] = ACTIONS(4465),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4465),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4465),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4465),
-    [aux_sym_save_statement_token1] = ACTIONS(4465),
-    [aux_sym_private_statement_token1] = ACTIONS(4465),
-    [aux_sym_public_statement_token1] = ACTIONS(4465),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4465),
-    [aux_sym_common_statement_token1] = ACTIONS(4465),
-    [aux_sym_import_statement_token1] = ACTIONS(4465),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4465),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4465),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4465),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4465),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4465),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4465),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4465),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4465),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4465),
-    [aux_sym_derived_type_token1] = ACTIONS(4465),
-    [aux_sym_declared_type_token1] = ACTIONS(4465),
-    [aux_sym_declared_type_token2] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4465),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4465),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4465),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4465),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4465),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4465),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4465),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4465),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4465),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4465),
-    [anon_sym_SEMI] = ACTIONS(4467),
-    [aux_sym_stop_statement_token1] = ACTIONS(4465),
-    [aux_sym_stop_statement_token2] = ACTIONS(4465),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4465),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4465),
-    [aux_sym_include_statement_token1] = ACTIONS(4465),
-    [aux_sym_data_statement_token1] = ACTIONS(4465),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4465),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4465),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4465),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4465),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4465),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4465),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4465),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4465),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4465),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4465),
-    [aux_sym_block_construct_token1] = ACTIONS(4465),
-    [aux_sym_associate_statement_token1] = ACTIONS(4465),
-    [aux_sym_format_statement_token1] = ACTIONS(4465),
-    [aux_sym_print_statement_token1] = ACTIONS(4465),
-    [aux_sym_open_statement_token1] = ACTIONS(4465),
-    [aux_sym_close_statement_token1] = ACTIONS(4465),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4465),
-    [aux_sym_enum_statement_token1] = ACTIONS(4465),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4465),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4465),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4465),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4465),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4465),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4465),
-    [aux_sym_entry_statement_token1] = ACTIONS(4465),
-    [aux_sym_logical_expression_token5] = ACTIONS(4467),
-    [anon_sym_DOT] = ACTIONS(4465),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4467),
-    [anon_sym_LBRACK] = ACTIONS(4467),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4467),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4467),
-    [aux_sym_null_literal_token1] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4465),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4465),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4465),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4465),
-    [aux_sym_identifier_token1] = ACTIONS(4465),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4467),
-    [sym__float_literal] = ACTIONS(4467),
-    [sym__boz_literal] = ACTIONS(4467),
-    [sym__string_literal] = ACTIONS(4467),
-    [sym__string_literal_kind] = ACTIONS(4467),
-  },
-  [978] = {
-    [ts_builtin_sym_end] = ACTIONS(4591),
-    [aux_sym_preproc_include_token1] = ACTIONS(4589),
-    [aux_sym_preproc_def_token1] = ACTIONS(4589),
-    [aux_sym_preproc_if_token1] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4589),
-    [sym_preproc_directive] = ACTIONS(4589),
-    [anon_sym_LPAREN2] = ACTIONS(4589),
-    [anon_sym_PLUS] = ACTIONS(4591),
-    [anon_sym_DASH] = ACTIONS(4591),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4589),
-    [aux_sym_module_statement_token1] = ACTIONS(4589),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4589),
-    [aux_sym_interface_statement_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4589),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4589),
-    [aux_sym_function_statement_token1] = ACTIONS(4589),
-    [aux_sym_language_binding_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4589),
-    [aux_sym_contains_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token2] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4589),
-    [aux_sym_save_statement_token1] = ACTIONS(4589),
-    [aux_sym_private_statement_token1] = ACTIONS(4589),
-    [aux_sym_public_statement_token1] = ACTIONS(4589),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4589),
-    [aux_sym_common_statement_token1] = ACTIONS(4589),
-    [aux_sym_import_statement_token1] = ACTIONS(4589),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4589),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4589),
-    [aux_sym_derived_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4589),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4589),
-    [anon_sym_SEMI] = ACTIONS(4591),
-    [aux_sym_stop_statement_token1] = ACTIONS(4589),
-    [aux_sym_stop_statement_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4589),
-    [aux_sym_include_statement_token1] = ACTIONS(4589),
-    [aux_sym_data_statement_token1] = ACTIONS(4589),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4589),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4589),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4589),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4589),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4589),
-    [aux_sym_block_construct_token1] = ACTIONS(4589),
-    [aux_sym_associate_statement_token1] = ACTIONS(4589),
-    [aux_sym_format_statement_token1] = ACTIONS(4589),
-    [aux_sym_print_statement_token1] = ACTIONS(4589),
-    [aux_sym_open_statement_token1] = ACTIONS(4589),
-    [aux_sym_close_statement_token1] = ACTIONS(4589),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4589),
-    [aux_sym_enum_statement_token1] = ACTIONS(4589),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4589),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4589),
-    [aux_sym_entry_statement_token1] = ACTIONS(4589),
-    [aux_sym_logical_expression_token5] = ACTIONS(4591),
-    [anon_sym_DOT] = ACTIONS(4589),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4591),
-    [anon_sym_LBRACK] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4591),
-    [aux_sym_null_literal_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4589),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4589),
-    [aux_sym_identifier_token1] = ACTIONS(4589),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4591),
-    [sym__float_literal] = ACTIONS(4591),
-    [sym__boz_literal] = ACTIONS(4591),
-    [sym__string_literal] = ACTIONS(4591),
-    [sym__string_literal_kind] = ACTIONS(4591),
-  },
-  [979] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4641),
-    [aux_sym_preproc_def_token1] = ACTIONS(4641),
-    [aux_sym_preproc_if_token1] = ACTIONS(4641),
-    [aux_sym_preproc_if_token2] = ACTIONS(4641),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4641),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4641),
-    [sym_preproc_directive] = ACTIONS(4641),
-    [anon_sym_LPAREN2] = ACTIONS(4641),
-    [anon_sym_PLUS] = ACTIONS(4643),
-    [anon_sym_DASH] = ACTIONS(4643),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4641),
-    [aux_sym_module_statement_token1] = ACTIONS(4641),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4641),
-    [aux_sym_interface_statement_token1] = ACTIONS(4641),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4641),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4641),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4641),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4641),
-    [aux_sym_function_statement_token1] = ACTIONS(4641),
-    [aux_sym_language_binding_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4641),
-    [aux_sym_contains_statement_token1] = ACTIONS(4641),
-    [aux_sym_use_statement_token1] = ACTIONS(4641),
-    [aux_sym_use_statement_token2] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4641),
-    [aux_sym_save_statement_token1] = ACTIONS(4641),
-    [aux_sym_private_statement_token1] = ACTIONS(4641),
-    [aux_sym_public_statement_token1] = ACTIONS(4641),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4641),
-    [aux_sym_common_statement_token1] = ACTIONS(4641),
-    [aux_sym_import_statement_token1] = ACTIONS(4641),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4641),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4641),
-    [aux_sym_derived_type_token1] = ACTIONS(4641),
-    [aux_sym_declared_type_token1] = ACTIONS(4641),
-    [aux_sym_declared_type_token2] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4641),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4641),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4641),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4641),
-    [anon_sym_SEMI] = ACTIONS(4643),
-    [aux_sym_stop_statement_token1] = ACTIONS(4641),
-    [aux_sym_stop_statement_token2] = ACTIONS(4641),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4641),
-    [aux_sym_include_statement_token1] = ACTIONS(4641),
-    [aux_sym_data_statement_token1] = ACTIONS(4641),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4641),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4641),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4641),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4641),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4641),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4641),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4641),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4641),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4641),
-    [aux_sym_block_construct_token1] = ACTIONS(4641),
-    [aux_sym_associate_statement_token1] = ACTIONS(4641),
-    [aux_sym_format_statement_token1] = ACTIONS(4641),
-    [aux_sym_print_statement_token1] = ACTIONS(4641),
-    [aux_sym_open_statement_token1] = ACTIONS(4641),
-    [aux_sym_close_statement_token1] = ACTIONS(4641),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4641),
-    [aux_sym_enum_statement_token1] = ACTIONS(4641),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4641),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4641),
-    [aux_sym_entry_statement_token1] = ACTIONS(4641),
-    [aux_sym_logical_expression_token5] = ACTIONS(4643),
-    [anon_sym_DOT] = ACTIONS(4641),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4643),
-    [anon_sym_LBRACK] = ACTIONS(4643),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4643),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4643),
-    [aux_sym_null_literal_token1] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4641),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4641),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4641),
-    [aux_sym_identifier_token1] = ACTIONS(4641),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4643),
-    [sym__float_literal] = ACTIONS(4643),
-    [sym__boz_literal] = ACTIONS(4643),
-    [sym__string_literal] = ACTIONS(4643),
-    [sym__string_literal_kind] = ACTIONS(4643),
-  },
-  [980] = {
-    [ts_builtin_sym_end] = ACTIONS(4399),
-    [aux_sym_preproc_include_token1] = ACTIONS(4397),
-    [aux_sym_preproc_def_token1] = ACTIONS(4397),
-    [aux_sym_preproc_if_token1] = ACTIONS(4397),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4397),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4397),
-    [sym_preproc_directive] = ACTIONS(4397),
-    [anon_sym_LPAREN2] = ACTIONS(4397),
-    [anon_sym_PLUS] = ACTIONS(4399),
-    [anon_sym_DASH] = ACTIONS(4399),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4397),
-    [aux_sym_module_statement_token1] = ACTIONS(4397),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4397),
-    [aux_sym_interface_statement_token1] = ACTIONS(4397),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4397),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4397),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4397),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4397),
-    [aux_sym_function_statement_token1] = ACTIONS(4397),
-    [aux_sym_language_binding_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4397),
-    [aux_sym_contains_statement_token1] = ACTIONS(4397),
-    [aux_sym_use_statement_token1] = ACTIONS(4397),
-    [aux_sym_use_statement_token2] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4397),
-    [aux_sym_save_statement_token1] = ACTIONS(4397),
-    [aux_sym_private_statement_token1] = ACTIONS(4397),
-    [aux_sym_public_statement_token1] = ACTIONS(4397),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4397),
-    [aux_sym_common_statement_token1] = ACTIONS(4397),
-    [aux_sym_import_statement_token1] = ACTIONS(4397),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4397),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4397),
-    [aux_sym_derived_type_token1] = ACTIONS(4397),
-    [aux_sym_declared_type_token1] = ACTIONS(4397),
-    [aux_sym_declared_type_token2] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4397),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4397),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4397),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4397),
-    [anon_sym_SEMI] = ACTIONS(4399),
-    [aux_sym_stop_statement_token1] = ACTIONS(4397),
-    [aux_sym_stop_statement_token2] = ACTIONS(4397),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4397),
-    [aux_sym_include_statement_token1] = ACTIONS(4397),
-    [aux_sym_data_statement_token1] = ACTIONS(4397),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4397),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4397),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4397),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4397),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4397),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4397),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4397),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4397),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4397),
-    [aux_sym_block_construct_token1] = ACTIONS(4397),
-    [aux_sym_associate_statement_token1] = ACTIONS(4397),
-    [aux_sym_format_statement_token1] = ACTIONS(4397),
-    [aux_sym_print_statement_token1] = ACTIONS(4397),
-    [aux_sym_open_statement_token1] = ACTIONS(4397),
-    [aux_sym_close_statement_token1] = ACTIONS(4397),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4397),
-    [aux_sym_enum_statement_token1] = ACTIONS(4397),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4397),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4397),
-    [aux_sym_entry_statement_token1] = ACTIONS(4397),
-    [aux_sym_logical_expression_token5] = ACTIONS(4399),
-    [anon_sym_DOT] = ACTIONS(4397),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4399),
-    [anon_sym_LBRACK] = ACTIONS(4399),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4399),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4399),
-    [aux_sym_null_literal_token1] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4397),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4397),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4397),
-    [aux_sym_identifier_token1] = ACTIONS(4397),
+    [aux_sym_program_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4433),
+    [aux_sym_module_statement_token1] = ACTIONS(4433),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4433),
+    [aux_sym_interface_statement_token1] = ACTIONS(4433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4433),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4433),
+    [aux_sym_function_statement_token1] = ACTIONS(4433),
+    [aux_sym_language_binding_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4433),
+    [aux_sym_contains_statement_token1] = ACTIONS(4433),
+    [aux_sym_use_statement_token1] = ACTIONS(4433),
+    [aux_sym_use_statement_token2] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4433),
+    [aux_sym_save_statement_token1] = ACTIONS(4433),
+    [aux_sym_private_statement_token1] = ACTIONS(4433),
+    [aux_sym_public_statement_token1] = ACTIONS(4433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4433),
+    [aux_sym_common_statement_token1] = ACTIONS(4433),
+    [aux_sym_import_statement_token1] = ACTIONS(4433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4433),
+    [aux_sym_derived_type_token1] = ACTIONS(4433),
+    [aux_sym_declared_type_token1] = ACTIONS(4433),
+    [aux_sym_declared_type_token2] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4433),
+    [anon_sym_SEMI] = ACTIONS(4435),
+    [aux_sym_stop_statement_token1] = ACTIONS(4433),
+    [aux_sym_stop_statement_token2] = ACTIONS(4433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4433),
+    [aux_sym_include_statement_token1] = ACTIONS(4433),
+    [aux_sym_data_statement_token1] = ACTIONS(4433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4433),
+    [aux_sym_block_construct_token1] = ACTIONS(4433),
+    [aux_sym_associate_statement_token1] = ACTIONS(4433),
+    [aux_sym_format_statement_token1] = ACTIONS(4433),
+    [aux_sym_print_statement_token1] = ACTIONS(4433),
+    [aux_sym_open_statement_token1] = ACTIONS(4433),
+    [aux_sym_close_statement_token1] = ACTIONS(4433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4433),
+    [aux_sym_enum_statement_token1] = ACTIONS(4433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4433),
+    [aux_sym_entry_statement_token1] = ACTIONS(4433),
+    [aux_sym_logical_expression_token5] = ACTIONS(4435),
+    [anon_sym_DOT] = ACTIONS(4433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4435),
+    [anon_sym_LBRACK] = ACTIONS(4435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4435),
+    [aux_sym_null_literal_token1] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4433),
+    [aux_sym_identifier_token1] = ACTIONS(4433),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4399),
-    [sym__float_literal] = ACTIONS(4399),
-    [sym__boz_literal] = ACTIONS(4399),
-    [sym__string_literal] = ACTIONS(4399),
-    [sym__string_literal_kind] = ACTIONS(4399),
-  },
-  [981] = {
-    [ts_builtin_sym_end] = ACTIONS(4595),
-    [aux_sym_preproc_include_token1] = ACTIONS(4593),
-    [aux_sym_preproc_def_token1] = ACTIONS(4593),
-    [aux_sym_preproc_if_token1] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4593),
-    [sym_preproc_directive] = ACTIONS(4593),
-    [anon_sym_LPAREN2] = ACTIONS(4593),
-    [anon_sym_PLUS] = ACTIONS(4595),
-    [anon_sym_DASH] = ACTIONS(4595),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4593),
-    [aux_sym_module_statement_token1] = ACTIONS(4593),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4593),
-    [aux_sym_interface_statement_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4593),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4593),
-    [aux_sym_function_statement_token1] = ACTIONS(4593),
-    [aux_sym_language_binding_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4593),
-    [aux_sym_contains_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token2] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4593),
-    [aux_sym_save_statement_token1] = ACTIONS(4593),
-    [aux_sym_private_statement_token1] = ACTIONS(4593),
-    [aux_sym_public_statement_token1] = ACTIONS(4593),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4593),
-    [aux_sym_common_statement_token1] = ACTIONS(4593),
-    [aux_sym_import_statement_token1] = ACTIONS(4593),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4593),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4593),
-    [aux_sym_derived_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4593),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4593),
-    [anon_sym_SEMI] = ACTIONS(4595),
-    [aux_sym_stop_statement_token1] = ACTIONS(4593),
-    [aux_sym_stop_statement_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4593),
-    [aux_sym_include_statement_token1] = ACTIONS(4593),
-    [aux_sym_data_statement_token1] = ACTIONS(4593),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4593),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4593),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4593),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4593),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4593),
-    [aux_sym_block_construct_token1] = ACTIONS(4593),
-    [aux_sym_associate_statement_token1] = ACTIONS(4593),
-    [aux_sym_format_statement_token1] = ACTIONS(4593),
-    [aux_sym_print_statement_token1] = ACTIONS(4593),
-    [aux_sym_open_statement_token1] = ACTIONS(4593),
-    [aux_sym_close_statement_token1] = ACTIONS(4593),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4593),
-    [aux_sym_enum_statement_token1] = ACTIONS(4593),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4593),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4593),
-    [aux_sym_entry_statement_token1] = ACTIONS(4593),
-    [aux_sym_logical_expression_token5] = ACTIONS(4595),
-    [anon_sym_DOT] = ACTIONS(4593),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4595),
-    [anon_sym_LBRACK] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4595),
-    [aux_sym_null_literal_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4593),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4593),
-    [aux_sym_identifier_token1] = ACTIONS(4593),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4595),
-    [sym__float_literal] = ACTIONS(4595),
-    [sym__boz_literal] = ACTIONS(4595),
-    [sym__string_literal] = ACTIONS(4595),
-    [sym__string_literal_kind] = ACTIONS(4595),
+    [sym__integer_literal] = ACTIONS(4435),
+    [sym__float_literal] = ACTIONS(4435),
+    [sym__boz_literal] = ACTIONS(4435),
+    [sym__string_literal] = ACTIONS(4435),
+    [sym__string_literal_kind] = ACTIONS(4435),
   },
-  [982] = {
-    [sym_preproc_include] = STATE(1111),
-    [sym_preproc_def] = STATE(1111),
-    [sym_preproc_function_def] = STATE(1111),
-    [sym_preproc_call] = STATE(1111),
-    [sym_preproc_if_in_module] = STATE(1111),
-    [sym_preproc_ifdef_in_module] = STATE(1111),
-    [sym_end_module_statement] = STATE(1063),
-    [sym_interface] = STATE(1111),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7166),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(1111),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(1111),
-    [sym_public_statement] = STATE(1111),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(1111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(1111),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(1111),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1111),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
+  [973] = {
+    [ts_builtin_sym_end] = ACTIONS(4635),
+    [aux_sym_preproc_include_token1] = ACTIONS(4633),
+    [aux_sym_preproc_def_token1] = ACTIONS(4633),
+    [aux_sym_preproc_if_token1] = ACTIONS(4633),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4633),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4633),
+    [sym_preproc_directive] = ACTIONS(4633),
+    [anon_sym_LPAREN2] = ACTIONS(4633),
+    [anon_sym_PLUS] = ACTIONS(4635),
+    [anon_sym_DASH] = ACTIONS(4635),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4791),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4793),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_program_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4633),
+    [aux_sym_module_statement_token1] = ACTIONS(4633),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4633),
+    [aux_sym_interface_statement_token1] = ACTIONS(4633),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4633),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4633),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4633),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4633),
+    [aux_sym_function_statement_token1] = ACTIONS(4633),
+    [aux_sym_language_binding_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4633),
+    [aux_sym_contains_statement_token1] = ACTIONS(4633),
+    [aux_sym_use_statement_token1] = ACTIONS(4633),
+    [aux_sym_use_statement_token2] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4633),
+    [aux_sym_save_statement_token1] = ACTIONS(4633),
+    [aux_sym_private_statement_token1] = ACTIONS(4633),
+    [aux_sym_public_statement_token1] = ACTIONS(4633),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4633),
+    [aux_sym_common_statement_token1] = ACTIONS(4633),
+    [aux_sym_import_statement_token1] = ACTIONS(4633),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4633),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4633),
+    [aux_sym_derived_type_token1] = ACTIONS(4633),
+    [aux_sym_declared_type_token1] = ACTIONS(4633),
+    [aux_sym_declared_type_token2] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4633),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4633),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4633),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4633),
+    [anon_sym_SEMI] = ACTIONS(4635),
+    [aux_sym_stop_statement_token1] = ACTIONS(4633),
+    [aux_sym_stop_statement_token2] = ACTIONS(4633),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4633),
+    [aux_sym_include_statement_token1] = ACTIONS(4633),
+    [aux_sym_data_statement_token1] = ACTIONS(4633),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4633),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4633),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4633),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4633),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4633),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4633),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4633),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4633),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4633),
+    [aux_sym_block_construct_token1] = ACTIONS(4633),
+    [aux_sym_associate_statement_token1] = ACTIONS(4633),
+    [aux_sym_format_statement_token1] = ACTIONS(4633),
+    [aux_sym_print_statement_token1] = ACTIONS(4633),
+    [aux_sym_open_statement_token1] = ACTIONS(4633),
+    [aux_sym_close_statement_token1] = ACTIONS(4633),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4633),
+    [aux_sym_enum_statement_token1] = ACTIONS(4633),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4633),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4633),
+    [aux_sym_entry_statement_token1] = ACTIONS(4633),
+    [aux_sym_logical_expression_token5] = ACTIONS(4635),
+    [anon_sym_DOT] = ACTIONS(4633),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4635),
+    [anon_sym_LBRACK] = ACTIONS(4635),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4635),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4635),
+    [aux_sym_null_literal_token1] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4633),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4633),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4633),
+    [aux_sym_identifier_token1] = ACTIONS(4633),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+    [sym__integer_literal] = ACTIONS(4635),
+    [sym__float_literal] = ACTIONS(4635),
+    [sym__boz_literal] = ACTIONS(4635),
+    [sym__string_literal] = ACTIONS(4635),
+    [sym__string_literal_kind] = ACTIONS(4635),
   },
-  [983] = {
-    [sym_preproc_include] = STATE(1112),
-    [sym_preproc_def] = STATE(1112),
-    [sym_preproc_function_def] = STATE(1112),
-    [sym_preproc_call] = STATE(1112),
-    [sym_preproc_if_in_module] = STATE(1112),
-    [sym_preproc_ifdef_in_module] = STATE(1112),
-    [sym_end_submodule_statement] = STATE(1065),
-    [sym_interface] = STATE(1112),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7168),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(1112),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(1112),
-    [sym_public_statement] = STATE(1112),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(1112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(1112),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(1112),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1112),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4809),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4811),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4813),
-    [aux_sym_public_statement_token1] = ACTIONS(4815),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+  [974] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [984] = {
+  [975] = {
     [ts_builtin_sym_end] = ACTIONS(4431),
     [aux_sym_preproc_include_token1] = ACTIONS(4429),
     [aux_sym_preproc_def_token1] = ACTIONS(4429),
@@ -230902,1280 +229492,1985 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4431),
     [sym__string_literal_kind] = ACTIONS(4431),
   },
-  [985] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4323),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [976] = {
+    [ts_builtin_sym_end] = ACTIONS(4631),
+    [aux_sym_preproc_include_token1] = ACTIONS(4629),
+    [aux_sym_preproc_def_token1] = ACTIONS(4629),
+    [aux_sym_preproc_if_token1] = ACTIONS(4629),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
+    [sym_preproc_directive] = ACTIONS(4629),
+    [anon_sym_LPAREN2] = ACTIONS(4629),
+    [anon_sym_PLUS] = ACTIONS(4631),
+    [anon_sym_DASH] = ACTIONS(4631),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
+    [aux_sym_module_statement_token1] = ACTIONS(4629),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4629),
+    [aux_sym_interface_statement_token1] = ACTIONS(4629),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4629),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
+    [aux_sym_function_statement_token1] = ACTIONS(4629),
+    [aux_sym_language_binding_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
+    [aux_sym_contains_statement_token1] = ACTIONS(4629),
+    [aux_sym_use_statement_token1] = ACTIONS(4629),
+    [aux_sym_use_statement_token2] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
+    [aux_sym_save_statement_token1] = ACTIONS(4629),
+    [aux_sym_private_statement_token1] = ACTIONS(4629),
+    [aux_sym_public_statement_token1] = ACTIONS(4629),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
+    [aux_sym_common_statement_token1] = ACTIONS(4629),
+    [aux_sym_import_statement_token1] = ACTIONS(4629),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
+    [aux_sym_derived_type_token1] = ACTIONS(4629),
+    [aux_sym_declared_type_token1] = ACTIONS(4629),
+    [aux_sym_declared_type_token2] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4629),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
+    [anon_sym_SEMI] = ACTIONS(4631),
+    [aux_sym_stop_statement_token1] = ACTIONS(4629),
+    [aux_sym_stop_statement_token2] = ACTIONS(4629),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
+    [aux_sym_include_statement_token1] = ACTIONS(4629),
+    [aux_sym_data_statement_token1] = ACTIONS(4629),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
+    [aux_sym_block_construct_token1] = ACTIONS(4629),
+    [aux_sym_associate_statement_token1] = ACTIONS(4629),
+    [aux_sym_format_statement_token1] = ACTIONS(4629),
+    [aux_sym_print_statement_token1] = ACTIONS(4629),
+    [aux_sym_open_statement_token1] = ACTIONS(4629),
+    [aux_sym_close_statement_token1] = ACTIONS(4629),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
+    [aux_sym_enum_statement_token1] = ACTIONS(4629),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
+    [aux_sym_entry_statement_token1] = ACTIONS(4629),
+    [aux_sym_logical_expression_token5] = ACTIONS(4631),
+    [anon_sym_DOT] = ACTIONS(4629),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
+    [anon_sym_LBRACK] = ACTIONS(4631),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
+    [aux_sym_null_literal_token1] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
+    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4631),
+    [sym__float_literal] = ACTIONS(4631),
+    [sym__boz_literal] = ACTIONS(4631),
+    [sym__string_literal] = ACTIONS(4631),
+    [sym__string_literal_kind] = ACTIONS(4631),
   },
-  [986] = {
-    [sym_preproc_include] = STATE(1111),
-    [sym_preproc_def] = STATE(1111),
-    [sym_preproc_function_def] = STATE(1111),
-    [sym_preproc_call] = STATE(1111),
-    [sym_preproc_if_in_module] = STATE(1111),
-    [sym_preproc_ifdef_in_module] = STATE(1111),
-    [sym_end_module_statement] = STATE(1040),
-    [sym_interface] = STATE(1111),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7015),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(1111),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(1111),
-    [sym_public_statement] = STATE(1111),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(1111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(1111),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(1111),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1111),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
+  [977] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4477),
+    [aux_sym_preproc_def_token1] = ACTIONS(4477),
+    [aux_sym_preproc_if_token1] = ACTIONS(4477),
+    [aux_sym_preproc_if_token2] = ACTIONS(4477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4477),
+    [sym_preproc_directive] = ACTIONS(4477),
+    [anon_sym_LPAREN2] = ACTIONS(4477),
+    [anon_sym_PLUS] = ACTIONS(4479),
+    [anon_sym_DASH] = ACTIONS(4479),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4817),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4819),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_program_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4477),
+    [aux_sym_module_statement_token1] = ACTIONS(4477),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4477),
+    [aux_sym_interface_statement_token1] = ACTIONS(4477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4477),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4477),
+    [aux_sym_function_statement_token1] = ACTIONS(4477),
+    [aux_sym_language_binding_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4477),
+    [aux_sym_contains_statement_token1] = ACTIONS(4477),
+    [aux_sym_use_statement_token1] = ACTIONS(4477),
+    [aux_sym_use_statement_token2] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4477),
+    [aux_sym_save_statement_token1] = ACTIONS(4477),
+    [aux_sym_private_statement_token1] = ACTIONS(4477),
+    [aux_sym_public_statement_token1] = ACTIONS(4477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4477),
+    [aux_sym_common_statement_token1] = ACTIONS(4477),
+    [aux_sym_import_statement_token1] = ACTIONS(4477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4477),
+    [aux_sym_derived_type_token1] = ACTIONS(4477),
+    [aux_sym_declared_type_token1] = ACTIONS(4477),
+    [aux_sym_declared_type_token2] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4477),
+    [anon_sym_SEMI] = ACTIONS(4479),
+    [aux_sym_stop_statement_token1] = ACTIONS(4477),
+    [aux_sym_stop_statement_token2] = ACTIONS(4477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4477),
+    [aux_sym_include_statement_token1] = ACTIONS(4477),
+    [aux_sym_data_statement_token1] = ACTIONS(4477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4477),
+    [aux_sym_block_construct_token1] = ACTIONS(4477),
+    [aux_sym_associate_statement_token1] = ACTIONS(4477),
+    [aux_sym_format_statement_token1] = ACTIONS(4477),
+    [aux_sym_print_statement_token1] = ACTIONS(4477),
+    [aux_sym_open_statement_token1] = ACTIONS(4477),
+    [aux_sym_close_statement_token1] = ACTIONS(4477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4477),
+    [aux_sym_enum_statement_token1] = ACTIONS(4477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4477),
+    [aux_sym_entry_statement_token1] = ACTIONS(4477),
+    [aux_sym_logical_expression_token5] = ACTIONS(4479),
+    [anon_sym_DOT] = ACTIONS(4477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4479),
+    [anon_sym_LBRACK] = ACTIONS(4479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4479),
+    [aux_sym_null_literal_token1] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4477),
+    [aux_sym_identifier_token1] = ACTIONS(4477),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+    [sym__integer_literal] = ACTIONS(4479),
+    [sym__float_literal] = ACTIONS(4479),
+    [sym__boz_literal] = ACTIONS(4479),
+    [sym__string_literal] = ACTIONS(4479),
+    [sym__string_literal_kind] = ACTIONS(4479),
   },
-  [987] = {
-    [sym_preproc_include] = STATE(982),
-    [sym_preproc_def] = STATE(982),
-    [sym_preproc_function_def] = STATE(982),
-    [sym_preproc_call] = STATE(982),
-    [sym_preproc_if_in_module] = STATE(982),
-    [sym_preproc_ifdef_in_module] = STATE(982),
-    [sym_end_module_statement] = STATE(1056),
-    [sym_interface] = STATE(982),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7157),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(982),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(982),
-    [sym_public_statement] = STATE(982),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(982),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(982),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(982),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(982),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4791),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4793),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+  [978] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4587),
+    [aux_sym_preproc_def_token1] = ACTIONS(4587),
+    [aux_sym_preproc_if_token1] = ACTIONS(4587),
+    [aux_sym_preproc_if_token2] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4587),
+    [sym_preproc_directive] = ACTIONS(4587),
+    [anon_sym_LPAREN2] = ACTIONS(4587),
+    [anon_sym_PLUS] = ACTIONS(4589),
+    [anon_sym_DASH] = ACTIONS(4589),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4587),
+    [aux_sym_module_statement_token1] = ACTIONS(4587),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4587),
+    [aux_sym_interface_statement_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4587),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4587),
+    [aux_sym_function_statement_token1] = ACTIONS(4587),
+    [aux_sym_language_binding_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4587),
+    [aux_sym_contains_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token2] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4587),
+    [aux_sym_save_statement_token1] = ACTIONS(4587),
+    [aux_sym_private_statement_token1] = ACTIONS(4587),
+    [aux_sym_public_statement_token1] = ACTIONS(4587),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4587),
+    [aux_sym_common_statement_token1] = ACTIONS(4587),
+    [aux_sym_import_statement_token1] = ACTIONS(4587),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4587),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4587),
+    [aux_sym_derived_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4587),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4587),
+    [anon_sym_SEMI] = ACTIONS(4589),
+    [aux_sym_stop_statement_token1] = ACTIONS(4587),
+    [aux_sym_stop_statement_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4587),
+    [aux_sym_include_statement_token1] = ACTIONS(4587),
+    [aux_sym_data_statement_token1] = ACTIONS(4587),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4587),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4587),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4587),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4587),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4587),
+    [aux_sym_block_construct_token1] = ACTIONS(4587),
+    [aux_sym_associate_statement_token1] = ACTIONS(4587),
+    [aux_sym_format_statement_token1] = ACTIONS(4587),
+    [aux_sym_print_statement_token1] = ACTIONS(4587),
+    [aux_sym_open_statement_token1] = ACTIONS(4587),
+    [aux_sym_close_statement_token1] = ACTIONS(4587),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4587),
+    [aux_sym_enum_statement_token1] = ACTIONS(4587),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4587),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4587),
+    [aux_sym_entry_statement_token1] = ACTIONS(4587),
+    [aux_sym_logical_expression_token5] = ACTIONS(4589),
+    [anon_sym_DOT] = ACTIONS(4587),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4589),
+    [anon_sym_LBRACK] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4589),
+    [aux_sym_null_literal_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4587),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4587),
+    [aux_sym_identifier_token1] = ACTIONS(4587),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4589),
+    [sym__float_literal] = ACTIONS(4589),
+    [sym__boz_literal] = ACTIONS(4589),
+    [sym__string_literal] = ACTIONS(4589),
+    [sym__string_literal_kind] = ACTIONS(4589),
   },
-  [988] = {
-    [sym_preproc_include] = STATE(983),
-    [sym_preproc_def] = STATE(983),
-    [sym_preproc_function_def] = STATE(983),
-    [sym_preproc_call] = STATE(983),
-    [sym_preproc_if_in_module] = STATE(983),
-    [sym_preproc_ifdef_in_module] = STATE(983),
-    [sym_end_submodule_statement] = STATE(1057),
-    [sym_interface] = STATE(983),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7159),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(983),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(983),
-    [sym_public_statement] = STATE(983),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(983),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(983),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(983),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(983),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
+  [979] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
+  },
+  [980] = {
+    [ts_builtin_sym_end] = ACTIONS(4601),
+    [aux_sym_preproc_include_token1] = ACTIONS(4599),
+    [aux_sym_preproc_def_token1] = ACTIONS(4599),
+    [aux_sym_preproc_if_token1] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4599),
+    [sym_preproc_directive] = ACTIONS(4599),
+    [anon_sym_LPAREN2] = ACTIONS(4599),
+    [anon_sym_PLUS] = ACTIONS(4601),
+    [anon_sym_DASH] = ACTIONS(4601),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4599),
+    [aux_sym_module_statement_token1] = ACTIONS(4599),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4599),
+    [aux_sym_interface_statement_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4599),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4599),
+    [aux_sym_function_statement_token1] = ACTIONS(4599),
+    [aux_sym_language_binding_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4599),
+    [aux_sym_contains_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token2] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4599),
+    [aux_sym_save_statement_token1] = ACTIONS(4599),
+    [aux_sym_private_statement_token1] = ACTIONS(4599),
+    [aux_sym_public_statement_token1] = ACTIONS(4599),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4599),
+    [aux_sym_common_statement_token1] = ACTIONS(4599),
+    [aux_sym_import_statement_token1] = ACTIONS(4599),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4599),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4599),
+    [aux_sym_derived_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4599),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4599),
+    [anon_sym_SEMI] = ACTIONS(4601),
+    [aux_sym_stop_statement_token1] = ACTIONS(4599),
+    [aux_sym_stop_statement_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4599),
+    [aux_sym_include_statement_token1] = ACTIONS(4599),
+    [aux_sym_data_statement_token1] = ACTIONS(4599),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4599),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4599),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4599),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4599),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4599),
+    [aux_sym_block_construct_token1] = ACTIONS(4599),
+    [aux_sym_associate_statement_token1] = ACTIONS(4599),
+    [aux_sym_format_statement_token1] = ACTIONS(4599),
+    [aux_sym_print_statement_token1] = ACTIONS(4599),
+    [aux_sym_open_statement_token1] = ACTIONS(4599),
+    [aux_sym_close_statement_token1] = ACTIONS(4599),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4599),
+    [aux_sym_enum_statement_token1] = ACTIONS(4599),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4599),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4599),
+    [aux_sym_entry_statement_token1] = ACTIONS(4599),
+    [aux_sym_logical_expression_token5] = ACTIONS(4601),
+    [anon_sym_DOT] = ACTIONS(4599),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4601),
+    [anon_sym_LBRACK] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4601),
+    [aux_sym_null_literal_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4599),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4599),
+    [aux_sym_identifier_token1] = ACTIONS(4599),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4601),
+    [sym__float_literal] = ACTIONS(4601),
+    [sym__boz_literal] = ACTIONS(4601),
+    [sym__string_literal] = ACTIONS(4601),
+    [sym__string_literal_kind] = ACTIONS(4601),
+  },
+  [981] = {
+    [ts_builtin_sym_end] = ACTIONS(4475),
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4809),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4811),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4813),
-    [aux_sym_public_statement_token1] = ACTIONS(4815),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4473),
+    [aux_sym_module_statement_token1] = ACTIONS(4473),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_function_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [989] = {
-    [ts_builtin_sym_end] = ACTIONS(4435),
-    [aux_sym_preproc_include_token1] = ACTIONS(4433),
-    [aux_sym_preproc_def_token1] = ACTIONS(4433),
-    [aux_sym_preproc_if_token1] = ACTIONS(4433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4433),
-    [sym_preproc_directive] = ACTIONS(4433),
-    [anon_sym_LPAREN2] = ACTIONS(4433),
-    [anon_sym_PLUS] = ACTIONS(4435),
-    [anon_sym_DASH] = ACTIONS(4435),
+  [982] = {
+    [ts_builtin_sym_end] = ACTIONS(4593),
+    [aux_sym_preproc_include_token1] = ACTIONS(4591),
+    [aux_sym_preproc_def_token1] = ACTIONS(4591),
+    [aux_sym_preproc_if_token1] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4591),
+    [sym_preproc_directive] = ACTIONS(4591),
+    [anon_sym_LPAREN2] = ACTIONS(4591),
+    [anon_sym_PLUS] = ACTIONS(4593),
+    [anon_sym_DASH] = ACTIONS(4593),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4591),
+    [aux_sym_module_statement_token1] = ACTIONS(4591),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4591),
+    [aux_sym_interface_statement_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4591),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4591),
+    [aux_sym_function_statement_token1] = ACTIONS(4591),
+    [aux_sym_language_binding_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4591),
+    [aux_sym_contains_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token2] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4591),
+    [aux_sym_save_statement_token1] = ACTIONS(4591),
+    [aux_sym_private_statement_token1] = ACTIONS(4591),
+    [aux_sym_public_statement_token1] = ACTIONS(4591),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4591),
+    [aux_sym_common_statement_token1] = ACTIONS(4591),
+    [aux_sym_import_statement_token1] = ACTIONS(4591),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4591),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4591),
+    [aux_sym_derived_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4591),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4591),
+    [anon_sym_SEMI] = ACTIONS(4593),
+    [aux_sym_stop_statement_token1] = ACTIONS(4591),
+    [aux_sym_stop_statement_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4591),
+    [aux_sym_include_statement_token1] = ACTIONS(4591),
+    [aux_sym_data_statement_token1] = ACTIONS(4591),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4591),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4591),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4591),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4591),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4591),
+    [aux_sym_block_construct_token1] = ACTIONS(4591),
+    [aux_sym_associate_statement_token1] = ACTIONS(4591),
+    [aux_sym_format_statement_token1] = ACTIONS(4591),
+    [aux_sym_print_statement_token1] = ACTIONS(4591),
+    [aux_sym_open_statement_token1] = ACTIONS(4591),
+    [aux_sym_close_statement_token1] = ACTIONS(4591),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4591),
+    [aux_sym_enum_statement_token1] = ACTIONS(4591),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4591),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4591),
+    [aux_sym_entry_statement_token1] = ACTIONS(4591),
+    [aux_sym_logical_expression_token5] = ACTIONS(4593),
+    [anon_sym_DOT] = ACTIONS(4591),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4593),
+    [anon_sym_LBRACK] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4593),
+    [aux_sym_null_literal_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4591),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4591),
+    [aux_sym_identifier_token1] = ACTIONS(4591),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4593),
+    [sym__float_literal] = ACTIONS(4593),
+    [sym__boz_literal] = ACTIONS(4593),
+    [sym__string_literal] = ACTIONS(4593),
+    [sym__string_literal_kind] = ACTIONS(4593),
+  },
+  [983] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4489),
+    [aux_sym_preproc_def_token1] = ACTIONS(4489),
+    [aux_sym_preproc_if_token1] = ACTIONS(4489),
+    [aux_sym_preproc_if_token2] = ACTIONS(4489),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4489),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4489),
+    [sym_preproc_directive] = ACTIONS(4489),
+    [anon_sym_LPAREN2] = ACTIONS(4489),
+    [anon_sym_PLUS] = ACTIONS(4491),
+    [anon_sym_DASH] = ACTIONS(4491),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4433),
-    [aux_sym_module_statement_token1] = ACTIONS(4433),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4433),
-    [aux_sym_interface_statement_token1] = ACTIONS(4433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4433),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4433),
-    [aux_sym_function_statement_token1] = ACTIONS(4433),
-    [aux_sym_language_binding_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4433),
-    [aux_sym_contains_statement_token1] = ACTIONS(4433),
-    [aux_sym_use_statement_token1] = ACTIONS(4433),
-    [aux_sym_use_statement_token2] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4433),
-    [aux_sym_save_statement_token1] = ACTIONS(4433),
-    [aux_sym_private_statement_token1] = ACTIONS(4433),
-    [aux_sym_public_statement_token1] = ACTIONS(4433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4433),
-    [aux_sym_common_statement_token1] = ACTIONS(4433),
-    [aux_sym_import_statement_token1] = ACTIONS(4433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4433),
-    [aux_sym_derived_type_token1] = ACTIONS(4433),
-    [aux_sym_declared_type_token1] = ACTIONS(4433),
-    [aux_sym_declared_type_token2] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4433),
-    [anon_sym_SEMI] = ACTIONS(4435),
-    [aux_sym_stop_statement_token1] = ACTIONS(4433),
-    [aux_sym_stop_statement_token2] = ACTIONS(4433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4433),
-    [aux_sym_include_statement_token1] = ACTIONS(4433),
-    [aux_sym_data_statement_token1] = ACTIONS(4433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4433),
-    [aux_sym_block_construct_token1] = ACTIONS(4433),
-    [aux_sym_associate_statement_token1] = ACTIONS(4433),
-    [aux_sym_format_statement_token1] = ACTIONS(4433),
-    [aux_sym_print_statement_token1] = ACTIONS(4433),
-    [aux_sym_open_statement_token1] = ACTIONS(4433),
-    [aux_sym_close_statement_token1] = ACTIONS(4433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4433),
-    [aux_sym_enum_statement_token1] = ACTIONS(4433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4433),
-    [aux_sym_entry_statement_token1] = ACTIONS(4433),
-    [aux_sym_logical_expression_token5] = ACTIONS(4435),
-    [anon_sym_DOT] = ACTIONS(4433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4435),
-    [anon_sym_LBRACK] = ACTIONS(4435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4435),
-    [aux_sym_null_literal_token1] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4433),
-    [aux_sym_identifier_token1] = ACTIONS(4433),
+    [aux_sym_program_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4489),
+    [aux_sym_module_statement_token1] = ACTIONS(4489),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4489),
+    [aux_sym_interface_statement_token1] = ACTIONS(4489),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4489),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4489),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4489),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4489),
+    [aux_sym_function_statement_token1] = ACTIONS(4489),
+    [aux_sym_language_binding_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4489),
+    [aux_sym_contains_statement_token1] = ACTIONS(4489),
+    [aux_sym_use_statement_token1] = ACTIONS(4489),
+    [aux_sym_use_statement_token2] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4489),
+    [aux_sym_save_statement_token1] = ACTIONS(4489),
+    [aux_sym_private_statement_token1] = ACTIONS(4489),
+    [aux_sym_public_statement_token1] = ACTIONS(4489),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4489),
+    [aux_sym_common_statement_token1] = ACTIONS(4489),
+    [aux_sym_import_statement_token1] = ACTIONS(4489),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4489),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4489),
+    [aux_sym_derived_type_token1] = ACTIONS(4489),
+    [aux_sym_declared_type_token1] = ACTIONS(4489),
+    [aux_sym_declared_type_token2] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4489),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4489),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4489),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4489),
+    [anon_sym_SEMI] = ACTIONS(4491),
+    [aux_sym_stop_statement_token1] = ACTIONS(4489),
+    [aux_sym_stop_statement_token2] = ACTIONS(4489),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4489),
+    [aux_sym_include_statement_token1] = ACTIONS(4489),
+    [aux_sym_data_statement_token1] = ACTIONS(4489),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4489),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4489),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4489),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4489),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4489),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4489),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4489),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4489),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4489),
+    [aux_sym_block_construct_token1] = ACTIONS(4489),
+    [aux_sym_associate_statement_token1] = ACTIONS(4489),
+    [aux_sym_format_statement_token1] = ACTIONS(4489),
+    [aux_sym_print_statement_token1] = ACTIONS(4489),
+    [aux_sym_open_statement_token1] = ACTIONS(4489),
+    [aux_sym_close_statement_token1] = ACTIONS(4489),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4489),
+    [aux_sym_enum_statement_token1] = ACTIONS(4489),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4489),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4489),
+    [aux_sym_entry_statement_token1] = ACTIONS(4489),
+    [aux_sym_logical_expression_token5] = ACTIONS(4491),
+    [anon_sym_DOT] = ACTIONS(4489),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4491),
+    [anon_sym_LBRACK] = ACTIONS(4491),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4491),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4491),
+    [aux_sym_null_literal_token1] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4489),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4489),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4489),
+    [aux_sym_identifier_token1] = ACTIONS(4489),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4435),
-    [sym__float_literal] = ACTIONS(4435),
-    [sym__boz_literal] = ACTIONS(4435),
-    [sym__string_literal] = ACTIONS(4435),
-    [sym__string_literal_kind] = ACTIONS(4435),
+    [sym__integer_literal] = ACTIONS(4491),
+    [sym__float_literal] = ACTIONS(4491),
+    [sym__boz_literal] = ACTIONS(4491),
+    [sym__string_literal] = ACTIONS(4491),
+    [sym__string_literal_kind] = ACTIONS(4491),
   },
-  [990] = {
-    [sym_preproc_include] = STATE(1112),
-    [sym_preproc_def] = STATE(1112),
-    [sym_preproc_function_def] = STATE(1112),
-    [sym_preproc_call] = STATE(1112),
-    [sym_preproc_if_in_module] = STATE(1112),
-    [sym_preproc_ifdef_in_module] = STATE(1112),
-    [sym_end_submodule_statement] = STATE(1046),
-    [sym_interface] = STATE(1112),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7056),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(1112),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(1112),
-    [sym_public_statement] = STATE(1112),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(1112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(1112),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(1112),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1112),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
+  [984] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4493),
+    [aux_sym_preproc_def_token1] = ACTIONS(4493),
+    [aux_sym_preproc_if_token1] = ACTIONS(4493),
+    [aux_sym_preproc_if_token2] = ACTIONS(4493),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4493),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4493),
+    [sym_preproc_directive] = ACTIONS(4493),
+    [anon_sym_LPAREN2] = ACTIONS(4493),
+    [anon_sym_PLUS] = ACTIONS(4495),
+    [anon_sym_DASH] = ACTIONS(4495),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4821),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4823),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4813),
-    [aux_sym_public_statement_token1] = ACTIONS(4815),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_program_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4493),
+    [aux_sym_module_statement_token1] = ACTIONS(4493),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4493),
+    [aux_sym_interface_statement_token1] = ACTIONS(4493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4493),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4493),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4493),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4493),
+    [aux_sym_function_statement_token1] = ACTIONS(4493),
+    [aux_sym_language_binding_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4493),
+    [aux_sym_contains_statement_token1] = ACTIONS(4493),
+    [aux_sym_use_statement_token1] = ACTIONS(4493),
+    [aux_sym_use_statement_token2] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4493),
+    [aux_sym_save_statement_token1] = ACTIONS(4493),
+    [aux_sym_private_statement_token1] = ACTIONS(4493),
+    [aux_sym_public_statement_token1] = ACTIONS(4493),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4493),
+    [aux_sym_common_statement_token1] = ACTIONS(4493),
+    [aux_sym_import_statement_token1] = ACTIONS(4493),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4493),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4493),
+    [aux_sym_derived_type_token1] = ACTIONS(4493),
+    [aux_sym_declared_type_token1] = ACTIONS(4493),
+    [aux_sym_declared_type_token2] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4493),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4493),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4493),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4493),
+    [anon_sym_SEMI] = ACTIONS(4495),
+    [aux_sym_stop_statement_token1] = ACTIONS(4493),
+    [aux_sym_stop_statement_token2] = ACTIONS(4493),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4493),
+    [aux_sym_include_statement_token1] = ACTIONS(4493),
+    [aux_sym_data_statement_token1] = ACTIONS(4493),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4493),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4493),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4493),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4493),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4493),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4493),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4493),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4493),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4493),
+    [aux_sym_block_construct_token1] = ACTIONS(4493),
+    [aux_sym_associate_statement_token1] = ACTIONS(4493),
+    [aux_sym_format_statement_token1] = ACTIONS(4493),
+    [aux_sym_print_statement_token1] = ACTIONS(4493),
+    [aux_sym_open_statement_token1] = ACTIONS(4493),
+    [aux_sym_close_statement_token1] = ACTIONS(4493),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4493),
+    [aux_sym_enum_statement_token1] = ACTIONS(4493),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4493),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4493),
+    [aux_sym_entry_statement_token1] = ACTIONS(4493),
+    [aux_sym_logical_expression_token5] = ACTIONS(4495),
+    [anon_sym_DOT] = ACTIONS(4493),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4495),
+    [anon_sym_LBRACK] = ACTIONS(4495),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4495),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4495),
+    [aux_sym_null_literal_token1] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4493),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4493),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4493),
+    [aux_sym_identifier_token1] = ACTIONS(4493),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
+    [sym__integer_literal] = ACTIONS(4495),
+    [sym__float_literal] = ACTIONS(4495),
+    [sym__boz_literal] = ACTIONS(4495),
+    [sym__string_literal] = ACTIONS(4495),
+    [sym__string_literal_kind] = ACTIONS(4495),
   },
-  [991] = {
-    [ts_builtin_sym_end] = ACTIONS(4603),
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4601),
-    [aux_sym_module_statement_token1] = ACTIONS(4601),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_function_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+  [985] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4505),
+    [aux_sym_preproc_def_token1] = ACTIONS(4505),
+    [aux_sym_preproc_if_token1] = ACTIONS(4505),
+    [aux_sym_preproc_if_token2] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4505),
+    [sym_preproc_directive] = ACTIONS(4505),
+    [anon_sym_LPAREN2] = ACTIONS(4505),
+    [anon_sym_PLUS] = ACTIONS(4507),
+    [anon_sym_DASH] = ACTIONS(4507),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4505),
+    [aux_sym_module_statement_token1] = ACTIONS(4505),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4505),
+    [aux_sym_interface_statement_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4505),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4505),
+    [aux_sym_function_statement_token1] = ACTIONS(4505),
+    [aux_sym_language_binding_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4505),
+    [aux_sym_contains_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token2] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4505),
+    [aux_sym_save_statement_token1] = ACTIONS(4505),
+    [aux_sym_private_statement_token1] = ACTIONS(4505),
+    [aux_sym_public_statement_token1] = ACTIONS(4505),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4505),
+    [aux_sym_common_statement_token1] = ACTIONS(4505),
+    [aux_sym_import_statement_token1] = ACTIONS(4505),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4505),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4505),
+    [aux_sym_derived_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4505),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4505),
+    [anon_sym_SEMI] = ACTIONS(4507),
+    [aux_sym_stop_statement_token1] = ACTIONS(4505),
+    [aux_sym_stop_statement_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4505),
+    [aux_sym_include_statement_token1] = ACTIONS(4505),
+    [aux_sym_data_statement_token1] = ACTIONS(4505),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4505),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4505),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4505),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4505),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4505),
+    [aux_sym_block_construct_token1] = ACTIONS(4505),
+    [aux_sym_associate_statement_token1] = ACTIONS(4505),
+    [aux_sym_format_statement_token1] = ACTIONS(4505),
+    [aux_sym_print_statement_token1] = ACTIONS(4505),
+    [aux_sym_open_statement_token1] = ACTIONS(4505),
+    [aux_sym_close_statement_token1] = ACTIONS(4505),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4505),
+    [aux_sym_enum_statement_token1] = ACTIONS(4505),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4505),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4505),
+    [aux_sym_entry_statement_token1] = ACTIONS(4505),
+    [aux_sym_logical_expression_token5] = ACTIONS(4507),
+    [anon_sym_DOT] = ACTIONS(4505),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4507),
+    [anon_sym_LBRACK] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4507),
+    [aux_sym_null_literal_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4505),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4505),
+    [aux_sym_identifier_token1] = ACTIONS(4505),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4507),
+    [sym__float_literal] = ACTIONS(4507),
+    [sym__boz_literal] = ACTIONS(4507),
+    [sym__string_literal] = ACTIONS(4507),
+    [sym__string_literal_kind] = ACTIONS(4507),
   },
-  [992] = {
-    [ts_builtin_sym_end] = ACTIONS(4631),
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_module_statement_token1] = ACTIONS(4629),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_function_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+  [986] = {
+    [ts_builtin_sym_end] = ACTIONS(4491),
+    [aux_sym_preproc_include_token1] = ACTIONS(4489),
+    [aux_sym_preproc_def_token1] = ACTIONS(4489),
+    [aux_sym_preproc_if_token1] = ACTIONS(4489),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4489),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4489),
+    [sym_preproc_directive] = ACTIONS(4489),
+    [anon_sym_LPAREN2] = ACTIONS(4489),
+    [anon_sym_PLUS] = ACTIONS(4491),
+    [anon_sym_DASH] = ACTIONS(4491),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4489),
+    [aux_sym_module_statement_token1] = ACTIONS(4489),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4489),
+    [aux_sym_interface_statement_token1] = ACTIONS(4489),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4489),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4489),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4489),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4489),
+    [aux_sym_function_statement_token1] = ACTIONS(4489),
+    [aux_sym_language_binding_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4489),
+    [aux_sym_contains_statement_token1] = ACTIONS(4489),
+    [aux_sym_use_statement_token1] = ACTIONS(4489),
+    [aux_sym_use_statement_token2] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4489),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4489),
+    [aux_sym_save_statement_token1] = ACTIONS(4489),
+    [aux_sym_private_statement_token1] = ACTIONS(4489),
+    [aux_sym_public_statement_token1] = ACTIONS(4489),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4489),
+    [aux_sym_common_statement_token1] = ACTIONS(4489),
+    [aux_sym_import_statement_token1] = ACTIONS(4489),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4489),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4489),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4489),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4489),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4489),
+    [aux_sym_derived_type_token1] = ACTIONS(4489),
+    [aux_sym_declared_type_token1] = ACTIONS(4489),
+    [aux_sym_declared_type_token2] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4489),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4489),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4489),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4489),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4489),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4489),
+    [anon_sym_SEMI] = ACTIONS(4491),
+    [aux_sym_stop_statement_token1] = ACTIONS(4489),
+    [aux_sym_stop_statement_token2] = ACTIONS(4489),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4489),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4489),
+    [aux_sym_include_statement_token1] = ACTIONS(4489),
+    [aux_sym_data_statement_token1] = ACTIONS(4489),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4489),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4489),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4489),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4489),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4489),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4489),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4489),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4489),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4489),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4489),
+    [aux_sym_block_construct_token1] = ACTIONS(4489),
+    [aux_sym_associate_statement_token1] = ACTIONS(4489),
+    [aux_sym_format_statement_token1] = ACTIONS(4489),
+    [aux_sym_print_statement_token1] = ACTIONS(4489),
+    [aux_sym_open_statement_token1] = ACTIONS(4489),
+    [aux_sym_close_statement_token1] = ACTIONS(4489),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4489),
+    [aux_sym_enum_statement_token1] = ACTIONS(4489),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4489),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4489),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4489),
+    [aux_sym_entry_statement_token1] = ACTIONS(4489),
+    [aux_sym_logical_expression_token5] = ACTIONS(4491),
+    [anon_sym_DOT] = ACTIONS(4489),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4491),
+    [anon_sym_LBRACK] = ACTIONS(4491),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4491),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4491),
+    [aux_sym_null_literal_token1] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4489),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4489),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4489),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4489),
+    [aux_sym_identifier_token1] = ACTIONS(4489),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(4491),
+    [sym__float_literal] = ACTIONS(4491),
+    [sym__boz_literal] = ACTIONS(4491),
+    [sym__string_literal] = ACTIONS(4491),
+    [sym__string_literal_kind] = ACTIONS(4491),
   },
-  [993] = {
-    [ts_builtin_sym_end] = ACTIONS(4443),
-    [aux_sym_preproc_include_token1] = ACTIONS(4441),
-    [aux_sym_preproc_def_token1] = ACTIONS(4441),
-    [aux_sym_preproc_if_token1] = ACTIONS(4441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4441),
-    [sym_preproc_directive] = ACTIONS(4441),
-    [anon_sym_LPAREN2] = ACTIONS(4441),
-    [anon_sym_PLUS] = ACTIONS(4443),
-    [anon_sym_DASH] = ACTIONS(4443),
+  [987] = {
+    [ts_builtin_sym_end] = ACTIONS(4455),
+    [aux_sym_preproc_include_token1] = ACTIONS(4453),
+    [aux_sym_preproc_def_token1] = ACTIONS(4453),
+    [aux_sym_preproc_if_token1] = ACTIONS(4453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4453),
+    [sym_preproc_directive] = ACTIONS(4453),
+    [anon_sym_LPAREN2] = ACTIONS(4453),
+    [anon_sym_PLUS] = ACTIONS(4455),
+    [anon_sym_DASH] = ACTIONS(4455),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4441),
-    [aux_sym_module_statement_token1] = ACTIONS(4441),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4441),
-    [aux_sym_interface_statement_token1] = ACTIONS(4441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4441),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4441),
-    [aux_sym_function_statement_token1] = ACTIONS(4441),
-    [aux_sym_language_binding_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4441),
-    [aux_sym_contains_statement_token1] = ACTIONS(4441),
-    [aux_sym_use_statement_token1] = ACTIONS(4441),
-    [aux_sym_use_statement_token2] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4441),
-    [aux_sym_save_statement_token1] = ACTIONS(4441),
-    [aux_sym_private_statement_token1] = ACTIONS(4441),
-    [aux_sym_public_statement_token1] = ACTIONS(4441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4441),
-    [aux_sym_common_statement_token1] = ACTIONS(4441),
-    [aux_sym_import_statement_token1] = ACTIONS(4441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4441),
-    [aux_sym_derived_type_token1] = ACTIONS(4441),
-    [aux_sym_declared_type_token1] = ACTIONS(4441),
-    [aux_sym_declared_type_token2] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4441),
-    [anon_sym_SEMI] = ACTIONS(4443),
-    [aux_sym_stop_statement_token1] = ACTIONS(4441),
-    [aux_sym_stop_statement_token2] = ACTIONS(4441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4441),
-    [aux_sym_include_statement_token1] = ACTIONS(4441),
-    [aux_sym_data_statement_token1] = ACTIONS(4441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4441),
-    [aux_sym_block_construct_token1] = ACTIONS(4441),
-    [aux_sym_associate_statement_token1] = ACTIONS(4441),
-    [aux_sym_format_statement_token1] = ACTIONS(4441),
-    [aux_sym_print_statement_token1] = ACTIONS(4441),
-    [aux_sym_open_statement_token1] = ACTIONS(4441),
-    [aux_sym_close_statement_token1] = ACTIONS(4441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4441),
-    [aux_sym_enum_statement_token1] = ACTIONS(4441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4441),
-    [aux_sym_entry_statement_token1] = ACTIONS(4441),
-    [aux_sym_logical_expression_token5] = ACTIONS(4443),
-    [anon_sym_DOT] = ACTIONS(4441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4443),
-    [anon_sym_LBRACK] = ACTIONS(4443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4443),
-    [aux_sym_null_literal_token1] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4441),
-    [aux_sym_identifier_token1] = ACTIONS(4441),
+    [aux_sym_program_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4453),
+    [aux_sym_module_statement_token1] = ACTIONS(4453),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4453),
+    [aux_sym_interface_statement_token1] = ACTIONS(4453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4453),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4453),
+    [aux_sym_function_statement_token1] = ACTIONS(4453),
+    [aux_sym_language_binding_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4453),
+    [aux_sym_contains_statement_token1] = ACTIONS(4453),
+    [aux_sym_use_statement_token1] = ACTIONS(4453),
+    [aux_sym_use_statement_token2] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4453),
+    [aux_sym_save_statement_token1] = ACTIONS(4453),
+    [aux_sym_private_statement_token1] = ACTIONS(4453),
+    [aux_sym_public_statement_token1] = ACTIONS(4453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4453),
+    [aux_sym_common_statement_token1] = ACTIONS(4453),
+    [aux_sym_import_statement_token1] = ACTIONS(4453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4453),
+    [aux_sym_derived_type_token1] = ACTIONS(4453),
+    [aux_sym_declared_type_token1] = ACTIONS(4453),
+    [aux_sym_declared_type_token2] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4453),
+    [anon_sym_SEMI] = ACTIONS(4455),
+    [aux_sym_stop_statement_token1] = ACTIONS(4453),
+    [aux_sym_stop_statement_token2] = ACTIONS(4453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4453),
+    [aux_sym_include_statement_token1] = ACTIONS(4453),
+    [aux_sym_data_statement_token1] = ACTIONS(4453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4453),
+    [aux_sym_block_construct_token1] = ACTIONS(4453),
+    [aux_sym_associate_statement_token1] = ACTIONS(4453),
+    [aux_sym_format_statement_token1] = ACTIONS(4453),
+    [aux_sym_print_statement_token1] = ACTIONS(4453),
+    [aux_sym_open_statement_token1] = ACTIONS(4453),
+    [aux_sym_close_statement_token1] = ACTIONS(4453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4453),
+    [aux_sym_enum_statement_token1] = ACTIONS(4453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4453),
+    [aux_sym_entry_statement_token1] = ACTIONS(4453),
+    [aux_sym_logical_expression_token5] = ACTIONS(4455),
+    [anon_sym_DOT] = ACTIONS(4453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4455),
+    [anon_sym_LBRACK] = ACTIONS(4455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4455),
+    [aux_sym_null_literal_token1] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4453),
+    [aux_sym_identifier_token1] = ACTIONS(4453),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4443),
-    [sym__float_literal] = ACTIONS(4443),
-    [sym__boz_literal] = ACTIONS(4443),
-    [sym__string_literal] = ACTIONS(4443),
-    [sym__string_literal_kind] = ACTIONS(4443),
+    [sym__integer_literal] = ACTIONS(4455),
+    [sym__float_literal] = ACTIONS(4455),
+    [sym__boz_literal] = ACTIONS(4455),
+    [sym__string_literal] = ACTIONS(4455),
+    [sym__string_literal_kind] = ACTIONS(4455),
   },
-  [994] = {
-    [ts_builtin_sym_end] = ACTIONS(4447),
+  [988] = {
+    [ts_builtin_sym_end] = ACTIONS(4479),
+    [aux_sym_preproc_include_token1] = ACTIONS(4477),
+    [aux_sym_preproc_def_token1] = ACTIONS(4477),
+    [aux_sym_preproc_if_token1] = ACTIONS(4477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4477),
+    [sym_preproc_directive] = ACTIONS(4477),
+    [anon_sym_LPAREN2] = ACTIONS(4477),
+    [anon_sym_PLUS] = ACTIONS(4479),
+    [anon_sym_DASH] = ACTIONS(4479),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4477),
+    [aux_sym_module_statement_token1] = ACTIONS(4477),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4477),
+    [aux_sym_interface_statement_token1] = ACTIONS(4477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4477),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4477),
+    [aux_sym_function_statement_token1] = ACTIONS(4477),
+    [aux_sym_language_binding_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4477),
+    [aux_sym_contains_statement_token1] = ACTIONS(4477),
+    [aux_sym_use_statement_token1] = ACTIONS(4477),
+    [aux_sym_use_statement_token2] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4477),
+    [aux_sym_save_statement_token1] = ACTIONS(4477),
+    [aux_sym_private_statement_token1] = ACTIONS(4477),
+    [aux_sym_public_statement_token1] = ACTIONS(4477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4477),
+    [aux_sym_common_statement_token1] = ACTIONS(4477),
+    [aux_sym_import_statement_token1] = ACTIONS(4477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4477),
+    [aux_sym_derived_type_token1] = ACTIONS(4477),
+    [aux_sym_declared_type_token1] = ACTIONS(4477),
+    [aux_sym_declared_type_token2] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4477),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4477),
+    [anon_sym_SEMI] = ACTIONS(4479),
+    [aux_sym_stop_statement_token1] = ACTIONS(4477),
+    [aux_sym_stop_statement_token2] = ACTIONS(4477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4477),
+    [aux_sym_include_statement_token1] = ACTIONS(4477),
+    [aux_sym_data_statement_token1] = ACTIONS(4477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4477),
+    [aux_sym_block_construct_token1] = ACTIONS(4477),
+    [aux_sym_associate_statement_token1] = ACTIONS(4477),
+    [aux_sym_format_statement_token1] = ACTIONS(4477),
+    [aux_sym_print_statement_token1] = ACTIONS(4477),
+    [aux_sym_open_statement_token1] = ACTIONS(4477),
+    [aux_sym_close_statement_token1] = ACTIONS(4477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4477),
+    [aux_sym_enum_statement_token1] = ACTIONS(4477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4477),
+    [aux_sym_entry_statement_token1] = ACTIONS(4477),
+    [aux_sym_logical_expression_token5] = ACTIONS(4479),
+    [anon_sym_DOT] = ACTIONS(4477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4479),
+    [anon_sym_LBRACK] = ACTIONS(4479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4479),
+    [aux_sym_null_literal_token1] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4477),
+    [aux_sym_identifier_token1] = ACTIONS(4477),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4479),
+    [sym__float_literal] = ACTIONS(4479),
+    [sym__boz_literal] = ACTIONS(4479),
+    [sym__string_literal] = ACTIONS(4479),
+    [sym__string_literal_kind] = ACTIONS(4479),
+  },
+  [989] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4433),
+    [aux_sym_preproc_def_token1] = ACTIONS(4433),
+    [aux_sym_preproc_if_token1] = ACTIONS(4433),
+    [aux_sym_preproc_if_token2] = ACTIONS(4433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4433),
+    [sym_preproc_directive] = ACTIONS(4433),
+    [anon_sym_LPAREN2] = ACTIONS(4433),
+    [anon_sym_PLUS] = ACTIONS(4435),
+    [anon_sym_DASH] = ACTIONS(4435),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4433),
+    [aux_sym_module_statement_token1] = ACTIONS(4433),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4433),
+    [aux_sym_interface_statement_token1] = ACTIONS(4433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4433),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4433),
+    [aux_sym_function_statement_token1] = ACTIONS(4433),
+    [aux_sym_language_binding_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4433),
+    [aux_sym_contains_statement_token1] = ACTIONS(4433),
+    [aux_sym_use_statement_token1] = ACTIONS(4433),
+    [aux_sym_use_statement_token2] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4433),
+    [aux_sym_save_statement_token1] = ACTIONS(4433),
+    [aux_sym_private_statement_token1] = ACTIONS(4433),
+    [aux_sym_public_statement_token1] = ACTIONS(4433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4433),
+    [aux_sym_common_statement_token1] = ACTIONS(4433),
+    [aux_sym_import_statement_token1] = ACTIONS(4433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4433),
+    [aux_sym_derived_type_token1] = ACTIONS(4433),
+    [aux_sym_declared_type_token1] = ACTIONS(4433),
+    [aux_sym_declared_type_token2] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4433),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4433),
+    [anon_sym_SEMI] = ACTIONS(4435),
+    [aux_sym_stop_statement_token1] = ACTIONS(4433),
+    [aux_sym_stop_statement_token2] = ACTIONS(4433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4433),
+    [aux_sym_include_statement_token1] = ACTIONS(4433),
+    [aux_sym_data_statement_token1] = ACTIONS(4433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4433),
+    [aux_sym_block_construct_token1] = ACTIONS(4433),
+    [aux_sym_associate_statement_token1] = ACTIONS(4433),
+    [aux_sym_format_statement_token1] = ACTIONS(4433),
+    [aux_sym_print_statement_token1] = ACTIONS(4433),
+    [aux_sym_open_statement_token1] = ACTIONS(4433),
+    [aux_sym_close_statement_token1] = ACTIONS(4433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4433),
+    [aux_sym_enum_statement_token1] = ACTIONS(4433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4433),
+    [aux_sym_entry_statement_token1] = ACTIONS(4433),
+    [aux_sym_logical_expression_token5] = ACTIONS(4435),
+    [anon_sym_DOT] = ACTIONS(4433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4435),
+    [anon_sym_LBRACK] = ACTIONS(4435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4435),
+    [aux_sym_null_literal_token1] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4433),
+    [aux_sym_identifier_token1] = ACTIONS(4433),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4435),
+    [sym__float_literal] = ACTIONS(4435),
+    [sym__boz_literal] = ACTIONS(4435),
+    [sym__string_literal] = ACTIONS(4435),
+    [sym__string_literal_kind] = ACTIONS(4435),
+  },
+  [990] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4445),
     [aux_sym_preproc_def_token1] = ACTIONS(4445),
     [aux_sym_preproc_if_token1] = ACTIONS(4445),
+    [aux_sym_preproc_if_token2] = ACTIONS(4445),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4445),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4445),
     [sym_preproc_directive] = ACTIONS(4445),
@@ -232312,1766 +231607,74 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4447),
     [sym__string_literal_kind] = ACTIONS(4447),
   },
-  [995] = {
-    [ts_builtin_sym_end] = ACTIONS(4471),
-    [aux_sym_preproc_include_token1] = ACTIONS(4469),
-    [aux_sym_preproc_def_token1] = ACTIONS(4469),
-    [aux_sym_preproc_if_token1] = ACTIONS(4469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
-    [sym_preproc_directive] = ACTIONS(4469),
-    [anon_sym_LPAREN2] = ACTIONS(4469),
-    [anon_sym_PLUS] = ACTIONS(4471),
-    [anon_sym_DASH] = ACTIONS(4471),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
-    [aux_sym_module_statement_token1] = ACTIONS(4469),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4469),
-    [aux_sym_interface_statement_token1] = ACTIONS(4469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
-    [aux_sym_function_statement_token1] = ACTIONS(4469),
-    [aux_sym_language_binding_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
-    [aux_sym_contains_statement_token1] = ACTIONS(4469),
-    [aux_sym_use_statement_token1] = ACTIONS(4469),
-    [aux_sym_use_statement_token2] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
-    [aux_sym_save_statement_token1] = ACTIONS(4469),
-    [aux_sym_private_statement_token1] = ACTIONS(4469),
-    [aux_sym_public_statement_token1] = ACTIONS(4469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
-    [aux_sym_common_statement_token1] = ACTIONS(4469),
-    [aux_sym_import_statement_token1] = ACTIONS(4469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
-    [aux_sym_derived_type_token1] = ACTIONS(4469),
-    [aux_sym_declared_type_token1] = ACTIONS(4469),
-    [aux_sym_declared_type_token2] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
-    [anon_sym_SEMI] = ACTIONS(4471),
-    [aux_sym_stop_statement_token1] = ACTIONS(4469),
-    [aux_sym_stop_statement_token2] = ACTIONS(4469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
-    [aux_sym_include_statement_token1] = ACTIONS(4469),
-    [aux_sym_data_statement_token1] = ACTIONS(4469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
-    [aux_sym_block_construct_token1] = ACTIONS(4469),
-    [aux_sym_associate_statement_token1] = ACTIONS(4469),
-    [aux_sym_format_statement_token1] = ACTIONS(4469),
-    [aux_sym_print_statement_token1] = ACTIONS(4469),
-    [aux_sym_open_statement_token1] = ACTIONS(4469),
-    [aux_sym_close_statement_token1] = ACTIONS(4469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
-    [aux_sym_enum_statement_token1] = ACTIONS(4469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
-    [aux_sym_entry_statement_token1] = ACTIONS(4469),
-    [aux_sym_logical_expression_token5] = ACTIONS(4471),
-    [anon_sym_DOT] = ACTIONS(4469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
-    [anon_sym_LBRACK] = ACTIONS(4471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
-    [aux_sym_null_literal_token1] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
-    [aux_sym_identifier_token1] = ACTIONS(4469),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4471),
-    [sym__float_literal] = ACTIONS(4471),
-    [sym__boz_literal] = ACTIONS(4471),
-    [sym__string_literal] = ACTIONS(4471),
-    [sym__string_literal_kind] = ACTIONS(4471),
-  },
-  [996] = {
-    [ts_builtin_sym_end] = ACTIONS(4521),
-    [aux_sym_preproc_include_token1] = ACTIONS(4519),
-    [aux_sym_preproc_def_token1] = ACTIONS(4519),
-    [aux_sym_preproc_if_token1] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4519),
-    [sym_preproc_directive] = ACTIONS(4519),
-    [anon_sym_LPAREN2] = ACTIONS(4519),
-    [anon_sym_PLUS] = ACTIONS(4521),
-    [anon_sym_DASH] = ACTIONS(4521),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4519),
-    [aux_sym_module_statement_token1] = ACTIONS(4519),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4519),
-    [aux_sym_interface_statement_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4519),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4519),
-    [aux_sym_function_statement_token1] = ACTIONS(4519),
-    [aux_sym_language_binding_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4519),
-    [aux_sym_contains_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token2] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4519),
-    [aux_sym_save_statement_token1] = ACTIONS(4519),
-    [aux_sym_private_statement_token1] = ACTIONS(4519),
-    [aux_sym_public_statement_token1] = ACTIONS(4519),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4519),
-    [aux_sym_common_statement_token1] = ACTIONS(4519),
-    [aux_sym_import_statement_token1] = ACTIONS(4519),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4519),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4519),
-    [aux_sym_derived_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4519),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4519),
-    [anon_sym_SEMI] = ACTIONS(4521),
-    [aux_sym_stop_statement_token1] = ACTIONS(4519),
-    [aux_sym_stop_statement_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4519),
-    [aux_sym_include_statement_token1] = ACTIONS(4519),
-    [aux_sym_data_statement_token1] = ACTIONS(4519),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4519),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4519),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4519),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4519),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4519),
-    [aux_sym_block_construct_token1] = ACTIONS(4519),
-    [aux_sym_associate_statement_token1] = ACTIONS(4519),
-    [aux_sym_format_statement_token1] = ACTIONS(4519),
-    [aux_sym_print_statement_token1] = ACTIONS(4519),
-    [aux_sym_open_statement_token1] = ACTIONS(4519),
-    [aux_sym_close_statement_token1] = ACTIONS(4519),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4519),
-    [aux_sym_enum_statement_token1] = ACTIONS(4519),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4519),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4519),
-    [aux_sym_entry_statement_token1] = ACTIONS(4519),
-    [aux_sym_logical_expression_token5] = ACTIONS(4521),
-    [anon_sym_DOT] = ACTIONS(4519),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4521),
-    [anon_sym_LBRACK] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4521),
-    [aux_sym_null_literal_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4519),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4519),
-    [aux_sym_identifier_token1] = ACTIONS(4519),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4521),
-    [sym__float_literal] = ACTIONS(4521),
-    [sym__boz_literal] = ACTIONS(4521),
-    [sym__string_literal] = ACTIONS(4521),
-    [sym__string_literal_kind] = ACTIONS(4521),
-  },
-  [997] = {
-    [ts_builtin_sym_end] = ACTIONS(4377),
-    [aux_sym_preproc_include_token1] = ACTIONS(4373),
-    [aux_sym_preproc_def_token1] = ACTIONS(4373),
-    [aux_sym_preproc_if_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4373),
-    [sym_preproc_directive] = ACTIONS(4373),
-    [anon_sym_LPAREN2] = ACTIONS(4373),
-    [anon_sym_PLUS] = ACTIONS(4377),
-    [anon_sym_DASH] = ACTIONS(4377),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4373),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4373),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4373),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4373),
-    [aux_sym_contains_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token1] = ACTIONS(4373),
-    [aux_sym_use_statement_token2] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4373),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4373),
-    [aux_sym_save_statement_token1] = ACTIONS(4373),
-    [aux_sym_private_statement_token1] = ACTIONS(4373),
-    [aux_sym_public_statement_token1] = ACTIONS(4373),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4373),
-    [aux_sym_common_statement_token1] = ACTIONS(4373),
-    [aux_sym_import_statement_token1] = ACTIONS(4373),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4373),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4373),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4373),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4373),
-    [aux_sym_derived_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token1] = ACTIONS(4373),
-    [aux_sym_declared_type_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4373),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4373),
-    [anon_sym_SEMI] = ACTIONS(4377),
-    [aux_sym_stop_statement_token1] = ACTIONS(4373),
-    [aux_sym_stop_statement_token2] = ACTIONS(4373),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4373),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4373),
-    [aux_sym_include_statement_token1] = ACTIONS(4373),
-    [aux_sym_data_statement_token1] = ACTIONS(4373),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4373),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4373),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4373),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4373),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4373),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4373),
-    [aux_sym_block_construct_token1] = ACTIONS(4373),
-    [aux_sym_associate_statement_token1] = ACTIONS(4373),
-    [aux_sym_format_statement_token1] = ACTIONS(4373),
-    [aux_sym_print_statement_token1] = ACTIONS(4373),
-    [aux_sym_open_statement_token1] = ACTIONS(4373),
-    [aux_sym_close_statement_token1] = ACTIONS(4373),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4373),
-    [aux_sym_enum_statement_token1] = ACTIONS(4373),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4373),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4373),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4373),
-    [aux_sym_entry_statement_token1] = ACTIONS(4373),
-    [aux_sym_logical_expression_token5] = ACTIONS(4377),
-    [anon_sym_DOT] = ACTIONS(4373),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4377),
-    [anon_sym_LBRACK] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4377),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4377),
-    [aux_sym_null_literal_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4373),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4373),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4373),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4373),
-    [aux_sym_identifier_token1] = ACTIONS(4373),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4377),
-    [sym__float_literal] = ACTIONS(4377),
-    [sym__boz_literal] = ACTIONS(4377),
-    [sym__string_literal] = ACTIONS(4377),
-    [sym__string_literal_kind] = ACTIONS(4377),
-  },
-  [998] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4545),
-    [aux_sym_preproc_def_token1] = ACTIONS(4545),
-    [aux_sym_preproc_if_token1] = ACTIONS(4545),
-    [aux_sym_preproc_if_token2] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4545),
-    [sym_preproc_directive] = ACTIONS(4545),
-    [anon_sym_LPAREN2] = ACTIONS(4545),
-    [anon_sym_PLUS] = ACTIONS(4547),
-    [anon_sym_DASH] = ACTIONS(4547),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4545),
-    [aux_sym_module_statement_token1] = ACTIONS(4545),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4545),
-    [aux_sym_interface_statement_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4545),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4545),
-    [aux_sym_function_statement_token1] = ACTIONS(4545),
-    [aux_sym_language_binding_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4545),
-    [aux_sym_contains_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token2] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4545),
-    [aux_sym_save_statement_token1] = ACTIONS(4545),
-    [aux_sym_private_statement_token1] = ACTIONS(4545),
-    [aux_sym_public_statement_token1] = ACTIONS(4545),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4545),
-    [aux_sym_common_statement_token1] = ACTIONS(4545),
-    [aux_sym_import_statement_token1] = ACTIONS(4545),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4545),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4545),
-    [aux_sym_derived_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4545),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4545),
-    [anon_sym_SEMI] = ACTIONS(4547),
-    [aux_sym_stop_statement_token1] = ACTIONS(4545),
-    [aux_sym_stop_statement_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4545),
-    [aux_sym_include_statement_token1] = ACTIONS(4545),
-    [aux_sym_data_statement_token1] = ACTIONS(4545),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4545),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4545),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4545),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4545),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4545),
-    [aux_sym_block_construct_token1] = ACTIONS(4545),
-    [aux_sym_associate_statement_token1] = ACTIONS(4545),
-    [aux_sym_format_statement_token1] = ACTIONS(4545),
-    [aux_sym_print_statement_token1] = ACTIONS(4545),
-    [aux_sym_open_statement_token1] = ACTIONS(4545),
-    [aux_sym_close_statement_token1] = ACTIONS(4545),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4545),
-    [aux_sym_enum_statement_token1] = ACTIONS(4545),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4545),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4545),
-    [aux_sym_entry_statement_token1] = ACTIONS(4545),
-    [aux_sym_logical_expression_token5] = ACTIONS(4547),
-    [anon_sym_DOT] = ACTIONS(4545),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4547),
-    [anon_sym_LBRACK] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4547),
-    [aux_sym_null_literal_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4545),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4545),
-    [aux_sym_identifier_token1] = ACTIONS(4545),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4547),
-    [sym__float_literal] = ACTIONS(4547),
-    [sym__boz_literal] = ACTIONS(4547),
-    [sym__string_literal] = ACTIONS(4547),
-    [sym__string_literal_kind] = ACTIONS(4547),
-  },
-  [999] = {
-    [ts_builtin_sym_end] = ACTIONS(4377),
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1000] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4561),
-    [aux_sym_preproc_def_token1] = ACTIONS(4561),
-    [aux_sym_preproc_if_token1] = ACTIONS(4561),
-    [aux_sym_preproc_if_token2] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4561),
-    [sym_preproc_directive] = ACTIONS(4561),
-    [anon_sym_LPAREN2] = ACTIONS(4561),
-    [anon_sym_PLUS] = ACTIONS(4563),
-    [anon_sym_DASH] = ACTIONS(4563),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4561),
-    [aux_sym_module_statement_token1] = ACTIONS(4561),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4561),
-    [aux_sym_interface_statement_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4561),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4561),
-    [aux_sym_function_statement_token1] = ACTIONS(4561),
-    [aux_sym_language_binding_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4561),
-    [aux_sym_contains_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token2] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4561),
-    [aux_sym_save_statement_token1] = ACTIONS(4561),
-    [aux_sym_private_statement_token1] = ACTIONS(4561),
-    [aux_sym_public_statement_token1] = ACTIONS(4561),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4561),
-    [aux_sym_common_statement_token1] = ACTIONS(4561),
-    [aux_sym_import_statement_token1] = ACTIONS(4561),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4561),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4561),
-    [aux_sym_derived_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4561),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4561),
-    [anon_sym_SEMI] = ACTIONS(4563),
-    [aux_sym_stop_statement_token1] = ACTIONS(4561),
-    [aux_sym_stop_statement_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4561),
-    [aux_sym_include_statement_token1] = ACTIONS(4561),
-    [aux_sym_data_statement_token1] = ACTIONS(4561),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4561),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4561),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4561),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4561),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4561),
-    [aux_sym_block_construct_token1] = ACTIONS(4561),
-    [aux_sym_associate_statement_token1] = ACTIONS(4561),
-    [aux_sym_format_statement_token1] = ACTIONS(4561),
-    [aux_sym_print_statement_token1] = ACTIONS(4561),
-    [aux_sym_open_statement_token1] = ACTIONS(4561),
-    [aux_sym_close_statement_token1] = ACTIONS(4561),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4561),
-    [aux_sym_enum_statement_token1] = ACTIONS(4561),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4561),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4561),
-    [aux_sym_entry_statement_token1] = ACTIONS(4561),
-    [aux_sym_logical_expression_token5] = ACTIONS(4563),
-    [anon_sym_DOT] = ACTIONS(4561),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4563),
-    [anon_sym_LBRACK] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4563),
-    [aux_sym_null_literal_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4561),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4561),
-    [aux_sym_identifier_token1] = ACTIONS(4561),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4563),
-    [sym__float_literal] = ACTIONS(4563),
-    [sym__boz_literal] = ACTIONS(4563),
-    [sym__string_literal] = ACTIONS(4563),
-    [sym__string_literal_kind] = ACTIONS(4563),
-  },
-  [1001] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4565),
-    [aux_sym_preproc_def_token1] = ACTIONS(4565),
-    [aux_sym_preproc_if_token1] = ACTIONS(4565),
-    [aux_sym_preproc_if_token2] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4565),
-    [sym_preproc_directive] = ACTIONS(4565),
-    [anon_sym_LPAREN2] = ACTIONS(4565),
-    [anon_sym_PLUS] = ACTIONS(4567),
-    [anon_sym_DASH] = ACTIONS(4567),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4565),
-    [aux_sym_module_statement_token1] = ACTIONS(4565),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4565),
-    [aux_sym_interface_statement_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4565),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4565),
-    [aux_sym_function_statement_token1] = ACTIONS(4565),
-    [aux_sym_language_binding_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4565),
-    [aux_sym_contains_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token2] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4565),
-    [aux_sym_save_statement_token1] = ACTIONS(4565),
-    [aux_sym_private_statement_token1] = ACTIONS(4565),
-    [aux_sym_public_statement_token1] = ACTIONS(4565),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4565),
-    [aux_sym_common_statement_token1] = ACTIONS(4565),
-    [aux_sym_import_statement_token1] = ACTIONS(4565),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4565),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4565),
-    [aux_sym_derived_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4565),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4565),
-    [anon_sym_SEMI] = ACTIONS(4567),
-    [aux_sym_stop_statement_token1] = ACTIONS(4565),
-    [aux_sym_stop_statement_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4565),
-    [aux_sym_include_statement_token1] = ACTIONS(4565),
-    [aux_sym_data_statement_token1] = ACTIONS(4565),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4565),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4565),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4565),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4565),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4565),
-    [aux_sym_block_construct_token1] = ACTIONS(4565),
-    [aux_sym_associate_statement_token1] = ACTIONS(4565),
-    [aux_sym_format_statement_token1] = ACTIONS(4565),
-    [aux_sym_print_statement_token1] = ACTIONS(4565),
-    [aux_sym_open_statement_token1] = ACTIONS(4565),
-    [aux_sym_close_statement_token1] = ACTIONS(4565),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4565),
-    [aux_sym_enum_statement_token1] = ACTIONS(4565),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4565),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4565),
-    [aux_sym_entry_statement_token1] = ACTIONS(4565),
-    [aux_sym_logical_expression_token5] = ACTIONS(4567),
-    [anon_sym_DOT] = ACTIONS(4565),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4567),
-    [anon_sym_LBRACK] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4567),
-    [aux_sym_null_literal_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4565),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4565),
-    [aux_sym_identifier_token1] = ACTIONS(4565),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4567),
-    [sym__float_literal] = ACTIONS(4567),
-    [sym__boz_literal] = ACTIONS(4567),
-    [sym__string_literal] = ACTIONS(4567),
-    [sym__string_literal_kind] = ACTIONS(4567),
-  },
-  [1002] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4569),
-    [aux_sym_preproc_def_token1] = ACTIONS(4569),
-    [aux_sym_preproc_if_token1] = ACTIONS(4569),
-    [aux_sym_preproc_if_token2] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4569),
-    [sym_preproc_directive] = ACTIONS(4569),
-    [anon_sym_LPAREN2] = ACTIONS(4569),
-    [anon_sym_PLUS] = ACTIONS(4571),
-    [anon_sym_DASH] = ACTIONS(4571),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4569),
-    [aux_sym_module_statement_token1] = ACTIONS(4569),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4569),
-    [aux_sym_interface_statement_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4569),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4569),
-    [aux_sym_function_statement_token1] = ACTIONS(4569),
-    [aux_sym_language_binding_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4569),
-    [aux_sym_contains_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token2] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4569),
-    [aux_sym_save_statement_token1] = ACTIONS(4569),
-    [aux_sym_private_statement_token1] = ACTIONS(4569),
-    [aux_sym_public_statement_token1] = ACTIONS(4569),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4569),
-    [aux_sym_common_statement_token1] = ACTIONS(4569),
-    [aux_sym_import_statement_token1] = ACTIONS(4569),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4569),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4569),
-    [aux_sym_derived_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4569),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4569),
-    [anon_sym_SEMI] = ACTIONS(4571),
-    [aux_sym_stop_statement_token1] = ACTIONS(4569),
-    [aux_sym_stop_statement_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4569),
-    [aux_sym_include_statement_token1] = ACTIONS(4569),
-    [aux_sym_data_statement_token1] = ACTIONS(4569),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4569),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4569),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4569),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4569),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4569),
-    [aux_sym_block_construct_token1] = ACTIONS(4569),
-    [aux_sym_associate_statement_token1] = ACTIONS(4569),
-    [aux_sym_format_statement_token1] = ACTIONS(4569),
-    [aux_sym_print_statement_token1] = ACTIONS(4569),
-    [aux_sym_open_statement_token1] = ACTIONS(4569),
-    [aux_sym_close_statement_token1] = ACTIONS(4569),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4569),
-    [aux_sym_enum_statement_token1] = ACTIONS(4569),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4569),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4569),
-    [aux_sym_entry_statement_token1] = ACTIONS(4569),
-    [aux_sym_logical_expression_token5] = ACTIONS(4571),
-    [anon_sym_DOT] = ACTIONS(4569),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4571),
-    [anon_sym_LBRACK] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4571),
-    [aux_sym_null_literal_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4569),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4569),
-    [aux_sym_identifier_token1] = ACTIONS(4569),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4571),
-    [sym__float_literal] = ACTIONS(4571),
-    [sym__boz_literal] = ACTIONS(4571),
-    [sym__string_literal] = ACTIONS(4571),
-    [sym__string_literal_kind] = ACTIONS(4571),
-  },
-  [1003] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4573),
-    [aux_sym_preproc_def_token1] = ACTIONS(4573),
-    [aux_sym_preproc_if_token1] = ACTIONS(4573),
-    [aux_sym_preproc_if_token2] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4573),
-    [sym_preproc_directive] = ACTIONS(4573),
-    [anon_sym_LPAREN2] = ACTIONS(4573),
-    [anon_sym_PLUS] = ACTIONS(4575),
-    [anon_sym_DASH] = ACTIONS(4575),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4573),
-    [aux_sym_module_statement_token1] = ACTIONS(4573),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4573),
-    [aux_sym_interface_statement_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4573),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4573),
-    [aux_sym_function_statement_token1] = ACTIONS(4573),
-    [aux_sym_language_binding_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4573),
-    [aux_sym_contains_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token2] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4573),
-    [aux_sym_save_statement_token1] = ACTIONS(4573),
-    [aux_sym_private_statement_token1] = ACTIONS(4573),
-    [aux_sym_public_statement_token1] = ACTIONS(4573),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4573),
-    [aux_sym_common_statement_token1] = ACTIONS(4573),
-    [aux_sym_import_statement_token1] = ACTIONS(4573),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4573),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4573),
-    [aux_sym_derived_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4573),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4573),
-    [anon_sym_SEMI] = ACTIONS(4575),
-    [aux_sym_stop_statement_token1] = ACTIONS(4573),
-    [aux_sym_stop_statement_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4573),
-    [aux_sym_include_statement_token1] = ACTIONS(4573),
-    [aux_sym_data_statement_token1] = ACTIONS(4573),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4573),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4573),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4573),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4573),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4573),
-    [aux_sym_block_construct_token1] = ACTIONS(4573),
-    [aux_sym_associate_statement_token1] = ACTIONS(4573),
-    [aux_sym_format_statement_token1] = ACTIONS(4573),
-    [aux_sym_print_statement_token1] = ACTIONS(4573),
-    [aux_sym_open_statement_token1] = ACTIONS(4573),
-    [aux_sym_close_statement_token1] = ACTIONS(4573),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4573),
-    [aux_sym_enum_statement_token1] = ACTIONS(4573),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4573),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4573),
-    [aux_sym_entry_statement_token1] = ACTIONS(4573),
-    [aux_sym_logical_expression_token5] = ACTIONS(4575),
-    [anon_sym_DOT] = ACTIONS(4573),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4575),
-    [anon_sym_LBRACK] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4575),
-    [aux_sym_null_literal_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4573),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4573),
-    [aux_sym_identifier_token1] = ACTIONS(4573),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4575),
-    [sym__float_literal] = ACTIONS(4575),
-    [sym__boz_literal] = ACTIONS(4575),
-    [sym__string_literal] = ACTIONS(4575),
-    [sym__string_literal_kind] = ACTIONS(4575),
-  },
-  [1004] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4341),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+  [991] = {
+    [sym_preproc_include] = STATE(1112),
+    [sym_preproc_def] = STATE(1112),
+    [sym_preproc_function_def] = STATE(1112),
+    [sym_preproc_call] = STATE(1112),
+    [sym_preproc_if_in_module] = STATE(1112),
+    [sym_preproc_ifdef_in_module] = STATE(1112),
+    [sym_end_module_statement] = STATE(992),
+    [sym_interface] = STATE(1112),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6656),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(1112),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1112),
+    [sym_public_statement] = STATE(1112),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1112),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1112),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1112),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1005] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1006] = {
-    [sym_preproc_include] = STATE(1111),
-    [sym_preproc_def] = STATE(1111),
-    [sym_preproc_function_def] = STATE(1111),
-    [sym_preproc_call] = STATE(1111),
-    [sym_preproc_if_in_module] = STATE(1111),
-    [sym_preproc_ifdef_in_module] = STATE(1111),
-    [sym_end_module_statement] = STATE(851),
-    [sym_interface] = STATE(1111),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6738),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(1111),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(1111),
-    [sym_public_statement] = STATE(1111),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(1111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(1111),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(1111),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1111),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4825),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4827),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1007] = {
-    [sym_preproc_include] = STATE(1112),
-    [sym_preproc_def] = STATE(1112),
-    [sym_preproc_function_def] = STATE(1112),
-    [sym_preproc_call] = STATE(1112),
-    [sym_preproc_if_in_module] = STATE(1112),
-    [sym_preproc_ifdef_in_module] = STATE(1112),
-    [sym_end_submodule_statement] = STATE(853),
-    [sym_interface] = STATE(1112),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6743),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(1112),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(1112),
-    [sym_public_statement] = STATE(1112),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(1112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(1112),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(1112),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1112),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4829),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4831),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4809),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4811),
     [aux_sym_interface_statement_token1] = ACTIONS(33),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
     [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
     [aux_sym_procedure_attributes_token3] = ACTIONS(49),
     [aux_sym_contains_statement_token1] = ACTIONS(51),
     [aux_sym_use_statement_token1] = ACTIONS(53),
     [aux_sym_use_statement_token2] = ACTIONS(49),
     [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
     [aux_sym_implicit_statement_token4] = ACTIONS(49),
     [aux_sym_save_statement_token1] = ACTIONS(59),
     [aux_sym_private_statement_token1] = ACTIONS(4813),
@@ -234088,15 +231691,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token4] = ACTIONS(73),
     [aux_sym_variable_attributes_token5] = ACTIONS(49),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
     [aux_sym_declared_type_token1] = ACTIONS(85),
     [aux_sym_declared_type_token2] = ACTIONS(85),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
@@ -234145,2990 +231748,2003 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(4671),
   },
-  [1008] = {
-    [ts_builtin_sym_end] = ACTIONS(4403),
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [992] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4449),
+    [aux_sym_preproc_def_token1] = ACTIONS(4449),
+    [aux_sym_preproc_if_token1] = ACTIONS(4449),
+    [aux_sym_preproc_if_token2] = ACTIONS(4449),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4449),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4449),
+    [sym_preproc_directive] = ACTIONS(4449),
+    [anon_sym_LPAREN2] = ACTIONS(4449),
+    [anon_sym_PLUS] = ACTIONS(4451),
+    [anon_sym_DASH] = ACTIONS(4451),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_module_statement_token1] = ACTIONS(4401),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_function_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_program_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4449),
+    [aux_sym_module_statement_token1] = ACTIONS(4449),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4449),
+    [aux_sym_interface_statement_token1] = ACTIONS(4449),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4449),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4449),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4449),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4449),
+    [aux_sym_function_statement_token1] = ACTIONS(4449),
+    [aux_sym_language_binding_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4449),
+    [aux_sym_contains_statement_token1] = ACTIONS(4449),
+    [aux_sym_use_statement_token1] = ACTIONS(4449),
+    [aux_sym_use_statement_token2] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4449),
+    [aux_sym_save_statement_token1] = ACTIONS(4449),
+    [aux_sym_private_statement_token1] = ACTIONS(4449),
+    [aux_sym_public_statement_token1] = ACTIONS(4449),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4449),
+    [aux_sym_common_statement_token1] = ACTIONS(4449),
+    [aux_sym_import_statement_token1] = ACTIONS(4449),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4449),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4449),
+    [aux_sym_derived_type_token1] = ACTIONS(4449),
+    [aux_sym_declared_type_token1] = ACTIONS(4449),
+    [aux_sym_declared_type_token2] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4449),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4449),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4449),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4449),
+    [anon_sym_SEMI] = ACTIONS(4451),
+    [aux_sym_stop_statement_token1] = ACTIONS(4449),
+    [aux_sym_stop_statement_token2] = ACTIONS(4449),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4449),
+    [aux_sym_include_statement_token1] = ACTIONS(4449),
+    [aux_sym_data_statement_token1] = ACTIONS(4449),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4449),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4449),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4449),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4449),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4449),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4449),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4449),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4449),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4449),
+    [aux_sym_block_construct_token1] = ACTIONS(4449),
+    [aux_sym_associate_statement_token1] = ACTIONS(4449),
+    [aux_sym_format_statement_token1] = ACTIONS(4449),
+    [aux_sym_print_statement_token1] = ACTIONS(4449),
+    [aux_sym_open_statement_token1] = ACTIONS(4449),
+    [aux_sym_close_statement_token1] = ACTIONS(4449),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4449),
+    [aux_sym_enum_statement_token1] = ACTIONS(4449),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4449),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4449),
+    [aux_sym_entry_statement_token1] = ACTIONS(4449),
+    [aux_sym_logical_expression_token5] = ACTIONS(4451),
+    [anon_sym_DOT] = ACTIONS(4449),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4451),
+    [anon_sym_LBRACK] = ACTIONS(4451),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4451),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4451),
+    [aux_sym_null_literal_token1] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4449),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4449),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4449),
+    [aux_sym_identifier_token1] = ACTIONS(4449),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4451),
+    [sym__float_literal] = ACTIONS(4451),
+    [sym__boz_literal] = ACTIONS(4451),
+    [sym__string_literal] = ACTIONS(4451),
+    [sym__string_literal_kind] = ACTIONS(4451),
   },
-  [1009] = {
-    [ts_builtin_sym_end] = ACTIONS(4479),
-    [aux_sym_preproc_include_token1] = ACTIONS(4477),
-    [aux_sym_preproc_def_token1] = ACTIONS(4477),
-    [aux_sym_preproc_if_token1] = ACTIONS(4477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4477),
-    [sym_preproc_directive] = ACTIONS(4477),
-    [anon_sym_LPAREN2] = ACTIONS(4477),
-    [anon_sym_PLUS] = ACTIONS(4479),
-    [anon_sym_DASH] = ACTIONS(4479),
+  [993] = {
+    [ts_builtin_sym_end] = ACTIONS(4609),
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_module_statement_token1] = ACTIONS(4607),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_function_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [994] = {
+    [ts_builtin_sym_end] = ACTIONS(4597),
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_module_statement_token1] = ACTIONS(4595),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_function_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [995] = {
+    [ts_builtin_sym_end] = ACTIONS(4327),
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4477),
-    [aux_sym_module_statement_token1] = ACTIONS(4477),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4477),
-    [aux_sym_interface_statement_token1] = ACTIONS(4477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4477),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4477),
-    [aux_sym_function_statement_token1] = ACTIONS(4477),
-    [aux_sym_language_binding_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4477),
-    [aux_sym_contains_statement_token1] = ACTIONS(4477),
-    [aux_sym_use_statement_token1] = ACTIONS(4477),
-    [aux_sym_use_statement_token2] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4477),
-    [aux_sym_save_statement_token1] = ACTIONS(4477),
-    [aux_sym_private_statement_token1] = ACTIONS(4477),
-    [aux_sym_public_statement_token1] = ACTIONS(4477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4477),
-    [aux_sym_common_statement_token1] = ACTIONS(4477),
-    [aux_sym_import_statement_token1] = ACTIONS(4477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4477),
-    [aux_sym_derived_type_token1] = ACTIONS(4477),
-    [aux_sym_declared_type_token1] = ACTIONS(4477),
-    [aux_sym_declared_type_token2] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4477),
-    [anon_sym_SEMI] = ACTIONS(4479),
-    [aux_sym_stop_statement_token1] = ACTIONS(4477),
-    [aux_sym_stop_statement_token2] = ACTIONS(4477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4477),
-    [aux_sym_include_statement_token1] = ACTIONS(4477),
-    [aux_sym_data_statement_token1] = ACTIONS(4477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4477),
-    [aux_sym_block_construct_token1] = ACTIONS(4477),
-    [aux_sym_associate_statement_token1] = ACTIONS(4477),
-    [aux_sym_format_statement_token1] = ACTIONS(4477),
-    [aux_sym_print_statement_token1] = ACTIONS(4477),
-    [aux_sym_open_statement_token1] = ACTIONS(4477),
-    [aux_sym_close_statement_token1] = ACTIONS(4477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4477),
-    [aux_sym_enum_statement_token1] = ACTIONS(4477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4477),
-    [aux_sym_entry_statement_token1] = ACTIONS(4477),
-    [aux_sym_logical_expression_token5] = ACTIONS(4479),
-    [anon_sym_DOT] = ACTIONS(4477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4479),
-    [anon_sym_LBRACK] = ACTIONS(4479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4479),
-    [aux_sym_null_literal_token1] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4477),
-    [aux_sym_identifier_token1] = ACTIONS(4477),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4479),
-    [sym__float_literal] = ACTIONS(4479),
-    [sym__boz_literal] = ACTIONS(4479),
-    [sym__string_literal] = ACTIONS(4479),
-    [sym__string_literal_kind] = ACTIONS(4479),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1010] = {
-    [ts_builtin_sym_end] = ACTIONS(4483),
-    [aux_sym_preproc_include_token1] = ACTIONS(4481),
-    [aux_sym_preproc_def_token1] = ACTIONS(4481),
-    [aux_sym_preproc_if_token1] = ACTIONS(4481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4481),
-    [sym_preproc_directive] = ACTIONS(4481),
-    [anon_sym_LPAREN2] = ACTIONS(4481),
-    [anon_sym_PLUS] = ACTIONS(4483),
-    [anon_sym_DASH] = ACTIONS(4483),
+  [996] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4453),
+    [aux_sym_preproc_def_token1] = ACTIONS(4453),
+    [aux_sym_preproc_if_token1] = ACTIONS(4453),
+    [aux_sym_preproc_if_token2] = ACTIONS(4453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4453),
+    [sym_preproc_directive] = ACTIONS(4453),
+    [anon_sym_LPAREN2] = ACTIONS(4453),
+    [anon_sym_PLUS] = ACTIONS(4455),
+    [anon_sym_DASH] = ACTIONS(4455),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4481),
-    [aux_sym_module_statement_token1] = ACTIONS(4481),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4481),
-    [aux_sym_interface_statement_token1] = ACTIONS(4481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4481),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4481),
-    [aux_sym_function_statement_token1] = ACTIONS(4481),
-    [aux_sym_language_binding_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4481),
-    [aux_sym_contains_statement_token1] = ACTIONS(4481),
-    [aux_sym_use_statement_token1] = ACTIONS(4481),
-    [aux_sym_use_statement_token2] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4481),
-    [aux_sym_save_statement_token1] = ACTIONS(4481),
-    [aux_sym_private_statement_token1] = ACTIONS(4481),
-    [aux_sym_public_statement_token1] = ACTIONS(4481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4481),
-    [aux_sym_common_statement_token1] = ACTIONS(4481),
-    [aux_sym_import_statement_token1] = ACTIONS(4481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4481),
-    [aux_sym_derived_type_token1] = ACTIONS(4481),
-    [aux_sym_declared_type_token1] = ACTIONS(4481),
-    [aux_sym_declared_type_token2] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4481),
-    [anon_sym_SEMI] = ACTIONS(4483),
-    [aux_sym_stop_statement_token1] = ACTIONS(4481),
-    [aux_sym_stop_statement_token2] = ACTIONS(4481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4481),
-    [aux_sym_include_statement_token1] = ACTIONS(4481),
-    [aux_sym_data_statement_token1] = ACTIONS(4481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4481),
-    [aux_sym_block_construct_token1] = ACTIONS(4481),
-    [aux_sym_associate_statement_token1] = ACTIONS(4481),
-    [aux_sym_format_statement_token1] = ACTIONS(4481),
-    [aux_sym_print_statement_token1] = ACTIONS(4481),
-    [aux_sym_open_statement_token1] = ACTIONS(4481),
-    [aux_sym_close_statement_token1] = ACTIONS(4481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4481),
-    [aux_sym_enum_statement_token1] = ACTIONS(4481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4481),
-    [aux_sym_entry_statement_token1] = ACTIONS(4481),
-    [aux_sym_logical_expression_token5] = ACTIONS(4483),
-    [anon_sym_DOT] = ACTIONS(4481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4483),
-    [anon_sym_LBRACK] = ACTIONS(4483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4483),
-    [aux_sym_null_literal_token1] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4481),
-    [aux_sym_identifier_token1] = ACTIONS(4481),
+    [aux_sym_program_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4453),
+    [aux_sym_module_statement_token1] = ACTIONS(4453),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4453),
+    [aux_sym_interface_statement_token1] = ACTIONS(4453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4453),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4453),
+    [aux_sym_function_statement_token1] = ACTIONS(4453),
+    [aux_sym_language_binding_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4453),
+    [aux_sym_contains_statement_token1] = ACTIONS(4453),
+    [aux_sym_use_statement_token1] = ACTIONS(4453),
+    [aux_sym_use_statement_token2] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4453),
+    [aux_sym_save_statement_token1] = ACTIONS(4453),
+    [aux_sym_private_statement_token1] = ACTIONS(4453),
+    [aux_sym_public_statement_token1] = ACTIONS(4453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4453),
+    [aux_sym_common_statement_token1] = ACTIONS(4453),
+    [aux_sym_import_statement_token1] = ACTIONS(4453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4453),
+    [aux_sym_derived_type_token1] = ACTIONS(4453),
+    [aux_sym_declared_type_token1] = ACTIONS(4453),
+    [aux_sym_declared_type_token2] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4453),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4453),
+    [anon_sym_SEMI] = ACTIONS(4455),
+    [aux_sym_stop_statement_token1] = ACTIONS(4453),
+    [aux_sym_stop_statement_token2] = ACTIONS(4453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4453),
+    [aux_sym_include_statement_token1] = ACTIONS(4453),
+    [aux_sym_data_statement_token1] = ACTIONS(4453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4453),
+    [aux_sym_block_construct_token1] = ACTIONS(4453),
+    [aux_sym_associate_statement_token1] = ACTIONS(4453),
+    [aux_sym_format_statement_token1] = ACTIONS(4453),
+    [aux_sym_print_statement_token1] = ACTIONS(4453),
+    [aux_sym_open_statement_token1] = ACTIONS(4453),
+    [aux_sym_close_statement_token1] = ACTIONS(4453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4453),
+    [aux_sym_enum_statement_token1] = ACTIONS(4453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4453),
+    [aux_sym_entry_statement_token1] = ACTIONS(4453),
+    [aux_sym_logical_expression_token5] = ACTIONS(4455),
+    [anon_sym_DOT] = ACTIONS(4453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4455),
+    [anon_sym_LBRACK] = ACTIONS(4455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4455),
+    [aux_sym_null_literal_token1] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4453),
+    [aux_sym_identifier_token1] = ACTIONS(4453),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4483),
-    [sym__float_literal] = ACTIONS(4483),
-    [sym__boz_literal] = ACTIONS(4483),
-    [sym__string_literal] = ACTIONS(4483),
-    [sym__string_literal_kind] = ACTIONS(4483),
+    [sym__integer_literal] = ACTIONS(4455),
+    [sym__float_literal] = ACTIONS(4455),
+    [sym__boz_literal] = ACTIONS(4455),
+    [sym__string_literal] = ACTIONS(4455),
+    [sym__string_literal_kind] = ACTIONS(4455),
   },
-  [1011] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4577),
-    [aux_sym_preproc_def_token1] = ACTIONS(4577),
-    [aux_sym_preproc_if_token1] = ACTIONS(4577),
-    [aux_sym_preproc_if_token2] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4577),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4577),
-    [sym_preproc_directive] = ACTIONS(4577),
-    [anon_sym_LPAREN2] = ACTIONS(4577),
-    [anon_sym_PLUS] = ACTIONS(4579),
-    [anon_sym_DASH] = ACTIONS(4579),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4577),
-    [aux_sym_module_statement_token1] = ACTIONS(4577),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4577),
-    [aux_sym_interface_statement_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4577),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4577),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4577),
-    [aux_sym_function_statement_token1] = ACTIONS(4577),
-    [aux_sym_language_binding_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4577),
-    [aux_sym_contains_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token1] = ACTIONS(4577),
-    [aux_sym_use_statement_token2] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4577),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4577),
-    [aux_sym_save_statement_token1] = ACTIONS(4577),
-    [aux_sym_private_statement_token1] = ACTIONS(4577),
-    [aux_sym_public_statement_token1] = ACTIONS(4577),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4577),
-    [aux_sym_common_statement_token1] = ACTIONS(4577),
-    [aux_sym_import_statement_token1] = ACTIONS(4577),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4577),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4577),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4577),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4577),
-    [aux_sym_derived_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token1] = ACTIONS(4577),
-    [aux_sym_declared_type_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4577),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4577),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4577),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4577),
-    [anon_sym_SEMI] = ACTIONS(4579),
-    [aux_sym_stop_statement_token1] = ACTIONS(4577),
-    [aux_sym_stop_statement_token2] = ACTIONS(4577),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4577),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4577),
-    [aux_sym_include_statement_token1] = ACTIONS(4577),
-    [aux_sym_data_statement_token1] = ACTIONS(4577),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4577),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4577),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4577),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4577),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4577),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4577),
-    [aux_sym_block_construct_token1] = ACTIONS(4577),
-    [aux_sym_associate_statement_token1] = ACTIONS(4577),
-    [aux_sym_format_statement_token1] = ACTIONS(4577),
-    [aux_sym_print_statement_token1] = ACTIONS(4577),
-    [aux_sym_open_statement_token1] = ACTIONS(4577),
-    [aux_sym_close_statement_token1] = ACTIONS(4577),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4577),
-    [aux_sym_enum_statement_token1] = ACTIONS(4577),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4577),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4577),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4577),
-    [aux_sym_entry_statement_token1] = ACTIONS(4577),
-    [aux_sym_logical_expression_token5] = ACTIONS(4579),
-    [anon_sym_DOT] = ACTIONS(4577),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4579),
-    [anon_sym_LBRACK] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4579),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4579),
-    [aux_sym_null_literal_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4577),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4577),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4577),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4577),
-    [aux_sym_identifier_token1] = ACTIONS(4577),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4579),
-    [sym__float_literal] = ACTIONS(4579),
-    [sym__boz_literal] = ACTIONS(4579),
-    [sym__string_literal] = ACTIONS(4579),
-    [sym__string_literal_kind] = ACTIONS(4579),
+  [997] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4571),
+    [aux_sym_preproc_def_token1] = ACTIONS(4571),
+    [aux_sym_preproc_if_token1] = ACTIONS(4571),
+    [aux_sym_preproc_if_token2] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4571),
+    [sym_preproc_directive] = ACTIONS(4571),
+    [anon_sym_LPAREN2] = ACTIONS(4571),
+    [anon_sym_PLUS] = ACTIONS(4573),
+    [anon_sym_DASH] = ACTIONS(4573),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4571),
+    [aux_sym_module_statement_token1] = ACTIONS(4571),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4571),
+    [aux_sym_interface_statement_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4571),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4571),
+    [aux_sym_function_statement_token1] = ACTIONS(4571),
+    [aux_sym_language_binding_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4571),
+    [aux_sym_contains_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token2] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4571),
+    [aux_sym_save_statement_token1] = ACTIONS(4571),
+    [aux_sym_private_statement_token1] = ACTIONS(4571),
+    [aux_sym_public_statement_token1] = ACTIONS(4571),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4571),
+    [aux_sym_common_statement_token1] = ACTIONS(4571),
+    [aux_sym_import_statement_token1] = ACTIONS(4571),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4571),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4571),
+    [aux_sym_derived_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4571),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4571),
+    [anon_sym_SEMI] = ACTIONS(4573),
+    [aux_sym_stop_statement_token1] = ACTIONS(4571),
+    [aux_sym_stop_statement_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4571),
+    [aux_sym_include_statement_token1] = ACTIONS(4571),
+    [aux_sym_data_statement_token1] = ACTIONS(4571),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4571),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4571),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4571),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4571),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4571),
+    [aux_sym_block_construct_token1] = ACTIONS(4571),
+    [aux_sym_associate_statement_token1] = ACTIONS(4571),
+    [aux_sym_format_statement_token1] = ACTIONS(4571),
+    [aux_sym_print_statement_token1] = ACTIONS(4571),
+    [aux_sym_open_statement_token1] = ACTIONS(4571),
+    [aux_sym_close_statement_token1] = ACTIONS(4571),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4571),
+    [aux_sym_enum_statement_token1] = ACTIONS(4571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4571),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4571),
+    [aux_sym_entry_statement_token1] = ACTIONS(4571),
+    [aux_sym_logical_expression_token5] = ACTIONS(4573),
+    [anon_sym_DOT] = ACTIONS(4571),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4573),
+    [anon_sym_LBRACK] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4573),
+    [aux_sym_null_literal_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4571),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4571),
+    [aux_sym_identifier_token1] = ACTIONS(4571),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4573),
+    [sym__float_literal] = ACTIONS(4573),
+    [sym__boz_literal] = ACTIONS(4573),
+    [sym__string_literal] = ACTIONS(4573),
+    [sym__string_literal_kind] = ACTIONS(4573),
   },
-  [1012] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4581),
-    [aux_sym_preproc_def_token1] = ACTIONS(4581),
-    [aux_sym_preproc_if_token1] = ACTIONS(4581),
-    [aux_sym_preproc_if_token2] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4581),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4581),
-    [sym_preproc_directive] = ACTIONS(4581),
-    [anon_sym_LPAREN2] = ACTIONS(4581),
-    [anon_sym_PLUS] = ACTIONS(4583),
-    [anon_sym_DASH] = ACTIONS(4583),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4581),
-    [aux_sym_module_statement_token1] = ACTIONS(4581),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4581),
-    [aux_sym_interface_statement_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4581),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4581),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4581),
-    [aux_sym_function_statement_token1] = ACTIONS(4581),
-    [aux_sym_language_binding_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4581),
-    [aux_sym_contains_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token1] = ACTIONS(4581),
-    [aux_sym_use_statement_token2] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4581),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4581),
-    [aux_sym_save_statement_token1] = ACTIONS(4581),
-    [aux_sym_private_statement_token1] = ACTIONS(4581),
-    [aux_sym_public_statement_token1] = ACTIONS(4581),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4581),
-    [aux_sym_common_statement_token1] = ACTIONS(4581),
-    [aux_sym_import_statement_token1] = ACTIONS(4581),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4581),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4581),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4581),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4581),
-    [aux_sym_derived_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token1] = ACTIONS(4581),
-    [aux_sym_declared_type_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4581),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4581),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4581),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4581),
-    [anon_sym_SEMI] = ACTIONS(4583),
-    [aux_sym_stop_statement_token1] = ACTIONS(4581),
-    [aux_sym_stop_statement_token2] = ACTIONS(4581),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4581),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4581),
-    [aux_sym_include_statement_token1] = ACTIONS(4581),
-    [aux_sym_data_statement_token1] = ACTIONS(4581),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4581),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4581),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4581),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4581),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4581),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4581),
-    [aux_sym_block_construct_token1] = ACTIONS(4581),
-    [aux_sym_associate_statement_token1] = ACTIONS(4581),
-    [aux_sym_format_statement_token1] = ACTIONS(4581),
-    [aux_sym_print_statement_token1] = ACTIONS(4581),
-    [aux_sym_open_statement_token1] = ACTIONS(4581),
-    [aux_sym_close_statement_token1] = ACTIONS(4581),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4581),
-    [aux_sym_enum_statement_token1] = ACTIONS(4581),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4581),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4581),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4581),
-    [aux_sym_entry_statement_token1] = ACTIONS(4581),
-    [aux_sym_logical_expression_token5] = ACTIONS(4583),
-    [anon_sym_DOT] = ACTIONS(4581),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4583),
-    [anon_sym_LBRACK] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4583),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4583),
-    [aux_sym_null_literal_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4581),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4581),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4581),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4581),
-    [aux_sym_identifier_token1] = ACTIONS(4581),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4583),
-    [sym__float_literal] = ACTIONS(4583),
-    [sym__boz_literal] = ACTIONS(4583),
-    [sym__string_literal] = ACTIONS(4583),
-    [sym__string_literal_kind] = ACTIONS(4583),
+  [998] = {
+    [ts_builtin_sym_end] = ACTIONS(4459),
+    [aux_sym_preproc_include_token1] = ACTIONS(4457),
+    [aux_sym_preproc_def_token1] = ACTIONS(4457),
+    [aux_sym_preproc_if_token1] = ACTIONS(4457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4457),
+    [sym_preproc_directive] = ACTIONS(4457),
+    [anon_sym_LPAREN2] = ACTIONS(4457),
+    [anon_sym_PLUS] = ACTIONS(4459),
+    [anon_sym_DASH] = ACTIONS(4459),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4457),
+    [aux_sym_module_statement_token1] = ACTIONS(4457),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4457),
+    [aux_sym_interface_statement_token1] = ACTIONS(4457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4457),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4457),
+    [aux_sym_function_statement_token1] = ACTIONS(4457),
+    [aux_sym_language_binding_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4457),
+    [aux_sym_contains_statement_token1] = ACTIONS(4457),
+    [aux_sym_use_statement_token1] = ACTIONS(4457),
+    [aux_sym_use_statement_token2] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4457),
+    [aux_sym_save_statement_token1] = ACTIONS(4457),
+    [aux_sym_private_statement_token1] = ACTIONS(4457),
+    [aux_sym_public_statement_token1] = ACTIONS(4457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4457),
+    [aux_sym_common_statement_token1] = ACTIONS(4457),
+    [aux_sym_import_statement_token1] = ACTIONS(4457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4457),
+    [aux_sym_derived_type_token1] = ACTIONS(4457),
+    [aux_sym_declared_type_token1] = ACTIONS(4457),
+    [aux_sym_declared_type_token2] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4457),
+    [anon_sym_SEMI] = ACTIONS(4459),
+    [aux_sym_stop_statement_token1] = ACTIONS(4457),
+    [aux_sym_stop_statement_token2] = ACTIONS(4457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4457),
+    [aux_sym_include_statement_token1] = ACTIONS(4457),
+    [aux_sym_data_statement_token1] = ACTIONS(4457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4457),
+    [aux_sym_block_construct_token1] = ACTIONS(4457),
+    [aux_sym_associate_statement_token1] = ACTIONS(4457),
+    [aux_sym_format_statement_token1] = ACTIONS(4457),
+    [aux_sym_print_statement_token1] = ACTIONS(4457),
+    [aux_sym_open_statement_token1] = ACTIONS(4457),
+    [aux_sym_close_statement_token1] = ACTIONS(4457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4457),
+    [aux_sym_enum_statement_token1] = ACTIONS(4457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4457),
+    [aux_sym_entry_statement_token1] = ACTIONS(4457),
+    [aux_sym_logical_expression_token5] = ACTIONS(4459),
+    [anon_sym_DOT] = ACTIONS(4457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4459),
+    [anon_sym_LBRACK] = ACTIONS(4459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4459),
+    [aux_sym_null_literal_token1] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4457),
+    [aux_sym_identifier_token1] = ACTIONS(4457),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4459),
+    [sym__float_literal] = ACTIONS(4459),
+    [sym__boz_literal] = ACTIONS(4459),
+    [sym__string_literal] = ACTIONS(4459),
+    [sym__string_literal_kind] = ACTIONS(4459),
   },
-  [1013] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4585),
-    [aux_sym_preproc_def_token1] = ACTIONS(4585),
-    [aux_sym_preproc_if_token1] = ACTIONS(4585),
-    [aux_sym_preproc_if_token2] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4585),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4585),
-    [sym_preproc_directive] = ACTIONS(4585),
-    [anon_sym_LPAREN2] = ACTIONS(4585),
-    [anon_sym_PLUS] = ACTIONS(4587),
-    [anon_sym_DASH] = ACTIONS(4587),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4585),
-    [aux_sym_module_statement_token1] = ACTIONS(4585),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4585),
-    [aux_sym_interface_statement_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4585),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4585),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4585),
-    [aux_sym_function_statement_token1] = ACTIONS(4585),
-    [aux_sym_language_binding_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4585),
-    [aux_sym_contains_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token1] = ACTIONS(4585),
-    [aux_sym_use_statement_token2] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4585),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4585),
-    [aux_sym_save_statement_token1] = ACTIONS(4585),
-    [aux_sym_private_statement_token1] = ACTIONS(4585),
-    [aux_sym_public_statement_token1] = ACTIONS(4585),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4585),
-    [aux_sym_common_statement_token1] = ACTIONS(4585),
-    [aux_sym_import_statement_token1] = ACTIONS(4585),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4585),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4585),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4585),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4585),
-    [aux_sym_derived_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token1] = ACTIONS(4585),
-    [aux_sym_declared_type_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4585),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4585),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4585),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4585),
-    [anon_sym_SEMI] = ACTIONS(4587),
-    [aux_sym_stop_statement_token1] = ACTIONS(4585),
-    [aux_sym_stop_statement_token2] = ACTIONS(4585),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4585),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4585),
-    [aux_sym_include_statement_token1] = ACTIONS(4585),
-    [aux_sym_data_statement_token1] = ACTIONS(4585),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4585),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4585),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4585),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4585),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4585),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4585),
-    [aux_sym_block_construct_token1] = ACTIONS(4585),
-    [aux_sym_associate_statement_token1] = ACTIONS(4585),
-    [aux_sym_format_statement_token1] = ACTIONS(4585),
-    [aux_sym_print_statement_token1] = ACTIONS(4585),
-    [aux_sym_open_statement_token1] = ACTIONS(4585),
-    [aux_sym_close_statement_token1] = ACTIONS(4585),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4585),
-    [aux_sym_enum_statement_token1] = ACTIONS(4585),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4585),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4585),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4585),
-    [aux_sym_entry_statement_token1] = ACTIONS(4585),
-    [aux_sym_logical_expression_token5] = ACTIONS(4587),
-    [anon_sym_DOT] = ACTIONS(4585),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4587),
-    [anon_sym_LBRACK] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4587),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4587),
-    [aux_sym_null_literal_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4585),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4585),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4585),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4585),
-    [aux_sym_identifier_token1] = ACTIONS(4585),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4587),
-    [sym__float_literal] = ACTIONS(4587),
-    [sym__boz_literal] = ACTIONS(4587),
-    [sym__string_literal] = ACTIONS(4587),
-    [sym__string_literal_kind] = ACTIONS(4587),
+  [999] = {
+    [ts_builtin_sym_end] = ACTIONS(4507),
+    [aux_sym_preproc_include_token1] = ACTIONS(4505),
+    [aux_sym_preproc_def_token1] = ACTIONS(4505),
+    [aux_sym_preproc_if_token1] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4505),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4505),
+    [sym_preproc_directive] = ACTIONS(4505),
+    [anon_sym_LPAREN2] = ACTIONS(4505),
+    [anon_sym_PLUS] = ACTIONS(4507),
+    [anon_sym_DASH] = ACTIONS(4507),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4505),
+    [aux_sym_module_statement_token1] = ACTIONS(4505),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4505),
+    [aux_sym_interface_statement_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4505),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4505),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4505),
+    [aux_sym_function_statement_token1] = ACTIONS(4505),
+    [aux_sym_language_binding_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4505),
+    [aux_sym_contains_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token1] = ACTIONS(4505),
+    [aux_sym_use_statement_token2] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4505),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4505),
+    [aux_sym_save_statement_token1] = ACTIONS(4505),
+    [aux_sym_private_statement_token1] = ACTIONS(4505),
+    [aux_sym_public_statement_token1] = ACTIONS(4505),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4505),
+    [aux_sym_common_statement_token1] = ACTIONS(4505),
+    [aux_sym_import_statement_token1] = ACTIONS(4505),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4505),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4505),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4505),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4505),
+    [aux_sym_derived_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token1] = ACTIONS(4505),
+    [aux_sym_declared_type_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4505),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4505),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4505),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4505),
+    [anon_sym_SEMI] = ACTIONS(4507),
+    [aux_sym_stop_statement_token1] = ACTIONS(4505),
+    [aux_sym_stop_statement_token2] = ACTIONS(4505),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4505),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4505),
+    [aux_sym_include_statement_token1] = ACTIONS(4505),
+    [aux_sym_data_statement_token1] = ACTIONS(4505),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4505),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4505),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4505),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4505),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4505),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4505),
+    [aux_sym_block_construct_token1] = ACTIONS(4505),
+    [aux_sym_associate_statement_token1] = ACTIONS(4505),
+    [aux_sym_format_statement_token1] = ACTIONS(4505),
+    [aux_sym_print_statement_token1] = ACTIONS(4505),
+    [aux_sym_open_statement_token1] = ACTIONS(4505),
+    [aux_sym_close_statement_token1] = ACTIONS(4505),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4505),
+    [aux_sym_enum_statement_token1] = ACTIONS(4505),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4505),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4505),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4505),
+    [aux_sym_entry_statement_token1] = ACTIONS(4505),
+    [aux_sym_logical_expression_token5] = ACTIONS(4507),
+    [anon_sym_DOT] = ACTIONS(4505),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4507),
+    [anon_sym_LBRACK] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4507),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4507),
+    [aux_sym_null_literal_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4505),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4505),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4505),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4505),
+    [aux_sym_identifier_token1] = ACTIONS(4505),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4507),
+    [sym__float_literal] = ACTIONS(4507),
+    [sym__boz_literal] = ACTIONS(4507),
+    [sym__string_literal] = ACTIONS(4507),
+    [sym__string_literal_kind] = ACTIONS(4507),
   },
-  [1014] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4589),
-    [aux_sym_preproc_def_token1] = ACTIONS(4589),
-    [aux_sym_preproc_if_token1] = ACTIONS(4589),
-    [aux_sym_preproc_if_token2] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4589),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4589),
-    [sym_preproc_directive] = ACTIONS(4589),
-    [anon_sym_LPAREN2] = ACTIONS(4589),
-    [anon_sym_PLUS] = ACTIONS(4591),
-    [anon_sym_DASH] = ACTIONS(4591),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4589),
-    [aux_sym_module_statement_token1] = ACTIONS(4589),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4589),
-    [aux_sym_interface_statement_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4589),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4589),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4589),
-    [aux_sym_function_statement_token1] = ACTIONS(4589),
-    [aux_sym_language_binding_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4589),
-    [aux_sym_contains_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token1] = ACTIONS(4589),
-    [aux_sym_use_statement_token2] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4589),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4589),
-    [aux_sym_save_statement_token1] = ACTIONS(4589),
-    [aux_sym_private_statement_token1] = ACTIONS(4589),
-    [aux_sym_public_statement_token1] = ACTIONS(4589),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4589),
-    [aux_sym_common_statement_token1] = ACTIONS(4589),
-    [aux_sym_import_statement_token1] = ACTIONS(4589),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4589),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4589),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4589),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4589),
-    [aux_sym_derived_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token1] = ACTIONS(4589),
-    [aux_sym_declared_type_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4589),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4589),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4589),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4589),
-    [anon_sym_SEMI] = ACTIONS(4591),
-    [aux_sym_stop_statement_token1] = ACTIONS(4589),
-    [aux_sym_stop_statement_token2] = ACTIONS(4589),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4589),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4589),
-    [aux_sym_include_statement_token1] = ACTIONS(4589),
-    [aux_sym_data_statement_token1] = ACTIONS(4589),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4589),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4589),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4589),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4589),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4589),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4589),
-    [aux_sym_block_construct_token1] = ACTIONS(4589),
-    [aux_sym_associate_statement_token1] = ACTIONS(4589),
-    [aux_sym_format_statement_token1] = ACTIONS(4589),
-    [aux_sym_print_statement_token1] = ACTIONS(4589),
-    [aux_sym_open_statement_token1] = ACTIONS(4589),
-    [aux_sym_close_statement_token1] = ACTIONS(4589),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4589),
-    [aux_sym_enum_statement_token1] = ACTIONS(4589),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4589),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4589),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4589),
-    [aux_sym_entry_statement_token1] = ACTIONS(4589),
-    [aux_sym_logical_expression_token5] = ACTIONS(4591),
-    [anon_sym_DOT] = ACTIONS(4589),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4591),
-    [anon_sym_LBRACK] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4591),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4591),
-    [aux_sym_null_literal_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4589),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4589),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4589),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4589),
-    [aux_sym_identifier_token1] = ACTIONS(4589),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4591),
-    [sym__float_literal] = ACTIONS(4591),
-    [sym__boz_literal] = ACTIONS(4591),
-    [sym__string_literal] = ACTIONS(4591),
-    [sym__string_literal_kind] = ACTIONS(4591),
+  [1000] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4457),
+    [aux_sym_preproc_def_token1] = ACTIONS(4457),
+    [aux_sym_preproc_if_token1] = ACTIONS(4457),
+    [aux_sym_preproc_if_token2] = ACTIONS(4457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4457),
+    [sym_preproc_directive] = ACTIONS(4457),
+    [anon_sym_LPAREN2] = ACTIONS(4457),
+    [anon_sym_PLUS] = ACTIONS(4459),
+    [anon_sym_DASH] = ACTIONS(4459),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4457),
+    [aux_sym_module_statement_token1] = ACTIONS(4457),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4457),
+    [aux_sym_interface_statement_token1] = ACTIONS(4457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4457),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4457),
+    [aux_sym_function_statement_token1] = ACTIONS(4457),
+    [aux_sym_language_binding_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4457),
+    [aux_sym_contains_statement_token1] = ACTIONS(4457),
+    [aux_sym_use_statement_token1] = ACTIONS(4457),
+    [aux_sym_use_statement_token2] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4457),
+    [aux_sym_save_statement_token1] = ACTIONS(4457),
+    [aux_sym_private_statement_token1] = ACTIONS(4457),
+    [aux_sym_public_statement_token1] = ACTIONS(4457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4457),
+    [aux_sym_common_statement_token1] = ACTIONS(4457),
+    [aux_sym_import_statement_token1] = ACTIONS(4457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4457),
+    [aux_sym_derived_type_token1] = ACTIONS(4457),
+    [aux_sym_declared_type_token1] = ACTIONS(4457),
+    [aux_sym_declared_type_token2] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4457),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4457),
+    [anon_sym_SEMI] = ACTIONS(4459),
+    [aux_sym_stop_statement_token1] = ACTIONS(4457),
+    [aux_sym_stop_statement_token2] = ACTIONS(4457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4457),
+    [aux_sym_include_statement_token1] = ACTIONS(4457),
+    [aux_sym_data_statement_token1] = ACTIONS(4457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4457),
+    [aux_sym_block_construct_token1] = ACTIONS(4457),
+    [aux_sym_associate_statement_token1] = ACTIONS(4457),
+    [aux_sym_format_statement_token1] = ACTIONS(4457),
+    [aux_sym_print_statement_token1] = ACTIONS(4457),
+    [aux_sym_open_statement_token1] = ACTIONS(4457),
+    [aux_sym_close_statement_token1] = ACTIONS(4457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4457),
+    [aux_sym_enum_statement_token1] = ACTIONS(4457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4457),
+    [aux_sym_entry_statement_token1] = ACTIONS(4457),
+    [aux_sym_logical_expression_token5] = ACTIONS(4459),
+    [anon_sym_DOT] = ACTIONS(4457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4459),
+    [anon_sym_LBRACK] = ACTIONS(4459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4459),
+    [aux_sym_null_literal_token1] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4457),
+    [aux_sym_identifier_token1] = ACTIONS(4457),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4459),
+    [sym__float_literal] = ACTIONS(4459),
+    [sym__boz_literal] = ACTIONS(4459),
+    [sym__string_literal] = ACTIONS(4459),
+    [sym__string_literal_kind] = ACTIONS(4459),
   },
-  [1015] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4397),
-    [aux_sym_preproc_def_token1] = ACTIONS(4397),
-    [aux_sym_preproc_if_token1] = ACTIONS(4397),
-    [aux_sym_preproc_if_token2] = ACTIONS(4397),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4397),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4397),
-    [sym_preproc_directive] = ACTIONS(4397),
-    [anon_sym_LPAREN2] = ACTIONS(4397),
-    [anon_sym_PLUS] = ACTIONS(4399),
-    [anon_sym_DASH] = ACTIONS(4399),
+  [1001] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4465),
+    [aux_sym_preproc_def_token1] = ACTIONS(4465),
+    [aux_sym_preproc_if_token1] = ACTIONS(4465),
+    [aux_sym_preproc_if_token2] = ACTIONS(4465),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4465),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4465),
+    [sym_preproc_directive] = ACTIONS(4465),
+    [anon_sym_LPAREN2] = ACTIONS(4465),
+    [anon_sym_PLUS] = ACTIONS(4467),
+    [anon_sym_DASH] = ACTIONS(4467),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4397),
-    [aux_sym_module_statement_token1] = ACTIONS(4397),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4397),
-    [aux_sym_interface_statement_token1] = ACTIONS(4397),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4397),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4397),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4397),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4397),
-    [aux_sym_function_statement_token1] = ACTIONS(4397),
-    [aux_sym_language_binding_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4397),
-    [aux_sym_contains_statement_token1] = ACTIONS(4397),
-    [aux_sym_use_statement_token1] = ACTIONS(4397),
-    [aux_sym_use_statement_token2] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4397),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4397),
-    [aux_sym_save_statement_token1] = ACTIONS(4397),
-    [aux_sym_private_statement_token1] = ACTIONS(4397),
-    [aux_sym_public_statement_token1] = ACTIONS(4397),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4397),
-    [aux_sym_common_statement_token1] = ACTIONS(4397),
-    [aux_sym_import_statement_token1] = ACTIONS(4397),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4397),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4397),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4397),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4397),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4397),
-    [aux_sym_derived_type_token1] = ACTIONS(4397),
-    [aux_sym_declared_type_token1] = ACTIONS(4397),
-    [aux_sym_declared_type_token2] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4397),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4397),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4397),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4397),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4397),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4397),
-    [anon_sym_SEMI] = ACTIONS(4399),
-    [aux_sym_stop_statement_token1] = ACTIONS(4397),
-    [aux_sym_stop_statement_token2] = ACTIONS(4397),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4397),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4397),
-    [aux_sym_include_statement_token1] = ACTIONS(4397),
-    [aux_sym_data_statement_token1] = ACTIONS(4397),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4397),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4397),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4397),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4397),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4397),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4397),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4397),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4397),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4397),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4397),
-    [aux_sym_block_construct_token1] = ACTIONS(4397),
-    [aux_sym_associate_statement_token1] = ACTIONS(4397),
-    [aux_sym_format_statement_token1] = ACTIONS(4397),
-    [aux_sym_print_statement_token1] = ACTIONS(4397),
-    [aux_sym_open_statement_token1] = ACTIONS(4397),
-    [aux_sym_close_statement_token1] = ACTIONS(4397),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4397),
-    [aux_sym_enum_statement_token1] = ACTIONS(4397),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4397),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4397),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4397),
-    [aux_sym_entry_statement_token1] = ACTIONS(4397),
-    [aux_sym_logical_expression_token5] = ACTIONS(4399),
-    [anon_sym_DOT] = ACTIONS(4397),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4399),
-    [anon_sym_LBRACK] = ACTIONS(4399),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4399),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4399),
-    [aux_sym_null_literal_token1] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4397),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4397),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4397),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4397),
-    [aux_sym_identifier_token1] = ACTIONS(4397),
+    [aux_sym_program_statement_token1] = ACTIONS(4465),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4465),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4465),
+    [aux_sym_module_statement_token1] = ACTIONS(4465),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4465),
+    [aux_sym_interface_statement_token1] = ACTIONS(4465),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4465),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4465),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4465),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4465),
+    [aux_sym_function_statement_token1] = ACTIONS(4465),
+    [aux_sym_language_binding_token1] = ACTIONS(4465),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4465),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4465),
+    [aux_sym_contains_statement_token1] = ACTIONS(4465),
+    [aux_sym_use_statement_token1] = ACTIONS(4465),
+    [aux_sym_use_statement_token2] = ACTIONS(4465),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4465),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4465),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4465),
+    [aux_sym_save_statement_token1] = ACTIONS(4465),
+    [aux_sym_private_statement_token1] = ACTIONS(4465),
+    [aux_sym_public_statement_token1] = ACTIONS(4465),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4465),
+    [aux_sym_common_statement_token1] = ACTIONS(4465),
+    [aux_sym_import_statement_token1] = ACTIONS(4465),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4465),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4465),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4465),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4465),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4465),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4465),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4465),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4465),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4465),
+    [aux_sym_derived_type_token1] = ACTIONS(4465),
+    [aux_sym_declared_type_token1] = ACTIONS(4465),
+    [aux_sym_declared_type_token2] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4465),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4465),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4465),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4465),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4465),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4465),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4465),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4465),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4465),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4465),
+    [anon_sym_SEMI] = ACTIONS(4467),
+    [aux_sym_stop_statement_token1] = ACTIONS(4465),
+    [aux_sym_stop_statement_token2] = ACTIONS(4465),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4465),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4465),
+    [aux_sym_include_statement_token1] = ACTIONS(4465),
+    [aux_sym_data_statement_token1] = ACTIONS(4465),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4465),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4465),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4465),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4465),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4465),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4465),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4465),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4465),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4465),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4465),
+    [aux_sym_block_construct_token1] = ACTIONS(4465),
+    [aux_sym_associate_statement_token1] = ACTIONS(4465),
+    [aux_sym_format_statement_token1] = ACTIONS(4465),
+    [aux_sym_print_statement_token1] = ACTIONS(4465),
+    [aux_sym_open_statement_token1] = ACTIONS(4465),
+    [aux_sym_close_statement_token1] = ACTIONS(4465),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4465),
+    [aux_sym_enum_statement_token1] = ACTIONS(4465),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4465),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4465),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4465),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4465),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4465),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4465),
+    [aux_sym_entry_statement_token1] = ACTIONS(4465),
+    [aux_sym_logical_expression_token5] = ACTIONS(4467),
+    [anon_sym_DOT] = ACTIONS(4465),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4467),
+    [anon_sym_LBRACK] = ACTIONS(4467),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4467),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4467),
+    [aux_sym_null_literal_token1] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4465),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4465),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4465),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4465),
+    [aux_sym_identifier_token1] = ACTIONS(4465),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4399),
-    [sym__float_literal] = ACTIONS(4399),
-    [sym__boz_literal] = ACTIONS(4399),
-    [sym__string_literal] = ACTIONS(4399),
-    [sym__string_literal_kind] = ACTIONS(4399),
+    [sym__integer_literal] = ACTIONS(4467),
+    [sym__float_literal] = ACTIONS(4467),
+    [sym__boz_literal] = ACTIONS(4467),
+    [sym__string_literal] = ACTIONS(4467),
+    [sym__string_literal_kind] = ACTIONS(4467),
   },
-  [1016] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4593),
-    [aux_sym_preproc_def_token1] = ACTIONS(4593),
-    [aux_sym_preproc_if_token1] = ACTIONS(4593),
-    [aux_sym_preproc_if_token2] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4593),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4593),
-    [sym_preproc_directive] = ACTIONS(4593),
-    [anon_sym_LPAREN2] = ACTIONS(4593),
-    [anon_sym_PLUS] = ACTIONS(4595),
-    [anon_sym_DASH] = ACTIONS(4595),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4593),
-    [aux_sym_module_statement_token1] = ACTIONS(4593),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4593),
-    [aux_sym_interface_statement_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4593),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4593),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4593),
-    [aux_sym_function_statement_token1] = ACTIONS(4593),
-    [aux_sym_language_binding_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4593),
-    [aux_sym_contains_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token1] = ACTIONS(4593),
-    [aux_sym_use_statement_token2] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4593),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4593),
-    [aux_sym_save_statement_token1] = ACTIONS(4593),
-    [aux_sym_private_statement_token1] = ACTIONS(4593),
-    [aux_sym_public_statement_token1] = ACTIONS(4593),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4593),
-    [aux_sym_common_statement_token1] = ACTIONS(4593),
-    [aux_sym_import_statement_token1] = ACTIONS(4593),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4593),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4593),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4593),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4593),
-    [aux_sym_derived_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token1] = ACTIONS(4593),
-    [aux_sym_declared_type_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4593),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4593),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4593),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4593),
-    [anon_sym_SEMI] = ACTIONS(4595),
-    [aux_sym_stop_statement_token1] = ACTIONS(4593),
-    [aux_sym_stop_statement_token2] = ACTIONS(4593),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4593),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4593),
-    [aux_sym_include_statement_token1] = ACTIONS(4593),
-    [aux_sym_data_statement_token1] = ACTIONS(4593),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4593),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4593),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4593),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4593),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4593),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4593),
-    [aux_sym_block_construct_token1] = ACTIONS(4593),
-    [aux_sym_associate_statement_token1] = ACTIONS(4593),
-    [aux_sym_format_statement_token1] = ACTIONS(4593),
-    [aux_sym_print_statement_token1] = ACTIONS(4593),
-    [aux_sym_open_statement_token1] = ACTIONS(4593),
-    [aux_sym_close_statement_token1] = ACTIONS(4593),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4593),
-    [aux_sym_enum_statement_token1] = ACTIONS(4593),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4593),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4593),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4593),
-    [aux_sym_entry_statement_token1] = ACTIONS(4593),
-    [aux_sym_logical_expression_token5] = ACTIONS(4595),
-    [anon_sym_DOT] = ACTIONS(4593),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4595),
-    [anon_sym_LBRACK] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4595),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4595),
-    [aux_sym_null_literal_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4593),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4593),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4593),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4593),
-    [aux_sym_identifier_token1] = ACTIONS(4593),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4595),
-    [sym__float_literal] = ACTIONS(4595),
-    [sym__boz_literal] = ACTIONS(4595),
-    [sym__string_literal] = ACTIONS(4595),
-    [sym__string_literal_kind] = ACTIONS(4595),
+  [1002] = {
+    [ts_builtin_sym_end] = ACTIONS(4589),
+    [aux_sym_preproc_include_token1] = ACTIONS(4587),
+    [aux_sym_preproc_def_token1] = ACTIONS(4587),
+    [aux_sym_preproc_if_token1] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4587),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4587),
+    [sym_preproc_directive] = ACTIONS(4587),
+    [anon_sym_LPAREN2] = ACTIONS(4587),
+    [anon_sym_PLUS] = ACTIONS(4589),
+    [anon_sym_DASH] = ACTIONS(4589),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4587),
+    [aux_sym_module_statement_token1] = ACTIONS(4587),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4587),
+    [aux_sym_interface_statement_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4587),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4587),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4587),
+    [aux_sym_function_statement_token1] = ACTIONS(4587),
+    [aux_sym_language_binding_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4587),
+    [aux_sym_contains_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token1] = ACTIONS(4587),
+    [aux_sym_use_statement_token2] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4587),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4587),
+    [aux_sym_save_statement_token1] = ACTIONS(4587),
+    [aux_sym_private_statement_token1] = ACTIONS(4587),
+    [aux_sym_public_statement_token1] = ACTIONS(4587),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4587),
+    [aux_sym_common_statement_token1] = ACTIONS(4587),
+    [aux_sym_import_statement_token1] = ACTIONS(4587),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4587),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4587),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4587),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4587),
+    [aux_sym_derived_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token1] = ACTIONS(4587),
+    [aux_sym_declared_type_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4587),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4587),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4587),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4587),
+    [anon_sym_SEMI] = ACTIONS(4589),
+    [aux_sym_stop_statement_token1] = ACTIONS(4587),
+    [aux_sym_stop_statement_token2] = ACTIONS(4587),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4587),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4587),
+    [aux_sym_include_statement_token1] = ACTIONS(4587),
+    [aux_sym_data_statement_token1] = ACTIONS(4587),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4587),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4587),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4587),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4587),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4587),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4587),
+    [aux_sym_block_construct_token1] = ACTIONS(4587),
+    [aux_sym_associate_statement_token1] = ACTIONS(4587),
+    [aux_sym_format_statement_token1] = ACTIONS(4587),
+    [aux_sym_print_statement_token1] = ACTIONS(4587),
+    [aux_sym_open_statement_token1] = ACTIONS(4587),
+    [aux_sym_close_statement_token1] = ACTIONS(4587),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4587),
+    [aux_sym_enum_statement_token1] = ACTIONS(4587),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4587),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4587),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4587),
+    [aux_sym_entry_statement_token1] = ACTIONS(4587),
+    [aux_sym_logical_expression_token5] = ACTIONS(4589),
+    [anon_sym_DOT] = ACTIONS(4587),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4589),
+    [anon_sym_LBRACK] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4589),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4589),
+    [aux_sym_null_literal_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4587),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4587),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4587),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4587),
+    [aux_sym_identifier_token1] = ACTIONS(4587),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4589),
+    [sym__float_literal] = ACTIONS(4589),
+    [sym__boz_literal] = ACTIONS(4589),
+    [sym__string_literal] = ACTIONS(4589),
+    [sym__string_literal_kind] = ACTIONS(4589),
   },
-  [1017] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4373),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1003] = {
+    [ts_builtin_sym_end] = ACTIONS(4585),
+    [aux_sym_preproc_include_token1] = ACTIONS(4583),
+    [aux_sym_preproc_def_token1] = ACTIONS(4583),
+    [aux_sym_preproc_if_token1] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4583),
+    [sym_preproc_directive] = ACTIONS(4583),
+    [anon_sym_LPAREN2] = ACTIONS(4583),
+    [anon_sym_PLUS] = ACTIONS(4585),
+    [anon_sym_DASH] = ACTIONS(4585),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4583),
+    [aux_sym_module_statement_token1] = ACTIONS(4583),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4583),
+    [aux_sym_interface_statement_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4583),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4583),
+    [aux_sym_function_statement_token1] = ACTIONS(4583),
+    [aux_sym_language_binding_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4583),
+    [aux_sym_contains_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token2] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4583),
+    [aux_sym_save_statement_token1] = ACTIONS(4583),
+    [aux_sym_private_statement_token1] = ACTIONS(4583),
+    [aux_sym_public_statement_token1] = ACTIONS(4583),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4583),
+    [aux_sym_common_statement_token1] = ACTIONS(4583),
+    [aux_sym_import_statement_token1] = ACTIONS(4583),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4583),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4583),
+    [aux_sym_derived_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4583),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4583),
+    [anon_sym_SEMI] = ACTIONS(4585),
+    [aux_sym_stop_statement_token1] = ACTIONS(4583),
+    [aux_sym_stop_statement_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4583),
+    [aux_sym_include_statement_token1] = ACTIONS(4583),
+    [aux_sym_data_statement_token1] = ACTIONS(4583),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4583),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4583),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4583),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4583),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4583),
+    [aux_sym_block_construct_token1] = ACTIONS(4583),
+    [aux_sym_associate_statement_token1] = ACTIONS(4583),
+    [aux_sym_format_statement_token1] = ACTIONS(4583),
+    [aux_sym_print_statement_token1] = ACTIONS(4583),
+    [aux_sym_open_statement_token1] = ACTIONS(4583),
+    [aux_sym_close_statement_token1] = ACTIONS(4583),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4583),
+    [aux_sym_enum_statement_token1] = ACTIONS(4583),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4583),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4583),
+    [aux_sym_entry_statement_token1] = ACTIONS(4583),
+    [aux_sym_logical_expression_token5] = ACTIONS(4585),
+    [anon_sym_DOT] = ACTIONS(4583),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4585),
+    [anon_sym_LBRACK] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4585),
+    [aux_sym_null_literal_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4583),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4583),
+    [aux_sym_identifier_token1] = ACTIONS(4583),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4585),
+    [sym__float_literal] = ACTIONS(4585),
+    [sym__boz_literal] = ACTIONS(4585),
+    [sym__string_literal] = ACTIONS(4585),
+    [sym__string_literal_kind] = ACTIONS(4585),
   },
-  [1018] = {
-    [ts_builtin_sym_end] = ACTIONS(4487),
-    [aux_sym_preproc_include_token1] = ACTIONS(4485),
-    [aux_sym_preproc_def_token1] = ACTIONS(4485),
-    [aux_sym_preproc_if_token1] = ACTIONS(4485),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
-    [sym_preproc_directive] = ACTIONS(4485),
-    [anon_sym_LPAREN2] = ACTIONS(4485),
-    [anon_sym_PLUS] = ACTIONS(4487),
-    [anon_sym_DASH] = ACTIONS(4487),
+  [1004] = {
+    [sym_preproc_include] = STATE(1112),
+    [sym_preproc_def] = STATE(1112),
+    [sym_preproc_function_def] = STATE(1112),
+    [sym_preproc_call] = STATE(1112),
+    [sym_preproc_if_in_module] = STATE(1112),
+    [sym_preproc_ifdef_in_module] = STATE(1112),
+    [sym_end_module_statement] = STATE(851),
+    [sym_interface] = STATE(1112),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6490),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(1112),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1112),
+    [sym_public_statement] = STATE(1112),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1112),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1112),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1112),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4485),
-    [aux_sym_module_statement_token1] = ACTIONS(4485),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4485),
-    [aux_sym_interface_statement_token1] = ACTIONS(4485),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4485),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
-    [aux_sym_function_statement_token1] = ACTIONS(4485),
-    [aux_sym_language_binding_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
-    [aux_sym_contains_statement_token1] = ACTIONS(4485),
-    [aux_sym_use_statement_token1] = ACTIONS(4485),
-    [aux_sym_use_statement_token2] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
-    [aux_sym_save_statement_token1] = ACTIONS(4485),
-    [aux_sym_private_statement_token1] = ACTIONS(4485),
-    [aux_sym_public_statement_token1] = ACTIONS(4485),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
-    [aux_sym_common_statement_token1] = ACTIONS(4485),
-    [aux_sym_import_statement_token1] = ACTIONS(4485),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
-    [aux_sym_derived_type_token1] = ACTIONS(4485),
-    [aux_sym_declared_type_token1] = ACTIONS(4485),
-    [aux_sym_declared_type_token2] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4485),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
-    [anon_sym_SEMI] = ACTIONS(4487),
-    [aux_sym_stop_statement_token1] = ACTIONS(4485),
-    [aux_sym_stop_statement_token2] = ACTIONS(4485),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
-    [aux_sym_include_statement_token1] = ACTIONS(4485),
-    [aux_sym_data_statement_token1] = ACTIONS(4485),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
-    [aux_sym_block_construct_token1] = ACTIONS(4485),
-    [aux_sym_associate_statement_token1] = ACTIONS(4485),
-    [aux_sym_format_statement_token1] = ACTIONS(4485),
-    [aux_sym_print_statement_token1] = ACTIONS(4485),
-    [aux_sym_open_statement_token1] = ACTIONS(4485),
-    [aux_sym_close_statement_token1] = ACTIONS(4485),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
-    [aux_sym_enum_statement_token1] = ACTIONS(4485),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
-    [aux_sym_entry_statement_token1] = ACTIONS(4485),
-    [aux_sym_logical_expression_token5] = ACTIONS(4487),
-    [anon_sym_DOT] = ACTIONS(4485),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
-    [anon_sym_LBRACK] = ACTIONS(4487),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
-    [aux_sym_null_literal_token1] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
-    [aux_sym_identifier_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4817),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4819),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4813),
+    [aux_sym_public_statement_token1] = ACTIONS(4815),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4487),
-    [sym__float_literal] = ACTIONS(4487),
-    [sym__boz_literal] = ACTIONS(4487),
-    [sym__string_literal] = ACTIONS(4487),
-    [sym__string_literal_kind] = ACTIONS(4487),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1019] = {
-    [ts_builtin_sym_end] = ACTIONS(4491),
-    [aux_sym_preproc_include_token1] = ACTIONS(4489),
-    [aux_sym_preproc_def_token1] = ACTIONS(4489),
-    [aux_sym_preproc_if_token1] = ACTIONS(4489),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4489),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4489),
-    [sym_preproc_directive] = ACTIONS(4489),
-    [anon_sym_LPAREN2] = ACTIONS(4489),
-    [anon_sym_PLUS] = ACTIONS(4491),
-    [anon_sym_DASH] = ACTIONS(4491),
+  [1005] = {
+    [ts_builtin_sym_end] = ACTIONS(4515),
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_module_statement_token1] = ACTIONS(4513),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_function_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1006] = {
+    [ts_builtin_sym_end] = ACTIONS(4309),
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4489),
-    [aux_sym_module_statement_token1] = ACTIONS(4489),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4489),
-    [aux_sym_interface_statement_token1] = ACTIONS(4489),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4489),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4489),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4489),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4489),
-    [aux_sym_function_statement_token1] = ACTIONS(4489),
-    [aux_sym_language_binding_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4489),
-    [aux_sym_contains_statement_token1] = ACTIONS(4489),
-    [aux_sym_use_statement_token1] = ACTIONS(4489),
-    [aux_sym_use_statement_token2] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4489),
-    [aux_sym_save_statement_token1] = ACTIONS(4489),
-    [aux_sym_private_statement_token1] = ACTIONS(4489),
-    [aux_sym_public_statement_token1] = ACTIONS(4489),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4489),
-    [aux_sym_common_statement_token1] = ACTIONS(4489),
-    [aux_sym_import_statement_token1] = ACTIONS(4489),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4489),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4489),
-    [aux_sym_derived_type_token1] = ACTIONS(4489),
-    [aux_sym_declared_type_token1] = ACTIONS(4489),
-    [aux_sym_declared_type_token2] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4489),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4489),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4489),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4489),
-    [anon_sym_SEMI] = ACTIONS(4491),
-    [aux_sym_stop_statement_token1] = ACTIONS(4489),
-    [aux_sym_stop_statement_token2] = ACTIONS(4489),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4489),
-    [aux_sym_include_statement_token1] = ACTIONS(4489),
-    [aux_sym_data_statement_token1] = ACTIONS(4489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4489),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4489),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4489),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4489),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4489),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4489),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4489),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4489),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4489),
-    [aux_sym_block_construct_token1] = ACTIONS(4489),
-    [aux_sym_associate_statement_token1] = ACTIONS(4489),
-    [aux_sym_format_statement_token1] = ACTIONS(4489),
-    [aux_sym_print_statement_token1] = ACTIONS(4489),
-    [aux_sym_open_statement_token1] = ACTIONS(4489),
-    [aux_sym_close_statement_token1] = ACTIONS(4489),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4489),
-    [aux_sym_enum_statement_token1] = ACTIONS(4489),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4489),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4489),
-    [aux_sym_entry_statement_token1] = ACTIONS(4489),
-    [aux_sym_logical_expression_token5] = ACTIONS(4491),
-    [anon_sym_DOT] = ACTIONS(4489),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4491),
-    [anon_sym_LBRACK] = ACTIONS(4491),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4491),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4491),
-    [aux_sym_null_literal_token1] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4489),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4489),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4489),
-    [aux_sym_identifier_token1] = ACTIONS(4489),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4491),
-    [sym__float_literal] = ACTIONS(4491),
-    [sym__boz_literal] = ACTIONS(4491),
-    [sym__string_literal] = ACTIONS(4491),
-    [sym__string_literal_kind] = ACTIONS(4491),
-  },
-  [1020] = {
-    [ts_builtin_sym_end] = ACTIONS(4495),
-    [aux_sym_preproc_include_token1] = ACTIONS(4493),
-    [aux_sym_preproc_def_token1] = ACTIONS(4493),
-    [aux_sym_preproc_if_token1] = ACTIONS(4493),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4493),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4493),
-    [sym_preproc_directive] = ACTIONS(4493),
-    [anon_sym_LPAREN2] = ACTIONS(4493),
-    [anon_sym_PLUS] = ACTIONS(4495),
-    [anon_sym_DASH] = ACTIONS(4495),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4493),
-    [aux_sym_module_statement_token1] = ACTIONS(4493),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4493),
-    [aux_sym_interface_statement_token1] = ACTIONS(4493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4493),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4493),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4493),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4493),
-    [aux_sym_function_statement_token1] = ACTIONS(4493),
-    [aux_sym_language_binding_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4493),
-    [aux_sym_contains_statement_token1] = ACTIONS(4493),
-    [aux_sym_use_statement_token1] = ACTIONS(4493),
-    [aux_sym_use_statement_token2] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4493),
-    [aux_sym_save_statement_token1] = ACTIONS(4493),
-    [aux_sym_private_statement_token1] = ACTIONS(4493),
-    [aux_sym_public_statement_token1] = ACTIONS(4493),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4493),
-    [aux_sym_common_statement_token1] = ACTIONS(4493),
-    [aux_sym_import_statement_token1] = ACTIONS(4493),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4493),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4493),
-    [aux_sym_derived_type_token1] = ACTIONS(4493),
-    [aux_sym_declared_type_token1] = ACTIONS(4493),
-    [aux_sym_declared_type_token2] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4493),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4493),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4493),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4493),
-    [anon_sym_SEMI] = ACTIONS(4495),
-    [aux_sym_stop_statement_token1] = ACTIONS(4493),
-    [aux_sym_stop_statement_token2] = ACTIONS(4493),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4493),
-    [aux_sym_include_statement_token1] = ACTIONS(4493),
-    [aux_sym_data_statement_token1] = ACTIONS(4493),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4493),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4493),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4493),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4493),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4493),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4493),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4493),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4493),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4493),
-    [aux_sym_block_construct_token1] = ACTIONS(4493),
-    [aux_sym_associate_statement_token1] = ACTIONS(4493),
-    [aux_sym_format_statement_token1] = ACTIONS(4493),
-    [aux_sym_print_statement_token1] = ACTIONS(4493),
-    [aux_sym_open_statement_token1] = ACTIONS(4493),
-    [aux_sym_close_statement_token1] = ACTIONS(4493),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4493),
-    [aux_sym_enum_statement_token1] = ACTIONS(4493),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4493),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4493),
-    [aux_sym_entry_statement_token1] = ACTIONS(4493),
-    [aux_sym_logical_expression_token5] = ACTIONS(4495),
-    [anon_sym_DOT] = ACTIONS(4493),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4495),
-    [anon_sym_LBRACK] = ACTIONS(4495),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4495),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4495),
-    [aux_sym_null_literal_token1] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4493),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4493),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4493),
-    [aux_sym_identifier_token1] = ACTIONS(4493),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4495),
-    [sym__float_literal] = ACTIONS(4495),
-    [sym__boz_literal] = ACTIONS(4495),
-    [sym__string_literal] = ACTIONS(4495),
-    [sym__string_literal_kind] = ACTIONS(4495),
-  },
-  [1021] = {
-    [ts_builtin_sym_end] = ACTIONS(4615),
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4613),
-    [aux_sym_module_statement_token1] = ACTIONS(4613),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_function_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
-  },
-  [1022] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4597),
-    [aux_sym_preproc_def_token1] = ACTIONS(4597),
-    [aux_sym_preproc_if_token1] = ACTIONS(4597),
-    [aux_sym_preproc_if_token2] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4597),
-    [sym_preproc_directive] = ACTIONS(4597),
-    [anon_sym_LPAREN2] = ACTIONS(4597),
-    [anon_sym_PLUS] = ACTIONS(4599),
-    [anon_sym_DASH] = ACTIONS(4599),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4597),
-    [aux_sym_module_statement_token1] = ACTIONS(4597),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4597),
-    [aux_sym_interface_statement_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4597),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4597),
-    [aux_sym_function_statement_token1] = ACTIONS(4597),
-    [aux_sym_language_binding_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4597),
-    [aux_sym_contains_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token2] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4597),
-    [aux_sym_save_statement_token1] = ACTIONS(4597),
-    [aux_sym_private_statement_token1] = ACTIONS(4597),
-    [aux_sym_public_statement_token1] = ACTIONS(4597),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4597),
-    [aux_sym_common_statement_token1] = ACTIONS(4597),
-    [aux_sym_import_statement_token1] = ACTIONS(4597),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4597),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4597),
-    [aux_sym_derived_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4597),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4597),
-    [anon_sym_SEMI] = ACTIONS(4599),
-    [aux_sym_stop_statement_token1] = ACTIONS(4597),
-    [aux_sym_stop_statement_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4597),
-    [aux_sym_include_statement_token1] = ACTIONS(4597),
-    [aux_sym_data_statement_token1] = ACTIONS(4597),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4597),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4597),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4597),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4597),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4597),
-    [aux_sym_block_construct_token1] = ACTIONS(4597),
-    [aux_sym_associate_statement_token1] = ACTIONS(4597),
-    [aux_sym_format_statement_token1] = ACTIONS(4597),
-    [aux_sym_print_statement_token1] = ACTIONS(4597),
-    [aux_sym_open_statement_token1] = ACTIONS(4597),
-    [aux_sym_close_statement_token1] = ACTIONS(4597),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4597),
-    [aux_sym_enum_statement_token1] = ACTIONS(4597),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4597),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4597),
-    [aux_sym_entry_statement_token1] = ACTIONS(4597),
-    [aux_sym_logical_expression_token5] = ACTIONS(4599),
-    [anon_sym_DOT] = ACTIONS(4597),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4599),
-    [anon_sym_LBRACK] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4599),
-    [aux_sym_null_literal_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4597),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4597),
-    [aux_sym_identifier_token1] = ACTIONS(4597),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4599),
-    [sym__float_literal] = ACTIONS(4599),
-    [sym__boz_literal] = ACTIONS(4599),
-    [sym__string_literal] = ACTIONS(4599),
-    [sym__string_literal_kind] = ACTIONS(4599),
-  },
-  [1023] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4625),
-    [aux_sym_preproc_def_token1] = ACTIONS(4625),
-    [aux_sym_preproc_if_token1] = ACTIONS(4625),
-    [aux_sym_preproc_if_token2] = ACTIONS(4625),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4625),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4625),
-    [sym_preproc_directive] = ACTIONS(4625),
-    [anon_sym_LPAREN2] = ACTIONS(4625),
-    [anon_sym_PLUS] = ACTIONS(4627),
-    [anon_sym_DASH] = ACTIONS(4627),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4625),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4625),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4625),
-    [aux_sym_module_statement_token1] = ACTIONS(4625),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4625),
-    [aux_sym_interface_statement_token1] = ACTIONS(4625),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4625),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4625),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4625),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4625),
-    [aux_sym_function_statement_token1] = ACTIONS(4625),
-    [aux_sym_language_binding_token1] = ACTIONS(4625),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4625),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4625),
-    [aux_sym_contains_statement_token1] = ACTIONS(4625),
-    [aux_sym_use_statement_token1] = ACTIONS(4625),
-    [aux_sym_use_statement_token2] = ACTIONS(4625),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4625),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4625),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4625),
-    [aux_sym_save_statement_token1] = ACTIONS(4625),
-    [aux_sym_private_statement_token1] = ACTIONS(4625),
-    [aux_sym_public_statement_token1] = ACTIONS(4625),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4625),
-    [aux_sym_common_statement_token1] = ACTIONS(4625),
-    [aux_sym_import_statement_token1] = ACTIONS(4625),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4625),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4625),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4625),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4625),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4625),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4625),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4625),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4625),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4625),
-    [aux_sym_derived_type_token1] = ACTIONS(4625),
-    [aux_sym_declared_type_token1] = ACTIONS(4625),
-    [aux_sym_declared_type_token2] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4625),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4625),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4625),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4625),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4625),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4625),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4625),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4625),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4625),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4625),
-    [anon_sym_SEMI] = ACTIONS(4627),
-    [aux_sym_stop_statement_token1] = ACTIONS(4625),
-    [aux_sym_stop_statement_token2] = ACTIONS(4625),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4625),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4625),
-    [aux_sym_include_statement_token1] = ACTIONS(4625),
-    [aux_sym_data_statement_token1] = ACTIONS(4625),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4625),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4625),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4625),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4625),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4625),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4625),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4625),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4625),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4625),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4625),
-    [aux_sym_block_construct_token1] = ACTIONS(4625),
-    [aux_sym_associate_statement_token1] = ACTIONS(4625),
-    [aux_sym_format_statement_token1] = ACTIONS(4625),
-    [aux_sym_print_statement_token1] = ACTIONS(4625),
-    [aux_sym_open_statement_token1] = ACTIONS(4625),
-    [aux_sym_close_statement_token1] = ACTIONS(4625),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4625),
-    [aux_sym_enum_statement_token1] = ACTIONS(4625),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4625),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4625),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4625),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4625),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4625),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4625),
-    [aux_sym_entry_statement_token1] = ACTIONS(4625),
-    [aux_sym_logical_expression_token5] = ACTIONS(4627),
-    [anon_sym_DOT] = ACTIONS(4625),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4627),
-    [anon_sym_LBRACK] = ACTIONS(4627),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4627),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4627),
-    [aux_sym_null_literal_token1] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4625),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4625),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4625),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4625),
-    [aux_sym_identifier_token1] = ACTIONS(4625),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4627),
-    [sym__float_literal] = ACTIONS(4627),
-    [sym__boz_literal] = ACTIONS(4627),
-    [sym__string_literal] = ACTIONS(4627),
-    [sym__string_literal_kind] = ACTIONS(4627),
-  },
-  [1024] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4633),
-    [aux_sym_preproc_def_token1] = ACTIONS(4633),
-    [aux_sym_preproc_if_token1] = ACTIONS(4633),
-    [aux_sym_preproc_if_token2] = ACTIONS(4633),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4633),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4633),
-    [sym_preproc_directive] = ACTIONS(4633),
-    [anon_sym_LPAREN2] = ACTIONS(4633),
-    [anon_sym_PLUS] = ACTIONS(4635),
-    [anon_sym_DASH] = ACTIONS(4635),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4633),
-    [aux_sym_module_statement_token1] = ACTIONS(4633),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4633),
-    [aux_sym_interface_statement_token1] = ACTIONS(4633),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4633),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4633),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4633),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4633),
-    [aux_sym_function_statement_token1] = ACTIONS(4633),
-    [aux_sym_language_binding_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4633),
-    [aux_sym_contains_statement_token1] = ACTIONS(4633),
-    [aux_sym_use_statement_token1] = ACTIONS(4633),
-    [aux_sym_use_statement_token2] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4633),
-    [aux_sym_save_statement_token1] = ACTIONS(4633),
-    [aux_sym_private_statement_token1] = ACTIONS(4633),
-    [aux_sym_public_statement_token1] = ACTIONS(4633),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4633),
-    [aux_sym_common_statement_token1] = ACTIONS(4633),
-    [aux_sym_import_statement_token1] = ACTIONS(4633),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4633),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4633),
-    [aux_sym_derived_type_token1] = ACTIONS(4633),
-    [aux_sym_declared_type_token1] = ACTIONS(4633),
-    [aux_sym_declared_type_token2] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4633),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4633),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4633),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4633),
-    [anon_sym_SEMI] = ACTIONS(4635),
-    [aux_sym_stop_statement_token1] = ACTIONS(4633),
-    [aux_sym_stop_statement_token2] = ACTIONS(4633),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4633),
-    [aux_sym_include_statement_token1] = ACTIONS(4633),
-    [aux_sym_data_statement_token1] = ACTIONS(4633),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4633),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4633),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4633),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4633),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4633),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4633),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4633),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4633),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4633),
-    [aux_sym_block_construct_token1] = ACTIONS(4633),
-    [aux_sym_associate_statement_token1] = ACTIONS(4633),
-    [aux_sym_format_statement_token1] = ACTIONS(4633),
-    [aux_sym_print_statement_token1] = ACTIONS(4633),
-    [aux_sym_open_statement_token1] = ACTIONS(4633),
-    [aux_sym_close_statement_token1] = ACTIONS(4633),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4633),
-    [aux_sym_enum_statement_token1] = ACTIONS(4633),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4633),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4633),
-    [aux_sym_entry_statement_token1] = ACTIONS(4633),
-    [aux_sym_logical_expression_token5] = ACTIONS(4635),
-    [anon_sym_DOT] = ACTIONS(4633),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4635),
-    [anon_sym_LBRACK] = ACTIONS(4635),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4635),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4635),
-    [aux_sym_null_literal_token1] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4633),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4633),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4633),
-    [aux_sym_identifier_token1] = ACTIONS(4633),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4635),
-    [sym__float_literal] = ACTIONS(4635),
-    [sym__boz_literal] = ACTIONS(4635),
-    [sym__string_literal] = ACTIONS(4635),
-    [sym__string_literal_kind] = ACTIONS(4635),
-  },
-  [1025] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4461),
-    [aux_sym_preproc_def_token1] = ACTIONS(4461),
-    [aux_sym_preproc_if_token1] = ACTIONS(4461),
-    [aux_sym_preproc_if_token2] = ACTIONS(4461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4461),
-    [sym_preproc_directive] = ACTIONS(4461),
-    [anon_sym_LPAREN2] = ACTIONS(4461),
-    [anon_sym_PLUS] = ACTIONS(4463),
-    [anon_sym_DASH] = ACTIONS(4463),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4461),
-    [aux_sym_module_statement_token1] = ACTIONS(4461),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4461),
-    [aux_sym_interface_statement_token1] = ACTIONS(4461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4461),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4461),
-    [aux_sym_function_statement_token1] = ACTIONS(4461),
-    [aux_sym_language_binding_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4461),
-    [aux_sym_contains_statement_token1] = ACTIONS(4461),
-    [aux_sym_use_statement_token1] = ACTIONS(4461),
-    [aux_sym_use_statement_token2] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4461),
-    [aux_sym_save_statement_token1] = ACTIONS(4461),
-    [aux_sym_private_statement_token1] = ACTIONS(4461),
-    [aux_sym_public_statement_token1] = ACTIONS(4461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4461),
-    [aux_sym_common_statement_token1] = ACTIONS(4461),
-    [aux_sym_import_statement_token1] = ACTIONS(4461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4461),
-    [aux_sym_derived_type_token1] = ACTIONS(4461),
-    [aux_sym_declared_type_token1] = ACTIONS(4461),
-    [aux_sym_declared_type_token2] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4461),
-    [anon_sym_SEMI] = ACTIONS(4463),
-    [aux_sym_stop_statement_token1] = ACTIONS(4461),
-    [aux_sym_stop_statement_token2] = ACTIONS(4461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4461),
-    [aux_sym_include_statement_token1] = ACTIONS(4461),
-    [aux_sym_data_statement_token1] = ACTIONS(4461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4461),
-    [aux_sym_block_construct_token1] = ACTIONS(4461),
-    [aux_sym_associate_statement_token1] = ACTIONS(4461),
-    [aux_sym_format_statement_token1] = ACTIONS(4461),
-    [aux_sym_print_statement_token1] = ACTIONS(4461),
-    [aux_sym_open_statement_token1] = ACTIONS(4461),
-    [aux_sym_close_statement_token1] = ACTIONS(4461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4461),
-    [aux_sym_enum_statement_token1] = ACTIONS(4461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4461),
-    [aux_sym_entry_statement_token1] = ACTIONS(4461),
-    [aux_sym_logical_expression_token5] = ACTIONS(4463),
-    [anon_sym_DOT] = ACTIONS(4461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4463),
-    [anon_sym_LBRACK] = ACTIONS(4463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4463),
-    [aux_sym_null_literal_token1] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4461),
-    [aux_sym_identifier_token1] = ACTIONS(4461),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4463),
-    [sym__float_literal] = ACTIONS(4463),
-    [sym__boz_literal] = ACTIONS(4463),
-    [sym__string_literal] = ACTIONS(4463),
-    [sym__string_literal_kind] = ACTIONS(4463),
-  },
-  [1026] = {
-    [ts_builtin_sym_end] = ACTIONS(4365),
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
-  },
-  [1027] = {
-    [ts_builtin_sym_end] = ACTIONS(4643),
-    [aux_sym_preproc_include_token1] = ACTIONS(4641),
-    [aux_sym_preproc_def_token1] = ACTIONS(4641),
-    [aux_sym_preproc_if_token1] = ACTIONS(4641),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4641),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4641),
-    [sym_preproc_directive] = ACTIONS(4641),
-    [anon_sym_LPAREN2] = ACTIONS(4641),
-    [anon_sym_PLUS] = ACTIONS(4643),
-    [anon_sym_DASH] = ACTIONS(4643),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4641),
-    [aux_sym_module_statement_token1] = ACTIONS(4641),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4641),
-    [aux_sym_interface_statement_token1] = ACTIONS(4641),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4641),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4641),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4641),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4641),
-    [aux_sym_function_statement_token1] = ACTIONS(4641),
-    [aux_sym_language_binding_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4641),
-    [aux_sym_contains_statement_token1] = ACTIONS(4641),
-    [aux_sym_use_statement_token1] = ACTIONS(4641),
-    [aux_sym_use_statement_token2] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4641),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4641),
-    [aux_sym_save_statement_token1] = ACTIONS(4641),
-    [aux_sym_private_statement_token1] = ACTIONS(4641),
-    [aux_sym_public_statement_token1] = ACTIONS(4641),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4641),
-    [aux_sym_common_statement_token1] = ACTIONS(4641),
-    [aux_sym_import_statement_token1] = ACTIONS(4641),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4641),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4641),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4641),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4641),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4641),
-    [aux_sym_derived_type_token1] = ACTIONS(4641),
-    [aux_sym_declared_type_token1] = ACTIONS(4641),
-    [aux_sym_declared_type_token2] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4641),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4641),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4641),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4641),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4641),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4641),
-    [anon_sym_SEMI] = ACTIONS(4643),
-    [aux_sym_stop_statement_token1] = ACTIONS(4641),
-    [aux_sym_stop_statement_token2] = ACTIONS(4641),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4641),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4641),
-    [aux_sym_include_statement_token1] = ACTIONS(4641),
-    [aux_sym_data_statement_token1] = ACTIONS(4641),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4641),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4641),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4641),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4641),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4641),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4641),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4641),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4641),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4641),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4641),
-    [aux_sym_block_construct_token1] = ACTIONS(4641),
-    [aux_sym_associate_statement_token1] = ACTIONS(4641),
-    [aux_sym_format_statement_token1] = ACTIONS(4641),
-    [aux_sym_print_statement_token1] = ACTIONS(4641),
-    [aux_sym_open_statement_token1] = ACTIONS(4641),
-    [aux_sym_close_statement_token1] = ACTIONS(4641),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4641),
-    [aux_sym_enum_statement_token1] = ACTIONS(4641),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4641),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4641),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4641),
-    [aux_sym_entry_statement_token1] = ACTIONS(4641),
-    [aux_sym_logical_expression_token5] = ACTIONS(4643),
-    [anon_sym_DOT] = ACTIONS(4641),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4643),
-    [anon_sym_LBRACK] = ACTIONS(4643),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4643),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4643),
-    [aux_sym_null_literal_token1] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4641),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4641),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4641),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4641),
-    [aux_sym_identifier_token1] = ACTIONS(4641),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4643),
-    [sym__float_literal] = ACTIONS(4643),
-    [sym__boz_literal] = ACTIONS(4643),
-    [sym__string_literal] = ACTIONS(4643),
-    [sym__string_literal_kind] = ACTIONS(4643),
-  },
-  [1028] = {
-    [ts_builtin_sym_end] = ACTIONS(4505),
-    [aux_sym_preproc_include_token1] = ACTIONS(4503),
-    [aux_sym_preproc_def_token1] = ACTIONS(4503),
-    [aux_sym_preproc_if_token1] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4503),
-    [sym_preproc_directive] = ACTIONS(4503),
-    [anon_sym_LPAREN2] = ACTIONS(4503),
-    [anon_sym_PLUS] = ACTIONS(4505),
-    [anon_sym_DASH] = ACTIONS(4505),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4503),
-    [aux_sym_module_statement_token1] = ACTIONS(4503),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4503),
-    [aux_sym_interface_statement_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4503),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4503),
-    [aux_sym_function_statement_token1] = ACTIONS(4503),
-    [aux_sym_language_binding_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4503),
-    [aux_sym_contains_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token2] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4503),
-    [aux_sym_save_statement_token1] = ACTIONS(4503),
-    [aux_sym_private_statement_token1] = ACTIONS(4503),
-    [aux_sym_public_statement_token1] = ACTIONS(4503),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4503),
-    [aux_sym_common_statement_token1] = ACTIONS(4503),
-    [aux_sym_import_statement_token1] = ACTIONS(4503),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4503),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4503),
-    [aux_sym_derived_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4503),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4503),
-    [anon_sym_SEMI] = ACTIONS(4505),
-    [aux_sym_stop_statement_token1] = ACTIONS(4503),
-    [aux_sym_stop_statement_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4503),
-    [aux_sym_include_statement_token1] = ACTIONS(4503),
-    [aux_sym_data_statement_token1] = ACTIONS(4503),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4503),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4503),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4503),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4503),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4503),
-    [aux_sym_block_construct_token1] = ACTIONS(4503),
-    [aux_sym_associate_statement_token1] = ACTIONS(4503),
-    [aux_sym_format_statement_token1] = ACTIONS(4503),
-    [aux_sym_print_statement_token1] = ACTIONS(4503),
-    [aux_sym_open_statement_token1] = ACTIONS(4503),
-    [aux_sym_close_statement_token1] = ACTIONS(4503),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4503),
-    [aux_sym_enum_statement_token1] = ACTIONS(4503),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4503),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4503),
-    [aux_sym_entry_statement_token1] = ACTIONS(4503),
-    [aux_sym_logical_expression_token5] = ACTIONS(4505),
-    [anon_sym_DOT] = ACTIONS(4503),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4505),
-    [anon_sym_LBRACK] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4505),
-    [aux_sym_null_literal_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4503),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4503),
-    [aux_sym_identifier_token1] = ACTIONS(4503),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4505),
-    [sym__float_literal] = ACTIONS(4505),
-    [sym__boz_literal] = ACTIONS(4505),
-    [sym__string_literal] = ACTIONS(4505),
-    [sym__string_literal_kind] = ACTIONS(4505),
-  },
-  [1029] = {
-    [ts_builtin_sym_end] = ACTIONS(4423),
-    [aux_sym_preproc_include_token1] = ACTIONS(4421),
-    [aux_sym_preproc_def_token1] = ACTIONS(4421),
-    [aux_sym_preproc_if_token1] = ACTIONS(4421),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
-    [sym_preproc_directive] = ACTIONS(4421),
-    [anon_sym_LPAREN2] = ACTIONS(4421),
-    [anon_sym_PLUS] = ACTIONS(4423),
-    [anon_sym_DASH] = ACTIONS(4423),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
     [aux_sym_end_program_statement_token1] = ACTIONS(4421),
     [aux_sym_end_program_statement_token2] = ACTIONS(4421),
-    [aux_sym_module_statement_token1] = ACTIONS(4421),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
     [aux_sym_interface_statement_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
-    [aux_sym_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
     [aux_sym_language_binding_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
@@ -237180,11 +233796,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
     [aux_sym_type_qualifier_token1] = ACTIONS(4421),
     [aux_sym_type_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4421),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
     [anon_sym_SEMI] = ACTIONS(4423),
     [aux_sym_stop_statement_token1] = ACTIONS(4421),
@@ -237247,3395 +233863,575 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4423),
     [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1030] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4549),
-    [aux_sym_preproc_def_token1] = ACTIONS(4549),
-    [aux_sym_preproc_if_token1] = ACTIONS(4549),
-    [aux_sym_preproc_if_token2] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4549),
-    [sym_preproc_directive] = ACTIONS(4549),
-    [anon_sym_LPAREN2] = ACTIONS(4549),
-    [anon_sym_PLUS] = ACTIONS(4551),
-    [anon_sym_DASH] = ACTIONS(4551),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4549),
-    [aux_sym_module_statement_token1] = ACTIONS(4549),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4549),
-    [aux_sym_interface_statement_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4549),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4549),
-    [aux_sym_function_statement_token1] = ACTIONS(4549),
-    [aux_sym_language_binding_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4549),
-    [aux_sym_contains_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token2] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4549),
-    [aux_sym_save_statement_token1] = ACTIONS(4549),
-    [aux_sym_private_statement_token1] = ACTIONS(4549),
-    [aux_sym_public_statement_token1] = ACTIONS(4549),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4549),
-    [aux_sym_common_statement_token1] = ACTIONS(4549),
-    [aux_sym_import_statement_token1] = ACTIONS(4549),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4549),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4549),
-    [aux_sym_derived_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4549),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4549),
-    [anon_sym_SEMI] = ACTIONS(4551),
-    [aux_sym_stop_statement_token1] = ACTIONS(4549),
-    [aux_sym_stop_statement_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4549),
-    [aux_sym_include_statement_token1] = ACTIONS(4549),
-    [aux_sym_data_statement_token1] = ACTIONS(4549),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4549),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4549),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4549),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4549),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4549),
-    [aux_sym_block_construct_token1] = ACTIONS(4549),
-    [aux_sym_associate_statement_token1] = ACTIONS(4549),
-    [aux_sym_format_statement_token1] = ACTIONS(4549),
-    [aux_sym_print_statement_token1] = ACTIONS(4549),
-    [aux_sym_open_statement_token1] = ACTIONS(4549),
-    [aux_sym_close_statement_token1] = ACTIONS(4549),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4549),
-    [aux_sym_enum_statement_token1] = ACTIONS(4549),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4549),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4549),
-    [aux_sym_entry_statement_token1] = ACTIONS(4549),
-    [aux_sym_logical_expression_token5] = ACTIONS(4551),
-    [anon_sym_DOT] = ACTIONS(4549),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4551),
-    [anon_sym_LBRACK] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4551),
-    [aux_sym_null_literal_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4549),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4549),
-    [aux_sym_identifier_token1] = ACTIONS(4549),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4551),
-    [sym__float_literal] = ACTIONS(4551),
-    [sym__boz_literal] = ACTIONS(4551),
-    [sym__string_literal] = ACTIONS(4551),
-    [sym__string_literal_kind] = ACTIONS(4551),
-  },
-  [1031] = {
-    [ts_builtin_sym_end] = ACTIONS(4539),
-    [aux_sym_preproc_include_token1] = ACTIONS(4537),
-    [aux_sym_preproc_def_token1] = ACTIONS(4537),
-    [aux_sym_preproc_if_token1] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4537),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4537),
-    [sym_preproc_directive] = ACTIONS(4537),
-    [anon_sym_LPAREN2] = ACTIONS(4537),
-    [anon_sym_PLUS] = ACTIONS(4539),
-    [anon_sym_DASH] = ACTIONS(4539),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4537),
-    [aux_sym_module_statement_token1] = ACTIONS(4537),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4537),
-    [aux_sym_interface_statement_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4537),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4537),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4537),
-    [aux_sym_function_statement_token1] = ACTIONS(4537),
-    [aux_sym_language_binding_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4537),
-    [aux_sym_contains_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token1] = ACTIONS(4537),
-    [aux_sym_use_statement_token2] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4537),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4537),
-    [aux_sym_save_statement_token1] = ACTIONS(4537),
-    [aux_sym_private_statement_token1] = ACTIONS(4537),
-    [aux_sym_public_statement_token1] = ACTIONS(4537),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4537),
-    [aux_sym_common_statement_token1] = ACTIONS(4537),
-    [aux_sym_import_statement_token1] = ACTIONS(4537),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4537),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4537),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4537),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4537),
-    [aux_sym_derived_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token1] = ACTIONS(4537),
-    [aux_sym_declared_type_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4537),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4537),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4537),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4537),
-    [anon_sym_SEMI] = ACTIONS(4539),
-    [aux_sym_stop_statement_token1] = ACTIONS(4537),
-    [aux_sym_stop_statement_token2] = ACTIONS(4537),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4537),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4537),
-    [aux_sym_include_statement_token1] = ACTIONS(4537),
-    [aux_sym_data_statement_token1] = ACTIONS(4537),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4537),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4537),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4537),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4537),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4537),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4537),
-    [aux_sym_block_construct_token1] = ACTIONS(4537),
-    [aux_sym_associate_statement_token1] = ACTIONS(4537),
-    [aux_sym_format_statement_token1] = ACTIONS(4537),
-    [aux_sym_print_statement_token1] = ACTIONS(4537),
-    [aux_sym_open_statement_token1] = ACTIONS(4537),
-    [aux_sym_close_statement_token1] = ACTIONS(4537),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4537),
-    [aux_sym_enum_statement_token1] = ACTIONS(4537),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4537),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4537),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4537),
-    [aux_sym_entry_statement_token1] = ACTIONS(4537),
-    [aux_sym_logical_expression_token5] = ACTIONS(4539),
-    [anon_sym_DOT] = ACTIONS(4537),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4539),
-    [anon_sym_LBRACK] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4539),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4539),
-    [aux_sym_null_literal_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4537),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4537),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4537),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4537),
-    [aux_sym_identifier_token1] = ACTIONS(4537),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4539),
-    [sym__float_literal] = ACTIONS(4539),
-    [sym__boz_literal] = ACTIONS(4539),
-    [sym__string_literal] = ACTIONS(4539),
-    [sym__string_literal_kind] = ACTIONS(4539),
-  },
-  [1032] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4601),
-    [aux_sym_module_statement_token1] = ACTIONS(4601),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_function_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4601),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
-  },
-  [1033] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4605),
-    [aux_sym_module_statement_token1] = ACTIONS(4605),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_function_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
-  },
-  [1034] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4609),
-    [aux_sym_module_statement_token1] = ACTIONS(4609),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_function_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
-  },
-  [1035] = {
-    [ts_builtin_sym_end] = ACTIONS(4535),
-    [aux_sym_preproc_include_token1] = ACTIONS(4533),
-    [aux_sym_preproc_def_token1] = ACTIONS(4533),
-    [aux_sym_preproc_if_token1] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4533),
-    [sym_preproc_directive] = ACTIONS(4533),
-    [anon_sym_LPAREN2] = ACTIONS(4533),
-    [anon_sym_PLUS] = ACTIONS(4535),
-    [anon_sym_DASH] = ACTIONS(4535),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4533),
-    [aux_sym_module_statement_token1] = ACTIONS(4533),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4533),
-    [aux_sym_interface_statement_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4533),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4533),
-    [aux_sym_function_statement_token1] = ACTIONS(4533),
-    [aux_sym_language_binding_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4533),
-    [aux_sym_contains_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token2] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4533),
-    [aux_sym_save_statement_token1] = ACTIONS(4533),
-    [aux_sym_private_statement_token1] = ACTIONS(4533),
-    [aux_sym_public_statement_token1] = ACTIONS(4533),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4533),
-    [aux_sym_common_statement_token1] = ACTIONS(4533),
-    [aux_sym_import_statement_token1] = ACTIONS(4533),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4533),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4533),
-    [aux_sym_derived_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4533),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4533),
-    [anon_sym_SEMI] = ACTIONS(4535),
-    [aux_sym_stop_statement_token1] = ACTIONS(4533),
-    [aux_sym_stop_statement_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4533),
-    [aux_sym_include_statement_token1] = ACTIONS(4533),
-    [aux_sym_data_statement_token1] = ACTIONS(4533),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4533),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4533),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4533),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4533),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4533),
-    [aux_sym_block_construct_token1] = ACTIONS(4533),
-    [aux_sym_associate_statement_token1] = ACTIONS(4533),
-    [aux_sym_format_statement_token1] = ACTIONS(4533),
-    [aux_sym_print_statement_token1] = ACTIONS(4533),
-    [aux_sym_open_statement_token1] = ACTIONS(4533),
-    [aux_sym_close_statement_token1] = ACTIONS(4533),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4533),
-    [aux_sym_enum_statement_token1] = ACTIONS(4533),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4533),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4533),
-    [aux_sym_entry_statement_token1] = ACTIONS(4533),
-    [aux_sym_logical_expression_token5] = ACTIONS(4535),
-    [anon_sym_DOT] = ACTIONS(4533),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4535),
-    [anon_sym_LBRACK] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4535),
-    [aux_sym_null_literal_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4533),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4533),
-    [aux_sym_identifier_token1] = ACTIONS(4533),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4535),
-    [sym__float_literal] = ACTIONS(4535),
-    [sym__boz_literal] = ACTIONS(4535),
-    [sym__string_literal] = ACTIONS(4535),
-    [sym__string_literal_kind] = ACTIONS(4535),
-  },
-  [1036] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4613),
-    [aux_sym_module_statement_token1] = ACTIONS(4613),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_function_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4613),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+  [1007] = {
+    [ts_builtin_sym_end] = ACTIONS(4545),
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_module_statement_token1] = ACTIONS(4543),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_function_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [1037] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4617),
-    [aux_sym_module_statement_token1] = ACTIONS(4617),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_function_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+  [1008] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4305),
+    [aux_sym_preproc_def_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
+    [sym_preproc_directive] = ACTIONS(4305),
+    [anon_sym_LPAREN2] = ACTIONS(4305),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
+    [aux_sym_contains_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token2] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
+    [aux_sym_save_statement_token1] = ACTIONS(4305),
+    [aux_sym_private_statement_token1] = ACTIONS(4305),
+    [aux_sym_public_statement_token1] = ACTIONS(4305),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
+    [aux_sym_common_statement_token1] = ACTIONS(4305),
+    [aux_sym_import_statement_token1] = ACTIONS(4305),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
+    [aux_sym_derived_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
+    [anon_sym_SEMI] = ACTIONS(4309),
+    [aux_sym_stop_statement_token1] = ACTIONS(4305),
+    [aux_sym_stop_statement_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
+    [aux_sym_include_statement_token1] = ACTIONS(4305),
+    [aux_sym_data_statement_token1] = ACTIONS(4305),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
+    [aux_sym_block_construct_token1] = ACTIONS(4305),
+    [aux_sym_associate_statement_token1] = ACTIONS(4305),
+    [aux_sym_format_statement_token1] = ACTIONS(4305),
+    [aux_sym_print_statement_token1] = ACTIONS(4305),
+    [aux_sym_open_statement_token1] = ACTIONS(4305),
+    [aux_sym_close_statement_token1] = ACTIONS(4305),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
+    [aux_sym_enum_statement_token1] = ACTIONS(4305),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
+    [aux_sym_entry_statement_token1] = ACTIONS(4305),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
+    [anon_sym_DOT] = ACTIONS(4305),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
+    [aux_sym_null_literal_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
+    [aux_sym_identifier_token1] = ACTIONS(4305),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
   },
-  [1038] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token2] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1009] = {
+    [ts_builtin_sym_end] = ACTIONS(4487),
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4621),
-    [aux_sym_module_statement_token1] = ACTIONS(4621),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_function_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4621),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
-  },
-  [1039] = {
-    [ts_builtin_sym_end] = ACTIONS(4619),
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4617),
-    [aux_sym_module_statement_token1] = ACTIONS(4617),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_function_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4617),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
-  },
-  [1040] = {
-    [ts_builtin_sym_end] = ACTIONS(4451),
-    [aux_sym_preproc_include_token1] = ACTIONS(4449),
-    [aux_sym_preproc_def_token1] = ACTIONS(4449),
-    [aux_sym_preproc_if_token1] = ACTIONS(4449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4449),
-    [sym_preproc_directive] = ACTIONS(4449),
-    [anon_sym_LPAREN2] = ACTIONS(4449),
-    [anon_sym_PLUS] = ACTIONS(4451),
-    [anon_sym_DASH] = ACTIONS(4451),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4449),
-    [aux_sym_module_statement_token1] = ACTIONS(4449),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4449),
-    [aux_sym_interface_statement_token1] = ACTIONS(4449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4449),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4449),
-    [aux_sym_function_statement_token1] = ACTIONS(4449),
-    [aux_sym_language_binding_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4449),
-    [aux_sym_contains_statement_token1] = ACTIONS(4449),
-    [aux_sym_use_statement_token1] = ACTIONS(4449),
-    [aux_sym_use_statement_token2] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4449),
-    [aux_sym_save_statement_token1] = ACTIONS(4449),
-    [aux_sym_private_statement_token1] = ACTIONS(4449),
-    [aux_sym_public_statement_token1] = ACTIONS(4449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4449),
-    [aux_sym_common_statement_token1] = ACTIONS(4449),
-    [aux_sym_import_statement_token1] = ACTIONS(4449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4449),
-    [aux_sym_derived_type_token1] = ACTIONS(4449),
-    [aux_sym_declared_type_token1] = ACTIONS(4449),
-    [aux_sym_declared_type_token2] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4449),
-    [anon_sym_SEMI] = ACTIONS(4451),
-    [aux_sym_stop_statement_token1] = ACTIONS(4449),
-    [aux_sym_stop_statement_token2] = ACTIONS(4449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4449),
-    [aux_sym_include_statement_token1] = ACTIONS(4449),
-    [aux_sym_data_statement_token1] = ACTIONS(4449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4449),
-    [aux_sym_block_construct_token1] = ACTIONS(4449),
-    [aux_sym_associate_statement_token1] = ACTIONS(4449),
-    [aux_sym_format_statement_token1] = ACTIONS(4449),
-    [aux_sym_print_statement_token1] = ACTIONS(4449),
-    [aux_sym_open_statement_token1] = ACTIONS(4449),
-    [aux_sym_close_statement_token1] = ACTIONS(4449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4449),
-    [aux_sym_enum_statement_token1] = ACTIONS(4449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4449),
-    [aux_sym_entry_statement_token1] = ACTIONS(4449),
-    [aux_sym_logical_expression_token5] = ACTIONS(4451),
-    [anon_sym_DOT] = ACTIONS(4449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4451),
-    [anon_sym_LBRACK] = ACTIONS(4451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4451),
-    [aux_sym_null_literal_token1] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4449),
-    [aux_sym_identifier_token1] = ACTIONS(4449),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4451),
-    [sym__float_literal] = ACTIONS(4451),
-    [sym__boz_literal] = ACTIONS(4451),
-    [sym__string_literal] = ACTIONS(4451),
-    [sym__string_literal_kind] = ACTIONS(4451),
-  },
-  [1041] = {
-    [ts_builtin_sym_end] = ACTIONS(4563),
-    [aux_sym_preproc_include_token1] = ACTIONS(4561),
-    [aux_sym_preproc_def_token1] = ACTIONS(4561),
-    [aux_sym_preproc_if_token1] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4561),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4561),
-    [sym_preproc_directive] = ACTIONS(4561),
-    [anon_sym_LPAREN2] = ACTIONS(4561),
-    [anon_sym_PLUS] = ACTIONS(4563),
-    [anon_sym_DASH] = ACTIONS(4563),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4561),
-    [aux_sym_module_statement_token1] = ACTIONS(4561),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4561),
-    [aux_sym_interface_statement_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4561),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4561),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4561),
-    [aux_sym_function_statement_token1] = ACTIONS(4561),
-    [aux_sym_language_binding_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4561),
-    [aux_sym_contains_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token1] = ACTIONS(4561),
-    [aux_sym_use_statement_token2] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4561),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4561),
-    [aux_sym_save_statement_token1] = ACTIONS(4561),
-    [aux_sym_private_statement_token1] = ACTIONS(4561),
-    [aux_sym_public_statement_token1] = ACTIONS(4561),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4561),
-    [aux_sym_common_statement_token1] = ACTIONS(4561),
-    [aux_sym_import_statement_token1] = ACTIONS(4561),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4561),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4561),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4561),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4561),
-    [aux_sym_derived_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token1] = ACTIONS(4561),
-    [aux_sym_declared_type_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4561),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4561),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4561),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4561),
-    [anon_sym_SEMI] = ACTIONS(4563),
-    [aux_sym_stop_statement_token1] = ACTIONS(4561),
-    [aux_sym_stop_statement_token2] = ACTIONS(4561),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4561),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4561),
-    [aux_sym_include_statement_token1] = ACTIONS(4561),
-    [aux_sym_data_statement_token1] = ACTIONS(4561),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4561),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4561),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4561),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4561),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4561),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4561),
-    [aux_sym_block_construct_token1] = ACTIONS(4561),
-    [aux_sym_associate_statement_token1] = ACTIONS(4561),
-    [aux_sym_format_statement_token1] = ACTIONS(4561),
-    [aux_sym_print_statement_token1] = ACTIONS(4561),
-    [aux_sym_open_statement_token1] = ACTIONS(4561),
-    [aux_sym_close_statement_token1] = ACTIONS(4561),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4561),
-    [aux_sym_enum_statement_token1] = ACTIONS(4561),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4561),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4561),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4561),
-    [aux_sym_entry_statement_token1] = ACTIONS(4561),
-    [aux_sym_logical_expression_token5] = ACTIONS(4563),
-    [anon_sym_DOT] = ACTIONS(4561),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4563),
-    [anon_sym_LBRACK] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4563),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4563),
-    [aux_sym_null_literal_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4561),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4561),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4561),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4561),
-    [aux_sym_identifier_token1] = ACTIONS(4561),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4563),
-    [sym__float_literal] = ACTIONS(4563),
-    [sym__boz_literal] = ACTIONS(4563),
-    [sym__string_literal] = ACTIONS(4563),
-    [sym__string_literal_kind] = ACTIONS(4563),
-  },
-  [1042] = {
-    [ts_builtin_sym_end] = ACTIONS(4567),
-    [aux_sym_preproc_include_token1] = ACTIONS(4565),
-    [aux_sym_preproc_def_token1] = ACTIONS(4565),
-    [aux_sym_preproc_if_token1] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4565),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4565),
-    [sym_preproc_directive] = ACTIONS(4565),
-    [anon_sym_LPAREN2] = ACTIONS(4565),
-    [anon_sym_PLUS] = ACTIONS(4567),
-    [anon_sym_DASH] = ACTIONS(4567),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4565),
-    [aux_sym_module_statement_token1] = ACTIONS(4565),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4565),
-    [aux_sym_interface_statement_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4565),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4565),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4565),
-    [aux_sym_function_statement_token1] = ACTIONS(4565),
-    [aux_sym_language_binding_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4565),
-    [aux_sym_contains_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token1] = ACTIONS(4565),
-    [aux_sym_use_statement_token2] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4565),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4565),
-    [aux_sym_save_statement_token1] = ACTIONS(4565),
-    [aux_sym_private_statement_token1] = ACTIONS(4565),
-    [aux_sym_public_statement_token1] = ACTIONS(4565),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4565),
-    [aux_sym_common_statement_token1] = ACTIONS(4565),
-    [aux_sym_import_statement_token1] = ACTIONS(4565),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4565),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4565),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4565),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4565),
-    [aux_sym_derived_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token1] = ACTIONS(4565),
-    [aux_sym_declared_type_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4565),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4565),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4565),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4565),
-    [anon_sym_SEMI] = ACTIONS(4567),
-    [aux_sym_stop_statement_token1] = ACTIONS(4565),
-    [aux_sym_stop_statement_token2] = ACTIONS(4565),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4565),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4565),
-    [aux_sym_include_statement_token1] = ACTIONS(4565),
-    [aux_sym_data_statement_token1] = ACTIONS(4565),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4565),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4565),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4565),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4565),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4565),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4565),
-    [aux_sym_block_construct_token1] = ACTIONS(4565),
-    [aux_sym_associate_statement_token1] = ACTIONS(4565),
-    [aux_sym_format_statement_token1] = ACTIONS(4565),
-    [aux_sym_print_statement_token1] = ACTIONS(4565),
-    [aux_sym_open_statement_token1] = ACTIONS(4565),
-    [aux_sym_close_statement_token1] = ACTIONS(4565),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4565),
-    [aux_sym_enum_statement_token1] = ACTIONS(4565),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4565),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4565),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4565),
-    [aux_sym_entry_statement_token1] = ACTIONS(4565),
-    [aux_sym_logical_expression_token5] = ACTIONS(4567),
-    [anon_sym_DOT] = ACTIONS(4565),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4567),
-    [anon_sym_LBRACK] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4567),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4567),
-    [aux_sym_null_literal_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4565),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4565),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4565),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4565),
-    [aux_sym_identifier_token1] = ACTIONS(4565),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4567),
-    [sym__float_literal] = ACTIONS(4567),
-    [sym__boz_literal] = ACTIONS(4567),
-    [sym__string_literal] = ACTIONS(4567),
-    [sym__string_literal_kind] = ACTIONS(4567),
-  },
-  [1043] = {
-    [ts_builtin_sym_end] = ACTIONS(4455),
-    [aux_sym_preproc_include_token1] = ACTIONS(4453),
-    [aux_sym_preproc_def_token1] = ACTIONS(4453),
-    [aux_sym_preproc_if_token1] = ACTIONS(4453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4453),
-    [sym_preproc_directive] = ACTIONS(4453),
-    [anon_sym_LPAREN2] = ACTIONS(4453),
-    [anon_sym_PLUS] = ACTIONS(4455),
-    [anon_sym_DASH] = ACTIONS(4455),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4453),
-    [aux_sym_module_statement_token1] = ACTIONS(4453),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4453),
-    [aux_sym_interface_statement_token1] = ACTIONS(4453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4453),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4453),
-    [aux_sym_function_statement_token1] = ACTIONS(4453),
-    [aux_sym_language_binding_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4453),
-    [aux_sym_contains_statement_token1] = ACTIONS(4453),
-    [aux_sym_use_statement_token1] = ACTIONS(4453),
-    [aux_sym_use_statement_token2] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4453),
-    [aux_sym_save_statement_token1] = ACTIONS(4453),
-    [aux_sym_private_statement_token1] = ACTIONS(4453),
-    [aux_sym_public_statement_token1] = ACTIONS(4453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4453),
-    [aux_sym_common_statement_token1] = ACTIONS(4453),
-    [aux_sym_import_statement_token1] = ACTIONS(4453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4453),
-    [aux_sym_derived_type_token1] = ACTIONS(4453),
-    [aux_sym_declared_type_token1] = ACTIONS(4453),
-    [aux_sym_declared_type_token2] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4453),
-    [anon_sym_SEMI] = ACTIONS(4455),
-    [aux_sym_stop_statement_token1] = ACTIONS(4453),
-    [aux_sym_stop_statement_token2] = ACTIONS(4453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4453),
-    [aux_sym_include_statement_token1] = ACTIONS(4453),
-    [aux_sym_data_statement_token1] = ACTIONS(4453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4453),
-    [aux_sym_block_construct_token1] = ACTIONS(4453),
-    [aux_sym_associate_statement_token1] = ACTIONS(4453),
-    [aux_sym_format_statement_token1] = ACTIONS(4453),
-    [aux_sym_print_statement_token1] = ACTIONS(4453),
-    [aux_sym_open_statement_token1] = ACTIONS(4453),
-    [aux_sym_close_statement_token1] = ACTIONS(4453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4453),
-    [aux_sym_enum_statement_token1] = ACTIONS(4453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4453),
-    [aux_sym_entry_statement_token1] = ACTIONS(4453),
-    [aux_sym_logical_expression_token5] = ACTIONS(4455),
-    [anon_sym_DOT] = ACTIONS(4453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4455),
-    [anon_sym_LBRACK] = ACTIONS(4455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4455),
-    [aux_sym_null_literal_token1] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4453),
-    [aux_sym_identifier_token1] = ACTIONS(4453),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4455),
-    [sym__float_literal] = ACTIONS(4455),
-    [sym__boz_literal] = ACTIONS(4455),
-    [sym__string_literal] = ACTIONS(4455),
-    [sym__string_literal_kind] = ACTIONS(4455),
-  },
-  [1044] = {
-    [ts_builtin_sym_end] = ACTIONS(4571),
-    [aux_sym_preproc_include_token1] = ACTIONS(4569),
-    [aux_sym_preproc_def_token1] = ACTIONS(4569),
-    [aux_sym_preproc_if_token1] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4569),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4569),
-    [sym_preproc_directive] = ACTIONS(4569),
-    [anon_sym_LPAREN2] = ACTIONS(4569),
-    [anon_sym_PLUS] = ACTIONS(4571),
-    [anon_sym_DASH] = ACTIONS(4571),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4569),
-    [aux_sym_module_statement_token1] = ACTIONS(4569),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4569),
-    [aux_sym_interface_statement_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4569),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4569),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4569),
-    [aux_sym_function_statement_token1] = ACTIONS(4569),
-    [aux_sym_language_binding_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4569),
-    [aux_sym_contains_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token1] = ACTIONS(4569),
-    [aux_sym_use_statement_token2] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4569),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4569),
-    [aux_sym_save_statement_token1] = ACTIONS(4569),
-    [aux_sym_private_statement_token1] = ACTIONS(4569),
-    [aux_sym_public_statement_token1] = ACTIONS(4569),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4569),
-    [aux_sym_common_statement_token1] = ACTIONS(4569),
-    [aux_sym_import_statement_token1] = ACTIONS(4569),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4569),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4569),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4569),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4569),
-    [aux_sym_derived_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token1] = ACTIONS(4569),
-    [aux_sym_declared_type_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4569),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4569),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4569),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4569),
-    [anon_sym_SEMI] = ACTIONS(4571),
-    [aux_sym_stop_statement_token1] = ACTIONS(4569),
-    [aux_sym_stop_statement_token2] = ACTIONS(4569),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4569),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4569),
-    [aux_sym_include_statement_token1] = ACTIONS(4569),
-    [aux_sym_data_statement_token1] = ACTIONS(4569),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4569),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4569),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4569),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4569),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4569),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4569),
-    [aux_sym_block_construct_token1] = ACTIONS(4569),
-    [aux_sym_associate_statement_token1] = ACTIONS(4569),
-    [aux_sym_format_statement_token1] = ACTIONS(4569),
-    [aux_sym_print_statement_token1] = ACTIONS(4569),
-    [aux_sym_open_statement_token1] = ACTIONS(4569),
-    [aux_sym_close_statement_token1] = ACTIONS(4569),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4569),
-    [aux_sym_enum_statement_token1] = ACTIONS(4569),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4569),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4569),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4569),
-    [aux_sym_entry_statement_token1] = ACTIONS(4569),
-    [aux_sym_logical_expression_token5] = ACTIONS(4571),
-    [anon_sym_DOT] = ACTIONS(4569),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4571),
-    [anon_sym_LBRACK] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4571),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4571),
-    [aux_sym_null_literal_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4569),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4569),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4569),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4569),
-    [aux_sym_identifier_token1] = ACTIONS(4569),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4571),
-    [sym__float_literal] = ACTIONS(4571),
-    [sym__boz_literal] = ACTIONS(4571),
-    [sym__string_literal] = ACTIONS(4571),
-    [sym__string_literal_kind] = ACTIONS(4571),
-  },
-  [1045] = {
-    [ts_builtin_sym_end] = ACTIONS(4575),
-    [aux_sym_preproc_include_token1] = ACTIONS(4573),
-    [aux_sym_preproc_def_token1] = ACTIONS(4573),
-    [aux_sym_preproc_if_token1] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4573),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4573),
-    [sym_preproc_directive] = ACTIONS(4573),
-    [anon_sym_LPAREN2] = ACTIONS(4573),
-    [anon_sym_PLUS] = ACTIONS(4575),
-    [anon_sym_DASH] = ACTIONS(4575),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4573),
-    [aux_sym_module_statement_token1] = ACTIONS(4573),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4573),
-    [aux_sym_interface_statement_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4573),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4573),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4573),
-    [aux_sym_function_statement_token1] = ACTIONS(4573),
-    [aux_sym_language_binding_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4573),
-    [aux_sym_contains_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token1] = ACTIONS(4573),
-    [aux_sym_use_statement_token2] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4573),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4573),
-    [aux_sym_save_statement_token1] = ACTIONS(4573),
-    [aux_sym_private_statement_token1] = ACTIONS(4573),
-    [aux_sym_public_statement_token1] = ACTIONS(4573),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4573),
-    [aux_sym_common_statement_token1] = ACTIONS(4573),
-    [aux_sym_import_statement_token1] = ACTIONS(4573),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4573),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4573),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4573),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4573),
-    [aux_sym_derived_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token1] = ACTIONS(4573),
-    [aux_sym_declared_type_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4573),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4573),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4573),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4573),
-    [anon_sym_SEMI] = ACTIONS(4575),
-    [aux_sym_stop_statement_token1] = ACTIONS(4573),
-    [aux_sym_stop_statement_token2] = ACTIONS(4573),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4573),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4573),
-    [aux_sym_include_statement_token1] = ACTIONS(4573),
-    [aux_sym_data_statement_token1] = ACTIONS(4573),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4573),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4573),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4573),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4573),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4573),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4573),
-    [aux_sym_block_construct_token1] = ACTIONS(4573),
-    [aux_sym_associate_statement_token1] = ACTIONS(4573),
-    [aux_sym_format_statement_token1] = ACTIONS(4573),
-    [aux_sym_print_statement_token1] = ACTIONS(4573),
-    [aux_sym_open_statement_token1] = ACTIONS(4573),
-    [aux_sym_close_statement_token1] = ACTIONS(4573),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4573),
-    [aux_sym_enum_statement_token1] = ACTIONS(4573),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4573),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4573),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4573),
-    [aux_sym_entry_statement_token1] = ACTIONS(4573),
-    [aux_sym_logical_expression_token5] = ACTIONS(4575),
-    [anon_sym_DOT] = ACTIONS(4573),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4575),
-    [anon_sym_LBRACK] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4575),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4575),
-    [aux_sym_null_literal_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4573),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4573),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4573),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4573),
-    [aux_sym_identifier_token1] = ACTIONS(4573),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4575),
-    [sym__float_literal] = ACTIONS(4575),
-    [sym__boz_literal] = ACTIONS(4575),
-    [sym__string_literal] = ACTIONS(4575),
-    [sym__string_literal_kind] = ACTIONS(4575),
-  },
-  [1046] = {
-    [ts_builtin_sym_end] = ACTIONS(4459),
-    [aux_sym_preproc_include_token1] = ACTIONS(4457),
-    [aux_sym_preproc_def_token1] = ACTIONS(4457),
-    [aux_sym_preproc_if_token1] = ACTIONS(4457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4457),
-    [sym_preproc_directive] = ACTIONS(4457),
-    [anon_sym_LPAREN2] = ACTIONS(4457),
-    [anon_sym_PLUS] = ACTIONS(4459),
-    [anon_sym_DASH] = ACTIONS(4459),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4457),
-    [aux_sym_module_statement_token1] = ACTIONS(4457),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4457),
-    [aux_sym_interface_statement_token1] = ACTIONS(4457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4457),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4457),
-    [aux_sym_function_statement_token1] = ACTIONS(4457),
-    [aux_sym_language_binding_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4457),
-    [aux_sym_contains_statement_token1] = ACTIONS(4457),
-    [aux_sym_use_statement_token1] = ACTIONS(4457),
-    [aux_sym_use_statement_token2] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4457),
-    [aux_sym_save_statement_token1] = ACTIONS(4457),
-    [aux_sym_private_statement_token1] = ACTIONS(4457),
-    [aux_sym_public_statement_token1] = ACTIONS(4457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4457),
-    [aux_sym_common_statement_token1] = ACTIONS(4457),
-    [aux_sym_import_statement_token1] = ACTIONS(4457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4457),
-    [aux_sym_derived_type_token1] = ACTIONS(4457),
-    [aux_sym_declared_type_token1] = ACTIONS(4457),
-    [aux_sym_declared_type_token2] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4457),
-    [anon_sym_SEMI] = ACTIONS(4459),
-    [aux_sym_stop_statement_token1] = ACTIONS(4457),
-    [aux_sym_stop_statement_token2] = ACTIONS(4457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4457),
-    [aux_sym_include_statement_token1] = ACTIONS(4457),
-    [aux_sym_data_statement_token1] = ACTIONS(4457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4457),
-    [aux_sym_block_construct_token1] = ACTIONS(4457),
-    [aux_sym_associate_statement_token1] = ACTIONS(4457),
-    [aux_sym_format_statement_token1] = ACTIONS(4457),
-    [aux_sym_print_statement_token1] = ACTIONS(4457),
-    [aux_sym_open_statement_token1] = ACTIONS(4457),
-    [aux_sym_close_statement_token1] = ACTIONS(4457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4457),
-    [aux_sym_enum_statement_token1] = ACTIONS(4457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4457),
-    [aux_sym_entry_statement_token1] = ACTIONS(4457),
-    [aux_sym_logical_expression_token5] = ACTIONS(4459),
-    [anon_sym_DOT] = ACTIONS(4457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4459),
-    [anon_sym_LBRACK] = ACTIONS(4459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4459),
-    [aux_sym_null_literal_token1] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4457),
-    [aux_sym_identifier_token1] = ACTIONS(4457),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4459),
-    [sym__float_literal] = ACTIONS(4459),
-    [sym__boz_literal] = ACTIONS(4459),
-    [sym__string_literal] = ACTIONS(4459),
-    [sym__string_literal_kind] = ACTIONS(4459),
-  },
-  [1047] = {
-    [ts_builtin_sym_end] = ACTIONS(4607),
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4605),
-    [aux_sym_module_statement_token1] = ACTIONS(4605),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_function_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4605),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
-  },
-  [1048] = {
-    [ts_builtin_sym_end] = ACTIONS(4611),
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4609),
-    [aux_sym_module_statement_token1] = ACTIONS(4609),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_function_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4609),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
-  },
-  [1049] = {
-    [ts_builtin_sym_end] = ACTIONS(4555),
-    [aux_sym_preproc_include_token1] = ACTIONS(4553),
-    [aux_sym_preproc_def_token1] = ACTIONS(4553),
-    [aux_sym_preproc_if_token1] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4553),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4553),
-    [sym_preproc_directive] = ACTIONS(4553),
-    [anon_sym_LPAREN2] = ACTIONS(4553),
-    [anon_sym_PLUS] = ACTIONS(4555),
-    [anon_sym_DASH] = ACTIONS(4555),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4553),
-    [aux_sym_module_statement_token1] = ACTIONS(4553),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4553),
-    [aux_sym_interface_statement_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4553),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4553),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4553),
-    [aux_sym_function_statement_token1] = ACTIONS(4553),
-    [aux_sym_language_binding_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4553),
-    [aux_sym_contains_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token1] = ACTIONS(4553),
-    [aux_sym_use_statement_token2] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4553),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4553),
-    [aux_sym_save_statement_token1] = ACTIONS(4553),
-    [aux_sym_private_statement_token1] = ACTIONS(4553),
-    [aux_sym_public_statement_token1] = ACTIONS(4553),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4553),
-    [aux_sym_common_statement_token1] = ACTIONS(4553),
-    [aux_sym_import_statement_token1] = ACTIONS(4553),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4553),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4553),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4553),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4553),
-    [aux_sym_derived_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token1] = ACTIONS(4553),
-    [aux_sym_declared_type_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4553),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4553),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4553),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4553),
-    [anon_sym_SEMI] = ACTIONS(4555),
-    [aux_sym_stop_statement_token1] = ACTIONS(4553),
-    [aux_sym_stop_statement_token2] = ACTIONS(4553),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4553),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4553),
-    [aux_sym_include_statement_token1] = ACTIONS(4553),
-    [aux_sym_data_statement_token1] = ACTIONS(4553),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4553),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4553),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4553),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4553),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4553),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4553),
-    [aux_sym_block_construct_token1] = ACTIONS(4553),
-    [aux_sym_associate_statement_token1] = ACTIONS(4553),
-    [aux_sym_format_statement_token1] = ACTIONS(4553),
-    [aux_sym_print_statement_token1] = ACTIONS(4553),
-    [aux_sym_open_statement_token1] = ACTIONS(4553),
-    [aux_sym_close_statement_token1] = ACTIONS(4553),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4553),
-    [aux_sym_enum_statement_token1] = ACTIONS(4553),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4553),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4553),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4553),
-    [aux_sym_entry_statement_token1] = ACTIONS(4553),
-    [aux_sym_logical_expression_token5] = ACTIONS(4555),
-    [anon_sym_DOT] = ACTIONS(4553),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4555),
-    [anon_sym_LBRACK] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4555),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4555),
-    [aux_sym_null_literal_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4553),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4553),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4553),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4553),
-    [aux_sym_identifier_token1] = ACTIONS(4553),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4555),
-    [sym__float_literal] = ACTIONS(4555),
-    [sym__boz_literal] = ACTIONS(4555),
-    [sym__string_literal] = ACTIONS(4555),
-    [sym__string_literal_kind] = ACTIONS(4555),
-  },
-  [1050] = {
-    [ts_builtin_sym_end] = ACTIONS(4543),
-    [aux_sym_preproc_include_token1] = ACTIONS(4541),
-    [aux_sym_preproc_def_token1] = ACTIONS(4541),
-    [aux_sym_preproc_if_token1] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4541),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4541),
-    [sym_preproc_directive] = ACTIONS(4541),
-    [anon_sym_LPAREN2] = ACTIONS(4541),
-    [anon_sym_PLUS] = ACTIONS(4543),
-    [anon_sym_DASH] = ACTIONS(4543),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4541),
-    [aux_sym_module_statement_token1] = ACTIONS(4541),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4541),
-    [aux_sym_interface_statement_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4541),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4541),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4541),
-    [aux_sym_function_statement_token1] = ACTIONS(4541),
-    [aux_sym_language_binding_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4541),
-    [aux_sym_contains_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token1] = ACTIONS(4541),
-    [aux_sym_use_statement_token2] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4541),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4541),
-    [aux_sym_save_statement_token1] = ACTIONS(4541),
-    [aux_sym_private_statement_token1] = ACTIONS(4541),
-    [aux_sym_public_statement_token1] = ACTIONS(4541),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4541),
-    [aux_sym_common_statement_token1] = ACTIONS(4541),
-    [aux_sym_import_statement_token1] = ACTIONS(4541),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4541),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4541),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4541),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4541),
-    [aux_sym_derived_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token1] = ACTIONS(4541),
-    [aux_sym_declared_type_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4541),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4541),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4541),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4541),
-    [anon_sym_SEMI] = ACTIONS(4543),
-    [aux_sym_stop_statement_token1] = ACTIONS(4541),
-    [aux_sym_stop_statement_token2] = ACTIONS(4541),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4541),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4541),
-    [aux_sym_include_statement_token1] = ACTIONS(4541),
-    [aux_sym_data_statement_token1] = ACTIONS(4541),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4541),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4541),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4541),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4541),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4541),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4541),
-    [aux_sym_block_construct_token1] = ACTIONS(4541),
-    [aux_sym_associate_statement_token1] = ACTIONS(4541),
-    [aux_sym_format_statement_token1] = ACTIONS(4541),
-    [aux_sym_print_statement_token1] = ACTIONS(4541),
-    [aux_sym_open_statement_token1] = ACTIONS(4541),
-    [aux_sym_close_statement_token1] = ACTIONS(4541),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4541),
-    [aux_sym_enum_statement_token1] = ACTIONS(4541),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4541),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4541),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4541),
-    [aux_sym_entry_statement_token1] = ACTIONS(4541),
-    [aux_sym_logical_expression_token5] = ACTIONS(4543),
-    [anon_sym_DOT] = ACTIONS(4541),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4543),
-    [anon_sym_LBRACK] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4543),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4543),
-    [aux_sym_null_literal_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4541),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4541),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4541),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4541),
-    [aux_sym_identifier_token1] = ACTIONS(4541),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4543),
-    [sym__float_literal] = ACTIONS(4543),
-    [sym__boz_literal] = ACTIONS(4543),
-    [sym__string_literal] = ACTIONS(4543),
-    [sym__string_literal_kind] = ACTIONS(4543),
-  },
-  [1051] = {
-    [ts_builtin_sym_end] = ACTIONS(4559),
-    [aux_sym_preproc_include_token1] = ACTIONS(4557),
-    [aux_sym_preproc_def_token1] = ACTIONS(4557),
-    [aux_sym_preproc_if_token1] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4557),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4557),
-    [sym_preproc_directive] = ACTIONS(4557),
-    [anon_sym_LPAREN2] = ACTIONS(4557),
-    [anon_sym_PLUS] = ACTIONS(4559),
-    [anon_sym_DASH] = ACTIONS(4559),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4557),
-    [aux_sym_module_statement_token1] = ACTIONS(4557),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4557),
-    [aux_sym_interface_statement_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4557),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4557),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4557),
-    [aux_sym_function_statement_token1] = ACTIONS(4557),
-    [aux_sym_language_binding_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4557),
-    [aux_sym_contains_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token1] = ACTIONS(4557),
-    [aux_sym_use_statement_token2] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4557),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4557),
-    [aux_sym_save_statement_token1] = ACTIONS(4557),
-    [aux_sym_private_statement_token1] = ACTIONS(4557),
-    [aux_sym_public_statement_token1] = ACTIONS(4557),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4557),
-    [aux_sym_common_statement_token1] = ACTIONS(4557),
-    [aux_sym_import_statement_token1] = ACTIONS(4557),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4557),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4557),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4557),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4557),
-    [aux_sym_derived_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token1] = ACTIONS(4557),
-    [aux_sym_declared_type_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4557),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4557),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4557),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4557),
-    [anon_sym_SEMI] = ACTIONS(4559),
-    [aux_sym_stop_statement_token1] = ACTIONS(4557),
-    [aux_sym_stop_statement_token2] = ACTIONS(4557),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4557),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4557),
-    [aux_sym_include_statement_token1] = ACTIONS(4557),
-    [aux_sym_data_statement_token1] = ACTIONS(4557),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4557),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4557),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4557),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4557),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4557),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4557),
-    [aux_sym_block_construct_token1] = ACTIONS(4557),
-    [aux_sym_associate_statement_token1] = ACTIONS(4557),
-    [aux_sym_format_statement_token1] = ACTIONS(4557),
-    [aux_sym_print_statement_token1] = ACTIONS(4557),
-    [aux_sym_open_statement_token1] = ACTIONS(4557),
-    [aux_sym_close_statement_token1] = ACTIONS(4557),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4557),
-    [aux_sym_enum_statement_token1] = ACTIONS(4557),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4557),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4557),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4557),
-    [aux_sym_entry_statement_token1] = ACTIONS(4557),
-    [aux_sym_logical_expression_token5] = ACTIONS(4559),
-    [anon_sym_DOT] = ACTIONS(4557),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4559),
-    [anon_sym_LBRACK] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4559),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4559),
-    [aux_sym_null_literal_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4557),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4557),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4557),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4557),
-    [aux_sym_identifier_token1] = ACTIONS(4557),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4559),
-    [sym__float_literal] = ACTIONS(4559),
-    [sym__boz_literal] = ACTIONS(4559),
-    [sym__string_literal] = ACTIONS(4559),
-    [sym__string_literal_kind] = ACTIONS(4559),
-  },
-  [1052] = {
-    [ts_builtin_sym_end] = ACTIONS(692),
-    [aux_sym_preproc_include_token1] = ACTIONS(376),
-    [aux_sym_preproc_def_token1] = ACTIONS(376),
-    [aux_sym_preproc_if_token1] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
-    [sym_preproc_directive] = ACTIONS(376),
-    [anon_sym_LPAREN2] = ACTIONS(376),
-    [anon_sym_PLUS] = ACTIONS(692),
-    [anon_sym_DASH] = ACTIONS(692),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token2] = ACTIONS(376),
-    [aux_sym_module_statement_token1] = ACTIONS(376),
-    [aux_sym_submodule_statement_token1] = ACTIONS(376),
-    [aux_sym_interface_statement_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
-    [aux_sym_function_statement_token1] = ACTIONS(376),
-    [aux_sym_language_binding_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
-    [aux_sym_contains_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token2] = ACTIONS(376),
-    [aux_sym_implicit_statement_token1] = ACTIONS(376),
-    [aux_sym_implicit_statement_token3] = ACTIONS(376),
-    [aux_sym_implicit_statement_token4] = ACTIONS(376),
-    [aux_sym_save_statement_token1] = ACTIONS(376),
-    [aux_sym_private_statement_token1] = ACTIONS(376),
-    [aux_sym_public_statement_token1] = ACTIONS(376),
-    [aux_sym_namelist_statement_token1] = ACTIONS(376),
-    [aux_sym_common_statement_token1] = ACTIONS(376),
-    [aux_sym_import_statement_token1] = ACTIONS(376),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
-    [aux_sym_variable_attributes_token1] = ACTIONS(376),
-    [aux_sym_variable_attributes_token2] = ACTIONS(376),
-    [aux_sym_variable_attributes_token3] = ACTIONS(376),
-    [aux_sym_variable_attributes_token4] = ACTIONS(376),
-    [aux_sym_variable_attributes_token5] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
-    [aux_sym_derived_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
-    [aux_sym_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
-    [anon_sym_SEMI] = ACTIONS(692),
-    [aux_sym_stop_statement_token1] = ACTIONS(376),
-    [aux_sym_stop_statement_token2] = ACTIONS(376),
-    [aux_sym_subroutine_call_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token2] = ACTIONS(376),
-    [aux_sym_keyword_statement_token3] = ACTIONS(376),
-    [aux_sym_keyword_statement_token4] = ACTIONS(376),
-    [aux_sym_keyword_statement_token6] = ACTIONS(376),
-    [aux_sym_keyword_statement_token7] = ACTIONS(376),
-    [aux_sym_include_statement_token1] = ACTIONS(376),
-    [aux_sym_data_statement_token1] = ACTIONS(376),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
-    [aux_sym_end_if_statement_token1] = ACTIONS(376),
-    [aux_sym_elseif_clause_token2] = ACTIONS(376),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token3] = ACTIONS(376),
-    [aux_sym_select_type_statement_token1] = ACTIONS(376),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
-    [aux_sym_block_construct_token1] = ACTIONS(376),
-    [aux_sym_associate_statement_token1] = ACTIONS(376),
-    [aux_sym_format_statement_token1] = ACTIONS(376),
-    [aux_sym_print_statement_token1] = ACTIONS(376),
-    [aux_sym_open_statement_token1] = ACTIONS(376),
-    [aux_sym_close_statement_token1] = ACTIONS(376),
-    [aux_sym_inquire_statement_token1] = ACTIONS(376),
-    [aux_sym_enum_statement_token1] = ACTIONS(376),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token2] = ACTIONS(376),
-    [aux_sym_file_position_statement_token3] = ACTIONS(376),
-    [aux_sym_file_position_statement_token4] = ACTIONS(376),
-    [aux_sym_allocate_statement_token1] = ACTIONS(376),
-    [aux_sym_entry_statement_token1] = ACTIONS(376),
-    [aux_sym_logical_expression_token5] = ACTIONS(692),
-    [anon_sym_DOT] = ACTIONS(376),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(692),
-    [anon_sym_LBRACK] = ACTIONS(692),
-    [aux_sym_boolean_literal_token1] = ACTIONS(692),
-    [aux_sym_boolean_literal_token2] = ACTIONS(692),
-    [aux_sym_null_literal_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token2] = ACTIONS(376),
-    [aux_sym_coarray_statement_token6] = ACTIONS(376),
-    [aux_sym_coarray_statement_token8] = ACTIONS(376),
-    [aux_sym_coarray_statement_token11] = ACTIONS(376),
-    [aux_sym_coarray_statement_token12] = ACTIONS(376),
-    [aux_sym_coarray_statement_token13] = ACTIONS(376),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
-    [aux_sym_identifier_token1] = ACTIONS(376),
+    [aux_sym_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4485),
+    [aux_sym_module_statement_token1] = ACTIONS(4485),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_function_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(692),
-    [sym__float_literal] = ACTIONS(692),
-    [sym__boz_literal] = ACTIONS(692),
-    [sym__string_literal] = ACTIONS(692),
-    [sym__string_literal_kind] = ACTIONS(692),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1053] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4417),
-    [aux_sym_preproc_def_token1] = ACTIONS(4417),
-    [aux_sym_preproc_if_token1] = ACTIONS(4417),
-    [aux_sym_preproc_if_token2] = ACTIONS(4417),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4417),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4417),
-    [sym_preproc_directive] = ACTIONS(4417),
-    [anon_sym_LPAREN2] = ACTIONS(4417),
-    [anon_sym_PLUS] = ACTIONS(4419),
-    [anon_sym_DASH] = ACTIONS(4419),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4417),
-    [aux_sym_module_statement_token1] = ACTIONS(4417),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4417),
-    [aux_sym_interface_statement_token1] = ACTIONS(4417),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4417),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4417),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4417),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4417),
-    [aux_sym_function_statement_token1] = ACTIONS(4417),
-    [aux_sym_language_binding_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4417),
-    [aux_sym_contains_statement_token1] = ACTIONS(4417),
-    [aux_sym_use_statement_token1] = ACTIONS(4417),
-    [aux_sym_use_statement_token2] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4417),
-    [aux_sym_save_statement_token1] = ACTIONS(4417),
-    [aux_sym_private_statement_token1] = ACTIONS(4417),
-    [aux_sym_public_statement_token1] = ACTIONS(4417),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4417),
-    [aux_sym_common_statement_token1] = ACTIONS(4417),
-    [aux_sym_import_statement_token1] = ACTIONS(4417),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4417),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4417),
-    [aux_sym_derived_type_token1] = ACTIONS(4417),
-    [aux_sym_declared_type_token1] = ACTIONS(4417),
-    [aux_sym_declared_type_token2] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4417),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4417),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4417),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4417),
-    [anon_sym_SEMI] = ACTIONS(4419),
-    [aux_sym_stop_statement_token1] = ACTIONS(4417),
-    [aux_sym_stop_statement_token2] = ACTIONS(4417),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4417),
-    [aux_sym_include_statement_token1] = ACTIONS(4417),
-    [aux_sym_data_statement_token1] = ACTIONS(4417),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4417),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4417),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4417),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4417),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4417),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4417),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4417),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4417),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4417),
-    [aux_sym_block_construct_token1] = ACTIONS(4417),
-    [aux_sym_associate_statement_token1] = ACTIONS(4417),
-    [aux_sym_format_statement_token1] = ACTIONS(4417),
-    [aux_sym_print_statement_token1] = ACTIONS(4417),
-    [aux_sym_open_statement_token1] = ACTIONS(4417),
-    [aux_sym_close_statement_token1] = ACTIONS(4417),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4417),
-    [aux_sym_enum_statement_token1] = ACTIONS(4417),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4417),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4417),
-    [aux_sym_entry_statement_token1] = ACTIONS(4417),
-    [aux_sym_logical_expression_token5] = ACTIONS(4419),
-    [anon_sym_DOT] = ACTIONS(4417),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4419),
-    [anon_sym_LBRACK] = ACTIONS(4419),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4419),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4419),
-    [aux_sym_null_literal_token1] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4417),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4417),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4417),
-    [aux_sym_identifier_token1] = ACTIONS(4417),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4419),
-    [sym__float_literal] = ACTIONS(4419),
-    [sym__boz_literal] = ACTIONS(4419),
-    [sym__string_literal] = ACTIONS(4419),
-    [sym__string_literal_kind] = ACTIONS(4419),
+  [1010] = {
+    [ts_builtin_sym_end] = ACTIONS(4549),
+    [aux_sym_preproc_include_token1] = ACTIONS(4547),
+    [aux_sym_preproc_def_token1] = ACTIONS(4547),
+    [aux_sym_preproc_if_token1] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4547),
+    [sym_preproc_directive] = ACTIONS(4547),
+    [anon_sym_LPAREN2] = ACTIONS(4547),
+    [anon_sym_PLUS] = ACTIONS(4549),
+    [anon_sym_DASH] = ACTIONS(4549),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4547),
+    [aux_sym_module_statement_token1] = ACTIONS(4547),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4547),
+    [aux_sym_interface_statement_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4547),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4547),
+    [aux_sym_function_statement_token1] = ACTIONS(4547),
+    [aux_sym_language_binding_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4547),
+    [aux_sym_contains_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token2] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4547),
+    [aux_sym_save_statement_token1] = ACTIONS(4547),
+    [aux_sym_private_statement_token1] = ACTIONS(4547),
+    [aux_sym_public_statement_token1] = ACTIONS(4547),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4547),
+    [aux_sym_common_statement_token1] = ACTIONS(4547),
+    [aux_sym_import_statement_token1] = ACTIONS(4547),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4547),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4547),
+    [aux_sym_derived_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4547),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4547),
+    [anon_sym_SEMI] = ACTIONS(4549),
+    [aux_sym_stop_statement_token1] = ACTIONS(4547),
+    [aux_sym_stop_statement_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4547),
+    [aux_sym_include_statement_token1] = ACTIONS(4547),
+    [aux_sym_data_statement_token1] = ACTIONS(4547),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4547),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4547),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4547),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4547),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4547),
+    [aux_sym_block_construct_token1] = ACTIONS(4547),
+    [aux_sym_associate_statement_token1] = ACTIONS(4547),
+    [aux_sym_format_statement_token1] = ACTIONS(4547),
+    [aux_sym_print_statement_token1] = ACTIONS(4547),
+    [aux_sym_open_statement_token1] = ACTIONS(4547),
+    [aux_sym_close_statement_token1] = ACTIONS(4547),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4547),
+    [aux_sym_enum_statement_token1] = ACTIONS(4547),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4547),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4547),
+    [aux_sym_entry_statement_token1] = ACTIONS(4547),
+    [aux_sym_logical_expression_token5] = ACTIONS(4549),
+    [anon_sym_DOT] = ACTIONS(4547),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4549),
+    [anon_sym_LBRACK] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4549),
+    [aux_sym_null_literal_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4547),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4547),
+    [aux_sym_identifier_token1] = ACTIONS(4547),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4549),
+    [sym__float_literal] = ACTIONS(4549),
+    [sym__boz_literal] = ACTIONS(4549),
+    [sym__string_literal] = ACTIONS(4549),
+    [sym__string_literal_kind] = ACTIONS(4549),
   },
-  [1054] = {
+  [1011] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4421),
     [aux_sym_preproc_def_token1] = ACTIONS(4421),
     [aux_sym_preproc_if_token1] = ACTIONS(4421),
-    [aux_sym_preproc_if_token2] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
     [sym_preproc_directive] = ACTIONS(4421),
@@ -240643,17 +234439,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(4423),
     [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
     [aux_sym_end_program_statement_token1] = ACTIONS(4421),
     [aux_sym_end_program_statement_token2] = ACTIONS(4421),
-    [aux_sym_module_statement_token1] = ACTIONS(4421),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
     [aux_sym_interface_statement_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
-    [aux_sym_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
     [aux_sym_language_binding_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
@@ -240705,11 +234501,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
     [aux_sym_type_qualifier_token1] = ACTIONS(4421),
     [aux_sym_type_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4421),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4421),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
     [anon_sym_SEMI] = ACTIONS(4423),
     [aux_sym_stop_statement_token1] = ACTIONS(4421),
@@ -240772,716 +234568,293 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4423),
     [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1055] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4425),
-    [aux_sym_preproc_def_token1] = ACTIONS(4425),
-    [aux_sym_preproc_if_token1] = ACTIONS(4425),
-    [aux_sym_preproc_if_token2] = ACTIONS(4425),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
-    [sym_preproc_directive] = ACTIONS(4425),
-    [anon_sym_LPAREN2] = ACTIONS(4425),
-    [anon_sym_PLUS] = ACTIONS(4427),
-    [anon_sym_DASH] = ACTIONS(4427),
+  [1012] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4611),
+    [aux_sym_preproc_def_token1] = ACTIONS(4611),
+    [aux_sym_preproc_if_token1] = ACTIONS(4611),
+    [aux_sym_preproc_if_token2] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4611),
+    [sym_preproc_directive] = ACTIONS(4611),
+    [anon_sym_LPAREN2] = ACTIONS(4611),
+    [anon_sym_PLUS] = ACTIONS(4613),
+    [anon_sym_DASH] = ACTIONS(4613),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4611),
+    [aux_sym_module_statement_token1] = ACTIONS(4611),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4611),
+    [aux_sym_interface_statement_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4611),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4611),
+    [aux_sym_function_statement_token1] = ACTIONS(4611),
+    [aux_sym_language_binding_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4611),
+    [aux_sym_contains_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token2] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4611),
+    [aux_sym_save_statement_token1] = ACTIONS(4611),
+    [aux_sym_private_statement_token1] = ACTIONS(4611),
+    [aux_sym_public_statement_token1] = ACTIONS(4611),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4611),
+    [aux_sym_common_statement_token1] = ACTIONS(4611),
+    [aux_sym_import_statement_token1] = ACTIONS(4611),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4611),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4611),
+    [aux_sym_derived_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4611),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4611),
+    [anon_sym_SEMI] = ACTIONS(4613),
+    [aux_sym_stop_statement_token1] = ACTIONS(4611),
+    [aux_sym_stop_statement_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4611),
+    [aux_sym_include_statement_token1] = ACTIONS(4611),
+    [aux_sym_data_statement_token1] = ACTIONS(4611),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4611),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4611),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4611),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4611),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4611),
+    [aux_sym_block_construct_token1] = ACTIONS(4611),
+    [aux_sym_associate_statement_token1] = ACTIONS(4611),
+    [aux_sym_format_statement_token1] = ACTIONS(4611),
+    [aux_sym_print_statement_token1] = ACTIONS(4611),
+    [aux_sym_open_statement_token1] = ACTIONS(4611),
+    [aux_sym_close_statement_token1] = ACTIONS(4611),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4611),
+    [aux_sym_enum_statement_token1] = ACTIONS(4611),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4611),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4611),
+    [aux_sym_entry_statement_token1] = ACTIONS(4611),
+    [aux_sym_logical_expression_token5] = ACTIONS(4613),
+    [anon_sym_DOT] = ACTIONS(4611),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4613),
+    [anon_sym_LBRACK] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4613),
+    [aux_sym_null_literal_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4611),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4611),
+    [aux_sym_identifier_token1] = ACTIONS(4611),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4613),
+    [sym__float_literal] = ACTIONS(4613),
+    [sym__boz_literal] = ACTIONS(4613),
+    [sym__string_literal] = ACTIONS(4613),
+    [sym__string_literal_kind] = ACTIONS(4613),
+  },
+  [1013] = {
+    [sym_preproc_include] = STATE(1111),
+    [sym_preproc_def] = STATE(1111),
+    [sym_preproc_function_def] = STATE(1111),
+    [sym_preproc_call] = STATE(1111),
+    [sym_preproc_if_in_module] = STATE(1111),
+    [sym_preproc_ifdef_in_module] = STATE(1111),
+    [sym_end_submodule_statement] = STATE(975),
+    [sym_interface] = STATE(1111),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7164),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(1111),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1111),
+    [sym_public_statement] = STATE(1111),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1111),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1111),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1111),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4425),
-    [aux_sym_module_statement_token1] = ACTIONS(4425),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4425),
-    [aux_sym_interface_statement_token1] = ACTIONS(4425),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4425),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
-    [aux_sym_function_statement_token1] = ACTIONS(4425),
-    [aux_sym_language_binding_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
-    [aux_sym_contains_statement_token1] = ACTIONS(4425),
-    [aux_sym_use_statement_token1] = ACTIONS(4425),
-    [aux_sym_use_statement_token2] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
-    [aux_sym_save_statement_token1] = ACTIONS(4425),
-    [aux_sym_private_statement_token1] = ACTIONS(4425),
-    [aux_sym_public_statement_token1] = ACTIONS(4425),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
-    [aux_sym_common_statement_token1] = ACTIONS(4425),
-    [aux_sym_import_statement_token1] = ACTIONS(4425),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
-    [aux_sym_derived_type_token1] = ACTIONS(4425),
-    [aux_sym_declared_type_token1] = ACTIONS(4425),
-    [aux_sym_declared_type_token2] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4425),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
-    [anon_sym_SEMI] = ACTIONS(4427),
-    [aux_sym_stop_statement_token1] = ACTIONS(4425),
-    [aux_sym_stop_statement_token2] = ACTIONS(4425),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
-    [aux_sym_include_statement_token1] = ACTIONS(4425),
-    [aux_sym_data_statement_token1] = ACTIONS(4425),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
-    [aux_sym_block_construct_token1] = ACTIONS(4425),
-    [aux_sym_associate_statement_token1] = ACTIONS(4425),
-    [aux_sym_format_statement_token1] = ACTIONS(4425),
-    [aux_sym_print_statement_token1] = ACTIONS(4425),
-    [aux_sym_open_statement_token1] = ACTIONS(4425),
-    [aux_sym_close_statement_token1] = ACTIONS(4425),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
-    [aux_sym_enum_statement_token1] = ACTIONS(4425),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
-    [aux_sym_entry_statement_token1] = ACTIONS(4425),
-    [aux_sym_logical_expression_token5] = ACTIONS(4427),
-    [anon_sym_DOT] = ACTIONS(4425),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
-    [anon_sym_LBRACK] = ACTIONS(4427),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
-    [aux_sym_null_literal_token1] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
-    [aux_sym_identifier_token1] = ACTIONS(4425),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4427),
-    [sym__float_literal] = ACTIONS(4427),
-    [sym__boz_literal] = ACTIONS(4427),
-    [sym__string_literal] = ACTIONS(4427),
-    [sym__string_literal_kind] = ACTIONS(4427),
-  },
-  [1056] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4429),
-    [aux_sym_preproc_def_token1] = ACTIONS(4429),
-    [aux_sym_preproc_if_token1] = ACTIONS(4429),
-    [aux_sym_preproc_if_token2] = ACTIONS(4429),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4429),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4429),
-    [sym_preproc_directive] = ACTIONS(4429),
-    [anon_sym_LPAREN2] = ACTIONS(4429),
-    [anon_sym_PLUS] = ACTIONS(4431),
-    [anon_sym_DASH] = ACTIONS(4431),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4429),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4429),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4429),
-    [aux_sym_module_statement_token1] = ACTIONS(4429),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4429),
-    [aux_sym_interface_statement_token1] = ACTIONS(4429),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4429),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4429),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4429),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4429),
-    [aux_sym_function_statement_token1] = ACTIONS(4429),
-    [aux_sym_language_binding_token1] = ACTIONS(4429),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4429),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4429),
-    [aux_sym_contains_statement_token1] = ACTIONS(4429),
-    [aux_sym_use_statement_token1] = ACTIONS(4429),
-    [aux_sym_use_statement_token2] = ACTIONS(4429),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4429),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4429),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4429),
-    [aux_sym_save_statement_token1] = ACTIONS(4429),
-    [aux_sym_private_statement_token1] = ACTIONS(4429),
-    [aux_sym_public_statement_token1] = ACTIONS(4429),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4429),
-    [aux_sym_common_statement_token1] = ACTIONS(4429),
-    [aux_sym_import_statement_token1] = ACTIONS(4429),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4429),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4429),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4429),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4429),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4429),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4429),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4429),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4429),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4429),
-    [aux_sym_derived_type_token1] = ACTIONS(4429),
-    [aux_sym_declared_type_token1] = ACTIONS(4429),
-    [aux_sym_declared_type_token2] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4429),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4429),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4429),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4429),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4429),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4429),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4429),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4429),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4429),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4429),
-    [anon_sym_SEMI] = ACTIONS(4431),
-    [aux_sym_stop_statement_token1] = ACTIONS(4429),
-    [aux_sym_stop_statement_token2] = ACTIONS(4429),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4429),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4429),
-    [aux_sym_include_statement_token1] = ACTIONS(4429),
-    [aux_sym_data_statement_token1] = ACTIONS(4429),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4429),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4429),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4429),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4429),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4429),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4429),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4429),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4429),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4429),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4429),
-    [aux_sym_block_construct_token1] = ACTIONS(4429),
-    [aux_sym_associate_statement_token1] = ACTIONS(4429),
-    [aux_sym_format_statement_token1] = ACTIONS(4429),
-    [aux_sym_print_statement_token1] = ACTIONS(4429),
-    [aux_sym_open_statement_token1] = ACTIONS(4429),
-    [aux_sym_close_statement_token1] = ACTIONS(4429),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4429),
-    [aux_sym_enum_statement_token1] = ACTIONS(4429),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4429),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4429),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4429),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4429),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4429),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4429),
-    [aux_sym_entry_statement_token1] = ACTIONS(4429),
-    [aux_sym_logical_expression_token5] = ACTIONS(4431),
-    [anon_sym_DOT] = ACTIONS(4429),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4431),
-    [anon_sym_LBRACK] = ACTIONS(4431),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4431),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4431),
-    [aux_sym_null_literal_token1] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4429),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4429),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4429),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4429),
-    [aux_sym_identifier_token1] = ACTIONS(4429),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4431),
-    [sym__float_literal] = ACTIONS(4431),
-    [sym__boz_literal] = ACTIONS(4431),
-    [sym__string_literal] = ACTIONS(4431),
-    [sym__string_literal_kind] = ACTIONS(4431),
-  },
-  [1057] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4433),
-    [aux_sym_preproc_def_token1] = ACTIONS(4433),
-    [aux_sym_preproc_if_token1] = ACTIONS(4433),
-    [aux_sym_preproc_if_token2] = ACTIONS(4433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4433),
-    [sym_preproc_directive] = ACTIONS(4433),
-    [anon_sym_LPAREN2] = ACTIONS(4433),
-    [anon_sym_PLUS] = ACTIONS(4435),
-    [anon_sym_DASH] = ACTIONS(4435),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4433),
-    [aux_sym_module_statement_token1] = ACTIONS(4433),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4433),
-    [aux_sym_interface_statement_token1] = ACTIONS(4433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4433),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4433),
-    [aux_sym_function_statement_token1] = ACTIONS(4433),
-    [aux_sym_language_binding_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4433),
-    [aux_sym_contains_statement_token1] = ACTIONS(4433),
-    [aux_sym_use_statement_token1] = ACTIONS(4433),
-    [aux_sym_use_statement_token2] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4433),
-    [aux_sym_save_statement_token1] = ACTIONS(4433),
-    [aux_sym_private_statement_token1] = ACTIONS(4433),
-    [aux_sym_public_statement_token1] = ACTIONS(4433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4433),
-    [aux_sym_common_statement_token1] = ACTIONS(4433),
-    [aux_sym_import_statement_token1] = ACTIONS(4433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4433),
-    [aux_sym_derived_type_token1] = ACTIONS(4433),
-    [aux_sym_declared_type_token1] = ACTIONS(4433),
-    [aux_sym_declared_type_token2] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4433),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4433),
-    [anon_sym_SEMI] = ACTIONS(4435),
-    [aux_sym_stop_statement_token1] = ACTIONS(4433),
-    [aux_sym_stop_statement_token2] = ACTIONS(4433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4433),
-    [aux_sym_include_statement_token1] = ACTIONS(4433),
-    [aux_sym_data_statement_token1] = ACTIONS(4433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4433),
-    [aux_sym_block_construct_token1] = ACTIONS(4433),
-    [aux_sym_associate_statement_token1] = ACTIONS(4433),
-    [aux_sym_format_statement_token1] = ACTIONS(4433),
-    [aux_sym_print_statement_token1] = ACTIONS(4433),
-    [aux_sym_open_statement_token1] = ACTIONS(4433),
-    [aux_sym_close_statement_token1] = ACTIONS(4433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4433),
-    [aux_sym_enum_statement_token1] = ACTIONS(4433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4433),
-    [aux_sym_entry_statement_token1] = ACTIONS(4433),
-    [aux_sym_logical_expression_token5] = ACTIONS(4435),
-    [anon_sym_DOT] = ACTIONS(4433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4435),
-    [anon_sym_LBRACK] = ACTIONS(4435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4435),
-    [aux_sym_null_literal_token1] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4433),
-    [aux_sym_identifier_token1] = ACTIONS(4433),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4435),
-    [sym__float_literal] = ACTIONS(4435),
-    [sym__boz_literal] = ACTIONS(4435),
-    [sym__string_literal] = ACTIONS(4435),
-    [sym__string_literal_kind] = ACTIONS(4435),
-  },
-  [1058] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(376),
-    [aux_sym_preproc_def_token1] = ACTIONS(376),
-    [aux_sym_preproc_if_token1] = ACTIONS(376),
-    [aux_sym_preproc_if_token2] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
-    [sym_preproc_directive] = ACTIONS(376),
-    [anon_sym_LPAREN2] = ACTIONS(376),
-    [anon_sym_PLUS] = ACTIONS(692),
-    [anon_sym_DASH] = ACTIONS(692),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token1] = ACTIONS(376),
-    [aux_sym_end_program_statement_token2] = ACTIONS(376),
-    [aux_sym_module_statement_token1] = ACTIONS(376),
-    [aux_sym_submodule_statement_token1] = ACTIONS(376),
-    [aux_sym_interface_statement_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
-    [aux_sym_function_statement_token1] = ACTIONS(376),
-    [aux_sym_language_binding_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
-    [aux_sym_contains_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token1] = ACTIONS(376),
-    [aux_sym_use_statement_token2] = ACTIONS(376),
-    [aux_sym_implicit_statement_token1] = ACTIONS(376),
-    [aux_sym_implicit_statement_token3] = ACTIONS(376),
-    [aux_sym_implicit_statement_token4] = ACTIONS(376),
-    [aux_sym_save_statement_token1] = ACTIONS(376),
-    [aux_sym_private_statement_token1] = ACTIONS(376),
-    [aux_sym_public_statement_token1] = ACTIONS(376),
-    [aux_sym_namelist_statement_token1] = ACTIONS(376),
-    [aux_sym_common_statement_token1] = ACTIONS(376),
-    [aux_sym_import_statement_token1] = ACTIONS(376),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
-    [aux_sym_variable_attributes_token1] = ACTIONS(376),
-    [aux_sym_variable_attributes_token2] = ACTIONS(376),
-    [aux_sym_variable_attributes_token3] = ACTIONS(376),
-    [aux_sym_variable_attributes_token4] = ACTIONS(376),
-    [aux_sym_variable_attributes_token5] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
-    [aux_sym_derived_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token1] = ACTIONS(376),
-    [aux_sym_declared_type_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
-    [aux_sym_type_qualifier_token1] = ACTIONS(376),
-    [aux_sym_type_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
-    [anon_sym_SEMI] = ACTIONS(692),
-    [aux_sym_stop_statement_token1] = ACTIONS(376),
-    [aux_sym_stop_statement_token2] = ACTIONS(376),
-    [aux_sym_subroutine_call_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token1] = ACTIONS(376),
-    [aux_sym_keyword_statement_token2] = ACTIONS(376),
-    [aux_sym_keyword_statement_token3] = ACTIONS(376),
-    [aux_sym_keyword_statement_token4] = ACTIONS(376),
-    [aux_sym_keyword_statement_token6] = ACTIONS(376),
-    [aux_sym_keyword_statement_token7] = ACTIONS(376),
-    [aux_sym_include_statement_token1] = ACTIONS(376),
-    [aux_sym_data_statement_token1] = ACTIONS(376),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
-    [aux_sym_end_if_statement_token1] = ACTIONS(376),
-    [aux_sym_elseif_clause_token2] = ACTIONS(376),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token1] = ACTIONS(376),
-    [aux_sym_select_case_statement_token3] = ACTIONS(376),
-    [aux_sym_select_type_statement_token1] = ACTIONS(376),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
-    [aux_sym_block_construct_token1] = ACTIONS(376),
-    [aux_sym_associate_statement_token1] = ACTIONS(376),
-    [aux_sym_format_statement_token1] = ACTIONS(376),
-    [aux_sym_print_statement_token1] = ACTIONS(376),
-    [aux_sym_open_statement_token1] = ACTIONS(376),
-    [aux_sym_close_statement_token1] = ACTIONS(376),
-    [aux_sym_inquire_statement_token1] = ACTIONS(376),
-    [aux_sym_enum_statement_token1] = ACTIONS(376),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token1] = ACTIONS(376),
-    [aux_sym_file_position_statement_token2] = ACTIONS(376),
-    [aux_sym_file_position_statement_token3] = ACTIONS(376),
-    [aux_sym_file_position_statement_token4] = ACTIONS(376),
-    [aux_sym_allocate_statement_token1] = ACTIONS(376),
-    [aux_sym_entry_statement_token1] = ACTIONS(376),
-    [aux_sym_logical_expression_token5] = ACTIONS(692),
-    [anon_sym_DOT] = ACTIONS(376),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(692),
-    [anon_sym_LBRACK] = ACTIONS(692),
-    [aux_sym_boolean_literal_token1] = ACTIONS(692),
-    [aux_sym_boolean_literal_token2] = ACTIONS(692),
-    [aux_sym_null_literal_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_statement_token2] = ACTIONS(376),
-    [aux_sym_coarray_statement_token6] = ACTIONS(376),
-    [aux_sym_coarray_statement_token8] = ACTIONS(376),
-    [aux_sym_coarray_statement_token11] = ACTIONS(376),
-    [aux_sym_coarray_statement_token12] = ACTIONS(376),
-    [aux_sym_coarray_statement_token13] = ACTIONS(376),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
-    [aux_sym_identifier_token1] = ACTIONS(376),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(692),
-    [sym__float_literal] = ACTIONS(692),
-    [sym__boz_literal] = ACTIONS(692),
-    [sym__string_literal] = ACTIONS(692),
-    [sym__string_literal_kind] = ACTIONS(692),
-  },
-  [1059] = {
-    [ts_builtin_sym_end] = ACTIONS(4415),
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
-    [aux_sym_module_statement_token1] = ACTIONS(4413),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_function_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4821),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4823),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1060] = {
+  [1014] = {
+    [ts_builtin_sym_end] = ACTIONS(4439),
     [aux_sym_preproc_include_token1] = ACTIONS(4437),
     [aux_sym_preproc_def_token1] = ACTIONS(4437),
     [aux_sym_preproc_if_token1] = ACTIONS(4437),
-    [aux_sym_preproc_if_token2] = ACTIONS(4437),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
     [sym_preproc_directive] = ACTIONS(4437),
@@ -241618,853 +234991,994 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4439),
     [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1061] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4441),
-    [aux_sym_preproc_def_token1] = ACTIONS(4441),
-    [aux_sym_preproc_if_token1] = ACTIONS(4441),
-    [aux_sym_preproc_if_token2] = ACTIONS(4441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4441),
-    [sym_preproc_directive] = ACTIONS(4441),
-    [anon_sym_LPAREN2] = ACTIONS(4441),
-    [anon_sym_PLUS] = ACTIONS(4443),
-    [anon_sym_DASH] = ACTIONS(4443),
+  [1015] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4531),
+    [aux_sym_preproc_def_token1] = ACTIONS(4531),
+    [aux_sym_preproc_if_token1] = ACTIONS(4531),
+    [aux_sym_preproc_if_token2] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4531),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4531),
+    [sym_preproc_directive] = ACTIONS(4531),
+    [anon_sym_LPAREN2] = ACTIONS(4531),
+    [anon_sym_PLUS] = ACTIONS(4533),
+    [anon_sym_DASH] = ACTIONS(4533),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4531),
+    [aux_sym_module_statement_token1] = ACTIONS(4531),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4531),
+    [aux_sym_interface_statement_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4531),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4531),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4531),
+    [aux_sym_function_statement_token1] = ACTIONS(4531),
+    [aux_sym_language_binding_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4531),
+    [aux_sym_contains_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token1] = ACTIONS(4531),
+    [aux_sym_use_statement_token2] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4531),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4531),
+    [aux_sym_save_statement_token1] = ACTIONS(4531),
+    [aux_sym_private_statement_token1] = ACTIONS(4531),
+    [aux_sym_public_statement_token1] = ACTIONS(4531),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4531),
+    [aux_sym_common_statement_token1] = ACTIONS(4531),
+    [aux_sym_import_statement_token1] = ACTIONS(4531),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4531),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4531),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4531),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4531),
+    [aux_sym_derived_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token1] = ACTIONS(4531),
+    [aux_sym_declared_type_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4531),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4531),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4531),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4531),
+    [anon_sym_SEMI] = ACTIONS(4533),
+    [aux_sym_stop_statement_token1] = ACTIONS(4531),
+    [aux_sym_stop_statement_token2] = ACTIONS(4531),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4531),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4531),
+    [aux_sym_include_statement_token1] = ACTIONS(4531),
+    [aux_sym_data_statement_token1] = ACTIONS(4531),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4531),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4531),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4531),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4531),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4531),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4531),
+    [aux_sym_block_construct_token1] = ACTIONS(4531),
+    [aux_sym_associate_statement_token1] = ACTIONS(4531),
+    [aux_sym_format_statement_token1] = ACTIONS(4531),
+    [aux_sym_print_statement_token1] = ACTIONS(4531),
+    [aux_sym_open_statement_token1] = ACTIONS(4531),
+    [aux_sym_close_statement_token1] = ACTIONS(4531),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4531),
+    [aux_sym_enum_statement_token1] = ACTIONS(4531),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4531),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4531),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4531),
+    [aux_sym_entry_statement_token1] = ACTIONS(4531),
+    [aux_sym_logical_expression_token5] = ACTIONS(4533),
+    [anon_sym_DOT] = ACTIONS(4531),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4533),
+    [anon_sym_LBRACK] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4533),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4533),
+    [aux_sym_null_literal_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4531),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4531),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4531),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4531),
+    [aux_sym_identifier_token1] = ACTIONS(4531),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4533),
+    [sym__float_literal] = ACTIONS(4533),
+    [sym__boz_literal] = ACTIONS(4533),
+    [sym__string_literal] = ACTIONS(4533),
+    [sym__string_literal_kind] = ACTIONS(4533),
+  },
+  [1016] = {
+    [ts_builtin_sym_end] = ACTIONS(4581),
+    [aux_sym_preproc_include_token1] = ACTIONS(4579),
+    [aux_sym_preproc_def_token1] = ACTIONS(4579),
+    [aux_sym_preproc_if_token1] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4579),
+    [sym_preproc_directive] = ACTIONS(4579),
+    [anon_sym_LPAREN2] = ACTIONS(4579),
+    [anon_sym_PLUS] = ACTIONS(4581),
+    [anon_sym_DASH] = ACTIONS(4581),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4579),
+    [aux_sym_module_statement_token1] = ACTIONS(4579),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4579),
+    [aux_sym_interface_statement_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4579),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4579),
+    [aux_sym_function_statement_token1] = ACTIONS(4579),
+    [aux_sym_language_binding_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4579),
+    [aux_sym_contains_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token2] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4579),
+    [aux_sym_save_statement_token1] = ACTIONS(4579),
+    [aux_sym_private_statement_token1] = ACTIONS(4579),
+    [aux_sym_public_statement_token1] = ACTIONS(4579),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4579),
+    [aux_sym_common_statement_token1] = ACTIONS(4579),
+    [aux_sym_import_statement_token1] = ACTIONS(4579),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4579),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4579),
+    [aux_sym_derived_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4579),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4579),
+    [anon_sym_SEMI] = ACTIONS(4581),
+    [aux_sym_stop_statement_token1] = ACTIONS(4579),
+    [aux_sym_stop_statement_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4579),
+    [aux_sym_include_statement_token1] = ACTIONS(4579),
+    [aux_sym_data_statement_token1] = ACTIONS(4579),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4579),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4579),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4579),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4579),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4579),
+    [aux_sym_block_construct_token1] = ACTIONS(4579),
+    [aux_sym_associate_statement_token1] = ACTIONS(4579),
+    [aux_sym_format_statement_token1] = ACTIONS(4579),
+    [aux_sym_print_statement_token1] = ACTIONS(4579),
+    [aux_sym_open_statement_token1] = ACTIONS(4579),
+    [aux_sym_close_statement_token1] = ACTIONS(4579),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4579),
+    [aux_sym_enum_statement_token1] = ACTIONS(4579),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4579),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4579),
+    [aux_sym_entry_statement_token1] = ACTIONS(4579),
+    [aux_sym_logical_expression_token5] = ACTIONS(4581),
+    [anon_sym_DOT] = ACTIONS(4579),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4581),
+    [anon_sym_LBRACK] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4581),
+    [aux_sym_null_literal_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4579),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4579),
+    [aux_sym_identifier_token1] = ACTIONS(4579),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4581),
+    [sym__float_literal] = ACTIONS(4581),
+    [sym__boz_literal] = ACTIONS(4581),
+    [sym__string_literal] = ACTIONS(4581),
+    [sym__string_literal_kind] = ACTIONS(4581),
+  },
+  [1017] = {
+    [ts_builtin_sym_end] = ACTIONS(4379),
+    [aux_sym_preproc_include_token1] = ACTIONS(4375),
+    [aux_sym_preproc_def_token1] = ACTIONS(4375),
+    [aux_sym_preproc_if_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4375),
+    [sym_preproc_directive] = ACTIONS(4375),
+    [anon_sym_LPAREN2] = ACTIONS(4375),
+    [anon_sym_PLUS] = ACTIONS(4379),
+    [anon_sym_DASH] = ACTIONS(4379),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4375),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4375),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4375),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4375),
+    [aux_sym_contains_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token1] = ACTIONS(4375),
+    [aux_sym_use_statement_token2] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4375),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4375),
+    [aux_sym_save_statement_token1] = ACTIONS(4375),
+    [aux_sym_private_statement_token1] = ACTIONS(4375),
+    [aux_sym_public_statement_token1] = ACTIONS(4375),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4375),
+    [aux_sym_common_statement_token1] = ACTIONS(4375),
+    [aux_sym_import_statement_token1] = ACTIONS(4375),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4375),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4375),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4375),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4375),
+    [aux_sym_derived_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token1] = ACTIONS(4375),
+    [aux_sym_declared_type_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4375),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4375),
+    [anon_sym_SEMI] = ACTIONS(4379),
+    [aux_sym_stop_statement_token1] = ACTIONS(4375),
+    [aux_sym_stop_statement_token2] = ACTIONS(4375),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4375),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4375),
+    [aux_sym_include_statement_token1] = ACTIONS(4375),
+    [aux_sym_data_statement_token1] = ACTIONS(4375),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4375),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4375),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4375),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4375),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4375),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4375),
+    [aux_sym_block_construct_token1] = ACTIONS(4375),
+    [aux_sym_associate_statement_token1] = ACTIONS(4375),
+    [aux_sym_format_statement_token1] = ACTIONS(4375),
+    [aux_sym_print_statement_token1] = ACTIONS(4375),
+    [aux_sym_open_statement_token1] = ACTIONS(4375),
+    [aux_sym_close_statement_token1] = ACTIONS(4375),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4375),
+    [aux_sym_enum_statement_token1] = ACTIONS(4375),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4375),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4375),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4375),
+    [aux_sym_entry_statement_token1] = ACTIONS(4375),
+    [aux_sym_logical_expression_token5] = ACTIONS(4379),
+    [anon_sym_DOT] = ACTIONS(4375),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4379),
+    [anon_sym_LBRACK] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4379),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4379),
+    [aux_sym_null_literal_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4375),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4375),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4375),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4375),
+    [aux_sym_identifier_token1] = ACTIONS(4375),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4379),
+    [sym__float_literal] = ACTIONS(4379),
+    [sym__boz_literal] = ACTIONS(4379),
+    [sym__string_literal] = ACTIONS(4379),
+    [sym__string_literal_kind] = ACTIONS(4379),
+  },
+  [1018] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4527),
+    [aux_sym_preproc_def_token1] = ACTIONS(4527),
+    [aux_sym_preproc_if_token1] = ACTIONS(4527),
+    [aux_sym_preproc_if_token2] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4527),
+    [sym_preproc_directive] = ACTIONS(4527),
+    [anon_sym_LPAREN2] = ACTIONS(4527),
+    [anon_sym_PLUS] = ACTIONS(4529),
+    [anon_sym_DASH] = ACTIONS(4529),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4527),
+    [aux_sym_module_statement_token1] = ACTIONS(4527),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4527),
+    [aux_sym_interface_statement_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4527),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4527),
+    [aux_sym_function_statement_token1] = ACTIONS(4527),
+    [aux_sym_language_binding_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4527),
+    [aux_sym_contains_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token2] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4527),
+    [aux_sym_save_statement_token1] = ACTIONS(4527),
+    [aux_sym_private_statement_token1] = ACTIONS(4527),
+    [aux_sym_public_statement_token1] = ACTIONS(4527),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4527),
+    [aux_sym_common_statement_token1] = ACTIONS(4527),
+    [aux_sym_import_statement_token1] = ACTIONS(4527),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4527),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4527),
+    [aux_sym_derived_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4527),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4527),
+    [anon_sym_SEMI] = ACTIONS(4529),
+    [aux_sym_stop_statement_token1] = ACTIONS(4527),
+    [aux_sym_stop_statement_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4527),
+    [aux_sym_include_statement_token1] = ACTIONS(4527),
+    [aux_sym_data_statement_token1] = ACTIONS(4527),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4527),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4527),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4527),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4527),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4527),
+    [aux_sym_block_construct_token1] = ACTIONS(4527),
+    [aux_sym_associate_statement_token1] = ACTIONS(4527),
+    [aux_sym_format_statement_token1] = ACTIONS(4527),
+    [aux_sym_print_statement_token1] = ACTIONS(4527),
+    [aux_sym_open_statement_token1] = ACTIONS(4527),
+    [aux_sym_close_statement_token1] = ACTIONS(4527),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4527),
+    [aux_sym_enum_statement_token1] = ACTIONS(4527),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4527),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4527),
+    [aux_sym_entry_statement_token1] = ACTIONS(4527),
+    [aux_sym_logical_expression_token5] = ACTIONS(4529),
+    [anon_sym_DOT] = ACTIONS(4527),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4529),
+    [anon_sym_LBRACK] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4529),
+    [aux_sym_null_literal_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4527),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4527),
+    [aux_sym_identifier_token1] = ACTIONS(4527),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4529),
+    [sym__float_literal] = ACTIONS(4529),
+    [sym__boz_literal] = ACTIONS(4529),
+    [sym__string_literal] = ACTIONS(4529),
+    [sym__string_literal_kind] = ACTIONS(4529),
+  },
+  [1019] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4621),
+    [aux_sym_preproc_def_token1] = ACTIONS(4621),
+    [aux_sym_preproc_if_token1] = ACTIONS(4621),
+    [aux_sym_preproc_if_token2] = ACTIONS(4621),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
+    [sym_preproc_directive] = ACTIONS(4621),
+    [anon_sym_LPAREN2] = ACTIONS(4621),
+    [anon_sym_PLUS] = ACTIONS(4623),
+    [anon_sym_DASH] = ACTIONS(4623),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4441),
-    [aux_sym_module_statement_token1] = ACTIONS(4441),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4441),
-    [aux_sym_interface_statement_token1] = ACTIONS(4441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4441),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4441),
-    [aux_sym_function_statement_token1] = ACTIONS(4441),
-    [aux_sym_language_binding_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4441),
-    [aux_sym_contains_statement_token1] = ACTIONS(4441),
-    [aux_sym_use_statement_token1] = ACTIONS(4441),
-    [aux_sym_use_statement_token2] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4441),
-    [aux_sym_save_statement_token1] = ACTIONS(4441),
-    [aux_sym_private_statement_token1] = ACTIONS(4441),
-    [aux_sym_public_statement_token1] = ACTIONS(4441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4441),
-    [aux_sym_common_statement_token1] = ACTIONS(4441),
-    [aux_sym_import_statement_token1] = ACTIONS(4441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4441),
-    [aux_sym_derived_type_token1] = ACTIONS(4441),
-    [aux_sym_declared_type_token1] = ACTIONS(4441),
-    [aux_sym_declared_type_token2] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4441),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4441),
-    [anon_sym_SEMI] = ACTIONS(4443),
-    [aux_sym_stop_statement_token1] = ACTIONS(4441),
-    [aux_sym_stop_statement_token2] = ACTIONS(4441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4441),
-    [aux_sym_include_statement_token1] = ACTIONS(4441),
-    [aux_sym_data_statement_token1] = ACTIONS(4441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4441),
-    [aux_sym_block_construct_token1] = ACTIONS(4441),
-    [aux_sym_associate_statement_token1] = ACTIONS(4441),
-    [aux_sym_format_statement_token1] = ACTIONS(4441),
-    [aux_sym_print_statement_token1] = ACTIONS(4441),
-    [aux_sym_open_statement_token1] = ACTIONS(4441),
-    [aux_sym_close_statement_token1] = ACTIONS(4441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4441),
-    [aux_sym_enum_statement_token1] = ACTIONS(4441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4441),
-    [aux_sym_entry_statement_token1] = ACTIONS(4441),
-    [aux_sym_logical_expression_token5] = ACTIONS(4443),
-    [anon_sym_DOT] = ACTIONS(4441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4443),
-    [anon_sym_LBRACK] = ACTIONS(4443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4443),
-    [aux_sym_null_literal_token1] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4441),
-    [aux_sym_identifier_token1] = ACTIONS(4441),
+    [aux_sym_program_statement_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4621),
+    [aux_sym_module_statement_token1] = ACTIONS(4621),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4621),
+    [aux_sym_interface_statement_token1] = ACTIONS(4621),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4621),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
+    [aux_sym_function_statement_token1] = ACTIONS(4621),
+    [aux_sym_language_binding_token1] = ACTIONS(4621),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
+    [aux_sym_contains_statement_token1] = ACTIONS(4621),
+    [aux_sym_use_statement_token1] = ACTIONS(4621),
+    [aux_sym_use_statement_token2] = ACTIONS(4621),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
+    [aux_sym_save_statement_token1] = ACTIONS(4621),
+    [aux_sym_private_statement_token1] = ACTIONS(4621),
+    [aux_sym_public_statement_token1] = ACTIONS(4621),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
+    [aux_sym_common_statement_token1] = ACTIONS(4621),
+    [aux_sym_import_statement_token1] = ACTIONS(4621),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
+    [aux_sym_derived_type_token1] = ACTIONS(4621),
+    [aux_sym_declared_type_token1] = ACTIONS(4621),
+    [aux_sym_declared_type_token2] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4621),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
+    [anon_sym_SEMI] = ACTIONS(4623),
+    [aux_sym_stop_statement_token1] = ACTIONS(4621),
+    [aux_sym_stop_statement_token2] = ACTIONS(4621),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
+    [aux_sym_include_statement_token1] = ACTIONS(4621),
+    [aux_sym_data_statement_token1] = ACTIONS(4621),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
+    [aux_sym_block_construct_token1] = ACTIONS(4621),
+    [aux_sym_associate_statement_token1] = ACTIONS(4621),
+    [aux_sym_format_statement_token1] = ACTIONS(4621),
+    [aux_sym_print_statement_token1] = ACTIONS(4621),
+    [aux_sym_open_statement_token1] = ACTIONS(4621),
+    [aux_sym_close_statement_token1] = ACTIONS(4621),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
+    [aux_sym_enum_statement_token1] = ACTIONS(4621),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
+    [aux_sym_entry_statement_token1] = ACTIONS(4621),
+    [aux_sym_logical_expression_token5] = ACTIONS(4623),
+    [anon_sym_DOT] = ACTIONS(4621),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
+    [anon_sym_LBRACK] = ACTIONS(4623),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
+    [aux_sym_null_literal_token1] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
+    [aux_sym_identifier_token1] = ACTIONS(4621),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4443),
-    [sym__float_literal] = ACTIONS(4443),
-    [sym__boz_literal] = ACTIONS(4443),
-    [sym__string_literal] = ACTIONS(4443),
-    [sym__string_literal_kind] = ACTIONS(4443),
+    [sym__integer_literal] = ACTIONS(4623),
+    [sym__float_literal] = ACTIONS(4623),
+    [sym__boz_literal] = ACTIONS(4623),
+    [sym__string_literal] = ACTIONS(4623),
+    [sym__string_literal_kind] = ACTIONS(4623),
   },
-  [1062] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4445),
-    [aux_sym_preproc_def_token1] = ACTIONS(4445),
-    [aux_sym_preproc_if_token1] = ACTIONS(4445),
-    [aux_sym_preproc_if_token2] = ACTIONS(4445),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4445),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4445),
-    [sym_preproc_directive] = ACTIONS(4445),
-    [anon_sym_LPAREN2] = ACTIONS(4445),
-    [anon_sym_PLUS] = ACTIONS(4447),
-    [anon_sym_DASH] = ACTIONS(4447),
+  [1020] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(376),
+    [aux_sym_preproc_def_token1] = ACTIONS(376),
+    [aux_sym_preproc_if_token1] = ACTIONS(376),
+    [aux_sym_preproc_if_token2] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
+    [sym_preproc_directive] = ACTIONS(376),
+    [anon_sym_LPAREN2] = ACTIONS(376),
+    [anon_sym_PLUS] = ACTIONS(718),
+    [anon_sym_DASH] = ACTIONS(718),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4445),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4445),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4445),
-    [aux_sym_module_statement_token1] = ACTIONS(4445),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4445),
-    [aux_sym_interface_statement_token1] = ACTIONS(4445),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4445),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4445),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4445),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4445),
-    [aux_sym_function_statement_token1] = ACTIONS(4445),
-    [aux_sym_language_binding_token1] = ACTIONS(4445),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4445),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4445),
-    [aux_sym_contains_statement_token1] = ACTIONS(4445),
-    [aux_sym_use_statement_token1] = ACTIONS(4445),
-    [aux_sym_use_statement_token2] = ACTIONS(4445),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4445),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4445),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4445),
-    [aux_sym_save_statement_token1] = ACTIONS(4445),
-    [aux_sym_private_statement_token1] = ACTIONS(4445),
-    [aux_sym_public_statement_token1] = ACTIONS(4445),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4445),
-    [aux_sym_common_statement_token1] = ACTIONS(4445),
-    [aux_sym_import_statement_token1] = ACTIONS(4445),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4445),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4445),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4445),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4445),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4445),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4445),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4445),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4445),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4445),
-    [aux_sym_derived_type_token1] = ACTIONS(4445),
-    [aux_sym_declared_type_token1] = ACTIONS(4445),
-    [aux_sym_declared_type_token2] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4445),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4445),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4445),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4445),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4445),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4445),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4445),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4445),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4445),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4445),
-    [anon_sym_SEMI] = ACTIONS(4447),
-    [aux_sym_stop_statement_token1] = ACTIONS(4445),
-    [aux_sym_stop_statement_token2] = ACTIONS(4445),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4445),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4445),
-    [aux_sym_include_statement_token1] = ACTIONS(4445),
-    [aux_sym_data_statement_token1] = ACTIONS(4445),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4445),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4445),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4445),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4445),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4445),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4445),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4445),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4445),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4445),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4445),
-    [aux_sym_block_construct_token1] = ACTIONS(4445),
-    [aux_sym_associate_statement_token1] = ACTIONS(4445),
-    [aux_sym_format_statement_token1] = ACTIONS(4445),
-    [aux_sym_print_statement_token1] = ACTIONS(4445),
-    [aux_sym_open_statement_token1] = ACTIONS(4445),
-    [aux_sym_close_statement_token1] = ACTIONS(4445),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4445),
-    [aux_sym_enum_statement_token1] = ACTIONS(4445),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4445),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4445),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4445),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4445),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4445),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4445),
-    [aux_sym_entry_statement_token1] = ACTIONS(4445),
-    [aux_sym_logical_expression_token5] = ACTIONS(4447),
-    [anon_sym_DOT] = ACTIONS(4445),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4447),
-    [anon_sym_LBRACK] = ACTIONS(4447),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4447),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4447),
-    [aux_sym_null_literal_token1] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4445),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4445),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4445),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4445),
-    [aux_sym_identifier_token1] = ACTIONS(4445),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4447),
-    [sym__float_literal] = ACTIONS(4447),
-    [sym__boz_literal] = ACTIONS(4447),
-    [sym__string_literal] = ACTIONS(4447),
-    [sym__string_literal_kind] = ACTIONS(4447),
-  },
-  [1063] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4449),
-    [aux_sym_preproc_def_token1] = ACTIONS(4449),
-    [aux_sym_preproc_if_token1] = ACTIONS(4449),
-    [aux_sym_preproc_if_token2] = ACTIONS(4449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4449),
-    [sym_preproc_directive] = ACTIONS(4449),
-    [anon_sym_LPAREN2] = ACTIONS(4449),
-    [anon_sym_PLUS] = ACTIONS(4451),
-    [anon_sym_DASH] = ACTIONS(4451),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4449),
-    [aux_sym_module_statement_token1] = ACTIONS(4449),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4449),
-    [aux_sym_interface_statement_token1] = ACTIONS(4449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4449),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4449),
-    [aux_sym_function_statement_token1] = ACTIONS(4449),
-    [aux_sym_language_binding_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4449),
-    [aux_sym_contains_statement_token1] = ACTIONS(4449),
-    [aux_sym_use_statement_token1] = ACTIONS(4449),
-    [aux_sym_use_statement_token2] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4449),
-    [aux_sym_save_statement_token1] = ACTIONS(4449),
-    [aux_sym_private_statement_token1] = ACTIONS(4449),
-    [aux_sym_public_statement_token1] = ACTIONS(4449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4449),
-    [aux_sym_common_statement_token1] = ACTIONS(4449),
-    [aux_sym_import_statement_token1] = ACTIONS(4449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4449),
-    [aux_sym_derived_type_token1] = ACTIONS(4449),
-    [aux_sym_declared_type_token1] = ACTIONS(4449),
-    [aux_sym_declared_type_token2] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4449),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4449),
-    [anon_sym_SEMI] = ACTIONS(4451),
-    [aux_sym_stop_statement_token1] = ACTIONS(4449),
-    [aux_sym_stop_statement_token2] = ACTIONS(4449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4449),
-    [aux_sym_include_statement_token1] = ACTIONS(4449),
-    [aux_sym_data_statement_token1] = ACTIONS(4449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4449),
-    [aux_sym_block_construct_token1] = ACTIONS(4449),
-    [aux_sym_associate_statement_token1] = ACTIONS(4449),
-    [aux_sym_format_statement_token1] = ACTIONS(4449),
-    [aux_sym_print_statement_token1] = ACTIONS(4449),
-    [aux_sym_open_statement_token1] = ACTIONS(4449),
-    [aux_sym_close_statement_token1] = ACTIONS(4449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4449),
-    [aux_sym_enum_statement_token1] = ACTIONS(4449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4449),
-    [aux_sym_entry_statement_token1] = ACTIONS(4449),
-    [aux_sym_logical_expression_token5] = ACTIONS(4451),
-    [anon_sym_DOT] = ACTIONS(4449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4451),
-    [anon_sym_LBRACK] = ACTIONS(4451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4451),
-    [aux_sym_null_literal_token1] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4449),
-    [aux_sym_identifier_token1] = ACTIONS(4449),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4451),
-    [sym__float_literal] = ACTIONS(4451),
-    [sym__boz_literal] = ACTIONS(4451),
-    [sym__string_literal] = ACTIONS(4451),
-    [sym__string_literal_kind] = ACTIONS(4451),
-  },
-  [1064] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4453),
-    [aux_sym_preproc_def_token1] = ACTIONS(4453),
-    [aux_sym_preproc_if_token1] = ACTIONS(4453),
-    [aux_sym_preproc_if_token2] = ACTIONS(4453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4453),
-    [sym_preproc_directive] = ACTIONS(4453),
-    [anon_sym_LPAREN2] = ACTIONS(4453),
-    [anon_sym_PLUS] = ACTIONS(4455),
-    [anon_sym_DASH] = ACTIONS(4455),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4453),
-    [aux_sym_module_statement_token1] = ACTIONS(4453),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4453),
-    [aux_sym_interface_statement_token1] = ACTIONS(4453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4453),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4453),
-    [aux_sym_function_statement_token1] = ACTIONS(4453),
-    [aux_sym_language_binding_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4453),
-    [aux_sym_contains_statement_token1] = ACTIONS(4453),
-    [aux_sym_use_statement_token1] = ACTIONS(4453),
-    [aux_sym_use_statement_token2] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4453),
-    [aux_sym_save_statement_token1] = ACTIONS(4453),
-    [aux_sym_private_statement_token1] = ACTIONS(4453),
-    [aux_sym_public_statement_token1] = ACTIONS(4453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4453),
-    [aux_sym_common_statement_token1] = ACTIONS(4453),
-    [aux_sym_import_statement_token1] = ACTIONS(4453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4453),
-    [aux_sym_derived_type_token1] = ACTIONS(4453),
-    [aux_sym_declared_type_token1] = ACTIONS(4453),
-    [aux_sym_declared_type_token2] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4453),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4453),
-    [anon_sym_SEMI] = ACTIONS(4455),
-    [aux_sym_stop_statement_token1] = ACTIONS(4453),
-    [aux_sym_stop_statement_token2] = ACTIONS(4453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4453),
-    [aux_sym_include_statement_token1] = ACTIONS(4453),
-    [aux_sym_data_statement_token1] = ACTIONS(4453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4453),
-    [aux_sym_block_construct_token1] = ACTIONS(4453),
-    [aux_sym_associate_statement_token1] = ACTIONS(4453),
-    [aux_sym_format_statement_token1] = ACTIONS(4453),
-    [aux_sym_print_statement_token1] = ACTIONS(4453),
-    [aux_sym_open_statement_token1] = ACTIONS(4453),
-    [aux_sym_close_statement_token1] = ACTIONS(4453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4453),
-    [aux_sym_enum_statement_token1] = ACTIONS(4453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4453),
-    [aux_sym_entry_statement_token1] = ACTIONS(4453),
-    [aux_sym_logical_expression_token5] = ACTIONS(4455),
-    [anon_sym_DOT] = ACTIONS(4453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4455),
-    [anon_sym_LBRACK] = ACTIONS(4455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4455),
-    [aux_sym_null_literal_token1] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4453),
-    [aux_sym_identifier_token1] = ACTIONS(4453),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4455),
-    [sym__float_literal] = ACTIONS(4455),
-    [sym__boz_literal] = ACTIONS(4455),
-    [sym__string_literal] = ACTIONS(4455),
-    [sym__string_literal_kind] = ACTIONS(4455),
-  },
-  [1065] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4457),
-    [aux_sym_preproc_def_token1] = ACTIONS(4457),
-    [aux_sym_preproc_if_token1] = ACTIONS(4457),
-    [aux_sym_preproc_if_token2] = ACTIONS(4457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4457),
-    [sym_preproc_directive] = ACTIONS(4457),
-    [anon_sym_LPAREN2] = ACTIONS(4457),
-    [anon_sym_PLUS] = ACTIONS(4459),
-    [anon_sym_DASH] = ACTIONS(4459),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4457),
-    [aux_sym_module_statement_token1] = ACTIONS(4457),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4457),
-    [aux_sym_interface_statement_token1] = ACTIONS(4457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4457),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4457),
-    [aux_sym_function_statement_token1] = ACTIONS(4457),
-    [aux_sym_language_binding_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4457),
-    [aux_sym_contains_statement_token1] = ACTIONS(4457),
-    [aux_sym_use_statement_token1] = ACTIONS(4457),
-    [aux_sym_use_statement_token2] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4457),
-    [aux_sym_save_statement_token1] = ACTIONS(4457),
-    [aux_sym_private_statement_token1] = ACTIONS(4457),
-    [aux_sym_public_statement_token1] = ACTIONS(4457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4457),
-    [aux_sym_common_statement_token1] = ACTIONS(4457),
-    [aux_sym_import_statement_token1] = ACTIONS(4457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4457),
-    [aux_sym_derived_type_token1] = ACTIONS(4457),
-    [aux_sym_declared_type_token1] = ACTIONS(4457),
-    [aux_sym_declared_type_token2] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4457),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4457),
-    [anon_sym_SEMI] = ACTIONS(4459),
-    [aux_sym_stop_statement_token1] = ACTIONS(4457),
-    [aux_sym_stop_statement_token2] = ACTIONS(4457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4457),
-    [aux_sym_include_statement_token1] = ACTIONS(4457),
-    [aux_sym_data_statement_token1] = ACTIONS(4457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4457),
-    [aux_sym_block_construct_token1] = ACTIONS(4457),
-    [aux_sym_associate_statement_token1] = ACTIONS(4457),
-    [aux_sym_format_statement_token1] = ACTIONS(4457),
-    [aux_sym_print_statement_token1] = ACTIONS(4457),
-    [aux_sym_open_statement_token1] = ACTIONS(4457),
-    [aux_sym_close_statement_token1] = ACTIONS(4457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4457),
-    [aux_sym_enum_statement_token1] = ACTIONS(4457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4457),
-    [aux_sym_entry_statement_token1] = ACTIONS(4457),
-    [aux_sym_logical_expression_token5] = ACTIONS(4459),
-    [anon_sym_DOT] = ACTIONS(4457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4459),
-    [anon_sym_LBRACK] = ACTIONS(4459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4459),
-    [aux_sym_null_literal_token1] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4457),
-    [aux_sym_identifier_token1] = ACTIONS(4457),
+    [aux_sym_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token2] = ACTIONS(376),
+    [aux_sym_module_statement_token1] = ACTIONS(376),
+    [aux_sym_submodule_statement_token1] = ACTIONS(376),
+    [aux_sym_interface_statement_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
+    [aux_sym_function_statement_token1] = ACTIONS(376),
+    [aux_sym_language_binding_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
+    [aux_sym_contains_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token2] = ACTIONS(376),
+    [aux_sym_implicit_statement_token1] = ACTIONS(376),
+    [aux_sym_implicit_statement_token3] = ACTIONS(376),
+    [aux_sym_implicit_statement_token4] = ACTIONS(376),
+    [aux_sym_save_statement_token1] = ACTIONS(376),
+    [aux_sym_private_statement_token1] = ACTIONS(376),
+    [aux_sym_public_statement_token1] = ACTIONS(376),
+    [aux_sym_namelist_statement_token1] = ACTIONS(376),
+    [aux_sym_common_statement_token1] = ACTIONS(376),
+    [aux_sym_import_statement_token1] = ACTIONS(376),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
+    [aux_sym_variable_attributes_token1] = ACTIONS(376),
+    [aux_sym_variable_attributes_token2] = ACTIONS(376),
+    [aux_sym_variable_attributes_token3] = ACTIONS(376),
+    [aux_sym_variable_attributes_token4] = ACTIONS(376),
+    [aux_sym_variable_attributes_token5] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
+    [aux_sym_derived_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
+    [aux_sym_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
+    [anon_sym_SEMI] = ACTIONS(718),
+    [aux_sym_stop_statement_token1] = ACTIONS(376),
+    [aux_sym_stop_statement_token2] = ACTIONS(376),
+    [aux_sym_subroutine_call_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token2] = ACTIONS(376),
+    [aux_sym_keyword_statement_token3] = ACTIONS(376),
+    [aux_sym_keyword_statement_token4] = ACTIONS(376),
+    [aux_sym_keyword_statement_token6] = ACTIONS(376),
+    [aux_sym_keyword_statement_token7] = ACTIONS(376),
+    [aux_sym_include_statement_token1] = ACTIONS(376),
+    [aux_sym_data_statement_token1] = ACTIONS(376),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
+    [aux_sym_end_if_statement_token1] = ACTIONS(376),
+    [aux_sym_elseif_clause_token2] = ACTIONS(376),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token3] = ACTIONS(376),
+    [aux_sym_select_type_statement_token1] = ACTIONS(376),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
+    [aux_sym_block_construct_token1] = ACTIONS(376),
+    [aux_sym_associate_statement_token1] = ACTIONS(376),
+    [aux_sym_format_statement_token1] = ACTIONS(376),
+    [aux_sym_print_statement_token1] = ACTIONS(376),
+    [aux_sym_open_statement_token1] = ACTIONS(376),
+    [aux_sym_close_statement_token1] = ACTIONS(376),
+    [aux_sym_inquire_statement_token1] = ACTIONS(376),
+    [aux_sym_enum_statement_token1] = ACTIONS(376),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token2] = ACTIONS(376),
+    [aux_sym_file_position_statement_token3] = ACTIONS(376),
+    [aux_sym_file_position_statement_token4] = ACTIONS(376),
+    [aux_sym_allocate_statement_token1] = ACTIONS(376),
+    [aux_sym_entry_statement_token1] = ACTIONS(376),
+    [aux_sym_logical_expression_token5] = ACTIONS(718),
+    [anon_sym_DOT] = ACTIONS(376),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(718),
+    [anon_sym_LBRACK] = ACTIONS(718),
+    [aux_sym_boolean_literal_token1] = ACTIONS(718),
+    [aux_sym_boolean_literal_token2] = ACTIONS(718),
+    [aux_sym_null_literal_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token2] = ACTIONS(376),
+    [aux_sym_coarray_statement_token6] = ACTIONS(376),
+    [aux_sym_coarray_statement_token8] = ACTIONS(376),
+    [aux_sym_coarray_statement_token11] = ACTIONS(376),
+    [aux_sym_coarray_statement_token12] = ACTIONS(376),
+    [aux_sym_coarray_statement_token13] = ACTIONS(376),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
+    [aux_sym_identifier_token1] = ACTIONS(376),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4459),
-    [sym__float_literal] = ACTIONS(4459),
-    [sym__boz_literal] = ACTIONS(4459),
-    [sym__string_literal] = ACTIONS(4459),
-    [sym__string_literal_kind] = ACTIONS(4459),
+    [sym__integer_literal] = ACTIONS(718),
+    [sym__float_literal] = ACTIONS(718),
+    [sym__boz_literal] = ACTIONS(718),
+    [sym__string_literal] = ACTIONS(718),
+    [sym__string_literal_kind] = ACTIONS(718),
   },
-  [1066] = {
-    [ts_builtin_sym_end] = ACTIONS(4599),
-    [aux_sym_preproc_include_token1] = ACTIONS(4597),
-    [aux_sym_preproc_def_token1] = ACTIONS(4597),
-    [aux_sym_preproc_if_token1] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4597),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4597),
-    [sym_preproc_directive] = ACTIONS(4597),
-    [anon_sym_LPAREN2] = ACTIONS(4597),
-    [anon_sym_PLUS] = ACTIONS(4599),
-    [anon_sym_DASH] = ACTIONS(4599),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4597),
-    [aux_sym_module_statement_token1] = ACTIONS(4597),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4597),
-    [aux_sym_interface_statement_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4597),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4597),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4597),
-    [aux_sym_function_statement_token1] = ACTIONS(4597),
-    [aux_sym_language_binding_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4597),
-    [aux_sym_contains_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token1] = ACTIONS(4597),
-    [aux_sym_use_statement_token2] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4597),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4597),
-    [aux_sym_save_statement_token1] = ACTIONS(4597),
-    [aux_sym_private_statement_token1] = ACTIONS(4597),
-    [aux_sym_public_statement_token1] = ACTIONS(4597),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4597),
-    [aux_sym_common_statement_token1] = ACTIONS(4597),
-    [aux_sym_import_statement_token1] = ACTIONS(4597),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4597),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4597),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4597),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4597),
-    [aux_sym_derived_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token1] = ACTIONS(4597),
-    [aux_sym_declared_type_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4597),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4597),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4597),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4597),
-    [anon_sym_SEMI] = ACTIONS(4599),
-    [aux_sym_stop_statement_token1] = ACTIONS(4597),
-    [aux_sym_stop_statement_token2] = ACTIONS(4597),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4597),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4597),
-    [aux_sym_include_statement_token1] = ACTIONS(4597),
-    [aux_sym_data_statement_token1] = ACTIONS(4597),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4597),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4597),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4597),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4597),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4597),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4597),
-    [aux_sym_block_construct_token1] = ACTIONS(4597),
-    [aux_sym_associate_statement_token1] = ACTIONS(4597),
-    [aux_sym_format_statement_token1] = ACTIONS(4597),
-    [aux_sym_print_statement_token1] = ACTIONS(4597),
-    [aux_sym_open_statement_token1] = ACTIONS(4597),
-    [aux_sym_close_statement_token1] = ACTIONS(4597),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4597),
-    [aux_sym_enum_statement_token1] = ACTIONS(4597),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4597),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4597),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4597),
-    [aux_sym_entry_statement_token1] = ACTIONS(4597),
-    [aux_sym_logical_expression_token5] = ACTIONS(4599),
-    [anon_sym_DOT] = ACTIONS(4597),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4599),
-    [anon_sym_LBRACK] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4599),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4599),
-    [aux_sym_null_literal_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4597),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4597),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4597),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4597),
-    [aux_sym_identifier_token1] = ACTIONS(4597),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4599),
-    [sym__float_literal] = ACTIONS(4599),
-    [sym__boz_literal] = ACTIONS(4599),
-    [sym__string_literal] = ACTIONS(4599),
-    [sym__string_literal_kind] = ACTIONS(4599),
+  [1021] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4555),
+    [aux_sym_preproc_def_token1] = ACTIONS(4555),
+    [aux_sym_preproc_if_token1] = ACTIONS(4555),
+    [aux_sym_preproc_if_token2] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4555),
+    [sym_preproc_directive] = ACTIONS(4555),
+    [anon_sym_LPAREN2] = ACTIONS(4555),
+    [anon_sym_PLUS] = ACTIONS(4557),
+    [anon_sym_DASH] = ACTIONS(4557),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4555),
+    [aux_sym_module_statement_token1] = ACTIONS(4555),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4555),
+    [aux_sym_interface_statement_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4555),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4555),
+    [aux_sym_function_statement_token1] = ACTIONS(4555),
+    [aux_sym_language_binding_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4555),
+    [aux_sym_contains_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token2] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4555),
+    [aux_sym_save_statement_token1] = ACTIONS(4555),
+    [aux_sym_private_statement_token1] = ACTIONS(4555),
+    [aux_sym_public_statement_token1] = ACTIONS(4555),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4555),
+    [aux_sym_common_statement_token1] = ACTIONS(4555),
+    [aux_sym_import_statement_token1] = ACTIONS(4555),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4555),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4555),
+    [aux_sym_derived_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4555),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4555),
+    [anon_sym_SEMI] = ACTIONS(4557),
+    [aux_sym_stop_statement_token1] = ACTIONS(4555),
+    [aux_sym_stop_statement_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4555),
+    [aux_sym_include_statement_token1] = ACTIONS(4555),
+    [aux_sym_data_statement_token1] = ACTIONS(4555),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4555),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4555),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4555),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4555),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4555),
+    [aux_sym_block_construct_token1] = ACTIONS(4555),
+    [aux_sym_associate_statement_token1] = ACTIONS(4555),
+    [aux_sym_format_statement_token1] = ACTIONS(4555),
+    [aux_sym_print_statement_token1] = ACTIONS(4555),
+    [aux_sym_open_statement_token1] = ACTIONS(4555),
+    [aux_sym_close_statement_token1] = ACTIONS(4555),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4555),
+    [aux_sym_enum_statement_token1] = ACTIONS(4555),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4555),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4555),
+    [aux_sym_entry_statement_token1] = ACTIONS(4555),
+    [aux_sym_logical_expression_token5] = ACTIONS(4557),
+    [anon_sym_DOT] = ACTIONS(4555),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4557),
+    [anon_sym_LBRACK] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4557),
+    [aux_sym_null_literal_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4555),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4555),
+    [aux_sym_identifier_token1] = ACTIONS(4555),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4557),
+    [sym__float_literal] = ACTIONS(4557),
+    [sym__boz_literal] = ACTIONS(4557),
+    [sym__string_literal] = ACTIONS(4557),
+    [sym__string_literal_kind] = ACTIONS(4557),
   },
-  [1067] = {
+  [1022] = {
     [ts_builtin_sym_end] = ACTIONS(4627),
     [aux_sym_preproc_include_token1] = ACTIONS(4625),
     [aux_sym_preproc_def_token1] = ACTIONS(4625),
@@ -242605,293 +236119,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4627),
     [sym__string_literal_kind] = ACTIONS(4627),
   },
-  [1068] = {
-    [ts_builtin_sym_end] = ACTIONS(4345),
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1069] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4323),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_module_statement_token1] = ACTIONS(4323),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4323),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_function_statement_token1] = ACTIONS(4323),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1070] = {
+  [1023] = {
+    [ts_builtin_sym_end] = ACTIONS(4467),
     [aux_sym_preproc_include_token1] = ACTIONS(4465),
     [aux_sym_preproc_def_token1] = ACTIONS(4465),
     [aux_sym_preproc_if_token1] = ACTIONS(4465),
-    [aux_sym_preproc_if_token2] = ACTIONS(4465),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4465),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4465),
     [sym_preproc_directive] = ACTIONS(4465),
@@ -243028,45317 +236260,3395 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4467),
     [sym__string_literal_kind] = ACTIONS(4467),
   },
-  [1071] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4469),
-    [aux_sym_preproc_def_token1] = ACTIONS(4469),
-    [aux_sym_preproc_if_token1] = ACTIONS(4469),
-    [aux_sym_preproc_if_token2] = ACTIONS(4469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
-    [sym_preproc_directive] = ACTIONS(4469),
-    [anon_sym_LPAREN2] = ACTIONS(4469),
-    [anon_sym_PLUS] = ACTIONS(4471),
-    [anon_sym_DASH] = ACTIONS(4471),
+  [1024] = {
+    [ts_builtin_sym_end] = ACTIONS(4639),
+    [aux_sym_preproc_include_token1] = ACTIONS(4637),
+    [aux_sym_preproc_def_token1] = ACTIONS(4637),
+    [aux_sym_preproc_if_token1] = ACTIONS(4637),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
+    [sym_preproc_directive] = ACTIONS(4637),
+    [anon_sym_LPAREN2] = ACTIONS(4637),
+    [anon_sym_PLUS] = ACTIONS(4639),
+    [anon_sym_DASH] = ACTIONS(4639),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
-    [aux_sym_module_statement_token1] = ACTIONS(4469),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4469),
-    [aux_sym_interface_statement_token1] = ACTIONS(4469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
-    [aux_sym_function_statement_token1] = ACTIONS(4469),
-    [aux_sym_language_binding_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
-    [aux_sym_contains_statement_token1] = ACTIONS(4469),
-    [aux_sym_use_statement_token1] = ACTIONS(4469),
-    [aux_sym_use_statement_token2] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
-    [aux_sym_save_statement_token1] = ACTIONS(4469),
-    [aux_sym_private_statement_token1] = ACTIONS(4469),
-    [aux_sym_public_statement_token1] = ACTIONS(4469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
-    [aux_sym_common_statement_token1] = ACTIONS(4469),
-    [aux_sym_import_statement_token1] = ACTIONS(4469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
-    [aux_sym_derived_type_token1] = ACTIONS(4469),
-    [aux_sym_declared_type_token1] = ACTIONS(4469),
-    [aux_sym_declared_type_token2] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4469),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
-    [anon_sym_SEMI] = ACTIONS(4471),
-    [aux_sym_stop_statement_token1] = ACTIONS(4469),
-    [aux_sym_stop_statement_token2] = ACTIONS(4469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
-    [aux_sym_include_statement_token1] = ACTIONS(4469),
-    [aux_sym_data_statement_token1] = ACTIONS(4469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
-    [aux_sym_block_construct_token1] = ACTIONS(4469),
-    [aux_sym_associate_statement_token1] = ACTIONS(4469),
-    [aux_sym_format_statement_token1] = ACTIONS(4469),
-    [aux_sym_print_statement_token1] = ACTIONS(4469),
-    [aux_sym_open_statement_token1] = ACTIONS(4469),
-    [aux_sym_close_statement_token1] = ACTIONS(4469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
-    [aux_sym_enum_statement_token1] = ACTIONS(4469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
-    [aux_sym_entry_statement_token1] = ACTIONS(4469),
-    [aux_sym_logical_expression_token5] = ACTIONS(4471),
-    [anon_sym_DOT] = ACTIONS(4469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
-    [anon_sym_LBRACK] = ACTIONS(4471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
-    [aux_sym_null_literal_token1] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
-    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [aux_sym_program_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
+    [aux_sym_module_statement_token1] = ACTIONS(4637),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4637),
+    [aux_sym_interface_statement_token1] = ACTIONS(4637),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4637),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
+    [aux_sym_function_statement_token1] = ACTIONS(4637),
+    [aux_sym_language_binding_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
+    [aux_sym_contains_statement_token1] = ACTIONS(4637),
+    [aux_sym_use_statement_token1] = ACTIONS(4637),
+    [aux_sym_use_statement_token2] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
+    [aux_sym_save_statement_token1] = ACTIONS(4637),
+    [aux_sym_private_statement_token1] = ACTIONS(4637),
+    [aux_sym_public_statement_token1] = ACTIONS(4637),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
+    [aux_sym_common_statement_token1] = ACTIONS(4637),
+    [aux_sym_import_statement_token1] = ACTIONS(4637),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
+    [aux_sym_derived_type_token1] = ACTIONS(4637),
+    [aux_sym_declared_type_token1] = ACTIONS(4637),
+    [aux_sym_declared_type_token2] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4637),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
+    [anon_sym_SEMI] = ACTIONS(4639),
+    [aux_sym_stop_statement_token1] = ACTIONS(4637),
+    [aux_sym_stop_statement_token2] = ACTIONS(4637),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
+    [aux_sym_include_statement_token1] = ACTIONS(4637),
+    [aux_sym_data_statement_token1] = ACTIONS(4637),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
+    [aux_sym_block_construct_token1] = ACTIONS(4637),
+    [aux_sym_associate_statement_token1] = ACTIONS(4637),
+    [aux_sym_format_statement_token1] = ACTIONS(4637),
+    [aux_sym_print_statement_token1] = ACTIONS(4637),
+    [aux_sym_open_statement_token1] = ACTIONS(4637),
+    [aux_sym_close_statement_token1] = ACTIONS(4637),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
+    [aux_sym_enum_statement_token1] = ACTIONS(4637),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
+    [aux_sym_entry_statement_token1] = ACTIONS(4637),
+    [aux_sym_logical_expression_token5] = ACTIONS(4639),
+    [anon_sym_DOT] = ACTIONS(4637),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
+    [anon_sym_LBRACK] = ACTIONS(4639),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
+    [aux_sym_null_literal_token1] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
+    [aux_sym_identifier_token1] = ACTIONS(4637),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4471),
-    [sym__float_literal] = ACTIONS(4471),
-    [sym__boz_literal] = ACTIONS(4471),
-    [sym__string_literal] = ACTIONS(4471),
-    [sym__string_literal_kind] = ACTIONS(4471),
+    [sym__integer_literal] = ACTIONS(4639),
+    [sym__float_literal] = ACTIONS(4639),
+    [sym__boz_literal] = ACTIONS(4639),
+    [sym__string_literal] = ACTIONS(4639),
+    [sym__string_literal_kind] = ACTIONS(4639),
   },
-  [1072] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4473),
-    [aux_sym_preproc_def_token1] = ACTIONS(4473),
-    [aux_sym_preproc_if_token1] = ACTIONS(4473),
-    [aux_sym_preproc_if_token2] = ACTIONS(4473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
-    [sym_preproc_directive] = ACTIONS(4473),
-    [anon_sym_LPAREN2] = ACTIONS(4473),
-    [anon_sym_PLUS] = ACTIONS(4475),
-    [anon_sym_DASH] = ACTIONS(4475),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4473),
-    [aux_sym_module_statement_token1] = ACTIONS(4473),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4473),
-    [aux_sym_interface_statement_token1] = ACTIONS(4473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
-    [aux_sym_function_statement_token1] = ACTIONS(4473),
-    [aux_sym_language_binding_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
-    [aux_sym_contains_statement_token1] = ACTIONS(4473),
-    [aux_sym_use_statement_token1] = ACTIONS(4473),
-    [aux_sym_use_statement_token2] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
-    [aux_sym_save_statement_token1] = ACTIONS(4473),
-    [aux_sym_private_statement_token1] = ACTIONS(4473),
-    [aux_sym_public_statement_token1] = ACTIONS(4473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
-    [aux_sym_common_statement_token1] = ACTIONS(4473),
-    [aux_sym_import_statement_token1] = ACTIONS(4473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
-    [aux_sym_derived_type_token1] = ACTIONS(4473),
-    [aux_sym_declared_type_token1] = ACTIONS(4473),
-    [aux_sym_declared_type_token2] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4473),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
-    [anon_sym_SEMI] = ACTIONS(4475),
-    [aux_sym_stop_statement_token1] = ACTIONS(4473),
-    [aux_sym_stop_statement_token2] = ACTIONS(4473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
-    [aux_sym_include_statement_token1] = ACTIONS(4473),
-    [aux_sym_data_statement_token1] = ACTIONS(4473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
-    [aux_sym_block_construct_token1] = ACTIONS(4473),
-    [aux_sym_associate_statement_token1] = ACTIONS(4473),
-    [aux_sym_format_statement_token1] = ACTIONS(4473),
-    [aux_sym_print_statement_token1] = ACTIONS(4473),
-    [aux_sym_open_statement_token1] = ACTIONS(4473),
-    [aux_sym_close_statement_token1] = ACTIONS(4473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
-    [aux_sym_enum_statement_token1] = ACTIONS(4473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
-    [aux_sym_entry_statement_token1] = ACTIONS(4473),
-    [aux_sym_logical_expression_token5] = ACTIONS(4475),
-    [anon_sym_DOT] = ACTIONS(4473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
-    [anon_sym_LBRACK] = ACTIONS(4475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
-    [aux_sym_null_literal_token1] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
-    [aux_sym_identifier_token1] = ACTIONS(4473),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4475),
-    [sym__float_literal] = ACTIONS(4475),
-    [sym__boz_literal] = ACTIONS(4475),
-    [sym__string_literal] = ACTIONS(4475),
-    [sym__string_literal_kind] = ACTIONS(4475),
-  },
-  [1073] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4477),
-    [aux_sym_preproc_def_token1] = ACTIONS(4477),
-    [aux_sym_preproc_if_token1] = ACTIONS(4477),
-    [aux_sym_preproc_if_token2] = ACTIONS(4477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4477),
-    [sym_preproc_directive] = ACTIONS(4477),
-    [anon_sym_LPAREN2] = ACTIONS(4477),
-    [anon_sym_PLUS] = ACTIONS(4479),
-    [anon_sym_DASH] = ACTIONS(4479),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4477),
-    [aux_sym_module_statement_token1] = ACTIONS(4477),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4477),
-    [aux_sym_interface_statement_token1] = ACTIONS(4477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4477),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4477),
-    [aux_sym_function_statement_token1] = ACTIONS(4477),
-    [aux_sym_language_binding_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4477),
-    [aux_sym_contains_statement_token1] = ACTIONS(4477),
-    [aux_sym_use_statement_token1] = ACTIONS(4477),
-    [aux_sym_use_statement_token2] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4477),
-    [aux_sym_save_statement_token1] = ACTIONS(4477),
-    [aux_sym_private_statement_token1] = ACTIONS(4477),
-    [aux_sym_public_statement_token1] = ACTIONS(4477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4477),
-    [aux_sym_common_statement_token1] = ACTIONS(4477),
-    [aux_sym_import_statement_token1] = ACTIONS(4477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4477),
-    [aux_sym_derived_type_token1] = ACTIONS(4477),
-    [aux_sym_declared_type_token1] = ACTIONS(4477),
-    [aux_sym_declared_type_token2] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4477),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4477),
-    [anon_sym_SEMI] = ACTIONS(4479),
-    [aux_sym_stop_statement_token1] = ACTIONS(4477),
-    [aux_sym_stop_statement_token2] = ACTIONS(4477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4477),
-    [aux_sym_include_statement_token1] = ACTIONS(4477),
-    [aux_sym_data_statement_token1] = ACTIONS(4477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4477),
-    [aux_sym_block_construct_token1] = ACTIONS(4477),
-    [aux_sym_associate_statement_token1] = ACTIONS(4477),
-    [aux_sym_format_statement_token1] = ACTIONS(4477),
-    [aux_sym_print_statement_token1] = ACTIONS(4477),
-    [aux_sym_open_statement_token1] = ACTIONS(4477),
-    [aux_sym_close_statement_token1] = ACTIONS(4477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4477),
-    [aux_sym_enum_statement_token1] = ACTIONS(4477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4477),
-    [aux_sym_entry_statement_token1] = ACTIONS(4477),
-    [aux_sym_logical_expression_token5] = ACTIONS(4479),
-    [anon_sym_DOT] = ACTIONS(4477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4479),
-    [anon_sym_LBRACK] = ACTIONS(4479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4479),
-    [aux_sym_null_literal_token1] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4477),
-    [aux_sym_identifier_token1] = ACTIONS(4477),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4479),
-    [sym__float_literal] = ACTIONS(4479),
-    [sym__boz_literal] = ACTIONS(4479),
-    [sym__string_literal] = ACTIONS(4479),
-    [sym__string_literal_kind] = ACTIONS(4479),
-  },
-  [1074] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4481),
-    [aux_sym_preproc_def_token1] = ACTIONS(4481),
-    [aux_sym_preproc_if_token1] = ACTIONS(4481),
-    [aux_sym_preproc_if_token2] = ACTIONS(4481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4481),
-    [sym_preproc_directive] = ACTIONS(4481),
-    [anon_sym_LPAREN2] = ACTIONS(4481),
-    [anon_sym_PLUS] = ACTIONS(4483),
-    [anon_sym_DASH] = ACTIONS(4483),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4481),
-    [aux_sym_module_statement_token1] = ACTIONS(4481),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4481),
-    [aux_sym_interface_statement_token1] = ACTIONS(4481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4481),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4481),
-    [aux_sym_function_statement_token1] = ACTIONS(4481),
-    [aux_sym_language_binding_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4481),
-    [aux_sym_contains_statement_token1] = ACTIONS(4481),
-    [aux_sym_use_statement_token1] = ACTIONS(4481),
-    [aux_sym_use_statement_token2] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4481),
-    [aux_sym_save_statement_token1] = ACTIONS(4481),
-    [aux_sym_private_statement_token1] = ACTIONS(4481),
-    [aux_sym_public_statement_token1] = ACTIONS(4481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4481),
-    [aux_sym_common_statement_token1] = ACTIONS(4481),
-    [aux_sym_import_statement_token1] = ACTIONS(4481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4481),
-    [aux_sym_derived_type_token1] = ACTIONS(4481),
-    [aux_sym_declared_type_token1] = ACTIONS(4481),
-    [aux_sym_declared_type_token2] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4481),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4481),
-    [anon_sym_SEMI] = ACTIONS(4483),
-    [aux_sym_stop_statement_token1] = ACTIONS(4481),
-    [aux_sym_stop_statement_token2] = ACTIONS(4481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4481),
-    [aux_sym_include_statement_token1] = ACTIONS(4481),
-    [aux_sym_data_statement_token1] = ACTIONS(4481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4481),
-    [aux_sym_block_construct_token1] = ACTIONS(4481),
-    [aux_sym_associate_statement_token1] = ACTIONS(4481),
-    [aux_sym_format_statement_token1] = ACTIONS(4481),
-    [aux_sym_print_statement_token1] = ACTIONS(4481),
-    [aux_sym_open_statement_token1] = ACTIONS(4481),
-    [aux_sym_close_statement_token1] = ACTIONS(4481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4481),
-    [aux_sym_enum_statement_token1] = ACTIONS(4481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4481),
-    [aux_sym_entry_statement_token1] = ACTIONS(4481),
-    [aux_sym_logical_expression_token5] = ACTIONS(4483),
-    [anon_sym_DOT] = ACTIONS(4481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4483),
-    [anon_sym_LBRACK] = ACTIONS(4483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4483),
-    [aux_sym_null_literal_token1] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4481),
-    [aux_sym_identifier_token1] = ACTIONS(4481),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4483),
-    [sym__float_literal] = ACTIONS(4483),
-    [sym__boz_literal] = ACTIONS(4483),
-    [sym__string_literal] = ACTIONS(4483),
-    [sym__string_literal_kind] = ACTIONS(4483),
-  },
-  [1075] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4485),
-    [aux_sym_preproc_def_token1] = ACTIONS(4485),
-    [aux_sym_preproc_if_token1] = ACTIONS(4485),
-    [aux_sym_preproc_if_token2] = ACTIONS(4485),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
-    [sym_preproc_directive] = ACTIONS(4485),
-    [anon_sym_LPAREN2] = ACTIONS(4485),
-    [anon_sym_PLUS] = ACTIONS(4487),
-    [anon_sym_DASH] = ACTIONS(4487),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4485),
-    [aux_sym_module_statement_token1] = ACTIONS(4485),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4485),
-    [aux_sym_interface_statement_token1] = ACTIONS(4485),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4485),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
-    [aux_sym_function_statement_token1] = ACTIONS(4485),
-    [aux_sym_language_binding_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
-    [aux_sym_contains_statement_token1] = ACTIONS(4485),
-    [aux_sym_use_statement_token1] = ACTIONS(4485),
-    [aux_sym_use_statement_token2] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
-    [aux_sym_save_statement_token1] = ACTIONS(4485),
-    [aux_sym_private_statement_token1] = ACTIONS(4485),
-    [aux_sym_public_statement_token1] = ACTIONS(4485),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
-    [aux_sym_common_statement_token1] = ACTIONS(4485),
-    [aux_sym_import_statement_token1] = ACTIONS(4485),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
-    [aux_sym_derived_type_token1] = ACTIONS(4485),
-    [aux_sym_declared_type_token1] = ACTIONS(4485),
-    [aux_sym_declared_type_token2] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4485),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4485),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
-    [anon_sym_SEMI] = ACTIONS(4487),
-    [aux_sym_stop_statement_token1] = ACTIONS(4485),
-    [aux_sym_stop_statement_token2] = ACTIONS(4485),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
-    [aux_sym_include_statement_token1] = ACTIONS(4485),
-    [aux_sym_data_statement_token1] = ACTIONS(4485),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
-    [aux_sym_block_construct_token1] = ACTIONS(4485),
-    [aux_sym_associate_statement_token1] = ACTIONS(4485),
-    [aux_sym_format_statement_token1] = ACTIONS(4485),
-    [aux_sym_print_statement_token1] = ACTIONS(4485),
-    [aux_sym_open_statement_token1] = ACTIONS(4485),
-    [aux_sym_close_statement_token1] = ACTIONS(4485),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
-    [aux_sym_enum_statement_token1] = ACTIONS(4485),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
-    [aux_sym_entry_statement_token1] = ACTIONS(4485),
-    [aux_sym_logical_expression_token5] = ACTIONS(4487),
-    [anon_sym_DOT] = ACTIONS(4485),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
-    [anon_sym_LBRACK] = ACTIONS(4487),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
-    [aux_sym_null_literal_token1] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
-    [aux_sym_identifier_token1] = ACTIONS(4485),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4487),
-    [sym__float_literal] = ACTIONS(4487),
-    [sym__boz_literal] = ACTIONS(4487),
-    [sym__string_literal] = ACTIONS(4487),
-    [sym__string_literal_kind] = ACTIONS(4487),
-  },
-  [1076] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4489),
-    [aux_sym_preproc_def_token1] = ACTIONS(4489),
-    [aux_sym_preproc_if_token1] = ACTIONS(4489),
-    [aux_sym_preproc_if_token2] = ACTIONS(4489),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4489),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4489),
-    [sym_preproc_directive] = ACTIONS(4489),
-    [anon_sym_LPAREN2] = ACTIONS(4489),
-    [anon_sym_PLUS] = ACTIONS(4491),
-    [anon_sym_DASH] = ACTIONS(4491),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4489),
-    [aux_sym_module_statement_token1] = ACTIONS(4489),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4489),
-    [aux_sym_interface_statement_token1] = ACTIONS(4489),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4489),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4489),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4489),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4489),
-    [aux_sym_function_statement_token1] = ACTIONS(4489),
-    [aux_sym_language_binding_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4489),
-    [aux_sym_contains_statement_token1] = ACTIONS(4489),
-    [aux_sym_use_statement_token1] = ACTIONS(4489),
-    [aux_sym_use_statement_token2] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4489),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4489),
-    [aux_sym_save_statement_token1] = ACTIONS(4489),
-    [aux_sym_private_statement_token1] = ACTIONS(4489),
-    [aux_sym_public_statement_token1] = ACTIONS(4489),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4489),
-    [aux_sym_common_statement_token1] = ACTIONS(4489),
-    [aux_sym_import_statement_token1] = ACTIONS(4489),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4489),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4489),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4489),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4489),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4489),
-    [aux_sym_derived_type_token1] = ACTIONS(4489),
-    [aux_sym_declared_type_token1] = ACTIONS(4489),
-    [aux_sym_declared_type_token2] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4489),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4489),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4489),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4489),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4489),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4489),
-    [anon_sym_SEMI] = ACTIONS(4491),
-    [aux_sym_stop_statement_token1] = ACTIONS(4489),
-    [aux_sym_stop_statement_token2] = ACTIONS(4489),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4489),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4489),
-    [aux_sym_include_statement_token1] = ACTIONS(4489),
-    [aux_sym_data_statement_token1] = ACTIONS(4489),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4489),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4489),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4489),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4489),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4489),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4489),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4489),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4489),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4489),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4489),
-    [aux_sym_block_construct_token1] = ACTIONS(4489),
-    [aux_sym_associate_statement_token1] = ACTIONS(4489),
-    [aux_sym_format_statement_token1] = ACTIONS(4489),
-    [aux_sym_print_statement_token1] = ACTIONS(4489),
-    [aux_sym_open_statement_token1] = ACTIONS(4489),
-    [aux_sym_close_statement_token1] = ACTIONS(4489),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4489),
-    [aux_sym_enum_statement_token1] = ACTIONS(4489),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4489),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4489),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4489),
-    [aux_sym_entry_statement_token1] = ACTIONS(4489),
-    [aux_sym_logical_expression_token5] = ACTIONS(4491),
-    [anon_sym_DOT] = ACTIONS(4489),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4491),
-    [anon_sym_LBRACK] = ACTIONS(4491),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4491),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4491),
-    [aux_sym_null_literal_token1] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4489),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4489),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4489),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4489),
-    [aux_sym_identifier_token1] = ACTIONS(4489),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4491),
-    [sym__float_literal] = ACTIONS(4491),
-    [sym__boz_literal] = ACTIONS(4491),
-    [sym__string_literal] = ACTIONS(4491),
-    [sym__string_literal_kind] = ACTIONS(4491),
-  },
-  [1077] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4493),
-    [aux_sym_preproc_def_token1] = ACTIONS(4493),
-    [aux_sym_preproc_if_token1] = ACTIONS(4493),
-    [aux_sym_preproc_if_token2] = ACTIONS(4493),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4493),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4493),
-    [sym_preproc_directive] = ACTIONS(4493),
-    [anon_sym_LPAREN2] = ACTIONS(4493),
-    [anon_sym_PLUS] = ACTIONS(4495),
-    [anon_sym_DASH] = ACTIONS(4495),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4493),
-    [aux_sym_module_statement_token1] = ACTIONS(4493),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4493),
-    [aux_sym_interface_statement_token1] = ACTIONS(4493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4493),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4493),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4493),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4493),
-    [aux_sym_function_statement_token1] = ACTIONS(4493),
-    [aux_sym_language_binding_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4493),
-    [aux_sym_contains_statement_token1] = ACTIONS(4493),
-    [aux_sym_use_statement_token1] = ACTIONS(4493),
-    [aux_sym_use_statement_token2] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4493),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4493),
-    [aux_sym_save_statement_token1] = ACTIONS(4493),
-    [aux_sym_private_statement_token1] = ACTIONS(4493),
-    [aux_sym_public_statement_token1] = ACTIONS(4493),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4493),
-    [aux_sym_common_statement_token1] = ACTIONS(4493),
-    [aux_sym_import_statement_token1] = ACTIONS(4493),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4493),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4493),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4493),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4493),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4493),
-    [aux_sym_derived_type_token1] = ACTIONS(4493),
-    [aux_sym_declared_type_token1] = ACTIONS(4493),
-    [aux_sym_declared_type_token2] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4493),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4493),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4493),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4493),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4493),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4493),
-    [anon_sym_SEMI] = ACTIONS(4495),
-    [aux_sym_stop_statement_token1] = ACTIONS(4493),
-    [aux_sym_stop_statement_token2] = ACTIONS(4493),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4493),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4493),
-    [aux_sym_include_statement_token1] = ACTIONS(4493),
-    [aux_sym_data_statement_token1] = ACTIONS(4493),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4493),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4493),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4493),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4493),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4493),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4493),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4493),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4493),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4493),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4493),
-    [aux_sym_block_construct_token1] = ACTIONS(4493),
-    [aux_sym_associate_statement_token1] = ACTIONS(4493),
-    [aux_sym_format_statement_token1] = ACTIONS(4493),
-    [aux_sym_print_statement_token1] = ACTIONS(4493),
-    [aux_sym_open_statement_token1] = ACTIONS(4493),
-    [aux_sym_close_statement_token1] = ACTIONS(4493),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4493),
-    [aux_sym_enum_statement_token1] = ACTIONS(4493),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4493),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4493),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4493),
-    [aux_sym_entry_statement_token1] = ACTIONS(4493),
-    [aux_sym_logical_expression_token5] = ACTIONS(4495),
-    [anon_sym_DOT] = ACTIONS(4493),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4495),
-    [anon_sym_LBRACK] = ACTIONS(4495),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4495),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4495),
-    [aux_sym_null_literal_token1] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4493),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4493),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4493),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4493),
-    [aux_sym_identifier_token1] = ACTIONS(4493),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4495),
-    [sym__float_literal] = ACTIONS(4495),
-    [sym__boz_literal] = ACTIONS(4495),
-    [sym__string_literal] = ACTIONS(4495),
-    [sym__string_literal_kind] = ACTIONS(4495),
-  },
-  [1078] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_module_statement_token1] = ACTIONS(4629),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_function_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4629),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [1079] = {
-    [ts_builtin_sym_end] = ACTIONS(4419),
-    [aux_sym_preproc_include_token1] = ACTIONS(4417),
-    [aux_sym_preproc_def_token1] = ACTIONS(4417),
-    [aux_sym_preproc_if_token1] = ACTIONS(4417),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4417),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4417),
-    [sym_preproc_directive] = ACTIONS(4417),
-    [anon_sym_LPAREN2] = ACTIONS(4417),
-    [anon_sym_PLUS] = ACTIONS(4419),
-    [anon_sym_DASH] = ACTIONS(4419),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4417),
-    [aux_sym_module_statement_token1] = ACTIONS(4417),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4417),
-    [aux_sym_interface_statement_token1] = ACTIONS(4417),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4417),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4417),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4417),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4417),
-    [aux_sym_function_statement_token1] = ACTIONS(4417),
-    [aux_sym_language_binding_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4417),
-    [aux_sym_contains_statement_token1] = ACTIONS(4417),
-    [aux_sym_use_statement_token1] = ACTIONS(4417),
-    [aux_sym_use_statement_token2] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4417),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4417),
-    [aux_sym_save_statement_token1] = ACTIONS(4417),
-    [aux_sym_private_statement_token1] = ACTIONS(4417),
-    [aux_sym_public_statement_token1] = ACTIONS(4417),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4417),
-    [aux_sym_common_statement_token1] = ACTIONS(4417),
-    [aux_sym_import_statement_token1] = ACTIONS(4417),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4417),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4417),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4417),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4417),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4417),
-    [aux_sym_derived_type_token1] = ACTIONS(4417),
-    [aux_sym_declared_type_token1] = ACTIONS(4417),
-    [aux_sym_declared_type_token2] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4417),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4417),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4417),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4417),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4417),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4417),
-    [anon_sym_SEMI] = ACTIONS(4419),
-    [aux_sym_stop_statement_token1] = ACTIONS(4417),
-    [aux_sym_stop_statement_token2] = ACTIONS(4417),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4417),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4417),
-    [aux_sym_include_statement_token1] = ACTIONS(4417),
-    [aux_sym_data_statement_token1] = ACTIONS(4417),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4417),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4417),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4417),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4417),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4417),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4417),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4417),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4417),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4417),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4417),
-    [aux_sym_block_construct_token1] = ACTIONS(4417),
-    [aux_sym_associate_statement_token1] = ACTIONS(4417),
-    [aux_sym_format_statement_token1] = ACTIONS(4417),
-    [aux_sym_print_statement_token1] = ACTIONS(4417),
-    [aux_sym_open_statement_token1] = ACTIONS(4417),
-    [aux_sym_close_statement_token1] = ACTIONS(4417),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4417),
-    [aux_sym_enum_statement_token1] = ACTIONS(4417),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4417),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4417),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4417),
-    [aux_sym_entry_statement_token1] = ACTIONS(4417),
-    [aux_sym_logical_expression_token5] = ACTIONS(4419),
-    [anon_sym_DOT] = ACTIONS(4417),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4419),
-    [anon_sym_LBRACK] = ACTIONS(4419),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4419),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4419),
-    [aux_sym_null_literal_token1] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4417),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4417),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4417),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4417),
-    [aux_sym_identifier_token1] = ACTIONS(4417),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4419),
-    [sym__float_literal] = ACTIONS(4419),
-    [sym__boz_literal] = ACTIONS(4419),
-    [sym__string_literal] = ACTIONS(4419),
-    [sym__string_literal_kind] = ACTIONS(4419),
-  },
-  [1080] = {
-    [ts_builtin_sym_end] = ACTIONS(4635),
-    [aux_sym_preproc_include_token1] = ACTIONS(4633),
-    [aux_sym_preproc_def_token1] = ACTIONS(4633),
-    [aux_sym_preproc_if_token1] = ACTIONS(4633),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4633),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4633),
-    [sym_preproc_directive] = ACTIONS(4633),
-    [anon_sym_LPAREN2] = ACTIONS(4633),
-    [anon_sym_PLUS] = ACTIONS(4635),
-    [anon_sym_DASH] = ACTIONS(4635),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4633),
-    [aux_sym_module_statement_token1] = ACTIONS(4633),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4633),
-    [aux_sym_interface_statement_token1] = ACTIONS(4633),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4633),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4633),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4633),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4633),
-    [aux_sym_function_statement_token1] = ACTIONS(4633),
-    [aux_sym_language_binding_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4633),
-    [aux_sym_contains_statement_token1] = ACTIONS(4633),
-    [aux_sym_use_statement_token1] = ACTIONS(4633),
-    [aux_sym_use_statement_token2] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4633),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4633),
-    [aux_sym_save_statement_token1] = ACTIONS(4633),
-    [aux_sym_private_statement_token1] = ACTIONS(4633),
-    [aux_sym_public_statement_token1] = ACTIONS(4633),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4633),
-    [aux_sym_common_statement_token1] = ACTIONS(4633),
-    [aux_sym_import_statement_token1] = ACTIONS(4633),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4633),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4633),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4633),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4633),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4633),
-    [aux_sym_derived_type_token1] = ACTIONS(4633),
-    [aux_sym_declared_type_token1] = ACTIONS(4633),
-    [aux_sym_declared_type_token2] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4633),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4633),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4633),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4633),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4633),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4633),
-    [anon_sym_SEMI] = ACTIONS(4635),
-    [aux_sym_stop_statement_token1] = ACTIONS(4633),
-    [aux_sym_stop_statement_token2] = ACTIONS(4633),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4633),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4633),
-    [aux_sym_include_statement_token1] = ACTIONS(4633),
-    [aux_sym_data_statement_token1] = ACTIONS(4633),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4633),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4633),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4633),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4633),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4633),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4633),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4633),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4633),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4633),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4633),
-    [aux_sym_block_construct_token1] = ACTIONS(4633),
-    [aux_sym_associate_statement_token1] = ACTIONS(4633),
-    [aux_sym_format_statement_token1] = ACTIONS(4633),
-    [aux_sym_print_statement_token1] = ACTIONS(4633),
-    [aux_sym_open_statement_token1] = ACTIONS(4633),
-    [aux_sym_close_statement_token1] = ACTIONS(4633),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4633),
-    [aux_sym_enum_statement_token1] = ACTIONS(4633),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4633),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4633),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4633),
-    [aux_sym_entry_statement_token1] = ACTIONS(4633),
-    [aux_sym_logical_expression_token5] = ACTIONS(4635),
-    [anon_sym_DOT] = ACTIONS(4633),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4635),
-    [anon_sym_LBRACK] = ACTIONS(4635),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4635),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4635),
-    [aux_sym_null_literal_token1] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4633),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4633),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4633),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4633),
-    [aux_sym_identifier_token1] = ACTIONS(4633),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4635),
-    [sym__float_literal] = ACTIONS(4635),
-    [sym__boz_literal] = ACTIONS(4635),
-    [sym__string_literal] = ACTIONS(4635),
-    [sym__string_literal_kind] = ACTIONS(4635),
-  },
-  [1081] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_module_statement_token1] = ACTIONS(4637),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_function_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [1082] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_module_statement_token1] = ACTIONS(4401),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_function_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4401),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1083] = {
-    [ts_builtin_sym_end] = ACTIONS(4463),
-    [aux_sym_preproc_include_token1] = ACTIONS(4461),
-    [aux_sym_preproc_def_token1] = ACTIONS(4461),
-    [aux_sym_preproc_if_token1] = ACTIONS(4461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4461),
-    [sym_preproc_directive] = ACTIONS(4461),
-    [anon_sym_LPAREN2] = ACTIONS(4461),
-    [anon_sym_PLUS] = ACTIONS(4463),
-    [anon_sym_DASH] = ACTIONS(4463),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4461),
-    [aux_sym_module_statement_token1] = ACTIONS(4461),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4461),
-    [aux_sym_interface_statement_token1] = ACTIONS(4461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4461),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4461),
-    [aux_sym_function_statement_token1] = ACTIONS(4461),
-    [aux_sym_language_binding_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4461),
-    [aux_sym_contains_statement_token1] = ACTIONS(4461),
-    [aux_sym_use_statement_token1] = ACTIONS(4461),
-    [aux_sym_use_statement_token2] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4461),
-    [aux_sym_save_statement_token1] = ACTIONS(4461),
-    [aux_sym_private_statement_token1] = ACTIONS(4461),
-    [aux_sym_public_statement_token1] = ACTIONS(4461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4461),
-    [aux_sym_common_statement_token1] = ACTIONS(4461),
-    [aux_sym_import_statement_token1] = ACTIONS(4461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4461),
-    [aux_sym_derived_type_token1] = ACTIONS(4461),
-    [aux_sym_declared_type_token1] = ACTIONS(4461),
-    [aux_sym_declared_type_token2] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4461),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4461),
-    [anon_sym_SEMI] = ACTIONS(4463),
-    [aux_sym_stop_statement_token1] = ACTIONS(4461),
-    [aux_sym_stop_statement_token2] = ACTIONS(4461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4461),
-    [aux_sym_include_statement_token1] = ACTIONS(4461),
-    [aux_sym_data_statement_token1] = ACTIONS(4461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4461),
-    [aux_sym_block_construct_token1] = ACTIONS(4461),
-    [aux_sym_associate_statement_token1] = ACTIONS(4461),
-    [aux_sym_format_statement_token1] = ACTIONS(4461),
-    [aux_sym_print_statement_token1] = ACTIONS(4461),
-    [aux_sym_open_statement_token1] = ACTIONS(4461),
-    [aux_sym_close_statement_token1] = ACTIONS(4461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4461),
-    [aux_sym_enum_statement_token1] = ACTIONS(4461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4461),
-    [aux_sym_entry_statement_token1] = ACTIONS(4461),
-    [aux_sym_logical_expression_token5] = ACTIONS(4463),
-    [anon_sym_DOT] = ACTIONS(4461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4463),
-    [anon_sym_LBRACK] = ACTIONS(4463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4463),
-    [aux_sym_null_literal_token1] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4461),
-    [aux_sym_identifier_token1] = ACTIONS(4461),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4463),
-    [sym__float_literal] = ACTIONS(4463),
-    [sym__boz_literal] = ACTIONS(4463),
-    [sym__string_literal] = ACTIONS(4463),
-    [sym__string_literal_kind] = ACTIONS(4463),
-  },
-  [1084] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4341),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_module_statement_token1] = ACTIONS(4341),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4341),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4341),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_function_statement_token1] = ACTIONS(4341),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4341),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4341),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1085] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_module_statement_token1] = ACTIONS(4529),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_function_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1086] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_module_statement_token1] = ACTIONS(4405),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_function_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [1087] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_module_statement_token1] = ACTIONS(4409),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_function_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1088] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1089] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
-    [aux_sym_module_statement_token1] = ACTIONS(4413),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_function_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4413),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [1090] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4503),
-    [aux_sym_preproc_def_token1] = ACTIONS(4503),
-    [aux_sym_preproc_if_token1] = ACTIONS(4503),
-    [aux_sym_preproc_if_token2] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4503),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4503),
-    [sym_preproc_directive] = ACTIONS(4503),
-    [anon_sym_LPAREN2] = ACTIONS(4503),
-    [anon_sym_PLUS] = ACTIONS(4505),
-    [anon_sym_DASH] = ACTIONS(4505),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4503),
-    [aux_sym_module_statement_token1] = ACTIONS(4503),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4503),
-    [aux_sym_interface_statement_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4503),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4503),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4503),
-    [aux_sym_function_statement_token1] = ACTIONS(4503),
-    [aux_sym_language_binding_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4503),
-    [aux_sym_contains_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token1] = ACTIONS(4503),
-    [aux_sym_use_statement_token2] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4503),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4503),
-    [aux_sym_save_statement_token1] = ACTIONS(4503),
-    [aux_sym_private_statement_token1] = ACTIONS(4503),
-    [aux_sym_public_statement_token1] = ACTIONS(4503),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4503),
-    [aux_sym_common_statement_token1] = ACTIONS(4503),
-    [aux_sym_import_statement_token1] = ACTIONS(4503),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4503),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4503),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4503),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4503),
-    [aux_sym_derived_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token1] = ACTIONS(4503),
-    [aux_sym_declared_type_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4503),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4503),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4503),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4503),
-    [anon_sym_SEMI] = ACTIONS(4505),
-    [aux_sym_stop_statement_token1] = ACTIONS(4503),
-    [aux_sym_stop_statement_token2] = ACTIONS(4503),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4503),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4503),
-    [aux_sym_include_statement_token1] = ACTIONS(4503),
-    [aux_sym_data_statement_token1] = ACTIONS(4503),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4503),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4503),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4503),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4503),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4503),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4503),
-    [aux_sym_block_construct_token1] = ACTIONS(4503),
-    [aux_sym_associate_statement_token1] = ACTIONS(4503),
-    [aux_sym_format_statement_token1] = ACTIONS(4503),
-    [aux_sym_print_statement_token1] = ACTIONS(4503),
-    [aux_sym_open_statement_token1] = ACTIONS(4503),
-    [aux_sym_close_statement_token1] = ACTIONS(4503),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4503),
-    [aux_sym_enum_statement_token1] = ACTIONS(4503),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4503),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4503),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4503),
-    [aux_sym_entry_statement_token1] = ACTIONS(4503),
-    [aux_sym_logical_expression_token5] = ACTIONS(4505),
-    [anon_sym_DOT] = ACTIONS(4503),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4505),
-    [anon_sym_LBRACK] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4505),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4505),
-    [aux_sym_null_literal_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4503),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4503),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4503),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4503),
-    [aux_sym_identifier_token1] = ACTIONS(4503),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4505),
-    [sym__float_literal] = ACTIONS(4505),
-    [sym__boz_literal] = ACTIONS(4505),
-    [sym__string_literal] = ACTIONS(4505),
-    [sym__string_literal_kind] = ACTIONS(4505),
-  },
-  [1091] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4361),
-    [aux_sym_preproc_def_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token1] = ACTIONS(4361),
-    [aux_sym_preproc_if_token2] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4361),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4361),
-    [sym_preproc_directive] = ACTIONS(4361),
-    [anon_sym_LPAREN2] = ACTIONS(4361),
-    [anon_sym_PLUS] = ACTIONS(4365),
-    [anon_sym_DASH] = ACTIONS(4365),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4361),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4361),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4361),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4361),
-    [aux_sym_contains_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token1] = ACTIONS(4361),
-    [aux_sym_use_statement_token2] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4361),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4361),
-    [aux_sym_save_statement_token1] = ACTIONS(4361),
-    [aux_sym_private_statement_token1] = ACTIONS(4361),
-    [aux_sym_public_statement_token1] = ACTIONS(4361),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4361),
-    [aux_sym_common_statement_token1] = ACTIONS(4361),
-    [aux_sym_import_statement_token1] = ACTIONS(4361),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4361),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4361),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4361),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4361),
-    [aux_sym_derived_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token1] = ACTIONS(4361),
-    [aux_sym_declared_type_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4361),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4361),
-    [anon_sym_SEMI] = ACTIONS(4365),
-    [aux_sym_stop_statement_token1] = ACTIONS(4361),
-    [aux_sym_stop_statement_token2] = ACTIONS(4361),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4361),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4361),
-    [aux_sym_include_statement_token1] = ACTIONS(4361),
-    [aux_sym_data_statement_token1] = ACTIONS(4361),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4361),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4361),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4361),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4361),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4361),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4361),
-    [aux_sym_block_construct_token1] = ACTIONS(4361),
-    [aux_sym_associate_statement_token1] = ACTIONS(4361),
-    [aux_sym_format_statement_token1] = ACTIONS(4361),
-    [aux_sym_print_statement_token1] = ACTIONS(4361),
-    [aux_sym_open_statement_token1] = ACTIONS(4361),
-    [aux_sym_close_statement_token1] = ACTIONS(4361),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4361),
-    [aux_sym_enum_statement_token1] = ACTIONS(4361),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4361),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4361),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4361),
-    [aux_sym_entry_statement_token1] = ACTIONS(4361),
-    [aux_sym_logical_expression_token5] = ACTIONS(4365),
-    [anon_sym_DOT] = ACTIONS(4361),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4365),
-    [anon_sym_LBRACK] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4365),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4365),
-    [aux_sym_null_literal_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4361),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4361),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4361),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4361),
-    [aux_sym_identifier_token1] = ACTIONS(4361),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4365),
-    [sym__float_literal] = ACTIONS(4365),
-    [sym__boz_literal] = ACTIONS(4365),
-    [sym__string_literal] = ACTIONS(4365),
-    [sym__string_literal_kind] = ACTIONS(4365),
-  },
-  [1092] = {
-    [sym_preproc_include] = STATE(986),
-    [sym_preproc_def] = STATE(986),
-    [sym_preproc_function_def] = STATE(986),
-    [sym_preproc_call] = STATE(986),
-    [sym_preproc_if_in_module] = STATE(986),
-    [sym_preproc_ifdef_in_module] = STATE(986),
-    [sym_end_module_statement] = STATE(984),
-    [sym_interface] = STATE(986),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7234),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(986),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(986),
-    [sym_public_statement] = STATE(986),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(986),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(986),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(986),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(986),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4817),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4819),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1093] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4507),
-    [aux_sym_preproc_def_token1] = ACTIONS(4507),
-    [aux_sym_preproc_if_token1] = ACTIONS(4507),
-    [aux_sym_preproc_if_token2] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4507),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4507),
-    [sym_preproc_directive] = ACTIONS(4507),
-    [anon_sym_LPAREN2] = ACTIONS(4507),
-    [anon_sym_PLUS] = ACTIONS(4509),
-    [anon_sym_DASH] = ACTIONS(4509),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4507),
-    [aux_sym_module_statement_token1] = ACTIONS(4507),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4507),
-    [aux_sym_interface_statement_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4507),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4507),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4507),
-    [aux_sym_function_statement_token1] = ACTIONS(4507),
-    [aux_sym_language_binding_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4507),
-    [aux_sym_contains_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token1] = ACTIONS(4507),
-    [aux_sym_use_statement_token2] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4507),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4507),
-    [aux_sym_save_statement_token1] = ACTIONS(4507),
-    [aux_sym_private_statement_token1] = ACTIONS(4507),
-    [aux_sym_public_statement_token1] = ACTIONS(4507),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4507),
-    [aux_sym_common_statement_token1] = ACTIONS(4507),
-    [aux_sym_import_statement_token1] = ACTIONS(4507),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4507),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4507),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4507),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4507),
-    [aux_sym_derived_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token1] = ACTIONS(4507),
-    [aux_sym_declared_type_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4507),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4507),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4507),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4507),
-    [anon_sym_SEMI] = ACTIONS(4509),
-    [aux_sym_stop_statement_token1] = ACTIONS(4507),
-    [aux_sym_stop_statement_token2] = ACTIONS(4507),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4507),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4507),
-    [aux_sym_include_statement_token1] = ACTIONS(4507),
-    [aux_sym_data_statement_token1] = ACTIONS(4507),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4507),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4507),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4507),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4507),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4507),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4507),
-    [aux_sym_block_construct_token1] = ACTIONS(4507),
-    [aux_sym_associate_statement_token1] = ACTIONS(4507),
-    [aux_sym_format_statement_token1] = ACTIONS(4507),
-    [aux_sym_print_statement_token1] = ACTIONS(4507),
-    [aux_sym_open_statement_token1] = ACTIONS(4507),
-    [aux_sym_close_statement_token1] = ACTIONS(4507),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4507),
-    [aux_sym_enum_statement_token1] = ACTIONS(4507),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4507),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4507),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4507),
-    [aux_sym_entry_statement_token1] = ACTIONS(4507),
-    [aux_sym_logical_expression_token5] = ACTIONS(4509),
-    [anon_sym_DOT] = ACTIONS(4507),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4509),
-    [anon_sym_LBRACK] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4509),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4509),
-    [aux_sym_null_literal_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4507),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4507),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4507),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4507),
-    [aux_sym_identifier_token1] = ACTIONS(4507),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4509),
-    [sym__float_literal] = ACTIONS(4509),
-    [sym__boz_literal] = ACTIONS(4509),
-    [sym__string_literal] = ACTIONS(4509),
-    [sym__string_literal_kind] = ACTIONS(4509),
-  },
-  [1094] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4511),
-    [aux_sym_preproc_def_token1] = ACTIONS(4511),
-    [aux_sym_preproc_if_token1] = ACTIONS(4511),
-    [aux_sym_preproc_if_token2] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4511),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4511),
-    [sym_preproc_directive] = ACTIONS(4511),
-    [anon_sym_LPAREN2] = ACTIONS(4511),
-    [anon_sym_PLUS] = ACTIONS(4513),
-    [anon_sym_DASH] = ACTIONS(4513),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4511),
-    [aux_sym_module_statement_token1] = ACTIONS(4511),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4511),
-    [aux_sym_interface_statement_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4511),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4511),
-    [aux_sym_function_statement_token1] = ACTIONS(4511),
-    [aux_sym_language_binding_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4511),
-    [aux_sym_contains_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token1] = ACTIONS(4511),
-    [aux_sym_use_statement_token2] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4511),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4511),
-    [aux_sym_save_statement_token1] = ACTIONS(4511),
-    [aux_sym_private_statement_token1] = ACTIONS(4511),
-    [aux_sym_public_statement_token1] = ACTIONS(4511),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4511),
-    [aux_sym_common_statement_token1] = ACTIONS(4511),
-    [aux_sym_import_statement_token1] = ACTIONS(4511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4511),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4511),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4511),
-    [aux_sym_derived_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token1] = ACTIONS(4511),
-    [aux_sym_declared_type_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4511),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4511),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4511),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4511),
-    [anon_sym_SEMI] = ACTIONS(4513),
-    [aux_sym_stop_statement_token1] = ACTIONS(4511),
-    [aux_sym_stop_statement_token2] = ACTIONS(4511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4511),
-    [aux_sym_include_statement_token1] = ACTIONS(4511),
-    [aux_sym_data_statement_token1] = ACTIONS(4511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4511),
-    [aux_sym_block_construct_token1] = ACTIONS(4511),
-    [aux_sym_associate_statement_token1] = ACTIONS(4511),
-    [aux_sym_format_statement_token1] = ACTIONS(4511),
-    [aux_sym_print_statement_token1] = ACTIONS(4511),
-    [aux_sym_open_statement_token1] = ACTIONS(4511),
-    [aux_sym_close_statement_token1] = ACTIONS(4511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4511),
-    [aux_sym_enum_statement_token1] = ACTIONS(4511),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4511),
-    [aux_sym_entry_statement_token1] = ACTIONS(4511),
-    [aux_sym_logical_expression_token5] = ACTIONS(4513),
-    [anon_sym_DOT] = ACTIONS(4511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4513),
-    [anon_sym_LBRACK] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4513),
-    [aux_sym_null_literal_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4511),
-    [aux_sym_identifier_token1] = ACTIONS(4511),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4513),
-    [sym__float_literal] = ACTIONS(4513),
-    [sym__boz_literal] = ACTIONS(4513),
-    [sym__string_literal] = ACTIONS(4513),
-    [sym__string_literal_kind] = ACTIONS(4513),
-  },
-  [1095] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4515),
-    [aux_sym_preproc_def_token1] = ACTIONS(4515),
-    [aux_sym_preproc_if_token1] = ACTIONS(4515),
-    [aux_sym_preproc_if_token2] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4515),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4515),
-    [sym_preproc_directive] = ACTIONS(4515),
-    [anon_sym_LPAREN2] = ACTIONS(4515),
-    [anon_sym_PLUS] = ACTIONS(4517),
-    [anon_sym_DASH] = ACTIONS(4517),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4515),
-    [aux_sym_module_statement_token1] = ACTIONS(4515),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4515),
-    [aux_sym_interface_statement_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4515),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4515),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4515),
-    [aux_sym_function_statement_token1] = ACTIONS(4515),
-    [aux_sym_language_binding_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4515),
-    [aux_sym_contains_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token1] = ACTIONS(4515),
-    [aux_sym_use_statement_token2] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4515),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4515),
-    [aux_sym_save_statement_token1] = ACTIONS(4515),
-    [aux_sym_private_statement_token1] = ACTIONS(4515),
-    [aux_sym_public_statement_token1] = ACTIONS(4515),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4515),
-    [aux_sym_common_statement_token1] = ACTIONS(4515),
-    [aux_sym_import_statement_token1] = ACTIONS(4515),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4515),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4515),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4515),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4515),
-    [aux_sym_derived_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token1] = ACTIONS(4515),
-    [aux_sym_declared_type_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4515),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4515),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4515),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4515),
-    [anon_sym_SEMI] = ACTIONS(4517),
-    [aux_sym_stop_statement_token1] = ACTIONS(4515),
-    [aux_sym_stop_statement_token2] = ACTIONS(4515),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4515),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4515),
-    [aux_sym_include_statement_token1] = ACTIONS(4515),
-    [aux_sym_data_statement_token1] = ACTIONS(4515),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4515),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4515),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4515),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4515),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4515),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4515),
-    [aux_sym_block_construct_token1] = ACTIONS(4515),
-    [aux_sym_associate_statement_token1] = ACTIONS(4515),
-    [aux_sym_format_statement_token1] = ACTIONS(4515),
-    [aux_sym_print_statement_token1] = ACTIONS(4515),
-    [aux_sym_open_statement_token1] = ACTIONS(4515),
-    [aux_sym_close_statement_token1] = ACTIONS(4515),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4515),
-    [aux_sym_enum_statement_token1] = ACTIONS(4515),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4515),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4515),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4515),
-    [aux_sym_entry_statement_token1] = ACTIONS(4515),
-    [aux_sym_logical_expression_token5] = ACTIONS(4517),
-    [anon_sym_DOT] = ACTIONS(4515),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4517),
-    [anon_sym_LBRACK] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4517),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4517),
-    [aux_sym_null_literal_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4515),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4515),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4515),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4515),
-    [aux_sym_identifier_token1] = ACTIONS(4515),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4517),
-    [sym__float_literal] = ACTIONS(4517),
-    [sym__boz_literal] = ACTIONS(4517),
-    [sym__string_literal] = ACTIONS(4517),
-    [sym__string_literal_kind] = ACTIONS(4517),
-  },
-  [1096] = {
-    [sym_preproc_include] = STATE(1006),
-    [sym_preproc_def] = STATE(1006),
-    [sym_preproc_function_def] = STATE(1006),
-    [sym_preproc_call] = STATE(1006),
-    [sym_preproc_if_in_module] = STATE(1006),
-    [sym_preproc_ifdef_in_module] = STATE(1006),
-    [sym_end_module_statement] = STATE(845),
-    [sym_interface] = STATE(1006),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6598),
-    [sym_contains_statement] = STATE(6803),
-    [sym__specification_part] = STATE(1006),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(1006),
-    [sym_public_statement] = STATE(1006),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(1006),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(1006),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(1006),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1006),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4781),
-    [aux_sym_preproc_def_token1] = ACTIONS(4783),
-    [aux_sym_preproc_if_token1] = ACTIONS(4785),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
-    [sym_preproc_directive] = ACTIONS(4789),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4825),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4827),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4795),
-    [aux_sym_public_statement_token1] = ACTIONS(4797),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1097] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4519),
-    [aux_sym_preproc_def_token1] = ACTIONS(4519),
-    [aux_sym_preproc_if_token1] = ACTIONS(4519),
-    [aux_sym_preproc_if_token2] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4519),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4519),
-    [sym_preproc_directive] = ACTIONS(4519),
-    [anon_sym_LPAREN2] = ACTIONS(4519),
-    [anon_sym_PLUS] = ACTIONS(4521),
-    [anon_sym_DASH] = ACTIONS(4521),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4519),
-    [aux_sym_module_statement_token1] = ACTIONS(4519),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4519),
-    [aux_sym_interface_statement_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4519),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4519),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4519),
-    [aux_sym_function_statement_token1] = ACTIONS(4519),
-    [aux_sym_language_binding_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4519),
-    [aux_sym_contains_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token1] = ACTIONS(4519),
-    [aux_sym_use_statement_token2] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4519),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4519),
-    [aux_sym_save_statement_token1] = ACTIONS(4519),
-    [aux_sym_private_statement_token1] = ACTIONS(4519),
-    [aux_sym_public_statement_token1] = ACTIONS(4519),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4519),
-    [aux_sym_common_statement_token1] = ACTIONS(4519),
-    [aux_sym_import_statement_token1] = ACTIONS(4519),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4519),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4519),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4519),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4519),
-    [aux_sym_derived_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token1] = ACTIONS(4519),
-    [aux_sym_declared_type_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4519),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4519),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4519),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4519),
-    [anon_sym_SEMI] = ACTIONS(4521),
-    [aux_sym_stop_statement_token1] = ACTIONS(4519),
-    [aux_sym_stop_statement_token2] = ACTIONS(4519),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4519),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4519),
-    [aux_sym_include_statement_token1] = ACTIONS(4519),
-    [aux_sym_data_statement_token1] = ACTIONS(4519),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4519),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4519),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4519),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4519),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4519),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4519),
-    [aux_sym_block_construct_token1] = ACTIONS(4519),
-    [aux_sym_associate_statement_token1] = ACTIONS(4519),
-    [aux_sym_format_statement_token1] = ACTIONS(4519),
-    [aux_sym_print_statement_token1] = ACTIONS(4519),
-    [aux_sym_open_statement_token1] = ACTIONS(4519),
-    [aux_sym_close_statement_token1] = ACTIONS(4519),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4519),
-    [aux_sym_enum_statement_token1] = ACTIONS(4519),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4519),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4519),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4519),
-    [aux_sym_entry_statement_token1] = ACTIONS(4519),
-    [aux_sym_logical_expression_token5] = ACTIONS(4521),
-    [anon_sym_DOT] = ACTIONS(4519),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4521),
-    [anon_sym_LBRACK] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4521),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4521),
-    [aux_sym_null_literal_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4519),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4519),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4519),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4519),
-    [aux_sym_identifier_token1] = ACTIONS(4519),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4521),
-    [sym__float_literal] = ACTIONS(4521),
-    [sym__boz_literal] = ACTIONS(4521),
-    [sym__string_literal] = ACTIONS(4521),
-    [sym__string_literal_kind] = ACTIONS(4521),
-  },
-  [1098] = {
-    [sym_preproc_include] = STATE(1007),
-    [sym_preproc_def] = STATE(1007),
-    [sym_preproc_function_def] = STATE(1007),
-    [sym_preproc_call] = STATE(1007),
-    [sym_preproc_if_in_module] = STATE(1007),
-    [sym_preproc_ifdef_in_module] = STATE(1007),
-    [sym_end_submodule_statement] = STATE(846),
-    [sym_interface] = STATE(1007),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(6602),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(1007),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(1007),
-    [sym_public_statement] = STATE(1007),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(1007),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(1007),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(1007),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1007),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4829),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4831),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4813),
-    [aux_sym_public_statement_token1] = ACTIONS(4815),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1099] = {
-    [ts_builtin_sym_end] = ACTIONS(4427),
-    [aux_sym_preproc_include_token1] = ACTIONS(4425),
-    [aux_sym_preproc_def_token1] = ACTIONS(4425),
-    [aux_sym_preproc_if_token1] = ACTIONS(4425),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
-    [sym_preproc_directive] = ACTIONS(4425),
-    [anon_sym_LPAREN2] = ACTIONS(4425),
-    [anon_sym_PLUS] = ACTIONS(4427),
-    [anon_sym_DASH] = ACTIONS(4427),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4425),
-    [aux_sym_module_statement_token1] = ACTIONS(4425),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4425),
-    [aux_sym_interface_statement_token1] = ACTIONS(4425),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4425),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
-    [aux_sym_function_statement_token1] = ACTIONS(4425),
-    [aux_sym_language_binding_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
-    [aux_sym_contains_statement_token1] = ACTIONS(4425),
-    [aux_sym_use_statement_token1] = ACTIONS(4425),
-    [aux_sym_use_statement_token2] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
-    [aux_sym_save_statement_token1] = ACTIONS(4425),
-    [aux_sym_private_statement_token1] = ACTIONS(4425),
-    [aux_sym_public_statement_token1] = ACTIONS(4425),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
-    [aux_sym_common_statement_token1] = ACTIONS(4425),
-    [aux_sym_import_statement_token1] = ACTIONS(4425),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
-    [aux_sym_derived_type_token1] = ACTIONS(4425),
-    [aux_sym_declared_type_token1] = ACTIONS(4425),
-    [aux_sym_declared_type_token2] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4425),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4425),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
-    [anon_sym_SEMI] = ACTIONS(4427),
-    [aux_sym_stop_statement_token1] = ACTIONS(4425),
-    [aux_sym_stop_statement_token2] = ACTIONS(4425),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
-    [aux_sym_include_statement_token1] = ACTIONS(4425),
-    [aux_sym_data_statement_token1] = ACTIONS(4425),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
-    [aux_sym_block_construct_token1] = ACTIONS(4425),
-    [aux_sym_associate_statement_token1] = ACTIONS(4425),
-    [aux_sym_format_statement_token1] = ACTIONS(4425),
-    [aux_sym_print_statement_token1] = ACTIONS(4425),
-    [aux_sym_open_statement_token1] = ACTIONS(4425),
-    [aux_sym_close_statement_token1] = ACTIONS(4425),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
-    [aux_sym_enum_statement_token1] = ACTIONS(4425),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
-    [aux_sym_entry_statement_token1] = ACTIONS(4425),
-    [aux_sym_logical_expression_token5] = ACTIONS(4427),
-    [anon_sym_DOT] = ACTIONS(4425),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
-    [anon_sym_LBRACK] = ACTIONS(4427),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
-    [aux_sym_null_literal_token1] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
-    [aux_sym_identifier_token1] = ACTIONS(4425),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4427),
-    [sym__float_literal] = ACTIONS(4427),
-    [sym__boz_literal] = ACTIONS(4427),
-    [sym__string_literal] = ACTIONS(4427),
-    [sym__string_literal_kind] = ACTIONS(4427),
-  },
-  [1100] = {
-    [ts_builtin_sym_end] = ACTIONS(4531),
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_module_statement_token1] = ACTIONS(4529),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_function_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4529),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1101] = {
-    [ts_builtin_sym_end] = ACTIONS(4439),
-    [aux_sym_preproc_include_token1] = ACTIONS(4437),
-    [aux_sym_preproc_def_token1] = ACTIONS(4437),
-    [aux_sym_preproc_if_token1] = ACTIONS(4437),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
-    [sym_preproc_directive] = ACTIONS(4437),
-    [anon_sym_LPAREN2] = ACTIONS(4437),
-    [anon_sym_PLUS] = ACTIONS(4439),
-    [anon_sym_DASH] = ACTIONS(4439),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4437),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4437),
-    [aux_sym_module_statement_token1] = ACTIONS(4437),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4437),
-    [aux_sym_interface_statement_token1] = ACTIONS(4437),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4437),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
-    [aux_sym_function_statement_token1] = ACTIONS(4437),
-    [aux_sym_language_binding_token1] = ACTIONS(4437),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
-    [aux_sym_contains_statement_token1] = ACTIONS(4437),
-    [aux_sym_use_statement_token1] = ACTIONS(4437),
-    [aux_sym_use_statement_token2] = ACTIONS(4437),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
-    [aux_sym_save_statement_token1] = ACTIONS(4437),
-    [aux_sym_private_statement_token1] = ACTIONS(4437),
-    [aux_sym_public_statement_token1] = ACTIONS(4437),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
-    [aux_sym_common_statement_token1] = ACTIONS(4437),
-    [aux_sym_import_statement_token1] = ACTIONS(4437),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
-    [aux_sym_derived_type_token1] = ACTIONS(4437),
-    [aux_sym_declared_type_token1] = ACTIONS(4437),
-    [aux_sym_declared_type_token2] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4437),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4437),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4437),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4437),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4437),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
-    [anon_sym_SEMI] = ACTIONS(4439),
-    [aux_sym_stop_statement_token1] = ACTIONS(4437),
-    [aux_sym_stop_statement_token2] = ACTIONS(4437),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
-    [aux_sym_include_statement_token1] = ACTIONS(4437),
-    [aux_sym_data_statement_token1] = ACTIONS(4437),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
-    [aux_sym_block_construct_token1] = ACTIONS(4437),
-    [aux_sym_associate_statement_token1] = ACTIONS(4437),
-    [aux_sym_format_statement_token1] = ACTIONS(4437),
-    [aux_sym_print_statement_token1] = ACTIONS(4437),
-    [aux_sym_open_statement_token1] = ACTIONS(4437),
-    [aux_sym_close_statement_token1] = ACTIONS(4437),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
-    [aux_sym_enum_statement_token1] = ACTIONS(4437),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
-    [aux_sym_entry_statement_token1] = ACTIONS(4437),
-    [aux_sym_logical_expression_token5] = ACTIONS(4439),
-    [anon_sym_DOT] = ACTIONS(4437),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
-    [anon_sym_LBRACK] = ACTIONS(4439),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
-    [aux_sym_null_literal_token1] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
-    [aux_sym_identifier_token1] = ACTIONS(4437),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4439),
-    [sym__float_literal] = ACTIONS(4439),
-    [sym__boz_literal] = ACTIONS(4439),
-    [sym__string_literal] = ACTIONS(4439),
-    [sym__string_literal_kind] = ACTIONS(4439),
-  },
-  [1102] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4533),
-    [aux_sym_preproc_def_token1] = ACTIONS(4533),
-    [aux_sym_preproc_if_token1] = ACTIONS(4533),
-    [aux_sym_preproc_if_token2] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4533),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4533),
-    [sym_preproc_directive] = ACTIONS(4533),
-    [anon_sym_LPAREN2] = ACTIONS(4533),
-    [anon_sym_PLUS] = ACTIONS(4535),
-    [anon_sym_DASH] = ACTIONS(4535),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4533),
-    [aux_sym_module_statement_token1] = ACTIONS(4533),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4533),
-    [aux_sym_interface_statement_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4533),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4533),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4533),
-    [aux_sym_function_statement_token1] = ACTIONS(4533),
-    [aux_sym_language_binding_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4533),
-    [aux_sym_contains_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token1] = ACTIONS(4533),
-    [aux_sym_use_statement_token2] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4533),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4533),
-    [aux_sym_save_statement_token1] = ACTIONS(4533),
-    [aux_sym_private_statement_token1] = ACTIONS(4533),
-    [aux_sym_public_statement_token1] = ACTIONS(4533),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4533),
-    [aux_sym_common_statement_token1] = ACTIONS(4533),
-    [aux_sym_import_statement_token1] = ACTIONS(4533),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4533),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4533),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4533),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4533),
-    [aux_sym_derived_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token1] = ACTIONS(4533),
-    [aux_sym_declared_type_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4533),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4533),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4533),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4533),
-    [anon_sym_SEMI] = ACTIONS(4535),
-    [aux_sym_stop_statement_token1] = ACTIONS(4533),
-    [aux_sym_stop_statement_token2] = ACTIONS(4533),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4533),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4533),
-    [aux_sym_include_statement_token1] = ACTIONS(4533),
-    [aux_sym_data_statement_token1] = ACTIONS(4533),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4533),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4533),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4533),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4533),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4533),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4533),
-    [aux_sym_block_construct_token1] = ACTIONS(4533),
-    [aux_sym_associate_statement_token1] = ACTIONS(4533),
-    [aux_sym_format_statement_token1] = ACTIONS(4533),
-    [aux_sym_print_statement_token1] = ACTIONS(4533),
-    [aux_sym_open_statement_token1] = ACTIONS(4533),
-    [aux_sym_close_statement_token1] = ACTIONS(4533),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4533),
-    [aux_sym_enum_statement_token1] = ACTIONS(4533),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4533),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4533),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4533),
-    [aux_sym_entry_statement_token1] = ACTIONS(4533),
-    [aux_sym_logical_expression_token5] = ACTIONS(4535),
-    [anon_sym_DOT] = ACTIONS(4533),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4535),
-    [anon_sym_LBRACK] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4535),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4535),
-    [aux_sym_null_literal_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4533),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4533),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4533),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4533),
-    [aux_sym_identifier_token1] = ACTIONS(4533),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4535),
-    [sym__float_literal] = ACTIONS(4535),
-    [sym__boz_literal] = ACTIONS(4535),
-    [sym__string_literal] = ACTIONS(4535),
-    [sym__string_literal_kind] = ACTIONS(4535),
-  },
-  [1103] = {
-    [ts_builtin_sym_end] = ACTIONS(4407),
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_module_statement_token1] = ACTIONS(4405),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_function_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4405),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [1104] = {
-    [ts_builtin_sym_end] = ACTIONS(4411),
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_module_statement_token1] = ACTIONS(4409),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_function_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4409),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1105] = {
-    [ts_builtin_sym_end] = ACTIONS(4551),
-    [aux_sym_preproc_include_token1] = ACTIONS(4549),
-    [aux_sym_preproc_def_token1] = ACTIONS(4549),
-    [aux_sym_preproc_if_token1] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4549),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4549),
-    [sym_preproc_directive] = ACTIONS(4549),
-    [anon_sym_LPAREN2] = ACTIONS(4549),
-    [anon_sym_PLUS] = ACTIONS(4551),
-    [anon_sym_DASH] = ACTIONS(4551),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4549),
-    [aux_sym_module_statement_token1] = ACTIONS(4549),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4549),
-    [aux_sym_interface_statement_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4549),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4549),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4549),
-    [aux_sym_function_statement_token1] = ACTIONS(4549),
-    [aux_sym_language_binding_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4549),
-    [aux_sym_contains_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token1] = ACTIONS(4549),
-    [aux_sym_use_statement_token2] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4549),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4549),
-    [aux_sym_save_statement_token1] = ACTIONS(4549),
-    [aux_sym_private_statement_token1] = ACTIONS(4549),
-    [aux_sym_public_statement_token1] = ACTIONS(4549),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4549),
-    [aux_sym_common_statement_token1] = ACTIONS(4549),
-    [aux_sym_import_statement_token1] = ACTIONS(4549),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4549),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4549),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4549),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4549),
-    [aux_sym_derived_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token1] = ACTIONS(4549),
-    [aux_sym_declared_type_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4549),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4549),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4549),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4549),
-    [anon_sym_SEMI] = ACTIONS(4551),
-    [aux_sym_stop_statement_token1] = ACTIONS(4549),
-    [aux_sym_stop_statement_token2] = ACTIONS(4549),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4549),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4549),
-    [aux_sym_include_statement_token1] = ACTIONS(4549),
-    [aux_sym_data_statement_token1] = ACTIONS(4549),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4549),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4549),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4549),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4549),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4549),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4549),
-    [aux_sym_block_construct_token1] = ACTIONS(4549),
-    [aux_sym_associate_statement_token1] = ACTIONS(4549),
-    [aux_sym_format_statement_token1] = ACTIONS(4549),
-    [aux_sym_print_statement_token1] = ACTIONS(4549),
-    [aux_sym_open_statement_token1] = ACTIONS(4549),
-    [aux_sym_close_statement_token1] = ACTIONS(4549),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4549),
-    [aux_sym_enum_statement_token1] = ACTIONS(4549),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4549),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4549),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4549),
-    [aux_sym_entry_statement_token1] = ACTIONS(4549),
-    [aux_sym_logical_expression_token5] = ACTIONS(4551),
-    [anon_sym_DOT] = ACTIONS(4549),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4551),
-    [anon_sym_LBRACK] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4551),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4551),
-    [aux_sym_null_literal_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4549),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4549),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4549),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4549),
-    [aux_sym_identifier_token1] = ACTIONS(4549),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4551),
-    [sym__float_literal] = ACTIONS(4551),
-    [sym__boz_literal] = ACTIONS(4551),
-    [sym__string_literal] = ACTIONS(4551),
-    [sym__string_literal_kind] = ACTIONS(4551),
-  },
-  [1106] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4373),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_module_statement_token1] = ACTIONS(4373),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4373),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4373),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_function_statement_token1] = ACTIONS(4373),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4373),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4373),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1107] = {
-    [ts_builtin_sym_end] = ACTIONS(4639),
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_module_statement_token1] = ACTIONS(4637),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_function_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4637),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [1108] = {
-    [ts_builtin_sym_end] = ACTIONS(4547),
-    [aux_sym_preproc_include_token1] = ACTIONS(4545),
-    [aux_sym_preproc_def_token1] = ACTIONS(4545),
-    [aux_sym_preproc_if_token1] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4545),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4545),
-    [sym_preproc_directive] = ACTIONS(4545),
-    [anon_sym_LPAREN2] = ACTIONS(4545),
-    [anon_sym_PLUS] = ACTIONS(4547),
-    [anon_sym_DASH] = ACTIONS(4547),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4545),
-    [aux_sym_module_statement_token1] = ACTIONS(4545),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4545),
-    [aux_sym_interface_statement_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4545),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4545),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4545),
-    [aux_sym_function_statement_token1] = ACTIONS(4545),
-    [aux_sym_language_binding_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4545),
-    [aux_sym_contains_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token1] = ACTIONS(4545),
-    [aux_sym_use_statement_token2] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4545),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4545),
-    [aux_sym_save_statement_token1] = ACTIONS(4545),
-    [aux_sym_private_statement_token1] = ACTIONS(4545),
-    [aux_sym_public_statement_token1] = ACTIONS(4545),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4545),
-    [aux_sym_common_statement_token1] = ACTIONS(4545),
-    [aux_sym_import_statement_token1] = ACTIONS(4545),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4545),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4545),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4545),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4545),
-    [aux_sym_derived_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token1] = ACTIONS(4545),
-    [aux_sym_declared_type_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4545),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4545),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4545),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4545),
-    [anon_sym_SEMI] = ACTIONS(4547),
-    [aux_sym_stop_statement_token1] = ACTIONS(4545),
-    [aux_sym_stop_statement_token2] = ACTIONS(4545),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4545),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4545),
-    [aux_sym_include_statement_token1] = ACTIONS(4545),
-    [aux_sym_data_statement_token1] = ACTIONS(4545),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4545),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4545),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4545),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4545),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4545),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4545),
-    [aux_sym_block_construct_token1] = ACTIONS(4545),
-    [aux_sym_associate_statement_token1] = ACTIONS(4545),
-    [aux_sym_format_statement_token1] = ACTIONS(4545),
-    [aux_sym_print_statement_token1] = ACTIONS(4545),
-    [aux_sym_open_statement_token1] = ACTIONS(4545),
-    [aux_sym_close_statement_token1] = ACTIONS(4545),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4545),
-    [aux_sym_enum_statement_token1] = ACTIONS(4545),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4545),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4545),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4545),
-    [aux_sym_entry_statement_token1] = ACTIONS(4545),
-    [aux_sym_logical_expression_token5] = ACTIONS(4547),
-    [anon_sym_DOT] = ACTIONS(4545),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4547),
-    [anon_sym_LBRACK] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4547),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4547),
-    [aux_sym_null_literal_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4545),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4545),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4545),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4545),
-    [aux_sym_identifier_token1] = ACTIONS(4545),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4547),
-    [sym__float_literal] = ACTIONS(4547),
-    [sym__boz_literal] = ACTIONS(4547),
-    [sym__string_literal] = ACTIONS(4547),
-    [sym__string_literal_kind] = ACTIONS(4547),
-  },
-  [1109] = {
-    [ts_builtin_sym_end] = ACTIONS(4365),
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_program_statement_token1] = ACTIONS(4361),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_module_statement_token1] = ACTIONS(4361),
-    [aux_sym_submodule_statement_token1] = ACTIONS(4361),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4361),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_function_statement_token1] = ACTIONS(4361),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4361),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4361),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1110] = {
-    [sym_preproc_include] = STATE(990),
-    [sym_preproc_def] = STATE(990),
-    [sym_preproc_function_def] = STATE(990),
-    [sym_preproc_call] = STATE(990),
-    [sym_preproc_if_in_module] = STATE(990),
-    [sym_preproc_ifdef_in_module] = STATE(990),
-    [sym_end_submodule_statement] = STATE(989),
-    [sym_interface] = STATE(990),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(7269),
-    [sym_contains_statement] = STATE(7223),
-    [sym__specification_part] = STATE(990),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(990),
-    [sym_public_statement] = STATE(990),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(990),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(990),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(990),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(990),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4799),
-    [aux_sym_preproc_def_token1] = ACTIONS(4801),
-    [aux_sym_preproc_if_token1] = ACTIONS(4803),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
-    [sym_preproc_directive] = ACTIONS(4807),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4821),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4823),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(4813),
-    [aux_sym_public_statement_token1] = ACTIONS(4815),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1111] = {
-    [sym_preproc_include] = STATE(1111),
-    [sym_preproc_def] = STATE(1111),
-    [sym_preproc_function_def] = STATE(1111),
-    [sym_preproc_call] = STATE(1111),
-    [sym_preproc_if_in_module] = STATE(1111),
-    [sym_preproc_ifdef_in_module] = STATE(1111),
-    [sym_interface] = STATE(1111),
-    [sym_interface_statement] = STATE(3853),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(1111),
-    [sym_use_statement] = STATE(6804),
-    [sym_implicit_statement] = STATE(6804),
-    [sym_save_statement] = STATE(6804),
-    [sym_private_statement] = STATE(1111),
-    [sym_public_statement] = STATE(1111),
-    [sym_namelist_statement] = STATE(6804),
-    [sym_common_statement] = STATE(6804),
-    [sym_import_statement] = STATE(6804),
-    [sym_derived_type_definition] = STATE(1111),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4307),
-    [sym_variable_declaration] = STATE(6804),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6804),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6804),
-    [sym_equivalence_statement] = STATE(6804),
-    [sym_statement_label] = STATE(7242),
-    [sym_include_statement] = STATE(6804),
-    [sym_data_statement] = STATE(6804),
-    [sym_enum] = STATE(1111),
-    [sym_enum_statement] = STATE(6042),
-    [sym_enumeration_type] = STATE(1111),
-    [sym_enumeration_type_statement] = STATE(6103),
-    [sym_statement_function] = STATE(6804),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1111),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4833),
-    [aux_sym_preproc_def_token1] = ACTIONS(4836),
-    [aux_sym_preproc_if_token1] = ACTIONS(4839),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4842),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4842),
-    [sym_preproc_directive] = ACTIONS(4845),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4848),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4851),
-    [aux_sym_interface_statement_token1] = ACTIONS(4853),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4856),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4856),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4859),
-    [aux_sym_language_binding_token1] = ACTIONS(4862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4865),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4868),
-    [aux_sym_contains_statement_token1] = ACTIONS(4851),
-    [aux_sym_use_statement_token1] = ACTIONS(4871),
-    [aux_sym_use_statement_token2] = ACTIONS(4868),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4874),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4877),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4868),
-    [aux_sym_save_statement_token1] = ACTIONS(4880),
-    [aux_sym_private_statement_token1] = ACTIONS(4883),
-    [aux_sym_public_statement_token1] = ACTIONS(4886),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4889),
-    [aux_sym_common_statement_token1] = ACTIONS(4892),
-    [aux_sym_import_statement_token1] = ACTIONS(4895),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4868),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4898),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4901),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4901),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4868),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4904),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4904),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4910),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4913),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4907),
-    [aux_sym_derived_type_token1] = ACTIONS(4916),
-    [aux_sym_declared_type_token1] = ACTIONS(4919),
-    [aux_sym_declared_type_token2] = ACTIONS(4919),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4922),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4925),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4928),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4931),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4901),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4934),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4901),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4856),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4856),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4937),
-    [aux_sym_stop_statement_token1] = ACTIONS(4856),
-    [aux_sym_stop_statement_token2] = ACTIONS(4856),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4856),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4856),
-    [aux_sym_include_statement_token1] = ACTIONS(4940),
-    [aux_sym_data_statement_token1] = ACTIONS(4943),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4856),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4856),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4856),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4946),
-    [aux_sym_block_construct_token1] = ACTIONS(4856),
-    [aux_sym_format_statement_token1] = ACTIONS(4856),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4856),
-    [aux_sym_enum_statement_token1] = ACTIONS(4949),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4952),
-    [aux_sym_entry_statement_token1] = ACTIONS(4856),
-    [aux_sym_null_literal_token1] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4856),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4856),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4856),
-    [aux_sym_identifier_token1] = ACTIONS(4856),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4955),
-  },
-  [1112] = {
-    [sym_preproc_include] = STATE(1112),
-    [sym_preproc_def] = STATE(1112),
-    [sym_preproc_function_def] = STATE(1112),
-    [sym_preproc_call] = STATE(1112),
-    [sym_preproc_if_in_module] = STATE(1112),
-    [sym_preproc_ifdef_in_module] = STATE(1112),
-    [sym_interface] = STATE(1112),
-    [sym_interface_statement] = STATE(3908),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(1112),
-    [sym_use_statement] = STATE(7224),
-    [sym_implicit_statement] = STATE(7224),
-    [sym_save_statement] = STATE(7224),
-    [sym_private_statement] = STATE(1112),
-    [sym_public_statement] = STATE(1112),
-    [sym_namelist_statement] = STATE(7224),
-    [sym_common_statement] = STATE(7224),
-    [sym_import_statement] = STATE(7224),
-    [sym_derived_type_definition] = STATE(1112),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4320),
-    [sym_variable_declaration] = STATE(7224),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(7224),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(7224),
-    [sym_equivalence_statement] = STATE(7224),
-    [sym_statement_label] = STATE(7130),
-    [sym_include_statement] = STATE(7224),
-    [sym_data_statement] = STATE(7224),
-    [sym_enum] = STATE(1112),
-    [sym_enum_statement] = STATE(6066),
-    [sym_enumeration_type] = STATE(1112),
-    [sym_enumeration_type_statement] = STATE(6134),
-    [sym_statement_function] = STATE(7224),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_module_repeat1] = STATE(1112),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4958),
-    [aux_sym_preproc_def_token1] = ACTIONS(4961),
-    [aux_sym_preproc_if_token1] = ACTIONS(4964),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4967),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4967),
-    [sym_preproc_directive] = ACTIONS(4970),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4848),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4851),
-    [aux_sym_interface_statement_token1] = ACTIONS(4853),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4856),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4856),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4859),
-    [aux_sym_language_binding_token1] = ACTIONS(4862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4865),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4868),
-    [aux_sym_contains_statement_token1] = ACTIONS(4851),
-    [aux_sym_use_statement_token1] = ACTIONS(4871),
-    [aux_sym_use_statement_token2] = ACTIONS(4868),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4874),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4877),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4868),
-    [aux_sym_save_statement_token1] = ACTIONS(4880),
-    [aux_sym_private_statement_token1] = ACTIONS(4973),
-    [aux_sym_public_statement_token1] = ACTIONS(4976),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4889),
-    [aux_sym_common_statement_token1] = ACTIONS(4892),
-    [aux_sym_import_statement_token1] = ACTIONS(4895),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4868),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4898),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4901),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4868),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4901),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4868),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4904),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4904),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4910),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4913),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4907),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4907),
-    [aux_sym_derived_type_token1] = ACTIONS(4916),
-    [aux_sym_declared_type_token1] = ACTIONS(4919),
-    [aux_sym_declared_type_token2] = ACTIONS(4919),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4922),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4925),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4928),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4931),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4901),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4934),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4868),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4901),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4856),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4856),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4937),
-    [aux_sym_stop_statement_token1] = ACTIONS(4856),
-    [aux_sym_stop_statement_token2] = ACTIONS(4856),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4856),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4856),
-    [aux_sym_include_statement_token1] = ACTIONS(4940),
-    [aux_sym_data_statement_token1] = ACTIONS(4943),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4856),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4856),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4856),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4946),
-    [aux_sym_block_construct_token1] = ACTIONS(4856),
-    [aux_sym_format_statement_token1] = ACTIONS(4856),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4856),
-    [aux_sym_enum_statement_token1] = ACTIONS(4949),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4952),
-    [aux_sym_entry_statement_token1] = ACTIONS(4856),
-    [aux_sym_null_literal_token1] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4856),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4856),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4856),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4856),
-    [aux_sym_identifier_token1] = ACTIONS(4856),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4955),
-  },
-  [1113] = {
-    [sym_preproc_include] = STATE(1113),
-    [sym_preproc_def] = STATE(1113),
-    [sym_preproc_function_def] = STATE(1113),
-    [sym_preproc_call] = STATE(1113),
-    [sym_interface] = STATE(1113),
-    [sym_interface_statement] = STATE(3859),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(1113),
-    [sym_use_statement] = STATE(6887),
-    [sym_implicit_statement] = STATE(6887),
-    [sym_save_statement] = STATE(6887),
-    [sym_private_statement] = STATE(1113),
-    [sym_public_statement] = STATE(1113),
-    [sym_namelist_statement] = STATE(6887),
-    [sym_common_statement] = STATE(6887),
-    [sym_import_statement] = STATE(6887),
-    [sym_derived_type_definition] = STATE(1113),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4297),
-    [sym_variable_declaration] = STATE(6887),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6887),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6887),
-    [sym_equivalence_statement] = STATE(6887),
-    [sym_statement_label] = STATE(7176),
-    [sym_include_statement] = STATE(6887),
-    [sym_data_statement] = STATE(6887),
-    [sym_enum] = STATE(1113),
-    [sym_enum_statement] = STATE(6050),
-    [sym_enumeration_type] = STATE(1113),
-    [sym_enumeration_type_statement] = STATE(6217),
-    [sym_statement_function] = STATE(6887),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(4979),
-    [aux_sym_preproc_def_token1] = ACTIONS(4982),
-    [aux_sym_preproc_if_token2] = ACTIONS(3025),
-    [aux_sym_preproc_else_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elif_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(3025),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(3025),
-    [sym_preproc_directive] = ACTIONS(4985),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3032),
-    [aux_sym_interface_statement_token1] = ACTIONS(3035),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3041),
-    [aux_sym_language_binding_token1] = ACTIONS(3044),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3047),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3050),
-    [aux_sym_contains_statement_token1] = ACTIONS(3025),
-    [aux_sym_use_statement_token1] = ACTIONS(3053),
-    [aux_sym_use_statement_token2] = ACTIONS(3050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3056),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3059),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3050),
-    [aux_sym_save_statement_token1] = ACTIONS(3062),
-    [aux_sym_private_statement_token1] = ACTIONS(4988),
-    [aux_sym_public_statement_token1] = ACTIONS(4991),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3071),
-    [aux_sym_common_statement_token1] = ACTIONS(3074),
-    [aux_sym_import_statement_token1] = ACTIONS(3077),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3080),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3092),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3095),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3089),
-    [aux_sym_derived_type_token1] = ACTIONS(3098),
-    [aux_sym_declared_type_token1] = ACTIONS(3101),
-    [aux_sym_declared_type_token2] = ACTIONS(3101),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3107),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3110),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3113),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3083),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3083),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3119),
-    [aux_sym_stop_statement_token1] = ACTIONS(3038),
-    [aux_sym_stop_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3038),
-    [aux_sym_include_statement_token1] = ACTIONS(3122),
-    [aux_sym_data_statement_token1] = ACTIONS(3125),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3128),
-    [aux_sym_block_construct_token1] = ACTIONS(3038),
-    [aux_sym_format_statement_token1] = ACTIONS(3038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3038),
-    [aux_sym_enum_statement_token1] = ACTIONS(3131),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3134),
-    [aux_sym_entry_statement_token1] = ACTIONS(3038),
-    [aux_sym_null_literal_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3038),
-    [aux_sym_identifier_token1] = ACTIONS(3038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3137),
-  },
-  [1114] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(4994),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1115] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(4996),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1116] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(4998),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1117] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5004),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1118] = {
-    [sym_preproc_include] = STATE(1124),
-    [sym_preproc_def] = STATE(1124),
-    [sym_preproc_function_def] = STATE(1124),
-    [sym_preproc_call] = STATE(1124),
-    [sym_interface] = STATE(1124),
-    [sym_interface_statement] = STATE(3925),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8574),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(1124),
-    [sym_use_statement] = STATE(6978),
-    [sym_implicit_statement] = STATE(6978),
-    [sym_save_statement] = STATE(6978),
-    [sym_private_statement] = STATE(1124),
-    [sym_public_statement] = STATE(1124),
-    [sym_namelist_statement] = STATE(6978),
-    [sym_common_statement] = STATE(6978),
-    [sym_import_statement] = STATE(6978),
-    [sym_derived_type_definition] = STATE(1124),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4310),
-    [sym_variable_declaration] = STATE(6978),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6978),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6978),
-    [sym_equivalence_statement] = STATE(6978),
-    [sym_statement_label] = STATE(7213),
-    [sym_include_statement] = STATE(6978),
-    [sym_data_statement] = STATE(6978),
-    [sym_enum] = STATE(1124),
-    [sym_enum_statement] = STATE(6078),
-    [sym_enumeration_type] = STATE(1124),
-    [sym_enumeration_type_statement] = STATE(6228),
-    [sym_statement_function] = STATE(6978),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1124),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(5008),
-    [aux_sym_preproc_def_token1] = ACTIONS(5010),
-    [aux_sym_preproc_if_token2] = ACTIONS(5012),
-    [sym_preproc_directive] = ACTIONS(5014),
-    [sym_preproc_comment] = ACTIONS(5016),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(5018),
-    [aux_sym_public_statement_token1] = ACTIONS(5020),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1119] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5022),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1120] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5028),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1121] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1122] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [aux_sym_preproc_else_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1123] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1124] = {
-    [sym_preproc_include] = STATE(1191),
-    [sym_preproc_def] = STATE(1191),
-    [sym_preproc_function_def] = STATE(1191),
-    [sym_preproc_call] = STATE(1191),
-    [sym_interface] = STATE(1191),
-    [sym_interface_statement] = STATE(3925),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8191),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(1191),
-    [sym_use_statement] = STATE(6978),
-    [sym_implicit_statement] = STATE(6978),
-    [sym_save_statement] = STATE(6978),
-    [sym_private_statement] = STATE(1191),
-    [sym_public_statement] = STATE(1191),
-    [sym_namelist_statement] = STATE(6978),
-    [sym_common_statement] = STATE(6978),
-    [sym_import_statement] = STATE(6978),
-    [sym_derived_type_definition] = STATE(1191),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4310),
-    [sym_variable_declaration] = STATE(6978),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6978),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6978),
-    [sym_equivalence_statement] = STATE(6978),
-    [sym_statement_label] = STATE(7213),
-    [sym_include_statement] = STATE(6978),
-    [sym_data_statement] = STATE(6978),
-    [sym_enum] = STATE(1191),
-    [sym_enum_statement] = STATE(6078),
-    [sym_enumeration_type] = STATE(1191),
-    [sym_enumeration_type_statement] = STATE(6228),
-    [sym_statement_function] = STATE(6978),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(5008),
-    [aux_sym_preproc_def_token1] = ACTIONS(5010),
-    [aux_sym_preproc_if_token2] = ACTIONS(5036),
-    [sym_preproc_directive] = ACTIONS(5014),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(5018),
-    [aux_sym_public_statement_token1] = ACTIONS(5020),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1125] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [aux_sym_preproc_else_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1126] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [aux_sym_preproc_else_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
-  },
-  [1127] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [aux_sym_preproc_else_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
-  },
-  [1128] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [aux_sym_preproc_else_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1129] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1130] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1131] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token2] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [aux_sym_preproc_else_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_LPAREN2] = ACTIONS(4289),
-    [sym_preproc_comment] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [anon_sym_SEMI] = ACTIONS(4291),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4289),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4289),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_associate_statement_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_print_statement_token1] = ACTIONS(4289),
-    [aux_sym_open_statement_token1] = ACTIONS(4289),
-    [aux_sym_close_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4289),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_logical_expression_token5] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4291),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
-    [sym__float_literal] = ACTIONS(4291),
-    [sym__boz_literal] = ACTIONS(4291),
-    [sym__string_literal] = ACTIONS(4291),
-    [sym__string_literal_kind] = ACTIONS(4291),
-  },
-  [1132] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [aux_sym_preproc_else_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1133] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [aux_sym_preproc_else_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
-  },
-  [1134] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token2] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
-    [aux_sym_preproc_else_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
-    [anon_sym_LPAREN2] = ACTIONS(4293),
-    [sym_preproc_comment] = ACTIONS(4295),
-    [anon_sym_PLUS] = ACTIONS(4295),
-    [anon_sym_DASH] = ACTIONS(4295),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_interface_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
-    [aux_sym_language_binding_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
-    [aux_sym_common_statement_token1] = ACTIONS(4293),
-    [aux_sym_import_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
-    [aux_sym_derived_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [anon_sym_SEMI] = ACTIONS(4295),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4293),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4293),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_associate_statement_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_print_statement_token1] = ACTIONS(4293),
-    [aux_sym_open_statement_token1] = ACTIONS(4293),
-    [aux_sym_close_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_enum_statement_token1] = ACTIONS(4293),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4293),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_logical_expression_token5] = ACTIONS(4295),
-    [anon_sym_DOT] = ACTIONS(4293),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4295),
-    [anon_sym_LBRACK] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4295),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
-    [sym__float_literal] = ACTIONS(4295),
-    [sym__boz_literal] = ACTIONS(4295),
-    [sym__string_literal] = ACTIONS(4295),
-    [sym__string_literal_kind] = ACTIONS(4295),
-  },
-  [1135] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [aux_sym_preproc_else_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
-  },
-  [1136] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
-  },
-  [1137] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token2] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [aux_sym_preproc_else_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_LPAREN2] = ACTIONS(4297),
-    [sym_preproc_comment] = ACTIONS(4299),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [anon_sym_SEMI] = ACTIONS(4299),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4297),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4297),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_associate_statement_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_print_statement_token1] = ACTIONS(4297),
-    [aux_sym_open_statement_token1] = ACTIONS(4297),
-    [aux_sym_close_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4297),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_logical_expression_token5] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4299),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4299),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
-    [sym__float_literal] = ACTIONS(4299),
-    [sym__boz_literal] = ACTIONS(4299),
-    [sym__string_literal] = ACTIONS(4299),
-    [sym__string_literal_kind] = ACTIONS(4299),
-  },
-  [1138] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [aux_sym_preproc_else_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1139] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5072),
-    [aux_sym_preproc_def_token1] = ACTIONS(5072),
-    [aux_sym_preproc_if_token1] = ACTIONS(5072),
-    [aux_sym_preproc_if_token2] = ACTIONS(5075),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5072),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5072),
-    [aux_sym_preproc_else_token1] = ACTIONS(5075),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5075),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5075),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5075),
-    [sym_preproc_directive] = ACTIONS(5072),
-    [anon_sym_LPAREN2] = ACTIONS(5072),
-    [anon_sym_PLUS] = ACTIONS(5077),
-    [anon_sym_DASH] = ACTIONS(5077),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5072),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5080),
-    [aux_sym_interface_statement_token1] = ACTIONS(5072),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5072),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5072),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5072),
-    [aux_sym_language_binding_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5072),
-    [aux_sym_contains_statement_token1] = ACTIONS(5072),
-    [aux_sym_use_statement_token1] = ACTIONS(5072),
-    [aux_sym_use_statement_token2] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5072),
-    [aux_sym_save_statement_token1] = ACTIONS(5072),
-    [aux_sym_private_statement_token1] = ACTIONS(5072),
-    [aux_sym_public_statement_token1] = ACTIONS(5072),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5072),
-    [aux_sym_common_statement_token1] = ACTIONS(5072),
-    [aux_sym_import_statement_token1] = ACTIONS(5072),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5072),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5072),
-    [aux_sym_derived_type_token1] = ACTIONS(5072),
-    [aux_sym_declared_type_token1] = ACTIONS(5072),
-    [aux_sym_declared_type_token2] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5072),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5072),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5072),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5072),
-    [anon_sym_SEMI] = ACTIONS(5077),
-    [aux_sym_stop_statement_token1] = ACTIONS(5072),
-    [aux_sym_stop_statement_token2] = ACTIONS(5072),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5072),
-    [aux_sym_include_statement_token1] = ACTIONS(5072),
-    [aux_sym_data_statement_token1] = ACTIONS(5072),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5072),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5072),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5072),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5072),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5072),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5072),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5072),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5072),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5072),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5072),
-    [aux_sym_block_construct_token1] = ACTIONS(5072),
-    [aux_sym_associate_statement_token1] = ACTIONS(5072),
-    [aux_sym_format_statement_token1] = ACTIONS(5072),
-    [aux_sym_print_statement_token1] = ACTIONS(5072),
-    [aux_sym_open_statement_token1] = ACTIONS(5072),
-    [aux_sym_close_statement_token1] = ACTIONS(5072),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5072),
-    [aux_sym_enum_statement_token1] = ACTIONS(5072),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5072),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5072),
-    [aux_sym_entry_statement_token1] = ACTIONS(5072),
-    [aux_sym_logical_expression_token5] = ACTIONS(5077),
-    [anon_sym_DOT] = ACTIONS(5072),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5077),
-    [anon_sym_LBRACK] = ACTIONS(5077),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5077),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5077),
-    [aux_sym_null_literal_token1] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5072),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5072),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5072),
-    [aux_sym_identifier_token1] = ACTIONS(5072),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5077),
-    [sym__float_literal] = ACTIONS(5077),
-    [sym__boz_literal] = ACTIONS(5077),
-    [sym__string_literal] = ACTIONS(5077),
-    [sym__string_literal_kind] = ACTIONS(5077),
-  },
-  [1140] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [aux_sym_preproc_else_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1141] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [aux_sym_preproc_else_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
-  },
-  [1142] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [aux_sym_preproc_else_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
-  },
-  [1143] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [aux_sym_preproc_else_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
-  },
-  [1144] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [aux_sym_preproc_else_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1145] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [aux_sym_preproc_else_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
-  },
-  [1146] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [aux_sym_preproc_else_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
-  },
-  [1147] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [aux_sym_preproc_else_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
-  },
-  [1148] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [aux_sym_preproc_else_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
-  },
-  [1149] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [aux_sym_preproc_else_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
-  },
-  [1150] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token2] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [aux_sym_preproc_else_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
-  },
-  [1151] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [aux_sym_preproc_else_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
-  },
-  [1152] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token2] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [aux_sym_preproc_else_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1153] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
-  },
-  [1154] = {
-    [sym_preproc_include] = STATE(1191),
-    [sym_preproc_def] = STATE(1191),
-    [sym_preproc_function_def] = STATE(1191),
-    [sym_preproc_call] = STATE(1191),
-    [sym_interface] = STATE(1191),
-    [sym_interface_statement] = STATE(3925),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8084),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(1191),
-    [sym_use_statement] = STATE(6978),
-    [sym_implicit_statement] = STATE(6978),
-    [sym_save_statement] = STATE(6978),
-    [sym_private_statement] = STATE(1191),
-    [sym_public_statement] = STATE(1191),
-    [sym_namelist_statement] = STATE(6978),
-    [sym_common_statement] = STATE(6978),
-    [sym_import_statement] = STATE(6978),
-    [sym_derived_type_definition] = STATE(1191),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4310),
-    [sym_variable_declaration] = STATE(6978),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6978),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6978),
-    [sym_equivalence_statement] = STATE(6978),
-    [sym_statement_label] = STATE(7213),
-    [sym_include_statement] = STATE(6978),
-    [sym_data_statement] = STATE(6978),
-    [sym_enum] = STATE(1191),
-    [sym_enum_statement] = STATE(6078),
-    [sym_enumeration_type] = STATE(1191),
-    [sym_enumeration_type_statement] = STATE(6228),
-    [sym_statement_function] = STATE(6978),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(5008),
-    [aux_sym_preproc_def_token1] = ACTIONS(5010),
-    [aux_sym_preproc_if_token2] = ACTIONS(5136),
-    [sym_preproc_directive] = ACTIONS(5014),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(5018),
-    [aux_sym_public_statement_token1] = ACTIONS(5020),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1155] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [aux_sym_preproc_else_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
-  },
-  [1156] = {
-    [sym_preproc_include] = STATE(1154),
-    [sym_preproc_def] = STATE(1154),
-    [sym_preproc_function_def] = STATE(1154),
-    [sym_preproc_call] = STATE(1154),
-    [sym_interface] = STATE(1154),
-    [sym_interface_statement] = STATE(3925),
-    [sym_language_binding] = STATE(3231),
-    [sym_internal_procedures] = STATE(8191),
-    [sym_contains_statement] = STATE(7153),
-    [sym__specification_part] = STATE(1154),
-    [sym_use_statement] = STATE(6978),
-    [sym_implicit_statement] = STATE(6978),
-    [sym_save_statement] = STATE(6978),
-    [sym_private_statement] = STATE(1154),
-    [sym_public_statement] = STATE(1154),
-    [sym_namelist_statement] = STATE(6978),
-    [sym_common_statement] = STATE(6978),
-    [sym_import_statement] = STATE(6978),
-    [sym_derived_type_definition] = STATE(1154),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4310),
-    [sym_variable_declaration] = STATE(6978),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6978),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6978),
-    [sym_equivalence_statement] = STATE(6978),
-    [sym_statement_label] = STATE(7213),
-    [sym_include_statement] = STATE(6978),
-    [sym_data_statement] = STATE(6978),
-    [sym_enum] = STATE(1154),
-    [sym_enum_statement] = STATE(6078),
-    [sym_enumeration_type] = STATE(1154),
-    [sym_enumeration_type_statement] = STATE(6228),
-    [sym_statement_function] = STATE(6978),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1154),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(5008),
-    [aux_sym_preproc_def_token1] = ACTIONS(5010),
-    [aux_sym_preproc_if_token2] = ACTIONS(5036),
-    [sym_preproc_directive] = ACTIONS(5014),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_interface_statement_token1] = ACTIONS(33),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
-    [aux_sym_contains_statement_token1] = ACTIONS(51),
-    [aux_sym_use_statement_token1] = ACTIONS(53),
-    [aux_sym_use_statement_token2] = ACTIONS(49),
-    [aux_sym_implicit_statement_token1] = ACTIONS(55),
-    [aux_sym_implicit_statement_token3] = ACTIONS(770),
-    [aux_sym_implicit_statement_token4] = ACTIONS(49),
-    [aux_sym_save_statement_token1] = ACTIONS(59),
-    [aux_sym_private_statement_token1] = ACTIONS(5018),
-    [aux_sym_public_statement_token1] = ACTIONS(5020),
-    [aux_sym_namelist_statement_token1] = ACTIONS(65),
-    [aux_sym_common_statement_token1] = ACTIONS(67),
-    [aux_sym_import_statement_token1] = ACTIONS(69),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(49),
-    [aux_sym_variable_attributes_token3] = ACTIONS(49),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(49),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(780),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(778),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(778),
-    [aux_sym_derived_type_token1] = ACTIONS(784),
-    [aux_sym_declared_type_token1] = ACTIONS(85),
-    [aux_sym_declared_type_token2] = ACTIONS(85),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_include_statement_token1] = ACTIONS(119),
-    [aux_sym_data_statement_token1] = ACTIONS(4667),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_enum_statement_token1] = ACTIONS(153),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4671),
-  },
-  [1157] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [aux_sym_preproc_else_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
-  },
-  [1158] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [aux_sym_preproc_else_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1159] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token2] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [aux_sym_preproc_else_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1160] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [aux_sym_preproc_else_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [1161] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [aux_sym_preproc_else_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
-  },
-  [1162] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [aux_sym_preproc_else_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1163] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [aux_sym_preproc_else_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
-  },
-  [1164] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [aux_sym_preproc_else_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
-  },
-  [1165] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [aux_sym_preproc_else_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
-  },
-  [1166] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [aux_sym_preproc_else_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [1167] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [aux_sym_preproc_else_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1168] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1169] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [aux_sym_preproc_else_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [1170] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [aux_sym_preproc_else_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1171] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [aux_sym_preproc_else_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [1172] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [aux_sym_preproc_else_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
-  },
-  [1173] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [aux_sym_preproc_else_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
-  },
-  [1174] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [aux_sym_preproc_else_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1175] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [aux_sym_preproc_else_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
-  },
-  [1176] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [aux_sym_preproc_else_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
-  },
-  [1177] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [aux_sym_preproc_else_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
-  },
-  [1178] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [aux_sym_preproc_else_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
-  },
-  [1179] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token2] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [aux_sym_preproc_else_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
-  },
-  [1180] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [aux_sym_preproc_else_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
-  },
-  [1181] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [aux_sym_preproc_else_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
-  },
-  [1182] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [aux_sym_preproc_else_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
-  },
-  [1183] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [aux_sym_preproc_else_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
-  },
-  [1184] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token2] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [aux_sym_preproc_else_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
-  },
-  [1185] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [aux_sym_preproc_else_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
-  },
-  [1186] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [aux_sym_preproc_else_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
-  },
-  [1187] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [aux_sym_preproc_else_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
-  },
-  [1188] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [aux_sym_preproc_else_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1189] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [aux_sym_preproc_else_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1190] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [aux_sym_preproc_else_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
-  },
-  [1191] = {
-    [sym_preproc_include] = STATE(1191),
-    [sym_preproc_def] = STATE(1191),
-    [sym_preproc_function_def] = STATE(1191),
-    [sym_preproc_call] = STATE(1191),
-    [sym_interface] = STATE(1191),
-    [sym_interface_statement] = STATE(3925),
-    [sym_language_binding] = STATE(3231),
-    [sym__specification_part] = STATE(1191),
-    [sym_use_statement] = STATE(6978),
-    [sym_implicit_statement] = STATE(6978),
-    [sym_save_statement] = STATE(6978),
-    [sym_private_statement] = STATE(1191),
-    [sym_public_statement] = STATE(1191),
-    [sym_namelist_statement] = STATE(6978),
-    [sym_common_statement] = STATE(6978),
-    [sym_import_statement] = STATE(6978),
-    [sym_derived_type_definition] = STATE(1191),
-    [sym_abstract_specifier] = STATE(7975),
-    [sym_derived_type_statement] = STATE(4310),
-    [sym_variable_declaration] = STATE(6978),
-    [sym_procedure_declaration] = STATE(3447),
-    [sym_variable_modification] = STATE(6978),
-    [sym_variable_attributes] = STATE(3231),
-    [sym__intrinsic_type] = STATE(3608),
-    [sym_intrinsic_type] = STATE(3447),
-    [sym_derived_type] = STATE(3447),
-    [sym_declared_type] = STATE(3447),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_parameter_statement] = STATE(6978),
-    [sym_equivalence_statement] = STATE(6978),
-    [sym_statement_label] = STATE(7213),
-    [sym_include_statement] = STATE(6978),
-    [sym_data_statement] = STATE(6978),
-    [sym_enum] = STATE(1191),
-    [sym_enum_statement] = STATE(6078),
-    [sym_enumeration_type] = STATE(1191),
-    [sym_enumeration_type_statement] = STATE(6228),
-    [sym_statement_function] = STATE(6978),
-    [sym_identifier] = STATE(7589),
-    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
-    [aux_sym_variable_modification_repeat1] = STATE(3231),
-    [aux_sym_preproc_include_token1] = ACTIONS(5142),
-    [aux_sym_preproc_def_token1] = ACTIONS(5145),
-    [aux_sym_preproc_if_token2] = ACTIONS(3025),
-    [sym_preproc_directive] = ACTIONS(5148),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(3032),
-    [aux_sym_interface_statement_token1] = ACTIONS(3035),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(3038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(3038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(3041),
-    [aux_sym_language_binding_token1] = ACTIONS(3044),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(3047),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(3050),
-    [aux_sym_contains_statement_token1] = ACTIONS(3025),
-    [aux_sym_use_statement_token1] = ACTIONS(3053),
-    [aux_sym_use_statement_token2] = ACTIONS(3050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(3056),
-    [aux_sym_implicit_statement_token3] = ACTIONS(3059),
-    [aux_sym_implicit_statement_token4] = ACTIONS(3050),
-    [aux_sym_save_statement_token1] = ACTIONS(3062),
-    [aux_sym_private_statement_token1] = ACTIONS(5151),
-    [aux_sym_public_statement_token1] = ACTIONS(5154),
-    [aux_sym_namelist_statement_token1] = ACTIONS(3071),
-    [aux_sym_common_statement_token1] = ACTIONS(3074),
-    [aux_sym_import_statement_token1] = ACTIONS(3077),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(3050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(3080),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token2] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(3050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(3083),
-    [aux_sym_variable_attributes_token5] = ACTIONS(3050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(3086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(3092),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(3095),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(3089),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(3089),
-    [aux_sym_derived_type_token1] = ACTIONS(3098),
-    [aux_sym_declared_type_token1] = ACTIONS(3101),
-    [aux_sym_declared_type_token2] = ACTIONS(3101),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(3104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(3107),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(3110),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(3113),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(3083),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(3116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(3050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(3083),
-    [aux_sym_type_qualifier_token1] = ACTIONS(3038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(3038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(3119),
-    [aux_sym_stop_statement_token1] = ACTIONS(3038),
-    [aux_sym_stop_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(3038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(3038),
-    [aux_sym_include_statement_token1] = ACTIONS(3122),
-    [aux_sym_data_statement_token1] = ACTIONS(3125),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(3038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(3038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(3128),
-    [aux_sym_block_construct_token1] = ACTIONS(3038),
-    [aux_sym_format_statement_token1] = ACTIONS(3038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(3038),
-    [aux_sym_enum_statement_token1] = ACTIONS(3131),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(3134),
-    [aux_sym_entry_statement_token1] = ACTIONS(3038),
-    [aux_sym_null_literal_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(3038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(3038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(3038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(3038),
-    [aux_sym_identifier_token1] = ACTIONS(3038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(3137),
-  },
-  [1192] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5157),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1193] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5159),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1194] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5161),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1195] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5163),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1196] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5165),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1197] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5167),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1198] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5169),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1199] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5171),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1200] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5173),
-    [aux_sym_preproc_def_token1] = ACTIONS(5173),
-    [aux_sym_preproc_if_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5173),
-    [sym_preproc_directive] = ACTIONS(5173),
-    [anon_sym_LPAREN2] = ACTIONS(5173),
-    [sym_preproc_comment] = ACTIONS(5175),
-    [anon_sym_PLUS] = ACTIONS(5177),
-    [anon_sym_DASH] = ACTIONS(5177),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5173),
-    [aux_sym_interface_statement_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5173),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5173),
-    [aux_sym_language_binding_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5173),
-    [aux_sym_contains_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token2] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5173),
-    [aux_sym_save_statement_token1] = ACTIONS(5173),
-    [aux_sym_private_statement_token1] = ACTIONS(5173),
-    [aux_sym_public_statement_token1] = ACTIONS(5173),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5173),
-    [aux_sym_common_statement_token1] = ACTIONS(5173),
-    [aux_sym_import_statement_token1] = ACTIONS(5173),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5173),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5173),
-    [aux_sym_derived_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5173),
-    [anon_sym_SEMI] = ACTIONS(5177),
-    [aux_sym_stop_statement_token1] = ACTIONS(5173),
-    [aux_sym_stop_statement_token2] = ACTIONS(5173),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5173),
-    [aux_sym_include_statement_token1] = ACTIONS(5173),
-    [aux_sym_data_statement_token1] = ACTIONS(5173),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5173),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5173),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5173),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5173),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5173),
-    [aux_sym_block_construct_token1] = ACTIONS(5173),
-    [aux_sym_associate_statement_token1] = ACTIONS(5173),
-    [aux_sym_format_statement_token1] = ACTIONS(5173),
-    [aux_sym_print_statement_token1] = ACTIONS(5173),
-    [aux_sym_open_statement_token1] = ACTIONS(5173),
-    [aux_sym_close_statement_token1] = ACTIONS(5173),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5173),
-    [aux_sym_enum_statement_token1] = ACTIONS(5173),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5173),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5173),
-    [aux_sym_entry_statement_token1] = ACTIONS(5173),
-    [aux_sym_logical_expression_token5] = ACTIONS(5177),
-    [anon_sym_DOT] = ACTIONS(5173),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5177),
-    [anon_sym_LBRACK] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5177),
-    [aux_sym_null_literal_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5173),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5173),
-    [aux_sym_identifier_token1] = ACTIONS(5173),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5177),
-    [sym__float_literal] = ACTIONS(5177),
-    [sym__boz_literal] = ACTIONS(5177),
-    [sym__string_literal] = ACTIONS(5177),
-    [sym__string_literal_kind] = ACTIONS(5177),
-  },
-  [1201] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5179),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1202] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5181),
-    [aux_sym_preproc_def_token1] = ACTIONS(5181),
-    [aux_sym_preproc_if_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5181),
-    [sym_preproc_directive] = ACTIONS(5181),
-    [anon_sym_LPAREN2] = ACTIONS(5181),
-    [sym_preproc_comment] = ACTIONS(5183),
-    [anon_sym_PLUS] = ACTIONS(5185),
-    [anon_sym_DASH] = ACTIONS(5185),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5181),
-    [aux_sym_interface_statement_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5181),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5181),
-    [aux_sym_language_binding_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5181),
-    [aux_sym_contains_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token2] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5181),
-    [aux_sym_save_statement_token1] = ACTIONS(5181),
-    [aux_sym_private_statement_token1] = ACTIONS(5181),
-    [aux_sym_public_statement_token1] = ACTIONS(5181),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5181),
-    [aux_sym_common_statement_token1] = ACTIONS(5181),
-    [aux_sym_import_statement_token1] = ACTIONS(5181),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5181),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5181),
-    [aux_sym_derived_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5181),
-    [anon_sym_SEMI] = ACTIONS(5185),
-    [aux_sym_stop_statement_token1] = ACTIONS(5181),
-    [aux_sym_stop_statement_token2] = ACTIONS(5181),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5181),
-    [aux_sym_include_statement_token1] = ACTIONS(5181),
-    [aux_sym_data_statement_token1] = ACTIONS(5181),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5181),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5181),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5181),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5181),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5181),
-    [aux_sym_block_construct_token1] = ACTIONS(5181),
-    [aux_sym_associate_statement_token1] = ACTIONS(5181),
-    [aux_sym_format_statement_token1] = ACTIONS(5181),
-    [aux_sym_print_statement_token1] = ACTIONS(5181),
-    [aux_sym_open_statement_token1] = ACTIONS(5181),
-    [aux_sym_close_statement_token1] = ACTIONS(5181),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5181),
-    [aux_sym_enum_statement_token1] = ACTIONS(5181),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5181),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5181),
-    [aux_sym_entry_statement_token1] = ACTIONS(5181),
-    [aux_sym_logical_expression_token5] = ACTIONS(5185),
-    [anon_sym_DOT] = ACTIONS(5181),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5185),
-    [anon_sym_LBRACK] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5185),
-    [aux_sym_null_literal_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5181),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5181),
-    [aux_sym_identifier_token1] = ACTIONS(5181),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5185),
-    [sym__float_literal] = ACTIONS(5185),
-    [sym__boz_literal] = ACTIONS(5185),
-    [sym__string_literal] = ACTIONS(5185),
-    [sym__string_literal_kind] = ACTIONS(5185),
-  },
-  [1203] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [sym_preproc_comment] = ACTIONS(5187),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1204] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5189),
-    [aux_sym_preproc_def_token1] = ACTIONS(5189),
-    [aux_sym_preproc_if_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5189),
-    [sym_preproc_directive] = ACTIONS(5189),
-    [anon_sym_LPAREN2] = ACTIONS(5189),
-    [sym_preproc_comment] = ACTIONS(5191),
-    [anon_sym_PLUS] = ACTIONS(5193),
-    [anon_sym_DASH] = ACTIONS(5193),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5189),
-    [aux_sym_interface_statement_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5189),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5189),
-    [aux_sym_language_binding_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5189),
-    [aux_sym_contains_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token2] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5189),
-    [aux_sym_save_statement_token1] = ACTIONS(5189),
-    [aux_sym_private_statement_token1] = ACTIONS(5189),
-    [aux_sym_public_statement_token1] = ACTIONS(5189),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5189),
-    [aux_sym_common_statement_token1] = ACTIONS(5189),
-    [aux_sym_import_statement_token1] = ACTIONS(5189),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5189),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5189),
-    [aux_sym_derived_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5189),
-    [anon_sym_SEMI] = ACTIONS(5193),
-    [aux_sym_stop_statement_token1] = ACTIONS(5189),
-    [aux_sym_stop_statement_token2] = ACTIONS(5189),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5189),
-    [aux_sym_include_statement_token1] = ACTIONS(5189),
-    [aux_sym_data_statement_token1] = ACTIONS(5189),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5189),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5189),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5189),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5189),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5189),
-    [aux_sym_block_construct_token1] = ACTIONS(5189),
-    [aux_sym_associate_statement_token1] = ACTIONS(5189),
-    [aux_sym_format_statement_token1] = ACTIONS(5189),
-    [aux_sym_print_statement_token1] = ACTIONS(5189),
-    [aux_sym_open_statement_token1] = ACTIONS(5189),
-    [aux_sym_close_statement_token1] = ACTIONS(5189),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5189),
-    [aux_sym_enum_statement_token1] = ACTIONS(5189),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5189),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5189),
-    [aux_sym_entry_statement_token1] = ACTIONS(5189),
-    [aux_sym_logical_expression_token5] = ACTIONS(5193),
-    [anon_sym_DOT] = ACTIONS(5189),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5193),
-    [anon_sym_LBRACK] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5193),
-    [aux_sym_null_literal_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5189),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5189),
-    [aux_sym_identifier_token1] = ACTIONS(5189),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5193),
-    [sym__float_literal] = ACTIONS(5193),
-    [sym__boz_literal] = ACTIONS(5193),
-    [sym__string_literal] = ACTIONS(5193),
-    [sym__string_literal_kind] = ACTIONS(5193),
-  },
-  [1205] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [sym_preproc_comment] = ACTIONS(5195),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1206] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5197),
-    [aux_sym_preproc_def_token1] = ACTIONS(5197),
-    [aux_sym_preproc_if_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5197),
-    [sym_preproc_directive] = ACTIONS(5197),
-    [anon_sym_LPAREN2] = ACTIONS(5197),
-    [sym_preproc_comment] = ACTIONS(5199),
-    [anon_sym_PLUS] = ACTIONS(5201),
-    [anon_sym_DASH] = ACTIONS(5201),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5197),
-    [aux_sym_interface_statement_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5197),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5197),
-    [aux_sym_language_binding_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5197),
-    [aux_sym_contains_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token2] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5197),
-    [aux_sym_save_statement_token1] = ACTIONS(5197),
-    [aux_sym_private_statement_token1] = ACTIONS(5197),
-    [aux_sym_public_statement_token1] = ACTIONS(5197),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5197),
-    [aux_sym_common_statement_token1] = ACTIONS(5197),
-    [aux_sym_import_statement_token1] = ACTIONS(5197),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5197),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5197),
-    [aux_sym_derived_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5197),
-    [anon_sym_SEMI] = ACTIONS(5201),
-    [aux_sym_stop_statement_token1] = ACTIONS(5197),
-    [aux_sym_stop_statement_token2] = ACTIONS(5197),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5197),
-    [aux_sym_include_statement_token1] = ACTIONS(5197),
-    [aux_sym_data_statement_token1] = ACTIONS(5197),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5197),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5197),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5197),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5197),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5197),
-    [aux_sym_block_construct_token1] = ACTIONS(5197),
-    [aux_sym_associate_statement_token1] = ACTIONS(5197),
-    [aux_sym_format_statement_token1] = ACTIONS(5197),
-    [aux_sym_print_statement_token1] = ACTIONS(5197),
-    [aux_sym_open_statement_token1] = ACTIONS(5197),
-    [aux_sym_close_statement_token1] = ACTIONS(5197),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5197),
-    [aux_sym_enum_statement_token1] = ACTIONS(5197),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5197),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5197),
-    [aux_sym_entry_statement_token1] = ACTIONS(5197),
-    [aux_sym_logical_expression_token5] = ACTIONS(5201),
-    [anon_sym_DOT] = ACTIONS(5197),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5201),
-    [anon_sym_LBRACK] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5201),
-    [aux_sym_null_literal_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5197),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5197),
-    [aux_sym_identifier_token1] = ACTIONS(5197),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5201),
-    [sym__float_literal] = ACTIONS(5201),
-    [sym__boz_literal] = ACTIONS(5201),
-    [sym__string_literal] = ACTIONS(5201),
-    [sym__string_literal_kind] = ACTIONS(5201),
-  },
-  [1207] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5203),
-    [aux_sym_preproc_def_token1] = ACTIONS(5203),
-    [aux_sym_preproc_if_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5203),
-    [sym_preproc_directive] = ACTIONS(5203),
-    [anon_sym_LPAREN2] = ACTIONS(5203),
-    [sym_preproc_comment] = ACTIONS(5205),
-    [anon_sym_PLUS] = ACTIONS(5207),
-    [anon_sym_DASH] = ACTIONS(5207),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5203),
-    [aux_sym_interface_statement_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5203),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5203),
-    [aux_sym_language_binding_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5203),
-    [aux_sym_contains_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token2] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5203),
-    [aux_sym_save_statement_token1] = ACTIONS(5203),
-    [aux_sym_private_statement_token1] = ACTIONS(5203),
-    [aux_sym_public_statement_token1] = ACTIONS(5203),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5203),
-    [aux_sym_common_statement_token1] = ACTIONS(5203),
-    [aux_sym_import_statement_token1] = ACTIONS(5203),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5203),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5203),
-    [aux_sym_derived_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5203),
-    [anon_sym_SEMI] = ACTIONS(5207),
-    [aux_sym_stop_statement_token1] = ACTIONS(5203),
-    [aux_sym_stop_statement_token2] = ACTIONS(5203),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5203),
-    [aux_sym_include_statement_token1] = ACTIONS(5203),
-    [aux_sym_data_statement_token1] = ACTIONS(5203),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5203),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5203),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5203),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5203),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5203),
-    [aux_sym_block_construct_token1] = ACTIONS(5203),
-    [aux_sym_associate_statement_token1] = ACTIONS(5203),
-    [aux_sym_format_statement_token1] = ACTIONS(5203),
-    [aux_sym_print_statement_token1] = ACTIONS(5203),
-    [aux_sym_open_statement_token1] = ACTIONS(5203),
-    [aux_sym_close_statement_token1] = ACTIONS(5203),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5203),
-    [aux_sym_enum_statement_token1] = ACTIONS(5203),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5203),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5203),
-    [aux_sym_entry_statement_token1] = ACTIONS(5203),
-    [aux_sym_logical_expression_token5] = ACTIONS(5207),
-    [anon_sym_DOT] = ACTIONS(5203),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5207),
-    [anon_sym_LBRACK] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5207),
-    [aux_sym_null_literal_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5203),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5203),
-    [aux_sym_identifier_token1] = ACTIONS(5203),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5207),
-    [sym__float_literal] = ACTIONS(5207),
-    [sym__boz_literal] = ACTIONS(5207),
-    [sym__string_literal] = ACTIONS(5207),
-    [sym__string_literal_kind] = ACTIONS(5207),
-  },
-  [1208] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5209),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1209] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5197),
-    [aux_sym_preproc_def_token1] = ACTIONS(5197),
-    [aux_sym_preproc_if_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5197),
-    [sym_preproc_directive] = ACTIONS(5197),
-    [anon_sym_LPAREN2] = ACTIONS(5197),
-    [sym_preproc_comment] = ACTIONS(5211),
-    [anon_sym_PLUS] = ACTIONS(5201),
-    [anon_sym_DASH] = ACTIONS(5201),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5197),
-    [aux_sym_interface_statement_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5197),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5197),
-    [aux_sym_language_binding_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5197),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5197),
-    [aux_sym_contains_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token2] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5197),
-    [aux_sym_save_statement_token1] = ACTIONS(5197),
-    [aux_sym_private_statement_token1] = ACTIONS(5197),
-    [aux_sym_public_statement_token1] = ACTIONS(5197),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5197),
-    [aux_sym_common_statement_token1] = ACTIONS(5197),
-    [aux_sym_import_statement_token1] = ACTIONS(5197),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5197),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5197),
-    [aux_sym_derived_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5197),
-    [anon_sym_SEMI] = ACTIONS(5201),
-    [aux_sym_stop_statement_token1] = ACTIONS(5197),
-    [aux_sym_stop_statement_token2] = ACTIONS(5197),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5197),
-    [aux_sym_include_statement_token1] = ACTIONS(5197),
-    [aux_sym_data_statement_token1] = ACTIONS(5197),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5197),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5197),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5197),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5197),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5197),
-    [aux_sym_block_construct_token1] = ACTIONS(5197),
-    [aux_sym_associate_statement_token1] = ACTIONS(5197),
-    [aux_sym_format_statement_token1] = ACTIONS(5197),
-    [aux_sym_print_statement_token1] = ACTIONS(5197),
-    [aux_sym_open_statement_token1] = ACTIONS(5197),
-    [aux_sym_close_statement_token1] = ACTIONS(5197),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5197),
-    [aux_sym_enum_statement_token1] = ACTIONS(5197),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5197),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5197),
-    [aux_sym_entry_statement_token1] = ACTIONS(5197),
-    [aux_sym_logical_expression_token5] = ACTIONS(5201),
-    [anon_sym_DOT] = ACTIONS(5197),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5201),
-    [anon_sym_LBRACK] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5201),
-    [aux_sym_null_literal_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5197),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5197),
-    [aux_sym_identifier_token1] = ACTIONS(5197),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5201),
-    [sym__float_literal] = ACTIONS(5201),
-    [sym__boz_literal] = ACTIONS(5201),
-    [sym__string_literal] = ACTIONS(5201),
-    [sym__string_literal_kind] = ACTIONS(5201),
-  },
-  [1210] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5173),
-    [aux_sym_preproc_def_token1] = ACTIONS(5173),
-    [aux_sym_preproc_if_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5173),
-    [sym_preproc_directive] = ACTIONS(5173),
-    [anon_sym_LPAREN2] = ACTIONS(5173),
-    [sym_preproc_comment] = ACTIONS(5213),
-    [anon_sym_PLUS] = ACTIONS(5177),
-    [anon_sym_DASH] = ACTIONS(5177),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5173),
-    [aux_sym_interface_statement_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5173),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5173),
-    [aux_sym_language_binding_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5173),
-    [aux_sym_contains_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token2] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5173),
-    [aux_sym_save_statement_token1] = ACTIONS(5173),
-    [aux_sym_private_statement_token1] = ACTIONS(5173),
-    [aux_sym_public_statement_token1] = ACTIONS(5173),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5173),
-    [aux_sym_common_statement_token1] = ACTIONS(5173),
-    [aux_sym_import_statement_token1] = ACTIONS(5173),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5173),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5173),
-    [aux_sym_derived_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5173),
-    [anon_sym_SEMI] = ACTIONS(5177),
-    [aux_sym_stop_statement_token1] = ACTIONS(5173),
-    [aux_sym_stop_statement_token2] = ACTIONS(5173),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5173),
-    [aux_sym_include_statement_token1] = ACTIONS(5173),
-    [aux_sym_data_statement_token1] = ACTIONS(5173),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5173),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5173),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5173),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5173),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5173),
-    [aux_sym_block_construct_token1] = ACTIONS(5173),
-    [aux_sym_associate_statement_token1] = ACTIONS(5173),
-    [aux_sym_format_statement_token1] = ACTIONS(5173),
-    [aux_sym_print_statement_token1] = ACTIONS(5173),
-    [aux_sym_open_statement_token1] = ACTIONS(5173),
-    [aux_sym_close_statement_token1] = ACTIONS(5173),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5173),
-    [aux_sym_enum_statement_token1] = ACTIONS(5173),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5173),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5173),
-    [aux_sym_entry_statement_token1] = ACTIONS(5173),
-    [aux_sym_logical_expression_token5] = ACTIONS(5177),
-    [anon_sym_DOT] = ACTIONS(5173),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5177),
-    [anon_sym_LBRACK] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5177),
-    [aux_sym_null_literal_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5173),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5173),
-    [aux_sym_identifier_token1] = ACTIONS(5173),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5177),
-    [sym__float_literal] = ACTIONS(5177),
-    [sym__boz_literal] = ACTIONS(5177),
-    [sym__string_literal] = ACTIONS(5177),
-    [sym__string_literal_kind] = ACTIONS(5177),
-  },
-  [1211] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5215),
-    [aux_sym_preproc_def_token1] = ACTIONS(5215),
-    [aux_sym_preproc_if_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5215),
-    [sym_preproc_directive] = ACTIONS(5215),
-    [anon_sym_LPAREN2] = ACTIONS(5215),
-    [sym_preproc_comment] = ACTIONS(5217),
-    [anon_sym_PLUS] = ACTIONS(5219),
-    [anon_sym_DASH] = ACTIONS(5219),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5215),
-    [aux_sym_interface_statement_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5215),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5215),
-    [aux_sym_language_binding_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5215),
-    [aux_sym_contains_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token2] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5215),
-    [aux_sym_save_statement_token1] = ACTIONS(5215),
-    [aux_sym_private_statement_token1] = ACTIONS(5215),
-    [aux_sym_public_statement_token1] = ACTIONS(5215),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5215),
-    [aux_sym_common_statement_token1] = ACTIONS(5215),
-    [aux_sym_import_statement_token1] = ACTIONS(5215),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5215),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5215),
-    [aux_sym_derived_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5215),
-    [anon_sym_SEMI] = ACTIONS(5219),
-    [aux_sym_stop_statement_token1] = ACTIONS(5215),
-    [aux_sym_stop_statement_token2] = ACTIONS(5215),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5215),
-    [aux_sym_include_statement_token1] = ACTIONS(5215),
-    [aux_sym_data_statement_token1] = ACTIONS(5215),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5215),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5215),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5215),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5215),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5215),
-    [aux_sym_block_construct_token1] = ACTIONS(5215),
-    [aux_sym_associate_statement_token1] = ACTIONS(5215),
-    [aux_sym_format_statement_token1] = ACTIONS(5215),
-    [aux_sym_print_statement_token1] = ACTIONS(5215),
-    [aux_sym_open_statement_token1] = ACTIONS(5215),
-    [aux_sym_close_statement_token1] = ACTIONS(5215),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5215),
-    [aux_sym_enum_statement_token1] = ACTIONS(5215),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5215),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5215),
-    [aux_sym_entry_statement_token1] = ACTIONS(5215),
-    [aux_sym_logical_expression_token5] = ACTIONS(5219),
-    [anon_sym_DOT] = ACTIONS(5215),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5219),
-    [anon_sym_LBRACK] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5219),
-    [aux_sym_null_literal_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5215),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5215),
-    [aux_sym_identifier_token1] = ACTIONS(5215),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5219),
-    [sym__float_literal] = ACTIONS(5219),
-    [sym__boz_literal] = ACTIONS(5219),
-    [sym__string_literal] = ACTIONS(5219),
-    [sym__string_literal_kind] = ACTIONS(5219),
-  },
-  [1212] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5221),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1213] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5223),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1214] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5225),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1215] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5189),
-    [aux_sym_preproc_def_token1] = ACTIONS(5189),
-    [aux_sym_preproc_if_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5189),
-    [sym_preproc_directive] = ACTIONS(5189),
-    [anon_sym_LPAREN2] = ACTIONS(5189),
-    [sym_preproc_comment] = ACTIONS(5227),
-    [anon_sym_PLUS] = ACTIONS(5193),
-    [anon_sym_DASH] = ACTIONS(5193),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5189),
-    [aux_sym_interface_statement_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5189),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5189),
-    [aux_sym_language_binding_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5189),
-    [aux_sym_contains_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token2] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5189),
-    [aux_sym_save_statement_token1] = ACTIONS(5189),
-    [aux_sym_private_statement_token1] = ACTIONS(5189),
-    [aux_sym_public_statement_token1] = ACTIONS(5189),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5189),
-    [aux_sym_common_statement_token1] = ACTIONS(5189),
-    [aux_sym_import_statement_token1] = ACTIONS(5189),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5189),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5189),
-    [aux_sym_derived_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5189),
-    [anon_sym_SEMI] = ACTIONS(5193),
-    [aux_sym_stop_statement_token1] = ACTIONS(5189),
-    [aux_sym_stop_statement_token2] = ACTIONS(5189),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5189),
-    [aux_sym_include_statement_token1] = ACTIONS(5189),
-    [aux_sym_data_statement_token1] = ACTIONS(5189),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5189),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5189),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5189),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5189),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5189),
-    [aux_sym_block_construct_token1] = ACTIONS(5189),
-    [aux_sym_associate_statement_token1] = ACTIONS(5189),
-    [aux_sym_format_statement_token1] = ACTIONS(5189),
-    [aux_sym_print_statement_token1] = ACTIONS(5189),
-    [aux_sym_open_statement_token1] = ACTIONS(5189),
-    [aux_sym_close_statement_token1] = ACTIONS(5189),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5189),
-    [aux_sym_enum_statement_token1] = ACTIONS(5189),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5189),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5189),
-    [aux_sym_entry_statement_token1] = ACTIONS(5189),
-    [aux_sym_logical_expression_token5] = ACTIONS(5193),
-    [anon_sym_DOT] = ACTIONS(5189),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5193),
-    [anon_sym_LBRACK] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5193),
-    [aux_sym_null_literal_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5189),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5189),
-    [aux_sym_identifier_token1] = ACTIONS(5189),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5193),
-    [sym__float_literal] = ACTIONS(5193),
-    [sym__boz_literal] = ACTIONS(5193),
-    [sym__string_literal] = ACTIONS(5193),
-    [sym__string_literal_kind] = ACTIONS(5193),
-  },
-  [1216] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5229),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1217] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [sym_preproc_comment] = ACTIONS(5231),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1218] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5233),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1219] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5235),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1220] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5197),
-    [aux_sym_preproc_def_token1] = ACTIONS(5197),
-    [aux_sym_preproc_if_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5197),
-    [sym_preproc_directive] = ACTIONS(5197),
-    [anon_sym_LPAREN2] = ACTIONS(5197),
-    [sym_preproc_comment] = ACTIONS(5237),
-    [anon_sym_PLUS] = ACTIONS(5201),
-    [anon_sym_DASH] = ACTIONS(5201),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5197),
-    [aux_sym_interface_statement_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5197),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5197),
-    [aux_sym_language_binding_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5197),
-    [aux_sym_contains_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token2] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5197),
-    [aux_sym_save_statement_token1] = ACTIONS(5197),
-    [aux_sym_private_statement_token1] = ACTIONS(5197),
-    [aux_sym_public_statement_token1] = ACTIONS(5197),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5197),
-    [aux_sym_common_statement_token1] = ACTIONS(5197),
-    [aux_sym_import_statement_token1] = ACTIONS(5197),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5197),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5197),
-    [aux_sym_derived_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5197),
-    [anon_sym_SEMI] = ACTIONS(5201),
-    [aux_sym_stop_statement_token1] = ACTIONS(5197),
-    [aux_sym_stop_statement_token2] = ACTIONS(5197),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5197),
-    [aux_sym_include_statement_token1] = ACTIONS(5197),
-    [aux_sym_data_statement_token1] = ACTIONS(5197),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5197),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5197),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5197),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5197),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5197),
-    [aux_sym_block_construct_token1] = ACTIONS(5197),
-    [aux_sym_associate_statement_token1] = ACTIONS(5197),
-    [aux_sym_format_statement_token1] = ACTIONS(5197),
-    [aux_sym_print_statement_token1] = ACTIONS(5197),
-    [aux_sym_open_statement_token1] = ACTIONS(5197),
-    [aux_sym_close_statement_token1] = ACTIONS(5197),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5197),
-    [aux_sym_enum_statement_token1] = ACTIONS(5197),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5197),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5197),
-    [aux_sym_entry_statement_token1] = ACTIONS(5197),
-    [aux_sym_logical_expression_token5] = ACTIONS(5201),
-    [anon_sym_DOT] = ACTIONS(5197),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5201),
-    [anon_sym_LBRACK] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5201),
-    [aux_sym_null_literal_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5197),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5197),
-    [aux_sym_identifier_token1] = ACTIONS(5197),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5201),
-    [sym__float_literal] = ACTIONS(5201),
-    [sym__boz_literal] = ACTIONS(5201),
-    [sym__string_literal] = ACTIONS(5201),
-    [sym__string_literal_kind] = ACTIONS(5201),
-  },
-  [1221] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5203),
-    [aux_sym_preproc_def_token1] = ACTIONS(5203),
-    [aux_sym_preproc_if_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5203),
-    [sym_preproc_directive] = ACTIONS(5203),
-    [anon_sym_LPAREN2] = ACTIONS(5203),
-    [sym_preproc_comment] = ACTIONS(5239),
-    [anon_sym_PLUS] = ACTIONS(5207),
-    [anon_sym_DASH] = ACTIONS(5207),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5203),
-    [aux_sym_interface_statement_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5203),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5203),
-    [aux_sym_language_binding_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5203),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5203),
-    [aux_sym_contains_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token2] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5203),
-    [aux_sym_save_statement_token1] = ACTIONS(5203),
-    [aux_sym_private_statement_token1] = ACTIONS(5203),
-    [aux_sym_public_statement_token1] = ACTIONS(5203),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5203),
-    [aux_sym_common_statement_token1] = ACTIONS(5203),
-    [aux_sym_import_statement_token1] = ACTIONS(5203),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5203),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5203),
-    [aux_sym_derived_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5203),
-    [anon_sym_SEMI] = ACTIONS(5207),
-    [aux_sym_stop_statement_token1] = ACTIONS(5203),
-    [aux_sym_stop_statement_token2] = ACTIONS(5203),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5203),
-    [aux_sym_include_statement_token1] = ACTIONS(5203),
-    [aux_sym_data_statement_token1] = ACTIONS(5203),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5203),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5203),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5203),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5203),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5203),
-    [aux_sym_block_construct_token1] = ACTIONS(5203),
-    [aux_sym_associate_statement_token1] = ACTIONS(5203),
-    [aux_sym_format_statement_token1] = ACTIONS(5203),
-    [aux_sym_print_statement_token1] = ACTIONS(5203),
-    [aux_sym_open_statement_token1] = ACTIONS(5203),
-    [aux_sym_close_statement_token1] = ACTIONS(5203),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5203),
-    [aux_sym_enum_statement_token1] = ACTIONS(5203),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5203),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5203),
-    [aux_sym_entry_statement_token1] = ACTIONS(5203),
-    [aux_sym_logical_expression_token5] = ACTIONS(5207),
-    [anon_sym_DOT] = ACTIONS(5203),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5207),
-    [anon_sym_LBRACK] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5207),
-    [aux_sym_null_literal_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5203),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5203),
-    [aux_sym_identifier_token1] = ACTIONS(5203),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5207),
-    [sym__float_literal] = ACTIONS(5207),
-    [sym__boz_literal] = ACTIONS(5207),
-    [sym__string_literal] = ACTIONS(5207),
-    [sym__string_literal_kind] = ACTIONS(5207),
-  },
-  [1222] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5241),
-    [aux_sym_preproc_def_token1] = ACTIONS(5241),
-    [aux_sym_preproc_if_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5241),
-    [sym_preproc_directive] = ACTIONS(5241),
-    [anon_sym_LPAREN2] = ACTIONS(5241),
-    [sym_preproc_comment] = ACTIONS(5243),
-    [anon_sym_PLUS] = ACTIONS(5245),
-    [anon_sym_DASH] = ACTIONS(5245),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5241),
-    [aux_sym_interface_statement_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5241),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5241),
-    [aux_sym_language_binding_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5241),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5241),
-    [aux_sym_contains_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token2] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5241),
-    [aux_sym_save_statement_token1] = ACTIONS(5241),
-    [aux_sym_private_statement_token1] = ACTIONS(5241),
-    [aux_sym_public_statement_token1] = ACTIONS(5241),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5241),
-    [aux_sym_common_statement_token1] = ACTIONS(5241),
-    [aux_sym_import_statement_token1] = ACTIONS(5241),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5241),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5241),
-    [aux_sym_derived_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5241),
-    [anon_sym_SEMI] = ACTIONS(5245),
-    [aux_sym_stop_statement_token1] = ACTIONS(5241),
-    [aux_sym_stop_statement_token2] = ACTIONS(5241),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5241),
-    [aux_sym_include_statement_token1] = ACTIONS(5241),
-    [aux_sym_data_statement_token1] = ACTIONS(5241),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5241),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5241),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5241),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5241),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5241),
-    [aux_sym_block_construct_token1] = ACTIONS(5241),
-    [aux_sym_associate_statement_token1] = ACTIONS(5241),
-    [aux_sym_format_statement_token1] = ACTIONS(5241),
-    [aux_sym_print_statement_token1] = ACTIONS(5241),
-    [aux_sym_open_statement_token1] = ACTIONS(5241),
-    [aux_sym_close_statement_token1] = ACTIONS(5241),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5241),
-    [aux_sym_enum_statement_token1] = ACTIONS(5241),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5241),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5241),
-    [aux_sym_entry_statement_token1] = ACTIONS(5241),
-    [aux_sym_logical_expression_token5] = ACTIONS(5245),
-    [anon_sym_DOT] = ACTIONS(5241),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5245),
-    [anon_sym_LBRACK] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5245),
-    [aux_sym_null_literal_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5241),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5241),
-    [aux_sym_identifier_token1] = ACTIONS(5241),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5245),
-    [sym__float_literal] = ACTIONS(5245),
-    [sym__boz_literal] = ACTIONS(5245),
-    [sym__string_literal] = ACTIONS(5245),
-    [sym__string_literal_kind] = ACTIONS(5245),
-  },
-  [1223] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5247),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1224] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1225] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5249),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1226] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5251),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1227] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5253),
-    [aux_sym_preproc_def_token1] = ACTIONS(5253),
-    [aux_sym_preproc_if_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5253),
-    [sym_preproc_directive] = ACTIONS(5253),
-    [anon_sym_LPAREN2] = ACTIONS(5253),
-    [sym_preproc_comment] = ACTIONS(5255),
-    [anon_sym_PLUS] = ACTIONS(5257),
-    [anon_sym_DASH] = ACTIONS(5257),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5253),
-    [aux_sym_interface_statement_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5253),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5253),
-    [aux_sym_language_binding_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5253),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5253),
-    [aux_sym_contains_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token2] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5253),
-    [aux_sym_save_statement_token1] = ACTIONS(5253),
-    [aux_sym_private_statement_token1] = ACTIONS(5253),
-    [aux_sym_public_statement_token1] = ACTIONS(5253),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5253),
-    [aux_sym_common_statement_token1] = ACTIONS(5253),
-    [aux_sym_import_statement_token1] = ACTIONS(5253),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5253),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5253),
-    [aux_sym_derived_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5253),
-    [anon_sym_SEMI] = ACTIONS(5257),
-    [aux_sym_stop_statement_token1] = ACTIONS(5253),
-    [aux_sym_stop_statement_token2] = ACTIONS(5253),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5253),
-    [aux_sym_include_statement_token1] = ACTIONS(5253),
-    [aux_sym_data_statement_token1] = ACTIONS(5253),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5253),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5253),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5253),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5253),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5253),
-    [aux_sym_block_construct_token1] = ACTIONS(5253),
-    [aux_sym_associate_statement_token1] = ACTIONS(5253),
-    [aux_sym_format_statement_token1] = ACTIONS(5253),
-    [aux_sym_print_statement_token1] = ACTIONS(5253),
-    [aux_sym_open_statement_token1] = ACTIONS(5253),
-    [aux_sym_close_statement_token1] = ACTIONS(5253),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5253),
-    [aux_sym_enum_statement_token1] = ACTIONS(5253),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5253),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5253),
-    [aux_sym_entry_statement_token1] = ACTIONS(5253),
-    [aux_sym_logical_expression_token5] = ACTIONS(5257),
-    [anon_sym_DOT] = ACTIONS(5253),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5257),
-    [anon_sym_LBRACK] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5257),
-    [aux_sym_null_literal_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5253),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5253),
-    [aux_sym_identifier_token1] = ACTIONS(5253),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5257),
-    [sym__float_literal] = ACTIONS(5257),
-    [sym__boz_literal] = ACTIONS(5257),
-    [sym__string_literal] = ACTIONS(5257),
-    [sym__string_literal_kind] = ACTIONS(5257),
-  },
-  [1228] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5259),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1229] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5261),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1230] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5263),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1231] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5203),
-    [aux_sym_preproc_def_token1] = ACTIONS(5203),
-    [aux_sym_preproc_if_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5203),
-    [sym_preproc_directive] = ACTIONS(5203),
-    [anon_sym_LPAREN2] = ACTIONS(5203),
-    [sym_preproc_comment] = ACTIONS(5265),
-    [anon_sym_PLUS] = ACTIONS(5207),
-    [anon_sym_DASH] = ACTIONS(5207),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5203),
-    [aux_sym_interface_statement_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5203),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5203),
-    [aux_sym_language_binding_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5203),
-    [aux_sym_contains_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token2] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5203),
-    [aux_sym_save_statement_token1] = ACTIONS(5203),
-    [aux_sym_private_statement_token1] = ACTIONS(5203),
-    [aux_sym_public_statement_token1] = ACTIONS(5203),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5203),
-    [aux_sym_common_statement_token1] = ACTIONS(5203),
-    [aux_sym_import_statement_token1] = ACTIONS(5203),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5203),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5203),
-    [aux_sym_derived_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5203),
-    [anon_sym_SEMI] = ACTIONS(5207),
-    [aux_sym_stop_statement_token1] = ACTIONS(5203),
-    [aux_sym_stop_statement_token2] = ACTIONS(5203),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5203),
-    [aux_sym_include_statement_token1] = ACTIONS(5203),
-    [aux_sym_data_statement_token1] = ACTIONS(5203),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5203),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5203),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5203),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5203),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5203),
-    [aux_sym_block_construct_token1] = ACTIONS(5203),
-    [aux_sym_associate_statement_token1] = ACTIONS(5203),
-    [aux_sym_format_statement_token1] = ACTIONS(5203),
-    [aux_sym_print_statement_token1] = ACTIONS(5203),
-    [aux_sym_open_statement_token1] = ACTIONS(5203),
-    [aux_sym_close_statement_token1] = ACTIONS(5203),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5203),
-    [aux_sym_enum_statement_token1] = ACTIONS(5203),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5203),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5203),
-    [aux_sym_entry_statement_token1] = ACTIONS(5203),
-    [aux_sym_logical_expression_token5] = ACTIONS(5207),
-    [anon_sym_DOT] = ACTIONS(5203),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5207),
-    [anon_sym_LBRACK] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5207),
-    [aux_sym_null_literal_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5203),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5203),
-    [aux_sym_identifier_token1] = ACTIONS(5203),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5207),
-    [sym__float_literal] = ACTIONS(5207),
-    [sym__boz_literal] = ACTIONS(5207),
-    [sym__string_literal] = ACTIONS(5207),
-    [sym__string_literal_kind] = ACTIONS(5207),
-  },
-  [1232] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5181),
-    [aux_sym_preproc_def_token1] = ACTIONS(5181),
-    [aux_sym_preproc_if_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5181),
-    [sym_preproc_directive] = ACTIONS(5181),
-    [anon_sym_LPAREN2] = ACTIONS(5181),
-    [sym_preproc_comment] = ACTIONS(5267),
-    [anon_sym_PLUS] = ACTIONS(5185),
-    [anon_sym_DASH] = ACTIONS(5185),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5181),
-    [aux_sym_interface_statement_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5181),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5181),
-    [aux_sym_language_binding_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5181),
-    [aux_sym_contains_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token2] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5181),
-    [aux_sym_save_statement_token1] = ACTIONS(5181),
-    [aux_sym_private_statement_token1] = ACTIONS(5181),
-    [aux_sym_public_statement_token1] = ACTIONS(5181),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5181),
-    [aux_sym_common_statement_token1] = ACTIONS(5181),
-    [aux_sym_import_statement_token1] = ACTIONS(5181),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5181),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5181),
-    [aux_sym_derived_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5181),
-    [anon_sym_SEMI] = ACTIONS(5185),
-    [aux_sym_stop_statement_token1] = ACTIONS(5181),
-    [aux_sym_stop_statement_token2] = ACTIONS(5181),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5181),
-    [aux_sym_include_statement_token1] = ACTIONS(5181),
-    [aux_sym_data_statement_token1] = ACTIONS(5181),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5181),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5181),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5181),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5181),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5181),
-    [aux_sym_block_construct_token1] = ACTIONS(5181),
-    [aux_sym_associate_statement_token1] = ACTIONS(5181),
-    [aux_sym_format_statement_token1] = ACTIONS(5181),
-    [aux_sym_print_statement_token1] = ACTIONS(5181),
-    [aux_sym_open_statement_token1] = ACTIONS(5181),
-    [aux_sym_close_statement_token1] = ACTIONS(5181),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5181),
-    [aux_sym_enum_statement_token1] = ACTIONS(5181),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5181),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5181),
-    [aux_sym_entry_statement_token1] = ACTIONS(5181),
-    [aux_sym_logical_expression_token5] = ACTIONS(5185),
-    [anon_sym_DOT] = ACTIONS(5181),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5185),
-    [anon_sym_LBRACK] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5185),
-    [aux_sym_null_literal_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5181),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5181),
-    [aux_sym_identifier_token1] = ACTIONS(5181),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5185),
-    [sym__float_literal] = ACTIONS(5185),
-    [sym__boz_literal] = ACTIONS(5185),
-    [sym__string_literal] = ACTIONS(5185),
-    [sym__string_literal_kind] = ACTIONS(5185),
-  },
-  [1233] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [sym_preproc_comment] = ACTIONS(5269),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1234] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5271),
-    [aux_sym_preproc_def_token1] = ACTIONS(5271),
-    [aux_sym_preproc_if_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5271),
-    [sym_preproc_directive] = ACTIONS(5271),
-    [anon_sym_LPAREN2] = ACTIONS(5271),
-    [sym_preproc_comment] = ACTIONS(5273),
-    [anon_sym_PLUS] = ACTIONS(5275),
-    [anon_sym_DASH] = ACTIONS(5275),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5271),
-    [aux_sym_interface_statement_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5271),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5271),
-    [aux_sym_language_binding_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5271),
-    [aux_sym_contains_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token2] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5271),
-    [aux_sym_save_statement_token1] = ACTIONS(5271),
-    [aux_sym_private_statement_token1] = ACTIONS(5271),
-    [aux_sym_public_statement_token1] = ACTIONS(5271),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5271),
-    [aux_sym_common_statement_token1] = ACTIONS(5271),
-    [aux_sym_import_statement_token1] = ACTIONS(5271),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5271),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5271),
-    [aux_sym_derived_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5271),
-    [anon_sym_SEMI] = ACTIONS(5275),
-    [aux_sym_stop_statement_token1] = ACTIONS(5271),
-    [aux_sym_stop_statement_token2] = ACTIONS(5271),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5271),
-    [aux_sym_include_statement_token1] = ACTIONS(5271),
-    [aux_sym_data_statement_token1] = ACTIONS(5271),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5271),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5271),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5271),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5271),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5271),
-    [aux_sym_block_construct_token1] = ACTIONS(5271),
-    [aux_sym_associate_statement_token1] = ACTIONS(5271),
-    [aux_sym_format_statement_token1] = ACTIONS(5271),
-    [aux_sym_print_statement_token1] = ACTIONS(5271),
-    [aux_sym_open_statement_token1] = ACTIONS(5271),
-    [aux_sym_close_statement_token1] = ACTIONS(5271),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5271),
-    [aux_sym_enum_statement_token1] = ACTIONS(5271),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5271),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5271),
-    [aux_sym_entry_statement_token1] = ACTIONS(5271),
-    [aux_sym_logical_expression_token5] = ACTIONS(5275),
-    [anon_sym_DOT] = ACTIONS(5271),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5275),
-    [anon_sym_LBRACK] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5275),
-    [aux_sym_null_literal_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5271),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5271),
-    [aux_sym_identifier_token1] = ACTIONS(5271),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5275),
-    [sym__float_literal] = ACTIONS(5275),
-    [sym__boz_literal] = ACTIONS(5275),
-    [sym__string_literal] = ACTIONS(5275),
-    [sym__string_literal_kind] = ACTIONS(5275),
-  },
-  [1235] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5277),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1236] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5279),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1237] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5281),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1238] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5283),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1239] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5285),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1240] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5287),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1241] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5253),
-    [aux_sym_preproc_def_token1] = ACTIONS(5253),
-    [aux_sym_preproc_if_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5253),
-    [sym_preproc_directive] = ACTIONS(5253),
-    [anon_sym_LPAREN2] = ACTIONS(5253),
-    [sym_preproc_comment] = ACTIONS(5289),
-    [anon_sym_PLUS] = ACTIONS(5257),
-    [anon_sym_DASH] = ACTIONS(5257),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5253),
-    [aux_sym_interface_statement_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5253),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5253),
-    [aux_sym_language_binding_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5253),
-    [aux_sym_contains_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token2] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5253),
-    [aux_sym_save_statement_token1] = ACTIONS(5253),
-    [aux_sym_private_statement_token1] = ACTIONS(5253),
-    [aux_sym_public_statement_token1] = ACTIONS(5253),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5253),
-    [aux_sym_common_statement_token1] = ACTIONS(5253),
-    [aux_sym_import_statement_token1] = ACTIONS(5253),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5253),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5253),
-    [aux_sym_derived_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5253),
-    [anon_sym_SEMI] = ACTIONS(5257),
-    [aux_sym_stop_statement_token1] = ACTIONS(5253),
-    [aux_sym_stop_statement_token2] = ACTIONS(5253),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5253),
-    [aux_sym_include_statement_token1] = ACTIONS(5253),
-    [aux_sym_data_statement_token1] = ACTIONS(5253),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5253),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5253),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5253),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5253),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5253),
-    [aux_sym_block_construct_token1] = ACTIONS(5253),
-    [aux_sym_associate_statement_token1] = ACTIONS(5253),
-    [aux_sym_format_statement_token1] = ACTIONS(5253),
-    [aux_sym_print_statement_token1] = ACTIONS(5253),
-    [aux_sym_open_statement_token1] = ACTIONS(5253),
-    [aux_sym_close_statement_token1] = ACTIONS(5253),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5253),
-    [aux_sym_enum_statement_token1] = ACTIONS(5253),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5253),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5253),
-    [aux_sym_entry_statement_token1] = ACTIONS(5253),
-    [aux_sym_logical_expression_token5] = ACTIONS(5257),
-    [anon_sym_DOT] = ACTIONS(5253),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5257),
-    [anon_sym_LBRACK] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5257),
-    [aux_sym_null_literal_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5253),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5253),
-    [aux_sym_identifier_token1] = ACTIONS(5253),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5257),
-    [sym__float_literal] = ACTIONS(5257),
-    [sym__boz_literal] = ACTIONS(5257),
-    [sym__string_literal] = ACTIONS(5257),
-    [sym__string_literal_kind] = ACTIONS(5257),
-  },
-  [1242] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5291),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1243] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5293),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1244] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5072),
-    [aux_sym_preproc_def_token1] = ACTIONS(5072),
-    [aux_sym_preproc_if_token1] = ACTIONS(5072),
-    [aux_sym_preproc_if_token2] = ACTIONS(5075),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5072),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5072),
-    [sym_preproc_directive] = ACTIONS(5072),
-    [anon_sym_LPAREN2] = ACTIONS(5072),
-    [anon_sym_PLUS] = ACTIONS(5077),
-    [anon_sym_DASH] = ACTIONS(5077),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5072),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5080),
-    [aux_sym_interface_statement_token1] = ACTIONS(5072),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5072),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5072),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5072),
-    [aux_sym_language_binding_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5072),
-    [aux_sym_contains_statement_token1] = ACTIONS(5072),
-    [aux_sym_use_statement_token1] = ACTIONS(5072),
-    [aux_sym_use_statement_token2] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5072),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5072),
-    [aux_sym_save_statement_token1] = ACTIONS(5072),
-    [aux_sym_private_statement_token1] = ACTIONS(5072),
-    [aux_sym_public_statement_token1] = ACTIONS(5072),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5072),
-    [aux_sym_common_statement_token1] = ACTIONS(5072),
-    [aux_sym_import_statement_token1] = ACTIONS(5072),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5072),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5072),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5072),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5072),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5072),
-    [aux_sym_derived_type_token1] = ACTIONS(5072),
-    [aux_sym_declared_type_token1] = ACTIONS(5072),
-    [aux_sym_declared_type_token2] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5072),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5072),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5072),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5072),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5072),
-    [anon_sym_SEMI] = ACTIONS(5077),
-    [aux_sym_stop_statement_token1] = ACTIONS(5072),
-    [aux_sym_stop_statement_token2] = ACTIONS(5072),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5072),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5072),
-    [aux_sym_include_statement_token1] = ACTIONS(5072),
-    [aux_sym_data_statement_token1] = ACTIONS(5072),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5072),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5072),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5072),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5072),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5072),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5072),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5072),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5072),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5072),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5072),
-    [aux_sym_block_construct_token1] = ACTIONS(5072),
-    [aux_sym_associate_statement_token1] = ACTIONS(5072),
-    [aux_sym_format_statement_token1] = ACTIONS(5072),
-    [aux_sym_print_statement_token1] = ACTIONS(5072),
-    [aux_sym_open_statement_token1] = ACTIONS(5072),
-    [aux_sym_close_statement_token1] = ACTIONS(5072),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5072),
-    [aux_sym_enum_statement_token1] = ACTIONS(5072),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5072),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5072),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5072),
-    [aux_sym_entry_statement_token1] = ACTIONS(5072),
-    [aux_sym_logical_expression_token5] = ACTIONS(5077),
-    [anon_sym_DOT] = ACTIONS(5072),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5077),
-    [anon_sym_LBRACK] = ACTIONS(5077),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5077),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5077),
-    [aux_sym_null_literal_token1] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5072),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5072),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5072),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5072),
-    [aux_sym_identifier_token1] = ACTIONS(5072),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5077),
-    [sym__float_literal] = ACTIONS(5077),
-    [sym__boz_literal] = ACTIONS(5077),
-    [sym__string_literal] = ACTIONS(5077),
-    [sym__string_literal_kind] = ACTIONS(5077),
-  },
-  [1245] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5173),
-    [aux_sym_preproc_def_token1] = ACTIONS(5173),
-    [aux_sym_preproc_if_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5173),
-    [sym_preproc_directive] = ACTIONS(5173),
-    [anon_sym_LPAREN2] = ACTIONS(5173),
-    [sym_preproc_comment] = ACTIONS(5295),
-    [anon_sym_PLUS] = ACTIONS(5177),
-    [anon_sym_DASH] = ACTIONS(5177),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5173),
-    [aux_sym_interface_statement_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5173),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5173),
-    [aux_sym_language_binding_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5173),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5173),
-    [aux_sym_contains_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token2] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5173),
-    [aux_sym_save_statement_token1] = ACTIONS(5173),
-    [aux_sym_private_statement_token1] = ACTIONS(5173),
-    [aux_sym_public_statement_token1] = ACTIONS(5173),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5173),
-    [aux_sym_common_statement_token1] = ACTIONS(5173),
-    [aux_sym_import_statement_token1] = ACTIONS(5173),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5173),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5173),
-    [aux_sym_derived_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5173),
-    [anon_sym_SEMI] = ACTIONS(5177),
-    [aux_sym_stop_statement_token1] = ACTIONS(5173),
-    [aux_sym_stop_statement_token2] = ACTIONS(5173),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5173),
-    [aux_sym_include_statement_token1] = ACTIONS(5173),
-    [aux_sym_data_statement_token1] = ACTIONS(5173),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5173),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5173),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5173),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5173),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5173),
-    [aux_sym_block_construct_token1] = ACTIONS(5173),
-    [aux_sym_associate_statement_token1] = ACTIONS(5173),
-    [aux_sym_format_statement_token1] = ACTIONS(5173),
-    [aux_sym_print_statement_token1] = ACTIONS(5173),
-    [aux_sym_open_statement_token1] = ACTIONS(5173),
-    [aux_sym_close_statement_token1] = ACTIONS(5173),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5173),
-    [aux_sym_enum_statement_token1] = ACTIONS(5173),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5173),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5173),
-    [aux_sym_entry_statement_token1] = ACTIONS(5173),
-    [aux_sym_logical_expression_token5] = ACTIONS(5177),
-    [anon_sym_DOT] = ACTIONS(5173),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5177),
-    [anon_sym_LBRACK] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5177),
-    [aux_sym_null_literal_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5173),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5173),
-    [aux_sym_identifier_token1] = ACTIONS(5173),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5177),
-    [sym__float_literal] = ACTIONS(5177),
-    [sym__boz_literal] = ACTIONS(5177),
-    [sym__string_literal] = ACTIONS(5177),
-    [sym__string_literal_kind] = ACTIONS(5177),
-  },
-  [1246] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5215),
-    [aux_sym_preproc_def_token1] = ACTIONS(5215),
-    [aux_sym_preproc_if_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5215),
-    [sym_preproc_directive] = ACTIONS(5215),
-    [anon_sym_LPAREN2] = ACTIONS(5215),
-    [sym_preproc_comment] = ACTIONS(5297),
-    [anon_sym_PLUS] = ACTIONS(5219),
-    [anon_sym_DASH] = ACTIONS(5219),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5215),
-    [aux_sym_interface_statement_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5215),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5215),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5215),
-    [aux_sym_language_binding_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5215),
-    [aux_sym_contains_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token2] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5215),
-    [aux_sym_save_statement_token1] = ACTIONS(5215),
-    [aux_sym_private_statement_token1] = ACTIONS(5215),
-    [aux_sym_public_statement_token1] = ACTIONS(5215),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5215),
-    [aux_sym_common_statement_token1] = ACTIONS(5215),
-    [aux_sym_import_statement_token1] = ACTIONS(5215),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5215),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5215),
-    [aux_sym_derived_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5215),
-    [anon_sym_SEMI] = ACTIONS(5219),
-    [aux_sym_stop_statement_token1] = ACTIONS(5215),
-    [aux_sym_stop_statement_token2] = ACTIONS(5215),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5215),
-    [aux_sym_include_statement_token1] = ACTIONS(5215),
-    [aux_sym_data_statement_token1] = ACTIONS(5215),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5215),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5215),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5215),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5215),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5215),
-    [aux_sym_block_construct_token1] = ACTIONS(5215),
-    [aux_sym_associate_statement_token1] = ACTIONS(5215),
-    [aux_sym_format_statement_token1] = ACTIONS(5215),
-    [aux_sym_print_statement_token1] = ACTIONS(5215),
-    [aux_sym_open_statement_token1] = ACTIONS(5215),
-    [aux_sym_close_statement_token1] = ACTIONS(5215),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5215),
-    [aux_sym_enum_statement_token1] = ACTIONS(5215),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5215),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5215),
-    [aux_sym_entry_statement_token1] = ACTIONS(5215),
-    [aux_sym_logical_expression_token5] = ACTIONS(5219),
-    [anon_sym_DOT] = ACTIONS(5215),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5219),
-    [anon_sym_LBRACK] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5219),
-    [aux_sym_null_literal_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5215),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5215),
-    [aux_sym_identifier_token1] = ACTIONS(5215),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5219),
-    [sym__float_literal] = ACTIONS(5219),
-    [sym__boz_literal] = ACTIONS(5219),
-    [sym__string_literal] = ACTIONS(5219),
-    [sym__string_literal_kind] = ACTIONS(5219),
-  },
-  [1247] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5299),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1248] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5241),
-    [aux_sym_preproc_def_token1] = ACTIONS(5241),
-    [aux_sym_preproc_if_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5241),
-    [sym_preproc_directive] = ACTIONS(5241),
-    [anon_sym_LPAREN2] = ACTIONS(5241),
-    [sym_preproc_comment] = ACTIONS(5301),
-    [anon_sym_PLUS] = ACTIONS(5245),
-    [anon_sym_DASH] = ACTIONS(5245),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5241),
-    [aux_sym_interface_statement_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5241),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5241),
-    [aux_sym_language_binding_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5241),
-    [aux_sym_contains_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token2] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5241),
-    [aux_sym_save_statement_token1] = ACTIONS(5241),
-    [aux_sym_private_statement_token1] = ACTIONS(5241),
-    [aux_sym_public_statement_token1] = ACTIONS(5241),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5241),
-    [aux_sym_common_statement_token1] = ACTIONS(5241),
-    [aux_sym_import_statement_token1] = ACTIONS(5241),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5241),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5241),
-    [aux_sym_derived_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5241),
-    [anon_sym_SEMI] = ACTIONS(5245),
-    [aux_sym_stop_statement_token1] = ACTIONS(5241),
-    [aux_sym_stop_statement_token2] = ACTIONS(5241),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5241),
-    [aux_sym_include_statement_token1] = ACTIONS(5241),
-    [aux_sym_data_statement_token1] = ACTIONS(5241),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5241),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5241),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5241),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5241),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5241),
-    [aux_sym_block_construct_token1] = ACTIONS(5241),
-    [aux_sym_associate_statement_token1] = ACTIONS(5241),
-    [aux_sym_format_statement_token1] = ACTIONS(5241),
-    [aux_sym_print_statement_token1] = ACTIONS(5241),
-    [aux_sym_open_statement_token1] = ACTIONS(5241),
-    [aux_sym_close_statement_token1] = ACTIONS(5241),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5241),
-    [aux_sym_enum_statement_token1] = ACTIONS(5241),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5241),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5241),
-    [aux_sym_entry_statement_token1] = ACTIONS(5241),
-    [aux_sym_logical_expression_token5] = ACTIONS(5245),
-    [anon_sym_DOT] = ACTIONS(5241),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5245),
-    [anon_sym_LBRACK] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5245),
-    [aux_sym_null_literal_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5241),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5241),
-    [aux_sym_identifier_token1] = ACTIONS(5241),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5245),
-    [sym__float_literal] = ACTIONS(5245),
-    [sym__boz_literal] = ACTIONS(5245),
-    [sym__string_literal] = ACTIONS(5245),
-    [sym__string_literal_kind] = ACTIONS(5245),
-  },
-  [1249] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5303),
-    [aux_sym_preproc_def_token1] = ACTIONS(5303),
-    [aux_sym_preproc_if_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5303),
-    [sym_preproc_directive] = ACTIONS(5303),
-    [anon_sym_LPAREN2] = ACTIONS(5303),
-    [sym_preproc_comment] = ACTIONS(5305),
-    [anon_sym_PLUS] = ACTIONS(5307),
-    [anon_sym_DASH] = ACTIONS(5307),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5303),
-    [aux_sym_interface_statement_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5303),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5303),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5303),
-    [aux_sym_language_binding_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5303),
-    [aux_sym_contains_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token2] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5303),
-    [aux_sym_save_statement_token1] = ACTIONS(5303),
-    [aux_sym_private_statement_token1] = ACTIONS(5303),
-    [aux_sym_public_statement_token1] = ACTIONS(5303),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5303),
-    [aux_sym_common_statement_token1] = ACTIONS(5303),
-    [aux_sym_import_statement_token1] = ACTIONS(5303),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5303),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5303),
-    [aux_sym_derived_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5303),
-    [anon_sym_SEMI] = ACTIONS(5307),
-    [aux_sym_stop_statement_token1] = ACTIONS(5303),
-    [aux_sym_stop_statement_token2] = ACTIONS(5303),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5303),
-    [aux_sym_include_statement_token1] = ACTIONS(5303),
-    [aux_sym_data_statement_token1] = ACTIONS(5303),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5303),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5303),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5303),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5303),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5303),
-    [aux_sym_block_construct_token1] = ACTIONS(5303),
-    [aux_sym_associate_statement_token1] = ACTIONS(5303),
-    [aux_sym_format_statement_token1] = ACTIONS(5303),
-    [aux_sym_print_statement_token1] = ACTIONS(5303),
-    [aux_sym_open_statement_token1] = ACTIONS(5303),
-    [aux_sym_close_statement_token1] = ACTIONS(5303),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5303),
-    [aux_sym_enum_statement_token1] = ACTIONS(5303),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5303),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5303),
-    [aux_sym_entry_statement_token1] = ACTIONS(5303),
-    [aux_sym_logical_expression_token5] = ACTIONS(5307),
-    [anon_sym_DOT] = ACTIONS(5303),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5307),
-    [anon_sym_LBRACK] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5307),
-    [aux_sym_null_literal_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5303),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5303),
-    [aux_sym_identifier_token1] = ACTIONS(5303),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5307),
-    [sym__float_literal] = ACTIONS(5307),
-    [sym__boz_literal] = ACTIONS(5307),
-    [sym__string_literal] = ACTIONS(5307),
-    [sym__string_literal_kind] = ACTIONS(5307),
-  },
-  [1250] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5309),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1251] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5271),
-    [aux_sym_preproc_def_token1] = ACTIONS(5271),
-    [aux_sym_preproc_if_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5271),
-    [sym_preproc_directive] = ACTIONS(5271),
-    [anon_sym_LPAREN2] = ACTIONS(5271),
-    [sym_preproc_comment] = ACTIONS(5311),
-    [anon_sym_PLUS] = ACTIONS(5275),
-    [anon_sym_DASH] = ACTIONS(5275),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5271),
-    [aux_sym_interface_statement_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5271),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5271),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5271),
-    [aux_sym_language_binding_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5271),
-    [aux_sym_contains_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token2] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5271),
-    [aux_sym_save_statement_token1] = ACTIONS(5271),
-    [aux_sym_private_statement_token1] = ACTIONS(5271),
-    [aux_sym_public_statement_token1] = ACTIONS(5271),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5271),
-    [aux_sym_common_statement_token1] = ACTIONS(5271),
-    [aux_sym_import_statement_token1] = ACTIONS(5271),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5271),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5271),
-    [aux_sym_derived_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5271),
-    [anon_sym_SEMI] = ACTIONS(5275),
-    [aux_sym_stop_statement_token1] = ACTIONS(5271),
-    [aux_sym_stop_statement_token2] = ACTIONS(5271),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5271),
-    [aux_sym_include_statement_token1] = ACTIONS(5271),
-    [aux_sym_data_statement_token1] = ACTIONS(5271),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5271),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5271),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5271),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5271),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5271),
-    [aux_sym_block_construct_token1] = ACTIONS(5271),
-    [aux_sym_associate_statement_token1] = ACTIONS(5271),
-    [aux_sym_format_statement_token1] = ACTIONS(5271),
-    [aux_sym_print_statement_token1] = ACTIONS(5271),
-    [aux_sym_open_statement_token1] = ACTIONS(5271),
-    [aux_sym_close_statement_token1] = ACTIONS(5271),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5271),
-    [aux_sym_enum_statement_token1] = ACTIONS(5271),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5271),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5271),
-    [aux_sym_entry_statement_token1] = ACTIONS(5271),
-    [aux_sym_logical_expression_token5] = ACTIONS(5275),
-    [anon_sym_DOT] = ACTIONS(5271),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5275),
-    [anon_sym_LBRACK] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5275),
-    [aux_sym_null_literal_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5271),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5271),
-    [aux_sym_identifier_token1] = ACTIONS(5271),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5275),
-    [sym__float_literal] = ACTIONS(5275),
-    [sym__boz_literal] = ACTIONS(5275),
-    [sym__string_literal] = ACTIONS(5275),
-    [sym__string_literal_kind] = ACTIONS(5275),
-  },
-  [1252] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5313),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1253] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5315),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1254] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
-  },
-  [1255] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
-  },
-  [1256] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5317),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1257] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5319),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1258] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1259] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5321),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1260] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5253),
-    [aux_sym_preproc_def_token1] = ACTIONS(5253),
-    [aux_sym_preproc_if_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5253),
-    [sym_preproc_directive] = ACTIONS(5253),
-    [anon_sym_LPAREN2] = ACTIONS(5253),
-    [sym_preproc_comment] = ACTIONS(5323),
-    [anon_sym_PLUS] = ACTIONS(5257),
-    [anon_sym_DASH] = ACTIONS(5257),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5253),
-    [aux_sym_interface_statement_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5253),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5253),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5253),
-    [aux_sym_language_binding_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5253),
-    [aux_sym_contains_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token2] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5253),
-    [aux_sym_save_statement_token1] = ACTIONS(5253),
-    [aux_sym_private_statement_token1] = ACTIONS(5253),
-    [aux_sym_public_statement_token1] = ACTIONS(5253),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5253),
-    [aux_sym_common_statement_token1] = ACTIONS(5253),
-    [aux_sym_import_statement_token1] = ACTIONS(5253),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5253),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5253),
-    [aux_sym_derived_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5253),
-    [anon_sym_SEMI] = ACTIONS(5257),
-    [aux_sym_stop_statement_token1] = ACTIONS(5253),
-    [aux_sym_stop_statement_token2] = ACTIONS(5253),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5253),
-    [aux_sym_include_statement_token1] = ACTIONS(5253),
-    [aux_sym_data_statement_token1] = ACTIONS(5253),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5253),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5253),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5253),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5253),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5253),
-    [aux_sym_block_construct_token1] = ACTIONS(5253),
-    [aux_sym_associate_statement_token1] = ACTIONS(5253),
-    [aux_sym_format_statement_token1] = ACTIONS(5253),
-    [aux_sym_print_statement_token1] = ACTIONS(5253),
-    [aux_sym_open_statement_token1] = ACTIONS(5253),
-    [aux_sym_close_statement_token1] = ACTIONS(5253),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5253),
-    [aux_sym_enum_statement_token1] = ACTIONS(5253),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5253),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5253),
-    [aux_sym_entry_statement_token1] = ACTIONS(5253),
-    [aux_sym_logical_expression_token5] = ACTIONS(5257),
-    [anon_sym_DOT] = ACTIONS(5253),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5257),
-    [anon_sym_LBRACK] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5257),
-    [aux_sym_null_literal_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5253),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5253),
-    [aux_sym_identifier_token1] = ACTIONS(5253),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5257),
-    [sym__float_literal] = ACTIONS(5257),
-    [sym__boz_literal] = ACTIONS(5257),
-    [sym__string_literal] = ACTIONS(5257),
-    [sym__string_literal_kind] = ACTIONS(5257),
-  },
-  [1261] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5325),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1262] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
-  },
-  [1263] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
-  },
-  [1264] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5241),
-    [aux_sym_preproc_def_token1] = ACTIONS(5241),
-    [aux_sym_preproc_if_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5241),
-    [sym_preproc_directive] = ACTIONS(5241),
-    [anon_sym_LPAREN2] = ACTIONS(5241),
-    [sym_preproc_comment] = ACTIONS(5327),
-    [anon_sym_PLUS] = ACTIONS(5245),
-    [anon_sym_DASH] = ACTIONS(5245),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5241),
-    [aux_sym_interface_statement_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5241),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5241),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5241),
-    [aux_sym_language_binding_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5241),
-    [aux_sym_contains_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token2] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5241),
-    [aux_sym_save_statement_token1] = ACTIONS(5241),
-    [aux_sym_private_statement_token1] = ACTIONS(5241),
-    [aux_sym_public_statement_token1] = ACTIONS(5241),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5241),
-    [aux_sym_common_statement_token1] = ACTIONS(5241),
-    [aux_sym_import_statement_token1] = ACTIONS(5241),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5241),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5241),
-    [aux_sym_derived_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5241),
-    [anon_sym_SEMI] = ACTIONS(5245),
-    [aux_sym_stop_statement_token1] = ACTIONS(5241),
-    [aux_sym_stop_statement_token2] = ACTIONS(5241),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5241),
-    [aux_sym_include_statement_token1] = ACTIONS(5241),
-    [aux_sym_data_statement_token1] = ACTIONS(5241),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5241),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5241),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5241),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5241),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5241),
-    [aux_sym_block_construct_token1] = ACTIONS(5241),
-    [aux_sym_associate_statement_token1] = ACTIONS(5241),
-    [aux_sym_format_statement_token1] = ACTIONS(5241),
-    [aux_sym_print_statement_token1] = ACTIONS(5241),
-    [aux_sym_open_statement_token1] = ACTIONS(5241),
-    [aux_sym_close_statement_token1] = ACTIONS(5241),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5241),
-    [aux_sym_enum_statement_token1] = ACTIONS(5241),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5241),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5241),
-    [aux_sym_entry_statement_token1] = ACTIONS(5241),
-    [aux_sym_logical_expression_token5] = ACTIONS(5245),
-    [anon_sym_DOT] = ACTIONS(5241),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5245),
-    [anon_sym_LBRACK] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5245),
-    [aux_sym_null_literal_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5241),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5241),
-    [aux_sym_identifier_token1] = ACTIONS(5241),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5245),
-    [sym__float_literal] = ACTIONS(5245),
-    [sym__boz_literal] = ACTIONS(5245),
-    [sym__string_literal] = ACTIONS(5245),
-    [sym__string_literal_kind] = ACTIONS(5245),
-  },
-  [1265] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token2] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
-  },
-  [1266] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token2] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1267] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5329),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1268] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
-  },
-  [1269] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5331),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1270] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5333),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1271] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5335),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1272] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5337),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1273] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5339),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1274] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5341),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1275] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5343),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1276] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1277] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
-  },
-  [1278] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
-  },
-  [1279] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
-  },
-  [1280] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5181),
-    [aux_sym_preproc_def_token1] = ACTIONS(5181),
-    [aux_sym_preproc_if_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5181),
-    [sym_preproc_directive] = ACTIONS(5181),
-    [anon_sym_LPAREN2] = ACTIONS(5181),
-    [sym_preproc_comment] = ACTIONS(5345),
-    [anon_sym_PLUS] = ACTIONS(5185),
-    [anon_sym_DASH] = ACTIONS(5185),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5181),
-    [aux_sym_interface_statement_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5181),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5181),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5181),
-    [aux_sym_language_binding_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5181),
-    [aux_sym_contains_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token2] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5181),
-    [aux_sym_save_statement_token1] = ACTIONS(5181),
-    [aux_sym_private_statement_token1] = ACTIONS(5181),
-    [aux_sym_public_statement_token1] = ACTIONS(5181),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5181),
-    [aux_sym_common_statement_token1] = ACTIONS(5181),
-    [aux_sym_import_statement_token1] = ACTIONS(5181),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5181),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5181),
-    [aux_sym_derived_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5181),
-    [anon_sym_SEMI] = ACTIONS(5185),
-    [aux_sym_stop_statement_token1] = ACTIONS(5181),
-    [aux_sym_stop_statement_token2] = ACTIONS(5181),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5181),
-    [aux_sym_include_statement_token1] = ACTIONS(5181),
-    [aux_sym_data_statement_token1] = ACTIONS(5181),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5181),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5181),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5181),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5181),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5181),
-    [aux_sym_block_construct_token1] = ACTIONS(5181),
-    [aux_sym_associate_statement_token1] = ACTIONS(5181),
-    [aux_sym_format_statement_token1] = ACTIONS(5181),
-    [aux_sym_print_statement_token1] = ACTIONS(5181),
-    [aux_sym_open_statement_token1] = ACTIONS(5181),
-    [aux_sym_close_statement_token1] = ACTIONS(5181),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5181),
-    [aux_sym_enum_statement_token1] = ACTIONS(5181),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5181),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5181),
-    [aux_sym_entry_statement_token1] = ACTIONS(5181),
-    [aux_sym_logical_expression_token5] = ACTIONS(5185),
-    [anon_sym_DOT] = ACTIONS(5181),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5185),
-    [anon_sym_LBRACK] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5185),
-    [aux_sym_null_literal_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5181),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5181),
-    [aux_sym_identifier_token1] = ACTIONS(5181),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5185),
-    [sym__float_literal] = ACTIONS(5185),
-    [sym__boz_literal] = ACTIONS(5185),
-    [sym__string_literal] = ACTIONS(5185),
-    [sym__string_literal_kind] = ACTIONS(5185),
-  },
-  [1281] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [sym_preproc_comment] = ACTIONS(5347),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1282] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
-  },
-  [1283] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
-  },
-  [1284] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5349),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1285] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5351),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1286] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5189),
-    [aux_sym_preproc_def_token1] = ACTIONS(5189),
-    [aux_sym_preproc_if_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5189),
-    [sym_preproc_directive] = ACTIONS(5189),
-    [anon_sym_LPAREN2] = ACTIONS(5189),
-    [sym_preproc_comment] = ACTIONS(5353),
-    [anon_sym_PLUS] = ACTIONS(5193),
-    [anon_sym_DASH] = ACTIONS(5193),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5189),
-    [aux_sym_interface_statement_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5189),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5189),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5189),
-    [aux_sym_language_binding_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5189),
-    [aux_sym_contains_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token2] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5189),
-    [aux_sym_save_statement_token1] = ACTIONS(5189),
-    [aux_sym_private_statement_token1] = ACTIONS(5189),
-    [aux_sym_public_statement_token1] = ACTIONS(5189),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5189),
-    [aux_sym_common_statement_token1] = ACTIONS(5189),
-    [aux_sym_import_statement_token1] = ACTIONS(5189),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5189),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5189),
-    [aux_sym_derived_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5189),
-    [anon_sym_SEMI] = ACTIONS(5193),
-    [aux_sym_stop_statement_token1] = ACTIONS(5189),
-    [aux_sym_stop_statement_token2] = ACTIONS(5189),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5189),
-    [aux_sym_include_statement_token1] = ACTIONS(5189),
-    [aux_sym_data_statement_token1] = ACTIONS(5189),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5189),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5189),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5189),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5189),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5189),
-    [aux_sym_block_construct_token1] = ACTIONS(5189),
-    [aux_sym_associate_statement_token1] = ACTIONS(5189),
-    [aux_sym_format_statement_token1] = ACTIONS(5189),
-    [aux_sym_print_statement_token1] = ACTIONS(5189),
-    [aux_sym_open_statement_token1] = ACTIONS(5189),
-    [aux_sym_close_statement_token1] = ACTIONS(5189),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5189),
-    [aux_sym_enum_statement_token1] = ACTIONS(5189),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5189),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5189),
-    [aux_sym_entry_statement_token1] = ACTIONS(5189),
-    [aux_sym_logical_expression_token5] = ACTIONS(5193),
-    [anon_sym_DOT] = ACTIONS(5189),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5193),
-    [anon_sym_LBRACK] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5193),
-    [aux_sym_null_literal_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5189),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5189),
-    [aux_sym_identifier_token1] = ACTIONS(5189),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5193),
-    [sym__float_literal] = ACTIONS(5193),
-    [sym__boz_literal] = ACTIONS(5193),
-    [sym__string_literal] = ACTIONS(5193),
-    [sym__string_literal_kind] = ACTIONS(5193),
-  },
-  [1287] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5181),
-    [aux_sym_preproc_def_token1] = ACTIONS(5181),
-    [aux_sym_preproc_if_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5181),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5181),
-    [sym_preproc_directive] = ACTIONS(5181),
-    [anon_sym_LPAREN2] = ACTIONS(5181),
-    [sym_preproc_comment] = ACTIONS(5355),
-    [anon_sym_PLUS] = ACTIONS(5185),
-    [anon_sym_DASH] = ACTIONS(5185),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5181),
-    [aux_sym_interface_statement_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5181),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5181),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5181),
-    [aux_sym_language_binding_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5181),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5181),
-    [aux_sym_contains_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token1] = ACTIONS(5181),
-    [aux_sym_use_statement_token2] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5181),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5181),
-    [aux_sym_save_statement_token1] = ACTIONS(5181),
-    [aux_sym_private_statement_token1] = ACTIONS(5181),
-    [aux_sym_public_statement_token1] = ACTIONS(5181),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5181),
-    [aux_sym_common_statement_token1] = ACTIONS(5181),
-    [aux_sym_import_statement_token1] = ACTIONS(5181),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5181),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5181),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5181),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5181),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5181),
-    [aux_sym_derived_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token1] = ACTIONS(5181),
-    [aux_sym_declared_type_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5181),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5181),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5181),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5181),
-    [anon_sym_SEMI] = ACTIONS(5185),
-    [aux_sym_stop_statement_token1] = ACTIONS(5181),
-    [aux_sym_stop_statement_token2] = ACTIONS(5181),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5181),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5181),
-    [aux_sym_include_statement_token1] = ACTIONS(5181),
-    [aux_sym_data_statement_token1] = ACTIONS(5181),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5181),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5181),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5181),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5181),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5181),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5181),
-    [aux_sym_block_construct_token1] = ACTIONS(5181),
-    [aux_sym_associate_statement_token1] = ACTIONS(5181),
-    [aux_sym_format_statement_token1] = ACTIONS(5181),
-    [aux_sym_print_statement_token1] = ACTIONS(5181),
-    [aux_sym_open_statement_token1] = ACTIONS(5181),
-    [aux_sym_close_statement_token1] = ACTIONS(5181),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5181),
-    [aux_sym_enum_statement_token1] = ACTIONS(5181),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5181),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5181),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5181),
-    [aux_sym_entry_statement_token1] = ACTIONS(5181),
-    [aux_sym_logical_expression_token5] = ACTIONS(5185),
-    [anon_sym_DOT] = ACTIONS(5181),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5185),
-    [anon_sym_LBRACK] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5185),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5185),
-    [aux_sym_null_literal_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5181),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5181),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5181),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5181),
-    [aux_sym_identifier_token1] = ACTIONS(5181),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5185),
-    [sym__float_literal] = ACTIONS(5185),
-    [sym__boz_literal] = ACTIONS(5185),
-    [sym__string_literal] = ACTIONS(5185),
-    [sym__string_literal_kind] = ACTIONS(5185),
-  },
-  [1288] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [sym_preproc_comment] = ACTIONS(5357),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1289] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [sym_preproc_comment] = ACTIONS(5359),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1290] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5197),
-    [aux_sym_preproc_def_token1] = ACTIONS(5197),
-    [aux_sym_preproc_if_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5197),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5197),
-    [sym_preproc_directive] = ACTIONS(5197),
-    [anon_sym_LPAREN2] = ACTIONS(5197),
-    [sym_preproc_comment] = ACTIONS(5361),
-    [anon_sym_PLUS] = ACTIONS(5201),
-    [anon_sym_DASH] = ACTIONS(5201),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5197),
-    [aux_sym_interface_statement_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5197),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5197),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5197),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5197),
-    [aux_sym_language_binding_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5197),
-    [aux_sym_contains_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token1] = ACTIONS(5197),
-    [aux_sym_use_statement_token2] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5197),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5197),
-    [aux_sym_save_statement_token1] = ACTIONS(5197),
-    [aux_sym_private_statement_token1] = ACTIONS(5197),
-    [aux_sym_public_statement_token1] = ACTIONS(5197),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5197),
-    [aux_sym_common_statement_token1] = ACTIONS(5197),
-    [aux_sym_import_statement_token1] = ACTIONS(5197),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5197),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5197),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5197),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5197),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5197),
-    [aux_sym_derived_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token1] = ACTIONS(5197),
-    [aux_sym_declared_type_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5197),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5197),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5197),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5197),
-    [anon_sym_SEMI] = ACTIONS(5201),
-    [aux_sym_stop_statement_token1] = ACTIONS(5197),
-    [aux_sym_stop_statement_token2] = ACTIONS(5197),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5197),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5197),
-    [aux_sym_include_statement_token1] = ACTIONS(5197),
-    [aux_sym_data_statement_token1] = ACTIONS(5197),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5197),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5197),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5197),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5197),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5197),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5197),
-    [aux_sym_block_construct_token1] = ACTIONS(5197),
-    [aux_sym_associate_statement_token1] = ACTIONS(5197),
-    [aux_sym_format_statement_token1] = ACTIONS(5197),
-    [aux_sym_print_statement_token1] = ACTIONS(5197),
-    [aux_sym_open_statement_token1] = ACTIONS(5197),
-    [aux_sym_close_statement_token1] = ACTIONS(5197),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5197),
-    [aux_sym_enum_statement_token1] = ACTIONS(5197),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5197),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5197),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5197),
-    [aux_sym_entry_statement_token1] = ACTIONS(5197),
-    [aux_sym_logical_expression_token5] = ACTIONS(5201),
-    [anon_sym_DOT] = ACTIONS(5197),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5201),
-    [anon_sym_LBRACK] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5201),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5201),
-    [aux_sym_null_literal_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5197),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5197),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5197),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5197),
-    [aux_sym_identifier_token1] = ACTIONS(5197),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5201),
-    [sym__float_literal] = ACTIONS(5201),
-    [sym__boz_literal] = ACTIONS(5201),
-    [sym__string_literal] = ACTIONS(5201),
-    [sym__string_literal_kind] = ACTIONS(5201),
-  },
-  [1291] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1292] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5363),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1293] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1294] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5365),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1295] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5367),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1296] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5203),
-    [aux_sym_preproc_def_token1] = ACTIONS(5203),
-    [aux_sym_preproc_if_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5203),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5203),
-    [sym_preproc_directive] = ACTIONS(5203),
-    [anon_sym_LPAREN2] = ACTIONS(5203),
-    [sym_preproc_comment] = ACTIONS(5369),
-    [anon_sym_PLUS] = ACTIONS(5207),
-    [anon_sym_DASH] = ACTIONS(5207),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5203),
-    [aux_sym_interface_statement_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5203),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5203),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5203),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5203),
-    [aux_sym_language_binding_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5203),
-    [aux_sym_contains_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token1] = ACTIONS(5203),
-    [aux_sym_use_statement_token2] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5203),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5203),
-    [aux_sym_save_statement_token1] = ACTIONS(5203),
-    [aux_sym_private_statement_token1] = ACTIONS(5203),
-    [aux_sym_public_statement_token1] = ACTIONS(5203),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5203),
-    [aux_sym_common_statement_token1] = ACTIONS(5203),
-    [aux_sym_import_statement_token1] = ACTIONS(5203),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5203),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5203),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5203),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5203),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5203),
-    [aux_sym_derived_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token1] = ACTIONS(5203),
-    [aux_sym_declared_type_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5203),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5203),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5203),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5203),
-    [anon_sym_SEMI] = ACTIONS(5207),
-    [aux_sym_stop_statement_token1] = ACTIONS(5203),
-    [aux_sym_stop_statement_token2] = ACTIONS(5203),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5203),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5203),
-    [aux_sym_include_statement_token1] = ACTIONS(5203),
-    [aux_sym_data_statement_token1] = ACTIONS(5203),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5203),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5203),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5203),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5203),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5203),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5203),
-    [aux_sym_block_construct_token1] = ACTIONS(5203),
-    [aux_sym_associate_statement_token1] = ACTIONS(5203),
-    [aux_sym_format_statement_token1] = ACTIONS(5203),
-    [aux_sym_print_statement_token1] = ACTIONS(5203),
-    [aux_sym_open_statement_token1] = ACTIONS(5203),
-    [aux_sym_close_statement_token1] = ACTIONS(5203),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5203),
-    [aux_sym_enum_statement_token1] = ACTIONS(5203),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5203),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5203),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5203),
-    [aux_sym_entry_statement_token1] = ACTIONS(5203),
-    [aux_sym_logical_expression_token5] = ACTIONS(5207),
-    [anon_sym_DOT] = ACTIONS(5203),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5207),
-    [anon_sym_LBRACK] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5207),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5207),
-    [aux_sym_null_literal_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5203),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5203),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5203),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5203),
-    [aux_sym_identifier_token1] = ACTIONS(5203),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5207),
-    [sym__float_literal] = ACTIONS(5207),
-    [sym__boz_literal] = ACTIONS(5207),
-    [sym__string_literal] = ACTIONS(5207),
-    [sym__string_literal_kind] = ACTIONS(5207),
-  },
-  [1297] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5215),
-    [aux_sym_preproc_def_token1] = ACTIONS(5215),
-    [aux_sym_preproc_if_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5215),
-    [sym_preproc_directive] = ACTIONS(5215),
-    [anon_sym_LPAREN2] = ACTIONS(5215),
-    [sym_preproc_comment] = ACTIONS(5371),
-    [anon_sym_PLUS] = ACTIONS(5219),
-    [anon_sym_DASH] = ACTIONS(5219),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5215),
-    [aux_sym_interface_statement_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5215),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5215),
-    [aux_sym_language_binding_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5215),
-    [aux_sym_contains_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token2] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5215),
-    [aux_sym_save_statement_token1] = ACTIONS(5215),
-    [aux_sym_private_statement_token1] = ACTIONS(5215),
-    [aux_sym_public_statement_token1] = ACTIONS(5215),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5215),
-    [aux_sym_common_statement_token1] = ACTIONS(5215),
-    [aux_sym_import_statement_token1] = ACTIONS(5215),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5215),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5215),
-    [aux_sym_derived_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5215),
-    [anon_sym_SEMI] = ACTIONS(5219),
-    [aux_sym_stop_statement_token1] = ACTIONS(5215),
-    [aux_sym_stop_statement_token2] = ACTIONS(5215),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5215),
-    [aux_sym_include_statement_token1] = ACTIONS(5215),
-    [aux_sym_data_statement_token1] = ACTIONS(5215),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5215),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5215),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5215),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5215),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5215),
-    [aux_sym_block_construct_token1] = ACTIONS(5215),
-    [aux_sym_associate_statement_token1] = ACTIONS(5215),
-    [aux_sym_format_statement_token1] = ACTIONS(5215),
-    [aux_sym_print_statement_token1] = ACTIONS(5215),
-    [aux_sym_open_statement_token1] = ACTIONS(5215),
-    [aux_sym_close_statement_token1] = ACTIONS(5215),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5215),
-    [aux_sym_enum_statement_token1] = ACTIONS(5215),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5215),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5215),
-    [aux_sym_entry_statement_token1] = ACTIONS(5215),
-    [aux_sym_logical_expression_token5] = ACTIONS(5219),
-    [anon_sym_DOT] = ACTIONS(5215),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5219),
-    [anon_sym_LBRACK] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5219),
-    [aux_sym_null_literal_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5215),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5215),
-    [aux_sym_identifier_token1] = ACTIONS(5215),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5219),
-    [sym__float_literal] = ACTIONS(5219),
-    [sym__boz_literal] = ACTIONS(5219),
-    [sym__string_literal] = ACTIONS(5219),
-    [sym__string_literal_kind] = ACTIONS(5219),
-  },
-  [1298] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5373),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1299] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [sym_preproc_comment] = ACTIONS(5375),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1300] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5377),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1301] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5379),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1302] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5381),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1303] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5303),
-    [aux_sym_preproc_def_token1] = ACTIONS(5303),
-    [aux_sym_preproc_if_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5303),
-    [sym_preproc_directive] = ACTIONS(5303),
-    [anon_sym_LPAREN2] = ACTIONS(5303),
-    [sym_preproc_comment] = ACTIONS(5383),
-    [anon_sym_PLUS] = ACTIONS(5307),
-    [anon_sym_DASH] = ACTIONS(5307),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5303),
-    [aux_sym_interface_statement_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5303),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5303),
-    [aux_sym_language_binding_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5303),
-    [aux_sym_contains_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token2] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5303),
-    [aux_sym_save_statement_token1] = ACTIONS(5303),
-    [aux_sym_private_statement_token1] = ACTIONS(5303),
-    [aux_sym_public_statement_token1] = ACTIONS(5303),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5303),
-    [aux_sym_common_statement_token1] = ACTIONS(5303),
-    [aux_sym_import_statement_token1] = ACTIONS(5303),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5303),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5303),
-    [aux_sym_derived_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5303),
-    [anon_sym_SEMI] = ACTIONS(5307),
-    [aux_sym_stop_statement_token1] = ACTIONS(5303),
-    [aux_sym_stop_statement_token2] = ACTIONS(5303),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5303),
-    [aux_sym_include_statement_token1] = ACTIONS(5303),
-    [aux_sym_data_statement_token1] = ACTIONS(5303),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5303),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5303),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5303),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5303),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5303),
-    [aux_sym_block_construct_token1] = ACTIONS(5303),
-    [aux_sym_associate_statement_token1] = ACTIONS(5303),
-    [aux_sym_format_statement_token1] = ACTIONS(5303),
-    [aux_sym_print_statement_token1] = ACTIONS(5303),
-    [aux_sym_open_statement_token1] = ACTIONS(5303),
-    [aux_sym_close_statement_token1] = ACTIONS(5303),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5303),
-    [aux_sym_enum_statement_token1] = ACTIONS(5303),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5303),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5303),
-    [aux_sym_entry_statement_token1] = ACTIONS(5303),
-    [aux_sym_logical_expression_token5] = ACTIONS(5307),
-    [anon_sym_DOT] = ACTIONS(5303),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5307),
-    [anon_sym_LBRACK] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5307),
-    [aux_sym_null_literal_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5303),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5303),
-    [aux_sym_identifier_token1] = ACTIONS(5303),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5307),
-    [sym__float_literal] = ACTIONS(5307),
-    [sym__boz_literal] = ACTIONS(5307),
-    [sym__string_literal] = ACTIONS(5307),
-    [sym__string_literal_kind] = ACTIONS(5307),
-  },
-  [1304] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5385),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1305] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5189),
-    [aux_sym_preproc_def_token1] = ACTIONS(5189),
-    [aux_sym_preproc_if_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5189),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5189),
-    [sym_preproc_directive] = ACTIONS(5189),
-    [anon_sym_LPAREN2] = ACTIONS(5189),
-    [sym_preproc_comment] = ACTIONS(5387),
-    [anon_sym_PLUS] = ACTIONS(5193),
-    [anon_sym_DASH] = ACTIONS(5193),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5189),
-    [aux_sym_interface_statement_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5189),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5189),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5189),
-    [aux_sym_language_binding_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5189),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5189),
-    [aux_sym_contains_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token1] = ACTIONS(5189),
-    [aux_sym_use_statement_token2] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5189),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5189),
-    [aux_sym_save_statement_token1] = ACTIONS(5189),
-    [aux_sym_private_statement_token1] = ACTIONS(5189),
-    [aux_sym_public_statement_token1] = ACTIONS(5189),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5189),
-    [aux_sym_common_statement_token1] = ACTIONS(5189),
-    [aux_sym_import_statement_token1] = ACTIONS(5189),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5189),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5189),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5189),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5189),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5189),
-    [aux_sym_derived_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token1] = ACTIONS(5189),
-    [aux_sym_declared_type_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5189),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5189),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5189),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5189),
-    [anon_sym_SEMI] = ACTIONS(5193),
-    [aux_sym_stop_statement_token1] = ACTIONS(5189),
-    [aux_sym_stop_statement_token2] = ACTIONS(5189),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5189),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5189),
-    [aux_sym_include_statement_token1] = ACTIONS(5189),
-    [aux_sym_data_statement_token1] = ACTIONS(5189),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5189),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5189),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5189),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5189),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5189),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5189),
-    [aux_sym_block_construct_token1] = ACTIONS(5189),
-    [aux_sym_associate_statement_token1] = ACTIONS(5189),
-    [aux_sym_format_statement_token1] = ACTIONS(5189),
-    [aux_sym_print_statement_token1] = ACTIONS(5189),
-    [aux_sym_open_statement_token1] = ACTIONS(5189),
-    [aux_sym_close_statement_token1] = ACTIONS(5189),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5189),
-    [aux_sym_enum_statement_token1] = ACTIONS(5189),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5189),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5189),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5189),
-    [aux_sym_entry_statement_token1] = ACTIONS(5189),
-    [aux_sym_logical_expression_token5] = ACTIONS(5193),
-    [anon_sym_DOT] = ACTIONS(5189),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5193),
-    [anon_sym_LBRACK] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5193),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5193),
-    [aux_sym_null_literal_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5189),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5189),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5189),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5189),
-    [aux_sym_identifier_token1] = ACTIONS(5189),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5193),
-    [sym__float_literal] = ACTIONS(5193),
-    [sym__boz_literal] = ACTIONS(5193),
-    [sym__string_literal] = ACTIONS(5193),
-    [sym__string_literal_kind] = ACTIONS(5193),
-  },
-  [1306] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5271),
-    [aux_sym_preproc_def_token1] = ACTIONS(5271),
-    [aux_sym_preproc_if_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5271),
-    [sym_preproc_directive] = ACTIONS(5271),
-    [anon_sym_LPAREN2] = ACTIONS(5271),
-    [sym_preproc_comment] = ACTIONS(5389),
-    [anon_sym_PLUS] = ACTIONS(5275),
-    [anon_sym_DASH] = ACTIONS(5275),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5271),
-    [aux_sym_interface_statement_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5271),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5271),
-    [aux_sym_language_binding_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5271),
-    [aux_sym_contains_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token2] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5271),
-    [aux_sym_save_statement_token1] = ACTIONS(5271),
-    [aux_sym_private_statement_token1] = ACTIONS(5271),
-    [aux_sym_public_statement_token1] = ACTIONS(5271),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5271),
-    [aux_sym_common_statement_token1] = ACTIONS(5271),
-    [aux_sym_import_statement_token1] = ACTIONS(5271),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5271),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5271),
-    [aux_sym_derived_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5271),
-    [anon_sym_SEMI] = ACTIONS(5275),
-    [aux_sym_stop_statement_token1] = ACTIONS(5271),
-    [aux_sym_stop_statement_token2] = ACTIONS(5271),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5271),
-    [aux_sym_include_statement_token1] = ACTIONS(5271),
-    [aux_sym_data_statement_token1] = ACTIONS(5271),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5271),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5271),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5271),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5271),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5271),
-    [aux_sym_block_construct_token1] = ACTIONS(5271),
-    [aux_sym_associate_statement_token1] = ACTIONS(5271),
-    [aux_sym_format_statement_token1] = ACTIONS(5271),
-    [aux_sym_print_statement_token1] = ACTIONS(5271),
-    [aux_sym_open_statement_token1] = ACTIONS(5271),
-    [aux_sym_close_statement_token1] = ACTIONS(5271),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5271),
-    [aux_sym_enum_statement_token1] = ACTIONS(5271),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5271),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5271),
-    [aux_sym_entry_statement_token1] = ACTIONS(5271),
-    [aux_sym_logical_expression_token5] = ACTIONS(5275),
-    [anon_sym_DOT] = ACTIONS(5271),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5275),
-    [anon_sym_LBRACK] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5275),
-    [aux_sym_null_literal_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5271),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5271),
-    [aux_sym_identifier_token1] = ACTIONS(5271),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5275),
-    [sym__float_literal] = ACTIONS(5275),
-    [sym__boz_literal] = ACTIONS(5275),
-    [sym__string_literal] = ACTIONS(5275),
-    [sym__string_literal_kind] = ACTIONS(5275),
-  },
-  [1307] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5391),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1308] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5393),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1309] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
-  },
-  [1310] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1311] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5395),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1312] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1313] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
-  },
-  [1314] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5397),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1315] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
-  },
-  [1316] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
-  },
-  [1317] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5215),
-    [aux_sym_preproc_def_token1] = ACTIONS(5215),
-    [aux_sym_preproc_if_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5215),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5215),
-    [sym_preproc_directive] = ACTIONS(5215),
-    [anon_sym_LPAREN2] = ACTIONS(5215),
-    [sym_preproc_comment] = ACTIONS(5399),
-    [anon_sym_PLUS] = ACTIONS(5219),
-    [anon_sym_DASH] = ACTIONS(5219),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5215),
-    [aux_sym_interface_statement_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5215),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5215),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5215),
-    [aux_sym_language_binding_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5215),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5215),
-    [aux_sym_contains_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token1] = ACTIONS(5215),
-    [aux_sym_use_statement_token2] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5215),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5215),
-    [aux_sym_save_statement_token1] = ACTIONS(5215),
-    [aux_sym_private_statement_token1] = ACTIONS(5215),
-    [aux_sym_public_statement_token1] = ACTIONS(5215),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5215),
-    [aux_sym_common_statement_token1] = ACTIONS(5215),
-    [aux_sym_import_statement_token1] = ACTIONS(5215),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5215),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5215),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5215),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5215),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5215),
-    [aux_sym_derived_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token1] = ACTIONS(5215),
-    [aux_sym_declared_type_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5215),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5215),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5215),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5215),
-    [anon_sym_SEMI] = ACTIONS(5219),
-    [aux_sym_stop_statement_token1] = ACTIONS(5215),
-    [aux_sym_stop_statement_token2] = ACTIONS(5215),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5215),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5215),
-    [aux_sym_include_statement_token1] = ACTIONS(5215),
-    [aux_sym_data_statement_token1] = ACTIONS(5215),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5215),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5215),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5215),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5215),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5215),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5215),
-    [aux_sym_block_construct_token1] = ACTIONS(5215),
-    [aux_sym_associate_statement_token1] = ACTIONS(5215),
-    [aux_sym_format_statement_token1] = ACTIONS(5215),
-    [aux_sym_print_statement_token1] = ACTIONS(5215),
-    [aux_sym_open_statement_token1] = ACTIONS(5215),
-    [aux_sym_close_statement_token1] = ACTIONS(5215),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5215),
-    [aux_sym_enum_statement_token1] = ACTIONS(5215),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5215),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5215),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5215),
-    [aux_sym_entry_statement_token1] = ACTIONS(5215),
-    [aux_sym_logical_expression_token5] = ACTIONS(5219),
-    [anon_sym_DOT] = ACTIONS(5215),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5219),
-    [anon_sym_LBRACK] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5219),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5219),
-    [aux_sym_null_literal_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5215),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5215),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5215),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5215),
-    [aux_sym_identifier_token1] = ACTIONS(5215),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5219),
-    [sym__float_literal] = ACTIONS(5219),
-    [sym__boz_literal] = ACTIONS(5219),
-    [sym__string_literal] = ACTIONS(5219),
-    [sym__string_literal_kind] = ACTIONS(5219),
-  },
-  [1318] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [sym_preproc_comment] = ACTIONS(5401),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1319] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5303),
-    [aux_sym_preproc_def_token1] = ACTIONS(5303),
-    [aux_sym_preproc_if_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5303),
-    [sym_preproc_directive] = ACTIONS(5303),
-    [anon_sym_LPAREN2] = ACTIONS(5303),
-    [sym_preproc_comment] = ACTIONS(5403),
-    [anon_sym_PLUS] = ACTIONS(5307),
-    [anon_sym_DASH] = ACTIONS(5307),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5303),
-    [aux_sym_interface_statement_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5303),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5303),
-    [aux_sym_language_binding_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5303),
-    [aux_sym_contains_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token2] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5303),
-    [aux_sym_save_statement_token1] = ACTIONS(5303),
-    [aux_sym_private_statement_token1] = ACTIONS(5303),
-    [aux_sym_public_statement_token1] = ACTIONS(5303),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5303),
-    [aux_sym_common_statement_token1] = ACTIONS(5303),
-    [aux_sym_import_statement_token1] = ACTIONS(5303),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5303),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5303),
-    [aux_sym_derived_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5303),
-    [anon_sym_SEMI] = ACTIONS(5307),
-    [aux_sym_stop_statement_token1] = ACTIONS(5303),
-    [aux_sym_stop_statement_token2] = ACTIONS(5303),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5303),
-    [aux_sym_include_statement_token1] = ACTIONS(5303),
-    [aux_sym_data_statement_token1] = ACTIONS(5303),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5303),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5303),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5303),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5303),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5303),
-    [aux_sym_block_construct_token1] = ACTIONS(5303),
-    [aux_sym_associate_statement_token1] = ACTIONS(5303),
-    [aux_sym_format_statement_token1] = ACTIONS(5303),
-    [aux_sym_print_statement_token1] = ACTIONS(5303),
-    [aux_sym_open_statement_token1] = ACTIONS(5303),
-    [aux_sym_close_statement_token1] = ACTIONS(5303),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5303),
-    [aux_sym_enum_statement_token1] = ACTIONS(5303),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5303),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5303),
-    [aux_sym_entry_statement_token1] = ACTIONS(5303),
-    [aux_sym_logical_expression_token5] = ACTIONS(5307),
-    [anon_sym_DOT] = ACTIONS(5303),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5307),
-    [anon_sym_LBRACK] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5307),
-    [aux_sym_null_literal_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5303),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5303),
-    [aux_sym_identifier_token1] = ACTIONS(5303),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5307),
-    [sym__float_literal] = ACTIONS(5307),
-    [sym__boz_literal] = ACTIONS(5307),
-    [sym__string_literal] = ACTIONS(5307),
-    [sym__string_literal_kind] = ACTIONS(5307),
-  },
-  [1320] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1321] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1322] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5253),
-    [aux_sym_preproc_def_token1] = ACTIONS(5253),
-    [aux_sym_preproc_if_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5253),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5253),
-    [sym_preproc_directive] = ACTIONS(5253),
-    [anon_sym_LPAREN2] = ACTIONS(5253),
-    [sym_preproc_comment] = ACTIONS(5405),
-    [anon_sym_PLUS] = ACTIONS(5257),
-    [anon_sym_DASH] = ACTIONS(5257),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5253),
-    [aux_sym_interface_statement_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5253),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5253),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5253),
-    [aux_sym_language_binding_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5253),
-    [aux_sym_contains_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token1] = ACTIONS(5253),
-    [aux_sym_use_statement_token2] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5253),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5253),
-    [aux_sym_save_statement_token1] = ACTIONS(5253),
-    [aux_sym_private_statement_token1] = ACTIONS(5253),
-    [aux_sym_public_statement_token1] = ACTIONS(5253),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5253),
-    [aux_sym_common_statement_token1] = ACTIONS(5253),
-    [aux_sym_import_statement_token1] = ACTIONS(5253),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5253),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5253),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5253),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5253),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5253),
-    [aux_sym_derived_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token1] = ACTIONS(5253),
-    [aux_sym_declared_type_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5253),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5253),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5253),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5253),
-    [anon_sym_SEMI] = ACTIONS(5257),
-    [aux_sym_stop_statement_token1] = ACTIONS(5253),
-    [aux_sym_stop_statement_token2] = ACTIONS(5253),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5253),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5253),
-    [aux_sym_include_statement_token1] = ACTIONS(5253),
-    [aux_sym_data_statement_token1] = ACTIONS(5253),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5253),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5253),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5253),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5253),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5253),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5253),
-    [aux_sym_block_construct_token1] = ACTIONS(5253),
-    [aux_sym_associate_statement_token1] = ACTIONS(5253),
-    [aux_sym_format_statement_token1] = ACTIONS(5253),
-    [aux_sym_print_statement_token1] = ACTIONS(5253),
-    [aux_sym_open_statement_token1] = ACTIONS(5253),
-    [aux_sym_close_statement_token1] = ACTIONS(5253),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5253),
-    [aux_sym_enum_statement_token1] = ACTIONS(5253),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5253),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5253),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5253),
-    [aux_sym_entry_statement_token1] = ACTIONS(5253),
-    [aux_sym_logical_expression_token5] = ACTIONS(5257),
-    [anon_sym_DOT] = ACTIONS(5253),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5257),
-    [anon_sym_LBRACK] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5257),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5257),
-    [aux_sym_null_literal_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5253),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5253),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5253),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5253),
-    [aux_sym_identifier_token1] = ACTIONS(5253),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5257),
-    [sym__float_literal] = ACTIONS(5257),
-    [sym__boz_literal] = ACTIONS(5257),
-    [sym__string_literal] = ACTIONS(5257),
-    [sym__string_literal_kind] = ACTIONS(5257),
-  },
-  [1323] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [sym_preproc_comment] = ACTIONS(5407),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1324] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [sym_preproc_comment] = ACTIONS(5409),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1325] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5241),
-    [aux_sym_preproc_def_token1] = ACTIONS(5241),
-    [aux_sym_preproc_if_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5241),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5241),
-    [sym_preproc_directive] = ACTIONS(5241),
-    [anon_sym_LPAREN2] = ACTIONS(5241),
-    [sym_preproc_comment] = ACTIONS(5411),
-    [anon_sym_PLUS] = ACTIONS(5245),
-    [anon_sym_DASH] = ACTIONS(5245),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5241),
-    [aux_sym_interface_statement_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5241),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5241),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5241),
-    [aux_sym_language_binding_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5241),
-    [aux_sym_contains_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token1] = ACTIONS(5241),
-    [aux_sym_use_statement_token2] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5241),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5241),
-    [aux_sym_save_statement_token1] = ACTIONS(5241),
-    [aux_sym_private_statement_token1] = ACTIONS(5241),
-    [aux_sym_public_statement_token1] = ACTIONS(5241),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5241),
-    [aux_sym_common_statement_token1] = ACTIONS(5241),
-    [aux_sym_import_statement_token1] = ACTIONS(5241),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5241),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5241),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5241),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5241),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5241),
-    [aux_sym_derived_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token1] = ACTIONS(5241),
-    [aux_sym_declared_type_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5241),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5241),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5241),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5241),
-    [anon_sym_SEMI] = ACTIONS(5245),
-    [aux_sym_stop_statement_token1] = ACTIONS(5241),
-    [aux_sym_stop_statement_token2] = ACTIONS(5241),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5241),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5241),
-    [aux_sym_include_statement_token1] = ACTIONS(5241),
-    [aux_sym_data_statement_token1] = ACTIONS(5241),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5241),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5241),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5241),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5241),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5241),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5241),
-    [aux_sym_block_construct_token1] = ACTIONS(5241),
-    [aux_sym_associate_statement_token1] = ACTIONS(5241),
-    [aux_sym_format_statement_token1] = ACTIONS(5241),
-    [aux_sym_print_statement_token1] = ACTIONS(5241),
-    [aux_sym_open_statement_token1] = ACTIONS(5241),
-    [aux_sym_close_statement_token1] = ACTIONS(5241),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5241),
-    [aux_sym_enum_statement_token1] = ACTIONS(5241),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5241),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5241),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5241),
-    [aux_sym_entry_statement_token1] = ACTIONS(5241),
-    [aux_sym_logical_expression_token5] = ACTIONS(5245),
-    [anon_sym_DOT] = ACTIONS(5241),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5245),
-    [anon_sym_LBRACK] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5245),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5245),
-    [aux_sym_null_literal_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5241),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5241),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5241),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5241),
-    [aux_sym_identifier_token1] = ACTIONS(5241),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5245),
-    [sym__float_literal] = ACTIONS(5245),
-    [sym__boz_literal] = ACTIONS(5245),
-    [sym__string_literal] = ACTIONS(5245),
-    [sym__string_literal_kind] = ACTIONS(5245),
-  },
-  [1326] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5413),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1327] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5303),
-    [aux_sym_preproc_def_token1] = ACTIONS(5303),
-    [aux_sym_preproc_if_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5303),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5303),
-    [sym_preproc_directive] = ACTIONS(5303),
-    [anon_sym_LPAREN2] = ACTIONS(5303),
-    [sym_preproc_comment] = ACTIONS(5415),
-    [anon_sym_PLUS] = ACTIONS(5307),
-    [anon_sym_DASH] = ACTIONS(5307),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5303),
-    [aux_sym_interface_statement_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5303),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5303),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5303),
-    [aux_sym_language_binding_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5303),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5303),
-    [aux_sym_contains_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token1] = ACTIONS(5303),
-    [aux_sym_use_statement_token2] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5303),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5303),
-    [aux_sym_save_statement_token1] = ACTIONS(5303),
-    [aux_sym_private_statement_token1] = ACTIONS(5303),
-    [aux_sym_public_statement_token1] = ACTIONS(5303),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5303),
-    [aux_sym_common_statement_token1] = ACTIONS(5303),
-    [aux_sym_import_statement_token1] = ACTIONS(5303),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5303),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5303),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5303),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5303),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5303),
-    [aux_sym_derived_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token1] = ACTIONS(5303),
-    [aux_sym_declared_type_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5303),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5303),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5303),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5303),
-    [anon_sym_SEMI] = ACTIONS(5307),
-    [aux_sym_stop_statement_token1] = ACTIONS(5303),
-    [aux_sym_stop_statement_token2] = ACTIONS(5303),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5303),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5303),
-    [aux_sym_include_statement_token1] = ACTIONS(5303),
-    [aux_sym_data_statement_token1] = ACTIONS(5303),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5303),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5303),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5303),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5303),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5303),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5303),
-    [aux_sym_block_construct_token1] = ACTIONS(5303),
-    [aux_sym_associate_statement_token1] = ACTIONS(5303),
-    [aux_sym_format_statement_token1] = ACTIONS(5303),
-    [aux_sym_print_statement_token1] = ACTIONS(5303),
-    [aux_sym_open_statement_token1] = ACTIONS(5303),
-    [aux_sym_close_statement_token1] = ACTIONS(5303),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5303),
-    [aux_sym_enum_statement_token1] = ACTIONS(5303),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5303),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5303),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5303),
-    [aux_sym_entry_statement_token1] = ACTIONS(5303),
-    [aux_sym_logical_expression_token5] = ACTIONS(5307),
-    [anon_sym_DOT] = ACTIONS(5303),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5307),
-    [anon_sym_LBRACK] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5307),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5307),
-    [aux_sym_null_literal_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5303),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5303),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5303),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5303),
-    [aux_sym_identifier_token1] = ACTIONS(5303),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5307),
-    [sym__float_literal] = ACTIONS(5307),
-    [sym__boz_literal] = ACTIONS(5307),
-    [sym__string_literal] = ACTIONS(5307),
-    [sym__string_literal_kind] = ACTIONS(5307),
-  },
-  [1328] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [sym_preproc_comment] = ACTIONS(5417),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1329] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4305),
-    [aux_sym_preproc_def_token1] = ACTIONS(4305),
-    [aux_sym_preproc_if_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
-    [sym_preproc_directive] = ACTIONS(4305),
-    [anon_sym_LPAREN2] = ACTIONS(4305),
-    [sym_preproc_comment] = ACTIONS(5419),
-    [anon_sym_PLUS] = ACTIONS(4311),
-    [anon_sym_DASH] = ACTIONS(4311),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
-    [aux_sym_interface_statement_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4305),
-    [aux_sym_language_binding_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
-    [aux_sym_contains_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token1] = ACTIONS(4305),
-    [aux_sym_use_statement_token2] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
-    [aux_sym_save_statement_token1] = ACTIONS(4305),
-    [aux_sym_private_statement_token1] = ACTIONS(4305),
-    [aux_sym_public_statement_token1] = ACTIONS(4305),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
-    [aux_sym_common_statement_token1] = ACTIONS(4305),
-    [aux_sym_import_statement_token1] = ACTIONS(4305),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
-    [aux_sym_derived_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token1] = ACTIONS(4305),
-    [aux_sym_declared_type_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
-    [anon_sym_SEMI] = ACTIONS(4311),
-    [aux_sym_stop_statement_token1] = ACTIONS(4305),
-    [aux_sym_stop_statement_token2] = ACTIONS(4305),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
-    [aux_sym_include_statement_token1] = ACTIONS(4305),
-    [aux_sym_data_statement_token1] = ACTIONS(4305),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
-    [aux_sym_block_construct_token1] = ACTIONS(4305),
-    [aux_sym_associate_statement_token1] = ACTIONS(4305),
-    [aux_sym_format_statement_token1] = ACTIONS(4305),
-    [aux_sym_print_statement_token1] = ACTIONS(4305),
-    [aux_sym_open_statement_token1] = ACTIONS(4305),
-    [aux_sym_close_statement_token1] = ACTIONS(4305),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
-    [aux_sym_enum_statement_token1] = ACTIONS(4305),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
-    [aux_sym_entry_statement_token1] = ACTIONS(4305),
-    [aux_sym_logical_expression_token5] = ACTIONS(4311),
-    [anon_sym_DOT] = ACTIONS(4305),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4311),
-    [anon_sym_LBRACK] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4311),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4311),
-    [aux_sym_null_literal_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
-    [aux_sym_identifier_token1] = ACTIONS(4305),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4311),
-    [sym__float_literal] = ACTIONS(4311),
-    [sym__boz_literal] = ACTIONS(4311),
-    [sym__string_literal] = ACTIONS(4311),
-    [sym__string_literal_kind] = ACTIONS(4311),
-  },
-  [1330] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [sym_preproc_comment] = ACTIONS(5421),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1331] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5271),
-    [aux_sym_preproc_def_token1] = ACTIONS(5271),
-    [aux_sym_preproc_if_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5271),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5271),
-    [sym_preproc_directive] = ACTIONS(5271),
-    [anon_sym_LPAREN2] = ACTIONS(5271),
-    [sym_preproc_comment] = ACTIONS(5423),
-    [anon_sym_PLUS] = ACTIONS(5275),
-    [anon_sym_DASH] = ACTIONS(5275),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5271),
-    [aux_sym_interface_statement_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5271),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5271),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5271),
-    [aux_sym_language_binding_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5271),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5271),
-    [aux_sym_contains_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token1] = ACTIONS(5271),
-    [aux_sym_use_statement_token2] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5271),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5271),
-    [aux_sym_save_statement_token1] = ACTIONS(5271),
-    [aux_sym_private_statement_token1] = ACTIONS(5271),
-    [aux_sym_public_statement_token1] = ACTIONS(5271),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5271),
-    [aux_sym_common_statement_token1] = ACTIONS(5271),
-    [aux_sym_import_statement_token1] = ACTIONS(5271),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5271),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5271),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5271),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5271),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5271),
-    [aux_sym_derived_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token1] = ACTIONS(5271),
-    [aux_sym_declared_type_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5271),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5271),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5271),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5271),
-    [anon_sym_SEMI] = ACTIONS(5275),
-    [aux_sym_stop_statement_token1] = ACTIONS(5271),
-    [aux_sym_stop_statement_token2] = ACTIONS(5271),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5271),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5271),
-    [aux_sym_include_statement_token1] = ACTIONS(5271),
-    [aux_sym_data_statement_token1] = ACTIONS(5271),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5271),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5271),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5271),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5271),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5271),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5271),
-    [aux_sym_block_construct_token1] = ACTIONS(5271),
-    [aux_sym_associate_statement_token1] = ACTIONS(5271),
-    [aux_sym_format_statement_token1] = ACTIONS(5271),
-    [aux_sym_print_statement_token1] = ACTIONS(5271),
-    [aux_sym_open_statement_token1] = ACTIONS(5271),
-    [aux_sym_close_statement_token1] = ACTIONS(5271),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5271),
-    [aux_sym_enum_statement_token1] = ACTIONS(5271),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5271),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5271),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5271),
-    [aux_sym_entry_statement_token1] = ACTIONS(5271),
-    [aux_sym_logical_expression_token5] = ACTIONS(5275),
-    [anon_sym_DOT] = ACTIONS(5271),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5275),
-    [anon_sym_LBRACK] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5275),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5275),
-    [aux_sym_null_literal_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5271),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5271),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5271),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5271),
-    [aux_sym_identifier_token1] = ACTIONS(5271),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5275),
-    [sym__float_literal] = ACTIONS(5275),
-    [sym__boz_literal] = ACTIONS(5275),
-    [sym__string_literal] = ACTIONS(5275),
-    [sym__string_literal_kind] = ACTIONS(5275),
-  },
-  [1332] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [sym_preproc_comment] = ACTIONS(5425),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1333] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1334] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1335] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5427),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1336] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4277),
-    [aux_sym_preproc_def_token1] = ACTIONS(4277),
-    [aux_sym_preproc_if_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
-    [sym_preproc_directive] = ACTIONS(4277),
-    [anon_sym_LPAREN2] = ACTIONS(4277),
-    [sym_preproc_comment] = ACTIONS(5429),
-    [anon_sym_PLUS] = ACTIONS(4283),
-    [anon_sym_DASH] = ACTIONS(4283),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
-    [aux_sym_interface_statement_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
-    [aux_sym_language_binding_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
-    [aux_sym_contains_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token1] = ACTIONS(4277),
-    [aux_sym_use_statement_token2] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
-    [aux_sym_save_statement_token1] = ACTIONS(4277),
-    [aux_sym_private_statement_token1] = ACTIONS(4277),
-    [aux_sym_public_statement_token1] = ACTIONS(4277),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
-    [aux_sym_common_statement_token1] = ACTIONS(4277),
-    [aux_sym_import_statement_token1] = ACTIONS(4277),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
-    [aux_sym_derived_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token1] = ACTIONS(4277),
-    [aux_sym_declared_type_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
-    [anon_sym_SEMI] = ACTIONS(4283),
-    [aux_sym_stop_statement_token1] = ACTIONS(4277),
-    [aux_sym_stop_statement_token2] = ACTIONS(4277),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
-    [aux_sym_include_statement_token1] = ACTIONS(4277),
-    [aux_sym_data_statement_token1] = ACTIONS(4277),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
-    [aux_sym_block_construct_token1] = ACTIONS(4277),
-    [aux_sym_associate_statement_token1] = ACTIONS(4277),
-    [aux_sym_format_statement_token1] = ACTIONS(4277),
-    [aux_sym_print_statement_token1] = ACTIONS(4277),
-    [aux_sym_open_statement_token1] = ACTIONS(4277),
-    [aux_sym_close_statement_token1] = ACTIONS(4277),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
-    [aux_sym_enum_statement_token1] = ACTIONS(4277),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
-    [aux_sym_entry_statement_token1] = ACTIONS(4277),
-    [aux_sym_logical_expression_token5] = ACTIONS(4283),
-    [anon_sym_DOT] = ACTIONS(4277),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
-    [anon_sym_LBRACK] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
-    [aux_sym_null_literal_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
-    [aux_sym_identifier_token1] = ACTIONS(4277),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4283),
-    [sym__float_literal] = ACTIONS(4283),
-    [sym__boz_literal] = ACTIONS(4283),
-    [sym__string_literal] = ACTIONS(4283),
-    [sym__string_literal_kind] = ACTIONS(4283),
-  },
-  [1337] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5173),
-    [aux_sym_preproc_def_token1] = ACTIONS(5173),
-    [aux_sym_preproc_if_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5173),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5173),
-    [sym_preproc_directive] = ACTIONS(5173),
-    [anon_sym_LPAREN2] = ACTIONS(5173),
-    [sym_preproc_comment] = ACTIONS(5431),
-    [anon_sym_PLUS] = ACTIONS(5177),
-    [anon_sym_DASH] = ACTIONS(5177),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5173),
-    [aux_sym_interface_statement_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5173),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5173),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5173),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5173),
-    [aux_sym_language_binding_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5173),
-    [aux_sym_contains_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token1] = ACTIONS(5173),
-    [aux_sym_use_statement_token2] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5173),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5173),
-    [aux_sym_save_statement_token1] = ACTIONS(5173),
-    [aux_sym_private_statement_token1] = ACTIONS(5173),
-    [aux_sym_public_statement_token1] = ACTIONS(5173),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5173),
-    [aux_sym_common_statement_token1] = ACTIONS(5173),
-    [aux_sym_import_statement_token1] = ACTIONS(5173),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5173),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5173),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5173),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5173),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5173),
-    [aux_sym_derived_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token1] = ACTIONS(5173),
-    [aux_sym_declared_type_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5173),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5173),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5173),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5173),
-    [anon_sym_SEMI] = ACTIONS(5177),
-    [aux_sym_stop_statement_token1] = ACTIONS(5173),
-    [aux_sym_stop_statement_token2] = ACTIONS(5173),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5173),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5173),
-    [aux_sym_include_statement_token1] = ACTIONS(5173),
-    [aux_sym_data_statement_token1] = ACTIONS(5173),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5173),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5173),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5173),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5173),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5173),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5173),
-    [aux_sym_block_construct_token1] = ACTIONS(5173),
-    [aux_sym_associate_statement_token1] = ACTIONS(5173),
-    [aux_sym_format_statement_token1] = ACTIONS(5173),
-    [aux_sym_print_statement_token1] = ACTIONS(5173),
-    [aux_sym_open_statement_token1] = ACTIONS(5173),
-    [aux_sym_close_statement_token1] = ACTIONS(5173),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5173),
-    [aux_sym_enum_statement_token1] = ACTIONS(5173),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5173),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5173),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5173),
-    [aux_sym_entry_statement_token1] = ACTIONS(5173),
-    [aux_sym_logical_expression_token5] = ACTIONS(5177),
-    [anon_sym_DOT] = ACTIONS(5173),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5177),
-    [anon_sym_LBRACK] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5177),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5177),
-    [aux_sym_null_literal_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5173),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5173),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5173),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5173),
-    [aux_sym_identifier_token1] = ACTIONS(5173),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5177),
-    [sym__float_literal] = ACTIONS(5177),
-    [sym__boz_literal] = ACTIONS(5177),
-    [sym__string_literal] = ACTIONS(5177),
-    [sym__string_literal_kind] = ACTIONS(5177),
-  },
-  [1338] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [1339] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1340] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
-  },
-  [1341] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5433),
-    [aux_sym_preproc_def_token1] = ACTIONS(5433),
-    [aux_sym_preproc_if_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
-    [sym_preproc_directive] = ACTIONS(5433),
-    [anon_sym_LPAREN2] = ACTIONS(5433),
-    [anon_sym_PLUS] = ACTIONS(5435),
-    [anon_sym_DASH] = ACTIONS(5435),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
-    [aux_sym_interface_statement_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
-    [aux_sym_language_binding_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5433),
-    [aux_sym_contains_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token2] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
-    [aux_sym_save_statement_token1] = ACTIONS(5433),
-    [aux_sym_private_statement_token1] = ACTIONS(5433),
-    [aux_sym_public_statement_token1] = ACTIONS(5433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
-    [aux_sym_common_statement_token1] = ACTIONS(5433),
-    [aux_sym_import_statement_token1] = ACTIONS(5433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
-    [aux_sym_derived_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
-    [anon_sym_SEMI] = ACTIONS(5435),
-    [aux_sym_stop_statement_token1] = ACTIONS(5433),
-    [aux_sym_stop_statement_token2] = ACTIONS(5433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
-    [aux_sym_include_statement_token1] = ACTIONS(5433),
-    [aux_sym_data_statement_token1] = ACTIONS(5433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
-    [aux_sym_block_construct_token1] = ACTIONS(5433),
-    [aux_sym_associate_statement_token1] = ACTIONS(5433),
-    [aux_sym_format_statement_token1] = ACTIONS(5433),
-    [aux_sym_print_statement_token1] = ACTIONS(5433),
-    [aux_sym_open_statement_token1] = ACTIONS(5433),
-    [aux_sym_close_statement_token1] = ACTIONS(5433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
-    [aux_sym_enum_statement_token1] = ACTIONS(5433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
-    [aux_sym_entry_statement_token1] = ACTIONS(5433),
-    [aux_sym_logical_expression_token5] = ACTIONS(5435),
-    [anon_sym_DOT] = ACTIONS(5433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
-    [anon_sym_LBRACK] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
-    [aux_sym_null_literal_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
-    [aux_sym_identifier_token1] = ACTIONS(5433),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5435),
-    [sym__float_literal] = ACTIONS(5435),
-    [sym__boz_literal] = ACTIONS(5435),
-    [sym__string_literal] = ACTIONS(5435),
-    [sym__string_literal_kind] = ACTIONS(5435),
-  },
-  [1342] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1343] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [1344] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5437),
-    [aux_sym_preproc_def_token1] = ACTIONS(5437),
-    [aux_sym_preproc_if_token1] = ACTIONS(5437),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5437),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5437),
-    [sym_preproc_directive] = ACTIONS(5437),
-    [anon_sym_LPAREN2] = ACTIONS(5437),
-    [anon_sym_PLUS] = ACTIONS(5439),
-    [anon_sym_DASH] = ACTIONS(5439),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5437),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5437),
-    [aux_sym_interface_statement_token1] = ACTIONS(5437),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5437),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5437),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5437),
-    [aux_sym_language_binding_token1] = ACTIONS(5437),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5437),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5437),
-    [aux_sym_contains_statement_token1] = ACTIONS(5437),
-    [aux_sym_use_statement_token1] = ACTIONS(5437),
-    [aux_sym_use_statement_token2] = ACTIONS(5437),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5437),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5437),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5437),
-    [aux_sym_save_statement_token1] = ACTIONS(5437),
-    [aux_sym_private_statement_token1] = ACTIONS(5437),
-    [aux_sym_public_statement_token1] = ACTIONS(5437),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5437),
-    [aux_sym_common_statement_token1] = ACTIONS(5437),
-    [aux_sym_import_statement_token1] = ACTIONS(5437),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5437),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5437),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5437),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5437),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5437),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5437),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5437),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5437),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5437),
-    [aux_sym_derived_type_token1] = ACTIONS(5437),
-    [aux_sym_declared_type_token1] = ACTIONS(5437),
-    [aux_sym_declared_type_token2] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5437),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5437),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5437),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5437),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5437),
-    [anon_sym_SEMI] = ACTIONS(5439),
-    [aux_sym_stop_statement_token1] = ACTIONS(5437),
-    [aux_sym_stop_statement_token2] = ACTIONS(5437),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5437),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5437),
-    [aux_sym_include_statement_token1] = ACTIONS(5437),
-    [aux_sym_data_statement_token1] = ACTIONS(5437),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5437),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5437),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5437),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5437),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5437),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5437),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5437),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5437),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5437),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5437),
-    [aux_sym_block_construct_token1] = ACTIONS(5437),
-    [aux_sym_associate_statement_token1] = ACTIONS(5437),
-    [aux_sym_format_statement_token1] = ACTIONS(5437),
-    [aux_sym_print_statement_token1] = ACTIONS(5437),
-    [aux_sym_open_statement_token1] = ACTIONS(5437),
-    [aux_sym_close_statement_token1] = ACTIONS(5437),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5437),
-    [aux_sym_enum_statement_token1] = ACTIONS(5437),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5437),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5437),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5437),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5437),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5437),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5437),
-    [aux_sym_entry_statement_token1] = ACTIONS(5437),
-    [aux_sym_logical_expression_token5] = ACTIONS(5439),
-    [anon_sym_DOT] = ACTIONS(5437),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5439),
-    [anon_sym_LBRACK] = ACTIONS(5439),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5439),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5439),
-    [aux_sym_null_literal_token1] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5437),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5437),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5437),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5437),
-    [aux_sym_identifier_token1] = ACTIONS(5437),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5439),
-    [sym__float_literal] = ACTIONS(5439),
-    [sym__boz_literal] = ACTIONS(5439),
-    [sym__string_literal] = ACTIONS(5439),
-    [sym__string_literal_kind] = ACTIONS(5439),
-  },
-  [1345] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5441),
-    [aux_sym_preproc_def_token1] = ACTIONS(5441),
-    [aux_sym_preproc_if_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
-    [sym_preproc_directive] = ACTIONS(5441),
-    [anon_sym_LPAREN2] = ACTIONS(5441),
-    [anon_sym_PLUS] = ACTIONS(5443),
-    [anon_sym_DASH] = ACTIONS(5443),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
-    [aux_sym_interface_statement_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5441),
-    [aux_sym_language_binding_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
-    [aux_sym_contains_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token2] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
-    [aux_sym_save_statement_token1] = ACTIONS(5441),
-    [aux_sym_private_statement_token1] = ACTIONS(5441),
-    [aux_sym_public_statement_token1] = ACTIONS(5441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
-    [aux_sym_common_statement_token1] = ACTIONS(5441),
-    [aux_sym_import_statement_token1] = ACTIONS(5441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
-    [aux_sym_derived_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
-    [anon_sym_SEMI] = ACTIONS(5443),
-    [aux_sym_stop_statement_token1] = ACTIONS(5441),
-    [aux_sym_stop_statement_token2] = ACTIONS(5441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5441),
-    [aux_sym_include_statement_token1] = ACTIONS(5441),
-    [aux_sym_data_statement_token1] = ACTIONS(5441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5441),
-    [aux_sym_block_construct_token1] = ACTIONS(5441),
-    [aux_sym_associate_statement_token1] = ACTIONS(5441),
-    [aux_sym_format_statement_token1] = ACTIONS(5441),
-    [aux_sym_print_statement_token1] = ACTIONS(5441),
-    [aux_sym_open_statement_token1] = ACTIONS(5441),
-    [aux_sym_close_statement_token1] = ACTIONS(5441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
-    [aux_sym_enum_statement_token1] = ACTIONS(5441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5441),
-    [aux_sym_entry_statement_token1] = ACTIONS(5441),
-    [aux_sym_logical_expression_token5] = ACTIONS(5443),
-    [anon_sym_DOT] = ACTIONS(5441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5443),
-    [anon_sym_LBRACK] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5443),
-    [aux_sym_null_literal_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
-    [aux_sym_identifier_token1] = ACTIONS(5441),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5443),
-    [sym__float_literal] = ACTIONS(5443),
-    [sym__boz_literal] = ACTIONS(5443),
-    [sym__string_literal] = ACTIONS(5443),
-    [sym__string_literal_kind] = ACTIONS(5443),
-  },
-  [1346] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5445),
-    [aux_sym_preproc_def_token1] = ACTIONS(5445),
-    [aux_sym_preproc_if_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
-    [sym_preproc_directive] = ACTIONS(5445),
-    [anon_sym_LPAREN2] = ACTIONS(5445),
-    [anon_sym_PLUS] = ACTIONS(5447),
-    [anon_sym_DASH] = ACTIONS(5447),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
-    [aux_sym_interface_statement_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5445),
-    [aux_sym_language_binding_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
-    [aux_sym_contains_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token2] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
-    [aux_sym_save_statement_token1] = ACTIONS(5445),
-    [aux_sym_private_statement_token1] = ACTIONS(5445),
-    [aux_sym_public_statement_token1] = ACTIONS(5445),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
-    [aux_sym_common_statement_token1] = ACTIONS(5445),
-    [aux_sym_import_statement_token1] = ACTIONS(5445),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
-    [aux_sym_derived_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
-    [anon_sym_SEMI] = ACTIONS(5447),
-    [aux_sym_stop_statement_token1] = ACTIONS(5445),
-    [aux_sym_stop_statement_token2] = ACTIONS(5445),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
-    [aux_sym_include_statement_token1] = ACTIONS(5445),
-    [aux_sym_data_statement_token1] = ACTIONS(5445),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
-    [aux_sym_block_construct_token1] = ACTIONS(5445),
-    [aux_sym_associate_statement_token1] = ACTIONS(5445),
-    [aux_sym_format_statement_token1] = ACTIONS(5445),
-    [aux_sym_print_statement_token1] = ACTIONS(5445),
-    [aux_sym_open_statement_token1] = ACTIONS(5445),
-    [aux_sym_close_statement_token1] = ACTIONS(5445),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
-    [aux_sym_enum_statement_token1] = ACTIONS(5445),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
-    [aux_sym_entry_statement_token1] = ACTIONS(5445),
-    [aux_sym_logical_expression_token5] = ACTIONS(5447),
-    [anon_sym_DOT] = ACTIONS(5445),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
-    [anon_sym_LBRACK] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
-    [aux_sym_null_literal_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
-    [aux_sym_identifier_token1] = ACTIONS(5445),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5447),
-    [sym__float_literal] = ACTIONS(5447),
-    [sym__boz_literal] = ACTIONS(5447),
-    [sym__string_literal] = ACTIONS(5447),
-    [sym__string_literal_kind] = ACTIONS(5447),
-  },
-  [1347] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1348] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1349] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
-  },
-  [1350] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
-  },
-  [1351] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_LPAREN2] = ACTIONS(4289),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [anon_sym_SEMI] = ACTIONS(4291),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4289),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4289),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_associate_statement_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_print_statement_token1] = ACTIONS(4289),
-    [aux_sym_open_statement_token1] = ACTIONS(4289),
-    [aux_sym_close_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4289),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_logical_expression_token5] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4291),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
-    [sym__float_literal] = ACTIONS(4291),
-    [sym__boz_literal] = ACTIONS(4291),
-    [sym__string_literal] = ACTIONS(4291),
-    [sym__string_literal_kind] = ACTIONS(4291),
-  },
-  [1352] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5449),
-    [aux_sym_preproc_def_token1] = ACTIONS(5449),
-    [aux_sym_preproc_if_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5449),
-    [sym_preproc_directive] = ACTIONS(5449),
-    [anon_sym_LPAREN2] = ACTIONS(5449),
-    [anon_sym_PLUS] = ACTIONS(5451),
-    [anon_sym_DASH] = ACTIONS(5451),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5449),
-    [aux_sym_interface_statement_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5449),
-    [aux_sym_language_binding_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5449),
-    [aux_sym_contains_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token2] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5449),
-    [aux_sym_save_statement_token1] = ACTIONS(5449),
-    [aux_sym_private_statement_token1] = ACTIONS(5449),
-    [aux_sym_public_statement_token1] = ACTIONS(5449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5449),
-    [aux_sym_common_statement_token1] = ACTIONS(5449),
-    [aux_sym_import_statement_token1] = ACTIONS(5449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5449),
-    [aux_sym_derived_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5449),
-    [anon_sym_SEMI] = ACTIONS(5451),
-    [aux_sym_stop_statement_token1] = ACTIONS(5449),
-    [aux_sym_stop_statement_token2] = ACTIONS(5449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5449),
-    [aux_sym_include_statement_token1] = ACTIONS(5449),
-    [aux_sym_data_statement_token1] = ACTIONS(5449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5449),
-    [aux_sym_block_construct_token1] = ACTIONS(5449),
-    [aux_sym_associate_statement_token1] = ACTIONS(5449),
-    [aux_sym_format_statement_token1] = ACTIONS(5449),
-    [aux_sym_print_statement_token1] = ACTIONS(5449),
-    [aux_sym_open_statement_token1] = ACTIONS(5449),
-    [aux_sym_close_statement_token1] = ACTIONS(5449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5449),
-    [aux_sym_enum_statement_token1] = ACTIONS(5449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5449),
-    [aux_sym_entry_statement_token1] = ACTIONS(5449),
-    [aux_sym_logical_expression_token5] = ACTIONS(5451),
-    [anon_sym_DOT] = ACTIONS(5449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5451),
-    [anon_sym_LBRACK] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5451),
-    [aux_sym_null_literal_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5449),
-    [aux_sym_identifier_token1] = ACTIONS(5449),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5451),
-    [sym__float_literal] = ACTIONS(5451),
-    [sym__boz_literal] = ACTIONS(5451),
-    [sym__string_literal] = ACTIONS(5451),
-    [sym__string_literal_kind] = ACTIONS(5451),
-  },
-  [1353] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
-    [anon_sym_LPAREN2] = ACTIONS(4293),
-    [anon_sym_PLUS] = ACTIONS(4295),
-    [anon_sym_DASH] = ACTIONS(4295),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4293),
-    [aux_sym_interface_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
-    [aux_sym_language_binding_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
-    [aux_sym_common_statement_token1] = ACTIONS(4293),
-    [aux_sym_import_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
-    [aux_sym_derived_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [anon_sym_SEMI] = ACTIONS(4295),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4293),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4293),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_associate_statement_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_print_statement_token1] = ACTIONS(4293),
-    [aux_sym_open_statement_token1] = ACTIONS(4293),
-    [aux_sym_close_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_enum_statement_token1] = ACTIONS(4293),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4293),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_logical_expression_token5] = ACTIONS(4295),
-    [anon_sym_DOT] = ACTIONS(4293),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4295),
-    [anon_sym_LBRACK] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4295),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
-    [sym__float_literal] = ACTIONS(4295),
-    [sym__boz_literal] = ACTIONS(4295),
-    [sym__string_literal] = ACTIONS(4295),
-    [sym__string_literal_kind] = ACTIONS(4295),
-  },
-  [1354] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5453),
-    [aux_sym_preproc_def_token1] = ACTIONS(5453),
-    [aux_sym_preproc_if_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
-    [sym_preproc_directive] = ACTIONS(5453),
-    [anon_sym_LPAREN2] = ACTIONS(5453),
-    [anon_sym_PLUS] = ACTIONS(5455),
-    [anon_sym_DASH] = ACTIONS(5455),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5453),
-    [aux_sym_interface_statement_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
-    [aux_sym_language_binding_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
-    [aux_sym_contains_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token2] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
-    [aux_sym_save_statement_token1] = ACTIONS(5453),
-    [aux_sym_private_statement_token1] = ACTIONS(5453),
-    [aux_sym_public_statement_token1] = ACTIONS(5453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
-    [aux_sym_common_statement_token1] = ACTIONS(5453),
-    [aux_sym_import_statement_token1] = ACTIONS(5453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
-    [aux_sym_derived_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
-    [anon_sym_SEMI] = ACTIONS(5455),
-    [aux_sym_stop_statement_token1] = ACTIONS(5453),
-    [aux_sym_stop_statement_token2] = ACTIONS(5453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
-    [aux_sym_include_statement_token1] = ACTIONS(5453),
-    [aux_sym_data_statement_token1] = ACTIONS(5453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
-    [aux_sym_block_construct_token1] = ACTIONS(5453),
-    [aux_sym_associate_statement_token1] = ACTIONS(5453),
-    [aux_sym_format_statement_token1] = ACTIONS(5453),
-    [aux_sym_print_statement_token1] = ACTIONS(5453),
-    [aux_sym_open_statement_token1] = ACTIONS(5453),
-    [aux_sym_close_statement_token1] = ACTIONS(5453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
-    [aux_sym_enum_statement_token1] = ACTIONS(5453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
-    [aux_sym_entry_statement_token1] = ACTIONS(5453),
-    [aux_sym_logical_expression_token5] = ACTIONS(5455),
-    [anon_sym_DOT] = ACTIONS(5453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
-    [anon_sym_LBRACK] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
-    [aux_sym_null_literal_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
-    [aux_sym_identifier_token1] = ACTIONS(5453),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5455),
-    [sym__float_literal] = ACTIONS(5455),
-    [sym__boz_literal] = ACTIONS(5455),
-    [sym__string_literal] = ACTIONS(5455),
-    [sym__string_literal_kind] = ACTIONS(5455),
-  },
-  [1355] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
-  },
-  [1356] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_LPAREN2] = ACTIONS(4297),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [anon_sym_SEMI] = ACTIONS(4299),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4297),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4297),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_associate_statement_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_print_statement_token1] = ACTIONS(4297),
-    [aux_sym_open_statement_token1] = ACTIONS(4297),
-    [aux_sym_close_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4297),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_logical_expression_token5] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4299),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4299),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
-    [sym__float_literal] = ACTIONS(4299),
-    [sym__boz_literal] = ACTIONS(4299),
-    [sym__string_literal] = ACTIONS(4299),
-    [sym__string_literal_kind] = ACTIONS(4299),
-  },
-  [1357] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5457),
-    [aux_sym_preproc_def_token1] = ACTIONS(5457),
-    [aux_sym_preproc_if_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
-    [sym_preproc_directive] = ACTIONS(5457),
-    [anon_sym_LPAREN2] = ACTIONS(5457),
-    [anon_sym_PLUS] = ACTIONS(5459),
-    [anon_sym_DASH] = ACTIONS(5459),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5457),
-    [aux_sym_interface_statement_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
-    [aux_sym_language_binding_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
-    [aux_sym_contains_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token2] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
-    [aux_sym_save_statement_token1] = ACTIONS(5457),
-    [aux_sym_private_statement_token1] = ACTIONS(5457),
-    [aux_sym_public_statement_token1] = ACTIONS(5457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
-    [aux_sym_common_statement_token1] = ACTIONS(5457),
-    [aux_sym_import_statement_token1] = ACTIONS(5457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
-    [aux_sym_derived_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
-    [anon_sym_SEMI] = ACTIONS(5459),
-    [aux_sym_stop_statement_token1] = ACTIONS(5457),
-    [aux_sym_stop_statement_token2] = ACTIONS(5457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
-    [aux_sym_include_statement_token1] = ACTIONS(5457),
-    [aux_sym_data_statement_token1] = ACTIONS(5457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
-    [aux_sym_block_construct_token1] = ACTIONS(5457),
-    [aux_sym_associate_statement_token1] = ACTIONS(5457),
-    [aux_sym_format_statement_token1] = ACTIONS(5457),
-    [aux_sym_print_statement_token1] = ACTIONS(5457),
-    [aux_sym_open_statement_token1] = ACTIONS(5457),
-    [aux_sym_close_statement_token1] = ACTIONS(5457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
-    [aux_sym_enum_statement_token1] = ACTIONS(5457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
-    [aux_sym_entry_statement_token1] = ACTIONS(5457),
-    [aux_sym_logical_expression_token5] = ACTIONS(5459),
-    [anon_sym_DOT] = ACTIONS(5457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
-    [anon_sym_LBRACK] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
-    [aux_sym_null_literal_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
-    [aux_sym_identifier_token1] = ACTIONS(5457),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5459),
-    [sym__float_literal] = ACTIONS(5459),
-    [sym__boz_literal] = ACTIONS(5459),
-    [sym__string_literal] = ACTIONS(5459),
-    [sym__string_literal_kind] = ACTIONS(5459),
-  },
-  [1358] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1359] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1360] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
-  },
-  [1361] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1362] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [1363] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
-  },
-  [1364] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1365] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
-  },
-  [1366] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1367] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [1368] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
-  },
-  [1369] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
-  },
-  [1370] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
-  },
-  [1371] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1372] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
-  },
-  [1373] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
-  },
-  [1374] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [1375] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1376] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1377] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [1378] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1379] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
-  },
-  [1380] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
-  },
-  [1381] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
+  [1025] = {
+    [ts_builtin_sym_end] = ACTIONS(4309),
+    [aux_sym_preproc_include_token1] = ACTIONS(4305),
+    [aux_sym_preproc_def_token1] = ACTIONS(4305),
+    [aux_sym_preproc_if_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4305),
+    [sym_preproc_directive] = ACTIONS(4305),
+    [anon_sym_LPAREN2] = ACTIONS(4305),
+    [anon_sym_PLUS] = ACTIONS(4309),
+    [anon_sym_DASH] = ACTIONS(4309),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4305),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4305),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4305),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4305),
+    [aux_sym_contains_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token1] = ACTIONS(4305),
+    [aux_sym_use_statement_token2] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4305),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4305),
+    [aux_sym_save_statement_token1] = ACTIONS(4305),
+    [aux_sym_private_statement_token1] = ACTIONS(4305),
+    [aux_sym_public_statement_token1] = ACTIONS(4305),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4305),
+    [aux_sym_common_statement_token1] = ACTIONS(4305),
+    [aux_sym_import_statement_token1] = ACTIONS(4305),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4305),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4305),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4305),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4305),
+    [aux_sym_derived_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token1] = ACTIONS(4305),
+    [aux_sym_declared_type_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4305),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4305),
+    [anon_sym_SEMI] = ACTIONS(4309),
+    [aux_sym_stop_statement_token1] = ACTIONS(4305),
+    [aux_sym_stop_statement_token2] = ACTIONS(4305),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4305),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4305),
+    [aux_sym_include_statement_token1] = ACTIONS(4305),
+    [aux_sym_data_statement_token1] = ACTIONS(4305),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4305),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4305),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4305),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4305),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4305),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4305),
+    [aux_sym_block_construct_token1] = ACTIONS(4305),
+    [aux_sym_associate_statement_token1] = ACTIONS(4305),
+    [aux_sym_format_statement_token1] = ACTIONS(4305),
+    [aux_sym_print_statement_token1] = ACTIONS(4305),
+    [aux_sym_open_statement_token1] = ACTIONS(4305),
+    [aux_sym_close_statement_token1] = ACTIONS(4305),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4305),
+    [aux_sym_enum_statement_token1] = ACTIONS(4305),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4305),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4305),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4305),
+    [aux_sym_entry_statement_token1] = ACTIONS(4305),
+    [aux_sym_logical_expression_token5] = ACTIONS(4309),
+    [anon_sym_DOT] = ACTIONS(4305),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4309),
+    [anon_sym_LBRACK] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4309),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4309),
+    [aux_sym_null_literal_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4305),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4305),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4305),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4305),
+    [aux_sym_identifier_token1] = ACTIONS(4305),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(4309),
+    [sym__float_literal] = ACTIONS(4309),
+    [sym__boz_literal] = ACTIONS(4309),
+    [sym__string_literal] = ACTIONS(4309),
+    [sym__string_literal_kind] = ACTIONS(4309),
   },
-  [1382] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
+  [1026] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4547),
+    [aux_sym_preproc_def_token1] = ACTIONS(4547),
+    [aux_sym_preproc_if_token1] = ACTIONS(4547),
+    [aux_sym_preproc_if_token2] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4547),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4547),
+    [sym_preproc_directive] = ACTIONS(4547),
+    [anon_sym_LPAREN2] = ACTIONS(4547),
+    [anon_sym_PLUS] = ACTIONS(4549),
+    [anon_sym_DASH] = ACTIONS(4549),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4547),
+    [aux_sym_module_statement_token1] = ACTIONS(4547),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4547),
+    [aux_sym_interface_statement_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4547),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4547),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4547),
+    [aux_sym_function_statement_token1] = ACTIONS(4547),
+    [aux_sym_language_binding_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4547),
+    [aux_sym_contains_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token1] = ACTIONS(4547),
+    [aux_sym_use_statement_token2] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4547),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4547),
+    [aux_sym_save_statement_token1] = ACTIONS(4547),
+    [aux_sym_private_statement_token1] = ACTIONS(4547),
+    [aux_sym_public_statement_token1] = ACTIONS(4547),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4547),
+    [aux_sym_common_statement_token1] = ACTIONS(4547),
+    [aux_sym_import_statement_token1] = ACTIONS(4547),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4547),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4547),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4547),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4547),
+    [aux_sym_derived_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token1] = ACTIONS(4547),
+    [aux_sym_declared_type_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4547),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4547),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4547),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4547),
+    [anon_sym_SEMI] = ACTIONS(4549),
+    [aux_sym_stop_statement_token1] = ACTIONS(4547),
+    [aux_sym_stop_statement_token2] = ACTIONS(4547),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4547),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4547),
+    [aux_sym_include_statement_token1] = ACTIONS(4547),
+    [aux_sym_data_statement_token1] = ACTIONS(4547),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4547),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4547),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4547),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4547),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4547),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4547),
+    [aux_sym_block_construct_token1] = ACTIONS(4547),
+    [aux_sym_associate_statement_token1] = ACTIONS(4547),
+    [aux_sym_format_statement_token1] = ACTIONS(4547),
+    [aux_sym_print_statement_token1] = ACTIONS(4547),
+    [aux_sym_open_statement_token1] = ACTIONS(4547),
+    [aux_sym_close_statement_token1] = ACTIONS(4547),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4547),
+    [aux_sym_enum_statement_token1] = ACTIONS(4547),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4547),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4547),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4547),
+    [aux_sym_entry_statement_token1] = ACTIONS(4547),
+    [aux_sym_logical_expression_token5] = ACTIONS(4549),
+    [anon_sym_DOT] = ACTIONS(4547),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4549),
+    [anon_sym_LBRACK] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4549),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4549),
+    [aux_sym_null_literal_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4547),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4547),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4547),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4547),
+    [aux_sym_identifier_token1] = ACTIONS(4547),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4549),
+    [sym__float_literal] = ACTIONS(4549),
+    [sym__boz_literal] = ACTIONS(4549),
+    [sym__string_literal] = ACTIONS(4549),
+    [sym__string_literal_kind] = ACTIONS(4549),
   },
-  [1383] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+  [1027] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4615),
+    [aux_sym_preproc_def_token1] = ACTIONS(4615),
+    [aux_sym_preproc_if_token1] = ACTIONS(4615),
+    [aux_sym_preproc_if_token2] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4615),
+    [sym_preproc_directive] = ACTIONS(4615),
+    [anon_sym_LPAREN2] = ACTIONS(4615),
+    [anon_sym_PLUS] = ACTIONS(4617),
+    [anon_sym_DASH] = ACTIONS(4617),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4615),
+    [aux_sym_module_statement_token1] = ACTIONS(4615),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4615),
+    [aux_sym_interface_statement_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4615),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4615),
+    [aux_sym_function_statement_token1] = ACTIONS(4615),
+    [aux_sym_language_binding_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4615),
+    [aux_sym_contains_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token2] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4615),
+    [aux_sym_save_statement_token1] = ACTIONS(4615),
+    [aux_sym_private_statement_token1] = ACTIONS(4615),
+    [aux_sym_public_statement_token1] = ACTIONS(4615),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4615),
+    [aux_sym_common_statement_token1] = ACTIONS(4615),
+    [aux_sym_import_statement_token1] = ACTIONS(4615),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4615),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4615),
+    [aux_sym_derived_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4615),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4615),
+    [anon_sym_SEMI] = ACTIONS(4617),
+    [aux_sym_stop_statement_token1] = ACTIONS(4615),
+    [aux_sym_stop_statement_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4615),
+    [aux_sym_include_statement_token1] = ACTIONS(4615),
+    [aux_sym_data_statement_token1] = ACTIONS(4615),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4615),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4615),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4615),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4615),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4615),
+    [aux_sym_block_construct_token1] = ACTIONS(4615),
+    [aux_sym_associate_statement_token1] = ACTIONS(4615),
+    [aux_sym_format_statement_token1] = ACTIONS(4615),
+    [aux_sym_print_statement_token1] = ACTIONS(4615),
+    [aux_sym_open_statement_token1] = ACTIONS(4615),
+    [aux_sym_close_statement_token1] = ACTIONS(4615),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4615),
+    [aux_sym_enum_statement_token1] = ACTIONS(4615),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4615),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4615),
+    [aux_sym_entry_statement_token1] = ACTIONS(4615),
+    [aux_sym_logical_expression_token5] = ACTIONS(4617),
+    [anon_sym_DOT] = ACTIONS(4615),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4617),
+    [anon_sym_LBRACK] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4617),
+    [aux_sym_null_literal_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4615),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4615),
+    [aux_sym_identifier_token1] = ACTIONS(4615),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4617),
+    [sym__float_literal] = ACTIONS(4617),
+    [sym__boz_literal] = ACTIONS(4617),
+    [sym__string_literal] = ACTIONS(4617),
+    [sym__string_literal_kind] = ACTIONS(4617),
   },
-  [1384] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+  [1028] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_module_statement_token1] = ACTIONS(4595),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_function_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4595),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [1385] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
+  [1029] = {
+    [ts_builtin_sym_end] = ACTIONS(718),
+    [aux_sym_preproc_include_token1] = ACTIONS(376),
+    [aux_sym_preproc_def_token1] = ACTIONS(376),
+    [aux_sym_preproc_if_token1] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(376),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(376),
+    [sym_preproc_directive] = ACTIONS(376),
+    [anon_sym_LPAREN2] = ACTIONS(376),
+    [anon_sym_PLUS] = ACTIONS(718),
+    [anon_sym_DASH] = ACTIONS(718),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token1] = ACTIONS(376),
+    [aux_sym_end_program_statement_token2] = ACTIONS(376),
+    [aux_sym_module_statement_token1] = ACTIONS(376),
+    [aux_sym_submodule_statement_token1] = ACTIONS(376),
+    [aux_sym_interface_statement_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(376),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(376),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(376),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(376),
+    [aux_sym_function_statement_token1] = ACTIONS(376),
+    [aux_sym_language_binding_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(376),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(376),
+    [aux_sym_contains_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token1] = ACTIONS(376),
+    [aux_sym_use_statement_token2] = ACTIONS(376),
+    [aux_sym_implicit_statement_token1] = ACTIONS(376),
+    [aux_sym_implicit_statement_token3] = ACTIONS(376),
+    [aux_sym_implicit_statement_token4] = ACTIONS(376),
+    [aux_sym_save_statement_token1] = ACTIONS(376),
+    [aux_sym_private_statement_token1] = ACTIONS(376),
+    [aux_sym_public_statement_token1] = ACTIONS(376),
+    [aux_sym_namelist_statement_token1] = ACTIONS(376),
+    [aux_sym_common_statement_token1] = ACTIONS(376),
+    [aux_sym_import_statement_token1] = ACTIONS(376),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(376),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(376),
+    [aux_sym_variable_attributes_token1] = ACTIONS(376),
+    [aux_sym_variable_attributes_token2] = ACTIONS(376),
+    [aux_sym_variable_attributes_token3] = ACTIONS(376),
+    [aux_sym_variable_attributes_token4] = ACTIONS(376),
+    [aux_sym_variable_attributes_token5] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(376),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(376),
+    [aux_sym_derived_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token1] = ACTIONS(376),
+    [aux_sym_declared_type_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(376),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(376),
+    [aux_sym_type_qualifier_token1] = ACTIONS(376),
+    [aux_sym_type_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(376),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(376),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(376),
+    [anon_sym_SEMI] = ACTIONS(718),
+    [aux_sym_stop_statement_token1] = ACTIONS(376),
+    [aux_sym_stop_statement_token2] = ACTIONS(376),
+    [aux_sym_subroutine_call_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token1] = ACTIONS(376),
+    [aux_sym_keyword_statement_token2] = ACTIONS(376),
+    [aux_sym_keyword_statement_token3] = ACTIONS(376),
+    [aux_sym_keyword_statement_token4] = ACTIONS(376),
+    [aux_sym_keyword_statement_token6] = ACTIONS(376),
+    [aux_sym_keyword_statement_token7] = ACTIONS(376),
+    [aux_sym_include_statement_token1] = ACTIONS(376),
+    [aux_sym_data_statement_token1] = ACTIONS(376),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(376),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(376),
+    [aux_sym_end_if_statement_token1] = ACTIONS(376),
+    [aux_sym_elseif_clause_token2] = ACTIONS(376),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(376),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token1] = ACTIONS(376),
+    [aux_sym_select_case_statement_token3] = ACTIONS(376),
+    [aux_sym_select_type_statement_token1] = ACTIONS(376),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(376),
+    [aux_sym_block_construct_token1] = ACTIONS(376),
+    [aux_sym_associate_statement_token1] = ACTIONS(376),
+    [aux_sym_format_statement_token1] = ACTIONS(376),
+    [aux_sym_print_statement_token1] = ACTIONS(376),
+    [aux_sym_open_statement_token1] = ACTIONS(376),
+    [aux_sym_close_statement_token1] = ACTIONS(376),
+    [aux_sym_inquire_statement_token1] = ACTIONS(376),
+    [aux_sym_enum_statement_token1] = ACTIONS(376),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token1] = ACTIONS(376),
+    [aux_sym_file_position_statement_token2] = ACTIONS(376),
+    [aux_sym_file_position_statement_token3] = ACTIONS(376),
+    [aux_sym_file_position_statement_token4] = ACTIONS(376),
+    [aux_sym_allocate_statement_token1] = ACTIONS(376),
+    [aux_sym_entry_statement_token1] = ACTIONS(376),
+    [aux_sym_logical_expression_token5] = ACTIONS(718),
+    [anon_sym_DOT] = ACTIONS(376),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(718),
+    [anon_sym_LBRACK] = ACTIONS(718),
+    [aux_sym_boolean_literal_token1] = ACTIONS(718),
+    [aux_sym_boolean_literal_token2] = ACTIONS(718),
+    [aux_sym_null_literal_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_statement_token2] = ACTIONS(376),
+    [aux_sym_coarray_statement_token6] = ACTIONS(376),
+    [aux_sym_coarray_statement_token8] = ACTIONS(376),
+    [aux_sym_coarray_statement_token11] = ACTIONS(376),
+    [aux_sym_coarray_statement_token12] = ACTIONS(376),
+    [aux_sym_coarray_statement_token13] = ACTIONS(376),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(376),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(376),
+    [aux_sym_identifier_token1] = ACTIONS(376),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(718),
+    [sym__float_literal] = ACTIONS(718),
+    [sym__boz_literal] = ACTIONS(718),
+    [sym__string_literal] = ACTIONS(718),
+    [sym__string_literal_kind] = ACTIONS(718),
   },
-  [1386] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
+  [1030] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4279),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [aux_sym_program_statement_token1] = ACTIONS(4279),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_module_statement_token1] = ACTIONS(4279),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4279),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4279),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_function_statement_token1] = ACTIONS(4279),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4279),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4279),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1387] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
+  [1031] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_module_statement_token1] = ACTIONS(4607),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_function_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4607),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1032] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4629),
+    [aux_sym_preproc_def_token1] = ACTIONS(4629),
+    [aux_sym_preproc_if_token1] = ACTIONS(4629),
+    [aux_sym_preproc_if_token2] = ACTIONS(4629),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
+    [sym_preproc_directive] = ACTIONS(4629),
+    [anon_sym_LPAREN2] = ACTIONS(4629),
+    [anon_sym_PLUS] = ACTIONS(4631),
+    [anon_sym_DASH] = ACTIONS(4631),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [aux_sym_program_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
+    [aux_sym_module_statement_token1] = ACTIONS(4629),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4629),
+    [aux_sym_interface_statement_token1] = ACTIONS(4629),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4629),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
+    [aux_sym_function_statement_token1] = ACTIONS(4629),
+    [aux_sym_language_binding_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
+    [aux_sym_contains_statement_token1] = ACTIONS(4629),
+    [aux_sym_use_statement_token1] = ACTIONS(4629),
+    [aux_sym_use_statement_token2] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
+    [aux_sym_save_statement_token1] = ACTIONS(4629),
+    [aux_sym_private_statement_token1] = ACTIONS(4629),
+    [aux_sym_public_statement_token1] = ACTIONS(4629),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
+    [aux_sym_common_statement_token1] = ACTIONS(4629),
+    [aux_sym_import_statement_token1] = ACTIONS(4629),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
+    [aux_sym_derived_type_token1] = ACTIONS(4629),
+    [aux_sym_declared_type_token1] = ACTIONS(4629),
+    [aux_sym_declared_type_token2] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4629),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4629),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
+    [anon_sym_SEMI] = ACTIONS(4631),
+    [aux_sym_stop_statement_token1] = ACTIONS(4629),
+    [aux_sym_stop_statement_token2] = ACTIONS(4629),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
+    [aux_sym_include_statement_token1] = ACTIONS(4629),
+    [aux_sym_data_statement_token1] = ACTIONS(4629),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
+    [aux_sym_block_construct_token1] = ACTIONS(4629),
+    [aux_sym_associate_statement_token1] = ACTIONS(4629),
+    [aux_sym_format_statement_token1] = ACTIONS(4629),
+    [aux_sym_print_statement_token1] = ACTIONS(4629),
+    [aux_sym_open_statement_token1] = ACTIONS(4629),
+    [aux_sym_close_statement_token1] = ACTIONS(4629),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
+    [aux_sym_enum_statement_token1] = ACTIONS(4629),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
+    [aux_sym_entry_statement_token1] = ACTIONS(4629),
+    [aux_sym_logical_expression_token5] = ACTIONS(4631),
+    [anon_sym_DOT] = ACTIONS(4629),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
+    [anon_sym_LBRACK] = ACTIONS(4631),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
+    [aux_sym_null_literal_token1] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
+    [aux_sym_identifier_token1] = ACTIONS(4629),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
+    [sym__integer_literal] = ACTIONS(4631),
+    [sym__float_literal] = ACTIONS(4631),
+    [sym__boz_literal] = ACTIONS(4631),
+    [sym__string_literal] = ACTIONS(4631),
+    [sym__string_literal_kind] = ACTIONS(4631),
   },
-  [1388] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+  [1033] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4375),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1389] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1034] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4633),
+    [aux_sym_preproc_def_token1] = ACTIONS(4633),
+    [aux_sym_preproc_if_token1] = ACTIONS(4633),
+    [aux_sym_preproc_if_token2] = ACTIONS(4633),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4633),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4633),
+    [sym_preproc_directive] = ACTIONS(4633),
+    [anon_sym_LPAREN2] = ACTIONS(4633),
+    [anon_sym_PLUS] = ACTIONS(4635),
+    [anon_sym_DASH] = ACTIONS(4635),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_program_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4633),
+    [aux_sym_module_statement_token1] = ACTIONS(4633),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4633),
+    [aux_sym_interface_statement_token1] = ACTIONS(4633),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4633),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4633),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4633),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4633),
+    [aux_sym_function_statement_token1] = ACTIONS(4633),
+    [aux_sym_language_binding_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4633),
+    [aux_sym_contains_statement_token1] = ACTIONS(4633),
+    [aux_sym_use_statement_token1] = ACTIONS(4633),
+    [aux_sym_use_statement_token2] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4633),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4633),
+    [aux_sym_save_statement_token1] = ACTIONS(4633),
+    [aux_sym_private_statement_token1] = ACTIONS(4633),
+    [aux_sym_public_statement_token1] = ACTIONS(4633),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4633),
+    [aux_sym_common_statement_token1] = ACTIONS(4633),
+    [aux_sym_import_statement_token1] = ACTIONS(4633),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4633),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4633),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4633),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4633),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4633),
+    [aux_sym_derived_type_token1] = ACTIONS(4633),
+    [aux_sym_declared_type_token1] = ACTIONS(4633),
+    [aux_sym_declared_type_token2] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4633),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4633),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4633),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4633),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4633),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4633),
+    [anon_sym_SEMI] = ACTIONS(4635),
+    [aux_sym_stop_statement_token1] = ACTIONS(4633),
+    [aux_sym_stop_statement_token2] = ACTIONS(4633),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4633),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4633),
+    [aux_sym_include_statement_token1] = ACTIONS(4633),
+    [aux_sym_data_statement_token1] = ACTIONS(4633),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4633),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4633),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4633),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4633),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4633),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4633),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4633),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4633),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4633),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4633),
+    [aux_sym_block_construct_token1] = ACTIONS(4633),
+    [aux_sym_associate_statement_token1] = ACTIONS(4633),
+    [aux_sym_format_statement_token1] = ACTIONS(4633),
+    [aux_sym_print_statement_token1] = ACTIONS(4633),
+    [aux_sym_open_statement_token1] = ACTIONS(4633),
+    [aux_sym_close_statement_token1] = ACTIONS(4633),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4633),
+    [aux_sym_enum_statement_token1] = ACTIONS(4633),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4633),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4633),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4633),
+    [aux_sym_entry_statement_token1] = ACTIONS(4633),
+    [aux_sym_logical_expression_token5] = ACTIONS(4635),
+    [anon_sym_DOT] = ACTIONS(4633),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4635),
+    [anon_sym_LBRACK] = ACTIONS(4635),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4635),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4635),
+    [aux_sym_null_literal_token1] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4633),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4633),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4633),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4633),
+    [aux_sym_identifier_token1] = ACTIONS(4633),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(4635),
+    [sym__float_literal] = ACTIONS(4635),
+    [sym__boz_literal] = ACTIONS(4635),
+    [sym__string_literal] = ACTIONS(4635),
+    [sym__string_literal_kind] = ACTIONS(4635),
   },
-  [1390] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1035] = {
+    [sym_preproc_include] = STATE(1112),
+    [sym_preproc_def] = STATE(1112),
+    [sym_preproc_function_def] = STATE(1112),
+    [sym_preproc_call] = STATE(1112),
+    [sym_preproc_if_in_module] = STATE(1112),
+    [sym_preproc_ifdef_in_module] = STATE(1112),
+    [sym_end_module_statement] = STATE(1087),
+    [sym_interface] = STATE(1112),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7157),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(1112),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1112),
+    [sym_public_statement] = STATE(1112),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1112),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1112),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1112),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4825),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4827),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4813),
+    [aux_sym_public_statement_token1] = ACTIONS(4815),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1391] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
-  },
-  [1392] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1393] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1036] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4637),
+    [aux_sym_preproc_def_token1] = ACTIONS(4637),
+    [aux_sym_preproc_if_token1] = ACTIONS(4637),
+    [aux_sym_preproc_if_token2] = ACTIONS(4637),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
+    [sym_preproc_directive] = ACTIONS(4637),
+    [anon_sym_LPAREN2] = ACTIONS(4637),
+    [anon_sym_PLUS] = ACTIONS(4639),
+    [anon_sym_DASH] = ACTIONS(4639),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_program_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
+    [aux_sym_module_statement_token1] = ACTIONS(4637),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4637),
+    [aux_sym_interface_statement_token1] = ACTIONS(4637),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4637),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
+    [aux_sym_function_statement_token1] = ACTIONS(4637),
+    [aux_sym_language_binding_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
+    [aux_sym_contains_statement_token1] = ACTIONS(4637),
+    [aux_sym_use_statement_token1] = ACTIONS(4637),
+    [aux_sym_use_statement_token2] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
+    [aux_sym_save_statement_token1] = ACTIONS(4637),
+    [aux_sym_private_statement_token1] = ACTIONS(4637),
+    [aux_sym_public_statement_token1] = ACTIONS(4637),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
+    [aux_sym_common_statement_token1] = ACTIONS(4637),
+    [aux_sym_import_statement_token1] = ACTIONS(4637),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
+    [aux_sym_derived_type_token1] = ACTIONS(4637),
+    [aux_sym_declared_type_token1] = ACTIONS(4637),
+    [aux_sym_declared_type_token2] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4637),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4637),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
+    [anon_sym_SEMI] = ACTIONS(4639),
+    [aux_sym_stop_statement_token1] = ACTIONS(4637),
+    [aux_sym_stop_statement_token2] = ACTIONS(4637),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
+    [aux_sym_include_statement_token1] = ACTIONS(4637),
+    [aux_sym_data_statement_token1] = ACTIONS(4637),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
+    [aux_sym_block_construct_token1] = ACTIONS(4637),
+    [aux_sym_associate_statement_token1] = ACTIONS(4637),
+    [aux_sym_format_statement_token1] = ACTIONS(4637),
+    [aux_sym_print_statement_token1] = ACTIONS(4637),
+    [aux_sym_open_statement_token1] = ACTIONS(4637),
+    [aux_sym_close_statement_token1] = ACTIONS(4637),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
+    [aux_sym_enum_statement_token1] = ACTIONS(4637),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
+    [aux_sym_entry_statement_token1] = ACTIONS(4637),
+    [aux_sym_logical_expression_token5] = ACTIONS(4639),
+    [anon_sym_DOT] = ACTIONS(4637),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
+    [anon_sym_LBRACK] = ACTIONS(4639),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
+    [aux_sym_null_literal_token1] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
+    [aux_sym_identifier_token1] = ACTIONS(4637),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1394] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1395] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1396] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
-  },
-  [1397] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+    [sym__integer_literal] = ACTIONS(4639),
+    [sym__float_literal] = ACTIONS(4639),
+    [sym__boz_literal] = ACTIONS(4639),
+    [sym__string_literal] = ACTIONS(4639),
+    [sym__string_literal_kind] = ACTIONS(4639),
   },
-  [1398] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1037] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4641),
+    [aux_sym_preproc_def_token1] = ACTIONS(4641),
+    [aux_sym_preproc_if_token1] = ACTIONS(4641),
+    [aux_sym_preproc_if_token2] = ACTIONS(4641),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4641),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4641),
+    [sym_preproc_directive] = ACTIONS(4641),
+    [anon_sym_LPAREN2] = ACTIONS(4641),
+    [anon_sym_PLUS] = ACTIONS(4643),
+    [anon_sym_DASH] = ACTIONS(4643),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_program_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4641),
+    [aux_sym_module_statement_token1] = ACTIONS(4641),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4641),
+    [aux_sym_interface_statement_token1] = ACTIONS(4641),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4641),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4641),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4641),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4641),
+    [aux_sym_function_statement_token1] = ACTIONS(4641),
+    [aux_sym_language_binding_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4641),
+    [aux_sym_contains_statement_token1] = ACTIONS(4641),
+    [aux_sym_use_statement_token1] = ACTIONS(4641),
+    [aux_sym_use_statement_token2] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4641),
+    [aux_sym_save_statement_token1] = ACTIONS(4641),
+    [aux_sym_private_statement_token1] = ACTIONS(4641),
+    [aux_sym_public_statement_token1] = ACTIONS(4641),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4641),
+    [aux_sym_common_statement_token1] = ACTIONS(4641),
+    [aux_sym_import_statement_token1] = ACTIONS(4641),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4641),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4641),
+    [aux_sym_derived_type_token1] = ACTIONS(4641),
+    [aux_sym_declared_type_token1] = ACTIONS(4641),
+    [aux_sym_declared_type_token2] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4641),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4641),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4641),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4641),
+    [anon_sym_SEMI] = ACTIONS(4643),
+    [aux_sym_stop_statement_token1] = ACTIONS(4641),
+    [aux_sym_stop_statement_token2] = ACTIONS(4641),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4641),
+    [aux_sym_include_statement_token1] = ACTIONS(4641),
+    [aux_sym_data_statement_token1] = ACTIONS(4641),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4641),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4641),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4641),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4641),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4641),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4641),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4641),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4641),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4641),
+    [aux_sym_block_construct_token1] = ACTIONS(4641),
+    [aux_sym_associate_statement_token1] = ACTIONS(4641),
+    [aux_sym_format_statement_token1] = ACTIONS(4641),
+    [aux_sym_print_statement_token1] = ACTIONS(4641),
+    [aux_sym_open_statement_token1] = ACTIONS(4641),
+    [aux_sym_close_statement_token1] = ACTIONS(4641),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4641),
+    [aux_sym_enum_statement_token1] = ACTIONS(4641),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4641),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4641),
+    [aux_sym_entry_statement_token1] = ACTIONS(4641),
+    [aux_sym_logical_expression_token5] = ACTIONS(4643),
+    [anon_sym_DOT] = ACTIONS(4641),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4643),
+    [anon_sym_LBRACK] = ACTIONS(4643),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4643),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4643),
+    [aux_sym_null_literal_token1] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4641),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4641),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4641),
+    [aux_sym_identifier_token1] = ACTIONS(4641),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [1399] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+    [sym__integer_literal] = ACTIONS(4643),
+    [sym__float_literal] = ACTIONS(4643),
+    [sym__boz_literal] = ACTIONS(4643),
+    [sym__string_literal] = ACTIONS(4643),
+    [sym__string_literal_kind] = ACTIONS(4643),
   },
-  [1400] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
+  [1038] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4625),
+    [aux_sym_preproc_def_token1] = ACTIONS(4625),
+    [aux_sym_preproc_if_token1] = ACTIONS(4625),
+    [aux_sym_preproc_if_token2] = ACTIONS(4625),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4625),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4625),
+    [sym_preproc_directive] = ACTIONS(4625),
+    [anon_sym_LPAREN2] = ACTIONS(4625),
+    [anon_sym_PLUS] = ACTIONS(4627),
+    [anon_sym_DASH] = ACTIONS(4627),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [aux_sym_program_statement_token1] = ACTIONS(4625),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4625),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4625),
+    [aux_sym_module_statement_token1] = ACTIONS(4625),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4625),
+    [aux_sym_interface_statement_token1] = ACTIONS(4625),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4625),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4625),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4625),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4625),
+    [aux_sym_function_statement_token1] = ACTIONS(4625),
+    [aux_sym_language_binding_token1] = ACTIONS(4625),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4625),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4625),
+    [aux_sym_contains_statement_token1] = ACTIONS(4625),
+    [aux_sym_use_statement_token1] = ACTIONS(4625),
+    [aux_sym_use_statement_token2] = ACTIONS(4625),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4625),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4625),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4625),
+    [aux_sym_save_statement_token1] = ACTIONS(4625),
+    [aux_sym_private_statement_token1] = ACTIONS(4625),
+    [aux_sym_public_statement_token1] = ACTIONS(4625),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4625),
+    [aux_sym_common_statement_token1] = ACTIONS(4625),
+    [aux_sym_import_statement_token1] = ACTIONS(4625),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4625),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4625),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4625),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4625),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4625),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4625),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4625),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4625),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4625),
+    [aux_sym_derived_type_token1] = ACTIONS(4625),
+    [aux_sym_declared_type_token1] = ACTIONS(4625),
+    [aux_sym_declared_type_token2] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4625),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4625),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4625),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4625),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4625),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4625),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4625),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4625),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4625),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4625),
+    [anon_sym_SEMI] = ACTIONS(4627),
+    [aux_sym_stop_statement_token1] = ACTIONS(4625),
+    [aux_sym_stop_statement_token2] = ACTIONS(4625),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4625),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4625),
+    [aux_sym_include_statement_token1] = ACTIONS(4625),
+    [aux_sym_data_statement_token1] = ACTIONS(4625),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4625),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4625),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4625),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4625),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4625),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4625),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4625),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4625),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4625),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4625),
+    [aux_sym_block_construct_token1] = ACTIONS(4625),
+    [aux_sym_associate_statement_token1] = ACTIONS(4625),
+    [aux_sym_format_statement_token1] = ACTIONS(4625),
+    [aux_sym_print_statement_token1] = ACTIONS(4625),
+    [aux_sym_open_statement_token1] = ACTIONS(4625),
+    [aux_sym_close_statement_token1] = ACTIONS(4625),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4625),
+    [aux_sym_enum_statement_token1] = ACTIONS(4625),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4625),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4625),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4625),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4625),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4625),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4625),
+    [aux_sym_entry_statement_token1] = ACTIONS(4625),
+    [aux_sym_logical_expression_token5] = ACTIONS(4627),
+    [anon_sym_DOT] = ACTIONS(4625),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4627),
+    [anon_sym_LBRACK] = ACTIONS(4627),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4627),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4627),
+    [aux_sym_null_literal_token1] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4625),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4625),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4625),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4625),
+    [aux_sym_identifier_token1] = ACTIONS(4625),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
+    [sym__integer_literal] = ACTIONS(4627),
+    [sym__float_literal] = ACTIONS(4627),
+    [sym__boz_literal] = ACTIONS(4627),
+    [sym__string_literal] = ACTIONS(4627),
+    [sym__string_literal_kind] = ACTIONS(4627),
   },
-  [1401] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
+  [1039] = {
+    [ts_builtin_sym_end] = ACTIONS(4483),
+    [aux_sym_preproc_include_token1] = ACTIONS(4481),
+    [aux_sym_preproc_def_token1] = ACTIONS(4481),
+    [aux_sym_preproc_if_token1] = ACTIONS(4481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4481),
+    [sym_preproc_directive] = ACTIONS(4481),
+    [anon_sym_LPAREN2] = ACTIONS(4481),
+    [anon_sym_PLUS] = ACTIONS(4483),
+    [anon_sym_DASH] = ACTIONS(4483),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [aux_sym_program_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4481),
+    [aux_sym_module_statement_token1] = ACTIONS(4481),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4481),
+    [aux_sym_interface_statement_token1] = ACTIONS(4481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4481),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4481),
+    [aux_sym_function_statement_token1] = ACTIONS(4481),
+    [aux_sym_language_binding_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4481),
+    [aux_sym_contains_statement_token1] = ACTIONS(4481),
+    [aux_sym_use_statement_token1] = ACTIONS(4481),
+    [aux_sym_use_statement_token2] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4481),
+    [aux_sym_save_statement_token1] = ACTIONS(4481),
+    [aux_sym_private_statement_token1] = ACTIONS(4481),
+    [aux_sym_public_statement_token1] = ACTIONS(4481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4481),
+    [aux_sym_common_statement_token1] = ACTIONS(4481),
+    [aux_sym_import_statement_token1] = ACTIONS(4481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4481),
+    [aux_sym_derived_type_token1] = ACTIONS(4481),
+    [aux_sym_declared_type_token1] = ACTIONS(4481),
+    [aux_sym_declared_type_token2] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4481),
+    [anon_sym_SEMI] = ACTIONS(4483),
+    [aux_sym_stop_statement_token1] = ACTIONS(4481),
+    [aux_sym_stop_statement_token2] = ACTIONS(4481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4481),
+    [aux_sym_include_statement_token1] = ACTIONS(4481),
+    [aux_sym_data_statement_token1] = ACTIONS(4481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4481),
+    [aux_sym_block_construct_token1] = ACTIONS(4481),
+    [aux_sym_associate_statement_token1] = ACTIONS(4481),
+    [aux_sym_format_statement_token1] = ACTIONS(4481),
+    [aux_sym_print_statement_token1] = ACTIONS(4481),
+    [aux_sym_open_statement_token1] = ACTIONS(4481),
+    [aux_sym_close_statement_token1] = ACTIONS(4481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4481),
+    [aux_sym_enum_statement_token1] = ACTIONS(4481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4481),
+    [aux_sym_entry_statement_token1] = ACTIONS(4481),
+    [aux_sym_logical_expression_token5] = ACTIONS(4483),
+    [anon_sym_DOT] = ACTIONS(4481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4483),
+    [anon_sym_LBRACK] = ACTIONS(4483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4483),
+    [aux_sym_null_literal_token1] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4481),
+    [aux_sym_identifier_token1] = ACTIONS(4481),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
+    [sym__integer_literal] = ACTIONS(4483),
+    [sym__float_literal] = ACTIONS(4483),
+    [sym__boz_literal] = ACTIONS(4483),
+    [sym__string_literal] = ACTIONS(4483),
+    [sym__string_literal_kind] = ACTIONS(4483),
   },
-  [1402] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
+  [1040] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4401),
+    [aux_sym_preproc_def_token1] = ACTIONS(4401),
+    [aux_sym_preproc_if_token1] = ACTIONS(4401),
+    [aux_sym_preproc_if_token2] = ACTIONS(4401),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
+    [sym_preproc_directive] = ACTIONS(4401),
+    [anon_sym_LPAREN2] = ACTIONS(4401),
+    [anon_sym_PLUS] = ACTIONS(4403),
+    [anon_sym_DASH] = ACTIONS(4403),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [aux_sym_program_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
+    [aux_sym_module_statement_token1] = ACTIONS(4401),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4401),
+    [aux_sym_interface_statement_token1] = ACTIONS(4401),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4401),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
+    [aux_sym_function_statement_token1] = ACTIONS(4401),
+    [aux_sym_language_binding_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
+    [aux_sym_contains_statement_token1] = ACTIONS(4401),
+    [aux_sym_use_statement_token1] = ACTIONS(4401),
+    [aux_sym_use_statement_token2] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
+    [aux_sym_save_statement_token1] = ACTIONS(4401),
+    [aux_sym_private_statement_token1] = ACTIONS(4401),
+    [aux_sym_public_statement_token1] = ACTIONS(4401),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
+    [aux_sym_common_statement_token1] = ACTIONS(4401),
+    [aux_sym_import_statement_token1] = ACTIONS(4401),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
+    [aux_sym_derived_type_token1] = ACTIONS(4401),
+    [aux_sym_declared_type_token1] = ACTIONS(4401),
+    [aux_sym_declared_type_token2] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4401),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
+    [anon_sym_SEMI] = ACTIONS(4403),
+    [aux_sym_stop_statement_token1] = ACTIONS(4401),
+    [aux_sym_stop_statement_token2] = ACTIONS(4401),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
+    [aux_sym_include_statement_token1] = ACTIONS(4401),
+    [aux_sym_data_statement_token1] = ACTIONS(4401),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
+    [aux_sym_block_construct_token1] = ACTIONS(4401),
+    [aux_sym_associate_statement_token1] = ACTIONS(4401),
+    [aux_sym_format_statement_token1] = ACTIONS(4401),
+    [aux_sym_print_statement_token1] = ACTIONS(4401),
+    [aux_sym_open_statement_token1] = ACTIONS(4401),
+    [aux_sym_close_statement_token1] = ACTIONS(4401),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
+    [aux_sym_enum_statement_token1] = ACTIONS(4401),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
+    [aux_sym_entry_statement_token1] = ACTIONS(4401),
+    [aux_sym_logical_expression_token5] = ACTIONS(4403),
+    [anon_sym_DOT] = ACTIONS(4401),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
+    [anon_sym_LBRACK] = ACTIONS(4403),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
+    [aux_sym_null_literal_token1] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
+    [aux_sym_identifier_token1] = ACTIONS(4401),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
+    [sym__integer_literal] = ACTIONS(4403),
+    [sym__float_literal] = ACTIONS(4403),
+    [sym__boz_literal] = ACTIONS(4403),
+    [sym__string_literal] = ACTIONS(4403),
+    [sym__string_literal_kind] = ACTIONS(4403),
   },
-  [1403] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
+  [1041] = {
+    [ts_builtin_sym_end] = ACTIONS(4499),
+    [aux_sym_preproc_include_token1] = ACTIONS(4497),
+    [aux_sym_preproc_def_token1] = ACTIONS(4497),
+    [aux_sym_preproc_if_token1] = ACTIONS(4497),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
+    [sym_preproc_directive] = ACTIONS(4497),
+    [anon_sym_LPAREN2] = ACTIONS(4497),
+    [anon_sym_PLUS] = ACTIONS(4499),
+    [anon_sym_DASH] = ACTIONS(4499),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [aux_sym_program_statement_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
+    [aux_sym_module_statement_token1] = ACTIONS(4497),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4497),
+    [aux_sym_interface_statement_token1] = ACTIONS(4497),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4497),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
+    [aux_sym_function_statement_token1] = ACTIONS(4497),
+    [aux_sym_language_binding_token1] = ACTIONS(4497),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
+    [aux_sym_contains_statement_token1] = ACTIONS(4497),
+    [aux_sym_use_statement_token1] = ACTIONS(4497),
+    [aux_sym_use_statement_token2] = ACTIONS(4497),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
+    [aux_sym_save_statement_token1] = ACTIONS(4497),
+    [aux_sym_private_statement_token1] = ACTIONS(4497),
+    [aux_sym_public_statement_token1] = ACTIONS(4497),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
+    [aux_sym_common_statement_token1] = ACTIONS(4497),
+    [aux_sym_import_statement_token1] = ACTIONS(4497),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
+    [aux_sym_derived_type_token1] = ACTIONS(4497),
+    [aux_sym_declared_type_token1] = ACTIONS(4497),
+    [aux_sym_declared_type_token2] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4497),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
+    [anon_sym_SEMI] = ACTIONS(4499),
+    [aux_sym_stop_statement_token1] = ACTIONS(4497),
+    [aux_sym_stop_statement_token2] = ACTIONS(4497),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
+    [aux_sym_include_statement_token1] = ACTIONS(4497),
+    [aux_sym_data_statement_token1] = ACTIONS(4497),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
+    [aux_sym_block_construct_token1] = ACTIONS(4497),
+    [aux_sym_associate_statement_token1] = ACTIONS(4497),
+    [aux_sym_format_statement_token1] = ACTIONS(4497),
+    [aux_sym_print_statement_token1] = ACTIONS(4497),
+    [aux_sym_open_statement_token1] = ACTIONS(4497),
+    [aux_sym_close_statement_token1] = ACTIONS(4497),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
+    [aux_sym_enum_statement_token1] = ACTIONS(4497),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
+    [aux_sym_entry_statement_token1] = ACTIONS(4497),
+    [aux_sym_logical_expression_token5] = ACTIONS(4499),
+    [anon_sym_DOT] = ACTIONS(4497),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4499),
+    [anon_sym_LBRACK] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4499),
+    [aux_sym_null_literal_token1] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
+    [aux_sym_identifier_token1] = ACTIONS(4497),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1404] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
+    [sym__integer_literal] = ACTIONS(4499),
+    [sym__float_literal] = ACTIONS(4499),
+    [sym__boz_literal] = ACTIONS(4499),
+    [sym__string_literal] = ACTIONS(4499),
+    [sym__string_literal_kind] = ACTIONS(4499),
   },
-  [1405] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
+  [1042] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_module_statement_token1] = ACTIONS(4543),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_function_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4543),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [1406] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1043] = {
+    [ts_builtin_sym_end] = ACTIONS(4573),
+    [aux_sym_preproc_include_token1] = ACTIONS(4571),
+    [aux_sym_preproc_def_token1] = ACTIONS(4571),
+    [aux_sym_preproc_if_token1] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4571),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4571),
+    [sym_preproc_directive] = ACTIONS(4571),
+    [anon_sym_LPAREN2] = ACTIONS(4571),
+    [anon_sym_PLUS] = ACTIONS(4573),
+    [anon_sym_DASH] = ACTIONS(4573),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4571),
+    [aux_sym_module_statement_token1] = ACTIONS(4571),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4571),
+    [aux_sym_interface_statement_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4571),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4571),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4571),
+    [aux_sym_function_statement_token1] = ACTIONS(4571),
+    [aux_sym_language_binding_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4571),
+    [aux_sym_contains_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token1] = ACTIONS(4571),
+    [aux_sym_use_statement_token2] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4571),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4571),
+    [aux_sym_save_statement_token1] = ACTIONS(4571),
+    [aux_sym_private_statement_token1] = ACTIONS(4571),
+    [aux_sym_public_statement_token1] = ACTIONS(4571),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4571),
+    [aux_sym_common_statement_token1] = ACTIONS(4571),
+    [aux_sym_import_statement_token1] = ACTIONS(4571),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4571),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4571),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4571),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4571),
+    [aux_sym_derived_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token1] = ACTIONS(4571),
+    [aux_sym_declared_type_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4571),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4571),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4571),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4571),
+    [anon_sym_SEMI] = ACTIONS(4573),
+    [aux_sym_stop_statement_token1] = ACTIONS(4571),
+    [aux_sym_stop_statement_token2] = ACTIONS(4571),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4571),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4571),
+    [aux_sym_include_statement_token1] = ACTIONS(4571),
+    [aux_sym_data_statement_token1] = ACTIONS(4571),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4571),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4571),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4571),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4571),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4571),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4571),
+    [aux_sym_block_construct_token1] = ACTIONS(4571),
+    [aux_sym_associate_statement_token1] = ACTIONS(4571),
+    [aux_sym_format_statement_token1] = ACTIONS(4571),
+    [aux_sym_print_statement_token1] = ACTIONS(4571),
+    [aux_sym_open_statement_token1] = ACTIONS(4571),
+    [aux_sym_close_statement_token1] = ACTIONS(4571),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4571),
+    [aux_sym_enum_statement_token1] = ACTIONS(4571),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4571),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4571),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4571),
+    [aux_sym_entry_statement_token1] = ACTIONS(4571),
+    [aux_sym_logical_expression_token5] = ACTIONS(4573),
+    [anon_sym_DOT] = ACTIONS(4571),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4573),
+    [anon_sym_LBRACK] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4573),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4573),
+    [aux_sym_null_literal_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4571),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4571),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4571),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4571),
+    [aux_sym_identifier_token1] = ACTIONS(4571),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4573),
+    [sym__float_literal] = ACTIONS(4573),
+    [sym__boz_literal] = ACTIONS(4573),
+    [sym__string_literal] = ACTIONS(4573),
+    [sym__string_literal_kind] = ACTIONS(4573),
   },
-  [1407] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+  [1044] = {
+    [ts_builtin_sym_end] = ACTIONS(4427),
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4425),
+    [aux_sym_module_statement_token1] = ACTIONS(4425),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_function_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1408] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+  [1045] = {
+    [ts_builtin_sym_end] = ACTIONS(4613),
+    [aux_sym_preproc_include_token1] = ACTIONS(4611),
+    [aux_sym_preproc_def_token1] = ACTIONS(4611),
+    [aux_sym_preproc_if_token1] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4611),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4611),
+    [sym_preproc_directive] = ACTIONS(4611),
+    [anon_sym_LPAREN2] = ACTIONS(4611),
+    [anon_sym_PLUS] = ACTIONS(4613),
+    [anon_sym_DASH] = ACTIONS(4613),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4611),
+    [aux_sym_module_statement_token1] = ACTIONS(4611),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4611),
+    [aux_sym_interface_statement_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4611),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4611),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4611),
+    [aux_sym_function_statement_token1] = ACTIONS(4611),
+    [aux_sym_language_binding_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4611),
+    [aux_sym_contains_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token1] = ACTIONS(4611),
+    [aux_sym_use_statement_token2] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4611),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4611),
+    [aux_sym_save_statement_token1] = ACTIONS(4611),
+    [aux_sym_private_statement_token1] = ACTIONS(4611),
+    [aux_sym_public_statement_token1] = ACTIONS(4611),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4611),
+    [aux_sym_common_statement_token1] = ACTIONS(4611),
+    [aux_sym_import_statement_token1] = ACTIONS(4611),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4611),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4611),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4611),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4611),
+    [aux_sym_derived_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token1] = ACTIONS(4611),
+    [aux_sym_declared_type_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4611),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4611),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4611),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4611),
+    [anon_sym_SEMI] = ACTIONS(4613),
+    [aux_sym_stop_statement_token1] = ACTIONS(4611),
+    [aux_sym_stop_statement_token2] = ACTIONS(4611),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4611),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4611),
+    [aux_sym_include_statement_token1] = ACTIONS(4611),
+    [aux_sym_data_statement_token1] = ACTIONS(4611),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4611),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4611),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4611),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4611),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4611),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4611),
+    [aux_sym_block_construct_token1] = ACTIONS(4611),
+    [aux_sym_associate_statement_token1] = ACTIONS(4611),
+    [aux_sym_format_statement_token1] = ACTIONS(4611),
+    [aux_sym_print_statement_token1] = ACTIONS(4611),
+    [aux_sym_open_statement_token1] = ACTIONS(4611),
+    [aux_sym_close_statement_token1] = ACTIONS(4611),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4611),
+    [aux_sym_enum_statement_token1] = ACTIONS(4611),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4611),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4611),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4611),
+    [aux_sym_entry_statement_token1] = ACTIONS(4611),
+    [aux_sym_logical_expression_token5] = ACTIONS(4613),
+    [anon_sym_DOT] = ACTIONS(4611),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4613),
+    [anon_sym_LBRACK] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4613),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4613),
+    [aux_sym_null_literal_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4611),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4611),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4611),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4611),
+    [aux_sym_identifier_token1] = ACTIONS(4611),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4613),
+    [sym__float_literal] = ACTIONS(4613),
+    [sym__boz_literal] = ACTIONS(4613),
+    [sym__string_literal] = ACTIONS(4613),
+    [sym__string_literal_kind] = ACTIONS(4613),
   },
-  [1409] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+  [1046] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_module_statement_token1] = ACTIONS(4513),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_function_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4513),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [1410] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5461),
-    [aux_sym_preproc_def_token1] = ACTIONS(5461),
-    [aux_sym_preproc_if_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
-    [sym_preproc_directive] = ACTIONS(5461),
-    [anon_sym_LPAREN2] = ACTIONS(5461),
-    [anon_sym_PLUS] = ACTIONS(5463),
-    [anon_sym_DASH] = ACTIONS(5463),
+  [1047] = {
+    [ts_builtin_sym_end] = ACTIONS(4471),
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5461),
-    [aux_sym_interface_statement_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
-    [aux_sym_language_binding_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
-    [aux_sym_contains_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token2] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
-    [aux_sym_save_statement_token1] = ACTIONS(5461),
-    [aux_sym_private_statement_token1] = ACTIONS(5461),
-    [aux_sym_public_statement_token1] = ACTIONS(5461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
-    [aux_sym_common_statement_token1] = ACTIONS(5461),
-    [aux_sym_import_statement_token1] = ACTIONS(5461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
-    [aux_sym_derived_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
-    [anon_sym_SEMI] = ACTIONS(5463),
-    [aux_sym_stop_statement_token1] = ACTIONS(5461),
-    [aux_sym_stop_statement_token2] = ACTIONS(5461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
-    [aux_sym_include_statement_token1] = ACTIONS(5461),
-    [aux_sym_data_statement_token1] = ACTIONS(5461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
-    [aux_sym_block_construct_token1] = ACTIONS(5461),
-    [aux_sym_associate_statement_token1] = ACTIONS(5461),
-    [aux_sym_format_statement_token1] = ACTIONS(5461),
-    [aux_sym_print_statement_token1] = ACTIONS(5461),
-    [aux_sym_open_statement_token1] = ACTIONS(5461),
-    [aux_sym_close_statement_token1] = ACTIONS(5461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
-    [aux_sym_enum_statement_token1] = ACTIONS(5461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
-    [aux_sym_entry_statement_token1] = ACTIONS(5461),
-    [aux_sym_logical_expression_token5] = ACTIONS(5463),
-    [anon_sym_DOT] = ACTIONS(5461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
-    [anon_sym_LBRACK] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
-    [aux_sym_null_literal_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
-    [aux_sym_identifier_token1] = ACTIONS(5461),
+    [aux_sym_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_module_statement_token1] = ACTIONS(4469),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_function_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4469),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5463),
-    [sym__float_literal] = ACTIONS(5463),
-    [sym__boz_literal] = ACTIONS(5463),
-    [sym__string_literal] = ACTIONS(5463),
-    [sym__string_literal_kind] = ACTIONS(5463),
-  },
-  [1411] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1412] = {
+  [1048] = {
+    [ts_builtin_sym_end] = ACTIONS(4411),
     [aux_sym_preproc_include_token1] = ACTIONS(4409),
     [aux_sym_preproc_def_token1] = ACTIONS(4409),
     [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
     [sym_preproc_directive] = ACTIONS(4409),
@@ -288346,11 +239656,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(4411),
     [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4409),
     [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
+    [aux_sym_module_statement_token1] = ACTIONS(4409),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4409),
     [aux_sym_interface_statement_token1] = ACTIONS(4409),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4409),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_function_statement_token1] = ACTIONS(4409),
     [aux_sym_language_binding_token1] = ACTIONS(4409),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
@@ -288402,6 +239718,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
     [aux_sym_type_qualifier_token1] = ACTIONS(4409),
     [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4409),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
     [anon_sym_SEMI] = ACTIONS(4411),
     [aux_sym_stop_statement_token1] = ACTIONS(4409),
@@ -288464,7 +239785,431 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4411),
     [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1413] = {
+  [1049] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4551),
+    [aux_sym_preproc_def_token1] = ACTIONS(4551),
+    [aux_sym_preproc_if_token1] = ACTIONS(4551),
+    [aux_sym_preproc_if_token2] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4551),
+    [sym_preproc_directive] = ACTIONS(4551),
+    [anon_sym_LPAREN2] = ACTIONS(4551),
+    [anon_sym_PLUS] = ACTIONS(4553),
+    [anon_sym_DASH] = ACTIONS(4553),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4551),
+    [aux_sym_module_statement_token1] = ACTIONS(4551),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4551),
+    [aux_sym_interface_statement_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4551),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4551),
+    [aux_sym_function_statement_token1] = ACTIONS(4551),
+    [aux_sym_language_binding_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4551),
+    [aux_sym_contains_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token2] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4551),
+    [aux_sym_save_statement_token1] = ACTIONS(4551),
+    [aux_sym_private_statement_token1] = ACTIONS(4551),
+    [aux_sym_public_statement_token1] = ACTIONS(4551),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4551),
+    [aux_sym_common_statement_token1] = ACTIONS(4551),
+    [aux_sym_import_statement_token1] = ACTIONS(4551),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4551),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4551),
+    [aux_sym_derived_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4551),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4551),
+    [anon_sym_SEMI] = ACTIONS(4553),
+    [aux_sym_stop_statement_token1] = ACTIONS(4551),
+    [aux_sym_stop_statement_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4551),
+    [aux_sym_include_statement_token1] = ACTIONS(4551),
+    [aux_sym_data_statement_token1] = ACTIONS(4551),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4551),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4551),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4551),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4551),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4551),
+    [aux_sym_block_construct_token1] = ACTIONS(4551),
+    [aux_sym_associate_statement_token1] = ACTIONS(4551),
+    [aux_sym_format_statement_token1] = ACTIONS(4551),
+    [aux_sym_print_statement_token1] = ACTIONS(4551),
+    [aux_sym_open_statement_token1] = ACTIONS(4551),
+    [aux_sym_close_statement_token1] = ACTIONS(4551),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4551),
+    [aux_sym_enum_statement_token1] = ACTIONS(4551),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4551),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4551),
+    [aux_sym_entry_statement_token1] = ACTIONS(4551),
+    [aux_sym_logical_expression_token5] = ACTIONS(4553),
+    [anon_sym_DOT] = ACTIONS(4551),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4553),
+    [anon_sym_LBRACK] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4553),
+    [aux_sym_null_literal_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4551),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4551),
+    [aux_sym_identifier_token1] = ACTIONS(4551),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4553),
+    [sym__float_literal] = ACTIONS(4553),
+    [sym__boz_literal] = ACTIONS(4553),
+    [sym__string_literal] = ACTIONS(4553),
+    [sym__string_literal_kind] = ACTIONS(4553),
+  },
+  [1050] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4559),
+    [aux_sym_preproc_def_token1] = ACTIONS(4559),
+    [aux_sym_preproc_if_token1] = ACTIONS(4559),
+    [aux_sym_preproc_if_token2] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4559),
+    [sym_preproc_directive] = ACTIONS(4559),
+    [anon_sym_LPAREN2] = ACTIONS(4559),
+    [anon_sym_PLUS] = ACTIONS(4561),
+    [anon_sym_DASH] = ACTIONS(4561),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4559),
+    [aux_sym_module_statement_token1] = ACTIONS(4559),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4559),
+    [aux_sym_interface_statement_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4559),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4559),
+    [aux_sym_function_statement_token1] = ACTIONS(4559),
+    [aux_sym_language_binding_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4559),
+    [aux_sym_contains_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token2] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4559),
+    [aux_sym_save_statement_token1] = ACTIONS(4559),
+    [aux_sym_private_statement_token1] = ACTIONS(4559),
+    [aux_sym_public_statement_token1] = ACTIONS(4559),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4559),
+    [aux_sym_common_statement_token1] = ACTIONS(4559),
+    [aux_sym_import_statement_token1] = ACTIONS(4559),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4559),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4559),
+    [aux_sym_derived_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4559),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4559),
+    [anon_sym_SEMI] = ACTIONS(4561),
+    [aux_sym_stop_statement_token1] = ACTIONS(4559),
+    [aux_sym_stop_statement_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4559),
+    [aux_sym_include_statement_token1] = ACTIONS(4559),
+    [aux_sym_data_statement_token1] = ACTIONS(4559),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4559),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4559),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4559),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4559),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4559),
+    [aux_sym_block_construct_token1] = ACTIONS(4559),
+    [aux_sym_associate_statement_token1] = ACTIONS(4559),
+    [aux_sym_format_statement_token1] = ACTIONS(4559),
+    [aux_sym_print_statement_token1] = ACTIONS(4559),
+    [aux_sym_open_statement_token1] = ACTIONS(4559),
+    [aux_sym_close_statement_token1] = ACTIONS(4559),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4559),
+    [aux_sym_enum_statement_token1] = ACTIONS(4559),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4559),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4559),
+    [aux_sym_entry_statement_token1] = ACTIONS(4559),
+    [aux_sym_logical_expression_token5] = ACTIONS(4561),
+    [anon_sym_DOT] = ACTIONS(4559),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4561),
+    [anon_sym_LBRACK] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4561),
+    [aux_sym_null_literal_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4559),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4559),
+    [aux_sym_identifier_token1] = ACTIONS(4559),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4561),
+    [sym__float_literal] = ACTIONS(4561),
+    [sym__boz_literal] = ACTIONS(4561),
+    [sym__string_literal] = ACTIONS(4561),
+    [sym__string_literal_kind] = ACTIONS(4561),
+  },
+  [1051] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4563),
+    [aux_sym_preproc_def_token1] = ACTIONS(4563),
+    [aux_sym_preproc_if_token1] = ACTIONS(4563),
+    [aux_sym_preproc_if_token2] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4563),
+    [sym_preproc_directive] = ACTIONS(4563),
+    [anon_sym_LPAREN2] = ACTIONS(4563),
+    [anon_sym_PLUS] = ACTIONS(4565),
+    [anon_sym_DASH] = ACTIONS(4565),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4563),
+    [aux_sym_module_statement_token1] = ACTIONS(4563),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4563),
+    [aux_sym_interface_statement_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4563),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4563),
+    [aux_sym_function_statement_token1] = ACTIONS(4563),
+    [aux_sym_language_binding_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4563),
+    [aux_sym_contains_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token2] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4563),
+    [aux_sym_save_statement_token1] = ACTIONS(4563),
+    [aux_sym_private_statement_token1] = ACTIONS(4563),
+    [aux_sym_public_statement_token1] = ACTIONS(4563),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4563),
+    [aux_sym_common_statement_token1] = ACTIONS(4563),
+    [aux_sym_import_statement_token1] = ACTIONS(4563),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4563),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4563),
+    [aux_sym_derived_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4563),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4563),
+    [anon_sym_SEMI] = ACTIONS(4565),
+    [aux_sym_stop_statement_token1] = ACTIONS(4563),
+    [aux_sym_stop_statement_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4563),
+    [aux_sym_include_statement_token1] = ACTIONS(4563),
+    [aux_sym_data_statement_token1] = ACTIONS(4563),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4563),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4563),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4563),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4563),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4563),
+    [aux_sym_block_construct_token1] = ACTIONS(4563),
+    [aux_sym_associate_statement_token1] = ACTIONS(4563),
+    [aux_sym_format_statement_token1] = ACTIONS(4563),
+    [aux_sym_print_statement_token1] = ACTIONS(4563),
+    [aux_sym_open_statement_token1] = ACTIONS(4563),
+    [aux_sym_close_statement_token1] = ACTIONS(4563),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4563),
+    [aux_sym_enum_statement_token1] = ACTIONS(4563),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4563),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4563),
+    [aux_sym_entry_statement_token1] = ACTIONS(4563),
+    [aux_sym_logical_expression_token5] = ACTIONS(4565),
+    [anon_sym_DOT] = ACTIONS(4563),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4565),
+    [anon_sym_LBRACK] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4565),
+    [aux_sym_null_literal_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4563),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4563),
+    [aux_sym_identifier_token1] = ACTIONS(4563),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4565),
+    [sym__float_literal] = ACTIONS(4565),
+    [sym__boz_literal] = ACTIONS(4565),
+    [sym__string_literal] = ACTIONS(4565),
+    [sym__string_literal_kind] = ACTIONS(4565),
+  },
+  [1052] = {
+    [ts_builtin_sym_end] = ACTIONS(4415),
     [aux_sym_preproc_include_token1] = ACTIONS(4413),
     [aux_sym_preproc_def_token1] = ACTIONS(4413),
     [aux_sym_preproc_if_token1] = ACTIONS(4413),
@@ -288475,12 +240220,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(4415),
     [anon_sym_DASH] = ACTIONS(4415),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4413),
     [aux_sym_end_program_statement_token1] = ACTIONS(4413),
     [aux_sym_end_program_statement_token2] = ACTIONS(4413),
+    [aux_sym_module_statement_token1] = ACTIONS(4413),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4413),
     [aux_sym_interface_statement_token1] = ACTIONS(4413),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4413),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
+    [aux_sym_function_statement_token1] = ACTIONS(4413),
     [aux_sym_language_binding_token1] = ACTIONS(4413),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
@@ -288532,6 +240282,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
     [aux_sym_type_qualifier_token1] = ACTIONS(4413),
     [aux_sym_type_qualifier_token2] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4413),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
     [anon_sym_SEMI] = ACTIONS(4415),
     [aux_sym_stop_statement_token1] = ACTIONS(4413),
@@ -288594,267 +240349,2263 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4415),
     [sym__string_literal_kind] = ACTIONS(4415),
   },
-  [1414] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+  [1053] = {
+    [ts_builtin_sym_end] = ACTIONS(4503),
+    [aux_sym_preproc_include_token1] = ACTIONS(4501),
+    [aux_sym_preproc_def_token1] = ACTIONS(4501),
+    [aux_sym_preproc_if_token1] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4501),
+    [sym_preproc_directive] = ACTIONS(4501),
+    [anon_sym_LPAREN2] = ACTIONS(4501),
+    [anon_sym_PLUS] = ACTIONS(4503),
+    [anon_sym_DASH] = ACTIONS(4503),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4501),
+    [aux_sym_module_statement_token1] = ACTIONS(4501),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4501),
+    [aux_sym_interface_statement_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4501),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4501),
+    [aux_sym_function_statement_token1] = ACTIONS(4501),
+    [aux_sym_language_binding_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4501),
+    [aux_sym_contains_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token2] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4501),
+    [aux_sym_save_statement_token1] = ACTIONS(4501),
+    [aux_sym_private_statement_token1] = ACTIONS(4501),
+    [aux_sym_public_statement_token1] = ACTIONS(4501),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4501),
+    [aux_sym_common_statement_token1] = ACTIONS(4501),
+    [aux_sym_import_statement_token1] = ACTIONS(4501),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4501),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4501),
+    [aux_sym_derived_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4501),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4501),
+    [anon_sym_SEMI] = ACTIONS(4503),
+    [aux_sym_stop_statement_token1] = ACTIONS(4501),
+    [aux_sym_stop_statement_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4501),
+    [aux_sym_include_statement_token1] = ACTIONS(4501),
+    [aux_sym_data_statement_token1] = ACTIONS(4501),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4501),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4501),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4501),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4501),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4501),
+    [aux_sym_block_construct_token1] = ACTIONS(4501),
+    [aux_sym_associate_statement_token1] = ACTIONS(4501),
+    [aux_sym_format_statement_token1] = ACTIONS(4501),
+    [aux_sym_print_statement_token1] = ACTIONS(4501),
+    [aux_sym_open_statement_token1] = ACTIONS(4501),
+    [aux_sym_close_statement_token1] = ACTIONS(4501),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4501),
+    [aux_sym_enum_statement_token1] = ACTIONS(4501),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4501),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4501),
+    [aux_sym_entry_statement_token1] = ACTIONS(4501),
+    [aux_sym_logical_expression_token5] = ACTIONS(4503),
+    [anon_sym_DOT] = ACTIONS(4501),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4503),
+    [anon_sym_LBRACK] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4503),
+    [aux_sym_null_literal_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4501),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4501),
+    [aux_sym_identifier_token1] = ACTIONS(4501),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4503),
+    [sym__float_literal] = ACTIONS(4503),
+    [sym__boz_literal] = ACTIONS(4503),
+    [sym__string_literal] = ACTIONS(4503),
+    [sym__string_literal_kind] = ACTIONS(4503),
   },
-  [1415] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
+  [1054] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4567),
+    [aux_sym_preproc_def_token1] = ACTIONS(4567),
+    [aux_sym_preproc_if_token1] = ACTIONS(4567),
+    [aux_sym_preproc_if_token2] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4567),
+    [sym_preproc_directive] = ACTIONS(4567),
+    [anon_sym_LPAREN2] = ACTIONS(4567),
+    [anon_sym_PLUS] = ACTIONS(4569),
+    [anon_sym_DASH] = ACTIONS(4569),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4567),
+    [aux_sym_module_statement_token1] = ACTIONS(4567),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4567),
+    [aux_sym_interface_statement_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4567),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4567),
+    [aux_sym_function_statement_token1] = ACTIONS(4567),
+    [aux_sym_language_binding_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4567),
+    [aux_sym_contains_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token2] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4567),
+    [aux_sym_save_statement_token1] = ACTIONS(4567),
+    [aux_sym_private_statement_token1] = ACTIONS(4567),
+    [aux_sym_public_statement_token1] = ACTIONS(4567),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4567),
+    [aux_sym_common_statement_token1] = ACTIONS(4567),
+    [aux_sym_import_statement_token1] = ACTIONS(4567),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4567),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4567),
+    [aux_sym_derived_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4567),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4567),
+    [anon_sym_SEMI] = ACTIONS(4569),
+    [aux_sym_stop_statement_token1] = ACTIONS(4567),
+    [aux_sym_stop_statement_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4567),
+    [aux_sym_include_statement_token1] = ACTIONS(4567),
+    [aux_sym_data_statement_token1] = ACTIONS(4567),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4567),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4567),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4567),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4567),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4567),
+    [aux_sym_block_construct_token1] = ACTIONS(4567),
+    [aux_sym_associate_statement_token1] = ACTIONS(4567),
+    [aux_sym_format_statement_token1] = ACTIONS(4567),
+    [aux_sym_print_statement_token1] = ACTIONS(4567),
+    [aux_sym_open_statement_token1] = ACTIONS(4567),
+    [aux_sym_close_statement_token1] = ACTIONS(4567),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4567),
+    [aux_sym_enum_statement_token1] = ACTIONS(4567),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4567),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4567),
+    [aux_sym_entry_statement_token1] = ACTIONS(4567),
+    [aux_sym_logical_expression_token5] = ACTIONS(4569),
+    [anon_sym_DOT] = ACTIONS(4567),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4569),
+    [anon_sym_LBRACK] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4569),
+    [aux_sym_null_literal_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4567),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4567),
+    [aux_sym_identifier_token1] = ACTIONS(4567),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4569),
+    [sym__float_literal] = ACTIONS(4569),
+    [sym__boz_literal] = ACTIONS(4569),
+    [sym__string_literal] = ACTIONS(4569),
+    [sym__string_literal_kind] = ACTIONS(4569),
   },
-  [1416] = {
+  [1055] = {
+    [ts_builtin_sym_end] = ACTIONS(4399),
+    [aux_sym_preproc_include_token1] = ACTIONS(4397),
+    [aux_sym_preproc_def_token1] = ACTIONS(4397),
+    [aux_sym_preproc_if_token1] = ACTIONS(4397),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4397),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4397),
+    [sym_preproc_directive] = ACTIONS(4397),
+    [anon_sym_LPAREN2] = ACTIONS(4397),
+    [anon_sym_PLUS] = ACTIONS(4399),
+    [anon_sym_DASH] = ACTIONS(4399),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4397),
+    [aux_sym_module_statement_token1] = ACTIONS(4397),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4397),
+    [aux_sym_interface_statement_token1] = ACTIONS(4397),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4397),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4397),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4397),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4397),
+    [aux_sym_function_statement_token1] = ACTIONS(4397),
+    [aux_sym_language_binding_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4397),
+    [aux_sym_contains_statement_token1] = ACTIONS(4397),
+    [aux_sym_use_statement_token1] = ACTIONS(4397),
+    [aux_sym_use_statement_token2] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4397),
+    [aux_sym_save_statement_token1] = ACTIONS(4397),
+    [aux_sym_private_statement_token1] = ACTIONS(4397),
+    [aux_sym_public_statement_token1] = ACTIONS(4397),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4397),
+    [aux_sym_common_statement_token1] = ACTIONS(4397),
+    [aux_sym_import_statement_token1] = ACTIONS(4397),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4397),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4397),
+    [aux_sym_derived_type_token1] = ACTIONS(4397),
+    [aux_sym_declared_type_token1] = ACTIONS(4397),
+    [aux_sym_declared_type_token2] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4397),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4397),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4397),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4397),
+    [anon_sym_SEMI] = ACTIONS(4399),
+    [aux_sym_stop_statement_token1] = ACTIONS(4397),
+    [aux_sym_stop_statement_token2] = ACTIONS(4397),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4397),
+    [aux_sym_include_statement_token1] = ACTIONS(4397),
+    [aux_sym_data_statement_token1] = ACTIONS(4397),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4397),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4397),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4397),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4397),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4397),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4397),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4397),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4397),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4397),
+    [aux_sym_block_construct_token1] = ACTIONS(4397),
+    [aux_sym_associate_statement_token1] = ACTIONS(4397),
+    [aux_sym_format_statement_token1] = ACTIONS(4397),
+    [aux_sym_print_statement_token1] = ACTIONS(4397),
+    [aux_sym_open_statement_token1] = ACTIONS(4397),
+    [aux_sym_close_statement_token1] = ACTIONS(4397),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4397),
+    [aux_sym_enum_statement_token1] = ACTIONS(4397),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4397),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4397),
+    [aux_sym_entry_statement_token1] = ACTIONS(4397),
+    [aux_sym_logical_expression_token5] = ACTIONS(4399),
+    [anon_sym_DOT] = ACTIONS(4397),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4399),
+    [anon_sym_LBRACK] = ACTIONS(4399),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4399),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4399),
+    [aux_sym_null_literal_token1] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4397),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4397),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4397),
+    [aux_sym_identifier_token1] = ACTIONS(4397),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4399),
+    [sym__float_literal] = ACTIONS(4399),
+    [sym__boz_literal] = ACTIONS(4399),
+    [sym__string_literal] = ACTIONS(4399),
+    [sym__string_literal_kind] = ACTIONS(4399),
+  },
+  [1056] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4501),
+    [aux_sym_preproc_def_token1] = ACTIONS(4501),
+    [aux_sym_preproc_if_token1] = ACTIONS(4501),
+    [aux_sym_preproc_if_token2] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4501),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4501),
+    [sym_preproc_directive] = ACTIONS(4501),
+    [anon_sym_LPAREN2] = ACTIONS(4501),
+    [anon_sym_PLUS] = ACTIONS(4503),
+    [anon_sym_DASH] = ACTIONS(4503),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4501),
+    [aux_sym_module_statement_token1] = ACTIONS(4501),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4501),
+    [aux_sym_interface_statement_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4501),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4501),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4501),
+    [aux_sym_function_statement_token1] = ACTIONS(4501),
+    [aux_sym_language_binding_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4501),
+    [aux_sym_contains_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token1] = ACTIONS(4501),
+    [aux_sym_use_statement_token2] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4501),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4501),
+    [aux_sym_save_statement_token1] = ACTIONS(4501),
+    [aux_sym_private_statement_token1] = ACTIONS(4501),
+    [aux_sym_public_statement_token1] = ACTIONS(4501),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4501),
+    [aux_sym_common_statement_token1] = ACTIONS(4501),
+    [aux_sym_import_statement_token1] = ACTIONS(4501),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4501),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4501),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4501),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4501),
+    [aux_sym_derived_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token1] = ACTIONS(4501),
+    [aux_sym_declared_type_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4501),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4501),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4501),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4501),
+    [anon_sym_SEMI] = ACTIONS(4503),
+    [aux_sym_stop_statement_token1] = ACTIONS(4501),
+    [aux_sym_stop_statement_token2] = ACTIONS(4501),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4501),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4501),
+    [aux_sym_include_statement_token1] = ACTIONS(4501),
+    [aux_sym_data_statement_token1] = ACTIONS(4501),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4501),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4501),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4501),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4501),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4501),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4501),
+    [aux_sym_block_construct_token1] = ACTIONS(4501),
+    [aux_sym_associate_statement_token1] = ACTIONS(4501),
+    [aux_sym_format_statement_token1] = ACTIONS(4501),
+    [aux_sym_print_statement_token1] = ACTIONS(4501),
+    [aux_sym_open_statement_token1] = ACTIONS(4501),
+    [aux_sym_close_statement_token1] = ACTIONS(4501),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4501),
+    [aux_sym_enum_statement_token1] = ACTIONS(4501),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4501),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4501),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4501),
+    [aux_sym_entry_statement_token1] = ACTIONS(4501),
+    [aux_sym_logical_expression_token5] = ACTIONS(4503),
+    [anon_sym_DOT] = ACTIONS(4501),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4503),
+    [anon_sym_LBRACK] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4503),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4503),
+    [aux_sym_null_literal_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4501),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4501),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4501),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4501),
+    [aux_sym_identifier_token1] = ACTIONS(4501),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4503),
+    [sym__float_literal] = ACTIONS(4503),
+    [sym__boz_literal] = ACTIONS(4503),
+    [sym__string_literal] = ACTIONS(4503),
+    [sym__string_literal_kind] = ACTIONS(4503),
+  },
+  [1057] = {
+    [ts_builtin_sym_end] = ACTIONS(4407),
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
+    [aux_sym_module_statement_token1] = ACTIONS(4405),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_function_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
+  },
+  [1058] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4293),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1059] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4461),
+    [aux_sym_preproc_def_token1] = ACTIONS(4461),
+    [aux_sym_preproc_if_token1] = ACTIONS(4461),
+    [aux_sym_preproc_if_token2] = ACTIONS(4461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4461),
+    [sym_preproc_directive] = ACTIONS(4461),
+    [anon_sym_LPAREN2] = ACTIONS(4461),
+    [anon_sym_PLUS] = ACTIONS(4463),
+    [anon_sym_DASH] = ACTIONS(4463),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4461),
+    [aux_sym_module_statement_token1] = ACTIONS(4461),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4461),
+    [aux_sym_interface_statement_token1] = ACTIONS(4461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4461),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4461),
+    [aux_sym_function_statement_token1] = ACTIONS(4461),
+    [aux_sym_language_binding_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4461),
+    [aux_sym_contains_statement_token1] = ACTIONS(4461),
+    [aux_sym_use_statement_token1] = ACTIONS(4461),
+    [aux_sym_use_statement_token2] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4461),
+    [aux_sym_save_statement_token1] = ACTIONS(4461),
+    [aux_sym_private_statement_token1] = ACTIONS(4461),
+    [aux_sym_public_statement_token1] = ACTIONS(4461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4461),
+    [aux_sym_common_statement_token1] = ACTIONS(4461),
+    [aux_sym_import_statement_token1] = ACTIONS(4461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4461),
+    [aux_sym_derived_type_token1] = ACTIONS(4461),
+    [aux_sym_declared_type_token1] = ACTIONS(4461),
+    [aux_sym_declared_type_token2] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4461),
+    [anon_sym_SEMI] = ACTIONS(4463),
+    [aux_sym_stop_statement_token1] = ACTIONS(4461),
+    [aux_sym_stop_statement_token2] = ACTIONS(4461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4461),
+    [aux_sym_include_statement_token1] = ACTIONS(4461),
+    [aux_sym_data_statement_token1] = ACTIONS(4461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4461),
+    [aux_sym_block_construct_token1] = ACTIONS(4461),
+    [aux_sym_associate_statement_token1] = ACTIONS(4461),
+    [aux_sym_format_statement_token1] = ACTIONS(4461),
+    [aux_sym_print_statement_token1] = ACTIONS(4461),
+    [aux_sym_open_statement_token1] = ACTIONS(4461),
+    [aux_sym_close_statement_token1] = ACTIONS(4461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4461),
+    [aux_sym_enum_statement_token1] = ACTIONS(4461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4461),
+    [aux_sym_entry_statement_token1] = ACTIONS(4461),
+    [aux_sym_logical_expression_token5] = ACTIONS(4463),
+    [anon_sym_DOT] = ACTIONS(4461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4463),
+    [anon_sym_LBRACK] = ACTIONS(4463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4463),
+    [aux_sym_null_literal_token1] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4461),
+    [aux_sym_identifier_token1] = ACTIONS(4461),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4463),
+    [sym__float_literal] = ACTIONS(4463),
+    [sym__boz_literal] = ACTIONS(4463),
+    [sym__string_literal] = ACTIONS(4463),
+    [sym__string_literal_kind] = ACTIONS(4463),
+  },
+  [1060] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4575),
+    [aux_sym_preproc_def_token1] = ACTIONS(4575),
+    [aux_sym_preproc_if_token1] = ACTIONS(4575),
+    [aux_sym_preproc_if_token2] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4575),
+    [sym_preproc_directive] = ACTIONS(4575),
+    [anon_sym_LPAREN2] = ACTIONS(4575),
+    [anon_sym_PLUS] = ACTIONS(4577),
+    [anon_sym_DASH] = ACTIONS(4577),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4575),
+    [aux_sym_module_statement_token1] = ACTIONS(4575),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4575),
+    [aux_sym_interface_statement_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4575),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4575),
+    [aux_sym_function_statement_token1] = ACTIONS(4575),
+    [aux_sym_language_binding_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4575),
+    [aux_sym_contains_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token2] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4575),
+    [aux_sym_save_statement_token1] = ACTIONS(4575),
+    [aux_sym_private_statement_token1] = ACTIONS(4575),
+    [aux_sym_public_statement_token1] = ACTIONS(4575),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4575),
+    [aux_sym_common_statement_token1] = ACTIONS(4575),
+    [aux_sym_import_statement_token1] = ACTIONS(4575),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4575),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4575),
+    [aux_sym_derived_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4575),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4575),
+    [anon_sym_SEMI] = ACTIONS(4577),
+    [aux_sym_stop_statement_token1] = ACTIONS(4575),
+    [aux_sym_stop_statement_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4575),
+    [aux_sym_include_statement_token1] = ACTIONS(4575),
+    [aux_sym_data_statement_token1] = ACTIONS(4575),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4575),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4575),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4575),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4575),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4575),
+    [aux_sym_block_construct_token1] = ACTIONS(4575),
+    [aux_sym_associate_statement_token1] = ACTIONS(4575),
+    [aux_sym_format_statement_token1] = ACTIONS(4575),
+    [aux_sym_print_statement_token1] = ACTIONS(4575),
+    [aux_sym_open_statement_token1] = ACTIONS(4575),
+    [aux_sym_close_statement_token1] = ACTIONS(4575),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4575),
+    [aux_sym_enum_statement_token1] = ACTIONS(4575),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4575),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4575),
+    [aux_sym_entry_statement_token1] = ACTIONS(4575),
+    [aux_sym_logical_expression_token5] = ACTIONS(4577),
+    [anon_sym_DOT] = ACTIONS(4575),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4577),
+    [anon_sym_LBRACK] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4577),
+    [aux_sym_null_literal_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4575),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4575),
+    [aux_sym_identifier_token1] = ACTIONS(4575),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4577),
+    [sym__float_literal] = ACTIONS(4577),
+    [sym__boz_literal] = ACTIONS(4577),
+    [sym__string_literal] = ACTIONS(4577),
+    [sym__string_literal_kind] = ACTIONS(4577),
+  },
+  [1061] = {
+    [ts_builtin_sym_end] = ACTIONS(4557),
+    [aux_sym_preproc_include_token1] = ACTIONS(4555),
+    [aux_sym_preproc_def_token1] = ACTIONS(4555),
+    [aux_sym_preproc_if_token1] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4555),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4555),
+    [sym_preproc_directive] = ACTIONS(4555),
+    [anon_sym_LPAREN2] = ACTIONS(4555),
+    [anon_sym_PLUS] = ACTIONS(4557),
+    [anon_sym_DASH] = ACTIONS(4557),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4555),
+    [aux_sym_module_statement_token1] = ACTIONS(4555),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4555),
+    [aux_sym_interface_statement_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4555),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4555),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4555),
+    [aux_sym_function_statement_token1] = ACTIONS(4555),
+    [aux_sym_language_binding_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4555),
+    [aux_sym_contains_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token1] = ACTIONS(4555),
+    [aux_sym_use_statement_token2] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4555),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4555),
+    [aux_sym_save_statement_token1] = ACTIONS(4555),
+    [aux_sym_private_statement_token1] = ACTIONS(4555),
+    [aux_sym_public_statement_token1] = ACTIONS(4555),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4555),
+    [aux_sym_common_statement_token1] = ACTIONS(4555),
+    [aux_sym_import_statement_token1] = ACTIONS(4555),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4555),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4555),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4555),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4555),
+    [aux_sym_derived_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token1] = ACTIONS(4555),
+    [aux_sym_declared_type_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4555),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4555),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4555),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4555),
+    [anon_sym_SEMI] = ACTIONS(4557),
+    [aux_sym_stop_statement_token1] = ACTIONS(4555),
+    [aux_sym_stop_statement_token2] = ACTIONS(4555),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4555),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4555),
+    [aux_sym_include_statement_token1] = ACTIONS(4555),
+    [aux_sym_data_statement_token1] = ACTIONS(4555),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4555),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4555),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4555),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4555),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4555),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4555),
+    [aux_sym_block_construct_token1] = ACTIONS(4555),
+    [aux_sym_associate_statement_token1] = ACTIONS(4555),
+    [aux_sym_format_statement_token1] = ACTIONS(4555),
+    [aux_sym_print_statement_token1] = ACTIONS(4555),
+    [aux_sym_open_statement_token1] = ACTIONS(4555),
+    [aux_sym_close_statement_token1] = ACTIONS(4555),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4555),
+    [aux_sym_enum_statement_token1] = ACTIONS(4555),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4555),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4555),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4555),
+    [aux_sym_entry_statement_token1] = ACTIONS(4555),
+    [aux_sym_logical_expression_token5] = ACTIONS(4557),
+    [anon_sym_DOT] = ACTIONS(4555),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4557),
+    [anon_sym_LBRACK] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4557),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4557),
+    [aux_sym_null_literal_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4555),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4555),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4555),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4555),
+    [aux_sym_identifier_token1] = ACTIONS(4555),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4557),
+    [sym__float_literal] = ACTIONS(4557),
+    [sym__boz_literal] = ACTIONS(4557),
+    [sym__string_literal] = ACTIONS(4557),
+    [sym__string_literal_kind] = ACTIONS(4557),
+  },
+  [1062] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4441),
+    [aux_sym_preproc_def_token1] = ACTIONS(4441),
+    [aux_sym_preproc_if_token1] = ACTIONS(4441),
+    [aux_sym_preproc_if_token2] = ACTIONS(4441),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4441),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4441),
+    [sym_preproc_directive] = ACTIONS(4441),
+    [anon_sym_LPAREN2] = ACTIONS(4441),
+    [anon_sym_PLUS] = ACTIONS(4443),
+    [anon_sym_DASH] = ACTIONS(4443),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4441),
+    [aux_sym_module_statement_token1] = ACTIONS(4441),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4441),
+    [aux_sym_interface_statement_token1] = ACTIONS(4441),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4441),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4441),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4441),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4441),
+    [aux_sym_function_statement_token1] = ACTIONS(4441),
+    [aux_sym_language_binding_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4441),
+    [aux_sym_contains_statement_token1] = ACTIONS(4441),
+    [aux_sym_use_statement_token1] = ACTIONS(4441),
+    [aux_sym_use_statement_token2] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4441),
+    [aux_sym_save_statement_token1] = ACTIONS(4441),
+    [aux_sym_private_statement_token1] = ACTIONS(4441),
+    [aux_sym_public_statement_token1] = ACTIONS(4441),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4441),
+    [aux_sym_common_statement_token1] = ACTIONS(4441),
+    [aux_sym_import_statement_token1] = ACTIONS(4441),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4441),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4441),
+    [aux_sym_derived_type_token1] = ACTIONS(4441),
+    [aux_sym_declared_type_token1] = ACTIONS(4441),
+    [aux_sym_declared_type_token2] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4441),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4441),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4441),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4441),
+    [anon_sym_SEMI] = ACTIONS(4443),
+    [aux_sym_stop_statement_token1] = ACTIONS(4441),
+    [aux_sym_stop_statement_token2] = ACTIONS(4441),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4441),
+    [aux_sym_include_statement_token1] = ACTIONS(4441),
+    [aux_sym_data_statement_token1] = ACTIONS(4441),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4441),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4441),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4441),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4441),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4441),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4441),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4441),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4441),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4441),
+    [aux_sym_block_construct_token1] = ACTIONS(4441),
+    [aux_sym_associate_statement_token1] = ACTIONS(4441),
+    [aux_sym_format_statement_token1] = ACTIONS(4441),
+    [aux_sym_print_statement_token1] = ACTIONS(4441),
+    [aux_sym_open_statement_token1] = ACTIONS(4441),
+    [aux_sym_close_statement_token1] = ACTIONS(4441),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4441),
+    [aux_sym_enum_statement_token1] = ACTIONS(4441),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4441),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4441),
+    [aux_sym_entry_statement_token1] = ACTIONS(4441),
+    [aux_sym_logical_expression_token5] = ACTIONS(4443),
+    [anon_sym_DOT] = ACTIONS(4441),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4443),
+    [anon_sym_LBRACK] = ACTIONS(4443),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4443),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4443),
+    [aux_sym_null_literal_token1] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4441),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4441),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4441),
+    [aux_sym_identifier_token1] = ACTIONS(4441),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4443),
+    [sym__float_literal] = ACTIONS(4443),
+    [sym__boz_literal] = ACTIONS(4443),
+    [sym__string_literal] = ACTIONS(4443),
+    [sym__string_literal_kind] = ACTIONS(4443),
+  },
+  [1063] = {
+    [ts_builtin_sym_end] = ACTIONS(4443),
+    [aux_sym_preproc_include_token1] = ACTIONS(4441),
+    [aux_sym_preproc_def_token1] = ACTIONS(4441),
+    [aux_sym_preproc_if_token1] = ACTIONS(4441),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4441),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4441),
+    [sym_preproc_directive] = ACTIONS(4441),
+    [anon_sym_LPAREN2] = ACTIONS(4441),
+    [anon_sym_PLUS] = ACTIONS(4443),
+    [anon_sym_DASH] = ACTIONS(4443),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4441),
+    [aux_sym_module_statement_token1] = ACTIONS(4441),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4441),
+    [aux_sym_interface_statement_token1] = ACTIONS(4441),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4441),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4441),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4441),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4441),
+    [aux_sym_function_statement_token1] = ACTIONS(4441),
+    [aux_sym_language_binding_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4441),
+    [aux_sym_contains_statement_token1] = ACTIONS(4441),
+    [aux_sym_use_statement_token1] = ACTIONS(4441),
+    [aux_sym_use_statement_token2] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4441),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4441),
+    [aux_sym_save_statement_token1] = ACTIONS(4441),
+    [aux_sym_private_statement_token1] = ACTIONS(4441),
+    [aux_sym_public_statement_token1] = ACTIONS(4441),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4441),
+    [aux_sym_common_statement_token1] = ACTIONS(4441),
+    [aux_sym_import_statement_token1] = ACTIONS(4441),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4441),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4441),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4441),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4441),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4441),
+    [aux_sym_derived_type_token1] = ACTIONS(4441),
+    [aux_sym_declared_type_token1] = ACTIONS(4441),
+    [aux_sym_declared_type_token2] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4441),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4441),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4441),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4441),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4441),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4441),
+    [anon_sym_SEMI] = ACTIONS(4443),
+    [aux_sym_stop_statement_token1] = ACTIONS(4441),
+    [aux_sym_stop_statement_token2] = ACTIONS(4441),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4441),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4441),
+    [aux_sym_include_statement_token1] = ACTIONS(4441),
+    [aux_sym_data_statement_token1] = ACTIONS(4441),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4441),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4441),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4441),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4441),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4441),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4441),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4441),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4441),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4441),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4441),
+    [aux_sym_block_construct_token1] = ACTIONS(4441),
+    [aux_sym_associate_statement_token1] = ACTIONS(4441),
+    [aux_sym_format_statement_token1] = ACTIONS(4441),
+    [aux_sym_print_statement_token1] = ACTIONS(4441),
+    [aux_sym_open_statement_token1] = ACTIONS(4441),
+    [aux_sym_close_statement_token1] = ACTIONS(4441),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4441),
+    [aux_sym_enum_statement_token1] = ACTIONS(4441),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4441),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4441),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4441),
+    [aux_sym_entry_statement_token1] = ACTIONS(4441),
+    [aux_sym_logical_expression_token5] = ACTIONS(4443),
+    [anon_sym_DOT] = ACTIONS(4441),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4443),
+    [anon_sym_LBRACK] = ACTIONS(4443),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4443),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4443),
+    [aux_sym_null_literal_token1] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4441),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4441),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4441),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4441),
+    [aux_sym_identifier_token1] = ACTIONS(4441),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4443),
+    [sym__float_literal] = ACTIONS(4443),
+    [sym__boz_literal] = ACTIONS(4443),
+    [sym__string_literal] = ACTIONS(4443),
+    [sym__string_literal_kind] = ACTIONS(4443),
+  },
+  [1064] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4579),
+    [aux_sym_preproc_def_token1] = ACTIONS(4579),
+    [aux_sym_preproc_if_token1] = ACTIONS(4579),
+    [aux_sym_preproc_if_token2] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4579),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4579),
+    [sym_preproc_directive] = ACTIONS(4579),
+    [anon_sym_LPAREN2] = ACTIONS(4579),
+    [anon_sym_PLUS] = ACTIONS(4581),
+    [anon_sym_DASH] = ACTIONS(4581),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4579),
+    [aux_sym_module_statement_token1] = ACTIONS(4579),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4579),
+    [aux_sym_interface_statement_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4579),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4579),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4579),
+    [aux_sym_function_statement_token1] = ACTIONS(4579),
+    [aux_sym_language_binding_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4579),
+    [aux_sym_contains_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token1] = ACTIONS(4579),
+    [aux_sym_use_statement_token2] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4579),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4579),
+    [aux_sym_save_statement_token1] = ACTIONS(4579),
+    [aux_sym_private_statement_token1] = ACTIONS(4579),
+    [aux_sym_public_statement_token1] = ACTIONS(4579),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4579),
+    [aux_sym_common_statement_token1] = ACTIONS(4579),
+    [aux_sym_import_statement_token1] = ACTIONS(4579),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4579),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4579),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4579),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4579),
+    [aux_sym_derived_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token1] = ACTIONS(4579),
+    [aux_sym_declared_type_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4579),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4579),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4579),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4579),
+    [anon_sym_SEMI] = ACTIONS(4581),
+    [aux_sym_stop_statement_token1] = ACTIONS(4579),
+    [aux_sym_stop_statement_token2] = ACTIONS(4579),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4579),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4579),
+    [aux_sym_include_statement_token1] = ACTIONS(4579),
+    [aux_sym_data_statement_token1] = ACTIONS(4579),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4579),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4579),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4579),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4579),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4579),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4579),
+    [aux_sym_block_construct_token1] = ACTIONS(4579),
+    [aux_sym_associate_statement_token1] = ACTIONS(4579),
+    [aux_sym_format_statement_token1] = ACTIONS(4579),
+    [aux_sym_print_statement_token1] = ACTIONS(4579),
+    [aux_sym_open_statement_token1] = ACTIONS(4579),
+    [aux_sym_close_statement_token1] = ACTIONS(4579),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4579),
+    [aux_sym_enum_statement_token1] = ACTIONS(4579),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4579),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4579),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4579),
+    [aux_sym_entry_statement_token1] = ACTIONS(4579),
+    [aux_sym_logical_expression_token5] = ACTIONS(4581),
+    [anon_sym_DOT] = ACTIONS(4579),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4581),
+    [anon_sym_LBRACK] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4581),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4581),
+    [aux_sym_null_literal_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4579),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4579),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4579),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4579),
+    [aux_sym_identifier_token1] = ACTIONS(4579),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4581),
+    [sym__float_literal] = ACTIONS(4581),
+    [sym__boz_literal] = ACTIONS(4581),
+    [sym__string_literal] = ACTIONS(4581),
+    [sym__string_literal_kind] = ACTIONS(4581),
+  },
+  [1065] = {
+    [ts_builtin_sym_end] = ACTIONS(4341),
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1066] = {
+    [ts_builtin_sym_end] = ACTIONS(4605),
+    [aux_sym_preproc_include_token1] = ACTIONS(4603),
+    [aux_sym_preproc_def_token1] = ACTIONS(4603),
+    [aux_sym_preproc_if_token1] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4603),
+    [sym_preproc_directive] = ACTIONS(4603),
+    [anon_sym_LPAREN2] = ACTIONS(4603),
+    [anon_sym_PLUS] = ACTIONS(4605),
+    [anon_sym_DASH] = ACTIONS(4605),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4603),
+    [aux_sym_module_statement_token1] = ACTIONS(4603),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4603),
+    [aux_sym_interface_statement_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4603),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4603),
+    [aux_sym_function_statement_token1] = ACTIONS(4603),
+    [aux_sym_language_binding_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4603),
+    [aux_sym_contains_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token2] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4603),
+    [aux_sym_save_statement_token1] = ACTIONS(4603),
+    [aux_sym_private_statement_token1] = ACTIONS(4603),
+    [aux_sym_public_statement_token1] = ACTIONS(4603),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4603),
+    [aux_sym_common_statement_token1] = ACTIONS(4603),
+    [aux_sym_import_statement_token1] = ACTIONS(4603),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4603),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4603),
+    [aux_sym_derived_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4603),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4603),
+    [anon_sym_SEMI] = ACTIONS(4605),
+    [aux_sym_stop_statement_token1] = ACTIONS(4603),
+    [aux_sym_stop_statement_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4603),
+    [aux_sym_include_statement_token1] = ACTIONS(4603),
+    [aux_sym_data_statement_token1] = ACTIONS(4603),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4603),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4603),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4603),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4603),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4603),
+    [aux_sym_block_construct_token1] = ACTIONS(4603),
+    [aux_sym_associate_statement_token1] = ACTIONS(4603),
+    [aux_sym_format_statement_token1] = ACTIONS(4603),
+    [aux_sym_print_statement_token1] = ACTIONS(4603),
+    [aux_sym_open_statement_token1] = ACTIONS(4603),
+    [aux_sym_close_statement_token1] = ACTIONS(4603),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4603),
+    [aux_sym_enum_statement_token1] = ACTIONS(4603),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4603),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4603),
+    [aux_sym_entry_statement_token1] = ACTIONS(4603),
+    [aux_sym_logical_expression_token5] = ACTIONS(4605),
+    [anon_sym_DOT] = ACTIONS(4603),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4605),
+    [anon_sym_LBRACK] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4605),
+    [aux_sym_null_literal_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4603),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4603),
+    [aux_sym_identifier_token1] = ACTIONS(4603),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4605),
+    [sym__float_literal] = ACTIONS(4605),
+    [sym__boz_literal] = ACTIONS(4605),
+    [sym__string_literal] = ACTIONS(4605),
+    [sym__string_literal_kind] = ACTIONS(4605),
+  },
+  [1067] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4603),
+    [aux_sym_preproc_def_token1] = ACTIONS(4603),
+    [aux_sym_preproc_if_token1] = ACTIONS(4603),
+    [aux_sym_preproc_if_token2] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4603),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4603),
+    [sym_preproc_directive] = ACTIONS(4603),
+    [anon_sym_LPAREN2] = ACTIONS(4603),
+    [anon_sym_PLUS] = ACTIONS(4605),
+    [anon_sym_DASH] = ACTIONS(4605),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4603),
+    [aux_sym_module_statement_token1] = ACTIONS(4603),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4603),
+    [aux_sym_interface_statement_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4603),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4603),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4603),
+    [aux_sym_function_statement_token1] = ACTIONS(4603),
+    [aux_sym_language_binding_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4603),
+    [aux_sym_contains_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token1] = ACTIONS(4603),
+    [aux_sym_use_statement_token2] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4603),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4603),
+    [aux_sym_save_statement_token1] = ACTIONS(4603),
+    [aux_sym_private_statement_token1] = ACTIONS(4603),
+    [aux_sym_public_statement_token1] = ACTIONS(4603),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4603),
+    [aux_sym_common_statement_token1] = ACTIONS(4603),
+    [aux_sym_import_statement_token1] = ACTIONS(4603),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4603),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4603),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4603),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4603),
+    [aux_sym_derived_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token1] = ACTIONS(4603),
+    [aux_sym_declared_type_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4603),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4603),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4603),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4603),
+    [anon_sym_SEMI] = ACTIONS(4605),
+    [aux_sym_stop_statement_token1] = ACTIONS(4603),
+    [aux_sym_stop_statement_token2] = ACTIONS(4603),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4603),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4603),
+    [aux_sym_include_statement_token1] = ACTIONS(4603),
+    [aux_sym_data_statement_token1] = ACTIONS(4603),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4603),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4603),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4603),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4603),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4603),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4603),
+    [aux_sym_block_construct_token1] = ACTIONS(4603),
+    [aux_sym_associate_statement_token1] = ACTIONS(4603),
+    [aux_sym_format_statement_token1] = ACTIONS(4603),
+    [aux_sym_print_statement_token1] = ACTIONS(4603),
+    [aux_sym_open_statement_token1] = ACTIONS(4603),
+    [aux_sym_close_statement_token1] = ACTIONS(4603),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4603),
+    [aux_sym_enum_statement_token1] = ACTIONS(4603),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4603),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4603),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4603),
+    [aux_sym_entry_statement_token1] = ACTIONS(4603),
+    [aux_sym_logical_expression_token5] = ACTIONS(4605),
+    [anon_sym_DOT] = ACTIONS(4603),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4605),
+    [anon_sym_LBRACK] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4605),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4605),
+    [aux_sym_null_literal_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4603),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4603),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4603),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4603),
+    [aux_sym_identifier_token1] = ACTIONS(4603),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4605),
+    [sym__float_literal] = ACTIONS(4605),
+    [sym__boz_literal] = ACTIONS(4605),
+    [sym__string_literal] = ACTIONS(4605),
+    [sym__string_literal_kind] = ACTIONS(4605),
+  },
+  [1068] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4417),
+    [aux_sym_preproc_def_token1] = ACTIONS(4417),
+    [aux_sym_preproc_if_token1] = ACTIONS(4417),
+    [aux_sym_preproc_if_token2] = ACTIONS(4417),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4417),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4417),
+    [sym_preproc_directive] = ACTIONS(4417),
+    [anon_sym_LPAREN2] = ACTIONS(4417),
+    [anon_sym_PLUS] = ACTIONS(4419),
+    [anon_sym_DASH] = ACTIONS(4419),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4417),
+    [aux_sym_module_statement_token1] = ACTIONS(4417),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4417),
+    [aux_sym_interface_statement_token1] = ACTIONS(4417),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4417),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4417),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4417),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4417),
+    [aux_sym_function_statement_token1] = ACTIONS(4417),
+    [aux_sym_language_binding_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4417),
+    [aux_sym_contains_statement_token1] = ACTIONS(4417),
+    [aux_sym_use_statement_token1] = ACTIONS(4417),
+    [aux_sym_use_statement_token2] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4417),
+    [aux_sym_save_statement_token1] = ACTIONS(4417),
+    [aux_sym_private_statement_token1] = ACTIONS(4417),
+    [aux_sym_public_statement_token1] = ACTIONS(4417),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4417),
+    [aux_sym_common_statement_token1] = ACTIONS(4417),
+    [aux_sym_import_statement_token1] = ACTIONS(4417),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4417),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4417),
+    [aux_sym_derived_type_token1] = ACTIONS(4417),
+    [aux_sym_declared_type_token1] = ACTIONS(4417),
+    [aux_sym_declared_type_token2] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4417),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4417),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4417),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4417),
+    [anon_sym_SEMI] = ACTIONS(4419),
+    [aux_sym_stop_statement_token1] = ACTIONS(4417),
+    [aux_sym_stop_statement_token2] = ACTIONS(4417),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4417),
+    [aux_sym_include_statement_token1] = ACTIONS(4417),
+    [aux_sym_data_statement_token1] = ACTIONS(4417),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4417),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4417),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4417),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4417),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4417),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4417),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4417),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4417),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4417),
+    [aux_sym_block_construct_token1] = ACTIONS(4417),
+    [aux_sym_associate_statement_token1] = ACTIONS(4417),
+    [aux_sym_format_statement_token1] = ACTIONS(4417),
+    [aux_sym_print_statement_token1] = ACTIONS(4417),
+    [aux_sym_open_statement_token1] = ACTIONS(4417),
+    [aux_sym_close_statement_token1] = ACTIONS(4417),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4417),
+    [aux_sym_enum_statement_token1] = ACTIONS(4417),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4417),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4417),
+    [aux_sym_entry_statement_token1] = ACTIONS(4417),
+    [aux_sym_logical_expression_token5] = ACTIONS(4419),
+    [anon_sym_DOT] = ACTIONS(4417),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4419),
+    [anon_sym_LBRACK] = ACTIONS(4419),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4419),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4419),
+    [aux_sym_null_literal_token1] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4417),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4417),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4417),
+    [aux_sym_identifier_token1] = ACTIONS(4417),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4419),
+    [sym__float_literal] = ACTIONS(4419),
+    [sym__boz_literal] = ACTIONS(4419),
+    [sym__string_literal] = ACTIONS(4419),
+    [sym__string_literal_kind] = ACTIONS(4419),
+  },
+  [1069] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4413),
     [aux_sym_preproc_def_token1] = ACTIONS(4413),
     [aux_sym_preproc_if_token1] = ACTIONS(4413),
@@ -288866,11 +242617,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(4415),
     [anon_sym_DASH] = ACTIONS(4415),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4413),
     [aux_sym_end_program_statement_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
+    [aux_sym_module_statement_token1] = ACTIONS(4413),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4413),
     [aux_sym_interface_statement_token1] = ACTIONS(4413),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4413),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
+    [aux_sym_function_statement_token1] = ACTIONS(4413),
     [aux_sym_language_binding_token1] = ACTIONS(4413),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
@@ -288922,6 +242679,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
     [aux_sym_type_qualifier_token1] = ACTIONS(4413),
     [aux_sym_type_qualifier_token2] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4413),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4413),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
     [anon_sym_SEMI] = ACTIONS(4415),
     [aux_sym_stop_statement_token1] = ACTIONS(4413),
@@ -288978,1053 +242740,1565 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
     [aux_sym_identifier_token1] = ACTIONS(4413),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [1417] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
+    [sym__integer_literal] = ACTIONS(4415),
+    [sym__float_literal] = ACTIONS(4415),
+    [sym__boz_literal] = ACTIONS(4415),
+    [sym__string_literal] = ACTIONS(4415),
+    [sym__string_literal_kind] = ACTIONS(4415),
+  },
+  [1070] = {
+    [sym_preproc_include] = STATE(1013),
+    [sym_preproc_def] = STATE(1013),
+    [sym_preproc_function_def] = STATE(1013),
+    [sym_preproc_call] = STATE(1013),
+    [sym_preproc_if_in_module] = STATE(1013),
+    [sym_preproc_ifdef_in_module] = STATE(1013),
+    [sym_end_submodule_statement] = STATE(1010),
+    [sym_interface] = STATE(1013),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6747),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(1013),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1013),
+    [sym_public_statement] = STATE(1013),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1013),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1013),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1013),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1013),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4821),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4823),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1418] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
+  [1071] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4397),
+    [aux_sym_preproc_def_token1] = ACTIONS(4397),
+    [aux_sym_preproc_if_token1] = ACTIONS(4397),
+    [aux_sym_preproc_if_token2] = ACTIONS(4397),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4397),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4397),
+    [sym_preproc_directive] = ACTIONS(4397),
+    [anon_sym_LPAREN2] = ACTIONS(4397),
+    [anon_sym_PLUS] = ACTIONS(4399),
+    [anon_sym_DASH] = ACTIONS(4399),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [aux_sym_program_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4397),
+    [aux_sym_module_statement_token1] = ACTIONS(4397),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4397),
+    [aux_sym_interface_statement_token1] = ACTIONS(4397),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4397),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4397),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4397),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4397),
+    [aux_sym_function_statement_token1] = ACTIONS(4397),
+    [aux_sym_language_binding_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4397),
+    [aux_sym_contains_statement_token1] = ACTIONS(4397),
+    [aux_sym_use_statement_token1] = ACTIONS(4397),
+    [aux_sym_use_statement_token2] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4397),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4397),
+    [aux_sym_save_statement_token1] = ACTIONS(4397),
+    [aux_sym_private_statement_token1] = ACTIONS(4397),
+    [aux_sym_public_statement_token1] = ACTIONS(4397),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4397),
+    [aux_sym_common_statement_token1] = ACTIONS(4397),
+    [aux_sym_import_statement_token1] = ACTIONS(4397),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4397),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4397),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4397),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4397),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4397),
+    [aux_sym_derived_type_token1] = ACTIONS(4397),
+    [aux_sym_declared_type_token1] = ACTIONS(4397),
+    [aux_sym_declared_type_token2] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4397),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4397),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4397),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4397),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4397),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4397),
+    [anon_sym_SEMI] = ACTIONS(4399),
+    [aux_sym_stop_statement_token1] = ACTIONS(4397),
+    [aux_sym_stop_statement_token2] = ACTIONS(4397),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4397),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4397),
+    [aux_sym_include_statement_token1] = ACTIONS(4397),
+    [aux_sym_data_statement_token1] = ACTIONS(4397),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4397),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4397),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4397),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4397),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4397),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4397),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4397),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4397),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4397),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4397),
+    [aux_sym_block_construct_token1] = ACTIONS(4397),
+    [aux_sym_associate_statement_token1] = ACTIONS(4397),
+    [aux_sym_format_statement_token1] = ACTIONS(4397),
+    [aux_sym_print_statement_token1] = ACTIONS(4397),
+    [aux_sym_open_statement_token1] = ACTIONS(4397),
+    [aux_sym_close_statement_token1] = ACTIONS(4397),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4397),
+    [aux_sym_enum_statement_token1] = ACTIONS(4397),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4397),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4397),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4397),
+    [aux_sym_entry_statement_token1] = ACTIONS(4397),
+    [aux_sym_logical_expression_token5] = ACTIONS(4399),
+    [anon_sym_DOT] = ACTIONS(4397),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4399),
+    [anon_sym_LBRACK] = ACTIONS(4399),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4399),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4399),
+    [aux_sym_null_literal_token1] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4397),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4397),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4397),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4397),
+    [aux_sym_identifier_token1] = ACTIONS(4397),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
+    [sym__integer_literal] = ACTIONS(4399),
+    [sym__float_literal] = ACTIONS(4399),
+    [sym__boz_literal] = ACTIONS(4399),
+    [sym__string_literal] = ACTIONS(4399),
+    [sym__string_literal_kind] = ACTIONS(4399),
   },
-  [1419] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+  [1072] = {
+    [ts_builtin_sym_end] = ACTIONS(4537),
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_module_statement_token1] = ACTIONS(4535),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_function_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4535),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [1420] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
+  [1073] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4599),
+    [aux_sym_preproc_def_token1] = ACTIONS(4599),
+    [aux_sym_preproc_if_token1] = ACTIONS(4599),
+    [aux_sym_preproc_if_token2] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4599),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4599),
+    [sym_preproc_directive] = ACTIONS(4599),
+    [anon_sym_LPAREN2] = ACTIONS(4599),
+    [anon_sym_PLUS] = ACTIONS(4601),
+    [anon_sym_DASH] = ACTIONS(4601),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4599),
+    [aux_sym_module_statement_token1] = ACTIONS(4599),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4599),
+    [aux_sym_interface_statement_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4599),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4599),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4599),
+    [aux_sym_function_statement_token1] = ACTIONS(4599),
+    [aux_sym_language_binding_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4599),
+    [aux_sym_contains_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token1] = ACTIONS(4599),
+    [aux_sym_use_statement_token2] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4599),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4599),
+    [aux_sym_save_statement_token1] = ACTIONS(4599),
+    [aux_sym_private_statement_token1] = ACTIONS(4599),
+    [aux_sym_public_statement_token1] = ACTIONS(4599),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4599),
+    [aux_sym_common_statement_token1] = ACTIONS(4599),
+    [aux_sym_import_statement_token1] = ACTIONS(4599),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4599),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4599),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4599),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4599),
+    [aux_sym_derived_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token1] = ACTIONS(4599),
+    [aux_sym_declared_type_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4599),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4599),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4599),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4599),
+    [anon_sym_SEMI] = ACTIONS(4601),
+    [aux_sym_stop_statement_token1] = ACTIONS(4599),
+    [aux_sym_stop_statement_token2] = ACTIONS(4599),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4599),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4599),
+    [aux_sym_include_statement_token1] = ACTIONS(4599),
+    [aux_sym_data_statement_token1] = ACTIONS(4599),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4599),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4599),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4599),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4599),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4599),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4599),
+    [aux_sym_block_construct_token1] = ACTIONS(4599),
+    [aux_sym_associate_statement_token1] = ACTIONS(4599),
+    [aux_sym_format_statement_token1] = ACTIONS(4599),
+    [aux_sym_print_statement_token1] = ACTIONS(4599),
+    [aux_sym_open_statement_token1] = ACTIONS(4599),
+    [aux_sym_close_statement_token1] = ACTIONS(4599),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4599),
+    [aux_sym_enum_statement_token1] = ACTIONS(4599),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4599),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4599),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4599),
+    [aux_sym_entry_statement_token1] = ACTIONS(4599),
+    [aux_sym_logical_expression_token5] = ACTIONS(4601),
+    [anon_sym_DOT] = ACTIONS(4599),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4601),
+    [anon_sym_LBRACK] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4601),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4601),
+    [aux_sym_null_literal_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4599),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4599),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4599),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4599),
+    [aux_sym_identifier_token1] = ACTIONS(4599),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4601),
+    [sym__float_literal] = ACTIONS(4601),
+    [sym__boz_literal] = ACTIONS(4601),
+    [sym__string_literal] = ACTIONS(4601),
+    [sym__string_literal_kind] = ACTIONS(4601),
+  },
+  [1074] = {
+    [ts_builtin_sym_end] = ACTIONS(4541),
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_module_statement_token1] = ACTIONS(4539),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_function_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4539),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1075] = {
+    [sym_preproc_include] = STATE(1035),
+    [sym_preproc_def] = STATE(1035),
+    [sym_preproc_function_def] = STATE(1035),
+    [sym_preproc_call] = STATE(1035),
+    [sym_preproc_if_in_module] = STATE(1035),
+    [sym_preproc_ifdef_in_module] = STATE(1035),
+    [sym_end_module_statement] = STATE(976),
+    [sym_interface] = STATE(1035),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6776),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(1035),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1035),
+    [sym_public_statement] = STATE(1035),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1035),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1035),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1035),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1035),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4825),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4827),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4813),
+    [aux_sym_public_statement_token1] = ACTIONS(4815),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1421] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
+  [1076] = {
+    [sym_preproc_include] = STATE(1092),
+    [sym_preproc_def] = STATE(1092),
+    [sym_preproc_function_def] = STATE(1092),
+    [sym_preproc_call] = STATE(1092),
+    [sym_preproc_if_in_module] = STATE(1092),
+    [sym_preproc_ifdef_in_module] = STATE(1092),
+    [sym_end_submodule_statement] = STATE(1026),
+    [sym_interface] = STATE(1092),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6662),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(1092),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1092),
+    [sym_public_statement] = STATE(1092),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1092),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1092),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1092),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1092),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4829),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4831),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1422] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
+  [1077] = {
+    [ts_builtin_sym_end] = ACTIONS(4617),
+    [aux_sym_preproc_include_token1] = ACTIONS(4615),
+    [aux_sym_preproc_def_token1] = ACTIONS(4615),
+    [aux_sym_preproc_if_token1] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4615),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4615),
+    [sym_preproc_directive] = ACTIONS(4615),
+    [anon_sym_LPAREN2] = ACTIONS(4615),
+    [anon_sym_PLUS] = ACTIONS(4617),
+    [anon_sym_DASH] = ACTIONS(4617),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4615),
+    [aux_sym_module_statement_token1] = ACTIONS(4615),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4615),
+    [aux_sym_interface_statement_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4615),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4615),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4615),
+    [aux_sym_function_statement_token1] = ACTIONS(4615),
+    [aux_sym_language_binding_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4615),
+    [aux_sym_contains_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token1] = ACTIONS(4615),
+    [aux_sym_use_statement_token2] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4615),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4615),
+    [aux_sym_save_statement_token1] = ACTIONS(4615),
+    [aux_sym_private_statement_token1] = ACTIONS(4615),
+    [aux_sym_public_statement_token1] = ACTIONS(4615),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4615),
+    [aux_sym_common_statement_token1] = ACTIONS(4615),
+    [aux_sym_import_statement_token1] = ACTIONS(4615),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4615),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4615),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4615),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4615),
+    [aux_sym_derived_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token1] = ACTIONS(4615),
+    [aux_sym_declared_type_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4615),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4615),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4615),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4615),
+    [anon_sym_SEMI] = ACTIONS(4617),
+    [aux_sym_stop_statement_token1] = ACTIONS(4615),
+    [aux_sym_stop_statement_token2] = ACTIONS(4615),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4615),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4615),
+    [aux_sym_include_statement_token1] = ACTIONS(4615),
+    [aux_sym_data_statement_token1] = ACTIONS(4615),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4615),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4615),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4615),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4615),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4615),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4615),
+    [aux_sym_block_construct_token1] = ACTIONS(4615),
+    [aux_sym_associate_statement_token1] = ACTIONS(4615),
+    [aux_sym_format_statement_token1] = ACTIONS(4615),
+    [aux_sym_print_statement_token1] = ACTIONS(4615),
+    [aux_sym_open_statement_token1] = ACTIONS(4615),
+    [aux_sym_close_statement_token1] = ACTIONS(4615),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4615),
+    [aux_sym_enum_statement_token1] = ACTIONS(4615),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4615),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4615),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4615),
+    [aux_sym_entry_statement_token1] = ACTIONS(4615),
+    [aux_sym_logical_expression_token5] = ACTIONS(4617),
+    [anon_sym_DOT] = ACTIONS(4615),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4617),
+    [anon_sym_LBRACK] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4617),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4617),
+    [aux_sym_null_literal_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4615),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4615),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4615),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4615),
+    [aux_sym_identifier_token1] = ACTIONS(4615),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4617),
+    [sym__float_literal] = ACTIONS(4617),
+    [sym__boz_literal] = ACTIONS(4617),
+    [sym__string_literal] = ACTIONS(4617),
+    [sym__string_literal_kind] = ACTIONS(4617),
   },
-  [1423] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1078] = {
+    [ts_builtin_sym_end] = ACTIONS(4419),
+    [aux_sym_preproc_include_token1] = ACTIONS(4417),
+    [aux_sym_preproc_def_token1] = ACTIONS(4417),
+    [aux_sym_preproc_if_token1] = ACTIONS(4417),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4417),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4417),
+    [sym_preproc_directive] = ACTIONS(4417),
+    [anon_sym_LPAREN2] = ACTIONS(4417),
+    [anon_sym_PLUS] = ACTIONS(4419),
+    [anon_sym_DASH] = ACTIONS(4419),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_program_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4417),
+    [aux_sym_module_statement_token1] = ACTIONS(4417),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4417),
+    [aux_sym_interface_statement_token1] = ACTIONS(4417),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4417),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4417),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4417),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4417),
+    [aux_sym_function_statement_token1] = ACTIONS(4417),
+    [aux_sym_language_binding_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4417),
+    [aux_sym_contains_statement_token1] = ACTIONS(4417),
+    [aux_sym_use_statement_token1] = ACTIONS(4417),
+    [aux_sym_use_statement_token2] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4417),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4417),
+    [aux_sym_save_statement_token1] = ACTIONS(4417),
+    [aux_sym_private_statement_token1] = ACTIONS(4417),
+    [aux_sym_public_statement_token1] = ACTIONS(4417),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4417),
+    [aux_sym_common_statement_token1] = ACTIONS(4417),
+    [aux_sym_import_statement_token1] = ACTIONS(4417),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4417),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4417),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4417),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4417),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4417),
+    [aux_sym_derived_type_token1] = ACTIONS(4417),
+    [aux_sym_declared_type_token1] = ACTIONS(4417),
+    [aux_sym_declared_type_token2] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4417),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4417),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4417),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4417),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4417),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4417),
+    [anon_sym_SEMI] = ACTIONS(4419),
+    [aux_sym_stop_statement_token1] = ACTIONS(4417),
+    [aux_sym_stop_statement_token2] = ACTIONS(4417),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4417),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4417),
+    [aux_sym_include_statement_token1] = ACTIONS(4417),
+    [aux_sym_data_statement_token1] = ACTIONS(4417),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4417),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4417),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4417),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4417),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4417),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4417),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4417),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4417),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4417),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4417),
+    [aux_sym_block_construct_token1] = ACTIONS(4417),
+    [aux_sym_associate_statement_token1] = ACTIONS(4417),
+    [aux_sym_format_statement_token1] = ACTIONS(4417),
+    [aux_sym_print_statement_token1] = ACTIONS(4417),
+    [aux_sym_open_statement_token1] = ACTIONS(4417),
+    [aux_sym_close_statement_token1] = ACTIONS(4417),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4417),
+    [aux_sym_enum_statement_token1] = ACTIONS(4417),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4417),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4417),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4417),
+    [aux_sym_entry_statement_token1] = ACTIONS(4417),
+    [aux_sym_logical_expression_token5] = ACTIONS(4419),
+    [anon_sym_DOT] = ACTIONS(4417),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4419),
+    [anon_sym_LBRACK] = ACTIONS(4419),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4419),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4419),
+    [aux_sym_null_literal_token1] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4417),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4417),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4417),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4417),
+    [aux_sym_identifier_token1] = ACTIONS(4417),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(4419),
+    [sym__float_literal] = ACTIONS(4419),
+    [sym__boz_literal] = ACTIONS(4419),
+    [sym__string_literal] = ACTIONS(4419),
+    [sym__string_literal_kind] = ACTIONS(4419),
   },
-  [1424] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
+  [1079] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4591),
+    [aux_sym_preproc_def_token1] = ACTIONS(4591),
+    [aux_sym_preproc_if_token1] = ACTIONS(4591),
+    [aux_sym_preproc_if_token2] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4591),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4591),
+    [sym_preproc_directive] = ACTIONS(4591),
+    [anon_sym_LPAREN2] = ACTIONS(4591),
+    [anon_sym_PLUS] = ACTIONS(4593),
+    [anon_sym_DASH] = ACTIONS(4593),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4591),
+    [aux_sym_module_statement_token1] = ACTIONS(4591),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4591),
+    [aux_sym_interface_statement_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4591),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4591),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4591),
+    [aux_sym_function_statement_token1] = ACTIONS(4591),
+    [aux_sym_language_binding_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4591),
+    [aux_sym_contains_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token1] = ACTIONS(4591),
+    [aux_sym_use_statement_token2] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4591),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4591),
+    [aux_sym_save_statement_token1] = ACTIONS(4591),
+    [aux_sym_private_statement_token1] = ACTIONS(4591),
+    [aux_sym_public_statement_token1] = ACTIONS(4591),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4591),
+    [aux_sym_common_statement_token1] = ACTIONS(4591),
+    [aux_sym_import_statement_token1] = ACTIONS(4591),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4591),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4591),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4591),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4591),
+    [aux_sym_derived_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token1] = ACTIONS(4591),
+    [aux_sym_declared_type_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4591),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4591),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4591),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4591),
+    [anon_sym_SEMI] = ACTIONS(4593),
+    [aux_sym_stop_statement_token1] = ACTIONS(4591),
+    [aux_sym_stop_statement_token2] = ACTIONS(4591),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4591),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4591),
+    [aux_sym_include_statement_token1] = ACTIONS(4591),
+    [aux_sym_data_statement_token1] = ACTIONS(4591),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4591),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4591),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4591),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4591),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4591),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4591),
+    [aux_sym_block_construct_token1] = ACTIONS(4591),
+    [aux_sym_associate_statement_token1] = ACTIONS(4591),
+    [aux_sym_format_statement_token1] = ACTIONS(4591),
+    [aux_sym_print_statement_token1] = ACTIONS(4591),
+    [aux_sym_open_statement_token1] = ACTIONS(4591),
+    [aux_sym_close_statement_token1] = ACTIONS(4591),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4591),
+    [aux_sym_enum_statement_token1] = ACTIONS(4591),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4591),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4591),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4591),
+    [aux_sym_entry_statement_token1] = ACTIONS(4591),
+    [aux_sym_logical_expression_token5] = ACTIONS(4593),
+    [anon_sym_DOT] = ACTIONS(4591),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4593),
+    [anon_sym_LBRACK] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4593),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4593),
+    [aux_sym_null_literal_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4591),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4591),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4591),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4591),
+    [aux_sym_identifier_token1] = ACTIONS(4591),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4593),
+    [sym__float_literal] = ACTIONS(4593),
+    [sym__boz_literal] = ACTIONS(4593),
+    [sym__string_literal] = ACTIONS(4593),
+    [sym__string_literal_kind] = ACTIONS(4593),
+  },
+  [1080] = {
+    [ts_builtin_sym_end] = ACTIONS(4447),
+    [aux_sym_preproc_include_token1] = ACTIONS(4445),
+    [aux_sym_preproc_def_token1] = ACTIONS(4445),
+    [aux_sym_preproc_if_token1] = ACTIONS(4445),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4445),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4445),
+    [sym_preproc_directive] = ACTIONS(4445),
+    [anon_sym_LPAREN2] = ACTIONS(4445),
+    [anon_sym_PLUS] = ACTIONS(4447),
+    [anon_sym_DASH] = ACTIONS(4447),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
+    [aux_sym_program_statement_token1] = ACTIONS(4445),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4445),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4445),
+    [aux_sym_module_statement_token1] = ACTIONS(4445),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4445),
+    [aux_sym_interface_statement_token1] = ACTIONS(4445),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4445),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4445),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4445),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4445),
+    [aux_sym_function_statement_token1] = ACTIONS(4445),
+    [aux_sym_language_binding_token1] = ACTIONS(4445),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4445),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4445),
+    [aux_sym_contains_statement_token1] = ACTIONS(4445),
+    [aux_sym_use_statement_token1] = ACTIONS(4445),
+    [aux_sym_use_statement_token2] = ACTIONS(4445),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4445),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4445),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4445),
+    [aux_sym_save_statement_token1] = ACTIONS(4445),
+    [aux_sym_private_statement_token1] = ACTIONS(4445),
+    [aux_sym_public_statement_token1] = ACTIONS(4445),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4445),
+    [aux_sym_common_statement_token1] = ACTIONS(4445),
+    [aux_sym_import_statement_token1] = ACTIONS(4445),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4445),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4445),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4445),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4445),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4445),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4445),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4445),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4445),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4445),
+    [aux_sym_derived_type_token1] = ACTIONS(4445),
+    [aux_sym_declared_type_token1] = ACTIONS(4445),
+    [aux_sym_declared_type_token2] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4445),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4445),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4445),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4445),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4445),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4445),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4445),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4445),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4445),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4445),
+    [anon_sym_SEMI] = ACTIONS(4447),
+    [aux_sym_stop_statement_token1] = ACTIONS(4445),
+    [aux_sym_stop_statement_token2] = ACTIONS(4445),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4445),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4445),
+    [aux_sym_include_statement_token1] = ACTIONS(4445),
+    [aux_sym_data_statement_token1] = ACTIONS(4445),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4445),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4445),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4445),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4445),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4445),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4445),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4445),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4445),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4445),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4445),
+    [aux_sym_block_construct_token1] = ACTIONS(4445),
+    [aux_sym_associate_statement_token1] = ACTIONS(4445),
+    [aux_sym_format_statement_token1] = ACTIONS(4445),
+    [aux_sym_print_statement_token1] = ACTIONS(4445),
+    [aux_sym_open_statement_token1] = ACTIONS(4445),
+    [aux_sym_close_statement_token1] = ACTIONS(4445),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4445),
+    [aux_sym_enum_statement_token1] = ACTIONS(4445),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4445),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4445),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4445),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4445),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4445),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4445),
+    [aux_sym_entry_statement_token1] = ACTIONS(4445),
+    [aux_sym_logical_expression_token5] = ACTIONS(4447),
+    [anon_sym_DOT] = ACTIONS(4445),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4447),
+    [anon_sym_LBRACK] = ACTIONS(4447),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4447),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4447),
+    [aux_sym_null_literal_token1] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4445),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4445),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4445),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4445),
+    [aux_sym_identifier_token1] = ACTIONS(4445),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
+    [sym__integer_literal] = ACTIONS(4447),
+    [sym__float_literal] = ACTIONS(4447),
+    [sym__boz_literal] = ACTIONS(4447),
+    [sym__string_literal] = ACTIONS(4447),
+    [sym__string_literal_kind] = ACTIONS(4447),
   },
-  [1425] = {
+  [1081] = {
+    [ts_builtin_sym_end] = ACTIONS(4623),
     [aux_sym_preproc_include_token1] = ACTIONS(4621),
     [aux_sym_preproc_def_token1] = ACTIONS(4621),
     [aux_sym_preproc_if_token1] = ACTIONS(4621),
@@ -290035,12 +244309,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_PLUS] = ACTIONS(4623),
     [anon_sym_DASH] = ACTIONS(4623),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4621),
     [aux_sym_end_program_statement_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4621),
+    [aux_sym_module_statement_token1] = ACTIONS(4621),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4621),
     [aux_sym_interface_statement_token1] = ACTIONS(4621),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4621),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4621),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
+    [aux_sym_function_statement_token1] = ACTIONS(4621),
     [aux_sym_language_binding_token1] = ACTIONS(4621),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
@@ -290092,6 +244371,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
     [aux_sym_type_qualifier_token1] = ACTIONS(4621),
     [aux_sym_type_qualifier_token2] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4621),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4621),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
     [anon_sym_SEMI] = ACTIONS(4623),
     [aux_sym_stop_statement_token1] = ACTIONS(4621),
@@ -290154,673 +244438,1157 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4623),
     [sym__string_literal_kind] = ACTIONS(4623),
   },
-  [1426] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1082] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4583),
+    [aux_sym_preproc_def_token1] = ACTIONS(4583),
+    [aux_sym_preproc_if_token1] = ACTIONS(4583),
+    [aux_sym_preproc_if_token2] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4583),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4583),
+    [sym_preproc_directive] = ACTIONS(4583),
+    [anon_sym_LPAREN2] = ACTIONS(4583),
+    [anon_sym_PLUS] = ACTIONS(4585),
+    [anon_sym_DASH] = ACTIONS(4585),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4583),
+    [aux_sym_module_statement_token1] = ACTIONS(4583),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4583),
+    [aux_sym_interface_statement_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4583),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4583),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4583),
+    [aux_sym_function_statement_token1] = ACTIONS(4583),
+    [aux_sym_language_binding_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4583),
+    [aux_sym_contains_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token1] = ACTIONS(4583),
+    [aux_sym_use_statement_token2] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4583),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4583),
+    [aux_sym_save_statement_token1] = ACTIONS(4583),
+    [aux_sym_private_statement_token1] = ACTIONS(4583),
+    [aux_sym_public_statement_token1] = ACTIONS(4583),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4583),
+    [aux_sym_common_statement_token1] = ACTIONS(4583),
+    [aux_sym_import_statement_token1] = ACTIONS(4583),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4583),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4583),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4583),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4583),
+    [aux_sym_derived_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token1] = ACTIONS(4583),
+    [aux_sym_declared_type_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4583),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4583),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4583),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4583),
+    [anon_sym_SEMI] = ACTIONS(4585),
+    [aux_sym_stop_statement_token1] = ACTIONS(4583),
+    [aux_sym_stop_statement_token2] = ACTIONS(4583),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4583),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4583),
+    [aux_sym_include_statement_token1] = ACTIONS(4583),
+    [aux_sym_data_statement_token1] = ACTIONS(4583),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4583),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4583),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4583),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4583),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4583),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4583),
+    [aux_sym_block_construct_token1] = ACTIONS(4583),
+    [aux_sym_associate_statement_token1] = ACTIONS(4583),
+    [aux_sym_format_statement_token1] = ACTIONS(4583),
+    [aux_sym_print_statement_token1] = ACTIONS(4583),
+    [aux_sym_open_statement_token1] = ACTIONS(4583),
+    [aux_sym_close_statement_token1] = ACTIONS(4583),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4583),
+    [aux_sym_enum_statement_token1] = ACTIONS(4583),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4583),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4583),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4583),
+    [aux_sym_entry_statement_token1] = ACTIONS(4583),
+    [aux_sym_logical_expression_token5] = ACTIONS(4585),
+    [anon_sym_DOT] = ACTIONS(4583),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4585),
+    [anon_sym_LBRACK] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4585),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4585),
+    [aux_sym_null_literal_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4583),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4583),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4583),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4583),
+    [aux_sym_identifier_token1] = ACTIONS(4583),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4585),
+    [sym__float_literal] = ACTIONS(4585),
+    [sym__boz_literal] = ACTIONS(4585),
+    [sym__string_literal] = ACTIONS(4585),
+    [sym__string_literal_kind] = ACTIONS(4585),
+  },
+  [1083] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4437),
+    [aux_sym_module_statement_token1] = ACTIONS(4437),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_function_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4437),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4437),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1427] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
+  [1084] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4305),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_program_statement_token1] = ACTIONS(4305),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_module_statement_token1] = ACTIONS(4305),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4305),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4305),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_function_statement_token1] = ACTIONS(4305),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4305),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4305),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
+  },
+  [1085] = {
+    [sym_preproc_include] = STATE(991),
+    [sym_preproc_def] = STATE(991),
+    [sym_preproc_function_def] = STATE(991),
+    [sym_preproc_call] = STATE(991),
+    [sym_preproc_if_in_module] = STATE(991),
+    [sym_preproc_ifdef_in_module] = STATE(991),
+    [sym_end_module_statement] = STATE(1032),
+    [sym_interface] = STATE(991),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6665),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(991),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(991),
+    [sym_public_statement] = STATE(991),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(991),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(991),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(991),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(991),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4809),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4811),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4813),
+    [aux_sym_public_statement_token1] = ACTIONS(4815),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4671),
+  },
+  [1086] = {
+    [ts_builtin_sym_end] = ACTIONS(4379),
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4375),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_module_statement_token1] = ACTIONS(4375),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4375),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4375),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_function_statement_token1] = ACTIONS(4375),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4375),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4375),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1087] = {
+    [ts_builtin_sym_end] = ACTIONS(4451),
+    [aux_sym_preproc_include_token1] = ACTIONS(4449),
+    [aux_sym_preproc_def_token1] = ACTIONS(4449),
+    [aux_sym_preproc_if_token1] = ACTIONS(4449),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4449),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4449),
+    [sym_preproc_directive] = ACTIONS(4449),
+    [anon_sym_LPAREN2] = ACTIONS(4449),
+    [anon_sym_PLUS] = ACTIONS(4451),
+    [anon_sym_DASH] = ACTIONS(4451),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4449),
+    [aux_sym_module_statement_token1] = ACTIONS(4449),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4449),
+    [aux_sym_interface_statement_token1] = ACTIONS(4449),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4449),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4449),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4449),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4449),
+    [aux_sym_function_statement_token1] = ACTIONS(4449),
+    [aux_sym_language_binding_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4449),
+    [aux_sym_contains_statement_token1] = ACTIONS(4449),
+    [aux_sym_use_statement_token1] = ACTIONS(4449),
+    [aux_sym_use_statement_token2] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4449),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4449),
+    [aux_sym_save_statement_token1] = ACTIONS(4449),
+    [aux_sym_private_statement_token1] = ACTIONS(4449),
+    [aux_sym_public_statement_token1] = ACTIONS(4449),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4449),
+    [aux_sym_common_statement_token1] = ACTIONS(4449),
+    [aux_sym_import_statement_token1] = ACTIONS(4449),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4449),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4449),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4449),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4449),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4449),
+    [aux_sym_derived_type_token1] = ACTIONS(4449),
+    [aux_sym_declared_type_token1] = ACTIONS(4449),
+    [aux_sym_declared_type_token2] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4449),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4449),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4449),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4449),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4449),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4449),
+    [anon_sym_SEMI] = ACTIONS(4451),
+    [aux_sym_stop_statement_token1] = ACTIONS(4449),
+    [aux_sym_stop_statement_token2] = ACTIONS(4449),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4449),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4449),
+    [aux_sym_include_statement_token1] = ACTIONS(4449),
+    [aux_sym_data_statement_token1] = ACTIONS(4449),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4449),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4449),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4449),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4449),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4449),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4449),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4449),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4449),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4449),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4449),
+    [aux_sym_block_construct_token1] = ACTIONS(4449),
+    [aux_sym_associate_statement_token1] = ACTIONS(4449),
+    [aux_sym_format_statement_token1] = ACTIONS(4449),
+    [aux_sym_print_statement_token1] = ACTIONS(4449),
+    [aux_sym_open_statement_token1] = ACTIONS(4449),
+    [aux_sym_close_statement_token1] = ACTIONS(4449),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4449),
+    [aux_sym_enum_statement_token1] = ACTIONS(4449),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4449),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4449),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4449),
+    [aux_sym_entry_statement_token1] = ACTIONS(4449),
+    [aux_sym_logical_expression_token5] = ACTIONS(4451),
+    [anon_sym_DOT] = ACTIONS(4449),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4451),
+    [anon_sym_LBRACK] = ACTIONS(4451),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4451),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4451),
+    [aux_sym_null_literal_token1] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4449),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4449),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4449),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4449),
+    [aux_sym_identifier_token1] = ACTIONS(4449),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(4451),
+    [sym__float_literal] = ACTIONS(4451),
+    [sym__boz_literal] = ACTIONS(4451),
+    [sym__string_literal] = ACTIONS(4451),
+    [sym__string_literal_kind] = ACTIONS(4451),
   },
-  [1428] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5465),
-    [aux_sym_preproc_def_token1] = ACTIONS(5465),
-    [aux_sym_preproc_if_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
-    [sym_preproc_directive] = ACTIONS(5465),
-    [anon_sym_LPAREN2] = ACTIONS(5465),
-    [anon_sym_PLUS] = ACTIONS(5467),
-    [anon_sym_DASH] = ACTIONS(5467),
+  [1088] = {
+    [ts_builtin_sym_end] = ACTIONS(4463),
+    [aux_sym_preproc_include_token1] = ACTIONS(4461),
+    [aux_sym_preproc_def_token1] = ACTIONS(4461),
+    [aux_sym_preproc_if_token1] = ACTIONS(4461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4461),
+    [sym_preproc_directive] = ACTIONS(4461),
+    [anon_sym_LPAREN2] = ACTIONS(4461),
+    [anon_sym_PLUS] = ACTIONS(4463),
+    [anon_sym_DASH] = ACTIONS(4463),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
-    [aux_sym_interface_statement_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5465),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
-    [aux_sym_language_binding_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
-    [aux_sym_contains_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token2] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
-    [aux_sym_save_statement_token1] = ACTIONS(5465),
-    [aux_sym_private_statement_token1] = ACTIONS(5465),
-    [aux_sym_public_statement_token1] = ACTIONS(5465),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
-    [aux_sym_common_statement_token1] = ACTIONS(5465),
-    [aux_sym_import_statement_token1] = ACTIONS(5465),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
-    [aux_sym_derived_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
-    [anon_sym_SEMI] = ACTIONS(5467),
-    [aux_sym_stop_statement_token1] = ACTIONS(5465),
-    [aux_sym_stop_statement_token2] = ACTIONS(5465),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
-    [aux_sym_include_statement_token1] = ACTIONS(5465),
-    [aux_sym_data_statement_token1] = ACTIONS(5465),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
-    [aux_sym_block_construct_token1] = ACTIONS(5465),
-    [aux_sym_associate_statement_token1] = ACTIONS(5465),
-    [aux_sym_format_statement_token1] = ACTIONS(5465),
-    [aux_sym_print_statement_token1] = ACTIONS(5465),
-    [aux_sym_open_statement_token1] = ACTIONS(5465),
-    [aux_sym_close_statement_token1] = ACTIONS(5465),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
-    [aux_sym_enum_statement_token1] = ACTIONS(5465),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
-    [aux_sym_entry_statement_token1] = ACTIONS(5465),
-    [aux_sym_logical_expression_token5] = ACTIONS(5467),
-    [anon_sym_DOT] = ACTIONS(5465),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
-    [anon_sym_LBRACK] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
-    [aux_sym_null_literal_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
-    [aux_sym_identifier_token1] = ACTIONS(5465),
+    [aux_sym_program_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4461),
+    [aux_sym_module_statement_token1] = ACTIONS(4461),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4461),
+    [aux_sym_interface_statement_token1] = ACTIONS(4461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4461),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4461),
+    [aux_sym_function_statement_token1] = ACTIONS(4461),
+    [aux_sym_language_binding_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4461),
+    [aux_sym_contains_statement_token1] = ACTIONS(4461),
+    [aux_sym_use_statement_token1] = ACTIONS(4461),
+    [aux_sym_use_statement_token2] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4461),
+    [aux_sym_save_statement_token1] = ACTIONS(4461),
+    [aux_sym_private_statement_token1] = ACTIONS(4461),
+    [aux_sym_public_statement_token1] = ACTIONS(4461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4461),
+    [aux_sym_common_statement_token1] = ACTIONS(4461),
+    [aux_sym_import_statement_token1] = ACTIONS(4461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4461),
+    [aux_sym_derived_type_token1] = ACTIONS(4461),
+    [aux_sym_declared_type_token1] = ACTIONS(4461),
+    [aux_sym_declared_type_token2] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4461),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4461),
+    [anon_sym_SEMI] = ACTIONS(4463),
+    [aux_sym_stop_statement_token1] = ACTIONS(4461),
+    [aux_sym_stop_statement_token2] = ACTIONS(4461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4461),
+    [aux_sym_include_statement_token1] = ACTIONS(4461),
+    [aux_sym_data_statement_token1] = ACTIONS(4461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4461),
+    [aux_sym_block_construct_token1] = ACTIONS(4461),
+    [aux_sym_associate_statement_token1] = ACTIONS(4461),
+    [aux_sym_format_statement_token1] = ACTIONS(4461),
+    [aux_sym_print_statement_token1] = ACTIONS(4461),
+    [aux_sym_open_statement_token1] = ACTIONS(4461),
+    [aux_sym_close_statement_token1] = ACTIONS(4461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4461),
+    [aux_sym_enum_statement_token1] = ACTIONS(4461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4461),
+    [aux_sym_entry_statement_token1] = ACTIONS(4461),
+    [aux_sym_logical_expression_token5] = ACTIONS(4463),
+    [anon_sym_DOT] = ACTIONS(4461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4463),
+    [anon_sym_LBRACK] = ACTIONS(4463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4463),
+    [aux_sym_null_literal_token1] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4461),
+    [aux_sym_identifier_token1] = ACTIONS(4461),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5467),
-    [sym__float_literal] = ACTIONS(5467),
-    [sym__boz_literal] = ACTIONS(5467),
-    [sym__string_literal] = ACTIONS(5467),
-    [sym__string_literal_kind] = ACTIONS(5467),
-  },
-  [1429] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [sym__integer_literal] = ACTIONS(4463),
+    [sym__float_literal] = ACTIONS(4463),
+    [sym__boz_literal] = ACTIONS(4463),
+    [sym__string_literal] = ACTIONS(4463),
+    [sym__string_literal_kind] = ACTIONS(4463),
   },
-  [1430] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
+  [1089] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token2] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [aux_sym_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4425),
+    [aux_sym_module_statement_token1] = ACTIONS(4425),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_function_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4425),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1431] = {
+  [1090] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4497),
     [aux_sym_preproc_def_token1] = ACTIONS(4497),
     [aux_sym_preproc_if_token1] = ACTIONS(4497),
+    [aux_sym_preproc_if_token2] = ACTIONS(4497),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
     [sym_preproc_directive] = ACTIONS(4497),
     [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+    [anon_sym_PLUS] = ACTIONS(4499),
+    [anon_sym_DASH] = ACTIONS(4499),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4497),
     [aux_sym_end_program_statement_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
+    [aux_sym_module_statement_token1] = ACTIONS(4497),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4497),
     [aux_sym_interface_statement_token1] = ACTIONS(4497),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4497),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4497),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
+    [aux_sym_function_statement_token1] = ACTIONS(4497),
     [aux_sym_language_binding_token1] = ACTIONS(4497),
     [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
@@ -290872,8 +245640,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
     [aux_sym_type_qualifier_token1] = ACTIONS(4497),
     [aux_sym_type_qualifier_token2] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4497),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4497),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
+    [anon_sym_SEMI] = ACTIONS(4499),
     [aux_sym_stop_statement_token1] = ACTIONS(4497),
     [aux_sym_stop_statement_token2] = ACTIONS(4497),
     [aux_sym_subroutine_call_token1] = ACTIONS(4497),
@@ -290910,5763 +245683,5178 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4497),
     [aux_sym_allocate_statement_token1] = ACTIONS(4497),
     [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
+    [aux_sym_logical_expression_token5] = ACTIONS(4499),
     [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4499),
+    [anon_sym_LBRACK] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4499),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4499),
     [aux_sym_null_literal_token1] = ACTIONS(4497),
     [aux_sym_coarray_statement_token1] = ACTIONS(4497),
     [aux_sym_coarray_statement_token2] = ACTIONS(4497),
     [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1432] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1433] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
-  },
-  [1434] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [1435] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
+    [aux_sym_identifier_token1] = ACTIONS(4497),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(4499),
+    [sym__float_literal] = ACTIONS(4499),
+    [sym__boz_literal] = ACTIONS(4499),
+    [sym__string_literal] = ACTIONS(4499),
+    [sym__string_literal_kind] = ACTIONS(4499),
   },
-  [1436] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1091] = {
+    [ts_builtin_sym_end] = ACTIONS(4529),
+    [aux_sym_preproc_include_token1] = ACTIONS(4527),
+    [aux_sym_preproc_def_token1] = ACTIONS(4527),
+    [aux_sym_preproc_if_token1] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4527),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4527),
+    [sym_preproc_directive] = ACTIONS(4527),
+    [anon_sym_LPAREN2] = ACTIONS(4527),
+    [anon_sym_PLUS] = ACTIONS(4529),
+    [anon_sym_DASH] = ACTIONS(4529),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4527),
+    [aux_sym_module_statement_token1] = ACTIONS(4527),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4527),
+    [aux_sym_interface_statement_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4527),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4527),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4527),
+    [aux_sym_function_statement_token1] = ACTIONS(4527),
+    [aux_sym_language_binding_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4527),
+    [aux_sym_contains_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token1] = ACTIONS(4527),
+    [aux_sym_use_statement_token2] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4527),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4527),
+    [aux_sym_save_statement_token1] = ACTIONS(4527),
+    [aux_sym_private_statement_token1] = ACTIONS(4527),
+    [aux_sym_public_statement_token1] = ACTIONS(4527),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4527),
+    [aux_sym_common_statement_token1] = ACTIONS(4527),
+    [aux_sym_import_statement_token1] = ACTIONS(4527),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4527),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4527),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4527),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4527),
+    [aux_sym_derived_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token1] = ACTIONS(4527),
+    [aux_sym_declared_type_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4527),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4527),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4527),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4527),
+    [anon_sym_SEMI] = ACTIONS(4529),
+    [aux_sym_stop_statement_token1] = ACTIONS(4527),
+    [aux_sym_stop_statement_token2] = ACTIONS(4527),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4527),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4527),
+    [aux_sym_include_statement_token1] = ACTIONS(4527),
+    [aux_sym_data_statement_token1] = ACTIONS(4527),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4527),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4527),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4527),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4527),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4527),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4527),
+    [aux_sym_block_construct_token1] = ACTIONS(4527),
+    [aux_sym_associate_statement_token1] = ACTIONS(4527),
+    [aux_sym_format_statement_token1] = ACTIONS(4527),
+    [aux_sym_print_statement_token1] = ACTIONS(4527),
+    [aux_sym_open_statement_token1] = ACTIONS(4527),
+    [aux_sym_close_statement_token1] = ACTIONS(4527),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4527),
+    [aux_sym_enum_statement_token1] = ACTIONS(4527),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4527),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4527),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4527),
+    [aux_sym_entry_statement_token1] = ACTIONS(4527),
+    [aux_sym_logical_expression_token5] = ACTIONS(4529),
+    [anon_sym_DOT] = ACTIONS(4527),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4529),
+    [anon_sym_LBRACK] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4529),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4529),
+    [aux_sym_null_literal_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4527),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4527),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4527),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4527),
+    [aux_sym_identifier_token1] = ACTIONS(4527),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4529),
+    [sym__float_literal] = ACTIONS(4529),
+    [sym__boz_literal] = ACTIONS(4529),
+    [sym__string_literal] = ACTIONS(4529),
+    [sym__string_literal_kind] = ACTIONS(4529),
+  },
+  [1092] = {
+    [sym_preproc_include] = STATE(1111),
+    [sym_preproc_def] = STATE(1111),
+    [sym_preproc_function_def] = STATE(1111),
+    [sym_preproc_call] = STATE(1111),
+    [sym_preproc_if_in_module] = STATE(1111),
+    [sym_preproc_ifdef_in_module] = STATE(1111),
+    [sym_end_submodule_statement] = STATE(1097),
+    [sym_interface] = STATE(1111),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6651),
+    [sym_contains_statement] = STATE(6607),
+    [sym__specification_part] = STATE(1111),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1111),
+    [sym_public_statement] = STATE(1111),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1111),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1111),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1111),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4781),
+    [aux_sym_preproc_def_token1] = ACTIONS(4783),
+    [aux_sym_preproc_if_token1] = ACTIONS(4785),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4787),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4787),
+    [sym_preproc_directive] = ACTIONS(4789),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4829),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4831),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4795),
+    [aux_sym_public_statement_token1] = ACTIONS(4797),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1437] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1093] = {
+    [ts_builtin_sym_end] = ACTIONS(4577),
+    [aux_sym_preproc_include_token1] = ACTIONS(4575),
+    [aux_sym_preproc_def_token1] = ACTIONS(4575),
+    [aux_sym_preproc_if_token1] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4575),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4575),
+    [sym_preproc_directive] = ACTIONS(4575),
+    [anon_sym_LPAREN2] = ACTIONS(4575),
+    [anon_sym_PLUS] = ACTIONS(4577),
+    [anon_sym_DASH] = ACTIONS(4577),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4575),
+    [aux_sym_module_statement_token1] = ACTIONS(4575),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4575),
+    [aux_sym_interface_statement_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4575),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4575),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4575),
+    [aux_sym_function_statement_token1] = ACTIONS(4575),
+    [aux_sym_language_binding_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4575),
+    [aux_sym_contains_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token1] = ACTIONS(4575),
+    [aux_sym_use_statement_token2] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4575),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4575),
+    [aux_sym_save_statement_token1] = ACTIONS(4575),
+    [aux_sym_private_statement_token1] = ACTIONS(4575),
+    [aux_sym_public_statement_token1] = ACTIONS(4575),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4575),
+    [aux_sym_common_statement_token1] = ACTIONS(4575),
+    [aux_sym_import_statement_token1] = ACTIONS(4575),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4575),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4575),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4575),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4575),
+    [aux_sym_derived_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token1] = ACTIONS(4575),
+    [aux_sym_declared_type_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4575),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4575),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4575),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4575),
+    [anon_sym_SEMI] = ACTIONS(4577),
+    [aux_sym_stop_statement_token1] = ACTIONS(4575),
+    [aux_sym_stop_statement_token2] = ACTIONS(4575),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4575),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4575),
+    [aux_sym_include_statement_token1] = ACTIONS(4575),
+    [aux_sym_data_statement_token1] = ACTIONS(4575),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4575),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4575),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4575),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4575),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4575),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4575),
+    [aux_sym_block_construct_token1] = ACTIONS(4575),
+    [aux_sym_associate_statement_token1] = ACTIONS(4575),
+    [aux_sym_format_statement_token1] = ACTIONS(4575),
+    [aux_sym_print_statement_token1] = ACTIONS(4575),
+    [aux_sym_open_statement_token1] = ACTIONS(4575),
+    [aux_sym_close_statement_token1] = ACTIONS(4575),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4575),
+    [aux_sym_enum_statement_token1] = ACTIONS(4575),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4575),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4575),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4575),
+    [aux_sym_entry_statement_token1] = ACTIONS(4575),
+    [aux_sym_logical_expression_token5] = ACTIONS(4577),
+    [anon_sym_DOT] = ACTIONS(4575),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4577),
+    [anon_sym_LBRACK] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4577),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4577),
+    [aux_sym_null_literal_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4575),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4575),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4575),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4575),
+    [aux_sym_identifier_token1] = ACTIONS(4575),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4577),
+    [sym__float_literal] = ACTIONS(4577),
+    [sym__boz_literal] = ACTIONS(4577),
+    [sym__string_literal] = ACTIONS(4577),
+    [sym__string_literal_kind] = ACTIONS(4577),
+  },
+  [1094] = {
+    [ts_builtin_sym_end] = ACTIONS(4403),
+    [aux_sym_preproc_include_token1] = ACTIONS(4401),
+    [aux_sym_preproc_def_token1] = ACTIONS(4401),
+    [aux_sym_preproc_if_token1] = ACTIONS(4401),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
+    [sym_preproc_directive] = ACTIONS(4401),
+    [anon_sym_LPAREN2] = ACTIONS(4401),
+    [anon_sym_PLUS] = ACTIONS(4403),
+    [anon_sym_DASH] = ACTIONS(4403),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_program_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
+    [aux_sym_module_statement_token1] = ACTIONS(4401),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4401),
+    [aux_sym_interface_statement_token1] = ACTIONS(4401),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4401),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
+    [aux_sym_function_statement_token1] = ACTIONS(4401),
+    [aux_sym_language_binding_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
+    [aux_sym_contains_statement_token1] = ACTIONS(4401),
+    [aux_sym_use_statement_token1] = ACTIONS(4401),
+    [aux_sym_use_statement_token2] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
+    [aux_sym_save_statement_token1] = ACTIONS(4401),
+    [aux_sym_private_statement_token1] = ACTIONS(4401),
+    [aux_sym_public_statement_token1] = ACTIONS(4401),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
+    [aux_sym_common_statement_token1] = ACTIONS(4401),
+    [aux_sym_import_statement_token1] = ACTIONS(4401),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
+    [aux_sym_derived_type_token1] = ACTIONS(4401),
+    [aux_sym_declared_type_token1] = ACTIONS(4401),
+    [aux_sym_declared_type_token2] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4401),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4401),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
+    [anon_sym_SEMI] = ACTIONS(4403),
+    [aux_sym_stop_statement_token1] = ACTIONS(4401),
+    [aux_sym_stop_statement_token2] = ACTIONS(4401),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
+    [aux_sym_include_statement_token1] = ACTIONS(4401),
+    [aux_sym_data_statement_token1] = ACTIONS(4401),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
+    [aux_sym_block_construct_token1] = ACTIONS(4401),
+    [aux_sym_associate_statement_token1] = ACTIONS(4401),
+    [aux_sym_format_statement_token1] = ACTIONS(4401),
+    [aux_sym_print_statement_token1] = ACTIONS(4401),
+    [aux_sym_open_statement_token1] = ACTIONS(4401),
+    [aux_sym_close_statement_token1] = ACTIONS(4401),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
+    [aux_sym_enum_statement_token1] = ACTIONS(4401),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
+    [aux_sym_entry_statement_token1] = ACTIONS(4401),
+    [aux_sym_logical_expression_token5] = ACTIONS(4403),
+    [anon_sym_DOT] = ACTIONS(4401),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
+    [anon_sym_LBRACK] = ACTIONS(4403),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
+    [aux_sym_null_literal_token1] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
+    [aux_sym_identifier_token1] = ACTIONS(4401),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(4403),
+    [sym__float_literal] = ACTIONS(4403),
+    [sym__boz_literal] = ACTIONS(4403),
+    [sym__string_literal] = ACTIONS(4403),
+    [sym__string_literal_kind] = ACTIONS(4403),
   },
-  [1438] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5469),
-    [aux_sym_preproc_def_token1] = ACTIONS(5469),
-    [aux_sym_preproc_if_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
-    [sym_preproc_directive] = ACTIONS(5469),
-    [anon_sym_LPAREN2] = ACTIONS(5469),
-    [anon_sym_PLUS] = ACTIONS(5471),
-    [anon_sym_DASH] = ACTIONS(5471),
+  [1095] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
-    [aux_sym_interface_statement_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5469),
-    [aux_sym_language_binding_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
-    [aux_sym_contains_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token2] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
-    [aux_sym_save_statement_token1] = ACTIONS(5469),
-    [aux_sym_private_statement_token1] = ACTIONS(5469),
-    [aux_sym_public_statement_token1] = ACTIONS(5469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
-    [aux_sym_common_statement_token1] = ACTIONS(5469),
-    [aux_sym_import_statement_token1] = ACTIONS(5469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
-    [aux_sym_derived_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
-    [anon_sym_SEMI] = ACTIONS(5471),
-    [aux_sym_stop_statement_token1] = ACTIONS(5469),
-    [aux_sym_stop_statement_token2] = ACTIONS(5469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
-    [aux_sym_include_statement_token1] = ACTIONS(5469),
-    [aux_sym_data_statement_token1] = ACTIONS(5469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
-    [aux_sym_block_construct_token1] = ACTIONS(5469),
-    [aux_sym_associate_statement_token1] = ACTIONS(5469),
-    [aux_sym_format_statement_token1] = ACTIONS(5469),
-    [aux_sym_print_statement_token1] = ACTIONS(5469),
-    [aux_sym_open_statement_token1] = ACTIONS(5469),
-    [aux_sym_close_statement_token1] = ACTIONS(5469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
-    [aux_sym_enum_statement_token1] = ACTIONS(5469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
-    [aux_sym_entry_statement_token1] = ACTIONS(5469),
-    [aux_sym_logical_expression_token5] = ACTIONS(5471),
-    [anon_sym_DOT] = ACTIONS(5469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
-    [anon_sym_LBRACK] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
-    [aux_sym_null_literal_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
-    [aux_sym_identifier_token1] = ACTIONS(5469),
+    [aux_sym_program_statement_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_module_statement_token1] = ACTIONS(4293),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4293),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4293),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_function_statement_token1] = ACTIONS(4293),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4293),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4293),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1096] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token2] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4473),
+    [aux_sym_module_statement_token1] = ACTIONS(4473),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_function_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4473),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5471),
-    [sym__float_literal] = ACTIONS(5471),
-    [sym__boz_literal] = ACTIONS(5471),
-    [sym__string_literal] = ACTIONS(5471),
-    [sym__string_literal_kind] = ACTIONS(5471),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1439] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
+  [1097] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4429),
+    [aux_sym_preproc_def_token1] = ACTIONS(4429),
+    [aux_sym_preproc_if_token1] = ACTIONS(4429),
+    [aux_sym_preproc_if_token2] = ACTIONS(4429),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4429),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4429),
+    [sym_preproc_directive] = ACTIONS(4429),
+    [anon_sym_LPAREN2] = ACTIONS(4429),
+    [anon_sym_PLUS] = ACTIONS(4431),
+    [anon_sym_DASH] = ACTIONS(4431),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
+    [aux_sym_program_statement_token1] = ACTIONS(4429),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4429),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4429),
+    [aux_sym_module_statement_token1] = ACTIONS(4429),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4429),
+    [aux_sym_interface_statement_token1] = ACTIONS(4429),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4429),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4429),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4429),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4429),
+    [aux_sym_function_statement_token1] = ACTIONS(4429),
+    [aux_sym_language_binding_token1] = ACTIONS(4429),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4429),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4429),
+    [aux_sym_contains_statement_token1] = ACTIONS(4429),
+    [aux_sym_use_statement_token1] = ACTIONS(4429),
+    [aux_sym_use_statement_token2] = ACTIONS(4429),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4429),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4429),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4429),
+    [aux_sym_save_statement_token1] = ACTIONS(4429),
+    [aux_sym_private_statement_token1] = ACTIONS(4429),
+    [aux_sym_public_statement_token1] = ACTIONS(4429),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4429),
+    [aux_sym_common_statement_token1] = ACTIONS(4429),
+    [aux_sym_import_statement_token1] = ACTIONS(4429),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4429),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4429),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4429),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4429),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4429),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4429),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4429),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4429),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4429),
+    [aux_sym_derived_type_token1] = ACTIONS(4429),
+    [aux_sym_declared_type_token1] = ACTIONS(4429),
+    [aux_sym_declared_type_token2] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4429),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4429),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4429),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4429),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4429),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4429),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4429),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4429),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4429),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4429),
+    [anon_sym_SEMI] = ACTIONS(4431),
+    [aux_sym_stop_statement_token1] = ACTIONS(4429),
+    [aux_sym_stop_statement_token2] = ACTIONS(4429),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4429),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4429),
+    [aux_sym_include_statement_token1] = ACTIONS(4429),
+    [aux_sym_data_statement_token1] = ACTIONS(4429),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4429),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4429),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4429),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4429),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4429),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4429),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4429),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4429),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4429),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4429),
+    [aux_sym_block_construct_token1] = ACTIONS(4429),
+    [aux_sym_associate_statement_token1] = ACTIONS(4429),
+    [aux_sym_format_statement_token1] = ACTIONS(4429),
+    [aux_sym_print_statement_token1] = ACTIONS(4429),
+    [aux_sym_open_statement_token1] = ACTIONS(4429),
+    [aux_sym_close_statement_token1] = ACTIONS(4429),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4429),
+    [aux_sym_enum_statement_token1] = ACTIONS(4429),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4429),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4429),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4429),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4429),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4429),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4429),
+    [aux_sym_entry_statement_token1] = ACTIONS(4429),
+    [aux_sym_logical_expression_token5] = ACTIONS(4431),
+    [anon_sym_DOT] = ACTIONS(4429),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4431),
+    [anon_sym_LBRACK] = ACTIONS(4431),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4431),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4431),
+    [aux_sym_null_literal_token1] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4429),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4429),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4429),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4429),
+    [aux_sym_identifier_token1] = ACTIONS(4429),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1440] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1441] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+    [sym__integer_literal] = ACTIONS(4431),
+    [sym__float_literal] = ACTIONS(4431),
+    [sym__boz_literal] = ACTIONS(4431),
+    [sym__string_literal] = ACTIONS(4431),
+    [sym__string_literal_kind] = ACTIONS(4431),
   },
-  [1442] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5457),
-    [aux_sym_preproc_def_token1] = ACTIONS(5457),
-    [aux_sym_preproc_if_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
-    [sym_preproc_directive] = ACTIONS(5457),
-    [anon_sym_LPAREN2] = ACTIONS(5457),
-    [anon_sym_PLUS] = ACTIONS(5459),
-    [anon_sym_DASH] = ACTIONS(5459),
+  [1098] = {
+    [ts_builtin_sym_end] = ACTIONS(4495),
+    [aux_sym_preproc_include_token1] = ACTIONS(4493),
+    [aux_sym_preproc_def_token1] = ACTIONS(4493),
+    [aux_sym_preproc_if_token1] = ACTIONS(4493),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4493),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4493),
+    [sym_preproc_directive] = ACTIONS(4493),
+    [anon_sym_LPAREN2] = ACTIONS(4493),
+    [anon_sym_PLUS] = ACTIONS(4495),
+    [anon_sym_DASH] = ACTIONS(4495),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
-    [aux_sym_interface_statement_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
-    [aux_sym_language_binding_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
-    [aux_sym_contains_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token2] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
-    [aux_sym_save_statement_token1] = ACTIONS(5457),
-    [aux_sym_private_statement_token1] = ACTIONS(5457),
-    [aux_sym_public_statement_token1] = ACTIONS(5457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
-    [aux_sym_common_statement_token1] = ACTIONS(5457),
-    [aux_sym_import_statement_token1] = ACTIONS(5457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
-    [aux_sym_derived_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
-    [anon_sym_SEMI] = ACTIONS(5459),
-    [aux_sym_stop_statement_token1] = ACTIONS(5457),
-    [aux_sym_stop_statement_token2] = ACTIONS(5457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
-    [aux_sym_include_statement_token1] = ACTIONS(5457),
-    [aux_sym_data_statement_token1] = ACTIONS(5457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
-    [aux_sym_block_construct_token1] = ACTIONS(5457),
-    [aux_sym_associate_statement_token1] = ACTIONS(5457),
-    [aux_sym_format_statement_token1] = ACTIONS(5457),
-    [aux_sym_print_statement_token1] = ACTIONS(5457),
-    [aux_sym_open_statement_token1] = ACTIONS(5457),
-    [aux_sym_close_statement_token1] = ACTIONS(5457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
-    [aux_sym_enum_statement_token1] = ACTIONS(5457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
-    [aux_sym_entry_statement_token1] = ACTIONS(5457),
-    [aux_sym_logical_expression_token5] = ACTIONS(5459),
-    [anon_sym_DOT] = ACTIONS(5457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
-    [anon_sym_LBRACK] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
-    [aux_sym_null_literal_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
-    [aux_sym_identifier_token1] = ACTIONS(5457),
+    [aux_sym_program_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4493),
+    [aux_sym_module_statement_token1] = ACTIONS(4493),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4493),
+    [aux_sym_interface_statement_token1] = ACTIONS(4493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4493),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4493),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4493),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4493),
+    [aux_sym_function_statement_token1] = ACTIONS(4493),
+    [aux_sym_language_binding_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4493),
+    [aux_sym_contains_statement_token1] = ACTIONS(4493),
+    [aux_sym_use_statement_token1] = ACTIONS(4493),
+    [aux_sym_use_statement_token2] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4493),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4493),
+    [aux_sym_save_statement_token1] = ACTIONS(4493),
+    [aux_sym_private_statement_token1] = ACTIONS(4493),
+    [aux_sym_public_statement_token1] = ACTIONS(4493),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4493),
+    [aux_sym_common_statement_token1] = ACTIONS(4493),
+    [aux_sym_import_statement_token1] = ACTIONS(4493),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4493),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4493),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4493),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4493),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4493),
+    [aux_sym_derived_type_token1] = ACTIONS(4493),
+    [aux_sym_declared_type_token1] = ACTIONS(4493),
+    [aux_sym_declared_type_token2] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4493),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4493),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4493),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4493),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4493),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4493),
+    [anon_sym_SEMI] = ACTIONS(4495),
+    [aux_sym_stop_statement_token1] = ACTIONS(4493),
+    [aux_sym_stop_statement_token2] = ACTIONS(4493),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4493),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4493),
+    [aux_sym_include_statement_token1] = ACTIONS(4493),
+    [aux_sym_data_statement_token1] = ACTIONS(4493),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4493),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4493),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4493),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4493),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4493),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4493),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4493),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4493),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4493),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4493),
+    [aux_sym_block_construct_token1] = ACTIONS(4493),
+    [aux_sym_associate_statement_token1] = ACTIONS(4493),
+    [aux_sym_format_statement_token1] = ACTIONS(4493),
+    [aux_sym_print_statement_token1] = ACTIONS(4493),
+    [aux_sym_open_statement_token1] = ACTIONS(4493),
+    [aux_sym_close_statement_token1] = ACTIONS(4493),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4493),
+    [aux_sym_enum_statement_token1] = ACTIONS(4493),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4493),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4493),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4493),
+    [aux_sym_entry_statement_token1] = ACTIONS(4493),
+    [aux_sym_logical_expression_token5] = ACTIONS(4495),
+    [anon_sym_DOT] = ACTIONS(4493),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4495),
+    [anon_sym_LBRACK] = ACTIONS(4495),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4495),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4495),
+    [aux_sym_null_literal_token1] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4493),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4493),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4493),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4493),
+    [aux_sym_identifier_token1] = ACTIONS(4493),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5459),
-    [sym__float_literal] = ACTIONS(5459),
-    [sym__boz_literal] = ACTIONS(5459),
-    [sym__string_literal] = ACTIONS(5459),
-    [sym__string_literal_kind] = ACTIONS(5459),
+    [sym__integer_literal] = ACTIONS(4495),
+    [sym__float_literal] = ACTIONS(4495),
+    [sym__boz_literal] = ACTIONS(4495),
+    [sym__string_literal] = ACTIONS(4495),
+    [sym__string_literal_kind] = ACTIONS(4495),
   },
-  [1443] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5473),
-    [aux_sym_preproc_def_token1] = ACTIONS(5473),
-    [aux_sym_preproc_if_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
-    [sym_preproc_directive] = ACTIONS(5473),
-    [anon_sym_LPAREN2] = ACTIONS(5473),
-    [anon_sym_PLUS] = ACTIONS(5475),
-    [anon_sym_DASH] = ACTIONS(5475),
+  [1099] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token2] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
-    [aux_sym_interface_statement_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5473),
-    [aux_sym_language_binding_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
-    [aux_sym_contains_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token2] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
-    [aux_sym_save_statement_token1] = ACTIONS(5473),
-    [aux_sym_private_statement_token1] = ACTIONS(5473),
-    [aux_sym_public_statement_token1] = ACTIONS(5473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
-    [aux_sym_common_statement_token1] = ACTIONS(5473),
-    [aux_sym_import_statement_token1] = ACTIONS(5473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
-    [aux_sym_derived_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
-    [anon_sym_SEMI] = ACTIONS(5475),
-    [aux_sym_stop_statement_token1] = ACTIONS(5473),
-    [aux_sym_stop_statement_token2] = ACTIONS(5473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
-    [aux_sym_include_statement_token1] = ACTIONS(5473),
-    [aux_sym_data_statement_token1] = ACTIONS(5473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
-    [aux_sym_block_construct_token1] = ACTIONS(5473),
-    [aux_sym_associate_statement_token1] = ACTIONS(5473),
-    [aux_sym_format_statement_token1] = ACTIONS(5473),
-    [aux_sym_print_statement_token1] = ACTIONS(5473),
-    [aux_sym_open_statement_token1] = ACTIONS(5473),
-    [aux_sym_close_statement_token1] = ACTIONS(5473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
-    [aux_sym_enum_statement_token1] = ACTIONS(5473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
-    [aux_sym_entry_statement_token1] = ACTIONS(5473),
-    [aux_sym_logical_expression_token5] = ACTIONS(5475),
-    [anon_sym_DOT] = ACTIONS(5473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
-    [anon_sym_LBRACK] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
-    [aux_sym_null_literal_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
-    [aux_sym_identifier_token1] = ACTIONS(5473),
+    [aux_sym_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4485),
+    [aux_sym_module_statement_token1] = ACTIONS(4485),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_function_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4485),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5475),
-    [sym__float_literal] = ACTIONS(5475),
-    [sym__boz_literal] = ACTIONS(5475),
-    [sym__string_literal] = ACTIONS(5475),
-    [sym__string_literal_kind] = ACTIONS(5475),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1444] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1100] = {
+    [sym_preproc_include] = STATE(1004),
+    [sym_preproc_def] = STATE(1004),
+    [sym_preproc_function_def] = STATE(1004),
+    [sym_preproc_call] = STATE(1004),
+    [sym_preproc_if_in_module] = STATE(1004),
+    [sym_preproc_ifdef_in_module] = STATE(1004),
+    [sym_end_module_statement] = STATE(901),
+    [sym_interface] = STATE(1004),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(6480),
+    [sym_contains_statement] = STATE(7021),
+    [sym__specification_part] = STATE(1004),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1004),
+    [sym_public_statement] = STATE(1004),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1004),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1004),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1004),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1004),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4799),
+    [aux_sym_preproc_def_token1] = ACTIONS(4801),
+    [aux_sym_preproc_if_token1] = ACTIONS(4803),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4805),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4805),
+    [sym_preproc_directive] = ACTIONS(4807),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4817),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4819),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(4813),
+    [aux_sym_public_statement_token1] = ACTIONS(4815),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1445] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
+  [1101] = {
+    [ts_builtin_sym_end] = ACTIONS(4643),
+    [aux_sym_preproc_include_token1] = ACTIONS(4641),
+    [aux_sym_preproc_def_token1] = ACTIONS(4641),
+    [aux_sym_preproc_if_token1] = ACTIONS(4641),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4641),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4641),
+    [sym_preproc_directive] = ACTIONS(4641),
+    [anon_sym_LPAREN2] = ACTIONS(4641),
+    [anon_sym_PLUS] = ACTIONS(4643),
+    [anon_sym_DASH] = ACTIONS(4643),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [aux_sym_program_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4641),
+    [aux_sym_module_statement_token1] = ACTIONS(4641),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4641),
+    [aux_sym_interface_statement_token1] = ACTIONS(4641),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4641),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4641),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4641),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4641),
+    [aux_sym_function_statement_token1] = ACTIONS(4641),
+    [aux_sym_language_binding_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4641),
+    [aux_sym_contains_statement_token1] = ACTIONS(4641),
+    [aux_sym_use_statement_token1] = ACTIONS(4641),
+    [aux_sym_use_statement_token2] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4641),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4641),
+    [aux_sym_save_statement_token1] = ACTIONS(4641),
+    [aux_sym_private_statement_token1] = ACTIONS(4641),
+    [aux_sym_public_statement_token1] = ACTIONS(4641),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4641),
+    [aux_sym_common_statement_token1] = ACTIONS(4641),
+    [aux_sym_import_statement_token1] = ACTIONS(4641),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4641),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4641),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4641),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4641),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4641),
+    [aux_sym_derived_type_token1] = ACTIONS(4641),
+    [aux_sym_declared_type_token1] = ACTIONS(4641),
+    [aux_sym_declared_type_token2] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4641),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4641),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4641),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4641),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4641),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4641),
+    [anon_sym_SEMI] = ACTIONS(4643),
+    [aux_sym_stop_statement_token1] = ACTIONS(4641),
+    [aux_sym_stop_statement_token2] = ACTIONS(4641),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4641),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4641),
+    [aux_sym_include_statement_token1] = ACTIONS(4641),
+    [aux_sym_data_statement_token1] = ACTIONS(4641),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4641),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4641),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4641),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4641),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4641),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4641),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4641),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4641),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4641),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4641),
+    [aux_sym_block_construct_token1] = ACTIONS(4641),
+    [aux_sym_associate_statement_token1] = ACTIONS(4641),
+    [aux_sym_format_statement_token1] = ACTIONS(4641),
+    [aux_sym_print_statement_token1] = ACTIONS(4641),
+    [aux_sym_open_statement_token1] = ACTIONS(4641),
+    [aux_sym_close_statement_token1] = ACTIONS(4641),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4641),
+    [aux_sym_enum_statement_token1] = ACTIONS(4641),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4641),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4641),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4641),
+    [aux_sym_entry_statement_token1] = ACTIONS(4641),
+    [aux_sym_logical_expression_token5] = ACTIONS(4643),
+    [anon_sym_DOT] = ACTIONS(4641),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4643),
+    [anon_sym_LBRACK] = ACTIONS(4643),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4643),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4643),
+    [aux_sym_null_literal_token1] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4641),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4641),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4641),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4641),
+    [aux_sym_identifier_token1] = ACTIONS(4641),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
+    [sym__integer_literal] = ACTIONS(4643),
+    [sym__float_literal] = ACTIONS(4643),
+    [sym__boz_literal] = ACTIONS(4643),
+    [sym__string_literal] = ACTIONS(4643),
+    [sym__string_literal_kind] = ACTIONS(4643),
+  },
+  [1102] = {
+    [ts_builtin_sym_end] = ACTIONS(4569),
+    [aux_sym_preproc_include_token1] = ACTIONS(4567),
+    [aux_sym_preproc_def_token1] = ACTIONS(4567),
+    [aux_sym_preproc_if_token1] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4567),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4567),
+    [sym_preproc_directive] = ACTIONS(4567),
+    [anon_sym_LPAREN2] = ACTIONS(4567),
+    [anon_sym_PLUS] = ACTIONS(4569),
+    [anon_sym_DASH] = ACTIONS(4569),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4567),
+    [aux_sym_module_statement_token1] = ACTIONS(4567),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4567),
+    [aux_sym_interface_statement_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4567),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4567),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4567),
+    [aux_sym_function_statement_token1] = ACTIONS(4567),
+    [aux_sym_language_binding_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4567),
+    [aux_sym_contains_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token1] = ACTIONS(4567),
+    [aux_sym_use_statement_token2] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4567),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4567),
+    [aux_sym_save_statement_token1] = ACTIONS(4567),
+    [aux_sym_private_statement_token1] = ACTIONS(4567),
+    [aux_sym_public_statement_token1] = ACTIONS(4567),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4567),
+    [aux_sym_common_statement_token1] = ACTIONS(4567),
+    [aux_sym_import_statement_token1] = ACTIONS(4567),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4567),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4567),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4567),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4567),
+    [aux_sym_derived_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token1] = ACTIONS(4567),
+    [aux_sym_declared_type_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4567),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4567),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4567),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4567),
+    [anon_sym_SEMI] = ACTIONS(4569),
+    [aux_sym_stop_statement_token1] = ACTIONS(4567),
+    [aux_sym_stop_statement_token2] = ACTIONS(4567),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4567),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4567),
+    [aux_sym_include_statement_token1] = ACTIONS(4567),
+    [aux_sym_data_statement_token1] = ACTIONS(4567),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4567),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4567),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4567),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4567),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4567),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4567),
+    [aux_sym_block_construct_token1] = ACTIONS(4567),
+    [aux_sym_associate_statement_token1] = ACTIONS(4567),
+    [aux_sym_format_statement_token1] = ACTIONS(4567),
+    [aux_sym_print_statement_token1] = ACTIONS(4567),
+    [aux_sym_open_statement_token1] = ACTIONS(4567),
+    [aux_sym_close_statement_token1] = ACTIONS(4567),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4567),
+    [aux_sym_enum_statement_token1] = ACTIONS(4567),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4567),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4567),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4567),
+    [aux_sym_entry_statement_token1] = ACTIONS(4567),
+    [aux_sym_logical_expression_token5] = ACTIONS(4569),
+    [anon_sym_DOT] = ACTIONS(4567),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4569),
+    [anon_sym_LBRACK] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4569),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4569),
+    [aux_sym_null_literal_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4567),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4567),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4567),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4567),
+    [aux_sym_identifier_token1] = ACTIONS(4567),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4569),
+    [sym__float_literal] = ACTIONS(4569),
+    [sym__boz_literal] = ACTIONS(4569),
+    [sym__string_literal] = ACTIONS(4569),
+    [sym__string_literal_kind] = ACTIONS(4569),
+  },
+  [1103] = {
+    [ts_builtin_sym_end] = ACTIONS(4565),
+    [aux_sym_preproc_include_token1] = ACTIONS(4563),
+    [aux_sym_preproc_def_token1] = ACTIONS(4563),
+    [aux_sym_preproc_if_token1] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4563),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4563),
+    [sym_preproc_directive] = ACTIONS(4563),
+    [anon_sym_LPAREN2] = ACTIONS(4563),
+    [anon_sym_PLUS] = ACTIONS(4565),
+    [anon_sym_DASH] = ACTIONS(4565),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4563),
+    [aux_sym_module_statement_token1] = ACTIONS(4563),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4563),
+    [aux_sym_interface_statement_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4563),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4563),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4563),
+    [aux_sym_function_statement_token1] = ACTIONS(4563),
+    [aux_sym_language_binding_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4563),
+    [aux_sym_contains_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token1] = ACTIONS(4563),
+    [aux_sym_use_statement_token2] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4563),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4563),
+    [aux_sym_save_statement_token1] = ACTIONS(4563),
+    [aux_sym_private_statement_token1] = ACTIONS(4563),
+    [aux_sym_public_statement_token1] = ACTIONS(4563),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4563),
+    [aux_sym_common_statement_token1] = ACTIONS(4563),
+    [aux_sym_import_statement_token1] = ACTIONS(4563),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4563),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4563),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4563),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4563),
+    [aux_sym_derived_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token1] = ACTIONS(4563),
+    [aux_sym_declared_type_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4563),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4563),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4563),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4563),
+    [anon_sym_SEMI] = ACTIONS(4565),
+    [aux_sym_stop_statement_token1] = ACTIONS(4563),
+    [aux_sym_stop_statement_token2] = ACTIONS(4563),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4563),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4563),
+    [aux_sym_include_statement_token1] = ACTIONS(4563),
+    [aux_sym_data_statement_token1] = ACTIONS(4563),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4563),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4563),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4563),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4563),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4563),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4563),
+    [aux_sym_block_construct_token1] = ACTIONS(4563),
+    [aux_sym_associate_statement_token1] = ACTIONS(4563),
+    [aux_sym_format_statement_token1] = ACTIONS(4563),
+    [aux_sym_print_statement_token1] = ACTIONS(4563),
+    [aux_sym_open_statement_token1] = ACTIONS(4563),
+    [aux_sym_close_statement_token1] = ACTIONS(4563),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4563),
+    [aux_sym_enum_statement_token1] = ACTIONS(4563),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4563),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4563),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4563),
+    [aux_sym_entry_statement_token1] = ACTIONS(4563),
+    [aux_sym_logical_expression_token5] = ACTIONS(4565),
+    [anon_sym_DOT] = ACTIONS(4563),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4565),
+    [anon_sym_LBRACK] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4565),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4565),
+    [aux_sym_null_literal_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4563),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4563),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4563),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4563),
+    [aux_sym_identifier_token1] = ACTIONS(4563),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4565),
+    [sym__float_literal] = ACTIONS(4565),
+    [sym__boz_literal] = ACTIONS(4565),
+    [sym__string_literal] = ACTIONS(4565),
+    [sym__string_literal_kind] = ACTIONS(4565),
   },
-  [1446] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
+  [1104] = {
+    [ts_builtin_sym_end] = ACTIONS(4561),
+    [aux_sym_preproc_include_token1] = ACTIONS(4559),
+    [aux_sym_preproc_def_token1] = ACTIONS(4559),
+    [aux_sym_preproc_if_token1] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4559),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4559),
+    [sym_preproc_directive] = ACTIONS(4559),
+    [anon_sym_LPAREN2] = ACTIONS(4559),
+    [anon_sym_PLUS] = ACTIONS(4561),
+    [anon_sym_DASH] = ACTIONS(4561),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4559),
+    [aux_sym_module_statement_token1] = ACTIONS(4559),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4559),
+    [aux_sym_interface_statement_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4559),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4559),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4559),
+    [aux_sym_function_statement_token1] = ACTIONS(4559),
+    [aux_sym_language_binding_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4559),
+    [aux_sym_contains_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token1] = ACTIONS(4559),
+    [aux_sym_use_statement_token2] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4559),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4559),
+    [aux_sym_save_statement_token1] = ACTIONS(4559),
+    [aux_sym_private_statement_token1] = ACTIONS(4559),
+    [aux_sym_public_statement_token1] = ACTIONS(4559),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4559),
+    [aux_sym_common_statement_token1] = ACTIONS(4559),
+    [aux_sym_import_statement_token1] = ACTIONS(4559),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4559),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4559),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4559),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4559),
+    [aux_sym_derived_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token1] = ACTIONS(4559),
+    [aux_sym_declared_type_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4559),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4559),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4559),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4559),
+    [anon_sym_SEMI] = ACTIONS(4561),
+    [aux_sym_stop_statement_token1] = ACTIONS(4559),
+    [aux_sym_stop_statement_token2] = ACTIONS(4559),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4559),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4559),
+    [aux_sym_include_statement_token1] = ACTIONS(4559),
+    [aux_sym_data_statement_token1] = ACTIONS(4559),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4559),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4559),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4559),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4559),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4559),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4559),
+    [aux_sym_block_construct_token1] = ACTIONS(4559),
+    [aux_sym_associate_statement_token1] = ACTIONS(4559),
+    [aux_sym_format_statement_token1] = ACTIONS(4559),
+    [aux_sym_print_statement_token1] = ACTIONS(4559),
+    [aux_sym_open_statement_token1] = ACTIONS(4559),
+    [aux_sym_close_statement_token1] = ACTIONS(4559),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4559),
+    [aux_sym_enum_statement_token1] = ACTIONS(4559),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4559),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4559),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4559),
+    [aux_sym_entry_statement_token1] = ACTIONS(4559),
+    [aux_sym_logical_expression_token5] = ACTIONS(4561),
+    [anon_sym_DOT] = ACTIONS(4559),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4561),
+    [anon_sym_LBRACK] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4561),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4561),
+    [aux_sym_null_literal_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4559),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4559),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4559),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4559),
+    [aux_sym_identifier_token1] = ACTIONS(4559),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4561),
+    [sym__float_literal] = ACTIONS(4561),
+    [sym__boz_literal] = ACTIONS(4561),
+    [sym__string_literal] = ACTIONS(4561),
+    [sym__string_literal_kind] = ACTIONS(4561),
   },
-  [1447] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1105] = {
+    [ts_builtin_sym_end] = ACTIONS(4553),
+    [aux_sym_preproc_include_token1] = ACTIONS(4551),
+    [aux_sym_preproc_def_token1] = ACTIONS(4551),
+    [aux_sym_preproc_if_token1] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4551),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4551),
+    [sym_preproc_directive] = ACTIONS(4551),
+    [anon_sym_LPAREN2] = ACTIONS(4551),
+    [anon_sym_PLUS] = ACTIONS(4553),
+    [anon_sym_DASH] = ACTIONS(4553),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4551),
+    [aux_sym_module_statement_token1] = ACTIONS(4551),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4551),
+    [aux_sym_interface_statement_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4551),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4551),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4551),
+    [aux_sym_function_statement_token1] = ACTIONS(4551),
+    [aux_sym_language_binding_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4551),
+    [aux_sym_contains_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token1] = ACTIONS(4551),
+    [aux_sym_use_statement_token2] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4551),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4551),
+    [aux_sym_save_statement_token1] = ACTIONS(4551),
+    [aux_sym_private_statement_token1] = ACTIONS(4551),
+    [aux_sym_public_statement_token1] = ACTIONS(4551),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4551),
+    [aux_sym_common_statement_token1] = ACTIONS(4551),
+    [aux_sym_import_statement_token1] = ACTIONS(4551),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4551),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4551),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4551),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4551),
+    [aux_sym_derived_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token1] = ACTIONS(4551),
+    [aux_sym_declared_type_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4551),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4551),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4551),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4551),
+    [anon_sym_SEMI] = ACTIONS(4553),
+    [aux_sym_stop_statement_token1] = ACTIONS(4551),
+    [aux_sym_stop_statement_token2] = ACTIONS(4551),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4551),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4551),
+    [aux_sym_include_statement_token1] = ACTIONS(4551),
+    [aux_sym_data_statement_token1] = ACTIONS(4551),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4551),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4551),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4551),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4551),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4551),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4551),
+    [aux_sym_block_construct_token1] = ACTIONS(4551),
+    [aux_sym_associate_statement_token1] = ACTIONS(4551),
+    [aux_sym_format_statement_token1] = ACTIONS(4551),
+    [aux_sym_print_statement_token1] = ACTIONS(4551),
+    [aux_sym_open_statement_token1] = ACTIONS(4551),
+    [aux_sym_close_statement_token1] = ACTIONS(4551),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4551),
+    [aux_sym_enum_statement_token1] = ACTIONS(4551),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4551),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4551),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4551),
+    [aux_sym_entry_statement_token1] = ACTIONS(4551),
+    [aux_sym_logical_expression_token5] = ACTIONS(4553),
+    [anon_sym_DOT] = ACTIONS(4551),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4553),
+    [anon_sym_LBRACK] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4553),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4553),
+    [aux_sym_null_literal_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4551),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4551),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4551),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4551),
+    [aux_sym_identifier_token1] = ACTIONS(4551),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4553),
+    [sym__float_literal] = ACTIONS(4553),
+    [sym__boz_literal] = ACTIONS(4553),
+    [sym__string_literal] = ACTIONS(4553),
+    [sym__string_literal_kind] = ACTIONS(4553),
   },
-  [1448] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
+  [1106] = {
+    [ts_builtin_sym_end] = ACTIONS(4523),
+    [aux_sym_preproc_include_token1] = ACTIONS(4521),
+    [aux_sym_preproc_def_token1] = ACTIONS(4521),
+    [aux_sym_preproc_if_token1] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4521),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4521),
+    [sym_preproc_directive] = ACTIONS(4521),
+    [anon_sym_LPAREN2] = ACTIONS(4521),
+    [anon_sym_PLUS] = ACTIONS(4523),
+    [anon_sym_DASH] = ACTIONS(4523),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4521),
+    [aux_sym_module_statement_token1] = ACTIONS(4521),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4521),
+    [aux_sym_interface_statement_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4521),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4521),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4521),
+    [aux_sym_function_statement_token1] = ACTIONS(4521),
+    [aux_sym_language_binding_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4521),
+    [aux_sym_contains_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token1] = ACTIONS(4521),
+    [aux_sym_use_statement_token2] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4521),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4521),
+    [aux_sym_save_statement_token1] = ACTIONS(4521),
+    [aux_sym_private_statement_token1] = ACTIONS(4521),
+    [aux_sym_public_statement_token1] = ACTIONS(4521),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4521),
+    [aux_sym_common_statement_token1] = ACTIONS(4521),
+    [aux_sym_import_statement_token1] = ACTIONS(4521),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4521),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4521),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4521),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4521),
+    [aux_sym_derived_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token1] = ACTIONS(4521),
+    [aux_sym_declared_type_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4521),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4521),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4521),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4521),
+    [anon_sym_SEMI] = ACTIONS(4523),
+    [aux_sym_stop_statement_token1] = ACTIONS(4521),
+    [aux_sym_stop_statement_token2] = ACTIONS(4521),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4521),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4521),
+    [aux_sym_include_statement_token1] = ACTIONS(4521),
+    [aux_sym_data_statement_token1] = ACTIONS(4521),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4521),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4521),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4521),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4521),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4521),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4521),
+    [aux_sym_block_construct_token1] = ACTIONS(4521),
+    [aux_sym_associate_statement_token1] = ACTIONS(4521),
+    [aux_sym_format_statement_token1] = ACTIONS(4521),
+    [aux_sym_print_statement_token1] = ACTIONS(4521),
+    [aux_sym_open_statement_token1] = ACTIONS(4521),
+    [aux_sym_close_statement_token1] = ACTIONS(4521),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4521),
+    [aux_sym_enum_statement_token1] = ACTIONS(4521),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4521),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4521),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4521),
+    [aux_sym_entry_statement_token1] = ACTIONS(4521),
+    [aux_sym_logical_expression_token5] = ACTIONS(4523),
+    [anon_sym_DOT] = ACTIONS(4521),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4523),
+    [anon_sym_LBRACK] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4523),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4523),
+    [aux_sym_null_literal_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4521),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4521),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4521),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4521),
+    [aux_sym_identifier_token1] = ACTIONS(4521),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4523),
+    [sym__float_literal] = ACTIONS(4523),
+    [sym__boz_literal] = ACTIONS(4523),
+    [sym__string_literal] = ACTIONS(4523),
+    [sym__string_literal_kind] = ACTIONS(4523),
+  },
+  [1107] = {
+    [ts_builtin_sym_end] = ACTIONS(4519),
+    [aux_sym_preproc_include_token1] = ACTIONS(4517),
+    [aux_sym_preproc_def_token1] = ACTIONS(4517),
+    [aux_sym_preproc_if_token1] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4517),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4517),
+    [sym_preproc_directive] = ACTIONS(4517),
+    [anon_sym_LPAREN2] = ACTIONS(4517),
+    [anon_sym_PLUS] = ACTIONS(4519),
+    [anon_sym_DASH] = ACTIONS(4519),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4517),
+    [aux_sym_module_statement_token1] = ACTIONS(4517),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4517),
+    [aux_sym_interface_statement_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4517),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4517),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4517),
+    [aux_sym_function_statement_token1] = ACTIONS(4517),
+    [aux_sym_language_binding_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4517),
+    [aux_sym_contains_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token1] = ACTIONS(4517),
+    [aux_sym_use_statement_token2] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4517),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4517),
+    [aux_sym_save_statement_token1] = ACTIONS(4517),
+    [aux_sym_private_statement_token1] = ACTIONS(4517),
+    [aux_sym_public_statement_token1] = ACTIONS(4517),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4517),
+    [aux_sym_common_statement_token1] = ACTIONS(4517),
+    [aux_sym_import_statement_token1] = ACTIONS(4517),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4517),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4517),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4517),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4517),
+    [aux_sym_derived_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token1] = ACTIONS(4517),
+    [aux_sym_declared_type_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4517),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4517),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4517),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4517),
+    [anon_sym_SEMI] = ACTIONS(4519),
+    [aux_sym_stop_statement_token1] = ACTIONS(4517),
+    [aux_sym_stop_statement_token2] = ACTIONS(4517),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4517),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4517),
+    [aux_sym_include_statement_token1] = ACTIONS(4517),
+    [aux_sym_data_statement_token1] = ACTIONS(4517),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4517),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4517),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4517),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4517),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4517),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4517),
+    [aux_sym_block_construct_token1] = ACTIONS(4517),
+    [aux_sym_associate_statement_token1] = ACTIONS(4517),
+    [aux_sym_format_statement_token1] = ACTIONS(4517),
+    [aux_sym_print_statement_token1] = ACTIONS(4517),
+    [aux_sym_open_statement_token1] = ACTIONS(4517),
+    [aux_sym_close_statement_token1] = ACTIONS(4517),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4517),
+    [aux_sym_enum_statement_token1] = ACTIONS(4517),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4517),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4517),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4517),
+    [aux_sym_entry_statement_token1] = ACTIONS(4517),
+    [aux_sym_logical_expression_token5] = ACTIONS(4519),
+    [anon_sym_DOT] = ACTIONS(4517),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4519),
+    [anon_sym_LBRACK] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4519),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4519),
+    [aux_sym_null_literal_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4517),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4517),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4517),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4517),
+    [aux_sym_identifier_token1] = ACTIONS(4517),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4519),
+    [sym__float_literal] = ACTIONS(4519),
+    [sym__boz_literal] = ACTIONS(4519),
+    [sym__string_literal] = ACTIONS(4519),
+    [sym__string_literal_kind] = ACTIONS(4519),
+  },
+  [1108] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4481),
+    [aux_sym_preproc_def_token1] = ACTIONS(4481),
+    [aux_sym_preproc_if_token1] = ACTIONS(4481),
+    [aux_sym_preproc_if_token2] = ACTIONS(4481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4481),
+    [sym_preproc_directive] = ACTIONS(4481),
+    [anon_sym_LPAREN2] = ACTIONS(4481),
+    [anon_sym_PLUS] = ACTIONS(4483),
+    [anon_sym_DASH] = ACTIONS(4483),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_program_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4481),
+    [aux_sym_module_statement_token1] = ACTIONS(4481),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4481),
+    [aux_sym_interface_statement_token1] = ACTIONS(4481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4481),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4481),
+    [aux_sym_function_statement_token1] = ACTIONS(4481),
+    [aux_sym_language_binding_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4481),
+    [aux_sym_contains_statement_token1] = ACTIONS(4481),
+    [aux_sym_use_statement_token1] = ACTIONS(4481),
+    [aux_sym_use_statement_token2] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4481),
+    [aux_sym_save_statement_token1] = ACTIONS(4481),
+    [aux_sym_private_statement_token1] = ACTIONS(4481),
+    [aux_sym_public_statement_token1] = ACTIONS(4481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4481),
+    [aux_sym_common_statement_token1] = ACTIONS(4481),
+    [aux_sym_import_statement_token1] = ACTIONS(4481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4481),
+    [aux_sym_derived_type_token1] = ACTIONS(4481),
+    [aux_sym_declared_type_token1] = ACTIONS(4481),
+    [aux_sym_declared_type_token2] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4481),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4481),
+    [anon_sym_SEMI] = ACTIONS(4483),
+    [aux_sym_stop_statement_token1] = ACTIONS(4481),
+    [aux_sym_stop_statement_token2] = ACTIONS(4481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4481),
+    [aux_sym_include_statement_token1] = ACTIONS(4481),
+    [aux_sym_data_statement_token1] = ACTIONS(4481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4481),
+    [aux_sym_block_construct_token1] = ACTIONS(4481),
+    [aux_sym_associate_statement_token1] = ACTIONS(4481),
+    [aux_sym_format_statement_token1] = ACTIONS(4481),
+    [aux_sym_print_statement_token1] = ACTIONS(4481),
+    [aux_sym_open_statement_token1] = ACTIONS(4481),
+    [aux_sym_close_statement_token1] = ACTIONS(4481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4481),
+    [aux_sym_enum_statement_token1] = ACTIONS(4481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4481),
+    [aux_sym_entry_statement_token1] = ACTIONS(4481),
+    [aux_sym_logical_expression_token5] = ACTIONS(4483),
+    [anon_sym_DOT] = ACTIONS(4481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4483),
+    [anon_sym_LBRACK] = ACTIONS(4483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4483),
+    [aux_sym_null_literal_token1] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4481),
+    [aux_sym_identifier_token1] = ACTIONS(4481),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
-  },
-  [1449] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
+    [sym__integer_literal] = ACTIONS(4483),
+    [sym__float_literal] = ACTIONS(4483),
+    [sym__boz_literal] = ACTIONS(4483),
+    [sym__string_literal] = ACTIONS(4483),
+    [sym__string_literal_kind] = ACTIONS(4483),
   },
-  [1450] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+  [1109] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token2] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
+    [aux_sym_module_statement_token1] = ACTIONS(4405),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_function_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4405),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1451] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+  [1110] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token2] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
+    [aux_sym_module_statement_token1] = ACTIONS(4409),
+    [aux_sym_submodule_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_function_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4409),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1452] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5453),
-    [aux_sym_preproc_def_token1] = ACTIONS(5453),
-    [aux_sym_preproc_if_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
-    [sym_preproc_directive] = ACTIONS(5453),
-    [anon_sym_LPAREN2] = ACTIONS(5453),
-    [anon_sym_PLUS] = ACTIONS(5455),
-    [anon_sym_DASH] = ACTIONS(5455),
+  [1111] = {
+    [sym_preproc_include] = STATE(1111),
+    [sym_preproc_def] = STATE(1111),
+    [sym_preproc_function_def] = STATE(1111),
+    [sym_preproc_call] = STATE(1111),
+    [sym_preproc_if_in_module] = STATE(1111),
+    [sym_preproc_ifdef_in_module] = STATE(1111),
+    [sym_interface] = STATE(1111),
+    [sym_interface_statement] = STATE(3901),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(1111),
+    [sym_use_statement] = STATE(6606),
+    [sym_implicit_statement] = STATE(6606),
+    [sym_save_statement] = STATE(6606),
+    [sym_private_statement] = STATE(1111),
+    [sym_public_statement] = STATE(1111),
+    [sym_namelist_statement] = STATE(6606),
+    [sym_common_statement] = STATE(6606),
+    [sym_import_statement] = STATE(6606),
+    [sym_derived_type_definition] = STATE(1111),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4316),
+    [sym_variable_declaration] = STATE(6606),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(6606),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(6606),
+    [sym_equivalence_statement] = STATE(6606),
+    [sym_statement_label] = STATE(6757),
+    [sym_include_statement] = STATE(6606),
+    [sym_data_statement] = STATE(6606),
+    [sym_enum] = STATE(1111),
+    [sym_enum_statement] = STATE(6046),
+    [sym_enumeration_type] = STATE(1111),
+    [sym_enumeration_type_statement] = STATE(6218),
+    [sym_statement_function] = STATE(6606),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1111),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4833),
+    [aux_sym_preproc_def_token1] = ACTIONS(4836),
+    [aux_sym_preproc_if_token1] = ACTIONS(4839),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4842),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4842),
+    [sym_preproc_directive] = ACTIONS(4845),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
-    [aux_sym_interface_statement_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5453),
-    [aux_sym_language_binding_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
-    [aux_sym_contains_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token2] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
-    [aux_sym_save_statement_token1] = ACTIONS(5453),
-    [aux_sym_private_statement_token1] = ACTIONS(5453),
-    [aux_sym_public_statement_token1] = ACTIONS(5453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
-    [aux_sym_common_statement_token1] = ACTIONS(5453),
-    [aux_sym_import_statement_token1] = ACTIONS(5453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
-    [aux_sym_derived_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
-    [anon_sym_SEMI] = ACTIONS(5455),
-    [aux_sym_stop_statement_token1] = ACTIONS(5453),
-    [aux_sym_stop_statement_token2] = ACTIONS(5453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
-    [aux_sym_include_statement_token1] = ACTIONS(5453),
-    [aux_sym_data_statement_token1] = ACTIONS(5453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
-    [aux_sym_block_construct_token1] = ACTIONS(5453),
-    [aux_sym_associate_statement_token1] = ACTIONS(5453),
-    [aux_sym_format_statement_token1] = ACTIONS(5453),
-    [aux_sym_print_statement_token1] = ACTIONS(5453),
-    [aux_sym_open_statement_token1] = ACTIONS(5453),
-    [aux_sym_close_statement_token1] = ACTIONS(5453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
-    [aux_sym_enum_statement_token1] = ACTIONS(5453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
-    [aux_sym_entry_statement_token1] = ACTIONS(5453),
-    [aux_sym_logical_expression_token5] = ACTIONS(5455),
-    [anon_sym_DOT] = ACTIONS(5453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
-    [anon_sym_LBRACK] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
-    [aux_sym_null_literal_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
-    [aux_sym_identifier_token1] = ACTIONS(5453),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4848),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4851),
+    [aux_sym_interface_statement_token1] = ACTIONS(4853),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4856),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4856),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4859),
+    [aux_sym_language_binding_token1] = ACTIONS(4862),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4865),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4868),
+    [aux_sym_contains_statement_token1] = ACTIONS(4851),
+    [aux_sym_use_statement_token1] = ACTIONS(4871),
+    [aux_sym_use_statement_token2] = ACTIONS(4868),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4874),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4877),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4868),
+    [aux_sym_save_statement_token1] = ACTIONS(4880),
+    [aux_sym_private_statement_token1] = ACTIONS(4883),
+    [aux_sym_public_statement_token1] = ACTIONS(4886),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4889),
+    [aux_sym_common_statement_token1] = ACTIONS(4892),
+    [aux_sym_import_statement_token1] = ACTIONS(4895),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4868),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4898),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4901),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4901),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4868),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4904),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4904),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4910),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4913),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4907),
+    [aux_sym_derived_type_token1] = ACTIONS(4916),
+    [aux_sym_declared_type_token1] = ACTIONS(4919),
+    [aux_sym_declared_type_token2] = ACTIONS(4919),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4922),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4925),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4928),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4931),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4901),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4934),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4901),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4856),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4856),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4937),
+    [aux_sym_stop_statement_token1] = ACTIONS(4856),
+    [aux_sym_stop_statement_token2] = ACTIONS(4856),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4856),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4856),
+    [aux_sym_include_statement_token1] = ACTIONS(4940),
+    [aux_sym_data_statement_token1] = ACTIONS(4943),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4856),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4856),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4856),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4946),
+    [aux_sym_block_construct_token1] = ACTIONS(4856),
+    [aux_sym_format_statement_token1] = ACTIONS(4856),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4856),
+    [aux_sym_enum_statement_token1] = ACTIONS(4949),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4952),
+    [aux_sym_entry_statement_token1] = ACTIONS(4856),
+    [aux_sym_null_literal_token1] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4856),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4856),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4856),
+    [aux_sym_identifier_token1] = ACTIONS(4856),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5455),
-    [sym__float_literal] = ACTIONS(5455),
-    [sym__boz_literal] = ACTIONS(5455),
-    [sym__string_literal] = ACTIONS(5455),
-    [sym__string_literal_kind] = ACTIONS(5455),
+    [sym__integer_literal] = ACTIONS(4955),
   },
-  [1453] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5461),
-    [aux_sym_preproc_def_token1] = ACTIONS(5461),
-    [aux_sym_preproc_if_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
-    [sym_preproc_directive] = ACTIONS(5461),
-    [anon_sym_LPAREN2] = ACTIONS(5461),
-    [anon_sym_PLUS] = ACTIONS(5463),
-    [anon_sym_DASH] = ACTIONS(5463),
+  [1112] = {
+    [sym_preproc_include] = STATE(1112),
+    [sym_preproc_def] = STATE(1112),
+    [sym_preproc_function_def] = STATE(1112),
+    [sym_preproc_call] = STATE(1112),
+    [sym_preproc_if_in_module] = STATE(1112),
+    [sym_preproc_ifdef_in_module] = STATE(1112),
+    [sym_interface] = STATE(1112),
+    [sym_interface_statement] = STATE(3909),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(1112),
+    [sym_use_statement] = STATE(7019),
+    [sym_implicit_statement] = STATE(7019),
+    [sym_save_statement] = STATE(7019),
+    [sym_private_statement] = STATE(1112),
+    [sym_public_statement] = STATE(1112),
+    [sym_namelist_statement] = STATE(7019),
+    [sym_common_statement] = STATE(7019),
+    [sym_import_statement] = STATE(7019),
+    [sym_derived_type_definition] = STATE(1112),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4309),
+    [sym_variable_declaration] = STATE(7019),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7019),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7019),
+    [sym_equivalence_statement] = STATE(7019),
+    [sym_statement_label] = STATE(6764),
+    [sym_include_statement] = STATE(7019),
+    [sym_data_statement] = STATE(7019),
+    [sym_enum] = STATE(1112),
+    [sym_enum_statement] = STATE(6071),
+    [sym_enumeration_type] = STATE(1112),
+    [sym_enumeration_type_statement] = STATE(6084),
+    [sym_statement_function] = STATE(7019),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_module_repeat1] = STATE(1112),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4958),
+    [aux_sym_preproc_def_token1] = ACTIONS(4961),
+    [aux_sym_preproc_if_token1] = ACTIONS(4964),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4967),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4967),
+    [sym_preproc_directive] = ACTIONS(4970),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
-    [aux_sym_interface_statement_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
-    [aux_sym_language_binding_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
-    [aux_sym_contains_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token2] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
-    [aux_sym_save_statement_token1] = ACTIONS(5461),
-    [aux_sym_private_statement_token1] = ACTIONS(5461),
-    [aux_sym_public_statement_token1] = ACTIONS(5461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
-    [aux_sym_common_statement_token1] = ACTIONS(5461),
-    [aux_sym_import_statement_token1] = ACTIONS(5461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
-    [aux_sym_derived_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
-    [anon_sym_SEMI] = ACTIONS(5463),
-    [aux_sym_stop_statement_token1] = ACTIONS(5461),
-    [aux_sym_stop_statement_token2] = ACTIONS(5461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
-    [aux_sym_include_statement_token1] = ACTIONS(5461),
-    [aux_sym_data_statement_token1] = ACTIONS(5461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
-    [aux_sym_block_construct_token1] = ACTIONS(5461),
-    [aux_sym_associate_statement_token1] = ACTIONS(5461),
-    [aux_sym_format_statement_token1] = ACTIONS(5461),
-    [aux_sym_print_statement_token1] = ACTIONS(5461),
-    [aux_sym_open_statement_token1] = ACTIONS(5461),
-    [aux_sym_close_statement_token1] = ACTIONS(5461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
-    [aux_sym_enum_statement_token1] = ACTIONS(5461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
-    [aux_sym_entry_statement_token1] = ACTIONS(5461),
-    [aux_sym_logical_expression_token5] = ACTIONS(5463),
-    [anon_sym_DOT] = ACTIONS(5461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
-    [anon_sym_LBRACK] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
-    [aux_sym_null_literal_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
-    [aux_sym_identifier_token1] = ACTIONS(5461),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4848),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4851),
+    [aux_sym_interface_statement_token1] = ACTIONS(4853),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4856),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4856),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4859),
+    [aux_sym_language_binding_token1] = ACTIONS(4862),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4865),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4868),
+    [aux_sym_contains_statement_token1] = ACTIONS(4851),
+    [aux_sym_use_statement_token1] = ACTIONS(4871),
+    [aux_sym_use_statement_token2] = ACTIONS(4868),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4874),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4877),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4868),
+    [aux_sym_save_statement_token1] = ACTIONS(4880),
+    [aux_sym_private_statement_token1] = ACTIONS(4973),
+    [aux_sym_public_statement_token1] = ACTIONS(4976),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4889),
+    [aux_sym_common_statement_token1] = ACTIONS(4892),
+    [aux_sym_import_statement_token1] = ACTIONS(4895),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4868),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4898),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4901),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4868),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4901),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4868),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4904),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4904),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4910),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4913),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4907),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4907),
+    [aux_sym_derived_type_token1] = ACTIONS(4916),
+    [aux_sym_declared_type_token1] = ACTIONS(4919),
+    [aux_sym_declared_type_token2] = ACTIONS(4919),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4922),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4925),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4928),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4931),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4901),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4934),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4868),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4901),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4856),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4856),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4937),
+    [aux_sym_stop_statement_token1] = ACTIONS(4856),
+    [aux_sym_stop_statement_token2] = ACTIONS(4856),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4856),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4856),
+    [aux_sym_include_statement_token1] = ACTIONS(4940),
+    [aux_sym_data_statement_token1] = ACTIONS(4943),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4856),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4856),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4856),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4946),
+    [aux_sym_block_construct_token1] = ACTIONS(4856),
+    [aux_sym_format_statement_token1] = ACTIONS(4856),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4856),
+    [aux_sym_enum_statement_token1] = ACTIONS(4949),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4952),
+    [aux_sym_entry_statement_token1] = ACTIONS(4856),
+    [aux_sym_null_literal_token1] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4856),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4856),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4856),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4856),
+    [aux_sym_identifier_token1] = ACTIONS(4856),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5463),
-    [sym__float_literal] = ACTIONS(5463),
-    [sym__boz_literal] = ACTIONS(5463),
-    [sym__string_literal] = ACTIONS(5463),
-    [sym__string_literal_kind] = ACTIONS(5463),
+    [sym__integer_literal] = ACTIONS(4955),
   },
-  [1454] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5445),
-    [aux_sym_preproc_def_token1] = ACTIONS(5445),
-    [aux_sym_preproc_if_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
-    [sym_preproc_directive] = ACTIONS(5445),
-    [anon_sym_LPAREN2] = ACTIONS(5445),
-    [anon_sym_PLUS] = ACTIONS(5447),
-    [anon_sym_DASH] = ACTIONS(5447),
+  [1113] = {
+    [sym_preproc_include] = STATE(1113),
+    [sym_preproc_def] = STATE(1113),
+    [sym_preproc_function_def] = STATE(1113),
+    [sym_preproc_call] = STATE(1113),
+    [sym_interface] = STATE(1113),
+    [sym_interface_statement] = STATE(3841),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(1113),
+    [sym_use_statement] = STATE(7250),
+    [sym_implicit_statement] = STATE(7250),
+    [sym_save_statement] = STATE(7250),
+    [sym_private_statement] = STATE(1113),
+    [sym_public_statement] = STATE(1113),
+    [sym_namelist_statement] = STATE(7250),
+    [sym_common_statement] = STATE(7250),
+    [sym_import_statement] = STATE(7250),
+    [sym_derived_type_definition] = STATE(1113),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4296),
+    [sym_variable_declaration] = STATE(7250),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7250),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7250),
+    [sym_equivalence_statement] = STATE(7250),
+    [sym_statement_label] = STATE(6692),
+    [sym_include_statement] = STATE(7250),
+    [sym_data_statement] = STATE(7250),
+    [sym_enum] = STATE(1113),
+    [sym_enum_statement] = STATE(6043),
+    [sym_enumeration_type] = STATE(1113),
+    [sym_enumeration_type_statement] = STATE(6217),
+    [sym_statement_function] = STATE(7250),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1113),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4979),
+    [aux_sym_preproc_def_token1] = ACTIONS(4982),
+    [aux_sym_preproc_if_token2] = ACTIONS(2841),
+    [aux_sym_preproc_else_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2841),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2841),
+    [sym_preproc_directive] = ACTIONS(4985),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
-    [aux_sym_interface_statement_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
-    [aux_sym_language_binding_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5445),
-    [aux_sym_contains_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token2] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
-    [aux_sym_save_statement_token1] = ACTIONS(5445),
-    [aux_sym_private_statement_token1] = ACTIONS(5445),
-    [aux_sym_public_statement_token1] = ACTIONS(5445),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
-    [aux_sym_common_statement_token1] = ACTIONS(5445),
-    [aux_sym_import_statement_token1] = ACTIONS(5445),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
-    [aux_sym_derived_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
-    [anon_sym_SEMI] = ACTIONS(5447),
-    [aux_sym_stop_statement_token1] = ACTIONS(5445),
-    [aux_sym_stop_statement_token2] = ACTIONS(5445),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
-    [aux_sym_include_statement_token1] = ACTIONS(5445),
-    [aux_sym_data_statement_token1] = ACTIONS(5445),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
-    [aux_sym_block_construct_token1] = ACTIONS(5445),
-    [aux_sym_associate_statement_token1] = ACTIONS(5445),
-    [aux_sym_format_statement_token1] = ACTIONS(5445),
-    [aux_sym_print_statement_token1] = ACTIONS(5445),
-    [aux_sym_open_statement_token1] = ACTIONS(5445),
-    [aux_sym_close_statement_token1] = ACTIONS(5445),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
-    [aux_sym_enum_statement_token1] = ACTIONS(5445),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
-    [aux_sym_entry_statement_token1] = ACTIONS(5445),
-    [aux_sym_logical_expression_token5] = ACTIONS(5447),
-    [anon_sym_DOT] = ACTIONS(5445),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
-    [anon_sym_LBRACK] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
-    [aux_sym_null_literal_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
-    [aux_sym_identifier_token1] = ACTIONS(5445),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2848),
+    [aux_sym_interface_statement_token1] = ACTIONS(2851),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2854),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2854),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(2857),
+    [aux_sym_language_binding_token1] = ACTIONS(2860),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(2863),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2866),
+    [aux_sym_contains_statement_token1] = ACTIONS(2841),
+    [aux_sym_use_statement_token1] = ACTIONS(2869),
+    [aux_sym_use_statement_token2] = ACTIONS(2866),
+    [aux_sym_implicit_statement_token1] = ACTIONS(2872),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2875),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2866),
+    [aux_sym_save_statement_token1] = ACTIONS(2878),
+    [aux_sym_private_statement_token1] = ACTIONS(4988),
+    [aux_sym_public_statement_token1] = ACTIONS(4991),
+    [aux_sym_namelist_statement_token1] = ACTIONS(2887),
+    [aux_sym_common_statement_token1] = ACTIONS(2890),
+    [aux_sym_import_statement_token1] = ACTIONS(2893),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2866),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(2896),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token1] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token4] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2866),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2908),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(2911),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(2905),
+    [aux_sym_derived_type_token1] = ACTIONS(2914),
+    [aux_sym_declared_type_token1] = ACTIONS(2917),
+    [aux_sym_declared_type_token2] = ACTIONS(2917),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(2920),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2923),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(2926),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2929),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(2899),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2932),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(2899),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2854),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2854),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(2935),
+    [aux_sym_stop_statement_token1] = ACTIONS(2854),
+    [aux_sym_stop_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2854),
+    [aux_sym_include_statement_token1] = ACTIONS(2938),
+    [aux_sym_data_statement_token1] = ACTIONS(2941),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2854),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2944),
+    [aux_sym_block_construct_token1] = ACTIONS(2854),
+    [aux_sym_format_statement_token1] = ACTIONS(2854),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2854),
+    [aux_sym_enum_statement_token1] = ACTIONS(2947),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(2950),
+    [aux_sym_entry_statement_token1] = ACTIONS(2854),
+    [aux_sym_null_literal_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2854),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2854),
+    [aux_sym_identifier_token1] = ACTIONS(2854),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2953),
+  },
+  [1114] = {
+    [sym_preproc_include] = STATE(1156),
+    [sym_preproc_def] = STATE(1156),
+    [sym_preproc_function_def] = STATE(1156),
+    [sym_preproc_call] = STATE(1156),
+    [sym_interface] = STATE(1156),
+    [sym_interface_statement] = STATE(3848),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(7743),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(1156),
+    [sym_use_statement] = STATE(7072),
+    [sym_implicit_statement] = STATE(7072),
+    [sym_save_statement] = STATE(7072),
+    [sym_private_statement] = STATE(1156),
+    [sym_public_statement] = STATE(1156),
+    [sym_namelist_statement] = STATE(7072),
+    [sym_common_statement] = STATE(7072),
+    [sym_import_statement] = STATE(7072),
+    [sym_derived_type_definition] = STATE(1156),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4297),
+    [sym_variable_declaration] = STATE(7072),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7072),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7072),
+    [sym_equivalence_statement] = STATE(7072),
+    [sym_statement_label] = STATE(6603),
+    [sym_include_statement] = STATE(7072),
+    [sym_data_statement] = STATE(7072),
+    [sym_enum] = STATE(1156),
+    [sym_enum_statement] = STATE(6042),
+    [sym_enumeration_type] = STATE(1156),
+    [sym_enumeration_type_statement] = STATE(6204),
+    [sym_statement_function] = STATE(7072),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1156),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4994),
+    [aux_sym_preproc_def_token1] = ACTIONS(4996),
+    [aux_sym_preproc_if_token2] = ACTIONS(4998),
+    [sym_preproc_directive] = ACTIONS(5000),
+    [sym_preproc_comment] = ACTIONS(5002),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(5004),
+    [aux_sym_public_statement_token1] = ACTIONS(5006),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5447),
-    [sym__float_literal] = ACTIONS(5447),
-    [sym__boz_literal] = ACTIONS(5447),
-    [sym__string_literal] = ACTIONS(5447),
-    [sym__string_literal_kind] = ACTIONS(5447),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1455] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+  [1115] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5012),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1456] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1116] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5016),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1457] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
+  [1117] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5022),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1458] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+  [1118] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5026),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1459] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+  [1119] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5028),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1460] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+  [1120] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5030),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1461] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5477),
-    [aux_sym_preproc_def_token1] = ACTIONS(5477),
-    [aux_sym_preproc_if_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
-    [sym_preproc_directive] = ACTIONS(5477),
-    [anon_sym_LPAREN2] = ACTIONS(5477),
-    [anon_sym_PLUS] = ACTIONS(5479),
-    [anon_sym_DASH] = ACTIONS(5479),
+  [1121] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [aux_sym_preproc_else_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
-    [aux_sym_interface_statement_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
-    [aux_sym_language_binding_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5477),
-    [aux_sym_contains_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token2] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
-    [aux_sym_save_statement_token1] = ACTIONS(5477),
-    [aux_sym_private_statement_token1] = ACTIONS(5477),
-    [aux_sym_public_statement_token1] = ACTIONS(5477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
-    [aux_sym_common_statement_token1] = ACTIONS(5477),
-    [aux_sym_import_statement_token1] = ACTIONS(5477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
-    [aux_sym_derived_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
-    [anon_sym_SEMI] = ACTIONS(5479),
-    [aux_sym_stop_statement_token1] = ACTIONS(5477),
-    [aux_sym_stop_statement_token2] = ACTIONS(5477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
-    [aux_sym_include_statement_token1] = ACTIONS(5477),
-    [aux_sym_data_statement_token1] = ACTIONS(5477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
-    [aux_sym_block_construct_token1] = ACTIONS(5477),
-    [aux_sym_associate_statement_token1] = ACTIONS(5477),
-    [aux_sym_format_statement_token1] = ACTIONS(5477),
-    [aux_sym_print_statement_token1] = ACTIONS(5477),
-    [aux_sym_open_statement_token1] = ACTIONS(5477),
-    [aux_sym_close_statement_token1] = ACTIONS(5477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
-    [aux_sym_enum_statement_token1] = ACTIONS(5477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
-    [aux_sym_entry_statement_token1] = ACTIONS(5477),
-    [aux_sym_logical_expression_token5] = ACTIONS(5479),
-    [anon_sym_DOT] = ACTIONS(5477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
-    [anon_sym_LBRACK] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
-    [aux_sym_null_literal_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
-    [aux_sym_identifier_token1] = ACTIONS(5477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5479),
-    [sym__float_literal] = ACTIONS(5479),
-    [sym__boz_literal] = ACTIONS(5479),
-    [sym__string_literal] = ACTIONS(5479),
-    [sym__string_literal_kind] = ACTIONS(5479),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1462] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5461),
-    [aux_sym_preproc_def_token1] = ACTIONS(5461),
-    [aux_sym_preproc_if_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
-    [sym_preproc_directive] = ACTIONS(5461),
-    [anon_sym_LPAREN2] = ACTIONS(5461),
-    [anon_sym_PLUS] = ACTIONS(5463),
-    [anon_sym_DASH] = ACTIONS(5463),
+  [1122] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [aux_sym_preproc_else_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
-    [aux_sym_interface_statement_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
-    [aux_sym_language_binding_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5461),
-    [aux_sym_contains_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token2] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
-    [aux_sym_save_statement_token1] = ACTIONS(5461),
-    [aux_sym_private_statement_token1] = ACTIONS(5461),
-    [aux_sym_public_statement_token1] = ACTIONS(5461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
-    [aux_sym_common_statement_token1] = ACTIONS(5461),
-    [aux_sym_import_statement_token1] = ACTIONS(5461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
-    [aux_sym_derived_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
-    [anon_sym_SEMI] = ACTIONS(5463),
-    [aux_sym_stop_statement_token1] = ACTIONS(5461),
-    [aux_sym_stop_statement_token2] = ACTIONS(5461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
-    [aux_sym_include_statement_token1] = ACTIONS(5461),
-    [aux_sym_data_statement_token1] = ACTIONS(5461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
-    [aux_sym_block_construct_token1] = ACTIONS(5461),
-    [aux_sym_associate_statement_token1] = ACTIONS(5461),
-    [aux_sym_format_statement_token1] = ACTIONS(5461),
-    [aux_sym_print_statement_token1] = ACTIONS(5461),
-    [aux_sym_open_statement_token1] = ACTIONS(5461),
-    [aux_sym_close_statement_token1] = ACTIONS(5461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
-    [aux_sym_enum_statement_token1] = ACTIONS(5461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
-    [aux_sym_entry_statement_token1] = ACTIONS(5461),
-    [aux_sym_logical_expression_token5] = ACTIONS(5463),
-    [anon_sym_DOT] = ACTIONS(5461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
-    [anon_sym_LBRACK] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
-    [aux_sym_null_literal_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
-    [aux_sym_identifier_token1] = ACTIONS(5461),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5463),
-    [sym__float_literal] = ACTIONS(5463),
-    [sym__boz_literal] = ACTIONS(5463),
-    [sym__string_literal] = ACTIONS(5463),
-    [sym__string_literal_kind] = ACTIONS(5463),
-  },
-  [1463] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
-  },
-  [1464] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
-  },
-  [1465] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1466] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
+  [1123] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [aux_sym_preproc_else_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
   },
-  [1467] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
+  [1124] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token2] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [aux_sym_preproc_else_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_LPAREN2] = ACTIONS(4389),
+    [sym_preproc_comment] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [anon_sym_SEMI] = ACTIONS(4391),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4389),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4389),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_associate_statement_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_print_statement_token1] = ACTIONS(4389),
+    [aux_sym_open_statement_token1] = ACTIONS(4389),
+    [aux_sym_close_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4389),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_logical_expression_token5] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4391),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
+    [sym__float_literal] = ACTIONS(4391),
+    [sym__boz_literal] = ACTIONS(4391),
+    [sym__string_literal] = ACTIONS(4391),
+    [sym__string_literal_kind] = ACTIONS(4391),
   },
-  [1468] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1125] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [aux_sym_preproc_else_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
   },
-  [1469] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1126] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token2] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [aux_sym_preproc_else_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_LPAREN2] = ACTIONS(4321),
+    [sym_preproc_comment] = ACTIONS(4323),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [anon_sym_SEMI] = ACTIONS(4323),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4321),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4321),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_associate_statement_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_print_statement_token1] = ACTIONS(4321),
+    [aux_sym_open_statement_token1] = ACTIONS(4321),
+    [aux_sym_close_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4321),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_logical_expression_token5] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4323),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4323),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+    [sym__float_literal] = ACTIONS(4323),
+    [sym__boz_literal] = ACTIONS(4323),
+    [sym__string_literal] = ACTIONS(4323),
+    [sym__string_literal_kind] = ACTIONS(4323),
   },
-  [1470] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5433),
-    [aux_sym_preproc_def_token1] = ACTIONS(5433),
-    [aux_sym_preproc_if_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
-    [sym_preproc_directive] = ACTIONS(5433),
-    [anon_sym_LPAREN2] = ACTIONS(5433),
-    [anon_sym_PLUS] = ACTIONS(5435),
-    [anon_sym_DASH] = ACTIONS(5435),
+  [1127] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
-    [aux_sym_interface_statement_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
-    [aux_sym_language_binding_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
-    [aux_sym_contains_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token2] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
-    [aux_sym_save_statement_token1] = ACTIONS(5433),
-    [aux_sym_private_statement_token1] = ACTIONS(5433),
-    [aux_sym_public_statement_token1] = ACTIONS(5433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
-    [aux_sym_common_statement_token1] = ACTIONS(5433),
-    [aux_sym_import_statement_token1] = ACTIONS(5433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
-    [aux_sym_derived_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
-    [anon_sym_SEMI] = ACTIONS(5435),
-    [aux_sym_stop_statement_token1] = ACTIONS(5433),
-    [aux_sym_stop_statement_token2] = ACTIONS(5433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
-    [aux_sym_include_statement_token1] = ACTIONS(5433),
-    [aux_sym_data_statement_token1] = ACTIONS(5433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
-    [aux_sym_block_construct_token1] = ACTIONS(5433),
-    [aux_sym_associate_statement_token1] = ACTIONS(5433),
-    [aux_sym_format_statement_token1] = ACTIONS(5433),
-    [aux_sym_print_statement_token1] = ACTIONS(5433),
-    [aux_sym_open_statement_token1] = ACTIONS(5433),
-    [aux_sym_close_statement_token1] = ACTIONS(5433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
-    [aux_sym_enum_statement_token1] = ACTIONS(5433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
-    [aux_sym_entry_statement_token1] = ACTIONS(5433),
-    [aux_sym_logical_expression_token5] = ACTIONS(5435),
-    [anon_sym_DOT] = ACTIONS(5433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
-    [anon_sym_LBRACK] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
-    [aux_sym_null_literal_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
-    [aux_sym_identifier_token1] = ACTIONS(5433),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5435),
-    [sym__float_literal] = ACTIONS(5435),
-    [sym__boz_literal] = ACTIONS(5435),
-    [sym__string_literal] = ACTIONS(5435),
-    [sym__string_literal_kind] = ACTIONS(5435),
-  },
-  [1471] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
-  },
-  [1472] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1473] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
-  },
-  [1474] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1475] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
   },
-  [1476] = {
+  [1128] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4347),
     [aux_sym_preproc_def_token1] = ACTIONS(4347),
     [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token2] = ACTIONS(4347),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [aux_sym_preproc_else_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4347),
     [sym_preproc_directive] = ACTIONS(4347),
     [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+    [sym_preproc_comment] = ACTIONS(4349),
+    [anon_sym_PLUS] = ACTIONS(4349),
+    [anon_sym_DASH] = ACTIONS(4349),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
     [aux_sym_interface_statement_token1] = ACTIONS(4347),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
@@ -296723,7 +250911,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(4347),
     [aux_sym_type_qualifier_token2] = ACTIONS(4347),
     [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
+    [anon_sym_SEMI] = ACTIONS(4349),
     [aux_sym_stop_statement_token1] = ACTIONS(4347),
     [aux_sym_stop_statement_token2] = ACTIONS(4347),
     [aux_sym_subroutine_call_token1] = ACTIONS(4347),
@@ -296760,12 +250948,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4347),
     [aux_sym_allocate_statement_token1] = ACTIONS(4347),
     [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
+    [aux_sym_logical_expression_token5] = ACTIONS(4349),
     [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4349),
+    [anon_sym_LBRACK] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4349),
     [aux_sym_null_literal_token1] = ACTIONS(4347),
     [aux_sym_coarray_statement_token1] = ACTIONS(4347),
     [aux_sym_coarray_statement_token2] = ACTIONS(4347),
@@ -296778,679 +250966,3544 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
     [aux_sym_identifier_token1] = ACTIONS(4347),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [sym__integer_literal] = ACTIONS(4349),
+    [sym__float_literal] = ACTIONS(4349),
+    [sym__boz_literal] = ACTIONS(4349),
+    [sym__string_literal] = ACTIONS(4349),
+    [sym__string_literal_kind] = ACTIONS(4349),
+  },
+  [1129] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
+  },
+  [1130] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1131] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [aux_sym_preproc_else_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
+  },
+  [1132] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [aux_sym_preproc_else_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
+  },
+  [1133] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5060),
+    [aux_sym_preproc_def_token1] = ACTIONS(5060),
+    [aux_sym_preproc_if_token1] = ACTIONS(5060),
+    [aux_sym_preproc_if_token2] = ACTIONS(5063),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5060),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5060),
+    [aux_sym_preproc_else_token1] = ACTIONS(5063),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5063),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5063),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5063),
+    [sym_preproc_directive] = ACTIONS(5060),
+    [anon_sym_LPAREN2] = ACTIONS(5060),
+    [anon_sym_PLUS] = ACTIONS(5065),
+    [anon_sym_DASH] = ACTIONS(5065),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5060),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5068),
+    [aux_sym_interface_statement_token1] = ACTIONS(5060),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5060),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5060),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5060),
+    [aux_sym_language_binding_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5060),
+    [aux_sym_contains_statement_token1] = ACTIONS(5060),
+    [aux_sym_use_statement_token1] = ACTIONS(5060),
+    [aux_sym_use_statement_token2] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5060),
+    [aux_sym_save_statement_token1] = ACTIONS(5060),
+    [aux_sym_private_statement_token1] = ACTIONS(5060),
+    [aux_sym_public_statement_token1] = ACTIONS(5060),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5060),
+    [aux_sym_common_statement_token1] = ACTIONS(5060),
+    [aux_sym_import_statement_token1] = ACTIONS(5060),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5060),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5060),
+    [aux_sym_derived_type_token1] = ACTIONS(5060),
+    [aux_sym_declared_type_token1] = ACTIONS(5060),
+    [aux_sym_declared_type_token2] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5060),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5060),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5060),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5060),
+    [anon_sym_SEMI] = ACTIONS(5065),
+    [aux_sym_stop_statement_token1] = ACTIONS(5060),
+    [aux_sym_stop_statement_token2] = ACTIONS(5060),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5060),
+    [aux_sym_include_statement_token1] = ACTIONS(5060),
+    [aux_sym_data_statement_token1] = ACTIONS(5060),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5060),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5060),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5060),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5060),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5060),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5060),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5060),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5060),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5060),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5060),
+    [aux_sym_block_construct_token1] = ACTIONS(5060),
+    [aux_sym_associate_statement_token1] = ACTIONS(5060),
+    [aux_sym_format_statement_token1] = ACTIONS(5060),
+    [aux_sym_print_statement_token1] = ACTIONS(5060),
+    [aux_sym_open_statement_token1] = ACTIONS(5060),
+    [aux_sym_close_statement_token1] = ACTIONS(5060),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5060),
+    [aux_sym_enum_statement_token1] = ACTIONS(5060),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5060),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5060),
+    [aux_sym_entry_statement_token1] = ACTIONS(5060),
+    [aux_sym_logical_expression_token5] = ACTIONS(5065),
+    [anon_sym_DOT] = ACTIONS(5060),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5065),
+    [anon_sym_LBRACK] = ACTIONS(5065),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5065),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5065),
+    [aux_sym_null_literal_token1] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5060),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5060),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5060),
+    [aux_sym_identifier_token1] = ACTIONS(5060),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5065),
+    [sym__float_literal] = ACTIONS(5065),
+    [sym__boz_literal] = ACTIONS(5065),
+    [sym__string_literal] = ACTIONS(5065),
+    [sym__string_literal_kind] = ACTIONS(5065),
+  },
+  [1134] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [aux_sym_preproc_else_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
+  },
+  [1135] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [aux_sym_preproc_else_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
+  },
+  [1136] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [aux_sym_preproc_else_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
+  },
+  [1137] = {
+    [sym_preproc_include] = STATE(1191),
+    [sym_preproc_def] = STATE(1191),
+    [sym_preproc_function_def] = STATE(1191),
+    [sym_preproc_call] = STATE(1191),
+    [sym_interface] = STATE(1191),
+    [sym_interface_statement] = STATE(3848),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8374),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(1191),
+    [sym_use_statement] = STATE(7072),
+    [sym_implicit_statement] = STATE(7072),
+    [sym_save_statement] = STATE(7072),
+    [sym_private_statement] = STATE(1191),
+    [sym_public_statement] = STATE(1191),
+    [sym_namelist_statement] = STATE(7072),
+    [sym_common_statement] = STATE(7072),
+    [sym_import_statement] = STATE(7072),
+    [sym_derived_type_definition] = STATE(1191),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4297),
+    [sym_variable_declaration] = STATE(7072),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7072),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7072),
+    [sym_equivalence_statement] = STATE(7072),
+    [sym_statement_label] = STATE(6603),
+    [sym_include_statement] = STATE(7072),
+    [sym_data_statement] = STATE(7072),
+    [sym_enum] = STATE(1191),
+    [sym_enum_statement] = STATE(6042),
+    [sym_enumeration_type] = STATE(1191),
+    [sym_enumeration_type_statement] = STATE(6204),
+    [sym_statement_function] = STATE(7072),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4994),
+    [aux_sym_preproc_def_token1] = ACTIONS(4996),
+    [aux_sym_preproc_if_token2] = ACTIONS(5082),
+    [sym_preproc_directive] = ACTIONS(5000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(5004),
+    [aux_sym_public_statement_token1] = ACTIONS(5006),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4671),
+  },
+  [1138] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [aux_sym_preproc_else_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
+  },
+  [1139] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [aux_sym_preproc_else_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1140] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [aux_sym_preproc_else_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
+  },
+  [1141] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [aux_sym_preproc_else_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
+  },
+  [1142] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [aux_sym_preproc_else_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
+  },
+  [1143] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [aux_sym_preproc_else_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
+  },
+  [1144] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1145] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1146] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [aux_sym_preproc_else_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
+  },
+  [1147] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [aux_sym_preproc_else_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
+  },
+  [1148] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [aux_sym_preproc_else_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1477] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5481),
-    [aux_sym_preproc_def_token1] = ACTIONS(5481),
-    [aux_sym_preproc_if_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
-    [sym_preproc_directive] = ACTIONS(5481),
-    [anon_sym_LPAREN2] = ACTIONS(5481),
-    [anon_sym_PLUS] = ACTIONS(5483),
-    [anon_sym_DASH] = ACTIONS(5483),
+  [1149] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [aux_sym_preproc_else_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5481),
-    [aux_sym_interface_statement_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
-    [aux_sym_language_binding_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
-    [aux_sym_contains_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token2] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
-    [aux_sym_save_statement_token1] = ACTIONS(5481),
-    [aux_sym_private_statement_token1] = ACTIONS(5481),
-    [aux_sym_public_statement_token1] = ACTIONS(5481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
-    [aux_sym_common_statement_token1] = ACTIONS(5481),
-    [aux_sym_import_statement_token1] = ACTIONS(5481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
-    [aux_sym_derived_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
-    [anon_sym_SEMI] = ACTIONS(5483),
-    [aux_sym_stop_statement_token1] = ACTIONS(5481),
-    [aux_sym_stop_statement_token2] = ACTIONS(5481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
-    [aux_sym_include_statement_token1] = ACTIONS(5481),
-    [aux_sym_data_statement_token1] = ACTIONS(5481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
-    [aux_sym_block_construct_token1] = ACTIONS(5481),
-    [aux_sym_associate_statement_token1] = ACTIONS(5481),
-    [aux_sym_format_statement_token1] = ACTIONS(5481),
-    [aux_sym_print_statement_token1] = ACTIONS(5481),
-    [aux_sym_open_statement_token1] = ACTIONS(5481),
-    [aux_sym_close_statement_token1] = ACTIONS(5481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
-    [aux_sym_enum_statement_token1] = ACTIONS(5481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
-    [aux_sym_entry_statement_token1] = ACTIONS(5481),
-    [aux_sym_logical_expression_token5] = ACTIONS(5483),
-    [anon_sym_DOT] = ACTIONS(5481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
-    [anon_sym_LBRACK] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
-    [aux_sym_null_literal_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
-    [aux_sym_identifier_token1] = ACTIONS(5481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5483),
-    [sym__float_literal] = ACTIONS(5483),
-    [sym__boz_literal] = ACTIONS(5483),
-    [sym__string_literal] = ACTIONS(5483),
-    [sym__string_literal_kind] = ACTIONS(5483),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1478] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
+  [1150] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token2] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [aux_sym_preproc_else_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1479] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5477),
-    [aux_sym_preproc_def_token1] = ACTIONS(5477),
-    [aux_sym_preproc_if_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
-    [sym_preproc_directive] = ACTIONS(5477),
-    [anon_sym_LPAREN2] = ACTIONS(5477),
-    [anon_sym_PLUS] = ACTIONS(5479),
-    [anon_sym_DASH] = ACTIONS(5479),
+  [1151] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [aux_sym_preproc_else_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
-    [aux_sym_interface_statement_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
-    [aux_sym_language_binding_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
-    [aux_sym_contains_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token2] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
-    [aux_sym_save_statement_token1] = ACTIONS(5477),
-    [aux_sym_private_statement_token1] = ACTIONS(5477),
-    [aux_sym_public_statement_token1] = ACTIONS(5477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
-    [aux_sym_common_statement_token1] = ACTIONS(5477),
-    [aux_sym_import_statement_token1] = ACTIONS(5477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
-    [aux_sym_derived_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
-    [anon_sym_SEMI] = ACTIONS(5479),
-    [aux_sym_stop_statement_token1] = ACTIONS(5477),
-    [aux_sym_stop_statement_token2] = ACTIONS(5477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
-    [aux_sym_include_statement_token1] = ACTIONS(5477),
-    [aux_sym_data_statement_token1] = ACTIONS(5477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
-    [aux_sym_block_construct_token1] = ACTIONS(5477),
-    [aux_sym_associate_statement_token1] = ACTIONS(5477),
-    [aux_sym_format_statement_token1] = ACTIONS(5477),
-    [aux_sym_print_statement_token1] = ACTIONS(5477),
-    [aux_sym_open_statement_token1] = ACTIONS(5477),
-    [aux_sym_close_statement_token1] = ACTIONS(5477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
-    [aux_sym_enum_statement_token1] = ACTIONS(5477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
-    [aux_sym_entry_statement_token1] = ACTIONS(5477),
-    [aux_sym_logical_expression_token5] = ACTIONS(5479),
-    [anon_sym_DOT] = ACTIONS(5477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
-    [anon_sym_LBRACK] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
-    [aux_sym_null_literal_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
-    [aux_sym_identifier_token1] = ACTIONS(5477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5479),
-    [sym__float_literal] = ACTIONS(5479),
-    [sym__boz_literal] = ACTIONS(5479),
-    [sym__string_literal] = ACTIONS(5479),
-    [sym__string_literal_kind] = ACTIONS(5479),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1480] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1152] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token2] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [aux_sym_preproc_else_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
+  },
+  [1153] = {
+    [sym_preproc_include] = STATE(1137),
+    [sym_preproc_def] = STATE(1137),
+    [sym_preproc_function_def] = STATE(1137),
+    [sym_preproc_call] = STATE(1137),
+    [sym_interface] = STATE(1137),
+    [sym_interface_statement] = STATE(3848),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8213),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(1137),
+    [sym_use_statement] = STATE(7072),
+    [sym_implicit_statement] = STATE(7072),
+    [sym_save_statement] = STATE(7072),
+    [sym_private_statement] = STATE(1137),
+    [sym_public_statement] = STATE(1137),
+    [sym_namelist_statement] = STATE(7072),
+    [sym_common_statement] = STATE(7072),
+    [sym_import_statement] = STATE(7072),
+    [sym_derived_type_definition] = STATE(1137),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4297),
+    [sym_variable_declaration] = STATE(7072),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7072),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7072),
+    [sym_equivalence_statement] = STATE(7072),
+    [sym_statement_label] = STATE(6603),
+    [sym_include_statement] = STATE(7072),
+    [sym_data_statement] = STATE(7072),
+    [sym_enum] = STATE(1137),
+    [sym_enum_statement] = STATE(6042),
+    [sym_enumeration_type] = STATE(1137),
+    [sym_enumeration_type_statement] = STATE(6204),
+    [sym_statement_function] = STATE(7072),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1137),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4994),
+    [aux_sym_preproc_def_token1] = ACTIONS(4996),
+    [aux_sym_preproc_if_token2] = ACTIONS(5136),
+    [sym_preproc_directive] = ACTIONS(5000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(5004),
+    [aux_sym_public_statement_token1] = ACTIONS(5006),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(4671),
   },
-  [1481] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
+  [1154] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1482] = {
+  [1155] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5138),
     [aux_sym_preproc_def_token1] = ACTIONS(5138),
     [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [aux_sym_preproc_else_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
     [sym_preproc_directive] = ACTIONS(5138),
     [anon_sym_LPAREN2] = ACTIONS(5138),
     [anon_sym_PLUS] = ACTIONS(5140),
     [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
     [aux_sym_interface_statement_token1] = ACTIONS(5138),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5138),
     [aux_sym_language_binding_token1] = ACTIONS(5138),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
@@ -297558,4306 +254611,7074 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
     [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
+  },
+  [1156] = {
+    [sym_preproc_include] = STATE(1191),
+    [sym_preproc_def] = STATE(1191),
+    [sym_preproc_function_def] = STATE(1191),
+    [sym_preproc_call] = STATE(1191),
+    [sym_interface] = STATE(1191),
+    [sym_interface_statement] = STATE(3848),
+    [sym_language_binding] = STATE(3221),
+    [sym_internal_procedures] = STATE(8213),
+    [sym_contains_statement] = STATE(6726),
+    [sym__specification_part] = STATE(1191),
+    [sym_use_statement] = STATE(7072),
+    [sym_implicit_statement] = STATE(7072),
+    [sym_save_statement] = STATE(7072),
+    [sym_private_statement] = STATE(1191),
+    [sym_public_statement] = STATE(1191),
+    [sym_namelist_statement] = STATE(7072),
+    [sym_common_statement] = STATE(7072),
+    [sym_import_statement] = STATE(7072),
+    [sym_derived_type_definition] = STATE(1191),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4297),
+    [sym_variable_declaration] = STATE(7072),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7072),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7072),
+    [sym_equivalence_statement] = STATE(7072),
+    [sym_statement_label] = STATE(6603),
+    [sym_include_statement] = STATE(7072),
+    [sym_data_statement] = STATE(7072),
+    [sym_enum] = STATE(1191),
+    [sym_enum_statement] = STATE(6042),
+    [sym_enumeration_type] = STATE(1191),
+    [sym_enumeration_type_statement] = STATE(6204),
+    [sym_statement_function] = STATE(7072),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(4994),
+    [aux_sym_preproc_def_token1] = ACTIONS(4996),
+    [aux_sym_preproc_if_token2] = ACTIONS(5136),
+    [sym_preproc_directive] = ACTIONS(5000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_interface_statement_token1] = ACTIONS(33),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(41),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(49),
+    [aux_sym_contains_statement_token1] = ACTIONS(51),
+    [aux_sym_use_statement_token1] = ACTIONS(53),
+    [aux_sym_use_statement_token2] = ACTIONS(49),
+    [aux_sym_implicit_statement_token1] = ACTIONS(55),
+    [aux_sym_implicit_statement_token3] = ACTIONS(772),
+    [aux_sym_implicit_statement_token4] = ACTIONS(49),
+    [aux_sym_save_statement_token1] = ACTIONS(59),
+    [aux_sym_private_statement_token1] = ACTIONS(5004),
+    [aux_sym_public_statement_token1] = ACTIONS(5006),
+    [aux_sym_namelist_statement_token1] = ACTIONS(65),
+    [aux_sym_common_statement_token1] = ACTIONS(67),
+    [aux_sym_import_statement_token1] = ACTIONS(69),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(49),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(71),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(49),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(49),
+    [aux_sym_variable_attributes_token3] = ACTIONS(49),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(49),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4665),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(784),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(780),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(780),
+    [aux_sym_derived_type_token1] = ACTIONS(786),
+    [aux_sym_declared_type_token1] = ACTIONS(85),
+    [aux_sym_declared_type_token2] = ACTIONS(85),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(89),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(93),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(95),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(49),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(101),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_include_statement_token1] = ACTIONS(119),
+    [aux_sym_data_statement_token1] = ACTIONS(4667),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_enum_statement_token1] = ACTIONS(153),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(155),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4671),
+  },
+  [1157] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [aux_sym_preproc_else_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
+  },
+  [1158] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [aux_sym_preproc_else_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
+  },
+  [1159] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [aux_sym_preproc_else_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
+  },
+  [1160] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [1161] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [aux_sym_preproc_else_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
+  },
+  [1162] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token2] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [aux_sym_preproc_else_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
+  },
+  [1163] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token2] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [aux_sym_preproc_else_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
+  },
+  [1164] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [aux_sym_preproc_else_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1483] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
+  [1165] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1166] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1167] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token2] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [aux_sym_preproc_else_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1484] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
+  [1168] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1169] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token2] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [aux_sym_preproc_else_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1485] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1486] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
+  [1170] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [aux_sym_preproc_else_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1487] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
+  [1171] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token2] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [aux_sym_preproc_else_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1488] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1172] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [aux_sym_preproc_else_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1489] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1173] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [1490] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+  [1174] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1175] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [aux_sym_preproc_else_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1491] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1176] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [aux_sym_preproc_else_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
   },
-  [1492] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+  [1177] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [aux_sym_preproc_else_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
   },
-  [1493] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1178] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [aux_sym_preproc_else_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
   },
-  [1494] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+  [1179] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [aux_sym_preproc_else_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1495] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5481),
-    [aux_sym_preproc_def_token1] = ACTIONS(5481),
-    [aux_sym_preproc_if_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
-    [sym_preproc_directive] = ACTIONS(5481),
-    [anon_sym_LPAREN2] = ACTIONS(5481),
-    [anon_sym_PLUS] = ACTIONS(5483),
-    [anon_sym_DASH] = ACTIONS(5483),
+  [1180] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [aux_sym_preproc_else_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1181] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token2] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [aux_sym_preproc_else_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
-    [aux_sym_interface_statement_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
-    [aux_sym_language_binding_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
-    [aux_sym_contains_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token2] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
-    [aux_sym_save_statement_token1] = ACTIONS(5481),
-    [aux_sym_private_statement_token1] = ACTIONS(5481),
-    [aux_sym_public_statement_token1] = ACTIONS(5481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
-    [aux_sym_common_statement_token1] = ACTIONS(5481),
-    [aux_sym_import_statement_token1] = ACTIONS(5481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
-    [aux_sym_derived_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
-    [anon_sym_SEMI] = ACTIONS(5483),
-    [aux_sym_stop_statement_token1] = ACTIONS(5481),
-    [aux_sym_stop_statement_token2] = ACTIONS(5481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
-    [aux_sym_include_statement_token1] = ACTIONS(5481),
-    [aux_sym_data_statement_token1] = ACTIONS(5481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
-    [aux_sym_block_construct_token1] = ACTIONS(5481),
-    [aux_sym_associate_statement_token1] = ACTIONS(5481),
-    [aux_sym_format_statement_token1] = ACTIONS(5481),
-    [aux_sym_print_statement_token1] = ACTIONS(5481),
-    [aux_sym_open_statement_token1] = ACTIONS(5481),
-    [aux_sym_close_statement_token1] = ACTIONS(5481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
-    [aux_sym_enum_statement_token1] = ACTIONS(5481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
-    [aux_sym_entry_statement_token1] = ACTIONS(5481),
-    [aux_sym_logical_expression_token5] = ACTIONS(5483),
-    [anon_sym_DOT] = ACTIONS(5481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
-    [anon_sym_LBRACK] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
-    [aux_sym_null_literal_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
-    [aux_sym_identifier_token1] = ACTIONS(5481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5483),
-    [sym__float_literal] = ACTIONS(5483),
-    [sym__boz_literal] = ACTIONS(5483),
-    [sym__string_literal] = ACTIONS(5483),
-    [sym__string_literal_kind] = ACTIONS(5483),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1496] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
+  [1182] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [aux_sym_preproc_else_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
     [anon_sym_PLUS] = ACTIONS(5102),
     [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
     [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
     [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5100),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
     [anon_sym_LBRACK] = ACTIONS(5102),
     [aux_sym_boolean_literal_token1] = ACTIONS(5102),
     [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5102),
     [sym__float_literal] = ACTIONS(5102),
     [sym__boz_literal] = ACTIONS(5102),
     [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1497] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
-  },
-  [1498] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5441),
-    [aux_sym_preproc_def_token1] = ACTIONS(5441),
-    [aux_sym_preproc_if_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
-    [sym_preproc_directive] = ACTIONS(5441),
-    [anon_sym_LPAREN2] = ACTIONS(5441),
-    [anon_sym_PLUS] = ACTIONS(5443),
-    [anon_sym_DASH] = ACTIONS(5443),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5441),
-    [aux_sym_interface_statement_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
-    [aux_sym_language_binding_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
-    [aux_sym_contains_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token2] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
-    [aux_sym_save_statement_token1] = ACTIONS(5441),
-    [aux_sym_private_statement_token1] = ACTIONS(5441),
-    [aux_sym_public_statement_token1] = ACTIONS(5441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
-    [aux_sym_common_statement_token1] = ACTIONS(5441),
-    [aux_sym_import_statement_token1] = ACTIONS(5441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
-    [aux_sym_derived_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
-    [anon_sym_SEMI] = ACTIONS(5443),
-    [aux_sym_stop_statement_token1] = ACTIONS(5441),
-    [aux_sym_stop_statement_token2] = ACTIONS(5441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5441),
-    [aux_sym_include_statement_token1] = ACTIONS(5441),
-    [aux_sym_data_statement_token1] = ACTIONS(5441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5441),
-    [aux_sym_block_construct_token1] = ACTIONS(5441),
-    [aux_sym_associate_statement_token1] = ACTIONS(5441),
-    [aux_sym_format_statement_token1] = ACTIONS(5441),
-    [aux_sym_print_statement_token1] = ACTIONS(5441),
-    [aux_sym_open_statement_token1] = ACTIONS(5441),
-    [aux_sym_close_statement_token1] = ACTIONS(5441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
-    [aux_sym_enum_statement_token1] = ACTIONS(5441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5441),
-    [aux_sym_entry_statement_token1] = ACTIONS(5441),
-    [aux_sym_logical_expression_token5] = ACTIONS(5443),
-    [anon_sym_DOT] = ACTIONS(5441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5443),
-    [anon_sym_LBRACK] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5443),
-    [aux_sym_null_literal_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
-    [aux_sym_identifier_token1] = ACTIONS(5441),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5443),
-    [sym__float_literal] = ACTIONS(5443),
-    [sym__boz_literal] = ACTIONS(5443),
-    [sym__string_literal] = ACTIONS(5443),
-    [sym__string_literal_kind] = ACTIONS(5443),
-  },
-  [1499] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1500] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5445),
-    [aux_sym_preproc_def_token1] = ACTIONS(5445),
-    [aux_sym_preproc_if_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
-    [sym_preproc_directive] = ACTIONS(5445),
-    [anon_sym_LPAREN2] = ACTIONS(5445),
-    [anon_sym_PLUS] = ACTIONS(5447),
-    [anon_sym_DASH] = ACTIONS(5447),
+    [sym__string_literal_kind] = ACTIONS(5102),
+  },
+  [1183] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [aux_sym_preproc_else_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
+  },
+  [1184] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [aux_sym_preproc_else_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5445),
-    [aux_sym_interface_statement_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
-    [aux_sym_language_binding_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
-    [aux_sym_contains_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token2] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
-    [aux_sym_save_statement_token1] = ACTIONS(5445),
-    [aux_sym_private_statement_token1] = ACTIONS(5445),
-    [aux_sym_public_statement_token1] = ACTIONS(5445),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
-    [aux_sym_common_statement_token1] = ACTIONS(5445),
-    [aux_sym_import_statement_token1] = ACTIONS(5445),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
-    [aux_sym_derived_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
-    [anon_sym_SEMI] = ACTIONS(5447),
-    [aux_sym_stop_statement_token1] = ACTIONS(5445),
-    [aux_sym_stop_statement_token2] = ACTIONS(5445),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
-    [aux_sym_include_statement_token1] = ACTIONS(5445),
-    [aux_sym_data_statement_token1] = ACTIONS(5445),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
-    [aux_sym_block_construct_token1] = ACTIONS(5445),
-    [aux_sym_associate_statement_token1] = ACTIONS(5445),
-    [aux_sym_format_statement_token1] = ACTIONS(5445),
-    [aux_sym_print_statement_token1] = ACTIONS(5445),
-    [aux_sym_open_statement_token1] = ACTIONS(5445),
-    [aux_sym_close_statement_token1] = ACTIONS(5445),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
-    [aux_sym_enum_statement_token1] = ACTIONS(5445),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
-    [aux_sym_entry_statement_token1] = ACTIONS(5445),
-    [aux_sym_logical_expression_token5] = ACTIONS(5447),
-    [anon_sym_DOT] = ACTIONS(5445),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
-    [anon_sym_LBRACK] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
-    [aux_sym_null_literal_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
-    [aux_sym_identifier_token1] = ACTIONS(5445),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5447),
-    [sym__float_literal] = ACTIONS(5447),
-    [sym__boz_literal] = ACTIONS(5447),
-    [sym__string_literal] = ACTIONS(5447),
-    [sym__string_literal_kind] = ACTIONS(5447),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1501] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5441),
-    [aux_sym_preproc_def_token1] = ACTIONS(5441),
-    [aux_sym_preproc_if_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
-    [sym_preproc_directive] = ACTIONS(5441),
-    [anon_sym_LPAREN2] = ACTIONS(5441),
-    [anon_sym_PLUS] = ACTIONS(5443),
-    [anon_sym_DASH] = ACTIONS(5443),
+  [1185] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [aux_sym_preproc_else_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
-    [aux_sym_interface_statement_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
-    [aux_sym_language_binding_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
-    [aux_sym_contains_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token2] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
-    [aux_sym_save_statement_token1] = ACTIONS(5441),
-    [aux_sym_private_statement_token1] = ACTIONS(5441),
-    [aux_sym_public_statement_token1] = ACTIONS(5441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
-    [aux_sym_common_statement_token1] = ACTIONS(5441),
-    [aux_sym_import_statement_token1] = ACTIONS(5441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
-    [aux_sym_derived_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
-    [anon_sym_SEMI] = ACTIONS(5443),
-    [aux_sym_stop_statement_token1] = ACTIONS(5441),
-    [aux_sym_stop_statement_token2] = ACTIONS(5441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5441),
-    [aux_sym_include_statement_token1] = ACTIONS(5441),
-    [aux_sym_data_statement_token1] = ACTIONS(5441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5441),
-    [aux_sym_block_construct_token1] = ACTIONS(5441),
-    [aux_sym_associate_statement_token1] = ACTIONS(5441),
-    [aux_sym_format_statement_token1] = ACTIONS(5441),
-    [aux_sym_print_statement_token1] = ACTIONS(5441),
-    [aux_sym_open_statement_token1] = ACTIONS(5441),
-    [aux_sym_close_statement_token1] = ACTIONS(5441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
-    [aux_sym_enum_statement_token1] = ACTIONS(5441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5441),
-    [aux_sym_entry_statement_token1] = ACTIONS(5441),
-    [aux_sym_logical_expression_token5] = ACTIONS(5443),
-    [anon_sym_DOT] = ACTIONS(5441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5443),
-    [anon_sym_LBRACK] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5443),
-    [aux_sym_null_literal_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
-    [aux_sym_identifier_token1] = ACTIONS(5441),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5443),
-    [sym__float_literal] = ACTIONS(5443),
-    [sym__boz_literal] = ACTIONS(5443),
-    [sym__string_literal] = ACTIONS(5443),
-    [sym__string_literal_kind] = ACTIONS(5443),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1502] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5445),
-    [aux_sym_preproc_def_token1] = ACTIONS(5445),
-    [aux_sym_preproc_if_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
-    [sym_preproc_directive] = ACTIONS(5445),
-    [anon_sym_LPAREN2] = ACTIONS(5445),
-    [anon_sym_PLUS] = ACTIONS(5447),
-    [anon_sym_DASH] = ACTIONS(5447),
+  [1186] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [aux_sym_preproc_else_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
+  },
+  [1187] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [aux_sym_preproc_else_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
+  },
+  [1188] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token2] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [aux_sym_preproc_else_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
-    [aux_sym_interface_statement_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5445),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
-    [aux_sym_language_binding_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
-    [aux_sym_contains_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token1] = ACTIONS(5445),
-    [aux_sym_use_statement_token2] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
-    [aux_sym_save_statement_token1] = ACTIONS(5445),
-    [aux_sym_private_statement_token1] = ACTIONS(5445),
-    [aux_sym_public_statement_token1] = ACTIONS(5445),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
-    [aux_sym_common_statement_token1] = ACTIONS(5445),
-    [aux_sym_import_statement_token1] = ACTIONS(5445),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
-    [aux_sym_derived_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token1] = ACTIONS(5445),
-    [aux_sym_declared_type_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
-    [anon_sym_SEMI] = ACTIONS(5447),
-    [aux_sym_stop_statement_token1] = ACTIONS(5445),
-    [aux_sym_stop_statement_token2] = ACTIONS(5445),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
-    [aux_sym_include_statement_token1] = ACTIONS(5445),
-    [aux_sym_data_statement_token1] = ACTIONS(5445),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
-    [aux_sym_block_construct_token1] = ACTIONS(5445),
-    [aux_sym_associate_statement_token1] = ACTIONS(5445),
-    [aux_sym_format_statement_token1] = ACTIONS(5445),
-    [aux_sym_print_statement_token1] = ACTIONS(5445),
-    [aux_sym_open_statement_token1] = ACTIONS(5445),
-    [aux_sym_close_statement_token1] = ACTIONS(5445),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
-    [aux_sym_enum_statement_token1] = ACTIONS(5445),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
-    [aux_sym_entry_statement_token1] = ACTIONS(5445),
-    [aux_sym_logical_expression_token5] = ACTIONS(5447),
-    [anon_sym_DOT] = ACTIONS(5445),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
-    [anon_sym_LBRACK] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
-    [aux_sym_null_literal_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
-    [aux_sym_identifier_token1] = ACTIONS(5445),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5447),
-    [sym__float_literal] = ACTIONS(5447),
-    [sym__boz_literal] = ACTIONS(5447),
-    [sym__string_literal] = ACTIONS(5447),
-    [sym__string_literal_kind] = ACTIONS(5447),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1503] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
+  [1189] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [aux_sym_preproc_else_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
   },
-  [1504] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
+  [1190] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [aux_sym_preproc_else_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
   },
-  [1505] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1191] = {
+    [sym_preproc_include] = STATE(1191),
+    [sym_preproc_def] = STATE(1191),
+    [sym_preproc_function_def] = STATE(1191),
+    [sym_preproc_call] = STATE(1191),
+    [sym_interface] = STATE(1191),
+    [sym_interface_statement] = STATE(3848),
+    [sym_language_binding] = STATE(3221),
+    [sym__specification_part] = STATE(1191),
+    [sym_use_statement] = STATE(7072),
+    [sym_implicit_statement] = STATE(7072),
+    [sym_save_statement] = STATE(7072),
+    [sym_private_statement] = STATE(1191),
+    [sym_public_statement] = STATE(1191),
+    [sym_namelist_statement] = STATE(7072),
+    [sym_common_statement] = STATE(7072),
+    [sym_import_statement] = STATE(7072),
+    [sym_derived_type_definition] = STATE(1191),
+    [sym_abstract_specifier] = STATE(7723),
+    [sym_derived_type_statement] = STATE(4297),
+    [sym_variable_declaration] = STATE(7072),
+    [sym_procedure_declaration] = STATE(3444),
+    [sym_variable_modification] = STATE(7072),
+    [sym_variable_attributes] = STATE(3221),
+    [sym__intrinsic_type] = STATE(3589),
+    [sym_intrinsic_type] = STATE(3444),
+    [sym_derived_type] = STATE(3444),
+    [sym_declared_type] = STATE(3444),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_parameter_statement] = STATE(7072),
+    [sym_equivalence_statement] = STATE(7072),
+    [sym_statement_label] = STATE(6603),
+    [sym_include_statement] = STATE(7072),
+    [sym_data_statement] = STATE(7072),
+    [sym_enum] = STATE(1191),
+    [sym_enum_statement] = STATE(6042),
+    [sym_enumeration_type] = STATE(1191),
+    [sym_enumeration_type_statement] = STATE(6204),
+    [sym_statement_function] = STATE(7072),
+    [sym_identifier] = STATE(7512),
+    [aux_sym_preproc_if_in_module_repeat1] = STATE(1191),
+    [aux_sym_variable_modification_repeat1] = STATE(3221),
+    [aux_sym_preproc_include_token1] = ACTIONS(5142),
+    [aux_sym_preproc_def_token1] = ACTIONS(5145),
+    [aux_sym_preproc_if_token2] = ACTIONS(2841),
+    [sym_preproc_directive] = ACTIONS(5148),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2848),
+    [aux_sym_interface_statement_token1] = ACTIONS(2851),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2854),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2854),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(2857),
+    [aux_sym_language_binding_token1] = ACTIONS(2860),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(2863),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2866),
+    [aux_sym_contains_statement_token1] = ACTIONS(2841),
+    [aux_sym_use_statement_token1] = ACTIONS(2869),
+    [aux_sym_use_statement_token2] = ACTIONS(2866),
+    [aux_sym_implicit_statement_token1] = ACTIONS(2872),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2875),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2866),
+    [aux_sym_save_statement_token1] = ACTIONS(2878),
+    [aux_sym_private_statement_token1] = ACTIONS(5151),
+    [aux_sym_public_statement_token1] = ACTIONS(5154),
+    [aux_sym_namelist_statement_token1] = ACTIONS(2887),
+    [aux_sym_common_statement_token1] = ACTIONS(2890),
+    [aux_sym_import_statement_token1] = ACTIONS(2893),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2866),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(2896),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token1] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2866),
+    [aux_sym_variable_attributes_token4] = ACTIONS(2899),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2866),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2902),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2908),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(2911),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(2905),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(2905),
+    [aux_sym_derived_type_token1] = ACTIONS(2914),
+    [aux_sym_declared_type_token1] = ACTIONS(2917),
+    [aux_sym_declared_type_token2] = ACTIONS(2917),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(2920),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2923),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(2926),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2929),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(2899),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2932),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2866),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(2899),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2854),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2854),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(2935),
+    [aux_sym_stop_statement_token1] = ACTIONS(2854),
+    [aux_sym_stop_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2854),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2854),
+    [aux_sym_include_statement_token1] = ACTIONS(2938),
+    [aux_sym_data_statement_token1] = ACTIONS(2941),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2854),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2854),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2944),
+    [aux_sym_block_construct_token1] = ACTIONS(2854),
+    [aux_sym_format_statement_token1] = ACTIONS(2854),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2854),
+    [aux_sym_enum_statement_token1] = ACTIONS(2947),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(2950),
+    [aux_sym_entry_statement_token1] = ACTIONS(2854),
+    [aux_sym_null_literal_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2854),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2854),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2854),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2854),
+    [aux_sym_identifier_token1] = ACTIONS(2854),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(2953),
+  },
+  [1192] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5157),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
-  },
-  [1506] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1507] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
+  [1193] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5159),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1508] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1194] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5161),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1509] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+  [1195] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5163),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1510] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5449),
-    [aux_sym_preproc_def_token1] = ACTIONS(5449),
-    [aux_sym_preproc_if_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5449),
-    [sym_preproc_directive] = ACTIONS(5449),
-    [anon_sym_LPAREN2] = ACTIONS(5449),
-    [anon_sym_PLUS] = ACTIONS(5451),
-    [anon_sym_DASH] = ACTIONS(5451),
+  [1196] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5165),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5449),
-    [aux_sym_interface_statement_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5449),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5449),
-    [aux_sym_language_binding_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5449),
-    [aux_sym_contains_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token2] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5449),
-    [aux_sym_save_statement_token1] = ACTIONS(5449),
-    [aux_sym_private_statement_token1] = ACTIONS(5449),
-    [aux_sym_public_statement_token1] = ACTIONS(5449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5449),
-    [aux_sym_common_statement_token1] = ACTIONS(5449),
-    [aux_sym_import_statement_token1] = ACTIONS(5449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5449),
-    [aux_sym_derived_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5449),
-    [anon_sym_SEMI] = ACTIONS(5451),
-    [aux_sym_stop_statement_token1] = ACTIONS(5449),
-    [aux_sym_stop_statement_token2] = ACTIONS(5449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5449),
-    [aux_sym_include_statement_token1] = ACTIONS(5449),
-    [aux_sym_data_statement_token1] = ACTIONS(5449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5449),
-    [aux_sym_block_construct_token1] = ACTIONS(5449),
-    [aux_sym_associate_statement_token1] = ACTIONS(5449),
-    [aux_sym_format_statement_token1] = ACTIONS(5449),
-    [aux_sym_print_statement_token1] = ACTIONS(5449),
-    [aux_sym_open_statement_token1] = ACTIONS(5449),
-    [aux_sym_close_statement_token1] = ACTIONS(5449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5449),
-    [aux_sym_enum_statement_token1] = ACTIONS(5449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5449),
-    [aux_sym_entry_statement_token1] = ACTIONS(5449),
-    [aux_sym_logical_expression_token5] = ACTIONS(5451),
-    [anon_sym_DOT] = ACTIONS(5449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5451),
-    [anon_sym_LBRACK] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5451),
-    [aux_sym_null_literal_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5449),
-    [aux_sym_identifier_token1] = ACTIONS(5449),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5451),
-    [sym__float_literal] = ACTIONS(5451),
-    [sym__boz_literal] = ACTIONS(5451),
-    [sym__string_literal] = ACTIONS(5451),
-    [sym__string_literal_kind] = ACTIONS(5451),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1511] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5469),
-    [aux_sym_preproc_def_token1] = ACTIONS(5469),
-    [aux_sym_preproc_if_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
-    [sym_preproc_directive] = ACTIONS(5469),
-    [anon_sym_LPAREN2] = ACTIONS(5469),
-    [anon_sym_PLUS] = ACTIONS(5471),
-    [anon_sym_DASH] = ACTIONS(5471),
+  [1197] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5167),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
-    [aux_sym_interface_statement_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
-    [aux_sym_language_binding_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
-    [aux_sym_contains_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token2] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
-    [aux_sym_save_statement_token1] = ACTIONS(5469),
-    [aux_sym_private_statement_token1] = ACTIONS(5469),
-    [aux_sym_public_statement_token1] = ACTIONS(5469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
-    [aux_sym_common_statement_token1] = ACTIONS(5469),
-    [aux_sym_import_statement_token1] = ACTIONS(5469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
-    [aux_sym_derived_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
-    [anon_sym_SEMI] = ACTIONS(5471),
-    [aux_sym_stop_statement_token1] = ACTIONS(5469),
-    [aux_sym_stop_statement_token2] = ACTIONS(5469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
-    [aux_sym_include_statement_token1] = ACTIONS(5469),
-    [aux_sym_data_statement_token1] = ACTIONS(5469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
-    [aux_sym_block_construct_token1] = ACTIONS(5469),
-    [aux_sym_associate_statement_token1] = ACTIONS(5469),
-    [aux_sym_format_statement_token1] = ACTIONS(5469),
-    [aux_sym_print_statement_token1] = ACTIONS(5469),
-    [aux_sym_open_statement_token1] = ACTIONS(5469),
-    [aux_sym_close_statement_token1] = ACTIONS(5469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
-    [aux_sym_enum_statement_token1] = ACTIONS(5469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
-    [aux_sym_entry_statement_token1] = ACTIONS(5469),
-    [aux_sym_logical_expression_token5] = ACTIONS(5471),
-    [anon_sym_DOT] = ACTIONS(5469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
-    [anon_sym_LBRACK] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
-    [aux_sym_null_literal_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
-    [aux_sym_identifier_token1] = ACTIONS(5469),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5471),
-    [sym__float_literal] = ACTIONS(5471),
-    [sym__boz_literal] = ACTIONS(5471),
-    [sym__string_literal] = ACTIONS(5471),
-    [sym__string_literal_kind] = ACTIONS(5471),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1512] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5473),
-    [aux_sym_preproc_def_token1] = ACTIONS(5473),
-    [aux_sym_preproc_if_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
-    [sym_preproc_directive] = ACTIONS(5473),
-    [anon_sym_LPAREN2] = ACTIONS(5473),
-    [anon_sym_PLUS] = ACTIONS(5475),
-    [anon_sym_DASH] = ACTIONS(5475),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
-    [aux_sym_interface_statement_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
-    [aux_sym_language_binding_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
-    [aux_sym_contains_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token2] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
-    [aux_sym_save_statement_token1] = ACTIONS(5473),
-    [aux_sym_private_statement_token1] = ACTIONS(5473),
-    [aux_sym_public_statement_token1] = ACTIONS(5473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
-    [aux_sym_common_statement_token1] = ACTIONS(5473),
-    [aux_sym_import_statement_token1] = ACTIONS(5473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
-    [aux_sym_derived_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
-    [anon_sym_SEMI] = ACTIONS(5475),
-    [aux_sym_stop_statement_token1] = ACTIONS(5473),
-    [aux_sym_stop_statement_token2] = ACTIONS(5473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
-    [aux_sym_include_statement_token1] = ACTIONS(5473),
-    [aux_sym_data_statement_token1] = ACTIONS(5473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
-    [aux_sym_block_construct_token1] = ACTIONS(5473),
-    [aux_sym_associate_statement_token1] = ACTIONS(5473),
-    [aux_sym_format_statement_token1] = ACTIONS(5473),
-    [aux_sym_print_statement_token1] = ACTIONS(5473),
-    [aux_sym_open_statement_token1] = ACTIONS(5473),
-    [aux_sym_close_statement_token1] = ACTIONS(5473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
-    [aux_sym_enum_statement_token1] = ACTIONS(5473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
-    [aux_sym_entry_statement_token1] = ACTIONS(5473),
-    [aux_sym_logical_expression_token5] = ACTIONS(5475),
-    [anon_sym_DOT] = ACTIONS(5473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
-    [anon_sym_LBRACK] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
-    [aux_sym_null_literal_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
-    [aux_sym_identifier_token1] = ACTIONS(5473),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5475),
-    [sym__float_literal] = ACTIONS(5475),
-    [sym__boz_literal] = ACTIONS(5475),
-    [sym__string_literal] = ACTIONS(5475),
-    [sym__string_literal_kind] = ACTIONS(5475),
+  [1198] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5169),
+    [aux_sym_preproc_def_token1] = ACTIONS(5169),
+    [aux_sym_preproc_if_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5169),
+    [sym_preproc_directive] = ACTIONS(5169),
+    [anon_sym_LPAREN2] = ACTIONS(5169),
+    [sym_preproc_comment] = ACTIONS(5171),
+    [anon_sym_PLUS] = ACTIONS(5173),
+    [anon_sym_DASH] = ACTIONS(5173),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5169),
+    [aux_sym_interface_statement_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5169),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5169),
+    [aux_sym_language_binding_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5169),
+    [aux_sym_contains_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token2] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5169),
+    [aux_sym_save_statement_token1] = ACTIONS(5169),
+    [aux_sym_private_statement_token1] = ACTIONS(5169),
+    [aux_sym_public_statement_token1] = ACTIONS(5169),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5169),
+    [aux_sym_common_statement_token1] = ACTIONS(5169),
+    [aux_sym_import_statement_token1] = ACTIONS(5169),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5169),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5169),
+    [aux_sym_derived_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5169),
+    [anon_sym_SEMI] = ACTIONS(5173),
+    [aux_sym_stop_statement_token1] = ACTIONS(5169),
+    [aux_sym_stop_statement_token2] = ACTIONS(5169),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5169),
+    [aux_sym_include_statement_token1] = ACTIONS(5169),
+    [aux_sym_data_statement_token1] = ACTIONS(5169),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5169),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5169),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5169),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5169),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5169),
+    [aux_sym_block_construct_token1] = ACTIONS(5169),
+    [aux_sym_associate_statement_token1] = ACTIONS(5169),
+    [aux_sym_format_statement_token1] = ACTIONS(5169),
+    [aux_sym_print_statement_token1] = ACTIONS(5169),
+    [aux_sym_open_statement_token1] = ACTIONS(5169),
+    [aux_sym_close_statement_token1] = ACTIONS(5169),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5169),
+    [aux_sym_enum_statement_token1] = ACTIONS(5169),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5169),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5169),
+    [aux_sym_entry_statement_token1] = ACTIONS(5169),
+    [aux_sym_logical_expression_token5] = ACTIONS(5173),
+    [anon_sym_DOT] = ACTIONS(5169),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5173),
+    [anon_sym_LBRACK] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5173),
+    [aux_sym_null_literal_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5169),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5169),
+    [aux_sym_identifier_token1] = ACTIONS(5169),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5173),
+    [sym__float_literal] = ACTIONS(5173),
+    [sym__boz_literal] = ACTIONS(5173),
+    [sym__string_literal] = ACTIONS(5173),
+    [sym__string_literal_kind] = ACTIONS(5173),
   },
-  [1513] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
+  [1199] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1514] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
+  [1200] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5175),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1201] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1515] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
+  [1202] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5177),
+    [aux_sym_preproc_def_token1] = ACTIONS(5177),
+    [aux_sym_preproc_if_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5177),
+    [sym_preproc_directive] = ACTIONS(5177),
+    [anon_sym_LPAREN2] = ACTIONS(5177),
+    [sym_preproc_comment] = ACTIONS(5179),
+    [anon_sym_PLUS] = ACTIONS(5181),
+    [anon_sym_DASH] = ACTIONS(5181),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5177),
+    [aux_sym_interface_statement_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5177),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5177),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5177),
+    [aux_sym_language_binding_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5177),
+    [aux_sym_contains_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token2] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5177),
+    [aux_sym_save_statement_token1] = ACTIONS(5177),
+    [aux_sym_private_statement_token1] = ACTIONS(5177),
+    [aux_sym_public_statement_token1] = ACTIONS(5177),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5177),
+    [aux_sym_common_statement_token1] = ACTIONS(5177),
+    [aux_sym_import_statement_token1] = ACTIONS(5177),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5177),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5177),
+    [aux_sym_derived_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5177),
+    [anon_sym_SEMI] = ACTIONS(5181),
+    [aux_sym_stop_statement_token1] = ACTIONS(5177),
+    [aux_sym_stop_statement_token2] = ACTIONS(5177),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5177),
+    [aux_sym_include_statement_token1] = ACTIONS(5177),
+    [aux_sym_data_statement_token1] = ACTIONS(5177),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5177),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5177),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5177),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5177),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5177),
+    [aux_sym_block_construct_token1] = ACTIONS(5177),
+    [aux_sym_associate_statement_token1] = ACTIONS(5177),
+    [aux_sym_format_statement_token1] = ACTIONS(5177),
+    [aux_sym_print_statement_token1] = ACTIONS(5177),
+    [aux_sym_open_statement_token1] = ACTIONS(5177),
+    [aux_sym_close_statement_token1] = ACTIONS(5177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5177),
+    [aux_sym_enum_statement_token1] = ACTIONS(5177),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5177),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5177),
+    [aux_sym_entry_statement_token1] = ACTIONS(5177),
+    [aux_sym_logical_expression_token5] = ACTIONS(5181),
+    [anon_sym_DOT] = ACTIONS(5177),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5181),
+    [anon_sym_LBRACK] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5181),
+    [aux_sym_null_literal_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5177),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5177),
+    [aux_sym_identifier_token1] = ACTIONS(5177),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5181),
+    [sym__float_literal] = ACTIONS(5181),
+    [sym__boz_literal] = ACTIONS(5181),
+    [sym__string_literal] = ACTIONS(5181),
+    [sym__string_literal_kind] = ACTIONS(5181),
+  },
+  [1203] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
+  },
+  [1204] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5183),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1205] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5185),
+    [aux_sym_preproc_def_token1] = ACTIONS(5185),
+    [aux_sym_preproc_if_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5185),
+    [sym_preproc_directive] = ACTIONS(5185),
+    [anon_sym_LPAREN2] = ACTIONS(5185),
+    [sym_preproc_comment] = ACTIONS(5187),
+    [anon_sym_PLUS] = ACTIONS(5189),
+    [anon_sym_DASH] = ACTIONS(5189),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5185),
+    [aux_sym_interface_statement_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5185),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5185),
+    [aux_sym_language_binding_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5185),
+    [aux_sym_contains_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token2] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5185),
+    [aux_sym_save_statement_token1] = ACTIONS(5185),
+    [aux_sym_private_statement_token1] = ACTIONS(5185),
+    [aux_sym_public_statement_token1] = ACTIONS(5185),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5185),
+    [aux_sym_common_statement_token1] = ACTIONS(5185),
+    [aux_sym_import_statement_token1] = ACTIONS(5185),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5185),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5185),
+    [aux_sym_derived_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5185),
+    [anon_sym_SEMI] = ACTIONS(5189),
+    [aux_sym_stop_statement_token1] = ACTIONS(5185),
+    [aux_sym_stop_statement_token2] = ACTIONS(5185),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5185),
+    [aux_sym_include_statement_token1] = ACTIONS(5185),
+    [aux_sym_data_statement_token1] = ACTIONS(5185),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5185),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5185),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5185),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5185),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5185),
+    [aux_sym_block_construct_token1] = ACTIONS(5185),
+    [aux_sym_associate_statement_token1] = ACTIONS(5185),
+    [aux_sym_format_statement_token1] = ACTIONS(5185),
+    [aux_sym_print_statement_token1] = ACTIONS(5185),
+    [aux_sym_open_statement_token1] = ACTIONS(5185),
+    [aux_sym_close_statement_token1] = ACTIONS(5185),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5185),
+    [aux_sym_enum_statement_token1] = ACTIONS(5185),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5185),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5185),
+    [aux_sym_entry_statement_token1] = ACTIONS(5185),
+    [aux_sym_logical_expression_token5] = ACTIONS(5189),
+    [anon_sym_DOT] = ACTIONS(5185),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5189),
+    [anon_sym_LBRACK] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5189),
+    [aux_sym_null_literal_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5185),
+    [aux_sym_identifier_token1] = ACTIONS(5185),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5189),
+    [sym__float_literal] = ACTIONS(5189),
+    [sym__boz_literal] = ACTIONS(5189),
+    [sym__string_literal] = ACTIONS(5189),
+    [sym__string_literal_kind] = ACTIONS(5189),
+  },
+  [1206] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5191),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1207] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5193),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1208] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1516] = {
+  [1209] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5116),
     [aux_sym_preproc_def_token1] = ACTIONS(5116),
     [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
     [sym_preproc_directive] = ACTIONS(5116),
@@ -301984,2737 +261805,2627 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5118),
     [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1517] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1210] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5195),
+    [aux_sym_preproc_def_token1] = ACTIONS(5195),
+    [aux_sym_preproc_if_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5195),
+    [sym_preproc_directive] = ACTIONS(5195),
+    [anon_sym_LPAREN2] = ACTIONS(5195),
+    [sym_preproc_comment] = ACTIONS(5197),
+    [anon_sym_PLUS] = ACTIONS(5199),
+    [anon_sym_DASH] = ACTIONS(5199),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5195),
+    [aux_sym_interface_statement_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5195),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5195),
+    [aux_sym_language_binding_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5195),
+    [aux_sym_contains_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token2] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5195),
+    [aux_sym_save_statement_token1] = ACTIONS(5195),
+    [aux_sym_private_statement_token1] = ACTIONS(5195),
+    [aux_sym_public_statement_token1] = ACTIONS(5195),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5195),
+    [aux_sym_common_statement_token1] = ACTIONS(5195),
+    [aux_sym_import_statement_token1] = ACTIONS(5195),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5195),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5195),
+    [aux_sym_derived_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5195),
+    [anon_sym_SEMI] = ACTIONS(5199),
+    [aux_sym_stop_statement_token1] = ACTIONS(5195),
+    [aux_sym_stop_statement_token2] = ACTIONS(5195),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5195),
+    [aux_sym_include_statement_token1] = ACTIONS(5195),
+    [aux_sym_data_statement_token1] = ACTIONS(5195),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5195),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5195),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5195),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5195),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5195),
+    [aux_sym_block_construct_token1] = ACTIONS(5195),
+    [aux_sym_associate_statement_token1] = ACTIONS(5195),
+    [aux_sym_format_statement_token1] = ACTIONS(5195),
+    [aux_sym_print_statement_token1] = ACTIONS(5195),
+    [aux_sym_open_statement_token1] = ACTIONS(5195),
+    [aux_sym_close_statement_token1] = ACTIONS(5195),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5195),
+    [aux_sym_enum_statement_token1] = ACTIONS(5195),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5195),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5195),
+    [aux_sym_entry_statement_token1] = ACTIONS(5195),
+    [aux_sym_logical_expression_token5] = ACTIONS(5199),
+    [anon_sym_DOT] = ACTIONS(5195),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5199),
+    [anon_sym_LBRACK] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5199),
+    [aux_sym_null_literal_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5195),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5195),
+    [aux_sym_identifier_token1] = ACTIONS(5195),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5199),
+    [sym__float_literal] = ACTIONS(5199),
+    [sym__boz_literal] = ACTIONS(5199),
+    [sym__string_literal] = ACTIONS(5199),
+    [sym__string_literal_kind] = ACTIONS(5199),
   },
-  [1518] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5449),
-    [aux_sym_preproc_def_token1] = ACTIONS(5449),
-    [aux_sym_preproc_if_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5449),
-    [sym_preproc_directive] = ACTIONS(5449),
-    [anon_sym_LPAREN2] = ACTIONS(5449),
-    [anon_sym_PLUS] = ACTIONS(5451),
-    [anon_sym_DASH] = ACTIONS(5451),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5449),
-    [aux_sym_interface_statement_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5449),
-    [aux_sym_language_binding_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5449),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5449),
-    [aux_sym_contains_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token2] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5449),
-    [aux_sym_save_statement_token1] = ACTIONS(5449),
-    [aux_sym_private_statement_token1] = ACTIONS(5449),
-    [aux_sym_public_statement_token1] = ACTIONS(5449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5449),
-    [aux_sym_common_statement_token1] = ACTIONS(5449),
-    [aux_sym_import_statement_token1] = ACTIONS(5449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5449),
-    [aux_sym_derived_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5449),
-    [anon_sym_SEMI] = ACTIONS(5451),
-    [aux_sym_stop_statement_token1] = ACTIONS(5449),
-    [aux_sym_stop_statement_token2] = ACTIONS(5449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5449),
-    [aux_sym_include_statement_token1] = ACTIONS(5449),
-    [aux_sym_data_statement_token1] = ACTIONS(5449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5449),
-    [aux_sym_block_construct_token1] = ACTIONS(5449),
-    [aux_sym_associate_statement_token1] = ACTIONS(5449),
-    [aux_sym_format_statement_token1] = ACTIONS(5449),
-    [aux_sym_print_statement_token1] = ACTIONS(5449),
-    [aux_sym_open_statement_token1] = ACTIONS(5449),
-    [aux_sym_close_statement_token1] = ACTIONS(5449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5449),
-    [aux_sym_enum_statement_token1] = ACTIONS(5449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5449),
-    [aux_sym_entry_statement_token1] = ACTIONS(5449),
-    [aux_sym_logical_expression_token5] = ACTIONS(5451),
-    [anon_sym_DOT] = ACTIONS(5449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5451),
-    [anon_sym_LBRACK] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5451),
-    [aux_sym_null_literal_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5449),
-    [aux_sym_identifier_token1] = ACTIONS(5449),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5451),
-    [sym__float_literal] = ACTIONS(5451),
-    [sym__boz_literal] = ACTIONS(5451),
-    [sym__string_literal] = ACTIONS(5451),
-    [sym__string_literal_kind] = ACTIONS(5451),
+  [1211] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5201),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1519] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5469),
-    [aux_sym_preproc_def_token1] = ACTIONS(5469),
-    [aux_sym_preproc_if_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
-    [sym_preproc_directive] = ACTIONS(5469),
-    [anon_sym_LPAREN2] = ACTIONS(5469),
-    [anon_sym_PLUS] = ACTIONS(5471),
-    [anon_sym_DASH] = ACTIONS(5471),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
-    [aux_sym_interface_statement_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
-    [aux_sym_language_binding_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5469),
-    [aux_sym_contains_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token2] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
-    [aux_sym_save_statement_token1] = ACTIONS(5469),
-    [aux_sym_private_statement_token1] = ACTIONS(5469),
-    [aux_sym_public_statement_token1] = ACTIONS(5469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
-    [aux_sym_common_statement_token1] = ACTIONS(5469),
-    [aux_sym_import_statement_token1] = ACTIONS(5469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
-    [aux_sym_derived_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
-    [anon_sym_SEMI] = ACTIONS(5471),
-    [aux_sym_stop_statement_token1] = ACTIONS(5469),
-    [aux_sym_stop_statement_token2] = ACTIONS(5469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
-    [aux_sym_include_statement_token1] = ACTIONS(5469),
-    [aux_sym_data_statement_token1] = ACTIONS(5469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
-    [aux_sym_block_construct_token1] = ACTIONS(5469),
-    [aux_sym_associate_statement_token1] = ACTIONS(5469),
-    [aux_sym_format_statement_token1] = ACTIONS(5469),
-    [aux_sym_print_statement_token1] = ACTIONS(5469),
-    [aux_sym_open_statement_token1] = ACTIONS(5469),
-    [aux_sym_close_statement_token1] = ACTIONS(5469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
-    [aux_sym_enum_statement_token1] = ACTIONS(5469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
-    [aux_sym_entry_statement_token1] = ACTIONS(5469),
-    [aux_sym_logical_expression_token5] = ACTIONS(5471),
-    [anon_sym_DOT] = ACTIONS(5469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
-    [anon_sym_LBRACK] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
-    [aux_sym_null_literal_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
-    [aux_sym_identifier_token1] = ACTIONS(5469),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5471),
-    [sym__float_literal] = ACTIONS(5471),
-    [sym__boz_literal] = ACTIONS(5471),
-    [sym__string_literal] = ACTIONS(5471),
-    [sym__string_literal_kind] = ACTIONS(5471),
+  [1212] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5203),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1520] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+  [1213] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5205),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
-  },
-  [1521] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1522] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5433),
-    [aux_sym_preproc_def_token1] = ACTIONS(5433),
-    [aux_sym_preproc_if_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
-    [sym_preproc_directive] = ACTIONS(5433),
-    [anon_sym_LPAREN2] = ACTIONS(5433),
-    [anon_sym_PLUS] = ACTIONS(5435),
-    [anon_sym_DASH] = ACTIONS(5435),
+  [1214] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5207),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5433),
-    [aux_sym_interface_statement_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
-    [aux_sym_language_binding_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
-    [aux_sym_contains_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token2] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
-    [aux_sym_save_statement_token1] = ACTIONS(5433),
-    [aux_sym_private_statement_token1] = ACTIONS(5433),
-    [aux_sym_public_statement_token1] = ACTIONS(5433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
-    [aux_sym_common_statement_token1] = ACTIONS(5433),
-    [aux_sym_import_statement_token1] = ACTIONS(5433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
-    [aux_sym_derived_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
-    [anon_sym_SEMI] = ACTIONS(5435),
-    [aux_sym_stop_statement_token1] = ACTIONS(5433),
-    [aux_sym_stop_statement_token2] = ACTIONS(5433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
-    [aux_sym_include_statement_token1] = ACTIONS(5433),
-    [aux_sym_data_statement_token1] = ACTIONS(5433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
-    [aux_sym_block_construct_token1] = ACTIONS(5433),
-    [aux_sym_associate_statement_token1] = ACTIONS(5433),
-    [aux_sym_format_statement_token1] = ACTIONS(5433),
-    [aux_sym_print_statement_token1] = ACTIONS(5433),
-    [aux_sym_open_statement_token1] = ACTIONS(5433),
-    [aux_sym_close_statement_token1] = ACTIONS(5433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
-    [aux_sym_enum_statement_token1] = ACTIONS(5433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
-    [aux_sym_entry_statement_token1] = ACTIONS(5433),
-    [aux_sym_logical_expression_token5] = ACTIONS(5435),
-    [anon_sym_DOT] = ACTIONS(5433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
-    [anon_sym_LBRACK] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
-    [aux_sym_null_literal_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
-    [aux_sym_identifier_token1] = ACTIONS(5433),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5435),
-    [sym__float_literal] = ACTIONS(5435),
-    [sym__boz_literal] = ACTIONS(5435),
-    [sym__string_literal] = ACTIONS(5435),
-    [sym__string_literal_kind] = ACTIONS(5435),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1523] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
+  [1215] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5209),
+    [aux_sym_preproc_def_token1] = ACTIONS(5209),
+    [aux_sym_preproc_if_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5209),
+    [sym_preproc_directive] = ACTIONS(5209),
+    [anon_sym_LPAREN2] = ACTIONS(5209),
+    [sym_preproc_comment] = ACTIONS(5211),
+    [anon_sym_PLUS] = ACTIONS(5213),
+    [anon_sym_DASH] = ACTIONS(5213),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5209),
+    [aux_sym_interface_statement_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5209),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5209),
+    [aux_sym_language_binding_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5209),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5209),
+    [aux_sym_contains_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token2] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5209),
+    [aux_sym_save_statement_token1] = ACTIONS(5209),
+    [aux_sym_private_statement_token1] = ACTIONS(5209),
+    [aux_sym_public_statement_token1] = ACTIONS(5209),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5209),
+    [aux_sym_common_statement_token1] = ACTIONS(5209),
+    [aux_sym_import_statement_token1] = ACTIONS(5209),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5209),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5209),
+    [aux_sym_derived_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5209),
+    [anon_sym_SEMI] = ACTIONS(5213),
+    [aux_sym_stop_statement_token1] = ACTIONS(5209),
+    [aux_sym_stop_statement_token2] = ACTIONS(5209),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5209),
+    [aux_sym_include_statement_token1] = ACTIONS(5209),
+    [aux_sym_data_statement_token1] = ACTIONS(5209),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5209),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5209),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5209),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5209),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5209),
+    [aux_sym_block_construct_token1] = ACTIONS(5209),
+    [aux_sym_associate_statement_token1] = ACTIONS(5209),
+    [aux_sym_format_statement_token1] = ACTIONS(5209),
+    [aux_sym_print_statement_token1] = ACTIONS(5209),
+    [aux_sym_open_statement_token1] = ACTIONS(5209),
+    [aux_sym_close_statement_token1] = ACTIONS(5209),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5209),
+    [aux_sym_enum_statement_token1] = ACTIONS(5209),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5209),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5209),
+    [aux_sym_entry_statement_token1] = ACTIONS(5209),
+    [aux_sym_logical_expression_token5] = ACTIONS(5213),
+    [anon_sym_DOT] = ACTIONS(5209),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5213),
+    [anon_sym_LBRACK] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5213),
+    [aux_sym_null_literal_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5209),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5209),
+    [aux_sym_identifier_token1] = ACTIONS(5209),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5213),
+    [sym__float_literal] = ACTIONS(5213),
+    [sym__boz_literal] = ACTIONS(5213),
+    [sym__string_literal] = ACTIONS(5213),
+    [sym__string_literal_kind] = ACTIONS(5213),
   },
-  [1524] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
+  [1216] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
   },
-  [1525] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+  [1217] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5215),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
   },
-  [1526] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5453),
-    [aux_sym_preproc_def_token1] = ACTIONS(5453),
-    [aux_sym_preproc_if_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
-    [sym_preproc_directive] = ACTIONS(5453),
-    [anon_sym_LPAREN2] = ACTIONS(5453),
-    [anon_sym_PLUS] = ACTIONS(5455),
-    [anon_sym_DASH] = ACTIONS(5455),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
-    [aux_sym_interface_statement_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
-    [aux_sym_language_binding_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
-    [aux_sym_contains_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token2] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
-    [aux_sym_save_statement_token1] = ACTIONS(5453),
-    [aux_sym_private_statement_token1] = ACTIONS(5453),
-    [aux_sym_public_statement_token1] = ACTIONS(5453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
-    [aux_sym_common_statement_token1] = ACTIONS(5453),
-    [aux_sym_import_statement_token1] = ACTIONS(5453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
-    [aux_sym_derived_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
-    [anon_sym_SEMI] = ACTIONS(5455),
-    [aux_sym_stop_statement_token1] = ACTIONS(5453),
-    [aux_sym_stop_statement_token2] = ACTIONS(5453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
-    [aux_sym_include_statement_token1] = ACTIONS(5453),
-    [aux_sym_data_statement_token1] = ACTIONS(5453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
-    [aux_sym_block_construct_token1] = ACTIONS(5453),
-    [aux_sym_associate_statement_token1] = ACTIONS(5453),
-    [aux_sym_format_statement_token1] = ACTIONS(5453),
-    [aux_sym_print_statement_token1] = ACTIONS(5453),
-    [aux_sym_open_statement_token1] = ACTIONS(5453),
-    [aux_sym_close_statement_token1] = ACTIONS(5453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
-    [aux_sym_enum_statement_token1] = ACTIONS(5453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
-    [aux_sym_entry_statement_token1] = ACTIONS(5453),
-    [aux_sym_logical_expression_token5] = ACTIONS(5455),
-    [anon_sym_DOT] = ACTIONS(5453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
-    [anon_sym_LBRACK] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
-    [aux_sym_null_literal_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
-    [aux_sym_identifier_token1] = ACTIONS(5453),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5455),
-    [sym__float_literal] = ACTIONS(5455),
-    [sym__boz_literal] = ACTIONS(5455),
-    [sym__string_literal] = ACTIONS(5455),
-    [sym__string_literal_kind] = ACTIONS(5455),
+  [1218] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1527] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+  [1219] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5217),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1528] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5473),
-    [aux_sym_preproc_def_token1] = ACTIONS(5473),
-    [aux_sym_preproc_if_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
-    [sym_preproc_directive] = ACTIONS(5473),
-    [anon_sym_LPAREN2] = ACTIONS(5473),
-    [anon_sym_PLUS] = ACTIONS(5475),
-    [anon_sym_DASH] = ACTIONS(5475),
+  [1220] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5219),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
-    [aux_sym_interface_statement_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
-    [aux_sym_language_binding_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5473),
-    [aux_sym_contains_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token2] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
-    [aux_sym_save_statement_token1] = ACTIONS(5473),
-    [aux_sym_private_statement_token1] = ACTIONS(5473),
-    [aux_sym_public_statement_token1] = ACTIONS(5473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
-    [aux_sym_common_statement_token1] = ACTIONS(5473),
-    [aux_sym_import_statement_token1] = ACTIONS(5473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
-    [aux_sym_derived_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
-    [anon_sym_SEMI] = ACTIONS(5475),
-    [aux_sym_stop_statement_token1] = ACTIONS(5473),
-    [aux_sym_stop_statement_token2] = ACTIONS(5473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
-    [aux_sym_include_statement_token1] = ACTIONS(5473),
-    [aux_sym_data_statement_token1] = ACTIONS(5473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
-    [aux_sym_block_construct_token1] = ACTIONS(5473),
-    [aux_sym_associate_statement_token1] = ACTIONS(5473),
-    [aux_sym_format_statement_token1] = ACTIONS(5473),
-    [aux_sym_print_statement_token1] = ACTIONS(5473),
-    [aux_sym_open_statement_token1] = ACTIONS(5473),
-    [aux_sym_close_statement_token1] = ACTIONS(5473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
-    [aux_sym_enum_statement_token1] = ACTIONS(5473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
-    [aux_sym_entry_statement_token1] = ACTIONS(5473),
-    [aux_sym_logical_expression_token5] = ACTIONS(5475),
-    [anon_sym_DOT] = ACTIONS(5473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
-    [anon_sym_LBRACK] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
-    [aux_sym_null_literal_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
-    [aux_sym_identifier_token1] = ACTIONS(5473),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5475),
-    [sym__float_literal] = ACTIONS(5475),
-    [sym__boz_literal] = ACTIONS(5475),
-    [sym__string_literal] = ACTIONS(5475),
-    [sym__string_literal_kind] = ACTIONS(5475),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1529] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1221] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5221),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1530] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1222] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5223),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1531] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
+  [1223] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5225),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
   },
-  [1532] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
+  [1224] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
   },
-  [1533] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+  [1225] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5227),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1534] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1226] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5229),
+    [aux_sym_preproc_def_token1] = ACTIONS(5229),
+    [aux_sym_preproc_if_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5229),
+    [sym_preproc_directive] = ACTIONS(5229),
+    [anon_sym_LPAREN2] = ACTIONS(5229),
+    [sym_preproc_comment] = ACTIONS(5231),
+    [anon_sym_PLUS] = ACTIONS(5233),
+    [anon_sym_DASH] = ACTIONS(5233),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5229),
+    [aux_sym_interface_statement_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5229),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5229),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5229),
+    [aux_sym_language_binding_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5229),
+    [aux_sym_contains_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token2] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5229),
+    [aux_sym_save_statement_token1] = ACTIONS(5229),
+    [aux_sym_private_statement_token1] = ACTIONS(5229),
+    [aux_sym_public_statement_token1] = ACTIONS(5229),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5229),
+    [aux_sym_common_statement_token1] = ACTIONS(5229),
+    [aux_sym_import_statement_token1] = ACTIONS(5229),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5229),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5229),
+    [aux_sym_derived_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5229),
+    [anon_sym_SEMI] = ACTIONS(5233),
+    [aux_sym_stop_statement_token1] = ACTIONS(5229),
+    [aux_sym_stop_statement_token2] = ACTIONS(5229),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5229),
+    [aux_sym_include_statement_token1] = ACTIONS(5229),
+    [aux_sym_data_statement_token1] = ACTIONS(5229),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5229),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5229),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5229),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5229),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5229),
+    [aux_sym_block_construct_token1] = ACTIONS(5229),
+    [aux_sym_associate_statement_token1] = ACTIONS(5229),
+    [aux_sym_format_statement_token1] = ACTIONS(5229),
+    [aux_sym_print_statement_token1] = ACTIONS(5229),
+    [aux_sym_open_statement_token1] = ACTIONS(5229),
+    [aux_sym_close_statement_token1] = ACTIONS(5229),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5229),
+    [aux_sym_enum_statement_token1] = ACTIONS(5229),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5229),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5229),
+    [aux_sym_entry_statement_token1] = ACTIONS(5229),
+    [aux_sym_logical_expression_token5] = ACTIONS(5233),
+    [anon_sym_DOT] = ACTIONS(5229),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5233),
+    [anon_sym_LBRACK] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5233),
+    [aux_sym_null_literal_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5229),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5229),
+    [aux_sym_identifier_token1] = ACTIONS(5229),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5233),
+    [sym__float_literal] = ACTIONS(5233),
+    [sym__boz_literal] = ACTIONS(5233),
+    [sym__string_literal] = ACTIONS(5233),
+    [sym__string_literal_kind] = ACTIONS(5233),
   },
-  [1535] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
+  [1227] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5195),
+    [aux_sym_preproc_def_token1] = ACTIONS(5195),
+    [aux_sym_preproc_if_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5195),
+    [sym_preproc_directive] = ACTIONS(5195),
+    [anon_sym_LPAREN2] = ACTIONS(5195),
+    [sym_preproc_comment] = ACTIONS(5235),
+    [anon_sym_PLUS] = ACTIONS(5199),
+    [anon_sym_DASH] = ACTIONS(5199),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5195),
+    [aux_sym_interface_statement_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5195),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5195),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5195),
+    [aux_sym_language_binding_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5195),
+    [aux_sym_contains_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token2] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5195),
+    [aux_sym_save_statement_token1] = ACTIONS(5195),
+    [aux_sym_private_statement_token1] = ACTIONS(5195),
+    [aux_sym_public_statement_token1] = ACTIONS(5195),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5195),
+    [aux_sym_common_statement_token1] = ACTIONS(5195),
+    [aux_sym_import_statement_token1] = ACTIONS(5195),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5195),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5195),
+    [aux_sym_derived_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5195),
+    [anon_sym_SEMI] = ACTIONS(5199),
+    [aux_sym_stop_statement_token1] = ACTIONS(5195),
+    [aux_sym_stop_statement_token2] = ACTIONS(5195),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5195),
+    [aux_sym_include_statement_token1] = ACTIONS(5195),
+    [aux_sym_data_statement_token1] = ACTIONS(5195),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5195),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5195),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5195),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5195),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5195),
+    [aux_sym_block_construct_token1] = ACTIONS(5195),
+    [aux_sym_associate_statement_token1] = ACTIONS(5195),
+    [aux_sym_format_statement_token1] = ACTIONS(5195),
+    [aux_sym_print_statement_token1] = ACTIONS(5195),
+    [aux_sym_open_statement_token1] = ACTIONS(5195),
+    [aux_sym_close_statement_token1] = ACTIONS(5195),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5195),
+    [aux_sym_enum_statement_token1] = ACTIONS(5195),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5195),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5195),
+    [aux_sym_entry_statement_token1] = ACTIONS(5195),
+    [aux_sym_logical_expression_token5] = ACTIONS(5199),
+    [anon_sym_DOT] = ACTIONS(5195),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5199),
+    [anon_sym_LBRACK] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5199),
+    [aux_sym_null_literal_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5195),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5195),
+    [aux_sym_identifier_token1] = ACTIONS(5195),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5199),
+    [sym__float_literal] = ACTIONS(5199),
+    [sym__boz_literal] = ACTIONS(5199),
+    [sym__string_literal] = ACTIONS(5199),
+    [sym__string_literal_kind] = ACTIONS(5199),
   },
-  [1536] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5481),
-    [aux_sym_preproc_def_token1] = ACTIONS(5481),
-    [aux_sym_preproc_if_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
-    [sym_preproc_directive] = ACTIONS(5481),
-    [anon_sym_LPAREN2] = ACTIONS(5481),
-    [anon_sym_PLUS] = ACTIONS(5483),
-    [anon_sym_DASH] = ACTIONS(5483),
+  [1228] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5237),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
-    [aux_sym_interface_statement_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
-    [aux_sym_language_binding_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5481),
-    [aux_sym_contains_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token2] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
-    [aux_sym_save_statement_token1] = ACTIONS(5481),
-    [aux_sym_private_statement_token1] = ACTIONS(5481),
-    [aux_sym_public_statement_token1] = ACTIONS(5481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
-    [aux_sym_common_statement_token1] = ACTIONS(5481),
-    [aux_sym_import_statement_token1] = ACTIONS(5481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
-    [aux_sym_derived_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
-    [anon_sym_SEMI] = ACTIONS(5483),
-    [aux_sym_stop_statement_token1] = ACTIONS(5481),
-    [aux_sym_stop_statement_token2] = ACTIONS(5481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
-    [aux_sym_include_statement_token1] = ACTIONS(5481),
-    [aux_sym_data_statement_token1] = ACTIONS(5481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
-    [aux_sym_block_construct_token1] = ACTIONS(5481),
-    [aux_sym_associate_statement_token1] = ACTIONS(5481),
-    [aux_sym_format_statement_token1] = ACTIONS(5481),
-    [aux_sym_print_statement_token1] = ACTIONS(5481),
-    [aux_sym_open_statement_token1] = ACTIONS(5481),
-    [aux_sym_close_statement_token1] = ACTIONS(5481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
-    [aux_sym_enum_statement_token1] = ACTIONS(5481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
-    [aux_sym_entry_statement_token1] = ACTIONS(5481),
-    [aux_sym_logical_expression_token5] = ACTIONS(5483),
-    [anon_sym_DOT] = ACTIONS(5481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
-    [anon_sym_LBRACK] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
-    [aux_sym_null_literal_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
-    [aux_sym_identifier_token1] = ACTIONS(5481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5483),
-    [sym__float_literal] = ACTIONS(5483),
-    [sym__boz_literal] = ACTIONS(5483),
-    [sym__string_literal] = ACTIONS(5483),
-    [sym__string_literal_kind] = ACTIONS(5483),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1537] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5485),
-    [aux_sym_preproc_def_token1] = ACTIONS(5485),
-    [aux_sym_preproc_if_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
-    [sym_preproc_directive] = ACTIONS(5485),
-    [anon_sym_LPAREN2] = ACTIONS(5485),
-    [anon_sym_PLUS] = ACTIONS(5487),
-    [anon_sym_DASH] = ACTIONS(5487),
+  [1229] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5239),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5485),
-    [aux_sym_interface_statement_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
-    [aux_sym_language_binding_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
-    [aux_sym_contains_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token2] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
-    [aux_sym_save_statement_token1] = ACTIONS(5485),
-    [aux_sym_private_statement_token1] = ACTIONS(5485),
-    [aux_sym_public_statement_token1] = ACTIONS(5485),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
-    [aux_sym_common_statement_token1] = ACTIONS(5485),
-    [aux_sym_import_statement_token1] = ACTIONS(5485),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
-    [aux_sym_derived_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
-    [anon_sym_SEMI] = ACTIONS(5487),
-    [aux_sym_stop_statement_token1] = ACTIONS(5485),
-    [aux_sym_stop_statement_token2] = ACTIONS(5485),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5485),
-    [aux_sym_include_statement_token1] = ACTIONS(5485),
-    [aux_sym_data_statement_token1] = ACTIONS(5485),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5485),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5485),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5485),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5485),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5485),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5485),
-    [aux_sym_block_construct_token1] = ACTIONS(5485),
-    [aux_sym_associate_statement_token1] = ACTIONS(5485),
-    [aux_sym_format_statement_token1] = ACTIONS(5485),
-    [aux_sym_print_statement_token1] = ACTIONS(5485),
-    [aux_sym_open_statement_token1] = ACTIONS(5485),
-    [aux_sym_close_statement_token1] = ACTIONS(5485),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
-    [aux_sym_enum_statement_token1] = ACTIONS(5485),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5485),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5485),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5485),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5485),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5485),
-    [aux_sym_entry_statement_token1] = ACTIONS(5485),
-    [aux_sym_logical_expression_token5] = ACTIONS(5487),
-    [anon_sym_DOT] = ACTIONS(5485),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5487),
-    [anon_sym_LBRACK] = ACTIONS(5487),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5487),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5487),
-    [aux_sym_null_literal_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5485),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
-    [aux_sym_identifier_token1] = ACTIONS(5485),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5487),
-    [sym__float_literal] = ACTIONS(5487),
-    [sym__boz_literal] = ACTIONS(5487),
-    [sym__string_literal] = ACTIONS(5487),
-    [sym__string_literal_kind] = ACTIONS(5487),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1538] = {
+  [1230] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5032),
     [aux_sym_preproc_def_token1] = ACTIONS(5032),
     [aux_sym_preproc_if_token1] = ACTIONS(5032),
@@ -304722,14 +264433,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
     [sym_preproc_directive] = ACTIONS(5032),
     [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
+    [sym_preproc_comment] = ACTIONS(5241),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
     [aux_sym_interface_statement_token1] = ACTIONS(5032),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5032),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
     [aux_sym_language_binding_token1] = ACTIONS(5032),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
@@ -304783,7 +264495,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_type_qualifier_token1] = ACTIONS(5032),
     [aux_sym_type_qualifier_token2] = ACTIONS(5032),
     [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5036),
     [aux_sym_stop_statement_token1] = ACTIONS(5032),
     [aux_sym_stop_statement_token2] = ACTIONS(5032),
     [aux_sym_subroutine_call_token1] = ACTIONS(5032),
@@ -304820,12 +264532,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(5032),
     [aux_sym_allocate_statement_token1] = ACTIONS(5032),
     [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
     [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
     [aux_sym_null_literal_token1] = ACTIONS(5032),
     [aux_sym_coarray_statement_token1] = ACTIONS(5032),
     [aux_sym_coarray_statement_token2] = ACTIONS(5032),
@@ -304838,2226 +264550,1982 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
     [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1539] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1540] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5098),
-    [aux_sym_preproc_def_token1] = ACTIONS(5098),
-    [aux_sym_preproc_if_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5098),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5098),
-    [sym_preproc_directive] = ACTIONS(5098),
-    [anon_sym_LPAREN2] = ACTIONS(5098),
-    [anon_sym_PLUS] = ACTIONS(5102),
-    [anon_sym_DASH] = ACTIONS(5102),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5098),
-    [aux_sym_interface_statement_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5098),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5098),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5098),
-    [aux_sym_language_binding_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5098),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5098),
-    [aux_sym_contains_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token1] = ACTIONS(5098),
-    [aux_sym_use_statement_token2] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5098),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5098),
-    [aux_sym_save_statement_token1] = ACTIONS(5098),
-    [aux_sym_private_statement_token1] = ACTIONS(5098),
-    [aux_sym_public_statement_token1] = ACTIONS(5098),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5098),
-    [aux_sym_common_statement_token1] = ACTIONS(5098),
-    [aux_sym_import_statement_token1] = ACTIONS(5098),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5098),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5098),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5098),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5098),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5098),
-    [aux_sym_derived_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token1] = ACTIONS(5098),
-    [aux_sym_declared_type_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5098),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5098),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5098),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5098),
-    [anon_sym_SEMI] = ACTIONS(5102),
-    [aux_sym_stop_statement_token1] = ACTIONS(5098),
-    [aux_sym_stop_statement_token2] = ACTIONS(5098),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5098),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5098),
-    [aux_sym_include_statement_token1] = ACTIONS(5098),
-    [aux_sym_data_statement_token1] = ACTIONS(5098),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5098),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5098),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5098),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5098),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5098),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5098),
-    [aux_sym_block_construct_token1] = ACTIONS(5098),
-    [aux_sym_associate_statement_token1] = ACTIONS(5098),
-    [aux_sym_format_statement_token1] = ACTIONS(5098),
-    [aux_sym_print_statement_token1] = ACTIONS(5098),
-    [aux_sym_open_statement_token1] = ACTIONS(5098),
-    [aux_sym_close_statement_token1] = ACTIONS(5098),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5098),
-    [aux_sym_enum_statement_token1] = ACTIONS(5098),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5098),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5098),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5098),
-    [aux_sym_entry_statement_token1] = ACTIONS(5098),
-    [aux_sym_logical_expression_token5] = ACTIONS(5102),
-    [anon_sym_DOT] = ACTIONS(5098),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
-    [anon_sym_LBRACK] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
-    [aux_sym_null_literal_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5098),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5098),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5098),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5098),
-    [aux_sym_identifier_token1] = ACTIONS(5098),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5102),
-    [sym__float_literal] = ACTIONS(5102),
-    [sym__boz_literal] = ACTIONS(5102),
-    [sym__string_literal] = ACTIONS(5102),
-    [sym__string_literal_kind] = ACTIONS(5102),
-  },
-  [1541] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
-  },
-  [1542] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1543] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1544] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
+  [1231] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5243),
+    [aux_sym_preproc_def_token1] = ACTIONS(5243),
+    [aux_sym_preproc_if_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5243),
+    [sym_preproc_directive] = ACTIONS(5243),
+    [anon_sym_LPAREN2] = ACTIONS(5243),
+    [sym_preproc_comment] = ACTIONS(5245),
+    [anon_sym_PLUS] = ACTIONS(5247),
+    [anon_sym_DASH] = ACTIONS(5247),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5243),
+    [aux_sym_interface_statement_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5243),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5243),
+    [aux_sym_language_binding_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5243),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5243),
+    [aux_sym_contains_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token2] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5243),
+    [aux_sym_save_statement_token1] = ACTIONS(5243),
+    [aux_sym_private_statement_token1] = ACTIONS(5243),
+    [aux_sym_public_statement_token1] = ACTIONS(5243),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5243),
+    [aux_sym_common_statement_token1] = ACTIONS(5243),
+    [aux_sym_import_statement_token1] = ACTIONS(5243),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5243),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5243),
+    [aux_sym_derived_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5243),
+    [anon_sym_SEMI] = ACTIONS(5247),
+    [aux_sym_stop_statement_token1] = ACTIONS(5243),
+    [aux_sym_stop_statement_token2] = ACTIONS(5243),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5243),
+    [aux_sym_include_statement_token1] = ACTIONS(5243),
+    [aux_sym_data_statement_token1] = ACTIONS(5243),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5243),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5243),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5243),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5243),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5243),
+    [aux_sym_block_construct_token1] = ACTIONS(5243),
+    [aux_sym_associate_statement_token1] = ACTIONS(5243),
+    [aux_sym_format_statement_token1] = ACTIONS(5243),
+    [aux_sym_print_statement_token1] = ACTIONS(5243),
+    [aux_sym_open_statement_token1] = ACTIONS(5243),
+    [aux_sym_close_statement_token1] = ACTIONS(5243),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5243),
+    [aux_sym_enum_statement_token1] = ACTIONS(5243),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5243),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5243),
+    [aux_sym_entry_statement_token1] = ACTIONS(5243),
+    [aux_sym_logical_expression_token5] = ACTIONS(5247),
+    [anon_sym_DOT] = ACTIONS(5243),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5247),
+    [anon_sym_LBRACK] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5247),
+    [aux_sym_null_literal_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5243),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5243),
+    [aux_sym_identifier_token1] = ACTIONS(5243),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5247),
+    [sym__float_literal] = ACTIONS(5247),
+    [sym__boz_literal] = ACTIONS(5247),
+    [sym__string_literal] = ACTIONS(5247),
+    [sym__string_literal_kind] = ACTIONS(5247),
   },
-  [1545] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1232] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1546] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5465),
-    [aux_sym_preproc_def_token1] = ACTIONS(5465),
-    [aux_sym_preproc_if_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
-    [sym_preproc_directive] = ACTIONS(5465),
-    [anon_sym_LPAREN2] = ACTIONS(5465),
-    [anon_sym_PLUS] = ACTIONS(5467),
-    [anon_sym_DASH] = ACTIONS(5467),
+  [1233] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5249),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
-    [aux_sym_interface_statement_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5465),
-    [aux_sym_language_binding_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
-    [aux_sym_contains_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token2] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
-    [aux_sym_save_statement_token1] = ACTIONS(5465),
-    [aux_sym_private_statement_token1] = ACTIONS(5465),
-    [aux_sym_public_statement_token1] = ACTIONS(5465),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
-    [aux_sym_common_statement_token1] = ACTIONS(5465),
-    [aux_sym_import_statement_token1] = ACTIONS(5465),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
-    [aux_sym_derived_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
-    [anon_sym_SEMI] = ACTIONS(5467),
-    [aux_sym_stop_statement_token1] = ACTIONS(5465),
-    [aux_sym_stop_statement_token2] = ACTIONS(5465),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
-    [aux_sym_include_statement_token1] = ACTIONS(5465),
-    [aux_sym_data_statement_token1] = ACTIONS(5465),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
-    [aux_sym_block_construct_token1] = ACTIONS(5465),
-    [aux_sym_associate_statement_token1] = ACTIONS(5465),
-    [aux_sym_format_statement_token1] = ACTIONS(5465),
-    [aux_sym_print_statement_token1] = ACTIONS(5465),
-    [aux_sym_open_statement_token1] = ACTIONS(5465),
-    [aux_sym_close_statement_token1] = ACTIONS(5465),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
-    [aux_sym_enum_statement_token1] = ACTIONS(5465),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
-    [aux_sym_entry_statement_token1] = ACTIONS(5465),
-    [aux_sym_logical_expression_token5] = ACTIONS(5467),
-    [anon_sym_DOT] = ACTIONS(5465),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
-    [anon_sym_LBRACK] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
-    [aux_sym_null_literal_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
-    [aux_sym_identifier_token1] = ACTIONS(5465),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5467),
-    [sym__float_literal] = ACTIONS(5467),
-    [sym__boz_literal] = ACTIONS(5467),
-    [sym__string_literal] = ACTIONS(5467),
-    [sym__string_literal_kind] = ACTIONS(5467),
-  },
-  [1547] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1548] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1234] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1549] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5477),
-    [aux_sym_preproc_def_token1] = ACTIONS(5477),
-    [aux_sym_preproc_if_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
-    [sym_preproc_directive] = ACTIONS(5477),
-    [anon_sym_LPAREN2] = ACTIONS(5477),
-    [anon_sym_PLUS] = ACTIONS(5479),
-    [anon_sym_DASH] = ACTIONS(5479),
+  [1235] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5251),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1236] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5253),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1237] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [sym_preproc_comment] = ACTIONS(5255),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
-    [aux_sym_interface_statement_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5477),
-    [aux_sym_language_binding_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
-    [aux_sym_contains_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token2] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
-    [aux_sym_save_statement_token1] = ACTIONS(5477),
-    [aux_sym_private_statement_token1] = ACTIONS(5477),
-    [aux_sym_public_statement_token1] = ACTIONS(5477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
-    [aux_sym_common_statement_token1] = ACTIONS(5477),
-    [aux_sym_import_statement_token1] = ACTIONS(5477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
-    [aux_sym_derived_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
-    [anon_sym_SEMI] = ACTIONS(5479),
-    [aux_sym_stop_statement_token1] = ACTIONS(5477),
-    [aux_sym_stop_statement_token2] = ACTIONS(5477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
-    [aux_sym_include_statement_token1] = ACTIONS(5477),
-    [aux_sym_data_statement_token1] = ACTIONS(5477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
-    [aux_sym_block_construct_token1] = ACTIONS(5477),
-    [aux_sym_associate_statement_token1] = ACTIONS(5477),
-    [aux_sym_format_statement_token1] = ACTIONS(5477),
-    [aux_sym_print_statement_token1] = ACTIONS(5477),
-    [aux_sym_open_statement_token1] = ACTIONS(5477),
-    [aux_sym_close_statement_token1] = ACTIONS(5477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
-    [aux_sym_enum_statement_token1] = ACTIONS(5477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
-    [aux_sym_entry_statement_token1] = ACTIONS(5477),
-    [aux_sym_logical_expression_token5] = ACTIONS(5479),
-    [anon_sym_DOT] = ACTIONS(5477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
-    [anon_sym_LBRACK] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
-    [aux_sym_null_literal_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
-    [aux_sym_identifier_token1] = ACTIONS(5477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5479),
-    [sym__float_literal] = ACTIONS(5479),
-    [sym__boz_literal] = ACTIONS(5479),
-    [sym__string_literal] = ACTIONS(5479),
-    [sym__string_literal_kind] = ACTIONS(5479),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1550] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5477),
-    [aux_sym_preproc_def_token1] = ACTIONS(5477),
-    [aux_sym_preproc_if_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
-    [sym_preproc_directive] = ACTIONS(5477),
-    [anon_sym_LPAREN2] = ACTIONS(5477),
-    [anon_sym_PLUS] = ACTIONS(5479),
-    [anon_sym_DASH] = ACTIONS(5479),
+  [1238] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5229),
+    [aux_sym_preproc_def_token1] = ACTIONS(5229),
+    [aux_sym_preproc_if_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5229),
+    [sym_preproc_directive] = ACTIONS(5229),
+    [anon_sym_LPAREN2] = ACTIONS(5229),
+    [sym_preproc_comment] = ACTIONS(5257),
+    [anon_sym_PLUS] = ACTIONS(5233),
+    [anon_sym_DASH] = ACTIONS(5233),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5229),
+    [aux_sym_interface_statement_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5229),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5229),
+    [aux_sym_language_binding_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5229),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5229),
+    [aux_sym_contains_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token2] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5229),
+    [aux_sym_save_statement_token1] = ACTIONS(5229),
+    [aux_sym_private_statement_token1] = ACTIONS(5229),
+    [aux_sym_public_statement_token1] = ACTIONS(5229),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5229),
+    [aux_sym_common_statement_token1] = ACTIONS(5229),
+    [aux_sym_import_statement_token1] = ACTIONS(5229),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5229),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5229),
+    [aux_sym_derived_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5229),
+    [anon_sym_SEMI] = ACTIONS(5233),
+    [aux_sym_stop_statement_token1] = ACTIONS(5229),
+    [aux_sym_stop_statement_token2] = ACTIONS(5229),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5229),
+    [aux_sym_include_statement_token1] = ACTIONS(5229),
+    [aux_sym_data_statement_token1] = ACTIONS(5229),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5229),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5229),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5229),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5229),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5229),
+    [aux_sym_block_construct_token1] = ACTIONS(5229),
+    [aux_sym_associate_statement_token1] = ACTIONS(5229),
+    [aux_sym_format_statement_token1] = ACTIONS(5229),
+    [aux_sym_print_statement_token1] = ACTIONS(5229),
+    [aux_sym_open_statement_token1] = ACTIONS(5229),
+    [aux_sym_close_statement_token1] = ACTIONS(5229),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5229),
+    [aux_sym_enum_statement_token1] = ACTIONS(5229),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5229),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5229),
+    [aux_sym_entry_statement_token1] = ACTIONS(5229),
+    [aux_sym_logical_expression_token5] = ACTIONS(5233),
+    [anon_sym_DOT] = ACTIONS(5229),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5233),
+    [anon_sym_LBRACK] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5233),
+    [aux_sym_null_literal_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5229),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5229),
+    [aux_sym_identifier_token1] = ACTIONS(5229),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5233),
+    [sym__float_literal] = ACTIONS(5233),
+    [sym__boz_literal] = ACTIONS(5233),
+    [sym__string_literal] = ACTIONS(5233),
+    [sym__string_literal_kind] = ACTIONS(5233),
+  },
+  [1239] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5259),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1240] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5261),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5477),
-    [aux_sym_interface_statement_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
-    [aux_sym_language_binding_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
-    [aux_sym_contains_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token1] = ACTIONS(5477),
-    [aux_sym_use_statement_token2] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
-    [aux_sym_save_statement_token1] = ACTIONS(5477),
-    [aux_sym_private_statement_token1] = ACTIONS(5477),
-    [aux_sym_public_statement_token1] = ACTIONS(5477),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
-    [aux_sym_common_statement_token1] = ACTIONS(5477),
-    [aux_sym_import_statement_token1] = ACTIONS(5477),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
-    [aux_sym_derived_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token1] = ACTIONS(5477),
-    [aux_sym_declared_type_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
-    [anon_sym_SEMI] = ACTIONS(5479),
-    [aux_sym_stop_statement_token1] = ACTIONS(5477),
-    [aux_sym_stop_statement_token2] = ACTIONS(5477),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
-    [aux_sym_include_statement_token1] = ACTIONS(5477),
-    [aux_sym_data_statement_token1] = ACTIONS(5477),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
-    [aux_sym_block_construct_token1] = ACTIONS(5477),
-    [aux_sym_associate_statement_token1] = ACTIONS(5477),
-    [aux_sym_format_statement_token1] = ACTIONS(5477),
-    [aux_sym_print_statement_token1] = ACTIONS(5477),
-    [aux_sym_open_statement_token1] = ACTIONS(5477),
-    [aux_sym_close_statement_token1] = ACTIONS(5477),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
-    [aux_sym_enum_statement_token1] = ACTIONS(5477),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
-    [aux_sym_entry_statement_token1] = ACTIONS(5477),
-    [aux_sym_logical_expression_token5] = ACTIONS(5479),
-    [anon_sym_DOT] = ACTIONS(5477),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
-    [anon_sym_LBRACK] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
-    [aux_sym_null_literal_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
-    [aux_sym_identifier_token1] = ACTIONS(5477),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5479),
-    [sym__float_literal] = ACTIONS(5479),
-    [sym__boz_literal] = ACTIONS(5479),
-    [sym__string_literal] = ACTIONS(5479),
-    [sym__string_literal_kind] = ACTIONS(5479),
-  },
-  [1551] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1552] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5465),
-    [aux_sym_preproc_def_token1] = ACTIONS(5465),
-    [aux_sym_preproc_if_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
-    [sym_preproc_directive] = ACTIONS(5465),
-    [anon_sym_LPAREN2] = ACTIONS(5465),
-    [anon_sym_PLUS] = ACTIONS(5467),
-    [anon_sym_DASH] = ACTIONS(5467),
+  [1241] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5465),
-    [aux_sym_interface_statement_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
-    [aux_sym_language_binding_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
-    [aux_sym_contains_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token2] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
-    [aux_sym_save_statement_token1] = ACTIONS(5465),
-    [aux_sym_private_statement_token1] = ACTIONS(5465),
-    [aux_sym_public_statement_token1] = ACTIONS(5465),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
-    [aux_sym_common_statement_token1] = ACTIONS(5465),
-    [aux_sym_import_statement_token1] = ACTIONS(5465),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
-    [aux_sym_derived_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
-    [anon_sym_SEMI] = ACTIONS(5467),
-    [aux_sym_stop_statement_token1] = ACTIONS(5465),
-    [aux_sym_stop_statement_token2] = ACTIONS(5465),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
-    [aux_sym_include_statement_token1] = ACTIONS(5465),
-    [aux_sym_data_statement_token1] = ACTIONS(5465),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
-    [aux_sym_block_construct_token1] = ACTIONS(5465),
-    [aux_sym_associate_statement_token1] = ACTIONS(5465),
-    [aux_sym_format_statement_token1] = ACTIONS(5465),
-    [aux_sym_print_statement_token1] = ACTIONS(5465),
-    [aux_sym_open_statement_token1] = ACTIONS(5465),
-    [aux_sym_close_statement_token1] = ACTIONS(5465),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
-    [aux_sym_enum_statement_token1] = ACTIONS(5465),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
-    [aux_sym_entry_statement_token1] = ACTIONS(5465),
-    [aux_sym_logical_expression_token5] = ACTIONS(5467),
-    [anon_sym_DOT] = ACTIONS(5465),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
-    [anon_sym_LBRACK] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
-    [aux_sym_null_literal_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
-    [aux_sym_identifier_token1] = ACTIONS(5465),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5467),
-    [sym__float_literal] = ACTIONS(5467),
-    [sym__boz_literal] = ACTIONS(5467),
-    [sym__string_literal] = ACTIONS(5467),
-    [sym__string_literal_kind] = ACTIONS(5467),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1553] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+  [1242] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5263),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1554] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1243] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5185),
+    [aux_sym_preproc_def_token1] = ACTIONS(5185),
+    [aux_sym_preproc_if_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5185),
+    [sym_preproc_directive] = ACTIONS(5185),
+    [anon_sym_LPAREN2] = ACTIONS(5185),
+    [sym_preproc_comment] = ACTIONS(5265),
+    [anon_sym_PLUS] = ACTIONS(5189),
+    [anon_sym_DASH] = ACTIONS(5189),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5185),
+    [aux_sym_interface_statement_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5185),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5185),
+    [aux_sym_language_binding_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5185),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5185),
+    [aux_sym_contains_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token2] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5185),
+    [aux_sym_save_statement_token1] = ACTIONS(5185),
+    [aux_sym_private_statement_token1] = ACTIONS(5185),
+    [aux_sym_public_statement_token1] = ACTIONS(5185),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5185),
+    [aux_sym_common_statement_token1] = ACTIONS(5185),
+    [aux_sym_import_statement_token1] = ACTIONS(5185),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5185),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5185),
+    [aux_sym_derived_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5185),
+    [anon_sym_SEMI] = ACTIONS(5189),
+    [aux_sym_stop_statement_token1] = ACTIONS(5185),
+    [aux_sym_stop_statement_token2] = ACTIONS(5185),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5185),
+    [aux_sym_include_statement_token1] = ACTIONS(5185),
+    [aux_sym_data_statement_token1] = ACTIONS(5185),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5185),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5185),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5185),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5185),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5185),
+    [aux_sym_block_construct_token1] = ACTIONS(5185),
+    [aux_sym_associate_statement_token1] = ACTIONS(5185),
+    [aux_sym_format_statement_token1] = ACTIONS(5185),
+    [aux_sym_print_statement_token1] = ACTIONS(5185),
+    [aux_sym_open_statement_token1] = ACTIONS(5185),
+    [aux_sym_close_statement_token1] = ACTIONS(5185),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5185),
+    [aux_sym_enum_statement_token1] = ACTIONS(5185),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5185),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5185),
+    [aux_sym_entry_statement_token1] = ACTIONS(5185),
+    [aux_sym_logical_expression_token5] = ACTIONS(5189),
+    [anon_sym_DOT] = ACTIONS(5185),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5189),
+    [anon_sym_LBRACK] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5189),
+    [aux_sym_null_literal_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5185),
+    [aux_sym_identifier_token1] = ACTIONS(5185),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5189),
+    [sym__float_literal] = ACTIONS(5189),
+    [sym__boz_literal] = ACTIONS(5189),
+    [sym__string_literal] = ACTIONS(5189),
+    [sym__string_literal_kind] = ACTIONS(5189),
+  },
+  [1244] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1555] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5457),
-    [aux_sym_preproc_def_token1] = ACTIONS(5457),
-    [aux_sym_preproc_if_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
-    [sym_preproc_directive] = ACTIONS(5457),
-    [anon_sym_LPAREN2] = ACTIONS(5457),
-    [anon_sym_PLUS] = ACTIONS(5459),
-    [anon_sym_DASH] = ACTIONS(5459),
+  [1245] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token2] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
-    [aux_sym_interface_statement_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5457),
-    [aux_sym_language_binding_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
-    [aux_sym_contains_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token2] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
-    [aux_sym_save_statement_token1] = ACTIONS(5457),
-    [aux_sym_private_statement_token1] = ACTIONS(5457),
-    [aux_sym_public_statement_token1] = ACTIONS(5457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
-    [aux_sym_common_statement_token1] = ACTIONS(5457),
-    [aux_sym_import_statement_token1] = ACTIONS(5457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
-    [aux_sym_derived_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
-    [anon_sym_SEMI] = ACTIONS(5459),
-    [aux_sym_stop_statement_token1] = ACTIONS(5457),
-    [aux_sym_stop_statement_token2] = ACTIONS(5457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
-    [aux_sym_include_statement_token1] = ACTIONS(5457),
-    [aux_sym_data_statement_token1] = ACTIONS(5457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
-    [aux_sym_block_construct_token1] = ACTIONS(5457),
-    [aux_sym_associate_statement_token1] = ACTIONS(5457),
-    [aux_sym_format_statement_token1] = ACTIONS(5457),
-    [aux_sym_print_statement_token1] = ACTIONS(5457),
-    [aux_sym_open_statement_token1] = ACTIONS(5457),
-    [aux_sym_close_statement_token1] = ACTIONS(5457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
-    [aux_sym_enum_statement_token1] = ACTIONS(5457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
-    [aux_sym_entry_statement_token1] = ACTIONS(5457),
-    [aux_sym_logical_expression_token5] = ACTIONS(5459),
-    [anon_sym_DOT] = ACTIONS(5457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
-    [anon_sym_LBRACK] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
-    [aux_sym_null_literal_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
-    [aux_sym_identifier_token1] = ACTIONS(5457),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5459),
-    [sym__float_literal] = ACTIONS(5459),
-    [sym__boz_literal] = ACTIONS(5459),
-    [sym__string_literal] = ACTIONS(5459),
-    [sym__string_literal_kind] = ACTIONS(5459),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1556] = {
+  [1246] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5132),
     [aux_sym_preproc_def_token1] = ACTIONS(5132),
     [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token2] = ACTIONS(5132),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
     [sym_preproc_directive] = ACTIONS(5132),
@@ -307184,1180 +266652,4203 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5134),
     [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1557] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+  [1247] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5267),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1248] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5169),
+    [aux_sym_preproc_def_token1] = ACTIONS(5169),
+    [aux_sym_preproc_if_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5169),
+    [sym_preproc_directive] = ACTIONS(5169),
+    [anon_sym_LPAREN2] = ACTIONS(5169),
+    [sym_preproc_comment] = ACTIONS(5269),
+    [anon_sym_PLUS] = ACTIONS(5173),
+    [anon_sym_DASH] = ACTIONS(5173),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5169),
+    [aux_sym_interface_statement_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5169),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5169),
+    [aux_sym_language_binding_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5169),
+    [aux_sym_contains_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token2] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5169),
+    [aux_sym_save_statement_token1] = ACTIONS(5169),
+    [aux_sym_private_statement_token1] = ACTIONS(5169),
+    [aux_sym_public_statement_token1] = ACTIONS(5169),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5169),
+    [aux_sym_common_statement_token1] = ACTIONS(5169),
+    [aux_sym_import_statement_token1] = ACTIONS(5169),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5169),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5169),
+    [aux_sym_derived_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5169),
+    [anon_sym_SEMI] = ACTIONS(5173),
+    [aux_sym_stop_statement_token1] = ACTIONS(5169),
+    [aux_sym_stop_statement_token2] = ACTIONS(5169),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5169),
+    [aux_sym_include_statement_token1] = ACTIONS(5169),
+    [aux_sym_data_statement_token1] = ACTIONS(5169),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5169),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5169),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5169),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5169),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5169),
+    [aux_sym_block_construct_token1] = ACTIONS(5169),
+    [aux_sym_associate_statement_token1] = ACTIONS(5169),
+    [aux_sym_format_statement_token1] = ACTIONS(5169),
+    [aux_sym_print_statement_token1] = ACTIONS(5169),
+    [aux_sym_open_statement_token1] = ACTIONS(5169),
+    [aux_sym_close_statement_token1] = ACTIONS(5169),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5169),
+    [aux_sym_enum_statement_token1] = ACTIONS(5169),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5169),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5169),
+    [aux_sym_entry_statement_token1] = ACTIONS(5169),
+    [aux_sym_logical_expression_token5] = ACTIONS(5173),
+    [anon_sym_DOT] = ACTIONS(5169),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5173),
+    [anon_sym_LBRACK] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5173),
+    [aux_sym_null_literal_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5169),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5169),
+    [aux_sym_identifier_token1] = ACTIONS(5169),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5173),
+    [sym__float_literal] = ACTIONS(5173),
+    [sym__boz_literal] = ACTIONS(5173),
+    [sym__string_literal] = ACTIONS(5173),
+    [sym__string_literal_kind] = ACTIONS(5173),
+  },
+  [1249] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5271),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1250] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5273),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [1251] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5243),
+    [aux_sym_preproc_def_token1] = ACTIONS(5243),
+    [aux_sym_preproc_if_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5243),
+    [sym_preproc_directive] = ACTIONS(5243),
+    [anon_sym_LPAREN2] = ACTIONS(5243),
+    [sym_preproc_comment] = ACTIONS(5275),
+    [anon_sym_PLUS] = ACTIONS(5247),
+    [anon_sym_DASH] = ACTIONS(5247),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5243),
+    [aux_sym_interface_statement_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5243),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5243),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5243),
+    [aux_sym_language_binding_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5243),
+    [aux_sym_contains_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token2] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5243),
+    [aux_sym_save_statement_token1] = ACTIONS(5243),
+    [aux_sym_private_statement_token1] = ACTIONS(5243),
+    [aux_sym_public_statement_token1] = ACTIONS(5243),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5243),
+    [aux_sym_common_statement_token1] = ACTIONS(5243),
+    [aux_sym_import_statement_token1] = ACTIONS(5243),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5243),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5243),
+    [aux_sym_derived_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5243),
+    [anon_sym_SEMI] = ACTIONS(5247),
+    [aux_sym_stop_statement_token1] = ACTIONS(5243),
+    [aux_sym_stop_statement_token2] = ACTIONS(5243),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5243),
+    [aux_sym_include_statement_token1] = ACTIONS(5243),
+    [aux_sym_data_statement_token1] = ACTIONS(5243),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5243),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5243),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5243),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5243),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5243),
+    [aux_sym_block_construct_token1] = ACTIONS(5243),
+    [aux_sym_associate_statement_token1] = ACTIONS(5243),
+    [aux_sym_format_statement_token1] = ACTIONS(5243),
+    [aux_sym_print_statement_token1] = ACTIONS(5243),
+    [aux_sym_open_statement_token1] = ACTIONS(5243),
+    [aux_sym_close_statement_token1] = ACTIONS(5243),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5243),
+    [aux_sym_enum_statement_token1] = ACTIONS(5243),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5243),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5243),
+    [aux_sym_entry_statement_token1] = ACTIONS(5243),
+    [aux_sym_logical_expression_token5] = ACTIONS(5247),
+    [anon_sym_DOT] = ACTIONS(5243),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5247),
+    [anon_sym_LBRACK] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5247),
+    [aux_sym_null_literal_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5243),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5243),
+    [aux_sym_identifier_token1] = ACTIONS(5243),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5247),
+    [sym__float_literal] = ACTIONS(5247),
+    [sym__boz_literal] = ACTIONS(5247),
+    [sym__string_literal] = ACTIONS(5247),
+    [sym__string_literal_kind] = ACTIONS(5247),
+  },
+  [1252] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5177),
+    [aux_sym_preproc_def_token1] = ACTIONS(5177),
+    [aux_sym_preproc_if_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5177),
+    [sym_preproc_directive] = ACTIONS(5177),
+    [anon_sym_LPAREN2] = ACTIONS(5177),
+    [sym_preproc_comment] = ACTIONS(5277),
+    [anon_sym_PLUS] = ACTIONS(5181),
+    [anon_sym_DASH] = ACTIONS(5181),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5177),
+    [aux_sym_interface_statement_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5177),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5177),
+    [aux_sym_language_binding_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5177),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5177),
+    [aux_sym_contains_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token2] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5177),
+    [aux_sym_save_statement_token1] = ACTIONS(5177),
+    [aux_sym_private_statement_token1] = ACTIONS(5177),
+    [aux_sym_public_statement_token1] = ACTIONS(5177),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5177),
+    [aux_sym_common_statement_token1] = ACTIONS(5177),
+    [aux_sym_import_statement_token1] = ACTIONS(5177),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5177),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5177),
+    [aux_sym_derived_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5177),
+    [anon_sym_SEMI] = ACTIONS(5181),
+    [aux_sym_stop_statement_token1] = ACTIONS(5177),
+    [aux_sym_stop_statement_token2] = ACTIONS(5177),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5177),
+    [aux_sym_include_statement_token1] = ACTIONS(5177),
+    [aux_sym_data_statement_token1] = ACTIONS(5177),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5177),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5177),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5177),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5177),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5177),
+    [aux_sym_block_construct_token1] = ACTIONS(5177),
+    [aux_sym_associate_statement_token1] = ACTIONS(5177),
+    [aux_sym_format_statement_token1] = ACTIONS(5177),
+    [aux_sym_print_statement_token1] = ACTIONS(5177),
+    [aux_sym_open_statement_token1] = ACTIONS(5177),
+    [aux_sym_close_statement_token1] = ACTIONS(5177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5177),
+    [aux_sym_enum_statement_token1] = ACTIONS(5177),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5177),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5177),
+    [aux_sym_entry_statement_token1] = ACTIONS(5177),
+    [aux_sym_logical_expression_token5] = ACTIONS(5181),
+    [anon_sym_DOT] = ACTIONS(5177),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5181),
+    [anon_sym_LBRACK] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5181),
+    [aux_sym_null_literal_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5177),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5177),
+    [aux_sym_identifier_token1] = ACTIONS(5177),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5181),
+    [sym__float_literal] = ACTIONS(5181),
+    [sym__boz_literal] = ACTIONS(5181),
+    [sym__string_literal] = ACTIONS(5181),
+    [sym__string_literal_kind] = ACTIONS(5181),
+  },
+  [1253] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5279),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1254] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5281),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1255] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5283),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [1256] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5285),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1257] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5185),
+    [aux_sym_preproc_def_token1] = ACTIONS(5185),
+    [aux_sym_preproc_if_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5185),
+    [sym_preproc_directive] = ACTIONS(5185),
+    [anon_sym_LPAREN2] = ACTIONS(5185),
+    [sym_preproc_comment] = ACTIONS(5287),
+    [anon_sym_PLUS] = ACTIONS(5189),
+    [anon_sym_DASH] = ACTIONS(5189),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5185),
+    [aux_sym_interface_statement_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5185),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5185),
+    [aux_sym_language_binding_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5185),
+    [aux_sym_contains_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token2] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5185),
+    [aux_sym_save_statement_token1] = ACTIONS(5185),
+    [aux_sym_private_statement_token1] = ACTIONS(5185),
+    [aux_sym_public_statement_token1] = ACTIONS(5185),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5185),
+    [aux_sym_common_statement_token1] = ACTIONS(5185),
+    [aux_sym_import_statement_token1] = ACTIONS(5185),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5185),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5185),
+    [aux_sym_derived_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5185),
+    [anon_sym_SEMI] = ACTIONS(5189),
+    [aux_sym_stop_statement_token1] = ACTIONS(5185),
+    [aux_sym_stop_statement_token2] = ACTIONS(5185),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5185),
+    [aux_sym_include_statement_token1] = ACTIONS(5185),
+    [aux_sym_data_statement_token1] = ACTIONS(5185),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5185),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5185),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5185),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5185),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5185),
+    [aux_sym_block_construct_token1] = ACTIONS(5185),
+    [aux_sym_associate_statement_token1] = ACTIONS(5185),
+    [aux_sym_format_statement_token1] = ACTIONS(5185),
+    [aux_sym_print_statement_token1] = ACTIONS(5185),
+    [aux_sym_open_statement_token1] = ACTIONS(5185),
+    [aux_sym_close_statement_token1] = ACTIONS(5185),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5185),
+    [aux_sym_enum_statement_token1] = ACTIONS(5185),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5185),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5185),
+    [aux_sym_entry_statement_token1] = ACTIONS(5185),
+    [aux_sym_logical_expression_token5] = ACTIONS(5189),
+    [anon_sym_DOT] = ACTIONS(5185),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5189),
+    [anon_sym_LBRACK] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5189),
+    [aux_sym_null_literal_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5185),
+    [aux_sym_identifier_token1] = ACTIONS(5185),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5189),
+    [sym__float_literal] = ACTIONS(5189),
+    [sym__boz_literal] = ACTIONS(5189),
+    [sym__string_literal] = ACTIONS(5189),
+    [sym__string_literal_kind] = ACTIONS(5189),
+  },
+  [1258] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5289),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
+  },
+  [1259] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1260] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1261] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5177),
+    [aux_sym_preproc_def_token1] = ACTIONS(5177),
+    [aux_sym_preproc_if_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5177),
+    [sym_preproc_directive] = ACTIONS(5177),
+    [anon_sym_LPAREN2] = ACTIONS(5177),
+    [sym_preproc_comment] = ACTIONS(5291),
+    [anon_sym_PLUS] = ACTIONS(5181),
+    [anon_sym_DASH] = ACTIONS(5181),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5177),
+    [aux_sym_interface_statement_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5177),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5177),
+    [aux_sym_language_binding_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5177),
+    [aux_sym_contains_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token2] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5177),
+    [aux_sym_save_statement_token1] = ACTIONS(5177),
+    [aux_sym_private_statement_token1] = ACTIONS(5177),
+    [aux_sym_public_statement_token1] = ACTIONS(5177),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5177),
+    [aux_sym_common_statement_token1] = ACTIONS(5177),
+    [aux_sym_import_statement_token1] = ACTIONS(5177),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5177),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5177),
+    [aux_sym_derived_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5177),
+    [anon_sym_SEMI] = ACTIONS(5181),
+    [aux_sym_stop_statement_token1] = ACTIONS(5177),
+    [aux_sym_stop_statement_token2] = ACTIONS(5177),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5177),
+    [aux_sym_include_statement_token1] = ACTIONS(5177),
+    [aux_sym_data_statement_token1] = ACTIONS(5177),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5177),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5177),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5177),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5177),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5177),
+    [aux_sym_block_construct_token1] = ACTIONS(5177),
+    [aux_sym_associate_statement_token1] = ACTIONS(5177),
+    [aux_sym_format_statement_token1] = ACTIONS(5177),
+    [aux_sym_print_statement_token1] = ACTIONS(5177),
+    [aux_sym_open_statement_token1] = ACTIONS(5177),
+    [aux_sym_close_statement_token1] = ACTIONS(5177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5177),
+    [aux_sym_enum_statement_token1] = ACTIONS(5177),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5177),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5177),
+    [aux_sym_entry_statement_token1] = ACTIONS(5177),
+    [aux_sym_logical_expression_token5] = ACTIONS(5181),
+    [anon_sym_DOT] = ACTIONS(5177),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5181),
+    [anon_sym_LBRACK] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5181),
+    [aux_sym_null_literal_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5177),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5177),
+    [aux_sym_identifier_token1] = ACTIONS(5177),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5181),
+    [sym__float_literal] = ACTIONS(5181),
+    [sym__boz_literal] = ACTIONS(5181),
+    [sym__string_literal] = ACTIONS(5181),
+    [sym__string_literal_kind] = ACTIONS(5181),
+  },
+  [1262] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
+  },
+  [1263] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5293),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1264] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5295),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1265] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5195),
+    [aux_sym_preproc_def_token1] = ACTIONS(5195),
+    [aux_sym_preproc_if_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5195),
+    [sym_preproc_directive] = ACTIONS(5195),
+    [anon_sym_LPAREN2] = ACTIONS(5195),
+    [sym_preproc_comment] = ACTIONS(5297),
+    [anon_sym_PLUS] = ACTIONS(5199),
+    [anon_sym_DASH] = ACTIONS(5199),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5195),
+    [aux_sym_interface_statement_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5195),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5195),
+    [aux_sym_language_binding_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5195),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5195),
+    [aux_sym_contains_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token2] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5195),
+    [aux_sym_save_statement_token1] = ACTIONS(5195),
+    [aux_sym_private_statement_token1] = ACTIONS(5195),
+    [aux_sym_public_statement_token1] = ACTIONS(5195),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5195),
+    [aux_sym_common_statement_token1] = ACTIONS(5195),
+    [aux_sym_import_statement_token1] = ACTIONS(5195),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5195),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5195),
+    [aux_sym_derived_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5195),
+    [anon_sym_SEMI] = ACTIONS(5199),
+    [aux_sym_stop_statement_token1] = ACTIONS(5195),
+    [aux_sym_stop_statement_token2] = ACTIONS(5195),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5195),
+    [aux_sym_include_statement_token1] = ACTIONS(5195),
+    [aux_sym_data_statement_token1] = ACTIONS(5195),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5195),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5195),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5195),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5195),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5195),
+    [aux_sym_block_construct_token1] = ACTIONS(5195),
+    [aux_sym_associate_statement_token1] = ACTIONS(5195),
+    [aux_sym_format_statement_token1] = ACTIONS(5195),
+    [aux_sym_print_statement_token1] = ACTIONS(5195),
+    [aux_sym_open_statement_token1] = ACTIONS(5195),
+    [aux_sym_close_statement_token1] = ACTIONS(5195),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5195),
+    [aux_sym_enum_statement_token1] = ACTIONS(5195),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5195),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5195),
+    [aux_sym_entry_statement_token1] = ACTIONS(5195),
+    [aux_sym_logical_expression_token5] = ACTIONS(5199),
+    [anon_sym_DOT] = ACTIONS(5195),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5199),
+    [anon_sym_LBRACK] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5199),
+    [aux_sym_null_literal_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5195),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5195),
+    [aux_sym_identifier_token1] = ACTIONS(5195),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5199),
+    [sym__float_literal] = ACTIONS(5199),
+    [sym__boz_literal] = ACTIONS(5199),
+    [sym__string_literal] = ACTIONS(5199),
+    [sym__string_literal_kind] = ACTIONS(5199),
+  },
+  [1266] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5299),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
+  },
+  [1267] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5301),
+    [aux_sym_preproc_def_token1] = ACTIONS(5301),
+    [aux_sym_preproc_if_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5301),
+    [sym_preproc_directive] = ACTIONS(5301),
+    [anon_sym_LPAREN2] = ACTIONS(5301),
+    [sym_preproc_comment] = ACTIONS(5303),
+    [anon_sym_PLUS] = ACTIONS(5305),
+    [anon_sym_DASH] = ACTIONS(5305),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5301),
+    [aux_sym_interface_statement_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5301),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5301),
+    [aux_sym_language_binding_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5301),
+    [aux_sym_contains_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token2] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5301),
+    [aux_sym_save_statement_token1] = ACTIONS(5301),
+    [aux_sym_private_statement_token1] = ACTIONS(5301),
+    [aux_sym_public_statement_token1] = ACTIONS(5301),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5301),
+    [aux_sym_common_statement_token1] = ACTIONS(5301),
+    [aux_sym_import_statement_token1] = ACTIONS(5301),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5301),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5301),
+    [aux_sym_derived_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5301),
+    [anon_sym_SEMI] = ACTIONS(5305),
+    [aux_sym_stop_statement_token1] = ACTIONS(5301),
+    [aux_sym_stop_statement_token2] = ACTIONS(5301),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5301),
+    [aux_sym_include_statement_token1] = ACTIONS(5301),
+    [aux_sym_data_statement_token1] = ACTIONS(5301),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5301),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5301),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5301),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5301),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5301),
+    [aux_sym_block_construct_token1] = ACTIONS(5301),
+    [aux_sym_associate_statement_token1] = ACTIONS(5301),
+    [aux_sym_format_statement_token1] = ACTIONS(5301),
+    [aux_sym_print_statement_token1] = ACTIONS(5301),
+    [aux_sym_open_statement_token1] = ACTIONS(5301),
+    [aux_sym_close_statement_token1] = ACTIONS(5301),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5301),
+    [aux_sym_enum_statement_token1] = ACTIONS(5301),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5301),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5301),
+    [aux_sym_entry_statement_token1] = ACTIONS(5301),
+    [aux_sym_logical_expression_token5] = ACTIONS(5305),
+    [anon_sym_DOT] = ACTIONS(5301),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5305),
+    [anon_sym_LBRACK] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5305),
+    [aux_sym_null_literal_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5301),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5301),
+    [aux_sym_identifier_token1] = ACTIONS(5301),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5305),
+    [sym__float_literal] = ACTIONS(5305),
+    [sym__boz_literal] = ACTIONS(5305),
+    [sym__string_literal] = ACTIONS(5305),
+    [sym__string_literal_kind] = ACTIONS(5305),
+  },
+  [1268] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [sym_preproc_comment] = ACTIONS(5307),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
+  },
+  [1269] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5243),
+    [aux_sym_preproc_def_token1] = ACTIONS(5243),
+    [aux_sym_preproc_if_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5243),
+    [sym_preproc_directive] = ACTIONS(5243),
+    [anon_sym_LPAREN2] = ACTIONS(5243),
+    [sym_preproc_comment] = ACTIONS(5309),
+    [anon_sym_PLUS] = ACTIONS(5247),
+    [anon_sym_DASH] = ACTIONS(5247),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5243),
+    [aux_sym_interface_statement_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5243),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5243),
+    [aux_sym_language_binding_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5243),
+    [aux_sym_contains_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token2] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5243),
+    [aux_sym_save_statement_token1] = ACTIONS(5243),
+    [aux_sym_private_statement_token1] = ACTIONS(5243),
+    [aux_sym_public_statement_token1] = ACTIONS(5243),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5243),
+    [aux_sym_common_statement_token1] = ACTIONS(5243),
+    [aux_sym_import_statement_token1] = ACTIONS(5243),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5243),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5243),
+    [aux_sym_derived_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5243),
+    [anon_sym_SEMI] = ACTIONS(5247),
+    [aux_sym_stop_statement_token1] = ACTIONS(5243),
+    [aux_sym_stop_statement_token2] = ACTIONS(5243),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5243),
+    [aux_sym_include_statement_token1] = ACTIONS(5243),
+    [aux_sym_data_statement_token1] = ACTIONS(5243),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5243),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5243),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5243),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5243),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5243),
+    [aux_sym_block_construct_token1] = ACTIONS(5243),
+    [aux_sym_associate_statement_token1] = ACTIONS(5243),
+    [aux_sym_format_statement_token1] = ACTIONS(5243),
+    [aux_sym_print_statement_token1] = ACTIONS(5243),
+    [aux_sym_open_statement_token1] = ACTIONS(5243),
+    [aux_sym_close_statement_token1] = ACTIONS(5243),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5243),
+    [aux_sym_enum_statement_token1] = ACTIONS(5243),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5243),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5243),
+    [aux_sym_entry_statement_token1] = ACTIONS(5243),
+    [aux_sym_logical_expression_token5] = ACTIONS(5247),
+    [anon_sym_DOT] = ACTIONS(5243),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5247),
+    [anon_sym_LBRACK] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5247),
+    [aux_sym_null_literal_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5243),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5243),
+    [aux_sym_identifier_token1] = ACTIONS(5243),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5247),
+    [sym__float_literal] = ACTIONS(5247),
+    [sym__boz_literal] = ACTIONS(5247),
+    [sym__string_literal] = ACTIONS(5247),
+    [sym__string_literal_kind] = ACTIONS(5247),
+  },
+  [1270] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5311),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1271] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5313),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
   },
-  [1558] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5024),
-    [aux_sym_preproc_def_token1] = ACTIONS(5024),
-    [aux_sym_preproc_if_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5024),
-    [sym_preproc_directive] = ACTIONS(5024),
-    [anon_sym_LPAREN2] = ACTIONS(5024),
-    [anon_sym_PLUS] = ACTIONS(5030),
-    [anon_sym_DASH] = ACTIONS(5030),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5024),
-    [aux_sym_interface_statement_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5024),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5024),
-    [aux_sym_language_binding_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5024),
-    [aux_sym_contains_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token1] = ACTIONS(5024),
-    [aux_sym_use_statement_token2] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5024),
-    [aux_sym_save_statement_token1] = ACTIONS(5024),
-    [aux_sym_private_statement_token1] = ACTIONS(5024),
-    [aux_sym_public_statement_token1] = ACTIONS(5024),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5024),
-    [aux_sym_common_statement_token1] = ACTIONS(5024),
-    [aux_sym_import_statement_token1] = ACTIONS(5024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5024),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5024),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5024),
-    [aux_sym_derived_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token1] = ACTIONS(5024),
-    [aux_sym_declared_type_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5024),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5024),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5024),
-    [anon_sym_SEMI] = ACTIONS(5030),
-    [aux_sym_stop_statement_token1] = ACTIONS(5024),
-    [aux_sym_stop_statement_token2] = ACTIONS(5024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5024),
-    [aux_sym_include_statement_token1] = ACTIONS(5024),
-    [aux_sym_data_statement_token1] = ACTIONS(5024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5024),
-    [aux_sym_block_construct_token1] = ACTIONS(5024),
-    [aux_sym_associate_statement_token1] = ACTIONS(5024),
-    [aux_sym_format_statement_token1] = ACTIONS(5024),
-    [aux_sym_print_statement_token1] = ACTIONS(5024),
-    [aux_sym_open_statement_token1] = ACTIONS(5024),
-    [aux_sym_close_statement_token1] = ACTIONS(5024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5024),
-    [aux_sym_enum_statement_token1] = ACTIONS(5024),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5024),
-    [aux_sym_entry_statement_token1] = ACTIONS(5024),
-    [aux_sym_logical_expression_token5] = ACTIONS(5030),
-    [anon_sym_DOT] = ACTIONS(5024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5030),
-    [anon_sym_LBRACK] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5030),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5030),
-    [aux_sym_null_literal_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5024),
-    [aux_sym_identifier_token1] = ACTIONS(5024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5030),
-    [sym__float_literal] = ACTIONS(5030),
-    [sym__boz_literal] = ACTIONS(5030),
-    [sym__string_literal] = ACTIONS(5030),
-    [sym__string_literal_kind] = ACTIONS(5030),
+  [1272] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5315),
+    [aux_sym_preproc_def_token1] = ACTIONS(5315),
+    [aux_sym_preproc_if_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5315),
+    [sym_preproc_directive] = ACTIONS(5315),
+    [anon_sym_LPAREN2] = ACTIONS(5315),
+    [sym_preproc_comment] = ACTIONS(5317),
+    [anon_sym_PLUS] = ACTIONS(5319),
+    [anon_sym_DASH] = ACTIONS(5319),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5315),
+    [aux_sym_interface_statement_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5315),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5315),
+    [aux_sym_language_binding_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5315),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5315),
+    [aux_sym_contains_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token2] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5315),
+    [aux_sym_save_statement_token1] = ACTIONS(5315),
+    [aux_sym_private_statement_token1] = ACTIONS(5315),
+    [aux_sym_public_statement_token1] = ACTIONS(5315),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5315),
+    [aux_sym_common_statement_token1] = ACTIONS(5315),
+    [aux_sym_import_statement_token1] = ACTIONS(5315),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5315),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5315),
+    [aux_sym_derived_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5315),
+    [anon_sym_SEMI] = ACTIONS(5319),
+    [aux_sym_stop_statement_token1] = ACTIONS(5315),
+    [aux_sym_stop_statement_token2] = ACTIONS(5315),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5315),
+    [aux_sym_include_statement_token1] = ACTIONS(5315),
+    [aux_sym_data_statement_token1] = ACTIONS(5315),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5315),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5315),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5315),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5315),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5315),
+    [aux_sym_block_construct_token1] = ACTIONS(5315),
+    [aux_sym_associate_statement_token1] = ACTIONS(5315),
+    [aux_sym_format_statement_token1] = ACTIONS(5315),
+    [aux_sym_print_statement_token1] = ACTIONS(5315),
+    [aux_sym_open_statement_token1] = ACTIONS(5315),
+    [aux_sym_close_statement_token1] = ACTIONS(5315),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5315),
+    [aux_sym_enum_statement_token1] = ACTIONS(5315),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5315),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5315),
+    [aux_sym_entry_statement_token1] = ACTIONS(5315),
+    [aux_sym_logical_expression_token5] = ACTIONS(5319),
+    [anon_sym_DOT] = ACTIONS(5315),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5319),
+    [anon_sym_LBRACK] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5319),
+    [aux_sym_null_literal_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5315),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5315),
+    [aux_sym_identifier_token1] = ACTIONS(5315),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5319),
+    [sym__float_literal] = ACTIONS(5319),
+    [sym__boz_literal] = ACTIONS(5319),
+    [sym__string_literal] = ACTIONS(5319),
+    [sym__string_literal_kind] = ACTIONS(5319),
   },
-  [1559] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4523),
-    [aux_sym_preproc_def_token1] = ACTIONS(4523),
-    [aux_sym_preproc_if_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4523),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4523),
-    [sym_preproc_directive] = ACTIONS(4523),
-    [anon_sym_LPAREN2] = ACTIONS(4523),
-    [anon_sym_PLUS] = ACTIONS(4527),
-    [anon_sym_DASH] = ACTIONS(4527),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4523),
-    [aux_sym_interface_statement_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4523),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4523),
-    [aux_sym_language_binding_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4523),
-    [aux_sym_contains_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token1] = ACTIONS(4523),
-    [aux_sym_use_statement_token2] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4523),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4523),
-    [aux_sym_save_statement_token1] = ACTIONS(4523),
-    [aux_sym_private_statement_token1] = ACTIONS(4523),
-    [aux_sym_public_statement_token1] = ACTIONS(4523),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4523),
-    [aux_sym_common_statement_token1] = ACTIONS(4523),
-    [aux_sym_import_statement_token1] = ACTIONS(4523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4523),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4523),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4523),
-    [aux_sym_derived_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token1] = ACTIONS(4523),
-    [aux_sym_declared_type_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4523),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4523),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4523),
-    [anon_sym_SEMI] = ACTIONS(4527),
-    [aux_sym_stop_statement_token1] = ACTIONS(4523),
-    [aux_sym_stop_statement_token2] = ACTIONS(4523),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4523),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4523),
-    [aux_sym_include_statement_token1] = ACTIONS(4523),
-    [aux_sym_data_statement_token1] = ACTIONS(4523),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4523),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4523),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4523),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4523),
-    [aux_sym_block_construct_token1] = ACTIONS(4523),
-    [aux_sym_associate_statement_token1] = ACTIONS(4523),
-    [aux_sym_format_statement_token1] = ACTIONS(4523),
-    [aux_sym_print_statement_token1] = ACTIONS(4523),
-    [aux_sym_open_statement_token1] = ACTIONS(4523),
-    [aux_sym_close_statement_token1] = ACTIONS(4523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4523),
-    [aux_sym_enum_statement_token1] = ACTIONS(4523),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4523),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4523),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4523),
-    [aux_sym_entry_statement_token1] = ACTIONS(4523),
-    [aux_sym_logical_expression_token5] = ACTIONS(4527),
-    [anon_sym_DOT] = ACTIONS(4523),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4527),
-    [anon_sym_LBRACK] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4527),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4527),
-    [aux_sym_null_literal_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4523),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4523),
-    [aux_sym_identifier_token1] = ACTIONS(4523),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4527),
-    [sym__float_literal] = ACTIONS(4527),
-    [sym__boz_literal] = ACTIONS(4527),
-    [sym__string_literal] = ACTIONS(4527),
-    [sym__string_literal_kind] = ACTIONS(4527),
+  [1273] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5169),
+    [aux_sym_preproc_def_token1] = ACTIONS(5169),
+    [aux_sym_preproc_if_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5169),
+    [sym_preproc_directive] = ACTIONS(5169),
+    [anon_sym_LPAREN2] = ACTIONS(5169),
+    [sym_preproc_comment] = ACTIONS(5321),
+    [anon_sym_PLUS] = ACTIONS(5173),
+    [anon_sym_DASH] = ACTIONS(5173),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5169),
+    [aux_sym_interface_statement_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5169),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5169),
+    [aux_sym_language_binding_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5169),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5169),
+    [aux_sym_contains_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token2] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5169),
+    [aux_sym_save_statement_token1] = ACTIONS(5169),
+    [aux_sym_private_statement_token1] = ACTIONS(5169),
+    [aux_sym_public_statement_token1] = ACTIONS(5169),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5169),
+    [aux_sym_common_statement_token1] = ACTIONS(5169),
+    [aux_sym_import_statement_token1] = ACTIONS(5169),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5169),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5169),
+    [aux_sym_derived_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5169),
+    [anon_sym_SEMI] = ACTIONS(5173),
+    [aux_sym_stop_statement_token1] = ACTIONS(5169),
+    [aux_sym_stop_statement_token2] = ACTIONS(5169),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5169),
+    [aux_sym_include_statement_token1] = ACTIONS(5169),
+    [aux_sym_data_statement_token1] = ACTIONS(5169),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5169),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5169),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5169),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5169),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5169),
+    [aux_sym_block_construct_token1] = ACTIONS(5169),
+    [aux_sym_associate_statement_token1] = ACTIONS(5169),
+    [aux_sym_format_statement_token1] = ACTIONS(5169),
+    [aux_sym_print_statement_token1] = ACTIONS(5169),
+    [aux_sym_open_statement_token1] = ACTIONS(5169),
+    [aux_sym_close_statement_token1] = ACTIONS(5169),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5169),
+    [aux_sym_enum_statement_token1] = ACTIONS(5169),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5169),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5169),
+    [aux_sym_entry_statement_token1] = ACTIONS(5169),
+    [aux_sym_logical_expression_token5] = ACTIONS(5173),
+    [anon_sym_DOT] = ACTIONS(5169),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5173),
+    [anon_sym_LBRACK] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5173),
+    [aux_sym_null_literal_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5169),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5169),
+    [aux_sym_identifier_token1] = ACTIONS(5169),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5173),
+    [sym__float_literal] = ACTIONS(5173),
+    [sym__boz_literal] = ACTIONS(5173),
+    [sym__string_literal] = ACTIONS(5173),
+    [sym__string_literal_kind] = ACTIONS(5173),
   },
-  [1560] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
+  [1274] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5323),
+    [aux_sym_preproc_def_token1] = ACTIONS(5323),
+    [aux_sym_preproc_if_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5323),
+    [sym_preproc_directive] = ACTIONS(5323),
+    [anon_sym_LPAREN2] = ACTIONS(5323),
+    [sym_preproc_comment] = ACTIONS(5325),
+    [anon_sym_PLUS] = ACTIONS(5327),
+    [anon_sym_DASH] = ACTIONS(5327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5323),
+    [aux_sym_interface_statement_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5323),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5323),
+    [aux_sym_language_binding_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5323),
+    [aux_sym_contains_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token2] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5323),
+    [aux_sym_save_statement_token1] = ACTIONS(5323),
+    [aux_sym_private_statement_token1] = ACTIONS(5323),
+    [aux_sym_public_statement_token1] = ACTIONS(5323),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5323),
+    [aux_sym_common_statement_token1] = ACTIONS(5323),
+    [aux_sym_import_statement_token1] = ACTIONS(5323),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5323),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5323),
+    [aux_sym_derived_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5323),
+    [anon_sym_SEMI] = ACTIONS(5327),
+    [aux_sym_stop_statement_token1] = ACTIONS(5323),
+    [aux_sym_stop_statement_token2] = ACTIONS(5323),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5323),
+    [aux_sym_include_statement_token1] = ACTIONS(5323),
+    [aux_sym_data_statement_token1] = ACTIONS(5323),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5323),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5323),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5323),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5323),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5323),
+    [aux_sym_block_construct_token1] = ACTIONS(5323),
+    [aux_sym_associate_statement_token1] = ACTIONS(5323),
+    [aux_sym_format_statement_token1] = ACTIONS(5323),
+    [aux_sym_print_statement_token1] = ACTIONS(5323),
+    [aux_sym_open_statement_token1] = ACTIONS(5323),
+    [aux_sym_close_statement_token1] = ACTIONS(5323),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5323),
+    [aux_sym_enum_statement_token1] = ACTIONS(5323),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5323),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5323),
+    [aux_sym_entry_statement_token1] = ACTIONS(5323),
+    [aux_sym_logical_expression_token5] = ACTIONS(5327),
+    [anon_sym_DOT] = ACTIONS(5323),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5327),
+    [anon_sym_LBRACK] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5327),
+    [aux_sym_null_literal_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5323),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5323),
+    [aux_sym_identifier_token1] = ACTIONS(5323),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5327),
+    [sym__float_literal] = ACTIONS(5327),
+    [sym__boz_literal] = ACTIONS(5327),
+    [sym__string_literal] = ACTIONS(5327),
+    [sym__string_literal_kind] = ACTIONS(5327),
   },
-  [1561] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5449),
-    [aux_sym_preproc_def_token1] = ACTIONS(5449),
-    [aux_sym_preproc_if_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5449),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5449),
-    [sym_preproc_directive] = ACTIONS(5449),
-    [anon_sym_LPAREN2] = ACTIONS(5449),
-    [anon_sym_PLUS] = ACTIONS(5451),
-    [anon_sym_DASH] = ACTIONS(5451),
+  [1275] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5329),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5449),
-    [aux_sym_interface_statement_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5449),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5449),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5449),
-    [aux_sym_language_binding_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5449),
-    [aux_sym_contains_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token1] = ACTIONS(5449),
-    [aux_sym_use_statement_token2] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5449),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5449),
-    [aux_sym_save_statement_token1] = ACTIONS(5449),
-    [aux_sym_private_statement_token1] = ACTIONS(5449),
-    [aux_sym_public_statement_token1] = ACTIONS(5449),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5449),
-    [aux_sym_common_statement_token1] = ACTIONS(5449),
-    [aux_sym_import_statement_token1] = ACTIONS(5449),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5449),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5449),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5449),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5449),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5449),
-    [aux_sym_derived_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token1] = ACTIONS(5449),
-    [aux_sym_declared_type_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5449),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5449),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5449),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5449),
-    [anon_sym_SEMI] = ACTIONS(5451),
-    [aux_sym_stop_statement_token1] = ACTIONS(5449),
-    [aux_sym_stop_statement_token2] = ACTIONS(5449),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5449),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5449),
-    [aux_sym_include_statement_token1] = ACTIONS(5449),
-    [aux_sym_data_statement_token1] = ACTIONS(5449),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5449),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5449),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5449),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5449),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5449),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5449),
-    [aux_sym_block_construct_token1] = ACTIONS(5449),
-    [aux_sym_associate_statement_token1] = ACTIONS(5449),
-    [aux_sym_format_statement_token1] = ACTIONS(5449),
-    [aux_sym_print_statement_token1] = ACTIONS(5449),
-    [aux_sym_open_statement_token1] = ACTIONS(5449),
-    [aux_sym_close_statement_token1] = ACTIONS(5449),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5449),
-    [aux_sym_enum_statement_token1] = ACTIONS(5449),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5449),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5449),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5449),
-    [aux_sym_entry_statement_token1] = ACTIONS(5449),
-    [aux_sym_logical_expression_token5] = ACTIONS(5451),
-    [anon_sym_DOT] = ACTIONS(5449),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5451),
-    [anon_sym_LBRACK] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5451),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5451),
-    [aux_sym_null_literal_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5449),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5449),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5449),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5449),
-    [aux_sym_identifier_token1] = ACTIONS(5449),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5451),
-    [sym__float_literal] = ACTIONS(5451),
-    [sym__boz_literal] = ACTIONS(5451),
-    [sym__string_literal] = ACTIONS(5451),
-    [sym__string_literal_kind] = ACTIONS(5451),
-  },
-  [1562] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1563] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
+  [1276] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5331),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1564] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5461),
-    [aux_sym_preproc_def_token1] = ACTIONS(5461),
-    [aux_sym_preproc_if_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
-    [sym_preproc_directive] = ACTIONS(5461),
-    [anon_sym_LPAREN2] = ACTIONS(5461),
-    [anon_sym_PLUS] = ACTIONS(5463),
-    [anon_sym_DASH] = ACTIONS(5463),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
-    [aux_sym_interface_statement_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5461),
-    [aux_sym_language_binding_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
-    [aux_sym_contains_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token1] = ACTIONS(5461),
-    [aux_sym_use_statement_token2] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
-    [aux_sym_save_statement_token1] = ACTIONS(5461),
-    [aux_sym_private_statement_token1] = ACTIONS(5461),
-    [aux_sym_public_statement_token1] = ACTIONS(5461),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
-    [aux_sym_common_statement_token1] = ACTIONS(5461),
-    [aux_sym_import_statement_token1] = ACTIONS(5461),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
-    [aux_sym_derived_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token1] = ACTIONS(5461),
-    [aux_sym_declared_type_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
-    [anon_sym_SEMI] = ACTIONS(5463),
-    [aux_sym_stop_statement_token1] = ACTIONS(5461),
-    [aux_sym_stop_statement_token2] = ACTIONS(5461),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
-    [aux_sym_include_statement_token1] = ACTIONS(5461),
-    [aux_sym_data_statement_token1] = ACTIONS(5461),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
-    [aux_sym_block_construct_token1] = ACTIONS(5461),
-    [aux_sym_associate_statement_token1] = ACTIONS(5461),
-    [aux_sym_format_statement_token1] = ACTIONS(5461),
-    [aux_sym_print_statement_token1] = ACTIONS(5461),
-    [aux_sym_open_statement_token1] = ACTIONS(5461),
-    [aux_sym_close_statement_token1] = ACTIONS(5461),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
-    [aux_sym_enum_statement_token1] = ACTIONS(5461),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
-    [aux_sym_entry_statement_token1] = ACTIONS(5461),
-    [aux_sym_logical_expression_token5] = ACTIONS(5463),
-    [anon_sym_DOT] = ACTIONS(5461),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
-    [anon_sym_LBRACK] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
-    [aux_sym_null_literal_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
-    [aux_sym_identifier_token1] = ACTIONS(5461),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5463),
-    [sym__float_literal] = ACTIONS(5463),
-    [sym__boz_literal] = ACTIONS(5463),
-    [sym__string_literal] = ACTIONS(5463),
-    [sym__string_literal_kind] = ACTIONS(5463),
+  [1277] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
   },
-  [1565] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5469),
-    [aux_sym_preproc_def_token1] = ACTIONS(5469),
-    [aux_sym_preproc_if_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
-    [sym_preproc_directive] = ACTIONS(5469),
-    [anon_sym_LPAREN2] = ACTIONS(5469),
-    [anon_sym_PLUS] = ACTIONS(5471),
-    [anon_sym_DASH] = ACTIONS(5471),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5469),
-    [aux_sym_interface_statement_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
-    [aux_sym_language_binding_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
-    [aux_sym_contains_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token1] = ACTIONS(5469),
-    [aux_sym_use_statement_token2] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
-    [aux_sym_save_statement_token1] = ACTIONS(5469),
-    [aux_sym_private_statement_token1] = ACTIONS(5469),
-    [aux_sym_public_statement_token1] = ACTIONS(5469),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
-    [aux_sym_common_statement_token1] = ACTIONS(5469),
-    [aux_sym_import_statement_token1] = ACTIONS(5469),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
-    [aux_sym_derived_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token1] = ACTIONS(5469),
-    [aux_sym_declared_type_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
-    [anon_sym_SEMI] = ACTIONS(5471),
-    [aux_sym_stop_statement_token1] = ACTIONS(5469),
-    [aux_sym_stop_statement_token2] = ACTIONS(5469),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
-    [aux_sym_include_statement_token1] = ACTIONS(5469),
-    [aux_sym_data_statement_token1] = ACTIONS(5469),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
-    [aux_sym_block_construct_token1] = ACTIONS(5469),
-    [aux_sym_associate_statement_token1] = ACTIONS(5469),
-    [aux_sym_format_statement_token1] = ACTIONS(5469),
-    [aux_sym_print_statement_token1] = ACTIONS(5469),
-    [aux_sym_open_statement_token1] = ACTIONS(5469),
-    [aux_sym_close_statement_token1] = ACTIONS(5469),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
-    [aux_sym_enum_statement_token1] = ACTIONS(5469),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
-    [aux_sym_entry_statement_token1] = ACTIONS(5469),
-    [aux_sym_logical_expression_token5] = ACTIONS(5471),
-    [anon_sym_DOT] = ACTIONS(5469),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
-    [anon_sym_LBRACK] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
-    [aux_sym_null_literal_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
-    [aux_sym_identifier_token1] = ACTIONS(5469),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5471),
-    [sym__float_literal] = ACTIONS(5471),
-    [sym__boz_literal] = ACTIONS(5471),
-    [sym__string_literal] = ACTIONS(5471),
-    [sym__string_literal_kind] = ACTIONS(5471),
+  [1278] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5301),
+    [aux_sym_preproc_def_token1] = ACTIONS(5301),
+    [aux_sym_preproc_if_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5301),
+    [sym_preproc_directive] = ACTIONS(5301),
+    [anon_sym_LPAREN2] = ACTIONS(5301),
+    [sym_preproc_comment] = ACTIONS(5333),
+    [anon_sym_PLUS] = ACTIONS(5305),
+    [anon_sym_DASH] = ACTIONS(5305),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5301),
+    [aux_sym_interface_statement_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5301),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5301),
+    [aux_sym_language_binding_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5301),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5301),
+    [aux_sym_contains_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token2] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5301),
+    [aux_sym_save_statement_token1] = ACTIONS(5301),
+    [aux_sym_private_statement_token1] = ACTIONS(5301),
+    [aux_sym_public_statement_token1] = ACTIONS(5301),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5301),
+    [aux_sym_common_statement_token1] = ACTIONS(5301),
+    [aux_sym_import_statement_token1] = ACTIONS(5301),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5301),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5301),
+    [aux_sym_derived_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5301),
+    [anon_sym_SEMI] = ACTIONS(5305),
+    [aux_sym_stop_statement_token1] = ACTIONS(5301),
+    [aux_sym_stop_statement_token2] = ACTIONS(5301),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5301),
+    [aux_sym_include_statement_token1] = ACTIONS(5301),
+    [aux_sym_data_statement_token1] = ACTIONS(5301),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5301),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5301),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5301),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5301),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5301),
+    [aux_sym_block_construct_token1] = ACTIONS(5301),
+    [aux_sym_associate_statement_token1] = ACTIONS(5301),
+    [aux_sym_format_statement_token1] = ACTIONS(5301),
+    [aux_sym_print_statement_token1] = ACTIONS(5301),
+    [aux_sym_open_statement_token1] = ACTIONS(5301),
+    [aux_sym_close_statement_token1] = ACTIONS(5301),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5301),
+    [aux_sym_enum_statement_token1] = ACTIONS(5301),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5301),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5301),
+    [aux_sym_entry_statement_token1] = ACTIONS(5301),
+    [aux_sym_logical_expression_token5] = ACTIONS(5305),
+    [anon_sym_DOT] = ACTIONS(5301),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5305),
+    [anon_sym_LBRACK] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5305),
+    [aux_sym_null_literal_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5301),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5301),
+    [aux_sym_identifier_token1] = ACTIONS(5301),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5305),
+    [sym__float_literal] = ACTIONS(5305),
+    [sym__boz_literal] = ACTIONS(5305),
+    [sym__string_literal] = ACTIONS(5305),
+    [sym__string_literal_kind] = ACTIONS(5305),
   },
-  [1566] = {
+  [1279] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5108),
     [aux_sym_preproc_def_token1] = ACTIONS(5108),
     [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
     [sym_preproc_directive] = ACTIONS(5108),
@@ -308366,11 +270857,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
     [aux_sym_interface_statement_token1] = ACTIONS(5108),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5108),
     [aux_sym_language_binding_token1] = ACTIONS(5108),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
@@ -308484,2871 +270975,7738 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5110),
     [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1567] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5000),
-    [aux_sym_preproc_def_token1] = ACTIONS(5000),
-    [aux_sym_preproc_if_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5000),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5000),
-    [sym_preproc_directive] = ACTIONS(5000),
-    [anon_sym_LPAREN2] = ACTIONS(5000),
-    [anon_sym_PLUS] = ACTIONS(5006),
-    [anon_sym_DASH] = ACTIONS(5006),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5000),
-    [aux_sym_interface_statement_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5000),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5000),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5000),
-    [aux_sym_language_binding_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5000),
-    [aux_sym_contains_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token1] = ACTIONS(5000),
-    [aux_sym_use_statement_token2] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5000),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5000),
-    [aux_sym_save_statement_token1] = ACTIONS(5000),
-    [aux_sym_private_statement_token1] = ACTIONS(5000),
-    [aux_sym_public_statement_token1] = ACTIONS(5000),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5000),
-    [aux_sym_common_statement_token1] = ACTIONS(5000),
-    [aux_sym_import_statement_token1] = ACTIONS(5000),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5000),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5000),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5000),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5000),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5000),
-    [aux_sym_derived_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token1] = ACTIONS(5000),
-    [aux_sym_declared_type_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5000),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5000),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5000),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5000),
-    [anon_sym_SEMI] = ACTIONS(5006),
-    [aux_sym_stop_statement_token1] = ACTIONS(5000),
-    [aux_sym_stop_statement_token2] = ACTIONS(5000),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5000),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5000),
-    [aux_sym_include_statement_token1] = ACTIONS(5000),
-    [aux_sym_data_statement_token1] = ACTIONS(5000),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5000),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5000),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5000),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5000),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5000),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5000),
-    [aux_sym_block_construct_token1] = ACTIONS(5000),
-    [aux_sym_associate_statement_token1] = ACTIONS(5000),
-    [aux_sym_format_statement_token1] = ACTIONS(5000),
-    [aux_sym_print_statement_token1] = ACTIONS(5000),
-    [aux_sym_open_statement_token1] = ACTIONS(5000),
-    [aux_sym_close_statement_token1] = ACTIONS(5000),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5000),
-    [aux_sym_enum_statement_token1] = ACTIONS(5000),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5000),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5000),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5000),
-    [aux_sym_entry_statement_token1] = ACTIONS(5000),
-    [aux_sym_logical_expression_token5] = ACTIONS(5006),
-    [anon_sym_DOT] = ACTIONS(5000),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5006),
-    [anon_sym_LBRACK] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5006),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5006),
-    [aux_sym_null_literal_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5000),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5000),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5000),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5000),
-    [aux_sym_identifier_token1] = ACTIONS(5000),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5006),
-    [sym__float_literal] = ACTIONS(5006),
-    [sym__boz_literal] = ACTIONS(5006),
-    [sym__string_literal] = ACTIONS(5006),
-    [sym__string_literal_kind] = ACTIONS(5006),
+  [1280] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
   },
-  [1568] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
+  [1281] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5335),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1569] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
+  [1282] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
+  },
+  [1283] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5195),
+    [aux_sym_preproc_def_token1] = ACTIONS(5195),
+    [aux_sym_preproc_if_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5195),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5195),
+    [sym_preproc_directive] = ACTIONS(5195),
+    [anon_sym_LPAREN2] = ACTIONS(5195),
+    [sym_preproc_comment] = ACTIONS(5337),
+    [anon_sym_PLUS] = ACTIONS(5199),
+    [anon_sym_DASH] = ACTIONS(5199),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5195),
+    [aux_sym_interface_statement_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5195),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5195),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5195),
+    [aux_sym_language_binding_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5195),
+    [aux_sym_contains_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token1] = ACTIONS(5195),
+    [aux_sym_use_statement_token2] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5195),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5195),
+    [aux_sym_save_statement_token1] = ACTIONS(5195),
+    [aux_sym_private_statement_token1] = ACTIONS(5195),
+    [aux_sym_public_statement_token1] = ACTIONS(5195),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5195),
+    [aux_sym_common_statement_token1] = ACTIONS(5195),
+    [aux_sym_import_statement_token1] = ACTIONS(5195),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5195),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5195),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5195),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5195),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5195),
+    [aux_sym_derived_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token1] = ACTIONS(5195),
+    [aux_sym_declared_type_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5195),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5195),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5195),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5195),
+    [anon_sym_SEMI] = ACTIONS(5199),
+    [aux_sym_stop_statement_token1] = ACTIONS(5195),
+    [aux_sym_stop_statement_token2] = ACTIONS(5195),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5195),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5195),
+    [aux_sym_include_statement_token1] = ACTIONS(5195),
+    [aux_sym_data_statement_token1] = ACTIONS(5195),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5195),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5195),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5195),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5195),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5195),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5195),
+    [aux_sym_block_construct_token1] = ACTIONS(5195),
+    [aux_sym_associate_statement_token1] = ACTIONS(5195),
+    [aux_sym_format_statement_token1] = ACTIONS(5195),
+    [aux_sym_print_statement_token1] = ACTIONS(5195),
+    [aux_sym_open_statement_token1] = ACTIONS(5195),
+    [aux_sym_close_statement_token1] = ACTIONS(5195),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5195),
+    [aux_sym_enum_statement_token1] = ACTIONS(5195),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5195),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5195),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5195),
+    [aux_sym_entry_statement_token1] = ACTIONS(5195),
+    [aux_sym_logical_expression_token5] = ACTIONS(5199),
+    [anon_sym_DOT] = ACTIONS(5195),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5199),
+    [anon_sym_LBRACK] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5199),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5199),
+    [aux_sym_null_literal_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5195),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5195),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5195),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5195),
+    [aux_sym_identifier_token1] = ACTIONS(5195),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5199),
+    [sym__float_literal] = ACTIONS(5199),
+    [sym__boz_literal] = ACTIONS(5199),
+    [sym__string_literal] = ACTIONS(5199),
+    [sym__string_literal_kind] = ACTIONS(5199),
+  },
+  [1284] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5339),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1285] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5341),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1286] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5323),
+    [aux_sym_preproc_def_token1] = ACTIONS(5323),
+    [aux_sym_preproc_if_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5323),
+    [sym_preproc_directive] = ACTIONS(5323),
+    [anon_sym_LPAREN2] = ACTIONS(5323),
+    [sym_preproc_comment] = ACTIONS(5343),
+    [anon_sym_PLUS] = ACTIONS(5327),
+    [anon_sym_DASH] = ACTIONS(5327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5323),
+    [aux_sym_interface_statement_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5323),
+    [aux_sym_language_binding_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5323),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5323),
+    [aux_sym_contains_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token2] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5323),
+    [aux_sym_save_statement_token1] = ACTIONS(5323),
+    [aux_sym_private_statement_token1] = ACTIONS(5323),
+    [aux_sym_public_statement_token1] = ACTIONS(5323),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5323),
+    [aux_sym_common_statement_token1] = ACTIONS(5323),
+    [aux_sym_import_statement_token1] = ACTIONS(5323),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5323),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5323),
+    [aux_sym_derived_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5323),
+    [anon_sym_SEMI] = ACTIONS(5327),
+    [aux_sym_stop_statement_token1] = ACTIONS(5323),
+    [aux_sym_stop_statement_token2] = ACTIONS(5323),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5323),
+    [aux_sym_include_statement_token1] = ACTIONS(5323),
+    [aux_sym_data_statement_token1] = ACTIONS(5323),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5323),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5323),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5323),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5323),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5323),
+    [aux_sym_block_construct_token1] = ACTIONS(5323),
+    [aux_sym_associate_statement_token1] = ACTIONS(5323),
+    [aux_sym_format_statement_token1] = ACTIONS(5323),
+    [aux_sym_print_statement_token1] = ACTIONS(5323),
+    [aux_sym_open_statement_token1] = ACTIONS(5323),
+    [aux_sym_close_statement_token1] = ACTIONS(5323),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5323),
+    [aux_sym_enum_statement_token1] = ACTIONS(5323),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5323),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5323),
+    [aux_sym_entry_statement_token1] = ACTIONS(5323),
+    [aux_sym_logical_expression_token5] = ACTIONS(5327),
+    [anon_sym_DOT] = ACTIONS(5323),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5327),
+    [anon_sym_LBRACK] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5327),
+    [aux_sym_null_literal_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5323),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5323),
+    [aux_sym_identifier_token1] = ACTIONS(5323),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5327),
+    [sym__float_literal] = ACTIONS(5327),
+    [sym__boz_literal] = ACTIONS(5327),
+    [sym__string_literal] = ACTIONS(5327),
+    [sym__string_literal_kind] = ACTIONS(5327),
+  },
+  [1287] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5345),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1288] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [sym_preproc_comment] = ACTIONS(5347),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1570] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token2] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
+  [1289] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5315),
+    [aux_sym_preproc_def_token1] = ACTIONS(5315),
+    [aux_sym_preproc_if_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5315),
+    [sym_preproc_directive] = ACTIONS(5315),
+    [anon_sym_LPAREN2] = ACTIONS(5315),
+    [sym_preproc_comment] = ACTIONS(5349),
+    [anon_sym_PLUS] = ACTIONS(5319),
+    [anon_sym_DASH] = ACTIONS(5319),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5315),
+    [aux_sym_interface_statement_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5315),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5315),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5315),
+    [aux_sym_language_binding_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5315),
+    [aux_sym_contains_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token2] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5315),
+    [aux_sym_save_statement_token1] = ACTIONS(5315),
+    [aux_sym_private_statement_token1] = ACTIONS(5315),
+    [aux_sym_public_statement_token1] = ACTIONS(5315),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5315),
+    [aux_sym_common_statement_token1] = ACTIONS(5315),
+    [aux_sym_import_statement_token1] = ACTIONS(5315),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5315),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5315),
+    [aux_sym_derived_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5315),
+    [anon_sym_SEMI] = ACTIONS(5319),
+    [aux_sym_stop_statement_token1] = ACTIONS(5315),
+    [aux_sym_stop_statement_token2] = ACTIONS(5315),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5315),
+    [aux_sym_include_statement_token1] = ACTIONS(5315),
+    [aux_sym_data_statement_token1] = ACTIONS(5315),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5315),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5315),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5315),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5315),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5315),
+    [aux_sym_block_construct_token1] = ACTIONS(5315),
+    [aux_sym_associate_statement_token1] = ACTIONS(5315),
+    [aux_sym_format_statement_token1] = ACTIONS(5315),
+    [aux_sym_print_statement_token1] = ACTIONS(5315),
+    [aux_sym_open_statement_token1] = ACTIONS(5315),
+    [aux_sym_close_statement_token1] = ACTIONS(5315),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5315),
+    [aux_sym_enum_statement_token1] = ACTIONS(5315),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5315),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5315),
+    [aux_sym_entry_statement_token1] = ACTIONS(5315),
+    [aux_sym_logical_expression_token5] = ACTIONS(5319),
+    [anon_sym_DOT] = ACTIONS(5315),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5319),
+    [anon_sym_LBRACK] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5319),
+    [aux_sym_null_literal_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5315),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5315),
+    [aux_sym_identifier_token1] = ACTIONS(5315),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5319),
+    [sym__float_literal] = ACTIONS(5319),
+    [sym__boz_literal] = ACTIONS(5319),
+    [sym__string_literal] = ACTIONS(5319),
+    [sym__string_literal_kind] = ACTIONS(5319),
+  },
+  [1290] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5351),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1291] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [sym_preproc_comment] = ACTIONS(5353),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1571] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token2] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
+  [1292] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5185),
+    [aux_sym_preproc_def_token1] = ACTIONS(5185),
+    [aux_sym_preproc_if_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5185),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5185),
+    [sym_preproc_directive] = ACTIONS(5185),
+    [anon_sym_LPAREN2] = ACTIONS(5185),
+    [sym_preproc_comment] = ACTIONS(5355),
+    [anon_sym_PLUS] = ACTIONS(5189),
+    [anon_sym_DASH] = ACTIONS(5189),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5185),
+    [aux_sym_interface_statement_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5185),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5185),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5185),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5185),
+    [aux_sym_language_binding_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5185),
+    [aux_sym_contains_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token1] = ACTIONS(5185),
+    [aux_sym_use_statement_token2] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5185),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5185),
+    [aux_sym_save_statement_token1] = ACTIONS(5185),
+    [aux_sym_private_statement_token1] = ACTIONS(5185),
+    [aux_sym_public_statement_token1] = ACTIONS(5185),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5185),
+    [aux_sym_common_statement_token1] = ACTIONS(5185),
+    [aux_sym_import_statement_token1] = ACTIONS(5185),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5185),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5185),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5185),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5185),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5185),
+    [aux_sym_derived_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token1] = ACTIONS(5185),
+    [aux_sym_declared_type_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5185),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5185),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5185),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5185),
+    [anon_sym_SEMI] = ACTIONS(5189),
+    [aux_sym_stop_statement_token1] = ACTIONS(5185),
+    [aux_sym_stop_statement_token2] = ACTIONS(5185),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5185),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5185),
+    [aux_sym_include_statement_token1] = ACTIONS(5185),
+    [aux_sym_data_statement_token1] = ACTIONS(5185),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5185),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5185),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5185),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5185),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5185),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5185),
+    [aux_sym_block_construct_token1] = ACTIONS(5185),
+    [aux_sym_associate_statement_token1] = ACTIONS(5185),
+    [aux_sym_format_statement_token1] = ACTIONS(5185),
+    [aux_sym_print_statement_token1] = ACTIONS(5185),
+    [aux_sym_open_statement_token1] = ACTIONS(5185),
+    [aux_sym_close_statement_token1] = ACTIONS(5185),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5185),
+    [aux_sym_enum_statement_token1] = ACTIONS(5185),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5185),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5185),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5185),
+    [aux_sym_entry_statement_token1] = ACTIONS(5185),
+    [aux_sym_logical_expression_token5] = ACTIONS(5189),
+    [anon_sym_DOT] = ACTIONS(5185),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5189),
+    [anon_sym_LBRACK] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5189),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5189),
+    [aux_sym_null_literal_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5185),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5185),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5185),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5185),
+    [aux_sym_identifier_token1] = ACTIONS(5185),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5189),
+    [sym__float_literal] = ACTIONS(5189),
+    [sym__boz_literal] = ACTIONS(5189),
+    [sym__string_literal] = ACTIONS(5189),
+    [sym__string_literal_kind] = ACTIONS(5189),
+  },
+  [1293] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5229),
+    [aux_sym_preproc_def_token1] = ACTIONS(5229),
+    [aux_sym_preproc_if_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5229),
+    [sym_preproc_directive] = ACTIONS(5229),
+    [anon_sym_LPAREN2] = ACTIONS(5229),
+    [sym_preproc_comment] = ACTIONS(5357),
+    [anon_sym_PLUS] = ACTIONS(5233),
+    [anon_sym_DASH] = ACTIONS(5233),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5229),
+    [aux_sym_interface_statement_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5229),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5229),
+    [aux_sym_language_binding_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5229),
+    [aux_sym_contains_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token2] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5229),
+    [aux_sym_save_statement_token1] = ACTIONS(5229),
+    [aux_sym_private_statement_token1] = ACTIONS(5229),
+    [aux_sym_public_statement_token1] = ACTIONS(5229),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5229),
+    [aux_sym_common_statement_token1] = ACTIONS(5229),
+    [aux_sym_import_statement_token1] = ACTIONS(5229),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5229),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5229),
+    [aux_sym_derived_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5229),
+    [anon_sym_SEMI] = ACTIONS(5233),
+    [aux_sym_stop_statement_token1] = ACTIONS(5229),
+    [aux_sym_stop_statement_token2] = ACTIONS(5229),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5229),
+    [aux_sym_include_statement_token1] = ACTIONS(5229),
+    [aux_sym_data_statement_token1] = ACTIONS(5229),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5229),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5229),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5229),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5229),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5229),
+    [aux_sym_block_construct_token1] = ACTIONS(5229),
+    [aux_sym_associate_statement_token1] = ACTIONS(5229),
+    [aux_sym_format_statement_token1] = ACTIONS(5229),
+    [aux_sym_print_statement_token1] = ACTIONS(5229),
+    [aux_sym_open_statement_token1] = ACTIONS(5229),
+    [aux_sym_close_statement_token1] = ACTIONS(5229),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5229),
+    [aux_sym_enum_statement_token1] = ACTIONS(5229),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5229),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5229),
+    [aux_sym_entry_statement_token1] = ACTIONS(5229),
+    [aux_sym_logical_expression_token5] = ACTIONS(5233),
+    [anon_sym_DOT] = ACTIONS(5229),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5233),
+    [anon_sym_LBRACK] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5233),
+    [aux_sym_null_literal_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5229),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5229),
+    [aux_sym_identifier_token1] = ACTIONS(5229),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5233),
+    [sym__float_literal] = ACTIONS(5233),
+    [sym__boz_literal] = ACTIONS(5233),
+    [sym__string_literal] = ACTIONS(5233),
+    [sym__string_literal_kind] = ACTIONS(5233),
+  },
+  [1294] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5209),
+    [aux_sym_preproc_def_token1] = ACTIONS(5209),
+    [aux_sym_preproc_if_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5209),
+    [sym_preproc_directive] = ACTIONS(5209),
+    [anon_sym_LPAREN2] = ACTIONS(5209),
+    [sym_preproc_comment] = ACTIONS(5359),
+    [anon_sym_PLUS] = ACTIONS(5213),
+    [anon_sym_DASH] = ACTIONS(5213),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5209),
+    [aux_sym_interface_statement_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5209),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5209),
+    [aux_sym_language_binding_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5209),
+    [aux_sym_contains_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token2] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5209),
+    [aux_sym_save_statement_token1] = ACTIONS(5209),
+    [aux_sym_private_statement_token1] = ACTIONS(5209),
+    [aux_sym_public_statement_token1] = ACTIONS(5209),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5209),
+    [aux_sym_common_statement_token1] = ACTIONS(5209),
+    [aux_sym_import_statement_token1] = ACTIONS(5209),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5209),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5209),
+    [aux_sym_derived_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5209),
+    [anon_sym_SEMI] = ACTIONS(5213),
+    [aux_sym_stop_statement_token1] = ACTIONS(5209),
+    [aux_sym_stop_statement_token2] = ACTIONS(5209),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5209),
+    [aux_sym_include_statement_token1] = ACTIONS(5209),
+    [aux_sym_data_statement_token1] = ACTIONS(5209),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5209),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5209),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5209),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5209),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5209),
+    [aux_sym_block_construct_token1] = ACTIONS(5209),
+    [aux_sym_associate_statement_token1] = ACTIONS(5209),
+    [aux_sym_format_statement_token1] = ACTIONS(5209),
+    [aux_sym_print_statement_token1] = ACTIONS(5209),
+    [aux_sym_open_statement_token1] = ACTIONS(5209),
+    [aux_sym_close_statement_token1] = ACTIONS(5209),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5209),
+    [aux_sym_enum_statement_token1] = ACTIONS(5209),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5209),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5209),
+    [aux_sym_entry_statement_token1] = ACTIONS(5209),
+    [aux_sym_logical_expression_token5] = ACTIONS(5213),
+    [anon_sym_DOT] = ACTIONS(5209),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5213),
+    [anon_sym_LBRACK] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5213),
+    [aux_sym_null_literal_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5209),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5209),
+    [aux_sym_identifier_token1] = ACTIONS(5209),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5213),
+    [sym__float_literal] = ACTIONS(5213),
+    [sym__boz_literal] = ACTIONS(5213),
+    [sym__string_literal] = ACTIONS(5213),
+    [sym__string_literal_kind] = ACTIONS(5213),
+  },
+  [1295] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5361),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1296] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5169),
+    [aux_sym_preproc_def_token1] = ACTIONS(5169),
+    [aux_sym_preproc_if_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5169),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5169),
+    [sym_preproc_directive] = ACTIONS(5169),
+    [anon_sym_LPAREN2] = ACTIONS(5169),
+    [sym_preproc_comment] = ACTIONS(5363),
+    [anon_sym_PLUS] = ACTIONS(5173),
+    [anon_sym_DASH] = ACTIONS(5173),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5169),
+    [aux_sym_interface_statement_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5169),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5169),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5169),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5169),
+    [aux_sym_language_binding_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5169),
+    [aux_sym_contains_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token1] = ACTIONS(5169),
+    [aux_sym_use_statement_token2] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5169),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5169),
+    [aux_sym_save_statement_token1] = ACTIONS(5169),
+    [aux_sym_private_statement_token1] = ACTIONS(5169),
+    [aux_sym_public_statement_token1] = ACTIONS(5169),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5169),
+    [aux_sym_common_statement_token1] = ACTIONS(5169),
+    [aux_sym_import_statement_token1] = ACTIONS(5169),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5169),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5169),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5169),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5169),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5169),
+    [aux_sym_derived_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token1] = ACTIONS(5169),
+    [aux_sym_declared_type_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5169),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5169),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5169),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5169),
+    [anon_sym_SEMI] = ACTIONS(5173),
+    [aux_sym_stop_statement_token1] = ACTIONS(5169),
+    [aux_sym_stop_statement_token2] = ACTIONS(5169),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5169),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5169),
+    [aux_sym_include_statement_token1] = ACTIONS(5169),
+    [aux_sym_data_statement_token1] = ACTIONS(5169),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5169),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5169),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5169),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5169),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5169),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5169),
+    [aux_sym_block_construct_token1] = ACTIONS(5169),
+    [aux_sym_associate_statement_token1] = ACTIONS(5169),
+    [aux_sym_format_statement_token1] = ACTIONS(5169),
+    [aux_sym_print_statement_token1] = ACTIONS(5169),
+    [aux_sym_open_statement_token1] = ACTIONS(5169),
+    [aux_sym_close_statement_token1] = ACTIONS(5169),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5169),
+    [aux_sym_enum_statement_token1] = ACTIONS(5169),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5169),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5169),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5169),
+    [aux_sym_entry_statement_token1] = ACTIONS(5169),
+    [aux_sym_logical_expression_token5] = ACTIONS(5173),
+    [anon_sym_DOT] = ACTIONS(5169),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5173),
+    [anon_sym_LBRACK] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5173),
+    [aux_sym_null_literal_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5169),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5169),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5169),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5169),
+    [aux_sym_identifier_token1] = ACTIONS(5169),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5173),
+    [sym__float_literal] = ACTIONS(5173),
+    [sym__boz_literal] = ACTIONS(5173),
+    [sym__string_literal] = ACTIONS(5173),
+    [sym__string_literal_kind] = ACTIONS(5173),
+  },
+  [1297] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5365),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1572] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
+  [1298] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1573] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+  [1299] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [sym_preproc_comment] = ACTIONS(5367),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1574] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5453),
-    [aux_sym_preproc_def_token1] = ACTIONS(5453),
-    [aux_sym_preproc_if_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
-    [sym_preproc_directive] = ACTIONS(5453),
-    [anon_sym_LPAREN2] = ACTIONS(5453),
-    [anon_sym_PLUS] = ACTIONS(5455),
-    [anon_sym_DASH] = ACTIONS(5455),
+  [1300] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
-    [aux_sym_interface_statement_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
-    [aux_sym_language_binding_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5453),
-    [aux_sym_contains_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token1] = ACTIONS(5453),
-    [aux_sym_use_statement_token2] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
-    [aux_sym_save_statement_token1] = ACTIONS(5453),
-    [aux_sym_private_statement_token1] = ACTIONS(5453),
-    [aux_sym_public_statement_token1] = ACTIONS(5453),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
-    [aux_sym_common_statement_token1] = ACTIONS(5453),
-    [aux_sym_import_statement_token1] = ACTIONS(5453),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
-    [aux_sym_derived_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token1] = ACTIONS(5453),
-    [aux_sym_declared_type_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
-    [anon_sym_SEMI] = ACTIONS(5455),
-    [aux_sym_stop_statement_token1] = ACTIONS(5453),
-    [aux_sym_stop_statement_token2] = ACTIONS(5453),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
-    [aux_sym_include_statement_token1] = ACTIONS(5453),
-    [aux_sym_data_statement_token1] = ACTIONS(5453),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
-    [aux_sym_block_construct_token1] = ACTIONS(5453),
-    [aux_sym_associate_statement_token1] = ACTIONS(5453),
-    [aux_sym_format_statement_token1] = ACTIONS(5453),
-    [aux_sym_print_statement_token1] = ACTIONS(5453),
-    [aux_sym_open_statement_token1] = ACTIONS(5453),
-    [aux_sym_close_statement_token1] = ACTIONS(5453),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
-    [aux_sym_enum_statement_token1] = ACTIONS(5453),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
-    [aux_sym_entry_statement_token1] = ACTIONS(5453),
-    [aux_sym_logical_expression_token5] = ACTIONS(5455),
-    [anon_sym_DOT] = ACTIONS(5453),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
-    [anon_sym_LBRACK] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
-    [aux_sym_null_literal_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
-    [aux_sym_identifier_token1] = ACTIONS(5453),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5455),
-    [sym__float_literal] = ACTIONS(5455),
-    [sym__boz_literal] = ACTIONS(5455),
-    [sym__string_literal] = ACTIONS(5455),
-    [sym__string_literal_kind] = ACTIONS(5455),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1575] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5473),
-    [aux_sym_preproc_def_token1] = ACTIONS(5473),
-    [aux_sym_preproc_if_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
-    [sym_preproc_directive] = ACTIONS(5473),
-    [anon_sym_LPAREN2] = ACTIONS(5473),
-    [anon_sym_PLUS] = ACTIONS(5475),
-    [anon_sym_DASH] = ACTIONS(5475),
+  [1301] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5369),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1302] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5209),
+    [aux_sym_preproc_def_token1] = ACTIONS(5209),
+    [aux_sym_preproc_if_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5209),
+    [sym_preproc_directive] = ACTIONS(5209),
+    [anon_sym_LPAREN2] = ACTIONS(5209),
+    [sym_preproc_comment] = ACTIONS(5371),
+    [anon_sym_PLUS] = ACTIONS(5213),
+    [anon_sym_DASH] = ACTIONS(5213),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5209),
+    [aux_sym_interface_statement_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5209),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5209),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5209),
+    [aux_sym_language_binding_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5209),
+    [aux_sym_contains_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token2] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5209),
+    [aux_sym_save_statement_token1] = ACTIONS(5209),
+    [aux_sym_private_statement_token1] = ACTIONS(5209),
+    [aux_sym_public_statement_token1] = ACTIONS(5209),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5209),
+    [aux_sym_common_statement_token1] = ACTIONS(5209),
+    [aux_sym_import_statement_token1] = ACTIONS(5209),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5209),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5209),
+    [aux_sym_derived_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5209),
+    [anon_sym_SEMI] = ACTIONS(5213),
+    [aux_sym_stop_statement_token1] = ACTIONS(5209),
+    [aux_sym_stop_statement_token2] = ACTIONS(5209),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5209),
+    [aux_sym_include_statement_token1] = ACTIONS(5209),
+    [aux_sym_data_statement_token1] = ACTIONS(5209),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5209),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5209),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5209),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5209),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5209),
+    [aux_sym_block_construct_token1] = ACTIONS(5209),
+    [aux_sym_associate_statement_token1] = ACTIONS(5209),
+    [aux_sym_format_statement_token1] = ACTIONS(5209),
+    [aux_sym_print_statement_token1] = ACTIONS(5209),
+    [aux_sym_open_statement_token1] = ACTIONS(5209),
+    [aux_sym_close_statement_token1] = ACTIONS(5209),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5209),
+    [aux_sym_enum_statement_token1] = ACTIONS(5209),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5209),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5209),
+    [aux_sym_entry_statement_token1] = ACTIONS(5209),
+    [aux_sym_logical_expression_token5] = ACTIONS(5213),
+    [anon_sym_DOT] = ACTIONS(5209),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5213),
+    [anon_sym_LBRACK] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5213),
+    [aux_sym_null_literal_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5209),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5209),
+    [aux_sym_identifier_token1] = ACTIONS(5209),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5213),
+    [sym__float_literal] = ACTIONS(5213),
+    [sym__boz_literal] = ACTIONS(5213),
+    [sym__string_literal] = ACTIONS(5213),
+    [sym__string_literal_kind] = ACTIONS(5213),
+  },
+  [1303] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5373),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5473),
-    [aux_sym_interface_statement_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
-    [aux_sym_language_binding_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
-    [aux_sym_contains_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token1] = ACTIONS(5473),
-    [aux_sym_use_statement_token2] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
-    [aux_sym_save_statement_token1] = ACTIONS(5473),
-    [aux_sym_private_statement_token1] = ACTIONS(5473),
-    [aux_sym_public_statement_token1] = ACTIONS(5473),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
-    [aux_sym_common_statement_token1] = ACTIONS(5473),
-    [aux_sym_import_statement_token1] = ACTIONS(5473),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
-    [aux_sym_derived_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token1] = ACTIONS(5473),
-    [aux_sym_declared_type_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
-    [anon_sym_SEMI] = ACTIONS(5475),
-    [aux_sym_stop_statement_token1] = ACTIONS(5473),
-    [aux_sym_stop_statement_token2] = ACTIONS(5473),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
-    [aux_sym_include_statement_token1] = ACTIONS(5473),
-    [aux_sym_data_statement_token1] = ACTIONS(5473),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
-    [aux_sym_block_construct_token1] = ACTIONS(5473),
-    [aux_sym_associate_statement_token1] = ACTIONS(5473),
-    [aux_sym_format_statement_token1] = ACTIONS(5473),
-    [aux_sym_print_statement_token1] = ACTIONS(5473),
-    [aux_sym_open_statement_token1] = ACTIONS(5473),
-    [aux_sym_close_statement_token1] = ACTIONS(5473),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
-    [aux_sym_enum_statement_token1] = ACTIONS(5473),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
-    [aux_sym_entry_statement_token1] = ACTIONS(5473),
-    [aux_sym_logical_expression_token5] = ACTIONS(5475),
-    [anon_sym_DOT] = ACTIONS(5473),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
-    [anon_sym_LBRACK] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
-    [aux_sym_null_literal_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
-    [aux_sym_identifier_token1] = ACTIONS(5473),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5475),
-    [sym__float_literal] = ACTIONS(5475),
-    [sym__boz_literal] = ACTIONS(5475),
-    [sym__string_literal] = ACTIONS(5475),
-    [sym__string_literal_kind] = ACTIONS(5475),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1576] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
+  [1304] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
   },
-  [1577] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
+  [1305] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5301),
+    [aux_sym_preproc_def_token1] = ACTIONS(5301),
+    [aux_sym_preproc_if_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5301),
+    [sym_preproc_directive] = ACTIONS(5301),
+    [anon_sym_LPAREN2] = ACTIONS(5301),
+    [sym_preproc_comment] = ACTIONS(5375),
+    [anon_sym_PLUS] = ACTIONS(5305),
+    [anon_sym_DASH] = ACTIONS(5305),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5301),
+    [aux_sym_interface_statement_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5301),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5301),
+    [aux_sym_language_binding_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5301),
+    [aux_sym_contains_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token2] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5301),
+    [aux_sym_save_statement_token1] = ACTIONS(5301),
+    [aux_sym_private_statement_token1] = ACTIONS(5301),
+    [aux_sym_public_statement_token1] = ACTIONS(5301),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5301),
+    [aux_sym_common_statement_token1] = ACTIONS(5301),
+    [aux_sym_import_statement_token1] = ACTIONS(5301),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5301),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5301),
+    [aux_sym_derived_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5301),
+    [anon_sym_SEMI] = ACTIONS(5305),
+    [aux_sym_stop_statement_token1] = ACTIONS(5301),
+    [aux_sym_stop_statement_token2] = ACTIONS(5301),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5301),
+    [aux_sym_include_statement_token1] = ACTIONS(5301),
+    [aux_sym_data_statement_token1] = ACTIONS(5301),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5301),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5301),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5301),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5301),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5301),
+    [aux_sym_block_construct_token1] = ACTIONS(5301),
+    [aux_sym_associate_statement_token1] = ACTIONS(5301),
+    [aux_sym_format_statement_token1] = ACTIONS(5301),
+    [aux_sym_print_statement_token1] = ACTIONS(5301),
+    [aux_sym_open_statement_token1] = ACTIONS(5301),
+    [aux_sym_close_statement_token1] = ACTIONS(5301),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5301),
+    [aux_sym_enum_statement_token1] = ACTIONS(5301),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5301),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5301),
+    [aux_sym_entry_statement_token1] = ACTIONS(5301),
+    [aux_sym_logical_expression_token5] = ACTIONS(5305),
+    [anon_sym_DOT] = ACTIONS(5301),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5305),
+    [anon_sym_LBRACK] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5305),
+    [aux_sym_null_literal_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5301),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5301),
+    [aux_sym_identifier_token1] = ACTIONS(5301),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5305),
+    [sym__float_literal] = ACTIONS(5305),
+    [sym__boz_literal] = ACTIONS(5305),
+    [sym__string_literal] = ACTIONS(5305),
+    [sym__string_literal_kind] = ACTIONS(5305),
   },
-  [1578] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
+  [1306] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
   },
-  [1579] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
+  [1307] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5377),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
   },
-  [1580] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1308] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5315),
+    [aux_sym_preproc_def_token1] = ACTIONS(5315),
+    [aux_sym_preproc_if_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5315),
+    [sym_preproc_directive] = ACTIONS(5315),
+    [anon_sym_LPAREN2] = ACTIONS(5315),
+    [sym_preproc_comment] = ACTIONS(5379),
+    [anon_sym_PLUS] = ACTIONS(5319),
+    [anon_sym_DASH] = ACTIONS(5319),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5315),
+    [aux_sym_interface_statement_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5315),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5315),
+    [aux_sym_language_binding_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5315),
+    [aux_sym_contains_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token2] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5315),
+    [aux_sym_save_statement_token1] = ACTIONS(5315),
+    [aux_sym_private_statement_token1] = ACTIONS(5315),
+    [aux_sym_public_statement_token1] = ACTIONS(5315),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5315),
+    [aux_sym_common_statement_token1] = ACTIONS(5315),
+    [aux_sym_import_statement_token1] = ACTIONS(5315),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5315),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5315),
+    [aux_sym_derived_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5315),
+    [anon_sym_SEMI] = ACTIONS(5319),
+    [aux_sym_stop_statement_token1] = ACTIONS(5315),
+    [aux_sym_stop_statement_token2] = ACTIONS(5315),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5315),
+    [aux_sym_include_statement_token1] = ACTIONS(5315),
+    [aux_sym_data_statement_token1] = ACTIONS(5315),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5315),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5315),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5315),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5315),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5315),
+    [aux_sym_block_construct_token1] = ACTIONS(5315),
+    [aux_sym_associate_statement_token1] = ACTIONS(5315),
+    [aux_sym_format_statement_token1] = ACTIONS(5315),
+    [aux_sym_print_statement_token1] = ACTIONS(5315),
+    [aux_sym_open_statement_token1] = ACTIONS(5315),
+    [aux_sym_close_statement_token1] = ACTIONS(5315),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5315),
+    [aux_sym_enum_statement_token1] = ACTIONS(5315),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5315),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5315),
+    [aux_sym_entry_statement_token1] = ACTIONS(5315),
+    [aux_sym_logical_expression_token5] = ACTIONS(5319),
+    [anon_sym_DOT] = ACTIONS(5315),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5319),
+    [anon_sym_LBRACK] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5319),
+    [aux_sym_null_literal_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5315),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5315),
+    [aux_sym_identifier_token1] = ACTIONS(5315),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5319),
+    [sym__float_literal] = ACTIONS(5319),
+    [sym__boz_literal] = ACTIONS(5319),
+    [sym__string_literal] = ACTIONS(5319),
+    [sym__string_literal_kind] = ACTIONS(5319),
   },
-  [1581] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
+  [1309] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5381),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1310] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5383),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1311] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5385),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1582] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
+  [1312] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1583] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
+  [1313] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5229),
+    [aux_sym_preproc_def_token1] = ACTIONS(5229),
+    [aux_sym_preproc_if_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5229),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5229),
+    [sym_preproc_directive] = ACTIONS(5229),
+    [anon_sym_LPAREN2] = ACTIONS(5229),
+    [sym_preproc_comment] = ACTIONS(5387),
+    [anon_sym_PLUS] = ACTIONS(5233),
+    [anon_sym_DASH] = ACTIONS(5233),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5229),
+    [aux_sym_interface_statement_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5229),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5229),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5229),
+    [aux_sym_language_binding_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5229),
+    [aux_sym_contains_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token1] = ACTIONS(5229),
+    [aux_sym_use_statement_token2] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5229),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5229),
+    [aux_sym_save_statement_token1] = ACTIONS(5229),
+    [aux_sym_private_statement_token1] = ACTIONS(5229),
+    [aux_sym_public_statement_token1] = ACTIONS(5229),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5229),
+    [aux_sym_common_statement_token1] = ACTIONS(5229),
+    [aux_sym_import_statement_token1] = ACTIONS(5229),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5229),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5229),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5229),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5229),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5229),
+    [aux_sym_derived_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token1] = ACTIONS(5229),
+    [aux_sym_declared_type_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5229),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5229),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5229),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5229),
+    [anon_sym_SEMI] = ACTIONS(5233),
+    [aux_sym_stop_statement_token1] = ACTIONS(5229),
+    [aux_sym_stop_statement_token2] = ACTIONS(5229),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5229),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5229),
+    [aux_sym_include_statement_token1] = ACTIONS(5229),
+    [aux_sym_data_statement_token1] = ACTIONS(5229),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5229),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5229),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5229),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5229),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5229),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5229),
+    [aux_sym_block_construct_token1] = ACTIONS(5229),
+    [aux_sym_associate_statement_token1] = ACTIONS(5229),
+    [aux_sym_format_statement_token1] = ACTIONS(5229),
+    [aux_sym_print_statement_token1] = ACTIONS(5229),
+    [aux_sym_open_statement_token1] = ACTIONS(5229),
+    [aux_sym_close_statement_token1] = ACTIONS(5229),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5229),
+    [aux_sym_enum_statement_token1] = ACTIONS(5229),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5229),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5229),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5229),
+    [aux_sym_entry_statement_token1] = ACTIONS(5229),
+    [aux_sym_logical_expression_token5] = ACTIONS(5233),
+    [anon_sym_DOT] = ACTIONS(5229),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5233),
+    [anon_sym_LBRACK] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5233),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5233),
+    [aux_sym_null_literal_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5229),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5229),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5229),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5229),
+    [aux_sym_identifier_token1] = ACTIONS(5229),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5233),
+    [sym__float_literal] = ACTIONS(5233),
+    [sym__boz_literal] = ACTIONS(5233),
+    [sym__string_literal] = ACTIONS(5233),
+    [sym__string_literal_kind] = ACTIONS(5233),
+  },
+  [1314] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1584] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4347),
-    [aux_sym_preproc_def_token1] = ACTIONS(4347),
-    [aux_sym_preproc_if_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
-    [sym_preproc_directive] = ACTIONS(4347),
-    [anon_sym_LPAREN2] = ACTIONS(4347),
-    [anon_sym_PLUS] = ACTIONS(4353),
-    [anon_sym_DASH] = ACTIONS(4353),
+  [1315] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5323),
+    [aux_sym_preproc_def_token1] = ACTIONS(5323),
+    [aux_sym_preproc_if_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5323),
+    [sym_preproc_directive] = ACTIONS(5323),
+    [anon_sym_LPAREN2] = ACTIONS(5323),
+    [sym_preproc_comment] = ACTIONS(5389),
+    [anon_sym_PLUS] = ACTIONS(5327),
+    [anon_sym_DASH] = ACTIONS(5327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5323),
+    [aux_sym_interface_statement_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5323),
+    [aux_sym_language_binding_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5323),
+    [aux_sym_contains_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token2] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5323),
+    [aux_sym_save_statement_token1] = ACTIONS(5323),
+    [aux_sym_private_statement_token1] = ACTIONS(5323),
+    [aux_sym_public_statement_token1] = ACTIONS(5323),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5323),
+    [aux_sym_common_statement_token1] = ACTIONS(5323),
+    [aux_sym_import_statement_token1] = ACTIONS(5323),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5323),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5323),
+    [aux_sym_derived_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5323),
+    [anon_sym_SEMI] = ACTIONS(5327),
+    [aux_sym_stop_statement_token1] = ACTIONS(5323),
+    [aux_sym_stop_statement_token2] = ACTIONS(5323),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5323),
+    [aux_sym_include_statement_token1] = ACTIONS(5323),
+    [aux_sym_data_statement_token1] = ACTIONS(5323),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5323),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5323),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5323),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5323),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5323),
+    [aux_sym_block_construct_token1] = ACTIONS(5323),
+    [aux_sym_associate_statement_token1] = ACTIONS(5323),
+    [aux_sym_format_statement_token1] = ACTIONS(5323),
+    [aux_sym_print_statement_token1] = ACTIONS(5323),
+    [aux_sym_open_statement_token1] = ACTIONS(5323),
+    [aux_sym_close_statement_token1] = ACTIONS(5323),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5323),
+    [aux_sym_enum_statement_token1] = ACTIONS(5323),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5323),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5323),
+    [aux_sym_entry_statement_token1] = ACTIONS(5323),
+    [aux_sym_logical_expression_token5] = ACTIONS(5327),
+    [anon_sym_DOT] = ACTIONS(5323),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5327),
+    [anon_sym_LBRACK] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5327),
+    [aux_sym_null_literal_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5323),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5323),
+    [aux_sym_identifier_token1] = ACTIONS(5323),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5327),
+    [sym__float_literal] = ACTIONS(5327),
+    [sym__boz_literal] = ACTIONS(5327),
+    [sym__string_literal] = ACTIONS(5327),
+    [sym__string_literal_kind] = ACTIONS(5327),
+  },
+  [1316] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5391),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
-    [aux_sym_interface_statement_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4347),
-    [aux_sym_language_binding_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
-    [aux_sym_contains_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token1] = ACTIONS(4347),
-    [aux_sym_use_statement_token2] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
-    [aux_sym_save_statement_token1] = ACTIONS(4347),
-    [aux_sym_private_statement_token1] = ACTIONS(4347),
-    [aux_sym_public_statement_token1] = ACTIONS(4347),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
-    [aux_sym_common_statement_token1] = ACTIONS(4347),
-    [aux_sym_import_statement_token1] = ACTIONS(4347),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
-    [aux_sym_derived_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token1] = ACTIONS(4347),
-    [aux_sym_declared_type_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
-    [anon_sym_SEMI] = ACTIONS(4353),
-    [aux_sym_stop_statement_token1] = ACTIONS(4347),
-    [aux_sym_stop_statement_token2] = ACTIONS(4347),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
-    [aux_sym_include_statement_token1] = ACTIONS(4347),
-    [aux_sym_data_statement_token1] = ACTIONS(4347),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
-    [aux_sym_block_construct_token1] = ACTIONS(4347),
-    [aux_sym_associate_statement_token1] = ACTIONS(4347),
-    [aux_sym_format_statement_token1] = ACTIONS(4347),
-    [aux_sym_print_statement_token1] = ACTIONS(4347),
-    [aux_sym_open_statement_token1] = ACTIONS(4347),
-    [aux_sym_close_statement_token1] = ACTIONS(4347),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
-    [aux_sym_enum_statement_token1] = ACTIONS(4347),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
-    [aux_sym_entry_statement_token1] = ACTIONS(4347),
-    [aux_sym_logical_expression_token5] = ACTIONS(4353),
-    [anon_sym_DOT] = ACTIONS(4347),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4353),
-    [anon_sym_LBRACK] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4353),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4353),
-    [aux_sym_null_literal_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
-    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1317] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5393),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4353),
-    [sym__float_literal] = ACTIONS(4353),
-    [sym__boz_literal] = ACTIONS(4353),
-    [sym__string_literal] = ACTIONS(4353),
-    [sym__string_literal_kind] = ACTIONS(4353),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1585] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5465),
-    [aux_sym_preproc_def_token1] = ACTIONS(5465),
-    [aux_sym_preproc_if_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
-    [sym_preproc_directive] = ACTIONS(5465),
-    [anon_sym_LPAREN2] = ACTIONS(5465),
-    [anon_sym_PLUS] = ACTIONS(5467),
-    [anon_sym_DASH] = ACTIONS(5467),
+  [1318] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [sym_preproc_comment] = ACTIONS(5395),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
-    [aux_sym_interface_statement_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
-    [aux_sym_language_binding_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5465),
-    [aux_sym_contains_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token1] = ACTIONS(5465),
-    [aux_sym_use_statement_token2] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
-    [aux_sym_save_statement_token1] = ACTIONS(5465),
-    [aux_sym_private_statement_token1] = ACTIONS(5465),
-    [aux_sym_public_statement_token1] = ACTIONS(5465),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
-    [aux_sym_common_statement_token1] = ACTIONS(5465),
-    [aux_sym_import_statement_token1] = ACTIONS(5465),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
-    [aux_sym_derived_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token1] = ACTIONS(5465),
-    [aux_sym_declared_type_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
-    [anon_sym_SEMI] = ACTIONS(5467),
-    [aux_sym_stop_statement_token1] = ACTIONS(5465),
-    [aux_sym_stop_statement_token2] = ACTIONS(5465),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
-    [aux_sym_include_statement_token1] = ACTIONS(5465),
-    [aux_sym_data_statement_token1] = ACTIONS(5465),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
-    [aux_sym_block_construct_token1] = ACTIONS(5465),
-    [aux_sym_associate_statement_token1] = ACTIONS(5465),
-    [aux_sym_format_statement_token1] = ACTIONS(5465),
-    [aux_sym_print_statement_token1] = ACTIONS(5465),
-    [aux_sym_open_statement_token1] = ACTIONS(5465),
-    [aux_sym_close_statement_token1] = ACTIONS(5465),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
-    [aux_sym_enum_statement_token1] = ACTIONS(5465),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
-    [aux_sym_entry_statement_token1] = ACTIONS(5465),
-    [aux_sym_logical_expression_token5] = ACTIONS(5467),
-    [anon_sym_DOT] = ACTIONS(5465),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
-    [anon_sym_LBRACK] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
-    [aux_sym_null_literal_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
-    [aux_sym_identifier_token1] = ACTIONS(5465),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
+  },
+  [1319] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5397),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1320] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [sym_preproc_comment] = ACTIONS(5399),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5467),
-    [sym__float_literal] = ACTIONS(5467),
-    [sym__boz_literal] = ACTIONS(5467),
-    [sym__string_literal] = ACTIONS(5467),
-    [sym__string_literal_kind] = ACTIONS(5467),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1586] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5481),
-    [aux_sym_preproc_def_token1] = ACTIONS(5481),
-    [aux_sym_preproc_if_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
-    [sym_preproc_directive] = ACTIONS(5481),
-    [anon_sym_LPAREN2] = ACTIONS(5481),
-    [anon_sym_PLUS] = ACTIONS(5483),
-    [anon_sym_DASH] = ACTIONS(5483),
+  [1321] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5243),
+    [aux_sym_preproc_def_token1] = ACTIONS(5243),
+    [aux_sym_preproc_if_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5243),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5243),
+    [sym_preproc_directive] = ACTIONS(5243),
+    [anon_sym_LPAREN2] = ACTIONS(5243),
+    [sym_preproc_comment] = ACTIONS(5401),
+    [anon_sym_PLUS] = ACTIONS(5247),
+    [anon_sym_DASH] = ACTIONS(5247),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5243),
+    [aux_sym_interface_statement_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5243),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5243),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5243),
+    [aux_sym_language_binding_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5243),
+    [aux_sym_contains_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token1] = ACTIONS(5243),
+    [aux_sym_use_statement_token2] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5243),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5243),
+    [aux_sym_save_statement_token1] = ACTIONS(5243),
+    [aux_sym_private_statement_token1] = ACTIONS(5243),
+    [aux_sym_public_statement_token1] = ACTIONS(5243),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5243),
+    [aux_sym_common_statement_token1] = ACTIONS(5243),
+    [aux_sym_import_statement_token1] = ACTIONS(5243),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5243),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5243),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5243),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5243),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5243),
+    [aux_sym_derived_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token1] = ACTIONS(5243),
+    [aux_sym_declared_type_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5243),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5243),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5243),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5243),
+    [anon_sym_SEMI] = ACTIONS(5247),
+    [aux_sym_stop_statement_token1] = ACTIONS(5243),
+    [aux_sym_stop_statement_token2] = ACTIONS(5243),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5243),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5243),
+    [aux_sym_include_statement_token1] = ACTIONS(5243),
+    [aux_sym_data_statement_token1] = ACTIONS(5243),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5243),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5243),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5243),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5243),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5243),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5243),
+    [aux_sym_block_construct_token1] = ACTIONS(5243),
+    [aux_sym_associate_statement_token1] = ACTIONS(5243),
+    [aux_sym_format_statement_token1] = ACTIONS(5243),
+    [aux_sym_print_statement_token1] = ACTIONS(5243),
+    [aux_sym_open_statement_token1] = ACTIONS(5243),
+    [aux_sym_close_statement_token1] = ACTIONS(5243),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5243),
+    [aux_sym_enum_statement_token1] = ACTIONS(5243),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5243),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5243),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5243),
+    [aux_sym_entry_statement_token1] = ACTIONS(5243),
+    [aux_sym_logical_expression_token5] = ACTIONS(5247),
+    [anon_sym_DOT] = ACTIONS(5243),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5247),
+    [anon_sym_LBRACK] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5247),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5247),
+    [aux_sym_null_literal_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5243),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5243),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5243),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5243),
+    [aux_sym_identifier_token1] = ACTIONS(5243),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5247),
+    [sym__float_literal] = ACTIONS(5247),
+    [sym__boz_literal] = ACTIONS(5247),
+    [sym__string_literal] = ACTIONS(5247),
+    [sym__string_literal_kind] = ACTIONS(5247),
+  },
+  [1322] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5060),
+    [aux_sym_preproc_def_token1] = ACTIONS(5060),
+    [aux_sym_preproc_if_token1] = ACTIONS(5060),
+    [aux_sym_preproc_if_token2] = ACTIONS(5063),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5060),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5060),
+    [sym_preproc_directive] = ACTIONS(5060),
+    [anon_sym_LPAREN2] = ACTIONS(5060),
+    [anon_sym_PLUS] = ACTIONS(5065),
+    [anon_sym_DASH] = ACTIONS(5065),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5060),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5068),
+    [aux_sym_interface_statement_token1] = ACTIONS(5060),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5060),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5060),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5060),
+    [aux_sym_language_binding_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5060),
+    [aux_sym_contains_statement_token1] = ACTIONS(5060),
+    [aux_sym_use_statement_token1] = ACTIONS(5060),
+    [aux_sym_use_statement_token2] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5060),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5060),
+    [aux_sym_save_statement_token1] = ACTIONS(5060),
+    [aux_sym_private_statement_token1] = ACTIONS(5060),
+    [aux_sym_public_statement_token1] = ACTIONS(5060),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5060),
+    [aux_sym_common_statement_token1] = ACTIONS(5060),
+    [aux_sym_import_statement_token1] = ACTIONS(5060),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5060),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5060),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5060),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5060),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5060),
+    [aux_sym_derived_type_token1] = ACTIONS(5060),
+    [aux_sym_declared_type_token1] = ACTIONS(5060),
+    [aux_sym_declared_type_token2] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5060),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5060),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5060),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5060),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5060),
+    [anon_sym_SEMI] = ACTIONS(5065),
+    [aux_sym_stop_statement_token1] = ACTIONS(5060),
+    [aux_sym_stop_statement_token2] = ACTIONS(5060),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5060),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5060),
+    [aux_sym_include_statement_token1] = ACTIONS(5060),
+    [aux_sym_data_statement_token1] = ACTIONS(5060),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5060),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5060),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5060),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5060),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5060),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5060),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5060),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5060),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5060),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5060),
+    [aux_sym_block_construct_token1] = ACTIONS(5060),
+    [aux_sym_associate_statement_token1] = ACTIONS(5060),
+    [aux_sym_format_statement_token1] = ACTIONS(5060),
+    [aux_sym_print_statement_token1] = ACTIONS(5060),
+    [aux_sym_open_statement_token1] = ACTIONS(5060),
+    [aux_sym_close_statement_token1] = ACTIONS(5060),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5060),
+    [aux_sym_enum_statement_token1] = ACTIONS(5060),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5060),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5060),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5060),
+    [aux_sym_entry_statement_token1] = ACTIONS(5060),
+    [aux_sym_logical_expression_token5] = ACTIONS(5065),
+    [anon_sym_DOT] = ACTIONS(5060),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5065),
+    [anon_sym_LBRACK] = ACTIONS(5065),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5065),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5065),
+    [aux_sym_null_literal_token1] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5060),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5060),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5060),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5060),
+    [aux_sym_identifier_token1] = ACTIONS(5060),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5065),
+    [sym__float_literal] = ACTIONS(5065),
+    [sym__boz_literal] = ACTIONS(5065),
+    [sym__string_literal] = ACTIONS(5065),
+    [sym__string_literal_kind] = ACTIONS(5065),
+  },
+  [1323] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [sym_preproc_comment] = ACTIONS(5403),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1324] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5323),
+    [aux_sym_preproc_def_token1] = ACTIONS(5323),
+    [aux_sym_preproc_if_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5323),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5323),
+    [sym_preproc_directive] = ACTIONS(5323),
+    [anon_sym_LPAREN2] = ACTIONS(5323),
+    [sym_preproc_comment] = ACTIONS(5405),
+    [anon_sym_PLUS] = ACTIONS(5327),
+    [anon_sym_DASH] = ACTIONS(5327),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5323),
+    [aux_sym_interface_statement_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5323),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5323),
+    [aux_sym_language_binding_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5323),
+    [aux_sym_contains_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token1] = ACTIONS(5323),
+    [aux_sym_use_statement_token2] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5323),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5323),
+    [aux_sym_save_statement_token1] = ACTIONS(5323),
+    [aux_sym_private_statement_token1] = ACTIONS(5323),
+    [aux_sym_public_statement_token1] = ACTIONS(5323),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5323),
+    [aux_sym_common_statement_token1] = ACTIONS(5323),
+    [aux_sym_import_statement_token1] = ACTIONS(5323),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5323),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5323),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5323),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5323),
+    [aux_sym_derived_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token1] = ACTIONS(5323),
+    [aux_sym_declared_type_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5323),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5323),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5323),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5323),
+    [anon_sym_SEMI] = ACTIONS(5327),
+    [aux_sym_stop_statement_token1] = ACTIONS(5323),
+    [aux_sym_stop_statement_token2] = ACTIONS(5323),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5323),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5323),
+    [aux_sym_include_statement_token1] = ACTIONS(5323),
+    [aux_sym_data_statement_token1] = ACTIONS(5323),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5323),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5323),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5323),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5323),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5323),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5323),
+    [aux_sym_block_construct_token1] = ACTIONS(5323),
+    [aux_sym_associate_statement_token1] = ACTIONS(5323),
+    [aux_sym_format_statement_token1] = ACTIONS(5323),
+    [aux_sym_print_statement_token1] = ACTIONS(5323),
+    [aux_sym_open_statement_token1] = ACTIONS(5323),
+    [aux_sym_close_statement_token1] = ACTIONS(5323),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5323),
+    [aux_sym_enum_statement_token1] = ACTIONS(5323),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5323),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5323),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5323),
+    [aux_sym_entry_statement_token1] = ACTIONS(5323),
+    [aux_sym_logical_expression_token5] = ACTIONS(5327),
+    [anon_sym_DOT] = ACTIONS(5323),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5327),
+    [anon_sym_LBRACK] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5327),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5327),
+    [aux_sym_null_literal_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5323),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5323),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5323),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5323),
+    [aux_sym_identifier_token1] = ACTIONS(5323),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5327),
+    [sym__float_literal] = ACTIONS(5327),
+    [sym__boz_literal] = ACTIONS(5327),
+    [sym__string_literal] = ACTIONS(5327),
+    [sym__string_literal_kind] = ACTIONS(5327),
+  },
+  [1325] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [sym_preproc_comment] = ACTIONS(5407),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
-    [aux_sym_interface_statement_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5481),
-    [aux_sym_language_binding_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
-    [aux_sym_contains_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token1] = ACTIONS(5481),
-    [aux_sym_use_statement_token2] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
-    [aux_sym_save_statement_token1] = ACTIONS(5481),
-    [aux_sym_private_statement_token1] = ACTIONS(5481),
-    [aux_sym_public_statement_token1] = ACTIONS(5481),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
-    [aux_sym_common_statement_token1] = ACTIONS(5481),
-    [aux_sym_import_statement_token1] = ACTIONS(5481),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
-    [aux_sym_derived_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token1] = ACTIONS(5481),
-    [aux_sym_declared_type_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
-    [anon_sym_SEMI] = ACTIONS(5483),
-    [aux_sym_stop_statement_token1] = ACTIONS(5481),
-    [aux_sym_stop_statement_token2] = ACTIONS(5481),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
-    [aux_sym_include_statement_token1] = ACTIONS(5481),
-    [aux_sym_data_statement_token1] = ACTIONS(5481),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
-    [aux_sym_block_construct_token1] = ACTIONS(5481),
-    [aux_sym_associate_statement_token1] = ACTIONS(5481),
-    [aux_sym_format_statement_token1] = ACTIONS(5481),
-    [aux_sym_print_statement_token1] = ACTIONS(5481),
-    [aux_sym_open_statement_token1] = ACTIONS(5481),
-    [aux_sym_close_statement_token1] = ACTIONS(5481),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
-    [aux_sym_enum_statement_token1] = ACTIONS(5481),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
-    [aux_sym_entry_statement_token1] = ACTIONS(5481),
-    [aux_sym_logical_expression_token5] = ACTIONS(5483),
-    [anon_sym_DOT] = ACTIONS(5481),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
-    [anon_sym_LBRACK] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
-    [aux_sym_null_literal_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
-    [aux_sym_identifier_token1] = ACTIONS(5481),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5483),
-    [sym__float_literal] = ACTIONS(5483),
-    [sym__boz_literal] = ACTIONS(5483),
-    [sym__string_literal] = ACTIONS(5483),
-    [sym__string_literal_kind] = ACTIONS(5483),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1587] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5441),
-    [aux_sym_preproc_def_token1] = ACTIONS(5441),
-    [aux_sym_preproc_if_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
-    [sym_preproc_directive] = ACTIONS(5441),
-    [anon_sym_LPAREN2] = ACTIONS(5441),
-    [anon_sym_PLUS] = ACTIONS(5443),
-    [anon_sym_DASH] = ACTIONS(5443),
+  [1326] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5301),
+    [aux_sym_preproc_def_token1] = ACTIONS(5301),
+    [aux_sym_preproc_if_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5301),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5301),
+    [sym_preproc_directive] = ACTIONS(5301),
+    [anon_sym_LPAREN2] = ACTIONS(5301),
+    [sym_preproc_comment] = ACTIONS(5409),
+    [anon_sym_PLUS] = ACTIONS(5305),
+    [anon_sym_DASH] = ACTIONS(5305),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5301),
+    [aux_sym_interface_statement_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5301),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5301),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5301),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5301),
+    [aux_sym_language_binding_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5301),
+    [aux_sym_contains_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token1] = ACTIONS(5301),
+    [aux_sym_use_statement_token2] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5301),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5301),
+    [aux_sym_save_statement_token1] = ACTIONS(5301),
+    [aux_sym_private_statement_token1] = ACTIONS(5301),
+    [aux_sym_public_statement_token1] = ACTIONS(5301),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5301),
+    [aux_sym_common_statement_token1] = ACTIONS(5301),
+    [aux_sym_import_statement_token1] = ACTIONS(5301),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5301),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5301),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5301),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5301),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5301),
+    [aux_sym_derived_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token1] = ACTIONS(5301),
+    [aux_sym_declared_type_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5301),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5301),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5301),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5301),
+    [anon_sym_SEMI] = ACTIONS(5305),
+    [aux_sym_stop_statement_token1] = ACTIONS(5301),
+    [aux_sym_stop_statement_token2] = ACTIONS(5301),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5301),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5301),
+    [aux_sym_include_statement_token1] = ACTIONS(5301),
+    [aux_sym_data_statement_token1] = ACTIONS(5301),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5301),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5301),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5301),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5301),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5301),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5301),
+    [aux_sym_block_construct_token1] = ACTIONS(5301),
+    [aux_sym_associate_statement_token1] = ACTIONS(5301),
+    [aux_sym_format_statement_token1] = ACTIONS(5301),
+    [aux_sym_print_statement_token1] = ACTIONS(5301),
+    [aux_sym_open_statement_token1] = ACTIONS(5301),
+    [aux_sym_close_statement_token1] = ACTIONS(5301),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5301),
+    [aux_sym_enum_statement_token1] = ACTIONS(5301),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5301),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5301),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5301),
+    [aux_sym_entry_statement_token1] = ACTIONS(5301),
+    [aux_sym_logical_expression_token5] = ACTIONS(5305),
+    [anon_sym_DOT] = ACTIONS(5301),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5305),
+    [anon_sym_LBRACK] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5305),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5305),
+    [aux_sym_null_literal_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5301),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5301),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5301),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5301),
+    [aux_sym_identifier_token1] = ACTIONS(5301),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5305),
+    [sym__float_literal] = ACTIONS(5305),
+    [sym__boz_literal] = ACTIONS(5305),
+    [sym__string_literal] = ACTIONS(5305),
+    [sym__string_literal_kind] = ACTIONS(5305),
+  },
+  [1327] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [sym_preproc_comment] = ACTIONS(5411),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
-    [aux_sym_interface_statement_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
-    [aux_sym_language_binding_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5441),
-    [aux_sym_contains_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token1] = ACTIONS(5441),
-    [aux_sym_use_statement_token2] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
-    [aux_sym_save_statement_token1] = ACTIONS(5441),
-    [aux_sym_private_statement_token1] = ACTIONS(5441),
-    [aux_sym_public_statement_token1] = ACTIONS(5441),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
-    [aux_sym_common_statement_token1] = ACTIONS(5441),
-    [aux_sym_import_statement_token1] = ACTIONS(5441),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
-    [aux_sym_derived_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token1] = ACTIONS(5441),
-    [aux_sym_declared_type_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
-    [anon_sym_SEMI] = ACTIONS(5443),
-    [aux_sym_stop_statement_token1] = ACTIONS(5441),
-    [aux_sym_stop_statement_token2] = ACTIONS(5441),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5441),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5441),
-    [aux_sym_include_statement_token1] = ACTIONS(5441),
-    [aux_sym_data_statement_token1] = ACTIONS(5441),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5441),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5441),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5441),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5441),
-    [aux_sym_block_construct_token1] = ACTIONS(5441),
-    [aux_sym_associate_statement_token1] = ACTIONS(5441),
-    [aux_sym_format_statement_token1] = ACTIONS(5441),
-    [aux_sym_print_statement_token1] = ACTIONS(5441),
-    [aux_sym_open_statement_token1] = ACTIONS(5441),
-    [aux_sym_close_statement_token1] = ACTIONS(5441),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
-    [aux_sym_enum_statement_token1] = ACTIONS(5441),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5441),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5441),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5441),
-    [aux_sym_entry_statement_token1] = ACTIONS(5441),
-    [aux_sym_logical_expression_token5] = ACTIONS(5443),
-    [anon_sym_DOT] = ACTIONS(5441),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5443),
-    [anon_sym_LBRACK] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5443),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5443),
-    [aux_sym_null_literal_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5441),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
-    [aux_sym_identifier_token1] = ACTIONS(5441),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5443),
-    [sym__float_literal] = ACTIONS(5443),
-    [sym__boz_literal] = ACTIONS(5443),
-    [sym__string_literal] = ACTIONS(5443),
-    [sym__string_literal_kind] = ACTIONS(5443),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1588] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4497),
-    [aux_sym_preproc_def_token1] = ACTIONS(4497),
-    [aux_sym_preproc_if_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4497),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4497),
-    [sym_preproc_directive] = ACTIONS(4497),
-    [anon_sym_LPAREN2] = ACTIONS(4497),
-    [anon_sym_PLUS] = ACTIONS(4501),
-    [anon_sym_DASH] = ACTIONS(4501),
+  [1328] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5413),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1329] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4381),
+    [aux_sym_preproc_def_token1] = ACTIONS(4381),
+    [aux_sym_preproc_if_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4381),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4381),
+    [sym_preproc_directive] = ACTIONS(4381),
+    [anon_sym_LPAREN2] = ACTIONS(4381),
+    [sym_preproc_comment] = ACTIONS(5415),
+    [anon_sym_PLUS] = ACTIONS(4387),
+    [anon_sym_DASH] = ACTIONS(4387),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4381),
+    [aux_sym_interface_statement_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4381),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4381),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4381),
+    [aux_sym_language_binding_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4381),
+    [aux_sym_contains_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token1] = ACTIONS(4381),
+    [aux_sym_use_statement_token2] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4381),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4381),
+    [aux_sym_save_statement_token1] = ACTIONS(4381),
+    [aux_sym_private_statement_token1] = ACTIONS(4381),
+    [aux_sym_public_statement_token1] = ACTIONS(4381),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4381),
+    [aux_sym_common_statement_token1] = ACTIONS(4381),
+    [aux_sym_import_statement_token1] = ACTIONS(4381),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4381),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4381),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4381),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4381),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4381),
+    [aux_sym_derived_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token1] = ACTIONS(4381),
+    [aux_sym_declared_type_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4381),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4381),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4381),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4381),
+    [anon_sym_SEMI] = ACTIONS(4387),
+    [aux_sym_stop_statement_token1] = ACTIONS(4381),
+    [aux_sym_stop_statement_token2] = ACTIONS(4381),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4381),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4381),
+    [aux_sym_include_statement_token1] = ACTIONS(4381),
+    [aux_sym_data_statement_token1] = ACTIONS(4381),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4381),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4381),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4381),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4381),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4381),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4381),
+    [aux_sym_block_construct_token1] = ACTIONS(4381),
+    [aux_sym_associate_statement_token1] = ACTIONS(4381),
+    [aux_sym_format_statement_token1] = ACTIONS(4381),
+    [aux_sym_print_statement_token1] = ACTIONS(4381),
+    [aux_sym_open_statement_token1] = ACTIONS(4381),
+    [aux_sym_close_statement_token1] = ACTIONS(4381),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4381),
+    [aux_sym_enum_statement_token1] = ACTIONS(4381),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4381),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4381),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4381),
+    [aux_sym_entry_statement_token1] = ACTIONS(4381),
+    [aux_sym_logical_expression_token5] = ACTIONS(4387),
+    [anon_sym_DOT] = ACTIONS(4381),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4387),
+    [anon_sym_LBRACK] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4387),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4387),
+    [aux_sym_null_literal_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4381),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4381),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4381),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4381),
+    [aux_sym_identifier_token1] = ACTIONS(4381),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4387),
+    [sym__float_literal] = ACTIONS(4387),
+    [sym__boz_literal] = ACTIONS(4387),
+    [sym__string_literal] = ACTIONS(4387),
+    [sym__string_literal_kind] = ACTIONS(4387),
+  },
+  [1330] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [sym_preproc_comment] = ACTIONS(5417),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4497),
-    [aux_sym_interface_statement_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4497),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4497),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4497),
-    [aux_sym_language_binding_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4497),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4497),
-    [aux_sym_contains_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token1] = ACTIONS(4497),
-    [aux_sym_use_statement_token2] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4497),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4497),
-    [aux_sym_save_statement_token1] = ACTIONS(4497),
-    [aux_sym_private_statement_token1] = ACTIONS(4497),
-    [aux_sym_public_statement_token1] = ACTIONS(4497),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4497),
-    [aux_sym_common_statement_token1] = ACTIONS(4497),
-    [aux_sym_import_statement_token1] = ACTIONS(4497),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4497),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4497),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4497),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4497),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4497),
-    [aux_sym_derived_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token1] = ACTIONS(4497),
-    [aux_sym_declared_type_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4497),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4497),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4497),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4497),
-    [anon_sym_SEMI] = ACTIONS(4501),
-    [aux_sym_stop_statement_token1] = ACTIONS(4497),
-    [aux_sym_stop_statement_token2] = ACTIONS(4497),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4497),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4497),
-    [aux_sym_include_statement_token1] = ACTIONS(4497),
-    [aux_sym_data_statement_token1] = ACTIONS(4497),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4497),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4497),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4497),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4497),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4497),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4497),
-    [aux_sym_block_construct_token1] = ACTIONS(4497),
-    [aux_sym_associate_statement_token1] = ACTIONS(4497),
-    [aux_sym_format_statement_token1] = ACTIONS(4497),
-    [aux_sym_print_statement_token1] = ACTIONS(4497),
-    [aux_sym_open_statement_token1] = ACTIONS(4497),
-    [aux_sym_close_statement_token1] = ACTIONS(4497),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4497),
-    [aux_sym_enum_statement_token1] = ACTIONS(4497),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4497),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4497),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4497),
-    [aux_sym_entry_statement_token1] = ACTIONS(4497),
-    [aux_sym_logical_expression_token5] = ACTIONS(4501),
-    [anon_sym_DOT] = ACTIONS(4497),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4501),
-    [anon_sym_LBRACK] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4501),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4501),
-    [aux_sym_null_literal_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4497),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4497),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4497),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4497),
-    [aux_sym_identifier_token1] = ACTIONS(4497),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4501),
-    [sym__float_literal] = ACTIONS(4501),
-    [sym__boz_literal] = ACTIONS(4501),
-    [sym__string_literal] = ACTIONS(4501),
-    [sym__string_literal_kind] = ACTIONS(4501),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1589] = {
+  [1331] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5419),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1332] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4329),
+    [aux_sym_preproc_def_token1] = ACTIONS(4329),
+    [aux_sym_preproc_if_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4329),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4329),
+    [sym_preproc_directive] = ACTIONS(4329),
+    [anon_sym_LPAREN2] = ACTIONS(4329),
+    [sym_preproc_comment] = ACTIONS(5421),
+    [anon_sym_PLUS] = ACTIONS(4335),
+    [anon_sym_DASH] = ACTIONS(4335),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4329),
+    [aux_sym_interface_statement_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4329),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4329),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4329),
+    [aux_sym_language_binding_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4329),
+    [aux_sym_contains_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token1] = ACTIONS(4329),
+    [aux_sym_use_statement_token2] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4329),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4329),
+    [aux_sym_save_statement_token1] = ACTIONS(4329),
+    [aux_sym_private_statement_token1] = ACTIONS(4329),
+    [aux_sym_public_statement_token1] = ACTIONS(4329),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4329),
+    [aux_sym_common_statement_token1] = ACTIONS(4329),
+    [aux_sym_import_statement_token1] = ACTIONS(4329),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4329),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4329),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4329),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4329),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4329),
+    [aux_sym_derived_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token1] = ACTIONS(4329),
+    [aux_sym_declared_type_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4329),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4329),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4329),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4329),
+    [anon_sym_SEMI] = ACTIONS(4335),
+    [aux_sym_stop_statement_token1] = ACTIONS(4329),
+    [aux_sym_stop_statement_token2] = ACTIONS(4329),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4329),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4329),
+    [aux_sym_include_statement_token1] = ACTIONS(4329),
+    [aux_sym_data_statement_token1] = ACTIONS(4329),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4329),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4329),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4329),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4329),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4329),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4329),
+    [aux_sym_block_construct_token1] = ACTIONS(4329),
+    [aux_sym_associate_statement_token1] = ACTIONS(4329),
+    [aux_sym_format_statement_token1] = ACTIONS(4329),
+    [aux_sym_print_statement_token1] = ACTIONS(4329),
+    [aux_sym_open_statement_token1] = ACTIONS(4329),
+    [aux_sym_close_statement_token1] = ACTIONS(4329),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4329),
+    [aux_sym_enum_statement_token1] = ACTIONS(4329),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4329),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4329),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4329),
+    [aux_sym_entry_statement_token1] = ACTIONS(4329),
+    [aux_sym_logical_expression_token5] = ACTIONS(4335),
+    [anon_sym_DOT] = ACTIONS(4329),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4335),
+    [anon_sym_LBRACK] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4335),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4335),
+    [aux_sym_null_literal_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4329),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4329),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4329),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4329),
+    [aux_sym_identifier_token1] = ACTIONS(4329),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4335),
+    [sym__float_literal] = ACTIONS(4335),
+    [sym__boz_literal] = ACTIONS(4335),
+    [sym__string_literal] = ACTIONS(4335),
+    [sym__string_literal_kind] = ACTIONS(4335),
+  },
+  [1333] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5315),
+    [aux_sym_preproc_def_token1] = ACTIONS(5315),
+    [aux_sym_preproc_if_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5315),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5315),
+    [sym_preproc_directive] = ACTIONS(5315),
+    [anon_sym_LPAREN2] = ACTIONS(5315),
+    [sym_preproc_comment] = ACTIONS(5423),
+    [anon_sym_PLUS] = ACTIONS(5319),
+    [anon_sym_DASH] = ACTIONS(5319),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5315),
+    [aux_sym_interface_statement_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5315),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5315),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5315),
+    [aux_sym_language_binding_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5315),
+    [aux_sym_contains_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token1] = ACTIONS(5315),
+    [aux_sym_use_statement_token2] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5315),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5315),
+    [aux_sym_save_statement_token1] = ACTIONS(5315),
+    [aux_sym_private_statement_token1] = ACTIONS(5315),
+    [aux_sym_public_statement_token1] = ACTIONS(5315),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5315),
+    [aux_sym_common_statement_token1] = ACTIONS(5315),
+    [aux_sym_import_statement_token1] = ACTIONS(5315),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5315),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5315),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5315),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5315),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5315),
+    [aux_sym_derived_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token1] = ACTIONS(5315),
+    [aux_sym_declared_type_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5315),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5315),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5315),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5315),
+    [anon_sym_SEMI] = ACTIONS(5319),
+    [aux_sym_stop_statement_token1] = ACTIONS(5315),
+    [aux_sym_stop_statement_token2] = ACTIONS(5315),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5315),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5315),
+    [aux_sym_include_statement_token1] = ACTIONS(5315),
+    [aux_sym_data_statement_token1] = ACTIONS(5315),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5315),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5315),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5315),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5315),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5315),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5315),
+    [aux_sym_block_construct_token1] = ACTIONS(5315),
+    [aux_sym_associate_statement_token1] = ACTIONS(5315),
+    [aux_sym_format_statement_token1] = ACTIONS(5315),
+    [aux_sym_print_statement_token1] = ACTIONS(5315),
+    [aux_sym_open_statement_token1] = ACTIONS(5315),
+    [aux_sym_close_statement_token1] = ACTIONS(5315),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5315),
+    [aux_sym_enum_statement_token1] = ACTIONS(5315),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5315),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5315),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5315),
+    [aux_sym_entry_statement_token1] = ACTIONS(5315),
+    [aux_sym_logical_expression_token5] = ACTIONS(5319),
+    [anon_sym_DOT] = ACTIONS(5315),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5319),
+    [anon_sym_LBRACK] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5319),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5319),
+    [aux_sym_null_literal_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5315),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5315),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5315),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5315),
+    [aux_sym_identifier_token1] = ACTIONS(5315),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5319),
+    [sym__float_literal] = ACTIONS(5319),
+    [sym__boz_literal] = ACTIONS(5319),
+    [sym__string_literal] = ACTIONS(5319),
+    [sym__string_literal_kind] = ACTIONS(5319),
+  },
+  [1334] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5177),
+    [aux_sym_preproc_def_token1] = ACTIONS(5177),
+    [aux_sym_preproc_if_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5177),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5177),
+    [sym_preproc_directive] = ACTIONS(5177),
+    [anon_sym_LPAREN2] = ACTIONS(5177),
+    [sym_preproc_comment] = ACTIONS(5425),
+    [anon_sym_PLUS] = ACTIONS(5181),
+    [anon_sym_DASH] = ACTIONS(5181),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5177),
+    [aux_sym_interface_statement_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5177),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5177),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5177),
+    [aux_sym_language_binding_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5177),
+    [aux_sym_contains_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token1] = ACTIONS(5177),
+    [aux_sym_use_statement_token2] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5177),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5177),
+    [aux_sym_save_statement_token1] = ACTIONS(5177),
+    [aux_sym_private_statement_token1] = ACTIONS(5177),
+    [aux_sym_public_statement_token1] = ACTIONS(5177),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5177),
+    [aux_sym_common_statement_token1] = ACTIONS(5177),
+    [aux_sym_import_statement_token1] = ACTIONS(5177),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5177),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5177),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5177),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5177),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5177),
+    [aux_sym_derived_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token1] = ACTIONS(5177),
+    [aux_sym_declared_type_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5177),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5177),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5177),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5177),
+    [anon_sym_SEMI] = ACTIONS(5181),
+    [aux_sym_stop_statement_token1] = ACTIONS(5177),
+    [aux_sym_stop_statement_token2] = ACTIONS(5177),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5177),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5177),
+    [aux_sym_include_statement_token1] = ACTIONS(5177),
+    [aux_sym_data_statement_token1] = ACTIONS(5177),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5177),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5177),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5177),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5177),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5177),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5177),
+    [aux_sym_block_construct_token1] = ACTIONS(5177),
+    [aux_sym_associate_statement_token1] = ACTIONS(5177),
+    [aux_sym_format_statement_token1] = ACTIONS(5177),
+    [aux_sym_print_statement_token1] = ACTIONS(5177),
+    [aux_sym_open_statement_token1] = ACTIONS(5177),
+    [aux_sym_close_statement_token1] = ACTIONS(5177),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5177),
+    [aux_sym_enum_statement_token1] = ACTIONS(5177),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5177),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5177),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5177),
+    [aux_sym_entry_statement_token1] = ACTIONS(5177),
+    [aux_sym_logical_expression_token5] = ACTIONS(5181),
+    [anon_sym_DOT] = ACTIONS(5177),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5181),
+    [anon_sym_LBRACK] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5181),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5181),
+    [aux_sym_null_literal_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5177),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5177),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5177),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5177),
+    [aux_sym_identifier_token1] = ACTIONS(5177),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5181),
+    [sym__float_literal] = ACTIONS(5181),
+    [sym__boz_literal] = ACTIONS(5181),
+    [sym__string_literal] = ACTIONS(5181),
+    [sym__string_literal_kind] = ACTIONS(5181),
+  },
+  [1335] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [sym_preproc_comment] = ACTIONS(5427),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1336] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [sym_preproc_comment] = ACTIONS(5429),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1337] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5209),
+    [aux_sym_preproc_def_token1] = ACTIONS(5209),
+    [aux_sym_preproc_if_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5209),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5209),
+    [sym_preproc_directive] = ACTIONS(5209),
+    [anon_sym_LPAREN2] = ACTIONS(5209),
+    [sym_preproc_comment] = ACTIONS(5431),
+    [anon_sym_PLUS] = ACTIONS(5213),
+    [anon_sym_DASH] = ACTIONS(5213),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5209),
+    [aux_sym_interface_statement_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5209),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5209),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5209),
+    [aux_sym_language_binding_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5209),
+    [aux_sym_contains_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token1] = ACTIONS(5209),
+    [aux_sym_use_statement_token2] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5209),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5209),
+    [aux_sym_save_statement_token1] = ACTIONS(5209),
+    [aux_sym_private_statement_token1] = ACTIONS(5209),
+    [aux_sym_public_statement_token1] = ACTIONS(5209),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5209),
+    [aux_sym_common_statement_token1] = ACTIONS(5209),
+    [aux_sym_import_statement_token1] = ACTIONS(5209),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5209),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5209),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5209),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5209),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5209),
+    [aux_sym_derived_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token1] = ACTIONS(5209),
+    [aux_sym_declared_type_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5209),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5209),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5209),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5209),
+    [anon_sym_SEMI] = ACTIONS(5213),
+    [aux_sym_stop_statement_token1] = ACTIONS(5209),
+    [aux_sym_stop_statement_token2] = ACTIONS(5209),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5209),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5209),
+    [aux_sym_include_statement_token1] = ACTIONS(5209),
+    [aux_sym_data_statement_token1] = ACTIONS(5209),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5209),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5209),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5209),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5209),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5209),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5209),
+    [aux_sym_block_construct_token1] = ACTIONS(5209),
+    [aux_sym_associate_statement_token1] = ACTIONS(5209),
+    [aux_sym_format_statement_token1] = ACTIONS(5209),
+    [aux_sym_print_statement_token1] = ACTIONS(5209),
+    [aux_sym_open_statement_token1] = ACTIONS(5209),
+    [aux_sym_close_statement_token1] = ACTIONS(5209),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5209),
+    [aux_sym_enum_statement_token1] = ACTIONS(5209),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5209),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5209),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5209),
+    [aux_sym_entry_statement_token1] = ACTIONS(5209),
+    [aux_sym_logical_expression_token5] = ACTIONS(5213),
+    [anon_sym_DOT] = ACTIONS(5209),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5213),
+    [anon_sym_LBRACK] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5213),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5213),
+    [aux_sym_null_literal_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5209),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5209),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5209),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5209),
+    [aux_sym_identifier_token1] = ACTIONS(5209),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5213),
+    [sym__float_literal] = ACTIONS(5213),
+    [sym__boz_literal] = ACTIONS(5213),
+    [sym__string_literal] = ACTIONS(5213),
+    [sym__string_literal_kind] = ACTIONS(5213),
+  },
+  [1338] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1339] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5128),
     [aux_sym_preproc_def_token1] = ACTIONS(5128),
     [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
     [sym_preproc_directive] = ACTIONS(5128),
@@ -311360,6 +278718,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_interface_statement_token1] = ACTIONS(5128),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5128),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
     [aux_sym_language_binding_token1] = ACTIONS(5128),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
@@ -311468,4043 +278827,6253 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
     [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
+  },
+  [1340] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
+  },
+  [1341] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token2] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
+  },
+  [1342] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token2] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
+  },
+  [1343] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5433),
+    [aux_sym_preproc_def_token1] = ACTIONS(5433),
+    [aux_sym_preproc_if_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
+    [sym_preproc_directive] = ACTIONS(5433),
+    [anon_sym_LPAREN2] = ACTIONS(5433),
+    [anon_sym_PLUS] = ACTIONS(5435),
+    [anon_sym_DASH] = ACTIONS(5435),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
+    [aux_sym_interface_statement_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
+    [aux_sym_language_binding_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5433),
+    [aux_sym_contains_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token2] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
+    [aux_sym_save_statement_token1] = ACTIONS(5433),
+    [aux_sym_private_statement_token1] = ACTIONS(5433),
+    [aux_sym_public_statement_token1] = ACTIONS(5433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
+    [aux_sym_common_statement_token1] = ACTIONS(5433),
+    [aux_sym_import_statement_token1] = ACTIONS(5433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
+    [aux_sym_derived_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
+    [anon_sym_SEMI] = ACTIONS(5435),
+    [aux_sym_stop_statement_token1] = ACTIONS(5433),
+    [aux_sym_stop_statement_token2] = ACTIONS(5433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
+    [aux_sym_include_statement_token1] = ACTIONS(5433),
+    [aux_sym_data_statement_token1] = ACTIONS(5433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
+    [aux_sym_block_construct_token1] = ACTIONS(5433),
+    [aux_sym_associate_statement_token1] = ACTIONS(5433),
+    [aux_sym_format_statement_token1] = ACTIONS(5433),
+    [aux_sym_print_statement_token1] = ACTIONS(5433),
+    [aux_sym_open_statement_token1] = ACTIONS(5433),
+    [aux_sym_close_statement_token1] = ACTIONS(5433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
+    [aux_sym_enum_statement_token1] = ACTIONS(5433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
+    [aux_sym_entry_statement_token1] = ACTIONS(5433),
+    [aux_sym_logical_expression_token5] = ACTIONS(5435),
+    [anon_sym_DOT] = ACTIONS(5433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
+    [anon_sym_LBRACK] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
+    [aux_sym_null_literal_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
+    [aux_sym_identifier_token1] = ACTIONS(5433),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5435),
+    [sym__float_literal] = ACTIONS(5435),
+    [sym__boz_literal] = ACTIONS(5435),
+    [sym__string_literal] = ACTIONS(5435),
+    [sym__string_literal_kind] = ACTIONS(5435),
+  },
+  [1344] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1345] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5437),
+    [aux_sym_preproc_def_token1] = ACTIONS(5437),
+    [aux_sym_preproc_if_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5437),
+    [sym_preproc_directive] = ACTIONS(5437),
+    [anon_sym_LPAREN2] = ACTIONS(5437),
+    [anon_sym_PLUS] = ACTIONS(5439),
+    [anon_sym_DASH] = ACTIONS(5439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5437),
+    [aux_sym_interface_statement_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5437),
+    [aux_sym_language_binding_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5437),
+    [aux_sym_contains_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token2] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5437),
+    [aux_sym_save_statement_token1] = ACTIONS(5437),
+    [aux_sym_private_statement_token1] = ACTIONS(5437),
+    [aux_sym_public_statement_token1] = ACTIONS(5437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5437),
+    [aux_sym_common_statement_token1] = ACTIONS(5437),
+    [aux_sym_import_statement_token1] = ACTIONS(5437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5437),
+    [aux_sym_derived_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5437),
+    [anon_sym_SEMI] = ACTIONS(5439),
+    [aux_sym_stop_statement_token1] = ACTIONS(5437),
+    [aux_sym_stop_statement_token2] = ACTIONS(5437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5437),
+    [aux_sym_include_statement_token1] = ACTIONS(5437),
+    [aux_sym_data_statement_token1] = ACTIONS(5437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5437),
+    [aux_sym_block_construct_token1] = ACTIONS(5437),
+    [aux_sym_associate_statement_token1] = ACTIONS(5437),
+    [aux_sym_format_statement_token1] = ACTIONS(5437),
+    [aux_sym_print_statement_token1] = ACTIONS(5437),
+    [aux_sym_open_statement_token1] = ACTIONS(5437),
+    [aux_sym_close_statement_token1] = ACTIONS(5437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5437),
+    [aux_sym_enum_statement_token1] = ACTIONS(5437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5437),
+    [aux_sym_entry_statement_token1] = ACTIONS(5437),
+    [aux_sym_logical_expression_token5] = ACTIONS(5439),
+    [anon_sym_DOT] = ACTIONS(5437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5439),
+    [anon_sym_LBRACK] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5439),
+    [aux_sym_null_literal_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5437),
+    [aux_sym_identifier_token1] = ACTIONS(5437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5439),
+    [sym__float_literal] = ACTIONS(5439),
+    [sym__boz_literal] = ACTIONS(5439),
+    [sym__string_literal] = ACTIONS(5439),
+    [sym__string_literal_kind] = ACTIONS(5439),
+  },
+  [1346] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1347] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [1348] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
+  },
+  [1349] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
+  },
+  [1350] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1590] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5457),
-    [aux_sym_preproc_def_token1] = ACTIONS(5457),
-    [aux_sym_preproc_if_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
-    [sym_preproc_directive] = ACTIONS(5457),
-    [anon_sym_LPAREN2] = ACTIONS(5457),
-    [anon_sym_PLUS] = ACTIONS(5459),
-    [anon_sym_DASH] = ACTIONS(5459),
+  [1351] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
+  },
+  [1352] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1353] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
-    [aux_sym_interface_statement_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
-    [aux_sym_language_binding_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5457),
-    [aux_sym_contains_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token1] = ACTIONS(5457),
-    [aux_sym_use_statement_token2] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
-    [aux_sym_save_statement_token1] = ACTIONS(5457),
-    [aux_sym_private_statement_token1] = ACTIONS(5457),
-    [aux_sym_public_statement_token1] = ACTIONS(5457),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
-    [aux_sym_common_statement_token1] = ACTIONS(5457),
-    [aux_sym_import_statement_token1] = ACTIONS(5457),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
-    [aux_sym_derived_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token1] = ACTIONS(5457),
-    [aux_sym_declared_type_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
-    [anon_sym_SEMI] = ACTIONS(5459),
-    [aux_sym_stop_statement_token1] = ACTIONS(5457),
-    [aux_sym_stop_statement_token2] = ACTIONS(5457),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
-    [aux_sym_include_statement_token1] = ACTIONS(5457),
-    [aux_sym_data_statement_token1] = ACTIONS(5457),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
-    [aux_sym_block_construct_token1] = ACTIONS(5457),
-    [aux_sym_associate_statement_token1] = ACTIONS(5457),
-    [aux_sym_format_statement_token1] = ACTIONS(5457),
-    [aux_sym_print_statement_token1] = ACTIONS(5457),
-    [aux_sym_open_statement_token1] = ACTIONS(5457),
-    [aux_sym_close_statement_token1] = ACTIONS(5457),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
-    [aux_sym_enum_statement_token1] = ACTIONS(5457),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
-    [aux_sym_entry_statement_token1] = ACTIONS(5457),
-    [aux_sym_logical_expression_token5] = ACTIONS(5459),
-    [anon_sym_DOT] = ACTIONS(5457),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
-    [anon_sym_LBRACK] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
-    [aux_sym_null_literal_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
-    [aux_sym_identifier_token1] = ACTIONS(5457),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5459),
-    [sym__float_literal] = ACTIONS(5459),
-    [sym__boz_literal] = ACTIONS(5459),
-    [sym__string_literal] = ACTIONS(5459),
-    [sym__string_literal_kind] = ACTIONS(5459),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1591] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+  [1354] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
   },
-  [1592] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1355] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
   },
-  [1593] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+  [1356] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1594] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1357] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
+  },
+  [1358] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1595] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1359] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
+  },
+  [1360] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1596] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1597] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
+  [1361] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1598] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+  [1362] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1599] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1363] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1600] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
+  [1364] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5437),
+    [aux_sym_preproc_def_token1] = ACTIONS(5437),
+    [aux_sym_preproc_if_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5437),
+    [sym_preproc_directive] = ACTIONS(5437),
+    [anon_sym_LPAREN2] = ACTIONS(5437),
+    [anon_sym_PLUS] = ACTIONS(5439),
+    [anon_sym_DASH] = ACTIONS(5439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5437),
+    [aux_sym_interface_statement_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5437),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5437),
+    [aux_sym_language_binding_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5437),
+    [aux_sym_contains_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token2] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5437),
+    [aux_sym_save_statement_token1] = ACTIONS(5437),
+    [aux_sym_private_statement_token1] = ACTIONS(5437),
+    [aux_sym_public_statement_token1] = ACTIONS(5437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5437),
+    [aux_sym_common_statement_token1] = ACTIONS(5437),
+    [aux_sym_import_statement_token1] = ACTIONS(5437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5437),
+    [aux_sym_derived_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5437),
+    [anon_sym_SEMI] = ACTIONS(5439),
+    [aux_sym_stop_statement_token1] = ACTIONS(5437),
+    [aux_sym_stop_statement_token2] = ACTIONS(5437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5437),
+    [aux_sym_include_statement_token1] = ACTIONS(5437),
+    [aux_sym_data_statement_token1] = ACTIONS(5437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5437),
+    [aux_sym_block_construct_token1] = ACTIONS(5437),
+    [aux_sym_associate_statement_token1] = ACTIONS(5437),
+    [aux_sym_format_statement_token1] = ACTIONS(5437),
+    [aux_sym_print_statement_token1] = ACTIONS(5437),
+    [aux_sym_open_statement_token1] = ACTIONS(5437),
+    [aux_sym_close_statement_token1] = ACTIONS(5437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5437),
+    [aux_sym_enum_statement_token1] = ACTIONS(5437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5437),
+    [aux_sym_entry_statement_token1] = ACTIONS(5437),
+    [aux_sym_logical_expression_token5] = ACTIONS(5439),
+    [anon_sym_DOT] = ACTIONS(5437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5439),
+    [anon_sym_LBRACK] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5439),
+    [aux_sym_null_literal_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5437),
+    [aux_sym_identifier_token1] = ACTIONS(5437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5439),
+    [sym__float_literal] = ACTIONS(5439),
+    [sym__boz_literal] = ACTIONS(5439),
+    [sym__string_literal] = ACTIONS(5439),
+    [sym__string_literal_kind] = ACTIONS(5439),
   },
-  [1601] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4315),
-    [aux_sym_preproc_def_token1] = ACTIONS(4315),
-    [aux_sym_preproc_if_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4315),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4315),
-    [sym_preproc_directive] = ACTIONS(4315),
-    [anon_sym_LPAREN2] = ACTIONS(4315),
-    [anon_sym_PLUS] = ACTIONS(4321),
-    [anon_sym_DASH] = ACTIONS(4321),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4315),
-    [aux_sym_interface_statement_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4315),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4315),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4315),
-    [aux_sym_language_binding_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4315),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4315),
-    [aux_sym_contains_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token1] = ACTIONS(4315),
-    [aux_sym_use_statement_token2] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4315),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4315),
-    [aux_sym_save_statement_token1] = ACTIONS(4315),
-    [aux_sym_private_statement_token1] = ACTIONS(4315),
-    [aux_sym_public_statement_token1] = ACTIONS(4315),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4315),
-    [aux_sym_common_statement_token1] = ACTIONS(4315),
-    [aux_sym_import_statement_token1] = ACTIONS(4315),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4315),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4315),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4315),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4315),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4315),
-    [aux_sym_derived_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token1] = ACTIONS(4315),
-    [aux_sym_declared_type_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4315),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4315),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4315),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4315),
-    [anon_sym_SEMI] = ACTIONS(4321),
-    [aux_sym_stop_statement_token1] = ACTIONS(4315),
-    [aux_sym_stop_statement_token2] = ACTIONS(4315),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4315),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4315),
-    [aux_sym_include_statement_token1] = ACTIONS(4315),
-    [aux_sym_data_statement_token1] = ACTIONS(4315),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4315),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4315),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4315),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4315),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4315),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4315),
-    [aux_sym_block_construct_token1] = ACTIONS(4315),
-    [aux_sym_associate_statement_token1] = ACTIONS(4315),
-    [aux_sym_format_statement_token1] = ACTIONS(4315),
-    [aux_sym_print_statement_token1] = ACTIONS(4315),
-    [aux_sym_open_statement_token1] = ACTIONS(4315),
-    [aux_sym_close_statement_token1] = ACTIONS(4315),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4315),
-    [aux_sym_enum_statement_token1] = ACTIONS(4315),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4315),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4315),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4315),
-    [aux_sym_entry_statement_token1] = ACTIONS(4315),
-    [aux_sym_logical_expression_token5] = ACTIONS(4321),
-    [anon_sym_DOT] = ACTIONS(4315),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4321),
-    [anon_sym_LBRACK] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4321),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4321),
-    [aux_sym_null_literal_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4315),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4315),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4315),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4315),
-    [aux_sym_identifier_token1] = ACTIONS(4315),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4321),
-    [sym__float_literal] = ACTIONS(4321),
-    [sym__boz_literal] = ACTIONS(4321),
-    [sym__string_literal] = ACTIONS(4321),
-    [sym__string_literal_kind] = ACTIONS(4321),
+  [1365] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1602] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
+  [1366] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5441),
+    [aux_sym_preproc_def_token1] = ACTIONS(5441),
+    [aux_sym_preproc_if_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
+    [sym_preproc_directive] = ACTIONS(5441),
+    [anon_sym_LPAREN2] = ACTIONS(5441),
+    [anon_sym_PLUS] = ACTIONS(5443),
+    [anon_sym_DASH] = ACTIONS(5443),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5441),
+    [aux_sym_interface_statement_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
+    [aux_sym_language_binding_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
+    [aux_sym_contains_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token2] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
+    [aux_sym_save_statement_token1] = ACTIONS(5441),
+    [aux_sym_private_statement_token1] = ACTIONS(5441),
+    [aux_sym_public_statement_token1] = ACTIONS(5441),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
+    [aux_sym_common_statement_token1] = ACTIONS(5441),
+    [aux_sym_import_statement_token1] = ACTIONS(5441),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
+    [aux_sym_derived_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
+    [anon_sym_SEMI] = ACTIONS(5443),
+    [aux_sym_stop_statement_token1] = ACTIONS(5441),
+    [aux_sym_stop_statement_token2] = ACTIONS(5441),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5441),
+    [aux_sym_include_statement_token1] = ACTIONS(5441),
+    [aux_sym_data_statement_token1] = ACTIONS(5441),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5441),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5441),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5441),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5441),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5441),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5441),
+    [aux_sym_block_construct_token1] = ACTIONS(5441),
+    [aux_sym_associate_statement_token1] = ACTIONS(5441),
+    [aux_sym_format_statement_token1] = ACTIONS(5441),
+    [aux_sym_print_statement_token1] = ACTIONS(5441),
+    [aux_sym_open_statement_token1] = ACTIONS(5441),
+    [aux_sym_close_statement_token1] = ACTIONS(5441),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
+    [aux_sym_enum_statement_token1] = ACTIONS(5441),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5441),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5441),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5441),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5441),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5441),
+    [aux_sym_entry_statement_token1] = ACTIONS(5441),
+    [aux_sym_logical_expression_token5] = ACTIONS(5443),
+    [anon_sym_DOT] = ACTIONS(5441),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5443),
+    [anon_sym_LBRACK] = ACTIONS(5443),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5443),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5443),
+    [aux_sym_null_literal_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5441),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
+    [aux_sym_identifier_token1] = ACTIONS(5441),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
+    [sym__integer_literal] = ACTIONS(5443),
+    [sym__float_literal] = ACTIONS(5443),
+    [sym__boz_literal] = ACTIONS(5443),
+    [sym__string_literal] = ACTIONS(5443),
+    [sym__string_literal_kind] = ACTIONS(5443),
   },
-  [1603] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1367] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5445),
+    [aux_sym_preproc_def_token1] = ACTIONS(5445),
+    [aux_sym_preproc_if_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
+    [sym_preproc_directive] = ACTIONS(5445),
+    [anon_sym_LPAREN2] = ACTIONS(5445),
+    [anon_sym_PLUS] = ACTIONS(5447),
+    [anon_sym_DASH] = ACTIONS(5447),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5445),
+    [aux_sym_interface_statement_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
+    [aux_sym_language_binding_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
+    [aux_sym_contains_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token2] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
+    [aux_sym_save_statement_token1] = ACTIONS(5445),
+    [aux_sym_private_statement_token1] = ACTIONS(5445),
+    [aux_sym_public_statement_token1] = ACTIONS(5445),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
+    [aux_sym_common_statement_token1] = ACTIONS(5445),
+    [aux_sym_import_statement_token1] = ACTIONS(5445),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
+    [aux_sym_derived_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
+    [anon_sym_SEMI] = ACTIONS(5447),
+    [aux_sym_stop_statement_token1] = ACTIONS(5445),
+    [aux_sym_stop_statement_token2] = ACTIONS(5445),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
+    [aux_sym_include_statement_token1] = ACTIONS(5445),
+    [aux_sym_data_statement_token1] = ACTIONS(5445),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
+    [aux_sym_block_construct_token1] = ACTIONS(5445),
+    [aux_sym_associate_statement_token1] = ACTIONS(5445),
+    [aux_sym_format_statement_token1] = ACTIONS(5445),
+    [aux_sym_print_statement_token1] = ACTIONS(5445),
+    [aux_sym_open_statement_token1] = ACTIONS(5445),
+    [aux_sym_close_statement_token1] = ACTIONS(5445),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
+    [aux_sym_enum_statement_token1] = ACTIONS(5445),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
+    [aux_sym_entry_statement_token1] = ACTIONS(5445),
+    [aux_sym_logical_expression_token5] = ACTIONS(5447),
+    [anon_sym_DOT] = ACTIONS(5445),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
+    [anon_sym_LBRACK] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
+    [aux_sym_null_literal_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
+    [aux_sym_identifier_token1] = ACTIONS(5445),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1604] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+    [sym__integer_literal] = ACTIONS(5447),
+    [sym__float_literal] = ACTIONS(5447),
+    [sym__boz_literal] = ACTIONS(5447),
+    [sym__string_literal] = ACTIONS(5447),
+    [sym__string_literal_kind] = ACTIONS(5447),
   },
-  [1605] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+  [1368] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1606] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1369] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5449),
+    [aux_sym_preproc_def_token1] = ACTIONS(5449),
+    [aux_sym_preproc_if_token1] = ACTIONS(5449),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5449),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5449),
+    [sym_preproc_directive] = ACTIONS(5449),
+    [anon_sym_LPAREN2] = ACTIONS(5449),
+    [anon_sym_PLUS] = ACTIONS(5451),
+    [anon_sym_DASH] = ACTIONS(5451),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5449),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5449),
+    [aux_sym_interface_statement_token1] = ACTIONS(5449),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5449),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5449),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5449),
+    [aux_sym_language_binding_token1] = ACTIONS(5449),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5449),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5449),
+    [aux_sym_contains_statement_token1] = ACTIONS(5449),
+    [aux_sym_use_statement_token1] = ACTIONS(5449),
+    [aux_sym_use_statement_token2] = ACTIONS(5449),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5449),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5449),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5449),
+    [aux_sym_save_statement_token1] = ACTIONS(5449),
+    [aux_sym_private_statement_token1] = ACTIONS(5449),
+    [aux_sym_public_statement_token1] = ACTIONS(5449),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5449),
+    [aux_sym_common_statement_token1] = ACTIONS(5449),
+    [aux_sym_import_statement_token1] = ACTIONS(5449),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5449),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5449),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5449),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5449),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5449),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5449),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5449),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5449),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5449),
+    [aux_sym_derived_type_token1] = ACTIONS(5449),
+    [aux_sym_declared_type_token1] = ACTIONS(5449),
+    [aux_sym_declared_type_token2] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5449),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5449),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5449),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5449),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5449),
+    [anon_sym_SEMI] = ACTIONS(5451),
+    [aux_sym_stop_statement_token1] = ACTIONS(5449),
+    [aux_sym_stop_statement_token2] = ACTIONS(5449),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5449),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5449),
+    [aux_sym_include_statement_token1] = ACTIONS(5449),
+    [aux_sym_data_statement_token1] = ACTIONS(5449),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5449),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5449),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5449),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5449),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5449),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5449),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5449),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5449),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5449),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5449),
+    [aux_sym_block_construct_token1] = ACTIONS(5449),
+    [aux_sym_associate_statement_token1] = ACTIONS(5449),
+    [aux_sym_format_statement_token1] = ACTIONS(5449),
+    [aux_sym_print_statement_token1] = ACTIONS(5449),
+    [aux_sym_open_statement_token1] = ACTIONS(5449),
+    [aux_sym_close_statement_token1] = ACTIONS(5449),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5449),
+    [aux_sym_enum_statement_token1] = ACTIONS(5449),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5449),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5449),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5449),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5449),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5449),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5449),
+    [aux_sym_entry_statement_token1] = ACTIONS(5449),
+    [aux_sym_logical_expression_token5] = ACTIONS(5451),
+    [anon_sym_DOT] = ACTIONS(5449),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5451),
+    [anon_sym_LBRACK] = ACTIONS(5451),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5451),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5451),
+    [aux_sym_null_literal_token1] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5449),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5449),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5449),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5449),
+    [aux_sym_identifier_token1] = ACTIONS(5449),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5451),
+    [sym__float_literal] = ACTIONS(5451),
+    [sym__boz_literal] = ACTIONS(5451),
+    [sym__string_literal] = ACTIONS(5451),
+    [sym__string_literal_kind] = ACTIONS(5451),
   },
-  [1607] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token2] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1370] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1608] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+  [1371] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
   },
-  [1609] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_LPAREN2] = ACTIONS(5138),
-    [anon_sym_PLUS] = ACTIONS(5140),
-    [anon_sym_DASH] = ACTIONS(5140),
+  [1372] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [anon_sym_SEMI] = ACTIONS(5140),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_associate_statement_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_print_statement_token1] = ACTIONS(5138),
-    [aux_sym_open_statement_token1] = ACTIONS(5138),
-    [aux_sym_close_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_logical_expression_token5] = ACTIONS(5140),
-    [anon_sym_DOT] = ACTIONS(5138),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
-    [anon_sym_LBRACK] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-    [sym__float_literal] = ACTIONS(5140),
-    [sym__boz_literal] = ACTIONS(5140),
-    [sym__string_literal] = ACTIONS(5140),
-    [sym__string_literal_kind] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1610] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
+  [1373] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1374] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1375] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
+  },
+  [1376] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
+  },
+  [1377] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
+  },
+  [1378] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1611] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1612] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
+  [1379] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
   },
-  [1613] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5433),
-    [aux_sym_preproc_def_token1] = ACTIONS(5433),
-    [aux_sym_preproc_if_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
-    [sym_preproc_directive] = ACTIONS(5433),
-    [anon_sym_LPAREN2] = ACTIONS(5433),
-    [anon_sym_PLUS] = ACTIONS(5435),
-    [anon_sym_DASH] = ACTIONS(5435),
+  [1380] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5453),
+    [aux_sym_preproc_def_token1] = ACTIONS(5453),
+    [aux_sym_preproc_if_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
+    [sym_preproc_directive] = ACTIONS(5453),
+    [anon_sym_LPAREN2] = ACTIONS(5453),
+    [anon_sym_PLUS] = ACTIONS(5455),
+    [anon_sym_DASH] = ACTIONS(5455),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
-    [aux_sym_interface_statement_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5433),
-    [aux_sym_language_binding_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
-    [aux_sym_contains_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token1] = ACTIONS(5433),
-    [aux_sym_use_statement_token2] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
-    [aux_sym_save_statement_token1] = ACTIONS(5433),
-    [aux_sym_private_statement_token1] = ACTIONS(5433),
-    [aux_sym_public_statement_token1] = ACTIONS(5433),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
-    [aux_sym_common_statement_token1] = ACTIONS(5433),
-    [aux_sym_import_statement_token1] = ACTIONS(5433),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
-    [aux_sym_derived_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token1] = ACTIONS(5433),
-    [aux_sym_declared_type_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
-    [anon_sym_SEMI] = ACTIONS(5435),
-    [aux_sym_stop_statement_token1] = ACTIONS(5433),
-    [aux_sym_stop_statement_token2] = ACTIONS(5433),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
-    [aux_sym_include_statement_token1] = ACTIONS(5433),
-    [aux_sym_data_statement_token1] = ACTIONS(5433),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
-    [aux_sym_block_construct_token1] = ACTIONS(5433),
-    [aux_sym_associate_statement_token1] = ACTIONS(5433),
-    [aux_sym_format_statement_token1] = ACTIONS(5433),
-    [aux_sym_print_statement_token1] = ACTIONS(5433),
-    [aux_sym_open_statement_token1] = ACTIONS(5433),
-    [aux_sym_close_statement_token1] = ACTIONS(5433),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
-    [aux_sym_enum_statement_token1] = ACTIONS(5433),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
-    [aux_sym_entry_statement_token1] = ACTIONS(5433),
-    [aux_sym_logical_expression_token5] = ACTIONS(5435),
-    [anon_sym_DOT] = ACTIONS(5433),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
-    [anon_sym_LBRACK] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
-    [aux_sym_null_literal_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
-    [aux_sym_identifier_token1] = ACTIONS(5433),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
+    [aux_sym_interface_statement_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
+    [aux_sym_language_binding_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
+    [aux_sym_contains_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token2] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
+    [aux_sym_save_statement_token1] = ACTIONS(5453),
+    [aux_sym_private_statement_token1] = ACTIONS(5453),
+    [aux_sym_public_statement_token1] = ACTIONS(5453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
+    [aux_sym_common_statement_token1] = ACTIONS(5453),
+    [aux_sym_import_statement_token1] = ACTIONS(5453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
+    [aux_sym_derived_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
+    [anon_sym_SEMI] = ACTIONS(5455),
+    [aux_sym_stop_statement_token1] = ACTIONS(5453),
+    [aux_sym_stop_statement_token2] = ACTIONS(5453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
+    [aux_sym_include_statement_token1] = ACTIONS(5453),
+    [aux_sym_data_statement_token1] = ACTIONS(5453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
+    [aux_sym_block_construct_token1] = ACTIONS(5453),
+    [aux_sym_associate_statement_token1] = ACTIONS(5453),
+    [aux_sym_format_statement_token1] = ACTIONS(5453),
+    [aux_sym_print_statement_token1] = ACTIONS(5453),
+    [aux_sym_open_statement_token1] = ACTIONS(5453),
+    [aux_sym_close_statement_token1] = ACTIONS(5453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
+    [aux_sym_enum_statement_token1] = ACTIONS(5453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
+    [aux_sym_entry_statement_token1] = ACTIONS(5453),
+    [aux_sym_logical_expression_token5] = ACTIONS(5455),
+    [anon_sym_DOT] = ACTIONS(5453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
+    [anon_sym_LBRACK] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
+    [aux_sym_null_literal_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
+    [aux_sym_identifier_token1] = ACTIONS(5453),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5435),
-    [sym__float_literal] = ACTIONS(5435),
-    [sym__boz_literal] = ACTIONS(5435),
-    [sym__string_literal] = ACTIONS(5435),
-    [sym__string_literal_kind] = ACTIONS(5435),
+    [sym__integer_literal] = ACTIONS(5455),
+    [sym__float_literal] = ACTIONS(5455),
+    [sym__boz_literal] = ACTIONS(5455),
+    [sym__string_literal] = ACTIONS(5455),
+    [sym__string_literal_kind] = ACTIONS(5455),
   },
-  [1614] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1381] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
+  },
+  [1382] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1615] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1383] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [1616] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [1617] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1618] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
+  [1384] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1619] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
+  [1385] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1620] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
+  [1386] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5445),
+    [aux_sym_preproc_def_token1] = ACTIONS(5445),
+    [aux_sym_preproc_if_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
+    [sym_preproc_directive] = ACTIONS(5445),
+    [anon_sym_LPAREN2] = ACTIONS(5445),
+    [anon_sym_PLUS] = ACTIONS(5447),
+    [anon_sym_DASH] = ACTIONS(5447),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
+    [aux_sym_interface_statement_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5445),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
+    [aux_sym_language_binding_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
+    [aux_sym_contains_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token2] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
+    [aux_sym_save_statement_token1] = ACTIONS(5445),
+    [aux_sym_private_statement_token1] = ACTIONS(5445),
+    [aux_sym_public_statement_token1] = ACTIONS(5445),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
+    [aux_sym_common_statement_token1] = ACTIONS(5445),
+    [aux_sym_import_statement_token1] = ACTIONS(5445),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
+    [aux_sym_derived_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
+    [anon_sym_SEMI] = ACTIONS(5447),
+    [aux_sym_stop_statement_token1] = ACTIONS(5445),
+    [aux_sym_stop_statement_token2] = ACTIONS(5445),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
+    [aux_sym_include_statement_token1] = ACTIONS(5445),
+    [aux_sym_data_statement_token1] = ACTIONS(5445),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
+    [aux_sym_block_construct_token1] = ACTIONS(5445),
+    [aux_sym_associate_statement_token1] = ACTIONS(5445),
+    [aux_sym_format_statement_token1] = ACTIONS(5445),
+    [aux_sym_print_statement_token1] = ACTIONS(5445),
+    [aux_sym_open_statement_token1] = ACTIONS(5445),
+    [aux_sym_close_statement_token1] = ACTIONS(5445),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
+    [aux_sym_enum_statement_token1] = ACTIONS(5445),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
+    [aux_sym_entry_statement_token1] = ACTIONS(5445),
+    [aux_sym_logical_expression_token5] = ACTIONS(5447),
+    [anon_sym_DOT] = ACTIONS(5445),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
+    [anon_sym_LBRACK] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
+    [aux_sym_null_literal_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
+    [aux_sym_identifier_token1] = ACTIONS(5445),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
+    [sym__integer_literal] = ACTIONS(5447),
+    [sym__float_literal] = ACTIONS(5447),
+    [sym__boz_literal] = ACTIONS(5447),
+    [sym__string_literal] = ACTIONS(5447),
+    [sym__string_literal_kind] = ACTIONS(5447),
   },
-  [1621] = {
+  [1387] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
+  },
+  [1388] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5124),
     [aux_sym_preproc_def_token1] = ACTIONS(5124),
     [aux_sym_preproc_if_token1] = ACTIONS(5124),
@@ -315519,8 +285088,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_interface_statement_token1] = ACTIONS(5124),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5124),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5124),
     [aux_sym_language_binding_token1] = ACTIONS(5124),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
@@ -315634,915 +285203,787 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5126),
     [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1622] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
+  [1389] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
-  },
-  [1623] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1624] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1390] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1625] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+  [1391] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
+  },
+  [1392] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5457),
+    [aux_sym_preproc_def_token1] = ACTIONS(5457),
+    [aux_sym_preproc_if_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
+    [sym_preproc_directive] = ACTIONS(5457),
+    [anon_sym_LPAREN2] = ACTIONS(5457),
+    [anon_sym_PLUS] = ACTIONS(5459),
+    [anon_sym_DASH] = ACTIONS(5459),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
+    [aux_sym_interface_statement_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
+    [aux_sym_language_binding_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5457),
+    [aux_sym_contains_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token2] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
+    [aux_sym_save_statement_token1] = ACTIONS(5457),
+    [aux_sym_private_statement_token1] = ACTIONS(5457),
+    [aux_sym_public_statement_token1] = ACTIONS(5457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
+    [aux_sym_common_statement_token1] = ACTIONS(5457),
+    [aux_sym_import_statement_token1] = ACTIONS(5457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
+    [aux_sym_derived_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
+    [anon_sym_SEMI] = ACTIONS(5459),
+    [aux_sym_stop_statement_token1] = ACTIONS(5457),
+    [aux_sym_stop_statement_token2] = ACTIONS(5457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
+    [aux_sym_include_statement_token1] = ACTIONS(5457),
+    [aux_sym_data_statement_token1] = ACTIONS(5457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
+    [aux_sym_block_construct_token1] = ACTIONS(5457),
+    [aux_sym_associate_statement_token1] = ACTIONS(5457),
+    [aux_sym_format_statement_token1] = ACTIONS(5457),
+    [aux_sym_print_statement_token1] = ACTIONS(5457),
+    [aux_sym_open_statement_token1] = ACTIONS(5457),
+    [aux_sym_close_statement_token1] = ACTIONS(5457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
+    [aux_sym_enum_statement_token1] = ACTIONS(5457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
+    [aux_sym_entry_statement_token1] = ACTIONS(5457),
+    [aux_sym_logical_expression_token5] = ACTIONS(5459),
+    [anon_sym_DOT] = ACTIONS(5457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
+    [anon_sym_LBRACK] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
+    [aux_sym_null_literal_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
+    [aux_sym_identifier_token1] = ACTIONS(5457),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1626] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5066),
-    [aux_sym_preproc_def_token1] = ACTIONS(5066),
-    [aux_sym_preproc_if_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5066),
-    [sym_preproc_directive] = ACTIONS(5066),
-    [anon_sym_LPAREN2] = ACTIONS(5066),
-    [anon_sym_PLUS] = ACTIONS(5070),
-    [anon_sym_DASH] = ACTIONS(5070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5066),
-    [aux_sym_interface_statement_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5066),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5066),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5066),
-    [aux_sym_language_binding_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5066),
-    [aux_sym_contains_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token1] = ACTIONS(5066),
-    [aux_sym_use_statement_token2] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5066),
-    [aux_sym_save_statement_token1] = ACTIONS(5066),
-    [aux_sym_private_statement_token1] = ACTIONS(5066),
-    [aux_sym_public_statement_token1] = ACTIONS(5066),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5066),
-    [aux_sym_common_statement_token1] = ACTIONS(5066),
-    [aux_sym_import_statement_token1] = ACTIONS(5066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5066),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5066),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5066),
-    [aux_sym_derived_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token1] = ACTIONS(5066),
-    [aux_sym_declared_type_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5066),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5066),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5066),
-    [anon_sym_SEMI] = ACTIONS(5070),
-    [aux_sym_stop_statement_token1] = ACTIONS(5066),
-    [aux_sym_stop_statement_token2] = ACTIONS(5066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5066),
-    [aux_sym_include_statement_token1] = ACTIONS(5066),
-    [aux_sym_data_statement_token1] = ACTIONS(5066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5066),
-    [aux_sym_block_construct_token1] = ACTIONS(5066),
-    [aux_sym_associate_statement_token1] = ACTIONS(5066),
-    [aux_sym_format_statement_token1] = ACTIONS(5066),
-    [aux_sym_print_statement_token1] = ACTIONS(5066),
-    [aux_sym_open_statement_token1] = ACTIONS(5066),
-    [aux_sym_close_statement_token1] = ACTIONS(5066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5066),
-    [aux_sym_enum_statement_token1] = ACTIONS(5066),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5066),
-    [aux_sym_entry_statement_token1] = ACTIONS(5066),
-    [aux_sym_logical_expression_token5] = ACTIONS(5070),
-    [anon_sym_DOT] = ACTIONS(5066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5070),
-    [anon_sym_LBRACK] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5070),
-    [aux_sym_null_literal_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5066),
-    [aux_sym_identifier_token1] = ACTIONS(5066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5070),
-    [sym__float_literal] = ACTIONS(5070),
-    [sym__boz_literal] = ACTIONS(5070),
-    [sym__string_literal] = ACTIONS(5070),
-    [sym__string_literal_kind] = ACTIONS(5070),
+    [sym__integer_literal] = ACTIONS(5459),
+    [sym__float_literal] = ACTIONS(5459),
+    [sym__boz_literal] = ACTIONS(5459),
+    [sym__string_literal] = ACTIONS(5459),
+    [sym__string_literal_kind] = ACTIONS(5459),
   },
-  [1627] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_LPAREN2] = ACTIONS(5094),
-    [anon_sym_PLUS] = ACTIONS(5096),
-    [anon_sym_DASH] = ACTIONS(5096),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [anon_sym_SEMI] = ACTIONS(5096),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5094),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5094),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5094),
-    [aux_sym_associate_statement_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_print_statement_token1] = ACTIONS(5094),
-    [aux_sym_open_statement_token1] = ACTIONS(5094),
-    [aux_sym_close_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5094),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5094),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_logical_expression_token5] = ACTIONS(5096),
-    [anon_sym_DOT] = ACTIONS(5094),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5096),
-    [anon_sym_LBRACK] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5096),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5096),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-    [sym__float_literal] = ACTIONS(5096),
-    [sym__boz_literal] = ACTIONS(5096),
-    [sym__string_literal] = ACTIONS(5096),
-    [sym__string_literal_kind] = ACTIONS(5096),
+  [1393] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5461),
+    [aux_sym_preproc_def_token1] = ACTIONS(5461),
+    [aux_sym_preproc_if_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
+    [sym_preproc_directive] = ACTIONS(5461),
+    [anon_sym_LPAREN2] = ACTIONS(5461),
+    [anon_sym_PLUS] = ACTIONS(5463),
+    [anon_sym_DASH] = ACTIONS(5463),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
+    [aux_sym_interface_statement_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
+    [aux_sym_language_binding_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5461),
+    [aux_sym_contains_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token2] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
+    [aux_sym_save_statement_token1] = ACTIONS(5461),
+    [aux_sym_private_statement_token1] = ACTIONS(5461),
+    [aux_sym_public_statement_token1] = ACTIONS(5461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
+    [aux_sym_common_statement_token1] = ACTIONS(5461),
+    [aux_sym_import_statement_token1] = ACTIONS(5461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
+    [aux_sym_derived_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
+    [anon_sym_SEMI] = ACTIONS(5463),
+    [aux_sym_stop_statement_token1] = ACTIONS(5461),
+    [aux_sym_stop_statement_token2] = ACTIONS(5461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
+    [aux_sym_include_statement_token1] = ACTIONS(5461),
+    [aux_sym_data_statement_token1] = ACTIONS(5461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
+    [aux_sym_block_construct_token1] = ACTIONS(5461),
+    [aux_sym_associate_statement_token1] = ACTIONS(5461),
+    [aux_sym_format_statement_token1] = ACTIONS(5461),
+    [aux_sym_print_statement_token1] = ACTIONS(5461),
+    [aux_sym_open_statement_token1] = ACTIONS(5461),
+    [aux_sym_close_statement_token1] = ACTIONS(5461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
+    [aux_sym_enum_statement_token1] = ACTIONS(5461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
+    [aux_sym_entry_statement_token1] = ACTIONS(5461),
+    [aux_sym_logical_expression_token5] = ACTIONS(5463),
+    [anon_sym_DOT] = ACTIONS(5461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
+    [anon_sym_LBRACK] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
+    [aux_sym_null_literal_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
+    [aux_sym_identifier_token1] = ACTIONS(5461),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5463),
+    [sym__float_literal] = ACTIONS(5463),
+    [sym__boz_literal] = ACTIONS(5463),
+    [sym__string_literal] = ACTIONS(5463),
+    [sym__string_literal_kind] = ACTIONS(5463),
   },
-  [1628] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_LPAREN2] = ACTIONS(5128),
-    [anon_sym_PLUS] = ACTIONS(5130),
-    [anon_sym_DASH] = ACTIONS(5130),
+  [1394] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5465),
+    [aux_sym_preproc_def_token1] = ACTIONS(5465),
+    [aux_sym_preproc_if_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
+    [sym_preproc_directive] = ACTIONS(5465),
+    [anon_sym_LPAREN2] = ACTIONS(5465),
+    [anon_sym_PLUS] = ACTIONS(5467),
+    [anon_sym_DASH] = ACTIONS(5467),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [anon_sym_SEMI] = ACTIONS(5130),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5128),
-    [aux_sym_associate_statement_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_print_statement_token1] = ACTIONS(5128),
-    [aux_sym_open_statement_token1] = ACTIONS(5128),
-    [aux_sym_close_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_logical_expression_token5] = ACTIONS(5130),
-    [anon_sym_DOT] = ACTIONS(5128),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
-    [anon_sym_LBRACK] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
+    [aux_sym_interface_statement_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
+    [aux_sym_language_binding_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5465),
+    [aux_sym_contains_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token2] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
+    [aux_sym_save_statement_token1] = ACTIONS(5465),
+    [aux_sym_private_statement_token1] = ACTIONS(5465),
+    [aux_sym_public_statement_token1] = ACTIONS(5465),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
+    [aux_sym_common_statement_token1] = ACTIONS(5465),
+    [aux_sym_import_statement_token1] = ACTIONS(5465),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
+    [aux_sym_derived_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
+    [anon_sym_SEMI] = ACTIONS(5467),
+    [aux_sym_stop_statement_token1] = ACTIONS(5465),
+    [aux_sym_stop_statement_token2] = ACTIONS(5465),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
+    [aux_sym_include_statement_token1] = ACTIONS(5465),
+    [aux_sym_data_statement_token1] = ACTIONS(5465),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
+    [aux_sym_block_construct_token1] = ACTIONS(5465),
+    [aux_sym_associate_statement_token1] = ACTIONS(5465),
+    [aux_sym_format_statement_token1] = ACTIONS(5465),
+    [aux_sym_print_statement_token1] = ACTIONS(5465),
+    [aux_sym_open_statement_token1] = ACTIONS(5465),
+    [aux_sym_close_statement_token1] = ACTIONS(5465),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
+    [aux_sym_enum_statement_token1] = ACTIONS(5465),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
+    [aux_sym_entry_statement_token1] = ACTIONS(5465),
+    [aux_sym_logical_expression_token5] = ACTIONS(5467),
+    [anon_sym_DOT] = ACTIONS(5465),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
+    [anon_sym_LBRACK] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
+    [aux_sym_null_literal_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
+    [aux_sym_identifier_token1] = ACTIONS(5465),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-    [sym__float_literal] = ACTIONS(5130),
-    [sym__boz_literal] = ACTIONS(5130),
-    [sym__string_literal] = ACTIONS(5130),
-    [sym__string_literal_kind] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(5467),
+    [sym__float_literal] = ACTIONS(5467),
+    [sym__boz_literal] = ACTIONS(5467),
+    [sym__string_literal] = ACTIONS(5467),
+    [sym__string_literal_kind] = ACTIONS(5467),
   },
-  [1629] = {
+  [1395] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5138),
     [aux_sym_preproc_def_token1] = ACTIONS(5138),
     [aux_sym_preproc_if_token1] = ACTIONS(5138),
@@ -316554,6 +285995,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5138),
     [aux_sym_interface_statement_token1] = ACTIONS(5138),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
@@ -316561,6 +286003,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_language_binding_token1] = ACTIONS(5138),
     [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
     [aux_sym_use_statement_token1] = ACTIONS(5138),
     [aux_sym_use_statement_token2] = ACTIONS(5138),
     [aux_sym_implicit_statement_token1] = ACTIONS(5138),
@@ -316632,7 +286075,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(5138),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
     [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5138),
     [aux_sym_associate_statement_token1] = ACTIONS(5138),
     [aux_sym_format_statement_token1] = ACTIONS(5138),
     [aux_sym_print_statement_token1] = ACTIONS(5138),
@@ -316671,25019 +286113,29195 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5140),
     [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1630] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_LPAREN2] = ACTIONS(5032),
-    [anon_sym_PLUS] = ACTIONS(5034),
-    [anon_sym_DASH] = ACTIONS(5034),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [anon_sym_SEMI] = ACTIONS(5034),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5032),
-    [aux_sym_associate_statement_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_print_statement_token1] = ACTIONS(5032),
-    [aux_sym_open_statement_token1] = ACTIONS(5032),
-    [aux_sym_close_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_logical_expression_token5] = ACTIONS(5034),
-    [anon_sym_DOT] = ACTIONS(5032),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5034),
-    [anon_sym_LBRACK] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5034),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5034),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
-    [sym__float_literal] = ACTIONS(5034),
-    [sym__boz_literal] = ACTIONS(5034),
-    [sym__string_literal] = ACTIONS(5034),
-    [sym__string_literal_kind] = ACTIONS(5034),
-  },
-  [1631] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_LPAREN2] = ACTIONS(5082),
-    [anon_sym_PLUS] = ACTIONS(5084),
-    [anon_sym_DASH] = ACTIONS(5084),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [anon_sym_SEMI] = ACTIONS(5084),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5082),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5082),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5082),
-    [aux_sym_associate_statement_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_print_statement_token1] = ACTIONS(5082),
-    [aux_sym_open_statement_token1] = ACTIONS(5082),
-    [aux_sym_close_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5082),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5082),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_logical_expression_token5] = ACTIONS(5084),
-    [anon_sym_DOT] = ACTIONS(5082),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5084),
-    [anon_sym_LBRACK] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5084),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5084),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-    [sym__float_literal] = ACTIONS(5084),
-    [sym__boz_literal] = ACTIONS(5084),
-    [sym__string_literal] = ACTIONS(5084),
-    [sym__string_literal_kind] = ACTIONS(5084),
-  },
-  [1632] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_LPAREN2] = ACTIONS(5086),
-    [anon_sym_PLUS] = ACTIONS(5088),
-    [anon_sym_DASH] = ACTIONS(5088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [anon_sym_SEMI] = ACTIONS(5088),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5086),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5086),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5086),
-    [aux_sym_associate_statement_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_print_statement_token1] = ACTIONS(5086),
-    [aux_sym_open_statement_token1] = ACTIONS(5086),
-    [aux_sym_close_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5086),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5086),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_logical_expression_token5] = ACTIONS(5088),
-    [anon_sym_DOT] = ACTIONS(5086),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5088),
-    [anon_sym_LBRACK] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5088),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-    [sym__float_literal] = ACTIONS(5088),
-    [sym__boz_literal] = ACTIONS(5088),
-    [sym__string_literal] = ACTIONS(5088),
-    [sym__string_literal_kind] = ACTIONS(5088),
-  },
-  [1633] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_LPAREN2] = ACTIONS(4605),
-    [anon_sym_PLUS] = ACTIONS(4607),
-    [anon_sym_DASH] = ACTIONS(4607),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [anon_sym_SEMI] = ACTIONS(4607),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4605),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4605),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4605),
-    [aux_sym_associate_statement_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_print_statement_token1] = ACTIONS(4605),
-    [aux_sym_open_statement_token1] = ACTIONS(4605),
-    [aux_sym_close_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4605),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4605),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_logical_expression_token5] = ACTIONS(4607),
-    [anon_sym_DOT] = ACTIONS(4605),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4607),
-    [anon_sym_LBRACK] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4607),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4607),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-    [sym__float_literal] = ACTIONS(4607),
-    [sym__boz_literal] = ACTIONS(4607),
-    [sym__string_literal] = ACTIONS(4607),
-    [sym__string_literal_kind] = ACTIONS(4607),
-  },
-  [1634] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_LPAREN2] = ACTIONS(5058),
-    [anon_sym_PLUS] = ACTIONS(5060),
-    [anon_sym_DASH] = ACTIONS(5060),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [anon_sym_SEMI] = ACTIONS(5060),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5058),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5058),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5058),
-    [aux_sym_associate_statement_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_print_statement_token1] = ACTIONS(5058),
-    [aux_sym_open_statement_token1] = ACTIONS(5058),
-    [aux_sym_close_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5058),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5058),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_logical_expression_token5] = ACTIONS(5060),
-    [anon_sym_DOT] = ACTIONS(5058),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5060),
-    [anon_sym_LBRACK] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5060),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5060),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-    [sym__float_literal] = ACTIONS(5060),
-    [sym__boz_literal] = ACTIONS(5060),
-    [sym__string_literal] = ACTIONS(5060),
-    [sym__string_literal_kind] = ACTIONS(5060),
-  },
-  [1635] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_LPAREN2] = ACTIONS(5054),
-    [anon_sym_PLUS] = ACTIONS(5056),
-    [anon_sym_DASH] = ACTIONS(5056),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [anon_sym_SEMI] = ACTIONS(5056),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5054),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5054),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5054),
-    [aux_sym_associate_statement_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_print_statement_token1] = ACTIONS(5054),
-    [aux_sym_open_statement_token1] = ACTIONS(5054),
-    [aux_sym_close_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5054),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5054),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_logical_expression_token5] = ACTIONS(5056),
-    [anon_sym_DOT] = ACTIONS(5054),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5056),
-    [anon_sym_LBRACK] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5056),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5056),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-    [sym__float_literal] = ACTIONS(5056),
-    [sym__boz_literal] = ACTIONS(5056),
-    [sym__string_literal] = ACTIONS(5056),
-    [sym__string_literal_kind] = ACTIONS(5056),
-  },
-  [1636] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_LPAREN2] = ACTIONS(5038),
-    [anon_sym_PLUS] = ACTIONS(5040),
-    [anon_sym_DASH] = ACTIONS(5040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [anon_sym_SEMI] = ACTIONS(5040),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5038),
-    [aux_sym_associate_statement_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_print_statement_token1] = ACTIONS(5038),
-    [aux_sym_open_statement_token1] = ACTIONS(5038),
-    [aux_sym_close_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_logical_expression_token5] = ACTIONS(5040),
-    [anon_sym_DOT] = ACTIONS(5038),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5040),
-    [anon_sym_LBRACK] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5040),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-    [sym__float_literal] = ACTIONS(5040),
-    [sym__boz_literal] = ACTIONS(5040),
-    [sym__string_literal] = ACTIONS(5040),
-    [sym__string_literal_kind] = ACTIONS(5040),
-  },
-  [1637] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_LPAREN2] = ACTIONS(5112),
-    [anon_sym_PLUS] = ACTIONS(5114),
-    [anon_sym_DASH] = ACTIONS(5114),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [anon_sym_SEMI] = ACTIONS(5114),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5112),
-    [aux_sym_associate_statement_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_print_statement_token1] = ACTIONS(5112),
-    [aux_sym_open_statement_token1] = ACTIONS(5112),
-    [aux_sym_close_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_logical_expression_token5] = ACTIONS(5114),
-    [anon_sym_DOT] = ACTIONS(5112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
-    [anon_sym_LBRACK] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-    [sym__float_literal] = ACTIONS(5114),
-    [sym__boz_literal] = ACTIONS(5114),
-    [sym__string_literal] = ACTIONS(5114),
-    [sym__string_literal_kind] = ACTIONS(5114),
-  },
-  [1638] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_LPAREN2] = ACTIONS(5120),
-    [anon_sym_PLUS] = ACTIONS(5122),
-    [anon_sym_DASH] = ACTIONS(5122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [anon_sym_SEMI] = ACTIONS(5122),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5120),
-    [aux_sym_associate_statement_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_print_statement_token1] = ACTIONS(5120),
-    [aux_sym_open_statement_token1] = ACTIONS(5120),
-    [aux_sym_close_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_logical_expression_token5] = ACTIONS(5122),
-    [anon_sym_DOT] = ACTIONS(5120),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
-    [anon_sym_LBRACK] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-    [sym__float_literal] = ACTIONS(5122),
-    [sym__boz_literal] = ACTIONS(5122),
-    [sym__string_literal] = ACTIONS(5122),
-    [sym__string_literal_kind] = ACTIONS(5122),
-  },
-  [1639] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1396] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1397] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1640] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_LPAREN2] = ACTIONS(4621),
-    [anon_sym_PLUS] = ACTIONS(4623),
-    [anon_sym_DASH] = ACTIONS(4623),
+  [1398] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [anon_sym_SEMI] = ACTIONS(4623),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4621),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4621),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4621),
-    [aux_sym_associate_statement_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_print_statement_token1] = ACTIONS(4621),
-    [aux_sym_open_statement_token1] = ACTIONS(4621),
-    [aux_sym_close_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4621),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4621),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_logical_expression_token5] = ACTIONS(4623),
-    [anon_sym_DOT] = ACTIONS(4621),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4623),
-    [anon_sym_LBRACK] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4623),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4623),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-    [sym__float_literal] = ACTIONS(4623),
-    [sym__boz_literal] = ACTIONS(4623),
-    [sym__string_literal] = ACTIONS(4623),
-    [sym__string_literal_kind] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1641] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_LPAREN2] = ACTIONS(4601),
-    [anon_sym_PLUS] = ACTIONS(4603),
-    [anon_sym_DASH] = ACTIONS(4603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [anon_sym_SEMI] = ACTIONS(4603),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4601),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4601),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4601),
-    [aux_sym_associate_statement_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_print_statement_token1] = ACTIONS(4601),
-    [aux_sym_open_statement_token1] = ACTIONS(4601),
-    [aux_sym_close_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4601),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4601),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_logical_expression_token5] = ACTIONS(4603),
-    [anon_sym_DOT] = ACTIONS(4601),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4603),
-    [anon_sym_LBRACK] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4603),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4603),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-    [sym__float_literal] = ACTIONS(4603),
-    [sym__boz_literal] = ACTIONS(4603),
-    [sym__string_literal] = ACTIONS(4603),
-    [sym__string_literal_kind] = ACTIONS(4603),
+  [1399] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1642] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_LPAREN2] = ACTIONS(4609),
-    [anon_sym_PLUS] = ACTIONS(4611),
-    [anon_sym_DASH] = ACTIONS(4611),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [anon_sym_SEMI] = ACTIONS(4611),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4609),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4609),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4609),
-    [aux_sym_associate_statement_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_print_statement_token1] = ACTIONS(4609),
-    [aux_sym_open_statement_token1] = ACTIONS(4609),
-    [aux_sym_close_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4609),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4609),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_logical_expression_token5] = ACTIONS(4611),
-    [anon_sym_DOT] = ACTIONS(4609),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4611),
-    [anon_sym_LBRACK] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4611),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4611),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-    [sym__float_literal] = ACTIONS(4611),
-    [sym__boz_literal] = ACTIONS(4611),
-    [sym__string_literal] = ACTIONS(4611),
-    [sym__string_literal_kind] = ACTIONS(4611),
+  [1400] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
   },
-  [1643] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+  [1401] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1644] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1402] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1645] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1403] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1646] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_LPAREN2] = ACTIONS(5124),
-    [anon_sym_PLUS] = ACTIONS(5126),
-    [anon_sym_DASH] = ACTIONS(5126),
+  [1404] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5469),
+    [aux_sym_preproc_def_token1] = ACTIONS(5469),
+    [aux_sym_preproc_if_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
+    [sym_preproc_directive] = ACTIONS(5469),
+    [anon_sym_LPAREN2] = ACTIONS(5469),
+    [anon_sym_PLUS] = ACTIONS(5471),
+    [anon_sym_DASH] = ACTIONS(5471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [anon_sym_SEMI] = ACTIONS(5126),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5124),
-    [aux_sym_associate_statement_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_print_statement_token1] = ACTIONS(5124),
-    [aux_sym_open_statement_token1] = ACTIONS(5124),
-    [aux_sym_close_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_logical_expression_token5] = ACTIONS(5126),
-    [anon_sym_DOT] = ACTIONS(5124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
-    [anon_sym_LBRACK] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
+    [aux_sym_interface_statement_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
+    [aux_sym_language_binding_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5469),
+    [aux_sym_contains_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token2] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
+    [aux_sym_save_statement_token1] = ACTIONS(5469),
+    [aux_sym_private_statement_token1] = ACTIONS(5469),
+    [aux_sym_public_statement_token1] = ACTIONS(5469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
+    [aux_sym_common_statement_token1] = ACTIONS(5469),
+    [aux_sym_import_statement_token1] = ACTIONS(5469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
+    [aux_sym_derived_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
+    [anon_sym_SEMI] = ACTIONS(5471),
+    [aux_sym_stop_statement_token1] = ACTIONS(5469),
+    [aux_sym_stop_statement_token2] = ACTIONS(5469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
+    [aux_sym_include_statement_token1] = ACTIONS(5469),
+    [aux_sym_data_statement_token1] = ACTIONS(5469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
+    [aux_sym_block_construct_token1] = ACTIONS(5469),
+    [aux_sym_associate_statement_token1] = ACTIONS(5469),
+    [aux_sym_format_statement_token1] = ACTIONS(5469),
+    [aux_sym_print_statement_token1] = ACTIONS(5469),
+    [aux_sym_open_statement_token1] = ACTIONS(5469),
+    [aux_sym_close_statement_token1] = ACTIONS(5469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
+    [aux_sym_enum_statement_token1] = ACTIONS(5469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
+    [aux_sym_entry_statement_token1] = ACTIONS(5469),
+    [aux_sym_logical_expression_token5] = ACTIONS(5471),
+    [anon_sym_DOT] = ACTIONS(5469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
+    [anon_sym_LBRACK] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
+    [aux_sym_null_literal_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
+    [aux_sym_identifier_token1] = ACTIONS(5469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-    [sym__float_literal] = ACTIONS(5126),
-    [sym__boz_literal] = ACTIONS(5126),
-    [sym__string_literal] = ACTIONS(5126),
-    [sym__string_literal_kind] = ACTIONS(5126),
-  },
-  [1647] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_LPAREN2] = ACTIONS(5050),
-    [anon_sym_PLUS] = ACTIONS(5052),
-    [anon_sym_DASH] = ACTIONS(5052),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [anon_sym_SEMI] = ACTIONS(5052),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5050),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5050),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5050),
-    [aux_sym_associate_statement_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_print_statement_token1] = ACTIONS(5050),
-    [aux_sym_open_statement_token1] = ACTIONS(5050),
-    [aux_sym_close_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5050),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5050),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_logical_expression_token5] = ACTIONS(5052),
-    [anon_sym_DOT] = ACTIONS(5050),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5052),
-    [anon_sym_LBRACK] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5052),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5052),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-    [sym__float_literal] = ACTIONS(5052),
-    [sym__boz_literal] = ACTIONS(5052),
-    [sym__string_literal] = ACTIONS(5052),
-    [sym__string_literal_kind] = ACTIONS(5052),
-  },
-  [1648] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_LPAREN2] = ACTIONS(5046),
-    [anon_sym_PLUS] = ACTIONS(5048),
-    [anon_sym_DASH] = ACTIONS(5048),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [anon_sym_SEMI] = ACTIONS(5048),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5046),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5046),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5046),
-    [aux_sym_associate_statement_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_print_statement_token1] = ACTIONS(5046),
-    [aux_sym_open_statement_token1] = ACTIONS(5046),
-    [aux_sym_close_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5046),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5046),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_logical_expression_token5] = ACTIONS(5048),
-    [anon_sym_DOT] = ACTIONS(5046),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5048),
-    [anon_sym_LBRACK] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5048),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5048),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-    [sym__float_literal] = ACTIONS(5048),
-    [sym__boz_literal] = ACTIONS(5048),
-    [sym__string_literal] = ACTIONS(5048),
-    [sym__string_literal_kind] = ACTIONS(5048),
+    [sym__integer_literal] = ACTIONS(5471),
+    [sym__float_literal] = ACTIONS(5471),
+    [sym__boz_literal] = ACTIONS(5471),
+    [sym__string_literal] = ACTIONS(5471),
+    [sym__string_literal_kind] = ACTIONS(5471),
   },
-  [1649] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_LPAREN2] = ACTIONS(5132),
-    [anon_sym_PLUS] = ACTIONS(5134),
-    [anon_sym_DASH] = ACTIONS(5134),
+  [1405] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [anon_sym_SEMI] = ACTIONS(5134),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5132),
-    [aux_sym_associate_statement_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_print_statement_token1] = ACTIONS(5132),
-    [aux_sym_open_statement_token1] = ACTIONS(5132),
-    [aux_sym_close_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_logical_expression_token5] = ACTIONS(5134),
-    [anon_sym_DOT] = ACTIONS(5132),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
-    [anon_sym_LBRACK] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-    [sym__float_literal] = ACTIONS(5134),
-    [sym__boz_literal] = ACTIONS(5134),
-    [sym__string_literal] = ACTIONS(5134),
-    [sym__string_literal_kind] = ACTIONS(5134),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1650] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1406] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1651] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1407] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
+  },
+  [1408] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5473),
+    [aux_sym_preproc_def_token1] = ACTIONS(5473),
+    [aux_sym_preproc_if_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
+    [sym_preproc_directive] = ACTIONS(5473),
+    [anon_sym_LPAREN2] = ACTIONS(5473),
+    [anon_sym_PLUS] = ACTIONS(5475),
+    [anon_sym_DASH] = ACTIONS(5475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
+    [aux_sym_interface_statement_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
+    [aux_sym_language_binding_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
+    [aux_sym_contains_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token2] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
+    [aux_sym_save_statement_token1] = ACTIONS(5473),
+    [aux_sym_private_statement_token1] = ACTIONS(5473),
+    [aux_sym_public_statement_token1] = ACTIONS(5473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
+    [aux_sym_common_statement_token1] = ACTIONS(5473),
+    [aux_sym_import_statement_token1] = ACTIONS(5473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
+    [aux_sym_derived_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
+    [anon_sym_SEMI] = ACTIONS(5475),
+    [aux_sym_stop_statement_token1] = ACTIONS(5473),
+    [aux_sym_stop_statement_token2] = ACTIONS(5473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
+    [aux_sym_include_statement_token1] = ACTIONS(5473),
+    [aux_sym_data_statement_token1] = ACTIONS(5473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
+    [aux_sym_block_construct_token1] = ACTIONS(5473),
+    [aux_sym_associate_statement_token1] = ACTIONS(5473),
+    [aux_sym_format_statement_token1] = ACTIONS(5473),
+    [aux_sym_print_statement_token1] = ACTIONS(5473),
+    [aux_sym_open_statement_token1] = ACTIONS(5473),
+    [aux_sym_close_statement_token1] = ACTIONS(5473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
+    [aux_sym_enum_statement_token1] = ACTIONS(5473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
+    [aux_sym_entry_statement_token1] = ACTIONS(5473),
+    [aux_sym_logical_expression_token5] = ACTIONS(5475),
+    [anon_sym_DOT] = ACTIONS(5473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
+    [anon_sym_LBRACK] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
+    [aux_sym_null_literal_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
+    [aux_sym_identifier_token1] = ACTIONS(5473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [1652] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_LPAREN2] = ACTIONS(4613),
-    [anon_sym_PLUS] = ACTIONS(4615),
-    [anon_sym_DASH] = ACTIONS(4615),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [anon_sym_SEMI] = ACTIONS(4615),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4613),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4613),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4613),
-    [aux_sym_associate_statement_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_print_statement_token1] = ACTIONS(4613),
-    [aux_sym_open_statement_token1] = ACTIONS(4613),
-    [aux_sym_close_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4613),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4613),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_logical_expression_token5] = ACTIONS(4615),
-    [anon_sym_DOT] = ACTIONS(4613),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4615),
-    [anon_sym_LBRACK] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4615),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4615),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-    [sym__float_literal] = ACTIONS(4615),
-    [sym__boz_literal] = ACTIONS(4615),
-    [sym__string_literal] = ACTIONS(4615),
-    [sym__string_literal_kind] = ACTIONS(4615),
+    [sym__integer_literal] = ACTIONS(5475),
+    [sym__float_literal] = ACTIONS(5475),
+    [sym__boz_literal] = ACTIONS(5475),
+    [sym__string_literal] = ACTIONS(5475),
+    [sym__string_literal_kind] = ACTIONS(5475),
   },
-  [1653] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_LPAREN2] = ACTIONS(5090),
-    [anon_sym_PLUS] = ACTIONS(5092),
-    [anon_sym_DASH] = ACTIONS(5092),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [anon_sym_SEMI] = ACTIONS(5092),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5090),
-    [aux_sym_associate_statement_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_print_statement_token1] = ACTIONS(5090),
-    [aux_sym_open_statement_token1] = ACTIONS(5090),
-    [aux_sym_close_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_logical_expression_token5] = ACTIONS(5092),
-    [anon_sym_DOT] = ACTIONS(5090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5092),
-    [anon_sym_LBRACK] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5092),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5092),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-    [sym__float_literal] = ACTIONS(5092),
-    [sym__boz_literal] = ACTIONS(5092),
-    [sym__string_literal] = ACTIONS(5092),
-    [sym__string_literal_kind] = ACTIONS(5092),
+  [1409] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1654] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_LPAREN2] = ACTIONS(4617),
-    [anon_sym_PLUS] = ACTIONS(4619),
-    [anon_sym_DASH] = ACTIONS(4619),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [anon_sym_SEMI] = ACTIONS(4619),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4617),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4617),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4617),
-    [aux_sym_associate_statement_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_print_statement_token1] = ACTIONS(4617),
-    [aux_sym_open_statement_token1] = ACTIONS(4617),
-    [aux_sym_close_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4617),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4617),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_logical_expression_token5] = ACTIONS(4619),
-    [anon_sym_DOT] = ACTIONS(4617),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4619),
-    [anon_sym_LBRACK] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4619),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4619),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
-    [sym__float_literal] = ACTIONS(4619),
-    [sym__boz_literal] = ACTIONS(4619),
-    [sym__string_literal] = ACTIONS(4619),
-    [sym__string_literal_kind] = ACTIONS(4619),
+  [1410] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1655] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_LPAREN2] = ACTIONS(5104),
-    [anon_sym_PLUS] = ACTIONS(5106),
-    [anon_sym_DASH] = ACTIONS(5106),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [anon_sym_SEMI] = ACTIONS(5106),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5104),
-    [aux_sym_associate_statement_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_print_statement_token1] = ACTIONS(5104),
-    [aux_sym_open_statement_token1] = ACTIONS(5104),
-    [aux_sym_close_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_logical_expression_token5] = ACTIONS(5106),
-    [anon_sym_DOT] = ACTIONS(5104),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
-    [anon_sym_LBRACK] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
+  [1411] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-    [sym__float_literal] = ACTIONS(5106),
-    [sym__boz_literal] = ACTIONS(5106),
-    [sym__string_literal] = ACTIONS(5106),
-    [sym__string_literal_kind] = ACTIONS(5106),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1656] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_LPAREN2] = ACTIONS(5062),
-    [anon_sym_PLUS] = ACTIONS(5064),
-    [anon_sym_DASH] = ACTIONS(5064),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [anon_sym_SEMI] = ACTIONS(5064),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5062),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5062),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5062),
-    [aux_sym_associate_statement_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_print_statement_token1] = ACTIONS(5062),
-    [aux_sym_open_statement_token1] = ACTIONS(5062),
-    [aux_sym_close_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5062),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5062),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_logical_expression_token5] = ACTIONS(5064),
-    [anon_sym_DOT] = ACTIONS(5062),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5064),
-    [anon_sym_LBRACK] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5064),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5064),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-    [sym__float_literal] = ACTIONS(5064),
-    [sym__boz_literal] = ACTIONS(5064),
-    [sym__string_literal] = ACTIONS(5064),
-    [sym__string_literal_kind] = ACTIONS(5064),
+  [1412] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
   },
-  [1657] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1413] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1658] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_LPAREN2] = ACTIONS(5108),
-    [anon_sym_PLUS] = ACTIONS(5110),
-    [anon_sym_DASH] = ACTIONS(5110),
+  [1414] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5477),
+    [aux_sym_preproc_def_token1] = ACTIONS(5477),
+    [aux_sym_preproc_if_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
+    [sym_preproc_directive] = ACTIONS(5477),
+    [anon_sym_LPAREN2] = ACTIONS(5477),
+    [anon_sym_PLUS] = ACTIONS(5479),
+    [anon_sym_DASH] = ACTIONS(5479),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [anon_sym_SEMI] = ACTIONS(5110),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5108),
-    [aux_sym_associate_statement_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_print_statement_token1] = ACTIONS(5108),
-    [aux_sym_open_statement_token1] = ACTIONS(5108),
-    [aux_sym_close_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_logical_expression_token5] = ACTIONS(5110),
-    [anon_sym_DOT] = ACTIONS(5108),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
-    [anon_sym_LBRACK] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
+    [aux_sym_interface_statement_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
+    [aux_sym_language_binding_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5477),
+    [aux_sym_contains_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token2] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
+    [aux_sym_save_statement_token1] = ACTIONS(5477),
+    [aux_sym_private_statement_token1] = ACTIONS(5477),
+    [aux_sym_public_statement_token1] = ACTIONS(5477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
+    [aux_sym_common_statement_token1] = ACTIONS(5477),
+    [aux_sym_import_statement_token1] = ACTIONS(5477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
+    [aux_sym_derived_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
+    [anon_sym_SEMI] = ACTIONS(5479),
+    [aux_sym_stop_statement_token1] = ACTIONS(5477),
+    [aux_sym_stop_statement_token2] = ACTIONS(5477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
+    [aux_sym_include_statement_token1] = ACTIONS(5477),
+    [aux_sym_data_statement_token1] = ACTIONS(5477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
+    [aux_sym_block_construct_token1] = ACTIONS(5477),
+    [aux_sym_associate_statement_token1] = ACTIONS(5477),
+    [aux_sym_format_statement_token1] = ACTIONS(5477),
+    [aux_sym_print_statement_token1] = ACTIONS(5477),
+    [aux_sym_open_statement_token1] = ACTIONS(5477),
+    [aux_sym_close_statement_token1] = ACTIONS(5477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
+    [aux_sym_enum_statement_token1] = ACTIONS(5477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
+    [aux_sym_entry_statement_token1] = ACTIONS(5477),
+    [aux_sym_logical_expression_token5] = ACTIONS(5479),
+    [anon_sym_DOT] = ACTIONS(5477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
+    [anon_sym_LBRACK] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
+    [aux_sym_null_literal_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
+    [aux_sym_identifier_token1] = ACTIONS(5477),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-    [sym__float_literal] = ACTIONS(5110),
-    [sym__boz_literal] = ACTIONS(5110),
-    [sym__string_literal] = ACTIONS(5110),
-    [sym__string_literal_kind] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(5479),
+    [sym__float_literal] = ACTIONS(5479),
+    [sym__boz_literal] = ACTIONS(5479),
+    [sym__string_literal] = ACTIONS(5479),
+    [sym__string_literal_kind] = ACTIONS(5479),
   },
-  [1659] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_LPAREN2] = ACTIONS(5116),
-    [anon_sym_PLUS] = ACTIONS(5118),
-    [anon_sym_DASH] = ACTIONS(5118),
+  [1415] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [anon_sym_SEMI] = ACTIONS(5118),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5116),
-    [aux_sym_associate_statement_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_print_statement_token1] = ACTIONS(5116),
-    [aux_sym_open_statement_token1] = ACTIONS(5116),
-    [aux_sym_close_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_logical_expression_token5] = ACTIONS(5118),
-    [anon_sym_DOT] = ACTIONS(5116),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
-    [anon_sym_LBRACK] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-    [sym__float_literal] = ACTIONS(5118),
-    [sym__boz_literal] = ACTIONS(5118),
-    [sym__string_literal] = ACTIONS(5118),
-    [sym__string_literal_kind] = ACTIONS(5118),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1660] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_LPAREN2] = ACTIONS(5042),
-    [anon_sym_PLUS] = ACTIONS(5044),
-    [anon_sym_DASH] = ACTIONS(5044),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [anon_sym_SEMI] = ACTIONS(5044),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5042),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5042),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5042),
-    [aux_sym_associate_statement_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_print_statement_token1] = ACTIONS(5042),
-    [aux_sym_open_statement_token1] = ACTIONS(5042),
-    [aux_sym_close_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5042),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5042),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_logical_expression_token5] = ACTIONS(5044),
-    [anon_sym_DOT] = ACTIONS(5042),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5044),
-    [anon_sym_LBRACK] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5044),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5044),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-    [sym__float_literal] = ACTIONS(5044),
-    [sym__boz_literal] = ACTIONS(5044),
-    [sym__string_literal] = ACTIONS(5044),
-    [sym__string_literal_kind] = ACTIONS(5044),
+  [1416] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [1661] = {
-    [sym_statement_label] = STATE(6542),
-    [sym_statement_label_reference] = STATE(6729),
-    [sym__io_arguments] = STATE(2831),
-    [sym_format_identifier] = STATE(6757),
-    [sym__io_expressions] = STATE(6729),
-    [sym__expression] = STATE(4690),
-    [sym_parenthesized_expression] = STATE(4850),
-    [sym_derived_type_member_expression] = STATE(4850),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4850),
-    [sym_math_expression] = STATE(4850),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4850),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4850),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4850),
-    [anon_sym_LPAREN2] = ACTIONS(5489),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(5491),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(5503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1417] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1418] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5437),
+    [aux_sym_preproc_def_token1] = ACTIONS(5437),
+    [aux_sym_preproc_if_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5437),
+    [sym_preproc_directive] = ACTIONS(5437),
+    [anon_sym_LPAREN2] = ACTIONS(5437),
+    [anon_sym_PLUS] = ACTIONS(5439),
+    [anon_sym_DASH] = ACTIONS(5439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5437),
+    [aux_sym_interface_statement_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5437),
+    [aux_sym_language_binding_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5437),
+    [aux_sym_contains_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token2] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5437),
+    [aux_sym_save_statement_token1] = ACTIONS(5437),
+    [aux_sym_private_statement_token1] = ACTIONS(5437),
+    [aux_sym_public_statement_token1] = ACTIONS(5437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5437),
+    [aux_sym_common_statement_token1] = ACTIONS(5437),
+    [aux_sym_import_statement_token1] = ACTIONS(5437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5437),
+    [aux_sym_derived_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5437),
+    [anon_sym_SEMI] = ACTIONS(5439),
+    [aux_sym_stop_statement_token1] = ACTIONS(5437),
+    [aux_sym_stop_statement_token2] = ACTIONS(5437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5437),
+    [aux_sym_include_statement_token1] = ACTIONS(5437),
+    [aux_sym_data_statement_token1] = ACTIONS(5437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5437),
+    [aux_sym_block_construct_token1] = ACTIONS(5437),
+    [aux_sym_associate_statement_token1] = ACTIONS(5437),
+    [aux_sym_format_statement_token1] = ACTIONS(5437),
+    [aux_sym_print_statement_token1] = ACTIONS(5437),
+    [aux_sym_open_statement_token1] = ACTIONS(5437),
+    [aux_sym_close_statement_token1] = ACTIONS(5437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5437),
+    [aux_sym_enum_statement_token1] = ACTIONS(5437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5437),
+    [aux_sym_entry_statement_token1] = ACTIONS(5437),
+    [aux_sym_logical_expression_token5] = ACTIONS(5439),
+    [anon_sym_DOT] = ACTIONS(5437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5439),
+    [anon_sym_LBRACK] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5439),
+    [aux_sym_null_literal_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5437),
+    [aux_sym_identifier_token1] = ACTIONS(5437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5505),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__integer_literal] = ACTIONS(5439),
+    [sym__float_literal] = ACTIONS(5439),
+    [sym__boz_literal] = ACTIONS(5439),
+    [sym__string_literal] = ACTIONS(5439),
+    [sym__string_literal_kind] = ACTIONS(5439),
   },
-  [1662] = {
-    [sym__kind] = STATE(3711),
-    [anon_sym_LPAREN2] = ACTIONS(5511),
-    [anon_sym_PLUS] = ACTIONS(5513),
-    [anon_sym_DASH] = ACTIONS(5513),
-    [anon_sym_STAR] = ACTIONS(5515),
-    [anon_sym_SLASH] = ACTIONS(5515),
-    [anon_sym_PERCENT] = ACTIONS(5517),
+  [1419] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1420] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token2] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(5517),
-    [anon_sym_GT] = ACTIONS(5515),
-    [anon_sym_GT_EQ] = ACTIONS(5517),
-    [anon_sym_LT_EQ] = ACTIONS(5517),
-    [anon_sym_LT] = ACTIONS(5515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
-    [anon_sym_EQ] = ACTIONS(5515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
-    [aux_sym_use_statement_token2] = ACTIONS(5511),
-    [anon_sym_EQ_GT] = ACTIONS(5517),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5511),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
-    [aux_sym_save_statement_token1] = ACTIONS(5511),
-    [aux_sym_private_statement_token1] = ACTIONS(5511),
-    [aux_sym_public_statement_token1] = ACTIONS(5511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym_stop_statement_token1] = ACTIONS(5511),
-    [aux_sym_stop_statement_token2] = ACTIONS(5511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
-    [aux_sym_include_statement_token1] = ACTIONS(5511),
-    [aux_sym_data_statement_token1] = ACTIONS(5511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
-    [aux_sym_block_construct_token1] = ACTIONS(5511),
-    [aux_sym_associate_statement_token1] = ACTIONS(5511),
-    [aux_sym_format_statement_token1] = ACTIONS(5511),
-    [aux_sym_print_statement_token1] = ACTIONS(5511),
-    [aux_sym_open_statement_token1] = ACTIONS(5511),
-    [aux_sym_close_statement_token1] = ACTIONS(5511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
-    [aux_sym_entry_statement_token1] = ACTIONS(5511),
-    [aux_sym_logical_expression_token1] = ACTIONS(5517),
-    [aux_sym_logical_expression_token2] = ACTIONS(5517),
-    [aux_sym_logical_expression_token3] = ACTIONS(5517),
-    [aux_sym_logical_expression_token4] = ACTIONS(5517),
-    [aux_sym_logical_expression_token5] = ACTIONS(5513),
-    [aux_sym_relational_expression_token1] = ACTIONS(5517),
-    [aux_sym_relational_expression_token2] = ACTIONS(5517),
-    [aux_sym_relational_expression_token3] = ACTIONS(5517),
-    [aux_sym_relational_expression_token4] = ACTIONS(5517),
-    [aux_sym_relational_expression_token5] = ACTIONS(5517),
-    [anon_sym_SLASH_EQ] = ACTIONS(5517),
-    [aux_sym_relational_expression_token6] = ACTIONS(5517),
-    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
-    [anon_sym_STAR_STAR] = ACTIONS(5517),
-    [anon_sym_DOT] = ACTIONS(5511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
-    [anon_sym_LBRACK] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
-    [anon_sym__] = ACTIONS(5519),
-    [aux_sym_null_literal_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
-    [anon_sym_QMARK] = ACTIONS(5517),
-    [aux_sym_identifier_token1] = ACTIONS(5511),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5513),
-    [sym__float_literal] = ACTIONS(5513),
-    [sym__boz_literal] = ACTIONS(5513),
-    [sym__string_literal] = ACTIONS(5513),
-    [sym__string_literal_kind] = ACTIONS(5513),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1663] = {
-    [sym__expression] = STATE(4475),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_COMMA] = ACTIONS(5521),
-    [anon_sym_LPAREN2] = ACTIONS(5523),
-    [anon_sym_PLUS] = ACTIONS(5526),
-    [anon_sym_DASH] = ACTIONS(5526),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5529),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(5533),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(5538),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1421] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token2] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(5529),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1664] = {
-    [sym__kind] = STATE(3711),
-    [anon_sym_LPAREN2] = ACTIONS(5511),
-    [anon_sym_PLUS] = ACTIONS(5513),
-    [anon_sym_DASH] = ACTIONS(5513),
-    [anon_sym_STAR] = ACTIONS(5515),
-    [anon_sym_SLASH] = ACTIONS(5515),
-    [anon_sym_PERCENT] = ACTIONS(5517),
+  [1422] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1423] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1424] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1425] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(5517),
-    [anon_sym_GT] = ACTIONS(5515),
-    [anon_sym_GT_EQ] = ACTIONS(5517),
-    [anon_sym_LT_EQ] = ACTIONS(5517),
-    [anon_sym_LT] = ACTIONS(5515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
-    [anon_sym_EQ] = ACTIONS(5515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
-    [aux_sym_use_statement_token2] = ACTIONS(5511),
-    [anon_sym_EQ_GT] = ACTIONS(5517),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
-    [aux_sym_save_statement_token1] = ACTIONS(5511),
-    [aux_sym_private_statement_token1] = ACTIONS(5511),
-    [aux_sym_public_statement_token1] = ACTIONS(5511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym_stop_statement_token1] = ACTIONS(5511),
-    [aux_sym_stop_statement_token2] = ACTIONS(5511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
-    [aux_sym_include_statement_token1] = ACTIONS(5511),
-    [aux_sym_data_statement_token1] = ACTIONS(5511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
-    [aux_sym_block_construct_token1] = ACTIONS(5511),
-    [aux_sym_associate_statement_token1] = ACTIONS(5511),
-    [aux_sym_format_statement_token1] = ACTIONS(5511),
-    [aux_sym_print_statement_token1] = ACTIONS(5511),
-    [aux_sym_open_statement_token1] = ACTIONS(5511),
-    [aux_sym_close_statement_token1] = ACTIONS(5511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
-    [aux_sym_entry_statement_token1] = ACTIONS(5511),
-    [aux_sym_logical_expression_token1] = ACTIONS(5517),
-    [aux_sym_logical_expression_token2] = ACTIONS(5517),
-    [aux_sym_logical_expression_token3] = ACTIONS(5517),
-    [aux_sym_logical_expression_token4] = ACTIONS(5517),
-    [aux_sym_logical_expression_token5] = ACTIONS(5513),
-    [aux_sym_relational_expression_token1] = ACTIONS(5517),
-    [aux_sym_relational_expression_token2] = ACTIONS(5517),
-    [aux_sym_relational_expression_token3] = ACTIONS(5517),
-    [aux_sym_relational_expression_token4] = ACTIONS(5517),
-    [aux_sym_relational_expression_token5] = ACTIONS(5517),
-    [anon_sym_SLASH_EQ] = ACTIONS(5517),
-    [aux_sym_relational_expression_token6] = ACTIONS(5517),
-    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
-    [anon_sym_STAR_STAR] = ACTIONS(5517),
-    [anon_sym_DOT] = ACTIONS(5511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
-    [anon_sym_LBRACK] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
-    [anon_sym__] = ACTIONS(5519),
-    [aux_sym_null_literal_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
-    [anon_sym_QMARK] = ACTIONS(5517),
-    [aux_sym_identifier_token1] = ACTIONS(5511),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5513),
-    [sym__float_literal] = ACTIONS(5513),
-    [sym__boz_literal] = ACTIONS(5513),
-    [sym__string_literal] = ACTIONS(5513),
-    [sym__string_literal_kind] = ACTIONS(5513),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1665] = {
-    [sym__kind] = STATE(3711),
-    [anon_sym_LPAREN2] = ACTIONS(5511),
-    [anon_sym_PLUS] = ACTIONS(5513),
-    [anon_sym_DASH] = ACTIONS(5513),
-    [anon_sym_STAR] = ACTIONS(5515),
-    [anon_sym_SLASH] = ACTIONS(5515),
-    [anon_sym_PERCENT] = ACTIONS(5517),
+  [1426] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5473),
+    [aux_sym_preproc_def_token1] = ACTIONS(5473),
+    [aux_sym_preproc_if_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
+    [sym_preproc_directive] = ACTIONS(5473),
+    [anon_sym_LPAREN2] = ACTIONS(5473),
+    [anon_sym_PLUS] = ACTIONS(5475),
+    [anon_sym_DASH] = ACTIONS(5475),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(5517),
-    [anon_sym_GT] = ACTIONS(5515),
-    [anon_sym_GT_EQ] = ACTIONS(5517),
-    [anon_sym_LT_EQ] = ACTIONS(5517),
-    [anon_sym_LT] = ACTIONS(5515),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
-    [anon_sym_EQ] = ACTIONS(5515),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
-    [aux_sym_use_statement_token2] = ACTIONS(5511),
-    [anon_sym_EQ_GT] = ACTIONS(5517),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
-    [aux_sym_save_statement_token1] = ACTIONS(5511),
-    [aux_sym_private_statement_token1] = ACTIONS(5511),
-    [aux_sym_public_statement_token1] = ACTIONS(5511),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
-    [aux_sym_stop_statement_token1] = ACTIONS(5511),
-    [aux_sym_stop_statement_token2] = ACTIONS(5511),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
-    [aux_sym_include_statement_token1] = ACTIONS(5511),
-    [aux_sym_data_statement_token1] = ACTIONS(5511),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
-    [aux_sym_block_construct_token1] = ACTIONS(5511),
-    [aux_sym_associate_statement_token1] = ACTIONS(5511),
-    [aux_sym_format_statement_token1] = ACTIONS(5511),
-    [aux_sym_print_statement_token1] = ACTIONS(5511),
-    [aux_sym_open_statement_token1] = ACTIONS(5511),
-    [aux_sym_close_statement_token1] = ACTIONS(5511),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
-    [aux_sym_entry_statement_token1] = ACTIONS(5511),
-    [aux_sym_logical_expression_token1] = ACTIONS(5517),
-    [aux_sym_logical_expression_token2] = ACTIONS(5517),
-    [aux_sym_logical_expression_token3] = ACTIONS(5517),
-    [aux_sym_logical_expression_token4] = ACTIONS(5517),
-    [aux_sym_logical_expression_token5] = ACTIONS(5513),
-    [aux_sym_relational_expression_token1] = ACTIONS(5517),
-    [aux_sym_relational_expression_token2] = ACTIONS(5517),
-    [aux_sym_relational_expression_token3] = ACTIONS(5517),
-    [aux_sym_relational_expression_token4] = ACTIONS(5517),
-    [aux_sym_relational_expression_token5] = ACTIONS(5517),
-    [anon_sym_SLASH_EQ] = ACTIONS(5517),
-    [aux_sym_relational_expression_token6] = ACTIONS(5517),
-    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
-    [anon_sym_STAR_STAR] = ACTIONS(5517),
-    [anon_sym_DOT] = ACTIONS(5511),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
-    [anon_sym_LBRACK] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
-    [anon_sym__] = ACTIONS(5519),
-    [aux_sym_null_literal_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
-    [anon_sym_QMARK] = ACTIONS(5517),
-    [aux_sym_identifier_token1] = ACTIONS(5511),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5473),
+    [aux_sym_interface_statement_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
+    [aux_sym_language_binding_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
+    [aux_sym_contains_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token2] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
+    [aux_sym_save_statement_token1] = ACTIONS(5473),
+    [aux_sym_private_statement_token1] = ACTIONS(5473),
+    [aux_sym_public_statement_token1] = ACTIONS(5473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
+    [aux_sym_common_statement_token1] = ACTIONS(5473),
+    [aux_sym_import_statement_token1] = ACTIONS(5473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
+    [aux_sym_derived_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
+    [anon_sym_SEMI] = ACTIONS(5475),
+    [aux_sym_stop_statement_token1] = ACTIONS(5473),
+    [aux_sym_stop_statement_token2] = ACTIONS(5473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
+    [aux_sym_include_statement_token1] = ACTIONS(5473),
+    [aux_sym_data_statement_token1] = ACTIONS(5473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
+    [aux_sym_block_construct_token1] = ACTIONS(5473),
+    [aux_sym_associate_statement_token1] = ACTIONS(5473),
+    [aux_sym_format_statement_token1] = ACTIONS(5473),
+    [aux_sym_print_statement_token1] = ACTIONS(5473),
+    [aux_sym_open_statement_token1] = ACTIONS(5473),
+    [aux_sym_close_statement_token1] = ACTIONS(5473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
+    [aux_sym_enum_statement_token1] = ACTIONS(5473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
+    [aux_sym_entry_statement_token1] = ACTIONS(5473),
+    [aux_sym_logical_expression_token5] = ACTIONS(5475),
+    [anon_sym_DOT] = ACTIONS(5473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
+    [anon_sym_LBRACK] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
+    [aux_sym_null_literal_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
+    [aux_sym_identifier_token1] = ACTIONS(5473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5513),
-    [sym__float_literal] = ACTIONS(5513),
-    [sym__boz_literal] = ACTIONS(5513),
-    [sym__string_literal] = ACTIONS(5513),
-    [sym__string_literal_kind] = ACTIONS(5513),
+    [sym__integer_literal] = ACTIONS(5475),
+    [sym__float_literal] = ACTIONS(5475),
+    [sym__boz_literal] = ACTIONS(5475),
+    [sym__string_literal] = ACTIONS(5475),
+    [sym__string_literal_kind] = ACTIONS(5475),
   },
-  [1666] = {
-    [sym_data_set] = STATE(6340),
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(4824),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4824),
-    [sym_implied_do_loop_expression] = STATE(4824),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4824),
-    [anon_sym_LPAREN2] = ACTIONS(5547),
-    [anon_sym_PLUS] = ACTIONS(5550),
-    [anon_sym_DASH] = ACTIONS(5550),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(5533),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(5553),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+  [1427] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token2] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [1667] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [aux_sym_preproc_else_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5558),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1668] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [aux_sym_preproc_else_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5562),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1428] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5453),
+    [aux_sym_preproc_def_token1] = ACTIONS(5453),
+    [aux_sym_preproc_if_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
+    [sym_preproc_directive] = ACTIONS(5453),
+    [anon_sym_LPAREN2] = ACTIONS(5453),
+    [anon_sym_PLUS] = ACTIONS(5455),
+    [anon_sym_DASH] = ACTIONS(5455),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_contains_statement_token1] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5453),
+    [aux_sym_interface_statement_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
+    [aux_sym_language_binding_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
+    [aux_sym_contains_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token2] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
+    [aux_sym_save_statement_token1] = ACTIONS(5453),
+    [aux_sym_private_statement_token1] = ACTIONS(5453),
+    [aux_sym_public_statement_token1] = ACTIONS(5453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
+    [aux_sym_common_statement_token1] = ACTIONS(5453),
+    [aux_sym_import_statement_token1] = ACTIONS(5453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
+    [aux_sym_derived_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
+    [anon_sym_SEMI] = ACTIONS(5455),
+    [aux_sym_stop_statement_token1] = ACTIONS(5453),
+    [aux_sym_stop_statement_token2] = ACTIONS(5453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
+    [aux_sym_include_statement_token1] = ACTIONS(5453),
+    [aux_sym_data_statement_token1] = ACTIONS(5453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
+    [aux_sym_block_construct_token1] = ACTIONS(5453),
+    [aux_sym_associate_statement_token1] = ACTIONS(5453),
+    [aux_sym_format_statement_token1] = ACTIONS(5453),
+    [aux_sym_print_statement_token1] = ACTIONS(5453),
+    [aux_sym_open_statement_token1] = ACTIONS(5453),
+    [aux_sym_close_statement_token1] = ACTIONS(5453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
+    [aux_sym_enum_statement_token1] = ACTIONS(5453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
+    [aux_sym_entry_statement_token1] = ACTIONS(5453),
+    [aux_sym_logical_expression_token5] = ACTIONS(5455),
+    [anon_sym_DOT] = ACTIONS(5453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
+    [anon_sym_LBRACK] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
+    [aux_sym_null_literal_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
+    [aux_sym_identifier_token1] = ACTIONS(5453),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5455),
+    [sym__float_literal] = ACTIONS(5455),
+    [sym__boz_literal] = ACTIONS(5455),
+    [sym__string_literal] = ACTIONS(5455),
+    [sym__string_literal_kind] = ACTIONS(5455),
   },
-  [1669] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [aux_sym_preproc_else_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5566),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_contains_statement_token1] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1429] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1670] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5570),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1430] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5481),
+    [aux_sym_preproc_def_token1] = ACTIONS(5481),
+    [aux_sym_preproc_if_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
+    [sym_preproc_directive] = ACTIONS(5481),
+    [anon_sym_LPAREN2] = ACTIONS(5481),
+    [anon_sym_PLUS] = ACTIONS(5483),
+    [anon_sym_DASH] = ACTIONS(5483),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
+    [aux_sym_interface_statement_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
+    [aux_sym_language_binding_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
+    [aux_sym_contains_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token2] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
+    [aux_sym_save_statement_token1] = ACTIONS(5481),
+    [aux_sym_private_statement_token1] = ACTIONS(5481),
+    [aux_sym_public_statement_token1] = ACTIONS(5481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
+    [aux_sym_common_statement_token1] = ACTIONS(5481),
+    [aux_sym_import_statement_token1] = ACTIONS(5481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
+    [aux_sym_derived_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
+    [anon_sym_SEMI] = ACTIONS(5483),
+    [aux_sym_stop_statement_token1] = ACTIONS(5481),
+    [aux_sym_stop_statement_token2] = ACTIONS(5481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
+    [aux_sym_include_statement_token1] = ACTIONS(5481),
+    [aux_sym_data_statement_token1] = ACTIONS(5481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
+    [aux_sym_block_construct_token1] = ACTIONS(5481),
+    [aux_sym_associate_statement_token1] = ACTIONS(5481),
+    [aux_sym_format_statement_token1] = ACTIONS(5481),
+    [aux_sym_print_statement_token1] = ACTIONS(5481),
+    [aux_sym_open_statement_token1] = ACTIONS(5481),
+    [aux_sym_close_statement_token1] = ACTIONS(5481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
+    [aux_sym_enum_statement_token1] = ACTIONS(5481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
+    [aux_sym_entry_statement_token1] = ACTIONS(5481),
+    [aux_sym_logical_expression_token5] = ACTIONS(5483),
+    [anon_sym_DOT] = ACTIONS(5481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
+    [anon_sym_LBRACK] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
+    [aux_sym_null_literal_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
+    [aux_sym_identifier_token1] = ACTIONS(5481),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5483),
+    [sym__float_literal] = ACTIONS(5483),
+    [sym__boz_literal] = ACTIONS(5483),
+    [sym__string_literal] = ACTIONS(5483),
+    [sym__string_literal_kind] = ACTIONS(5483),
   },
-  [1671] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5574),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1431] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5453),
+    [aux_sym_preproc_def_token1] = ACTIONS(5453),
+    [aux_sym_preproc_if_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
+    [sym_preproc_directive] = ACTIONS(5453),
+    [anon_sym_LPAREN2] = ACTIONS(5453),
+    [anon_sym_PLUS] = ACTIONS(5455),
+    [anon_sym_DASH] = ACTIONS(5455),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
+    [aux_sym_interface_statement_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5453),
+    [aux_sym_language_binding_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
+    [aux_sym_contains_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token2] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
+    [aux_sym_save_statement_token1] = ACTIONS(5453),
+    [aux_sym_private_statement_token1] = ACTIONS(5453),
+    [aux_sym_public_statement_token1] = ACTIONS(5453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
+    [aux_sym_common_statement_token1] = ACTIONS(5453),
+    [aux_sym_import_statement_token1] = ACTIONS(5453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
+    [aux_sym_derived_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
+    [anon_sym_SEMI] = ACTIONS(5455),
+    [aux_sym_stop_statement_token1] = ACTIONS(5453),
+    [aux_sym_stop_statement_token2] = ACTIONS(5453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
+    [aux_sym_include_statement_token1] = ACTIONS(5453),
+    [aux_sym_data_statement_token1] = ACTIONS(5453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
+    [aux_sym_block_construct_token1] = ACTIONS(5453),
+    [aux_sym_associate_statement_token1] = ACTIONS(5453),
+    [aux_sym_format_statement_token1] = ACTIONS(5453),
+    [aux_sym_print_statement_token1] = ACTIONS(5453),
+    [aux_sym_open_statement_token1] = ACTIONS(5453),
+    [aux_sym_close_statement_token1] = ACTIONS(5453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
+    [aux_sym_enum_statement_token1] = ACTIONS(5453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
+    [aux_sym_entry_statement_token1] = ACTIONS(5453),
+    [aux_sym_logical_expression_token5] = ACTIONS(5455),
+    [anon_sym_DOT] = ACTIONS(5453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
+    [anon_sym_LBRACK] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
+    [aux_sym_null_literal_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
+    [aux_sym_identifier_token1] = ACTIONS(5453),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5455),
+    [sym__float_literal] = ACTIONS(5455),
+    [sym__boz_literal] = ACTIONS(5455),
+    [sym__string_literal] = ACTIONS(5455),
+    [sym__string_literal_kind] = ACTIONS(5455),
   },
-  [1672] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5578),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1432] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1673] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5582),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1433] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token2] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1674] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5586),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [1675] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5590),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [1676] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [aux_sym_preproc_else_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5596),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1677] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [aux_sym_preproc_else_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5602),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1434] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1678] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [aux_sym_preproc_else_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5608),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+  [1435] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1679] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token2] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [aux_sym_preproc_else_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5614),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1436] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1437] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1680] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [aux_sym_preproc_else_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5620),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1438] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5445),
+    [aux_sym_preproc_def_token1] = ACTIONS(5445),
+    [aux_sym_preproc_if_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
+    [sym_preproc_directive] = ACTIONS(5445),
+    [anon_sym_LPAREN2] = ACTIONS(5445),
+    [anon_sym_PLUS] = ACTIONS(5447),
+    [anon_sym_DASH] = ACTIONS(5447),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
+    [aux_sym_interface_statement_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5445),
+    [aux_sym_language_binding_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
+    [aux_sym_contains_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token2] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
+    [aux_sym_save_statement_token1] = ACTIONS(5445),
+    [aux_sym_private_statement_token1] = ACTIONS(5445),
+    [aux_sym_public_statement_token1] = ACTIONS(5445),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
+    [aux_sym_common_statement_token1] = ACTIONS(5445),
+    [aux_sym_import_statement_token1] = ACTIONS(5445),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
+    [aux_sym_derived_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
+    [anon_sym_SEMI] = ACTIONS(5447),
+    [aux_sym_stop_statement_token1] = ACTIONS(5445),
+    [aux_sym_stop_statement_token2] = ACTIONS(5445),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
+    [aux_sym_include_statement_token1] = ACTIONS(5445),
+    [aux_sym_data_statement_token1] = ACTIONS(5445),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
+    [aux_sym_block_construct_token1] = ACTIONS(5445),
+    [aux_sym_associate_statement_token1] = ACTIONS(5445),
+    [aux_sym_format_statement_token1] = ACTIONS(5445),
+    [aux_sym_print_statement_token1] = ACTIONS(5445),
+    [aux_sym_open_statement_token1] = ACTIONS(5445),
+    [aux_sym_close_statement_token1] = ACTIONS(5445),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
+    [aux_sym_enum_statement_token1] = ACTIONS(5445),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
+    [aux_sym_entry_statement_token1] = ACTIONS(5445),
+    [aux_sym_logical_expression_token5] = ACTIONS(5447),
+    [anon_sym_DOT] = ACTIONS(5445),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
+    [anon_sym_LBRACK] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
+    [aux_sym_null_literal_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
+    [aux_sym_identifier_token1] = ACTIONS(5445),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [1681] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [aux_sym_preproc_else_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5626),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+    [sym__integer_literal] = ACTIONS(5447),
+    [sym__float_literal] = ACTIONS(5447),
+    [sym__boz_literal] = ACTIONS(5447),
+    [sym__string_literal] = ACTIONS(5447),
+    [sym__string_literal_kind] = ACTIONS(5447),
   },
-  [1682] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [aux_sym_preproc_else_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5632),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1439] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1683] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5636),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym_derived_type_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5556),
-    [aux_sym_type_statement_token2] = ACTIONS(5556),
-    [aux_sym_type_statement_token3] = ACTIONS(5556),
-    [aux_sym__class_default_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1440] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1684] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [aux_sym_preproc_else_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [1441] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
+  },
+  [1442] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token2] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_contains_statement_token1] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1685] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [aux_sym_preproc_else_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [1443] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_contains_statement_token1] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1686] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [aux_sym_preproc_else_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5642),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1444] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5485),
+    [aux_sym_preproc_def_token1] = ACTIONS(5485),
+    [aux_sym_preproc_if_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
+    [sym_preproc_directive] = ACTIONS(5485),
+    [anon_sym_LPAREN2] = ACTIONS(5485),
+    [anon_sym_PLUS] = ACTIONS(5487),
+    [anon_sym_DASH] = ACTIONS(5487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
+    [aux_sym_interface_statement_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
+    [aux_sym_language_binding_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5485),
+    [aux_sym_contains_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token2] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
+    [aux_sym_save_statement_token1] = ACTIONS(5485),
+    [aux_sym_private_statement_token1] = ACTIONS(5485),
+    [aux_sym_public_statement_token1] = ACTIONS(5485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
+    [aux_sym_common_statement_token1] = ACTIONS(5485),
+    [aux_sym_import_statement_token1] = ACTIONS(5485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
+    [aux_sym_derived_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
+    [anon_sym_SEMI] = ACTIONS(5487),
+    [aux_sym_stop_statement_token1] = ACTIONS(5485),
+    [aux_sym_stop_statement_token2] = ACTIONS(5485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5485),
+    [aux_sym_include_statement_token1] = ACTIONS(5485),
+    [aux_sym_data_statement_token1] = ACTIONS(5485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5485),
+    [aux_sym_block_construct_token1] = ACTIONS(5485),
+    [aux_sym_associate_statement_token1] = ACTIONS(5485),
+    [aux_sym_format_statement_token1] = ACTIONS(5485),
+    [aux_sym_print_statement_token1] = ACTIONS(5485),
+    [aux_sym_open_statement_token1] = ACTIONS(5485),
+    [aux_sym_close_statement_token1] = ACTIONS(5485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
+    [aux_sym_enum_statement_token1] = ACTIONS(5485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5485),
+    [aux_sym_entry_statement_token1] = ACTIONS(5485),
+    [aux_sym_logical_expression_token5] = ACTIONS(5487),
+    [anon_sym_DOT] = ACTIONS(5485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5487),
+    [anon_sym_LBRACK] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5487),
+    [aux_sym_null_literal_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
+    [aux_sym_identifier_token1] = ACTIONS(5485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5487),
+    [sym__float_literal] = ACTIONS(5487),
+    [sym__boz_literal] = ACTIONS(5487),
+    [sym__string_literal] = ACTIONS(5487),
+    [sym__string_literal_kind] = ACTIONS(5487),
   },
-  [1687] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [aux_sym_preproc_else_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5644),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1445] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1688] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [aux_sym_preproc_else_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5646),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1446] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1689] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [aux_sym_preproc_else_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5648),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1447] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5481),
+    [aux_sym_preproc_def_token1] = ACTIONS(5481),
+    [aux_sym_preproc_if_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
+    [sym_preproc_directive] = ACTIONS(5481),
+    [anon_sym_LPAREN2] = ACTIONS(5481),
+    [anon_sym_PLUS] = ACTIONS(5483),
+    [anon_sym_DASH] = ACTIONS(5483),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5481),
+    [aux_sym_interface_statement_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
+    [aux_sym_language_binding_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
+    [aux_sym_contains_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token2] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
+    [aux_sym_save_statement_token1] = ACTIONS(5481),
+    [aux_sym_private_statement_token1] = ACTIONS(5481),
+    [aux_sym_public_statement_token1] = ACTIONS(5481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
+    [aux_sym_common_statement_token1] = ACTIONS(5481),
+    [aux_sym_import_statement_token1] = ACTIONS(5481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
+    [aux_sym_derived_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
+    [anon_sym_SEMI] = ACTIONS(5483),
+    [aux_sym_stop_statement_token1] = ACTIONS(5481),
+    [aux_sym_stop_statement_token2] = ACTIONS(5481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
+    [aux_sym_include_statement_token1] = ACTIONS(5481),
+    [aux_sym_data_statement_token1] = ACTIONS(5481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
+    [aux_sym_block_construct_token1] = ACTIONS(5481),
+    [aux_sym_associate_statement_token1] = ACTIONS(5481),
+    [aux_sym_format_statement_token1] = ACTIONS(5481),
+    [aux_sym_print_statement_token1] = ACTIONS(5481),
+    [aux_sym_open_statement_token1] = ACTIONS(5481),
+    [aux_sym_close_statement_token1] = ACTIONS(5481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
+    [aux_sym_enum_statement_token1] = ACTIONS(5481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
+    [aux_sym_entry_statement_token1] = ACTIONS(5481),
+    [aux_sym_logical_expression_token5] = ACTIONS(5483),
+    [anon_sym_DOT] = ACTIONS(5481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
+    [anon_sym_LBRACK] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
+    [aux_sym_null_literal_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
+    [aux_sym_identifier_token1] = ACTIONS(5481),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(5483),
+    [sym__float_literal] = ACTIONS(5483),
+    [sym__boz_literal] = ACTIONS(5483),
+    [sym__string_literal] = ACTIONS(5483),
+    [sym__string_literal_kind] = ACTIONS(5483),
   },
-  [1690] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token2] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [aux_sym_preproc_else_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5650),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1448] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [1691] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [aux_sym_preproc_else_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5652),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1692] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [aux_sym_preproc_else_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5654),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1449] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [1693] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [aux_sym_preproc_else_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5656),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1694] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token2] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [aux_sym_preproc_else_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_LPAREN2] = ACTIONS(4289),
-    [sym_preproc_comment] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [anon_sym_SEMI] = ACTIONS(4291),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4289),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4289),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_associate_statement_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_print_statement_token1] = ACTIONS(4289),
-    [aux_sym_open_statement_token1] = ACTIONS(4289),
-    [aux_sym_close_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4289),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4289),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_logical_expression_token5] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4291),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4291),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
-    [sym__float_literal] = ACTIONS(4291),
-    [sym__boz_literal] = ACTIONS(4291),
-    [sym__string_literal] = ACTIONS(4291),
-    [sym__string_literal_kind] = ACTIONS(4291),
+  [1450] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
   },
-  [1695] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token2] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
-    [aux_sym_preproc_else_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
-    [anon_sym_LPAREN2] = ACTIONS(4293),
-    [sym_preproc_comment] = ACTIONS(4295),
-    [anon_sym_PLUS] = ACTIONS(4295),
-    [anon_sym_DASH] = ACTIONS(4295),
+  [1451] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [anon_sym_SEMI] = ACTIONS(4295),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4293),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4293),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_associate_statement_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_print_statement_token1] = ACTIONS(4293),
-    [aux_sym_open_statement_token1] = ACTIONS(4293),
-    [aux_sym_close_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4293),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4293),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_logical_expression_token5] = ACTIONS(4295),
-    [anon_sym_DOT] = ACTIONS(4293),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4295),
-    [anon_sym_LBRACK] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4295),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4295),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
-    [sym__float_literal] = ACTIONS(4295),
-    [sym__boz_literal] = ACTIONS(4295),
-    [sym__string_literal] = ACTIONS(4295),
-    [sym__string_literal_kind] = ACTIONS(4295),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1696] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
+  [1452] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5473),
+    [aux_sym_preproc_def_token1] = ACTIONS(5473),
+    [aux_sym_preproc_if_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
+    [sym_preproc_directive] = ACTIONS(5473),
+    [anon_sym_LPAREN2] = ACTIONS(5473),
+    [anon_sym_PLUS] = ACTIONS(5475),
+    [anon_sym_DASH] = ACTIONS(5475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
+    [aux_sym_interface_statement_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5473),
+    [aux_sym_language_binding_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
+    [aux_sym_contains_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token2] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
+    [aux_sym_save_statement_token1] = ACTIONS(5473),
+    [aux_sym_private_statement_token1] = ACTIONS(5473),
+    [aux_sym_public_statement_token1] = ACTIONS(5473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
+    [aux_sym_common_statement_token1] = ACTIONS(5473),
+    [aux_sym_import_statement_token1] = ACTIONS(5473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
+    [aux_sym_derived_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
+    [anon_sym_SEMI] = ACTIONS(5475),
+    [aux_sym_stop_statement_token1] = ACTIONS(5473),
+    [aux_sym_stop_statement_token2] = ACTIONS(5473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
+    [aux_sym_include_statement_token1] = ACTIONS(5473),
+    [aux_sym_data_statement_token1] = ACTIONS(5473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
+    [aux_sym_block_construct_token1] = ACTIONS(5473),
+    [aux_sym_associate_statement_token1] = ACTIONS(5473),
+    [aux_sym_format_statement_token1] = ACTIONS(5473),
+    [aux_sym_print_statement_token1] = ACTIONS(5473),
+    [aux_sym_open_statement_token1] = ACTIONS(5473),
+    [aux_sym_close_statement_token1] = ACTIONS(5473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
+    [aux_sym_enum_statement_token1] = ACTIONS(5473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
+    [aux_sym_entry_statement_token1] = ACTIONS(5473),
+    [aux_sym_logical_expression_token5] = ACTIONS(5475),
+    [anon_sym_DOT] = ACTIONS(5473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
+    [anon_sym_LBRACK] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
+    [aux_sym_null_literal_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
+    [aux_sym_identifier_token1] = ACTIONS(5473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(5475),
+    [sym__float_literal] = ACTIONS(5475),
+    [sym__boz_literal] = ACTIONS(5475),
+    [sym__string_literal] = ACTIONS(5475),
+    [sym__string_literal_kind] = ACTIONS(5475),
   },
-  [1697] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token2] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [aux_sym_preproc_else_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_LPAREN2] = ACTIONS(4297),
-    [sym_preproc_comment] = ACTIONS(4299),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [anon_sym_SEMI] = ACTIONS(4299),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4297),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4297),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_associate_statement_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_print_statement_token1] = ACTIONS(4297),
-    [aux_sym_open_statement_token1] = ACTIONS(4297),
-    [aux_sym_close_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4297),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4297),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_logical_expression_token5] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4299),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4299),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4299),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
-    [sym__float_literal] = ACTIONS(4299),
-    [sym__boz_literal] = ACTIONS(4299),
-    [sym__string_literal] = ACTIONS(4299),
-    [sym__string_literal_kind] = ACTIONS(4299),
+  [1453] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1698] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
+  [1454] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
+  },
+  [1455] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4285),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4285),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_associate_statement_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_print_statement_token1] = ACTIONS(4285),
-    [aux_sym_open_statement_token1] = ACTIONS(4285),
-    [aux_sym_close_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4285),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4285),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_logical_expression_token5] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4287),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-    [sym__float_literal] = ACTIONS(4287),
-    [sym__boz_literal] = ACTIONS(4287),
-    [sym__string_literal] = ACTIONS(4287),
-    [sym__string_literal_kind] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1699] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5658),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1456] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym_derived_type_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4301),
-    [aux_sym_type_statement_token2] = ACTIONS(4301),
-    [aux_sym_type_statement_token3] = ACTIONS(4301),
-    [aux_sym__class_default_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [1700] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5660),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym_derived_type_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4307),
-    [aux_sym_type_statement_token2] = ACTIONS(4307),
-    [aux_sym_type_statement_token3] = ACTIONS(4307),
-    [aux_sym__class_default_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1701] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5662),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1457] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym_derived_type_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
-    [aux_sym_type_statement_token2] = ACTIONS(4317),
-    [aux_sym_type_statement_token3] = ACTIONS(4317),
-    [aux_sym__class_default_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1702] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5664),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1458] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym_derived_type_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_type_statement_token2] = ACTIONS(4349),
-    [aux_sym_type_statement_token3] = ACTIONS(4349),
-    [aux_sym__class_default_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [1703] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5666),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym_derived_type_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_type_statement_token2] = ACTIONS(4499),
-    [aux_sym_type_statement_token3] = ACTIONS(4499),
-    [aux_sym__class_default_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1704] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5668),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1459] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym_derived_type_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
-    [aux_sym_type_statement_token2] = ACTIONS(4525),
-    [aux_sym_type_statement_token3] = ACTIONS(4525),
-    [aux_sym__class_default_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1705] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5670),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym_derived_type_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_type_statement_token2] = ACTIONS(5002),
-    [aux_sym_type_statement_token3] = ACTIONS(5002),
-    [aux_sym__class_default_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1460] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [1706] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5672),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym_derived_type_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_type_statement_token2] = ACTIONS(5026),
-    [aux_sym_type_statement_token3] = ACTIONS(5026),
-    [aux_sym__class_default_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1461] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [1707] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5674),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1462] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1463] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1464] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5481),
+    [aux_sym_preproc_def_token1] = ACTIONS(5481),
+    [aux_sym_preproc_if_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
+    [sym_preproc_directive] = ACTIONS(5481),
+    [anon_sym_LPAREN2] = ACTIONS(5481),
+    [anon_sym_PLUS] = ACTIONS(5483),
+    [anon_sym_DASH] = ACTIONS(5483),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym_derived_type_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
-    [aux_sym_type_statement_token2] = ACTIONS(5618),
-    [aux_sym_type_statement_token3] = ACTIONS(5618),
-    [aux_sym__class_default_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
+    [aux_sym_interface_statement_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5481),
+    [aux_sym_language_binding_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
+    [aux_sym_contains_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token2] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
+    [aux_sym_save_statement_token1] = ACTIONS(5481),
+    [aux_sym_private_statement_token1] = ACTIONS(5481),
+    [aux_sym_public_statement_token1] = ACTIONS(5481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
+    [aux_sym_common_statement_token1] = ACTIONS(5481),
+    [aux_sym_import_statement_token1] = ACTIONS(5481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
+    [aux_sym_derived_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
+    [anon_sym_SEMI] = ACTIONS(5483),
+    [aux_sym_stop_statement_token1] = ACTIONS(5481),
+    [aux_sym_stop_statement_token2] = ACTIONS(5481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
+    [aux_sym_include_statement_token1] = ACTIONS(5481),
+    [aux_sym_data_statement_token1] = ACTIONS(5481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
+    [aux_sym_block_construct_token1] = ACTIONS(5481),
+    [aux_sym_associate_statement_token1] = ACTIONS(5481),
+    [aux_sym_format_statement_token1] = ACTIONS(5481),
+    [aux_sym_print_statement_token1] = ACTIONS(5481),
+    [aux_sym_open_statement_token1] = ACTIONS(5481),
+    [aux_sym_close_statement_token1] = ACTIONS(5481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
+    [aux_sym_enum_statement_token1] = ACTIONS(5481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
+    [aux_sym_entry_statement_token1] = ACTIONS(5481),
+    [aux_sym_logical_expression_token5] = ACTIONS(5483),
+    [anon_sym_DOT] = ACTIONS(5481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
+    [anon_sym_LBRACK] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
+    [aux_sym_null_literal_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
+    [aux_sym_identifier_token1] = ACTIONS(5481),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5483),
+    [sym__float_literal] = ACTIONS(5483),
+    [sym__boz_literal] = ACTIONS(5483),
+    [sym__string_literal] = ACTIONS(5483),
+    [sym__string_literal_kind] = ACTIONS(5483),
   },
-  [1708] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5676),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1465] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym_derived_type_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5600),
-    [aux_sym_type_statement_token2] = ACTIONS(5600),
-    [aux_sym_type_statement_token3] = ACTIONS(5600),
-    [aux_sym__class_default_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1709] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5678),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym_derived_type_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5594),
-    [aux_sym_type_statement_token2] = ACTIONS(5594),
-    [aux_sym_type_statement_token3] = ACTIONS(5594),
-    [aux_sym__class_default_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1466] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1710] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5680),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym_derived_type_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5606),
-    [aux_sym_type_statement_token2] = ACTIONS(5606),
-    [aux_sym_type_statement_token3] = ACTIONS(5606),
-    [aux_sym__class_default_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+  [1467] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
   },
-  [1711] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5682),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1468] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
+  },
+  [1469] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
+  },
+  [1470] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym_derived_type_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5612),
-    [aux_sym_type_statement_token2] = ACTIONS(5612),
-    [aux_sym_type_statement_token3] = ACTIONS(5612),
-    [aux_sym__class_default_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1712] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5684),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym_derived_type_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5624),
-    [aux_sym_type_statement_token2] = ACTIONS(5624),
-    [aux_sym_type_statement_token3] = ACTIONS(5624),
-    [aux_sym__class_default_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1471] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
   },
-  [1713] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5686),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1472] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1473] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1474] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
+  },
+  [1475] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym_derived_type_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5630),
-    [aux_sym_type_statement_token2] = ACTIONS(5630),
-    [aux_sym_type_statement_token3] = ACTIONS(5630),
-    [aux_sym__class_default_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1714] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [aux_sym_preproc_else_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5688),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1476] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_contains_statement_token1] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1715] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [1477] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1716] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [aux_sym_preproc_else_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1478] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1717] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [aux_sym_preproc_else_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1479] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1718] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [aux_sym_preproc_else_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1480] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1719] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1481] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1720] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [aux_sym_preproc_else_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1482] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1721] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [aux_sym_preproc_else_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1483] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5485),
+    [aux_sym_preproc_def_token1] = ACTIONS(5485),
+    [aux_sym_preproc_if_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
+    [sym_preproc_directive] = ACTIONS(5485),
+    [anon_sym_LPAREN2] = ACTIONS(5485),
+    [anon_sym_PLUS] = ACTIONS(5487),
+    [anon_sym_DASH] = ACTIONS(5487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
+    [aux_sym_interface_statement_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5485),
+    [aux_sym_language_binding_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
+    [aux_sym_contains_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token2] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
+    [aux_sym_save_statement_token1] = ACTIONS(5485),
+    [aux_sym_private_statement_token1] = ACTIONS(5485),
+    [aux_sym_public_statement_token1] = ACTIONS(5485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
+    [aux_sym_common_statement_token1] = ACTIONS(5485),
+    [aux_sym_import_statement_token1] = ACTIONS(5485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
+    [aux_sym_derived_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
+    [anon_sym_SEMI] = ACTIONS(5487),
+    [aux_sym_stop_statement_token1] = ACTIONS(5485),
+    [aux_sym_stop_statement_token2] = ACTIONS(5485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5485),
+    [aux_sym_include_statement_token1] = ACTIONS(5485),
+    [aux_sym_data_statement_token1] = ACTIONS(5485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5485),
+    [aux_sym_block_construct_token1] = ACTIONS(5485),
+    [aux_sym_associate_statement_token1] = ACTIONS(5485),
+    [aux_sym_format_statement_token1] = ACTIONS(5485),
+    [aux_sym_print_statement_token1] = ACTIONS(5485),
+    [aux_sym_open_statement_token1] = ACTIONS(5485),
+    [aux_sym_close_statement_token1] = ACTIONS(5485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
+    [aux_sym_enum_statement_token1] = ACTIONS(5485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5485),
+    [aux_sym_entry_statement_token1] = ACTIONS(5485),
+    [aux_sym_logical_expression_token5] = ACTIONS(5487),
+    [anon_sym_DOT] = ACTIONS(5485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5487),
+    [anon_sym_LBRACK] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5487),
+    [aux_sym_null_literal_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
+    [aux_sym_identifier_token1] = ACTIONS(5485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5487),
+    [sym__float_literal] = ACTIONS(5487),
+    [sym__boz_literal] = ACTIONS(5487),
+    [sym__string_literal] = ACTIONS(5487),
+    [sym__string_literal_kind] = ACTIONS(5487),
   },
-  [1722] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [aux_sym_preproc_else_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1484] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [1723] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [aux_sym_preproc_else_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5692),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_contains_statement_token1] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1724] = {
-    [sym_assignment] = STATE(6162),
-    [sym_operator] = STATE(6162),
-    [sym_defined_io_procedure] = STATE(6162),
-    [sym__generic_procedure] = STATE(6162),
-    [sym_identifier] = STATE(6162),
-    [sym__end_of_statement] = STATE(1514),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5702),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5704),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5704),
+  [1485] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
   },
-  [1725] = {
-    [sym_assignment] = STATE(6126),
-    [sym_operator] = STATE(6126),
-    [sym_defined_io_procedure] = STATE(6126),
-    [sym__generic_procedure] = STATE(6126),
-    [sym_identifier] = STATE(6126),
-    [sym__end_of_statement] = STATE(1538),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5706),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5708),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1486] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5461),
+    [aux_sym_preproc_def_token1] = ACTIONS(5461),
+    [aux_sym_preproc_if_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
+    [sym_preproc_directive] = ACTIONS(5461),
+    [anon_sym_LPAREN2] = ACTIONS(5461),
+    [anon_sym_PLUS] = ACTIONS(5463),
+    [anon_sym_DASH] = ACTIONS(5463),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5461),
+    [aux_sym_interface_statement_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
+    [aux_sym_language_binding_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
+    [aux_sym_contains_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token2] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
+    [aux_sym_save_statement_token1] = ACTIONS(5461),
+    [aux_sym_private_statement_token1] = ACTIONS(5461),
+    [aux_sym_public_statement_token1] = ACTIONS(5461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
+    [aux_sym_common_statement_token1] = ACTIONS(5461),
+    [aux_sym_import_statement_token1] = ACTIONS(5461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
+    [aux_sym_derived_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
+    [anon_sym_SEMI] = ACTIONS(5463),
+    [aux_sym_stop_statement_token1] = ACTIONS(5461),
+    [aux_sym_stop_statement_token2] = ACTIONS(5461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
+    [aux_sym_include_statement_token1] = ACTIONS(5461),
+    [aux_sym_data_statement_token1] = ACTIONS(5461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
+    [aux_sym_block_construct_token1] = ACTIONS(5461),
+    [aux_sym_associate_statement_token1] = ACTIONS(5461),
+    [aux_sym_format_statement_token1] = ACTIONS(5461),
+    [aux_sym_print_statement_token1] = ACTIONS(5461),
+    [aux_sym_open_statement_token1] = ACTIONS(5461),
+    [aux_sym_close_statement_token1] = ACTIONS(5461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
+    [aux_sym_enum_statement_token1] = ACTIONS(5461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
+    [aux_sym_entry_statement_token1] = ACTIONS(5461),
+    [aux_sym_logical_expression_token5] = ACTIONS(5463),
+    [anon_sym_DOT] = ACTIONS(5461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
+    [anon_sym_LBRACK] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
+    [aux_sym_null_literal_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
+    [aux_sym_identifier_token1] = ACTIONS(5461),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5708),
+    [sym__integer_literal] = ACTIONS(5463),
+    [sym__float_literal] = ACTIONS(5463),
+    [sym__boz_literal] = ACTIONS(5463),
+    [sym__string_literal] = ACTIONS(5463),
+    [sym__string_literal_kind] = ACTIONS(5463),
   },
-  [1726] = {
-    [anon_sym_COMMA] = ACTIONS(5710),
-    [anon_sym_RPAREN] = ACTIONS(5712),
-    [anon_sym_LPAREN2] = ACTIONS(5712),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(5715),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5718),
-    [aux_sym_module_statement_token1] = ACTIONS(5718),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5718),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(5718),
-    [aux_sym_function_statement_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5718),
-    [aux_sym_use_statement_token2] = ACTIONS(5718),
-    [anon_sym_COLON_COLON] = ACTIONS(5710),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5718),
-    [aux_sym_save_statement_token1] = ACTIONS(5718),
-    [aux_sym_private_statement_token1] = ACTIONS(5718),
-    [aux_sym_public_statement_token1] = ACTIONS(5718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5718),
-    [aux_sym_derived_type_token1] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(5718),
-    [aux_sym_stop_statement_token1] = ACTIONS(5718),
-    [aux_sym_stop_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5718),
-    [aux_sym_data_statement_token1] = ACTIONS(5718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5718),
-    [aux_sym_block_construct_token1] = ACTIONS(5718),
-    [aux_sym_format_statement_token1] = ACTIONS(5718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5718),
-    [aux_sym_entry_statement_token1] = ACTIONS(5718),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5718),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5718),
-    [sym_comment] = ACTIONS(21),
+  [1487] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [1727] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5720),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1488] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5477),
+    [aux_sym_preproc_def_token1] = ACTIONS(5477),
+    [aux_sym_preproc_if_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
+    [sym_preproc_directive] = ACTIONS(5477),
+    [anon_sym_LPAREN2] = ACTIONS(5477),
+    [anon_sym_PLUS] = ACTIONS(5479),
+    [anon_sym_DASH] = ACTIONS(5479),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
+    [aux_sym_interface_statement_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5477),
+    [aux_sym_language_binding_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
+    [aux_sym_contains_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token2] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
+    [aux_sym_save_statement_token1] = ACTIONS(5477),
+    [aux_sym_private_statement_token1] = ACTIONS(5477),
+    [aux_sym_public_statement_token1] = ACTIONS(5477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
+    [aux_sym_common_statement_token1] = ACTIONS(5477),
+    [aux_sym_import_statement_token1] = ACTIONS(5477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
+    [aux_sym_derived_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
+    [anon_sym_SEMI] = ACTIONS(5479),
+    [aux_sym_stop_statement_token1] = ACTIONS(5477),
+    [aux_sym_stop_statement_token2] = ACTIONS(5477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
+    [aux_sym_include_statement_token1] = ACTIONS(5477),
+    [aux_sym_data_statement_token1] = ACTIONS(5477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
+    [aux_sym_block_construct_token1] = ACTIONS(5477),
+    [aux_sym_associate_statement_token1] = ACTIONS(5477),
+    [aux_sym_format_statement_token1] = ACTIONS(5477),
+    [aux_sym_print_statement_token1] = ACTIONS(5477),
+    [aux_sym_open_statement_token1] = ACTIONS(5477),
+    [aux_sym_close_statement_token1] = ACTIONS(5477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
+    [aux_sym_enum_statement_token1] = ACTIONS(5477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
+    [aux_sym_entry_statement_token1] = ACTIONS(5477),
+    [aux_sym_logical_expression_token5] = ACTIONS(5479),
+    [anon_sym_DOT] = ACTIONS(5477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
+    [anon_sym_LBRACK] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
+    [aux_sym_null_literal_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
+    [aux_sym_identifier_token1] = ACTIONS(5477),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5479),
+    [sym__float_literal] = ACTIONS(5479),
+    [sym__boz_literal] = ACTIONS(5479),
+    [sym__string_literal] = ACTIONS(5479),
+    [sym__string_literal_kind] = ACTIONS(5479),
   },
-  [1728] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1489] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5469),
+    [aux_sym_preproc_def_token1] = ACTIONS(5469),
+    [aux_sym_preproc_if_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
+    [sym_preproc_directive] = ACTIONS(5469),
+    [anon_sym_LPAREN2] = ACTIONS(5469),
+    [anon_sym_PLUS] = ACTIONS(5471),
+    [anon_sym_DASH] = ACTIONS(5471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
+    [aux_sym_interface_statement_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5469),
+    [aux_sym_language_binding_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
+    [aux_sym_contains_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token2] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
+    [aux_sym_save_statement_token1] = ACTIONS(5469),
+    [aux_sym_private_statement_token1] = ACTIONS(5469),
+    [aux_sym_public_statement_token1] = ACTIONS(5469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
+    [aux_sym_common_statement_token1] = ACTIONS(5469),
+    [aux_sym_import_statement_token1] = ACTIONS(5469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
+    [aux_sym_derived_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
+    [anon_sym_SEMI] = ACTIONS(5471),
+    [aux_sym_stop_statement_token1] = ACTIONS(5469),
+    [aux_sym_stop_statement_token2] = ACTIONS(5469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
+    [aux_sym_include_statement_token1] = ACTIONS(5469),
+    [aux_sym_data_statement_token1] = ACTIONS(5469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
+    [aux_sym_block_construct_token1] = ACTIONS(5469),
+    [aux_sym_associate_statement_token1] = ACTIONS(5469),
+    [aux_sym_format_statement_token1] = ACTIONS(5469),
+    [aux_sym_print_statement_token1] = ACTIONS(5469),
+    [aux_sym_open_statement_token1] = ACTIONS(5469),
+    [aux_sym_close_statement_token1] = ACTIONS(5469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
+    [aux_sym_enum_statement_token1] = ACTIONS(5469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
+    [aux_sym_entry_statement_token1] = ACTIONS(5469),
+    [aux_sym_logical_expression_token5] = ACTIONS(5471),
+    [anon_sym_DOT] = ACTIONS(5469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
+    [anon_sym_LBRACK] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
+    [aux_sym_null_literal_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
+    [aux_sym_identifier_token1] = ACTIONS(5469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5471),
+    [sym__float_literal] = ACTIONS(5471),
+    [sym__boz_literal] = ACTIONS(5471),
+    [sym__string_literal] = ACTIONS(5471),
+    [sym__string_literal_kind] = ACTIONS(5471),
   },
-  [1729] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5722),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1490] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
+  },
+  [1491] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5465),
+    [aux_sym_preproc_def_token1] = ACTIONS(5465),
+    [aux_sym_preproc_if_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
+    [sym_preproc_directive] = ACTIONS(5465),
+    [anon_sym_LPAREN2] = ACTIONS(5465),
+    [anon_sym_PLUS] = ACTIONS(5467),
+    [anon_sym_DASH] = ACTIONS(5467),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
+    [aux_sym_interface_statement_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5465),
+    [aux_sym_language_binding_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
+    [aux_sym_contains_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token2] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
+    [aux_sym_save_statement_token1] = ACTIONS(5465),
+    [aux_sym_private_statement_token1] = ACTIONS(5465),
+    [aux_sym_public_statement_token1] = ACTIONS(5465),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
+    [aux_sym_common_statement_token1] = ACTIONS(5465),
+    [aux_sym_import_statement_token1] = ACTIONS(5465),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
+    [aux_sym_derived_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
+    [anon_sym_SEMI] = ACTIONS(5467),
+    [aux_sym_stop_statement_token1] = ACTIONS(5465),
+    [aux_sym_stop_statement_token2] = ACTIONS(5465),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
+    [aux_sym_include_statement_token1] = ACTIONS(5465),
+    [aux_sym_data_statement_token1] = ACTIONS(5465),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
+    [aux_sym_block_construct_token1] = ACTIONS(5465),
+    [aux_sym_associate_statement_token1] = ACTIONS(5465),
+    [aux_sym_format_statement_token1] = ACTIONS(5465),
+    [aux_sym_print_statement_token1] = ACTIONS(5465),
+    [aux_sym_open_statement_token1] = ACTIONS(5465),
+    [aux_sym_close_statement_token1] = ACTIONS(5465),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
+    [aux_sym_enum_statement_token1] = ACTIONS(5465),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
+    [aux_sym_entry_statement_token1] = ACTIONS(5465),
+    [aux_sym_logical_expression_token5] = ACTIONS(5467),
+    [anon_sym_DOT] = ACTIONS(5465),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
+    [anon_sym_LBRACK] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
+    [aux_sym_null_literal_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
+    [aux_sym_identifier_token1] = ACTIONS(5465),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5467),
+    [sym__float_literal] = ACTIONS(5467),
+    [sym__boz_literal] = ACTIONS(5467),
+    [sym__string_literal] = ACTIONS(5467),
+    [sym__string_literal_kind] = ACTIONS(5467),
   },
-  [1730] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1492] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5461),
+    [aux_sym_preproc_def_token1] = ACTIONS(5461),
+    [aux_sym_preproc_if_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
+    [sym_preproc_directive] = ACTIONS(5461),
+    [anon_sym_LPAREN2] = ACTIONS(5461),
+    [anon_sym_PLUS] = ACTIONS(5463),
+    [anon_sym_DASH] = ACTIONS(5463),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
+    [aux_sym_interface_statement_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5461),
+    [aux_sym_language_binding_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
+    [aux_sym_contains_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token2] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
+    [aux_sym_save_statement_token1] = ACTIONS(5461),
+    [aux_sym_private_statement_token1] = ACTIONS(5461),
+    [aux_sym_public_statement_token1] = ACTIONS(5461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
+    [aux_sym_common_statement_token1] = ACTIONS(5461),
+    [aux_sym_import_statement_token1] = ACTIONS(5461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
+    [aux_sym_derived_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
+    [anon_sym_SEMI] = ACTIONS(5463),
+    [aux_sym_stop_statement_token1] = ACTIONS(5461),
+    [aux_sym_stop_statement_token2] = ACTIONS(5461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
+    [aux_sym_include_statement_token1] = ACTIONS(5461),
+    [aux_sym_data_statement_token1] = ACTIONS(5461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
+    [aux_sym_block_construct_token1] = ACTIONS(5461),
+    [aux_sym_associate_statement_token1] = ACTIONS(5461),
+    [aux_sym_format_statement_token1] = ACTIONS(5461),
+    [aux_sym_print_statement_token1] = ACTIONS(5461),
+    [aux_sym_open_statement_token1] = ACTIONS(5461),
+    [aux_sym_close_statement_token1] = ACTIONS(5461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
+    [aux_sym_enum_statement_token1] = ACTIONS(5461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
+    [aux_sym_entry_statement_token1] = ACTIONS(5461),
+    [aux_sym_logical_expression_token5] = ACTIONS(5463),
+    [anon_sym_DOT] = ACTIONS(5461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
+    [anon_sym_LBRACK] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
+    [aux_sym_null_literal_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
+    [aux_sym_identifier_token1] = ACTIONS(5461),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5463),
+    [sym__float_literal] = ACTIONS(5463),
+    [sym__boz_literal] = ACTIONS(5463),
+    [sym__string_literal] = ACTIONS(5463),
+    [sym__string_literal_kind] = ACTIONS(5463),
   },
-  [1731] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5724),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1493] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1732] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1494] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
   },
-  [1733] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token2] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [aux_sym_preproc_else_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [1495] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5457),
+    [aux_sym_preproc_def_token1] = ACTIONS(5457),
+    [aux_sym_preproc_if_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
+    [sym_preproc_directive] = ACTIONS(5457),
+    [anon_sym_LPAREN2] = ACTIONS(5457),
+    [anon_sym_PLUS] = ACTIONS(5459),
+    [anon_sym_DASH] = ACTIONS(5459),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [1734] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5730),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [1735] = {
-    [sym_assignment] = STATE(6127),
-    [sym_operator] = STATE(6127),
-    [sym_defined_io_procedure] = STATE(6127),
-    [sym__generic_procedure] = STATE(6127),
-    [sym_identifier] = STATE(6127),
-    [sym__end_of_statement] = STATE(1155),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5732),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5734),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
+    [aux_sym_interface_statement_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5457),
+    [aux_sym_language_binding_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
+    [aux_sym_contains_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token2] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
+    [aux_sym_save_statement_token1] = ACTIONS(5457),
+    [aux_sym_private_statement_token1] = ACTIONS(5457),
+    [aux_sym_public_statement_token1] = ACTIONS(5457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
+    [aux_sym_common_statement_token1] = ACTIONS(5457),
+    [aux_sym_import_statement_token1] = ACTIONS(5457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
+    [aux_sym_derived_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
+    [anon_sym_SEMI] = ACTIONS(5459),
+    [aux_sym_stop_statement_token1] = ACTIONS(5457),
+    [aux_sym_stop_statement_token2] = ACTIONS(5457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
+    [aux_sym_include_statement_token1] = ACTIONS(5457),
+    [aux_sym_data_statement_token1] = ACTIONS(5457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
+    [aux_sym_block_construct_token1] = ACTIONS(5457),
+    [aux_sym_associate_statement_token1] = ACTIONS(5457),
+    [aux_sym_format_statement_token1] = ACTIONS(5457),
+    [aux_sym_print_statement_token1] = ACTIONS(5457),
+    [aux_sym_open_statement_token1] = ACTIONS(5457),
+    [aux_sym_close_statement_token1] = ACTIONS(5457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
+    [aux_sym_enum_statement_token1] = ACTIONS(5457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
+    [aux_sym_entry_statement_token1] = ACTIONS(5457),
+    [aux_sym_logical_expression_token5] = ACTIONS(5459),
+    [anon_sym_DOT] = ACTIONS(5457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
+    [anon_sym_LBRACK] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
+    [aux_sym_null_literal_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
+    [aux_sym_identifier_token1] = ACTIONS(5457),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5734),
+    [sym__integer_literal] = ACTIONS(5459),
+    [sym__float_literal] = ACTIONS(5459),
+    [sym__boz_literal] = ACTIONS(5459),
+    [sym__string_literal] = ACTIONS(5459),
+    [sym__string_literal_kind] = ACTIONS(5459),
   },
-  [1736] = {
-    [sym_assignment] = STATE(6130),
-    [sym_operator] = STATE(6130),
-    [sym_defined_io_procedure] = STATE(6130),
-    [sym__generic_procedure] = STATE(6130),
-    [sym_identifier] = STATE(6130),
-    [sym__end_of_statement] = STATE(1122),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5736),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5738),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1496] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5433),
+    [aux_sym_preproc_def_token1] = ACTIONS(5433),
+    [aux_sym_preproc_if_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
+    [sym_preproc_directive] = ACTIONS(5433),
+    [anon_sym_LPAREN2] = ACTIONS(5433),
+    [anon_sym_PLUS] = ACTIONS(5435),
+    [anon_sym_DASH] = ACTIONS(5435),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
+    [aux_sym_interface_statement_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5433),
+    [aux_sym_language_binding_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
+    [aux_sym_contains_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token2] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
+    [aux_sym_save_statement_token1] = ACTIONS(5433),
+    [aux_sym_private_statement_token1] = ACTIONS(5433),
+    [aux_sym_public_statement_token1] = ACTIONS(5433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
+    [aux_sym_common_statement_token1] = ACTIONS(5433),
+    [aux_sym_import_statement_token1] = ACTIONS(5433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
+    [aux_sym_derived_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
+    [anon_sym_SEMI] = ACTIONS(5435),
+    [aux_sym_stop_statement_token1] = ACTIONS(5433),
+    [aux_sym_stop_statement_token2] = ACTIONS(5433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
+    [aux_sym_include_statement_token1] = ACTIONS(5433),
+    [aux_sym_data_statement_token1] = ACTIONS(5433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
+    [aux_sym_block_construct_token1] = ACTIONS(5433),
+    [aux_sym_associate_statement_token1] = ACTIONS(5433),
+    [aux_sym_format_statement_token1] = ACTIONS(5433),
+    [aux_sym_print_statement_token1] = ACTIONS(5433),
+    [aux_sym_open_statement_token1] = ACTIONS(5433),
+    [aux_sym_close_statement_token1] = ACTIONS(5433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
+    [aux_sym_enum_statement_token1] = ACTIONS(5433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
+    [aux_sym_entry_statement_token1] = ACTIONS(5433),
+    [aux_sym_logical_expression_token5] = ACTIONS(5435),
+    [anon_sym_DOT] = ACTIONS(5433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
+    [anon_sym_LBRACK] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
+    [aux_sym_null_literal_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
+    [aux_sym_identifier_token1] = ACTIONS(5433),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5738),
+    [sym__integer_literal] = ACTIONS(5435),
+    [sym__float_literal] = ACTIONS(5435),
+    [sym__boz_literal] = ACTIONS(5435),
+    [sym__string_literal] = ACTIONS(5435),
+    [sym__string_literal_kind] = ACTIONS(5435),
   },
-  [1737] = {
-    [sym_assignment] = STATE(6232),
-    [sym_operator] = STATE(6232),
-    [sym_defined_io_procedure] = STATE(6232),
-    [sym__generic_procedure] = STATE(6232),
-    [sym_identifier] = STATE(6232),
-    [sym__end_of_statement] = STATE(1629),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5740),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5742),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1497] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5742),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1738] = {
-    [sym_assignment] = STATE(6237),
-    [sym_operator] = STATE(6237),
-    [sym_defined_io_procedure] = STATE(6237),
-    [sym__generic_procedure] = STATE(6237),
-    [sym_identifier] = STATE(6237),
-    [sym__end_of_statement] = STATE(1630),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5744),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5746),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5746),
+  [1498] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [1739] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [aux_sym_preproc_else_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1499] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [1740] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1500] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1741] = {
-    [sym_assignment] = STATE(6117),
-    [sym_operator] = STATE(6117),
-    [sym_defined_io_procedure] = STATE(6117),
-    [sym__generic_procedure] = STATE(6117),
-    [sym_identifier] = STATE(6117),
-    [sym__end_of_statement] = STATE(1386),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5752),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5754),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5754),
-  },
-  [1742] = {
-    [sym_assignment] = STATE(6120),
-    [sym_operator] = STATE(6120),
-    [sym_defined_io_procedure] = STATE(6120),
-    [sym__generic_procedure] = STATE(6120),
-    [sym_identifier] = STATE(6120),
-    [sym__end_of_statement] = STATE(1387),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5756),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5758),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5758),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1743] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [aux_sym_preproc_else_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [1501] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5481),
+    [aux_sym_preproc_def_token1] = ACTIONS(5481),
+    [aux_sym_preproc_if_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5481),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5481),
+    [sym_preproc_directive] = ACTIONS(5481),
+    [anon_sym_LPAREN2] = ACTIONS(5481),
+    [anon_sym_PLUS] = ACTIONS(5483),
+    [anon_sym_DASH] = ACTIONS(5483),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5481),
+    [aux_sym_interface_statement_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5481),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5481),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5481),
+    [aux_sym_language_binding_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5481),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5481),
+    [aux_sym_contains_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token1] = ACTIONS(5481),
+    [aux_sym_use_statement_token2] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5481),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5481),
+    [aux_sym_save_statement_token1] = ACTIONS(5481),
+    [aux_sym_private_statement_token1] = ACTIONS(5481),
+    [aux_sym_public_statement_token1] = ACTIONS(5481),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5481),
+    [aux_sym_common_statement_token1] = ACTIONS(5481),
+    [aux_sym_import_statement_token1] = ACTIONS(5481),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5481),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5481),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5481),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5481),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5481),
+    [aux_sym_derived_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token1] = ACTIONS(5481),
+    [aux_sym_declared_type_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5481),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5481),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5481),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5481),
+    [anon_sym_SEMI] = ACTIONS(5483),
+    [aux_sym_stop_statement_token1] = ACTIONS(5481),
+    [aux_sym_stop_statement_token2] = ACTIONS(5481),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5481),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5481),
+    [aux_sym_include_statement_token1] = ACTIONS(5481),
+    [aux_sym_data_statement_token1] = ACTIONS(5481),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5481),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5481),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5481),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5481),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5481),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5481),
+    [aux_sym_block_construct_token1] = ACTIONS(5481),
+    [aux_sym_associate_statement_token1] = ACTIONS(5481),
+    [aux_sym_format_statement_token1] = ACTIONS(5481),
+    [aux_sym_print_statement_token1] = ACTIONS(5481),
+    [aux_sym_open_statement_token1] = ACTIONS(5481),
+    [aux_sym_close_statement_token1] = ACTIONS(5481),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5481),
+    [aux_sym_enum_statement_token1] = ACTIONS(5481),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5481),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5481),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5481),
+    [aux_sym_entry_statement_token1] = ACTIONS(5481),
+    [aux_sym_logical_expression_token5] = ACTIONS(5483),
+    [anon_sym_DOT] = ACTIONS(5481),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5483),
+    [anon_sym_LBRACK] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5483),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5483),
+    [aux_sym_null_literal_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5481),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5481),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5481),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5481),
+    [aux_sym_identifier_token1] = ACTIONS(5481),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5483),
+    [sym__float_literal] = ACTIONS(5483),
+    [sym__boz_literal] = ACTIONS(5483),
+    [sym__string_literal] = ACTIONS(5483),
+    [sym__string_literal_kind] = ACTIONS(5483),
   },
-  [1744] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [aux_sym_preproc_else_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1502] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1745] = {
-    [sym_assignment] = STATE(6092),
-    [sym_operator] = STATE(6092),
-    [sym_defined_io_procedure] = STATE(6092),
-    [sym__generic_procedure] = STATE(6092),
-    [sym_identifier] = STATE(6092),
-    [sym__end_of_statement] = STATE(1430),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5768),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5770),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1503] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5770),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1746] = {
-    [sym_assignment] = STATE(6093),
-    [sym_operator] = STATE(6093),
-    [sym_defined_io_procedure] = STATE(6093),
-    [sym__generic_procedure] = STATE(6093),
-    [sym_identifier] = STATE(6093),
-    [sym__end_of_statement] = STATE(1432),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5772),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5774),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5774),
+  [1504] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
   },
-  [1747] = {
-    [sym_assignment] = STATE(6188),
-    [sym_operator] = STATE(6188),
-    [sym_defined_io_procedure] = STATE(6188),
-    [sym__generic_procedure] = STATE(6188),
-    [sym_identifier] = STATE(6188),
-    [sym__end_of_statement] = STATE(1309),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5776),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5778),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1505] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5778),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1748] = {
-    [sym_assignment] = STATE(6191),
-    [sym_operator] = STATE(6191),
-    [sym_defined_io_procedure] = STATE(6191),
-    [sym__generic_procedure] = STATE(6191),
-    [sym_identifier] = STATE(6191),
-    [sym__end_of_statement] = STATE(1310),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5780),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5782),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1506] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5782),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1749] = {
-    [sym_assignment] = STATE(6233),
-    [sym_operator] = STATE(6233),
-    [sym_defined_io_procedure] = STATE(6233),
-    [sym__generic_procedure] = STATE(6233),
-    [sym_identifier] = STATE(6233),
-    [sym__end_of_statement] = STATE(1187),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5784),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5786),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1507] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1508] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5445),
+    [aux_sym_preproc_def_token1] = ACTIONS(5445),
+    [aux_sym_preproc_if_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5445),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5445),
+    [sym_preproc_directive] = ACTIONS(5445),
+    [anon_sym_LPAREN2] = ACTIONS(5445),
+    [anon_sym_PLUS] = ACTIONS(5447),
+    [anon_sym_DASH] = ACTIONS(5447),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5445),
+    [aux_sym_interface_statement_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5445),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5445),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5445),
+    [aux_sym_language_binding_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5445),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5445),
+    [aux_sym_contains_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token1] = ACTIONS(5445),
+    [aux_sym_use_statement_token2] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5445),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5445),
+    [aux_sym_save_statement_token1] = ACTIONS(5445),
+    [aux_sym_private_statement_token1] = ACTIONS(5445),
+    [aux_sym_public_statement_token1] = ACTIONS(5445),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5445),
+    [aux_sym_common_statement_token1] = ACTIONS(5445),
+    [aux_sym_import_statement_token1] = ACTIONS(5445),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5445),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5445),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5445),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5445),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5445),
+    [aux_sym_derived_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token1] = ACTIONS(5445),
+    [aux_sym_declared_type_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5445),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5445),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5445),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5445),
+    [anon_sym_SEMI] = ACTIONS(5447),
+    [aux_sym_stop_statement_token1] = ACTIONS(5445),
+    [aux_sym_stop_statement_token2] = ACTIONS(5445),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5445),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5445),
+    [aux_sym_include_statement_token1] = ACTIONS(5445),
+    [aux_sym_data_statement_token1] = ACTIONS(5445),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5445),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5445),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5445),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5445),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5445),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5445),
+    [aux_sym_block_construct_token1] = ACTIONS(5445),
+    [aux_sym_associate_statement_token1] = ACTIONS(5445),
+    [aux_sym_format_statement_token1] = ACTIONS(5445),
+    [aux_sym_print_statement_token1] = ACTIONS(5445),
+    [aux_sym_open_statement_token1] = ACTIONS(5445),
+    [aux_sym_close_statement_token1] = ACTIONS(5445),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5445),
+    [aux_sym_enum_statement_token1] = ACTIONS(5445),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5445),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5445),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5445),
+    [aux_sym_entry_statement_token1] = ACTIONS(5445),
+    [aux_sym_logical_expression_token5] = ACTIONS(5447),
+    [anon_sym_DOT] = ACTIONS(5445),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5447),
+    [anon_sym_LBRACK] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5447),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5447),
+    [aux_sym_null_literal_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5445),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5445),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5445),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5445),
+    [aux_sym_identifier_token1] = ACTIONS(5445),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5786),
+    [sym__integer_literal] = ACTIONS(5447),
+    [sym__float_literal] = ACTIONS(5447),
+    [sym__boz_literal] = ACTIONS(5447),
+    [sym__string_literal] = ACTIONS(5447),
+    [sym__string_literal_kind] = ACTIONS(5447),
   },
-  [1750] = {
-    [sym_assignment] = STATE(6234),
-    [sym_operator] = STATE(6234),
-    [sym_defined_io_procedure] = STATE(6234),
-    [sym__generic_procedure] = STATE(6234),
-    [sym_identifier] = STATE(6234),
-    [sym__end_of_statement] = STATE(1188),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5788),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5790),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1509] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5473),
+    [aux_sym_preproc_def_token1] = ACTIONS(5473),
+    [aux_sym_preproc_if_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5473),
+    [sym_preproc_directive] = ACTIONS(5473),
+    [anon_sym_LPAREN2] = ACTIONS(5473),
+    [anon_sym_PLUS] = ACTIONS(5475),
+    [anon_sym_DASH] = ACTIONS(5475),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5473),
+    [aux_sym_interface_statement_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5473),
+    [aux_sym_language_binding_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5473),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5473),
+    [aux_sym_contains_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token1] = ACTIONS(5473),
+    [aux_sym_use_statement_token2] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5473),
+    [aux_sym_save_statement_token1] = ACTIONS(5473),
+    [aux_sym_private_statement_token1] = ACTIONS(5473),
+    [aux_sym_public_statement_token1] = ACTIONS(5473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5473),
+    [aux_sym_common_statement_token1] = ACTIONS(5473),
+    [aux_sym_import_statement_token1] = ACTIONS(5473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5473),
+    [aux_sym_derived_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token1] = ACTIONS(5473),
+    [aux_sym_declared_type_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5473),
+    [anon_sym_SEMI] = ACTIONS(5475),
+    [aux_sym_stop_statement_token1] = ACTIONS(5473),
+    [aux_sym_stop_statement_token2] = ACTIONS(5473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5473),
+    [aux_sym_include_statement_token1] = ACTIONS(5473),
+    [aux_sym_data_statement_token1] = ACTIONS(5473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5473),
+    [aux_sym_block_construct_token1] = ACTIONS(5473),
+    [aux_sym_associate_statement_token1] = ACTIONS(5473),
+    [aux_sym_format_statement_token1] = ACTIONS(5473),
+    [aux_sym_print_statement_token1] = ACTIONS(5473),
+    [aux_sym_open_statement_token1] = ACTIONS(5473),
+    [aux_sym_close_statement_token1] = ACTIONS(5473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5473),
+    [aux_sym_enum_statement_token1] = ACTIONS(5473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5473),
+    [aux_sym_entry_statement_token1] = ACTIONS(5473),
+    [aux_sym_logical_expression_token5] = ACTIONS(5475),
+    [anon_sym_DOT] = ACTIONS(5473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5475),
+    [anon_sym_LBRACK] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5475),
+    [aux_sym_null_literal_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5473),
+    [aux_sym_identifier_token1] = ACTIONS(5473),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5790),
-  },
-  [1751] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5475),
+    [sym__float_literal] = ACTIONS(5475),
+    [sym__boz_literal] = ACTIONS(5475),
+    [sym__string_literal] = ACTIONS(5475),
+    [sym__string_literal_kind] = ACTIONS(5475),
   },
-  [1752] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [aux_sym_preproc_else_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [1510] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1753] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5796),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1511] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1754] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [aux_sym_preproc_else_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1512] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1755] = {
-    [sym_assignment] = STATE(6227),
-    [sym_operator] = STATE(6227),
-    [sym_defined_io_procedure] = STATE(6227),
-    [sym__generic_procedure] = STATE(6227),
-    [sym_identifier] = STATE(6227),
-    [sym__end_of_statement] = STATE(1609),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5802),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5804),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1513] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5804),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1756] = {
-    [sym_assignment] = STATE(6271),
-    [sym_operator] = STATE(6271),
-    [sym_defined_io_procedure] = STATE(6271),
-    [sym__generic_procedure] = STATE(6271),
-    [sym_identifier] = STATE(6271),
-    [sym__end_of_statement] = STATE(1610),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5806),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5808),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1514] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5808),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1757] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1515] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1758] = {
-    [sym_assignment] = STATE(6182),
-    [sym_operator] = STATE(6182),
-    [sym_defined_io_procedure] = STATE(6182),
-    [sym__generic_procedure] = STATE(6182),
-    [sym_identifier] = STATE(6182),
-    [sym__end_of_statement] = STATE(1482),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5810),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5812),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1516] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
+  },
+  [1517] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5812),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1759] = {
-    [sym_assignment] = STATE(6184),
-    [sym_operator] = STATE(6184),
-    [sym_defined_io_procedure] = STATE(6184),
-    [sym__generic_procedure] = STATE(6184),
-    [sym_identifier] = STATE(6184),
-    [sym__end_of_statement] = STATE(1483),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(5814),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(5816),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [1518] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(5816),
-  },
-  [1760] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [aux_sym_preproc_else_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [1761] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5822),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1762] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token2] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [aux_sym_preproc_else_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [1519] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [1763] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [aux_sym_preproc_else_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_contains_statement_token1] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1764] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5832),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1520] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1765] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token2] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [aux_sym_preproc_else_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [1521] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5485),
+    [aux_sym_preproc_def_token1] = ACTIONS(5485),
+    [aux_sym_preproc_if_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
+    [sym_preproc_directive] = ACTIONS(5485),
+    [anon_sym_LPAREN2] = ACTIONS(5485),
+    [anon_sym_PLUS] = ACTIONS(5487),
+    [anon_sym_DASH] = ACTIONS(5487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
+    [aux_sym_interface_statement_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
+    [aux_sym_language_binding_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
+    [aux_sym_contains_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token2] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
+    [aux_sym_save_statement_token1] = ACTIONS(5485),
+    [aux_sym_private_statement_token1] = ACTIONS(5485),
+    [aux_sym_public_statement_token1] = ACTIONS(5485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
+    [aux_sym_common_statement_token1] = ACTIONS(5485),
+    [aux_sym_import_statement_token1] = ACTIONS(5485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
+    [aux_sym_derived_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
+    [anon_sym_SEMI] = ACTIONS(5487),
+    [aux_sym_stop_statement_token1] = ACTIONS(5485),
+    [aux_sym_stop_statement_token2] = ACTIONS(5485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5485),
+    [aux_sym_include_statement_token1] = ACTIONS(5485),
+    [aux_sym_data_statement_token1] = ACTIONS(5485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5485),
+    [aux_sym_block_construct_token1] = ACTIONS(5485),
+    [aux_sym_associate_statement_token1] = ACTIONS(5485),
+    [aux_sym_format_statement_token1] = ACTIONS(5485),
+    [aux_sym_print_statement_token1] = ACTIONS(5485),
+    [aux_sym_open_statement_token1] = ACTIONS(5485),
+    [aux_sym_close_statement_token1] = ACTIONS(5485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
+    [aux_sym_enum_statement_token1] = ACTIONS(5485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5485),
+    [aux_sym_entry_statement_token1] = ACTIONS(5485),
+    [aux_sym_logical_expression_token5] = ACTIONS(5487),
+    [anon_sym_DOT] = ACTIONS(5485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5487),
+    [anon_sym_LBRACK] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5487),
+    [aux_sym_null_literal_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
+    [aux_sym_identifier_token1] = ACTIONS(5485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [1766] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [aux_sym_preproc_else_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [1767] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [aux_sym_preproc_else_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [1768] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [aux_sym_preproc_else_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [1769] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [aux_sym_preproc_else_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [1770] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [aux_sym_preproc_else_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+    [sym__integer_literal] = ACTIONS(5487),
+    [sym__float_literal] = ACTIONS(5487),
+    [sym__boz_literal] = ACTIONS(5487),
+    [sym__string_literal] = ACTIONS(5487),
+    [sym__string_literal_kind] = ACTIONS(5487),
   },
-  [1771] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token2] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [aux_sym_preproc_else_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [1522] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1772] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [aux_sym_preproc_else_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1523] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1773] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1524] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_LPAREN2] = ACTIONS(4321),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [anon_sym_SEMI] = ACTIONS(4323),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4321),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4321),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_associate_statement_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_print_statement_token1] = ACTIONS(4321),
+    [aux_sym_open_statement_token1] = ACTIONS(4321),
+    [aux_sym_close_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4321),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_logical_expression_token5] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4323),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4323),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+    [sym__float_literal] = ACTIONS(4323),
+    [sym__boz_literal] = ACTIONS(4323),
+    [sym__string_literal] = ACTIONS(4323),
+    [sym__string_literal_kind] = ACTIONS(4323),
+  },
+  [1525] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1774] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1526] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [1775] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1776] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [1527] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token3] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym_derived_type_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
-    [aux_sym_type_statement_token2] = ACTIONS(2079),
-    [aux_sym_type_statement_token3] = ACTIONS(2079),
-    [aux_sym__class_default_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
-  },
-  [1777] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym_derived_type_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5828),
-    [aux_sym_type_statement_token2] = ACTIONS(5828),
-    [aux_sym_type_statement_token3] = ACTIONS(5828),
-    [aux_sym__class_default_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1778] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1528] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym_derived_type_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
-    [aux_sym_type_statement_token2] = ACTIONS(4317),
-    [aux_sym_type_statement_token3] = ACTIONS(4317),
-    [aux_sym__class_default_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [1779] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1780] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1529] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym_derived_type_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_type_statement_token2] = ACTIONS(4349),
-    [aux_sym_type_statement_token3] = ACTIONS(4349),
-    [aux_sym__class_default_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1781] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym_derived_type_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_type_statement_token2] = ACTIONS(4499),
-    [aux_sym_type_statement_token3] = ACTIONS(4499),
-    [aux_sym__class_default_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1530] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5453),
+    [aux_sym_preproc_def_token1] = ACTIONS(5453),
+    [aux_sym_preproc_if_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5453),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5453),
+    [sym_preproc_directive] = ACTIONS(5453),
+    [anon_sym_LPAREN2] = ACTIONS(5453),
+    [anon_sym_PLUS] = ACTIONS(5455),
+    [anon_sym_DASH] = ACTIONS(5455),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5453),
+    [aux_sym_interface_statement_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5453),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5453),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5453),
+    [aux_sym_language_binding_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5453),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5453),
+    [aux_sym_contains_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token1] = ACTIONS(5453),
+    [aux_sym_use_statement_token2] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5453),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5453),
+    [aux_sym_save_statement_token1] = ACTIONS(5453),
+    [aux_sym_private_statement_token1] = ACTIONS(5453),
+    [aux_sym_public_statement_token1] = ACTIONS(5453),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5453),
+    [aux_sym_common_statement_token1] = ACTIONS(5453),
+    [aux_sym_import_statement_token1] = ACTIONS(5453),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5453),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5453),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5453),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5453),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5453),
+    [aux_sym_derived_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token1] = ACTIONS(5453),
+    [aux_sym_declared_type_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5453),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5453),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5453),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5453),
+    [anon_sym_SEMI] = ACTIONS(5455),
+    [aux_sym_stop_statement_token1] = ACTIONS(5453),
+    [aux_sym_stop_statement_token2] = ACTIONS(5453),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5453),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5453),
+    [aux_sym_include_statement_token1] = ACTIONS(5453),
+    [aux_sym_data_statement_token1] = ACTIONS(5453),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5453),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5453),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5453),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5453),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5453),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5453),
+    [aux_sym_block_construct_token1] = ACTIONS(5453),
+    [aux_sym_associate_statement_token1] = ACTIONS(5453),
+    [aux_sym_format_statement_token1] = ACTIONS(5453),
+    [aux_sym_print_statement_token1] = ACTIONS(5453),
+    [aux_sym_open_statement_token1] = ACTIONS(5453),
+    [aux_sym_close_statement_token1] = ACTIONS(5453),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5453),
+    [aux_sym_enum_statement_token1] = ACTIONS(5453),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5453),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5453),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5453),
+    [aux_sym_entry_statement_token1] = ACTIONS(5453),
+    [aux_sym_logical_expression_token5] = ACTIONS(5455),
+    [anon_sym_DOT] = ACTIONS(5453),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5455),
+    [anon_sym_LBRACK] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5455),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5455),
+    [aux_sym_null_literal_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5453),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5453),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5453),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5453),
+    [aux_sym_identifier_token1] = ACTIONS(5453),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5455),
+    [sym__float_literal] = ACTIONS(5455),
+    [sym__boz_literal] = ACTIONS(5455),
+    [sym__string_literal] = ACTIONS(5455),
+    [sym__string_literal_kind] = ACTIONS(5455),
   },
-  [1782] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1531] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym_derived_type_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
-    [aux_sym_type_statement_token2] = ACTIONS(4525),
-    [aux_sym_type_statement_token3] = ACTIONS(4525),
-    [aux_sym__class_default_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1783] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1532] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
   },
-  [1784] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym_derived_type_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_type_statement_token2] = ACTIONS(5002),
-    [aux_sym_type_statement_token3] = ACTIONS(5002),
-    [aux_sym__class_default_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1533] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1785] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [aux_sym_preproc_else_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [1534] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4291),
+    [aux_sym_preproc_def_token1] = ACTIONS(4291),
+    [aux_sym_preproc_if_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4291),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4291),
+    [sym_preproc_directive] = ACTIONS(4291),
+    [anon_sym_LPAREN2] = ACTIONS(4291),
+    [anon_sym_PLUS] = ACTIONS(4297),
+    [anon_sym_DASH] = ACTIONS(4297),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_contains_statement_token1] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4291),
+    [aux_sym_interface_statement_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4291),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4291),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
+    [aux_sym_language_binding_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4291),
+    [aux_sym_contains_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token1] = ACTIONS(4291),
+    [aux_sym_use_statement_token2] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4291),
+    [aux_sym_save_statement_token1] = ACTIONS(4291),
+    [aux_sym_private_statement_token1] = ACTIONS(4291),
+    [aux_sym_public_statement_token1] = ACTIONS(4291),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4291),
+    [aux_sym_common_statement_token1] = ACTIONS(4291),
+    [aux_sym_import_statement_token1] = ACTIONS(4291),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4291),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4291),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4291),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
+    [aux_sym_derived_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token1] = ACTIONS(4291),
+    [aux_sym_declared_type_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4291),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4291),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4291),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4291),
+    [anon_sym_SEMI] = ACTIONS(4297),
+    [aux_sym_stop_statement_token1] = ACTIONS(4291),
+    [aux_sym_stop_statement_token2] = ACTIONS(4291),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4291),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4291),
+    [aux_sym_include_statement_token1] = ACTIONS(4291),
+    [aux_sym_data_statement_token1] = ACTIONS(4291),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4291),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4291),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4291),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4291),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4291),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4291),
+    [aux_sym_block_construct_token1] = ACTIONS(4291),
+    [aux_sym_associate_statement_token1] = ACTIONS(4291),
+    [aux_sym_format_statement_token1] = ACTIONS(4291),
+    [aux_sym_print_statement_token1] = ACTIONS(4291),
+    [aux_sym_open_statement_token1] = ACTIONS(4291),
+    [aux_sym_close_statement_token1] = ACTIONS(4291),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4291),
+    [aux_sym_enum_statement_token1] = ACTIONS(4291),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4291),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4291),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4291),
+    [aux_sym_entry_statement_token1] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(4297),
+    [anon_sym_DOT] = ACTIONS(4291),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4297),
+    [anon_sym_LBRACK] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4297),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4297),
+    [aux_sym_null_literal_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4291),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4291),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4291),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4291),
+    [aux_sym_identifier_token1] = ACTIONS(4291),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4297),
+    [sym__float_literal] = ACTIONS(4297),
+    [sym__boz_literal] = ACTIONS(4297),
+    [sym__string_literal] = ACTIONS(4297),
+    [sym__string_literal_kind] = ACTIONS(4297),
   },
-  [1786] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym_derived_type_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_type_statement_token2] = ACTIONS(5026),
-    [aux_sym_type_statement_token3] = ACTIONS(5026),
-    [aux_sym__class_default_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1535] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
   },
-  [1787] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [aux_sym_preproc_else_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_contains_statement_token1] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+  [1536] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
   },
-  [1788] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [1537] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym_derived_type_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5068),
-    [aux_sym_type_statement_token2] = ACTIONS(5068),
-    [aux_sym_type_statement_token3] = ACTIONS(5068),
-    [aux_sym__class_default_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1789] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym_derived_type_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5100),
-    [aux_sym_type_statement_token2] = ACTIONS(5100),
-    [aux_sym_type_statement_token3] = ACTIONS(5100),
-    [aux_sym__class_default_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+  [1538] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [1790] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [1539] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym_derived_type_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
-    [aux_sym_type_statement_token2] = ACTIONS(5726),
-    [aux_sym_type_statement_token3] = ACTIONS(5726),
-    [aux_sym__class_default_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1791] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym_derived_type_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5748),
-    [aux_sym_type_statement_token2] = ACTIONS(5748),
-    [aux_sym_type_statement_token3] = ACTIONS(5748),
-    [aux_sym__class_default_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1540] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
   },
-  [1792] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym_derived_type_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5760),
-    [aux_sym_type_statement_token2] = ACTIONS(5760),
-    [aux_sym_type_statement_token3] = ACTIONS(5760),
-    [aux_sym__class_default_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [1541] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1793] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym_derived_type_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5792),
-    [aux_sym_type_statement_token2] = ACTIONS(5792),
-    [aux_sym_type_statement_token3] = ACTIONS(5792),
-    [aux_sym__class_default_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [1542] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
   },
-  [1794] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym_derived_type_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5798),
-    [aux_sym_type_statement_token2] = ACTIONS(5798),
-    [aux_sym_type_statement_token3] = ACTIONS(5798),
-    [aux_sym__class_default_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1543] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5437),
+    [aux_sym_preproc_def_token1] = ACTIONS(5437),
+    [aux_sym_preproc_if_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5437),
+    [sym_preproc_directive] = ACTIONS(5437),
+    [anon_sym_LPAREN2] = ACTIONS(5437),
+    [anon_sym_PLUS] = ACTIONS(5439),
+    [anon_sym_DASH] = ACTIONS(5439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5437),
+    [aux_sym_interface_statement_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5437),
+    [aux_sym_language_binding_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5437),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5437),
+    [aux_sym_contains_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token1] = ACTIONS(5437),
+    [aux_sym_use_statement_token2] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5437),
+    [aux_sym_save_statement_token1] = ACTIONS(5437),
+    [aux_sym_private_statement_token1] = ACTIONS(5437),
+    [aux_sym_public_statement_token1] = ACTIONS(5437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5437),
+    [aux_sym_common_statement_token1] = ACTIONS(5437),
+    [aux_sym_import_statement_token1] = ACTIONS(5437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5437),
+    [aux_sym_derived_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token1] = ACTIONS(5437),
+    [aux_sym_declared_type_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5437),
+    [anon_sym_SEMI] = ACTIONS(5439),
+    [aux_sym_stop_statement_token1] = ACTIONS(5437),
+    [aux_sym_stop_statement_token2] = ACTIONS(5437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5437),
+    [aux_sym_include_statement_token1] = ACTIONS(5437),
+    [aux_sym_data_statement_token1] = ACTIONS(5437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5437),
+    [aux_sym_block_construct_token1] = ACTIONS(5437),
+    [aux_sym_associate_statement_token1] = ACTIONS(5437),
+    [aux_sym_format_statement_token1] = ACTIONS(5437),
+    [aux_sym_print_statement_token1] = ACTIONS(5437),
+    [aux_sym_open_statement_token1] = ACTIONS(5437),
+    [aux_sym_close_statement_token1] = ACTIONS(5437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5437),
+    [aux_sym_enum_statement_token1] = ACTIONS(5437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5437),
+    [aux_sym_entry_statement_token1] = ACTIONS(5437),
+    [aux_sym_logical_expression_token5] = ACTIONS(5439),
+    [anon_sym_DOT] = ACTIONS(5437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5439),
+    [anon_sym_LBRACK] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5439),
+    [aux_sym_null_literal_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5437),
+    [aux_sym_identifier_token1] = ACTIONS(5437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5439),
+    [sym__float_literal] = ACTIONS(5439),
+    [sym__boz_literal] = ACTIONS(5439),
+    [sym__string_literal] = ACTIONS(5439),
+    [sym__string_literal_kind] = ACTIONS(5439),
   },
-  [1795] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym_derived_type_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5818),
-    [aux_sym_type_statement_token2] = ACTIONS(5818),
-    [aux_sym_type_statement_token3] = ACTIONS(5818),
-    [aux_sym__class_default_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1544] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1796] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [1545] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym_derived_type_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
-    [aux_sym_type_statement_token2] = ACTIONS(5824),
-    [aux_sym_type_statement_token3] = ACTIONS(5824),
-    [aux_sym__class_default_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1797] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym_derived_type_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5764),
-    [aux_sym_type_statement_token2] = ACTIONS(5764),
-    [aux_sym_type_statement_token3] = ACTIONS(5764),
-    [aux_sym__class_default_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1546] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
   },
-  [1798] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [1547] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
+  },
+  [1548] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
   },
-  [1799] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [aux_sym_preproc_else_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_contains_statement_token1] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [1549] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
+    [anon_sym_LPAREN2] = ACTIONS(4347),
+    [anon_sym_PLUS] = ACTIONS(4349),
+    [anon_sym_DASH] = ACTIONS(4349),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4347),
+    [aux_sym_interface_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
+    [aux_sym_language_binding_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
+    [aux_sym_common_statement_token1] = ACTIONS(4347),
+    [aux_sym_import_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
+    [aux_sym_derived_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
+    [anon_sym_SEMI] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_associate_statement_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_print_statement_token1] = ACTIONS(4347),
+    [aux_sym_open_statement_token1] = ACTIONS(4347),
+    [aux_sym_close_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_enum_statement_token1] = ACTIONS(4347),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_logical_expression_token5] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(4347),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4349),
+    [anon_sym_LBRACK] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4349),
+    [sym__float_literal] = ACTIONS(4349),
+    [sym__boz_literal] = ACTIONS(4349),
+    [sym__string_literal] = ACTIONS(4349),
+    [sym__string_literal_kind] = ACTIONS(4349),
   },
-  [1800] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(8452),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [1550] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_LPAREN2] = ACTIONS(4389),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [anon_sym_SEMI] = ACTIONS(4391),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4389),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4389),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_associate_statement_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_print_statement_token1] = ACTIONS(4389),
+    [aux_sym_open_statement_token1] = ACTIONS(4389),
+    [aux_sym_close_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4389),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_logical_expression_token5] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4391),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
+    [sym__float_literal] = ACTIONS(4391),
+    [sym__boz_literal] = ACTIONS(4391),
+    [sym__string_literal] = ACTIONS(4391),
+    [sym__string_literal_kind] = ACTIONS(4391),
+  },
+  [1551] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
   },
-  [1801] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [aux_sym_preproc_else_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5844),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1552] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [1802] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5846),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1553] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1554] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5477),
+    [aux_sym_preproc_def_token1] = ACTIONS(5477),
+    [aux_sym_preproc_if_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
+    [sym_preproc_directive] = ACTIONS(5477),
+    [anon_sym_LPAREN2] = ACTIONS(5477),
+    [anon_sym_PLUS] = ACTIONS(5479),
+    [anon_sym_DASH] = ACTIONS(5479),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5477),
+    [aux_sym_interface_statement_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
+    [aux_sym_language_binding_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
+    [aux_sym_contains_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token2] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
+    [aux_sym_save_statement_token1] = ACTIONS(5477),
+    [aux_sym_private_statement_token1] = ACTIONS(5477),
+    [aux_sym_public_statement_token1] = ACTIONS(5477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
+    [aux_sym_common_statement_token1] = ACTIONS(5477),
+    [aux_sym_import_statement_token1] = ACTIONS(5477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
+    [aux_sym_derived_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
+    [anon_sym_SEMI] = ACTIONS(5479),
+    [aux_sym_stop_statement_token1] = ACTIONS(5477),
+    [aux_sym_stop_statement_token2] = ACTIONS(5477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
+    [aux_sym_include_statement_token1] = ACTIONS(5477),
+    [aux_sym_data_statement_token1] = ACTIONS(5477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
+    [aux_sym_block_construct_token1] = ACTIONS(5477),
+    [aux_sym_associate_statement_token1] = ACTIONS(5477),
+    [aux_sym_format_statement_token1] = ACTIONS(5477),
+    [aux_sym_print_statement_token1] = ACTIONS(5477),
+    [aux_sym_open_statement_token1] = ACTIONS(5477),
+    [aux_sym_close_statement_token1] = ACTIONS(5477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
+    [aux_sym_enum_statement_token1] = ACTIONS(5477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
+    [aux_sym_entry_statement_token1] = ACTIONS(5477),
+    [aux_sym_logical_expression_token5] = ACTIONS(5479),
+    [anon_sym_DOT] = ACTIONS(5477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
+    [anon_sym_LBRACK] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
+    [aux_sym_null_literal_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
+    [aux_sym_identifier_token1] = ACTIONS(5477),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5479),
+    [sym__float_literal] = ACTIONS(5479),
+    [sym__boz_literal] = ACTIONS(5479),
+    [sym__string_literal] = ACTIONS(5479),
+    [sym__string_literal_kind] = ACTIONS(5479),
   },
-  [1803] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5848),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1555] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1804] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5850),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1556] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5477),
+    [aux_sym_preproc_def_token1] = ACTIONS(5477),
+    [aux_sym_preproc_if_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5477),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5477),
+    [sym_preproc_directive] = ACTIONS(5477),
+    [anon_sym_LPAREN2] = ACTIONS(5477),
+    [anon_sym_PLUS] = ACTIONS(5479),
+    [anon_sym_DASH] = ACTIONS(5479),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5477),
+    [aux_sym_interface_statement_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5477),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5477),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5477),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5477),
+    [aux_sym_language_binding_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5477),
+    [aux_sym_contains_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token1] = ACTIONS(5477),
+    [aux_sym_use_statement_token2] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5477),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5477),
+    [aux_sym_save_statement_token1] = ACTIONS(5477),
+    [aux_sym_private_statement_token1] = ACTIONS(5477),
+    [aux_sym_public_statement_token1] = ACTIONS(5477),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5477),
+    [aux_sym_common_statement_token1] = ACTIONS(5477),
+    [aux_sym_import_statement_token1] = ACTIONS(5477),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5477),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5477),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5477),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5477),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5477),
+    [aux_sym_derived_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token1] = ACTIONS(5477),
+    [aux_sym_declared_type_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5477),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5477),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5477),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5477),
+    [anon_sym_SEMI] = ACTIONS(5479),
+    [aux_sym_stop_statement_token1] = ACTIONS(5477),
+    [aux_sym_stop_statement_token2] = ACTIONS(5477),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5477),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5477),
+    [aux_sym_include_statement_token1] = ACTIONS(5477),
+    [aux_sym_data_statement_token1] = ACTIONS(5477),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5477),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5477),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5477),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5477),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5477),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5477),
+    [aux_sym_block_construct_token1] = ACTIONS(5477),
+    [aux_sym_associate_statement_token1] = ACTIONS(5477),
+    [aux_sym_format_statement_token1] = ACTIONS(5477),
+    [aux_sym_print_statement_token1] = ACTIONS(5477),
+    [aux_sym_open_statement_token1] = ACTIONS(5477),
+    [aux_sym_close_statement_token1] = ACTIONS(5477),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5477),
+    [aux_sym_enum_statement_token1] = ACTIONS(5477),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5477),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5477),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5477),
+    [aux_sym_entry_statement_token1] = ACTIONS(5477),
+    [aux_sym_logical_expression_token5] = ACTIONS(5479),
+    [anon_sym_DOT] = ACTIONS(5477),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5479),
+    [anon_sym_LBRACK] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5479),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5479),
+    [aux_sym_null_literal_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5477),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5477),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5477),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5477),
+    [aux_sym_identifier_token1] = ACTIONS(5477),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5479),
+    [sym__float_literal] = ACTIONS(5479),
+    [sym__boz_literal] = ACTIONS(5479),
+    [sym__string_literal] = ACTIONS(5479),
+    [sym__string_literal_kind] = ACTIONS(5479),
   },
-  [1805] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5852),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1557] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1806] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5854),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1807] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [aux_sym_preproc_else_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5856),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1558] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1808] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [aux_sym_preproc_else_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5858),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1559] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1809] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [aux_sym_preproc_else_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5860),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1560] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1810] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1561] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1562] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1811] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [aux_sym_preproc_else_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5862),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1563] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1812] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token2] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [aux_sym_preproc_else_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5864),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1564] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
+  },
+  [1565] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4509),
+    [aux_sym_preproc_def_token1] = ACTIONS(4509),
+    [aux_sym_preproc_if_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4509),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4509),
+    [sym_preproc_directive] = ACTIONS(4509),
+    [anon_sym_LPAREN2] = ACTIONS(4509),
+    [anon_sym_PLUS] = ACTIONS(4511),
+    [anon_sym_DASH] = ACTIONS(4511),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4509),
+    [aux_sym_interface_statement_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4509),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4509),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4509),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4509),
+    [aux_sym_language_binding_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4509),
+    [aux_sym_contains_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token1] = ACTIONS(4509),
+    [aux_sym_use_statement_token2] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4509),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4509),
+    [aux_sym_save_statement_token1] = ACTIONS(4509),
+    [aux_sym_private_statement_token1] = ACTIONS(4509),
+    [aux_sym_public_statement_token1] = ACTIONS(4509),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4509),
+    [aux_sym_common_statement_token1] = ACTIONS(4509),
+    [aux_sym_import_statement_token1] = ACTIONS(4509),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4509),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4509),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4509),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4509),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4509),
+    [aux_sym_derived_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token1] = ACTIONS(4509),
+    [aux_sym_declared_type_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4509),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4509),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4509),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4509),
+    [anon_sym_SEMI] = ACTIONS(4511),
+    [aux_sym_stop_statement_token1] = ACTIONS(4509),
+    [aux_sym_stop_statement_token2] = ACTIONS(4509),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4509),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4509),
+    [aux_sym_include_statement_token1] = ACTIONS(4509),
+    [aux_sym_data_statement_token1] = ACTIONS(4509),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4509),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4509),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4509),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4509),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4509),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4509),
+    [aux_sym_block_construct_token1] = ACTIONS(4509),
+    [aux_sym_associate_statement_token1] = ACTIONS(4509),
+    [aux_sym_format_statement_token1] = ACTIONS(4509),
+    [aux_sym_print_statement_token1] = ACTIONS(4509),
+    [aux_sym_open_statement_token1] = ACTIONS(4509),
+    [aux_sym_close_statement_token1] = ACTIONS(4509),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4509),
+    [aux_sym_enum_statement_token1] = ACTIONS(4509),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4509),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4509),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4509),
+    [aux_sym_entry_statement_token1] = ACTIONS(4509),
+    [aux_sym_logical_expression_token5] = ACTIONS(4511),
+    [anon_sym_DOT] = ACTIONS(4509),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4511),
+    [anon_sym_LBRACK] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4511),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4511),
+    [aux_sym_null_literal_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4509),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4509),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4509),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4509),
+    [aux_sym_identifier_token1] = ACTIONS(4509),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4511),
+    [sym__float_literal] = ACTIONS(4511),
+    [sym__boz_literal] = ACTIONS(4511),
+    [sym__string_literal] = ACTIONS(4511),
+    [sym__string_literal_kind] = ACTIONS(4511),
+  },
+  [1566] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5457),
+    [aux_sym_preproc_def_token1] = ACTIONS(5457),
+    [aux_sym_preproc_if_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
+    [sym_preproc_directive] = ACTIONS(5457),
+    [anon_sym_LPAREN2] = ACTIONS(5457),
+    [anon_sym_PLUS] = ACTIONS(5459),
+    [anon_sym_DASH] = ACTIONS(5459),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5457),
+    [aux_sym_interface_statement_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
+    [aux_sym_language_binding_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
+    [aux_sym_contains_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token2] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
+    [aux_sym_save_statement_token1] = ACTIONS(5457),
+    [aux_sym_private_statement_token1] = ACTIONS(5457),
+    [aux_sym_public_statement_token1] = ACTIONS(5457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
+    [aux_sym_common_statement_token1] = ACTIONS(5457),
+    [aux_sym_import_statement_token1] = ACTIONS(5457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
+    [aux_sym_derived_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
+    [anon_sym_SEMI] = ACTIONS(5459),
+    [aux_sym_stop_statement_token1] = ACTIONS(5457),
+    [aux_sym_stop_statement_token2] = ACTIONS(5457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
+    [aux_sym_include_statement_token1] = ACTIONS(5457),
+    [aux_sym_data_statement_token1] = ACTIONS(5457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
+    [aux_sym_block_construct_token1] = ACTIONS(5457),
+    [aux_sym_associate_statement_token1] = ACTIONS(5457),
+    [aux_sym_format_statement_token1] = ACTIONS(5457),
+    [aux_sym_print_statement_token1] = ACTIONS(5457),
+    [aux_sym_open_statement_token1] = ACTIONS(5457),
+    [aux_sym_close_statement_token1] = ACTIONS(5457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
+    [aux_sym_enum_statement_token1] = ACTIONS(5457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
+    [aux_sym_entry_statement_token1] = ACTIONS(5457),
+    [aux_sym_logical_expression_token5] = ACTIONS(5459),
+    [anon_sym_DOT] = ACTIONS(5457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
+    [anon_sym_LBRACK] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
+    [aux_sym_null_literal_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
+    [aux_sym_identifier_token1] = ACTIONS(5457),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5459),
+    [sym__float_literal] = ACTIONS(5459),
+    [sym__boz_literal] = ACTIONS(5459),
+    [sym__string_literal] = ACTIONS(5459),
+    [sym__string_literal_kind] = ACTIONS(5459),
   },
-  [1813] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [aux_sym_preproc_else_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5866),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1567] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [1814] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [aux_sym_preproc_else_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5868),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1568] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1569] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1815] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [aux_sym_preproc_else_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5870),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1570] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1816] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [aux_sym_preproc_else_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1571] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1817] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [aux_sym_preproc_else_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1572] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1573] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5465),
+    [aux_sym_preproc_def_token1] = ACTIONS(5465),
+    [aux_sym_preproc_if_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
+    [sym_preproc_directive] = ACTIONS(5465),
+    [anon_sym_LPAREN2] = ACTIONS(5465),
+    [anon_sym_PLUS] = ACTIONS(5467),
+    [anon_sym_DASH] = ACTIONS(5467),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5465),
+    [aux_sym_interface_statement_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
+    [aux_sym_language_binding_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
+    [aux_sym_contains_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token2] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
+    [aux_sym_save_statement_token1] = ACTIONS(5465),
+    [aux_sym_private_statement_token1] = ACTIONS(5465),
+    [aux_sym_public_statement_token1] = ACTIONS(5465),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
+    [aux_sym_common_statement_token1] = ACTIONS(5465),
+    [aux_sym_import_statement_token1] = ACTIONS(5465),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
+    [aux_sym_derived_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
+    [anon_sym_SEMI] = ACTIONS(5467),
+    [aux_sym_stop_statement_token1] = ACTIONS(5465),
+    [aux_sym_stop_statement_token2] = ACTIONS(5465),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
+    [aux_sym_include_statement_token1] = ACTIONS(5465),
+    [aux_sym_data_statement_token1] = ACTIONS(5465),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
+    [aux_sym_block_construct_token1] = ACTIONS(5465),
+    [aux_sym_associate_statement_token1] = ACTIONS(5465),
+    [aux_sym_format_statement_token1] = ACTIONS(5465),
+    [aux_sym_print_statement_token1] = ACTIONS(5465),
+    [aux_sym_open_statement_token1] = ACTIONS(5465),
+    [aux_sym_close_statement_token1] = ACTIONS(5465),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
+    [aux_sym_enum_statement_token1] = ACTIONS(5465),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
+    [aux_sym_entry_statement_token1] = ACTIONS(5465),
+    [aux_sym_logical_expression_token5] = ACTIONS(5467),
+    [anon_sym_DOT] = ACTIONS(5465),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
+    [anon_sym_LBRACK] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
+    [aux_sym_null_literal_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
+    [aux_sym_identifier_token1] = ACTIONS(5465),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5467),
+    [sym__float_literal] = ACTIONS(5467),
+    [sym__boz_literal] = ACTIONS(5467),
+    [sym__string_literal] = ACTIONS(5467),
+    [sym__string_literal_kind] = ACTIONS(5467),
   },
-  [1818] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [aux_sym_preproc_else_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1574] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5469),
+    [aux_sym_preproc_def_token1] = ACTIONS(5469),
+    [aux_sym_preproc_if_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
+    [sym_preproc_directive] = ACTIONS(5469),
+    [anon_sym_LPAREN2] = ACTIONS(5469),
+    [anon_sym_PLUS] = ACTIONS(5471),
+    [anon_sym_DASH] = ACTIONS(5471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
+    [aux_sym_interface_statement_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
+    [aux_sym_language_binding_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
+    [aux_sym_contains_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token2] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
+    [aux_sym_save_statement_token1] = ACTIONS(5469),
+    [aux_sym_private_statement_token1] = ACTIONS(5469),
+    [aux_sym_public_statement_token1] = ACTIONS(5469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
+    [aux_sym_common_statement_token1] = ACTIONS(5469),
+    [aux_sym_import_statement_token1] = ACTIONS(5469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
+    [aux_sym_derived_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
+    [anon_sym_SEMI] = ACTIONS(5471),
+    [aux_sym_stop_statement_token1] = ACTIONS(5469),
+    [aux_sym_stop_statement_token2] = ACTIONS(5469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
+    [aux_sym_include_statement_token1] = ACTIONS(5469),
+    [aux_sym_data_statement_token1] = ACTIONS(5469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
+    [aux_sym_block_construct_token1] = ACTIONS(5469),
+    [aux_sym_associate_statement_token1] = ACTIONS(5469),
+    [aux_sym_format_statement_token1] = ACTIONS(5469),
+    [aux_sym_print_statement_token1] = ACTIONS(5469),
+    [aux_sym_open_statement_token1] = ACTIONS(5469),
+    [aux_sym_close_statement_token1] = ACTIONS(5469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
+    [aux_sym_enum_statement_token1] = ACTIONS(5469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
+    [aux_sym_entry_statement_token1] = ACTIONS(5469),
+    [aux_sym_logical_expression_token5] = ACTIONS(5471),
+    [anon_sym_DOT] = ACTIONS(5469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
+    [anon_sym_LBRACK] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
+    [aux_sym_null_literal_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
+    [aux_sym_identifier_token1] = ACTIONS(5469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5471),
+    [sym__float_literal] = ACTIONS(5471),
+    [sym__boz_literal] = ACTIONS(5471),
+    [sym__string_literal] = ACTIONS(5471),
+    [sym__string_literal_kind] = ACTIONS(5471),
   },
-  [1819] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1575] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [1820] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [aux_sym_preproc_else_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+  [1576] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [1821] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [aux_sym_preproc_else_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [1577] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [1822] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [aux_sym_preproc_else_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1578] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1823] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1579] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4629),
-    [aux_sym_type_statement_token2] = ACTIONS(4629),
-    [aux_sym_type_statement_token3] = ACTIONS(4629),
-    [aux_sym__class_default_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1824] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1580] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4637),
-    [aux_sym_type_statement_token2] = ACTIONS(4637),
-    [aux_sym_type_statement_token3] = ACTIONS(4637),
-    [aux_sym__class_default_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1825] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1581] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4401),
-    [aux_sym_type_statement_token2] = ACTIONS(4401),
-    [aux_sym_type_statement_token3] = ACTIONS(4401),
-    [aux_sym__class_default_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1826] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4529),
-    [aux_sym_type_statement_token2] = ACTIONS(4529),
-    [aux_sym_type_statement_token3] = ACTIONS(4529),
-    [aux_sym__class_default_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1582] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1827] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1583] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4405),
-    [aux_sym_type_statement_token2] = ACTIONS(4405),
-    [aux_sym_type_statement_token3] = ACTIONS(4405),
-    [aux_sym__class_default_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1828] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1584] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4409),
-    [aux_sym_type_statement_token2] = ACTIONS(4409),
-    [aux_sym_type_statement_token3] = ACTIONS(4409),
-    [aux_sym__class_default_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1829] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1585] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4413),
-    [aux_sym_type_statement_token2] = ACTIONS(4413),
-    [aux_sym_type_statement_token3] = ACTIONS(4413),
-    [aux_sym__class_default_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1830] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(7786),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [1586] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1831] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(7838),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [1587] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5433),
+    [aux_sym_preproc_def_token1] = ACTIONS(5433),
+    [aux_sym_preproc_if_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
+    [sym_preproc_directive] = ACTIONS(5433),
+    [anon_sym_LPAREN2] = ACTIONS(5433),
+    [anon_sym_PLUS] = ACTIONS(5435),
+    [anon_sym_DASH] = ACTIONS(5435),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5433),
+    [aux_sym_interface_statement_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
+    [aux_sym_language_binding_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
+    [aux_sym_contains_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token2] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
+    [aux_sym_save_statement_token1] = ACTIONS(5433),
+    [aux_sym_private_statement_token1] = ACTIONS(5433),
+    [aux_sym_public_statement_token1] = ACTIONS(5433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
+    [aux_sym_common_statement_token1] = ACTIONS(5433),
+    [aux_sym_import_statement_token1] = ACTIONS(5433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
+    [aux_sym_derived_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
+    [anon_sym_SEMI] = ACTIONS(5435),
+    [aux_sym_stop_statement_token1] = ACTIONS(5433),
+    [aux_sym_stop_statement_token2] = ACTIONS(5433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
+    [aux_sym_include_statement_token1] = ACTIONS(5433),
+    [aux_sym_data_statement_token1] = ACTIONS(5433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
+    [aux_sym_block_construct_token1] = ACTIONS(5433),
+    [aux_sym_associate_statement_token1] = ACTIONS(5433),
+    [aux_sym_format_statement_token1] = ACTIONS(5433),
+    [aux_sym_print_statement_token1] = ACTIONS(5433),
+    [aux_sym_open_statement_token1] = ACTIONS(5433),
+    [aux_sym_close_statement_token1] = ACTIONS(5433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
+    [aux_sym_enum_statement_token1] = ACTIONS(5433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
+    [aux_sym_entry_statement_token1] = ACTIONS(5433),
+    [aux_sym_logical_expression_token5] = ACTIONS(5435),
+    [anon_sym_DOT] = ACTIONS(5433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
+    [anon_sym_LBRACK] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
+    [aux_sym_null_literal_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
+    [aux_sym_identifier_token1] = ACTIONS(5433),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5435),
+    [sym__float_literal] = ACTIONS(5435),
+    [sym__boz_literal] = ACTIONS(5435),
+    [sym__string_literal] = ACTIONS(5435),
+    [sym__string_literal_kind] = ACTIONS(5435),
   },
-  [1832] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(7788),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [1588] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [1833] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(7797),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [1589] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5032),
+    [aux_sym_preproc_def_token1] = ACTIONS(5032),
+    [aux_sym_preproc_if_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
+    [sym_preproc_directive] = ACTIONS(5032),
+    [anon_sym_LPAREN2] = ACTIONS(5032),
+    [anon_sym_PLUS] = ACTIONS(5036),
+    [anon_sym_DASH] = ACTIONS(5036),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5032),
+    [aux_sym_interface_statement_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
+    [aux_sym_language_binding_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
+    [aux_sym_contains_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token1] = ACTIONS(5032),
+    [aux_sym_use_statement_token2] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
+    [aux_sym_save_statement_token1] = ACTIONS(5032),
+    [aux_sym_private_statement_token1] = ACTIONS(5032),
+    [aux_sym_public_statement_token1] = ACTIONS(5032),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
+    [aux_sym_common_statement_token1] = ACTIONS(5032),
+    [aux_sym_import_statement_token1] = ACTIONS(5032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
+    [aux_sym_derived_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token1] = ACTIONS(5032),
+    [aux_sym_declared_type_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
+    [anon_sym_SEMI] = ACTIONS(5036),
+    [aux_sym_stop_statement_token1] = ACTIONS(5032),
+    [aux_sym_stop_statement_token2] = ACTIONS(5032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5032),
+    [aux_sym_include_statement_token1] = ACTIONS(5032),
+    [aux_sym_data_statement_token1] = ACTIONS(5032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5032),
+    [aux_sym_block_construct_token1] = ACTIONS(5032),
+    [aux_sym_associate_statement_token1] = ACTIONS(5032),
+    [aux_sym_format_statement_token1] = ACTIONS(5032),
+    [aux_sym_print_statement_token1] = ACTIONS(5032),
+    [aux_sym_open_statement_token1] = ACTIONS(5032),
+    [aux_sym_close_statement_token1] = ACTIONS(5032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
+    [aux_sym_enum_statement_token1] = ACTIONS(5032),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5032),
+    [aux_sym_entry_statement_token1] = ACTIONS(5032),
+    [aux_sym_logical_expression_token5] = ACTIONS(5036),
+    [anon_sym_DOT] = ACTIONS(5032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5036),
+    [anon_sym_LBRACK] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5036),
+    [aux_sym_null_literal_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
+    [aux_sym_identifier_token1] = ACTIONS(5032),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5036),
+    [sym__float_literal] = ACTIONS(5036),
+    [sym__boz_literal] = ACTIONS(5036),
+    [sym__string_literal] = ACTIONS(5036),
+    [sym__string_literal_kind] = ACTIONS(5036),
   },
-  [1834] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8661),
-    [sym_derived_type] = STATE(8661),
-    [sym__expression] = STATE(4409),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym__type_spec] = STATE(2930),
-    [sym__ac_value_list] = STATE(8450),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [1590] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5485),
+    [aux_sym_preproc_def_token1] = ACTIONS(5485),
+    [aux_sym_preproc_if_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
+    [sym_preproc_directive] = ACTIONS(5485),
+    [anon_sym_LPAREN2] = ACTIONS(5485),
+    [anon_sym_PLUS] = ACTIONS(5487),
+    [anon_sym_DASH] = ACTIONS(5487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5836),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5838),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym_derived_type_token1] = ACTIONS(83),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5485),
+    [aux_sym_interface_statement_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
+    [aux_sym_language_binding_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
+    [aux_sym_contains_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token1] = ACTIONS(5485),
+    [aux_sym_use_statement_token2] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
+    [aux_sym_save_statement_token1] = ACTIONS(5485),
+    [aux_sym_private_statement_token1] = ACTIONS(5485),
+    [aux_sym_public_statement_token1] = ACTIONS(5485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
+    [aux_sym_common_statement_token1] = ACTIONS(5485),
+    [aux_sym_import_statement_token1] = ACTIONS(5485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
+    [aux_sym_derived_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token1] = ACTIONS(5485),
+    [aux_sym_declared_type_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
+    [anon_sym_SEMI] = ACTIONS(5487),
+    [aux_sym_stop_statement_token1] = ACTIONS(5485),
+    [aux_sym_stop_statement_token2] = ACTIONS(5485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5485),
+    [aux_sym_include_statement_token1] = ACTIONS(5485),
+    [aux_sym_data_statement_token1] = ACTIONS(5485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5485),
+    [aux_sym_block_construct_token1] = ACTIONS(5485),
+    [aux_sym_associate_statement_token1] = ACTIONS(5485),
+    [aux_sym_format_statement_token1] = ACTIONS(5485),
+    [aux_sym_print_statement_token1] = ACTIONS(5485),
+    [aux_sym_open_statement_token1] = ACTIONS(5485),
+    [aux_sym_close_statement_token1] = ACTIONS(5485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
+    [aux_sym_enum_statement_token1] = ACTIONS(5485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5485),
+    [aux_sym_entry_statement_token1] = ACTIONS(5485),
+    [aux_sym_logical_expression_token5] = ACTIONS(5487),
+    [anon_sym_DOT] = ACTIONS(5485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5487),
+    [anon_sym_LBRACK] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5487),
+    [aux_sym_null_literal_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
+    [aux_sym_identifier_token1] = ACTIONS(5485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5487),
+    [sym__float_literal] = ACTIONS(5487),
+    [sym__boz_literal] = ACTIONS(5487),
+    [sym__string_literal] = ACTIONS(5487),
+    [sym__string_literal_kind] = ACTIONS(5487),
   },
-  [1835] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [aux_sym_preproc_else_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5872),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1591] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4277),
+    [aux_sym_preproc_def_token1] = ACTIONS(4277),
+    [aux_sym_preproc_if_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4277),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4277),
+    [sym_preproc_directive] = ACTIONS(4277),
+    [anon_sym_LPAREN2] = ACTIONS(4277),
+    [anon_sym_PLUS] = ACTIONS(4283),
+    [anon_sym_DASH] = ACTIONS(4283),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4277),
+    [aux_sym_interface_statement_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4277),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4277),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4277),
+    [aux_sym_language_binding_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4277),
+    [aux_sym_contains_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token1] = ACTIONS(4277),
+    [aux_sym_use_statement_token2] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4277),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4277),
+    [aux_sym_save_statement_token1] = ACTIONS(4277),
+    [aux_sym_private_statement_token1] = ACTIONS(4277),
+    [aux_sym_public_statement_token1] = ACTIONS(4277),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4277),
+    [aux_sym_common_statement_token1] = ACTIONS(4277),
+    [aux_sym_import_statement_token1] = ACTIONS(4277),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4277),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4277),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4277),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4277),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4277),
+    [aux_sym_derived_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token1] = ACTIONS(4277),
+    [aux_sym_declared_type_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4277),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4277),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4277),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4277),
+    [anon_sym_SEMI] = ACTIONS(4283),
+    [aux_sym_stop_statement_token1] = ACTIONS(4277),
+    [aux_sym_stop_statement_token2] = ACTIONS(4277),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4277),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4277),
+    [aux_sym_include_statement_token1] = ACTIONS(4277),
+    [aux_sym_data_statement_token1] = ACTIONS(4277),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4277),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4277),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4277),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4277),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4277),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4277),
+    [aux_sym_block_construct_token1] = ACTIONS(4277),
+    [aux_sym_associate_statement_token1] = ACTIONS(4277),
+    [aux_sym_format_statement_token1] = ACTIONS(4277),
+    [aux_sym_print_statement_token1] = ACTIONS(4277),
+    [aux_sym_open_statement_token1] = ACTIONS(4277),
+    [aux_sym_close_statement_token1] = ACTIONS(4277),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4277),
+    [aux_sym_enum_statement_token1] = ACTIONS(4277),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4277),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4277),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4277),
+    [aux_sym_entry_statement_token1] = ACTIONS(4277),
+    [aux_sym_logical_expression_token5] = ACTIONS(4283),
+    [anon_sym_DOT] = ACTIONS(4277),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4283),
+    [anon_sym_LBRACK] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4283),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4283),
+    [aux_sym_null_literal_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4277),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4277),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4277),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4277),
+    [aux_sym_identifier_token1] = ACTIONS(4277),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(4283),
+    [sym__float_literal] = ACTIONS(4283),
+    [sym__boz_literal] = ACTIONS(4283),
+    [sym__string_literal] = ACTIONS(4283),
+    [sym__string_literal_kind] = ACTIONS(4283),
   },
-  [1836] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [aux_sym_preproc_else_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1592] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [1837] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [aux_sym_preproc_else_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+  [1593] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
   },
-  [1838] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [aux_sym_preproc_else_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [1594] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
+  },
+  [1595] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1839] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [aux_sym_preproc_else_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [1596] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [1840] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [aux_sym_preproc_else_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1597] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1841] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [aux_sym_preproc_else_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+  [1598] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
   },
-  [1842] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [aux_sym_preproc_else_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1599] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
   },
-  [1843] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [aux_sym_preproc_else_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1600] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
+  },
+  [1601] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5433),
+    [aux_sym_preproc_def_token1] = ACTIONS(5433),
+    [aux_sym_preproc_if_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5433),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5433),
+    [sym_preproc_directive] = ACTIONS(5433),
+    [anon_sym_LPAREN2] = ACTIONS(5433),
+    [anon_sym_PLUS] = ACTIONS(5435),
+    [anon_sym_DASH] = ACTIONS(5435),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5433),
+    [aux_sym_interface_statement_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5433),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5433),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5433),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5433),
+    [aux_sym_language_binding_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5433),
+    [aux_sym_contains_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token1] = ACTIONS(5433),
+    [aux_sym_use_statement_token2] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5433),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5433),
+    [aux_sym_save_statement_token1] = ACTIONS(5433),
+    [aux_sym_private_statement_token1] = ACTIONS(5433),
+    [aux_sym_public_statement_token1] = ACTIONS(5433),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5433),
+    [aux_sym_common_statement_token1] = ACTIONS(5433),
+    [aux_sym_import_statement_token1] = ACTIONS(5433),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5433),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5433),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5433),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5433),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5433),
+    [aux_sym_derived_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token1] = ACTIONS(5433),
+    [aux_sym_declared_type_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5433),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5433),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5433),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5433),
+    [anon_sym_SEMI] = ACTIONS(5435),
+    [aux_sym_stop_statement_token1] = ACTIONS(5433),
+    [aux_sym_stop_statement_token2] = ACTIONS(5433),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5433),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5433),
+    [aux_sym_include_statement_token1] = ACTIONS(5433),
+    [aux_sym_data_statement_token1] = ACTIONS(5433),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5433),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5433),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5433),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5433),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5433),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5433),
+    [aux_sym_block_construct_token1] = ACTIONS(5433),
+    [aux_sym_associate_statement_token1] = ACTIONS(5433),
+    [aux_sym_format_statement_token1] = ACTIONS(5433),
+    [aux_sym_print_statement_token1] = ACTIONS(5433),
+    [aux_sym_open_statement_token1] = ACTIONS(5433),
+    [aux_sym_close_statement_token1] = ACTIONS(5433),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5433),
+    [aux_sym_enum_statement_token1] = ACTIONS(5433),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5433),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5433),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5433),
+    [aux_sym_entry_statement_token1] = ACTIONS(5433),
+    [aux_sym_logical_expression_token5] = ACTIONS(5435),
+    [anon_sym_DOT] = ACTIONS(5433),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5435),
+    [anon_sym_LBRACK] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5435),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5435),
+    [aux_sym_null_literal_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5433),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5433),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5433),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5433),
+    [aux_sym_identifier_token1] = ACTIONS(5433),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1844] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [aux_sym_preproc_else_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5435),
+    [sym__float_literal] = ACTIONS(5435),
+    [sym__boz_literal] = ACTIONS(5435),
+    [sym__string_literal] = ACTIONS(5435),
+    [sym__string_literal_kind] = ACTIONS(5435),
   },
-  [1845] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [aux_sym_preproc_else_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1602] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1846] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [aux_sym_preproc_else_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [1603] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5038),
+    [aux_sym_preproc_def_token1] = ACTIONS(5038),
+    [aux_sym_preproc_if_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
+    [sym_preproc_directive] = ACTIONS(5038),
+    [anon_sym_LPAREN2] = ACTIONS(5038),
+    [anon_sym_PLUS] = ACTIONS(5042),
+    [anon_sym_DASH] = ACTIONS(5042),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
+    [aux_sym_interface_statement_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
+    [aux_sym_language_binding_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5038),
+    [aux_sym_contains_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token1] = ACTIONS(5038),
+    [aux_sym_use_statement_token2] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
+    [aux_sym_save_statement_token1] = ACTIONS(5038),
+    [aux_sym_private_statement_token1] = ACTIONS(5038),
+    [aux_sym_public_statement_token1] = ACTIONS(5038),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
+    [aux_sym_common_statement_token1] = ACTIONS(5038),
+    [aux_sym_import_statement_token1] = ACTIONS(5038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
+    [aux_sym_derived_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token1] = ACTIONS(5038),
+    [aux_sym_declared_type_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
+    [anon_sym_SEMI] = ACTIONS(5042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5038),
+    [aux_sym_stop_statement_token2] = ACTIONS(5038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5038),
+    [aux_sym_include_statement_token1] = ACTIONS(5038),
+    [aux_sym_data_statement_token1] = ACTIONS(5038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5038),
+    [aux_sym_block_construct_token1] = ACTIONS(5038),
+    [aux_sym_associate_statement_token1] = ACTIONS(5038),
+    [aux_sym_format_statement_token1] = ACTIONS(5038),
+    [aux_sym_print_statement_token1] = ACTIONS(5038),
+    [aux_sym_open_statement_token1] = ACTIONS(5038),
+    [aux_sym_close_statement_token1] = ACTIONS(5038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
+    [aux_sym_enum_statement_token1] = ACTIONS(5038),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5038),
+    [aux_sym_entry_statement_token1] = ACTIONS(5038),
+    [aux_sym_logical_expression_token5] = ACTIONS(5042),
+    [anon_sym_DOT] = ACTIONS(5038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5042),
+    [anon_sym_LBRACK] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5042),
+    [aux_sym_null_literal_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
+    [aux_sym_identifier_token1] = ACTIONS(5038),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(5042),
+    [sym__float_literal] = ACTIONS(5042),
+    [sym__boz_literal] = ACTIONS(5042),
+    [sym__string_literal] = ACTIONS(5042),
+    [sym__string_literal_kind] = ACTIONS(5042),
   },
-  [1847] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [aux_sym_preproc_else_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [1604] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5008),
+    [aux_sym_preproc_def_token1] = ACTIONS(5008),
+    [aux_sym_preproc_if_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5008),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5008),
+    [sym_preproc_directive] = ACTIONS(5008),
+    [anon_sym_LPAREN2] = ACTIONS(5008),
+    [anon_sym_PLUS] = ACTIONS(5014),
+    [anon_sym_DASH] = ACTIONS(5014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5008),
+    [aux_sym_interface_statement_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5008),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5008),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5008),
+    [aux_sym_language_binding_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5008),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5008),
+    [aux_sym_contains_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token1] = ACTIONS(5008),
+    [aux_sym_use_statement_token2] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5008),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5008),
+    [aux_sym_save_statement_token1] = ACTIONS(5008),
+    [aux_sym_private_statement_token1] = ACTIONS(5008),
+    [aux_sym_public_statement_token1] = ACTIONS(5008),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5008),
+    [aux_sym_common_statement_token1] = ACTIONS(5008),
+    [aux_sym_import_statement_token1] = ACTIONS(5008),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5008),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5008),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5008),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5008),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5008),
+    [aux_sym_derived_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token1] = ACTIONS(5008),
+    [aux_sym_declared_type_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5008),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5008),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5008),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5008),
+    [anon_sym_SEMI] = ACTIONS(5014),
+    [aux_sym_stop_statement_token1] = ACTIONS(5008),
+    [aux_sym_stop_statement_token2] = ACTIONS(5008),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5008),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5008),
+    [aux_sym_include_statement_token1] = ACTIONS(5008),
+    [aux_sym_data_statement_token1] = ACTIONS(5008),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5008),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5008),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5008),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5008),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5008),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5008),
+    [aux_sym_block_construct_token1] = ACTIONS(5008),
+    [aux_sym_associate_statement_token1] = ACTIONS(5008),
+    [aux_sym_format_statement_token1] = ACTIONS(5008),
+    [aux_sym_print_statement_token1] = ACTIONS(5008),
+    [aux_sym_open_statement_token1] = ACTIONS(5008),
+    [aux_sym_close_statement_token1] = ACTIONS(5008),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5008),
+    [aux_sym_enum_statement_token1] = ACTIONS(5008),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5008),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5008),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5008),
+    [aux_sym_entry_statement_token1] = ACTIONS(5008),
+    [aux_sym_logical_expression_token5] = ACTIONS(5014),
+    [anon_sym_DOT] = ACTIONS(5008),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5014),
+    [anon_sym_LBRACK] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5014),
+    [aux_sym_null_literal_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5008),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5008),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5008),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5008),
+    [aux_sym_identifier_token1] = ACTIONS(5008),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5014),
+    [sym__float_literal] = ACTIONS(5014),
+    [sym__boz_literal] = ACTIONS(5014),
+    [sym__string_literal] = ACTIONS(5014),
+    [sym__string_literal_kind] = ACTIONS(5014),
+  },
+  [1605] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5457),
+    [aux_sym_preproc_def_token1] = ACTIONS(5457),
+    [aux_sym_preproc_if_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5457),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5457),
+    [sym_preproc_directive] = ACTIONS(5457),
+    [anon_sym_LPAREN2] = ACTIONS(5457),
+    [anon_sym_PLUS] = ACTIONS(5459),
+    [anon_sym_DASH] = ACTIONS(5459),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5457),
+    [aux_sym_interface_statement_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5457),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5457),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5457),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5457),
+    [aux_sym_language_binding_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5457),
+    [aux_sym_contains_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token1] = ACTIONS(5457),
+    [aux_sym_use_statement_token2] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5457),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5457),
+    [aux_sym_save_statement_token1] = ACTIONS(5457),
+    [aux_sym_private_statement_token1] = ACTIONS(5457),
+    [aux_sym_public_statement_token1] = ACTIONS(5457),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5457),
+    [aux_sym_common_statement_token1] = ACTIONS(5457),
+    [aux_sym_import_statement_token1] = ACTIONS(5457),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5457),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5457),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5457),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5457),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5457),
+    [aux_sym_derived_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token1] = ACTIONS(5457),
+    [aux_sym_declared_type_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5457),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5457),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5457),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5457),
+    [anon_sym_SEMI] = ACTIONS(5459),
+    [aux_sym_stop_statement_token1] = ACTIONS(5457),
+    [aux_sym_stop_statement_token2] = ACTIONS(5457),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5457),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5457),
+    [aux_sym_include_statement_token1] = ACTIONS(5457),
+    [aux_sym_data_statement_token1] = ACTIONS(5457),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5457),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5457),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5457),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5457),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5457),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5457),
+    [aux_sym_block_construct_token1] = ACTIONS(5457),
+    [aux_sym_associate_statement_token1] = ACTIONS(5457),
+    [aux_sym_format_statement_token1] = ACTIONS(5457),
+    [aux_sym_print_statement_token1] = ACTIONS(5457),
+    [aux_sym_open_statement_token1] = ACTIONS(5457),
+    [aux_sym_close_statement_token1] = ACTIONS(5457),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5457),
+    [aux_sym_enum_statement_token1] = ACTIONS(5457),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5457),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5457),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5457),
+    [aux_sym_entry_statement_token1] = ACTIONS(5457),
+    [aux_sym_logical_expression_token5] = ACTIONS(5459),
+    [anon_sym_DOT] = ACTIONS(5457),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5459),
+    [anon_sym_LBRACK] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5459),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5459),
+    [aux_sym_null_literal_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5457),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5457),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5457),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5457),
+    [aux_sym_identifier_token1] = ACTIONS(5457),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5459),
+    [sym__float_literal] = ACTIONS(5459),
+    [sym__boz_literal] = ACTIONS(5459),
+    [sym__string_literal] = ACTIONS(5459),
+    [sym__string_literal_kind] = ACTIONS(5459),
   },
-  [1848] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token2] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [aux_sym_preproc_else_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [1606] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
+  },
+  [1607] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [1849] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [aux_sym_preproc_else_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [1850] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [aux_sym_preproc_else_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [1851] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [aux_sym_preproc_else_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1852] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [aux_sym_preproc_else_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1608] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5461),
+    [aux_sym_preproc_def_token1] = ACTIONS(5461),
+    [aux_sym_preproc_if_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5461),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5461),
+    [sym_preproc_directive] = ACTIONS(5461),
+    [anon_sym_LPAREN2] = ACTIONS(5461),
+    [anon_sym_PLUS] = ACTIONS(5463),
+    [anon_sym_DASH] = ACTIONS(5463),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5461),
+    [aux_sym_interface_statement_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5461),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5461),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5461),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5461),
+    [aux_sym_language_binding_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5461),
+    [aux_sym_contains_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token1] = ACTIONS(5461),
+    [aux_sym_use_statement_token2] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5461),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5461),
+    [aux_sym_save_statement_token1] = ACTIONS(5461),
+    [aux_sym_private_statement_token1] = ACTIONS(5461),
+    [aux_sym_public_statement_token1] = ACTIONS(5461),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5461),
+    [aux_sym_common_statement_token1] = ACTIONS(5461),
+    [aux_sym_import_statement_token1] = ACTIONS(5461),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5461),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5461),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5461),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5461),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5461),
+    [aux_sym_derived_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token1] = ACTIONS(5461),
+    [aux_sym_declared_type_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5461),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5461),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5461),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5461),
+    [anon_sym_SEMI] = ACTIONS(5463),
+    [aux_sym_stop_statement_token1] = ACTIONS(5461),
+    [aux_sym_stop_statement_token2] = ACTIONS(5461),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5461),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5461),
+    [aux_sym_include_statement_token1] = ACTIONS(5461),
+    [aux_sym_data_statement_token1] = ACTIONS(5461),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5461),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5461),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5461),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5461),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5461),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5461),
+    [aux_sym_block_construct_token1] = ACTIONS(5461),
+    [aux_sym_associate_statement_token1] = ACTIONS(5461),
+    [aux_sym_format_statement_token1] = ACTIONS(5461),
+    [aux_sym_print_statement_token1] = ACTIONS(5461),
+    [aux_sym_open_statement_token1] = ACTIONS(5461),
+    [aux_sym_close_statement_token1] = ACTIONS(5461),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5461),
+    [aux_sym_enum_statement_token1] = ACTIONS(5461),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5461),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5461),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5461),
+    [aux_sym_entry_statement_token1] = ACTIONS(5461),
+    [aux_sym_logical_expression_token5] = ACTIONS(5463),
+    [anon_sym_DOT] = ACTIONS(5461),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5463),
+    [anon_sym_LBRACK] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5463),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5463),
+    [aux_sym_null_literal_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5461),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5461),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5461),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5461),
+    [aux_sym_identifier_token1] = ACTIONS(5461),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5463),
+    [sym__float_literal] = ACTIONS(5463),
+    [sym__boz_literal] = ACTIONS(5463),
+    [sym__string_literal] = ACTIONS(5463),
+    [sym__string_literal_kind] = ACTIONS(5463),
   },
-  [1853] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token2] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [aux_sym_preproc_else_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [1609] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5465),
+    [aux_sym_preproc_def_token1] = ACTIONS(5465),
+    [aux_sym_preproc_if_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5465),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5465),
+    [sym_preproc_directive] = ACTIONS(5465),
+    [anon_sym_LPAREN2] = ACTIONS(5465),
+    [anon_sym_PLUS] = ACTIONS(5467),
+    [anon_sym_DASH] = ACTIONS(5467),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5465),
+    [aux_sym_interface_statement_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5465),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5465),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5465),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5465),
+    [aux_sym_language_binding_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5465),
+    [aux_sym_contains_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token1] = ACTIONS(5465),
+    [aux_sym_use_statement_token2] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5465),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5465),
+    [aux_sym_save_statement_token1] = ACTIONS(5465),
+    [aux_sym_private_statement_token1] = ACTIONS(5465),
+    [aux_sym_public_statement_token1] = ACTIONS(5465),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5465),
+    [aux_sym_common_statement_token1] = ACTIONS(5465),
+    [aux_sym_import_statement_token1] = ACTIONS(5465),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5465),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5465),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5465),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5465),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5465),
+    [aux_sym_derived_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token1] = ACTIONS(5465),
+    [aux_sym_declared_type_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5465),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5465),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5465),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5465),
+    [anon_sym_SEMI] = ACTIONS(5467),
+    [aux_sym_stop_statement_token1] = ACTIONS(5465),
+    [aux_sym_stop_statement_token2] = ACTIONS(5465),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5465),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5465),
+    [aux_sym_include_statement_token1] = ACTIONS(5465),
+    [aux_sym_data_statement_token1] = ACTIONS(5465),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5465),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5465),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5465),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5465),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5465),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5465),
+    [aux_sym_block_construct_token1] = ACTIONS(5465),
+    [aux_sym_associate_statement_token1] = ACTIONS(5465),
+    [aux_sym_format_statement_token1] = ACTIONS(5465),
+    [aux_sym_print_statement_token1] = ACTIONS(5465),
+    [aux_sym_open_statement_token1] = ACTIONS(5465),
+    [aux_sym_close_statement_token1] = ACTIONS(5465),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5465),
+    [aux_sym_enum_statement_token1] = ACTIONS(5465),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5465),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5465),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5465),
+    [aux_sym_entry_statement_token1] = ACTIONS(5465),
+    [aux_sym_logical_expression_token5] = ACTIONS(5467),
+    [anon_sym_DOT] = ACTIONS(5465),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5467),
+    [anon_sym_LBRACK] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5467),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5467),
+    [aux_sym_null_literal_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5465),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5465),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5465),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5465),
+    [aux_sym_identifier_token1] = ACTIONS(5465),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+    [sym__integer_literal] = ACTIONS(5467),
+    [sym__float_literal] = ACTIONS(5467),
+    [sym__boz_literal] = ACTIONS(5467),
+    [sym__string_literal] = ACTIONS(5467),
+    [sym__string_literal_kind] = ACTIONS(5467),
   },
-  [1854] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [aux_sym_preproc_else_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1610] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5018),
+    [aux_sym_preproc_def_token1] = ACTIONS(5018),
+    [aux_sym_preproc_if_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5018),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5018),
+    [sym_preproc_directive] = ACTIONS(5018),
+    [anon_sym_LPAREN2] = ACTIONS(5018),
+    [anon_sym_PLUS] = ACTIONS(5024),
+    [anon_sym_DASH] = ACTIONS(5024),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5018),
+    [aux_sym_interface_statement_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5018),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5018),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5018),
+    [aux_sym_language_binding_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5018),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5018),
+    [aux_sym_contains_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token1] = ACTIONS(5018),
+    [aux_sym_use_statement_token2] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5018),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5018),
+    [aux_sym_save_statement_token1] = ACTIONS(5018),
+    [aux_sym_private_statement_token1] = ACTIONS(5018),
+    [aux_sym_public_statement_token1] = ACTIONS(5018),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5018),
+    [aux_sym_common_statement_token1] = ACTIONS(5018),
+    [aux_sym_import_statement_token1] = ACTIONS(5018),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5018),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5018),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5018),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5018),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5018),
+    [aux_sym_derived_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token1] = ACTIONS(5018),
+    [aux_sym_declared_type_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5018),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5018),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5018),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5018),
+    [anon_sym_SEMI] = ACTIONS(5024),
+    [aux_sym_stop_statement_token1] = ACTIONS(5018),
+    [aux_sym_stop_statement_token2] = ACTIONS(5018),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5018),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5018),
+    [aux_sym_include_statement_token1] = ACTIONS(5018),
+    [aux_sym_data_statement_token1] = ACTIONS(5018),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5018),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5018),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5018),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5018),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5018),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5018),
+    [aux_sym_block_construct_token1] = ACTIONS(5018),
+    [aux_sym_associate_statement_token1] = ACTIONS(5018),
+    [aux_sym_format_statement_token1] = ACTIONS(5018),
+    [aux_sym_print_statement_token1] = ACTIONS(5018),
+    [aux_sym_open_statement_token1] = ACTIONS(5018),
+    [aux_sym_close_statement_token1] = ACTIONS(5018),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5018),
+    [aux_sym_enum_statement_token1] = ACTIONS(5018),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5018),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5018),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5018),
+    [aux_sym_entry_statement_token1] = ACTIONS(5018),
+    [aux_sym_logical_expression_token5] = ACTIONS(5024),
+    [anon_sym_DOT] = ACTIONS(5018),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5024),
+    [anon_sym_LBRACK] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5024),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5024),
+    [aux_sym_null_literal_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5018),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5018),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5018),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5018),
+    [aux_sym_identifier_token1] = ACTIONS(5018),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5024),
+    [sym__float_literal] = ACTIONS(5024),
+    [sym__boz_literal] = ACTIONS(5024),
+    [sym__string_literal] = ACTIONS(5024),
+    [sym__string_literal_kind] = ACTIONS(5024),
   },
-  [1855] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [aux_sym_preproc_else_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1611] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
+  },
+  [1612] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5469),
+    [aux_sym_preproc_def_token1] = ACTIONS(5469),
+    [aux_sym_preproc_if_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5469),
+    [sym_preproc_directive] = ACTIONS(5469),
+    [anon_sym_LPAREN2] = ACTIONS(5469),
+    [anon_sym_PLUS] = ACTIONS(5471),
+    [anon_sym_DASH] = ACTIONS(5471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5469),
+    [aux_sym_interface_statement_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5469),
+    [aux_sym_language_binding_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5469),
+    [aux_sym_contains_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token1] = ACTIONS(5469),
+    [aux_sym_use_statement_token2] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5469),
+    [aux_sym_save_statement_token1] = ACTIONS(5469),
+    [aux_sym_private_statement_token1] = ACTIONS(5469),
+    [aux_sym_public_statement_token1] = ACTIONS(5469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5469),
+    [aux_sym_common_statement_token1] = ACTIONS(5469),
+    [aux_sym_import_statement_token1] = ACTIONS(5469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5469),
+    [aux_sym_derived_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token1] = ACTIONS(5469),
+    [aux_sym_declared_type_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5469),
+    [anon_sym_SEMI] = ACTIONS(5471),
+    [aux_sym_stop_statement_token1] = ACTIONS(5469),
+    [aux_sym_stop_statement_token2] = ACTIONS(5469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5469),
+    [aux_sym_include_statement_token1] = ACTIONS(5469),
+    [aux_sym_data_statement_token1] = ACTIONS(5469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5469),
+    [aux_sym_block_construct_token1] = ACTIONS(5469),
+    [aux_sym_associate_statement_token1] = ACTIONS(5469),
+    [aux_sym_format_statement_token1] = ACTIONS(5469),
+    [aux_sym_print_statement_token1] = ACTIONS(5469),
+    [aux_sym_open_statement_token1] = ACTIONS(5469),
+    [aux_sym_close_statement_token1] = ACTIONS(5469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5469),
+    [aux_sym_enum_statement_token1] = ACTIONS(5469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5469),
+    [aux_sym_entry_statement_token1] = ACTIONS(5469),
+    [aux_sym_logical_expression_token5] = ACTIONS(5471),
+    [anon_sym_DOT] = ACTIONS(5469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5471),
+    [anon_sym_LBRACK] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5471),
+    [aux_sym_null_literal_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5469),
+    [aux_sym_identifier_token1] = ACTIONS(5469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5471),
+    [sym__float_literal] = ACTIONS(5471),
+    [sym__boz_literal] = ACTIONS(5471),
+    [sym__string_literal] = ACTIONS(5471),
+    [sym__string_literal_kind] = ACTIONS(5471),
   },
-  [1856] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [aux_sym_preproc_else_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1613] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4421),
+    [aux_sym_preproc_def_token1] = ACTIONS(4421),
+    [aux_sym_preproc_if_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4421),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4421),
+    [sym_preproc_directive] = ACTIONS(4421),
+    [anon_sym_LPAREN2] = ACTIONS(4421),
+    [anon_sym_PLUS] = ACTIONS(4423),
+    [anon_sym_DASH] = ACTIONS(4423),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4421),
+    [aux_sym_interface_statement_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4421),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4421),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4421),
+    [aux_sym_language_binding_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4421),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4421),
+    [aux_sym_contains_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token1] = ACTIONS(4421),
+    [aux_sym_use_statement_token2] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4421),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4421),
+    [aux_sym_save_statement_token1] = ACTIONS(4421),
+    [aux_sym_private_statement_token1] = ACTIONS(4421),
+    [aux_sym_public_statement_token1] = ACTIONS(4421),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4421),
+    [aux_sym_common_statement_token1] = ACTIONS(4421),
+    [aux_sym_import_statement_token1] = ACTIONS(4421),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4421),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4421),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4421),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4421),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4421),
+    [aux_sym_derived_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token1] = ACTIONS(4421),
+    [aux_sym_declared_type_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4421),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4421),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4421),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4421),
+    [anon_sym_SEMI] = ACTIONS(4423),
+    [aux_sym_stop_statement_token1] = ACTIONS(4421),
+    [aux_sym_stop_statement_token2] = ACTIONS(4421),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4421),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4421),
+    [aux_sym_include_statement_token1] = ACTIONS(4421),
+    [aux_sym_data_statement_token1] = ACTIONS(4421),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4421),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4421),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4421),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4421),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4421),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4421),
+    [aux_sym_block_construct_token1] = ACTIONS(4421),
+    [aux_sym_associate_statement_token1] = ACTIONS(4421),
+    [aux_sym_format_statement_token1] = ACTIONS(4421),
+    [aux_sym_print_statement_token1] = ACTIONS(4421),
+    [aux_sym_open_statement_token1] = ACTIONS(4421),
+    [aux_sym_close_statement_token1] = ACTIONS(4421),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4421),
+    [aux_sym_enum_statement_token1] = ACTIONS(4421),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4421),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4421),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4421),
+    [aux_sym_entry_statement_token1] = ACTIONS(4421),
+    [aux_sym_logical_expression_token5] = ACTIONS(4423),
+    [anon_sym_DOT] = ACTIONS(4421),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4423),
+    [anon_sym_LBRACK] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4423),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4423),
+    [aux_sym_null_literal_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4421),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4421),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4421),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4421),
+    [aux_sym_identifier_token1] = ACTIONS(4421),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(4423),
+    [sym__float_literal] = ACTIONS(4423),
+    [sym__boz_literal] = ACTIONS(4423),
+    [sym__string_literal] = ACTIONS(4423),
+    [sym__string_literal_kind] = ACTIONS(4423),
   },
-  [1857] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [aux_sym_preproc_else_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1614] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
+  },
+  [1615] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1858] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1616] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1859] = {
+  [1617] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
+  },
+  [1618] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
+  },
+  [1619] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
+  },
+  [1620] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4405),
     [aux_sym_preproc_def_token1] = ACTIONS(4405),
     [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [aux_sym_preproc_else_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
     [sym_preproc_directive] = ACTIONS(4405),
     [anon_sym_LPAREN2] = ACTIONS(4405),
     [anon_sym_PLUS] = ACTIONS(4407),
     [anon_sym_DASH] = ACTIONS(4407),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
     [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
     [aux_sym_implicit_statement_token4] = ACTIONS(4405),
     [aux_sym_save_statement_token1] = ACTIONS(4405),
     [aux_sym_private_statement_token1] = ACTIONS(4405),
     [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
     [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
     [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
     [aux_sym_variable_attributes_token2] = ACTIONS(4405),
     [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
     [aux_sym_variable_attributes_token5] = ACTIONS(4405),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
     [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
     [aux_sym_type_qualifier_token1] = ACTIONS(4405),
     [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
     [anon_sym_SEMI] = ACTIONS(4407),
     [aux_sym_stop_statement_token1] = ACTIONS(4405),
     [aux_sym_stop_statement_token2] = ACTIONS(4405),
@@ -341713,6 +315331,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_open_statement_token1] = ACTIONS(4405),
     [aux_sym_close_statement_token1] = ACTIONS(4405),
     [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
     [aux_sym_file_position_statement_token1] = ACTIONS(4405),
     [aux_sym_file_position_statement_token2] = ACTIONS(4405),
     [aux_sym_file_position_statement_token3] = ACTIONS(4405),
@@ -341743,51 +315363,75 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4407),
     [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1860] = {
+  [1621] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4409),
     [aux_sym_preproc_def_token1] = ACTIONS(4409),
     [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [aux_sym_preproc_else_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
     [sym_preproc_directive] = ACTIONS(4409),
     [anon_sym_LPAREN2] = ACTIONS(4409),
     [anon_sym_PLUS] = ACTIONS(4411),
     [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
     [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
     [aux_sym_implicit_statement_token4] = ACTIONS(4409),
     [aux_sym_save_statement_token1] = ACTIONS(4409),
     [aux_sym_private_statement_token1] = ACTIONS(4409),
     [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
     [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
     [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
     [aux_sym_variable_attributes_token2] = ACTIONS(4409),
     [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
     [aux_sym_variable_attributes_token5] = ACTIONS(4409),
     [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
     [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
     [aux_sym_type_qualifier_token1] = ACTIONS(4409),
     [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
     [anon_sym_SEMI] = ACTIONS(4411),
     [aux_sym_stop_statement_token1] = ACTIONS(4409),
     [aux_sym_stop_statement_token2] = ACTIONS(4409),
@@ -341817,6 +315461,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_open_statement_token1] = ACTIONS(4409),
     [aux_sym_close_statement_token1] = ACTIONS(4409),
     [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
     [aux_sym_file_position_statement_token1] = ACTIONS(4409),
     [aux_sym_file_position_statement_token2] = ACTIONS(4409),
     [aux_sym_file_position_statement_token3] = ACTIONS(4409),
@@ -341847,5980 +315493,7068 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(4411),
     [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1861] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5874),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [1862] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5876),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5630),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [1863] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5878),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5594),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [1864] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5880),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_contains_statement_token1] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
-  },
-  [1865] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5882),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5556),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [1866] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5884),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [1867] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5886),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [1868] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5888),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5606),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [1869] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5890),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5618),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [1870] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5892),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_contains_statement_token1] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [1871] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(5894),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4301),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [1872] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5896),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [1873] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5898),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1622] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1874] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5900),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1623] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5600),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1875] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5902),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1624] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5612),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [1876] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5904),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5624),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [1877] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5906),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1878] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(5908),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4307),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1625] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
   },
-  [1879] = {
-    [sym__expression] = STATE(4372),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6916),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6916),
-    [sym_multiple_subscript] = STATE(6916),
-    [sym_multiple_subscript_triplet] = STATE(6916),
-    [sym_assumed_size] = STATE(6916),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5910),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1626] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5922),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1880] = {
-    [sym__expression] = STATE(4432),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6528),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6528),
-    [sym_multiple_subscript] = STATE(6528),
-    [sym_multiple_subscript_triplet] = STATE(6528),
-    [sym_assumed_size] = STATE(6528),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5924),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1627] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1628] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_LPAREN2] = ACTIONS(5074),
+    [anon_sym_PLUS] = ACTIONS(5076),
+    [anon_sym_DASH] = ACTIONS(5076),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [anon_sym_SEMI] = ACTIONS(5076),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5074),
+    [aux_sym_associate_statement_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_print_statement_token1] = ACTIONS(5074),
+    [aux_sym_open_statement_token1] = ACTIONS(5074),
+    [aux_sym_close_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_logical_expression_token5] = ACTIONS(5076),
+    [anon_sym_DOT] = ACTIONS(5074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5076),
+    [anon_sym_LBRACK] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5076),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5076),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+    [sym__float_literal] = ACTIONS(5076),
+    [sym__boz_literal] = ACTIONS(5076),
+    [sym__string_literal] = ACTIONS(5076),
+    [sym__string_literal_kind] = ACTIONS(5076),
+  },
+  [1629] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_LPAREN2] = ACTIONS(5044),
+    [anon_sym_PLUS] = ACTIONS(5046),
+    [anon_sym_DASH] = ACTIONS(5046),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [anon_sym_SEMI] = ACTIONS(5046),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5044),
+    [aux_sym_associate_statement_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_print_statement_token1] = ACTIONS(5044),
+    [aux_sym_open_statement_token1] = ACTIONS(5044),
+    [aux_sym_close_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_logical_expression_token5] = ACTIONS(5046),
+    [anon_sym_DOT] = ACTIONS(5044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5046),
+    [anon_sym_LBRACK] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5046),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5046),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+    [sym__float_literal] = ACTIONS(5046),
+    [sym__boz_literal] = ACTIONS(5046),
+    [sym__string_literal] = ACTIONS(5046),
+    [sym__string_literal_kind] = ACTIONS(5046),
+  },
+  [1630] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_LPAREN2] = ACTIONS(5100),
+    [anon_sym_PLUS] = ACTIONS(5102),
+    [anon_sym_DASH] = ACTIONS(5102),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5926),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [anon_sym_SEMI] = ACTIONS(5102),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5100),
+    [aux_sym_associate_statement_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_print_statement_token1] = ACTIONS(5100),
+    [aux_sym_open_statement_token1] = ACTIONS(5100),
+    [aux_sym_close_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_logical_expression_token5] = ACTIONS(5102),
+    [anon_sym_DOT] = ACTIONS(5100),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5102),
+    [anon_sym_LBRACK] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5102),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5102),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5102),
+    [sym__float_literal] = ACTIONS(5102),
+    [sym__boz_literal] = ACTIONS(5102),
+    [sym__string_literal] = ACTIONS(5102),
+    [sym__string_literal_kind] = ACTIONS(5102),
   },
-  [1881] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5928),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1631] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_LPAREN2] = ACTIONS(5104),
+    [anon_sym_PLUS] = ACTIONS(5106),
+    [anon_sym_DASH] = ACTIONS(5106),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [anon_sym_SEMI] = ACTIONS(5106),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5104),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5104),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5104),
+    [aux_sym_associate_statement_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_print_statement_token1] = ACTIONS(5104),
+    [aux_sym_open_statement_token1] = ACTIONS(5104),
+    [aux_sym_close_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5104),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5104),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_logical_expression_token5] = ACTIONS(5106),
+    [anon_sym_DOT] = ACTIONS(5104),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5106),
+    [anon_sym_LBRACK] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5106),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5106),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5106),
+    [sym__float_literal] = ACTIONS(5106),
+    [sym__boz_literal] = ACTIONS(5106),
+    [sym__string_literal] = ACTIONS(5106),
+    [sym__string_literal_kind] = ACTIONS(5106),
   },
-  [1882] = {
-    [sym__expression] = STATE(4389),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7216),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7216),
-    [sym_multiple_subscript] = STATE(7216),
-    [sym_multiple_subscript_triplet] = STATE(7216),
-    [sym_assumed_size] = STATE(7216),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5930),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1632] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_LPAREN2] = ACTIONS(5124),
+    [anon_sym_PLUS] = ACTIONS(5126),
+    [anon_sym_DASH] = ACTIONS(5126),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5932),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [anon_sym_SEMI] = ACTIONS(5126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5124),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5124),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5124),
+    [aux_sym_associate_statement_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_print_statement_token1] = ACTIONS(5124),
+    [aux_sym_open_statement_token1] = ACTIONS(5124),
+    [aux_sym_close_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5124),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5124),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_logical_expression_token5] = ACTIONS(5126),
+    [anon_sym_DOT] = ACTIONS(5124),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5126),
+    [anon_sym_LBRACK] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5126),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5126),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5126),
+    [sym__float_literal] = ACTIONS(5126),
+    [sym__boz_literal] = ACTIONS(5126),
+    [sym__string_literal] = ACTIONS(5126),
+    [sym__string_literal_kind] = ACTIONS(5126),
   },
-  [1883] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(5934),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1633] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_LPAREN2] = ACTIONS(5132),
+    [anon_sym_PLUS] = ACTIONS(5134),
+    [anon_sym_DASH] = ACTIONS(5134),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4349),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [anon_sym_SEMI] = ACTIONS(5134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5132),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5132),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5132),
+    [aux_sym_associate_statement_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_print_statement_token1] = ACTIONS(5132),
+    [aux_sym_open_statement_token1] = ACTIONS(5132),
+    [aux_sym_close_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5132),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5132),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_logical_expression_token5] = ACTIONS(5134),
+    [anon_sym_DOT] = ACTIONS(5132),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5134),
+    [anon_sym_LBRACK] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5134),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5134),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5134),
+    [sym__float_literal] = ACTIONS(5134),
+    [sym__boz_literal] = ACTIONS(5134),
+    [sym__string_literal] = ACTIONS(5134),
+    [sym__string_literal_kind] = ACTIONS(5134),
   },
-  [1884] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(5936),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4499),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1634] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_LPAREN2] = ACTIONS(5096),
+    [anon_sym_PLUS] = ACTIONS(5098),
+    [anon_sym_DASH] = ACTIONS(5098),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [anon_sym_SEMI] = ACTIONS(5098),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5096),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5096),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5096),
+    [aux_sym_associate_statement_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_print_statement_token1] = ACTIONS(5096),
+    [aux_sym_open_statement_token1] = ACTIONS(5096),
+    [aux_sym_close_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5096),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5096),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_logical_expression_token5] = ACTIONS(5098),
+    [anon_sym_DOT] = ACTIONS(5096),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5098),
+    [anon_sym_LBRACK] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5098),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5098),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+    [sym__float_literal] = ACTIONS(5098),
+    [sym__boz_literal] = ACTIONS(5098),
+    [sym__string_literal] = ACTIONS(5098),
+    [sym__string_literal_kind] = ACTIONS(5098),
   },
-  [1885] = {
-    [sym__expression] = STATE(4423),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7272),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7272),
-    [sym_multiple_subscript] = STATE(7272),
-    [sym_multiple_subscript_triplet] = STATE(7272),
-    [sym_assumed_size] = STATE(7272),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5938),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1635] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_LPAREN2] = ACTIONS(5112),
+    [anon_sym_PLUS] = ACTIONS(5114),
+    [anon_sym_DASH] = ACTIONS(5114),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5940),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [anon_sym_SEMI] = ACTIONS(5114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5112),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5112),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5112),
+    [aux_sym_associate_statement_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_print_statement_token1] = ACTIONS(5112),
+    [aux_sym_open_statement_token1] = ACTIONS(5112),
+    [aux_sym_close_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5112),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5112),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_logical_expression_token5] = ACTIONS(5114),
+    [anon_sym_DOT] = ACTIONS(5112),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5114),
+    [anon_sym_LBRACK] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5114),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5114),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5114),
+    [sym__float_literal] = ACTIONS(5114),
+    [sym__boz_literal] = ACTIONS(5114),
+    [sym__string_literal] = ACTIONS(5114),
+    [sym__string_literal_kind] = ACTIONS(5114),
   },
-  [1886] = {
-    [sym__expression] = STATE(4397),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6603),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6603),
-    [sym_multiple_subscript] = STATE(6603),
-    [sym_multiple_subscript_triplet] = STATE(6603),
-    [sym_assumed_size] = STATE(6603),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5942),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5944),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [1636] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_LPAREN2] = ACTIONS(5078),
+    [anon_sym_PLUS] = ACTIONS(5080),
+    [anon_sym_DASH] = ACTIONS(5080),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [anon_sym_SEMI] = ACTIONS(5080),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5078),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5078),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5078),
+    [aux_sym_associate_statement_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_print_statement_token1] = ACTIONS(5078),
+    [aux_sym_open_statement_token1] = ACTIONS(5078),
+    [aux_sym_close_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5078),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5078),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_logical_expression_token5] = ACTIONS(5080),
+    [anon_sym_DOT] = ACTIONS(5078),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5080),
+    [anon_sym_LBRACK] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5080),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5080),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+    [sym__float_literal] = ACTIONS(5080),
+    [sym__boz_literal] = ACTIONS(5080),
+    [sym__string_literal] = ACTIONS(5080),
+    [sym__string_literal_kind] = ACTIONS(5080),
   },
-  [1887] = {
-    [sym__expression] = STATE(4404),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7272),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7272),
-    [sym_multiple_subscript] = STATE(7272),
-    [sym_multiple_subscript_triplet] = STATE(7272),
-    [sym_assumed_size] = STATE(7272),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5938),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1637] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1638] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_LPAREN2] = ACTIONS(4473),
+    [anon_sym_PLUS] = ACTIONS(4475),
+    [anon_sym_DASH] = ACTIONS(4475),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5940),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [anon_sym_SEMI] = ACTIONS(4475),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4473),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4473),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4473),
+    [aux_sym_associate_statement_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_print_statement_token1] = ACTIONS(4473),
+    [aux_sym_open_statement_token1] = ACTIONS(4473),
+    [aux_sym_close_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4473),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4473),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_logical_expression_token5] = ACTIONS(4475),
+    [anon_sym_DOT] = ACTIONS(4473),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4475),
+    [anon_sym_LBRACK] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4475),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4475),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(4475),
+    [sym__float_literal] = ACTIONS(4475),
+    [sym__boz_literal] = ACTIONS(4475),
+    [sym__string_literal] = ACTIONS(4475),
+    [sym__string_literal_kind] = ACTIONS(4475),
   },
-  [1888] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(5946),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1639] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_LPAREN2] = ACTIONS(4485),
+    [anon_sym_PLUS] = ACTIONS(4487),
+    [anon_sym_DASH] = ACTIONS(4487),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4525),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [anon_sym_SEMI] = ACTIONS(4487),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4485),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4485),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4485),
+    [aux_sym_associate_statement_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_print_statement_token1] = ACTIONS(4485),
+    [aux_sym_open_statement_token1] = ACTIONS(4485),
+    [aux_sym_close_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4485),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4485),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_logical_expression_token5] = ACTIONS(4487),
+    [anon_sym_DOT] = ACTIONS(4485),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4487),
+    [anon_sym_LBRACK] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4487),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4487),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1889] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(5948),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5002),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(4487),
+    [sym__float_literal] = ACTIONS(4487),
+    [sym__boz_literal] = ACTIONS(4487),
+    [sym__string_literal] = ACTIONS(4487),
+    [sym__string_literal_kind] = ACTIONS(4487),
   },
-  [1890] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(5950),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5026),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1640] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_LPAREN2] = ACTIONS(5056),
+    [anon_sym_PLUS] = ACTIONS(5058),
+    [anon_sym_DASH] = ACTIONS(5058),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [anon_sym_SEMI] = ACTIONS(5058),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5056),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5056),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5056),
+    [aux_sym_associate_statement_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_print_statement_token1] = ACTIONS(5056),
+    [aux_sym_open_statement_token1] = ACTIONS(5056),
+    [aux_sym_close_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5056),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5056),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_logical_expression_token5] = ACTIONS(5058),
+    [anon_sym_DOT] = ACTIONS(5056),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5058),
+    [anon_sym_LBRACK] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5058),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5058),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+    [sym__float_literal] = ACTIONS(5058),
+    [sym__boz_literal] = ACTIONS(5058),
+    [sym__string_literal] = ACTIONS(5058),
+    [sym__string_literal_kind] = ACTIONS(5058),
   },
-  [1891] = {
-    [sym__expression] = STATE(4378),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6528),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6528),
-    [sym_multiple_subscript] = STATE(6528),
-    [sym_multiple_subscript_triplet] = STATE(6528),
-    [sym_assumed_size] = STATE(6528),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5924),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1641] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_LPAREN2] = ACTIONS(5116),
+    [anon_sym_PLUS] = ACTIONS(5118),
+    [anon_sym_DASH] = ACTIONS(5118),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5926),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [anon_sym_SEMI] = ACTIONS(5118),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5116),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5116),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5116),
+    [aux_sym_associate_statement_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_print_statement_token1] = ACTIONS(5116),
+    [aux_sym_open_statement_token1] = ACTIONS(5116),
+    [aux_sym_close_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5116),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5116),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_logical_expression_token5] = ACTIONS(5118),
+    [anon_sym_DOT] = ACTIONS(5116),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5118),
+    [anon_sym_LBRACK] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5118),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5118),
+    [sym__float_literal] = ACTIONS(5118),
+    [sym__boz_literal] = ACTIONS(5118),
+    [sym__string_literal] = ACTIONS(5118),
+    [sym__string_literal_kind] = ACTIONS(5118),
   },
-  [1892] = {
-    [sym__expression] = STATE(4392),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6603),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6603),
-    [sym_multiple_subscript] = STATE(6603),
-    [sym_multiple_subscript_triplet] = STATE(6603),
-    [sym_assumed_size] = STATE(6603),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5942),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1642] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
+    [anon_sym_LPAREN2] = ACTIONS(4437),
+    [anon_sym_PLUS] = ACTIONS(4439),
+    [anon_sym_DASH] = ACTIONS(4439),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5944),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [anon_sym_SEMI] = ACTIONS(4439),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4437),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4437),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4437),
+    [aux_sym_associate_statement_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_print_statement_token1] = ACTIONS(4437),
+    [aux_sym_open_statement_token1] = ACTIONS(4437),
+    [aux_sym_close_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4437),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4437),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_logical_expression_token5] = ACTIONS(4439),
+    [anon_sym_DOT] = ACTIONS(4437),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4439),
+    [anon_sym_LBRACK] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4439),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4439),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(4439),
+    [sym__float_literal] = ACTIONS(4439),
+    [sym__boz_literal] = ACTIONS(4439),
+    [sym__string_literal] = ACTIONS(4439),
+    [sym__string_literal_kind] = ACTIONS(4439),
   },
-  [1893] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5952),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1643] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_LPAREN2] = ACTIONS(5138),
+    [anon_sym_PLUS] = ACTIONS(5140),
+    [anon_sym_DASH] = ACTIONS(5140),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [anon_sym_SEMI] = ACTIONS(5140),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5138),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5138),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5138),
+    [aux_sym_associate_statement_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_print_statement_token1] = ACTIONS(5138),
+    [aux_sym_open_statement_token1] = ACTIONS(5138),
+    [aux_sym_close_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5138),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5138),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_logical_expression_token5] = ACTIONS(5140),
+    [anon_sym_DOT] = ACTIONS(5138),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5140),
+    [anon_sym_LBRACK] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5140),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5140),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5140),
+    [sym__float_literal] = ACTIONS(5140),
+    [sym__boz_literal] = ACTIONS(5140),
+    [sym__string_literal] = ACTIONS(5140),
+    [sym__string_literal_kind] = ACTIONS(5140),
   },
-  [1894] = {
-    [sym__expression] = STATE(4381),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6669),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6669),
-    [sym_multiple_subscript] = STATE(6669),
-    [sym_multiple_subscript_triplet] = STATE(6669),
-    [sym_assumed_size] = STATE(6669),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5954),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5956),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [1644] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_LPAREN2] = ACTIONS(5070),
+    [anon_sym_PLUS] = ACTIONS(5072),
+    [anon_sym_DASH] = ACTIONS(5072),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [anon_sym_SEMI] = ACTIONS(5072),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5070),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5070),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5070),
+    [aux_sym_associate_statement_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_print_statement_token1] = ACTIONS(5070),
+    [aux_sym_open_statement_token1] = ACTIONS(5070),
+    [aux_sym_close_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5070),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5070),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_logical_expression_token5] = ACTIONS(5072),
+    [anon_sym_DOT] = ACTIONS(5070),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5072),
+    [anon_sym_LBRACK] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5072),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5072),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+    [sym__float_literal] = ACTIONS(5072),
+    [sym__boz_literal] = ACTIONS(5072),
+    [sym__string_literal] = ACTIONS(5072),
+    [sym__string_literal_kind] = ACTIONS(5072),
   },
-  [1895] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5958),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1645] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_LPAREN2] = ACTIONS(5092),
+    [anon_sym_PLUS] = ACTIONS(5094),
+    [anon_sym_DASH] = ACTIONS(5094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [anon_sym_SEMI] = ACTIONS(5094),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5092),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5092),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5092),
+    [aux_sym_associate_statement_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_print_statement_token1] = ACTIONS(5092),
+    [aux_sym_open_statement_token1] = ACTIONS(5092),
+    [aux_sym_close_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5092),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5092),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_logical_expression_token5] = ACTIONS(5094),
+    [anon_sym_DOT] = ACTIONS(5092),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5094),
+    [anon_sym_LBRACK] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5094),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+    [sym__float_literal] = ACTIONS(5094),
+    [sym__boz_literal] = ACTIONS(5094),
+    [sym__string_literal] = ACTIONS(5094),
+    [sym__string_literal_kind] = ACTIONS(5094),
+  },
+  [1646] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_LPAREN2] = ACTIONS(4425),
+    [anon_sym_PLUS] = ACTIONS(4427),
+    [anon_sym_DASH] = ACTIONS(4427),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [anon_sym_SEMI] = ACTIONS(4427),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4425),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4425),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4425),
+    [aux_sym_associate_statement_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_print_statement_token1] = ACTIONS(4425),
+    [aux_sym_open_statement_token1] = ACTIONS(4425),
+    [aux_sym_close_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4425),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4425),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_logical_expression_token5] = ACTIONS(4427),
+    [anon_sym_DOT] = ACTIONS(4425),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4427),
+    [anon_sym_LBRACK] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4427),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4427),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(4427),
+    [sym__float_literal] = ACTIONS(4427),
+    [sym__boz_literal] = ACTIONS(4427),
+    [sym__string_literal] = ACTIONS(4427),
+    [sym__string_literal_kind] = ACTIONS(4427),
   },
-  [1896] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5960),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1647] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [1897] = {
-    [sym__expression] = STATE(4419),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7216),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7216),
-    [sym_multiple_subscript] = STATE(7216),
-    [sym_multiple_subscript_triplet] = STATE(7216),
-    [sym_assumed_size] = STATE(7216),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_RPAREN] = ACTIONS(5930),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [1648] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_LPAREN2] = ACTIONS(5120),
+    [anon_sym_PLUS] = ACTIONS(5122),
+    [anon_sym_DASH] = ACTIONS(5122),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(5932),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [anon_sym_SEMI] = ACTIONS(5122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5120),
+    [aux_sym_associate_statement_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_print_statement_token1] = ACTIONS(5120),
+    [aux_sym_open_statement_token1] = ACTIONS(5120),
+    [aux_sym_close_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_logical_expression_token5] = ACTIONS(5122),
+    [anon_sym_DOT] = ACTIONS(5120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5122),
+    [anon_sym_LBRACK] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5122),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5122),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5122),
+    [sym__float_literal] = ACTIONS(5122),
+    [sym__boz_literal] = ACTIONS(5122),
+    [sym__string_literal] = ACTIONS(5122),
+    [sym__string_literal_kind] = ACTIONS(5122),
   },
-  [1898] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5962),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1649] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_LPAREN2] = ACTIONS(4405),
+    [anon_sym_PLUS] = ACTIONS(4407),
+    [anon_sym_DASH] = ACTIONS(4407),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [anon_sym_SEMI] = ACTIONS(4407),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4405),
+    [aux_sym_associate_statement_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_print_statement_token1] = ACTIONS(4405),
+    [aux_sym_open_statement_token1] = ACTIONS(4405),
+    [aux_sym_close_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_logical_expression_token5] = ACTIONS(4407),
+    [anon_sym_DOT] = ACTIONS(4405),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
+    [anon_sym_LBRACK] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(4407),
+    [sym__float_literal] = ACTIONS(4407),
+    [sym__boz_literal] = ACTIONS(4407),
+    [sym__string_literal] = ACTIONS(4407),
+    [sym__string_literal_kind] = ACTIONS(4407),
   },
-  [1899] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token2] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5964),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1650] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_LPAREN2] = ACTIONS(4409),
+    [anon_sym_PLUS] = ACTIONS(4411),
+    [anon_sym_DASH] = ACTIONS(4411),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [anon_sym_SEMI] = ACTIONS(4411),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4409),
+    [aux_sym_associate_statement_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_print_statement_token1] = ACTIONS(4409),
+    [aux_sym_open_statement_token1] = ACTIONS(4409),
+    [aux_sym_close_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_logical_expression_token5] = ACTIONS(4411),
+    [anon_sym_DOT] = ACTIONS(4409),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
+    [anon_sym_LBRACK] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(4411),
+    [sym__float_literal] = ACTIONS(4411),
+    [sym__boz_literal] = ACTIONS(4411),
+    [sym__string_literal] = ACTIONS(4411),
+    [sym__string_literal_kind] = ACTIONS(4411),
   },
-  [1900] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5966),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1651] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [1901] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(5968),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1652] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_LPAREN2] = ACTIONS(5052),
+    [anon_sym_PLUS] = ACTIONS(5054),
+    [anon_sym_DASH] = ACTIONS(5054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [anon_sym_SEMI] = ACTIONS(5054),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5052),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5052),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5052),
+    [aux_sym_associate_statement_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_print_statement_token1] = ACTIONS(5052),
+    [aux_sym_open_statement_token1] = ACTIONS(5052),
+    [aux_sym_close_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5052),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5052),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_logical_expression_token5] = ACTIONS(5054),
+    [anon_sym_DOT] = ACTIONS(5052),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5054),
+    [anon_sym_LBRACK] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5054),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+    [sym__float_literal] = ACTIONS(5054),
+    [sym__boz_literal] = ACTIONS(5054),
+    [sym__string_literal] = ACTIONS(5054),
+    [sym__string_literal_kind] = ACTIONS(5054),
+  },
+  [1653] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_LPAREN2] = ACTIONS(5128),
+    [anon_sym_PLUS] = ACTIONS(5130),
+    [anon_sym_DASH] = ACTIONS(5130),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [anon_sym_SEMI] = ACTIONS(5130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5128),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5128),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5128),
+    [aux_sym_associate_statement_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_print_statement_token1] = ACTIONS(5128),
+    [aux_sym_open_statement_token1] = ACTIONS(5128),
+    [aux_sym_close_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5128),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5128),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_logical_expression_token5] = ACTIONS(5130),
+    [anon_sym_DOT] = ACTIONS(5128),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5130),
+    [anon_sym_LBRACK] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5130),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5130),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5130),
+    [sym__float_literal] = ACTIONS(5130),
+    [sym__boz_literal] = ACTIONS(5130),
+    [sym__string_literal] = ACTIONS(5130),
+    [sym__string_literal_kind] = ACTIONS(5130),
   },
-  [1902] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(5970),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1654] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_LPAREN2] = ACTIONS(5108),
+    [anon_sym_PLUS] = ACTIONS(5110),
+    [anon_sym_DASH] = ACTIONS(5110),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4317),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [anon_sym_SEMI] = ACTIONS(5110),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5108),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5108),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5108),
+    [aux_sym_associate_statement_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_print_statement_token1] = ACTIONS(5108),
+    [aux_sym_open_statement_token1] = ACTIONS(5108),
+    [aux_sym_close_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5108),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5108),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_logical_expression_token5] = ACTIONS(5110),
+    [anon_sym_DOT] = ACTIONS(5108),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5110),
+    [anon_sym_LBRACK] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5110),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5110),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5110),
+    [sym__float_literal] = ACTIONS(5110),
+    [sym__boz_literal] = ACTIONS(5110),
+    [sym__string_literal] = ACTIONS(5110),
+    [sym__string_literal_kind] = ACTIONS(5110),
   },
-  [1903] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5972),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1655] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_LPAREN2] = ACTIONS(5088),
+    [anon_sym_PLUS] = ACTIONS(5090),
+    [anon_sym_DASH] = ACTIONS(5090),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [anon_sym_SEMI] = ACTIONS(5090),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5088),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5088),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5088),
+    [aux_sym_associate_statement_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_print_statement_token1] = ACTIONS(5088),
+    [aux_sym_open_statement_token1] = ACTIONS(5088),
+    [aux_sym_close_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5088),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5088),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_logical_expression_token5] = ACTIONS(5090),
+    [anon_sym_DOT] = ACTIONS(5088),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5090),
+    [anon_sym_LBRACK] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5090),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5090),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+    [sym__float_literal] = ACTIONS(5090),
+    [sym__boz_literal] = ACTIONS(5090),
+    [sym__string_literal] = ACTIONS(5090),
+    [sym__string_literal_kind] = ACTIONS(5090),
+  },
+  [1656] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1657] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [1658] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1904] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5748),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1659] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_LPAREN2] = ACTIONS(5048),
+    [anon_sym_PLUS] = ACTIONS(5050),
+    [anon_sym_DASH] = ACTIONS(5050),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [anon_sym_SEMI] = ACTIONS(5050),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5048),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5048),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5048),
+    [aux_sym_associate_statement_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_print_statement_token1] = ACTIONS(5048),
+    [aux_sym_open_statement_token1] = ACTIONS(5048),
+    [aux_sym_close_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5048),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5048),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_logical_expression_token5] = ACTIONS(5050),
+    [anon_sym_DOT] = ACTIONS(5048),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5050),
+    [anon_sym_LBRACK] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5050),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5050),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+    [sym__float_literal] = ACTIONS(5050),
+    [sym__boz_literal] = ACTIONS(5050),
+    [sym__string_literal] = ACTIONS(5050),
+    [sym__string_literal_kind] = ACTIONS(5050),
   },
-  [1905] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(5974),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1660] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_LPAREN2] = ACTIONS(5084),
+    [anon_sym_PLUS] = ACTIONS(5086),
+    [anon_sym_DASH] = ACTIONS(5086),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [anon_sym_SEMI] = ACTIONS(5086),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5084),
+    [aux_sym_associate_statement_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_print_statement_token1] = ACTIONS(5084),
+    [aux_sym_open_statement_token1] = ACTIONS(5084),
+    [aux_sym_close_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_logical_expression_token5] = ACTIONS(5086),
+    [anon_sym_DOT] = ACTIONS(5084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5086),
+    [anon_sym_LBRACK] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5086),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5086),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+    [sym__float_literal] = ACTIONS(5086),
+    [sym__boz_literal] = ACTIONS(5086),
+    [sym__string_literal] = ACTIONS(5086),
+    [sym__string_literal_kind] = ACTIONS(5086),
   },
-  [1906] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5976),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+  [1661] = {
+    [sym_statement_label] = STATE(7219),
+    [sym_statement_label_reference] = STATE(7220),
+    [sym__io_arguments] = STATE(2815),
+    [sym_format_identifier] = STATE(7226),
+    [sym__io_expressions] = STATE(7220),
+    [sym__expression] = STATE(4689),
+    [sym_parenthesized_expression] = STATE(4792),
+    [sym_derived_type_member_expression] = STATE(4792),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(4792),
+    [sym_math_expression] = STATE(4792),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4792),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(4792),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4792),
+    [anon_sym_LPAREN2] = ACTIONS(5489),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(5491),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(5503),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5505),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [1907] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5978),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1662] = {
+    [sym__kind] = STATE(3757),
+    [anon_sym_LPAREN2] = ACTIONS(5511),
+    [anon_sym_PLUS] = ACTIONS(5513),
+    [anon_sym_DASH] = ACTIONS(5513),
+    [anon_sym_STAR] = ACTIONS(5515),
+    [anon_sym_SLASH] = ACTIONS(5515),
+    [anon_sym_PERCENT] = ACTIONS(5517),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [anon_sym_EQ_EQ] = ACTIONS(5517),
+    [anon_sym_GT] = ACTIONS(5515),
+    [anon_sym_GT_EQ] = ACTIONS(5517),
+    [anon_sym_LT_EQ] = ACTIONS(5517),
+    [anon_sym_LT] = ACTIONS(5515),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
+    [anon_sym_EQ] = ACTIONS(5515),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
+    [aux_sym_use_statement_token2] = ACTIONS(5511),
+    [anon_sym_EQ_GT] = ACTIONS(5517),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
+    [aux_sym_save_statement_token1] = ACTIONS(5511),
+    [aux_sym_private_statement_token1] = ACTIONS(5511),
+    [aux_sym_public_statement_token1] = ACTIONS(5511),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym_stop_statement_token1] = ACTIONS(5511),
+    [aux_sym_stop_statement_token2] = ACTIONS(5511),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
+    [aux_sym_include_statement_token1] = ACTIONS(5511),
+    [aux_sym_data_statement_token1] = ACTIONS(5511),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
+    [aux_sym_block_construct_token1] = ACTIONS(5511),
+    [aux_sym_associate_statement_token1] = ACTIONS(5511),
+    [aux_sym_format_statement_token1] = ACTIONS(5511),
+    [aux_sym_print_statement_token1] = ACTIONS(5511),
+    [aux_sym_open_statement_token1] = ACTIONS(5511),
+    [aux_sym_close_statement_token1] = ACTIONS(5511),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
+    [aux_sym_entry_statement_token1] = ACTIONS(5511),
+    [aux_sym_logical_expression_token1] = ACTIONS(5517),
+    [aux_sym_logical_expression_token2] = ACTIONS(5517),
+    [aux_sym_logical_expression_token3] = ACTIONS(5517),
+    [aux_sym_logical_expression_token4] = ACTIONS(5517),
+    [aux_sym_logical_expression_token5] = ACTIONS(5513),
+    [aux_sym_relational_expression_token1] = ACTIONS(5517),
+    [aux_sym_relational_expression_token2] = ACTIONS(5517),
+    [aux_sym_relational_expression_token3] = ACTIONS(5517),
+    [aux_sym_relational_expression_token4] = ACTIONS(5517),
+    [aux_sym_relational_expression_token5] = ACTIONS(5517),
+    [anon_sym_SLASH_EQ] = ACTIONS(5517),
+    [aux_sym_relational_expression_token6] = ACTIONS(5517),
+    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
+    [anon_sym_STAR_STAR] = ACTIONS(5517),
+    [anon_sym_DOT] = ACTIONS(5511),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
+    [anon_sym_LBRACK] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
+    [anon_sym__] = ACTIONS(5519),
+    [aux_sym_null_literal_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
+    [anon_sym_QMARK] = ACTIONS(5517),
+    [aux_sym_identifier_token1] = ACTIONS(5511),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5513),
+    [sym__float_literal] = ACTIONS(5513),
+    [sym__boz_literal] = ACTIONS(5513),
+    [sym__string_literal] = ACTIONS(5513),
+    [sym__string_literal_kind] = ACTIONS(5513),
   },
-  [1908] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5980),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1663] = {
+    [sym__expression] = STATE(4488),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_COMMA] = ACTIONS(5521),
+    [anon_sym_LPAREN2] = ACTIONS(5523),
+    [anon_sym_PLUS] = ACTIONS(5526),
+    [anon_sym_DASH] = ACTIONS(5526),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5529),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(5533),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(5538),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(5529),
   },
-  [1909] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5982),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1664] = {
+    [sym__kind] = STATE(3757),
+    [anon_sym_LPAREN2] = ACTIONS(5511),
+    [anon_sym_PLUS] = ACTIONS(5513),
+    [anon_sym_DASH] = ACTIONS(5513),
+    [anon_sym_STAR] = ACTIONS(5515),
+    [anon_sym_SLASH] = ACTIONS(5515),
+    [anon_sym_PERCENT] = ACTIONS(5517),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [anon_sym_EQ_EQ] = ACTIONS(5517),
+    [anon_sym_GT] = ACTIONS(5515),
+    [anon_sym_GT_EQ] = ACTIONS(5517),
+    [anon_sym_LT_EQ] = ACTIONS(5517),
+    [anon_sym_LT] = ACTIONS(5515),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
+    [anon_sym_EQ] = ACTIONS(5515),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
+    [aux_sym_use_statement_token2] = ACTIONS(5511),
+    [anon_sym_EQ_GT] = ACTIONS(5517),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5511),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
+    [aux_sym_save_statement_token1] = ACTIONS(5511),
+    [aux_sym_private_statement_token1] = ACTIONS(5511),
+    [aux_sym_public_statement_token1] = ACTIONS(5511),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym_stop_statement_token1] = ACTIONS(5511),
+    [aux_sym_stop_statement_token2] = ACTIONS(5511),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
+    [aux_sym_include_statement_token1] = ACTIONS(5511),
+    [aux_sym_data_statement_token1] = ACTIONS(5511),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
+    [aux_sym_block_construct_token1] = ACTIONS(5511),
+    [aux_sym_associate_statement_token1] = ACTIONS(5511),
+    [aux_sym_format_statement_token1] = ACTIONS(5511),
+    [aux_sym_print_statement_token1] = ACTIONS(5511),
+    [aux_sym_open_statement_token1] = ACTIONS(5511),
+    [aux_sym_close_statement_token1] = ACTIONS(5511),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
+    [aux_sym_entry_statement_token1] = ACTIONS(5511),
+    [aux_sym_logical_expression_token1] = ACTIONS(5517),
+    [aux_sym_logical_expression_token2] = ACTIONS(5517),
+    [aux_sym_logical_expression_token3] = ACTIONS(5517),
+    [aux_sym_logical_expression_token4] = ACTIONS(5517),
+    [aux_sym_logical_expression_token5] = ACTIONS(5513),
+    [aux_sym_relational_expression_token1] = ACTIONS(5517),
+    [aux_sym_relational_expression_token2] = ACTIONS(5517),
+    [aux_sym_relational_expression_token3] = ACTIONS(5517),
+    [aux_sym_relational_expression_token4] = ACTIONS(5517),
+    [aux_sym_relational_expression_token5] = ACTIONS(5517),
+    [anon_sym_SLASH_EQ] = ACTIONS(5517),
+    [aux_sym_relational_expression_token6] = ACTIONS(5517),
+    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
+    [anon_sym_STAR_STAR] = ACTIONS(5517),
+    [anon_sym_DOT] = ACTIONS(5511),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
+    [anon_sym_LBRACK] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
+    [anon_sym__] = ACTIONS(5519),
+    [aux_sym_null_literal_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
+    [anon_sym_QMARK] = ACTIONS(5517),
+    [aux_sym_identifier_token1] = ACTIONS(5511),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [1910] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5760),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+    [sym__integer_literal] = ACTIONS(5513),
+    [sym__float_literal] = ACTIONS(5513),
+    [sym__boz_literal] = ACTIONS(5513),
+    [sym__string_literal] = ACTIONS(5513),
+    [sym__string_literal_kind] = ACTIONS(5513),
   },
-  [1911] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5984),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1665] = {
+    [sym__kind] = STATE(3757),
+    [anon_sym_LPAREN2] = ACTIONS(5511),
+    [anon_sym_PLUS] = ACTIONS(5513),
+    [anon_sym_DASH] = ACTIONS(5513),
+    [anon_sym_STAR] = ACTIONS(5515),
+    [anon_sym_SLASH] = ACTIONS(5515),
+    [anon_sym_PERCENT] = ACTIONS(5517),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [anon_sym_EQ_EQ] = ACTIONS(5517),
+    [anon_sym_GT] = ACTIONS(5515),
+    [anon_sym_GT_EQ] = ACTIONS(5517),
+    [anon_sym_LT_EQ] = ACTIONS(5517),
+    [anon_sym_LT] = ACTIONS(5515),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5511),
+    [anon_sym_EQ] = ACTIONS(5515),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5511),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5511),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5511),
+    [aux_sym_use_statement_token2] = ACTIONS(5511),
+    [anon_sym_EQ_GT] = ACTIONS(5517),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5511),
+    [aux_sym_save_statement_token1] = ACTIONS(5511),
+    [aux_sym_private_statement_token1] = ACTIONS(5511),
+    [aux_sym_public_statement_token1] = ACTIONS(5511),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5511),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5511),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5511),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5511),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5511),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5511),
+    [aux_sym_stop_statement_token1] = ACTIONS(5511),
+    [aux_sym_stop_statement_token2] = ACTIONS(5511),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5511),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5511),
+    [aux_sym_include_statement_token1] = ACTIONS(5511),
+    [aux_sym_data_statement_token1] = ACTIONS(5511),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5511),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5511),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5511),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5511),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5511),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5511),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5511),
+    [aux_sym_block_construct_token1] = ACTIONS(5511),
+    [aux_sym_associate_statement_token1] = ACTIONS(5511),
+    [aux_sym_format_statement_token1] = ACTIONS(5511),
+    [aux_sym_print_statement_token1] = ACTIONS(5511),
+    [aux_sym_open_statement_token1] = ACTIONS(5511),
+    [aux_sym_close_statement_token1] = ACTIONS(5511),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5511),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5511),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5511),
+    [aux_sym_entry_statement_token1] = ACTIONS(5511),
+    [aux_sym_logical_expression_token1] = ACTIONS(5517),
+    [aux_sym_logical_expression_token2] = ACTIONS(5517),
+    [aux_sym_logical_expression_token3] = ACTIONS(5517),
+    [aux_sym_logical_expression_token4] = ACTIONS(5517),
+    [aux_sym_logical_expression_token5] = ACTIONS(5513),
+    [aux_sym_relational_expression_token1] = ACTIONS(5517),
+    [aux_sym_relational_expression_token2] = ACTIONS(5517),
+    [aux_sym_relational_expression_token3] = ACTIONS(5517),
+    [aux_sym_relational_expression_token4] = ACTIONS(5517),
+    [aux_sym_relational_expression_token5] = ACTIONS(5517),
+    [anon_sym_SLASH_EQ] = ACTIONS(5517),
+    [aux_sym_relational_expression_token6] = ACTIONS(5517),
+    [anon_sym_SLASH_SLASH] = ACTIONS(5517),
+    [anon_sym_STAR_STAR] = ACTIONS(5517),
+    [anon_sym_DOT] = ACTIONS(5511),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5513),
+    [anon_sym_LBRACK] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5513),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5513),
+    [anon_sym__] = ACTIONS(5519),
+    [aux_sym_null_literal_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5511),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5511),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5511),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5511),
+    [anon_sym_QMARK] = ACTIONS(5517),
+    [aux_sym_identifier_token1] = ACTIONS(5511),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [1912] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5986),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+    [sym__integer_literal] = ACTIONS(5513),
+    [sym__float_literal] = ACTIONS(5513),
+    [sym__boz_literal] = ACTIONS(5513),
+    [sym__string_literal] = ACTIONS(5513),
+    [sym__string_literal_kind] = ACTIONS(5513),
   },
-  [1913] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4629),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+  [1666] = {
+    [sym_data_set] = STATE(6337),
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4853),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4853),
+    [sym_implied_do_loop_expression] = STATE(4853),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4853),
+    [anon_sym_LPAREN2] = ACTIONS(5547),
+    [anon_sym_PLUS] = ACTIONS(5550),
+    [anon_sym_DASH] = ACTIONS(5550),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(5533),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(5553),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [1914] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1667] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5556),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [1668] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [aux_sym_preproc_else_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5562),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4637),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [1915] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4401),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+  [1669] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [aux_sym_preproc_else_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5568),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1670] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [aux_sym_preproc_else_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5574),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [1916] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4529),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1671] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [aux_sym_preproc_else_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5580),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [1917] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1672] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1673] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [aux_sym_preproc_else_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5588),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_contains_statement_token1] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [1674] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5592),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1675] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [aux_sym_preproc_else_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5598),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1676] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5602),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4405),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [1918] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1677] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [aux_sym_preproc_else_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(5608),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4409),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [1919] = {
+  [1678] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token2] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [aux_sym_preproc_else_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(5614),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
+  },
+  [1679] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5618),
     [aux_sym_preproc_def_token1] = ACTIONS(5618),
     [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [aux_sym_preproc_else_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
     [sym_preproc_directive] = ACTIONS(5618),
     [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(5988),
+    [sym_preproc_comment] = ACTIONS(5620),
     [anon_sym_PLUS] = ACTIONS(5622),
     [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
     [aux_sym_use_statement_token2] = ACTIONS(5618),
     [aux_sym_implicit_statement_token4] = ACTIONS(5618),
     [aux_sym_save_statement_token1] = ACTIONS(5618),
@@ -347865,11 +322599,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
     [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5618),
     [aux_sym_select_case_statement_token3] = ACTIONS(5618),
     [aux_sym_select_type_statement_token1] = ACTIONS(5618),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
     [aux_sym_block_construct_token1] = ACTIONS(5618),
     [aux_sym_associate_statement_token1] = ACTIONS(5618),
     [aux_sym_format_statement_token1] = ACTIONS(5618),
@@ -347907,313 +322639,540 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5622),
     [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [1920] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1680] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(5624),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4413),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [1921] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(5990),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1681] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(5628),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [1922] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(5992),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1682] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [aux_sym_preproc_else_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5632),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_contains_statement_token1] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [1923] = {
+  [1683] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [aux_sym_preproc_else_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_contains_statement_token1] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [1684] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [aux_sym_preproc_else_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_contains_statement_token1] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
+  },
+  [1685] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5606),
     [aux_sym_preproc_def_token1] = ACTIONS(5606),
     [aux_sym_preproc_if_token1] = ACTIONS(5606),
@@ -348221,7 +323180,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
     [sym_preproc_directive] = ACTIONS(5606),
     [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(5994),
+    [sym_preproc_comment] = ACTIONS(5640),
     [anon_sym_PLUS] = ACTIONS(5610),
     [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
@@ -348230,6 +323189,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
     [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5606),
     [aux_sym_implicit_statement_token4] = ACTIONS(5606),
     [aux_sym_save_statement_token1] = ACTIONS(5606),
     [aux_sym_private_statement_token1] = ACTIONS(5606),
@@ -348242,6 +323202,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym_derived_type_token1] = ACTIONS(5606),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
@@ -348273,11 +323234,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
     [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5606),
     [aux_sym_select_case_statement_token3] = ACTIONS(5606),
     [aux_sym_select_type_statement_token1] = ACTIONS(5606),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
     [aux_sym_end_select_statement_token1] = ACTIONS(5606),
+    [aux_sym_type_statement_token2] = ACTIONS(5606),
+    [aux_sym_type_statement_token3] = ACTIONS(5606),
+    [aux_sym__class_default_token1] = ACTIONS(5606),
     [aux_sym_block_construct_token1] = ACTIONS(5606),
     [aux_sym_associate_statement_token1] = ACTIONS(5606),
     [aux_sym_format_statement_token1] = ACTIONS(5606),
@@ -348315,7 +323278,219 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5610),
     [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [1924] = {
+  [1686] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5642),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym_derived_type_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5560),
+    [aux_sym_type_statement_token2] = ACTIONS(5560),
+    [aux_sym_type_statement_token3] = ACTIONS(5560),
+    [aux_sym__class_default_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
+  },
+  [1687] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(5644),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
+  },
+  [1688] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
@@ -348323,7 +323498,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(5996),
+    [sym_preproc_comment] = ACTIONS(5646),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -348332,6 +323507,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
     [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5612),
     [aux_sym_implicit_statement_token4] = ACTIONS(5612),
     [aux_sym_save_statement_token1] = ACTIONS(5612),
     [aux_sym_private_statement_token1] = ACTIONS(5612),
@@ -348344,6 +323520,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym_derived_type_token1] = ACTIONS(5612),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
@@ -348375,11 +323552,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
     [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5612),
     [aux_sym_select_case_statement_token3] = ACTIONS(5612),
     [aux_sym_select_type_statement_token1] = ACTIONS(5612),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
     [aux_sym_end_select_statement_token1] = ACTIONS(5612),
+    [aux_sym_type_statement_token2] = ACTIONS(5612),
+    [aux_sym_type_statement_token3] = ACTIONS(5612),
+    [aux_sym__class_default_token1] = ACTIONS(5612),
     [aux_sym_block_construct_token1] = ACTIONS(5612),
     [aux_sym_associate_statement_token1] = ACTIONS(5612),
     [aux_sym_format_statement_token1] = ACTIONS(5612),
@@ -348417,1325 +323596,953 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [1925] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(5998),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1689] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [aux_sym_preproc_else_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [1926] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6000),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1690] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5652),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [1691] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(5654),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym_derived_type_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
+    [aux_sym_type_statement_token2] = ACTIONS(5618),
+    [aux_sym_type_statement_token3] = ACTIONS(5618),
+    [aux_sym__class_default_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [1927] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6002),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1692] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5656),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym_derived_type_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_type_statement_token2] = ACTIONS(5010),
+    [aux_sym_type_statement_token3] = ACTIONS(5010),
+    [aux_sym__class_default_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [1928] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6004),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1693] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5658),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym_derived_type_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_type_statement_token2] = ACTIONS(4619),
+    [aux_sym_type_statement_token3] = ACTIONS(4619),
+    [aux_sym__class_default_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [1929] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5792),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [1930] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6006),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [1931] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [sym_preproc_comment] = ACTIONS(6010),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
-  },
-  [1932] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5798),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [1933] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6014),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1694] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(5660),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym_derived_type_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
+    [aux_sym_type_statement_token2] = ACTIONS(4525),
+    [aux_sym_type_statement_token3] = ACTIONS(4525),
+    [aux_sym__class_default_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [1934] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6016),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [1935] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5818),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1695] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5662),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym_derived_type_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_type_statement_token2] = ACTIONS(4369),
+    [aux_sym_type_statement_token3] = ACTIONS(4369),
+    [aux_sym__class_default_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [1936] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [1696] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(5664),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym_derived_type_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
+    [aux_sym_type_statement_token2] = ACTIONS(4317),
+    [aux_sym_type_statement_token3] = ACTIONS(4317),
+    [aux_sym__class_default_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [1937] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6018),
+  [1697] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5666),
     [anon_sym_PLUS] = ACTIONS(5634),
     [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym_derived_type_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
     [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4331),
+    [aux_sym_type_statement_token2] = ACTIONS(4331),
+    [aux_sym_type_statement_token3] = ACTIONS(4331),
+    [aux_sym__class_default_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
     [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4331),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
     [anon_sym_LBRACK] = ACTIONS(5634),
     [aux_sym_boolean_literal_token1] = ACTIONS(5634),
     [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5634),
     [sym__float_literal] = ACTIONS(5634),
@@ -349743,226 +324550,28 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5634),
     [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [1938] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6020),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
-  },
-  [1939] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5824),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [1940] = {
+  [1698] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6022),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5668),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
     [aux_sym_use_statement_token2] = ACTIONS(4317),
     [aux_sym_implicit_statement_token4] = ACTIONS(4317),
     [aux_sym_save_statement_token1] = ACTIONS(4317),
@@ -349988,7 +324597,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -350007,11 +324616,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
     [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4317),
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
     [aux_sym_select_type_statement_token1] = ACTIONS(4317),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
@@ -350025,12 +324632,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -350043,125 +324650,133 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [1941] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5764),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1699] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5670),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym_derived_type_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4393),
+    [aux_sym_type_statement_token2] = ACTIONS(4393),
+    [aux_sym_type_statement_token3] = ACTIONS(4393),
+    [aux_sym__class_default_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [1942] = {
+  [1700] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_end_program_statement_token2] = ACTIONS(4317),
@@ -350194,7 +324809,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -350229,12 +324844,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -350247,1756 +324862,4478 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [1943] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6024),
-    [aux_sym_preproc_def_token1] = ACTIONS(6024),
-    [aux_sym_preproc_if_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6024),
-    [sym_preproc_directive] = ACTIONS(6024),
-    [anon_sym_LPAREN2] = ACTIONS(6024),
-    [sym_preproc_comment] = ACTIONS(6026),
-    [anon_sym_PLUS] = ACTIONS(6028),
-    [anon_sym_DASH] = ACTIONS(6028),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6024),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6024),
-    [aux_sym_contains_statement_token1] = ACTIONS(6024),
-    [aux_sym_use_statement_token2] = ACTIONS(6024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6024),
-    [aux_sym_save_statement_token1] = ACTIONS(6024),
-    [aux_sym_private_statement_token1] = ACTIONS(6024),
-    [aux_sym_public_statement_token1] = ACTIONS(6024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6024),
-    [anon_sym_SEMI] = ACTIONS(6028),
-    [aux_sym_stop_statement_token1] = ACTIONS(6024),
-    [aux_sym_stop_statement_token2] = ACTIONS(6024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6024),
-    [aux_sym_include_statement_token1] = ACTIONS(6024),
-    [aux_sym_data_statement_token1] = ACTIONS(6024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6024),
-    [aux_sym_block_construct_token1] = ACTIONS(6024),
-    [aux_sym_associate_statement_token1] = ACTIONS(6024),
-    [aux_sym_format_statement_token1] = ACTIONS(6024),
-    [aux_sym_print_statement_token1] = ACTIONS(6024),
-    [aux_sym_open_statement_token1] = ACTIONS(6024),
-    [aux_sym_close_statement_token1] = ACTIONS(6024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6024),
-    [aux_sym_entry_statement_token1] = ACTIONS(6024),
-    [aux_sym_logical_expression_token5] = ACTIONS(6028),
-    [anon_sym_DOT] = ACTIONS(6024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6028),
-    [anon_sym_LBRACK] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6028),
-    [aux_sym_null_literal_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6024),
-    [aux_sym_identifier_token1] = ACTIONS(6024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6028),
-    [sym__float_literal] = ACTIONS(6028),
-    [sym__boz_literal] = ACTIONS(6028),
-    [sym__string_literal] = ACTIONS(6028),
-    [sym__string_literal_kind] = ACTIONS(6028),
-  },
-  [1944] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [1701] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5672),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym_derived_type_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5596),
+    [aux_sym_type_statement_token2] = ACTIONS(5596),
+    [aux_sym_type_statement_token3] = ACTIONS(5596),
+    [aux_sym__class_default_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1702] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5674),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym_derived_type_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5566),
+    [aux_sym_type_statement_token2] = ACTIONS(5566),
+    [aux_sym_type_statement_token3] = ACTIONS(5566),
+    [aux_sym__class_default_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1703] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [aux_sym_preproc_else_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5676),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_contains_statement_token1] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
+  },
+  [1704] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
+  },
+  [1705] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5678),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym_derived_type_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_type_statement_token2] = ACTIONS(5020),
+    [aux_sym_type_statement_token3] = ACTIONS(5020),
+    [aux_sym__class_default_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1706] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5680),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [1707] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5682),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym_derived_type_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5578),
+    [aux_sym_type_statement_token2] = ACTIONS(5578),
+    [aux_sym_type_statement_token3] = ACTIONS(5578),
+    [aux_sym__class_default_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1708] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5684),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1709] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5686),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym_derived_type_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5572),
+    [aux_sym_type_statement_token2] = ACTIONS(5572),
+    [aux_sym_type_statement_token3] = ACTIONS(5572),
+    [aux_sym__class_default_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [1710] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [aux_sym_preproc_else_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
+  },
+  [1711] = {
+    [sym_assignment] = STATE(6248),
+    [sym_operator] = STATE(6248),
+    [sym_defined_io_procedure] = STATE(6248),
+    [sym__generic_procedure] = STATE(6248),
+    [sym_identifier] = STATE(6248),
+    [sym__end_of_statement] = STATE(1527),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5700),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5702),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5702),
+  },
+  [1712] = {
+    [sym_assignment] = STATE(6263),
+    [sym_operator] = STATE(6263),
+    [sym_defined_io_procedure] = STATE(6263),
+    [sym__generic_procedure] = STATE(6263),
+    [sym_identifier] = STATE(6263),
+    [sym__end_of_statement] = STATE(1526),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5704),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5706),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5706),
+  },
+  [1713] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token2] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [aux_sym_preproc_else_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_LPAREN2] = ACTIONS(4321),
+    [sym_preproc_comment] = ACTIONS(4323),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [anon_sym_SEMI] = ACTIONS(4323),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4321),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4321),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_associate_statement_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_print_statement_token1] = ACTIONS(4321),
+    [aux_sym_open_statement_token1] = ACTIONS(4321),
+    [aux_sym_close_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4321),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4321),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_logical_expression_token5] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4323),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4323),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4323),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+    [sym__float_literal] = ACTIONS(4323),
+    [sym__boz_literal] = ACTIONS(4323),
+    [sym__string_literal] = ACTIONS(4323),
+    [sym__string_literal_kind] = ACTIONS(4323),
+  },
+  [1714] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4343),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4343),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_associate_statement_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_print_statement_token1] = ACTIONS(4343),
+    [aux_sym_open_statement_token1] = ACTIONS(4343),
+    [aux_sym_close_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4343),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4343),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_logical_expression_token5] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4345),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+    [sym__float_literal] = ACTIONS(4345),
+    [sym__boz_literal] = ACTIONS(4345),
+    [sym__string_literal] = ACTIONS(4345),
+    [sym__string_literal_kind] = ACTIONS(4345),
+  },
+  [1715] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
+  },
+  [1716] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5710),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1717] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [aux_sym_preproc_else_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [1718] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token2] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [aux_sym_preproc_else_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
+    [anon_sym_LPAREN2] = ACTIONS(4347),
+    [sym_preproc_comment] = ACTIONS(4349),
+    [anon_sym_PLUS] = ACTIONS(4349),
+    [anon_sym_DASH] = ACTIONS(4349),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [anon_sym_SEMI] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4347),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4347),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_associate_statement_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_print_statement_token1] = ACTIONS(4347),
+    [aux_sym_open_statement_token1] = ACTIONS(4347),
+    [aux_sym_close_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4347),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4347),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_logical_expression_token5] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(4347),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4349),
+    [anon_sym_LBRACK] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4349),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4349),
+    [sym__float_literal] = ACTIONS(4349),
+    [sym__boz_literal] = ACTIONS(4349),
+    [sym__string_literal] = ACTIONS(4349),
+    [sym__string_literal_kind] = ACTIONS(4349),
+  },
+  [1719] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token2] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [aux_sym_preproc_else_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_LPAREN2] = ACTIONS(4389),
+    [sym_preproc_comment] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [anon_sym_SEMI] = ACTIONS(4391),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4389),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4389),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_associate_statement_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_print_statement_token1] = ACTIONS(4389),
+    [aux_sym_open_statement_token1] = ACTIONS(4389),
+    [aux_sym_close_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4389),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4389),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_logical_expression_token5] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4391),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4391),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
+    [sym__float_literal] = ACTIONS(4391),
+    [sym__boz_literal] = ACTIONS(4391),
+    [sym__string_literal] = ACTIONS(4391),
+    [sym__string_literal_kind] = ACTIONS(4391),
+  },
+  [1720] = {
+    [sym_assignment] = STATE(6136),
+    [sym_operator] = STATE(6136),
+    [sym_defined_io_procedure] = STATE(6136),
+    [sym__generic_procedure] = STATE(6136),
+    [sym_identifier] = STATE(6136),
+    [sym__end_of_statement] = STATE(1151),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5716),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5718),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5718),
+  },
+  [1721] = {
+    [sym_assignment] = STATE(6141),
+    [sym_operator] = STATE(6141),
+    [sym_defined_io_procedure] = STATE(6141),
+    [sym__generic_procedure] = STATE(6141),
+    [sym_identifier] = STATE(6141),
+    [sym__end_of_statement] = STATE(1356),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5720),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5722),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5722),
   },
-  [1945] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6030),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1722] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [aux_sym_preproc_else_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5724),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_contains_statement_token1] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [1946] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6032),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1723] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token2] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [aux_sym_preproc_else_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [1947] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6034),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+  [1724] = {
+    [sym_assignment] = STATE(6292),
+    [sym_operator] = STATE(6292),
+    [sym_defined_io_procedure] = STATE(6292),
+    [sym__generic_procedure] = STATE(6292),
+    [sym_identifier] = STATE(6292),
+    [sym__end_of_statement] = STATE(1361),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5730),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5732),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__external_end_of_statement] = ACTIONS(5732),
   },
-  [1948] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [sym_preproc_comment] = ACTIONS(6038),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
-  },
-  [1949] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6042),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+  [1725] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [1950] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6044),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+  [1726] = {
+    [sym_assignment] = STATE(6137),
+    [sym_operator] = STATE(6137),
+    [sym_defined_io_procedure] = STATE(6137),
+    [sym__generic_procedure] = STATE(6137),
+    [sym_identifier] = STATE(6137),
+    [sym__end_of_statement] = STATE(1148),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5734),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5736),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__external_end_of_statement] = ACTIONS(5736),
   },
-  [1951] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+  [1727] = {
+    [sym_assignment] = STATE(6135),
+    [sym_operator] = STATE(6135),
+    [sym_defined_io_procedure] = STATE(6135),
+    [sym__generic_procedure] = STATE(6135),
+    [sym_identifier] = STATE(6135),
+    [sym__end_of_statement] = STATE(1653),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5738),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5740),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__external_end_of_statement] = ACTIONS(5740),
   },
-  [1952] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1728] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [aux_sym_preproc_else_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [1953] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+  [1729] = {
+    [sym_assignment] = STATE(6134),
+    [sym_operator] = STATE(6134),
+    [sym_defined_io_procedure] = STATE(6134),
+    [sym__generic_procedure] = STATE(6134),
+    [sym_identifier] = STATE(6134),
+    [sym__end_of_statement] = STATE(1641),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5742),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5744),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__external_end_of_statement] = ACTIONS(5744),
   },
-  [1954] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [1730] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [1955] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1731] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [aux_sym_preproc_else_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [1732] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [aux_sym_preproc_else_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_contains_statement_token1] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [1733] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [aux_sym_preproc_else_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(5754),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [1956] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1734] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [1957] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+  [1735] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [1736] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1737] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1738] = {
+    [sym_assignment] = STATE(6160),
+    [sym_operator] = STATE(6160),
+    [sym_defined_io_procedure] = STATE(6160),
+    [sym__generic_procedure] = STATE(6160),
+    [sym_identifier] = STATE(6160),
+    [sym__end_of_statement] = STATE(1580),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5756),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5758),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__external_end_of_statement] = ACTIONS(5758),
   },
-  [1958] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6046),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1739] = {
+    [anon_sym_COMMA] = ACTIONS(5760),
+    [anon_sym_RPAREN] = ACTIONS(5762),
+    [anon_sym_LPAREN2] = ACTIONS(5762),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(5765),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5768),
+    [aux_sym_module_statement_token1] = ACTIONS(5768),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5768),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5768),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(5768),
+    [aux_sym_function_statement_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5768),
+    [aux_sym_use_statement_token2] = ACTIONS(5768),
+    [anon_sym_COLON_COLON] = ACTIONS(5760),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5768),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5768),
+    [aux_sym_save_statement_token1] = ACTIONS(5768),
+    [aux_sym_private_statement_token1] = ACTIONS(5768),
+    [aux_sym_public_statement_token1] = ACTIONS(5768),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5768),
+    [aux_sym_derived_type_token1] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(5768),
+    [aux_sym_stop_statement_token1] = ACTIONS(5768),
+    [aux_sym_stop_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5768),
+    [aux_sym_data_statement_token1] = ACTIONS(5768),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5768),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5768),
+    [aux_sym_block_construct_token1] = ACTIONS(5768),
+    [aux_sym_format_statement_token1] = ACTIONS(5768),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5768),
+    [aux_sym_entry_statement_token1] = ACTIONS(5768),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5768),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5768),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5768),
+    [sym_comment] = ACTIONS(21),
   },
-  [1959] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6048),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+  [1740] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [aux_sym_preproc_else_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [1741] = {
+    [sym_assignment] = STATE(6163),
+    [sym_operator] = STATE(6163),
+    [sym_defined_io_procedure] = STATE(6163),
+    [sym__generic_procedure] = STATE(6163),
+    [sym_identifier] = STATE(6163),
+    [sym__end_of_statement] = STATE(1339),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5774),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5776),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__external_end_of_statement] = ACTIONS(5776),
   },
-  [1960] = {
+  [1742] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1743] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token2] = ACTIONS(5612),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [aux_sym_preproc_else_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6050),
+    [sym_preproc_comment] = ACTIONS(5778),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -352089,611 +329426,953 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [1961] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6052),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1744] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [aux_sym_preproc_else_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5780),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [1962] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6054),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1745] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [aux_sym_preproc_else_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(5782),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [1963] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6056),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1746] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [aux_sym_preproc_else_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5784),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [1964] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1747] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [1965] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6058),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+  [1748] = {
+    [sym_assignment] = STATE(6295),
+    [sym_operator] = STATE(6295),
+    [sym_defined_io_procedure] = STATE(6295),
+    [sym__generic_procedure] = STATE(6295),
+    [sym_identifier] = STATE(6295),
+    [sym__end_of_statement] = STATE(1457),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5786),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5788),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5788),
+  },
+  [1749] = {
+    [sym_assignment] = STATE(6246),
+    [sym_operator] = STATE(6246),
+    [sym_defined_io_procedure] = STATE(6246),
+    [sym__generic_procedure] = STATE(6246),
+    [sym_identifier] = STATE(6246),
+    [sym__end_of_statement] = STATE(1456),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5790),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5792),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__external_end_of_statement] = ACTIONS(5792),
   },
-  [1966] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6060),
+  [1750] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [aux_sym_preproc_else_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5794),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1751] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [aux_sym_preproc_else_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5796),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1752] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [aux_sym_preproc_else_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5798),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -352701,634 +330380,664 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [1967] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6062),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [1968] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6064),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1753] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [aux_sym_preproc_else_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [1969] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_contains_statement_token1] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [1754] = {
+    [sym_assignment] = STATE(6080),
+    [sym_operator] = STATE(6080),
+    [sym_defined_io_procedure] = STATE(6080),
+    [sym__generic_procedure] = STATE(6080),
+    [sym_identifier] = STATE(6080),
+    [sym__end_of_statement] = STATE(1184),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5804),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5806),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5806),
   },
-  [1970] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_contains_statement_token1] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+  [1755] = {
+    [sym_assignment] = STATE(6150),
+    [sym_operator] = STATE(6150),
+    [sym_defined_io_procedure] = STATE(6150),
+    [sym__generic_procedure] = STATE(6150),
+    [sym_identifier] = STATE(6150),
+    [sym__end_of_statement] = STATE(1185),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5808),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5810),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__external_end_of_statement] = ACTIONS(5810),
   },
-  [1971] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6066),
-    [aux_sym_preproc_def_token1] = ACTIONS(6066),
-    [aux_sym_preproc_if_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6066),
-    [sym_preproc_directive] = ACTIONS(6066),
-    [anon_sym_LPAREN2] = ACTIONS(6066),
-    [sym_preproc_comment] = ACTIONS(6068),
-    [anon_sym_PLUS] = ACTIONS(6070),
-    [anon_sym_DASH] = ACTIONS(6070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6066),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6066),
-    [aux_sym_contains_statement_token1] = ACTIONS(6066),
-    [aux_sym_use_statement_token2] = ACTIONS(6066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6066),
-    [aux_sym_save_statement_token1] = ACTIONS(6066),
-    [aux_sym_private_statement_token1] = ACTIONS(6066),
-    [aux_sym_public_statement_token1] = ACTIONS(6066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6066),
-    [anon_sym_SEMI] = ACTIONS(6070),
-    [aux_sym_stop_statement_token1] = ACTIONS(6066),
-    [aux_sym_stop_statement_token2] = ACTIONS(6066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6066),
-    [aux_sym_include_statement_token1] = ACTIONS(6066),
-    [aux_sym_data_statement_token1] = ACTIONS(6066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6066),
-    [aux_sym_block_construct_token1] = ACTIONS(6066),
-    [aux_sym_associate_statement_token1] = ACTIONS(6066),
-    [aux_sym_format_statement_token1] = ACTIONS(6066),
-    [aux_sym_print_statement_token1] = ACTIONS(6066),
-    [aux_sym_open_statement_token1] = ACTIONS(6066),
-    [aux_sym_close_statement_token1] = ACTIONS(6066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6066),
-    [aux_sym_entry_statement_token1] = ACTIONS(6066),
-    [aux_sym_logical_expression_token5] = ACTIONS(6070),
-    [anon_sym_DOT] = ACTIONS(6066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6070),
-    [anon_sym_LBRACK] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6070),
-    [aux_sym_null_literal_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6066),
-    [aux_sym_identifier_token1] = ACTIONS(6066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6070),
-    [sym__float_literal] = ACTIONS(6070),
-    [sym__boz_literal] = ACTIONS(6070),
-    [sym__string_literal] = ACTIONS(6070),
-    [sym__string_literal_kind] = ACTIONS(6070),
+  [1756] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [1972] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6072),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1757] = {
+    [sym_assignment] = STATE(6170),
+    [sym_operator] = STATE(6170),
+    [sym_defined_io_procedure] = STATE(6170),
+    [sym__generic_procedure] = STATE(6170),
+    [sym_identifier] = STATE(6170),
+    [sym__end_of_statement] = STATE(1209),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5812),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5814),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5814),
   },
-  [1973] = {
+  [1758] = {
+    [sym_assignment] = STATE(6180),
+    [sym_operator] = STATE(6180),
+    [sym_defined_io_procedure] = STATE(6180),
+    [sym__generic_procedure] = STATE(6180),
+    [sym_identifier] = STATE(6180),
+    [sym__end_of_statement] = STATE(1208),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5816),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5818),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(5818),
+  },
+  [1759] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6074),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
     [aux_sym_use_statement_token2] = ACTIONS(4525),
     [aux_sym_implicit_statement_token4] = ACTIONS(4525),
     [aux_sym_save_statement_token1] = ACTIONS(4525),
@@ -353354,7 +331063,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -353373,11 +331082,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -353391,12 +331098,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -353409,2368 +331116,1082 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1974] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6076),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [1975] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6078),
-    [aux_sym_preproc_def_token1] = ACTIONS(6078),
-    [aux_sym_preproc_if_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6078),
-    [sym_preproc_directive] = ACTIONS(6078),
-    [anon_sym_LPAREN2] = ACTIONS(6078),
-    [sym_preproc_comment] = ACTIONS(6080),
-    [anon_sym_PLUS] = ACTIONS(6082),
-    [anon_sym_DASH] = ACTIONS(6082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6078),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6078),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6078),
-    [aux_sym_contains_statement_token1] = ACTIONS(6078),
-    [aux_sym_use_statement_token2] = ACTIONS(6078),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6078),
-    [aux_sym_save_statement_token1] = ACTIONS(6078),
-    [aux_sym_private_statement_token1] = ACTIONS(6078),
-    [aux_sym_public_statement_token1] = ACTIONS(6078),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6078),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6078),
-    [anon_sym_SEMI] = ACTIONS(6082),
-    [aux_sym_stop_statement_token1] = ACTIONS(6078),
-    [aux_sym_stop_statement_token2] = ACTIONS(6078),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6078),
-    [aux_sym_include_statement_token1] = ACTIONS(6078),
-    [aux_sym_data_statement_token1] = ACTIONS(6078),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6078),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6078),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6078),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6078),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6078),
-    [aux_sym_block_construct_token1] = ACTIONS(6078),
-    [aux_sym_associate_statement_token1] = ACTIONS(6078),
-    [aux_sym_format_statement_token1] = ACTIONS(6078),
-    [aux_sym_print_statement_token1] = ACTIONS(6078),
-    [aux_sym_open_statement_token1] = ACTIONS(6078),
-    [aux_sym_close_statement_token1] = ACTIONS(6078),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6078),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6078),
-    [aux_sym_entry_statement_token1] = ACTIONS(6078),
-    [aux_sym_logical_expression_token5] = ACTIONS(6082),
-    [anon_sym_DOT] = ACTIONS(6078),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6082),
-    [anon_sym_LBRACK] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6082),
-    [aux_sym_null_literal_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6078),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6078),
-    [aux_sym_identifier_token1] = ACTIONS(6078),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6082),
-    [sym__float_literal] = ACTIONS(6082),
-    [sym__boz_literal] = ACTIONS(6082),
-    [sym__string_literal] = ACTIONS(6082),
-    [sym__string_literal_kind] = ACTIONS(6082),
-  },
-  [1976] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6084),
-    [aux_sym_preproc_def_token1] = ACTIONS(6084),
-    [aux_sym_preproc_if_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
-    [sym_preproc_directive] = ACTIONS(6084),
-    [anon_sym_LPAREN2] = ACTIONS(6084),
-    [sym_preproc_comment] = ACTIONS(6086),
-    [anon_sym_PLUS] = ACTIONS(6088),
-    [anon_sym_DASH] = ACTIONS(6088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6084),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
-    [aux_sym_contains_statement_token1] = ACTIONS(6084),
-    [aux_sym_use_statement_token2] = ACTIONS(6084),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
-    [aux_sym_save_statement_token1] = ACTIONS(6084),
-    [aux_sym_private_statement_token1] = ACTIONS(6084),
-    [aux_sym_public_statement_token1] = ACTIONS(6084),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
-    [anon_sym_SEMI] = ACTIONS(6088),
-    [aux_sym_stop_statement_token1] = ACTIONS(6084),
-    [aux_sym_stop_statement_token2] = ACTIONS(6084),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
-    [aux_sym_include_statement_token1] = ACTIONS(6084),
-    [aux_sym_data_statement_token1] = ACTIONS(6084),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
-    [aux_sym_block_construct_token1] = ACTIONS(6084),
-    [aux_sym_associate_statement_token1] = ACTIONS(6084),
-    [aux_sym_format_statement_token1] = ACTIONS(6084),
-    [aux_sym_print_statement_token1] = ACTIONS(6084),
-    [aux_sym_open_statement_token1] = ACTIONS(6084),
-    [aux_sym_close_statement_token1] = ACTIONS(6084),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
-    [aux_sym_entry_statement_token1] = ACTIONS(6084),
-    [aux_sym_logical_expression_token5] = ACTIONS(6088),
-    [anon_sym_DOT] = ACTIONS(6084),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
-    [anon_sym_LBRACK] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
-    [aux_sym_null_literal_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
-    [aux_sym_identifier_token1] = ACTIONS(6084),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6088),
-    [sym__float_literal] = ACTIONS(6088),
-    [sym__boz_literal] = ACTIONS(6088),
-    [sym__string_literal] = ACTIONS(6088),
-    [sym__string_literal_kind] = ACTIONS(6088),
-  },
-  [1977] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6090),
-    [aux_sym_preproc_def_token1] = ACTIONS(6090),
-    [aux_sym_preproc_if_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
-    [sym_preproc_directive] = ACTIONS(6090),
-    [anon_sym_LPAREN2] = ACTIONS(6090),
-    [sym_preproc_comment] = ACTIONS(6092),
-    [anon_sym_PLUS] = ACTIONS(6094),
-    [anon_sym_DASH] = ACTIONS(6094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
-    [aux_sym_contains_statement_token1] = ACTIONS(6090),
-    [aux_sym_use_statement_token2] = ACTIONS(6090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
-    [aux_sym_save_statement_token1] = ACTIONS(6090),
-    [aux_sym_private_statement_token1] = ACTIONS(6090),
-    [aux_sym_public_statement_token1] = ACTIONS(6090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
-    [anon_sym_SEMI] = ACTIONS(6094),
-    [aux_sym_stop_statement_token1] = ACTIONS(6090),
-    [aux_sym_stop_statement_token2] = ACTIONS(6090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
-    [aux_sym_include_statement_token1] = ACTIONS(6090),
-    [aux_sym_data_statement_token1] = ACTIONS(6090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
-    [aux_sym_block_construct_token1] = ACTIONS(6090),
-    [aux_sym_associate_statement_token1] = ACTIONS(6090),
-    [aux_sym_format_statement_token1] = ACTIONS(6090),
-    [aux_sym_print_statement_token1] = ACTIONS(6090),
-    [aux_sym_open_statement_token1] = ACTIONS(6090),
-    [aux_sym_close_statement_token1] = ACTIONS(6090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
-    [aux_sym_entry_statement_token1] = ACTIONS(6090),
-    [aux_sym_logical_expression_token5] = ACTIONS(6094),
-    [anon_sym_DOT] = ACTIONS(6090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
-    [anon_sym_LBRACK] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
-    [aux_sym_null_literal_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
-    [aux_sym_identifier_token1] = ACTIONS(6090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
-  },
-  [1978] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4317),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [1979] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [sym_preproc_comment] = ACTIONS(6098),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
-  },
-  [1980] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6102),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_contains_statement_token1] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [1981] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_contains_statement_token1] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [1982] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4349),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [1983] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6104),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [1984] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6106),
-    [aux_sym_preproc_def_token1] = ACTIONS(6106),
-    [aux_sym_preproc_if_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6106),
-    [sym_preproc_directive] = ACTIONS(6106),
-    [anon_sym_LPAREN2] = ACTIONS(6106),
-    [sym_preproc_comment] = ACTIONS(6108),
-    [anon_sym_PLUS] = ACTIONS(6110),
-    [anon_sym_DASH] = ACTIONS(6110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6106),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6106),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6106),
-    [aux_sym_contains_statement_token1] = ACTIONS(6106),
-    [aux_sym_use_statement_token2] = ACTIONS(6106),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6106),
-    [aux_sym_save_statement_token1] = ACTIONS(6106),
-    [aux_sym_private_statement_token1] = ACTIONS(6106),
-    [aux_sym_public_statement_token1] = ACTIONS(6106),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6106),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6106),
-    [anon_sym_SEMI] = ACTIONS(6110),
-    [aux_sym_stop_statement_token1] = ACTIONS(6106),
-    [aux_sym_stop_statement_token2] = ACTIONS(6106),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6106),
-    [aux_sym_include_statement_token1] = ACTIONS(6106),
-    [aux_sym_data_statement_token1] = ACTIONS(6106),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6106),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6106),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6106),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6106),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6106),
-    [aux_sym_block_construct_token1] = ACTIONS(6106),
-    [aux_sym_associate_statement_token1] = ACTIONS(6106),
-    [aux_sym_format_statement_token1] = ACTIONS(6106),
-    [aux_sym_print_statement_token1] = ACTIONS(6106),
-    [aux_sym_open_statement_token1] = ACTIONS(6106),
-    [aux_sym_close_statement_token1] = ACTIONS(6106),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6106),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6106),
-    [aux_sym_entry_statement_token1] = ACTIONS(6106),
-    [aux_sym_logical_expression_token5] = ACTIONS(6110),
-    [anon_sym_DOT] = ACTIONS(6106),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6110),
-    [anon_sym_LBRACK] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6110),
-    [aux_sym_null_literal_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6106),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6106),
-    [aux_sym_identifier_token1] = ACTIONS(6106),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6110),
-    [sym__float_literal] = ACTIONS(6110),
-    [sym__boz_literal] = ACTIONS(6110),
-    [sym__string_literal] = ACTIONS(6110),
-    [sym__string_literal_kind] = ACTIONS(6110),
-  },
-  [1985] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4499),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [1986] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6112),
-    [aux_sym_preproc_def_token1] = ACTIONS(6112),
-    [aux_sym_preproc_if_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6112),
-    [sym_preproc_directive] = ACTIONS(6112),
-    [anon_sym_LPAREN2] = ACTIONS(6112),
-    [sym_preproc_comment] = ACTIONS(6114),
-    [anon_sym_PLUS] = ACTIONS(6116),
-    [anon_sym_DASH] = ACTIONS(6116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6112),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6112),
-    [aux_sym_contains_statement_token1] = ACTIONS(6112),
-    [aux_sym_use_statement_token2] = ACTIONS(6112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6112),
-    [aux_sym_save_statement_token1] = ACTIONS(6112),
-    [aux_sym_private_statement_token1] = ACTIONS(6112),
-    [aux_sym_public_statement_token1] = ACTIONS(6112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6112),
-    [anon_sym_SEMI] = ACTIONS(6116),
-    [aux_sym_stop_statement_token1] = ACTIONS(6112),
-    [aux_sym_stop_statement_token2] = ACTIONS(6112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6112),
-    [aux_sym_include_statement_token1] = ACTIONS(6112),
-    [aux_sym_data_statement_token1] = ACTIONS(6112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6112),
-    [aux_sym_block_construct_token1] = ACTIONS(6112),
-    [aux_sym_associate_statement_token1] = ACTIONS(6112),
-    [aux_sym_format_statement_token1] = ACTIONS(6112),
-    [aux_sym_print_statement_token1] = ACTIONS(6112),
-    [aux_sym_open_statement_token1] = ACTIONS(6112),
-    [aux_sym_close_statement_token1] = ACTIONS(6112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6112),
-    [aux_sym_entry_statement_token1] = ACTIONS(6112),
-    [aux_sym_logical_expression_token5] = ACTIONS(6116),
-    [anon_sym_DOT] = ACTIONS(6112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6116),
-    [anon_sym_LBRACK] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6116),
-    [aux_sym_null_literal_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6112),
-    [aux_sym_identifier_token1] = ACTIONS(6112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6116),
-    [sym__float_literal] = ACTIONS(6116),
-    [sym__boz_literal] = ACTIONS(6116),
-    [sym__string_literal] = ACTIONS(6116),
-    [sym__string_literal_kind] = ACTIONS(6116),
-  },
-  [1987] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6118),
-    [aux_sym_preproc_def_token1] = ACTIONS(6118),
-    [aux_sym_preproc_if_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6118),
-    [sym_preproc_directive] = ACTIONS(6118),
-    [anon_sym_LPAREN2] = ACTIONS(6118),
-    [sym_preproc_comment] = ACTIONS(6120),
-    [anon_sym_PLUS] = ACTIONS(6122),
-    [anon_sym_DASH] = ACTIONS(6122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6118),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6118),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6118),
-    [aux_sym_contains_statement_token1] = ACTIONS(6118),
-    [aux_sym_use_statement_token2] = ACTIONS(6118),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6118),
-    [aux_sym_save_statement_token1] = ACTIONS(6118),
-    [aux_sym_private_statement_token1] = ACTIONS(6118),
-    [aux_sym_public_statement_token1] = ACTIONS(6118),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6118),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6118),
-    [anon_sym_SEMI] = ACTIONS(6122),
-    [aux_sym_stop_statement_token1] = ACTIONS(6118),
-    [aux_sym_stop_statement_token2] = ACTIONS(6118),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6118),
-    [aux_sym_include_statement_token1] = ACTIONS(6118),
-    [aux_sym_data_statement_token1] = ACTIONS(6118),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6118),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6118),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6118),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6118),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6118),
-    [aux_sym_block_construct_token1] = ACTIONS(6118),
-    [aux_sym_associate_statement_token1] = ACTIONS(6118),
-    [aux_sym_format_statement_token1] = ACTIONS(6118),
-    [aux_sym_print_statement_token1] = ACTIONS(6118),
-    [aux_sym_open_statement_token1] = ACTIONS(6118),
-    [aux_sym_close_statement_token1] = ACTIONS(6118),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6118),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6118),
-    [aux_sym_entry_statement_token1] = ACTIONS(6118),
-    [aux_sym_logical_expression_token5] = ACTIONS(6122),
-    [anon_sym_DOT] = ACTIONS(6118),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6122),
-    [anon_sym_LBRACK] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6122),
-    [aux_sym_null_literal_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6118),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6118),
-    [aux_sym_identifier_token1] = ACTIONS(6118),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6122),
-    [sym__float_literal] = ACTIONS(6122),
-    [sym__boz_literal] = ACTIONS(6122),
-    [sym__string_literal] = ACTIONS(6122),
-    [sym__string_literal_kind] = ACTIONS(6122),
-  },
-  [1988] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [sym_preproc_comment] = ACTIONS(6126),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
-  },
-  [1989] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6130),
-    [aux_sym_preproc_def_token1] = ACTIONS(6130),
-    [aux_sym_preproc_if_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6130),
-    [sym_preproc_directive] = ACTIONS(6130),
-    [anon_sym_LPAREN2] = ACTIONS(6130),
-    [sym_preproc_comment] = ACTIONS(6132),
-    [anon_sym_PLUS] = ACTIONS(6134),
-    [anon_sym_DASH] = ACTIONS(6134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6130),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6130),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6130),
-    [aux_sym_contains_statement_token1] = ACTIONS(6130),
-    [aux_sym_use_statement_token2] = ACTIONS(6130),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6130),
-    [aux_sym_save_statement_token1] = ACTIONS(6130),
-    [aux_sym_private_statement_token1] = ACTIONS(6130),
-    [aux_sym_public_statement_token1] = ACTIONS(6130),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6130),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6130),
-    [anon_sym_SEMI] = ACTIONS(6134),
-    [aux_sym_stop_statement_token1] = ACTIONS(6130),
-    [aux_sym_stop_statement_token2] = ACTIONS(6130),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6130),
-    [aux_sym_include_statement_token1] = ACTIONS(6130),
-    [aux_sym_data_statement_token1] = ACTIONS(6130),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6130),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6130),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6130),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6130),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6130),
-    [aux_sym_block_construct_token1] = ACTIONS(6130),
-    [aux_sym_associate_statement_token1] = ACTIONS(6130),
-    [aux_sym_format_statement_token1] = ACTIONS(6130),
-    [aux_sym_print_statement_token1] = ACTIONS(6130),
-    [aux_sym_open_statement_token1] = ACTIONS(6130),
-    [aux_sym_close_statement_token1] = ACTIONS(6130),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6130),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6130),
-    [aux_sym_entry_statement_token1] = ACTIONS(6130),
-    [aux_sym_logical_expression_token5] = ACTIONS(6134),
-    [anon_sym_DOT] = ACTIONS(6130),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6134),
-    [anon_sym_LBRACK] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6134),
-    [aux_sym_null_literal_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6130),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6130),
-    [aux_sym_identifier_token1] = ACTIONS(6130),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6134),
-    [sym__float_literal] = ACTIONS(6134),
-    [sym__boz_literal] = ACTIONS(6134),
-    [sym__string_literal] = ACTIONS(6134),
-    [sym__string_literal_kind] = ACTIONS(6134),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [1990] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6136),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+  [1760] = {
+    [sym_assignment] = STATE(6090),
+    [sym_operator] = STATE(6090),
+    [sym_defined_io_procedure] = STATE(6090),
+    [sym__generic_procedure] = STATE(6090),
+    [sym_identifier] = STATE(6090),
+    [sym__end_of_statement] = STATE(1570),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5820),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5822),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__external_end_of_statement] = ACTIONS(5822),
   },
-  [1991] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6024),
-    [aux_sym_preproc_def_token1] = ACTIONS(6024),
-    [aux_sym_preproc_if_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6024),
-    [sym_preproc_directive] = ACTIONS(6024),
-    [anon_sym_LPAREN2] = ACTIONS(6024),
-    [sym_preproc_comment] = ACTIONS(6138),
-    [anon_sym_PLUS] = ACTIONS(6028),
-    [anon_sym_DASH] = ACTIONS(6028),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6024),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6024),
-    [aux_sym_contains_statement_token1] = ACTIONS(6024),
-    [aux_sym_use_statement_token2] = ACTIONS(6024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6024),
-    [aux_sym_save_statement_token1] = ACTIONS(6024),
-    [aux_sym_private_statement_token1] = ACTIONS(6024),
-    [aux_sym_public_statement_token1] = ACTIONS(6024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6024),
-    [anon_sym_SEMI] = ACTIONS(6028),
-    [aux_sym_stop_statement_token1] = ACTIONS(6024),
-    [aux_sym_stop_statement_token2] = ACTIONS(6024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6024),
-    [aux_sym_include_statement_token1] = ACTIONS(6024),
-    [aux_sym_data_statement_token1] = ACTIONS(6024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6024),
-    [aux_sym_block_construct_token1] = ACTIONS(6024),
-    [aux_sym_associate_statement_token1] = ACTIONS(6024),
-    [aux_sym_format_statement_token1] = ACTIONS(6024),
-    [aux_sym_print_statement_token1] = ACTIONS(6024),
-    [aux_sym_open_statement_token1] = ACTIONS(6024),
-    [aux_sym_close_statement_token1] = ACTIONS(6024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6024),
-    [aux_sym_entry_statement_token1] = ACTIONS(6024),
-    [aux_sym_logical_expression_token5] = ACTIONS(6028),
-    [anon_sym_DOT] = ACTIONS(6024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6028),
-    [anon_sym_LBRACK] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6028),
-    [aux_sym_null_literal_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6024),
-    [aux_sym_identifier_token1] = ACTIONS(6024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6028),
-    [sym__float_literal] = ACTIONS(6028),
-    [sym__boz_literal] = ACTIONS(6028),
-    [sym__string_literal] = ACTIONS(6028),
-    [sym__string_literal_kind] = ACTIONS(6028),
+  [1761] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [1992] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6140),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1762] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token2] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [aux_sym_preproc_else_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5630),
-    [aux_sym_contains_statement_token1] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [1993] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6142),
-    [aux_sym_preproc_def_token1] = ACTIONS(6142),
-    [aux_sym_preproc_if_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6142),
-    [sym_preproc_directive] = ACTIONS(6142),
-    [anon_sym_LPAREN2] = ACTIONS(6142),
-    [sym_preproc_comment] = ACTIONS(6144),
-    [anon_sym_PLUS] = ACTIONS(6146),
-    [anon_sym_DASH] = ACTIONS(6146),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6142),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6142),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6142),
-    [aux_sym_contains_statement_token1] = ACTIONS(6142),
-    [aux_sym_use_statement_token2] = ACTIONS(6142),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6142),
-    [aux_sym_save_statement_token1] = ACTIONS(6142),
-    [aux_sym_private_statement_token1] = ACTIONS(6142),
-    [aux_sym_public_statement_token1] = ACTIONS(6142),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6142),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6142),
-    [anon_sym_SEMI] = ACTIONS(6146),
-    [aux_sym_stop_statement_token1] = ACTIONS(6142),
-    [aux_sym_stop_statement_token2] = ACTIONS(6142),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6142),
-    [aux_sym_include_statement_token1] = ACTIONS(6142),
-    [aux_sym_data_statement_token1] = ACTIONS(6142),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6142),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6142),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6142),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6142),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6142),
-    [aux_sym_block_construct_token1] = ACTIONS(6142),
-    [aux_sym_associate_statement_token1] = ACTIONS(6142),
-    [aux_sym_format_statement_token1] = ACTIONS(6142),
-    [aux_sym_print_statement_token1] = ACTIONS(6142),
-    [aux_sym_open_statement_token1] = ACTIONS(6142),
-    [aux_sym_close_statement_token1] = ACTIONS(6142),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6142),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6142),
-    [aux_sym_entry_statement_token1] = ACTIONS(6142),
-    [aux_sym_logical_expression_token5] = ACTIONS(6146),
-    [anon_sym_DOT] = ACTIONS(6142),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6146),
-    [anon_sym_LBRACK] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6146),
-    [aux_sym_null_literal_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6142),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6142),
-    [aux_sym_identifier_token1] = ACTIONS(6142),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6146),
-    [sym__float_literal] = ACTIONS(6146),
-    [sym__boz_literal] = ACTIONS(6146),
-    [sym__string_literal] = ACTIONS(6146),
-    [sym__string_literal_kind] = ACTIONS(6146),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [1994] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6090),
-    [aux_sym_preproc_def_token1] = ACTIONS(6090),
-    [aux_sym_preproc_if_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
-    [sym_preproc_directive] = ACTIONS(6090),
-    [anon_sym_LPAREN2] = ACTIONS(6090),
-    [sym_preproc_comment] = ACTIONS(6148),
-    [anon_sym_PLUS] = ACTIONS(6094),
-    [anon_sym_DASH] = ACTIONS(6094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
-    [aux_sym_contains_statement_token1] = ACTIONS(6090),
-    [aux_sym_use_statement_token2] = ACTIONS(6090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
-    [aux_sym_save_statement_token1] = ACTIONS(6090),
-    [aux_sym_private_statement_token1] = ACTIONS(6090),
-    [aux_sym_public_statement_token1] = ACTIONS(6090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
-    [anon_sym_SEMI] = ACTIONS(6094),
-    [aux_sym_stop_statement_token1] = ACTIONS(6090),
-    [aux_sym_stop_statement_token2] = ACTIONS(6090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
-    [aux_sym_include_statement_token1] = ACTIONS(6090),
-    [aux_sym_data_statement_token1] = ACTIONS(6090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
-    [aux_sym_block_construct_token1] = ACTIONS(6090),
-    [aux_sym_associate_statement_token1] = ACTIONS(6090),
-    [aux_sym_format_statement_token1] = ACTIONS(6090),
-    [aux_sym_print_statement_token1] = ACTIONS(6090),
-    [aux_sym_open_statement_token1] = ACTIONS(6090),
-    [aux_sym_close_statement_token1] = ACTIONS(6090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
-    [aux_sym_entry_statement_token1] = ACTIONS(6090),
-    [aux_sym_logical_expression_token5] = ACTIONS(6094),
-    [anon_sym_DOT] = ACTIONS(6090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
-    [anon_sym_LBRACK] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
-    [aux_sym_null_literal_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
-    [aux_sym_identifier_token1] = ACTIONS(6090),
+  [1763] = {
+    [sym_assignment] = STATE(6085),
+    [sym_operator] = STATE(6085),
+    [sym_defined_io_procedure] = STATE(6085),
+    [sym__generic_procedure] = STATE(6085),
+    [sym_identifier] = STATE(6085),
+    [sym__end_of_statement] = STATE(1571),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(5828),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(5830),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
+    [sym__external_end_of_statement] = ACTIONS(5830),
   },
-  [1995] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6084),
-    [aux_sym_preproc_def_token1] = ACTIONS(6084),
-    [aux_sym_preproc_if_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
-    [sym_preproc_directive] = ACTIONS(6084),
-    [anon_sym_LPAREN2] = ACTIONS(6084),
-    [sym_preproc_comment] = ACTIONS(6150),
-    [anon_sym_PLUS] = ACTIONS(6088),
-    [anon_sym_DASH] = ACTIONS(6088),
+  [1764] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [aux_sym_preproc_else_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5832),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1765] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token2] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [aux_sym_preproc_else_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6084),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
-    [aux_sym_contains_statement_token1] = ACTIONS(6084),
-    [aux_sym_use_statement_token2] = ACTIONS(6084),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
-    [aux_sym_save_statement_token1] = ACTIONS(6084),
-    [aux_sym_private_statement_token1] = ACTIONS(6084),
-    [aux_sym_public_statement_token1] = ACTIONS(6084),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
-    [anon_sym_SEMI] = ACTIONS(6088),
-    [aux_sym_stop_statement_token1] = ACTIONS(6084),
-    [aux_sym_stop_statement_token2] = ACTIONS(6084),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
-    [aux_sym_include_statement_token1] = ACTIONS(6084),
-    [aux_sym_data_statement_token1] = ACTIONS(6084),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
-    [aux_sym_block_construct_token1] = ACTIONS(6084),
-    [aux_sym_associate_statement_token1] = ACTIONS(6084),
-    [aux_sym_format_statement_token1] = ACTIONS(6084),
-    [aux_sym_print_statement_token1] = ACTIONS(6084),
-    [aux_sym_open_statement_token1] = ACTIONS(6084),
-    [aux_sym_close_statement_token1] = ACTIONS(6084),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
-    [aux_sym_entry_statement_token1] = ACTIONS(6084),
-    [aux_sym_logical_expression_token5] = ACTIONS(6088),
-    [anon_sym_DOT] = ACTIONS(6084),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
-    [anon_sym_LBRACK] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
-    [aux_sym_null_literal_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
-    [aux_sym_identifier_token1] = ACTIONS(6084),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6088),
-    [sym__float_literal] = ACTIONS(6088),
-    [sym__boz_literal] = ACTIONS(6088),
-    [sym__string_literal] = ACTIONS(6088),
-    [sym__string_literal_kind] = ACTIONS(6088),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [1996] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6152),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1766] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5836),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [1997] = {
+  [1767] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5838),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1768] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1769] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5840),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1770] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(5842),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -355801,7 +332222,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -355816,11 +332237,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
     [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_where_statement_token1] = ACTIONS(4525),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
@@ -355839,12 +332257,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -355857,1276 +332275,470 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [1998] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6130),
-    [aux_sym_preproc_def_token1] = ACTIONS(6130),
-    [aux_sym_preproc_if_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6130),
-    [sym_preproc_directive] = ACTIONS(6130),
-    [anon_sym_LPAREN2] = ACTIONS(6130),
-    [sym_preproc_comment] = ACTIONS(6154),
-    [anon_sym_PLUS] = ACTIONS(6134),
-    [anon_sym_DASH] = ACTIONS(6134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6130),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6130),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6130),
-    [aux_sym_contains_statement_token1] = ACTIONS(6130),
-    [aux_sym_use_statement_token2] = ACTIONS(6130),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6130),
-    [aux_sym_save_statement_token1] = ACTIONS(6130),
-    [aux_sym_private_statement_token1] = ACTIONS(6130),
-    [aux_sym_public_statement_token1] = ACTIONS(6130),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6130),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6130),
-    [anon_sym_SEMI] = ACTIONS(6134),
-    [aux_sym_stop_statement_token1] = ACTIONS(6130),
-    [aux_sym_stop_statement_token2] = ACTIONS(6130),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6130),
-    [aux_sym_include_statement_token1] = ACTIONS(6130),
-    [aux_sym_data_statement_token1] = ACTIONS(6130),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6130),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6130),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6130),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6130),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6130),
-    [aux_sym_block_construct_token1] = ACTIONS(6130),
-    [aux_sym_associate_statement_token1] = ACTIONS(6130),
-    [aux_sym_format_statement_token1] = ACTIONS(6130),
-    [aux_sym_print_statement_token1] = ACTIONS(6130),
-    [aux_sym_open_statement_token1] = ACTIONS(6130),
-    [aux_sym_close_statement_token1] = ACTIONS(6130),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6130),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6130),
-    [aux_sym_entry_statement_token1] = ACTIONS(6130),
-    [aux_sym_logical_expression_token5] = ACTIONS(6134),
-    [anon_sym_DOT] = ACTIONS(6130),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6134),
-    [anon_sym_LBRACK] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6134),
-    [aux_sym_null_literal_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6130),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6130),
-    [aux_sym_identifier_token1] = ACTIONS(6130),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6134),
-    [sym__float_literal] = ACTIONS(6134),
-    [sym__boz_literal] = ACTIONS(6134),
-    [sym__string_literal] = ACTIONS(6134),
-    [sym__string_literal_kind] = ACTIONS(6134),
-  },
-  [1999] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [sym_preproc_comment] = ACTIONS(6156),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
-  },
-  [2000] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6066),
-    [aux_sym_preproc_def_token1] = ACTIONS(6066),
-    [aux_sym_preproc_if_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6066),
-    [sym_preproc_directive] = ACTIONS(6066),
-    [anon_sym_LPAREN2] = ACTIONS(6066),
-    [sym_preproc_comment] = ACTIONS(6158),
-    [anon_sym_PLUS] = ACTIONS(6070),
-    [anon_sym_DASH] = ACTIONS(6070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6066),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6066),
-    [aux_sym_contains_statement_token1] = ACTIONS(6066),
-    [aux_sym_use_statement_token2] = ACTIONS(6066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6066),
-    [aux_sym_save_statement_token1] = ACTIONS(6066),
-    [aux_sym_private_statement_token1] = ACTIONS(6066),
-    [aux_sym_public_statement_token1] = ACTIONS(6066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6066),
-    [anon_sym_SEMI] = ACTIONS(6070),
-    [aux_sym_stop_statement_token1] = ACTIONS(6066),
-    [aux_sym_stop_statement_token2] = ACTIONS(6066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6066),
-    [aux_sym_include_statement_token1] = ACTIONS(6066),
-    [aux_sym_data_statement_token1] = ACTIONS(6066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6066),
-    [aux_sym_block_construct_token1] = ACTIONS(6066),
-    [aux_sym_associate_statement_token1] = ACTIONS(6066),
-    [aux_sym_format_statement_token1] = ACTIONS(6066),
-    [aux_sym_print_statement_token1] = ACTIONS(6066),
-    [aux_sym_open_statement_token1] = ACTIONS(6066),
-    [aux_sym_close_statement_token1] = ACTIONS(6066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6066),
-    [aux_sym_entry_statement_token1] = ACTIONS(6066),
-    [aux_sym_logical_expression_token5] = ACTIONS(6070),
-    [anon_sym_DOT] = ACTIONS(6066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6070),
-    [anon_sym_LBRACK] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6070),
-    [aux_sym_null_literal_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6066),
-    [aux_sym_identifier_token1] = ACTIONS(6066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6070),
-    [sym__float_literal] = ACTIONS(6070),
-    [sym__boz_literal] = ACTIONS(6070),
-    [sym__string_literal] = ACTIONS(6070),
-    [sym__string_literal_kind] = ACTIONS(6070),
-  },
-  [2001] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [sym_preproc_comment] = ACTIONS(6160),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
-  },
-  [2002] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [sym_preproc_comment] = ACTIONS(6162),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
-  },
-  [2003] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6164),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2004] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6166),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_contains_statement_token1] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
-  },
-  [2005] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6168),
-    [aux_sym_preproc_def_token1] = ACTIONS(6168),
-    [aux_sym_preproc_if_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6168),
-    [sym_preproc_directive] = ACTIONS(6168),
-    [anon_sym_LPAREN2] = ACTIONS(6168),
-    [sym_preproc_comment] = ACTIONS(6170),
-    [anon_sym_PLUS] = ACTIONS(6172),
-    [anon_sym_DASH] = ACTIONS(6172),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6168),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6168),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6168),
-    [aux_sym_contains_statement_token1] = ACTIONS(6168),
-    [aux_sym_use_statement_token2] = ACTIONS(6168),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6168),
-    [aux_sym_save_statement_token1] = ACTIONS(6168),
-    [aux_sym_private_statement_token1] = ACTIONS(6168),
-    [aux_sym_public_statement_token1] = ACTIONS(6168),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6168),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6168),
-    [anon_sym_SEMI] = ACTIONS(6172),
-    [aux_sym_stop_statement_token1] = ACTIONS(6168),
-    [aux_sym_stop_statement_token2] = ACTIONS(6168),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6168),
-    [aux_sym_include_statement_token1] = ACTIONS(6168),
-    [aux_sym_data_statement_token1] = ACTIONS(6168),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6168),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6168),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6168),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6168),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6168),
-    [aux_sym_block_construct_token1] = ACTIONS(6168),
-    [aux_sym_associate_statement_token1] = ACTIONS(6168),
-    [aux_sym_format_statement_token1] = ACTIONS(6168),
-    [aux_sym_print_statement_token1] = ACTIONS(6168),
-    [aux_sym_open_statement_token1] = ACTIONS(6168),
-    [aux_sym_close_statement_token1] = ACTIONS(6168),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6168),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6168),
-    [aux_sym_entry_statement_token1] = ACTIONS(6168),
-    [aux_sym_logical_expression_token5] = ACTIONS(6172),
-    [anon_sym_DOT] = ACTIONS(6168),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6172),
-    [anon_sym_LBRACK] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6172),
-    [aux_sym_null_literal_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6168),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6168),
-    [aux_sym_identifier_token1] = ACTIONS(6168),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6172),
-    [sym__float_literal] = ACTIONS(6172),
-    [sym__boz_literal] = ACTIONS(6172),
-    [sym__string_literal] = ACTIONS(6172),
-    [sym__string_literal_kind] = ACTIONS(6172),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2006] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [sym_preproc_comment] = ACTIONS(6176),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
+  [1771] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5844),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2007] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5002),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1772] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(5846),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2008] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [sym_preproc_comment] = ACTIONS(6180),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
+  [1773] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [aux_sym_preproc_else_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5848),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2009] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5026),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1774] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [aux_sym_preproc_else_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5850),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2010] = {
-    [sym__expression] = STATE(4481),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7491),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7491),
-    [sym_multiple_subscript] = STATE(7491),
-    [sym_multiple_subscript_triplet] = STATE(7491),
-    [sym_assumed_size] = STATE(7491),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [1775] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(8435),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
     [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
     [aux_sym_implicit_statement_token4] = ACTIONS(97),
     [aux_sym_save_statement_token1] = ACTIONS(97),
     [aux_sym_private_statement_token1] = ACTIONS(97),
@@ -357136,9 +332748,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_variable_attributes_token2] = ACTIONS(97),
     [aux_sym_variable_attributes_token3] = ACTIONS(97),
     [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
@@ -357164,10 +332783,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_AT] = ACTIONS(5920),
-    [sym_assumed_rank] = ACTIONS(6182),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
@@ -357183,434 +332800,29 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2011] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6184),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2012] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5068),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
-  },
-  [2013] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5100),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2014] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6142),
-    [aux_sym_preproc_def_token1] = ACTIONS(6142),
-    [aux_sym_preproc_if_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6142),
-    [sym_preproc_directive] = ACTIONS(6142),
-    [anon_sym_LPAREN2] = ACTIONS(6142),
-    [sym_preproc_comment] = ACTIONS(6186),
-    [anon_sym_PLUS] = ACTIONS(6146),
-    [anon_sym_DASH] = ACTIONS(6146),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6142),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6142),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6142),
-    [aux_sym_contains_statement_token1] = ACTIONS(6142),
-    [aux_sym_use_statement_token2] = ACTIONS(6142),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6142),
-    [aux_sym_save_statement_token1] = ACTIONS(6142),
-    [aux_sym_private_statement_token1] = ACTIONS(6142),
-    [aux_sym_public_statement_token1] = ACTIONS(6142),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6142),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6142),
-    [anon_sym_SEMI] = ACTIONS(6146),
-    [aux_sym_stop_statement_token1] = ACTIONS(6142),
-    [aux_sym_stop_statement_token2] = ACTIONS(6142),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6142),
-    [aux_sym_include_statement_token1] = ACTIONS(6142),
-    [aux_sym_data_statement_token1] = ACTIONS(6142),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6142),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6142),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6142),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6142),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6142),
-    [aux_sym_block_construct_token1] = ACTIONS(6142),
-    [aux_sym_associate_statement_token1] = ACTIONS(6142),
-    [aux_sym_format_statement_token1] = ACTIONS(6142),
-    [aux_sym_print_statement_token1] = ACTIONS(6142),
-    [aux_sym_open_statement_token1] = ACTIONS(6142),
-    [aux_sym_close_statement_token1] = ACTIONS(6142),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6142),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6142),
-    [aux_sym_entry_statement_token1] = ACTIONS(6142),
-    [aux_sym_logical_expression_token5] = ACTIONS(6146),
-    [anon_sym_DOT] = ACTIONS(6142),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6146),
-    [anon_sym_LBRACK] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6146),
-    [aux_sym_null_literal_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6142),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6142),
-    [aux_sym_identifier_token1] = ACTIONS(6142),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6146),
-    [sym__float_literal] = ACTIONS(6146),
-    [sym__boz_literal] = ACTIONS(6146),
-    [sym__string_literal] = ACTIONS(6146),
-    [sym__string_literal_kind] = ACTIONS(6146),
-  },
-  [2015] = {
+  [1776] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6188),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
@@ -357640,7 +332852,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -357675,12 +332887,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -357693,13 +332905,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2016] = {
+  [1777] = {
     [aux_sym_preproc_include_token1] = ACTIONS(2079),
     [aux_sym_preproc_def_token1] = ACTIONS(2079),
     [aux_sym_preproc_if_token1] = ACTIONS(2079),
@@ -357707,14 +332919,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
     [sym_preproc_directive] = ACTIONS(2079),
     [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
     [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
     [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token3] = ACTIONS(2079),
     [aux_sym_implicit_statement_token4] = ACTIONS(2079),
     [aux_sym_save_statement_token1] = ACTIONS(2079),
     [aux_sym_private_statement_token1] = ACTIONS(2079),
@@ -357727,6 +332940,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
     [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
     [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym_derived_type_token1] = ACTIONS(2079),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
@@ -357739,7 +332953,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
     [aux_sym_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
+    [anon_sym_SEMI] = ACTIONS(5708),
     [aux_sym_stop_statement_token1] = ACTIONS(2079),
     [aux_sym_stop_statement_token2] = ACTIONS(2079),
     [aux_sym_subroutine_call_token1] = ACTIONS(2079),
@@ -357754,16 +332968,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
     [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
     [aux_sym_elseif_clause_token2] = ACTIONS(2079),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_where_statement_token1] = ACTIONS(2079),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(2079),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
     [aux_sym_select_case_statement_token1] = ACTIONS(2079),
     [aux_sym_select_case_statement_token3] = ACTIONS(2079),
     [aux_sym_select_type_statement_token1] = ACTIONS(2079),
     [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_type_statement_token2] = ACTIONS(2079),
+    [aux_sym_type_statement_token3] = ACTIONS(2079),
+    [aux_sym__class_default_token1] = ACTIONS(2079),
     [aux_sym_block_construct_token1] = ACTIONS(2079),
     [aux_sym_associate_statement_token1] = ACTIONS(2079),
     [aux_sym_format_statement_token1] = ACTIONS(2079),
@@ -357777,12 +332992,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(2079),
     [aux_sym_allocate_statement_token1] = ACTIONS(2079),
     [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
     [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
     [aux_sym_null_literal_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token2] = ACTIONS(2079),
@@ -357795,1561 +333010,449 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
-  },
-  [2017] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5828),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
-  },
-  [2018] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6066),
-    [aux_sym_preproc_def_token1] = ACTIONS(6066),
-    [aux_sym_preproc_if_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6066),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6066),
-    [sym_preproc_directive] = ACTIONS(6066),
-    [anon_sym_LPAREN2] = ACTIONS(6066),
-    [sym_preproc_comment] = ACTIONS(6190),
-    [anon_sym_PLUS] = ACTIONS(6070),
-    [anon_sym_DASH] = ACTIONS(6070),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6066),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6066),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6066),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6066),
-    [aux_sym_contains_statement_token1] = ACTIONS(6066),
-    [aux_sym_use_statement_token2] = ACTIONS(6066),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6066),
-    [aux_sym_save_statement_token1] = ACTIONS(6066),
-    [aux_sym_private_statement_token1] = ACTIONS(6066),
-    [aux_sym_public_statement_token1] = ACTIONS(6066),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6066),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6066),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6066),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6066),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6066),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6066),
-    [anon_sym_SEMI] = ACTIONS(6070),
-    [aux_sym_stop_statement_token1] = ACTIONS(6066),
-    [aux_sym_stop_statement_token2] = ACTIONS(6066),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6066),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6066),
-    [aux_sym_include_statement_token1] = ACTIONS(6066),
-    [aux_sym_data_statement_token1] = ACTIONS(6066),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6066),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6066),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6066),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6066),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6066),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6066),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6066),
-    [aux_sym_block_construct_token1] = ACTIONS(6066),
-    [aux_sym_associate_statement_token1] = ACTIONS(6066),
-    [aux_sym_format_statement_token1] = ACTIONS(6066),
-    [aux_sym_print_statement_token1] = ACTIONS(6066),
-    [aux_sym_open_statement_token1] = ACTIONS(6066),
-    [aux_sym_close_statement_token1] = ACTIONS(6066),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6066),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6066),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6066),
-    [aux_sym_entry_statement_token1] = ACTIONS(6066),
-    [aux_sym_logical_expression_token5] = ACTIONS(6070),
-    [anon_sym_DOT] = ACTIONS(6066),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6070),
-    [anon_sym_LBRACK] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6070),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6070),
-    [aux_sym_null_literal_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6066),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6066),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6066),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6066),
-    [aux_sym_identifier_token1] = ACTIONS(6066),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6070),
-    [sym__float_literal] = ACTIONS(6070),
-    [sym__boz_literal] = ACTIONS(6070),
-    [sym__string_literal] = ACTIONS(6070),
-    [sym__string_literal_kind] = ACTIONS(6070),
-  },
-  [2019] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6192),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_contains_statement_token1] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [2020] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6168),
-    [aux_sym_preproc_def_token1] = ACTIONS(6168),
-    [aux_sym_preproc_if_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6168),
-    [sym_preproc_directive] = ACTIONS(6168),
-    [anon_sym_LPAREN2] = ACTIONS(6168),
-    [sym_preproc_comment] = ACTIONS(6194),
-    [anon_sym_PLUS] = ACTIONS(6172),
-    [anon_sym_DASH] = ACTIONS(6172),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6168),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6168),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6168),
-    [aux_sym_contains_statement_token1] = ACTIONS(6168),
-    [aux_sym_use_statement_token2] = ACTIONS(6168),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6168),
-    [aux_sym_save_statement_token1] = ACTIONS(6168),
-    [aux_sym_private_statement_token1] = ACTIONS(6168),
-    [aux_sym_public_statement_token1] = ACTIONS(6168),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6168),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6168),
-    [anon_sym_SEMI] = ACTIONS(6172),
-    [aux_sym_stop_statement_token1] = ACTIONS(6168),
-    [aux_sym_stop_statement_token2] = ACTIONS(6168),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6168),
-    [aux_sym_include_statement_token1] = ACTIONS(6168),
-    [aux_sym_data_statement_token1] = ACTIONS(6168),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6168),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6168),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6168),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6168),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6168),
-    [aux_sym_block_construct_token1] = ACTIONS(6168),
-    [aux_sym_associate_statement_token1] = ACTIONS(6168),
-    [aux_sym_format_statement_token1] = ACTIONS(6168),
-    [aux_sym_print_statement_token1] = ACTIONS(6168),
-    [aux_sym_open_statement_token1] = ACTIONS(6168),
-    [aux_sym_close_statement_token1] = ACTIONS(6168),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6168),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6168),
-    [aux_sym_entry_statement_token1] = ACTIONS(6168),
-    [aux_sym_logical_expression_token5] = ACTIONS(6172),
-    [anon_sym_DOT] = ACTIONS(6168),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6172),
-    [anon_sym_LBRACK] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6172),
-    [aux_sym_null_literal_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6168),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6168),
-    [aux_sym_identifier_token1] = ACTIONS(6168),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6172),
-    [sym__float_literal] = ACTIONS(6172),
-    [sym__boz_literal] = ACTIONS(6172),
-    [sym__string_literal] = ACTIONS(6172),
-    [sym__string_literal_kind] = ACTIONS(6172),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2021] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6106),
-    [aux_sym_preproc_def_token1] = ACTIONS(6106),
-    [aux_sym_preproc_if_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6106),
-    [sym_preproc_directive] = ACTIONS(6106),
-    [anon_sym_LPAREN2] = ACTIONS(6106),
-    [sym_preproc_comment] = ACTIONS(6196),
-    [anon_sym_PLUS] = ACTIONS(6110),
-    [anon_sym_DASH] = ACTIONS(6110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6106),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6106),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6106),
-    [aux_sym_contains_statement_token1] = ACTIONS(6106),
-    [aux_sym_use_statement_token2] = ACTIONS(6106),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6106),
-    [aux_sym_save_statement_token1] = ACTIONS(6106),
-    [aux_sym_private_statement_token1] = ACTIONS(6106),
-    [aux_sym_public_statement_token1] = ACTIONS(6106),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6106),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6106),
-    [anon_sym_SEMI] = ACTIONS(6110),
-    [aux_sym_stop_statement_token1] = ACTIONS(6106),
-    [aux_sym_stop_statement_token2] = ACTIONS(6106),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6106),
-    [aux_sym_include_statement_token1] = ACTIONS(6106),
-    [aux_sym_data_statement_token1] = ACTIONS(6106),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6106),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6106),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6106),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6106),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6106),
-    [aux_sym_block_construct_token1] = ACTIONS(6106),
-    [aux_sym_associate_statement_token1] = ACTIONS(6106),
-    [aux_sym_format_statement_token1] = ACTIONS(6106),
-    [aux_sym_print_statement_token1] = ACTIONS(6106),
-    [aux_sym_open_statement_token1] = ACTIONS(6106),
-    [aux_sym_close_statement_token1] = ACTIONS(6106),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6106),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6106),
-    [aux_sym_entry_statement_token1] = ACTIONS(6106),
-    [aux_sym_logical_expression_token5] = ACTIONS(6110),
-    [anon_sym_DOT] = ACTIONS(6106),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6110),
-    [anon_sym_LBRACK] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6110),
-    [aux_sym_null_literal_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6106),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6106),
-    [aux_sym_identifier_token1] = ACTIONS(6106),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6110),
-    [sym__float_literal] = ACTIONS(6110),
-    [sym__boz_literal] = ACTIONS(6110),
-    [sym__string_literal] = ACTIONS(6110),
-    [sym__string_literal_kind] = ACTIONS(6110),
-  },
-  [2022] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6198),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1778] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(8432),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_contains_statement_token1] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [2023] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [sym_preproc_comment] = ACTIONS(6200),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
-  },
-  [2024] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6112),
-    [aux_sym_preproc_def_token1] = ACTIONS(6112),
-    [aux_sym_preproc_if_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6112),
-    [sym_preproc_directive] = ACTIONS(6112),
-    [anon_sym_LPAREN2] = ACTIONS(6112),
-    [sym_preproc_comment] = ACTIONS(6202),
-    [anon_sym_PLUS] = ACTIONS(6116),
-    [anon_sym_DASH] = ACTIONS(6116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6112),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6112),
-    [aux_sym_contains_statement_token1] = ACTIONS(6112),
-    [aux_sym_use_statement_token2] = ACTIONS(6112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6112),
-    [aux_sym_save_statement_token1] = ACTIONS(6112),
-    [aux_sym_private_statement_token1] = ACTIONS(6112),
-    [aux_sym_public_statement_token1] = ACTIONS(6112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6112),
-    [anon_sym_SEMI] = ACTIONS(6116),
-    [aux_sym_stop_statement_token1] = ACTIONS(6112),
-    [aux_sym_stop_statement_token2] = ACTIONS(6112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6112),
-    [aux_sym_include_statement_token1] = ACTIONS(6112),
-    [aux_sym_data_statement_token1] = ACTIONS(6112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6112),
-    [aux_sym_block_construct_token1] = ACTIONS(6112),
-    [aux_sym_associate_statement_token1] = ACTIONS(6112),
-    [aux_sym_format_statement_token1] = ACTIONS(6112),
-    [aux_sym_print_statement_token1] = ACTIONS(6112),
-    [aux_sym_open_statement_token1] = ACTIONS(6112),
-    [aux_sym_close_statement_token1] = ACTIONS(6112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6112),
-    [aux_sym_entry_statement_token1] = ACTIONS(6112),
-    [aux_sym_logical_expression_token5] = ACTIONS(6116),
-    [anon_sym_DOT] = ACTIONS(6112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6116),
-    [anon_sym_LBRACK] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6116),
-    [aux_sym_null_literal_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6112),
-    [aux_sym_identifier_token1] = ACTIONS(6112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6116),
-    [sym__float_literal] = ACTIONS(6116),
-    [sym__boz_literal] = ACTIONS(6116),
-    [sym__string_literal] = ACTIONS(6116),
-    [sym__string_literal_kind] = ACTIONS(6116),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2025] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [sym_preproc_comment] = ACTIONS(6204),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
+  [1779] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym_derived_type_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5750),
+    [aux_sym_type_statement_token2] = ACTIONS(5750),
+    [aux_sym_type_statement_token3] = ACTIONS(5750),
+    [aux_sym__class_default_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2026] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token2] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [1780] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(7927),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [2027] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6206),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_contains_statement_token1] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
-  },
-  [2028] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6118),
-    [aux_sym_preproc_def_token1] = ACTIONS(6118),
-    [aux_sym_preproc_if_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6118),
-    [sym_preproc_directive] = ACTIONS(6118),
-    [anon_sym_LPAREN2] = ACTIONS(6118),
-    [sym_preproc_comment] = ACTIONS(6208),
-    [anon_sym_PLUS] = ACTIONS(6122),
-    [anon_sym_DASH] = ACTIONS(6122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6118),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6118),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6118),
-    [aux_sym_contains_statement_token1] = ACTIONS(6118),
-    [aux_sym_use_statement_token2] = ACTIONS(6118),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6118),
-    [aux_sym_save_statement_token1] = ACTIONS(6118),
-    [aux_sym_private_statement_token1] = ACTIONS(6118),
-    [aux_sym_public_statement_token1] = ACTIONS(6118),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6118),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6118),
-    [anon_sym_SEMI] = ACTIONS(6122),
-    [aux_sym_stop_statement_token1] = ACTIONS(6118),
-    [aux_sym_stop_statement_token2] = ACTIONS(6118),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6118),
-    [aux_sym_include_statement_token1] = ACTIONS(6118),
-    [aux_sym_data_statement_token1] = ACTIONS(6118),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6118),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6118),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6118),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6118),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6118),
-    [aux_sym_block_construct_token1] = ACTIONS(6118),
-    [aux_sym_associate_statement_token1] = ACTIONS(6118),
-    [aux_sym_format_statement_token1] = ACTIONS(6118),
-    [aux_sym_print_statement_token1] = ACTIONS(6118),
-    [aux_sym_open_statement_token1] = ACTIONS(6118),
-    [aux_sym_close_statement_token1] = ACTIONS(6118),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6118),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6118),
-    [aux_sym_entry_statement_token1] = ACTIONS(6118),
-    [aux_sym_logical_expression_token5] = ACTIONS(6122),
-    [anon_sym_DOT] = ACTIONS(6118),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6122),
-    [anon_sym_LBRACK] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6122),
-    [aux_sym_null_literal_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6118),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6118),
-    [aux_sym_identifier_token1] = ACTIONS(6118),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6122),
-    [sym__float_literal] = ACTIONS(6122),
-    [sym__boz_literal] = ACTIONS(6122),
-    [sym__string_literal] = ACTIONS(6122),
-    [sym__string_literal_kind] = ACTIONS(6122),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2029] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6210),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1781] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(7940),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [2030] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6130),
-    [aux_sym_preproc_def_token1] = ACTIONS(6130),
-    [aux_sym_preproc_if_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6130),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6130),
-    [sym_preproc_directive] = ACTIONS(6130),
-    [anon_sym_LPAREN2] = ACTIONS(6130),
-    [sym_preproc_comment] = ACTIONS(6212),
-    [anon_sym_PLUS] = ACTIONS(6134),
-    [anon_sym_DASH] = ACTIONS(6134),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6130),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6130),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6130),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6130),
-    [aux_sym_contains_statement_token1] = ACTIONS(6130),
-    [aux_sym_use_statement_token2] = ACTIONS(6130),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6130),
-    [aux_sym_save_statement_token1] = ACTIONS(6130),
-    [aux_sym_private_statement_token1] = ACTIONS(6130),
-    [aux_sym_public_statement_token1] = ACTIONS(6130),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6130),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6130),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6130),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6130),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6130),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6130),
-    [anon_sym_SEMI] = ACTIONS(6134),
-    [aux_sym_stop_statement_token1] = ACTIONS(6130),
-    [aux_sym_stop_statement_token2] = ACTIONS(6130),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6130),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6130),
-    [aux_sym_include_statement_token1] = ACTIONS(6130),
-    [aux_sym_data_statement_token1] = ACTIONS(6130),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6130),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6130),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6130),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6130),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6130),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6130),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6130),
-    [aux_sym_block_construct_token1] = ACTIONS(6130),
-    [aux_sym_associate_statement_token1] = ACTIONS(6130),
-    [aux_sym_format_statement_token1] = ACTIONS(6130),
-    [aux_sym_print_statement_token1] = ACTIONS(6130),
-    [aux_sym_open_statement_token1] = ACTIONS(6130),
-    [aux_sym_close_statement_token1] = ACTIONS(6130),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6130),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6130),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6130),
-    [aux_sym_entry_statement_token1] = ACTIONS(6130),
-    [aux_sym_logical_expression_token5] = ACTIONS(6134),
-    [anon_sym_DOT] = ACTIONS(6130),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6134),
-    [anon_sym_LBRACK] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6134),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6134),
-    [aux_sym_null_literal_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6130),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6130),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6130),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6130),
-    [aux_sym_identifier_token1] = ACTIONS(6130),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6134),
-    [sym__float_literal] = ACTIONS(6134),
-    [sym__boz_literal] = ACTIONS(6134),
-    [sym__string_literal] = ACTIONS(6134),
-    [sym__string_literal_kind] = ACTIONS(6134),
-  },
-  [2031] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [sym_preproc_comment] = ACTIONS(6214),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2032] = {
+  [1782] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6216),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
     [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4317),
     [aux_sym_implicit_statement_token4] = ACTIONS(4317),
     [aux_sym_save_statement_token1] = ACTIONS(4317),
     [aux_sym_private_statement_token1] = ACTIONS(4317),
@@ -359362,6 +333465,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
     [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym_derived_type_token1] = ACTIONS(4317),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
@@ -359374,7 +333478,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -359396,6 +333500,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
     [aux_sym_select_type_statement_token1] = ACTIONS(4317),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
+    [aux_sym_type_statement_token2] = ACTIONS(4317),
+    [aux_sym_type_statement_token3] = ACTIONS(4317),
+    [aux_sym__class_default_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
@@ -359409,12 +333517,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -359427,434 +333535,239 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2033] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2034] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6218),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2035] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6078),
-    [aux_sym_preproc_def_token1] = ACTIONS(6078),
-    [aux_sym_preproc_if_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6078),
-    [sym_preproc_directive] = ACTIONS(6078),
-    [anon_sym_LPAREN2] = ACTIONS(6078),
-    [sym_preproc_comment] = ACTIONS(6220),
-    [anon_sym_PLUS] = ACTIONS(6082),
-    [anon_sym_DASH] = ACTIONS(6082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6078),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6078),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6078),
-    [aux_sym_contains_statement_token1] = ACTIONS(6078),
-    [aux_sym_use_statement_token2] = ACTIONS(6078),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6078),
-    [aux_sym_save_statement_token1] = ACTIONS(6078),
-    [aux_sym_private_statement_token1] = ACTIONS(6078),
-    [aux_sym_public_statement_token1] = ACTIONS(6078),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6078),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6078),
-    [anon_sym_SEMI] = ACTIONS(6082),
-    [aux_sym_stop_statement_token1] = ACTIONS(6078),
-    [aux_sym_stop_statement_token2] = ACTIONS(6078),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6078),
-    [aux_sym_include_statement_token1] = ACTIONS(6078),
-    [aux_sym_data_statement_token1] = ACTIONS(6078),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6078),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6078),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6078),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6078),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6078),
-    [aux_sym_block_construct_token1] = ACTIONS(6078),
-    [aux_sym_associate_statement_token1] = ACTIONS(6078),
-    [aux_sym_format_statement_token1] = ACTIONS(6078),
-    [aux_sym_print_statement_token1] = ACTIONS(6078),
-    [aux_sym_open_statement_token1] = ACTIONS(6078),
-    [aux_sym_close_statement_token1] = ACTIONS(6078),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6078),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6078),
-    [aux_sym_entry_statement_token1] = ACTIONS(6078),
-    [aux_sym_logical_expression_token5] = ACTIONS(6082),
-    [anon_sym_DOT] = ACTIONS(6078),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6082),
-    [anon_sym_LBRACK] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6082),
-    [aux_sym_null_literal_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6078),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6078),
-    [aux_sym_identifier_token1] = ACTIONS(6078),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6082),
-    [sym__float_literal] = ACTIONS(6082),
-    [sym__boz_literal] = ACTIONS(6082),
-    [sym__string_literal] = ACTIONS(6082),
-    [sym__string_literal_kind] = ACTIONS(6082),
+  [1783] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym_derived_type_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_type_statement_token2] = ACTIONS(4369),
+    [aux_sym_type_statement_token3] = ACTIONS(4369),
+    [aux_sym__class_default_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2036] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6084),
-    [aux_sym_preproc_def_token1] = ACTIONS(6084),
-    [aux_sym_preproc_if_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
-    [sym_preproc_directive] = ACTIONS(6084),
-    [anon_sym_LPAREN2] = ACTIONS(6084),
-    [sym_preproc_comment] = ACTIONS(6222),
-    [anon_sym_PLUS] = ACTIONS(6088),
-    [anon_sym_DASH] = ACTIONS(6088),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6084),
-    [aux_sym_contains_statement_token1] = ACTIONS(6084),
-    [aux_sym_use_statement_token2] = ACTIONS(6084),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
-    [aux_sym_save_statement_token1] = ACTIONS(6084),
-    [aux_sym_private_statement_token1] = ACTIONS(6084),
-    [aux_sym_public_statement_token1] = ACTIONS(6084),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
-    [anon_sym_SEMI] = ACTIONS(6088),
-    [aux_sym_stop_statement_token1] = ACTIONS(6084),
-    [aux_sym_stop_statement_token2] = ACTIONS(6084),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
-    [aux_sym_include_statement_token1] = ACTIONS(6084),
-    [aux_sym_data_statement_token1] = ACTIONS(6084),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
-    [aux_sym_block_construct_token1] = ACTIONS(6084),
-    [aux_sym_associate_statement_token1] = ACTIONS(6084),
-    [aux_sym_format_statement_token1] = ACTIONS(6084),
-    [aux_sym_print_statement_token1] = ACTIONS(6084),
-    [aux_sym_open_statement_token1] = ACTIONS(6084),
-    [aux_sym_close_statement_token1] = ACTIONS(6084),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
-    [aux_sym_entry_statement_token1] = ACTIONS(6084),
-    [aux_sym_logical_expression_token5] = ACTIONS(6088),
-    [anon_sym_DOT] = ACTIONS(6084),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
-    [anon_sym_LBRACK] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
-    [aux_sym_null_literal_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
-    [aux_sym_identifier_token1] = ACTIONS(6084),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6088),
-    [sym__float_literal] = ACTIONS(6088),
-    [sym__boz_literal] = ACTIONS(6088),
-    [sym__string_literal] = ACTIONS(6088),
-    [sym__string_literal_kind] = ACTIONS(6088),
+  [1784] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2037] = {
+  [1785] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
@@ -359884,7 +333797,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -359919,12 +333832,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -359937,217 +333850,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2038] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2039] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6224),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1786] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(7831),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_contains_statement_token1] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2040] = {
+  [1787] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -360155,17 +333969,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6226),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
     [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4525),
     [aux_sym_implicit_statement_token4] = ACTIONS(4525),
     [aux_sym_save_statement_token1] = ACTIONS(4525),
     [aux_sym_private_statement_token1] = ACTIONS(4525),
@@ -360178,6 +333990,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
     [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
     [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym_derived_type_token1] = ACTIONS(4525),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
@@ -360190,7 +334003,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -360212,6 +334025,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
+    [aux_sym_type_statement_token2] = ACTIONS(4525),
+    [aux_sym_type_statement_token3] = ACTIONS(4525),
+    [aux_sym__class_default_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -360225,12 +334042,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -360243,540 +334060,138 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2041] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6228),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2042] = {
-    [sym__intrinsic_type] = STATE(6038),
-    [sym_intrinsic_type] = STATE(8635),
-    [sym_sized_allocation] = STATE(6121),
-    [sym_coarray_allocation] = STATE(6816),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(4866),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4733),
+  [1788] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(7816),
+    [sym_derived_type] = STATE(7816),
+    [sym__expression] = STATE(4426),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym__type_spec] = STATE(2925),
+    [sym__ac_value_list] = STATE(7784),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6230),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6232),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6232),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6232),
-    [aux_sym_use_statement_token2] = ACTIONS(6232),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6232),
-    [aux_sym_save_statement_token1] = ACTIONS(6232),
-    [aux_sym_private_statement_token1] = ACTIONS(6232),
-    [aux_sym_public_statement_token1] = ACTIONS(6232),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6232),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6232),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6234),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5854),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5856),
     [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6234),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6236),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5856),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
     [aux_sym__intrinsic_type_token6] = ACTIONS(77),
     [aux_sym__intrinsic_type_token7] = ACTIONS(77),
     [aux_sym__intrinsic_type_token8] = ACTIONS(81),
     [aux_sym__intrinsic_type_token9] = ACTIONS(77),
     [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6238),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6238),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6232),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6232),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6232),
-    [aux_sym_stop_statement_token1] = ACTIONS(6232),
-    [aux_sym_stop_statement_token2] = ACTIONS(6232),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6232),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6232),
-    [aux_sym_data_statement_token1] = ACTIONS(6232),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6232),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6232),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6232),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6240),
-    [aux_sym_block_construct_token1] = ACTIONS(6232),
-    [aux_sym_format_statement_token1] = ACTIONS(6232),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6232),
-    [aux_sym_entry_statement_token1] = ACTIONS(6232),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_derived_type_token1] = ACTIONS(83),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(6242),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6232),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6232),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6232),
-    [aux_sym_identifier_token1] = ACTIONS(6232),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2043] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6244),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2044] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6246),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2045] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6248),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2046] = {
+  [1789] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5618),
     [aux_sym_preproc_def_token1] = ACTIONS(5618),
     [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [aux_sym_preproc_else_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5618),
     [sym_preproc_directive] = ACTIONS(5618),
     [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6250),
+    [sym_preproc_comment] = ACTIONS(5862),
     [anon_sym_PLUS] = ACTIONS(5622),
     [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
     [aux_sym_use_statement_token2] = ACTIONS(5618),
     [aux_sym_implicit_statement_token4] = ACTIONS(5618),
     [aux_sym_save_statement_token1] = ACTIONS(5618),
@@ -360861,415 +334276,532 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5622),
     [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2047] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [1790] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym_derived_type_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_type_statement_token2] = ACTIONS(4619),
+    [aux_sym_type_statement_token3] = ACTIONS(4619),
+    [aux_sym__class_default_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2048] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6252),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_contains_statement_token1] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1791] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym_derived_type_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_type_statement_token2] = ACTIONS(5020),
+    [aux_sym_type_statement_token3] = ACTIONS(5020),
+    [aux_sym__class_default_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2049] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1792] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [aux_sym_preproc_else_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5864),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2050] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1793] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym_derived_type_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_type_statement_token2] = ACTIONS(5010),
+    [aux_sym_type_statement_token3] = ACTIONS(5010),
+    [aux_sym__class_default_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2051] = {
+  [1794] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym_derived_type_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
+    [aux_sym_type_statement_token2] = ACTIONS(5824),
+    [aux_sym_type_statement_token3] = ACTIONS(5824),
+    [aux_sym__class_default_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
+  },
+  [1795] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
@@ -361285,6 +334817,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
     [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5726),
     [aux_sym_implicit_statement_token4] = ACTIONS(5726),
     [aux_sym_save_statement_token1] = ACTIONS(5726),
     [aux_sym_private_statement_token1] = ACTIONS(5726),
@@ -361297,6 +334830,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym_derived_type_token1] = ACTIONS(5726),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
@@ -361324,16 +334858,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
     [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5726),
     [aux_sym_elseif_clause_token2] = ACTIONS(5726),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_where_statement_token1] = ACTIONS(5726),
-    [aux_sym_elsewhere_clause_token1] = ACTIONS(5726),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
     [aux_sym_select_case_statement_token1] = ACTIONS(5726),
     [aux_sym_select_case_statement_token3] = ACTIONS(5726),
     [aux_sym_select_type_statement_token1] = ACTIONS(5726),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
+    [aux_sym_type_statement_token2] = ACTIONS(5726),
+    [aux_sym_type_statement_token3] = ACTIONS(5726),
+    [aux_sym__class_default_token1] = ACTIONS(5726),
     [aux_sym_block_construct_token1] = ACTIONS(5726),
     [aux_sym_associate_statement_token1] = ACTIONS(5726),
     [aux_sym_format_statement_token1] = ACTIONS(5726),
@@ -361371,1040 +334906,1388 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2052] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6254),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [1796] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [aux_sym_preproc_else_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(5866),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_contains_statement_token1] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2053] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6106),
-    [aux_sym_preproc_def_token1] = ACTIONS(6106),
-    [aux_sym_preproc_if_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6106),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6106),
-    [sym_preproc_directive] = ACTIONS(6106),
-    [anon_sym_LPAREN2] = ACTIONS(6106),
-    [sym_preproc_comment] = ACTIONS(6256),
-    [anon_sym_PLUS] = ACTIONS(6110),
-    [anon_sym_DASH] = ACTIONS(6110),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6106),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6106),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6106),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6106),
-    [aux_sym_contains_statement_token1] = ACTIONS(6106),
-    [aux_sym_use_statement_token2] = ACTIONS(6106),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6106),
-    [aux_sym_save_statement_token1] = ACTIONS(6106),
-    [aux_sym_private_statement_token1] = ACTIONS(6106),
-    [aux_sym_public_statement_token1] = ACTIONS(6106),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6106),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6106),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6106),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6106),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6106),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6106),
-    [anon_sym_SEMI] = ACTIONS(6110),
-    [aux_sym_stop_statement_token1] = ACTIONS(6106),
-    [aux_sym_stop_statement_token2] = ACTIONS(6106),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6106),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6106),
-    [aux_sym_include_statement_token1] = ACTIONS(6106),
-    [aux_sym_data_statement_token1] = ACTIONS(6106),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6106),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6106),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6106),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6106),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6106),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6106),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6106),
-    [aux_sym_block_construct_token1] = ACTIONS(6106),
-    [aux_sym_associate_statement_token1] = ACTIONS(6106),
-    [aux_sym_format_statement_token1] = ACTIONS(6106),
-    [aux_sym_print_statement_token1] = ACTIONS(6106),
-    [aux_sym_open_statement_token1] = ACTIONS(6106),
-    [aux_sym_close_statement_token1] = ACTIONS(6106),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6106),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6106),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6106),
-    [aux_sym_entry_statement_token1] = ACTIONS(6106),
-    [aux_sym_logical_expression_token5] = ACTIONS(6110),
-    [anon_sym_DOT] = ACTIONS(6106),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6110),
-    [anon_sym_LBRACK] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6110),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6110),
-    [aux_sym_null_literal_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6106),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6106),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6106),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6106),
-    [aux_sym_identifier_token1] = ACTIONS(6106),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6110),
-    [sym__float_literal] = ACTIONS(6110),
-    [sym__boz_literal] = ACTIONS(6110),
-    [sym__string_literal] = ACTIONS(6110),
-    [sym__string_literal_kind] = ACTIONS(6110),
+  [1797] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [aux_sym_preproc_else_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_contains_statement_token1] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2054] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6258),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1798] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
+  },
+  [1799] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [aux_sym_preproc_else_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5868),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1800] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym_derived_type_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5648),
+    [aux_sym_type_statement_token2] = ACTIONS(5648),
+    [aux_sym_type_statement_token3] = ACTIONS(5648),
+    [aux_sym__class_default_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [1801] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [aux_sym_preproc_else_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5870),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1802] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym_derived_type_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5688),
+    [aux_sym_type_statement_token2] = ACTIONS(5688),
+    [aux_sym_type_statement_token3] = ACTIONS(5688),
+    [aux_sym__class_default_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2055] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6260),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2056] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6112),
-    [aux_sym_preproc_def_token1] = ACTIONS(6112),
-    [aux_sym_preproc_if_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6112),
-    [sym_preproc_directive] = ACTIONS(6112),
-    [anon_sym_LPAREN2] = ACTIONS(6112),
-    [sym_preproc_comment] = ACTIONS(6262),
-    [anon_sym_PLUS] = ACTIONS(6116),
-    [anon_sym_DASH] = ACTIONS(6116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6112),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6112),
-    [aux_sym_contains_statement_token1] = ACTIONS(6112),
-    [aux_sym_use_statement_token2] = ACTIONS(6112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6112),
-    [aux_sym_save_statement_token1] = ACTIONS(6112),
-    [aux_sym_private_statement_token1] = ACTIONS(6112),
-    [aux_sym_public_statement_token1] = ACTIONS(6112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6112),
-    [anon_sym_SEMI] = ACTIONS(6116),
-    [aux_sym_stop_statement_token1] = ACTIONS(6112),
-    [aux_sym_stop_statement_token2] = ACTIONS(6112),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6112),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6112),
-    [aux_sym_include_statement_token1] = ACTIONS(6112),
-    [aux_sym_data_statement_token1] = ACTIONS(6112),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6112),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6112),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6112),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6112),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6112),
-    [aux_sym_block_construct_token1] = ACTIONS(6112),
-    [aux_sym_associate_statement_token1] = ACTIONS(6112),
-    [aux_sym_format_statement_token1] = ACTIONS(6112),
-    [aux_sym_print_statement_token1] = ACTIONS(6112),
-    [aux_sym_open_statement_token1] = ACTIONS(6112),
-    [aux_sym_close_statement_token1] = ACTIONS(6112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6112),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6112),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6112),
-    [aux_sym_entry_statement_token1] = ACTIONS(6112),
-    [aux_sym_logical_expression_token5] = ACTIONS(6116),
-    [anon_sym_DOT] = ACTIONS(6112),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6116),
-    [anon_sym_LBRACK] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6116),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6116),
-    [aux_sym_null_literal_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6112),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6112),
-    [aux_sym_identifier_token1] = ACTIONS(6112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6116),
-    [sym__float_literal] = ACTIONS(6116),
-    [sym__boz_literal] = ACTIONS(6116),
-    [sym__string_literal] = ACTIONS(6116),
-    [sym__string_literal_kind] = ACTIONS(6116),
+  [1803] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym_derived_type_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5712),
+    [aux_sym_type_statement_token2] = ACTIONS(5712),
+    [aux_sym_type_statement_token3] = ACTIONS(5712),
+    [aux_sym__class_default_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2057] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6118),
-    [aux_sym_preproc_def_token1] = ACTIONS(6118),
-    [aux_sym_preproc_if_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6118),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6118),
-    [sym_preproc_directive] = ACTIONS(6118),
-    [anon_sym_LPAREN2] = ACTIONS(6118),
-    [sym_preproc_comment] = ACTIONS(6264),
-    [anon_sym_PLUS] = ACTIONS(6122),
-    [anon_sym_DASH] = ACTIONS(6122),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6118),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6118),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6118),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6118),
-    [aux_sym_contains_statement_token1] = ACTIONS(6118),
-    [aux_sym_use_statement_token2] = ACTIONS(6118),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6118),
-    [aux_sym_save_statement_token1] = ACTIONS(6118),
-    [aux_sym_private_statement_token1] = ACTIONS(6118),
-    [aux_sym_public_statement_token1] = ACTIONS(6118),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6118),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6118),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6118),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6118),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6118),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6118),
-    [anon_sym_SEMI] = ACTIONS(6122),
-    [aux_sym_stop_statement_token1] = ACTIONS(6118),
-    [aux_sym_stop_statement_token2] = ACTIONS(6118),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6118),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6118),
-    [aux_sym_include_statement_token1] = ACTIONS(6118),
-    [aux_sym_data_statement_token1] = ACTIONS(6118),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6118),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6118),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6118),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6118),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6118),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6118),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6118),
-    [aux_sym_block_construct_token1] = ACTIONS(6118),
-    [aux_sym_associate_statement_token1] = ACTIONS(6118),
-    [aux_sym_format_statement_token1] = ACTIONS(6118),
-    [aux_sym_print_statement_token1] = ACTIONS(6118),
-    [aux_sym_open_statement_token1] = ACTIONS(6118),
-    [aux_sym_close_statement_token1] = ACTIONS(6118),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6118),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6118),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6118),
-    [aux_sym_entry_statement_token1] = ACTIONS(6118),
-    [aux_sym_logical_expression_token5] = ACTIONS(6122),
-    [anon_sym_DOT] = ACTIONS(6118),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6122),
-    [anon_sym_LBRACK] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6122),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6122),
-    [aux_sym_null_literal_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6118),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6118),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6118),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6118),
-    [aux_sym_identifier_token1] = ACTIONS(6118),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6122),
-    [sym__float_literal] = ACTIONS(6122),
-    [sym__boz_literal] = ACTIONS(6122),
-    [sym__string_literal] = ACTIONS(6122),
-    [sym__string_literal_kind] = ACTIONS(6122),
+  [1804] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [aux_sym_preproc_else_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5872),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2058] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [sym_preproc_comment] = ACTIONS(6266),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
+  [1805] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym_derived_type_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5746),
+    [aux_sym_type_statement_token2] = ACTIONS(5746),
+    [aux_sym_type_statement_token3] = ACTIONS(5746),
+    [aux_sym__class_default_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2059] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6268),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1806] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym_derived_type_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5770),
+    [aux_sym_type_statement_token2] = ACTIONS(5770),
+    [aux_sym_type_statement_token3] = ACTIONS(5770),
+    [aux_sym__class_default_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
   },
-  [2060] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1807] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym_derived_type_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5040),
+    [aux_sym_type_statement_token2] = ACTIONS(5040),
+    [aux_sym_type_statement_token3] = ACTIONS(5040),
+    [aux_sym__class_default_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2061] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1808] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [aux_sym_preproc_else_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2062] = {
+  [1809] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token2] = ACTIONS(5824),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [aux_sym_preproc_else_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
     [sym_preproc_directive] = ACTIONS(5824),
     [anon_sym_LPAREN2] = ACTIONS(5824),
     [anon_sym_PLUS] = ACTIONS(5826),
     [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
@@ -362493,815 +336376,104 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5826),
     [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2063] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6078),
-    [aux_sym_preproc_def_token1] = ACTIONS(6078),
-    [aux_sym_preproc_if_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6078),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6078),
-    [sym_preproc_directive] = ACTIONS(6078),
-    [anon_sym_LPAREN2] = ACTIONS(6078),
-    [sym_preproc_comment] = ACTIONS(6270),
-    [anon_sym_PLUS] = ACTIONS(6082),
-    [anon_sym_DASH] = ACTIONS(6082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6078),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6078),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6078),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6078),
-    [aux_sym_contains_statement_token1] = ACTIONS(6078),
-    [aux_sym_use_statement_token2] = ACTIONS(6078),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6078),
-    [aux_sym_save_statement_token1] = ACTIONS(6078),
-    [aux_sym_private_statement_token1] = ACTIONS(6078),
-    [aux_sym_public_statement_token1] = ACTIONS(6078),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6078),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6078),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6078),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6078),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6078),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6078),
-    [anon_sym_SEMI] = ACTIONS(6082),
-    [aux_sym_stop_statement_token1] = ACTIONS(6078),
-    [aux_sym_stop_statement_token2] = ACTIONS(6078),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6078),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6078),
-    [aux_sym_include_statement_token1] = ACTIONS(6078),
-    [aux_sym_data_statement_token1] = ACTIONS(6078),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6078),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6078),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6078),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6078),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6078),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6078),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6078),
-    [aux_sym_block_construct_token1] = ACTIONS(6078),
-    [aux_sym_associate_statement_token1] = ACTIONS(6078),
-    [aux_sym_format_statement_token1] = ACTIONS(6078),
-    [aux_sym_print_statement_token1] = ACTIONS(6078),
-    [aux_sym_open_statement_token1] = ACTIONS(6078),
-    [aux_sym_close_statement_token1] = ACTIONS(6078),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6078),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6078),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6078),
-    [aux_sym_entry_statement_token1] = ACTIONS(6078),
-    [aux_sym_logical_expression_token5] = ACTIONS(6082),
-    [anon_sym_DOT] = ACTIONS(6078),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6082),
-    [anon_sym_LBRACK] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6082),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6082),
-    [aux_sym_null_literal_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6078),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6078),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6078),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6078),
-    [aux_sym_identifier_token1] = ACTIONS(6078),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6082),
-    [sym__float_literal] = ACTIONS(6082),
-    [sym__boz_literal] = ACTIONS(6082),
-    [sym__string_literal] = ACTIONS(6082),
-    [sym__string_literal_kind] = ACTIONS(6082),
-  },
-  [2064] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2065] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6168),
-    [aux_sym_preproc_def_token1] = ACTIONS(6168),
-    [aux_sym_preproc_if_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6168),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6168),
-    [sym_preproc_directive] = ACTIONS(6168),
-    [anon_sym_LPAREN2] = ACTIONS(6168),
-    [sym_preproc_comment] = ACTIONS(6272),
-    [anon_sym_PLUS] = ACTIONS(6172),
-    [anon_sym_DASH] = ACTIONS(6172),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6168),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6168),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6168),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6168),
-    [aux_sym_contains_statement_token1] = ACTIONS(6168),
-    [aux_sym_use_statement_token2] = ACTIONS(6168),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6168),
-    [aux_sym_save_statement_token1] = ACTIONS(6168),
-    [aux_sym_private_statement_token1] = ACTIONS(6168),
-    [aux_sym_public_statement_token1] = ACTIONS(6168),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6168),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6168),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6168),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6168),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6168),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6168),
-    [anon_sym_SEMI] = ACTIONS(6172),
-    [aux_sym_stop_statement_token1] = ACTIONS(6168),
-    [aux_sym_stop_statement_token2] = ACTIONS(6168),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6168),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6168),
-    [aux_sym_include_statement_token1] = ACTIONS(6168),
-    [aux_sym_data_statement_token1] = ACTIONS(6168),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6168),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6168),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6168),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6168),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6168),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6168),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6168),
-    [aux_sym_block_construct_token1] = ACTIONS(6168),
-    [aux_sym_associate_statement_token1] = ACTIONS(6168),
-    [aux_sym_format_statement_token1] = ACTIONS(6168),
-    [aux_sym_print_statement_token1] = ACTIONS(6168),
-    [aux_sym_open_statement_token1] = ACTIONS(6168),
-    [aux_sym_close_statement_token1] = ACTIONS(6168),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6168),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6168),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6168),
-    [aux_sym_entry_statement_token1] = ACTIONS(6168),
-    [aux_sym_logical_expression_token5] = ACTIONS(6172),
-    [anon_sym_DOT] = ACTIONS(6168),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6172),
-    [anon_sym_LBRACK] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6172),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6172),
-    [aux_sym_null_literal_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6168),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6168),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6168),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6168),
-    [aux_sym_identifier_token1] = ACTIONS(6168),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6172),
-    [sym__float_literal] = ACTIONS(6172),
-    [sym__boz_literal] = ACTIONS(6172),
-    [sym__string_literal] = ACTIONS(6172),
-    [sym__string_literal_kind] = ACTIONS(6172),
-  },
-  [2066] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [sym_preproc_comment] = ACTIONS(6274),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
-  },
-  [2067] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6276),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_contains_statement_token1] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [2068] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6024),
-    [aux_sym_preproc_def_token1] = ACTIONS(6024),
-    [aux_sym_preproc_if_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6024),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6024),
-    [sym_preproc_directive] = ACTIONS(6024),
-    [anon_sym_LPAREN2] = ACTIONS(6024),
-    [sym_preproc_comment] = ACTIONS(6278),
-    [anon_sym_PLUS] = ACTIONS(6028),
-    [anon_sym_DASH] = ACTIONS(6028),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6024),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6024),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6024),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6024),
-    [aux_sym_contains_statement_token1] = ACTIONS(6024),
-    [aux_sym_use_statement_token2] = ACTIONS(6024),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6024),
-    [aux_sym_save_statement_token1] = ACTIONS(6024),
-    [aux_sym_private_statement_token1] = ACTIONS(6024),
-    [aux_sym_public_statement_token1] = ACTIONS(6024),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6024),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6024),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6024),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6024),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6024),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6024),
-    [anon_sym_SEMI] = ACTIONS(6028),
-    [aux_sym_stop_statement_token1] = ACTIONS(6024),
-    [aux_sym_stop_statement_token2] = ACTIONS(6024),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6024),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6024),
-    [aux_sym_include_statement_token1] = ACTIONS(6024),
-    [aux_sym_data_statement_token1] = ACTIONS(6024),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6024),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6024),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6024),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6024),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6024),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6024),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6024),
-    [aux_sym_block_construct_token1] = ACTIONS(6024),
-    [aux_sym_associate_statement_token1] = ACTIONS(6024),
-    [aux_sym_format_statement_token1] = ACTIONS(6024),
-    [aux_sym_print_statement_token1] = ACTIONS(6024),
-    [aux_sym_open_statement_token1] = ACTIONS(6024),
-    [aux_sym_close_statement_token1] = ACTIONS(6024),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6024),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6024),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6024),
-    [aux_sym_entry_statement_token1] = ACTIONS(6024),
-    [aux_sym_logical_expression_token5] = ACTIONS(6028),
-    [anon_sym_DOT] = ACTIONS(6024),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6028),
-    [anon_sym_LBRACK] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6028),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6028),
-    [aux_sym_null_literal_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6024),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6024),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6024),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6024),
-    [aux_sym_identifier_token1] = ACTIONS(6024),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6028),
-    [sym__float_literal] = ACTIONS(6028),
-    [sym__boz_literal] = ACTIONS(6028),
-    [sym__string_literal] = ACTIONS(6028),
-    [sym__string_literal_kind] = ACTIONS(6028),
-  },
-  [2069] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6280),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2070] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6282),
+  [1810] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
     [anon_sym_PLUS] = ACTIONS(5604),
     [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_contains_statement_token1] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
     [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
     [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(4619),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
     [anon_sym_LBRACK] = ACTIONS(5604),
     [aux_sym_boolean_literal_token1] = ACTIONS(5604),
     [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5604),
     [sym__float_literal] = ACTIONS(5604),
@@ -363309,724 +336481,857 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5604),
     [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2071] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6284),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_contains_statement_token1] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1811] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4513),
+    [aux_sym_type_statement_token2] = ACTIONS(4513),
+    [aux_sym_type_statement_token3] = ACTIONS(4513),
+    [aux_sym__class_default_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2072] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6142),
-    [aux_sym_preproc_def_token1] = ACTIONS(6142),
-    [aux_sym_preproc_if_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6142),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6142),
-    [sym_preproc_directive] = ACTIONS(6142),
-    [anon_sym_LPAREN2] = ACTIONS(6142),
-    [sym_preproc_comment] = ACTIONS(6286),
-    [anon_sym_PLUS] = ACTIONS(6146),
-    [anon_sym_DASH] = ACTIONS(6146),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6142),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6142),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6142),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6142),
-    [aux_sym_contains_statement_token1] = ACTIONS(6142),
-    [aux_sym_use_statement_token2] = ACTIONS(6142),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6142),
-    [aux_sym_save_statement_token1] = ACTIONS(6142),
-    [aux_sym_private_statement_token1] = ACTIONS(6142),
-    [aux_sym_public_statement_token1] = ACTIONS(6142),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6142),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6142),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6142),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6142),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6142),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6142),
-    [anon_sym_SEMI] = ACTIONS(6146),
-    [aux_sym_stop_statement_token1] = ACTIONS(6142),
-    [aux_sym_stop_statement_token2] = ACTIONS(6142),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6142),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6142),
-    [aux_sym_include_statement_token1] = ACTIONS(6142),
-    [aux_sym_data_statement_token1] = ACTIONS(6142),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6142),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6142),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6142),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6142),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6142),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6142),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6142),
-    [aux_sym_block_construct_token1] = ACTIONS(6142),
-    [aux_sym_associate_statement_token1] = ACTIONS(6142),
-    [aux_sym_format_statement_token1] = ACTIONS(6142),
-    [aux_sym_print_statement_token1] = ACTIONS(6142),
-    [aux_sym_open_statement_token1] = ACTIONS(6142),
-    [aux_sym_close_statement_token1] = ACTIONS(6142),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6142),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6142),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6142),
-    [aux_sym_entry_statement_token1] = ACTIONS(6142),
-    [aux_sym_logical_expression_token5] = ACTIONS(6146),
-    [anon_sym_DOT] = ACTIONS(6142),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6146),
-    [anon_sym_LBRACK] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6146),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6146),
-    [aux_sym_null_literal_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6142),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6142),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6142),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6142),
-    [aux_sym_identifier_token1] = ACTIONS(6142),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6146),
-    [sym__float_literal] = ACTIONS(6146),
-    [sym__boz_literal] = ACTIONS(6146),
-    [sym__string_literal] = ACTIONS(6146),
-    [sym__string_literal_kind] = ACTIONS(6146),
+  [1812] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4607),
+    [aux_sym_type_statement_token2] = ACTIONS(4607),
+    [aux_sym_type_statement_token3] = ACTIONS(4607),
+    [aux_sym__class_default_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2073] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6090),
-    [aux_sym_preproc_def_token1] = ACTIONS(6090),
-    [aux_sym_preproc_if_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
-    [sym_preproc_directive] = ACTIONS(6090),
-    [anon_sym_LPAREN2] = ACTIONS(6090),
-    [sym_preproc_comment] = ACTIONS(6288),
-    [anon_sym_PLUS] = ACTIONS(6094),
-    [anon_sym_DASH] = ACTIONS(6094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6090),
-    [aux_sym_contains_statement_token1] = ACTIONS(6090),
-    [aux_sym_use_statement_token2] = ACTIONS(6090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
-    [aux_sym_save_statement_token1] = ACTIONS(6090),
-    [aux_sym_private_statement_token1] = ACTIONS(6090),
-    [aux_sym_public_statement_token1] = ACTIONS(6090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
-    [anon_sym_SEMI] = ACTIONS(6094),
-    [aux_sym_stop_statement_token1] = ACTIONS(6090),
-    [aux_sym_stop_statement_token2] = ACTIONS(6090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
-    [aux_sym_include_statement_token1] = ACTIONS(6090),
-    [aux_sym_data_statement_token1] = ACTIONS(6090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
-    [aux_sym_block_construct_token1] = ACTIONS(6090),
-    [aux_sym_associate_statement_token1] = ACTIONS(6090),
-    [aux_sym_format_statement_token1] = ACTIONS(6090),
-    [aux_sym_print_statement_token1] = ACTIONS(6090),
-    [aux_sym_open_statement_token1] = ACTIONS(6090),
-    [aux_sym_close_statement_token1] = ACTIONS(6090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
-    [aux_sym_entry_statement_token1] = ACTIONS(6090),
-    [aux_sym_logical_expression_token5] = ACTIONS(6094),
-    [anon_sym_DOT] = ACTIONS(6090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
-    [anon_sym_LBRACK] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
-    [aux_sym_null_literal_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
-    [aux_sym_identifier_token1] = ACTIONS(6090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
+  [1813] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4595),
+    [aux_sym_type_statement_token2] = ACTIONS(4595),
+    [aux_sym_type_statement_token3] = ACTIONS(4595),
+    [aux_sym__class_default_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2074] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [sym_preproc_comment] = ACTIONS(6290),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
+  [1814] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4543),
+    [aux_sym_type_statement_token2] = ACTIONS(4543),
+    [aux_sym_type_statement_token3] = ACTIONS(4543),
+    [aux_sym__class_default_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2075] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_contains_statement_token1] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+  [1815] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4539),
+    [aux_sym_type_statement_token2] = ACTIONS(4539),
+    [aux_sym_type_statement_token3] = ACTIONS(4539),
+    [aux_sym__class_default_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2076] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6292),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+  [1816] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4535),
+    [aux_sym_type_statement_token2] = ACTIONS(4535),
+    [aux_sym_type_statement_token3] = ACTIONS(4535),
+    [aux_sym__class_default_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2077] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1817] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4469),
+    [aux_sym_type_statement_token2] = ACTIONS(4469),
+    [aux_sym_type_statement_token3] = ACTIONS(4469),
+    [aux_sym__class_default_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2078] = {
+  [1818] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [1819] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token2] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [aux_sym_preproc_else_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
     [sym_preproc_directive] = ACTIONS(5726),
     [anon_sym_LPAREN2] = ACTIONS(5726),
     [anon_sym_PLUS] = ACTIONS(5728),
@@ -364121,1128 +337426,2221 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2079] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6294),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1820] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [aux_sym_preproc_else_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2080] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6296),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+  [1821] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym_derived_type_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5800),
+    [aux_sym_type_statement_token2] = ACTIONS(5800),
+    [aux_sym_type_statement_token3] = ACTIONS(5800),
+    [aux_sym__class_default_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2081] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1822] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2082] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6298),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [1823] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2083] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [1824] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [aux_sym_preproc_else_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_contains_statement_token1] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2084] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6300),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1825] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [aux_sym_preproc_else_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2085] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6302),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1826] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [aux_sym_preproc_else_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_contains_statement_token1] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2086] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [1827] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym_derived_type_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5034),
+    [aux_sym_type_statement_token2] = ACTIONS(5034),
+    [aux_sym_type_statement_token3] = ACTIONS(5034),
+    [aux_sym__class_default_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2087] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [1828] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [aux_sym_preproc_else_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2088] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1829] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [aux_sym_preproc_else_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2089] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1830] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1831] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [aux_sym_preproc_else_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [1832] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [aux_sym_preproc_else_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [1833] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1834] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1835] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1836] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [aux_sym_preproc_else_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [1837] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [aux_sym_preproc_else_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1838] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [aux_sym_preproc_else_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1839] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [aux_sym_preproc_else_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2090] = {
+  [1840] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [aux_sym_preproc_else_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [1841] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [aux_sym_preproc_else_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6304),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -365273,7 +339671,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -365308,12 +339706,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -365323,3057 +339721,134 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(4525),
     [aux_sym_coarray_statement_token13] = ACTIONS(4525),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2091] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6306),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2092] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2093] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [2094] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token2] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2095] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6308),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2096] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
-  },
-  [2097] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6310),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [2098] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6312),
-    [aux_sym_preproc_def_token1] = ACTIONS(6312),
-    [aux_sym_preproc_if_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6312),
-    [sym_preproc_directive] = ACTIONS(6312),
-    [anon_sym_LPAREN2] = ACTIONS(6312),
-    [anon_sym_PLUS] = ACTIONS(6314),
-    [anon_sym_DASH] = ACTIONS(6314),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6312),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6312),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6312),
-    [aux_sym_contains_statement_token1] = ACTIONS(6312),
-    [aux_sym_use_statement_token2] = ACTIONS(6312),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6312),
-    [aux_sym_save_statement_token1] = ACTIONS(6312),
-    [aux_sym_private_statement_token1] = ACTIONS(6312),
-    [aux_sym_public_statement_token1] = ACTIONS(6312),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6312),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6312),
-    [anon_sym_SEMI] = ACTIONS(6314),
-    [aux_sym_stop_statement_token1] = ACTIONS(6312),
-    [aux_sym_stop_statement_token2] = ACTIONS(6312),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6312),
-    [aux_sym_include_statement_token1] = ACTIONS(6312),
-    [aux_sym_data_statement_token1] = ACTIONS(6312),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6312),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6312),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6312),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6312),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6312),
-    [aux_sym_block_construct_token1] = ACTIONS(6312),
-    [aux_sym_associate_statement_token1] = ACTIONS(6312),
-    [aux_sym_format_statement_token1] = ACTIONS(6312),
-    [aux_sym_print_statement_token1] = ACTIONS(6312),
-    [aux_sym_open_statement_token1] = ACTIONS(6312),
-    [aux_sym_close_statement_token1] = ACTIONS(6312),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6312),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6312),
-    [aux_sym_entry_statement_token1] = ACTIONS(6312),
-    [aux_sym_logical_expression_token5] = ACTIONS(6314),
-    [anon_sym_DOT] = ACTIONS(6312),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6314),
-    [anon_sym_LBRACK] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6314),
-    [aux_sym_null_literal_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6312),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6312),
-    [aux_sym_identifier_token1] = ACTIONS(6312),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6314),
-    [sym__float_literal] = ACTIONS(6314),
-    [sym__boz_literal] = ACTIONS(6314),
-    [sym__string_literal] = ACTIONS(6314),
-    [sym__string_literal_kind] = ACTIONS(6314),
-  },
-  [2099] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6316),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2100] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6318),
-    [aux_sym_preproc_def_token1] = ACTIONS(6318),
-    [aux_sym_preproc_if_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6318),
-    [sym_preproc_directive] = ACTIONS(6318),
-    [anon_sym_LPAREN2] = ACTIONS(6318),
-    [anon_sym_PLUS] = ACTIONS(6320),
-    [anon_sym_DASH] = ACTIONS(6320),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6318),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6318),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6318),
-    [aux_sym_contains_statement_token1] = ACTIONS(6318),
-    [aux_sym_use_statement_token2] = ACTIONS(6318),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6318),
-    [aux_sym_save_statement_token1] = ACTIONS(6318),
-    [aux_sym_private_statement_token1] = ACTIONS(6318),
-    [aux_sym_public_statement_token1] = ACTIONS(6318),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6318),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6318),
-    [anon_sym_SEMI] = ACTIONS(6320),
-    [aux_sym_stop_statement_token1] = ACTIONS(6318),
-    [aux_sym_stop_statement_token2] = ACTIONS(6318),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6318),
-    [aux_sym_include_statement_token1] = ACTIONS(6318),
-    [aux_sym_data_statement_token1] = ACTIONS(6318),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6318),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6318),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6318),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6318),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6318),
-    [aux_sym_block_construct_token1] = ACTIONS(6318),
-    [aux_sym_associate_statement_token1] = ACTIONS(6318),
-    [aux_sym_format_statement_token1] = ACTIONS(6318),
-    [aux_sym_print_statement_token1] = ACTIONS(6318),
-    [aux_sym_open_statement_token1] = ACTIONS(6318),
-    [aux_sym_close_statement_token1] = ACTIONS(6318),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6318),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6318),
-    [aux_sym_entry_statement_token1] = ACTIONS(6318),
-    [aux_sym_logical_expression_token5] = ACTIONS(6320),
-    [anon_sym_DOT] = ACTIONS(6318),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6320),
-    [anon_sym_LBRACK] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6320),
-    [aux_sym_null_literal_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6318),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6318),
-    [aux_sym_identifier_token1] = ACTIONS(6318),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6320),
-    [sym__float_literal] = ACTIONS(6320),
-    [sym__boz_literal] = ACTIONS(6320),
-    [sym__string_literal] = ACTIONS(6320),
-    [sym__string_literal_kind] = ACTIONS(6320),
-  },
-  [2101] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6322),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [2102] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
-  },
-  [2103] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6324),
-    [aux_sym_preproc_def_token1] = ACTIONS(6324),
-    [aux_sym_preproc_if_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6324),
-    [sym_preproc_directive] = ACTIONS(6324),
-    [anon_sym_LPAREN2] = ACTIONS(6324),
-    [anon_sym_PLUS] = ACTIONS(6326),
-    [anon_sym_DASH] = ACTIONS(6326),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6324),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6324),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6324),
-    [aux_sym_contains_statement_token1] = ACTIONS(6324),
-    [aux_sym_use_statement_token2] = ACTIONS(6324),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6324),
-    [aux_sym_save_statement_token1] = ACTIONS(6324),
-    [aux_sym_private_statement_token1] = ACTIONS(6324),
-    [aux_sym_public_statement_token1] = ACTIONS(6324),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6324),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6324),
-    [anon_sym_SEMI] = ACTIONS(6326),
-    [aux_sym_stop_statement_token1] = ACTIONS(6324),
-    [aux_sym_stop_statement_token2] = ACTIONS(6324),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6324),
-    [aux_sym_include_statement_token1] = ACTIONS(6324),
-    [aux_sym_data_statement_token1] = ACTIONS(6324),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6324),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6324),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6324),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6324),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6324),
-    [aux_sym_block_construct_token1] = ACTIONS(6324),
-    [aux_sym_associate_statement_token1] = ACTIONS(6324),
-    [aux_sym_format_statement_token1] = ACTIONS(6324),
-    [aux_sym_print_statement_token1] = ACTIONS(6324),
-    [aux_sym_open_statement_token1] = ACTIONS(6324),
-    [aux_sym_close_statement_token1] = ACTIONS(6324),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6324),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6324),
-    [aux_sym_entry_statement_token1] = ACTIONS(6324),
-    [aux_sym_logical_expression_token5] = ACTIONS(6326),
-    [anon_sym_DOT] = ACTIONS(6324),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6326),
-    [anon_sym_LBRACK] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6326),
-    [aux_sym_null_literal_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6324),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6324),
-    [aux_sym_identifier_token1] = ACTIONS(6324),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6326),
-    [sym__float_literal] = ACTIONS(6326),
-    [sym__boz_literal] = ACTIONS(6326),
-    [sym__string_literal] = ACTIONS(6326),
-    [sym__string_literal_kind] = ACTIONS(6326),
-  },
-  [2104] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6328),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2105] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6330),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2106] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6332),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2107] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6334),
-    [aux_sym_preproc_def_token1] = ACTIONS(6334),
-    [aux_sym_preproc_if_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
-    [sym_preproc_directive] = ACTIONS(6334),
-    [anon_sym_LPAREN2] = ACTIONS(6334),
-    [anon_sym_PLUS] = ACTIONS(6336),
-    [anon_sym_DASH] = ACTIONS(6336),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6334),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
-    [aux_sym_contains_statement_token1] = ACTIONS(6334),
-    [aux_sym_use_statement_token2] = ACTIONS(6334),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
-    [aux_sym_save_statement_token1] = ACTIONS(6334),
-    [aux_sym_private_statement_token1] = ACTIONS(6334),
-    [aux_sym_public_statement_token1] = ACTIONS(6334),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
-    [anon_sym_SEMI] = ACTIONS(6336),
-    [aux_sym_stop_statement_token1] = ACTIONS(6334),
-    [aux_sym_stop_statement_token2] = ACTIONS(6334),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
-    [aux_sym_include_statement_token1] = ACTIONS(6334),
-    [aux_sym_data_statement_token1] = ACTIONS(6334),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
-    [aux_sym_block_construct_token1] = ACTIONS(6334),
-    [aux_sym_associate_statement_token1] = ACTIONS(6334),
-    [aux_sym_format_statement_token1] = ACTIONS(6334),
-    [aux_sym_print_statement_token1] = ACTIONS(6334),
-    [aux_sym_open_statement_token1] = ACTIONS(6334),
-    [aux_sym_close_statement_token1] = ACTIONS(6334),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
-    [aux_sym_entry_statement_token1] = ACTIONS(6334),
-    [aux_sym_logical_expression_token5] = ACTIONS(6336),
-    [anon_sym_DOT] = ACTIONS(6334),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
-    [anon_sym_LBRACK] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
-    [aux_sym_null_literal_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
-    [aux_sym_identifier_token1] = ACTIONS(6334),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6336),
-    [sym__float_literal] = ACTIONS(6336),
-    [sym__boz_literal] = ACTIONS(6336),
-    [sym__string_literal] = ACTIONS(6336),
-    [sym__string_literal_kind] = ACTIONS(6336),
-  },
-  [2108] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6338),
-    [aux_sym_preproc_def_token1] = ACTIONS(6338),
-    [aux_sym_preproc_if_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6338),
-    [sym_preproc_directive] = ACTIONS(6338),
-    [anon_sym_LPAREN2] = ACTIONS(6338),
-    [anon_sym_PLUS] = ACTIONS(6340),
-    [anon_sym_DASH] = ACTIONS(6340),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6338),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6338),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6338),
-    [aux_sym_contains_statement_token1] = ACTIONS(6338),
-    [aux_sym_use_statement_token2] = ACTIONS(6338),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6338),
-    [aux_sym_save_statement_token1] = ACTIONS(6338),
-    [aux_sym_private_statement_token1] = ACTIONS(6338),
-    [aux_sym_public_statement_token1] = ACTIONS(6338),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6338),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6338),
-    [anon_sym_SEMI] = ACTIONS(6340),
-    [aux_sym_stop_statement_token1] = ACTIONS(6338),
-    [aux_sym_stop_statement_token2] = ACTIONS(6338),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6338),
-    [aux_sym_include_statement_token1] = ACTIONS(6338),
-    [aux_sym_data_statement_token1] = ACTIONS(6338),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6338),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6338),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6338),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6338),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6338),
-    [aux_sym_block_construct_token1] = ACTIONS(6338),
-    [aux_sym_associate_statement_token1] = ACTIONS(6338),
-    [aux_sym_format_statement_token1] = ACTIONS(6338),
-    [aux_sym_print_statement_token1] = ACTIONS(6338),
-    [aux_sym_open_statement_token1] = ACTIONS(6338),
-    [aux_sym_close_statement_token1] = ACTIONS(6338),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6338),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6338),
-    [aux_sym_entry_statement_token1] = ACTIONS(6338),
-    [aux_sym_logical_expression_token5] = ACTIONS(6340),
-    [anon_sym_DOT] = ACTIONS(6338),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6340),
-    [anon_sym_LBRACK] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6340),
-    [aux_sym_null_literal_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6338),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6338),
-    [aux_sym_identifier_token1] = ACTIONS(6338),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6340),
-    [sym__float_literal] = ACTIONS(6340),
-    [sym__boz_literal] = ACTIONS(6340),
-    [sym__string_literal] = ACTIONS(6340),
-    [sym__string_literal_kind] = ACTIONS(6340),
-  },
-  [2109] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6342),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [2110] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6344),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [2111] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2112] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6346),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [2113] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6348),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [2114] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6350),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2115] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [2116] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6352),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [2117] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6354),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [2118] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6356),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2119] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6358),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2120] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6360),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1842] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [aux_sym_preproc_else_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2121] = {
+  [1843] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [aux_sym_preproc_else_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6362),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -368404,7 +339879,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -368428,7 +339903,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
     [aux_sym_print_statement_token1] = ACTIONS(4317),
     [aux_sym_open_statement_token1] = ACTIONS(4317),
@@ -368440,12 +339914,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -368458,1129 +339932,439 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2122] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6364),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [2123] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6366),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2124] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6368),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1844] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [aux_sym_preproc_else_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elif_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2125] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6370),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2126] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6372),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [2127] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6374),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1845] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [aux_sym_preproc_else_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2128] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6376),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1846] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token2] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [aux_sym_preproc_else_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2129] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6378),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2130] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6380),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2131] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6382),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2132] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6384),
-    [aux_sym_preproc_def_token1] = ACTIONS(6384),
-    [aux_sym_preproc_if_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6384),
-    [sym_preproc_directive] = ACTIONS(6384),
-    [anon_sym_LPAREN2] = ACTIONS(6384),
-    [anon_sym_PLUS] = ACTIONS(6386),
-    [anon_sym_DASH] = ACTIONS(6386),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6384),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6384),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6384),
-    [aux_sym_contains_statement_token1] = ACTIONS(6384),
-    [aux_sym_use_statement_token2] = ACTIONS(6384),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6384),
-    [aux_sym_save_statement_token1] = ACTIONS(6384),
-    [aux_sym_private_statement_token1] = ACTIONS(6384),
-    [aux_sym_public_statement_token1] = ACTIONS(6384),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6384),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6384),
-    [anon_sym_SEMI] = ACTIONS(6386),
-    [aux_sym_stop_statement_token1] = ACTIONS(6384),
-    [aux_sym_stop_statement_token2] = ACTIONS(6384),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6384),
-    [aux_sym_include_statement_token1] = ACTIONS(6384),
-    [aux_sym_data_statement_token1] = ACTIONS(6384),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6384),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6384),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6384),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6384),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6384),
-    [aux_sym_block_construct_token1] = ACTIONS(6384),
-    [aux_sym_associate_statement_token1] = ACTIONS(6384),
-    [aux_sym_format_statement_token1] = ACTIONS(6384),
-    [aux_sym_print_statement_token1] = ACTIONS(6384),
-    [aux_sym_open_statement_token1] = ACTIONS(6384),
-    [aux_sym_close_statement_token1] = ACTIONS(6384),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6384),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6384),
-    [aux_sym_entry_statement_token1] = ACTIONS(6384),
-    [aux_sym_logical_expression_token5] = ACTIONS(6386),
-    [anon_sym_DOT] = ACTIONS(6384),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6386),
-    [anon_sym_LBRACK] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6386),
-    [aux_sym_null_literal_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6384),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6384),
-    [aux_sym_identifier_token1] = ACTIONS(6384),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6386),
-    [sym__float_literal] = ACTIONS(6386),
-    [sym__boz_literal] = ACTIONS(6386),
-    [sym__string_literal] = ACTIONS(6386),
-    [sym__string_literal_kind] = ACTIONS(6386),
+  [1847] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2133] = {
+  [1848] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token2] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [aux_sym_preproc_else_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5726),
     [sym_preproc_directive] = ACTIONS(5726),
     [anon_sym_LPAREN2] = ACTIONS(5726),
     [anon_sym_PLUS] = ACTIONS(5728),
@@ -369589,9 +340373,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_program_statement_token1] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5726),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
     [aux_sym_use_statement_token2] = ACTIONS(5726),
     [aux_sym_implicit_statement_token4] = ACTIONS(5726),
     [aux_sym_save_statement_token1] = ACTIONS(5726),
@@ -369676,908 +340458,623 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2134] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2135] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2136] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [2137] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1849] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2138] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1850] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2139] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1851] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [aux_sym_preproc_else_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2140] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+  [1852] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2141] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1853] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2142] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
+  [1854] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [aux_sym_preproc_else_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
     [anon_sym_PLUS] = ACTIONS(5690),
     [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
     [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token2] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
     [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_DOT] = ACTIONS(5688),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
     [anon_sym_LBRACK] = ACTIONS(5690),
     [aux_sym_boolean_literal_token1] = ACTIONS(5690),
     [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5690),
     [sym__float_literal] = ACTIONS(5690),
@@ -370585,613 +341082,1352 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5690),
     [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2143] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6388),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1855] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2144] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [1856] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [aux_sym_preproc_else_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2145] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6390),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1857] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [aux_sym_preproc_else_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [1858] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [aux_sym_preproc_else_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [1859] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [aux_sym_preproc_else_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [1860] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [aux_sym_preproc_else_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2146] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6392),
-    [aux_sym_preproc_def_token1] = ACTIONS(6392),
-    [aux_sym_preproc_if_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6392),
-    [sym_preproc_directive] = ACTIONS(6392),
-    [anon_sym_LPAREN2] = ACTIONS(6392),
-    [anon_sym_PLUS] = ACTIONS(6394),
-    [anon_sym_DASH] = ACTIONS(6394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6392),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6392),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6392),
-    [aux_sym_contains_statement_token1] = ACTIONS(6392),
-    [aux_sym_use_statement_token2] = ACTIONS(6392),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6392),
-    [aux_sym_save_statement_token1] = ACTIONS(6392),
-    [aux_sym_private_statement_token1] = ACTIONS(6392),
-    [aux_sym_public_statement_token1] = ACTIONS(6392),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6392),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6392),
-    [anon_sym_SEMI] = ACTIONS(6394),
-    [aux_sym_stop_statement_token1] = ACTIONS(6392),
-    [aux_sym_stop_statement_token2] = ACTIONS(6392),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6392),
-    [aux_sym_include_statement_token1] = ACTIONS(6392),
-    [aux_sym_data_statement_token1] = ACTIONS(6392),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6392),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6392),
-    [aux_sym_block_construct_token1] = ACTIONS(6392),
-    [aux_sym_associate_statement_token1] = ACTIONS(6392),
-    [aux_sym_format_statement_token1] = ACTIONS(6392),
-    [aux_sym_print_statement_token1] = ACTIONS(6392),
-    [aux_sym_open_statement_token1] = ACTIONS(6392),
-    [aux_sym_close_statement_token1] = ACTIONS(6392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6392),
-    [aux_sym_entry_statement_token1] = ACTIONS(6392),
-    [aux_sym_logical_expression_token5] = ACTIONS(6394),
-    [anon_sym_DOT] = ACTIONS(6392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6394),
-    [anon_sym_LBRACK] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6394),
-    [aux_sym_null_literal_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6392),
-    [aux_sym_identifier_token1] = ACTIONS(6392),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6394),
-    [sym__float_literal] = ACTIONS(6394),
-    [sym__boz_literal] = ACTIONS(6394),
-    [sym__string_literal] = ACTIONS(6394),
-    [sym__string_literal_kind] = ACTIONS(6394),
+  [1861] = {
+    [sym__expression] = STATE(4378),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6938),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6938),
+    [sym_multiple_subscript] = STATE(6938),
+    [sym_multiple_subscript_triplet] = STATE(6938),
+    [sym_assumed_size] = STATE(6938),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5874),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5886),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2147] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
+  [1862] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5888),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5572),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [1863] = {
+    [sym__expression] = STATE(4432),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6636),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6636),
+    [sym_multiple_subscript] = STATE(6636),
+    [sym_multiple_subscript_triplet] = STATE(6636),
+    [sym_assumed_size] = STATE(6636),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5890),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5892),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1864] = {
+    [sym__expression] = STATE(4364),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6528),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6528),
+    [sym_multiple_subscript] = STATE(6528),
+    [sym_multiple_subscript_triplet] = STATE(6528),
+    [sym_assumed_size] = STATE(6528),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5894),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5896),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1865] = {
+    [sym__expression] = STATE(4368),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6636),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6636),
+    [sym_multiple_subscript] = STATE(6636),
+    [sym_multiple_subscript_triplet] = STATE(6636),
+    [sym_assumed_size] = STATE(6636),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5890),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5892),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1866] = {
+    [sym__expression] = STATE(4408),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6804),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6804),
+    [sym_multiple_subscript] = STATE(6804),
+    [sym_multiple_subscript_triplet] = STATE(6804),
+    [sym_assumed_size] = STATE(6804),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5898),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5900),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2148] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1867] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5902),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4393),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2149] = {
+  [1868] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
@@ -371200,10 +342436,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5904),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
@@ -371233,7 +342471,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -371268,12 +342506,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -371286,13 +342524,219 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2150] = {
+  [1869] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5906),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4331),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
+  },
+  [1870] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(5908),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_contains_statement_token1] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
+  },
+  [1871] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
@@ -371300,8 +342744,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5910),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -371332,7 +342777,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -371347,15 +342792,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
     [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
     [aux_sym_elseif_clause_token2] = ACTIONS(4317),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4317),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4317),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
     [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4317),
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
     [aux_sym_select_type_statement_token1] = ACTIONS(4317),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
@@ -371369,12 +342815,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -371387,409 +342833,211 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2151] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2152] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2153] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [1872] = {
+    [sym__expression] = STATE(4397),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7059),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(7059),
+    [sym_multiple_subscript] = STATE(7059),
+    [sym_multiple_subscript_triplet] = STATE(7059),
+    [sym_assumed_size] = STATE(7059),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5912),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5914),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2154] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
+  [1873] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5916),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -371797,1017 +343045,2479 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2155] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1874] = {
+    [sym__expression] = STATE(4400),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6528),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6528),
+    [sym_multiple_subscript] = STATE(6528),
+    [sym_multiple_subscript_triplet] = STATE(6528),
+    [sym_assumed_size] = STATE(6528),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5894),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_contains_statement_token1] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5896),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2156] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [1875] = {
+    [sym__expression] = STATE(4398),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6804),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6804),
+    [sym_multiple_subscript] = STATE(6804),
+    [sym_multiple_subscript_triplet] = STATE(6804),
+    [sym_assumed_size] = STATE(6804),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5898),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5900),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2157] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [1876] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5918),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1877] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5920),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1878] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5922),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4369),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [1879] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(5924),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5618),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
+  },
+  [1880] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(5926),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4525),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
+  },
+  [1881] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5928),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1882] = {
+    [sym__expression] = STATE(4385),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6950),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6950),
+    [sym_multiple_subscript] = STATE(6950),
+    [sym_multiple_subscript_triplet] = STATE(6950),
+    [sym_assumed_size] = STATE(6950),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5930),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5932),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1883] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(5934),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
+  },
+  [1884] = {
+    [sym__expression] = STATE(4416),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7059),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(7059),
+    [sym_multiple_subscript] = STATE(7059),
+    [sym_multiple_subscript_triplet] = STATE(7059),
+    [sym_assumed_size] = STATE(7059),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_RPAREN] = ACTIONS(5912),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5914),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1885] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(5936),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5612),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
+  },
+  [1886] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5938),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1887] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5940),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4619),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [2158] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2159] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1888] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5942),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5560),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2160] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [1889] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5944),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2161] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1890] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5946),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5020),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2162] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [1891] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(5948),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2163] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6090),
-    [aux_sym_preproc_def_token1] = ACTIONS(6090),
-    [aux_sym_preproc_if_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
-    [sym_preproc_directive] = ACTIONS(6090),
-    [anon_sym_LPAREN2] = ACTIONS(6090),
-    [anon_sym_PLUS] = ACTIONS(6094),
-    [anon_sym_DASH] = ACTIONS(6094),
+  [1892] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token2] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(5950),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
-    [aux_sym_contains_statement_token1] = ACTIONS(6090),
-    [aux_sym_use_statement_token2] = ACTIONS(6090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
-    [aux_sym_save_statement_token1] = ACTIONS(6090),
-    [aux_sym_private_statement_token1] = ACTIONS(6090),
-    [aux_sym_public_statement_token1] = ACTIONS(6090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
-    [anon_sym_SEMI] = ACTIONS(6094),
-    [aux_sym_stop_statement_token1] = ACTIONS(6090),
-    [aux_sym_stop_statement_token2] = ACTIONS(6090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
-    [aux_sym_include_statement_token1] = ACTIONS(6090),
-    [aux_sym_data_statement_token1] = ACTIONS(6090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
-    [aux_sym_block_construct_token1] = ACTIONS(6090),
-    [aux_sym_associate_statement_token1] = ACTIONS(6090),
-    [aux_sym_format_statement_token1] = ACTIONS(6090),
-    [aux_sym_print_statement_token1] = ACTIONS(6090),
-    [aux_sym_open_statement_token1] = ACTIONS(6090),
-    [aux_sym_close_statement_token1] = ACTIONS(6090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
-    [aux_sym_entry_statement_token1] = ACTIONS(6090),
-    [aux_sym_logical_expression_token5] = ACTIONS(6094),
-    [anon_sym_DOT] = ACTIONS(6090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
-    [anon_sym_LBRACK] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
-    [aux_sym_null_literal_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
-    [aux_sym_identifier_token1] = ACTIONS(6090),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2164] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1893] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(5952),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5566),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2165] = {
+  [1894] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(5954),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5010),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1895] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(5956),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_contains_statement_token1] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [1896] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5958),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [1897] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(5960),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5606),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
+  },
+  [1898] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -372816,10 +345526,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(5962),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
@@ -372849,7 +345561,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -372884,12 +345596,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -372902,619 +345614,935 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2166] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [1899] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(5964),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5596),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2167] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1900] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(5966),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2168] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [1901] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(5968),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5578),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1902] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(5970),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2169] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [1903] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(5972),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
+  },
+  [1904] = {
+    [sym__expression] = STATE(4454),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7600),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(7600),
+    [sym_multiple_subscript] = STATE(7600),
+    [sym_multiple_subscript_triplet] = STATE(7600),
+    [sym_assumed_size] = STATE(7600),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_AT] = ACTIONS(5884),
+    [sym_assumed_rank] = ACTIONS(5974),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [1905] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5034),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [1906] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4469),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2170] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6396),
-    [aux_sym_preproc_def_token1] = ACTIONS(6396),
-    [aux_sym_preproc_if_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6396),
-    [sym_preproc_directive] = ACTIONS(6396),
-    [anon_sym_LPAREN2] = ACTIONS(6396),
-    [anon_sym_PLUS] = ACTIONS(6398),
-    [anon_sym_DASH] = ACTIONS(6398),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6396),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6396),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6396),
-    [aux_sym_contains_statement_token1] = ACTIONS(6396),
-    [aux_sym_use_statement_token2] = ACTIONS(6396),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6396),
-    [aux_sym_save_statement_token1] = ACTIONS(6396),
-    [aux_sym_private_statement_token1] = ACTIONS(6396),
-    [aux_sym_public_statement_token1] = ACTIONS(6396),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6396),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6396),
-    [anon_sym_SEMI] = ACTIONS(6398),
-    [aux_sym_stop_statement_token1] = ACTIONS(6396),
-    [aux_sym_stop_statement_token2] = ACTIONS(6396),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6396),
-    [aux_sym_include_statement_token1] = ACTIONS(6396),
-    [aux_sym_data_statement_token1] = ACTIONS(6396),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6396),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6396),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6396),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6396),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6396),
-    [aux_sym_block_construct_token1] = ACTIONS(6396),
-    [aux_sym_associate_statement_token1] = ACTIONS(6396),
-    [aux_sym_format_statement_token1] = ACTIONS(6396),
-    [aux_sym_print_statement_token1] = ACTIONS(6396),
-    [aux_sym_open_statement_token1] = ACTIONS(6396),
-    [aux_sym_close_statement_token1] = ACTIONS(6396),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6396),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6396),
-    [aux_sym_entry_statement_token1] = ACTIONS(6396),
-    [aux_sym_logical_expression_token5] = ACTIONS(6398),
-    [anon_sym_DOT] = ACTIONS(6396),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6398),
-    [anon_sym_LBRACK] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6398),
-    [aux_sym_null_literal_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6396),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6396),
-    [aux_sym_identifier_token1] = ACTIONS(6396),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6398),
-    [sym__float_literal] = ACTIONS(6398),
-    [sym__boz_literal] = ACTIONS(6398),
-    [sym__string_literal] = ACTIONS(6398),
-    [sym__string_literal_kind] = ACTIONS(6398),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2171] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6400),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+  [1907] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(5976),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2172] = {
+  [1908] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5618),
     [aux_sym_preproc_def_token1] = ACTIONS(5618),
     [aux_sym_preproc_if_token1] = ACTIONS(5618),
@@ -373522,7 +346550,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
     [sym_preproc_directive] = ACTIONS(5618),
     [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6402),
+    [sym_preproc_comment] = ACTIONS(5978),
     [anon_sym_PLUS] = ACTIONS(5622),
     [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
@@ -373574,12 +346602,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
     [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5618),
     [aux_sym_select_case_statement_token3] = ACTIONS(5618),
     [aux_sym_select_type_statement_token1] = ACTIONS(5618),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
     [aux_sym_block_construct_token1] = ACTIONS(5618),
     [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5618),
     [aux_sym_format_statement_token1] = ACTIONS(5618),
     [aux_sym_print_statement_token1] = ACTIONS(5618),
     [aux_sym_open_statement_token1] = ACTIONS(5618),
@@ -373615,201 +346644,305 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5622),
     [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2173] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6404),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1909] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(5980),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2174] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6406),
+  [1910] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4607),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [1911] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(5982),
     [anon_sym_PLUS] = ACTIONS(5604),
     [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
     [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
     [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(4619),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
     [anon_sym_LBRACK] = ACTIONS(5604),
     [aux_sym_boolean_literal_token1] = ACTIONS(5604),
     [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5604),
     [sym__float_literal] = ACTIONS(5604),
@@ -373817,411 +346950,1435 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5604),
     [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2175] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6408),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2176] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6410),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
-  },
-  [2177] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6412),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [1912] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_where_statement_token1] = ACTIONS(2079),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2178] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6414),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [1913] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5010),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1914] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5984),
+    [aux_sym_preproc_def_token1] = ACTIONS(5984),
+    [aux_sym_preproc_if_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5984),
+    [sym_preproc_directive] = ACTIONS(5984),
+    [anon_sym_LPAREN2] = ACTIONS(5984),
+    [sym_preproc_comment] = ACTIONS(5986),
+    [anon_sym_PLUS] = ACTIONS(5988),
+    [anon_sym_DASH] = ACTIONS(5988),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5984),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5984),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5984),
+    [aux_sym_contains_statement_token1] = ACTIONS(5984),
+    [aux_sym_use_statement_token2] = ACTIONS(5984),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5984),
+    [aux_sym_save_statement_token1] = ACTIONS(5984),
+    [aux_sym_private_statement_token1] = ACTIONS(5984),
+    [aux_sym_public_statement_token1] = ACTIONS(5984),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5984),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5984),
+    [anon_sym_SEMI] = ACTIONS(5988),
+    [aux_sym_stop_statement_token1] = ACTIONS(5984),
+    [aux_sym_stop_statement_token2] = ACTIONS(5984),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5984),
+    [aux_sym_include_statement_token1] = ACTIONS(5984),
+    [aux_sym_data_statement_token1] = ACTIONS(5984),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5984),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5984),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5984),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5984),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5984),
+    [aux_sym_block_construct_token1] = ACTIONS(5984),
+    [aux_sym_associate_statement_token1] = ACTIONS(5984),
+    [aux_sym_format_statement_token1] = ACTIONS(5984),
+    [aux_sym_print_statement_token1] = ACTIONS(5984),
+    [aux_sym_open_statement_token1] = ACTIONS(5984),
+    [aux_sym_close_statement_token1] = ACTIONS(5984),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5984),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5984),
+    [aux_sym_entry_statement_token1] = ACTIONS(5984),
+    [aux_sym_logical_expression_token5] = ACTIONS(5988),
+    [anon_sym_DOT] = ACTIONS(5984),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5988),
+    [anon_sym_LBRACK] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5988),
+    [aux_sym_null_literal_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5984),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5984),
+    [aux_sym_identifier_token1] = ACTIONS(5984),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5988),
+    [sym__float_literal] = ACTIONS(5988),
+    [sym__boz_literal] = ACTIONS(5988),
+    [sym__string_literal] = ACTIONS(5988),
+    [sym__string_literal_kind] = ACTIONS(5988),
+  },
+  [1915] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5990),
+    [aux_sym_preproc_def_token1] = ACTIONS(5990),
+    [aux_sym_preproc_if_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5990),
+    [sym_preproc_directive] = ACTIONS(5990),
+    [anon_sym_LPAREN2] = ACTIONS(5990),
+    [sym_preproc_comment] = ACTIONS(5992),
+    [anon_sym_PLUS] = ACTIONS(5994),
+    [anon_sym_DASH] = ACTIONS(5994),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5990),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5990),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5990),
+    [aux_sym_contains_statement_token1] = ACTIONS(5990),
+    [aux_sym_use_statement_token2] = ACTIONS(5990),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5990),
+    [aux_sym_save_statement_token1] = ACTIONS(5990),
+    [aux_sym_private_statement_token1] = ACTIONS(5990),
+    [aux_sym_public_statement_token1] = ACTIONS(5990),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5990),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5990),
+    [anon_sym_SEMI] = ACTIONS(5994),
+    [aux_sym_stop_statement_token1] = ACTIONS(5990),
+    [aux_sym_stop_statement_token2] = ACTIONS(5990),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5990),
+    [aux_sym_include_statement_token1] = ACTIONS(5990),
+    [aux_sym_data_statement_token1] = ACTIONS(5990),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5990),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5990),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5990),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5990),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5990),
+    [aux_sym_block_construct_token1] = ACTIONS(5990),
+    [aux_sym_associate_statement_token1] = ACTIONS(5990),
+    [aux_sym_format_statement_token1] = ACTIONS(5990),
+    [aux_sym_print_statement_token1] = ACTIONS(5990),
+    [aux_sym_open_statement_token1] = ACTIONS(5990),
+    [aux_sym_close_statement_token1] = ACTIONS(5990),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5990),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5990),
+    [aux_sym_entry_statement_token1] = ACTIONS(5990),
+    [aux_sym_logical_expression_token5] = ACTIONS(5994),
+    [anon_sym_DOT] = ACTIONS(5990),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5994),
+    [anon_sym_LBRACK] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5994),
+    [aux_sym_null_literal_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5990),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5990),
+    [aux_sym_identifier_token1] = ACTIONS(5990),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5994),
+    [sym__float_literal] = ACTIONS(5994),
+    [sym__boz_literal] = ACTIONS(5994),
+    [sym__string_literal] = ACTIONS(5994),
+    [sym__string_literal_kind] = ACTIONS(5994),
+  },
+  [1916] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5750),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [1917] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4595),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [1918] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [sym_preproc_comment] = ACTIONS(5998),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
+  },
+  [1919] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4513),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [1920] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5040),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2179] = {
+  [1921] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [sym_preproc_comment] = ACTIONS(6004),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
+  },
+  [1922] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4543),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [1923] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6008),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_contains_statement_token1] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [1924] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4539),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [1925] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6010),
+    [aux_sym_preproc_def_token1] = ACTIONS(6010),
+    [aux_sym_preproc_if_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6010),
+    [sym_preproc_directive] = ACTIONS(6010),
+    [anon_sym_LPAREN2] = ACTIONS(6010),
+    [sym_preproc_comment] = ACTIONS(6012),
+    [anon_sym_PLUS] = ACTIONS(6014),
+    [anon_sym_DASH] = ACTIONS(6014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6010),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6010),
+    [aux_sym_contains_statement_token1] = ACTIONS(6010),
+    [aux_sym_use_statement_token2] = ACTIONS(6010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6010),
+    [aux_sym_save_statement_token1] = ACTIONS(6010),
+    [aux_sym_private_statement_token1] = ACTIONS(6010),
+    [aux_sym_public_statement_token1] = ACTIONS(6010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6010),
+    [anon_sym_SEMI] = ACTIONS(6014),
+    [aux_sym_stop_statement_token1] = ACTIONS(6010),
+    [aux_sym_stop_statement_token2] = ACTIONS(6010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6010),
+    [aux_sym_include_statement_token1] = ACTIONS(6010),
+    [aux_sym_data_statement_token1] = ACTIONS(6010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6010),
+    [aux_sym_block_construct_token1] = ACTIONS(6010),
+    [aux_sym_associate_statement_token1] = ACTIONS(6010),
+    [aux_sym_format_statement_token1] = ACTIONS(6010),
+    [aux_sym_print_statement_token1] = ACTIONS(6010),
+    [aux_sym_open_statement_token1] = ACTIONS(6010),
+    [aux_sym_close_statement_token1] = ACTIONS(6010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6010),
+    [aux_sym_entry_statement_token1] = ACTIONS(6010),
+    [aux_sym_logical_expression_token5] = ACTIONS(6014),
+    [anon_sym_DOT] = ACTIONS(6010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6014),
+    [anon_sym_LBRACK] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6014),
+    [aux_sym_null_literal_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6010),
+    [aux_sym_identifier_token1] = ACTIONS(6010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6014),
+    [sym__float_literal] = ACTIONS(6014),
+    [sym__boz_literal] = ACTIONS(6014),
+    [sym__string_literal] = ACTIONS(6014),
+    [sym__string_literal_kind] = ACTIONS(6014),
+  },
+  [1926] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
@@ -374229,7 +348386,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6416),
+    [sym_preproc_comment] = ACTIONS(6016),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -374281,12 +348438,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
     [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5612),
     [aux_sym_select_case_statement_token3] = ACTIONS(5612),
     [aux_sym_select_type_statement_token1] = ACTIONS(5612),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5612),
     [aux_sym_block_construct_token1] = ACTIONS(5612),
     [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5612),
     [aux_sym_format_statement_token1] = ACTIONS(5612),
     [aux_sym_print_statement_token1] = ACTIONS(5612),
     [aux_sym_open_statement_token1] = ACTIONS(5612),
@@ -374322,403 +348480,305 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2180] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6418),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [1927] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6018),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2181] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6420),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2182] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6422),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1928] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2183] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6424),
+  [1929] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6020),
     [anon_sym_PLUS] = ACTIONS(5634),
     [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_contains_statement_token1] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
     [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
     [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4331),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
     [anon_sym_LBRACK] = ACTIONS(5634),
     [aux_sym_boolean_literal_token1] = ACTIONS(5634),
     [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5634),
     [sym__float_literal] = ACTIONS(5634),
@@ -374726,22 +348786,1656 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5634),
     [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2184] = {
+  [1930] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6022),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
+  },
+  [1931] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6024),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [1932] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5020),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1933] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6026),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1934] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6028),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [1935] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4619),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [1936] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [1937] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6030),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [1938] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [sym_preproc_comment] = ACTIONS(6034),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
+  },
+  [1939] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [1940] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6038),
+    [aux_sym_preproc_def_token1] = ACTIONS(6038),
+    [aux_sym_preproc_if_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6038),
+    [sym_preproc_directive] = ACTIONS(6038),
+    [anon_sym_LPAREN2] = ACTIONS(6038),
+    [sym_preproc_comment] = ACTIONS(6040),
+    [anon_sym_PLUS] = ACTIONS(6042),
+    [anon_sym_DASH] = ACTIONS(6042),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6038),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6038),
+    [aux_sym_contains_statement_token1] = ACTIONS(6038),
+    [aux_sym_use_statement_token2] = ACTIONS(6038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6038),
+    [aux_sym_save_statement_token1] = ACTIONS(6038),
+    [aux_sym_private_statement_token1] = ACTIONS(6038),
+    [aux_sym_public_statement_token1] = ACTIONS(6038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6038),
+    [anon_sym_SEMI] = ACTIONS(6042),
+    [aux_sym_stop_statement_token1] = ACTIONS(6038),
+    [aux_sym_stop_statement_token2] = ACTIONS(6038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6038),
+    [aux_sym_include_statement_token1] = ACTIONS(6038),
+    [aux_sym_data_statement_token1] = ACTIONS(6038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6038),
+    [aux_sym_block_construct_token1] = ACTIONS(6038),
+    [aux_sym_associate_statement_token1] = ACTIONS(6038),
+    [aux_sym_format_statement_token1] = ACTIONS(6038),
+    [aux_sym_print_statement_token1] = ACTIONS(6038),
+    [aux_sym_open_statement_token1] = ACTIONS(6038),
+    [aux_sym_close_statement_token1] = ACTIONS(6038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6038),
+    [aux_sym_entry_statement_token1] = ACTIONS(6038),
+    [aux_sym_logical_expression_token5] = ACTIONS(6042),
+    [anon_sym_DOT] = ACTIONS(6038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6042),
+    [anon_sym_LBRACK] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6042),
+    [aux_sym_null_literal_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6038),
+    [aux_sym_identifier_token1] = ACTIONS(6038),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6042),
+    [sym__float_literal] = ACTIONS(6042),
+    [sym__boz_literal] = ACTIONS(6042),
+    [sym__string_literal] = ACTIONS(6042),
+    [sym__string_literal_kind] = ACTIONS(6042),
+  },
+  [1941] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6044),
+    [aux_sym_preproc_def_token1] = ACTIONS(6044),
+    [aux_sym_preproc_if_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6044),
+    [sym_preproc_directive] = ACTIONS(6044),
+    [anon_sym_LPAREN2] = ACTIONS(6044),
+    [sym_preproc_comment] = ACTIONS(6046),
+    [anon_sym_PLUS] = ACTIONS(6048),
+    [anon_sym_DASH] = ACTIONS(6048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6044),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6044),
+    [aux_sym_contains_statement_token1] = ACTIONS(6044),
+    [aux_sym_use_statement_token2] = ACTIONS(6044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6044),
+    [aux_sym_save_statement_token1] = ACTIONS(6044),
+    [aux_sym_private_statement_token1] = ACTIONS(6044),
+    [aux_sym_public_statement_token1] = ACTIONS(6044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6044),
+    [anon_sym_SEMI] = ACTIONS(6048),
+    [aux_sym_stop_statement_token1] = ACTIONS(6044),
+    [aux_sym_stop_statement_token2] = ACTIONS(6044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6044),
+    [aux_sym_include_statement_token1] = ACTIONS(6044),
+    [aux_sym_data_statement_token1] = ACTIONS(6044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6044),
+    [aux_sym_block_construct_token1] = ACTIONS(6044),
+    [aux_sym_associate_statement_token1] = ACTIONS(6044),
+    [aux_sym_format_statement_token1] = ACTIONS(6044),
+    [aux_sym_print_statement_token1] = ACTIONS(6044),
+    [aux_sym_open_statement_token1] = ACTIONS(6044),
+    [aux_sym_close_statement_token1] = ACTIONS(6044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6044),
+    [aux_sym_entry_statement_token1] = ACTIONS(6044),
+    [aux_sym_logical_expression_token5] = ACTIONS(6048),
+    [anon_sym_DOT] = ACTIONS(6044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6048),
+    [anon_sym_LBRACK] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6048),
+    [aux_sym_null_literal_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6044),
+    [aux_sym_identifier_token1] = ACTIONS(6044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6048),
+    [sym__float_literal] = ACTIONS(6048),
+    [sym__boz_literal] = ACTIONS(6048),
+    [sym__string_literal] = ACTIONS(6048),
+    [sym__string_literal_kind] = ACTIONS(6048),
+  },
+  [1942] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6050),
+    [aux_sym_preproc_def_token1] = ACTIONS(6050),
+    [aux_sym_preproc_if_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6050),
+    [sym_preproc_directive] = ACTIONS(6050),
+    [anon_sym_LPAREN2] = ACTIONS(6050),
+    [sym_preproc_comment] = ACTIONS(6052),
+    [anon_sym_PLUS] = ACTIONS(6054),
+    [anon_sym_DASH] = ACTIONS(6054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6050),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6050),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6050),
+    [aux_sym_contains_statement_token1] = ACTIONS(6050),
+    [aux_sym_use_statement_token2] = ACTIONS(6050),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6050),
+    [aux_sym_save_statement_token1] = ACTIONS(6050),
+    [aux_sym_private_statement_token1] = ACTIONS(6050),
+    [aux_sym_public_statement_token1] = ACTIONS(6050),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6050),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6050),
+    [anon_sym_SEMI] = ACTIONS(6054),
+    [aux_sym_stop_statement_token1] = ACTIONS(6050),
+    [aux_sym_stop_statement_token2] = ACTIONS(6050),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6050),
+    [aux_sym_include_statement_token1] = ACTIONS(6050),
+    [aux_sym_data_statement_token1] = ACTIONS(6050),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6050),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6050),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6050),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6050),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6050),
+    [aux_sym_block_construct_token1] = ACTIONS(6050),
+    [aux_sym_associate_statement_token1] = ACTIONS(6050),
+    [aux_sym_format_statement_token1] = ACTIONS(6050),
+    [aux_sym_print_statement_token1] = ACTIONS(6050),
+    [aux_sym_open_statement_token1] = ACTIONS(6050),
+    [aux_sym_close_statement_token1] = ACTIONS(6050),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6050),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6050),
+    [aux_sym_entry_statement_token1] = ACTIONS(6050),
+    [aux_sym_logical_expression_token5] = ACTIONS(6054),
+    [anon_sym_DOT] = ACTIONS(6050),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6054),
+    [anon_sym_LBRACK] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6054),
+    [aux_sym_null_literal_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6050),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6050),
+    [aux_sym_identifier_token1] = ACTIONS(6050),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6054),
+    [sym__float_literal] = ACTIONS(6054),
+    [sym__boz_literal] = ACTIONS(6054),
+    [sym__string_literal] = ACTIONS(6054),
+    [sym__string_literal_kind] = ACTIONS(6054),
+  },
+  [1943] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6056),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [1944] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [sym_preproc_comment] = ACTIONS(6060),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [1945] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [sym_preproc_comment] = ACTIONS(6066),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
+  },
+  [1946] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6426),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6070),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
     [aux_sym_use_statement_token2] = ACTIONS(4525),
     [aux_sym_implicit_statement_token4] = ACTIONS(4525),
     [aux_sym_save_statement_token1] = ACTIONS(4525),
@@ -374767,7 +350461,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -374789,7 +350483,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -374803,12 +350496,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -374821,914 +350514,413 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2185] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6428),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2186] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6430),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2187] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6432),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2188] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2189] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2190] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_contains_statement_token1] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+  [1947] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [sym_preproc_comment] = ACTIONS(6072),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
   },
-  [2191] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+  [1948] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2192] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [1949] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_contains_statement_token1] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4525),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2193] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
+  [1950] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
     [anon_sym_PLUS] = ACTIONS(5690),
     [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
     [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
     [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_DOT] = ACTIONS(5688),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
     [anon_sym_LBRACK] = ACTIONS(5690),
     [aux_sym_boolean_literal_token1] = ACTIONS(5690),
     [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5690),
     [sym__float_literal] = ACTIONS(5690),
@@ -375736,313 +350928,1235 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5690),
     [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2194] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_contains_statement_token1] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [1951] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4369),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2195] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token2] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6434),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [1952] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6074),
+    [aux_sym_preproc_def_token1] = ACTIONS(6074),
+    [aux_sym_preproc_if_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6074),
+    [sym_preproc_directive] = ACTIONS(6074),
+    [anon_sym_LPAREN2] = ACTIONS(6074),
+    [sym_preproc_comment] = ACTIONS(6076),
+    [anon_sym_PLUS] = ACTIONS(6078),
+    [anon_sym_DASH] = ACTIONS(6078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6074),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6074),
+    [aux_sym_contains_statement_token1] = ACTIONS(6074),
+    [aux_sym_use_statement_token2] = ACTIONS(6074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6074),
+    [aux_sym_save_statement_token1] = ACTIONS(6074),
+    [aux_sym_private_statement_token1] = ACTIONS(6074),
+    [aux_sym_public_statement_token1] = ACTIONS(6074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6074),
+    [anon_sym_SEMI] = ACTIONS(6078),
+    [aux_sym_stop_statement_token1] = ACTIONS(6074),
+    [aux_sym_stop_statement_token2] = ACTIONS(6074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6074),
+    [aux_sym_include_statement_token1] = ACTIONS(6074),
+    [aux_sym_data_statement_token1] = ACTIONS(6074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6074),
+    [aux_sym_block_construct_token1] = ACTIONS(6074),
+    [aux_sym_associate_statement_token1] = ACTIONS(6074),
+    [aux_sym_format_statement_token1] = ACTIONS(6074),
+    [aux_sym_print_statement_token1] = ACTIONS(6074),
+    [aux_sym_open_statement_token1] = ACTIONS(6074),
+    [aux_sym_close_statement_token1] = ACTIONS(6074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6074),
+    [aux_sym_entry_statement_token1] = ACTIONS(6074),
+    [aux_sym_logical_expression_token5] = ACTIONS(6078),
+    [anon_sym_DOT] = ACTIONS(6074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6078),
+    [anon_sym_LBRACK] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6078),
+    [aux_sym_null_literal_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6074),
+    [aux_sym_identifier_token1] = ACTIONS(6074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6078),
+    [sym__float_literal] = ACTIONS(6078),
+    [sym__boz_literal] = ACTIONS(6078),
+    [sym__string_literal] = ACTIONS(6078),
+    [sym__string_literal_kind] = ACTIONS(6078),
+  },
+  [1953] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6080),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2196] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
+  [1954] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6082),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2197] = {
+  [1955] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6084),
+    [aux_sym_preproc_def_token1] = ACTIONS(6084),
+    [aux_sym_preproc_if_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
+    [sym_preproc_directive] = ACTIONS(6084),
+    [anon_sym_LPAREN2] = ACTIONS(6084),
+    [sym_preproc_comment] = ACTIONS(6086),
+    [anon_sym_PLUS] = ACTIONS(6088),
+    [anon_sym_DASH] = ACTIONS(6088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6084),
+    [aux_sym_contains_statement_token1] = ACTIONS(6084),
+    [aux_sym_use_statement_token2] = ACTIONS(6084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
+    [aux_sym_save_statement_token1] = ACTIONS(6084),
+    [aux_sym_private_statement_token1] = ACTIONS(6084),
+    [aux_sym_public_statement_token1] = ACTIONS(6084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
+    [anon_sym_SEMI] = ACTIONS(6088),
+    [aux_sym_stop_statement_token1] = ACTIONS(6084),
+    [aux_sym_stop_statement_token2] = ACTIONS(6084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
+    [aux_sym_include_statement_token1] = ACTIONS(6084),
+    [aux_sym_data_statement_token1] = ACTIONS(6084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
+    [aux_sym_block_construct_token1] = ACTIONS(6084),
+    [aux_sym_associate_statement_token1] = ACTIONS(6084),
+    [aux_sym_format_statement_token1] = ACTIONS(6084),
+    [aux_sym_print_statement_token1] = ACTIONS(6084),
+    [aux_sym_open_statement_token1] = ACTIONS(6084),
+    [aux_sym_close_statement_token1] = ACTIONS(6084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
+    [aux_sym_entry_statement_token1] = ACTIONS(6084),
+    [aux_sym_logical_expression_token5] = ACTIONS(6088),
+    [anon_sym_DOT] = ACTIONS(6084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
+    [anon_sym_LBRACK] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
+    [aux_sym_null_literal_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
+    [aux_sym_identifier_token1] = ACTIONS(6084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6088),
+    [sym__float_literal] = ACTIONS(6088),
+    [sym__boz_literal] = ACTIONS(6088),
+    [sym__string_literal] = ACTIONS(6088),
+    [sym__string_literal_kind] = ACTIONS(6088),
+  },
+  [1956] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6090),
+    [aux_sym_preproc_def_token1] = ACTIONS(6090),
+    [aux_sym_preproc_if_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
+    [sym_preproc_directive] = ACTIONS(6090),
+    [anon_sym_LPAREN2] = ACTIONS(6090),
+    [sym_preproc_comment] = ACTIONS(6092),
+    [anon_sym_PLUS] = ACTIONS(6094),
+    [anon_sym_DASH] = ACTIONS(6094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6090),
+    [aux_sym_contains_statement_token1] = ACTIONS(6090),
+    [aux_sym_use_statement_token2] = ACTIONS(6090),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
+    [aux_sym_save_statement_token1] = ACTIONS(6090),
+    [aux_sym_private_statement_token1] = ACTIONS(6090),
+    [aux_sym_public_statement_token1] = ACTIONS(6090),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
+    [anon_sym_SEMI] = ACTIONS(6094),
+    [aux_sym_stop_statement_token1] = ACTIONS(6090),
+    [aux_sym_stop_statement_token2] = ACTIONS(6090),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
+    [aux_sym_include_statement_token1] = ACTIONS(6090),
+    [aux_sym_data_statement_token1] = ACTIONS(6090),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
+    [aux_sym_block_construct_token1] = ACTIONS(6090),
+    [aux_sym_associate_statement_token1] = ACTIONS(6090),
+    [aux_sym_format_statement_token1] = ACTIONS(6090),
+    [aux_sym_print_statement_token1] = ACTIONS(6090),
+    [aux_sym_open_statement_token1] = ACTIONS(6090),
+    [aux_sym_close_statement_token1] = ACTIONS(6090),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
+    [aux_sym_entry_statement_token1] = ACTIONS(6090),
+    [aux_sym_logical_expression_token5] = ACTIONS(6094),
+    [anon_sym_DOT] = ACTIONS(6090),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
+    [anon_sym_LBRACK] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
+    [aux_sym_null_literal_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
+    [aux_sym_identifier_token1] = ACTIONS(6090),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
+  },
+  [1957] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [sym_preproc_comment] = ACTIONS(6096),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
+  },
+  [1958] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6044),
+    [aux_sym_preproc_def_token1] = ACTIONS(6044),
+    [aux_sym_preproc_if_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6044),
+    [sym_preproc_directive] = ACTIONS(6044),
+    [anon_sym_LPAREN2] = ACTIONS(6044),
+    [sym_preproc_comment] = ACTIONS(6098),
+    [anon_sym_PLUS] = ACTIONS(6048),
+    [anon_sym_DASH] = ACTIONS(6048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6044),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6044),
+    [aux_sym_contains_statement_token1] = ACTIONS(6044),
+    [aux_sym_use_statement_token2] = ACTIONS(6044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6044),
+    [aux_sym_save_statement_token1] = ACTIONS(6044),
+    [aux_sym_private_statement_token1] = ACTIONS(6044),
+    [aux_sym_public_statement_token1] = ACTIONS(6044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6044),
+    [anon_sym_SEMI] = ACTIONS(6048),
+    [aux_sym_stop_statement_token1] = ACTIONS(6044),
+    [aux_sym_stop_statement_token2] = ACTIONS(6044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6044),
+    [aux_sym_include_statement_token1] = ACTIONS(6044),
+    [aux_sym_data_statement_token1] = ACTIONS(6044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6044),
+    [aux_sym_block_construct_token1] = ACTIONS(6044),
+    [aux_sym_associate_statement_token1] = ACTIONS(6044),
+    [aux_sym_format_statement_token1] = ACTIONS(6044),
+    [aux_sym_print_statement_token1] = ACTIONS(6044),
+    [aux_sym_open_statement_token1] = ACTIONS(6044),
+    [aux_sym_close_statement_token1] = ACTIONS(6044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6044),
+    [aux_sym_entry_statement_token1] = ACTIONS(6044),
+    [aux_sym_logical_expression_token5] = ACTIONS(6048),
+    [anon_sym_DOT] = ACTIONS(6044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6048),
+    [anon_sym_LBRACK] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6048),
+    [aux_sym_null_literal_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6044),
+    [aux_sym_identifier_token1] = ACTIONS(6044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6048),
+    [sym__float_literal] = ACTIONS(6048),
+    [sym__boz_literal] = ACTIONS(6048),
+    [sym__string_literal] = ACTIONS(6048),
+    [sym__string_literal_kind] = ACTIONS(6048),
+  },
+  [1959] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6010),
+    [aux_sym_preproc_def_token1] = ACTIONS(6010),
+    [aux_sym_preproc_if_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6010),
+    [sym_preproc_directive] = ACTIONS(6010),
+    [anon_sym_LPAREN2] = ACTIONS(6010),
+    [sym_preproc_comment] = ACTIONS(6100),
+    [anon_sym_PLUS] = ACTIONS(6014),
+    [anon_sym_DASH] = ACTIONS(6014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6010),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6010),
+    [aux_sym_contains_statement_token1] = ACTIONS(6010),
+    [aux_sym_use_statement_token2] = ACTIONS(6010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6010),
+    [aux_sym_save_statement_token1] = ACTIONS(6010),
+    [aux_sym_private_statement_token1] = ACTIONS(6010),
+    [aux_sym_public_statement_token1] = ACTIONS(6010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6010),
+    [anon_sym_SEMI] = ACTIONS(6014),
+    [aux_sym_stop_statement_token1] = ACTIONS(6010),
+    [aux_sym_stop_statement_token2] = ACTIONS(6010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6010),
+    [aux_sym_include_statement_token1] = ACTIONS(6010),
+    [aux_sym_data_statement_token1] = ACTIONS(6010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6010),
+    [aux_sym_block_construct_token1] = ACTIONS(6010),
+    [aux_sym_associate_statement_token1] = ACTIONS(6010),
+    [aux_sym_format_statement_token1] = ACTIONS(6010),
+    [aux_sym_print_statement_token1] = ACTIONS(6010),
+    [aux_sym_open_statement_token1] = ACTIONS(6010),
+    [aux_sym_close_statement_token1] = ACTIONS(6010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6010),
+    [aux_sym_entry_statement_token1] = ACTIONS(6010),
+    [aux_sym_logical_expression_token5] = ACTIONS(6014),
+    [anon_sym_DOT] = ACTIONS(6010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6014),
+    [anon_sym_LBRACK] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6014),
+    [aux_sym_null_literal_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6010),
+    [aux_sym_identifier_token1] = ACTIONS(6010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6014),
+    [sym__float_literal] = ACTIONS(6014),
+    [sym__boz_literal] = ACTIONS(6014),
+    [sym__string_literal] = ACTIONS(6014),
+    [sym__string_literal_kind] = ACTIONS(6014),
+  },
+  [1960] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6102),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1961] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [1962] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6104),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [1963] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token2] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
     [sym_preproc_directive] = ACTIONS(5726),
@@ -376051,9 +352165,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
     [aux_sym_use_statement_token2] = ACTIONS(5726),
     [aux_sym_implicit_statement_token4] = ACTIONS(5726),
     [aux_sym_save_statement_token1] = ACTIONS(5726),
@@ -376098,11 +352214,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
     [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5726),
     [aux_sym_select_case_statement_token3] = ACTIONS(5726),
     [aux_sym_select_type_statement_token1] = ACTIONS(5726),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
     [aux_sym_block_construct_token1] = ACTIONS(5726),
     [aux_sym_associate_statement_token1] = ACTIONS(5726),
     [aux_sym_format_statement_token1] = ACTIONS(5726),
@@ -376140,119 +352254,322 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2198] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token2] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6436),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [1964] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6074),
+    [aux_sym_preproc_def_token1] = ACTIONS(6074),
+    [aux_sym_preproc_if_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6074),
+    [sym_preproc_directive] = ACTIONS(6074),
+    [anon_sym_LPAREN2] = ACTIONS(6074),
+    [sym_preproc_comment] = ACTIONS(6106),
+    [anon_sym_PLUS] = ACTIONS(6078),
+    [anon_sym_DASH] = ACTIONS(6078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6074),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6074),
+    [aux_sym_contains_statement_token1] = ACTIONS(6074),
+    [aux_sym_use_statement_token2] = ACTIONS(6074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6074),
+    [aux_sym_save_statement_token1] = ACTIONS(6074),
+    [aux_sym_private_statement_token1] = ACTIONS(6074),
+    [aux_sym_public_statement_token1] = ACTIONS(6074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6074),
+    [anon_sym_SEMI] = ACTIONS(6078),
+    [aux_sym_stop_statement_token1] = ACTIONS(6074),
+    [aux_sym_stop_statement_token2] = ACTIONS(6074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6074),
+    [aux_sym_include_statement_token1] = ACTIONS(6074),
+    [aux_sym_data_statement_token1] = ACTIONS(6074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6074),
+    [aux_sym_block_construct_token1] = ACTIONS(6074),
+    [aux_sym_associate_statement_token1] = ACTIONS(6074),
+    [aux_sym_format_statement_token1] = ACTIONS(6074),
+    [aux_sym_print_statement_token1] = ACTIONS(6074),
+    [aux_sym_open_statement_token1] = ACTIONS(6074),
+    [aux_sym_close_statement_token1] = ACTIONS(6074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6074),
+    [aux_sym_entry_statement_token1] = ACTIONS(6074),
+    [aux_sym_logical_expression_token5] = ACTIONS(6078),
+    [anon_sym_DOT] = ACTIONS(6074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6078),
+    [anon_sym_LBRACK] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6078),
+    [aux_sym_null_literal_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6074),
+    [aux_sym_identifier_token1] = ACTIONS(6074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6078),
+    [sym__float_literal] = ACTIONS(6078),
+    [sym__boz_literal] = ACTIONS(6078),
+    [sym__string_literal] = ACTIONS(6078),
+    [sym__string_literal_kind] = ACTIONS(6078),
   },
-  [2199] = {
+  [1965] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6108),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [1966] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6110),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [1967] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6438),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -376283,7 +352600,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -376298,8 +352615,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
     [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
     [aux_sym_elseif_clause_token2] = ACTIONS(4317),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4317),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4317),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
     [aux_sym_select_case_statement_token1] = ACTIONS(4317),
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
@@ -376318,12 +352638,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -376336,308 +352656,821 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2200] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [1968] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token2] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2201] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [1969] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6112),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2202] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6440),
+  [1970] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6114),
+    [aux_sym_preproc_def_token1] = ACTIONS(6114),
+    [aux_sym_preproc_if_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6114),
+    [sym_preproc_directive] = ACTIONS(6114),
+    [anon_sym_LPAREN2] = ACTIONS(6114),
+    [sym_preproc_comment] = ACTIONS(6116),
+    [anon_sym_PLUS] = ACTIONS(6118),
+    [anon_sym_DASH] = ACTIONS(6118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6114),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6114),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6114),
+    [aux_sym_contains_statement_token1] = ACTIONS(6114),
+    [aux_sym_use_statement_token2] = ACTIONS(6114),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6114),
+    [aux_sym_save_statement_token1] = ACTIONS(6114),
+    [aux_sym_private_statement_token1] = ACTIONS(6114),
+    [aux_sym_public_statement_token1] = ACTIONS(6114),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6114),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6114),
+    [anon_sym_SEMI] = ACTIONS(6118),
+    [aux_sym_stop_statement_token1] = ACTIONS(6114),
+    [aux_sym_stop_statement_token2] = ACTIONS(6114),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6114),
+    [aux_sym_include_statement_token1] = ACTIONS(6114),
+    [aux_sym_data_statement_token1] = ACTIONS(6114),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6114),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6114),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6114),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6114),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6114),
+    [aux_sym_block_construct_token1] = ACTIONS(6114),
+    [aux_sym_associate_statement_token1] = ACTIONS(6114),
+    [aux_sym_format_statement_token1] = ACTIONS(6114),
+    [aux_sym_print_statement_token1] = ACTIONS(6114),
+    [aux_sym_open_statement_token1] = ACTIONS(6114),
+    [aux_sym_close_statement_token1] = ACTIONS(6114),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6114),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6114),
+    [aux_sym_entry_statement_token1] = ACTIONS(6114),
+    [aux_sym_logical_expression_token5] = ACTIONS(6118),
+    [anon_sym_DOT] = ACTIONS(6114),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6118),
+    [anon_sym_LBRACK] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6118),
+    [aux_sym_null_literal_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6114),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6114),
+    [aux_sym_identifier_token1] = ACTIONS(6114),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6118),
+    [sym__float_literal] = ACTIONS(6118),
+    [sym__boz_literal] = ACTIONS(6118),
+    [sym__string_literal] = ACTIONS(6118),
+    [sym__string_literal_kind] = ACTIONS(6118),
+  },
+  [1971] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6120),
+    [aux_sym_preproc_def_token1] = ACTIONS(6120),
+    [aux_sym_preproc_if_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6120),
+    [sym_preproc_directive] = ACTIONS(6120),
+    [anon_sym_LPAREN2] = ACTIONS(6120),
+    [sym_preproc_comment] = ACTIONS(6122),
+    [anon_sym_PLUS] = ACTIONS(6124),
+    [anon_sym_DASH] = ACTIONS(6124),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6120),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6120),
+    [aux_sym_contains_statement_token1] = ACTIONS(6120),
+    [aux_sym_use_statement_token2] = ACTIONS(6120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6120),
+    [aux_sym_save_statement_token1] = ACTIONS(6120),
+    [aux_sym_private_statement_token1] = ACTIONS(6120),
+    [aux_sym_public_statement_token1] = ACTIONS(6120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6120),
+    [anon_sym_SEMI] = ACTIONS(6124),
+    [aux_sym_stop_statement_token1] = ACTIONS(6120),
+    [aux_sym_stop_statement_token2] = ACTIONS(6120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6120),
+    [aux_sym_include_statement_token1] = ACTIONS(6120),
+    [aux_sym_data_statement_token1] = ACTIONS(6120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6120),
+    [aux_sym_block_construct_token1] = ACTIONS(6120),
+    [aux_sym_associate_statement_token1] = ACTIONS(6120),
+    [aux_sym_format_statement_token1] = ACTIONS(6120),
+    [aux_sym_print_statement_token1] = ACTIONS(6120),
+    [aux_sym_open_statement_token1] = ACTIONS(6120),
+    [aux_sym_close_statement_token1] = ACTIONS(6120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6120),
+    [aux_sym_entry_statement_token1] = ACTIONS(6120),
+    [aux_sym_logical_expression_token5] = ACTIONS(6124),
+    [anon_sym_DOT] = ACTIONS(6120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6124),
+    [anon_sym_LBRACK] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6124),
+    [aux_sym_null_literal_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6120),
+    [aux_sym_identifier_token1] = ACTIONS(6120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6124),
+    [sym__float_literal] = ACTIONS(6124),
+    [sym__boz_literal] = ACTIONS(6124),
+    [sym__string_literal] = ACTIONS(6124),
+    [sym__string_literal_kind] = ACTIONS(6124),
+  },
+  [1972] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
+  },
+  [1973] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6126),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [1974] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6128),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [1975] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6130),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -376645,321 +353478,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2203] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6442),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2204] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [2205] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [1976] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6132),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [2206] = {
+  [1977] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6444),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6134),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -376990,7 +353621,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -377009,9 +353640,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -377025,12 +353658,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -377043,821 +353676,523 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2207] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6446),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2208] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2209] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+  [1978] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6136),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2210] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6448),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1979] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6138),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2211] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token2] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [1980] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6140),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2212] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6450),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [1981] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6142),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2213] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6452),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [1982] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6144),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2214] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6454),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2215] = {
+  [1983] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5606),
     [aux_sym_preproc_def_token1] = ACTIONS(5606),
     [aux_sym_preproc_if_token1] = ACTIONS(5606),
@@ -377865,7 +354200,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
     [sym_preproc_directive] = ACTIONS(5606),
     [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6456),
+    [sym_preproc_comment] = ACTIONS(6146),
     [anon_sym_PLUS] = ACTIONS(5610),
     [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
@@ -377873,6 +354208,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
     [aux_sym_use_statement_token2] = ACTIONS(5606),
     [aux_sym_implicit_statement_token4] = ACTIONS(5606),
     [aux_sym_save_statement_token1] = ACTIONS(5606),
@@ -377920,7 +354257,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(5606),
     [aux_sym_select_type_statement_token1] = ACTIONS(5606),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5606),
     [aux_sym_block_construct_token1] = ACTIONS(5606),
     [aux_sym_associate_statement_token1] = ACTIONS(5606),
     [aux_sym_format_statement_token1] = ACTIONS(5606),
@@ -377958,1033 +354294,636 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5610),
     [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2216] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6458),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [2217] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6460),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [1984] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6148),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2218] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6462),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
+  [1985] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6150),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [2219] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6464),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2220] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
-  },
-  [2221] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6466),
-    [aux_sym_preproc_def_token1] = ACTIONS(6466),
-    [aux_sym_preproc_if_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6466),
-    [sym_preproc_directive] = ACTIONS(6466),
-    [anon_sym_LPAREN2] = ACTIONS(6466),
-    [anon_sym_PLUS] = ACTIONS(6468),
-    [anon_sym_DASH] = ACTIONS(6468),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6466),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6466),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6466),
-    [aux_sym_contains_statement_token1] = ACTIONS(6466),
-    [aux_sym_use_statement_token2] = ACTIONS(6466),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6466),
-    [aux_sym_save_statement_token1] = ACTIONS(6466),
-    [aux_sym_private_statement_token1] = ACTIONS(6466),
-    [aux_sym_public_statement_token1] = ACTIONS(6466),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6466),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6466),
-    [anon_sym_SEMI] = ACTIONS(6468),
-    [aux_sym_stop_statement_token1] = ACTIONS(6466),
-    [aux_sym_stop_statement_token2] = ACTIONS(6466),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6466),
-    [aux_sym_include_statement_token1] = ACTIONS(6466),
-    [aux_sym_data_statement_token1] = ACTIONS(6466),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6466),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6466),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6466),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6466),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6466),
-    [aux_sym_block_construct_token1] = ACTIONS(6466),
-    [aux_sym_associate_statement_token1] = ACTIONS(6466),
-    [aux_sym_format_statement_token1] = ACTIONS(6466),
-    [aux_sym_print_statement_token1] = ACTIONS(6466),
-    [aux_sym_open_statement_token1] = ACTIONS(6466),
-    [aux_sym_close_statement_token1] = ACTIONS(6466),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6466),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6466),
-    [aux_sym_entry_statement_token1] = ACTIONS(6466),
-    [aux_sym_logical_expression_token5] = ACTIONS(6468),
-    [anon_sym_DOT] = ACTIONS(6466),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6468),
-    [anon_sym_LBRACK] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6468),
-    [aux_sym_null_literal_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6466),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6466),
-    [aux_sym_identifier_token1] = ACTIONS(6466),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6468),
-    [sym__float_literal] = ACTIONS(6468),
-    [sym__boz_literal] = ACTIONS(6468),
-    [sym__string_literal] = ACTIONS(6468),
-    [sym__string_literal_kind] = ACTIONS(6468),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2222] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_contains_statement_token1] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [1986] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6152),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [2223] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token2] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6470),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+  [1987] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6154),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2224] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token2] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6472),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+  [1988] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_where_statement_token1] = ACTIONS(4535),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2225] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token2] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6474),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [1989] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6156),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2226] = {
+  [1990] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5606),
     [aux_sym_preproc_def_token1] = ACTIONS(5606),
     [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token2] = ACTIONS(5606),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
     [sym_preproc_directive] = ACTIONS(5606),
     [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6476),
+    [sym_preproc_comment] = ACTIONS(6158),
     [anon_sym_PLUS] = ACTIONS(5610),
     [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5606),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5606),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
     [aux_sym_use_statement_token2] = ACTIONS(5606),
     [aux_sym_implicit_statement_token4] = ACTIONS(5606),
     [aux_sym_save_statement_token1] = ACTIONS(5606),
@@ -379069,23 +355008,126 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5610),
     [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2227] = {
+  [1991] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6160),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
+  },
+  [1992] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token2] = ACTIONS(5612),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6478),
+    [sym_preproc_comment] = ACTIONS(6162),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5612),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5612),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
     [aux_sym_use_statement_token2] = ACTIONS(5612),
     [aux_sym_implicit_statement_token4] = ACTIONS(5612),
     [aux_sym_save_statement_token1] = ACTIONS(5612),
@@ -379170,1817 +355212,2651 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2228] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token2] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6480),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [2229] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token2] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6482),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [2230] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token2] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6484),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2231] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [2232] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2233] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [2234] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6090),
-    [aux_sym_preproc_def_token1] = ACTIONS(6090),
-    [aux_sym_preproc_if_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
-    [sym_preproc_directive] = ACTIONS(6090),
-    [anon_sym_LPAREN2] = ACTIONS(6090),
-    [anon_sym_PLUS] = ACTIONS(6094),
-    [anon_sym_DASH] = ACTIONS(6094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6090),
-    [aux_sym_contains_statement_token1] = ACTIONS(6090),
-    [aux_sym_use_statement_token2] = ACTIONS(6090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
-    [aux_sym_save_statement_token1] = ACTIONS(6090),
-    [aux_sym_private_statement_token1] = ACTIONS(6090),
-    [aux_sym_public_statement_token1] = ACTIONS(6090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
-    [anon_sym_SEMI] = ACTIONS(6094),
-    [aux_sym_stop_statement_token1] = ACTIONS(6090),
-    [aux_sym_stop_statement_token2] = ACTIONS(6090),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
-    [aux_sym_include_statement_token1] = ACTIONS(6090),
-    [aux_sym_data_statement_token1] = ACTIONS(6090),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
-    [aux_sym_block_construct_token1] = ACTIONS(6090),
-    [aux_sym_associate_statement_token1] = ACTIONS(6090),
-    [aux_sym_format_statement_token1] = ACTIONS(6090),
-    [aux_sym_print_statement_token1] = ACTIONS(6090),
-    [aux_sym_open_statement_token1] = ACTIONS(6090),
-    [aux_sym_close_statement_token1] = ACTIONS(6090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
-    [aux_sym_entry_statement_token1] = ACTIONS(6090),
-    [aux_sym_logical_expression_token5] = ACTIONS(6094),
-    [anon_sym_DOT] = ACTIONS(6090),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
-    [anon_sym_LBRACK] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
-    [aux_sym_null_literal_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
-    [aux_sym_identifier_token1] = ACTIONS(6090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
-  },
-  [2235] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [2236] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [1993] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6164),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2237] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [1994] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6166),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [1995] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6168),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2238] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [1996] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6120),
+    [aux_sym_preproc_def_token1] = ACTIONS(6120),
+    [aux_sym_preproc_if_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6120),
+    [sym_preproc_directive] = ACTIONS(6120),
+    [anon_sym_LPAREN2] = ACTIONS(6120),
+    [sym_preproc_comment] = ACTIONS(6170),
+    [anon_sym_PLUS] = ACTIONS(6124),
+    [anon_sym_DASH] = ACTIONS(6124),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6120),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6120),
+    [aux_sym_contains_statement_token1] = ACTIONS(6120),
+    [aux_sym_use_statement_token2] = ACTIONS(6120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6120),
+    [aux_sym_save_statement_token1] = ACTIONS(6120),
+    [aux_sym_private_statement_token1] = ACTIONS(6120),
+    [aux_sym_public_statement_token1] = ACTIONS(6120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6120),
+    [anon_sym_SEMI] = ACTIONS(6124),
+    [aux_sym_stop_statement_token1] = ACTIONS(6120),
+    [aux_sym_stop_statement_token2] = ACTIONS(6120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6120),
+    [aux_sym_include_statement_token1] = ACTIONS(6120),
+    [aux_sym_data_statement_token1] = ACTIONS(6120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6120),
+    [aux_sym_block_construct_token1] = ACTIONS(6120),
+    [aux_sym_associate_statement_token1] = ACTIONS(6120),
+    [aux_sym_format_statement_token1] = ACTIONS(6120),
+    [aux_sym_print_statement_token1] = ACTIONS(6120),
+    [aux_sym_open_statement_token1] = ACTIONS(6120),
+    [aux_sym_close_statement_token1] = ACTIONS(6120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6120),
+    [aux_sym_entry_statement_token1] = ACTIONS(6120),
+    [aux_sym_logical_expression_token5] = ACTIONS(6124),
+    [anon_sym_DOT] = ACTIONS(6120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6124),
+    [anon_sym_LBRACK] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6124),
+    [aux_sym_null_literal_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6120),
+    [aux_sym_identifier_token1] = ACTIONS(6120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6124),
+    [sym__float_literal] = ACTIONS(6124),
+    [sym__boz_literal] = ACTIONS(6124),
+    [sym__string_literal] = ACTIONS(6124),
+    [sym__string_literal_kind] = ACTIONS(6124),
+  },
+  [1997] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6172),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2239] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [1998] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2240] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [1999] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5984),
+    [aux_sym_preproc_def_token1] = ACTIONS(5984),
+    [aux_sym_preproc_if_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5984),
+    [sym_preproc_directive] = ACTIONS(5984),
+    [anon_sym_LPAREN2] = ACTIONS(5984),
+    [sym_preproc_comment] = ACTIONS(6174),
+    [anon_sym_PLUS] = ACTIONS(5988),
+    [anon_sym_DASH] = ACTIONS(5988),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5984),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5984),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5984),
+    [aux_sym_contains_statement_token1] = ACTIONS(5984),
+    [aux_sym_use_statement_token2] = ACTIONS(5984),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5984),
+    [aux_sym_save_statement_token1] = ACTIONS(5984),
+    [aux_sym_private_statement_token1] = ACTIONS(5984),
+    [aux_sym_public_statement_token1] = ACTIONS(5984),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5984),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5984),
+    [anon_sym_SEMI] = ACTIONS(5988),
+    [aux_sym_stop_statement_token1] = ACTIONS(5984),
+    [aux_sym_stop_statement_token2] = ACTIONS(5984),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5984),
+    [aux_sym_include_statement_token1] = ACTIONS(5984),
+    [aux_sym_data_statement_token1] = ACTIONS(5984),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5984),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5984),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5984),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5984),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5984),
+    [aux_sym_block_construct_token1] = ACTIONS(5984),
+    [aux_sym_associate_statement_token1] = ACTIONS(5984),
+    [aux_sym_format_statement_token1] = ACTIONS(5984),
+    [aux_sym_print_statement_token1] = ACTIONS(5984),
+    [aux_sym_open_statement_token1] = ACTIONS(5984),
+    [aux_sym_close_statement_token1] = ACTIONS(5984),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5984),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5984),
+    [aux_sym_entry_statement_token1] = ACTIONS(5984),
+    [aux_sym_logical_expression_token5] = ACTIONS(5988),
+    [anon_sym_DOT] = ACTIONS(5984),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5988),
+    [anon_sym_LBRACK] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5988),
+    [aux_sym_null_literal_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5984),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5984),
+    [aux_sym_identifier_token1] = ACTIONS(5984),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5988),
+    [sym__float_literal] = ACTIONS(5988),
+    [sym__boz_literal] = ACTIONS(5988),
+    [sym__string_literal] = ACTIONS(5988),
+    [sym__string_literal_kind] = ACTIONS(5988),
+  },
+  [2000] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_contains_statement_token1] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2001] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2241] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2002] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2242] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2003] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2004] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6176),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2243] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2005] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2006] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2007] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2244] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2008] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2009] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_end_function_statement_token1] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2245] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
+  [2010] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2011] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2012] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2013] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6178),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2014] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6120),
+    [aux_sym_preproc_def_token1] = ACTIONS(6120),
+    [aux_sym_preproc_if_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6120),
+    [sym_preproc_directive] = ACTIONS(6120),
+    [anon_sym_LPAREN2] = ACTIONS(6120),
+    [sym_preproc_comment] = ACTIONS(6180),
+    [anon_sym_PLUS] = ACTIONS(6124),
+    [anon_sym_DASH] = ACTIONS(6124),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6120),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6120),
+    [aux_sym_contains_statement_token1] = ACTIONS(6120),
+    [aux_sym_use_statement_token2] = ACTIONS(6120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6120),
+    [aux_sym_save_statement_token1] = ACTIONS(6120),
+    [aux_sym_private_statement_token1] = ACTIONS(6120),
+    [aux_sym_public_statement_token1] = ACTIONS(6120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6120),
+    [anon_sym_SEMI] = ACTIONS(6124),
+    [aux_sym_stop_statement_token1] = ACTIONS(6120),
+    [aux_sym_stop_statement_token2] = ACTIONS(6120),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6120),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6120),
+    [aux_sym_include_statement_token1] = ACTIONS(6120),
+    [aux_sym_data_statement_token1] = ACTIONS(6120),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6120),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6120),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6120),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6120),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6120),
+    [aux_sym_block_construct_token1] = ACTIONS(6120),
+    [aux_sym_associate_statement_token1] = ACTIONS(6120),
+    [aux_sym_format_statement_token1] = ACTIONS(6120),
+    [aux_sym_print_statement_token1] = ACTIONS(6120),
+    [aux_sym_open_statement_token1] = ACTIONS(6120),
+    [aux_sym_close_statement_token1] = ACTIONS(6120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6120),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6120),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6120),
+    [aux_sym_entry_statement_token1] = ACTIONS(6120),
+    [aux_sym_logical_expression_token5] = ACTIONS(6124),
+    [anon_sym_DOT] = ACTIONS(6120),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6124),
+    [anon_sym_LBRACK] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6124),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6124),
+    [aux_sym_null_literal_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6120),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6120),
+    [aux_sym_identifier_token1] = ACTIONS(6120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6124),
+    [sym__float_literal] = ACTIONS(6124),
+    [sym__boz_literal] = ACTIONS(6124),
+    [sym__string_literal] = ACTIONS(6124),
+    [sym__string_literal_kind] = ACTIONS(6124),
+  },
+  [2015] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5990),
+    [aux_sym_preproc_def_token1] = ACTIONS(5990),
+    [aux_sym_preproc_if_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5990),
+    [sym_preproc_directive] = ACTIONS(5990),
+    [anon_sym_LPAREN2] = ACTIONS(5990),
+    [sym_preproc_comment] = ACTIONS(6182),
+    [anon_sym_PLUS] = ACTIONS(5994),
+    [anon_sym_DASH] = ACTIONS(5994),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5990),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5990),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5990),
+    [aux_sym_contains_statement_token1] = ACTIONS(5990),
+    [aux_sym_use_statement_token2] = ACTIONS(5990),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5990),
+    [aux_sym_save_statement_token1] = ACTIONS(5990),
+    [aux_sym_private_statement_token1] = ACTIONS(5990),
+    [aux_sym_public_statement_token1] = ACTIONS(5990),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5990),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5990),
+    [anon_sym_SEMI] = ACTIONS(5994),
+    [aux_sym_stop_statement_token1] = ACTIONS(5990),
+    [aux_sym_stop_statement_token2] = ACTIONS(5990),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5990),
+    [aux_sym_include_statement_token1] = ACTIONS(5990),
+    [aux_sym_data_statement_token1] = ACTIONS(5990),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5990),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5990),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5990),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5990),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5990),
+    [aux_sym_block_construct_token1] = ACTIONS(5990),
+    [aux_sym_associate_statement_token1] = ACTIONS(5990),
+    [aux_sym_format_statement_token1] = ACTIONS(5990),
+    [aux_sym_print_statement_token1] = ACTIONS(5990),
+    [aux_sym_open_statement_token1] = ACTIONS(5990),
+    [aux_sym_close_statement_token1] = ACTIONS(5990),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5990),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5990),
+    [aux_sym_entry_statement_token1] = ACTIONS(5990),
+    [aux_sym_logical_expression_token5] = ACTIONS(5994),
+    [anon_sym_DOT] = ACTIONS(5990),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5994),
+    [anon_sym_LBRACK] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5994),
+    [aux_sym_null_literal_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5990),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5990),
+    [aux_sym_identifier_token1] = ACTIONS(5990),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5994),
+    [sym__float_literal] = ACTIONS(5994),
+    [sym__boz_literal] = ACTIONS(5994),
+    [sym__string_literal] = ACTIONS(5994),
+    [sym__string_literal_kind] = ACTIONS(5994),
+  },
+  [2016] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2017] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [sym_preproc_comment] = ACTIONS(6184),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
+  },
+  [2018] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
     [anon_sym_PLUS] = ACTIONS(5638),
     [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_contains_statement_token1] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_contains_statement_token1] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
     [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
     [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
+    [anon_sym_DOT] = ACTIONS(5040),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
     [anon_sym_LBRACK] = ACTIONS(5638),
     [aux_sym_boolean_literal_token1] = ACTIONS(5638),
     [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5638),
     [sym__float_literal] = ACTIONS(5638),
@@ -380988,4039 +357864,7024 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5638),
     [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2246] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6312),
-    [aux_sym_preproc_def_token1] = ACTIONS(6312),
-    [aux_sym_preproc_if_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6312),
-    [sym_preproc_directive] = ACTIONS(6312),
-    [anon_sym_LPAREN2] = ACTIONS(6312),
-    [anon_sym_PLUS] = ACTIONS(6314),
-    [anon_sym_DASH] = ACTIONS(6314),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6312),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6312),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6312),
-    [aux_sym_contains_statement_token1] = ACTIONS(6312),
-    [aux_sym_use_statement_token2] = ACTIONS(6312),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6312),
-    [aux_sym_save_statement_token1] = ACTIONS(6312),
-    [aux_sym_private_statement_token1] = ACTIONS(6312),
-    [aux_sym_public_statement_token1] = ACTIONS(6312),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6312),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6312),
-    [anon_sym_SEMI] = ACTIONS(6314),
-    [aux_sym_stop_statement_token1] = ACTIONS(6312),
-    [aux_sym_stop_statement_token2] = ACTIONS(6312),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6312),
-    [aux_sym_include_statement_token1] = ACTIONS(6312),
-    [aux_sym_data_statement_token1] = ACTIONS(6312),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6312),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6312),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6312),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6312),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6312),
-    [aux_sym_block_construct_token1] = ACTIONS(6312),
-    [aux_sym_associate_statement_token1] = ACTIONS(6312),
-    [aux_sym_format_statement_token1] = ACTIONS(6312),
-    [aux_sym_print_statement_token1] = ACTIONS(6312),
-    [aux_sym_open_statement_token1] = ACTIONS(6312),
-    [aux_sym_close_statement_token1] = ACTIONS(6312),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6312),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6312),
-    [aux_sym_entry_statement_token1] = ACTIONS(6312),
-    [aux_sym_logical_expression_token5] = ACTIONS(6314),
-    [anon_sym_DOT] = ACTIONS(6312),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6314),
-    [anon_sym_LBRACK] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6314),
-    [aux_sym_null_literal_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6312),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6312),
-    [aux_sym_identifier_token1] = ACTIONS(6312),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6314),
-    [sym__float_literal] = ACTIONS(6314),
-    [sym__boz_literal] = ACTIONS(6314),
-    [sym__string_literal] = ACTIONS(6314),
-    [sym__string_literal_kind] = ACTIONS(6314),
+  [2019] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6114),
+    [aux_sym_preproc_def_token1] = ACTIONS(6114),
+    [aux_sym_preproc_if_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6114),
+    [sym_preproc_directive] = ACTIONS(6114),
+    [anon_sym_LPAREN2] = ACTIONS(6114),
+    [sym_preproc_comment] = ACTIONS(6186),
+    [anon_sym_PLUS] = ACTIONS(6118),
+    [anon_sym_DASH] = ACTIONS(6118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6114),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6114),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6114),
+    [aux_sym_contains_statement_token1] = ACTIONS(6114),
+    [aux_sym_use_statement_token2] = ACTIONS(6114),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6114),
+    [aux_sym_save_statement_token1] = ACTIONS(6114),
+    [aux_sym_private_statement_token1] = ACTIONS(6114),
+    [aux_sym_public_statement_token1] = ACTIONS(6114),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6114),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6114),
+    [anon_sym_SEMI] = ACTIONS(6118),
+    [aux_sym_stop_statement_token1] = ACTIONS(6114),
+    [aux_sym_stop_statement_token2] = ACTIONS(6114),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6114),
+    [aux_sym_include_statement_token1] = ACTIONS(6114),
+    [aux_sym_data_statement_token1] = ACTIONS(6114),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6114),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6114),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6114),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6114),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6114),
+    [aux_sym_block_construct_token1] = ACTIONS(6114),
+    [aux_sym_associate_statement_token1] = ACTIONS(6114),
+    [aux_sym_format_statement_token1] = ACTIONS(6114),
+    [aux_sym_print_statement_token1] = ACTIONS(6114),
+    [aux_sym_open_statement_token1] = ACTIONS(6114),
+    [aux_sym_close_statement_token1] = ACTIONS(6114),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6114),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6114),
+    [aux_sym_entry_statement_token1] = ACTIONS(6114),
+    [aux_sym_logical_expression_token5] = ACTIONS(6118),
+    [anon_sym_DOT] = ACTIONS(6114),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6118),
+    [anon_sym_LBRACK] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6118),
+    [aux_sym_null_literal_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6114),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6114),
+    [aux_sym_identifier_token1] = ACTIONS(6114),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6118),
+    [sym__float_literal] = ACTIONS(6118),
+    [sym__boz_literal] = ACTIONS(6118),
+    [sym__string_literal] = ACTIONS(6118),
+    [sym__string_literal_kind] = ACTIONS(6118),
   },
-  [2247] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
+  [2020] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [sym_preproc_comment] = ACTIONS(6188),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
   },
-  [2248] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6486),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [2021] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_contains_statement_token1] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2022] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6114),
+    [aux_sym_preproc_def_token1] = ACTIONS(6114),
+    [aux_sym_preproc_if_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6114),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6114),
+    [sym_preproc_directive] = ACTIONS(6114),
+    [anon_sym_LPAREN2] = ACTIONS(6114),
+    [sym_preproc_comment] = ACTIONS(6190),
+    [anon_sym_PLUS] = ACTIONS(6118),
+    [anon_sym_DASH] = ACTIONS(6118),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6114),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6114),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6114),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6114),
+    [aux_sym_contains_statement_token1] = ACTIONS(6114),
+    [aux_sym_use_statement_token2] = ACTIONS(6114),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6114),
+    [aux_sym_save_statement_token1] = ACTIONS(6114),
+    [aux_sym_private_statement_token1] = ACTIONS(6114),
+    [aux_sym_public_statement_token1] = ACTIONS(6114),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6114),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6114),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6114),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6114),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6114),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6114),
+    [anon_sym_SEMI] = ACTIONS(6118),
+    [aux_sym_stop_statement_token1] = ACTIONS(6114),
+    [aux_sym_stop_statement_token2] = ACTIONS(6114),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6114),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6114),
+    [aux_sym_include_statement_token1] = ACTIONS(6114),
+    [aux_sym_data_statement_token1] = ACTIONS(6114),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6114),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6114),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6114),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6114),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6114),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6114),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6114),
+    [aux_sym_block_construct_token1] = ACTIONS(6114),
+    [aux_sym_associate_statement_token1] = ACTIONS(6114),
+    [aux_sym_format_statement_token1] = ACTIONS(6114),
+    [aux_sym_print_statement_token1] = ACTIONS(6114),
+    [aux_sym_open_statement_token1] = ACTIONS(6114),
+    [aux_sym_close_statement_token1] = ACTIONS(6114),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6114),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6114),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6114),
+    [aux_sym_entry_statement_token1] = ACTIONS(6114),
+    [aux_sym_logical_expression_token5] = ACTIONS(6118),
+    [anon_sym_DOT] = ACTIONS(6114),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6118),
+    [anon_sym_LBRACK] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6118),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6118),
+    [aux_sym_null_literal_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6114),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6114),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6114),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6114),
+    [aux_sym_identifier_token1] = ACTIONS(6114),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6118),
+    [sym__float_literal] = ACTIONS(6118),
+    [sym__boz_literal] = ACTIONS(6118),
+    [sym__string_literal] = ACTIONS(6118),
+    [sym__string_literal_kind] = ACTIONS(6118),
+  },
+  [2023] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6192),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2024] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6194),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2025] = {
+    [sym__intrinsic_type] = STATE(6067),
+    [sym_intrinsic_type] = STATE(8255),
+    [sym_sized_allocation] = STATE(6269),
+    [sym_coarray_allocation] = STATE(7110),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4776),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4769),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6196),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6198),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6198),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6198),
+    [aux_sym_use_statement_token2] = ACTIONS(6198),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6198),
+    [aux_sym_save_statement_token1] = ACTIONS(6198),
+    [aux_sym_private_statement_token1] = ACTIONS(6198),
+    [aux_sym_public_statement_token1] = ACTIONS(6198),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6198),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6198),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6200),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6200),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6202),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6204),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6204),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6198),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6198),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6198),
+    [aux_sym_stop_statement_token1] = ACTIONS(6198),
+    [aux_sym_stop_statement_token2] = ACTIONS(6198),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6198),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6198),
+    [aux_sym_data_statement_token1] = ACTIONS(6198),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6198),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6198),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6198),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6206),
+    [aux_sym_block_construct_token1] = ACTIONS(6198),
+    [aux_sym_format_statement_token1] = ACTIONS(6198),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6198),
+    [aux_sym_entry_statement_token1] = ACTIONS(6198),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(6208),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6198),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6198),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6198),
+    [aux_sym_identifier_token1] = ACTIONS(6198),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2249] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6318),
-    [aux_sym_preproc_def_token1] = ACTIONS(6318),
-    [aux_sym_preproc_if_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6318),
-    [sym_preproc_directive] = ACTIONS(6318),
-    [anon_sym_LPAREN2] = ACTIONS(6318),
-    [anon_sym_PLUS] = ACTIONS(6320),
-    [anon_sym_DASH] = ACTIONS(6320),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6318),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6318),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6318),
-    [aux_sym_contains_statement_token1] = ACTIONS(6318),
-    [aux_sym_use_statement_token2] = ACTIONS(6318),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6318),
-    [aux_sym_save_statement_token1] = ACTIONS(6318),
-    [aux_sym_private_statement_token1] = ACTIONS(6318),
-    [aux_sym_public_statement_token1] = ACTIONS(6318),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6318),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6318),
-    [anon_sym_SEMI] = ACTIONS(6320),
-    [aux_sym_stop_statement_token1] = ACTIONS(6318),
-    [aux_sym_stop_statement_token2] = ACTIONS(6318),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6318),
-    [aux_sym_include_statement_token1] = ACTIONS(6318),
-    [aux_sym_data_statement_token1] = ACTIONS(6318),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6318),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6318),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6318),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6318),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6318),
-    [aux_sym_block_construct_token1] = ACTIONS(6318),
-    [aux_sym_associate_statement_token1] = ACTIONS(6318),
-    [aux_sym_format_statement_token1] = ACTIONS(6318),
-    [aux_sym_print_statement_token1] = ACTIONS(6318),
-    [aux_sym_open_statement_token1] = ACTIONS(6318),
-    [aux_sym_close_statement_token1] = ACTIONS(6318),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6318),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6318),
-    [aux_sym_entry_statement_token1] = ACTIONS(6318),
-    [aux_sym_logical_expression_token5] = ACTIONS(6320),
-    [anon_sym_DOT] = ACTIONS(6318),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6320),
-    [anon_sym_LBRACK] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6320),
-    [aux_sym_null_literal_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6318),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6318),
-    [aux_sym_identifier_token1] = ACTIONS(6318),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6320),
-    [sym__float_literal] = ACTIONS(6320),
-    [sym__boz_literal] = ACTIONS(6320),
-    [sym__string_literal] = ACTIONS(6320),
-    [sym__string_literal_kind] = ACTIONS(6320),
+  [2026] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6090),
+    [aux_sym_preproc_def_token1] = ACTIONS(6090),
+    [aux_sym_preproc_if_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
+    [sym_preproc_directive] = ACTIONS(6090),
+    [anon_sym_LPAREN2] = ACTIONS(6090),
+    [sym_preproc_comment] = ACTIONS(6210),
+    [anon_sym_PLUS] = ACTIONS(6094),
+    [anon_sym_DASH] = ACTIONS(6094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
+    [aux_sym_contains_statement_token1] = ACTIONS(6090),
+    [aux_sym_use_statement_token2] = ACTIONS(6090),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
+    [aux_sym_save_statement_token1] = ACTIONS(6090),
+    [aux_sym_private_statement_token1] = ACTIONS(6090),
+    [aux_sym_public_statement_token1] = ACTIONS(6090),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
+    [anon_sym_SEMI] = ACTIONS(6094),
+    [aux_sym_stop_statement_token1] = ACTIONS(6090),
+    [aux_sym_stop_statement_token2] = ACTIONS(6090),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
+    [aux_sym_include_statement_token1] = ACTIONS(6090),
+    [aux_sym_data_statement_token1] = ACTIONS(6090),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
+    [aux_sym_block_construct_token1] = ACTIONS(6090),
+    [aux_sym_associate_statement_token1] = ACTIONS(6090),
+    [aux_sym_format_statement_token1] = ACTIONS(6090),
+    [aux_sym_print_statement_token1] = ACTIONS(6090),
+    [aux_sym_open_statement_token1] = ACTIONS(6090),
+    [aux_sym_close_statement_token1] = ACTIONS(6090),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
+    [aux_sym_entry_statement_token1] = ACTIONS(6090),
+    [aux_sym_logical_expression_token5] = ACTIONS(6094),
+    [anon_sym_DOT] = ACTIONS(6090),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
+    [anon_sym_LBRACK] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
+    [aux_sym_null_literal_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
+    [aux_sym_identifier_token1] = ACTIONS(6090),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
   },
-  [2250] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
+  [2027] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6084),
+    [aux_sym_preproc_def_token1] = ACTIONS(6084),
+    [aux_sym_preproc_if_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
+    [sym_preproc_directive] = ACTIONS(6084),
+    [anon_sym_LPAREN2] = ACTIONS(6084),
+    [sym_preproc_comment] = ACTIONS(6212),
+    [anon_sym_PLUS] = ACTIONS(6088),
+    [anon_sym_DASH] = ACTIONS(6088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
+    [aux_sym_contains_statement_token1] = ACTIONS(6084),
+    [aux_sym_use_statement_token2] = ACTIONS(6084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
+    [aux_sym_save_statement_token1] = ACTIONS(6084),
+    [aux_sym_private_statement_token1] = ACTIONS(6084),
+    [aux_sym_public_statement_token1] = ACTIONS(6084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
+    [anon_sym_SEMI] = ACTIONS(6088),
+    [aux_sym_stop_statement_token1] = ACTIONS(6084),
+    [aux_sym_stop_statement_token2] = ACTIONS(6084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
+    [aux_sym_include_statement_token1] = ACTIONS(6084),
+    [aux_sym_data_statement_token1] = ACTIONS(6084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
+    [aux_sym_block_construct_token1] = ACTIONS(6084),
+    [aux_sym_associate_statement_token1] = ACTIONS(6084),
+    [aux_sym_format_statement_token1] = ACTIONS(6084),
+    [aux_sym_print_statement_token1] = ACTIONS(6084),
+    [aux_sym_open_statement_token1] = ACTIONS(6084),
+    [aux_sym_close_statement_token1] = ACTIONS(6084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
+    [aux_sym_entry_statement_token1] = ACTIONS(6084),
+    [aux_sym_logical_expression_token5] = ACTIONS(6088),
+    [anon_sym_DOT] = ACTIONS(6084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
+    [anon_sym_LBRACK] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
+    [aux_sym_null_literal_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
+    [aux_sym_identifier_token1] = ACTIONS(6084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6088),
+    [sym__float_literal] = ACTIONS(6088),
+    [sym__boz_literal] = ACTIONS(6088),
+    [sym__string_literal] = ACTIONS(6088),
+    [sym__string_literal_kind] = ACTIONS(6088),
   },
-  [2251] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2028] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6214),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2029] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6216),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_contains_statement_token1] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2252] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6488),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [2030] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6218),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2031] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6220),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
+  },
+  [2032] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6222),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_contains_statement_token1] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2033] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6090),
+    [aux_sym_preproc_def_token1] = ACTIONS(6090),
+    [aux_sym_preproc_if_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
+    [sym_preproc_directive] = ACTIONS(6090),
+    [anon_sym_LPAREN2] = ACTIONS(6090),
+    [sym_preproc_comment] = ACTIONS(6224),
+    [anon_sym_PLUS] = ACTIONS(6094),
+    [anon_sym_DASH] = ACTIONS(6094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
+    [aux_sym_contains_statement_token1] = ACTIONS(6090),
+    [aux_sym_use_statement_token2] = ACTIONS(6090),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
+    [aux_sym_save_statement_token1] = ACTIONS(6090),
+    [aux_sym_private_statement_token1] = ACTIONS(6090),
+    [aux_sym_public_statement_token1] = ACTIONS(6090),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
+    [anon_sym_SEMI] = ACTIONS(6094),
+    [aux_sym_stop_statement_token1] = ACTIONS(6090),
+    [aux_sym_stop_statement_token2] = ACTIONS(6090),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
+    [aux_sym_include_statement_token1] = ACTIONS(6090),
+    [aux_sym_data_statement_token1] = ACTIONS(6090),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
+    [aux_sym_block_construct_token1] = ACTIONS(6090),
+    [aux_sym_associate_statement_token1] = ACTIONS(6090),
+    [aux_sym_format_statement_token1] = ACTIONS(6090),
+    [aux_sym_print_statement_token1] = ACTIONS(6090),
+    [aux_sym_open_statement_token1] = ACTIONS(6090),
+    [aux_sym_close_statement_token1] = ACTIONS(6090),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
+    [aux_sym_entry_statement_token1] = ACTIONS(6090),
+    [aux_sym_logical_expression_token5] = ACTIONS(6094),
+    [anon_sym_DOT] = ACTIONS(6090),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
+    [anon_sym_LBRACK] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
+    [aux_sym_null_literal_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
+    [aux_sym_identifier_token1] = ACTIONS(6090),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
+  },
+  [2034] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6074),
+    [aux_sym_preproc_def_token1] = ACTIONS(6074),
+    [aux_sym_preproc_if_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6074),
+    [sym_preproc_directive] = ACTIONS(6074),
+    [anon_sym_LPAREN2] = ACTIONS(6074),
+    [sym_preproc_comment] = ACTIONS(6226),
+    [anon_sym_PLUS] = ACTIONS(6078),
+    [anon_sym_DASH] = ACTIONS(6078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6074),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6074),
+    [aux_sym_contains_statement_token1] = ACTIONS(6074),
+    [aux_sym_use_statement_token2] = ACTIONS(6074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6074),
+    [aux_sym_save_statement_token1] = ACTIONS(6074),
+    [aux_sym_private_statement_token1] = ACTIONS(6074),
+    [aux_sym_public_statement_token1] = ACTIONS(6074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6074),
+    [anon_sym_SEMI] = ACTIONS(6078),
+    [aux_sym_stop_statement_token1] = ACTIONS(6074),
+    [aux_sym_stop_statement_token2] = ACTIONS(6074),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6074),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6074),
+    [aux_sym_include_statement_token1] = ACTIONS(6074),
+    [aux_sym_data_statement_token1] = ACTIONS(6074),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6074),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6074),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6074),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6074),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6074),
+    [aux_sym_block_construct_token1] = ACTIONS(6074),
+    [aux_sym_associate_statement_token1] = ACTIONS(6074),
+    [aux_sym_format_statement_token1] = ACTIONS(6074),
+    [aux_sym_print_statement_token1] = ACTIONS(6074),
+    [aux_sym_open_statement_token1] = ACTIONS(6074),
+    [aux_sym_close_statement_token1] = ACTIONS(6074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6074),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6074),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6074),
+    [aux_sym_entry_statement_token1] = ACTIONS(6074),
+    [aux_sym_logical_expression_token5] = ACTIONS(6078),
+    [anon_sym_DOT] = ACTIONS(6074),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6078),
+    [anon_sym_LBRACK] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6078),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6078),
+    [aux_sym_null_literal_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6074),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6074),
+    [aux_sym_identifier_token1] = ACTIONS(6074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6078),
+    [sym__float_literal] = ACTIONS(6078),
+    [sym__boz_literal] = ACTIONS(6078),
+    [sym__string_literal] = ACTIONS(6078),
+    [sym__string_literal_kind] = ACTIONS(6078),
+  },
+  [2035] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6228),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2036] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6084),
+    [aux_sym_preproc_def_token1] = ACTIONS(6084),
+    [aux_sym_preproc_if_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6084),
+    [sym_preproc_directive] = ACTIONS(6084),
+    [anon_sym_LPAREN2] = ACTIONS(6084),
+    [sym_preproc_comment] = ACTIONS(6230),
+    [anon_sym_PLUS] = ACTIONS(6088),
+    [anon_sym_DASH] = ACTIONS(6088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6084),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6084),
+    [aux_sym_contains_statement_token1] = ACTIONS(6084),
+    [aux_sym_use_statement_token2] = ACTIONS(6084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6084),
+    [aux_sym_save_statement_token1] = ACTIONS(6084),
+    [aux_sym_private_statement_token1] = ACTIONS(6084),
+    [aux_sym_public_statement_token1] = ACTIONS(6084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6084),
+    [anon_sym_SEMI] = ACTIONS(6088),
+    [aux_sym_stop_statement_token1] = ACTIONS(6084),
+    [aux_sym_stop_statement_token2] = ACTIONS(6084),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6084),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6084),
+    [aux_sym_include_statement_token1] = ACTIONS(6084),
+    [aux_sym_data_statement_token1] = ACTIONS(6084),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6084),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6084),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6084),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6084),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6084),
+    [aux_sym_block_construct_token1] = ACTIONS(6084),
+    [aux_sym_associate_statement_token1] = ACTIONS(6084),
+    [aux_sym_format_statement_token1] = ACTIONS(6084),
+    [aux_sym_print_statement_token1] = ACTIONS(6084),
+    [aux_sym_open_statement_token1] = ACTIONS(6084),
+    [aux_sym_close_statement_token1] = ACTIONS(6084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6084),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6084),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6084),
+    [aux_sym_entry_statement_token1] = ACTIONS(6084),
+    [aux_sym_logical_expression_token5] = ACTIONS(6088),
+    [anon_sym_DOT] = ACTIONS(6084),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6088),
+    [anon_sym_LBRACK] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6088),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6088),
+    [aux_sym_null_literal_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6084),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6084),
+    [aux_sym_identifier_token1] = ACTIONS(6084),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(6088),
+    [sym__float_literal] = ACTIONS(6088),
+    [sym__boz_literal] = ACTIONS(6088),
+    [sym__string_literal] = ACTIONS(6088),
+    [sym__string_literal_kind] = ACTIONS(6088),
   },
-  [2253] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_contains_statement_token1] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2037] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6232),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_contains_statement_token1] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [2254] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+  [2038] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6010),
+    [aux_sym_preproc_def_token1] = ACTIONS(6010),
+    [aux_sym_preproc_if_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6010),
+    [sym_preproc_directive] = ACTIONS(6010),
+    [anon_sym_LPAREN2] = ACTIONS(6010),
+    [sym_preproc_comment] = ACTIONS(6234),
+    [anon_sym_PLUS] = ACTIONS(6014),
+    [anon_sym_DASH] = ACTIONS(6014),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6010),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6010),
+    [aux_sym_contains_statement_token1] = ACTIONS(6010),
+    [aux_sym_use_statement_token2] = ACTIONS(6010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6010),
+    [aux_sym_save_statement_token1] = ACTIONS(6010),
+    [aux_sym_private_statement_token1] = ACTIONS(6010),
+    [aux_sym_public_statement_token1] = ACTIONS(6010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6010),
+    [anon_sym_SEMI] = ACTIONS(6014),
+    [aux_sym_stop_statement_token1] = ACTIONS(6010),
+    [aux_sym_stop_statement_token2] = ACTIONS(6010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6010),
+    [aux_sym_include_statement_token1] = ACTIONS(6010),
+    [aux_sym_data_statement_token1] = ACTIONS(6010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6010),
+    [aux_sym_block_construct_token1] = ACTIONS(6010),
+    [aux_sym_associate_statement_token1] = ACTIONS(6010),
+    [aux_sym_format_statement_token1] = ACTIONS(6010),
+    [aux_sym_print_statement_token1] = ACTIONS(6010),
+    [aux_sym_open_statement_token1] = ACTIONS(6010),
+    [aux_sym_close_statement_token1] = ACTIONS(6010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6010),
+    [aux_sym_entry_statement_token1] = ACTIONS(6010),
+    [aux_sym_logical_expression_token5] = ACTIONS(6014),
+    [anon_sym_DOT] = ACTIONS(6010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6014),
+    [anon_sym_LBRACK] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6014),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6014),
+    [aux_sym_null_literal_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6010),
+    [aux_sym_identifier_token1] = ACTIONS(6010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6014),
+    [sym__float_literal] = ACTIONS(6014),
+    [sym__boz_literal] = ACTIONS(6014),
+    [sym__string_literal] = ACTIONS(6014),
+    [sym__string_literal_kind] = ACTIONS(6014),
   },
-  [2255] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2039] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6044),
+    [aux_sym_preproc_def_token1] = ACTIONS(6044),
+    [aux_sym_preproc_if_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6044),
+    [sym_preproc_directive] = ACTIONS(6044),
+    [anon_sym_LPAREN2] = ACTIONS(6044),
+    [sym_preproc_comment] = ACTIONS(6236),
+    [anon_sym_PLUS] = ACTIONS(6048),
+    [anon_sym_DASH] = ACTIONS(6048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6044),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6044),
+    [aux_sym_contains_statement_token1] = ACTIONS(6044),
+    [aux_sym_use_statement_token2] = ACTIONS(6044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6044),
+    [aux_sym_save_statement_token1] = ACTIONS(6044),
+    [aux_sym_private_statement_token1] = ACTIONS(6044),
+    [aux_sym_public_statement_token1] = ACTIONS(6044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6044),
+    [anon_sym_SEMI] = ACTIONS(6048),
+    [aux_sym_stop_statement_token1] = ACTIONS(6044),
+    [aux_sym_stop_statement_token2] = ACTIONS(6044),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6044),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6044),
+    [aux_sym_include_statement_token1] = ACTIONS(6044),
+    [aux_sym_data_statement_token1] = ACTIONS(6044),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6044),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6044),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6044),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6044),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6044),
+    [aux_sym_block_construct_token1] = ACTIONS(6044),
+    [aux_sym_associate_statement_token1] = ACTIONS(6044),
+    [aux_sym_format_statement_token1] = ACTIONS(6044),
+    [aux_sym_print_statement_token1] = ACTIONS(6044),
+    [aux_sym_open_statement_token1] = ACTIONS(6044),
+    [aux_sym_close_statement_token1] = ACTIONS(6044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6044),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6044),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6044),
+    [aux_sym_entry_statement_token1] = ACTIONS(6044),
+    [aux_sym_logical_expression_token5] = ACTIONS(6048),
+    [anon_sym_DOT] = ACTIONS(6044),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6048),
+    [anon_sym_LBRACK] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6048),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6048),
+    [aux_sym_null_literal_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6044),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6044),
+    [aux_sym_identifier_token1] = ACTIONS(6044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6048),
+    [sym__float_literal] = ACTIONS(6048),
+    [sym__boz_literal] = ACTIONS(6048),
+    [sym__string_literal] = ACTIONS(6048),
+    [sym__string_literal_kind] = ACTIONS(6048),
+  },
+  [2040] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [sym_preproc_comment] = ACTIONS(6238),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
+  },
+  [2041] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6240),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_contains_statement_token1] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2042] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6242),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2256] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2043] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6244),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2044] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6246),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_contains_statement_token1] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2045] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6248),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [2257] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2258] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2046] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6250),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2259] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2047] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6252),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_contains_statement_token1] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2048] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5824),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2260] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2049] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5726),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2261] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6324),
-    [aux_sym_preproc_def_token1] = ACTIONS(6324),
-    [aux_sym_preproc_if_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6324),
-    [sym_preproc_directive] = ACTIONS(6324),
-    [anon_sym_LPAREN2] = ACTIONS(6324),
-    [anon_sym_PLUS] = ACTIONS(6326),
-    [anon_sym_DASH] = ACTIONS(6326),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6324),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6324),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6324),
-    [aux_sym_contains_statement_token1] = ACTIONS(6324),
-    [aux_sym_use_statement_token2] = ACTIONS(6324),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6324),
-    [aux_sym_save_statement_token1] = ACTIONS(6324),
-    [aux_sym_private_statement_token1] = ACTIONS(6324),
-    [aux_sym_public_statement_token1] = ACTIONS(6324),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6324),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6324),
-    [anon_sym_SEMI] = ACTIONS(6326),
-    [aux_sym_stop_statement_token1] = ACTIONS(6324),
-    [aux_sym_stop_statement_token2] = ACTIONS(6324),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6324),
-    [aux_sym_include_statement_token1] = ACTIONS(6324),
-    [aux_sym_data_statement_token1] = ACTIONS(6324),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6324),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6324),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6324),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6324),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6324),
-    [aux_sym_block_construct_token1] = ACTIONS(6324),
-    [aux_sym_associate_statement_token1] = ACTIONS(6324),
-    [aux_sym_format_statement_token1] = ACTIONS(6324),
-    [aux_sym_print_statement_token1] = ACTIONS(6324),
-    [aux_sym_open_statement_token1] = ACTIONS(6324),
-    [aux_sym_close_statement_token1] = ACTIONS(6324),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6324),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6324),
-    [aux_sym_entry_statement_token1] = ACTIONS(6324),
-    [aux_sym_logical_expression_token5] = ACTIONS(6326),
-    [anon_sym_DOT] = ACTIONS(6324),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6326),
-    [anon_sym_LBRACK] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6326),
-    [aux_sym_null_literal_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6324),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6324),
-    [aux_sym_identifier_token1] = ACTIONS(6324),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6326),
-    [sym__float_literal] = ACTIONS(6326),
-    [sym__boz_literal] = ACTIONS(6326),
-    [sym__string_literal] = ACTIONS(6326),
-    [sym__string_literal_kind] = ACTIONS(6326),
+  [2050] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [sym_preproc_comment] = ACTIONS(6254),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
   },
-  [2262] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_contains_statement_token1] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [2051] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [sym_preproc_comment] = ACTIONS(6256),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
   },
-  [2263] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6334),
-    [aux_sym_preproc_def_token1] = ACTIONS(6334),
-    [aux_sym_preproc_if_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
-    [sym_preproc_directive] = ACTIONS(6334),
-    [anon_sym_LPAREN2] = ACTIONS(6334),
-    [anon_sym_PLUS] = ACTIONS(6336),
-    [anon_sym_DASH] = ACTIONS(6336),
+  [2052] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [sym_preproc_comment] = ACTIONS(6258),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [2053] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token2] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6260),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6334),
-    [aux_sym_contains_statement_token1] = ACTIONS(6334),
-    [aux_sym_use_statement_token2] = ACTIONS(6334),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
-    [aux_sym_save_statement_token1] = ACTIONS(6334),
-    [aux_sym_private_statement_token1] = ACTIONS(6334),
-    [aux_sym_public_statement_token1] = ACTIONS(6334),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
-    [anon_sym_SEMI] = ACTIONS(6336),
-    [aux_sym_stop_statement_token1] = ACTIONS(6334),
-    [aux_sym_stop_statement_token2] = ACTIONS(6334),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
-    [aux_sym_include_statement_token1] = ACTIONS(6334),
-    [aux_sym_data_statement_token1] = ACTIONS(6334),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
-    [aux_sym_block_construct_token1] = ACTIONS(6334),
-    [aux_sym_associate_statement_token1] = ACTIONS(6334),
-    [aux_sym_format_statement_token1] = ACTIONS(6334),
-    [aux_sym_print_statement_token1] = ACTIONS(6334),
-    [aux_sym_open_statement_token1] = ACTIONS(6334),
-    [aux_sym_close_statement_token1] = ACTIONS(6334),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
-    [aux_sym_entry_statement_token1] = ACTIONS(6334),
-    [aux_sym_logical_expression_token5] = ACTIONS(6336),
-    [anon_sym_DOT] = ACTIONS(6334),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
-    [anon_sym_LBRACK] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
-    [aux_sym_null_literal_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
-    [aux_sym_identifier_token1] = ACTIONS(6334),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6336),
-    [sym__float_literal] = ACTIONS(6336),
-    [sym__boz_literal] = ACTIONS(6336),
-    [sym__string_literal] = ACTIONS(6336),
-    [sym__string_literal_kind] = ACTIONS(6336),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2264] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6338),
-    [aux_sym_preproc_def_token1] = ACTIONS(6338),
-    [aux_sym_preproc_if_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6338),
-    [sym_preproc_directive] = ACTIONS(6338),
-    [anon_sym_LPAREN2] = ACTIONS(6338),
-    [anon_sym_PLUS] = ACTIONS(6340),
-    [anon_sym_DASH] = ACTIONS(6340),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6338),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6338),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6338),
-    [aux_sym_contains_statement_token1] = ACTIONS(6338),
-    [aux_sym_use_statement_token2] = ACTIONS(6338),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6338),
-    [aux_sym_save_statement_token1] = ACTIONS(6338),
-    [aux_sym_private_statement_token1] = ACTIONS(6338),
-    [aux_sym_public_statement_token1] = ACTIONS(6338),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6338),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6338),
-    [anon_sym_SEMI] = ACTIONS(6340),
-    [aux_sym_stop_statement_token1] = ACTIONS(6338),
-    [aux_sym_stop_statement_token2] = ACTIONS(6338),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6338),
-    [aux_sym_include_statement_token1] = ACTIONS(6338),
-    [aux_sym_data_statement_token1] = ACTIONS(6338),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6338),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6338),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6338),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6338),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6338),
-    [aux_sym_block_construct_token1] = ACTIONS(6338),
-    [aux_sym_associate_statement_token1] = ACTIONS(6338),
-    [aux_sym_format_statement_token1] = ACTIONS(6338),
-    [aux_sym_print_statement_token1] = ACTIONS(6338),
-    [aux_sym_open_statement_token1] = ACTIONS(6338),
-    [aux_sym_close_statement_token1] = ACTIONS(6338),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6338),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6338),
-    [aux_sym_entry_statement_token1] = ACTIONS(6338),
-    [aux_sym_logical_expression_token5] = ACTIONS(6340),
-    [anon_sym_DOT] = ACTIONS(6338),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6340),
-    [anon_sym_LBRACK] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6340),
-    [aux_sym_null_literal_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6338),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6338),
-    [aux_sym_identifier_token1] = ACTIONS(6338),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6340),
-    [sym__float_literal] = ACTIONS(6340),
-    [sym__boz_literal] = ACTIONS(6340),
-    [sym__string_literal] = ACTIONS(6340),
-    [sym__string_literal_kind] = ACTIONS(6340),
+  [2054] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6050),
+    [aux_sym_preproc_def_token1] = ACTIONS(6050),
+    [aux_sym_preproc_if_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6050),
+    [sym_preproc_directive] = ACTIONS(6050),
+    [anon_sym_LPAREN2] = ACTIONS(6050),
+    [sym_preproc_comment] = ACTIONS(6262),
+    [anon_sym_PLUS] = ACTIONS(6054),
+    [anon_sym_DASH] = ACTIONS(6054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6050),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6050),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6050),
+    [aux_sym_contains_statement_token1] = ACTIONS(6050),
+    [aux_sym_use_statement_token2] = ACTIONS(6050),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6050),
+    [aux_sym_save_statement_token1] = ACTIONS(6050),
+    [aux_sym_private_statement_token1] = ACTIONS(6050),
+    [aux_sym_public_statement_token1] = ACTIONS(6050),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6050),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6050),
+    [anon_sym_SEMI] = ACTIONS(6054),
+    [aux_sym_stop_statement_token1] = ACTIONS(6050),
+    [aux_sym_stop_statement_token2] = ACTIONS(6050),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6050),
+    [aux_sym_include_statement_token1] = ACTIONS(6050),
+    [aux_sym_data_statement_token1] = ACTIONS(6050),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6050),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6050),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6050),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6050),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6050),
+    [aux_sym_block_construct_token1] = ACTIONS(6050),
+    [aux_sym_associate_statement_token1] = ACTIONS(6050),
+    [aux_sym_format_statement_token1] = ACTIONS(6050),
+    [aux_sym_print_statement_token1] = ACTIONS(6050),
+    [aux_sym_open_statement_token1] = ACTIONS(6050),
+    [aux_sym_close_statement_token1] = ACTIONS(6050),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6050),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6050),
+    [aux_sym_entry_statement_token1] = ACTIONS(6050),
+    [aux_sym_logical_expression_token5] = ACTIONS(6054),
+    [anon_sym_DOT] = ACTIONS(6050),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6054),
+    [anon_sym_LBRACK] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6054),
+    [aux_sym_null_literal_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6050),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6050),
+    [aux_sym_identifier_token1] = ACTIONS(6050),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6054),
+    [sym__float_literal] = ACTIONS(6054),
+    [sym__boz_literal] = ACTIONS(6054),
+    [sym__string_literal] = ACTIONS(6054),
+    [sym__string_literal_kind] = ACTIONS(6054),
   },
-  [2265] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2055] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [sym_preproc_comment] = ACTIONS(6264),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
   },
-  [2266] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2056] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(6266),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2267] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+  [2057] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5648),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2268] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+  [2058] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6038),
+    [aux_sym_preproc_def_token1] = ACTIONS(6038),
+    [aux_sym_preproc_if_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6038),
+    [sym_preproc_directive] = ACTIONS(6038),
+    [anon_sym_LPAREN2] = ACTIONS(6038),
+    [sym_preproc_comment] = ACTIONS(6268),
+    [anon_sym_PLUS] = ACTIONS(6042),
+    [anon_sym_DASH] = ACTIONS(6042),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6038),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6038),
+    [aux_sym_contains_statement_token1] = ACTIONS(6038),
+    [aux_sym_use_statement_token2] = ACTIONS(6038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6038),
+    [aux_sym_save_statement_token1] = ACTIONS(6038),
+    [aux_sym_private_statement_token1] = ACTIONS(6038),
+    [aux_sym_public_statement_token1] = ACTIONS(6038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6038),
+    [anon_sym_SEMI] = ACTIONS(6042),
+    [aux_sym_stop_statement_token1] = ACTIONS(6038),
+    [aux_sym_stop_statement_token2] = ACTIONS(6038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6038),
+    [aux_sym_include_statement_token1] = ACTIONS(6038),
+    [aux_sym_data_statement_token1] = ACTIONS(6038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6038),
+    [aux_sym_block_construct_token1] = ACTIONS(6038),
+    [aux_sym_associate_statement_token1] = ACTIONS(6038),
+    [aux_sym_format_statement_token1] = ACTIONS(6038),
+    [aux_sym_print_statement_token1] = ACTIONS(6038),
+    [aux_sym_open_statement_token1] = ACTIONS(6038),
+    [aux_sym_close_statement_token1] = ACTIONS(6038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6038),
+    [aux_sym_entry_statement_token1] = ACTIONS(6038),
+    [aux_sym_logical_expression_token5] = ACTIONS(6042),
+    [anon_sym_DOT] = ACTIONS(6038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6042),
+    [anon_sym_LBRACK] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6042),
+    [aux_sym_null_literal_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6038),
+    [aux_sym_identifier_token1] = ACTIONS(6038),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6042),
+    [sym__float_literal] = ACTIONS(6042),
+    [sym__boz_literal] = ACTIONS(6042),
+    [sym__string_literal] = ACTIONS(6042),
+    [sym__string_literal_kind] = ACTIONS(6042),
   },
-  [2269] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2059] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5990),
+    [aux_sym_preproc_def_token1] = ACTIONS(5990),
+    [aux_sym_preproc_if_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5990),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5990),
+    [sym_preproc_directive] = ACTIONS(5990),
+    [anon_sym_LPAREN2] = ACTIONS(5990),
+    [sym_preproc_comment] = ACTIONS(6270),
+    [anon_sym_PLUS] = ACTIONS(5994),
+    [anon_sym_DASH] = ACTIONS(5994),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5990),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5990),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5990),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5990),
+    [aux_sym_contains_statement_token1] = ACTIONS(5990),
+    [aux_sym_use_statement_token2] = ACTIONS(5990),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5990),
+    [aux_sym_save_statement_token1] = ACTIONS(5990),
+    [aux_sym_private_statement_token1] = ACTIONS(5990),
+    [aux_sym_public_statement_token1] = ACTIONS(5990),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5990),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5990),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5990),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5990),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5990),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5990),
+    [anon_sym_SEMI] = ACTIONS(5994),
+    [aux_sym_stop_statement_token1] = ACTIONS(5990),
+    [aux_sym_stop_statement_token2] = ACTIONS(5990),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5990),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5990),
+    [aux_sym_include_statement_token1] = ACTIONS(5990),
+    [aux_sym_data_statement_token1] = ACTIONS(5990),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5990),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5990),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5990),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5990),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5990),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5990),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5990),
+    [aux_sym_block_construct_token1] = ACTIONS(5990),
+    [aux_sym_associate_statement_token1] = ACTIONS(5990),
+    [aux_sym_format_statement_token1] = ACTIONS(5990),
+    [aux_sym_print_statement_token1] = ACTIONS(5990),
+    [aux_sym_open_statement_token1] = ACTIONS(5990),
+    [aux_sym_close_statement_token1] = ACTIONS(5990),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5990),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5990),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5990),
+    [aux_sym_entry_statement_token1] = ACTIONS(5990),
+    [aux_sym_logical_expression_token5] = ACTIONS(5994),
+    [anon_sym_DOT] = ACTIONS(5990),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5994),
+    [anon_sym_LBRACK] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5994),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5994),
+    [aux_sym_null_literal_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5990),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5990),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5990),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5990),
+    [aux_sym_identifier_token1] = ACTIONS(5990),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5994),
+    [sym__float_literal] = ACTIONS(5994),
+    [sym__boz_literal] = ACTIONS(5994),
+    [sym__string_literal] = ACTIONS(5994),
+    [sym__string_literal_kind] = ACTIONS(5994),
   },
-  [2270] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2060] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6272),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_contains_statement_token1] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2271] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [2061] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6050),
+    [aux_sym_preproc_def_token1] = ACTIONS(6050),
+    [aux_sym_preproc_if_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6050),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6050),
+    [sym_preproc_directive] = ACTIONS(6050),
+    [anon_sym_LPAREN2] = ACTIONS(6050),
+    [sym_preproc_comment] = ACTIONS(6274),
+    [anon_sym_PLUS] = ACTIONS(6054),
+    [anon_sym_DASH] = ACTIONS(6054),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6050),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6050),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6050),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6050),
+    [aux_sym_contains_statement_token1] = ACTIONS(6050),
+    [aux_sym_use_statement_token2] = ACTIONS(6050),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6050),
+    [aux_sym_save_statement_token1] = ACTIONS(6050),
+    [aux_sym_private_statement_token1] = ACTIONS(6050),
+    [aux_sym_public_statement_token1] = ACTIONS(6050),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6050),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6050),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6050),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6050),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6050),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6050),
+    [anon_sym_SEMI] = ACTIONS(6054),
+    [aux_sym_stop_statement_token1] = ACTIONS(6050),
+    [aux_sym_stop_statement_token2] = ACTIONS(6050),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6050),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6050),
+    [aux_sym_include_statement_token1] = ACTIONS(6050),
+    [aux_sym_data_statement_token1] = ACTIONS(6050),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6050),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6050),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6050),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6050),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6050),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6050),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6050),
+    [aux_sym_block_construct_token1] = ACTIONS(6050),
+    [aux_sym_associate_statement_token1] = ACTIONS(6050),
+    [aux_sym_format_statement_token1] = ACTIONS(6050),
+    [aux_sym_print_statement_token1] = ACTIONS(6050),
+    [aux_sym_open_statement_token1] = ACTIONS(6050),
+    [aux_sym_close_statement_token1] = ACTIONS(6050),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6050),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6050),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6050),
+    [aux_sym_entry_statement_token1] = ACTIONS(6050),
+    [aux_sym_logical_expression_token5] = ACTIONS(6054),
+    [anon_sym_DOT] = ACTIONS(6050),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6054),
+    [anon_sym_LBRACK] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6054),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6054),
+    [aux_sym_null_literal_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6050),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6050),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6050),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6050),
+    [aux_sym_identifier_token1] = ACTIONS(6050),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6054),
+    [sym__float_literal] = ACTIONS(6054),
+    [sym__boz_literal] = ACTIONS(6054),
+    [sym__string_literal] = ACTIONS(6054),
+    [sym__string_literal_kind] = ACTIONS(6054),
   },
-  [2272] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2062] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6038),
+    [aux_sym_preproc_def_token1] = ACTIONS(6038),
+    [aux_sym_preproc_if_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6038),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6038),
+    [sym_preproc_directive] = ACTIONS(6038),
+    [anon_sym_LPAREN2] = ACTIONS(6038),
+    [sym_preproc_comment] = ACTIONS(6276),
+    [anon_sym_PLUS] = ACTIONS(6042),
+    [anon_sym_DASH] = ACTIONS(6042),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6038),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6038),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6038),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6038),
+    [aux_sym_contains_statement_token1] = ACTIONS(6038),
+    [aux_sym_use_statement_token2] = ACTIONS(6038),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6038),
+    [aux_sym_save_statement_token1] = ACTIONS(6038),
+    [aux_sym_private_statement_token1] = ACTIONS(6038),
+    [aux_sym_public_statement_token1] = ACTIONS(6038),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6038),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6038),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6038),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6038),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6038),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6038),
+    [anon_sym_SEMI] = ACTIONS(6042),
+    [aux_sym_stop_statement_token1] = ACTIONS(6038),
+    [aux_sym_stop_statement_token2] = ACTIONS(6038),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6038),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6038),
+    [aux_sym_include_statement_token1] = ACTIONS(6038),
+    [aux_sym_data_statement_token1] = ACTIONS(6038),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6038),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6038),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6038),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6038),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6038),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6038),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6038),
+    [aux_sym_block_construct_token1] = ACTIONS(6038),
+    [aux_sym_associate_statement_token1] = ACTIONS(6038),
+    [aux_sym_format_statement_token1] = ACTIONS(6038),
+    [aux_sym_print_statement_token1] = ACTIONS(6038),
+    [aux_sym_open_statement_token1] = ACTIONS(6038),
+    [aux_sym_close_statement_token1] = ACTIONS(6038),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6038),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6038),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6038),
+    [aux_sym_entry_statement_token1] = ACTIONS(6038),
+    [aux_sym_logical_expression_token5] = ACTIONS(6042),
+    [anon_sym_DOT] = ACTIONS(6038),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6042),
+    [anon_sym_LBRACK] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6042),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6042),
+    [aux_sym_null_literal_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6038),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6038),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6038),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6038),
+    [aux_sym_identifier_token1] = ACTIONS(6038),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6042),
+    [sym__float_literal] = ACTIONS(6042),
+    [sym__boz_literal] = ACTIONS(6042),
+    [sym__string_literal] = ACTIONS(6042),
+    [sym__string_literal_kind] = ACTIONS(6042),
+  },
+  [2063] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5800),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2064] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5712),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2065] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6278),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_contains_statement_token1] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2273] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2066] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6280),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2274] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2067] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6282),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2275] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2068] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5688),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2276] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2069] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5770),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
   },
-  [2277] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2070] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6284),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_contains_statement_token1] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2278] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [2071] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_where_statement_token1] = ACTIONS(5746),
+    [aux_sym_elsewhere_clause_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2279] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2072] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5984),
+    [aux_sym_preproc_def_token1] = ACTIONS(5984),
+    [aux_sym_preproc_if_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5984),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5984),
+    [sym_preproc_directive] = ACTIONS(5984),
+    [anon_sym_LPAREN2] = ACTIONS(5984),
+    [sym_preproc_comment] = ACTIONS(6286),
+    [anon_sym_PLUS] = ACTIONS(5988),
+    [anon_sym_DASH] = ACTIONS(5988),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5984),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5984),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5984),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5984),
+    [aux_sym_contains_statement_token1] = ACTIONS(5984),
+    [aux_sym_use_statement_token2] = ACTIONS(5984),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5984),
+    [aux_sym_save_statement_token1] = ACTIONS(5984),
+    [aux_sym_private_statement_token1] = ACTIONS(5984),
+    [aux_sym_public_statement_token1] = ACTIONS(5984),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5984),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5984),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5984),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5984),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5984),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5984),
+    [anon_sym_SEMI] = ACTIONS(5988),
+    [aux_sym_stop_statement_token1] = ACTIONS(5984),
+    [aux_sym_stop_statement_token2] = ACTIONS(5984),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5984),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5984),
+    [aux_sym_include_statement_token1] = ACTIONS(5984),
+    [aux_sym_data_statement_token1] = ACTIONS(5984),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5984),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5984),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5984),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5984),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5984),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5984),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5984),
+    [aux_sym_block_construct_token1] = ACTIONS(5984),
+    [aux_sym_associate_statement_token1] = ACTIONS(5984),
+    [aux_sym_format_statement_token1] = ACTIONS(5984),
+    [aux_sym_print_statement_token1] = ACTIONS(5984),
+    [aux_sym_open_statement_token1] = ACTIONS(5984),
+    [aux_sym_close_statement_token1] = ACTIONS(5984),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5984),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5984),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5984),
+    [aux_sym_entry_statement_token1] = ACTIONS(5984),
+    [aux_sym_logical_expression_token5] = ACTIONS(5988),
+    [anon_sym_DOT] = ACTIONS(5984),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5988),
+    [anon_sym_LBRACK] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5988),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5988),
+    [aux_sym_null_literal_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5984),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5984),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5984),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5984),
+    [aux_sym_identifier_token1] = ACTIONS(5984),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5988),
+    [sym__float_literal] = ACTIONS(5988),
+    [sym__boz_literal] = ACTIONS(5988),
+    [sym__string_literal] = ACTIONS(5988),
+    [sym__string_literal_kind] = ACTIONS(5988),
+  },
+  [2073] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6288),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_contains_statement_token1] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2280] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6490),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
+  [2074] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [sym_preproc_comment] = ACTIONS(6290),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [2075] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6292),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2076] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2281] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_contains_statement_token1] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2077] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
   },
-  [2282] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6492),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2078] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2079] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
+  },
+  [2080] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [2081] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6294),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2283] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6494),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2082] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6296),
+    [aux_sym_preproc_def_token1] = ACTIONS(6296),
+    [aux_sym_preproc_if_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6296),
+    [sym_preproc_directive] = ACTIONS(6296),
+    [anon_sym_LPAREN2] = ACTIONS(6296),
+    [anon_sym_PLUS] = ACTIONS(6298),
+    [anon_sym_DASH] = ACTIONS(6298),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6296),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6296),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6296),
+    [aux_sym_contains_statement_token1] = ACTIONS(6296),
+    [aux_sym_use_statement_token2] = ACTIONS(6296),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6296),
+    [aux_sym_save_statement_token1] = ACTIONS(6296),
+    [aux_sym_private_statement_token1] = ACTIONS(6296),
+    [aux_sym_public_statement_token1] = ACTIONS(6296),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6296),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6296),
+    [anon_sym_SEMI] = ACTIONS(6298),
+    [aux_sym_stop_statement_token1] = ACTIONS(6296),
+    [aux_sym_stop_statement_token2] = ACTIONS(6296),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6296),
+    [aux_sym_include_statement_token1] = ACTIONS(6296),
+    [aux_sym_data_statement_token1] = ACTIONS(6296),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6296),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6296),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6296),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6296),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6296),
+    [aux_sym_block_construct_token1] = ACTIONS(6296),
+    [aux_sym_associate_statement_token1] = ACTIONS(6296),
+    [aux_sym_format_statement_token1] = ACTIONS(6296),
+    [aux_sym_print_statement_token1] = ACTIONS(6296),
+    [aux_sym_open_statement_token1] = ACTIONS(6296),
+    [aux_sym_close_statement_token1] = ACTIONS(6296),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6296),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6296),
+    [aux_sym_entry_statement_token1] = ACTIONS(6296),
+    [aux_sym_logical_expression_token5] = ACTIONS(6298),
+    [anon_sym_DOT] = ACTIONS(6296),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6298),
+    [anon_sym_LBRACK] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6298),
+    [aux_sym_null_literal_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6296),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6296),
+    [aux_sym_identifier_token1] = ACTIONS(6296),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6298),
+    [sym__float_literal] = ACTIONS(6298),
+    [sym__boz_literal] = ACTIONS(6298),
+    [sym__string_literal] = ACTIONS(6298),
+    [sym__string_literal_kind] = ACTIONS(6298),
   },
-  [2284] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6496),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [2083] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6300),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2285] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6498),
+  [2084] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [2085] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6302),
+    [aux_sym_preproc_def_token1] = ACTIONS(6302),
+    [aux_sym_preproc_if_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6302),
+    [sym_preproc_directive] = ACTIONS(6302),
+    [anon_sym_LPAREN2] = ACTIONS(6302),
+    [anon_sym_PLUS] = ACTIONS(6304),
+    [anon_sym_DASH] = ACTIONS(6304),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6302),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6302),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6302),
+    [aux_sym_contains_statement_token1] = ACTIONS(6302),
+    [aux_sym_use_statement_token2] = ACTIONS(6302),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6302),
+    [aux_sym_save_statement_token1] = ACTIONS(6302),
+    [aux_sym_private_statement_token1] = ACTIONS(6302),
+    [aux_sym_public_statement_token1] = ACTIONS(6302),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6302),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6302),
+    [anon_sym_SEMI] = ACTIONS(6304),
+    [aux_sym_stop_statement_token1] = ACTIONS(6302),
+    [aux_sym_stop_statement_token2] = ACTIONS(6302),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6302),
+    [aux_sym_include_statement_token1] = ACTIONS(6302),
+    [aux_sym_data_statement_token1] = ACTIONS(6302),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6302),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6302),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6302),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6302),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6302),
+    [aux_sym_block_construct_token1] = ACTIONS(6302),
+    [aux_sym_associate_statement_token1] = ACTIONS(6302),
+    [aux_sym_format_statement_token1] = ACTIONS(6302),
+    [aux_sym_print_statement_token1] = ACTIONS(6302),
+    [aux_sym_open_statement_token1] = ACTIONS(6302),
+    [aux_sym_close_statement_token1] = ACTIONS(6302),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6302),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6302),
+    [aux_sym_entry_statement_token1] = ACTIONS(6302),
+    [aux_sym_logical_expression_token5] = ACTIONS(6304),
+    [anon_sym_DOT] = ACTIONS(6302),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6304),
+    [anon_sym_LBRACK] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6304),
+    [aux_sym_null_literal_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6302),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6302),
+    [aux_sym_identifier_token1] = ACTIONS(6302),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6304),
+    [sym__float_literal] = ACTIONS(6304),
+    [sym__boz_literal] = ACTIONS(6304),
+    [sym__string_literal] = ACTIONS(6304),
+    [sym__string_literal_kind] = ACTIONS(6304),
+  },
+  [2086] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2087] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6306),
     [anon_sym_PLUS] = ACTIONS(5634),
     [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
     [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
     [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4331),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
     [anon_sym_LBRACK] = ACTIONS(5634),
     [aux_sym_boolean_literal_token1] = ACTIONS(5634),
     [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5634),
     [sym__float_literal] = ACTIONS(5634),
@@ -385028,411 +364889,1118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5634),
     [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2286] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [2088] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6302),
+    [aux_sym_preproc_def_token1] = ACTIONS(6302),
+    [aux_sym_preproc_if_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6302),
+    [sym_preproc_directive] = ACTIONS(6302),
+    [anon_sym_LPAREN2] = ACTIONS(6302),
+    [anon_sym_PLUS] = ACTIONS(6304),
+    [anon_sym_DASH] = ACTIONS(6304),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6302),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6302),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6302),
+    [aux_sym_contains_statement_token1] = ACTIONS(6302),
+    [aux_sym_use_statement_token2] = ACTIONS(6302),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6302),
+    [aux_sym_save_statement_token1] = ACTIONS(6302),
+    [aux_sym_private_statement_token1] = ACTIONS(6302),
+    [aux_sym_public_statement_token1] = ACTIONS(6302),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6302),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6302),
+    [anon_sym_SEMI] = ACTIONS(6304),
+    [aux_sym_stop_statement_token1] = ACTIONS(6302),
+    [aux_sym_stop_statement_token2] = ACTIONS(6302),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6302),
+    [aux_sym_include_statement_token1] = ACTIONS(6302),
+    [aux_sym_data_statement_token1] = ACTIONS(6302),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6302),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6302),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6302),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6302),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6302),
+    [aux_sym_block_construct_token1] = ACTIONS(6302),
+    [aux_sym_associate_statement_token1] = ACTIONS(6302),
+    [aux_sym_format_statement_token1] = ACTIONS(6302),
+    [aux_sym_print_statement_token1] = ACTIONS(6302),
+    [aux_sym_open_statement_token1] = ACTIONS(6302),
+    [aux_sym_close_statement_token1] = ACTIONS(6302),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6302),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6302),
+    [aux_sym_entry_statement_token1] = ACTIONS(6302),
+    [aux_sym_logical_expression_token5] = ACTIONS(6304),
+    [anon_sym_DOT] = ACTIONS(6302),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6304),
+    [anon_sym_LBRACK] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6304),
+    [aux_sym_null_literal_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6302),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6302),
+    [aux_sym_identifier_token1] = ACTIONS(6302),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6304),
+    [sym__float_literal] = ACTIONS(6304),
+    [sym__boz_literal] = ACTIONS(6304),
+    [sym__string_literal] = ACTIONS(6304),
+    [sym__string_literal_kind] = ACTIONS(6304),
+  },
+  [2089] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6308),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_contains_statement_token1] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2287] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_contains_statement_token1] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2090] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2288] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6500),
-    [aux_sym_preproc_def_token1] = ACTIONS(6500),
-    [aux_sym_preproc_if_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6500),
-    [sym_preproc_directive] = ACTIONS(6500),
-    [anon_sym_LPAREN2] = ACTIONS(6500),
-    [anon_sym_PLUS] = ACTIONS(6502),
-    [anon_sym_DASH] = ACTIONS(6502),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6500),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6500),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6500),
-    [aux_sym_contains_statement_token1] = ACTIONS(6500),
-    [aux_sym_use_statement_token2] = ACTIONS(6500),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6500),
-    [aux_sym_save_statement_token1] = ACTIONS(6500),
-    [aux_sym_private_statement_token1] = ACTIONS(6500),
-    [aux_sym_public_statement_token1] = ACTIONS(6500),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6500),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6500),
-    [anon_sym_SEMI] = ACTIONS(6502),
-    [aux_sym_stop_statement_token1] = ACTIONS(6500),
-    [aux_sym_stop_statement_token2] = ACTIONS(6500),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6500),
-    [aux_sym_include_statement_token1] = ACTIONS(6500),
-    [aux_sym_data_statement_token1] = ACTIONS(6500),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6500),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6500),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6500),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6500),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6500),
-    [aux_sym_block_construct_token1] = ACTIONS(6500),
-    [aux_sym_associate_statement_token1] = ACTIONS(6500),
-    [aux_sym_format_statement_token1] = ACTIONS(6500),
-    [aux_sym_print_statement_token1] = ACTIONS(6500),
-    [aux_sym_open_statement_token1] = ACTIONS(6500),
-    [aux_sym_close_statement_token1] = ACTIONS(6500),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6500),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6500),
-    [aux_sym_entry_statement_token1] = ACTIONS(6500),
-    [aux_sym_logical_expression_token5] = ACTIONS(6502),
-    [anon_sym_DOT] = ACTIONS(6500),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6502),
-    [anon_sym_LBRACK] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6502),
-    [aux_sym_null_literal_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6500),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6500),
-    [aux_sym_identifier_token1] = ACTIONS(6500),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6502),
-    [sym__float_literal] = ACTIONS(6502),
-    [sym__boz_literal] = ACTIONS(6502),
-    [sym__string_literal] = ACTIONS(6502),
-    [sym__string_literal_kind] = ACTIONS(6502),
+  [2091] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_contains_statement_token1] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2289] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
+  [2092] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6310),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2290] = {
+  [2093] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2094] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6312),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2095] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2096] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
+  },
+  [2097] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
+  },
+  [2098] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [2099] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -385440,9 +366008,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6504),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6314),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -385473,7 +366041,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -385488,6 +366056,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
     [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
@@ -385496,7 +366065,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
     [aux_sym_print_statement_token1] = ACTIONS(4525),
@@ -385509,12 +366077,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -385527,821 +366095,1023 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2291] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6506),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2100] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6316),
+    [aux_sym_preproc_def_token1] = ACTIONS(6316),
+    [aux_sym_preproc_if_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6316),
+    [sym_preproc_directive] = ACTIONS(6316),
+    [anon_sym_LPAREN2] = ACTIONS(6316),
+    [anon_sym_PLUS] = ACTIONS(6318),
+    [anon_sym_DASH] = ACTIONS(6318),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6316),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6316),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6316),
+    [aux_sym_contains_statement_token1] = ACTIONS(6316),
+    [aux_sym_use_statement_token2] = ACTIONS(6316),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6316),
+    [aux_sym_save_statement_token1] = ACTIONS(6316),
+    [aux_sym_private_statement_token1] = ACTIONS(6316),
+    [aux_sym_public_statement_token1] = ACTIONS(6316),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6316),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6316),
+    [anon_sym_SEMI] = ACTIONS(6318),
+    [aux_sym_stop_statement_token1] = ACTIONS(6316),
+    [aux_sym_stop_statement_token2] = ACTIONS(6316),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6316),
+    [aux_sym_include_statement_token1] = ACTIONS(6316),
+    [aux_sym_data_statement_token1] = ACTIONS(6316),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6316),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6316),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6316),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6316),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6316),
+    [aux_sym_block_construct_token1] = ACTIONS(6316),
+    [aux_sym_associate_statement_token1] = ACTIONS(6316),
+    [aux_sym_format_statement_token1] = ACTIONS(6316),
+    [aux_sym_print_statement_token1] = ACTIONS(6316),
+    [aux_sym_open_statement_token1] = ACTIONS(6316),
+    [aux_sym_close_statement_token1] = ACTIONS(6316),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6316),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6316),
+    [aux_sym_entry_statement_token1] = ACTIONS(6316),
+    [aux_sym_logical_expression_token5] = ACTIONS(6318),
+    [anon_sym_DOT] = ACTIONS(6316),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6318),
+    [anon_sym_LBRACK] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6318),
+    [aux_sym_null_literal_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6316),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6316),
+    [aux_sym_identifier_token1] = ACTIONS(6316),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6318),
+    [sym__float_literal] = ACTIONS(6318),
+    [sym__boz_literal] = ACTIONS(6318),
+    [sym__string_literal] = ACTIONS(6318),
+    [sym__string_literal_kind] = ACTIONS(6318),
   },
-  [2292] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6384),
-    [aux_sym_preproc_def_token1] = ACTIONS(6384),
-    [aux_sym_preproc_if_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6384),
-    [sym_preproc_directive] = ACTIONS(6384),
-    [anon_sym_LPAREN2] = ACTIONS(6384),
-    [anon_sym_PLUS] = ACTIONS(6386),
-    [anon_sym_DASH] = ACTIONS(6386),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6384),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6384),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6384),
-    [aux_sym_contains_statement_token1] = ACTIONS(6384),
-    [aux_sym_use_statement_token2] = ACTIONS(6384),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6384),
-    [aux_sym_save_statement_token1] = ACTIONS(6384),
-    [aux_sym_private_statement_token1] = ACTIONS(6384),
-    [aux_sym_public_statement_token1] = ACTIONS(6384),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6384),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6384),
-    [anon_sym_SEMI] = ACTIONS(6386),
-    [aux_sym_stop_statement_token1] = ACTIONS(6384),
-    [aux_sym_stop_statement_token2] = ACTIONS(6384),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6384),
-    [aux_sym_include_statement_token1] = ACTIONS(6384),
-    [aux_sym_data_statement_token1] = ACTIONS(6384),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6384),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6384),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6384),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6384),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6384),
-    [aux_sym_block_construct_token1] = ACTIONS(6384),
-    [aux_sym_associate_statement_token1] = ACTIONS(6384),
-    [aux_sym_format_statement_token1] = ACTIONS(6384),
-    [aux_sym_print_statement_token1] = ACTIONS(6384),
-    [aux_sym_open_statement_token1] = ACTIONS(6384),
-    [aux_sym_close_statement_token1] = ACTIONS(6384),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6384),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6384),
-    [aux_sym_entry_statement_token1] = ACTIONS(6384),
-    [aux_sym_logical_expression_token5] = ACTIONS(6386),
-    [anon_sym_DOT] = ACTIONS(6384),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6386),
-    [anon_sym_LBRACK] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6386),
-    [aux_sym_null_literal_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6384),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6384),
-    [aux_sym_identifier_token1] = ACTIONS(6384),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6386),
-    [sym__float_literal] = ACTIONS(6386),
-    [sym__boz_literal] = ACTIONS(6386),
-    [sym__string_literal] = ACTIONS(6386),
-    [sym__string_literal_kind] = ACTIONS(6386),
+  [2101] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6320),
+    [aux_sym_preproc_def_token1] = ACTIONS(6320),
+    [aux_sym_preproc_if_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6320),
+    [sym_preproc_directive] = ACTIONS(6320),
+    [anon_sym_LPAREN2] = ACTIONS(6320),
+    [anon_sym_PLUS] = ACTIONS(6322),
+    [anon_sym_DASH] = ACTIONS(6322),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6320),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6320),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6320),
+    [aux_sym_contains_statement_token1] = ACTIONS(6320),
+    [aux_sym_use_statement_token2] = ACTIONS(6320),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6320),
+    [aux_sym_save_statement_token1] = ACTIONS(6320),
+    [aux_sym_private_statement_token1] = ACTIONS(6320),
+    [aux_sym_public_statement_token1] = ACTIONS(6320),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6320),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6320),
+    [anon_sym_SEMI] = ACTIONS(6322),
+    [aux_sym_stop_statement_token1] = ACTIONS(6320),
+    [aux_sym_stop_statement_token2] = ACTIONS(6320),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6320),
+    [aux_sym_include_statement_token1] = ACTIONS(6320),
+    [aux_sym_data_statement_token1] = ACTIONS(6320),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6320),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6320),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6320),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6320),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6320),
+    [aux_sym_block_construct_token1] = ACTIONS(6320),
+    [aux_sym_associate_statement_token1] = ACTIONS(6320),
+    [aux_sym_format_statement_token1] = ACTIONS(6320),
+    [aux_sym_print_statement_token1] = ACTIONS(6320),
+    [aux_sym_open_statement_token1] = ACTIONS(6320),
+    [aux_sym_close_statement_token1] = ACTIONS(6320),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6320),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6320),
+    [aux_sym_entry_statement_token1] = ACTIONS(6320),
+    [aux_sym_logical_expression_token5] = ACTIONS(6322),
+    [anon_sym_DOT] = ACTIONS(6320),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6322),
+    [anon_sym_LBRACK] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6322),
+    [aux_sym_null_literal_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6320),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6320),
+    [aux_sym_identifier_token1] = ACTIONS(6320),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6322),
+    [sym__float_literal] = ACTIONS(6322),
+    [sym__boz_literal] = ACTIONS(6322),
+    [sym__string_literal] = ACTIONS(6322),
+    [sym__string_literal_kind] = ACTIONS(6322),
   },
-  [2293] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6508),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
+  [2102] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2294] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2869),
-    [aux_sym_preproc_def_token1] = ACTIONS(2869),
-    [aux_sym_preproc_if_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2869),
-    [sym_preproc_directive] = ACTIONS(2869),
-    [anon_sym_LPAREN2] = ACTIONS(2869),
-    [anon_sym_PLUS] = ACTIONS(6510),
-    [anon_sym_DASH] = ACTIONS(6510),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2869),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2869),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2869),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2869),
-    [aux_sym_save_statement_token1] = ACTIONS(2869),
-    [aux_sym_private_statement_token1] = ACTIONS(2869),
-    [aux_sym_public_statement_token1] = ACTIONS(2869),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2869),
-    [anon_sym_SEMI] = ACTIONS(6510),
-    [aux_sym_stop_statement_token1] = ACTIONS(2869),
-    [aux_sym_stop_statement_token2] = ACTIONS(2869),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2869),
-    [aux_sym_include_statement_token1] = ACTIONS(2869),
-    [aux_sym_data_statement_token1] = ACTIONS(2869),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2869),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2869),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2869),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2869),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2869),
-    [aux_sym_block_construct_token1] = ACTIONS(2869),
-    [aux_sym_associate_statement_token1] = ACTIONS(2869),
-    [aux_sym_format_statement_token1] = ACTIONS(2869),
-    [aux_sym_print_statement_token1] = ACTIONS(2869),
-    [aux_sym_open_statement_token1] = ACTIONS(2869),
-    [aux_sym_close_statement_token1] = ACTIONS(2869),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2869),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2869),
-    [aux_sym_entry_statement_token1] = ACTIONS(2869),
-    [aux_sym_logical_expression_token5] = ACTIONS(6510),
-    [anon_sym_DOT] = ACTIONS(2869),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6510),
-    [anon_sym_LBRACK] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6510),
-    [aux_sym_null_literal_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2869),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2869),
-    [aux_sym_identifier_token1] = ACTIONS(2869),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6510),
-    [sym__float_literal] = ACTIONS(6510),
-    [sym__boz_literal] = ACTIONS(6510),
-    [sym__string_literal] = ACTIONS(6510),
-    [sym__string_literal_kind] = ACTIONS(6510),
+  [2103] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6324),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2295] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6512),
-    [aux_sym_preproc_def_token1] = ACTIONS(6512),
-    [aux_sym_preproc_if_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6512),
-    [sym_preproc_directive] = ACTIONS(6512),
-    [anon_sym_LPAREN2] = ACTIONS(6512),
-    [anon_sym_PLUS] = ACTIONS(6514),
-    [anon_sym_DASH] = ACTIONS(6514),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6512),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6512),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6512),
-    [aux_sym_contains_statement_token1] = ACTIONS(6512),
-    [aux_sym_use_statement_token2] = ACTIONS(6512),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6512),
-    [aux_sym_save_statement_token1] = ACTIONS(6512),
-    [aux_sym_private_statement_token1] = ACTIONS(6512),
-    [aux_sym_public_statement_token1] = ACTIONS(6512),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6512),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6512),
-    [anon_sym_SEMI] = ACTIONS(6514),
-    [aux_sym_stop_statement_token1] = ACTIONS(6512),
-    [aux_sym_stop_statement_token2] = ACTIONS(6512),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6512),
-    [aux_sym_include_statement_token1] = ACTIONS(6512),
-    [aux_sym_data_statement_token1] = ACTIONS(6512),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6512),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6512),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6512),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6512),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6512),
-    [aux_sym_block_construct_token1] = ACTIONS(6512),
-    [aux_sym_associate_statement_token1] = ACTIONS(6512),
-    [aux_sym_format_statement_token1] = ACTIONS(6512),
-    [aux_sym_print_statement_token1] = ACTIONS(6512),
-    [aux_sym_open_statement_token1] = ACTIONS(6512),
-    [aux_sym_close_statement_token1] = ACTIONS(6512),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6512),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6512),
-    [aux_sym_entry_statement_token1] = ACTIONS(6512),
-    [aux_sym_logical_expression_token5] = ACTIONS(6514),
-    [anon_sym_DOT] = ACTIONS(6512),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6514),
-    [anon_sym_LBRACK] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6514),
-    [aux_sym_null_literal_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6512),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6512),
-    [aux_sym_identifier_token1] = ACTIONS(6512),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6514),
-    [sym__float_literal] = ACTIONS(6514),
-    [sym__boz_literal] = ACTIONS(6514),
-    [sym__string_literal] = ACTIONS(6514),
-    [sym__string_literal_kind] = ACTIONS(6514),
+  [2104] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6326),
+    [aux_sym_preproc_def_token1] = ACTIONS(6326),
+    [aux_sym_preproc_if_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6326),
+    [sym_preproc_directive] = ACTIONS(6326),
+    [anon_sym_LPAREN2] = ACTIONS(6326),
+    [anon_sym_PLUS] = ACTIONS(6328),
+    [anon_sym_DASH] = ACTIONS(6328),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6326),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6326),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6326),
+    [aux_sym_contains_statement_token1] = ACTIONS(6326),
+    [aux_sym_use_statement_token2] = ACTIONS(6326),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6326),
+    [aux_sym_save_statement_token1] = ACTIONS(6326),
+    [aux_sym_private_statement_token1] = ACTIONS(6326),
+    [aux_sym_public_statement_token1] = ACTIONS(6326),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6326),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6326),
+    [anon_sym_SEMI] = ACTIONS(6328),
+    [aux_sym_stop_statement_token1] = ACTIONS(6326),
+    [aux_sym_stop_statement_token2] = ACTIONS(6326),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6326),
+    [aux_sym_include_statement_token1] = ACTIONS(6326),
+    [aux_sym_data_statement_token1] = ACTIONS(6326),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6326),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6326),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6326),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6326),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6326),
+    [aux_sym_block_construct_token1] = ACTIONS(6326),
+    [aux_sym_associate_statement_token1] = ACTIONS(6326),
+    [aux_sym_format_statement_token1] = ACTIONS(6326),
+    [aux_sym_print_statement_token1] = ACTIONS(6326),
+    [aux_sym_open_statement_token1] = ACTIONS(6326),
+    [aux_sym_close_statement_token1] = ACTIONS(6326),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6326),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6326),
+    [aux_sym_entry_statement_token1] = ACTIONS(6326),
+    [aux_sym_logical_expression_token5] = ACTIONS(6328),
+    [anon_sym_DOT] = ACTIONS(6326),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6328),
+    [anon_sym_LBRACK] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6328),
+    [aux_sym_null_literal_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6326),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6326),
+    [aux_sym_identifier_token1] = ACTIONS(6326),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6328),
+    [sym__float_literal] = ACTIONS(6328),
+    [sym__boz_literal] = ACTIONS(6328),
+    [sym__string_literal] = ACTIONS(6328),
+    [sym__string_literal_kind] = ACTIONS(6328),
   },
-  [2296] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6396),
-    [aux_sym_preproc_def_token1] = ACTIONS(6396),
-    [aux_sym_preproc_if_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6396),
-    [sym_preproc_directive] = ACTIONS(6396),
-    [anon_sym_LPAREN2] = ACTIONS(6396),
-    [anon_sym_PLUS] = ACTIONS(6398),
-    [anon_sym_DASH] = ACTIONS(6398),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6396),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6396),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6396),
-    [aux_sym_contains_statement_token1] = ACTIONS(6396),
-    [aux_sym_use_statement_token2] = ACTIONS(6396),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6396),
-    [aux_sym_save_statement_token1] = ACTIONS(6396),
-    [aux_sym_private_statement_token1] = ACTIONS(6396),
-    [aux_sym_public_statement_token1] = ACTIONS(6396),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6396),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6396),
-    [anon_sym_SEMI] = ACTIONS(6398),
-    [aux_sym_stop_statement_token1] = ACTIONS(6396),
-    [aux_sym_stop_statement_token2] = ACTIONS(6396),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6396),
-    [aux_sym_include_statement_token1] = ACTIONS(6396),
-    [aux_sym_data_statement_token1] = ACTIONS(6396),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6396),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6396),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6396),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6396),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6396),
-    [aux_sym_block_construct_token1] = ACTIONS(6396),
-    [aux_sym_associate_statement_token1] = ACTIONS(6396),
-    [aux_sym_format_statement_token1] = ACTIONS(6396),
-    [aux_sym_print_statement_token1] = ACTIONS(6396),
-    [aux_sym_open_statement_token1] = ACTIONS(6396),
-    [aux_sym_close_statement_token1] = ACTIONS(6396),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6396),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6396),
-    [aux_sym_entry_statement_token1] = ACTIONS(6396),
-    [aux_sym_logical_expression_token5] = ACTIONS(6398),
-    [anon_sym_DOT] = ACTIONS(6396),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6398),
-    [anon_sym_LBRACK] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6398),
-    [aux_sym_null_literal_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6396),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6396),
-    [aux_sym_identifier_token1] = ACTIONS(6396),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6398),
-    [sym__float_literal] = ACTIONS(6398),
-    [sym__boz_literal] = ACTIONS(6398),
-    [sym__string_literal] = ACTIONS(6398),
-    [sym__string_literal_kind] = ACTIONS(6398),
+  [2105] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6330),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2297] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6392),
-    [aux_sym_preproc_def_token1] = ACTIONS(6392),
-    [aux_sym_preproc_if_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6392),
-    [sym_preproc_directive] = ACTIONS(6392),
-    [anon_sym_LPAREN2] = ACTIONS(6392),
-    [anon_sym_PLUS] = ACTIONS(6394),
-    [anon_sym_DASH] = ACTIONS(6394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6392),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6392),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6392),
-    [aux_sym_contains_statement_token1] = ACTIONS(6392),
-    [aux_sym_use_statement_token2] = ACTIONS(6392),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6392),
-    [aux_sym_save_statement_token1] = ACTIONS(6392),
-    [aux_sym_private_statement_token1] = ACTIONS(6392),
-    [aux_sym_public_statement_token1] = ACTIONS(6392),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6392),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6392),
-    [anon_sym_SEMI] = ACTIONS(6394),
-    [aux_sym_stop_statement_token1] = ACTIONS(6392),
-    [aux_sym_stop_statement_token2] = ACTIONS(6392),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6392),
-    [aux_sym_include_statement_token1] = ACTIONS(6392),
-    [aux_sym_data_statement_token1] = ACTIONS(6392),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6392),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6392),
-    [aux_sym_block_construct_token1] = ACTIONS(6392),
-    [aux_sym_associate_statement_token1] = ACTIONS(6392),
-    [aux_sym_format_statement_token1] = ACTIONS(6392),
-    [aux_sym_print_statement_token1] = ACTIONS(6392),
-    [aux_sym_open_statement_token1] = ACTIONS(6392),
-    [aux_sym_close_statement_token1] = ACTIONS(6392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6392),
-    [aux_sym_entry_statement_token1] = ACTIONS(6392),
-    [aux_sym_logical_expression_token5] = ACTIONS(6394),
-    [anon_sym_DOT] = ACTIONS(6392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6394),
-    [anon_sym_LBRACK] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6394),
-    [aux_sym_null_literal_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6392),
-    [aux_sym_identifier_token1] = ACTIONS(6392),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6394),
-    [sym__float_literal] = ACTIONS(6394),
-    [sym__boz_literal] = ACTIONS(6394),
-    [sym__string_literal] = ACTIONS(6394),
-    [sym__string_literal_kind] = ACTIONS(6394),
+  [2106] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2298] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2869),
-    [aux_sym_preproc_def_token1] = ACTIONS(2869),
-    [aux_sym_preproc_if_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2869),
-    [sym_preproc_directive] = ACTIONS(2869),
-    [anon_sym_LPAREN2] = ACTIONS(2869),
-    [anon_sym_PLUS] = ACTIONS(6510),
-    [anon_sym_DASH] = ACTIONS(6510),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2869),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2869),
-    [aux_sym_end_function_statement_token1] = ACTIONS(2869),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2869),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2869),
-    [aux_sym_save_statement_token1] = ACTIONS(2869),
-    [aux_sym_private_statement_token1] = ACTIONS(2869),
-    [aux_sym_public_statement_token1] = ACTIONS(2869),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2869),
-    [anon_sym_SEMI] = ACTIONS(6510),
-    [aux_sym_stop_statement_token1] = ACTIONS(2869),
-    [aux_sym_stop_statement_token2] = ACTIONS(2869),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2869),
-    [aux_sym_include_statement_token1] = ACTIONS(2869),
-    [aux_sym_data_statement_token1] = ACTIONS(2869),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2869),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2869),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2869),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2869),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2869),
-    [aux_sym_block_construct_token1] = ACTIONS(2869),
-    [aux_sym_associate_statement_token1] = ACTIONS(2869),
-    [aux_sym_format_statement_token1] = ACTIONS(2869),
-    [aux_sym_print_statement_token1] = ACTIONS(2869),
-    [aux_sym_open_statement_token1] = ACTIONS(2869),
-    [aux_sym_close_statement_token1] = ACTIONS(2869),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2869),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2869),
-    [aux_sym_entry_statement_token1] = ACTIONS(2869),
-    [aux_sym_logical_expression_token5] = ACTIONS(6510),
-    [anon_sym_DOT] = ACTIONS(2869),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6510),
-    [anon_sym_LBRACK] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6510),
-    [aux_sym_null_literal_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2869),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2869),
-    [aux_sym_identifier_token1] = ACTIONS(2869),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6510),
-    [sym__float_literal] = ACTIONS(6510),
-    [sym__boz_literal] = ACTIONS(6510),
-    [sym__string_literal] = ACTIONS(6510),
-    [sym__string_literal_kind] = ACTIONS(6510),
+  [2107] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6332),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2299] = {
+  [2108] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6334),
+    [aux_sym_preproc_def_token1] = ACTIONS(6334),
+    [aux_sym_preproc_if_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
+    [sym_preproc_directive] = ACTIONS(6334),
+    [anon_sym_LPAREN2] = ACTIONS(6334),
+    [anon_sym_PLUS] = ACTIONS(6336),
+    [anon_sym_DASH] = ACTIONS(6336),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6334),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
+    [aux_sym_contains_statement_token1] = ACTIONS(6334),
+    [aux_sym_use_statement_token2] = ACTIONS(6334),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
+    [aux_sym_save_statement_token1] = ACTIONS(6334),
+    [aux_sym_private_statement_token1] = ACTIONS(6334),
+    [aux_sym_public_statement_token1] = ACTIONS(6334),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
+    [anon_sym_SEMI] = ACTIONS(6336),
+    [aux_sym_stop_statement_token1] = ACTIONS(6334),
+    [aux_sym_stop_statement_token2] = ACTIONS(6334),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
+    [aux_sym_include_statement_token1] = ACTIONS(6334),
+    [aux_sym_data_statement_token1] = ACTIONS(6334),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
+    [aux_sym_block_construct_token1] = ACTIONS(6334),
+    [aux_sym_associate_statement_token1] = ACTIONS(6334),
+    [aux_sym_format_statement_token1] = ACTIONS(6334),
+    [aux_sym_print_statement_token1] = ACTIONS(6334),
+    [aux_sym_open_statement_token1] = ACTIONS(6334),
+    [aux_sym_close_statement_token1] = ACTIONS(6334),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
+    [aux_sym_entry_statement_token1] = ACTIONS(6334),
+    [aux_sym_logical_expression_token5] = ACTIONS(6336),
+    [anon_sym_DOT] = ACTIONS(6334),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
+    [anon_sym_LBRACK] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
+    [aux_sym_null_literal_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
+    [aux_sym_identifier_token1] = ACTIONS(6334),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6336),
+    [sym__float_literal] = ACTIONS(6336),
+    [sym__boz_literal] = ACTIONS(6336),
+    [sym__string_literal] = ACTIONS(6336),
+    [sym__string_literal_kind] = ACTIONS(6336),
+  },
+  [2109] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6338),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2110] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6090),
     [aux_sym_preproc_def_token1] = ACTIONS(6090),
     [aux_sym_preproc_if_token1] = ACTIONS(6090),
@@ -386355,7 +367125,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_program_statement_token1] = ACTIONS(6090),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6090),
     [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
     [aux_sym_contains_statement_token1] = ACTIONS(6090),
     [aux_sym_use_statement_token2] = ACTIONS(6090),
@@ -386436,2134 +367206,3447 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
     [aux_sym_identifier_token1] = ACTIONS(6090),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6094),
-    [sym__float_literal] = ACTIONS(6094),
-    [sym__boz_literal] = ACTIONS(6094),
-    [sym__string_literal] = ACTIONS(6094),
-    [sym__string_literal_kind] = ACTIONS(6094),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
+  },
+  [2111] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6340),
+    [aux_sym_preproc_def_token1] = ACTIONS(6340),
+    [aux_sym_preproc_if_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6340),
+    [sym_preproc_directive] = ACTIONS(6340),
+    [anon_sym_LPAREN2] = ACTIONS(6340),
+    [anon_sym_PLUS] = ACTIONS(6342),
+    [anon_sym_DASH] = ACTIONS(6342),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6340),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6340),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6340),
+    [aux_sym_contains_statement_token1] = ACTIONS(6340),
+    [aux_sym_use_statement_token2] = ACTIONS(6340),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6340),
+    [aux_sym_save_statement_token1] = ACTIONS(6340),
+    [aux_sym_private_statement_token1] = ACTIONS(6340),
+    [aux_sym_public_statement_token1] = ACTIONS(6340),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6340),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6340),
+    [anon_sym_SEMI] = ACTIONS(6342),
+    [aux_sym_stop_statement_token1] = ACTIONS(6340),
+    [aux_sym_stop_statement_token2] = ACTIONS(6340),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6340),
+    [aux_sym_include_statement_token1] = ACTIONS(6340),
+    [aux_sym_data_statement_token1] = ACTIONS(6340),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6340),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6340),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6340),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6340),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6340),
+    [aux_sym_block_construct_token1] = ACTIONS(6340),
+    [aux_sym_associate_statement_token1] = ACTIONS(6340),
+    [aux_sym_format_statement_token1] = ACTIONS(6340),
+    [aux_sym_print_statement_token1] = ACTIONS(6340),
+    [aux_sym_open_statement_token1] = ACTIONS(6340),
+    [aux_sym_close_statement_token1] = ACTIONS(6340),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6340),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6340),
+    [aux_sym_entry_statement_token1] = ACTIONS(6340),
+    [aux_sym_logical_expression_token5] = ACTIONS(6342),
+    [anon_sym_DOT] = ACTIONS(6340),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6342),
+    [anon_sym_LBRACK] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6342),
+    [aux_sym_null_literal_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6340),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6340),
+    [aux_sym_identifier_token1] = ACTIONS(6340),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6342),
+    [sym__float_literal] = ACTIONS(6342),
+    [sym__boz_literal] = ACTIONS(6342),
+    [sym__string_literal] = ACTIONS(6342),
+    [sym__string_literal_kind] = ACTIONS(6342),
+  },
+  [2112] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6344),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2113] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6346),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2114] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_contains_statement_token1] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
+  },
+  [2115] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6348),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2116] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6350),
+    [aux_sym_preproc_def_token1] = ACTIONS(6350),
+    [aux_sym_preproc_if_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6350),
+    [sym_preproc_directive] = ACTIONS(6350),
+    [anon_sym_LPAREN2] = ACTIONS(6350),
+    [anon_sym_PLUS] = ACTIONS(6352),
+    [anon_sym_DASH] = ACTIONS(6352),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6350),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6350),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6350),
+    [aux_sym_contains_statement_token1] = ACTIONS(6350),
+    [aux_sym_use_statement_token2] = ACTIONS(6350),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6350),
+    [aux_sym_save_statement_token1] = ACTIONS(6350),
+    [aux_sym_private_statement_token1] = ACTIONS(6350),
+    [aux_sym_public_statement_token1] = ACTIONS(6350),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6350),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6350),
+    [anon_sym_SEMI] = ACTIONS(6352),
+    [aux_sym_stop_statement_token1] = ACTIONS(6350),
+    [aux_sym_stop_statement_token2] = ACTIONS(6350),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6350),
+    [aux_sym_include_statement_token1] = ACTIONS(6350),
+    [aux_sym_data_statement_token1] = ACTIONS(6350),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6350),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6350),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6350),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6350),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6350),
+    [aux_sym_block_construct_token1] = ACTIONS(6350),
+    [aux_sym_associate_statement_token1] = ACTIONS(6350),
+    [aux_sym_format_statement_token1] = ACTIONS(6350),
+    [aux_sym_print_statement_token1] = ACTIONS(6350),
+    [aux_sym_open_statement_token1] = ACTIONS(6350),
+    [aux_sym_close_statement_token1] = ACTIONS(6350),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6350),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6350),
+    [aux_sym_entry_statement_token1] = ACTIONS(6350),
+    [aux_sym_logical_expression_token5] = ACTIONS(6352),
+    [anon_sym_DOT] = ACTIONS(6350),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6352),
+    [anon_sym_LBRACK] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6352),
+    [aux_sym_null_literal_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6350),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6350),
+    [aux_sym_identifier_token1] = ACTIONS(6350),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6352),
+    [sym__float_literal] = ACTIONS(6352),
+    [sym__boz_literal] = ACTIONS(6352),
+    [sym__string_literal] = ACTIONS(6352),
+    [sym__string_literal_kind] = ACTIONS(6352),
+  },
+  [2117] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6354),
+    [aux_sym_preproc_def_token1] = ACTIONS(6354),
+    [aux_sym_preproc_if_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6354),
+    [sym_preproc_directive] = ACTIONS(6354),
+    [anon_sym_LPAREN2] = ACTIONS(6354),
+    [anon_sym_PLUS] = ACTIONS(6356),
+    [anon_sym_DASH] = ACTIONS(6356),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6354),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6354),
+    [aux_sym_contains_statement_token1] = ACTIONS(6354),
+    [aux_sym_use_statement_token2] = ACTIONS(6354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6354),
+    [aux_sym_save_statement_token1] = ACTIONS(6354),
+    [aux_sym_private_statement_token1] = ACTIONS(6354),
+    [aux_sym_public_statement_token1] = ACTIONS(6354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6354),
+    [anon_sym_SEMI] = ACTIONS(6356),
+    [aux_sym_stop_statement_token1] = ACTIONS(6354),
+    [aux_sym_stop_statement_token2] = ACTIONS(6354),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6354),
+    [aux_sym_include_statement_token1] = ACTIONS(6354),
+    [aux_sym_data_statement_token1] = ACTIONS(6354),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6354),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6354),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6354),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6354),
+    [aux_sym_block_construct_token1] = ACTIONS(6354),
+    [aux_sym_associate_statement_token1] = ACTIONS(6354),
+    [aux_sym_format_statement_token1] = ACTIONS(6354),
+    [aux_sym_print_statement_token1] = ACTIONS(6354),
+    [aux_sym_open_statement_token1] = ACTIONS(6354),
+    [aux_sym_close_statement_token1] = ACTIONS(6354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6354),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6354),
+    [aux_sym_entry_statement_token1] = ACTIONS(6354),
+    [aux_sym_logical_expression_token5] = ACTIONS(6356),
+    [anon_sym_DOT] = ACTIONS(6354),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6356),
+    [anon_sym_LBRACK] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6356),
+    [aux_sym_null_literal_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6354),
+    [aux_sym_identifier_token1] = ACTIONS(6354),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6356),
+    [sym__float_literal] = ACTIONS(6356),
+    [sym__boz_literal] = ACTIONS(6356),
+    [sym__string_literal] = ACTIONS(6356),
+    [sym__string_literal_kind] = ACTIONS(6356),
+  },
+  [2118] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token2] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
+  },
+  [2119] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6358),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2120] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6360),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2121] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2122] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6362),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2123] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(6364),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2300] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6516),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [2124] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6366),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2301] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6008),
-    [aux_sym_preproc_def_token1] = ACTIONS(6008),
-    [aux_sym_preproc_if_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6008),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6008),
-    [sym_preproc_directive] = ACTIONS(6008),
-    [anon_sym_LPAREN2] = ACTIONS(6008),
-    [anon_sym_PLUS] = ACTIONS(6012),
-    [anon_sym_DASH] = ACTIONS(6012),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6008),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6008),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6008),
-    [aux_sym_contains_statement_token1] = ACTIONS(6008),
-    [aux_sym_use_statement_token2] = ACTIONS(6008),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6008),
-    [aux_sym_save_statement_token1] = ACTIONS(6008),
-    [aux_sym_private_statement_token1] = ACTIONS(6008),
-    [aux_sym_public_statement_token1] = ACTIONS(6008),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6008),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6008),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6008),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6008),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6008),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6008),
-    [anon_sym_SEMI] = ACTIONS(6012),
-    [aux_sym_stop_statement_token1] = ACTIONS(6008),
-    [aux_sym_stop_statement_token2] = ACTIONS(6008),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6008),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6008),
-    [aux_sym_include_statement_token1] = ACTIONS(6008),
-    [aux_sym_data_statement_token1] = ACTIONS(6008),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6008),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6008),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6008),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6008),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6008),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6008),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6008),
-    [aux_sym_block_construct_token1] = ACTIONS(6008),
-    [aux_sym_associate_statement_token1] = ACTIONS(6008),
-    [aux_sym_format_statement_token1] = ACTIONS(6008),
-    [aux_sym_print_statement_token1] = ACTIONS(6008),
-    [aux_sym_open_statement_token1] = ACTIONS(6008),
-    [aux_sym_close_statement_token1] = ACTIONS(6008),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6008),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6008),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6008),
-    [aux_sym_entry_statement_token1] = ACTIONS(6008),
-    [aux_sym_logical_expression_token5] = ACTIONS(6012),
-    [anon_sym_DOT] = ACTIONS(6008),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6012),
-    [anon_sym_LBRACK] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6012),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6012),
-    [aux_sym_null_literal_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6008),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6008),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6008),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6008),
-    [aux_sym_identifier_token1] = ACTIONS(6008),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6012),
-    [sym__float_literal] = ACTIONS(6012),
-    [sym__boz_literal] = ACTIONS(6012),
-    [sym__string_literal] = ACTIONS(6012),
-    [sym__string_literal_kind] = ACTIONS(6012),
+  [2125] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6368),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2302] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6518),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [2126] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2303] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6520),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [2127] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2128] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2304] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6466),
-    [aux_sym_preproc_def_token1] = ACTIONS(6466),
-    [aux_sym_preproc_if_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6466),
-    [sym_preproc_directive] = ACTIONS(6466),
-    [anon_sym_LPAREN2] = ACTIONS(6466),
-    [anon_sym_PLUS] = ACTIONS(6468),
-    [anon_sym_DASH] = ACTIONS(6468),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6466),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6466),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6466),
-    [aux_sym_contains_statement_token1] = ACTIONS(6466),
-    [aux_sym_use_statement_token2] = ACTIONS(6466),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6466),
-    [aux_sym_save_statement_token1] = ACTIONS(6466),
-    [aux_sym_private_statement_token1] = ACTIONS(6466),
-    [aux_sym_public_statement_token1] = ACTIONS(6466),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6466),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6466),
-    [anon_sym_SEMI] = ACTIONS(6468),
-    [aux_sym_stop_statement_token1] = ACTIONS(6466),
-    [aux_sym_stop_statement_token2] = ACTIONS(6466),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6466),
-    [aux_sym_include_statement_token1] = ACTIONS(6466),
-    [aux_sym_data_statement_token1] = ACTIONS(6466),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6466),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6466),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6466),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6466),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6466),
-    [aux_sym_block_construct_token1] = ACTIONS(6466),
-    [aux_sym_associate_statement_token1] = ACTIONS(6466),
-    [aux_sym_format_statement_token1] = ACTIONS(6466),
-    [aux_sym_print_statement_token1] = ACTIONS(6466),
-    [aux_sym_open_statement_token1] = ACTIONS(6466),
-    [aux_sym_close_statement_token1] = ACTIONS(6466),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6466),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6466),
-    [aux_sym_entry_statement_token1] = ACTIONS(6466),
-    [aux_sym_logical_expression_token5] = ACTIONS(6468),
-    [anon_sym_DOT] = ACTIONS(6466),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6468),
-    [anon_sym_LBRACK] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6468),
-    [aux_sym_null_literal_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6466),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6466),
-    [aux_sym_identifier_token1] = ACTIONS(6466),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6468),
-    [sym__float_literal] = ACTIONS(6468),
-    [sym__boz_literal] = ACTIONS(6468),
-    [sym__string_literal] = ACTIONS(6468),
-    [sym__string_literal_kind] = ACTIONS(6468),
+  [2129] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_contains_statement_token1] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2305] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6522),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
+  [2130] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6370),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2306] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6396),
-    [aux_sym_preproc_def_token1] = ACTIONS(6396),
-    [aux_sym_preproc_if_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6396),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6396),
-    [sym_preproc_directive] = ACTIONS(6396),
-    [anon_sym_LPAREN2] = ACTIONS(6396),
-    [anon_sym_PLUS] = ACTIONS(6398),
-    [anon_sym_DASH] = ACTIONS(6398),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6396),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6396),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6396),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6396),
-    [aux_sym_contains_statement_token1] = ACTIONS(6396),
-    [aux_sym_use_statement_token2] = ACTIONS(6396),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6396),
-    [aux_sym_save_statement_token1] = ACTIONS(6396),
-    [aux_sym_private_statement_token1] = ACTIONS(6396),
-    [aux_sym_public_statement_token1] = ACTIONS(6396),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6396),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6396),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6396),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6396),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6396),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6396),
-    [anon_sym_SEMI] = ACTIONS(6398),
-    [aux_sym_stop_statement_token1] = ACTIONS(6396),
-    [aux_sym_stop_statement_token2] = ACTIONS(6396),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6396),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6396),
-    [aux_sym_include_statement_token1] = ACTIONS(6396),
-    [aux_sym_data_statement_token1] = ACTIONS(6396),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6396),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6396),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6396),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6396),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6396),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6396),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6396),
-    [aux_sym_block_construct_token1] = ACTIONS(6396),
-    [aux_sym_associate_statement_token1] = ACTIONS(6396),
-    [aux_sym_format_statement_token1] = ACTIONS(6396),
-    [aux_sym_print_statement_token1] = ACTIONS(6396),
-    [aux_sym_open_statement_token1] = ACTIONS(6396),
-    [aux_sym_close_statement_token1] = ACTIONS(6396),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6396),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6396),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6396),
-    [aux_sym_entry_statement_token1] = ACTIONS(6396),
-    [aux_sym_logical_expression_token5] = ACTIONS(6398),
-    [anon_sym_DOT] = ACTIONS(6396),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6398),
-    [anon_sym_LBRACK] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6398),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6398),
-    [aux_sym_null_literal_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6396),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6396),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6396),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6396),
-    [aux_sym_identifier_token1] = ACTIONS(6396),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6398),
-    [sym__float_literal] = ACTIONS(6398),
-    [sym__boz_literal] = ACTIONS(6398),
-    [sym__string_literal] = ACTIONS(6398),
-    [sym__string_literal_kind] = ACTIONS(6398),
+  [2131] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2307] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_contains_statement_token1] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2132] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2308] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
+  [2133] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2309] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6096),
-    [aux_sym_preproc_def_token1] = ACTIONS(6096),
-    [aux_sym_preproc_if_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6096),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6096),
-    [sym_preproc_directive] = ACTIONS(6096),
-    [anon_sym_LPAREN2] = ACTIONS(6096),
-    [anon_sym_PLUS] = ACTIONS(6100),
-    [anon_sym_DASH] = ACTIONS(6100),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6096),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6096),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6096),
-    [aux_sym_contains_statement_token1] = ACTIONS(6096),
-    [aux_sym_use_statement_token2] = ACTIONS(6096),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6096),
-    [aux_sym_save_statement_token1] = ACTIONS(6096),
-    [aux_sym_private_statement_token1] = ACTIONS(6096),
-    [aux_sym_public_statement_token1] = ACTIONS(6096),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6096),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6096),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6096),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6096),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6096),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6096),
-    [anon_sym_SEMI] = ACTIONS(6100),
-    [aux_sym_stop_statement_token1] = ACTIONS(6096),
-    [aux_sym_stop_statement_token2] = ACTIONS(6096),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6096),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6096),
-    [aux_sym_include_statement_token1] = ACTIONS(6096),
-    [aux_sym_data_statement_token1] = ACTIONS(6096),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6096),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6096),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6096),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6096),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6096),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6096),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6096),
-    [aux_sym_block_construct_token1] = ACTIONS(6096),
-    [aux_sym_associate_statement_token1] = ACTIONS(6096),
-    [aux_sym_format_statement_token1] = ACTIONS(6096),
-    [aux_sym_print_statement_token1] = ACTIONS(6096),
-    [aux_sym_open_statement_token1] = ACTIONS(6096),
-    [aux_sym_close_statement_token1] = ACTIONS(6096),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6096),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6096),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6096),
-    [aux_sym_entry_statement_token1] = ACTIONS(6096),
-    [aux_sym_logical_expression_token5] = ACTIONS(6100),
-    [anon_sym_DOT] = ACTIONS(6096),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6100),
-    [anon_sym_LBRACK] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6100),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6100),
-    [aux_sym_null_literal_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6096),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6096),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6096),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6096),
-    [aux_sym_identifier_token1] = ACTIONS(6096),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6100),
-    [sym__float_literal] = ACTIONS(6100),
-    [sym__boz_literal] = ACTIONS(6100),
-    [sym__string_literal] = ACTIONS(6100),
-    [sym__string_literal_kind] = ACTIONS(6100),
+  [2134] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
   },
-  [2310] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
+  [2135] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2311] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6524),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+  [2136] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2312] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6312),
-    [aux_sym_preproc_def_token1] = ACTIONS(6312),
-    [aux_sym_preproc_if_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6312),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6312),
-    [sym_preproc_directive] = ACTIONS(6312),
-    [anon_sym_LPAREN2] = ACTIONS(6312),
-    [anon_sym_PLUS] = ACTIONS(6314),
-    [anon_sym_DASH] = ACTIONS(6314),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6312),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6312),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6312),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6312),
-    [aux_sym_contains_statement_token1] = ACTIONS(6312),
-    [aux_sym_use_statement_token2] = ACTIONS(6312),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6312),
-    [aux_sym_save_statement_token1] = ACTIONS(6312),
-    [aux_sym_private_statement_token1] = ACTIONS(6312),
-    [aux_sym_public_statement_token1] = ACTIONS(6312),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6312),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6312),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6312),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6312),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6312),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6312),
-    [anon_sym_SEMI] = ACTIONS(6314),
-    [aux_sym_stop_statement_token1] = ACTIONS(6312),
-    [aux_sym_stop_statement_token2] = ACTIONS(6312),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6312),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6312),
-    [aux_sym_include_statement_token1] = ACTIONS(6312),
-    [aux_sym_data_statement_token1] = ACTIONS(6312),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6312),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6312),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6312),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6312),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6312),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6312),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6312),
-    [aux_sym_block_construct_token1] = ACTIONS(6312),
-    [aux_sym_associate_statement_token1] = ACTIONS(6312),
-    [aux_sym_format_statement_token1] = ACTIONS(6312),
-    [aux_sym_print_statement_token1] = ACTIONS(6312),
-    [aux_sym_open_statement_token1] = ACTIONS(6312),
-    [aux_sym_close_statement_token1] = ACTIONS(6312),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6312),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6312),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6312),
-    [aux_sym_entry_statement_token1] = ACTIONS(6312),
-    [aux_sym_logical_expression_token5] = ACTIONS(6314),
-    [anon_sym_DOT] = ACTIONS(6312),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6314),
-    [anon_sym_LBRACK] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6314),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6314),
-    [aux_sym_null_literal_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6312),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6312),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6312),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6312),
-    [aux_sym_identifier_token1] = ACTIONS(6312),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6314),
-    [sym__float_literal] = ACTIONS(6314),
-    [sym__boz_literal] = ACTIONS(6314),
-    [sym__string_literal] = ACTIONS(6314),
-    [sym__string_literal_kind] = ACTIONS(6314),
+  [2137] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6372),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2313] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6318),
-    [aux_sym_preproc_def_token1] = ACTIONS(6318),
-    [aux_sym_preproc_if_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6318),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6318),
-    [sym_preproc_directive] = ACTIONS(6318),
-    [anon_sym_LPAREN2] = ACTIONS(6318),
-    [anon_sym_PLUS] = ACTIONS(6320),
-    [anon_sym_DASH] = ACTIONS(6320),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6318),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6318),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6318),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6318),
-    [aux_sym_contains_statement_token1] = ACTIONS(6318),
-    [aux_sym_use_statement_token2] = ACTIONS(6318),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6318),
-    [aux_sym_save_statement_token1] = ACTIONS(6318),
-    [aux_sym_private_statement_token1] = ACTIONS(6318),
-    [aux_sym_public_statement_token1] = ACTIONS(6318),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6318),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6318),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6318),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6318),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6318),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6318),
-    [anon_sym_SEMI] = ACTIONS(6320),
-    [aux_sym_stop_statement_token1] = ACTIONS(6318),
-    [aux_sym_stop_statement_token2] = ACTIONS(6318),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6318),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6318),
-    [aux_sym_include_statement_token1] = ACTIONS(6318),
-    [aux_sym_data_statement_token1] = ACTIONS(6318),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6318),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6318),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6318),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6318),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6318),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6318),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6318),
-    [aux_sym_block_construct_token1] = ACTIONS(6318),
-    [aux_sym_associate_statement_token1] = ACTIONS(6318),
-    [aux_sym_format_statement_token1] = ACTIONS(6318),
-    [aux_sym_print_statement_token1] = ACTIONS(6318),
-    [aux_sym_open_statement_token1] = ACTIONS(6318),
-    [aux_sym_close_statement_token1] = ACTIONS(6318),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6318),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6318),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6318),
-    [aux_sym_entry_statement_token1] = ACTIONS(6318),
-    [aux_sym_logical_expression_token5] = ACTIONS(6320),
-    [anon_sym_DOT] = ACTIONS(6318),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6320),
-    [anon_sym_LBRACK] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6320),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6320),
-    [aux_sym_null_literal_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6318),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6318),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6318),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6318),
-    [aux_sym_identifier_token1] = ACTIONS(6318),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6320),
-    [sym__float_literal] = ACTIONS(6320),
-    [sym__boz_literal] = ACTIONS(6320),
-    [sym__string_literal] = ACTIONS(6320),
-    [sym__string_literal_kind] = ACTIONS(6320),
+  [2138] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2314] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6174),
-    [aux_sym_preproc_def_token1] = ACTIONS(6174),
-    [aux_sym_preproc_if_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6174),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6174),
-    [sym_preproc_directive] = ACTIONS(6174),
-    [anon_sym_LPAREN2] = ACTIONS(6174),
-    [anon_sym_PLUS] = ACTIONS(6178),
-    [anon_sym_DASH] = ACTIONS(6178),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6174),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6174),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6174),
-    [aux_sym_contains_statement_token1] = ACTIONS(6174),
-    [aux_sym_use_statement_token2] = ACTIONS(6174),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6174),
-    [aux_sym_save_statement_token1] = ACTIONS(6174),
-    [aux_sym_private_statement_token1] = ACTIONS(6174),
-    [aux_sym_public_statement_token1] = ACTIONS(6174),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6174),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6174),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6174),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6174),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6174),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6174),
-    [anon_sym_SEMI] = ACTIONS(6178),
-    [aux_sym_stop_statement_token1] = ACTIONS(6174),
-    [aux_sym_stop_statement_token2] = ACTIONS(6174),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6174),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6174),
-    [aux_sym_include_statement_token1] = ACTIONS(6174),
-    [aux_sym_data_statement_token1] = ACTIONS(6174),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6174),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6174),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6174),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6174),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6174),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6174),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6174),
-    [aux_sym_block_construct_token1] = ACTIONS(6174),
-    [aux_sym_associate_statement_token1] = ACTIONS(6174),
-    [aux_sym_format_statement_token1] = ACTIONS(6174),
-    [aux_sym_print_statement_token1] = ACTIONS(6174),
-    [aux_sym_open_statement_token1] = ACTIONS(6174),
-    [aux_sym_close_statement_token1] = ACTIONS(6174),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6174),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6174),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6174),
-    [aux_sym_entry_statement_token1] = ACTIONS(6174),
-    [aux_sym_logical_expression_token5] = ACTIONS(6178),
-    [anon_sym_DOT] = ACTIONS(6174),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6178),
-    [anon_sym_LBRACK] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6178),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6178),
-    [aux_sym_null_literal_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6174),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6174),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6174),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6174),
-    [aux_sym_identifier_token1] = ACTIONS(6174),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6178),
-    [sym__float_literal] = ACTIONS(6178),
-    [sym__boz_literal] = ACTIONS(6178),
-    [sym__string_literal] = ACTIONS(6178),
-    [sym__string_literal_kind] = ACTIONS(6178),
+  [2139] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2315] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6324),
-    [aux_sym_preproc_def_token1] = ACTIONS(6324),
-    [aux_sym_preproc_if_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6324),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6324),
-    [sym_preproc_directive] = ACTIONS(6324),
-    [anon_sym_LPAREN2] = ACTIONS(6324),
-    [anon_sym_PLUS] = ACTIONS(6326),
-    [anon_sym_DASH] = ACTIONS(6326),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6324),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6324),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6324),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6324),
-    [aux_sym_contains_statement_token1] = ACTIONS(6324),
-    [aux_sym_use_statement_token2] = ACTIONS(6324),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6324),
-    [aux_sym_save_statement_token1] = ACTIONS(6324),
-    [aux_sym_private_statement_token1] = ACTIONS(6324),
-    [aux_sym_public_statement_token1] = ACTIONS(6324),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6324),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6324),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6324),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6324),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6324),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6324),
-    [anon_sym_SEMI] = ACTIONS(6326),
-    [aux_sym_stop_statement_token1] = ACTIONS(6324),
-    [aux_sym_stop_statement_token2] = ACTIONS(6324),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6324),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6324),
-    [aux_sym_include_statement_token1] = ACTIONS(6324),
-    [aux_sym_data_statement_token1] = ACTIONS(6324),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6324),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6324),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6324),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6324),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6324),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6324),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6324),
-    [aux_sym_block_construct_token1] = ACTIONS(6324),
-    [aux_sym_associate_statement_token1] = ACTIONS(6324),
-    [aux_sym_format_statement_token1] = ACTIONS(6324),
-    [aux_sym_print_statement_token1] = ACTIONS(6324),
-    [aux_sym_open_statement_token1] = ACTIONS(6324),
-    [aux_sym_close_statement_token1] = ACTIONS(6324),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6324),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6324),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6324),
-    [aux_sym_entry_statement_token1] = ACTIONS(6324),
-    [aux_sym_logical_expression_token5] = ACTIONS(6326),
-    [anon_sym_DOT] = ACTIONS(6324),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6326),
-    [anon_sym_LBRACK] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6326),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6326),
-    [aux_sym_null_literal_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6324),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6324),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6324),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6324),
-    [aux_sym_identifier_token1] = ACTIONS(6324),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6326),
-    [sym__float_literal] = ACTIONS(6326),
-    [sym__boz_literal] = ACTIONS(6326),
-    [sym__string_literal] = ACTIONS(6326),
-    [sym__string_literal_kind] = ACTIONS(6326),
+  [2140] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6374),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2316] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_program_statement_token2] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_contains_statement_token1] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+  [2141] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2317] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6334),
-    [aux_sym_preproc_def_token1] = ACTIONS(6334),
-    [aux_sym_preproc_if_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
-    [sym_preproc_directive] = ACTIONS(6334),
-    [anon_sym_LPAREN2] = ACTIONS(6334),
-    [anon_sym_PLUS] = ACTIONS(6336),
-    [anon_sym_DASH] = ACTIONS(6336),
+  [2142] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6376),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6334),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
-    [aux_sym_contains_statement_token1] = ACTIONS(6334),
-    [aux_sym_use_statement_token2] = ACTIONS(6334),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
-    [aux_sym_save_statement_token1] = ACTIONS(6334),
-    [aux_sym_private_statement_token1] = ACTIONS(6334),
-    [aux_sym_public_statement_token1] = ACTIONS(6334),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
-    [anon_sym_SEMI] = ACTIONS(6336),
-    [aux_sym_stop_statement_token1] = ACTIONS(6334),
-    [aux_sym_stop_statement_token2] = ACTIONS(6334),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
-    [aux_sym_include_statement_token1] = ACTIONS(6334),
-    [aux_sym_data_statement_token1] = ACTIONS(6334),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
-    [aux_sym_block_construct_token1] = ACTIONS(6334),
-    [aux_sym_associate_statement_token1] = ACTIONS(6334),
-    [aux_sym_format_statement_token1] = ACTIONS(6334),
-    [aux_sym_print_statement_token1] = ACTIONS(6334),
-    [aux_sym_open_statement_token1] = ACTIONS(6334),
-    [aux_sym_close_statement_token1] = ACTIONS(6334),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
-    [aux_sym_entry_statement_token1] = ACTIONS(6334),
-    [aux_sym_logical_expression_token5] = ACTIONS(6336),
-    [anon_sym_DOT] = ACTIONS(6334),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
-    [anon_sym_LBRACK] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
-    [aux_sym_null_literal_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
-    [aux_sym_identifier_token1] = ACTIONS(6334),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6336),
-    [sym__float_literal] = ACTIONS(6336),
-    [sym__boz_literal] = ACTIONS(6336),
-    [sym__string_literal] = ACTIONS(6336),
-    [sym__string_literal_kind] = ACTIONS(6336),
-  },
-  [2318] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6338),
-    [aux_sym_preproc_def_token1] = ACTIONS(6338),
-    [aux_sym_preproc_if_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6338),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6338),
-    [sym_preproc_directive] = ACTIONS(6338),
-    [anon_sym_LPAREN2] = ACTIONS(6338),
-    [anon_sym_PLUS] = ACTIONS(6340),
-    [anon_sym_DASH] = ACTIONS(6340),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6338),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6338),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6338),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6338),
-    [aux_sym_contains_statement_token1] = ACTIONS(6338),
-    [aux_sym_use_statement_token2] = ACTIONS(6338),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6338),
-    [aux_sym_save_statement_token1] = ACTIONS(6338),
-    [aux_sym_private_statement_token1] = ACTIONS(6338),
-    [aux_sym_public_statement_token1] = ACTIONS(6338),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6338),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6338),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6338),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6338),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6338),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6338),
-    [anon_sym_SEMI] = ACTIONS(6340),
-    [aux_sym_stop_statement_token1] = ACTIONS(6338),
-    [aux_sym_stop_statement_token2] = ACTIONS(6338),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6338),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6338),
-    [aux_sym_include_statement_token1] = ACTIONS(6338),
-    [aux_sym_data_statement_token1] = ACTIONS(6338),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6338),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6338),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6338),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6338),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6338),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6338),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6338),
-    [aux_sym_block_construct_token1] = ACTIONS(6338),
-    [aux_sym_associate_statement_token1] = ACTIONS(6338),
-    [aux_sym_format_statement_token1] = ACTIONS(6338),
-    [aux_sym_print_statement_token1] = ACTIONS(6338),
-    [aux_sym_open_statement_token1] = ACTIONS(6338),
-    [aux_sym_close_statement_token1] = ACTIONS(6338),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6338),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6338),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6338),
-    [aux_sym_entry_statement_token1] = ACTIONS(6338),
-    [aux_sym_logical_expression_token5] = ACTIONS(6340),
-    [anon_sym_DOT] = ACTIONS(6338),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6340),
-    [anon_sym_LBRACK] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6340),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6340),
-    [aux_sym_null_literal_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6338),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6338),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6338),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6338),
-    [aux_sym_identifier_token1] = ACTIONS(6338),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6340),
-    [sym__float_literal] = ACTIONS(6340),
-    [sym__boz_literal] = ACTIONS(6340),
-    [sym__string_literal] = ACTIONS(6340),
-    [sym__string_literal_kind] = ACTIONS(6340),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2319] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6526),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [2143] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2320] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6384),
-    [aux_sym_preproc_def_token1] = ACTIONS(6384),
-    [aux_sym_preproc_if_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6384),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6384),
-    [sym_preproc_directive] = ACTIONS(6384),
-    [anon_sym_LPAREN2] = ACTIONS(6384),
-    [anon_sym_PLUS] = ACTIONS(6386),
-    [anon_sym_DASH] = ACTIONS(6386),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6384),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6384),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6384),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6384),
-    [aux_sym_contains_statement_token1] = ACTIONS(6384),
-    [aux_sym_use_statement_token2] = ACTIONS(6384),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6384),
-    [aux_sym_save_statement_token1] = ACTIONS(6384),
-    [aux_sym_private_statement_token1] = ACTIONS(6384),
-    [aux_sym_public_statement_token1] = ACTIONS(6384),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6384),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6384),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6384),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6384),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6384),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6384),
-    [anon_sym_SEMI] = ACTIONS(6386),
-    [aux_sym_stop_statement_token1] = ACTIONS(6384),
-    [aux_sym_stop_statement_token2] = ACTIONS(6384),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6384),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6384),
-    [aux_sym_include_statement_token1] = ACTIONS(6384),
-    [aux_sym_data_statement_token1] = ACTIONS(6384),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6384),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6384),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6384),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6384),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6384),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6384),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6384),
-    [aux_sym_block_construct_token1] = ACTIONS(6384),
-    [aux_sym_associate_statement_token1] = ACTIONS(6384),
-    [aux_sym_format_statement_token1] = ACTIONS(6384),
-    [aux_sym_print_statement_token1] = ACTIONS(6384),
-    [aux_sym_open_statement_token1] = ACTIONS(6384),
-    [aux_sym_close_statement_token1] = ACTIONS(6384),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6384),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6384),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6384),
-    [aux_sym_entry_statement_token1] = ACTIONS(6384),
-    [aux_sym_logical_expression_token5] = ACTIONS(6386),
-    [anon_sym_DOT] = ACTIONS(6384),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6386),
-    [anon_sym_LBRACK] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6386),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6386),
-    [aux_sym_null_literal_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6384),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6384),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6384),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6384),
-    [aux_sym_identifier_token1] = ACTIONS(6384),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6386),
-    [sym__float_literal] = ACTIONS(6386),
-    [sym__boz_literal] = ACTIONS(6386),
-    [sym__string_literal] = ACTIONS(6386),
-    [sym__string_literal_kind] = ACTIONS(6386),
+  [2144] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2321] = {
+  [2145] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5618),
     [aux_sym_preproc_def_token1] = ACTIONS(5618),
     [aux_sym_preproc_if_token1] = ACTIONS(5618),
@@ -388571,7 +370654,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
     [sym_preproc_directive] = ACTIONS(5618),
     [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6528),
+    [sym_preproc_comment] = ACTIONS(6378),
     [anon_sym_PLUS] = ACTIONS(5622),
     [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
@@ -388622,12 +370705,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(5618),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5618),
     [aux_sym_select_case_statement_token1] = ACTIONS(5618),
     [aux_sym_select_case_statement_token3] = ACTIONS(5618),
     [aux_sym_select_type_statement_token1] = ACTIONS(5618),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
     [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5618),
     [aux_sym_associate_statement_token1] = ACTIONS(5618),
     [aux_sym_format_statement_token1] = ACTIONS(5618),
     [aux_sym_print_statement_token1] = ACTIONS(5618),
@@ -388664,504 +370747,1211 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5622),
     [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2322] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6530),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [2146] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
   },
-  [2323] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6532),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [2147] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2148] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6380),
+    [aux_sym_preproc_def_token1] = ACTIONS(6380),
+    [aux_sym_preproc_if_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6380),
+    [sym_preproc_directive] = ACTIONS(6380),
+    [anon_sym_LPAREN2] = ACTIONS(6380),
+    [anon_sym_PLUS] = ACTIONS(6382),
+    [anon_sym_DASH] = ACTIONS(6382),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6380),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6380),
+    [aux_sym_contains_statement_token1] = ACTIONS(6380),
+    [aux_sym_use_statement_token2] = ACTIONS(6380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6380),
+    [aux_sym_save_statement_token1] = ACTIONS(6380),
+    [aux_sym_private_statement_token1] = ACTIONS(6380),
+    [aux_sym_public_statement_token1] = ACTIONS(6380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6380),
+    [anon_sym_SEMI] = ACTIONS(6382),
+    [aux_sym_stop_statement_token1] = ACTIONS(6380),
+    [aux_sym_stop_statement_token2] = ACTIONS(6380),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6380),
+    [aux_sym_include_statement_token1] = ACTIONS(6380),
+    [aux_sym_data_statement_token1] = ACTIONS(6380),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6380),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6380),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6380),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6380),
+    [aux_sym_block_construct_token1] = ACTIONS(6380),
+    [aux_sym_associate_statement_token1] = ACTIONS(6380),
+    [aux_sym_format_statement_token1] = ACTIONS(6380),
+    [aux_sym_print_statement_token1] = ACTIONS(6380),
+    [aux_sym_open_statement_token1] = ACTIONS(6380),
+    [aux_sym_close_statement_token1] = ACTIONS(6380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6380),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6380),
+    [aux_sym_entry_statement_token1] = ACTIONS(6380),
+    [aux_sym_logical_expression_token5] = ACTIONS(6382),
+    [anon_sym_DOT] = ACTIONS(6380),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6382),
+    [anon_sym_LBRACK] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6382),
+    [aux_sym_null_literal_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6380),
+    [aux_sym_identifier_token1] = ACTIONS(6380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6382),
+    [sym__float_literal] = ACTIONS(6382),
+    [sym__boz_literal] = ACTIONS(6382),
+    [sym__string_literal] = ACTIONS(6382),
+    [sym__string_literal_kind] = ACTIONS(6382),
+  },
+  [2149] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(6384),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2324] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6534),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [2150] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2151] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2152] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6386),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
+  },
+  [2153] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2325] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6536),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
+  [2154] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2326] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6538),
+  [2155] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6326),
+    [aux_sym_preproc_def_token1] = ACTIONS(6326),
+    [aux_sym_preproc_if_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6326),
+    [sym_preproc_directive] = ACTIONS(6326),
+    [anon_sym_LPAREN2] = ACTIONS(6326),
+    [anon_sym_PLUS] = ACTIONS(6328),
+    [anon_sym_DASH] = ACTIONS(6328),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6326),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6326),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6326),
+    [aux_sym_contains_statement_token1] = ACTIONS(6326),
+    [aux_sym_use_statement_token2] = ACTIONS(6326),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6326),
+    [aux_sym_save_statement_token1] = ACTIONS(6326),
+    [aux_sym_private_statement_token1] = ACTIONS(6326),
+    [aux_sym_public_statement_token1] = ACTIONS(6326),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6326),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6326),
+    [anon_sym_SEMI] = ACTIONS(6328),
+    [aux_sym_stop_statement_token1] = ACTIONS(6326),
+    [aux_sym_stop_statement_token2] = ACTIONS(6326),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6326),
+    [aux_sym_include_statement_token1] = ACTIONS(6326),
+    [aux_sym_data_statement_token1] = ACTIONS(6326),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6326),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6326),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6326),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6326),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6326),
+    [aux_sym_block_construct_token1] = ACTIONS(6326),
+    [aux_sym_associate_statement_token1] = ACTIONS(6326),
+    [aux_sym_format_statement_token1] = ACTIONS(6326),
+    [aux_sym_print_statement_token1] = ACTIONS(6326),
+    [aux_sym_open_statement_token1] = ACTIONS(6326),
+    [aux_sym_close_statement_token1] = ACTIONS(6326),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6326),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6326),
+    [aux_sym_entry_statement_token1] = ACTIONS(6326),
+    [aux_sym_logical_expression_token5] = ACTIONS(6328),
+    [anon_sym_DOT] = ACTIONS(6326),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6328),
+    [anon_sym_LBRACK] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6328),
+    [aux_sym_null_literal_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6326),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6326),
+    [aux_sym_identifier_token1] = ACTIONS(6326),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6328),
+    [sym__float_literal] = ACTIONS(6328),
+    [sym__boz_literal] = ACTIONS(6328),
+    [sym__string_literal] = ACTIONS(6328),
+    [sym__string_literal_kind] = ACTIONS(6328),
+  },
+  [2156] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2157] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6388),
     [anon_sym_PLUS] = ACTIONS(5604),
     [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
     [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
     [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(4619),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
     [anon_sym_LBRACK] = ACTIONS(5604),
     [aux_sym_boolean_literal_token1] = ACTIONS(5604),
     [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5604),
     [sym__float_literal] = ACTIONS(5604),
@@ -389169,10 +371959,617 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5604),
     [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2327] = {
+  [2158] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2159] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6390),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2160] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2161] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2162] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6334),
+    [aux_sym_preproc_def_token1] = ACTIONS(6334),
+    [aux_sym_preproc_if_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
+    [sym_preproc_directive] = ACTIONS(6334),
+    [anon_sym_LPAREN2] = ACTIONS(6334),
+    [anon_sym_PLUS] = ACTIONS(6336),
+    [anon_sym_DASH] = ACTIONS(6336),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6334),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
+    [aux_sym_contains_statement_token1] = ACTIONS(6334),
+    [aux_sym_use_statement_token2] = ACTIONS(6334),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
+    [aux_sym_save_statement_token1] = ACTIONS(6334),
+    [aux_sym_private_statement_token1] = ACTIONS(6334),
+    [aux_sym_public_statement_token1] = ACTIONS(6334),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
+    [anon_sym_SEMI] = ACTIONS(6336),
+    [aux_sym_stop_statement_token1] = ACTIONS(6334),
+    [aux_sym_stop_statement_token2] = ACTIONS(6334),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
+    [aux_sym_include_statement_token1] = ACTIONS(6334),
+    [aux_sym_data_statement_token1] = ACTIONS(6334),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
+    [aux_sym_block_construct_token1] = ACTIONS(6334),
+    [aux_sym_associate_statement_token1] = ACTIONS(6334),
+    [aux_sym_format_statement_token1] = ACTIONS(6334),
+    [aux_sym_print_statement_token1] = ACTIONS(6334),
+    [aux_sym_open_statement_token1] = ACTIONS(6334),
+    [aux_sym_close_statement_token1] = ACTIONS(6334),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
+    [aux_sym_entry_statement_token1] = ACTIONS(6334),
+    [aux_sym_logical_expression_token5] = ACTIONS(6336),
+    [anon_sym_DOT] = ACTIONS(6334),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
+    [anon_sym_LBRACK] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
+    [aux_sym_null_literal_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
+    [aux_sym_identifier_token1] = ACTIONS(6334),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6336),
+    [sym__float_literal] = ACTIONS(6336),
+    [sym__boz_literal] = ACTIONS(6336),
+    [sym__string_literal] = ACTIONS(6336),
+    [sym__string_literal_kind] = ACTIONS(6336),
+  },
+  [2163] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6090),
+    [aux_sym_preproc_def_token1] = ACTIONS(6090),
+    [aux_sym_preproc_if_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
+    [sym_preproc_directive] = ACTIONS(6090),
+    [anon_sym_LPAREN2] = ACTIONS(6090),
+    [anon_sym_PLUS] = ACTIONS(6094),
+    [anon_sym_DASH] = ACTIONS(6094),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
+    [aux_sym_contains_statement_token1] = ACTIONS(6090),
+    [aux_sym_use_statement_token2] = ACTIONS(6090),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
+    [aux_sym_save_statement_token1] = ACTIONS(6090),
+    [aux_sym_private_statement_token1] = ACTIONS(6090),
+    [aux_sym_public_statement_token1] = ACTIONS(6090),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
+    [anon_sym_SEMI] = ACTIONS(6094),
+    [aux_sym_stop_statement_token1] = ACTIONS(6090),
+    [aux_sym_stop_statement_token2] = ACTIONS(6090),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
+    [aux_sym_include_statement_token1] = ACTIONS(6090),
+    [aux_sym_data_statement_token1] = ACTIONS(6090),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
+    [aux_sym_block_construct_token1] = ACTIONS(6090),
+    [aux_sym_associate_statement_token1] = ACTIONS(6090),
+    [aux_sym_format_statement_token1] = ACTIONS(6090),
+    [aux_sym_print_statement_token1] = ACTIONS(6090),
+    [aux_sym_open_statement_token1] = ACTIONS(6090),
+    [aux_sym_close_statement_token1] = ACTIONS(6090),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
+    [aux_sym_entry_statement_token1] = ACTIONS(6090),
+    [aux_sym_logical_expression_token5] = ACTIONS(6094),
+    [anon_sym_DOT] = ACTIONS(6090),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
+    [anon_sym_LBRACK] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
+    [aux_sym_null_literal_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
+    [aux_sym_identifier_token1] = ACTIONS(6090),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
+  },
+  [2164] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token2] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
     [sym_preproc_directive] = ACTIONS(5726),
@@ -389184,7 +372581,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5726),
     [aux_sym_contains_statement_token1] = ACTIONS(5726),
     [aux_sym_use_statement_token2] = ACTIONS(5726),
     [aux_sym_implicit_statement_token4] = ACTIONS(5726),
@@ -389270,815 +372666,916 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2328] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6540),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
+  [2165] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2994),
+    [aux_sym_preproc_def_token1] = ACTIONS(2994),
+    [aux_sym_preproc_if_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2994),
+    [sym_preproc_directive] = ACTIONS(2994),
+    [anon_sym_LPAREN2] = ACTIONS(2994),
+    [anon_sym_PLUS] = ACTIONS(6392),
+    [anon_sym_DASH] = ACTIONS(6392),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2994),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2994),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2994),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2994),
+    [aux_sym_save_statement_token1] = ACTIONS(2994),
+    [aux_sym_private_statement_token1] = ACTIONS(2994),
+    [aux_sym_public_statement_token1] = ACTIONS(2994),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2994),
+    [anon_sym_SEMI] = ACTIONS(6392),
+    [aux_sym_stop_statement_token1] = ACTIONS(2994),
+    [aux_sym_stop_statement_token2] = ACTIONS(2994),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2994),
+    [aux_sym_include_statement_token1] = ACTIONS(2994),
+    [aux_sym_data_statement_token1] = ACTIONS(2994),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2994),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2994),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2994),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2994),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2994),
+    [aux_sym_block_construct_token1] = ACTIONS(2994),
+    [aux_sym_associate_statement_token1] = ACTIONS(2994),
+    [aux_sym_format_statement_token1] = ACTIONS(2994),
+    [aux_sym_print_statement_token1] = ACTIONS(2994),
+    [aux_sym_open_statement_token1] = ACTIONS(2994),
+    [aux_sym_close_statement_token1] = ACTIONS(2994),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2994),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2994),
+    [aux_sym_entry_statement_token1] = ACTIONS(2994),
+    [aux_sym_logical_expression_token5] = ACTIONS(6392),
+    [anon_sym_DOT] = ACTIONS(2994),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6392),
+    [anon_sym_LBRACK] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6392),
+    [aux_sym_null_literal_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2994),
+    [aux_sym_identifier_token1] = ACTIONS(2994),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6392),
+    [sym__float_literal] = ACTIONS(6392),
+    [sym__boz_literal] = ACTIONS(6392),
+    [sym__string_literal] = ACTIONS(6392),
+    [sym__string_literal_kind] = ACTIONS(6392),
   },
-  [2329] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6466),
-    [aux_sym_preproc_def_token1] = ACTIONS(6466),
-    [aux_sym_preproc_if_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6466),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6466),
-    [sym_preproc_directive] = ACTIONS(6466),
-    [anon_sym_LPAREN2] = ACTIONS(6466),
-    [anon_sym_PLUS] = ACTIONS(6468),
-    [anon_sym_DASH] = ACTIONS(6468),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6466),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6466),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6466),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6466),
-    [aux_sym_contains_statement_token1] = ACTIONS(6466),
-    [aux_sym_use_statement_token2] = ACTIONS(6466),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6466),
-    [aux_sym_save_statement_token1] = ACTIONS(6466),
-    [aux_sym_private_statement_token1] = ACTIONS(6466),
-    [aux_sym_public_statement_token1] = ACTIONS(6466),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6466),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6466),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6466),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6466),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6466),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6466),
-    [anon_sym_SEMI] = ACTIONS(6468),
-    [aux_sym_stop_statement_token1] = ACTIONS(6466),
-    [aux_sym_stop_statement_token2] = ACTIONS(6466),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6466),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6466),
-    [aux_sym_include_statement_token1] = ACTIONS(6466),
-    [aux_sym_data_statement_token1] = ACTIONS(6466),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6466),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6466),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6466),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6466),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6466),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6466),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6466),
-    [aux_sym_block_construct_token1] = ACTIONS(6466),
-    [aux_sym_associate_statement_token1] = ACTIONS(6466),
-    [aux_sym_format_statement_token1] = ACTIONS(6466),
-    [aux_sym_print_statement_token1] = ACTIONS(6466),
-    [aux_sym_open_statement_token1] = ACTIONS(6466),
-    [aux_sym_close_statement_token1] = ACTIONS(6466),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6466),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6466),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6466),
-    [aux_sym_entry_statement_token1] = ACTIONS(6466),
-    [aux_sym_logical_expression_token5] = ACTIONS(6468),
-    [anon_sym_DOT] = ACTIONS(6466),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6468),
-    [anon_sym_LBRACK] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6468),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6468),
-    [aux_sym_null_literal_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6466),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6466),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6466),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6466),
-    [aux_sym_identifier_token1] = ACTIONS(6466),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6468),
-    [sym__float_literal] = ACTIONS(6468),
-    [sym__boz_literal] = ACTIONS(6468),
-    [sym__string_literal] = ACTIONS(6468),
-    [sym__string_literal_kind] = ACTIONS(6468),
+  [2166] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2330] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6542),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2167] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6394),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2168] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2331] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6544),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2332] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6546),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [2169] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token2] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2333] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2170] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6396),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2334] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6548),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [2171] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6340),
+    [aux_sym_preproc_def_token1] = ACTIONS(6340),
+    [aux_sym_preproc_if_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6340),
+    [sym_preproc_directive] = ACTIONS(6340),
+    [anon_sym_LPAREN2] = ACTIONS(6340),
+    [anon_sym_PLUS] = ACTIONS(6342),
+    [anon_sym_DASH] = ACTIONS(6342),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6340),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6340),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6340),
+    [aux_sym_contains_statement_token1] = ACTIONS(6340),
+    [aux_sym_use_statement_token2] = ACTIONS(6340),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6340),
+    [aux_sym_save_statement_token1] = ACTIONS(6340),
+    [aux_sym_private_statement_token1] = ACTIONS(6340),
+    [aux_sym_public_statement_token1] = ACTIONS(6340),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6340),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6340),
+    [anon_sym_SEMI] = ACTIONS(6342),
+    [aux_sym_stop_statement_token1] = ACTIONS(6340),
+    [aux_sym_stop_statement_token2] = ACTIONS(6340),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6340),
+    [aux_sym_include_statement_token1] = ACTIONS(6340),
+    [aux_sym_data_statement_token1] = ACTIONS(6340),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6340),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6340),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6340),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6340),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6340),
+    [aux_sym_block_construct_token1] = ACTIONS(6340),
+    [aux_sym_associate_statement_token1] = ACTIONS(6340),
+    [aux_sym_format_statement_token1] = ACTIONS(6340),
+    [aux_sym_print_statement_token1] = ACTIONS(6340),
+    [aux_sym_open_statement_token1] = ACTIONS(6340),
+    [aux_sym_close_statement_token1] = ACTIONS(6340),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6340),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6340),
+    [aux_sym_entry_statement_token1] = ACTIONS(6340),
+    [aux_sym_logical_expression_token5] = ACTIONS(6342),
+    [anon_sym_DOT] = ACTIONS(6340),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6342),
+    [anon_sym_LBRACK] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6342),
+    [aux_sym_null_literal_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6340),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6340),
+    [aux_sym_identifier_token1] = ACTIONS(6340),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6342),
+    [sym__float_literal] = ACTIONS(6342),
+    [sym__boz_literal] = ACTIONS(6342),
+    [sym__string_literal] = ACTIONS(6342),
+    [sym__string_literal_kind] = ACTIONS(6342),
+  },
+  [2172] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2173] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6398),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
-  },
-  [2335] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6550),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2336] = {
+  [2174] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5606),
     [aux_sym_preproc_def_token1] = ACTIONS(5606),
     [aux_sym_preproc_if_token1] = ACTIONS(5606),
@@ -390086,7 +373583,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
     [sym_preproc_directive] = ACTIONS(5606),
     [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6552),
+    [sym_preproc_comment] = ACTIONS(6400),
     [anon_sym_PLUS] = ACTIONS(5610),
     [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
@@ -390137,7 +373634,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(5606),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5606),
     [aux_sym_select_case_statement_token1] = ACTIONS(5606),
     [aux_sym_select_case_statement_token3] = ACTIONS(5606),
     [aux_sym_select_type_statement_token1] = ACTIONS(5606),
@@ -390171,6 +373667,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(5606),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5606),
     [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5610),
@@ -390179,7 +373676,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5610),
     [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2337] = {
+  [2175] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
@@ -390187,7 +373684,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6554),
+    [sym_preproc_comment] = ACTIONS(6402),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -390235,10 +373732,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
     [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5612),
     [aux_sym_elseif_clause_token2] = ACTIONS(5612),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5612),
     [aux_sym_select_case_statement_token1] = ACTIONS(5612),
     [aux_sym_select_case_statement_token3] = ACTIONS(5612),
     [aux_sym_select_type_statement_token1] = ACTIONS(5612),
@@ -390280,1009 +373777,2019 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2338] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6500),
-    [aux_sym_preproc_def_token1] = ACTIONS(6500),
-    [aux_sym_preproc_if_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6500),
-    [sym_preproc_directive] = ACTIONS(6500),
-    [anon_sym_LPAREN2] = ACTIONS(6500),
-    [anon_sym_PLUS] = ACTIONS(6502),
-    [anon_sym_DASH] = ACTIONS(6502),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6500),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6500),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6500),
-    [aux_sym_contains_statement_token1] = ACTIONS(6500),
-    [aux_sym_use_statement_token2] = ACTIONS(6500),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6500),
-    [aux_sym_save_statement_token1] = ACTIONS(6500),
-    [aux_sym_private_statement_token1] = ACTIONS(6500),
-    [aux_sym_public_statement_token1] = ACTIONS(6500),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6500),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6500),
-    [anon_sym_SEMI] = ACTIONS(6502),
-    [aux_sym_stop_statement_token1] = ACTIONS(6500),
-    [aux_sym_stop_statement_token2] = ACTIONS(6500),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6500),
-    [aux_sym_include_statement_token1] = ACTIONS(6500),
-    [aux_sym_data_statement_token1] = ACTIONS(6500),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6500),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6500),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6500),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6500),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6500),
-    [aux_sym_block_construct_token1] = ACTIONS(6500),
-    [aux_sym_associate_statement_token1] = ACTIONS(6500),
-    [aux_sym_format_statement_token1] = ACTIONS(6500),
-    [aux_sym_print_statement_token1] = ACTIONS(6500),
-    [aux_sym_open_statement_token1] = ACTIONS(6500),
-    [aux_sym_close_statement_token1] = ACTIONS(6500),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6500),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6500),
-    [aux_sym_entry_statement_token1] = ACTIONS(6500),
-    [aux_sym_logical_expression_token5] = ACTIONS(6502),
-    [anon_sym_DOT] = ACTIONS(6500),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6502),
-    [anon_sym_LBRACK] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6502),
-    [aux_sym_null_literal_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6500),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6500),
-    [aux_sym_identifier_token1] = ACTIONS(6500),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6502),
-    [sym__float_literal] = ACTIONS(6502),
-    [sym__boz_literal] = ACTIONS(6502),
-    [sym__string_literal] = ACTIONS(6502),
-    [sym__string_literal_kind] = ACTIONS(6502),
+  [2176] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6404),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [2339] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5612),
-    [aux_sym_preproc_def_token1] = ACTIONS(5612),
-    [aux_sym_preproc_if_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
-    [sym_preproc_directive] = ACTIONS(5612),
-    [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6556),
-    [anon_sym_PLUS] = ACTIONS(5616),
-    [anon_sym_DASH] = ACTIONS(5616),
+  [2177] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6406),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
-    [aux_sym_use_statement_token2] = ACTIONS(5612),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
-    [aux_sym_save_statement_token1] = ACTIONS(5612),
-    [aux_sym_private_statement_token1] = ACTIONS(5612),
-    [aux_sym_public_statement_token1] = ACTIONS(5612),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
-    [anon_sym_SEMI] = ACTIONS(5616),
-    [aux_sym_stop_statement_token1] = ACTIONS(5612),
-    [aux_sym_stop_statement_token2] = ACTIONS(5612),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
+  },
+  [2178] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6408),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [2179] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2180] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2181] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6410),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2340] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6558),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+  [2182] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2994),
+    [aux_sym_preproc_def_token1] = ACTIONS(2994),
+    [aux_sym_preproc_if_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2994),
+    [sym_preproc_directive] = ACTIONS(2994),
+    [anon_sym_LPAREN2] = ACTIONS(2994),
+    [anon_sym_PLUS] = ACTIONS(6392),
+    [anon_sym_DASH] = ACTIONS(6392),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2994),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2994),
+    [aux_sym_end_function_statement_token1] = ACTIONS(2994),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2994),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2994),
+    [aux_sym_save_statement_token1] = ACTIONS(2994),
+    [aux_sym_private_statement_token1] = ACTIONS(2994),
+    [aux_sym_public_statement_token1] = ACTIONS(2994),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2994),
+    [anon_sym_SEMI] = ACTIONS(6392),
+    [aux_sym_stop_statement_token1] = ACTIONS(2994),
+    [aux_sym_stop_statement_token2] = ACTIONS(2994),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2994),
+    [aux_sym_include_statement_token1] = ACTIONS(2994),
+    [aux_sym_data_statement_token1] = ACTIONS(2994),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2994),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2994),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2994),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2994),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2994),
+    [aux_sym_block_construct_token1] = ACTIONS(2994),
+    [aux_sym_associate_statement_token1] = ACTIONS(2994),
+    [aux_sym_format_statement_token1] = ACTIONS(2994),
+    [aux_sym_print_statement_token1] = ACTIONS(2994),
+    [aux_sym_open_statement_token1] = ACTIONS(2994),
+    [aux_sym_close_statement_token1] = ACTIONS(2994),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2994),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2994),
+    [aux_sym_entry_statement_token1] = ACTIONS(2994),
+    [aux_sym_logical_expression_token5] = ACTIONS(6392),
+    [anon_sym_DOT] = ACTIONS(2994),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6392),
+    [anon_sym_LBRACK] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6392),
+    [aux_sym_null_literal_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2994),
+    [aux_sym_identifier_token1] = ACTIONS(2994),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(6392),
+    [sym__float_literal] = ACTIONS(6392),
+    [sym__boz_literal] = ACTIONS(6392),
+    [sym__string_literal] = ACTIONS(6392),
+    [sym__string_literal_kind] = ACTIONS(6392),
   },
-  [2341] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6560),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2183] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2342] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6562),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+  [2184] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6412),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2343] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
+  [2185] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6350),
+    [aux_sym_preproc_def_token1] = ACTIONS(6350),
+    [aux_sym_preproc_if_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6350),
+    [sym_preproc_directive] = ACTIONS(6350),
+    [anon_sym_LPAREN2] = ACTIONS(6350),
+    [anon_sym_PLUS] = ACTIONS(6352),
+    [anon_sym_DASH] = ACTIONS(6352),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6350),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6350),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6350),
+    [aux_sym_contains_statement_token1] = ACTIONS(6350),
+    [aux_sym_use_statement_token2] = ACTIONS(6350),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6350),
+    [aux_sym_save_statement_token1] = ACTIONS(6350),
+    [aux_sym_private_statement_token1] = ACTIONS(6350),
+    [aux_sym_public_statement_token1] = ACTIONS(6350),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6350),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6350),
+    [anon_sym_SEMI] = ACTIONS(6352),
+    [aux_sym_stop_statement_token1] = ACTIONS(6350),
+    [aux_sym_stop_statement_token2] = ACTIONS(6350),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6350),
+    [aux_sym_include_statement_token1] = ACTIONS(6350),
+    [aux_sym_data_statement_token1] = ACTIONS(6350),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6350),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6350),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6350),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6350),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6350),
+    [aux_sym_block_construct_token1] = ACTIONS(6350),
+    [aux_sym_associate_statement_token1] = ACTIONS(6350),
+    [aux_sym_format_statement_token1] = ACTIONS(6350),
+    [aux_sym_print_statement_token1] = ACTIONS(6350),
+    [aux_sym_open_statement_token1] = ACTIONS(6350),
+    [aux_sym_close_statement_token1] = ACTIONS(6350),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6350),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6350),
+    [aux_sym_entry_statement_token1] = ACTIONS(6350),
+    [aux_sym_logical_expression_token5] = ACTIONS(6352),
+    [anon_sym_DOT] = ACTIONS(6350),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6352),
+    [anon_sym_LBRACK] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6352),
+    [aux_sym_null_literal_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6350),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6350),
+    [aux_sym_identifier_token1] = ACTIONS(6350),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6352),
+    [sym__float_literal] = ACTIONS(6352),
+    [sym__boz_literal] = ACTIONS(6352),
+    [sym__string_literal] = ACTIONS(6352),
+    [sym__string_literal_kind] = ACTIONS(6352),
   },
-  [2344] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6564),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2186] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6354),
+    [aux_sym_preproc_def_token1] = ACTIONS(6354),
+    [aux_sym_preproc_if_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6354),
+    [sym_preproc_directive] = ACTIONS(6354),
+    [anon_sym_LPAREN2] = ACTIONS(6354),
+    [anon_sym_PLUS] = ACTIONS(6356),
+    [anon_sym_DASH] = ACTIONS(6356),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6354),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6354),
+    [aux_sym_contains_statement_token1] = ACTIONS(6354),
+    [aux_sym_use_statement_token2] = ACTIONS(6354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6354),
+    [aux_sym_save_statement_token1] = ACTIONS(6354),
+    [aux_sym_private_statement_token1] = ACTIONS(6354),
+    [aux_sym_public_statement_token1] = ACTIONS(6354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6354),
+    [anon_sym_SEMI] = ACTIONS(6356),
+    [aux_sym_stop_statement_token1] = ACTIONS(6354),
+    [aux_sym_stop_statement_token2] = ACTIONS(6354),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6354),
+    [aux_sym_include_statement_token1] = ACTIONS(6354),
+    [aux_sym_data_statement_token1] = ACTIONS(6354),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6354),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6354),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6354),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6354),
+    [aux_sym_block_construct_token1] = ACTIONS(6354),
+    [aux_sym_associate_statement_token1] = ACTIONS(6354),
+    [aux_sym_format_statement_token1] = ACTIONS(6354),
+    [aux_sym_print_statement_token1] = ACTIONS(6354),
+    [aux_sym_open_statement_token1] = ACTIONS(6354),
+    [aux_sym_close_statement_token1] = ACTIONS(6354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6354),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6354),
+    [aux_sym_entry_statement_token1] = ACTIONS(6354),
+    [aux_sym_logical_expression_token5] = ACTIONS(6356),
+    [anon_sym_DOT] = ACTIONS(6354),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6356),
+    [anon_sym_LBRACK] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6356),
+    [aux_sym_null_literal_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6354),
+    [aux_sym_identifier_token1] = ACTIONS(6354),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6356),
+    [sym__float_literal] = ACTIONS(6356),
+    [sym__boz_literal] = ACTIONS(6356),
+    [sym__string_literal] = ACTIONS(6356),
+    [sym__string_literal_kind] = ACTIONS(6356),
   },
-  [2345] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6566),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [2187] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2346] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6568),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [2188] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6414),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2347] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6570),
+  [2189] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6416),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2190] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6418),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2191] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2192] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6420),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2193] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
+  },
+  [2194] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
+  },
+  [2195] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6422),
     [anon_sym_PLUS] = ACTIONS(5634),
     [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
     [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
     [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4331),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
     [anon_sym_LBRACK] = ACTIONS(5634),
     [aux_sym_boolean_literal_token1] = ACTIONS(5634),
     [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5634),
     [sym__float_literal] = ACTIONS(5634),
@@ -391290,7 +375797,411 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5634),
     [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2348] = {
+  [2196] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
+  },
+  [2197] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6424),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2198] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
+  },
+  [2199] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6316),
+    [aux_sym_preproc_def_token1] = ACTIONS(6316),
+    [aux_sym_preproc_if_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6316),
+    [sym_preproc_directive] = ACTIONS(6316),
+    [anon_sym_LPAREN2] = ACTIONS(6316),
+    [anon_sym_PLUS] = ACTIONS(6318),
+    [anon_sym_DASH] = ACTIONS(6318),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6316),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6316),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6316),
+    [aux_sym_contains_statement_token1] = ACTIONS(6316),
+    [aux_sym_use_statement_token2] = ACTIONS(6316),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6316),
+    [aux_sym_save_statement_token1] = ACTIONS(6316),
+    [aux_sym_private_statement_token1] = ACTIONS(6316),
+    [aux_sym_public_statement_token1] = ACTIONS(6316),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6316),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6316),
+    [anon_sym_SEMI] = ACTIONS(6318),
+    [aux_sym_stop_statement_token1] = ACTIONS(6316),
+    [aux_sym_stop_statement_token2] = ACTIONS(6316),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6316),
+    [aux_sym_include_statement_token1] = ACTIONS(6316),
+    [aux_sym_data_statement_token1] = ACTIONS(6316),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6316),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6316),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6316),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6316),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6316),
+    [aux_sym_block_construct_token1] = ACTIONS(6316),
+    [aux_sym_associate_statement_token1] = ACTIONS(6316),
+    [aux_sym_format_statement_token1] = ACTIONS(6316),
+    [aux_sym_print_statement_token1] = ACTIONS(6316),
+    [aux_sym_open_statement_token1] = ACTIONS(6316),
+    [aux_sym_close_statement_token1] = ACTIONS(6316),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6316),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6316),
+    [aux_sym_entry_statement_token1] = ACTIONS(6316),
+    [aux_sym_logical_expression_token5] = ACTIONS(6318),
+    [anon_sym_DOT] = ACTIONS(6316),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6318),
+    [anon_sym_LBRACK] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6318),
+    [aux_sym_null_literal_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6316),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6316),
+    [aux_sym_identifier_token1] = ACTIONS(6316),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6318),
+    [sym__float_literal] = ACTIONS(6318),
+    [sym__boz_literal] = ACTIONS(6318),
+    [sym__string_literal] = ACTIONS(6318),
+    [sym__string_literal_kind] = ACTIONS(6318),
+  },
+  [2200] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -391298,9 +376209,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6572),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6426),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -391331,7 +376242,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -391354,6 +376265,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
     [aux_sym_print_statement_token1] = ACTIONS(4525),
@@ -391366,12 +376278,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -391382,925 +376294,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(4525),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2349] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6574),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2350] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6576),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2351] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6578),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2352] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6580),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2353] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6582),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2354] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6584),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2355] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6586),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [2356] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_contains_statement_token1] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2357] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6588),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2358] = {
+  [2201] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
@@ -392401,1724 +376403,613 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5826),
     [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2359] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6036),
-    [aux_sym_preproc_def_token1] = ACTIONS(6036),
-    [aux_sym_preproc_if_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6036),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6036),
-    [sym_preproc_directive] = ACTIONS(6036),
-    [anon_sym_LPAREN2] = ACTIONS(6036),
-    [anon_sym_PLUS] = ACTIONS(6040),
-    [anon_sym_DASH] = ACTIONS(6040),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6036),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6036),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6036),
-    [aux_sym_contains_statement_token1] = ACTIONS(6036),
-    [aux_sym_use_statement_token2] = ACTIONS(6036),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6036),
-    [aux_sym_save_statement_token1] = ACTIONS(6036),
-    [aux_sym_private_statement_token1] = ACTIONS(6036),
-    [aux_sym_public_statement_token1] = ACTIONS(6036),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6036),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6036),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6036),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6036),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6036),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6036),
-    [anon_sym_SEMI] = ACTIONS(6040),
-    [aux_sym_stop_statement_token1] = ACTIONS(6036),
-    [aux_sym_stop_statement_token2] = ACTIONS(6036),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6036),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6036),
-    [aux_sym_include_statement_token1] = ACTIONS(6036),
-    [aux_sym_data_statement_token1] = ACTIONS(6036),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6036),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6036),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6036),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6036),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6036),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6036),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6036),
-    [aux_sym_block_construct_token1] = ACTIONS(6036),
-    [aux_sym_associate_statement_token1] = ACTIONS(6036),
-    [aux_sym_format_statement_token1] = ACTIONS(6036),
-    [aux_sym_print_statement_token1] = ACTIONS(6036),
-    [aux_sym_open_statement_token1] = ACTIONS(6036),
-    [aux_sym_close_statement_token1] = ACTIONS(6036),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6036),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6036),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6036),
-    [aux_sym_entry_statement_token1] = ACTIONS(6036),
-    [aux_sym_logical_expression_token5] = ACTIONS(6040),
-    [anon_sym_DOT] = ACTIONS(6036),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6040),
-    [anon_sym_LBRACK] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6040),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6040),
-    [aux_sym_null_literal_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6036),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6036),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6036),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6036),
-    [aux_sym_identifier_token1] = ACTIONS(6036),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6040),
-    [sym__float_literal] = ACTIONS(6040),
-    [sym__boz_literal] = ACTIONS(6040),
-    [sym__string_literal] = ACTIONS(6040),
-    [sym__string_literal_kind] = ACTIONS(6040),
-  },
-  [2360] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_contains_statement_token1] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2361] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2362] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5618),
-    [aux_sym_preproc_def_token1] = ACTIONS(5618),
-    [aux_sym_preproc_if_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
-    [sym_preproc_directive] = ACTIONS(5618),
-    [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6590),
-    [anon_sym_PLUS] = ACTIONS(5622),
-    [anon_sym_DASH] = ACTIONS(5622),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
-    [aux_sym_use_statement_token2] = ACTIONS(5618),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
-    [aux_sym_save_statement_token1] = ACTIONS(5618),
-    [aux_sym_private_statement_token1] = ACTIONS(5618),
-    [aux_sym_public_statement_token1] = ACTIONS(5618),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
-    [anon_sym_SEMI] = ACTIONS(5622),
-    [aux_sym_stop_statement_token1] = ACTIONS(5618),
-    [aux_sym_stop_statement_token2] = ACTIONS(5618),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
-    [aux_sym_include_statement_token1] = ACTIONS(5618),
-    [aux_sym_data_statement_token1] = ACTIONS(5618),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
-    [aux_sym_block_construct_token1] = ACTIONS(5618),
-    [aux_sym_associate_statement_token1] = ACTIONS(5618),
-    [aux_sym_format_statement_token1] = ACTIONS(5618),
-    [aux_sym_print_statement_token1] = ACTIONS(5618),
-    [aux_sym_open_statement_token1] = ACTIONS(5618),
-    [aux_sym_close_statement_token1] = ACTIONS(5618),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
-    [aux_sym_entry_statement_token1] = ACTIONS(5618),
-    [aux_sym_logical_expression_token5] = ACTIONS(5622),
-    [anon_sym_DOT] = ACTIONS(5618),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
-    [anon_sym_LBRACK] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
-    [aux_sym_null_literal_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5618),
-    [aux_sym_identifier_token1] = ACTIONS(5618),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5622),
-    [sym__float_literal] = ACTIONS(5622),
-    [sym__boz_literal] = ACTIONS(5622),
-    [sym__string_literal] = ACTIONS(5622),
-    [sym__string_literal_kind] = ACTIONS(5622),
-  },
-  [2363] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_contains_statement_token1] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2364] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_contains_statement_token1] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2365] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_contains_statement_token1] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2366] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6592),
-    [anon_sym_PLUS] = ACTIONS(5564),
-    [anon_sym_DASH] = ACTIONS(5564),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
-    [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
-    [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
-    [anon_sym_LBRACK] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5564),
-    [sym__float_literal] = ACTIONS(5564),
-    [sym__boz_literal] = ACTIONS(5564),
-    [sym__string_literal] = ACTIONS(5564),
-    [sym__string_literal_kind] = ACTIONS(5564),
-  },
-  [2367] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6594),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2368] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6596),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2369] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6500),
-    [aux_sym_preproc_def_token1] = ACTIONS(6500),
-    [aux_sym_preproc_if_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6500),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6500),
-    [sym_preproc_directive] = ACTIONS(6500),
-    [anon_sym_LPAREN2] = ACTIONS(6500),
-    [anon_sym_PLUS] = ACTIONS(6502),
-    [anon_sym_DASH] = ACTIONS(6502),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6500),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6500),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6500),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6500),
-    [aux_sym_contains_statement_token1] = ACTIONS(6500),
-    [aux_sym_use_statement_token2] = ACTIONS(6500),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6500),
-    [aux_sym_save_statement_token1] = ACTIONS(6500),
-    [aux_sym_private_statement_token1] = ACTIONS(6500),
-    [aux_sym_public_statement_token1] = ACTIONS(6500),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6500),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6500),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6500),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6500),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6500),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6500),
-    [anon_sym_SEMI] = ACTIONS(6502),
-    [aux_sym_stop_statement_token1] = ACTIONS(6500),
-    [aux_sym_stop_statement_token2] = ACTIONS(6500),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6500),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6500),
-    [aux_sym_include_statement_token1] = ACTIONS(6500),
-    [aux_sym_data_statement_token1] = ACTIONS(6500),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6500),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6500),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6500),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6500),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6500),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6500),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6500),
-    [aux_sym_block_construct_token1] = ACTIONS(6500),
-    [aux_sym_associate_statement_token1] = ACTIONS(6500),
-    [aux_sym_format_statement_token1] = ACTIONS(6500),
-    [aux_sym_print_statement_token1] = ACTIONS(6500),
-    [aux_sym_open_statement_token1] = ACTIONS(6500),
-    [aux_sym_close_statement_token1] = ACTIONS(6500),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6500),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6500),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6500),
-    [aux_sym_entry_statement_token1] = ACTIONS(6500),
-    [aux_sym_logical_expression_token5] = ACTIONS(6502),
-    [anon_sym_DOT] = ACTIONS(6500),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6502),
-    [anon_sym_LBRACK] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6502),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6502),
-    [aux_sym_null_literal_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6500),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6500),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6500),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6500),
-    [aux_sym_identifier_token1] = ACTIONS(6500),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6502),
-    [sym__float_literal] = ACTIONS(6502),
-    [sym__boz_literal] = ACTIONS(6502),
-    [sym__string_literal] = ACTIONS(6502),
-    [sym__string_literal_kind] = ACTIONS(6502),
-  },
-  [2370] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6124),
-    [aux_sym_preproc_def_token1] = ACTIONS(6124),
-    [aux_sym_preproc_if_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6124),
-    [sym_preproc_directive] = ACTIONS(6124),
-    [anon_sym_LPAREN2] = ACTIONS(6124),
-    [anon_sym_PLUS] = ACTIONS(6128),
-    [anon_sym_DASH] = ACTIONS(6128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6124),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6124),
-    [aux_sym_contains_statement_token1] = ACTIONS(6124),
-    [aux_sym_use_statement_token2] = ACTIONS(6124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6124),
-    [aux_sym_save_statement_token1] = ACTIONS(6124),
-    [aux_sym_private_statement_token1] = ACTIONS(6124),
-    [aux_sym_public_statement_token1] = ACTIONS(6124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6124),
-    [anon_sym_SEMI] = ACTIONS(6128),
-    [aux_sym_stop_statement_token1] = ACTIONS(6124),
-    [aux_sym_stop_statement_token2] = ACTIONS(6124),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6124),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6124),
-    [aux_sym_include_statement_token1] = ACTIONS(6124),
-    [aux_sym_data_statement_token1] = ACTIONS(6124),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6124),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6124),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6124),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6124),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6124),
-    [aux_sym_block_construct_token1] = ACTIONS(6124),
-    [aux_sym_associate_statement_token1] = ACTIONS(6124),
-    [aux_sym_format_statement_token1] = ACTIONS(6124),
-    [aux_sym_print_statement_token1] = ACTIONS(6124),
-    [aux_sym_open_statement_token1] = ACTIONS(6124),
-    [aux_sym_close_statement_token1] = ACTIONS(6124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6124),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6124),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6124),
-    [aux_sym_entry_statement_token1] = ACTIONS(6124),
-    [aux_sym_logical_expression_token5] = ACTIONS(6128),
-    [anon_sym_DOT] = ACTIONS(6124),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6128),
-    [anon_sym_LBRACK] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6128),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6128),
-    [aux_sym_null_literal_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6124),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6124),
-    [aux_sym_identifier_token1] = ACTIONS(6124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6128),
-    [sym__float_literal] = ACTIONS(6128),
-    [sym__boz_literal] = ACTIONS(6128),
-    [sym__string_literal] = ACTIONS(6128),
-    [sym__string_literal_kind] = ACTIONS(6128),
+  [2202] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6428),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2371] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6598),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [2203] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2372] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6600),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [2204] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2373] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6602),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+  [2205] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2374] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6604),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
+  [2206] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6430),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2375] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6606),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2207] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2376] = {
+  [2208] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
@@ -394126,7 +377017,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6608),
+    [sym_preproc_comment] = ACTIONS(6432),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -394219,403 +377110,807 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5616),
     [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2377] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6610),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2209] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2210] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6434),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2211] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6436),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2378] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6612),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2212] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6438),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2379] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6614),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
+  [2213] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6440),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2380] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6616),
+  [2214] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6442),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
+  },
+  [2215] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2216] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6444),
     [anon_sym_PLUS] = ACTIONS(5634),
     [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
     [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
     [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4331),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
     [anon_sym_LBRACK] = ACTIONS(5634),
     [aux_sym_boolean_literal_token1] = ACTIONS(5634),
     [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5634),
     [sym__float_literal] = ACTIONS(5634),
@@ -394623,7 +377918,916 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5634),
     [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2381] = {
+  [2217] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2218] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6446),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [2219] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6320),
+    [aux_sym_preproc_def_token1] = ACTIONS(6320),
+    [aux_sym_preproc_if_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6320),
+    [sym_preproc_directive] = ACTIONS(6320),
+    [anon_sym_LPAREN2] = ACTIONS(6320),
+    [anon_sym_PLUS] = ACTIONS(6322),
+    [anon_sym_DASH] = ACTIONS(6322),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6320),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6320),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6320),
+    [aux_sym_contains_statement_token1] = ACTIONS(6320),
+    [aux_sym_use_statement_token2] = ACTIONS(6320),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6320),
+    [aux_sym_save_statement_token1] = ACTIONS(6320),
+    [aux_sym_private_statement_token1] = ACTIONS(6320),
+    [aux_sym_public_statement_token1] = ACTIONS(6320),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6320),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6320),
+    [anon_sym_SEMI] = ACTIONS(6322),
+    [aux_sym_stop_statement_token1] = ACTIONS(6320),
+    [aux_sym_stop_statement_token2] = ACTIONS(6320),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6320),
+    [aux_sym_include_statement_token1] = ACTIONS(6320),
+    [aux_sym_data_statement_token1] = ACTIONS(6320),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6320),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6320),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6320),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6320),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6320),
+    [aux_sym_block_construct_token1] = ACTIONS(6320),
+    [aux_sym_associate_statement_token1] = ACTIONS(6320),
+    [aux_sym_format_statement_token1] = ACTIONS(6320),
+    [aux_sym_print_statement_token1] = ACTIONS(6320),
+    [aux_sym_open_statement_token1] = ACTIONS(6320),
+    [aux_sym_close_statement_token1] = ACTIONS(6320),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6320),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6320),
+    [aux_sym_entry_statement_token1] = ACTIONS(6320),
+    [aux_sym_logical_expression_token5] = ACTIONS(6322),
+    [anon_sym_DOT] = ACTIONS(6320),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6322),
+    [anon_sym_LBRACK] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6322),
+    [aux_sym_null_literal_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6320),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6320),
+    [aux_sym_identifier_token1] = ACTIONS(6320),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6322),
+    [sym__float_literal] = ACTIONS(6322),
+    [sym__boz_literal] = ACTIONS(6322),
+    [sym__string_literal] = ACTIONS(6322),
+    [sym__string_literal_kind] = ACTIONS(6322),
+  },
+  [2220] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2221] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2222] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6448),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2223] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2224] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6450),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2225] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2226] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -394631,9 +378835,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6618),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6452),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -394664,7 +378868,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -394682,13 +378886,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
     [aux_sym_print_statement_token1] = ACTIONS(4525),
     [aux_sym_open_statement_token1] = ACTIONS(4525),
@@ -394700,12 +378904,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -394718,1616 +378922,1217 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2382] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6620),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2383] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6622),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2384] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6624),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2385] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [2386] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6512),
-    [aux_sym_preproc_def_token1] = ACTIONS(6512),
-    [aux_sym_preproc_if_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6512),
-    [sym_preproc_directive] = ACTIONS(6512),
-    [anon_sym_LPAREN2] = ACTIONS(6512),
-    [anon_sym_PLUS] = ACTIONS(6514),
-    [anon_sym_DASH] = ACTIONS(6514),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6512),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6512),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6512),
-    [aux_sym_contains_statement_token1] = ACTIONS(6512),
-    [aux_sym_use_statement_token2] = ACTIONS(6512),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6512),
-    [aux_sym_save_statement_token1] = ACTIONS(6512),
-    [aux_sym_private_statement_token1] = ACTIONS(6512),
-    [aux_sym_public_statement_token1] = ACTIONS(6512),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6512),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6512),
-    [anon_sym_SEMI] = ACTIONS(6514),
-    [aux_sym_stop_statement_token1] = ACTIONS(6512),
-    [aux_sym_stop_statement_token2] = ACTIONS(6512),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6512),
-    [aux_sym_include_statement_token1] = ACTIONS(6512),
-    [aux_sym_data_statement_token1] = ACTIONS(6512),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6512),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6512),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6512),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6512),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6512),
-    [aux_sym_block_construct_token1] = ACTIONS(6512),
-    [aux_sym_associate_statement_token1] = ACTIONS(6512),
-    [aux_sym_format_statement_token1] = ACTIONS(6512),
-    [aux_sym_print_statement_token1] = ACTIONS(6512),
-    [aux_sym_open_statement_token1] = ACTIONS(6512),
-    [aux_sym_close_statement_token1] = ACTIONS(6512),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6512),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6512),
-    [aux_sym_entry_statement_token1] = ACTIONS(6512),
-    [aux_sym_logical_expression_token5] = ACTIONS(6514),
-    [anon_sym_DOT] = ACTIONS(6512),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6514),
-    [anon_sym_LBRACK] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6514),
-    [aux_sym_null_literal_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6512),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6512),
-    [aux_sym_identifier_token1] = ACTIONS(6512),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6514),
-    [sym__float_literal] = ACTIONS(6514),
-    [sym__boz_literal] = ACTIONS(6514),
-    [sym__string_literal] = ACTIONS(6514),
-    [sym__string_literal_kind] = ACTIONS(6514),
-  },
-  [2387] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_end_function_statement_token1] = ACTIONS(5748),
-    [aux_sym_contains_statement_token1] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2388] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6392),
-    [aux_sym_preproc_def_token1] = ACTIONS(6392),
-    [aux_sym_preproc_if_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6392),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6392),
-    [sym_preproc_directive] = ACTIONS(6392),
-    [anon_sym_LPAREN2] = ACTIONS(6392),
-    [anon_sym_PLUS] = ACTIONS(6394),
-    [anon_sym_DASH] = ACTIONS(6394),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6392),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6392),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6392),
-    [aux_sym_end_function_statement_token1] = ACTIONS(6392),
-    [aux_sym_contains_statement_token1] = ACTIONS(6392),
-    [aux_sym_use_statement_token2] = ACTIONS(6392),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6392),
-    [aux_sym_save_statement_token1] = ACTIONS(6392),
-    [aux_sym_private_statement_token1] = ACTIONS(6392),
-    [aux_sym_public_statement_token1] = ACTIONS(6392),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6392),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6392),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6392),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6392),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6392),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6392),
-    [anon_sym_SEMI] = ACTIONS(6394),
-    [aux_sym_stop_statement_token1] = ACTIONS(6392),
-    [aux_sym_stop_statement_token2] = ACTIONS(6392),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6392),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6392),
-    [aux_sym_include_statement_token1] = ACTIONS(6392),
-    [aux_sym_data_statement_token1] = ACTIONS(6392),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6392),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6392),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6392),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6392),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6392),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6392),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6392),
-    [aux_sym_block_construct_token1] = ACTIONS(6392),
-    [aux_sym_associate_statement_token1] = ACTIONS(6392),
-    [aux_sym_format_statement_token1] = ACTIONS(6392),
-    [aux_sym_print_statement_token1] = ACTIONS(6392),
-    [aux_sym_open_statement_token1] = ACTIONS(6392),
-    [aux_sym_close_statement_token1] = ACTIONS(6392),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6392),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6392),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6392),
-    [aux_sym_entry_statement_token1] = ACTIONS(6392),
-    [aux_sym_logical_expression_token5] = ACTIONS(6394),
-    [anon_sym_DOT] = ACTIONS(6392),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6394),
-    [anon_sym_LBRACK] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6394),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6394),
-    [aux_sym_null_literal_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6392),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6392),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6392),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6392),
-    [aux_sym_identifier_token1] = ACTIONS(6392),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6394),
-    [sym__float_literal] = ACTIONS(6394),
-    [sym__boz_literal] = ACTIONS(6394),
-    [sym__string_literal] = ACTIONS(6394),
-    [sym__string_literal_kind] = ACTIONS(6394),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2389] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6512),
-    [aux_sym_preproc_def_token1] = ACTIONS(6512),
-    [aux_sym_preproc_if_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6512),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6512),
-    [sym_preproc_directive] = ACTIONS(6512),
-    [anon_sym_LPAREN2] = ACTIONS(6512),
-    [anon_sym_PLUS] = ACTIONS(6514),
-    [anon_sym_DASH] = ACTIONS(6514),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6512),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6512),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6512),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6512),
-    [aux_sym_contains_statement_token1] = ACTIONS(6512),
-    [aux_sym_use_statement_token2] = ACTIONS(6512),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6512),
-    [aux_sym_save_statement_token1] = ACTIONS(6512),
-    [aux_sym_private_statement_token1] = ACTIONS(6512),
-    [aux_sym_public_statement_token1] = ACTIONS(6512),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6512),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6512),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6512),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6512),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6512),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6512),
-    [anon_sym_SEMI] = ACTIONS(6514),
-    [aux_sym_stop_statement_token1] = ACTIONS(6512),
-    [aux_sym_stop_statement_token2] = ACTIONS(6512),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6512),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6512),
-    [aux_sym_include_statement_token1] = ACTIONS(6512),
-    [aux_sym_data_statement_token1] = ACTIONS(6512),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6512),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6512),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6512),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6512),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6512),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6512),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6512),
-    [aux_sym_block_construct_token1] = ACTIONS(6512),
-    [aux_sym_associate_statement_token1] = ACTIONS(6512),
-    [aux_sym_format_statement_token1] = ACTIONS(6512),
-    [aux_sym_print_statement_token1] = ACTIONS(6512),
-    [aux_sym_open_statement_token1] = ACTIONS(6512),
-    [aux_sym_close_statement_token1] = ACTIONS(6512),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6512),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6512),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6512),
-    [aux_sym_entry_statement_token1] = ACTIONS(6512),
-    [aux_sym_logical_expression_token5] = ACTIONS(6514),
-    [anon_sym_DOT] = ACTIONS(6512),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6514),
-    [anon_sym_LBRACK] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6514),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6514),
-    [aux_sym_null_literal_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6512),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6512),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6512),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6512),
-    [aux_sym_identifier_token1] = ACTIONS(6512),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6514),
-    [sym__float_literal] = ACTIONS(6514),
-    [sym__boz_literal] = ACTIONS(6514),
-    [sym__string_literal] = ACTIONS(6514),
-    [sym__string_literal_kind] = ACTIONS(6514),
+  [2227] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2390] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_contains_statement_token1] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
+  [2228] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6454),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2391] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2869),
-    [aux_sym_preproc_def_token1] = ACTIONS(2869),
-    [aux_sym_preproc_if_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2869),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2869),
-    [sym_preproc_directive] = ACTIONS(2869),
-    [anon_sym_LPAREN2] = ACTIONS(2869),
-    [anon_sym_PLUS] = ACTIONS(6510),
-    [anon_sym_DASH] = ACTIONS(6510),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2869),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2869),
-    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2869),
-    [aux_sym_contains_statement_token1] = ACTIONS(2869),
-    [aux_sym_use_statement_token2] = ACTIONS(2869),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2869),
-    [aux_sym_save_statement_token1] = ACTIONS(2869),
-    [aux_sym_private_statement_token1] = ACTIONS(2869),
-    [aux_sym_public_statement_token1] = ACTIONS(2869),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2869),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2869),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2869),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2869),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2869),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2869),
-    [anon_sym_SEMI] = ACTIONS(6510),
-    [aux_sym_stop_statement_token1] = ACTIONS(2869),
-    [aux_sym_stop_statement_token2] = ACTIONS(2869),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2869),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2869),
-    [aux_sym_include_statement_token1] = ACTIONS(2869),
-    [aux_sym_data_statement_token1] = ACTIONS(2869),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2869),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2869),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2869),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2869),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2869),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2869),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2869),
-    [aux_sym_block_construct_token1] = ACTIONS(2869),
-    [aux_sym_associate_statement_token1] = ACTIONS(2869),
-    [aux_sym_format_statement_token1] = ACTIONS(2869),
-    [aux_sym_print_statement_token1] = ACTIONS(2869),
-    [aux_sym_open_statement_token1] = ACTIONS(2869),
-    [aux_sym_close_statement_token1] = ACTIONS(2869),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2869),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2869),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2869),
-    [aux_sym_entry_statement_token1] = ACTIONS(2869),
-    [aux_sym_logical_expression_token5] = ACTIONS(6510),
-    [anon_sym_DOT] = ACTIONS(2869),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6510),
-    [anon_sym_LBRACK] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6510),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6510),
-    [aux_sym_null_literal_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2869),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2869),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2869),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2869),
-    [aux_sym_identifier_token1] = ACTIONS(2869),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6510),
-    [sym__float_literal] = ACTIONS(6510),
-    [sym__boz_literal] = ACTIONS(6510),
-    [sym__string_literal] = ACTIONS(6510),
-    [sym__string_literal_kind] = ACTIONS(6510),
+  [2229] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6456),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2392] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2230] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2393] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+  [2231] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6458),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
   },
-  [2394] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+  [2232] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2395] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [2233] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2234] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6460),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2396] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [2235] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2397] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
+  [2236] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6462),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2237] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_end_function_statement_token1] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
+  },
+  [2238] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6464),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -396335,1507 +380140,3239 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2398] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [2239] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2240] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2241] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6466),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2242] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6468),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2399] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2243] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2244] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6470),
+    [aux_sym_preproc_def_token1] = ACTIONS(6470),
+    [aux_sym_preproc_if_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6470),
+    [sym_preproc_directive] = ACTIONS(6470),
+    [anon_sym_LPAREN2] = ACTIONS(6470),
+    [anon_sym_PLUS] = ACTIONS(6472),
+    [anon_sym_DASH] = ACTIONS(6472),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6470),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6470),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6470),
+    [aux_sym_contains_statement_token1] = ACTIONS(6470),
+    [aux_sym_use_statement_token2] = ACTIONS(6470),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6470),
+    [aux_sym_save_statement_token1] = ACTIONS(6470),
+    [aux_sym_private_statement_token1] = ACTIONS(6470),
+    [aux_sym_public_statement_token1] = ACTIONS(6470),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6470),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6470),
+    [anon_sym_SEMI] = ACTIONS(6472),
+    [aux_sym_stop_statement_token1] = ACTIONS(6470),
+    [aux_sym_stop_statement_token2] = ACTIONS(6470),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6470),
+    [aux_sym_include_statement_token1] = ACTIONS(6470),
+    [aux_sym_data_statement_token1] = ACTIONS(6470),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6470),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6470),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6470),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6470),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6470),
+    [aux_sym_block_construct_token1] = ACTIONS(6470),
+    [aux_sym_associate_statement_token1] = ACTIONS(6470),
+    [aux_sym_format_statement_token1] = ACTIONS(6470),
+    [aux_sym_print_statement_token1] = ACTIONS(6470),
+    [aux_sym_open_statement_token1] = ACTIONS(6470),
+    [aux_sym_close_statement_token1] = ACTIONS(6470),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6470),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6470),
+    [aux_sym_entry_statement_token1] = ACTIONS(6470),
+    [aux_sym_logical_expression_token5] = ACTIONS(6472),
+    [anon_sym_DOT] = ACTIONS(6470),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6472),
+    [anon_sym_LBRACK] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6472),
+    [aux_sym_null_literal_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6470),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6470),
+    [aux_sym_identifier_token1] = ACTIONS(6470),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6472),
+    [sym__float_literal] = ACTIONS(6472),
+    [sym__boz_literal] = ACTIONS(6472),
+    [sym__string_literal] = ACTIONS(6472),
+    [sym__string_literal_kind] = ACTIONS(6472),
+  },
+  [2245] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6474),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2400] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2246] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6476),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2401] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2247] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2248] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2249] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2250] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2402] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2251] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token2] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6478),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2403] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2252] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token2] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6480),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2253] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6482),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2404] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [2254] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token2] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6484),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
   },
-  [2405] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2255] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6486),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2406] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2256] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token2] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6488),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2257] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token2] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6490),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2407] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2258] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token2] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6492),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2408] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2259] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token2] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6494),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2409] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2260] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2410] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2261] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6470),
+    [aux_sym_preproc_def_token1] = ACTIONS(6470),
+    [aux_sym_preproc_if_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6470),
+    [sym_preproc_directive] = ACTIONS(6470),
+    [anon_sym_LPAREN2] = ACTIONS(6470),
+    [anon_sym_PLUS] = ACTIONS(6472),
+    [anon_sym_DASH] = ACTIONS(6472),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6470),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(6470),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6470),
+    [aux_sym_contains_statement_token1] = ACTIONS(6470),
+    [aux_sym_use_statement_token2] = ACTIONS(6470),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6470),
+    [aux_sym_save_statement_token1] = ACTIONS(6470),
+    [aux_sym_private_statement_token1] = ACTIONS(6470),
+    [aux_sym_public_statement_token1] = ACTIONS(6470),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6470),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6470),
+    [anon_sym_SEMI] = ACTIONS(6472),
+    [aux_sym_stop_statement_token1] = ACTIONS(6470),
+    [aux_sym_stop_statement_token2] = ACTIONS(6470),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6470),
+    [aux_sym_include_statement_token1] = ACTIONS(6470),
+    [aux_sym_data_statement_token1] = ACTIONS(6470),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6470),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6470),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6470),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6470),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6470),
+    [aux_sym_block_construct_token1] = ACTIONS(6470),
+    [aux_sym_associate_statement_token1] = ACTIONS(6470),
+    [aux_sym_format_statement_token1] = ACTIONS(6470),
+    [aux_sym_print_statement_token1] = ACTIONS(6470),
+    [aux_sym_open_statement_token1] = ACTIONS(6470),
+    [aux_sym_close_statement_token1] = ACTIONS(6470),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6470),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6470),
+    [aux_sym_entry_statement_token1] = ACTIONS(6470),
+    [aux_sym_logical_expression_token5] = ACTIONS(6472),
+    [anon_sym_DOT] = ACTIONS(6470),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6472),
+    [anon_sym_LBRACK] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6472),
+    [aux_sym_null_literal_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6470),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6470),
+    [aux_sym_identifier_token1] = ACTIONS(6470),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6472),
+    [sym__float_literal] = ACTIONS(6472),
+    [sym__boz_literal] = ACTIONS(6472),
+    [sym__string_literal] = ACTIONS(6472),
+    [sym__string_literal_kind] = ACTIONS(6472),
+  },
+  [2262] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token2] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6496),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2411] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2263] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6470),
+    [aux_sym_preproc_def_token1] = ACTIONS(6470),
+    [aux_sym_preproc_if_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6470),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6470),
+    [sym_preproc_directive] = ACTIONS(6470),
+    [anon_sym_LPAREN2] = ACTIONS(6470),
+    [anon_sym_PLUS] = ACTIONS(6472),
+    [anon_sym_DASH] = ACTIONS(6472),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6470),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6470),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6470),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6470),
+    [aux_sym_contains_statement_token1] = ACTIONS(6470),
+    [aux_sym_use_statement_token2] = ACTIONS(6470),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6470),
+    [aux_sym_save_statement_token1] = ACTIONS(6470),
+    [aux_sym_private_statement_token1] = ACTIONS(6470),
+    [aux_sym_public_statement_token1] = ACTIONS(6470),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6470),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6470),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6470),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6470),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6470),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6470),
+    [anon_sym_SEMI] = ACTIONS(6472),
+    [aux_sym_stop_statement_token1] = ACTIONS(6470),
+    [aux_sym_stop_statement_token2] = ACTIONS(6470),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6470),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6470),
+    [aux_sym_include_statement_token1] = ACTIONS(6470),
+    [aux_sym_data_statement_token1] = ACTIONS(6470),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6470),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6470),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6470),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6470),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6470),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6470),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6470),
+    [aux_sym_block_construct_token1] = ACTIONS(6470),
+    [aux_sym_associate_statement_token1] = ACTIONS(6470),
+    [aux_sym_format_statement_token1] = ACTIONS(6470),
+    [aux_sym_print_statement_token1] = ACTIONS(6470),
+    [aux_sym_open_statement_token1] = ACTIONS(6470),
+    [aux_sym_close_statement_token1] = ACTIONS(6470),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6470),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6470),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6470),
+    [aux_sym_entry_statement_token1] = ACTIONS(6470),
+    [aux_sym_logical_expression_token5] = ACTIONS(6472),
+    [anon_sym_DOT] = ACTIONS(6470),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6472),
+    [anon_sym_LBRACK] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6472),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6472),
+    [aux_sym_null_literal_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6470),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6470),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6470),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6470),
+    [aux_sym_identifier_token1] = ACTIONS(6470),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6472),
+    [sym__float_literal] = ACTIONS(6472),
+    [sym__boz_literal] = ACTIONS(6472),
+    [sym__string_literal] = ACTIONS(6472),
+    [sym__string_literal_kind] = ACTIONS(6472),
+  },
+  [2264] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_contains_statement_token1] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2265] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2266] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2412] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2267] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6498),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2413] = {
+  [2268] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_contains_statement_token1] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2269] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2270] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_contains_statement_token1] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2271] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
@@ -397850,6 +383387,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
     [aux_sym_use_statement_token2] = ACTIONS(5726),
     [aux_sym_implicit_statement_token4] = ACTIONS(5726),
     [aux_sym_save_statement_token1] = ACTIONS(5726),
@@ -397899,7 +383438,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
     [aux_sym_block_construct_token1] = ACTIONS(5726),
     [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5726),
     [aux_sym_format_statement_token1] = ACTIONS(5726),
     [aux_sym_print_statement_token1] = ACTIONS(5726),
     [aux_sym_open_statement_token1] = ACTIONS(5726),
@@ -397925,2017 +383463,522 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token11] = ACTIONS(5726),
     [aux_sym_coarray_statement_token12] = ACTIONS(5726),
     [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [2414] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
-  },
-  [2415] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2416] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2417] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2418] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [2419] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2420] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
-  },
-  [2421] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2422] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2423] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [2424] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [2425] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [2426] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [2427] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2428] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [2429] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2430] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2272] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2431] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [2273] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6296),
+    [aux_sym_preproc_def_token1] = ACTIONS(6296),
+    [aux_sym_preproc_if_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6296),
+    [sym_preproc_directive] = ACTIONS(6296),
+    [anon_sym_LPAREN2] = ACTIONS(6296),
+    [anon_sym_PLUS] = ACTIONS(6298),
+    [anon_sym_DASH] = ACTIONS(6298),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6296),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6296),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6296),
+    [aux_sym_contains_statement_token1] = ACTIONS(6296),
+    [aux_sym_use_statement_token2] = ACTIONS(6296),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6296),
+    [aux_sym_save_statement_token1] = ACTIONS(6296),
+    [aux_sym_private_statement_token1] = ACTIONS(6296),
+    [aux_sym_public_statement_token1] = ACTIONS(6296),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6296),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6296),
+    [anon_sym_SEMI] = ACTIONS(6298),
+    [aux_sym_stop_statement_token1] = ACTIONS(6296),
+    [aux_sym_stop_statement_token2] = ACTIONS(6296),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6296),
+    [aux_sym_include_statement_token1] = ACTIONS(6296),
+    [aux_sym_data_statement_token1] = ACTIONS(6296),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6296),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6296),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6296),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6296),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6296),
+    [aux_sym_block_construct_token1] = ACTIONS(6296),
+    [aux_sym_associate_statement_token1] = ACTIONS(6296),
+    [aux_sym_format_statement_token1] = ACTIONS(6296),
+    [aux_sym_print_statement_token1] = ACTIONS(6296),
+    [aux_sym_open_statement_token1] = ACTIONS(6296),
+    [aux_sym_close_statement_token1] = ACTIONS(6296),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6296),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6296),
+    [aux_sym_entry_statement_token1] = ACTIONS(6296),
+    [aux_sym_logical_expression_token5] = ACTIONS(6298),
+    [anon_sym_DOT] = ACTIONS(6296),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6298),
+    [anon_sym_LBRACK] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6298),
+    [aux_sym_null_literal_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6296),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6296),
+    [aux_sym_identifier_token1] = ACTIONS(6296),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6298),
+    [sym__float_literal] = ACTIONS(6298),
+    [sym__boz_literal] = ACTIONS(6298),
+    [sym__string_literal] = ACTIONS(6298),
+    [sym__string_literal_kind] = ACTIONS(6298),
   },
-  [2432] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2274] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6500),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2275] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6502),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2433] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2276] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6504),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2434] = {
+  [2277] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -399943,8 +383986,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6506),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -399975,7 +384019,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -399988,6 +384032,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(4525),
     [aux_sym_data_statement_token1] = ACTIONS(4525),
     [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4525),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
     [aux_sym_end_if_statement_token1] = ACTIONS(4525),
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
@@ -399997,7 +384042,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -400011,12 +384055,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -400029,805 +384073,1318 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2435] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2278] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6508),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2436] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2279] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6510),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2437] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2280] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_contains_statement_token1] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2281] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6512),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
+  },
+  [2282] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6514),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
+  },
+  [2283] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6516),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2284] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_contains_statement_token1] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
+  },
+  [2285] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6518),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
+  },
+  [2286] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6520),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2287] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2288] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6522),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [2438] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2439] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2440] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [2289] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6524),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2441] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2442] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4301),
-    [aux_sym_preproc_def_token1] = ACTIONS(4301),
-    [aux_sym_preproc_if_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4301),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4301),
-    [sym_preproc_directive] = ACTIONS(4301),
-    [anon_sym_LPAREN2] = ACTIONS(4301),
-    [sym_preproc_comment] = ACTIONS(6626),
+  [2290] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6526),
     [anon_sym_PLUS] = ACTIONS(5564),
     [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4301),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4301),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4301),
-    [aux_sym_use_statement_token2] = ACTIONS(4301),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4301),
-    [aux_sym_save_statement_token1] = ACTIONS(4301),
-    [aux_sym_private_statement_token1] = ACTIONS(4301),
-    [aux_sym_public_statement_token1] = ACTIONS(4301),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4301),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4301),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4301),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4301),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4301),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4301),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
     [anon_sym_SEMI] = ACTIONS(5564),
-    [aux_sym_stop_statement_token1] = ACTIONS(4301),
-    [aux_sym_stop_statement_token2] = ACTIONS(4301),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4301),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4301),
-    [aux_sym_include_statement_token1] = ACTIONS(4301),
-    [aux_sym_data_statement_token1] = ACTIONS(4301),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4301),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4301),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4301),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4301),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4301),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4301),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4301),
-    [aux_sym_block_construct_token1] = ACTIONS(4301),
-    [aux_sym_associate_statement_token1] = ACTIONS(4301),
-    [aux_sym_format_statement_token1] = ACTIONS(4301),
-    [aux_sym_print_statement_token1] = ACTIONS(4301),
-    [aux_sym_open_statement_token1] = ACTIONS(4301),
-    [aux_sym_close_statement_token1] = ACTIONS(4301),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4301),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4301),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4301),
-    [aux_sym_entry_statement_token1] = ACTIONS(4301),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
     [aux_sym_logical_expression_token5] = ACTIONS(5564),
-    [anon_sym_DOT] = ACTIONS(4301),
+    [anon_sym_DOT] = ACTIONS(5560),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
     [anon_sym_LBRACK] = ACTIONS(5564),
     [aux_sym_boolean_literal_token1] = ACTIONS(5564),
     [aux_sym_boolean_literal_token2] = ACTIONS(5564),
-    [aux_sym_null_literal_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4301),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4301),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4301),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4301),
-    [aux_sym_identifier_token1] = ACTIONS(4301),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5564),
     [sym__float_literal] = ACTIONS(5564),
@@ -400835,2421 +385392,3356 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5564),
     [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2443] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
-  },
-  [2444] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
-  },
-  [2445] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2446] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [2447] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2448] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
-  },
-  [2449] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [2450] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2291] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6528),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2451] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2292] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6530),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2452] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2293] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6532),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2294] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2295] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_select_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2453] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2296] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2454] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2297] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6534),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2298] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2455] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2299] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2994),
+    [aux_sym_preproc_def_token1] = ACTIONS(2994),
+    [aux_sym_preproc_if_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2994),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2994),
+    [sym_preproc_directive] = ACTIONS(2994),
+    [anon_sym_LPAREN2] = ACTIONS(2994),
+    [anon_sym_PLUS] = ACTIONS(6392),
+    [anon_sym_DASH] = ACTIONS(6392),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2994),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2994),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2994),
+    [aux_sym_contains_statement_token1] = ACTIONS(2994),
+    [aux_sym_use_statement_token2] = ACTIONS(2994),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2994),
+    [aux_sym_save_statement_token1] = ACTIONS(2994),
+    [aux_sym_private_statement_token1] = ACTIONS(2994),
+    [aux_sym_public_statement_token1] = ACTIONS(2994),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2994),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2994),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2994),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2994),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2994),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2994),
+    [anon_sym_SEMI] = ACTIONS(6392),
+    [aux_sym_stop_statement_token1] = ACTIONS(2994),
+    [aux_sym_stop_statement_token2] = ACTIONS(2994),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2994),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2994),
+    [aux_sym_include_statement_token1] = ACTIONS(2994),
+    [aux_sym_data_statement_token1] = ACTIONS(2994),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2994),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2994),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2994),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2994),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2994),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2994),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2994),
+    [aux_sym_block_construct_token1] = ACTIONS(2994),
+    [aux_sym_associate_statement_token1] = ACTIONS(2994),
+    [aux_sym_format_statement_token1] = ACTIONS(2994),
+    [aux_sym_print_statement_token1] = ACTIONS(2994),
+    [aux_sym_open_statement_token1] = ACTIONS(2994),
+    [aux_sym_close_statement_token1] = ACTIONS(2994),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2994),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2994),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2994),
+    [aux_sym_entry_statement_token1] = ACTIONS(2994),
+    [aux_sym_logical_expression_token5] = ACTIONS(6392),
+    [anon_sym_DOT] = ACTIONS(2994),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6392),
+    [anon_sym_LBRACK] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6392),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6392),
+    [aux_sym_null_literal_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2994),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2994),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2994),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2994),
+    [aux_sym_identifier_token1] = ACTIONS(2994),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6392),
+    [sym__float_literal] = ACTIONS(6392),
+    [sym__boz_literal] = ACTIONS(6392),
+    [sym__string_literal] = ACTIONS(6392),
+    [sym__string_literal_kind] = ACTIONS(6392),
+  },
+  [2300] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_contains_statement_token1] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2301] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2302] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6536),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2303] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_end_module_procedure_statement_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_contains_statement_token1] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2456] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2304] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6538),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2305] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token2] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2457] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2306] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2307] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6540),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2458] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2308] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6380),
+    [aux_sym_preproc_def_token1] = ACTIONS(6380),
+    [aux_sym_preproc_if_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6380),
+    [sym_preproc_directive] = ACTIONS(6380),
+    [anon_sym_LPAREN2] = ACTIONS(6380),
+    [anon_sym_PLUS] = ACTIONS(6382),
+    [anon_sym_DASH] = ACTIONS(6382),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6380),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6380),
+    [aux_sym_contains_statement_token1] = ACTIONS(6380),
+    [aux_sym_use_statement_token2] = ACTIONS(6380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6380),
+    [aux_sym_save_statement_token1] = ACTIONS(6380),
+    [aux_sym_private_statement_token1] = ACTIONS(6380),
+    [aux_sym_public_statement_token1] = ACTIONS(6380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6380),
+    [anon_sym_SEMI] = ACTIONS(6382),
+    [aux_sym_stop_statement_token1] = ACTIONS(6380),
+    [aux_sym_stop_statement_token2] = ACTIONS(6380),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6380),
+    [aux_sym_include_statement_token1] = ACTIONS(6380),
+    [aux_sym_data_statement_token1] = ACTIONS(6380),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6380),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6380),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6380),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6380),
+    [aux_sym_block_construct_token1] = ACTIONS(6380),
+    [aux_sym_associate_statement_token1] = ACTIONS(6380),
+    [aux_sym_format_statement_token1] = ACTIONS(6380),
+    [aux_sym_print_statement_token1] = ACTIONS(6380),
+    [aux_sym_open_statement_token1] = ACTIONS(6380),
+    [aux_sym_close_statement_token1] = ACTIONS(6380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6380),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6380),
+    [aux_sym_entry_statement_token1] = ACTIONS(6380),
+    [aux_sym_logical_expression_token5] = ACTIONS(6382),
+    [anon_sym_DOT] = ACTIONS(6380),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6382),
+    [anon_sym_LBRACK] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6382),
+    [aux_sym_null_literal_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6380),
+    [aux_sym_identifier_token1] = ACTIONS(6380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6382),
+    [sym__float_literal] = ACTIONS(6382),
+    [sym__boz_literal] = ACTIONS(6382),
+    [sym__string_literal] = ACTIONS(6382),
+    [sym__string_literal_kind] = ACTIONS(6382),
   },
-  [2459] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2309] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
+  },
+  [2310] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2460] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2311] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6542),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2312] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6544),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2461] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2313] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_contains_statement_token1] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2314] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6546),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2315] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_contains_statement_token1] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2316] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2317] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6548),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2318] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2462] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2319] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2463] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2320] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2464] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2321] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6550),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2465] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4307),
-    [aux_sym_preproc_def_token1] = ACTIONS(4307),
-    [aux_sym_preproc_if_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4307),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4307),
-    [sym_preproc_directive] = ACTIONS(4307),
-    [anon_sym_LPAREN2] = ACTIONS(4307),
-    [sym_preproc_comment] = ACTIONS(6628),
-    [anon_sym_PLUS] = ACTIONS(5568),
-    [anon_sym_DASH] = ACTIONS(5568),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4307),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4307),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4307),
-    [aux_sym_use_statement_token2] = ACTIONS(4307),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4307),
-    [aux_sym_save_statement_token1] = ACTIONS(4307),
-    [aux_sym_private_statement_token1] = ACTIONS(4307),
-    [aux_sym_public_statement_token1] = ACTIONS(4307),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4307),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4307),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4307),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4307),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4307),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4307),
-    [anon_sym_SEMI] = ACTIONS(5568),
-    [aux_sym_stop_statement_token1] = ACTIONS(4307),
-    [aux_sym_stop_statement_token2] = ACTIONS(4307),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4307),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4307),
-    [aux_sym_include_statement_token1] = ACTIONS(4307),
-    [aux_sym_data_statement_token1] = ACTIONS(4307),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4307),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4307),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4307),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4307),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4307),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4307),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4307),
-    [aux_sym_block_construct_token1] = ACTIONS(4307),
-    [aux_sym_associate_statement_token1] = ACTIONS(4307),
-    [aux_sym_format_statement_token1] = ACTIONS(4307),
-    [aux_sym_print_statement_token1] = ACTIONS(4307),
-    [aux_sym_open_statement_token1] = ACTIONS(4307),
-    [aux_sym_close_statement_token1] = ACTIONS(4307),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4307),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4307),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4307),
-    [aux_sym_entry_statement_token1] = ACTIONS(4307),
-    [aux_sym_logical_expression_token5] = ACTIONS(5568),
-    [anon_sym_DOT] = ACTIONS(4307),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5568),
-    [anon_sym_LBRACK] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5568),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5568),
-    [aux_sym_null_literal_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4307),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4307),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4307),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4307),
-    [aux_sym_identifier_token1] = ACTIONS(4307),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5568),
-    [sym__float_literal] = ACTIONS(5568),
-    [sym__boz_literal] = ACTIONS(5568),
-    [sym__string_literal] = ACTIONS(5568),
-    [sym__string_literal_kind] = ACTIONS(5568),
+  [2322] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6552),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2466] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2323] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2467] = {
+  [2324] = {
     [aux_sym_preproc_include_token1] = ACTIONS(2079),
     [aux_sym_preproc_def_token1] = ACTIONS(2079),
     [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
     [sym_preproc_directive] = ACTIONS(2079),
     [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
     [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_contains_statement_token1] = ACTIONS(2079),
     [aux_sym_use_statement_token2] = ACTIONS(2079),
     [aux_sym_implicit_statement_token4] = ACTIONS(2079),
     [aux_sym_save_statement_token1] = ACTIONS(2079),
@@ -403275,7 +388767,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
     [aux_sym_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
+    [anon_sym_SEMI] = ACTIONS(5708),
     [aux_sym_stop_statement_token1] = ACTIONS(2079),
     [aux_sym_stop_statement_token2] = ACTIONS(2079),
     [aux_sym_subroutine_call_token1] = ACTIONS(2079),
@@ -403290,7 +388782,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
     [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
     [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
     [aux_sym_elseif_clause_token2] = ACTIONS(2079),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
@@ -403311,12 +388802,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(2079),
     [aux_sym_allocate_statement_token1] = ACTIONS(2079),
     [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
     [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
     [aux_sym_null_literal_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token2] = ACTIONS(2079),
@@ -403329,323 +388820,1034 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
+  },
+  [2325] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2326] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(6554),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
+  },
+  [2327] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_contains_statement_token1] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2468] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2328] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6556),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2329] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6558),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2469] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2330] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2470] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2331] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2332] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2471] = {
+  [2333] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2334] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_contains_statement_token1] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
+  },
+  [2335] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [sym_preproc_comment] = ACTIONS(6630),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6560),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -403676,7 +389878,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -403711,12 +389913,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -403729,313 +389931,114 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2472] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2473] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2474] = {
-    [anon_sym_COMMA] = ACTIONS(6632),
-    [anon_sym_RPAREN] = ACTIONS(6632),
-    [anon_sym_LPAREN2] = ACTIONS(6632),
-    [anon_sym_PLUS] = ACTIONS(6632),
-    [anon_sym_DASH] = ACTIONS(6632),
-    [anon_sym_STAR] = ACTIONS(6634),
-    [anon_sym_SLASH] = ACTIONS(6634),
-    [anon_sym_PERCENT] = ACTIONS(6632),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6632),
-    [anon_sym_GT] = ACTIONS(6634),
-    [anon_sym_GT_EQ] = ACTIONS(6632),
-    [anon_sym_LT_EQ] = ACTIONS(6632),
-    [anon_sym_LT] = ACTIONS(6634),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6634),
-    [anon_sym_EQ] = ACTIONS(6634),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6634),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6634),
-    [aux_sym_language_binding_token1] = ACTIONS(6634),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6634),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6634),
-    [aux_sym_use_statement_token2] = ACTIONS(6634),
-    [anon_sym_COLON_COLON] = ACTIONS(6632),
-    [anon_sym_EQ_GT] = ACTIONS(6632),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6634),
-    [aux_sym_save_statement_token1] = ACTIONS(6634),
-    [aux_sym_private_statement_token1] = ACTIONS(6634),
-    [aux_sym_public_statement_token1] = ACTIONS(6634),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6634),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6634),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6634),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6634),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6634),
-    [aux_sym_stop_statement_token1] = ACTIONS(6634),
-    [aux_sym_stop_statement_token2] = ACTIONS(6634),
-    [anon_sym_GT_GT_GT] = ACTIONS(6632),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6634),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6634),
-    [aux_sym_data_statement_token1] = ACTIONS(6634),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6634),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6634),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6634),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6634),
-    [aux_sym_block_construct_token1] = ACTIONS(6634),
-    [aux_sym_format_statement_token1] = ACTIONS(6634),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6634),
-    [aux_sym_entry_statement_token1] = ACTIONS(6634),
-    [aux_sym_logical_expression_token1] = ACTIONS(6632),
-    [aux_sym_logical_expression_token2] = ACTIONS(6632),
-    [aux_sym_logical_expression_token3] = ACTIONS(6632),
-    [aux_sym_logical_expression_token4] = ACTIONS(6632),
-    [aux_sym_relational_expression_token1] = ACTIONS(6632),
-    [aux_sym_relational_expression_token2] = ACTIONS(6632),
-    [aux_sym_relational_expression_token3] = ACTIONS(6632),
-    [aux_sym_relational_expression_token4] = ACTIONS(6632),
-    [aux_sym_relational_expression_token5] = ACTIONS(6632),
-    [anon_sym_SLASH_EQ] = ACTIONS(6632),
-    [aux_sym_relational_expression_token6] = ACTIONS(6632),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6632),
-    [anon_sym_STAR_STAR] = ACTIONS(6632),
-    [anon_sym_DOT] = ACTIONS(6634),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6632),
-    [anon_sym_LBRACK] = ACTIONS(6632),
-    [anon_sym_RBRACK] = ACTIONS(6632),
-    [aux_sym_null_literal_token1] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6634),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6634),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6634),
-    [anon_sym_QMARK] = ACTIONS(6632),
-    [aux_sym_identifier_token1] = ACTIONS(6634),
+  [2336] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token2] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6562),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2475] = {
+  [2337] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5618),
     [aux_sym_preproc_def_token1] = ACTIONS(5618),
     [aux_sym_preproc_if_token1] = ACTIONS(5618),
@@ -404043,7 +390046,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
     [sym_preproc_directive] = ACTIONS(5618),
     [anon_sym_LPAREN2] = ACTIONS(5618),
-    [sym_preproc_comment] = ACTIONS(6636),
+    [sym_preproc_comment] = ACTIONS(6564),
     [anon_sym_PLUS] = ACTIONS(5622),
     [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
@@ -404100,6 +390103,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
     [aux_sym_block_construct_token1] = ACTIONS(5618),
     [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5618),
     [aux_sym_format_statement_token1] = ACTIONS(5618),
     [aux_sym_print_statement_token1] = ACTIONS(5618),
     [aux_sym_open_statement_token1] = ACTIONS(5618),
@@ -404135,707 +390139,209 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5622),
     [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2476] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5600),
-    [aux_sym_preproc_def_token1] = ACTIONS(5600),
-    [aux_sym_preproc_if_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5600),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5600),
-    [sym_preproc_directive] = ACTIONS(5600),
-    [anon_sym_LPAREN2] = ACTIONS(5600),
-    [sym_preproc_comment] = ACTIONS(6638),
-    [anon_sym_PLUS] = ACTIONS(5604),
-    [anon_sym_DASH] = ACTIONS(5604),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5600),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5600),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5600),
-    [aux_sym_use_statement_token2] = ACTIONS(5600),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5600),
-    [aux_sym_save_statement_token1] = ACTIONS(5600),
-    [aux_sym_private_statement_token1] = ACTIONS(5600),
-    [aux_sym_public_statement_token1] = ACTIONS(5600),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5600),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5600),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5600),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5600),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5600),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5600),
-    [anon_sym_SEMI] = ACTIONS(5604),
-    [aux_sym_stop_statement_token1] = ACTIONS(5600),
-    [aux_sym_stop_statement_token2] = ACTIONS(5600),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5600),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5600),
-    [aux_sym_include_statement_token1] = ACTIONS(5600),
-    [aux_sym_data_statement_token1] = ACTIONS(5600),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5600),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5600),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5600),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5600),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5600),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5600),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5600),
-    [aux_sym_block_construct_token1] = ACTIONS(5600),
-    [aux_sym_associate_statement_token1] = ACTIONS(5600),
-    [aux_sym_format_statement_token1] = ACTIONS(5600),
-    [aux_sym_print_statement_token1] = ACTIONS(5600),
-    [aux_sym_open_statement_token1] = ACTIONS(5600),
-    [aux_sym_close_statement_token1] = ACTIONS(5600),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5600),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5600),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5600),
-    [aux_sym_entry_statement_token1] = ACTIONS(5600),
-    [aux_sym_logical_expression_token5] = ACTIONS(5604),
-    [anon_sym_DOT] = ACTIONS(5600),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
-    [anon_sym_LBRACK] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
-    [aux_sym_null_literal_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5600),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5600),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5600),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5600),
-    [aux_sym_identifier_token1] = ACTIONS(5600),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5604),
-    [sym__float_literal] = ACTIONS(5604),
-    [sym__boz_literal] = ACTIONS(5604),
-    [sym__string_literal] = ACTIONS(5604),
-    [sym__string_literal_kind] = ACTIONS(5604),
-  },
-  [2477] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5594),
-    [aux_sym_preproc_def_token1] = ACTIONS(5594),
-    [aux_sym_preproc_if_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5594),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5594),
-    [sym_preproc_directive] = ACTIONS(5594),
-    [anon_sym_LPAREN2] = ACTIONS(5594),
-    [sym_preproc_comment] = ACTIONS(6640),
-    [anon_sym_PLUS] = ACTIONS(5598),
-    [anon_sym_DASH] = ACTIONS(5598),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5594),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5594),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5594),
-    [aux_sym_use_statement_token2] = ACTIONS(5594),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5594),
-    [aux_sym_save_statement_token1] = ACTIONS(5594),
-    [aux_sym_private_statement_token1] = ACTIONS(5594),
-    [aux_sym_public_statement_token1] = ACTIONS(5594),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5594),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5594),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5594),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5594),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5594),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5594),
-    [anon_sym_SEMI] = ACTIONS(5598),
-    [aux_sym_stop_statement_token1] = ACTIONS(5594),
-    [aux_sym_stop_statement_token2] = ACTIONS(5594),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5594),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5594),
-    [aux_sym_include_statement_token1] = ACTIONS(5594),
-    [aux_sym_data_statement_token1] = ACTIONS(5594),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5594),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5594),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5594),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5594),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5594),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5594),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5594),
-    [aux_sym_block_construct_token1] = ACTIONS(5594),
-    [aux_sym_associate_statement_token1] = ACTIONS(5594),
-    [aux_sym_format_statement_token1] = ACTIONS(5594),
-    [aux_sym_print_statement_token1] = ACTIONS(5594),
-    [aux_sym_open_statement_token1] = ACTIONS(5594),
-    [aux_sym_close_statement_token1] = ACTIONS(5594),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5594),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5594),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5594),
-    [aux_sym_entry_statement_token1] = ACTIONS(5594),
-    [aux_sym_logical_expression_token5] = ACTIONS(5598),
-    [anon_sym_DOT] = ACTIONS(5594),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5598),
-    [anon_sym_LBRACK] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5598),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5598),
-    [aux_sym_null_literal_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5594),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5594),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5594),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5594),
-    [aux_sym_identifier_token1] = ACTIONS(5594),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5598),
-    [sym__float_literal] = ACTIONS(5598),
-    [sym__boz_literal] = ACTIONS(5598),
-    [sym__string_literal] = ACTIONS(5598),
-    [sym__string_literal_kind] = ACTIONS(5598),
-  },
-  [2478] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
-  },
-  [2479] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2480] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2481] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5606),
-    [aux_sym_preproc_def_token1] = ACTIONS(5606),
-    [aux_sym_preproc_if_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
-    [sym_preproc_directive] = ACTIONS(5606),
-    [anon_sym_LPAREN2] = ACTIONS(5606),
-    [sym_preproc_comment] = ACTIONS(6642),
-    [anon_sym_PLUS] = ACTIONS(5610),
-    [anon_sym_DASH] = ACTIONS(5610),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
-    [aux_sym_use_statement_token2] = ACTIONS(5606),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
-    [aux_sym_save_statement_token1] = ACTIONS(5606),
-    [aux_sym_private_statement_token1] = ACTIONS(5606),
-    [aux_sym_public_statement_token1] = ACTIONS(5606),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
-    [anon_sym_SEMI] = ACTIONS(5610),
-    [aux_sym_stop_statement_token1] = ACTIONS(5606),
-    [aux_sym_stop_statement_token2] = ACTIONS(5606),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
-    [aux_sym_include_statement_token1] = ACTIONS(5606),
-    [aux_sym_data_statement_token1] = ACTIONS(5606),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
-    [aux_sym_block_construct_token1] = ACTIONS(5606),
-    [aux_sym_associate_statement_token1] = ACTIONS(5606),
-    [aux_sym_format_statement_token1] = ACTIONS(5606),
-    [aux_sym_print_statement_token1] = ACTIONS(5606),
-    [aux_sym_open_statement_token1] = ACTIONS(5606),
-    [aux_sym_close_statement_token1] = ACTIONS(5606),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
-    [aux_sym_entry_statement_token1] = ACTIONS(5606),
-    [aux_sym_logical_expression_token5] = ACTIONS(5610),
-    [anon_sym_DOT] = ACTIONS(5606),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
-    [anon_sym_LBRACK] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
-    [aux_sym_null_literal_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
-    [aux_sym_identifier_token1] = ACTIONS(5606),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5610),
-    [sym__float_literal] = ACTIONS(5610),
-    [sym__boz_literal] = ACTIONS(5610),
-    [sym__string_literal] = ACTIONS(5610),
-    [sym__string_literal_kind] = ACTIONS(5610),
+  [2338] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6566),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2482] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2339] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token2] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2483] = {
+  [2340] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5612),
     [aux_sym_preproc_def_token1] = ACTIONS(5612),
     [aux_sym_preproc_if_token1] = ACTIONS(5612),
@@ -404843,7 +390349,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
     [sym_preproc_directive] = ACTIONS(5612),
     [anon_sym_LPAREN2] = ACTIONS(5612),
-    [sym_preproc_comment] = ACTIONS(6644),
+    [sym_preproc_comment] = ACTIONS(6568),
     [anon_sym_PLUS] = ACTIONS(5616),
     [anon_sym_DASH] = ACTIONS(5616),
     [anon_sym_AMP] = ACTIONS(21),
@@ -404885,1649 +390391,454 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_keyword_statement_token3] = ACTIONS(5612),
     [aux_sym_keyword_statement_token4] = ACTIONS(5612),
     [aux_sym_keyword_statement_token6] = ACTIONS(5612),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
-    [aux_sym_include_statement_token1] = ACTIONS(5612),
-    [aux_sym_data_statement_token1] = ACTIONS(5612),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
-    [aux_sym_block_construct_token1] = ACTIONS(5612),
-    [aux_sym_associate_statement_token1] = ACTIONS(5612),
-    [aux_sym_format_statement_token1] = ACTIONS(5612),
-    [aux_sym_print_statement_token1] = ACTIONS(5612),
-    [aux_sym_open_statement_token1] = ACTIONS(5612),
-    [aux_sym_close_statement_token1] = ACTIONS(5612),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
-    [aux_sym_entry_statement_token1] = ACTIONS(5612),
-    [aux_sym_logical_expression_token5] = ACTIONS(5616),
-    [anon_sym_DOT] = ACTIONS(5612),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
-    [anon_sym_LBRACK] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
-    [aux_sym_null_literal_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
-    [aux_sym_identifier_token1] = ACTIONS(5612),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5616),
-    [sym__float_literal] = ACTIONS(5616),
-    [sym__boz_literal] = ACTIONS(5616),
-    [sym__string_literal] = ACTIONS(5616),
-    [sym__string_literal_kind] = ACTIONS(5616),
-  },
-  [2484] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2485] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2486] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5624),
-    [aux_sym_preproc_def_token1] = ACTIONS(5624),
-    [aux_sym_preproc_if_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5624),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5624),
-    [sym_preproc_directive] = ACTIONS(5624),
-    [anon_sym_LPAREN2] = ACTIONS(5624),
-    [sym_preproc_comment] = ACTIONS(6646),
-    [anon_sym_PLUS] = ACTIONS(5628),
-    [anon_sym_DASH] = ACTIONS(5628),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5624),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5624),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5624),
-    [aux_sym_use_statement_token2] = ACTIONS(5624),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5624),
-    [aux_sym_save_statement_token1] = ACTIONS(5624),
-    [aux_sym_private_statement_token1] = ACTIONS(5624),
-    [aux_sym_public_statement_token1] = ACTIONS(5624),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5624),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5624),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5624),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5624),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5624),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5624),
-    [anon_sym_SEMI] = ACTIONS(5628),
-    [aux_sym_stop_statement_token1] = ACTIONS(5624),
-    [aux_sym_stop_statement_token2] = ACTIONS(5624),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5624),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5624),
-    [aux_sym_include_statement_token1] = ACTIONS(5624),
-    [aux_sym_data_statement_token1] = ACTIONS(5624),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5624),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5624),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5624),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5624),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5624),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5624),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5624),
-    [aux_sym_block_construct_token1] = ACTIONS(5624),
-    [aux_sym_associate_statement_token1] = ACTIONS(5624),
-    [aux_sym_format_statement_token1] = ACTIONS(5624),
-    [aux_sym_print_statement_token1] = ACTIONS(5624),
-    [aux_sym_open_statement_token1] = ACTIONS(5624),
-    [aux_sym_close_statement_token1] = ACTIONS(5624),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5624),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5624),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5624),
-    [aux_sym_entry_statement_token1] = ACTIONS(5624),
-    [aux_sym_logical_expression_token5] = ACTIONS(5628),
-    [anon_sym_DOT] = ACTIONS(5624),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5628),
-    [anon_sym_LBRACK] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5628),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5628),
-    [aux_sym_null_literal_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5624),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5624),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5624),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5624),
-    [aux_sym_identifier_token1] = ACTIONS(5624),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5628),
-    [sym__float_literal] = ACTIONS(5628),
-    [sym__boz_literal] = ACTIONS(5628),
-    [sym__string_literal] = ACTIONS(5628),
-    [sym__string_literal_kind] = ACTIONS(5628),
-  },
-  [2487] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
-  },
-  [2488] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5630),
-    [aux_sym_preproc_def_token1] = ACTIONS(5630),
-    [aux_sym_preproc_if_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5630),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5630),
-    [sym_preproc_directive] = ACTIONS(5630),
-    [anon_sym_LPAREN2] = ACTIONS(5630),
-    [sym_preproc_comment] = ACTIONS(6648),
-    [anon_sym_PLUS] = ACTIONS(5634),
-    [anon_sym_DASH] = ACTIONS(5634),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5630),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5630),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5630),
-    [aux_sym_use_statement_token2] = ACTIONS(5630),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5630),
-    [aux_sym_save_statement_token1] = ACTIONS(5630),
-    [aux_sym_private_statement_token1] = ACTIONS(5630),
-    [aux_sym_public_statement_token1] = ACTIONS(5630),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5630),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5630),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5630),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5630),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5630),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5630),
-    [anon_sym_SEMI] = ACTIONS(5634),
-    [aux_sym_stop_statement_token1] = ACTIONS(5630),
-    [aux_sym_stop_statement_token2] = ACTIONS(5630),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5630),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5630),
-    [aux_sym_include_statement_token1] = ACTIONS(5630),
-    [aux_sym_data_statement_token1] = ACTIONS(5630),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5630),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5630),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5630),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5630),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5630),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5630),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5630),
-    [aux_sym_block_construct_token1] = ACTIONS(5630),
-    [aux_sym_associate_statement_token1] = ACTIONS(5630),
-    [aux_sym_format_statement_token1] = ACTIONS(5630),
-    [aux_sym_print_statement_token1] = ACTIONS(5630),
-    [aux_sym_open_statement_token1] = ACTIONS(5630),
-    [aux_sym_close_statement_token1] = ACTIONS(5630),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5630),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5630),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5630),
-    [aux_sym_entry_statement_token1] = ACTIONS(5630),
-    [aux_sym_logical_expression_token5] = ACTIONS(5634),
-    [anon_sym_DOT] = ACTIONS(5630),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
-    [anon_sym_LBRACK] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
-    [aux_sym_null_literal_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5630),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5630),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5630),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5630),
-    [aux_sym_identifier_token1] = ACTIONS(5630),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5634),
-    [sym__float_literal] = ACTIONS(5634),
-    [sym__boz_literal] = ACTIONS(5634),
-    [sym__string_literal] = ACTIONS(5634),
-    [sym__string_literal_kind] = ACTIONS(5634),
-  },
-  [2489] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [2490] = {
-    [anon_sym_COMMA] = ACTIONS(6650),
-    [anon_sym_RPAREN] = ACTIONS(6650),
-    [anon_sym_LPAREN2] = ACTIONS(6650),
-    [anon_sym_PLUS] = ACTIONS(6650),
-    [anon_sym_DASH] = ACTIONS(6650),
-    [anon_sym_STAR] = ACTIONS(6652),
-    [anon_sym_SLASH] = ACTIONS(6652),
-    [anon_sym_PERCENT] = ACTIONS(6650),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6650),
-    [anon_sym_GT] = ACTIONS(6652),
-    [anon_sym_GT_EQ] = ACTIONS(6650),
-    [anon_sym_LT_EQ] = ACTIONS(6650),
-    [anon_sym_LT] = ACTIONS(6652),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6652),
-    [anon_sym_EQ] = ACTIONS(6652),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6652),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6652),
-    [aux_sym_language_binding_token1] = ACTIONS(6652),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6652),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6652),
-    [aux_sym_use_statement_token2] = ACTIONS(6652),
-    [anon_sym_COLON_COLON] = ACTIONS(6650),
-    [anon_sym_EQ_GT] = ACTIONS(6650),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6652),
-    [aux_sym_save_statement_token1] = ACTIONS(6652),
-    [aux_sym_private_statement_token1] = ACTIONS(6652),
-    [aux_sym_public_statement_token1] = ACTIONS(6652),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6652),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6652),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6652),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6652),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6652),
-    [aux_sym_stop_statement_token1] = ACTIONS(6652),
-    [aux_sym_stop_statement_token2] = ACTIONS(6652),
-    [anon_sym_GT_GT_GT] = ACTIONS(6650),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6652),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6652),
-    [aux_sym_data_statement_token1] = ACTIONS(6652),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6652),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6652),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6652),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6652),
-    [aux_sym_block_construct_token1] = ACTIONS(6652),
-    [aux_sym_format_statement_token1] = ACTIONS(6652),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6652),
-    [aux_sym_entry_statement_token1] = ACTIONS(6652),
-    [aux_sym_logical_expression_token1] = ACTIONS(6650),
-    [aux_sym_logical_expression_token2] = ACTIONS(6650),
-    [aux_sym_logical_expression_token3] = ACTIONS(6650),
-    [aux_sym_logical_expression_token4] = ACTIONS(6650),
-    [aux_sym_relational_expression_token1] = ACTIONS(6650),
-    [aux_sym_relational_expression_token2] = ACTIONS(6650),
-    [aux_sym_relational_expression_token3] = ACTIONS(6650),
-    [aux_sym_relational_expression_token4] = ACTIONS(6650),
-    [aux_sym_relational_expression_token5] = ACTIONS(6650),
-    [anon_sym_SLASH_EQ] = ACTIONS(6650),
-    [aux_sym_relational_expression_token6] = ACTIONS(6650),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6650),
-    [anon_sym_STAR_STAR] = ACTIONS(6650),
-    [anon_sym_DOT] = ACTIONS(6652),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6650),
-    [anon_sym_LBRACK] = ACTIONS(6650),
-    [anon_sym_RBRACK] = ACTIONS(6650),
-    [aux_sym_null_literal_token1] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6652),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6652),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6652),
-    [anon_sym_QMARK] = ACTIONS(6650),
-    [aux_sym_identifier_token1] = ACTIONS(6652),
-    [sym_comment] = ACTIONS(21),
-  },
-  [2491] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5556),
-    [aux_sym_preproc_def_token1] = ACTIONS(5556),
-    [aux_sym_preproc_if_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5556),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5556),
-    [sym_preproc_directive] = ACTIONS(5556),
-    [anon_sym_LPAREN2] = ACTIONS(5556),
-    [sym_preproc_comment] = ACTIONS(6654),
-    [anon_sym_PLUS] = ACTIONS(5560),
-    [anon_sym_DASH] = ACTIONS(5560),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5556),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5556),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5556),
-    [aux_sym_use_statement_token2] = ACTIONS(5556),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5556),
-    [aux_sym_save_statement_token1] = ACTIONS(5556),
-    [aux_sym_private_statement_token1] = ACTIONS(5556),
-    [aux_sym_public_statement_token1] = ACTIONS(5556),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5556),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5556),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5556),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5556),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5556),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5556),
-    [anon_sym_SEMI] = ACTIONS(5560),
-    [aux_sym_stop_statement_token1] = ACTIONS(5556),
-    [aux_sym_stop_statement_token2] = ACTIONS(5556),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5556),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5556),
-    [aux_sym_include_statement_token1] = ACTIONS(5556),
-    [aux_sym_data_statement_token1] = ACTIONS(5556),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5556),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5556),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5556),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5556),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5556),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5556),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5556),
-    [aux_sym_block_construct_token1] = ACTIONS(5556),
-    [aux_sym_associate_statement_token1] = ACTIONS(5556),
-    [aux_sym_format_statement_token1] = ACTIONS(5556),
-    [aux_sym_print_statement_token1] = ACTIONS(5556),
-    [aux_sym_open_statement_token1] = ACTIONS(5556),
-    [aux_sym_close_statement_token1] = ACTIONS(5556),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5556),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5556),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5556),
-    [aux_sym_entry_statement_token1] = ACTIONS(5556),
-    [aux_sym_logical_expression_token5] = ACTIONS(5560),
-    [anon_sym_DOT] = ACTIONS(5556),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5560),
-    [anon_sym_LBRACK] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5560),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5560),
-    [aux_sym_null_literal_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5556),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5556),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5556),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5556),
-    [aux_sym_identifier_token1] = ACTIONS(5556),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5560),
-    [sym__float_literal] = ACTIONS(5560),
-    [sym__boz_literal] = ACTIONS(5560),
-    [sym__string_literal] = ACTIONS(5560),
-    [sym__string_literal_kind] = ACTIONS(5560),
-  },
-  [2492] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2493] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
-  },
-  [2494] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [2495] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2496] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token2] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [2341] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6570),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2497] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2342] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6572),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2498] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token2] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2343] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6574),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
   },
-  [2499] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [sym_preproc_comment] = ACTIONS(6656),
+  [2344] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6576),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -406535,117 +390846,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2500] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [sym_preproc_comment] = ACTIONS(6658),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2345] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6578),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2501] = {
+  [2346] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6580),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -406676,7 +390988,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -406698,6 +391010,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
     [aux_sym_select_type_statement_token1] = ACTIONS(4317),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
@@ -406711,12 +391024,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -406729,713 +391042,1225 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2502] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+  [2347] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_contains_statement_token1] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2503] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+  [2348] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6582),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2504] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2349] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6584),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2505] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+  [2350] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_program_statement_token2] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2506] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
+  [2351] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6586),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2352] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6588),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2507] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token2] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2353] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_contains_statement_token1] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2354] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6590),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2355] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6592),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2356] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_program_statement_token2] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2508] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token2] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2357] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6380),
+    [aux_sym_preproc_def_token1] = ACTIONS(6380),
+    [aux_sym_preproc_if_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6380),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6380),
+    [sym_preproc_directive] = ACTIONS(6380),
+    [anon_sym_LPAREN2] = ACTIONS(6380),
+    [anon_sym_PLUS] = ACTIONS(6382),
+    [anon_sym_DASH] = ACTIONS(6382),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6380),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6380),
+    [aux_sym_contains_statement_token1] = ACTIONS(6380),
+    [aux_sym_use_statement_token2] = ACTIONS(6380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6380),
+    [aux_sym_save_statement_token1] = ACTIONS(6380),
+    [aux_sym_private_statement_token1] = ACTIONS(6380),
+    [aux_sym_public_statement_token1] = ACTIONS(6380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6380),
+    [anon_sym_SEMI] = ACTIONS(6382),
+    [aux_sym_stop_statement_token1] = ACTIONS(6380),
+    [aux_sym_stop_statement_token2] = ACTIONS(6380),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6380),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6380),
+    [aux_sym_include_statement_token1] = ACTIONS(6380),
+    [aux_sym_data_statement_token1] = ACTIONS(6380),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6380),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6380),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6380),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6380),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6380),
+    [aux_sym_block_construct_token1] = ACTIONS(6380),
+    [aux_sym_associate_statement_token1] = ACTIONS(6380),
+    [aux_sym_format_statement_token1] = ACTIONS(6380),
+    [aux_sym_print_statement_token1] = ACTIONS(6380),
+    [aux_sym_open_statement_token1] = ACTIONS(6380),
+    [aux_sym_close_statement_token1] = ACTIONS(6380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6380),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6380),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6380),
+    [aux_sym_entry_statement_token1] = ACTIONS(6380),
+    [aux_sym_logical_expression_token5] = ACTIONS(6382),
+    [anon_sym_DOT] = ACTIONS(6380),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6382),
+    [anon_sym_LBRACK] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6382),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6382),
+    [aux_sym_null_literal_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6380),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6380),
+    [aux_sym_identifier_token1] = ACTIONS(6380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6382),
+    [sym__float_literal] = ACTIONS(6382),
+    [sym__boz_literal] = ACTIONS(6382),
+    [sym__string_literal] = ACTIONS(6382),
+    [sym__string_literal_kind] = ACTIONS(6382),
   },
-  [2509] = {
+  [2358] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_contains_statement_token1] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2359] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -407443,9 +392268,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [sym_preproc_comment] = ACTIONS(6660),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6594),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -407476,7 +392301,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -407498,6 +392323,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
@@ -407511,12 +392337,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -407529,327 +392355,1544 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2510] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [2360] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6320),
+    [aux_sym_preproc_def_token1] = ACTIONS(6320),
+    [aux_sym_preproc_if_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6320),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6320),
+    [sym_preproc_directive] = ACTIONS(6320),
+    [anon_sym_LPAREN2] = ACTIONS(6320),
+    [anon_sym_PLUS] = ACTIONS(6322),
+    [anon_sym_DASH] = ACTIONS(6322),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6320),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6320),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6320),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6320),
+    [aux_sym_contains_statement_token1] = ACTIONS(6320),
+    [aux_sym_use_statement_token2] = ACTIONS(6320),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6320),
+    [aux_sym_save_statement_token1] = ACTIONS(6320),
+    [aux_sym_private_statement_token1] = ACTIONS(6320),
+    [aux_sym_public_statement_token1] = ACTIONS(6320),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6320),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6320),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6320),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6320),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6320),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6320),
+    [anon_sym_SEMI] = ACTIONS(6322),
+    [aux_sym_stop_statement_token1] = ACTIONS(6320),
+    [aux_sym_stop_statement_token2] = ACTIONS(6320),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6320),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6320),
+    [aux_sym_include_statement_token1] = ACTIONS(6320),
+    [aux_sym_data_statement_token1] = ACTIONS(6320),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6320),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6320),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6320),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6320),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6320),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6320),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6320),
+    [aux_sym_block_construct_token1] = ACTIONS(6320),
+    [aux_sym_associate_statement_token1] = ACTIONS(6320),
+    [aux_sym_format_statement_token1] = ACTIONS(6320),
+    [aux_sym_print_statement_token1] = ACTIONS(6320),
+    [aux_sym_open_statement_token1] = ACTIONS(6320),
+    [aux_sym_close_statement_token1] = ACTIONS(6320),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6320),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6320),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6320),
+    [aux_sym_entry_statement_token1] = ACTIONS(6320),
+    [aux_sym_logical_expression_token5] = ACTIONS(6322),
+    [anon_sym_DOT] = ACTIONS(6320),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6322),
+    [anon_sym_LBRACK] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6322),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6322),
+    [aux_sym_null_literal_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6320),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6320),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6320),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6320),
+    [aux_sym_identifier_token1] = ACTIONS(6320),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6322),
+    [sym__float_literal] = ACTIONS(6322),
+    [sym__boz_literal] = ACTIONS(6322),
+    [sym__string_literal] = ACTIONS(6322),
+    [sym__string_literal_kind] = ACTIONS(6322),
+  },
+  [2361] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6596),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2362] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6032),
+    [aux_sym_preproc_def_token1] = ACTIONS(6032),
+    [aux_sym_preproc_if_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6032),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6032),
+    [sym_preproc_directive] = ACTIONS(6032),
+    [anon_sym_LPAREN2] = ACTIONS(6032),
+    [anon_sym_PLUS] = ACTIONS(6036),
+    [anon_sym_DASH] = ACTIONS(6036),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6032),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6032),
+    [aux_sym_end_subroutine_statement_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6032),
+    [aux_sym_contains_statement_token1] = ACTIONS(6032),
+    [aux_sym_use_statement_token2] = ACTIONS(6032),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6032),
+    [aux_sym_save_statement_token1] = ACTIONS(6032),
+    [aux_sym_private_statement_token1] = ACTIONS(6032),
+    [aux_sym_public_statement_token1] = ACTIONS(6032),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6032),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6032),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6032),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6032),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6032),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6032),
+    [anon_sym_SEMI] = ACTIONS(6036),
+    [aux_sym_stop_statement_token1] = ACTIONS(6032),
+    [aux_sym_stop_statement_token2] = ACTIONS(6032),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6032),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6032),
+    [aux_sym_include_statement_token1] = ACTIONS(6032),
+    [aux_sym_data_statement_token1] = ACTIONS(6032),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6032),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6032),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6032),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6032),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6032),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6032),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6032),
+    [aux_sym_block_construct_token1] = ACTIONS(6032),
+    [aux_sym_associate_statement_token1] = ACTIONS(6032),
+    [aux_sym_format_statement_token1] = ACTIONS(6032),
+    [aux_sym_print_statement_token1] = ACTIONS(6032),
+    [aux_sym_open_statement_token1] = ACTIONS(6032),
+    [aux_sym_close_statement_token1] = ACTIONS(6032),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6032),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6032),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6032),
+    [aux_sym_entry_statement_token1] = ACTIONS(6032),
+    [aux_sym_logical_expression_token5] = ACTIONS(6036),
+    [anon_sym_DOT] = ACTIONS(6032),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6036),
+    [anon_sym_LBRACK] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6036),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6036),
+    [aux_sym_null_literal_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6032),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6032),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6032),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6032),
+    [aux_sym_identifier_token1] = ACTIONS(6032),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6036),
+    [sym__float_literal] = ACTIONS(6036),
+    [sym__boz_literal] = ACTIONS(6036),
+    [sym__string_literal] = ACTIONS(6036),
+    [sym__string_literal_kind] = ACTIONS(6036),
+  },
+  [2363] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6316),
+    [aux_sym_preproc_def_token1] = ACTIONS(6316),
+    [aux_sym_preproc_if_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6316),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6316),
+    [sym_preproc_directive] = ACTIONS(6316),
+    [anon_sym_LPAREN2] = ACTIONS(6316),
+    [anon_sym_PLUS] = ACTIONS(6318),
+    [anon_sym_DASH] = ACTIONS(6318),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6316),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6316),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6316),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6316),
+    [aux_sym_contains_statement_token1] = ACTIONS(6316),
+    [aux_sym_use_statement_token2] = ACTIONS(6316),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6316),
+    [aux_sym_save_statement_token1] = ACTIONS(6316),
+    [aux_sym_private_statement_token1] = ACTIONS(6316),
+    [aux_sym_public_statement_token1] = ACTIONS(6316),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6316),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6316),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6316),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6316),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6316),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6316),
+    [anon_sym_SEMI] = ACTIONS(6318),
+    [aux_sym_stop_statement_token1] = ACTIONS(6316),
+    [aux_sym_stop_statement_token2] = ACTIONS(6316),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6316),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6316),
+    [aux_sym_include_statement_token1] = ACTIONS(6316),
+    [aux_sym_data_statement_token1] = ACTIONS(6316),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6316),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6316),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6316),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6316),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6316),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6316),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6316),
+    [aux_sym_block_construct_token1] = ACTIONS(6316),
+    [aux_sym_associate_statement_token1] = ACTIONS(6316),
+    [aux_sym_format_statement_token1] = ACTIONS(6316),
+    [aux_sym_print_statement_token1] = ACTIONS(6316),
+    [aux_sym_open_statement_token1] = ACTIONS(6316),
+    [aux_sym_close_statement_token1] = ACTIONS(6316),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6316),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6316),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6316),
+    [aux_sym_entry_statement_token1] = ACTIONS(6316),
+    [aux_sym_logical_expression_token5] = ACTIONS(6318),
+    [anon_sym_DOT] = ACTIONS(6316),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6318),
+    [anon_sym_LBRACK] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6318),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6318),
+    [aux_sym_null_literal_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6316),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6316),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6316),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6316),
+    [aux_sym_identifier_token1] = ACTIONS(6316),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6318),
+    [sym__float_literal] = ACTIONS(6318),
+    [sym__boz_literal] = ACTIONS(6318),
+    [sym__string_literal] = ACTIONS(6318),
+    [sym__string_literal_kind] = ACTIONS(6318),
+  },
+  [2364] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6598),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2365] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5996),
+    [aux_sym_preproc_def_token1] = ACTIONS(5996),
+    [aux_sym_preproc_if_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5996),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5996),
+    [sym_preproc_directive] = ACTIONS(5996),
+    [anon_sym_LPAREN2] = ACTIONS(5996),
+    [anon_sym_PLUS] = ACTIONS(6000),
+    [anon_sym_DASH] = ACTIONS(6000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5996),
+    [aux_sym_end_function_statement_token1] = ACTIONS(5996),
+    [aux_sym_contains_statement_token1] = ACTIONS(5996),
+    [aux_sym_use_statement_token2] = ACTIONS(5996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5996),
+    [aux_sym_save_statement_token1] = ACTIONS(5996),
+    [aux_sym_private_statement_token1] = ACTIONS(5996),
+    [aux_sym_public_statement_token1] = ACTIONS(5996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5996),
+    [anon_sym_SEMI] = ACTIONS(6000),
+    [aux_sym_stop_statement_token1] = ACTIONS(5996),
+    [aux_sym_stop_statement_token2] = ACTIONS(5996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5996),
+    [aux_sym_include_statement_token1] = ACTIONS(5996),
+    [aux_sym_data_statement_token1] = ACTIONS(5996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5996),
+    [aux_sym_block_construct_token1] = ACTIONS(5996),
+    [aux_sym_associate_statement_token1] = ACTIONS(5996),
+    [aux_sym_format_statement_token1] = ACTIONS(5996),
+    [aux_sym_print_statement_token1] = ACTIONS(5996),
+    [aux_sym_open_statement_token1] = ACTIONS(5996),
+    [aux_sym_close_statement_token1] = ACTIONS(5996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5996),
+    [aux_sym_entry_statement_token1] = ACTIONS(5996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6000),
+    [anon_sym_DOT] = ACTIONS(5996),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6000),
+    [anon_sym_LBRACK] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6000),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6000),
+    [aux_sym_null_literal_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5996),
+    [aux_sym_identifier_token1] = ACTIONS(5996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6000),
+    [sym__float_literal] = ACTIONS(6000),
+    [sym__boz_literal] = ACTIONS(6000),
+    [sym__string_literal] = ACTIONS(6000),
+    [sym__string_literal_kind] = ACTIONS(6000),
+  },
+  [2366] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6600),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2367] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6602),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2368] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6604),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2369] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6606),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
+  },
+  [2370] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6002),
+    [aux_sym_preproc_def_token1] = ACTIONS(6002),
+    [aux_sym_preproc_if_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6002),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6002),
+    [sym_preproc_directive] = ACTIONS(6002),
+    [anon_sym_LPAREN2] = ACTIONS(6002),
+    [anon_sym_PLUS] = ACTIONS(6006),
+    [anon_sym_DASH] = ACTIONS(6006),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6002),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6002),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6002),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6002),
+    [aux_sym_contains_statement_token1] = ACTIONS(6002),
+    [aux_sym_use_statement_token2] = ACTIONS(6002),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6002),
+    [aux_sym_save_statement_token1] = ACTIONS(6002),
+    [aux_sym_private_statement_token1] = ACTIONS(6002),
+    [aux_sym_public_statement_token1] = ACTIONS(6002),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6002),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6002),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6002),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6002),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6002),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6002),
+    [anon_sym_SEMI] = ACTIONS(6006),
+    [aux_sym_stop_statement_token1] = ACTIONS(6002),
+    [aux_sym_stop_statement_token2] = ACTIONS(6002),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6002),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6002),
+    [aux_sym_include_statement_token1] = ACTIONS(6002),
+    [aux_sym_data_statement_token1] = ACTIONS(6002),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6002),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6002),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6002),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6002),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6002),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6002),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6002),
+    [aux_sym_block_construct_token1] = ACTIONS(6002),
+    [aux_sym_associate_statement_token1] = ACTIONS(6002),
+    [aux_sym_format_statement_token1] = ACTIONS(6002),
+    [aux_sym_print_statement_token1] = ACTIONS(6002),
+    [aux_sym_open_statement_token1] = ACTIONS(6002),
+    [aux_sym_close_statement_token1] = ACTIONS(6002),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6002),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6002),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6002),
+    [aux_sym_entry_statement_token1] = ACTIONS(6002),
+    [aux_sym_logical_expression_token5] = ACTIONS(6006),
+    [anon_sym_DOT] = ACTIONS(6002),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6006),
+    [anon_sym_LBRACK] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6006),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6006),
+    [aux_sym_null_literal_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6002),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6002),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6002),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6002),
+    [aux_sym_identifier_token1] = ACTIONS(6002),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6006),
+    [sym__float_literal] = ACTIONS(6006),
+    [sym__boz_literal] = ACTIONS(6006),
+    [sym__string_literal] = ACTIONS(6006),
+    [sym__string_literal_kind] = ACTIONS(6006),
+  },
+  [2371] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6608),
+    [anon_sym_PLUS] = ACTIONS(5576),
+    [anon_sym_DASH] = ACTIONS(5576),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5576),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5576),
+    [anon_sym_DOT] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
+    [anon_sym_LBRACK] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5576),
+    [sym__float_literal] = ACTIONS(5576),
+    [sym__boz_literal] = ACTIONS(5576),
+    [sym__string_literal] = ACTIONS(5576),
+    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2511] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2372] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6354),
+    [aux_sym_preproc_def_token1] = ACTIONS(6354),
+    [aux_sym_preproc_if_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6354),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6354),
+    [sym_preproc_directive] = ACTIONS(6354),
+    [anon_sym_LPAREN2] = ACTIONS(6354),
+    [anon_sym_PLUS] = ACTIONS(6356),
+    [anon_sym_DASH] = ACTIONS(6356),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6354),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6354),
+    [aux_sym_contains_statement_token1] = ACTIONS(6354),
+    [aux_sym_use_statement_token2] = ACTIONS(6354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6354),
+    [aux_sym_save_statement_token1] = ACTIONS(6354),
+    [aux_sym_private_statement_token1] = ACTIONS(6354),
+    [aux_sym_public_statement_token1] = ACTIONS(6354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6354),
+    [anon_sym_SEMI] = ACTIONS(6356),
+    [aux_sym_stop_statement_token1] = ACTIONS(6354),
+    [aux_sym_stop_statement_token2] = ACTIONS(6354),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6354),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6354),
+    [aux_sym_include_statement_token1] = ACTIONS(6354),
+    [aux_sym_data_statement_token1] = ACTIONS(6354),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6354),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6354),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6354),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6354),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6354),
+    [aux_sym_block_construct_token1] = ACTIONS(6354),
+    [aux_sym_associate_statement_token1] = ACTIONS(6354),
+    [aux_sym_format_statement_token1] = ACTIONS(6354),
+    [aux_sym_print_statement_token1] = ACTIONS(6354),
+    [aux_sym_open_statement_token1] = ACTIONS(6354),
+    [aux_sym_close_statement_token1] = ACTIONS(6354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6354),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6354),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6354),
+    [aux_sym_entry_statement_token1] = ACTIONS(6354),
+    [aux_sym_logical_expression_token5] = ACTIONS(6356),
+    [anon_sym_DOT] = ACTIONS(6354),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6356),
+    [anon_sym_LBRACK] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6356),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6356),
+    [aux_sym_null_literal_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6354),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6354),
+    [aux_sym_identifier_token1] = ACTIONS(6354),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6356),
+    [sym__float_literal] = ACTIONS(6356),
+    [sym__boz_literal] = ACTIONS(6356),
+    [sym__string_literal] = ACTIONS(6356),
+    [sym__string_literal_kind] = ACTIONS(6356),
   },
-  [2512] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [sym_preproc_comment] = ACTIONS(6662),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2373] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6350),
+    [aux_sym_preproc_def_token1] = ACTIONS(6350),
+    [aux_sym_preproc_if_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6350),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6350),
+    [sym_preproc_directive] = ACTIONS(6350),
+    [anon_sym_LPAREN2] = ACTIONS(6350),
+    [anon_sym_PLUS] = ACTIONS(6352),
+    [anon_sym_DASH] = ACTIONS(6352),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6350),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6350),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6350),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6350),
+    [aux_sym_contains_statement_token1] = ACTIONS(6350),
+    [aux_sym_use_statement_token2] = ACTIONS(6350),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6350),
+    [aux_sym_save_statement_token1] = ACTIONS(6350),
+    [aux_sym_private_statement_token1] = ACTIONS(6350),
+    [aux_sym_public_statement_token1] = ACTIONS(6350),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6350),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6350),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6350),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6350),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6350),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6350),
+    [anon_sym_SEMI] = ACTIONS(6352),
+    [aux_sym_stop_statement_token1] = ACTIONS(6350),
+    [aux_sym_stop_statement_token2] = ACTIONS(6350),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6350),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6350),
+    [aux_sym_include_statement_token1] = ACTIONS(6350),
+    [aux_sym_data_statement_token1] = ACTIONS(6350),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6350),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6350),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6350),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6350),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6350),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6350),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6350),
+    [aux_sym_block_construct_token1] = ACTIONS(6350),
+    [aux_sym_associate_statement_token1] = ACTIONS(6350),
+    [aux_sym_format_statement_token1] = ACTIONS(6350),
+    [aux_sym_print_statement_token1] = ACTIONS(6350),
+    [aux_sym_open_statement_token1] = ACTIONS(6350),
+    [aux_sym_close_statement_token1] = ACTIONS(6350),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6350),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6350),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6350),
+    [aux_sym_entry_statement_token1] = ACTIONS(6350),
+    [aux_sym_logical_expression_token5] = ACTIONS(6352),
+    [anon_sym_DOT] = ACTIONS(6350),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6352),
+    [anon_sym_LBRACK] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6352),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6352),
+    [aux_sym_null_literal_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6350),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6350),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6350),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6350),
+    [aux_sym_identifier_token1] = ACTIONS(6350),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6352),
+    [sym__float_literal] = ACTIONS(6352),
+    [sym__boz_literal] = ACTIONS(6352),
+    [sym__string_literal] = ACTIONS(6352),
+    [sym__string_literal_kind] = ACTIONS(6352),
   },
-  [2513] = {
+  [2374] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6610),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2375] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
     [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_contains_statement_token1] = ACTIONS(4317),
     [aux_sym_use_statement_token2] = ACTIONS(4317),
     [aux_sym_implicit_statement_token4] = ACTIONS(4317),
     [aux_sym_save_statement_token1] = ACTIONS(4317),
@@ -407875,7 +393918,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -407890,7 +393933,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
     [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
     [aux_sym_elseif_clause_token2] = ACTIONS(4317),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
@@ -407911,12 +393953,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -407929,23 +393971,124 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2514] = {
+  [2376] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6340),
+    [aux_sym_preproc_def_token1] = ACTIONS(6340),
+    [aux_sym_preproc_if_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6340),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6340),
+    [sym_preproc_directive] = ACTIONS(6340),
+    [anon_sym_LPAREN2] = ACTIONS(6340),
+    [anon_sym_PLUS] = ACTIONS(6342),
+    [anon_sym_DASH] = ACTIONS(6342),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6340),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6340),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6340),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6340),
+    [aux_sym_contains_statement_token1] = ACTIONS(6340),
+    [aux_sym_use_statement_token2] = ACTIONS(6340),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6340),
+    [aux_sym_save_statement_token1] = ACTIONS(6340),
+    [aux_sym_private_statement_token1] = ACTIONS(6340),
+    [aux_sym_public_statement_token1] = ACTIONS(6340),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6340),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6340),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6340),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6340),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6340),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6340),
+    [anon_sym_SEMI] = ACTIONS(6342),
+    [aux_sym_stop_statement_token1] = ACTIONS(6340),
+    [aux_sym_stop_statement_token2] = ACTIONS(6340),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6340),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6340),
+    [aux_sym_include_statement_token1] = ACTIONS(6340),
+    [aux_sym_data_statement_token1] = ACTIONS(6340),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6340),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6340),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6340),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6340),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6340),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6340),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6340),
+    [aux_sym_block_construct_token1] = ACTIONS(6340),
+    [aux_sym_associate_statement_token1] = ACTIONS(6340),
+    [aux_sym_format_statement_token1] = ACTIONS(6340),
+    [aux_sym_print_statement_token1] = ACTIONS(6340),
+    [aux_sym_open_statement_token1] = ACTIONS(6340),
+    [aux_sym_close_statement_token1] = ACTIONS(6340),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6340),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6340),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6340),
+    [aux_sym_entry_statement_token1] = ACTIONS(6340),
+    [aux_sym_logical_expression_token5] = ACTIONS(6342),
+    [anon_sym_DOT] = ACTIONS(6340),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6342),
+    [anon_sym_LBRACK] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6342),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6342),
+    [aux_sym_null_literal_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6340),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6340),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6340),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6340),
+    [aux_sym_identifier_token1] = ACTIONS(6340),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6342),
+    [sym__float_literal] = ACTIONS(6342),
+    [sym__boz_literal] = ACTIONS(6342),
+    [sym__string_literal] = ACTIONS(6342),
+    [sym__string_literal_kind] = ACTIONS(6342),
+  },
+  [2377] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token2] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [sym_preproc_comment] = ACTIONS(6612),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -407976,7 +394119,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -408011,12 +394154,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -408027,1415 +394170,925 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(4525),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2515] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2516] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token2] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2517] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [2378] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6090),
+    [aux_sym_preproc_def_token1] = ACTIONS(6090),
+    [aux_sym_preproc_if_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6090),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6090),
+    [sym_preproc_directive] = ACTIONS(6090),
+    [anon_sym_LPAREN2] = ACTIONS(6090),
+    [anon_sym_PLUS] = ACTIONS(6094),
+    [anon_sym_DASH] = ACTIONS(6094),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6090),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6090),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6090),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6090),
+    [aux_sym_contains_statement_token1] = ACTIONS(6090),
+    [aux_sym_use_statement_token2] = ACTIONS(6090),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6090),
+    [aux_sym_save_statement_token1] = ACTIONS(6090),
+    [aux_sym_private_statement_token1] = ACTIONS(6090),
+    [aux_sym_public_statement_token1] = ACTIONS(6090),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6090),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6090),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6090),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6090),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6090),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6090),
+    [anon_sym_SEMI] = ACTIONS(6094),
+    [aux_sym_stop_statement_token1] = ACTIONS(6090),
+    [aux_sym_stop_statement_token2] = ACTIONS(6090),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6090),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6090),
+    [aux_sym_include_statement_token1] = ACTIONS(6090),
+    [aux_sym_data_statement_token1] = ACTIONS(6090),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6090),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6090),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6090),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6090),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6090),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6090),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6090),
+    [aux_sym_block_construct_token1] = ACTIONS(6090),
+    [aux_sym_associate_statement_token1] = ACTIONS(6090),
+    [aux_sym_format_statement_token1] = ACTIONS(6090),
+    [aux_sym_print_statement_token1] = ACTIONS(6090),
+    [aux_sym_open_statement_token1] = ACTIONS(6090),
+    [aux_sym_close_statement_token1] = ACTIONS(6090),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6090),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6090),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6090),
+    [aux_sym_entry_statement_token1] = ACTIONS(6090),
+    [aux_sym_logical_expression_token5] = ACTIONS(6094),
+    [anon_sym_DOT] = ACTIONS(6090),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6094),
+    [anon_sym_LBRACK] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6094),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6094),
+    [aux_sym_null_literal_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6090),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6090),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6090),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6090),
+    [aux_sym_identifier_token1] = ACTIONS(6090),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
-  },
-  [2518] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2519] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2520] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token2] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2521] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2522] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [sym_preproc_comment] = ACTIONS(6664),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+    [sym__integer_literal] = ACTIONS(6094),
+    [sym__float_literal] = ACTIONS(6094),
+    [sym__boz_literal] = ACTIONS(6094),
+    [sym__string_literal] = ACTIONS(6094),
+    [sym__string_literal_kind] = ACTIONS(6094),
   },
-  [2523] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token2] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [2379] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6334),
+    [aux_sym_preproc_def_token1] = ACTIONS(6334),
+    [aux_sym_preproc_if_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6334),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6334),
+    [sym_preproc_directive] = ACTIONS(6334),
+    [anon_sym_LPAREN2] = ACTIONS(6334),
+    [anon_sym_PLUS] = ACTIONS(6336),
+    [anon_sym_DASH] = ACTIONS(6336),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6334),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6334),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6334),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6334),
+    [aux_sym_contains_statement_token1] = ACTIONS(6334),
+    [aux_sym_use_statement_token2] = ACTIONS(6334),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6334),
+    [aux_sym_save_statement_token1] = ACTIONS(6334),
+    [aux_sym_private_statement_token1] = ACTIONS(6334),
+    [aux_sym_public_statement_token1] = ACTIONS(6334),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6334),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6334),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6334),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6334),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6334),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6334),
+    [anon_sym_SEMI] = ACTIONS(6336),
+    [aux_sym_stop_statement_token1] = ACTIONS(6334),
+    [aux_sym_stop_statement_token2] = ACTIONS(6334),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6334),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6334),
+    [aux_sym_include_statement_token1] = ACTIONS(6334),
+    [aux_sym_data_statement_token1] = ACTIONS(6334),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6334),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6334),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6334),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6334),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6334),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6334),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6334),
+    [aux_sym_block_construct_token1] = ACTIONS(6334),
+    [aux_sym_associate_statement_token1] = ACTIONS(6334),
+    [aux_sym_format_statement_token1] = ACTIONS(6334),
+    [aux_sym_print_statement_token1] = ACTIONS(6334),
+    [aux_sym_open_statement_token1] = ACTIONS(6334),
+    [aux_sym_close_statement_token1] = ACTIONS(6334),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6334),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6334),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6334),
+    [aux_sym_entry_statement_token1] = ACTIONS(6334),
+    [aux_sym_logical_expression_token5] = ACTIONS(6336),
+    [anon_sym_DOT] = ACTIONS(6334),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6336),
+    [anon_sym_LBRACK] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6336),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6336),
+    [aux_sym_null_literal_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6334),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6334),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6334),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6334),
+    [aux_sym_identifier_token1] = ACTIONS(6334),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(6336),
+    [sym__float_literal] = ACTIONS(6336),
+    [sym__boz_literal] = ACTIONS(6336),
+    [sym__string_literal] = ACTIONS(6336),
+    [sym__string_literal_kind] = ACTIONS(6336),
   },
-  [2524] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2380] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6614),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2525] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+  [2381] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6616),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
   },
-  [2526] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token2] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+  [2382] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6326),
+    [aux_sym_preproc_def_token1] = ACTIONS(6326),
+    [aux_sym_preproc_if_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6326),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6326),
+    [sym_preproc_directive] = ACTIONS(6326),
+    [anon_sym_LPAREN2] = ACTIONS(6326),
+    [anon_sym_PLUS] = ACTIONS(6328),
+    [anon_sym_DASH] = ACTIONS(6328),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6326),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6326),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6326),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6326),
+    [aux_sym_contains_statement_token1] = ACTIONS(6326),
+    [aux_sym_use_statement_token2] = ACTIONS(6326),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6326),
+    [aux_sym_save_statement_token1] = ACTIONS(6326),
+    [aux_sym_private_statement_token1] = ACTIONS(6326),
+    [aux_sym_public_statement_token1] = ACTIONS(6326),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6326),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6326),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6326),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6326),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6326),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6326),
+    [anon_sym_SEMI] = ACTIONS(6328),
+    [aux_sym_stop_statement_token1] = ACTIONS(6326),
+    [aux_sym_stop_statement_token2] = ACTIONS(6326),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6326),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6326),
+    [aux_sym_include_statement_token1] = ACTIONS(6326),
+    [aux_sym_data_statement_token1] = ACTIONS(6326),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6326),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6326),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6326),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6326),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6326),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6326),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6326),
+    [aux_sym_block_construct_token1] = ACTIONS(6326),
+    [aux_sym_associate_statement_token1] = ACTIONS(6326),
+    [aux_sym_format_statement_token1] = ACTIONS(6326),
+    [aux_sym_print_statement_token1] = ACTIONS(6326),
+    [aux_sym_open_statement_token1] = ACTIONS(6326),
+    [aux_sym_close_statement_token1] = ACTIONS(6326),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6326),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6326),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6326),
+    [aux_sym_entry_statement_token1] = ACTIONS(6326),
+    [aux_sym_logical_expression_token5] = ACTIONS(6328),
+    [anon_sym_DOT] = ACTIONS(6326),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6328),
+    [anon_sym_LBRACK] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6328),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6328),
+    [aux_sym_null_literal_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6326),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6326),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6326),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6326),
+    [aux_sym_identifier_token1] = ACTIONS(6326),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6328),
+    [sym__float_literal] = ACTIONS(6328),
+    [sym__boz_literal] = ACTIONS(6328),
+    [sym__string_literal] = ACTIONS(6328),
+    [sym__string_literal_kind] = ACTIONS(6328),
   },
-  [2527] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
+  [2383] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6618),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2528] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+  [2384] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6302),
+    [aux_sym_preproc_def_token1] = ACTIONS(6302),
+    [aux_sym_preproc_if_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6302),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6302),
+    [sym_preproc_directive] = ACTIONS(6302),
+    [anon_sym_LPAREN2] = ACTIONS(6302),
+    [anon_sym_PLUS] = ACTIONS(6304),
+    [anon_sym_DASH] = ACTIONS(6304),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6302),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6302),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6302),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6302),
+    [aux_sym_contains_statement_token1] = ACTIONS(6302),
+    [aux_sym_use_statement_token2] = ACTIONS(6302),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6302),
+    [aux_sym_save_statement_token1] = ACTIONS(6302),
+    [aux_sym_private_statement_token1] = ACTIONS(6302),
+    [aux_sym_public_statement_token1] = ACTIONS(6302),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6302),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6302),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6302),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6302),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6302),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6302),
+    [anon_sym_SEMI] = ACTIONS(6304),
+    [aux_sym_stop_statement_token1] = ACTIONS(6302),
+    [aux_sym_stop_statement_token2] = ACTIONS(6302),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6302),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6302),
+    [aux_sym_include_statement_token1] = ACTIONS(6302),
+    [aux_sym_data_statement_token1] = ACTIONS(6302),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6302),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6302),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6302),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6302),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6302),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6302),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6302),
+    [aux_sym_block_construct_token1] = ACTIONS(6302),
+    [aux_sym_associate_statement_token1] = ACTIONS(6302),
+    [aux_sym_format_statement_token1] = ACTIONS(6302),
+    [aux_sym_print_statement_token1] = ACTIONS(6302),
+    [aux_sym_open_statement_token1] = ACTIONS(6302),
+    [aux_sym_close_statement_token1] = ACTIONS(6302),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6302),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6302),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6302),
+    [aux_sym_entry_statement_token1] = ACTIONS(6302),
+    [aux_sym_logical_expression_token5] = ACTIONS(6304),
+    [anon_sym_DOT] = ACTIONS(6302),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6304),
+    [anon_sym_LBRACK] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6304),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6304),
+    [aux_sym_null_literal_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6302),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6302),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6302),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6302),
+    [aux_sym_identifier_token1] = ACTIONS(6302),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6304),
+    [sym__float_literal] = ACTIONS(6304),
+    [sym__boz_literal] = ACTIONS(6304),
+    [sym__string_literal] = ACTIONS(6304),
+    [sym__string_literal_kind] = ACTIONS(6304),
   },
-  [2529] = {
+  [2385] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_contains_statement_token1] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2386] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6296),
+    [aux_sym_preproc_def_token1] = ACTIONS(6296),
+    [aux_sym_preproc_if_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6296),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6296),
+    [sym_preproc_directive] = ACTIONS(6296),
+    [anon_sym_LPAREN2] = ACTIONS(6296),
+    [anon_sym_PLUS] = ACTIONS(6298),
+    [anon_sym_DASH] = ACTIONS(6298),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6296),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6296),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6296),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6296),
+    [aux_sym_contains_statement_token1] = ACTIONS(6296),
+    [aux_sym_use_statement_token2] = ACTIONS(6296),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6296),
+    [aux_sym_save_statement_token1] = ACTIONS(6296),
+    [aux_sym_private_statement_token1] = ACTIONS(6296),
+    [aux_sym_public_statement_token1] = ACTIONS(6296),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6296),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6296),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6296),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6296),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6296),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6296),
+    [anon_sym_SEMI] = ACTIONS(6298),
+    [aux_sym_stop_statement_token1] = ACTIONS(6296),
+    [aux_sym_stop_statement_token2] = ACTIONS(6296),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6296),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6296),
+    [aux_sym_include_statement_token1] = ACTIONS(6296),
+    [aux_sym_data_statement_token1] = ACTIONS(6296),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6296),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6296),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6296),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6296),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6296),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6296),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6296),
+    [aux_sym_block_construct_token1] = ACTIONS(6296),
+    [aux_sym_associate_statement_token1] = ACTIONS(6296),
+    [aux_sym_format_statement_token1] = ACTIONS(6296),
+    [aux_sym_print_statement_token1] = ACTIONS(6296),
+    [aux_sym_open_statement_token1] = ACTIONS(6296),
+    [aux_sym_close_statement_token1] = ACTIONS(6296),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6296),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6296),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6296),
+    [aux_sym_entry_statement_token1] = ACTIONS(6296),
+    [aux_sym_logical_expression_token5] = ACTIONS(6298),
+    [anon_sym_DOT] = ACTIONS(6296),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6298),
+    [anon_sym_LBRACK] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6298),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6298),
+    [aux_sym_null_literal_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6296),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6296),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6296),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6296),
+    [aux_sym_identifier_token1] = ACTIONS(6296),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6298),
+    [sym__float_literal] = ACTIONS(6298),
+    [sym__boz_literal] = ACTIONS(6298),
+    [sym__string_literal] = ACTIONS(6298),
+    [sym__string_literal_kind] = ACTIONS(6298),
+  },
+  [2387] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
@@ -409443,8 +395096,9 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6620),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -409475,7 +395129,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -409510,12 +395164,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -409529,1313 +395183,1618 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2530] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2388] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token2] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6622),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
   },
-  [2531] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2389] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_contains_statement_token1] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2532] = {
-    [anon_sym_COMMA] = ACTIONS(6666),
-    [anon_sym_RPAREN] = ACTIONS(6666),
-    [anon_sym_LPAREN2] = ACTIONS(6666),
-    [anon_sym_PLUS] = ACTIONS(6666),
-    [anon_sym_DASH] = ACTIONS(6666),
-    [anon_sym_STAR] = ACTIONS(6668),
-    [anon_sym_SLASH] = ACTIONS(6668),
-    [anon_sym_PERCENT] = ACTIONS(6666),
+  [2390] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6064),
+    [aux_sym_preproc_def_token1] = ACTIONS(6064),
+    [aux_sym_preproc_if_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6064),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6064),
+    [sym_preproc_directive] = ACTIONS(6064),
+    [anon_sym_LPAREN2] = ACTIONS(6064),
+    [anon_sym_PLUS] = ACTIONS(6068),
+    [anon_sym_DASH] = ACTIONS(6068),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6064),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6064),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6064),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6064),
+    [aux_sym_contains_statement_token1] = ACTIONS(6064),
+    [aux_sym_use_statement_token2] = ACTIONS(6064),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6064),
+    [aux_sym_save_statement_token1] = ACTIONS(6064),
+    [aux_sym_private_statement_token1] = ACTIONS(6064),
+    [aux_sym_public_statement_token1] = ACTIONS(6064),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6064),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6064),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6064),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6064),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6064),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6064),
+    [anon_sym_SEMI] = ACTIONS(6068),
+    [aux_sym_stop_statement_token1] = ACTIONS(6064),
+    [aux_sym_stop_statement_token2] = ACTIONS(6064),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6064),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6064),
+    [aux_sym_include_statement_token1] = ACTIONS(6064),
+    [aux_sym_data_statement_token1] = ACTIONS(6064),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6064),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6064),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6064),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6064),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6064),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6064),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6064),
+    [aux_sym_block_construct_token1] = ACTIONS(6064),
+    [aux_sym_associate_statement_token1] = ACTIONS(6064),
+    [aux_sym_format_statement_token1] = ACTIONS(6064),
+    [aux_sym_print_statement_token1] = ACTIONS(6064),
+    [aux_sym_open_statement_token1] = ACTIONS(6064),
+    [aux_sym_close_statement_token1] = ACTIONS(6064),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6064),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6064),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6064),
+    [aux_sym_entry_statement_token1] = ACTIONS(6064),
+    [aux_sym_logical_expression_token5] = ACTIONS(6068),
+    [anon_sym_DOT] = ACTIONS(6064),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6068),
+    [anon_sym_LBRACK] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6068),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6068),
+    [aux_sym_null_literal_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6064),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6064),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6064),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6064),
+    [aux_sym_identifier_token1] = ACTIONS(6064),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6068),
+    [sym__float_literal] = ACTIONS(6068),
+    [sym__boz_literal] = ACTIONS(6068),
+    [sym__string_literal] = ACTIONS(6068),
+    [sym__string_literal_kind] = ACTIONS(6068),
+  },
+  [2391] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6624),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6666),
-    [anon_sym_GT] = ACTIONS(6668),
-    [anon_sym_GT_EQ] = ACTIONS(6666),
-    [anon_sym_LT_EQ] = ACTIONS(6666),
-    [anon_sym_LT] = ACTIONS(6668),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6668),
-    [anon_sym_EQ] = ACTIONS(6668),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6668),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6668),
-    [aux_sym_language_binding_token1] = ACTIONS(6668),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6668),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6668),
-    [aux_sym_use_statement_token2] = ACTIONS(6668),
-    [anon_sym_COLON_COLON] = ACTIONS(6666),
-    [anon_sym_EQ_GT] = ACTIONS(6666),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6668),
-    [aux_sym_save_statement_token1] = ACTIONS(6668),
-    [aux_sym_private_statement_token1] = ACTIONS(6668),
-    [aux_sym_public_statement_token1] = ACTIONS(6668),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6668),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6668),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6668),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6668),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6668),
-    [aux_sym_stop_statement_token1] = ACTIONS(6668),
-    [aux_sym_stop_statement_token2] = ACTIONS(6668),
-    [anon_sym_GT_GT_GT] = ACTIONS(6666),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6668),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6668),
-    [aux_sym_data_statement_token1] = ACTIONS(6668),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6668),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6668),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6668),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6668),
-    [aux_sym_block_construct_token1] = ACTIONS(6668),
-    [aux_sym_format_statement_token1] = ACTIONS(6668),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6668),
-    [aux_sym_entry_statement_token1] = ACTIONS(6668),
-    [aux_sym_logical_expression_token1] = ACTIONS(6666),
-    [aux_sym_logical_expression_token2] = ACTIONS(6666),
-    [aux_sym_logical_expression_token3] = ACTIONS(6666),
-    [aux_sym_logical_expression_token4] = ACTIONS(6666),
-    [aux_sym_relational_expression_token1] = ACTIONS(6666),
-    [aux_sym_relational_expression_token2] = ACTIONS(6666),
-    [aux_sym_relational_expression_token3] = ACTIONS(6666),
-    [aux_sym_relational_expression_token4] = ACTIONS(6666),
-    [aux_sym_relational_expression_token5] = ACTIONS(6666),
-    [anon_sym_SLASH_EQ] = ACTIONS(6666),
-    [aux_sym_relational_expression_token6] = ACTIONS(6666),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6666),
-    [anon_sym_STAR_STAR] = ACTIONS(6666),
-    [anon_sym_DOT] = ACTIONS(6668),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6666),
-    [anon_sym_LBRACK] = ACTIONS(6666),
-    [anon_sym_RBRACK] = ACTIONS(6666),
-    [aux_sym_null_literal_token1] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6668),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6668),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6668),
-    [anon_sym_QMARK] = ACTIONS(6666),
-    [aux_sym_identifier_token1] = ACTIONS(6668),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2533] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [2392] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6058),
+    [aux_sym_preproc_def_token1] = ACTIONS(6058),
+    [aux_sym_preproc_if_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6058),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6058),
+    [sym_preproc_directive] = ACTIONS(6058),
+    [anon_sym_LPAREN2] = ACTIONS(6058),
+    [anon_sym_PLUS] = ACTIONS(6062),
+    [anon_sym_DASH] = ACTIONS(6062),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6058),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6058),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6058),
+    [aux_sym_end_function_statement_token1] = ACTIONS(6058),
+    [aux_sym_contains_statement_token1] = ACTIONS(6058),
+    [aux_sym_use_statement_token2] = ACTIONS(6058),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6058),
+    [aux_sym_save_statement_token1] = ACTIONS(6058),
+    [aux_sym_private_statement_token1] = ACTIONS(6058),
+    [aux_sym_public_statement_token1] = ACTIONS(6058),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6058),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6058),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6058),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6058),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6058),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6058),
+    [anon_sym_SEMI] = ACTIONS(6062),
+    [aux_sym_stop_statement_token1] = ACTIONS(6058),
+    [aux_sym_stop_statement_token2] = ACTIONS(6058),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6058),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6058),
+    [aux_sym_include_statement_token1] = ACTIONS(6058),
+    [aux_sym_data_statement_token1] = ACTIONS(6058),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6058),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6058),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6058),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6058),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6058),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6058),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6058),
+    [aux_sym_block_construct_token1] = ACTIONS(6058),
+    [aux_sym_associate_statement_token1] = ACTIONS(6058),
+    [aux_sym_format_statement_token1] = ACTIONS(6058),
+    [aux_sym_print_statement_token1] = ACTIONS(6058),
+    [aux_sym_open_statement_token1] = ACTIONS(6058),
+    [aux_sym_close_statement_token1] = ACTIONS(6058),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6058),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6058),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6058),
+    [aux_sym_entry_statement_token1] = ACTIONS(6058),
+    [aux_sym_logical_expression_token5] = ACTIONS(6062),
+    [anon_sym_DOT] = ACTIONS(6058),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6062),
+    [anon_sym_LBRACK] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6062),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6062),
+    [aux_sym_null_literal_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6058),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6058),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6058),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6058),
+    [aux_sym_identifier_token1] = ACTIONS(6058),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6062),
+    [sym__float_literal] = ACTIONS(6062),
+    [sym__boz_literal] = ACTIONS(6062),
+    [sym__string_literal] = ACTIONS(6062),
+    [sym__string_literal_kind] = ACTIONS(6062),
+  },
+  [2393] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2394] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token2] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
-  },
-  [2534] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2535] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2536] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2395] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5612),
+    [aux_sym_preproc_def_token1] = ACTIONS(5612),
+    [aux_sym_preproc_if_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5612),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5612),
+    [sym_preproc_directive] = ACTIONS(5612),
+    [anon_sym_LPAREN2] = ACTIONS(5612),
+    [sym_preproc_comment] = ACTIONS(6626),
+    [anon_sym_PLUS] = ACTIONS(5616),
+    [anon_sym_DASH] = ACTIONS(5616),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5612),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5612),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5612),
+    [aux_sym_use_statement_token2] = ACTIONS(5612),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5612),
+    [aux_sym_save_statement_token1] = ACTIONS(5612),
+    [aux_sym_private_statement_token1] = ACTIONS(5612),
+    [aux_sym_public_statement_token1] = ACTIONS(5612),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5612),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5612),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5612),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5612),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5612),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5612),
+    [anon_sym_SEMI] = ACTIONS(5616),
+    [aux_sym_stop_statement_token1] = ACTIONS(5612),
+    [aux_sym_stop_statement_token2] = ACTIONS(5612),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5612),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5612),
+    [aux_sym_include_statement_token1] = ACTIONS(5612),
+    [aux_sym_data_statement_token1] = ACTIONS(5612),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5612),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5612),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5612),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5612),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5612),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5612),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5612),
+    [aux_sym_block_construct_token1] = ACTIONS(5612),
+    [aux_sym_associate_statement_token1] = ACTIONS(5612),
+    [aux_sym_format_statement_token1] = ACTIONS(5612),
+    [aux_sym_print_statement_token1] = ACTIONS(5612),
+    [aux_sym_open_statement_token1] = ACTIONS(5612),
+    [aux_sym_close_statement_token1] = ACTIONS(5612),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5612),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5612),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5612),
+    [aux_sym_entry_statement_token1] = ACTIONS(5612),
+    [aux_sym_logical_expression_token5] = ACTIONS(5616),
+    [anon_sym_DOT] = ACTIONS(5612),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5616),
+    [anon_sym_LBRACK] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5616),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5616),
+    [aux_sym_null_literal_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5612),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5612),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5612),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5612),
+    [aux_sym_identifier_token1] = ACTIONS(5612),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5616),
+    [sym__float_literal] = ACTIONS(5616),
+    [sym__boz_literal] = ACTIONS(5616),
+    [sym__string_literal] = ACTIONS(5616),
+    [sym__string_literal_kind] = ACTIONS(5616),
   },
-  [2537] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2396] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2538] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2397] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
   },
-  [2539] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+  [2398] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5560),
+    [aux_sym_preproc_def_token1] = ACTIONS(5560),
+    [aux_sym_preproc_if_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5560),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5560),
+    [sym_preproc_directive] = ACTIONS(5560),
+    [anon_sym_LPAREN2] = ACTIONS(5560),
+    [sym_preproc_comment] = ACTIONS(6628),
+    [anon_sym_PLUS] = ACTIONS(5564),
+    [anon_sym_DASH] = ACTIONS(5564),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5560),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5560),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5560),
+    [aux_sym_use_statement_token2] = ACTIONS(5560),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5560),
+    [aux_sym_save_statement_token1] = ACTIONS(5560),
+    [aux_sym_private_statement_token1] = ACTIONS(5560),
+    [aux_sym_public_statement_token1] = ACTIONS(5560),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5560),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5560),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5560),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5560),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5560),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5560),
+    [anon_sym_SEMI] = ACTIONS(5564),
+    [aux_sym_stop_statement_token1] = ACTIONS(5560),
+    [aux_sym_stop_statement_token2] = ACTIONS(5560),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5560),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5560),
+    [aux_sym_include_statement_token1] = ACTIONS(5560),
+    [aux_sym_data_statement_token1] = ACTIONS(5560),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5560),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5560),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5560),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5560),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5560),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5560),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5560),
+    [aux_sym_block_construct_token1] = ACTIONS(5560),
+    [aux_sym_associate_statement_token1] = ACTIONS(5560),
+    [aux_sym_format_statement_token1] = ACTIONS(5560),
+    [aux_sym_print_statement_token1] = ACTIONS(5560),
+    [aux_sym_open_statement_token1] = ACTIONS(5560),
+    [aux_sym_close_statement_token1] = ACTIONS(5560),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5560),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5560),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5560),
+    [aux_sym_entry_statement_token1] = ACTIONS(5560),
+    [aux_sym_logical_expression_token5] = ACTIONS(5564),
+    [anon_sym_DOT] = ACTIONS(5560),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5564),
+    [anon_sym_LBRACK] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5564),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5564),
+    [aux_sym_null_literal_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5560),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5560),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5560),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5560),
+    [aux_sym_identifier_token1] = ACTIONS(5560),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5564),
+    [sym__float_literal] = ACTIONS(5564),
+    [sym__boz_literal] = ACTIONS(5564),
+    [sym__string_literal] = ACTIONS(5564),
+    [sym__string_literal_kind] = ACTIONS(5564),
   },
-  [2540] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2399] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2541] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+  [2400] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2542] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2401] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2402] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2403] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2543] = {
+  [2404] = {
     [aux_sym_preproc_include_token1] = ACTIONS(2079),
     [aux_sym_preproc_def_token1] = ACTIONS(2079),
     [aux_sym_preproc_if_token1] = ACTIONS(2079),
@@ -410843,8 +396802,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
     [sym_preproc_directive] = ACTIONS(2079),
     [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
@@ -410875,7 +396834,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
     [aux_sym_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
+    [anon_sym_SEMI] = ACTIONS(5708),
     [aux_sym_stop_statement_token1] = ACTIONS(2079),
     [aux_sym_stop_statement_token2] = ACTIONS(2079),
     [aux_sym_subroutine_call_token1] = ACTIONS(2079),
@@ -410893,13 +396852,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_elseif_clause_token2] = ACTIONS(2079),
     [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
     [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(2079),
     [aux_sym_select_case_statement_token1] = ACTIONS(2079),
     [aux_sym_select_case_statement_token3] = ACTIONS(2079),
     [aux_sym_select_type_statement_token1] = ACTIONS(2079),
     [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
     [aux_sym_block_construct_token1] = ACTIONS(2079),
     [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(2079),
     [aux_sym_format_statement_token1] = ACTIONS(2079),
     [aux_sym_print_statement_token1] = ACTIONS(2079),
     [aux_sym_open_statement_token1] = ACTIONS(2079),
@@ -410911,12 +396870,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(2079),
     [aux_sym_allocate_statement_token1] = ACTIONS(2079),
     [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
     [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
     [aux_sym_null_literal_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token2] = ACTIONS(2079),
@@ -410929,813 +396888,413 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
-  },
-  [2544] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2545] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2546] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2547] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
-  },
-  [2548] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2405] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2549] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2406] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2550] = {
-    [anon_sym_COMMA] = ACTIONS(6670),
-    [anon_sym_RPAREN] = ACTIONS(6670),
-    [anon_sym_LPAREN2] = ACTIONS(6670),
-    [anon_sym_PLUS] = ACTIONS(6670),
-    [anon_sym_DASH] = ACTIONS(6670),
-    [anon_sym_STAR] = ACTIONS(6672),
-    [anon_sym_SLASH] = ACTIONS(6672),
-    [anon_sym_PERCENT] = ACTIONS(6670),
+  [2407] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6670),
-    [anon_sym_GT] = ACTIONS(6672),
-    [anon_sym_GT_EQ] = ACTIONS(6670),
-    [anon_sym_LT_EQ] = ACTIONS(6670),
-    [anon_sym_LT] = ACTIONS(6672),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6672),
-    [anon_sym_EQ] = ACTIONS(6672),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6672),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6672),
-    [aux_sym_language_binding_token1] = ACTIONS(6672),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6672),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6672),
-    [aux_sym_use_statement_token2] = ACTIONS(6672),
-    [anon_sym_COLON_COLON] = ACTIONS(6670),
-    [anon_sym_EQ_GT] = ACTIONS(6670),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6672),
-    [aux_sym_save_statement_token1] = ACTIONS(6672),
-    [aux_sym_private_statement_token1] = ACTIONS(6672),
-    [aux_sym_public_statement_token1] = ACTIONS(6672),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6672),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6672),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6672),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6672),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6672),
-    [aux_sym_stop_statement_token1] = ACTIONS(6672),
-    [aux_sym_stop_statement_token2] = ACTIONS(6672),
-    [anon_sym_GT_GT_GT] = ACTIONS(6670),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6672),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6672),
-    [aux_sym_data_statement_token1] = ACTIONS(6672),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6672),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6672),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6672),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6672),
-    [aux_sym_block_construct_token1] = ACTIONS(6672),
-    [aux_sym_format_statement_token1] = ACTIONS(6672),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6672),
-    [aux_sym_entry_statement_token1] = ACTIONS(6672),
-    [aux_sym_logical_expression_token1] = ACTIONS(6670),
-    [aux_sym_logical_expression_token2] = ACTIONS(6670),
-    [aux_sym_logical_expression_token3] = ACTIONS(6670),
-    [aux_sym_logical_expression_token4] = ACTIONS(6670),
-    [aux_sym_relational_expression_token1] = ACTIONS(6670),
-    [aux_sym_relational_expression_token2] = ACTIONS(6670),
-    [aux_sym_relational_expression_token3] = ACTIONS(6670),
-    [aux_sym_relational_expression_token4] = ACTIONS(6670),
-    [aux_sym_relational_expression_token5] = ACTIONS(6670),
-    [anon_sym_SLASH_EQ] = ACTIONS(6670),
-    [aux_sym_relational_expression_token6] = ACTIONS(6670),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6670),
-    [anon_sym_STAR_STAR] = ACTIONS(6670),
-    [anon_sym_DOT] = ACTIONS(6672),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6670),
-    [anon_sym_LBRACK] = ACTIONS(6670),
-    [anon_sym_RBRACK] = ACTIONS(6670),
-    [aux_sym_null_literal_token1] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6672),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6672),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6672),
-    [anon_sym_QMARK] = ACTIONS(6670),
-    [aux_sym_identifier_token1] = ACTIONS(6672),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2551] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4525),
-    [aux_sym_preproc_def_token1] = ACTIONS(4525),
-    [aux_sym_preproc_if_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
-    [sym_preproc_directive] = ACTIONS(4525),
-    [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+  [2408] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5606),
+    [aux_sym_preproc_def_token1] = ACTIONS(5606),
+    [aux_sym_preproc_if_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5606),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5606),
+    [sym_preproc_directive] = ACTIONS(5606),
+    [anon_sym_LPAREN2] = ACTIONS(5606),
+    [sym_preproc_comment] = ACTIONS(6630),
+    [anon_sym_PLUS] = ACTIONS(5610),
+    [anon_sym_DASH] = ACTIONS(5610),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
-    [aux_sym_use_statement_token2] = ACTIONS(4525),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
-    [aux_sym_save_statement_token1] = ACTIONS(4525),
-    [aux_sym_private_statement_token1] = ACTIONS(4525),
-    [aux_sym_public_statement_token1] = ACTIONS(4525),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
-    [aux_sym_stop_statement_token1] = ACTIONS(4525),
-    [aux_sym_stop_statement_token2] = ACTIONS(4525),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
-    [aux_sym_include_statement_token1] = ACTIONS(4525),
-    [aux_sym_data_statement_token1] = ACTIONS(4525),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
-    [aux_sym_block_construct_token1] = ACTIONS(4525),
-    [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_format_statement_token1] = ACTIONS(4525),
-    [aux_sym_print_statement_token1] = ACTIONS(4525),
-    [aux_sym_open_statement_token1] = ACTIONS(4525),
-    [aux_sym_close_statement_token1] = ACTIONS(4525),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
-    [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
-    [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
-    [aux_sym_null_literal_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4525),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
-    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5606),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5606),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5606),
+    [aux_sym_use_statement_token2] = ACTIONS(5606),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5606),
+    [aux_sym_save_statement_token1] = ACTIONS(5606),
+    [aux_sym_private_statement_token1] = ACTIONS(5606),
+    [aux_sym_public_statement_token1] = ACTIONS(5606),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5606),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5606),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5606),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5606),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5606),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5606),
+    [anon_sym_SEMI] = ACTIONS(5610),
+    [aux_sym_stop_statement_token1] = ACTIONS(5606),
+    [aux_sym_stop_statement_token2] = ACTIONS(5606),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5606),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5606),
+    [aux_sym_include_statement_token1] = ACTIONS(5606),
+    [aux_sym_data_statement_token1] = ACTIONS(5606),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5606),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5606),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5606),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5606),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5606),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5606),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5606),
+    [aux_sym_block_construct_token1] = ACTIONS(5606),
+    [aux_sym_associate_statement_token1] = ACTIONS(5606),
+    [aux_sym_format_statement_token1] = ACTIONS(5606),
+    [aux_sym_print_statement_token1] = ACTIONS(5606),
+    [aux_sym_open_statement_token1] = ACTIONS(5606),
+    [aux_sym_close_statement_token1] = ACTIONS(5606),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5606),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5606),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5606),
+    [aux_sym_entry_statement_token1] = ACTIONS(5606),
+    [aux_sym_logical_expression_token5] = ACTIONS(5610),
+    [anon_sym_DOT] = ACTIONS(5606),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5610),
+    [anon_sym_LBRACK] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5610),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5610),
+    [aux_sym_null_literal_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5606),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5606),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5606),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5606),
+    [aux_sym_identifier_token1] = ACTIONS(5606),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5610),
+    [sym__float_literal] = ACTIONS(5610),
+    [sym__boz_literal] = ACTIONS(5610),
+    [sym__string_literal] = ACTIONS(5610),
+    [sym__string_literal_kind] = ACTIONS(5610),
   },
-  [2552] = {
+  [2409] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
@@ -411788,6 +397347,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(5824),
     [aux_sym_data_statement_token1] = ACTIONS(5824),
     [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5824),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
     [aux_sym_end_if_statement_token1] = ACTIONS(5824),
     [aux_sym_elseif_clause_token2] = ACTIONS(5824),
@@ -411797,345 +397357,244 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(5824),
     [aux_sym_select_type_statement_token1] = ACTIONS(5824),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
     [aux_sym_block_construct_token1] = ACTIONS(5824),
     [aux_sym_associate_statement_token1] = ACTIONS(5824),
     [aux_sym_format_statement_token1] = ACTIONS(5824),
     [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2553] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_select_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
-  },
-  [2554] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2555] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2556] = {
+  [2410] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5596),
+    [aux_sym_preproc_def_token1] = ACTIONS(5596),
+    [aux_sym_preproc_if_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5596),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5596),
+    [sym_preproc_directive] = ACTIONS(5596),
+    [anon_sym_LPAREN2] = ACTIONS(5596),
+    [sym_preproc_comment] = ACTIONS(6632),
+    [anon_sym_PLUS] = ACTIONS(5600),
+    [anon_sym_DASH] = ACTIONS(5600),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5596),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5596),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5596),
+    [aux_sym_use_statement_token2] = ACTIONS(5596),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5596),
+    [aux_sym_save_statement_token1] = ACTIONS(5596),
+    [aux_sym_private_statement_token1] = ACTIONS(5596),
+    [aux_sym_public_statement_token1] = ACTIONS(5596),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5596),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5596),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5596),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5596),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5596),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5596),
+    [anon_sym_SEMI] = ACTIONS(5600),
+    [aux_sym_stop_statement_token1] = ACTIONS(5596),
+    [aux_sym_stop_statement_token2] = ACTIONS(5596),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5596),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5596),
+    [aux_sym_include_statement_token1] = ACTIONS(5596),
+    [aux_sym_data_statement_token1] = ACTIONS(5596),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5596),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5596),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5596),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5596),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5596),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5596),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5596),
+    [aux_sym_block_construct_token1] = ACTIONS(5596),
+    [aux_sym_associate_statement_token1] = ACTIONS(5596),
+    [aux_sym_format_statement_token1] = ACTIONS(5596),
+    [aux_sym_print_statement_token1] = ACTIONS(5596),
+    [aux_sym_open_statement_token1] = ACTIONS(5596),
+    [aux_sym_close_statement_token1] = ACTIONS(5596),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5596),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5596),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5596),
+    [aux_sym_entry_statement_token1] = ACTIONS(5596),
+    [aux_sym_logical_expression_token5] = ACTIONS(5600),
+    [anon_sym_DOT] = ACTIONS(5596),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5600),
+    [anon_sym_LBRACK] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5600),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5600),
+    [aux_sym_null_literal_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5596),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5596),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5596),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5596),
+    [aux_sym_identifier_token1] = ACTIONS(5596),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5600),
+    [sym__float_literal] = ACTIONS(5600),
+    [sym__boz_literal] = ACTIONS(5600),
+    [sym__string_literal] = ACTIONS(5600),
+    [sym__string_literal_kind] = ACTIONS(5600),
+  },
+  [2411] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2412] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -412143,8 +397602,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -412175,7 +397634,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -412210,12 +397669,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -412229,405 +397688,805 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2557] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2413] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2414] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2558] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2559] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2415] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2560] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
+  [2416] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5566),
+    [aux_sym_preproc_def_token1] = ACTIONS(5566),
+    [aux_sym_preproc_if_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5566),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5566),
+    [sym_preproc_directive] = ACTIONS(5566),
+    [anon_sym_LPAREN2] = ACTIONS(5566),
+    [sym_preproc_comment] = ACTIONS(6634),
+    [anon_sym_PLUS] = ACTIONS(5570),
+    [anon_sym_DASH] = ACTIONS(5570),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5566),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5566),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5566),
+    [aux_sym_use_statement_token2] = ACTIONS(5566),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5566),
+    [aux_sym_save_statement_token1] = ACTIONS(5566),
+    [aux_sym_private_statement_token1] = ACTIONS(5566),
+    [aux_sym_public_statement_token1] = ACTIONS(5566),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5566),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5566),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5566),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5566),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5566),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5566),
+    [anon_sym_SEMI] = ACTIONS(5570),
+    [aux_sym_stop_statement_token1] = ACTIONS(5566),
+    [aux_sym_stop_statement_token2] = ACTIONS(5566),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5566),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5566),
+    [aux_sym_include_statement_token1] = ACTIONS(5566),
+    [aux_sym_data_statement_token1] = ACTIONS(5566),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5566),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5566),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5566),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5566),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5566),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5566),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5566),
+    [aux_sym_block_construct_token1] = ACTIONS(5566),
+    [aux_sym_associate_statement_token1] = ACTIONS(5566),
+    [aux_sym_format_statement_token1] = ACTIONS(5566),
+    [aux_sym_print_statement_token1] = ACTIONS(5566),
+    [aux_sym_open_statement_token1] = ACTIONS(5566),
+    [aux_sym_close_statement_token1] = ACTIONS(5566),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5566),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5566),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5566),
+    [aux_sym_entry_statement_token1] = ACTIONS(5566),
+    [aux_sym_logical_expression_token5] = ACTIONS(5570),
+    [anon_sym_DOT] = ACTIONS(5566),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5570),
+    [anon_sym_LBRACK] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5570),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5570),
+    [aux_sym_null_literal_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5566),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5566),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5566),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5566),
+    [aux_sym_identifier_token1] = ACTIONS(5566),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5570),
+    [sym__float_literal] = ACTIONS(5570),
+    [sym__boz_literal] = ACTIONS(5570),
+    [sym__string_literal] = ACTIONS(5570),
+    [sym__string_literal_kind] = ACTIONS(5570),
+  },
+  [2417] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2418] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5578),
+    [aux_sym_preproc_def_token1] = ACTIONS(5578),
+    [aux_sym_preproc_if_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5578),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5578),
+    [sym_preproc_directive] = ACTIONS(5578),
+    [anon_sym_LPAREN2] = ACTIONS(5578),
+    [sym_preproc_comment] = ACTIONS(6636),
+    [anon_sym_PLUS] = ACTIONS(5582),
+    [anon_sym_DASH] = ACTIONS(5582),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5578),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5578),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5578),
+    [aux_sym_use_statement_token2] = ACTIONS(5578),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5578),
+    [aux_sym_save_statement_token1] = ACTIONS(5578),
+    [aux_sym_private_statement_token1] = ACTIONS(5578),
+    [aux_sym_public_statement_token1] = ACTIONS(5578),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5578),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5578),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5578),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5578),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5578),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5578),
+    [anon_sym_SEMI] = ACTIONS(5582),
+    [aux_sym_stop_statement_token1] = ACTIONS(5578),
+    [aux_sym_stop_statement_token2] = ACTIONS(5578),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5578),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5578),
+    [aux_sym_include_statement_token1] = ACTIONS(5578),
+    [aux_sym_data_statement_token1] = ACTIONS(5578),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5578),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5578),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5578),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5578),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5578),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5578),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5578),
+    [aux_sym_block_construct_token1] = ACTIONS(5578),
+    [aux_sym_associate_statement_token1] = ACTIONS(5578),
+    [aux_sym_format_statement_token1] = ACTIONS(5578),
+    [aux_sym_print_statement_token1] = ACTIONS(5578),
+    [aux_sym_open_statement_token1] = ACTIONS(5578),
+    [aux_sym_close_statement_token1] = ACTIONS(5578),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5578),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5578),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5578),
+    [aux_sym_entry_statement_token1] = ACTIONS(5578),
+    [aux_sym_logical_expression_token5] = ACTIONS(5582),
+    [anon_sym_DOT] = ACTIONS(5578),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5582),
+    [anon_sym_LBRACK] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5582),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5582),
+    [aux_sym_null_literal_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5578),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5578),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5578),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5578),
+    [aux_sym_identifier_token1] = ACTIONS(5578),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5582),
+    [sym__float_literal] = ACTIONS(5582),
+    [sym__boz_literal] = ACTIONS(5582),
+    [sym__string_literal] = ACTIONS(5582),
+    [sym__string_literal_kind] = ACTIONS(5582),
+  },
+  [2419] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2420] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
     [anon_sym_PLUS] = ACTIONS(5638),
     [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
     [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
     [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
+    [anon_sym_DOT] = ACTIONS(5040),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
     [anon_sym_LBRACK] = ACTIONS(5638),
     [aux_sym_boolean_literal_token1] = ACTIONS(5638),
     [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5638),
     [sym__float_literal] = ACTIONS(5638),
@@ -412635,499 +398494,1299 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5638),
     [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2561] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2421] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2562] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2422] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
   },
-  [2563] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [2423] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2564] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2424] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2565] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
+  [2425] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2426] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2427] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2428] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2429] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2430] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
+  },
+  [2431] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2432] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2433] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5572),
+    [aux_sym_preproc_def_token1] = ACTIONS(5572),
+    [aux_sym_preproc_if_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5572),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5572),
+    [sym_preproc_directive] = ACTIONS(5572),
+    [anon_sym_LPAREN2] = ACTIONS(5572),
+    [sym_preproc_comment] = ACTIONS(6638),
     [anon_sym_PLUS] = ACTIONS(5576),
     [anon_sym_DASH] = ACTIONS(5576),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5572),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5572),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5572),
+    [aux_sym_use_statement_token2] = ACTIONS(5572),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5572),
+    [aux_sym_save_statement_token1] = ACTIONS(5572),
+    [aux_sym_private_statement_token1] = ACTIONS(5572),
+    [aux_sym_public_statement_token1] = ACTIONS(5572),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5572),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5572),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5572),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5572),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5572),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5572),
     [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
+    [aux_sym_stop_statement_token1] = ACTIONS(5572),
+    [aux_sym_stop_statement_token2] = ACTIONS(5572),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5572),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5572),
+    [aux_sym_include_statement_token1] = ACTIONS(5572),
+    [aux_sym_data_statement_token1] = ACTIONS(5572),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5572),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5572),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5572),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5572),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5572),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5572),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5572),
+    [aux_sym_block_construct_token1] = ACTIONS(5572),
+    [aux_sym_associate_statement_token1] = ACTIONS(5572),
+    [aux_sym_format_statement_token1] = ACTIONS(5572),
+    [aux_sym_print_statement_token1] = ACTIONS(5572),
+    [aux_sym_open_statement_token1] = ACTIONS(5572),
+    [aux_sym_close_statement_token1] = ACTIONS(5572),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5572),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5572),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5572),
+    [aux_sym_entry_statement_token1] = ACTIONS(5572),
     [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(5572),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
     [anon_sym_LBRACK] = ACTIONS(5576),
     [aux_sym_boolean_literal_token1] = ACTIONS(5576),
     [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_null_literal_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5572),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5572),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5572),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5572),
+    [aux_sym_identifier_token1] = ACTIONS(5572),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5576),
     [sym__float_literal] = ACTIONS(5576),
@@ -413135,7 +399794,607 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5576),
     [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2566] = {
+  [2434] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2435] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2436] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2437] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
+  },
+  [2438] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2439] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2440] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
@@ -413178,856 +400437,156 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [anon_sym_SEMI] = ACTIONS(5826),
     [aux_sym_stop_statement_token1] = ACTIONS(5824),
     [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
-  },
-  [2567] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
-  },
-  [2568] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
-  },
-  [2569] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2570] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
-  },
-  [2571] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
-  },
-  [2572] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
-  },
-  [2573] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2574] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
+  [2441] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
     [anon_sym_PLUS] = ACTIONS(5638),
     [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
     [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
     [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
+    [anon_sym_DOT] = ACTIONS(5040),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
     [anon_sym_LBRACK] = ACTIONS(5638),
     [aux_sym_boolean_literal_token1] = ACTIONS(5638),
     [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5638),
     [sym__float_literal] = ACTIONS(5638),
@@ -414035,616 +400594,817 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5638),
     [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2575] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
-  },
-  [2576] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [2442] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2577] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [2443] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2578] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
+  [2444] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2579] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2445] = {
+    [anon_sym_COMMA] = ACTIONS(6640),
+    [anon_sym_RPAREN] = ACTIONS(6640),
+    [anon_sym_LPAREN2] = ACTIONS(6640),
+    [anon_sym_PLUS] = ACTIONS(6640),
+    [anon_sym_DASH] = ACTIONS(6640),
+    [anon_sym_STAR] = ACTIONS(6642),
+    [anon_sym_SLASH] = ACTIONS(6642),
+    [anon_sym_PERCENT] = ACTIONS(6640),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6640),
+    [anon_sym_GT] = ACTIONS(6642),
+    [anon_sym_GT_EQ] = ACTIONS(6640),
+    [anon_sym_LT_EQ] = ACTIONS(6640),
+    [anon_sym_LT] = ACTIONS(6642),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6642),
+    [anon_sym_EQ] = ACTIONS(6642),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6642),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6642),
+    [aux_sym_language_binding_token1] = ACTIONS(6642),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6642),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6642),
+    [aux_sym_use_statement_token2] = ACTIONS(6642),
+    [anon_sym_COLON_COLON] = ACTIONS(6640),
+    [anon_sym_EQ_GT] = ACTIONS(6640),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6642),
+    [aux_sym_save_statement_token1] = ACTIONS(6642),
+    [aux_sym_private_statement_token1] = ACTIONS(6642),
+    [aux_sym_public_statement_token1] = ACTIONS(6642),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6642),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6642),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6642),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6642),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6642),
+    [aux_sym_stop_statement_token1] = ACTIONS(6642),
+    [aux_sym_stop_statement_token2] = ACTIONS(6642),
+    [anon_sym_GT_GT_GT] = ACTIONS(6640),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6642),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6642),
+    [aux_sym_data_statement_token1] = ACTIONS(6642),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6642),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6642),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6642),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6642),
+    [aux_sym_block_construct_token1] = ACTIONS(6642),
+    [aux_sym_format_statement_token1] = ACTIONS(6642),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6642),
+    [aux_sym_entry_statement_token1] = ACTIONS(6642),
+    [aux_sym_logical_expression_token1] = ACTIONS(6640),
+    [aux_sym_logical_expression_token2] = ACTIONS(6640),
+    [aux_sym_logical_expression_token3] = ACTIONS(6640),
+    [aux_sym_logical_expression_token4] = ACTIONS(6640),
+    [aux_sym_relational_expression_token1] = ACTIONS(6640),
+    [aux_sym_relational_expression_token2] = ACTIONS(6640),
+    [aux_sym_relational_expression_token3] = ACTIONS(6640),
+    [aux_sym_relational_expression_token4] = ACTIONS(6640),
+    [aux_sym_relational_expression_token5] = ACTIONS(6640),
+    [anon_sym_SLASH_EQ] = ACTIONS(6640),
+    [aux_sym_relational_expression_token6] = ACTIONS(6640),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6640),
+    [anon_sym_STAR_STAR] = ACTIONS(6640),
+    [anon_sym_DOT] = ACTIONS(6642),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6640),
+    [anon_sym_LBRACK] = ACTIONS(6640),
+    [anon_sym_RBRACK] = ACTIONS(6640),
+    [aux_sym_null_literal_token1] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6642),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6642),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6642),
+    [anon_sym_QMARK] = ACTIONS(6640),
+    [aux_sym_identifier_token1] = ACTIONS(6642),
+    [sym_comment] = ACTIONS(21),
   },
-  [2580] = {
-    [anon_sym_COMMA] = ACTIONS(6674),
-    [anon_sym_RPAREN] = ACTIONS(6674),
-    [anon_sym_LPAREN2] = ACTIONS(6674),
-    [anon_sym_PLUS] = ACTIONS(6674),
-    [anon_sym_DASH] = ACTIONS(6674),
-    [anon_sym_STAR] = ACTIONS(6676),
-    [anon_sym_SLASH] = ACTIONS(6676),
-    [anon_sym_PERCENT] = ACTIONS(6674),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6674),
-    [anon_sym_GT] = ACTIONS(6676),
-    [anon_sym_GT_EQ] = ACTIONS(6674),
-    [anon_sym_LT_EQ] = ACTIONS(6674),
-    [anon_sym_LT] = ACTIONS(6676),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6676),
-    [anon_sym_EQ] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6676),
-    [aux_sym_language_binding_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6676),
-    [aux_sym_use_statement_token2] = ACTIONS(6676),
-    [anon_sym_COLON_COLON] = ACTIONS(6674),
-    [anon_sym_EQ_GT] = ACTIONS(6674),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6676),
-    [aux_sym_save_statement_token1] = ACTIONS(6676),
-    [aux_sym_private_statement_token1] = ACTIONS(6676),
-    [aux_sym_public_statement_token1] = ACTIONS(6676),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6676),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6676),
-    [aux_sym_stop_statement_token1] = ACTIONS(6676),
-    [aux_sym_stop_statement_token2] = ACTIONS(6676),
-    [anon_sym_GT_GT_GT] = ACTIONS(6674),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6676),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6676),
-    [aux_sym_data_statement_token1] = ACTIONS(6676),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6676),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6676),
-    [aux_sym_block_construct_token1] = ACTIONS(6676),
-    [aux_sym_format_statement_token1] = ACTIONS(6676),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6676),
-    [aux_sym_entry_statement_token1] = ACTIONS(6676),
-    [aux_sym_logical_expression_token1] = ACTIONS(6674),
-    [aux_sym_logical_expression_token2] = ACTIONS(6674),
-    [aux_sym_logical_expression_token3] = ACTIONS(6674),
-    [aux_sym_logical_expression_token4] = ACTIONS(6674),
-    [aux_sym_relational_expression_token1] = ACTIONS(6674),
-    [aux_sym_relational_expression_token2] = ACTIONS(6674),
-    [aux_sym_relational_expression_token3] = ACTIONS(6674),
-    [aux_sym_relational_expression_token4] = ACTIONS(6674),
-    [aux_sym_relational_expression_token5] = ACTIONS(6674),
-    [anon_sym_SLASH_EQ] = ACTIONS(6674),
-    [aux_sym_relational_expression_token6] = ACTIONS(6674),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6674),
-    [anon_sym_STAR_STAR] = ACTIONS(6674),
-    [anon_sym_DOT] = ACTIONS(6676),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6674),
-    [anon_sym_LBRACK] = ACTIONS(6674),
-    [anon_sym_RBRACK] = ACTIONS(6674),
-    [aux_sym_null_literal_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6676),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6676),
-    [anon_sym_QMARK] = ACTIONS(6674),
-    [aux_sym_identifier_token1] = ACTIONS(6676),
+  [2446] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2581] = {
+  [2447] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2448] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2449] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2450] = {
     [aux_sym_preproc_include_token1] = ACTIONS(2079),
     [aux_sym_preproc_def_token1] = ACTIONS(2079),
     [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token2] = ACTIONS(2079),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
     [sym_preproc_directive] = ACTIONS(2079),
     [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
@@ -414675,7 +401435,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
     [aux_sym_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
+    [anon_sym_SEMI] = ACTIONS(5708),
     [aux_sym_stop_statement_token1] = ACTIONS(2079),
     [aux_sym_stop_statement_token2] = ACTIONS(2079),
     [aux_sym_subroutine_call_token1] = ACTIONS(2079),
@@ -414710,12 +401470,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(2079),
     [aux_sym_allocate_statement_token1] = ACTIONS(2079),
     [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
     [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
     [aux_sym_null_literal_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token2] = ACTIONS(2079),
@@ -414726,216 +401486,815 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(2079),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2582] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [2451] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2583] = {
-    [anon_sym_COMMA] = ACTIONS(6678),
-    [anon_sym_RPAREN] = ACTIONS(6678),
-    [anon_sym_LPAREN2] = ACTIONS(6678),
-    [anon_sym_PLUS] = ACTIONS(6678),
-    [anon_sym_DASH] = ACTIONS(6678),
-    [anon_sym_STAR] = ACTIONS(6680),
-    [anon_sym_SLASH] = ACTIONS(6680),
-    [anon_sym_PERCENT] = ACTIONS(6678),
+  [2452] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6678),
-    [anon_sym_GT] = ACTIONS(6680),
-    [anon_sym_GT_EQ] = ACTIONS(6678),
-    [anon_sym_LT_EQ] = ACTIONS(6678),
-    [anon_sym_LT] = ACTIONS(6680),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6680),
-    [anon_sym_EQ] = ACTIONS(6680),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6680),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6680),
-    [aux_sym_language_binding_token1] = ACTIONS(6680),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6680),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6680),
-    [aux_sym_use_statement_token2] = ACTIONS(6680),
-    [anon_sym_COLON_COLON] = ACTIONS(6678),
-    [anon_sym_EQ_GT] = ACTIONS(6678),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6680),
-    [aux_sym_save_statement_token1] = ACTIONS(6680),
-    [aux_sym_private_statement_token1] = ACTIONS(6680),
-    [aux_sym_public_statement_token1] = ACTIONS(6680),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6680),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6680),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6680),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6680),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6680),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6680),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6680),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6680),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6680),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6680),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6680),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6680),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6680),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6680),
-    [aux_sym_stop_statement_token1] = ACTIONS(6680),
-    [aux_sym_stop_statement_token2] = ACTIONS(6680),
-    [anon_sym_GT_GT_GT] = ACTIONS(6678),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6680),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6680),
-    [aux_sym_data_statement_token1] = ACTIONS(6680),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6680),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6680),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6680),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6680),
-    [aux_sym_block_construct_token1] = ACTIONS(6680),
-    [aux_sym_format_statement_token1] = ACTIONS(6680),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6680),
-    [aux_sym_entry_statement_token1] = ACTIONS(6680),
-    [aux_sym_logical_expression_token1] = ACTIONS(6678),
-    [aux_sym_logical_expression_token2] = ACTIONS(6678),
-    [aux_sym_logical_expression_token3] = ACTIONS(6678),
-    [aux_sym_logical_expression_token4] = ACTIONS(6678),
-    [aux_sym_relational_expression_token1] = ACTIONS(6678),
-    [aux_sym_relational_expression_token2] = ACTIONS(6678),
-    [aux_sym_relational_expression_token3] = ACTIONS(6678),
-    [aux_sym_relational_expression_token4] = ACTIONS(6678),
-    [aux_sym_relational_expression_token5] = ACTIONS(6678),
-    [anon_sym_SLASH_EQ] = ACTIONS(6678),
-    [aux_sym_relational_expression_token6] = ACTIONS(6678),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6678),
-    [anon_sym_STAR_STAR] = ACTIONS(6678),
-    [anon_sym_DOT] = ACTIONS(6680),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6678),
-    [anon_sym_LBRACK] = ACTIONS(6678),
-    [anon_sym_RBRACK] = ACTIONS(6678),
-    [aux_sym_null_literal_token1] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6680),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6680),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6680),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6680),
-    [anon_sym_QMARK] = ACTIONS(6678),
-    [aux_sym_identifier_token1] = ACTIONS(6680),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
+  },
+  [2453] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2454] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2584] = {
+  [2455] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token2] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2456] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2457] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2458] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
+  },
+  [2459] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
@@ -414943,8 +402302,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -414975,7 +402334,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -414997,6 +402356,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(4317),
     [aux_sym_select_type_statement_token1] = ACTIONS(4317),
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
@@ -415010,12 +402370,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -415025,17 +402385,116 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(4317),
     [aux_sym_coarray_statement_token13] = ACTIONS(4317),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2585] = {
+  [2460] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2461] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
@@ -415098,6 +402557,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_type_statement_token1] = ACTIONS(5726),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
     [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5726),
     [aux_sym_associate_statement_token1] = ACTIONS(5726),
     [aux_sym_format_statement_token1] = ACTIONS(5726),
     [aux_sym_print_statement_token1] = ACTIONS(5726),
@@ -415125,7 +402585,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5726),
     [aux_sym_coarray_statement_token13] = ACTIONS(5726),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5726),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
     [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
@@ -415135,307 +402594,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2586] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
-  },
-  [2587] = {
-    [anon_sym_COMMA] = ACTIONS(6682),
-    [anon_sym_RPAREN] = ACTIONS(6682),
-    [anon_sym_LPAREN2] = ACTIONS(6682),
-    [anon_sym_PLUS] = ACTIONS(6682),
-    [anon_sym_DASH] = ACTIONS(6682),
-    [anon_sym_STAR] = ACTIONS(6684),
-    [anon_sym_SLASH] = ACTIONS(6684),
-    [anon_sym_PERCENT] = ACTIONS(6682),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6682),
-    [anon_sym_GT] = ACTIONS(6684),
-    [anon_sym_GT_EQ] = ACTIONS(6682),
-    [anon_sym_LT_EQ] = ACTIONS(6682),
-    [anon_sym_LT] = ACTIONS(6684),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6684),
-    [anon_sym_EQ] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6684),
-    [aux_sym_language_binding_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6684),
-    [aux_sym_use_statement_token2] = ACTIONS(6684),
-    [anon_sym_COLON_COLON] = ACTIONS(6682),
-    [anon_sym_EQ_GT] = ACTIONS(6682),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6684),
-    [aux_sym_save_statement_token1] = ACTIONS(6684),
-    [aux_sym_private_statement_token1] = ACTIONS(6684),
-    [aux_sym_public_statement_token1] = ACTIONS(6684),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6684),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6684),
-    [aux_sym_stop_statement_token1] = ACTIONS(6684),
-    [aux_sym_stop_statement_token2] = ACTIONS(6684),
-    [anon_sym_GT_GT_GT] = ACTIONS(6682),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6684),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6684),
-    [aux_sym_data_statement_token1] = ACTIONS(6684),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6684),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6684),
-    [aux_sym_block_construct_token1] = ACTIONS(6684),
-    [aux_sym_format_statement_token1] = ACTIONS(6684),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6684),
-    [aux_sym_entry_statement_token1] = ACTIONS(6684),
-    [aux_sym_logical_expression_token1] = ACTIONS(6682),
-    [aux_sym_logical_expression_token2] = ACTIONS(6682),
-    [aux_sym_logical_expression_token3] = ACTIONS(6682),
-    [aux_sym_logical_expression_token4] = ACTIONS(6682),
-    [aux_sym_relational_expression_token1] = ACTIONS(6682),
-    [aux_sym_relational_expression_token2] = ACTIONS(6682),
-    [aux_sym_relational_expression_token3] = ACTIONS(6682),
-    [aux_sym_relational_expression_token4] = ACTIONS(6682),
-    [aux_sym_relational_expression_token5] = ACTIONS(6682),
-    [anon_sym_SLASH_EQ] = ACTIONS(6682),
-    [aux_sym_relational_expression_token6] = ACTIONS(6682),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6682),
-    [anon_sym_STAR_STAR] = ACTIONS(6682),
-    [anon_sym_DOT] = ACTIONS(6684),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6682),
-    [anon_sym_LBRACK] = ACTIONS(6682),
-    [anon_sym_RBRACK] = ACTIONS(6682),
-    [aux_sym_null_literal_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6684),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6684),
-    [anon_sym_QMARK] = ACTIONS(6682),
-    [aux_sym_identifier_token1] = ACTIONS(6684),
-    [sym_comment] = ACTIONS(21),
-  },
-  [2588] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
-  },
-  [2589] = {
+  [2462] = {
     [aux_sym_preproc_include_token1] = ACTIONS(2079),
     [aux_sym_preproc_def_token1] = ACTIONS(2079),
     [aux_sym_preproc_if_token1] = ACTIONS(2079),
@@ -415443,8 +402602,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
     [sym_preproc_directive] = ACTIONS(2079),
     [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(2079),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
@@ -415475,7 +402634,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
     [aux_sym_type_qualifier_token1] = ACTIONS(2079),
     [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
+    [anon_sym_SEMI] = ACTIONS(5708),
     [aux_sym_stop_statement_token1] = ACTIONS(2079),
     [aux_sym_stop_statement_token2] = ACTIONS(2079),
     [aux_sym_subroutine_call_token1] = ACTIONS(2079),
@@ -415510,12 +402669,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(2079),
     [aux_sym_allocate_statement_token1] = ACTIONS(2079),
     [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
     [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
     [aux_sym_null_literal_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_statement_token2] = ACTIONS(2079),
@@ -415525,26 +402684,327 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(2079),
     [aux_sym_coarray_statement_token13] = ACTIONS(2079),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(2079),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(2079),
     [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2590] = {
+  [2463] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2464] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2465] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2466] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token2] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -415575,7 +403035,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -415599,7 +403059,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
     [aux_sym_block_construct_token1] = ACTIONS(4317),
     [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4317),
     [aux_sym_format_statement_token1] = ACTIONS(4317),
     [aux_sym_print_statement_token1] = ACTIONS(4317),
     [aux_sym_open_statement_token1] = ACTIONS(4317),
@@ -415611,12 +403070,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -415629,213 +403088,613 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2591] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token2] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [2467] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2468] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2592] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token2] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2469] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2593] = {
+  [2470] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2471] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2472] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token2] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2473] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
@@ -415890,7 +403749,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
     [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5726),
     [aux_sym_elseif_clause_token2] = ACTIONS(5726),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
@@ -415927,6 +403785,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token13] = ACTIONS(5726),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5726),
     [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5728),
@@ -415935,707 +403794,2607 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2594] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token2] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2474] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2595] = {
-    [anon_sym_COMMA] = ACTIONS(6686),
-    [anon_sym_RPAREN] = ACTIONS(6686),
-    [anon_sym_LPAREN2] = ACTIONS(6686),
-    [anon_sym_PLUS] = ACTIONS(6686),
-    [anon_sym_DASH] = ACTIONS(6686),
-    [anon_sym_STAR] = ACTIONS(6688),
-    [anon_sym_SLASH] = ACTIONS(6688),
-    [anon_sym_PERCENT] = ACTIONS(6686),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6686),
-    [anon_sym_GT] = ACTIONS(6688),
-    [anon_sym_GT_EQ] = ACTIONS(6686),
-    [anon_sym_LT_EQ] = ACTIONS(6686),
-    [anon_sym_LT] = ACTIONS(6688),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6688),
-    [anon_sym_EQ] = ACTIONS(6688),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6688),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6688),
-    [aux_sym_language_binding_token1] = ACTIONS(6688),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6688),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6688),
-    [aux_sym_use_statement_token2] = ACTIONS(6688),
-    [anon_sym_COLON_COLON] = ACTIONS(6686),
-    [anon_sym_EQ_GT] = ACTIONS(6686),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6688),
-    [aux_sym_save_statement_token1] = ACTIONS(6688),
-    [aux_sym_private_statement_token1] = ACTIONS(6688),
-    [aux_sym_public_statement_token1] = ACTIONS(6688),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6688),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6688),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6688),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6688),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6688),
-    [aux_sym_stop_statement_token1] = ACTIONS(6688),
-    [aux_sym_stop_statement_token2] = ACTIONS(6688),
-    [anon_sym_GT_GT_GT] = ACTIONS(6686),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6688),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6688),
-    [aux_sym_data_statement_token1] = ACTIONS(6688),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6688),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6688),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6688),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6688),
-    [aux_sym_block_construct_token1] = ACTIONS(6688),
-    [aux_sym_format_statement_token1] = ACTIONS(6688),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6688),
-    [aux_sym_entry_statement_token1] = ACTIONS(6688),
-    [aux_sym_logical_expression_token1] = ACTIONS(6686),
-    [aux_sym_logical_expression_token2] = ACTIONS(6686),
-    [aux_sym_logical_expression_token3] = ACTIONS(6686),
-    [aux_sym_logical_expression_token4] = ACTIONS(6686),
-    [aux_sym_relational_expression_token1] = ACTIONS(6686),
-    [aux_sym_relational_expression_token2] = ACTIONS(6686),
-    [aux_sym_relational_expression_token3] = ACTIONS(6686),
-    [aux_sym_relational_expression_token4] = ACTIONS(6686),
-    [aux_sym_relational_expression_token5] = ACTIONS(6686),
-    [anon_sym_SLASH_EQ] = ACTIONS(6686),
-    [aux_sym_relational_expression_token6] = ACTIONS(6686),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6686),
-    [anon_sym_STAR_STAR] = ACTIONS(6686),
-    [anon_sym_DOT] = ACTIONS(6688),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6686),
-    [anon_sym_LBRACK] = ACTIONS(6686),
-    [anon_sym_RBRACK] = ACTIONS(6686),
-    [aux_sym_null_literal_token1] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6688),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6688),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6688),
-    [anon_sym_QMARK] = ACTIONS(6686),
-    [aux_sym_identifier_token1] = ACTIONS(6688),
+  [2475] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token2] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2596] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2476] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2597] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token2] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2477] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2598] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5726),
-    [aux_sym_preproc_def_token1] = ACTIONS(5726),
-    [aux_sym_preproc_if_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
-    [sym_preproc_directive] = ACTIONS(5726),
-    [anon_sym_LPAREN2] = ACTIONS(5726),
-    [anon_sym_PLUS] = ACTIONS(5728),
-    [anon_sym_DASH] = ACTIONS(5728),
+  [2478] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
-    [aux_sym_use_statement_token2] = ACTIONS(5726),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
-    [aux_sym_save_statement_token1] = ACTIONS(5726),
-    [aux_sym_private_statement_token1] = ACTIONS(5726),
-    [aux_sym_public_statement_token1] = ACTIONS(5726),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
-    [anon_sym_SEMI] = ACTIONS(5728),
-    [aux_sym_stop_statement_token1] = ACTIONS(5726),
-    [aux_sym_stop_statement_token2] = ACTIONS(5726),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
-    [aux_sym_include_statement_token1] = ACTIONS(5726),
-    [aux_sym_data_statement_token1] = ACTIONS(5726),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
-    [aux_sym_block_construct_token1] = ACTIONS(5726),
-    [aux_sym_associate_statement_token1] = ACTIONS(5726),
-    [aux_sym_format_statement_token1] = ACTIONS(5726),
-    [aux_sym_print_statement_token1] = ACTIONS(5726),
-    [aux_sym_open_statement_token1] = ACTIONS(5726),
-    [aux_sym_close_statement_token1] = ACTIONS(5726),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
-    [aux_sym_entry_statement_token1] = ACTIONS(5726),
-    [aux_sym_logical_expression_token5] = ACTIONS(5728),
-    [anon_sym_DOT] = ACTIONS(5726),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
-    [anon_sym_LBRACK] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
-    [aux_sym_null_literal_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5726),
-    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5728),
-    [sym__float_literal] = ACTIONS(5728),
-    [sym__boz_literal] = ACTIONS(5728),
-    [sym__string_literal] = ACTIONS(5728),
-    [sym__string_literal_kind] = ACTIONS(5728),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
+  },
+  [2479] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2480] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2481] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2482] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token2] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2483] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2484] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2485] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2486] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2487] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2488] = {
+    [anon_sym_COMMA] = ACTIONS(6644),
+    [anon_sym_RPAREN] = ACTIONS(6644),
+    [anon_sym_LPAREN2] = ACTIONS(6644),
+    [anon_sym_PLUS] = ACTIONS(6644),
+    [anon_sym_DASH] = ACTIONS(6644),
+    [anon_sym_STAR] = ACTIONS(6646),
+    [anon_sym_SLASH] = ACTIONS(6646),
+    [anon_sym_PERCENT] = ACTIONS(6644),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6644),
+    [anon_sym_GT] = ACTIONS(6646),
+    [anon_sym_GT_EQ] = ACTIONS(6644),
+    [anon_sym_LT_EQ] = ACTIONS(6644),
+    [anon_sym_LT] = ACTIONS(6646),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6646),
+    [anon_sym_EQ] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6646),
+    [aux_sym_language_binding_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6646),
+    [aux_sym_use_statement_token2] = ACTIONS(6646),
+    [anon_sym_COLON_COLON] = ACTIONS(6644),
+    [anon_sym_EQ_GT] = ACTIONS(6644),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6646),
+    [aux_sym_save_statement_token1] = ACTIONS(6646),
+    [aux_sym_private_statement_token1] = ACTIONS(6646),
+    [aux_sym_public_statement_token1] = ACTIONS(6646),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6646),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6646),
+    [aux_sym_stop_statement_token1] = ACTIONS(6646),
+    [aux_sym_stop_statement_token2] = ACTIONS(6646),
+    [anon_sym_GT_GT_GT] = ACTIONS(6644),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6646),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6646),
+    [aux_sym_data_statement_token1] = ACTIONS(6646),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6646),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6646),
+    [aux_sym_block_construct_token1] = ACTIONS(6646),
+    [aux_sym_format_statement_token1] = ACTIONS(6646),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6646),
+    [aux_sym_entry_statement_token1] = ACTIONS(6646),
+    [aux_sym_logical_expression_token1] = ACTIONS(6644),
+    [aux_sym_logical_expression_token2] = ACTIONS(6644),
+    [aux_sym_logical_expression_token3] = ACTIONS(6644),
+    [aux_sym_logical_expression_token4] = ACTIONS(6644),
+    [aux_sym_relational_expression_token1] = ACTIONS(6644),
+    [aux_sym_relational_expression_token2] = ACTIONS(6644),
+    [aux_sym_relational_expression_token3] = ACTIONS(6644),
+    [aux_sym_relational_expression_token4] = ACTIONS(6644),
+    [aux_sym_relational_expression_token5] = ACTIONS(6644),
+    [anon_sym_SLASH_EQ] = ACTIONS(6644),
+    [aux_sym_relational_expression_token6] = ACTIONS(6644),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6644),
+    [anon_sym_STAR_STAR] = ACTIONS(6644),
+    [anon_sym_DOT] = ACTIONS(6646),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6644),
+    [anon_sym_LBRACK] = ACTIONS(6644),
+    [anon_sym_RBRACK] = ACTIONS(6644),
+    [aux_sym_null_literal_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6646),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6646),
+    [anon_sym_QMARK] = ACTIONS(6644),
+    [aux_sym_identifier_token1] = ACTIONS(6646),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2489] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
+  },
+  [2490] = {
+    [anon_sym_COMMA] = ACTIONS(6648),
+    [anon_sym_RPAREN] = ACTIONS(6648),
+    [anon_sym_LPAREN2] = ACTIONS(6648),
+    [anon_sym_PLUS] = ACTIONS(6648),
+    [anon_sym_DASH] = ACTIONS(6648),
+    [anon_sym_STAR] = ACTIONS(6650),
+    [anon_sym_SLASH] = ACTIONS(6650),
+    [anon_sym_PERCENT] = ACTIONS(6648),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6648),
+    [anon_sym_GT] = ACTIONS(6650),
+    [anon_sym_GT_EQ] = ACTIONS(6648),
+    [anon_sym_LT_EQ] = ACTIONS(6648),
+    [anon_sym_LT] = ACTIONS(6650),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6650),
+    [anon_sym_EQ] = ACTIONS(6650),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6650),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6650),
+    [aux_sym_language_binding_token1] = ACTIONS(6650),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6650),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6650),
+    [aux_sym_use_statement_token2] = ACTIONS(6650),
+    [anon_sym_COLON_COLON] = ACTIONS(6648),
+    [anon_sym_EQ_GT] = ACTIONS(6648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6650),
+    [aux_sym_save_statement_token1] = ACTIONS(6650),
+    [aux_sym_private_statement_token1] = ACTIONS(6650),
+    [aux_sym_public_statement_token1] = ACTIONS(6650),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6650),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6650),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6650),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6650),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6650),
+    [aux_sym_stop_statement_token1] = ACTIONS(6650),
+    [aux_sym_stop_statement_token2] = ACTIONS(6650),
+    [anon_sym_GT_GT_GT] = ACTIONS(6648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6650),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6650),
+    [aux_sym_data_statement_token1] = ACTIONS(6650),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6650),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6650),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6650),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6650),
+    [aux_sym_block_construct_token1] = ACTIONS(6650),
+    [aux_sym_format_statement_token1] = ACTIONS(6650),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6650),
+    [aux_sym_entry_statement_token1] = ACTIONS(6650),
+    [aux_sym_logical_expression_token1] = ACTIONS(6648),
+    [aux_sym_logical_expression_token2] = ACTIONS(6648),
+    [aux_sym_logical_expression_token3] = ACTIONS(6648),
+    [aux_sym_logical_expression_token4] = ACTIONS(6648),
+    [aux_sym_relational_expression_token1] = ACTIONS(6648),
+    [aux_sym_relational_expression_token2] = ACTIONS(6648),
+    [aux_sym_relational_expression_token3] = ACTIONS(6648),
+    [aux_sym_relational_expression_token4] = ACTIONS(6648),
+    [aux_sym_relational_expression_token5] = ACTIONS(6648),
+    [anon_sym_SLASH_EQ] = ACTIONS(6648),
+    [aux_sym_relational_expression_token6] = ACTIONS(6648),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6648),
+    [anon_sym_STAR_STAR] = ACTIONS(6648),
+    [anon_sym_DOT] = ACTIONS(6650),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6648),
+    [anon_sym_LBRACK] = ACTIONS(6648),
+    [anon_sym_RBRACK] = ACTIONS(6648),
+    [aux_sym_null_literal_token1] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6650),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6650),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6650),
+    [anon_sym_QMARK] = ACTIONS(6648),
+    [aux_sym_identifier_token1] = ACTIONS(6650),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2491] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2492] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2493] = {
+    [anon_sym_COMMA] = ACTIONS(6652),
+    [anon_sym_RPAREN] = ACTIONS(6652),
+    [anon_sym_LPAREN2] = ACTIONS(6652),
+    [anon_sym_PLUS] = ACTIONS(6652),
+    [anon_sym_DASH] = ACTIONS(6652),
+    [anon_sym_STAR] = ACTIONS(6654),
+    [anon_sym_SLASH] = ACTIONS(6654),
+    [anon_sym_PERCENT] = ACTIONS(6652),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6652),
+    [anon_sym_GT] = ACTIONS(6654),
+    [anon_sym_GT_EQ] = ACTIONS(6652),
+    [anon_sym_LT_EQ] = ACTIONS(6652),
+    [anon_sym_LT] = ACTIONS(6654),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6654),
+    [anon_sym_EQ] = ACTIONS(6654),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6654),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6654),
+    [aux_sym_language_binding_token1] = ACTIONS(6654),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6654),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6654),
+    [aux_sym_use_statement_token2] = ACTIONS(6654),
+    [anon_sym_COLON_COLON] = ACTIONS(6652),
+    [anon_sym_EQ_GT] = ACTIONS(6652),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6654),
+    [aux_sym_save_statement_token1] = ACTIONS(6654),
+    [aux_sym_private_statement_token1] = ACTIONS(6654),
+    [aux_sym_public_statement_token1] = ACTIONS(6654),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6654),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6654),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6654),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6654),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6654),
+    [aux_sym_stop_statement_token1] = ACTIONS(6654),
+    [aux_sym_stop_statement_token2] = ACTIONS(6654),
+    [anon_sym_GT_GT_GT] = ACTIONS(6652),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6654),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6654),
+    [aux_sym_data_statement_token1] = ACTIONS(6654),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6654),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6654),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6654),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6654),
+    [aux_sym_block_construct_token1] = ACTIONS(6654),
+    [aux_sym_format_statement_token1] = ACTIONS(6654),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6654),
+    [aux_sym_entry_statement_token1] = ACTIONS(6654),
+    [aux_sym_logical_expression_token1] = ACTIONS(6652),
+    [aux_sym_logical_expression_token2] = ACTIONS(6652),
+    [aux_sym_logical_expression_token3] = ACTIONS(6652),
+    [aux_sym_logical_expression_token4] = ACTIONS(6652),
+    [aux_sym_relational_expression_token1] = ACTIONS(6652),
+    [aux_sym_relational_expression_token2] = ACTIONS(6652),
+    [aux_sym_relational_expression_token3] = ACTIONS(6652),
+    [aux_sym_relational_expression_token4] = ACTIONS(6652),
+    [aux_sym_relational_expression_token5] = ACTIONS(6652),
+    [anon_sym_SLASH_EQ] = ACTIONS(6652),
+    [aux_sym_relational_expression_token6] = ACTIONS(6652),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6652),
+    [anon_sym_STAR_STAR] = ACTIONS(6652),
+    [anon_sym_DOT] = ACTIONS(6654),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6652),
+    [anon_sym_LBRACK] = ACTIONS(6652),
+    [anon_sym_RBRACK] = ACTIONS(6652),
+    [aux_sym_null_literal_token1] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6654),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6654),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6654),
+    [anon_sym_QMARK] = ACTIONS(6652),
+    [aux_sym_identifier_token1] = ACTIONS(6654),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2494] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token2] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2495] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2496] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2497] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2599] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [2498] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2600] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token2] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2499] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2601] = {
+  [2500] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -416643,8 +406402,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -416675,7 +406434,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -416688,12 +406447,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(4525),
     [aux_sym_data_statement_token1] = ACTIONS(4525),
     [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4525),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
     [aux_sym_end_if_statement_token1] = ACTIONS(4525),
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
@@ -416711,12 +406470,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -416729,617 +406488,1416 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2602] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2501] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2603] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2502] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2604] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token2] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2503] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2605] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4317),
-    [aux_sym_preproc_def_token1] = ACTIONS(4317),
-    [aux_sym_preproc_if_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
-    [sym_preproc_directive] = ACTIONS(4317),
-    [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
-    [aux_sym_use_statement_token2] = ACTIONS(4317),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
-    [aux_sym_save_statement_token1] = ACTIONS(4317),
-    [aux_sym_private_statement_token1] = ACTIONS(4317),
-    [aux_sym_public_statement_token1] = ACTIONS(4317),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
-    [aux_sym_stop_statement_token1] = ACTIONS(4317),
-    [aux_sym_stop_statement_token2] = ACTIONS(4317),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
-    [aux_sym_include_statement_token1] = ACTIONS(4317),
-    [aux_sym_data_statement_token1] = ACTIONS(4317),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
-    [aux_sym_block_construct_token1] = ACTIONS(4317),
-    [aux_sym_associate_statement_token1] = ACTIONS(4317),
-    [aux_sym_format_statement_token1] = ACTIONS(4317),
-    [aux_sym_print_statement_token1] = ACTIONS(4317),
-    [aux_sym_open_statement_token1] = ACTIONS(4317),
-    [aux_sym_close_statement_token1] = ACTIONS(4317),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
-    [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
-    [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
-    [aux_sym_null_literal_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
-    [aux_sym_identifier_token1] = ACTIONS(4317),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+  [2504] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2606] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
+  [2505] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token2] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2506] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [sym_preproc_comment] = ACTIONS(6656),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2507] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token2] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2607] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2508] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2608] = {
+  [2509] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token2] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2510] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2511] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [sym_preproc_comment] = ACTIONS(6658),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2512] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2513] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2514] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2515] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token2] = ACTIONS(5824),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
     [sym_preproc_directive] = ACTIONS(5824),
@@ -417391,6 +407949,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
     [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5824),
     [aux_sym_elseif_clause_token2] = ACTIONS(5824),
     [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
     [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
@@ -417435,407 +407994,807 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5826),
     [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2609] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token2] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [2516] = {
+    [anon_sym_COMMA] = ACTIONS(6660),
+    [anon_sym_RPAREN] = ACTIONS(6660),
+    [anon_sym_LPAREN2] = ACTIONS(6660),
+    [anon_sym_PLUS] = ACTIONS(6660),
+    [anon_sym_DASH] = ACTIONS(6660),
+    [anon_sym_STAR] = ACTIONS(6662),
+    [anon_sym_SLASH] = ACTIONS(6662),
+    [anon_sym_PERCENT] = ACTIONS(6660),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6660),
+    [anon_sym_GT] = ACTIONS(6662),
+    [anon_sym_GT_EQ] = ACTIONS(6660),
+    [anon_sym_LT_EQ] = ACTIONS(6660),
+    [anon_sym_LT] = ACTIONS(6662),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6662),
+    [anon_sym_EQ] = ACTIONS(6662),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6662),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6662),
+    [aux_sym_language_binding_token1] = ACTIONS(6662),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6662),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6662),
+    [aux_sym_use_statement_token2] = ACTIONS(6662),
+    [anon_sym_COLON_COLON] = ACTIONS(6660),
+    [anon_sym_EQ_GT] = ACTIONS(6660),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6662),
+    [aux_sym_save_statement_token1] = ACTIONS(6662),
+    [aux_sym_private_statement_token1] = ACTIONS(6662),
+    [aux_sym_public_statement_token1] = ACTIONS(6662),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6662),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6662),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6662),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6662),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6662),
+    [aux_sym_stop_statement_token1] = ACTIONS(6662),
+    [aux_sym_stop_statement_token2] = ACTIONS(6662),
+    [anon_sym_GT_GT_GT] = ACTIONS(6660),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6662),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6662),
+    [aux_sym_data_statement_token1] = ACTIONS(6662),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6662),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6662),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6662),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6662),
+    [aux_sym_block_construct_token1] = ACTIONS(6662),
+    [aux_sym_format_statement_token1] = ACTIONS(6662),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6662),
+    [aux_sym_entry_statement_token1] = ACTIONS(6662),
+    [aux_sym_logical_expression_token1] = ACTIONS(6660),
+    [aux_sym_logical_expression_token2] = ACTIONS(6660),
+    [aux_sym_logical_expression_token3] = ACTIONS(6660),
+    [aux_sym_logical_expression_token4] = ACTIONS(6660),
+    [aux_sym_relational_expression_token1] = ACTIONS(6660),
+    [aux_sym_relational_expression_token2] = ACTIONS(6660),
+    [aux_sym_relational_expression_token3] = ACTIONS(6660),
+    [aux_sym_relational_expression_token4] = ACTIONS(6660),
+    [aux_sym_relational_expression_token5] = ACTIONS(6660),
+    [anon_sym_SLASH_EQ] = ACTIONS(6660),
+    [aux_sym_relational_expression_token6] = ACTIONS(6660),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6660),
+    [anon_sym_STAR_STAR] = ACTIONS(6660),
+    [anon_sym_DOT] = ACTIONS(6662),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6660),
+    [anon_sym_LBRACK] = ACTIONS(6660),
+    [anon_sym_RBRACK] = ACTIONS(6660),
+    [aux_sym_null_literal_token1] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6662),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6662),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6662),
+    [anon_sym_QMARK] = ACTIONS(6660),
+    [aux_sym_identifier_token1] = ACTIONS(6662),
+    [sym_comment] = ACTIONS(21),
   },
-  [2610] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
+  [2517] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [sym_preproc_comment] = ACTIONS(6664),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2611] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2518] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2519] = {
+    [anon_sym_COMMA] = ACTIONS(6666),
+    [anon_sym_RPAREN] = ACTIONS(6666),
+    [anon_sym_LPAREN2] = ACTIONS(6666),
+    [anon_sym_PLUS] = ACTIONS(6666),
+    [anon_sym_DASH] = ACTIONS(6666),
+    [anon_sym_STAR] = ACTIONS(6668),
+    [anon_sym_SLASH] = ACTIONS(6668),
+    [anon_sym_PERCENT] = ACTIONS(6666),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [anon_sym_EQ_EQ] = ACTIONS(6666),
+    [anon_sym_GT] = ACTIONS(6668),
+    [anon_sym_GT_EQ] = ACTIONS(6666),
+    [anon_sym_LT_EQ] = ACTIONS(6666),
+    [anon_sym_LT] = ACTIONS(6668),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6668),
+    [anon_sym_EQ] = ACTIONS(6668),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6668),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6668),
+    [aux_sym_language_binding_token1] = ACTIONS(6668),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6668),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6668),
+    [aux_sym_use_statement_token2] = ACTIONS(6668),
+    [anon_sym_COLON_COLON] = ACTIONS(6666),
+    [anon_sym_EQ_GT] = ACTIONS(6666),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6668),
+    [aux_sym_save_statement_token1] = ACTIONS(6668),
+    [aux_sym_private_statement_token1] = ACTIONS(6668),
+    [aux_sym_public_statement_token1] = ACTIONS(6668),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6668),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6668),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6668),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6668),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6668),
+    [aux_sym_stop_statement_token1] = ACTIONS(6668),
+    [aux_sym_stop_statement_token2] = ACTIONS(6668),
+    [anon_sym_GT_GT_GT] = ACTIONS(6666),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6668),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6668),
+    [aux_sym_data_statement_token1] = ACTIONS(6668),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6668),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6668),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6668),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6668),
+    [aux_sym_block_construct_token1] = ACTIONS(6668),
+    [aux_sym_format_statement_token1] = ACTIONS(6668),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6668),
+    [aux_sym_entry_statement_token1] = ACTIONS(6668),
+    [aux_sym_logical_expression_token1] = ACTIONS(6666),
+    [aux_sym_logical_expression_token2] = ACTIONS(6666),
+    [aux_sym_logical_expression_token3] = ACTIONS(6666),
+    [aux_sym_logical_expression_token4] = ACTIONS(6666),
+    [aux_sym_relational_expression_token1] = ACTIONS(6666),
+    [aux_sym_relational_expression_token2] = ACTIONS(6666),
+    [aux_sym_relational_expression_token3] = ACTIONS(6666),
+    [aux_sym_relational_expression_token4] = ACTIONS(6666),
+    [aux_sym_relational_expression_token5] = ACTIONS(6666),
+    [anon_sym_SLASH_EQ] = ACTIONS(6666),
+    [aux_sym_relational_expression_token6] = ACTIONS(6666),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6666),
+    [anon_sym_STAR_STAR] = ACTIONS(6666),
+    [anon_sym_DOT] = ACTIONS(6668),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6666),
+    [anon_sym_LBRACK] = ACTIONS(6666),
+    [anon_sym_RBRACK] = ACTIONS(6666),
+    [aux_sym_null_literal_token1] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6668),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6668),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6668),
+    [anon_sym_QMARK] = ACTIONS(6666),
+    [aux_sym_identifier_token1] = ACTIONS(6668),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
   },
-  [2612] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
+  [2520] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2613] = {
+  [2521] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [2522] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2523] = {
+    [anon_sym_COMMA] = ACTIONS(6670),
+    [anon_sym_RPAREN] = ACTIONS(6670),
+    [anon_sym_LPAREN2] = ACTIONS(6670),
+    [anon_sym_PLUS] = ACTIONS(6670),
+    [anon_sym_DASH] = ACTIONS(6670),
+    [anon_sym_STAR] = ACTIONS(6672),
+    [anon_sym_SLASH] = ACTIONS(6672),
+    [anon_sym_PERCENT] = ACTIONS(6670),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6670),
+    [anon_sym_GT] = ACTIONS(6672),
+    [anon_sym_GT_EQ] = ACTIONS(6670),
+    [anon_sym_LT_EQ] = ACTIONS(6670),
+    [anon_sym_LT] = ACTIONS(6672),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6672),
+    [anon_sym_EQ] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6672),
+    [aux_sym_language_binding_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6672),
+    [aux_sym_use_statement_token2] = ACTIONS(6672),
+    [anon_sym_COLON_COLON] = ACTIONS(6670),
+    [anon_sym_EQ_GT] = ACTIONS(6670),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6672),
+    [aux_sym_save_statement_token1] = ACTIONS(6672),
+    [aux_sym_private_statement_token1] = ACTIONS(6672),
+    [aux_sym_public_statement_token1] = ACTIONS(6672),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6672),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6672),
+    [aux_sym_stop_statement_token1] = ACTIONS(6672),
+    [aux_sym_stop_statement_token2] = ACTIONS(6672),
+    [anon_sym_GT_GT_GT] = ACTIONS(6670),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6672),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6672),
+    [aux_sym_data_statement_token1] = ACTIONS(6672),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6672),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6672),
+    [aux_sym_block_construct_token1] = ACTIONS(6672),
+    [aux_sym_format_statement_token1] = ACTIONS(6672),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6672),
+    [aux_sym_entry_statement_token1] = ACTIONS(6672),
+    [aux_sym_logical_expression_token1] = ACTIONS(6670),
+    [aux_sym_logical_expression_token2] = ACTIONS(6670),
+    [aux_sym_logical_expression_token3] = ACTIONS(6670),
+    [aux_sym_logical_expression_token4] = ACTIONS(6670),
+    [aux_sym_relational_expression_token1] = ACTIONS(6670),
+    [aux_sym_relational_expression_token2] = ACTIONS(6670),
+    [aux_sym_relational_expression_token3] = ACTIONS(6670),
+    [aux_sym_relational_expression_token4] = ACTIONS(6670),
+    [aux_sym_relational_expression_token5] = ACTIONS(6670),
+    [anon_sym_SLASH_EQ] = ACTIONS(6670),
+    [aux_sym_relational_expression_token6] = ACTIONS(6670),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6670),
+    [anon_sym_STAR_STAR] = ACTIONS(6670),
+    [anon_sym_DOT] = ACTIONS(6672),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6670),
+    [anon_sym_LBRACK] = ACTIONS(6670),
+    [anon_sym_RBRACK] = ACTIONS(6670),
+    [aux_sym_null_literal_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6672),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6672),
+    [anon_sym_QMARK] = ACTIONS(6670),
+    [aux_sym_identifier_token1] = ACTIONS(6672),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2524] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
@@ -417888,7 +408847,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(5726),
     [aux_sym_data_statement_token1] = ACTIONS(5726),
     [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5726),
     [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
     [aux_sym_end_if_statement_token1] = ACTIONS(5726),
     [aux_sym_elseif_clause_token2] = ACTIONS(5726),
@@ -417898,6 +408856,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_case_statement_token3] = ACTIONS(5726),
     [aux_sym_select_type_statement_token1] = ACTIONS(5726),
     [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5726),
     [aux_sym_block_construct_token1] = ACTIONS(5726),
     [aux_sym_associate_statement_token1] = ACTIONS(5726),
     [aux_sym_format_statement_token1] = ACTIONS(5726),
@@ -417935,607 +408894,1307 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2614] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2615] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
-  },
-  [2616] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2525] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_select_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2617] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
+  [2526] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2618] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2527] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2528] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2529] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2530] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2531] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2532] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2533] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2534] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2535] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2536] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [sym_preproc_comment] = ACTIONS(6674),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2619] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2537] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_select_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2620] = {
+  [2538] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -418543,8 +410202,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -418575,7 +410234,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -418588,12 +410247,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(4525),
     [aux_sym_data_statement_token1] = ACTIONS(4525),
     [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4525),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
     [aux_sym_end_if_statement_token1] = ACTIONS(4525),
     [aux_sym_elseif_clause_token2] = ACTIONS(4525),
     [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
     [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token1] = ACTIONS(4525),
     [aux_sym_select_case_statement_token3] = ACTIONS(4525),
     [aux_sym_select_type_statement_token1] = ACTIONS(4525),
@@ -418611,12 +410270,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -418629,713 +410288,1213 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2621] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
-  },
-  [2622] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2539] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [sym_preproc_comment] = ACTIONS(6676),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2623] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
+  [2540] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2624] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2541] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2625] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
+  [2542] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2626] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5824),
-    [aux_sym_preproc_def_token1] = ACTIONS(5824),
-    [aux_sym_preproc_if_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
-    [sym_preproc_directive] = ACTIONS(5824),
-    [anon_sym_LPAREN2] = ACTIONS(5824),
-    [anon_sym_PLUS] = ACTIONS(5826),
-    [anon_sym_DASH] = ACTIONS(5826),
+  [2543] = {
+    [anon_sym_COMMA] = ACTIONS(6678),
+    [anon_sym_RPAREN] = ACTIONS(6678),
+    [anon_sym_LPAREN2] = ACTIONS(6678),
+    [anon_sym_PLUS] = ACTIONS(6678),
+    [anon_sym_DASH] = ACTIONS(6678),
+    [anon_sym_STAR] = ACTIONS(6680),
+    [anon_sym_SLASH] = ACTIONS(6680),
+    [anon_sym_PERCENT] = ACTIONS(6678),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
-    [aux_sym_use_statement_token2] = ACTIONS(5824),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
-    [aux_sym_save_statement_token1] = ACTIONS(5824),
-    [aux_sym_private_statement_token1] = ACTIONS(5824),
-    [aux_sym_public_statement_token1] = ACTIONS(5824),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
-    [anon_sym_SEMI] = ACTIONS(5826),
-    [aux_sym_stop_statement_token1] = ACTIONS(5824),
-    [aux_sym_stop_statement_token2] = ACTIONS(5824),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
-    [aux_sym_include_statement_token1] = ACTIONS(5824),
-    [aux_sym_data_statement_token1] = ACTIONS(5824),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
-    [aux_sym_block_construct_token1] = ACTIONS(5824),
-    [aux_sym_associate_statement_token1] = ACTIONS(5824),
-    [aux_sym_format_statement_token1] = ACTIONS(5824),
-    [aux_sym_print_statement_token1] = ACTIONS(5824),
-    [aux_sym_open_statement_token1] = ACTIONS(5824),
-    [aux_sym_close_statement_token1] = ACTIONS(5824),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
-    [aux_sym_entry_statement_token1] = ACTIONS(5824),
-    [aux_sym_logical_expression_token5] = ACTIONS(5826),
-    [anon_sym_DOT] = ACTIONS(5824),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
-    [anon_sym_LBRACK] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
-    [aux_sym_null_literal_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5824),
-    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [anon_sym_EQ_EQ] = ACTIONS(6678),
+    [anon_sym_GT] = ACTIONS(6680),
+    [anon_sym_GT_EQ] = ACTIONS(6678),
+    [anon_sym_LT_EQ] = ACTIONS(6678),
+    [anon_sym_LT] = ACTIONS(6680),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6680),
+    [anon_sym_EQ] = ACTIONS(6680),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6680),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6680),
+    [aux_sym_language_binding_token1] = ACTIONS(6680),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6680),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6680),
+    [aux_sym_use_statement_token2] = ACTIONS(6680),
+    [anon_sym_COLON_COLON] = ACTIONS(6678),
+    [anon_sym_EQ_GT] = ACTIONS(6678),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6680),
+    [aux_sym_save_statement_token1] = ACTIONS(6680),
+    [aux_sym_private_statement_token1] = ACTIONS(6680),
+    [aux_sym_public_statement_token1] = ACTIONS(6680),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6680),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6680),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6680),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6680),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6680),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6680),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6680),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6680),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6680),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6680),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6680),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6680),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6680),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6680),
+    [aux_sym_stop_statement_token1] = ACTIONS(6680),
+    [aux_sym_stop_statement_token2] = ACTIONS(6680),
+    [anon_sym_GT_GT_GT] = ACTIONS(6678),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6680),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6680),
+    [aux_sym_data_statement_token1] = ACTIONS(6680),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6680),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6680),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6680),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6680),
+    [aux_sym_block_construct_token1] = ACTIONS(6680),
+    [aux_sym_format_statement_token1] = ACTIONS(6680),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6680),
+    [aux_sym_entry_statement_token1] = ACTIONS(6680),
+    [aux_sym_logical_expression_token1] = ACTIONS(6678),
+    [aux_sym_logical_expression_token2] = ACTIONS(6678),
+    [aux_sym_logical_expression_token3] = ACTIONS(6678),
+    [aux_sym_logical_expression_token4] = ACTIONS(6678),
+    [aux_sym_relational_expression_token1] = ACTIONS(6678),
+    [aux_sym_relational_expression_token2] = ACTIONS(6678),
+    [aux_sym_relational_expression_token3] = ACTIONS(6678),
+    [aux_sym_relational_expression_token4] = ACTIONS(6678),
+    [aux_sym_relational_expression_token5] = ACTIONS(6678),
+    [anon_sym_SLASH_EQ] = ACTIONS(6678),
+    [aux_sym_relational_expression_token6] = ACTIONS(6678),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6678),
+    [anon_sym_STAR_STAR] = ACTIONS(6678),
+    [anon_sym_DOT] = ACTIONS(6680),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6678),
+    [anon_sym_LBRACK] = ACTIONS(6678),
+    [anon_sym_RBRACK] = ACTIONS(6678),
+    [aux_sym_null_literal_token1] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6680),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6680),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6680),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6680),
+    [anon_sym_QMARK] = ACTIONS(6678),
+    [aux_sym_identifier_token1] = ACTIONS(6680),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5826),
-    [sym__float_literal] = ACTIONS(5826),
-    [sym__boz_literal] = ACTIONS(5826),
-    [sym__string_literal] = ACTIONS(5826),
-    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2627] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
+  [2544] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2628] = {
+  [2545] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2546] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2547] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2548] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2549] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2550] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2551] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -419343,8 +411502,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -419375,7 +411534,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -419399,7 +411558,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
     [aux_sym_print_statement_token1] = ACTIONS(4525),
     [aux_sym_open_statement_token1] = ACTIONS(4525),
@@ -419411,12 +411569,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -419426,108 +411584,809 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(4525),
     [aux_sym_coarray_statement_token13] = ACTIONS(4525),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2629] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
+  [2552] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2553] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2554] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2555] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2556] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [sym_preproc_comment] = ACTIONS(6682),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
+  },
+  [2557] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2558] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4331),
+    [aux_sym_preproc_def_token1] = ACTIONS(4331),
+    [aux_sym_preproc_if_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4331),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4331),
+    [sym_preproc_directive] = ACTIONS(4331),
+    [anon_sym_LPAREN2] = ACTIONS(4331),
+    [sym_preproc_comment] = ACTIONS(6684),
+    [anon_sym_PLUS] = ACTIONS(5634),
+    [anon_sym_DASH] = ACTIONS(5634),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4331),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4331),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4331),
+    [aux_sym_use_statement_token2] = ACTIONS(4331),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4331),
+    [aux_sym_save_statement_token1] = ACTIONS(4331),
+    [aux_sym_private_statement_token1] = ACTIONS(4331),
+    [aux_sym_public_statement_token1] = ACTIONS(4331),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4331),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4331),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4331),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4331),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4331),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4331),
+    [anon_sym_SEMI] = ACTIONS(5634),
+    [aux_sym_stop_statement_token1] = ACTIONS(4331),
+    [aux_sym_stop_statement_token2] = ACTIONS(4331),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4331),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4331),
+    [aux_sym_include_statement_token1] = ACTIONS(4331),
+    [aux_sym_data_statement_token1] = ACTIONS(4331),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4331),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4331),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4331),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4331),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4331),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4331),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4331),
+    [aux_sym_block_construct_token1] = ACTIONS(4331),
+    [aux_sym_associate_statement_token1] = ACTIONS(4331),
+    [aux_sym_format_statement_token1] = ACTIONS(4331),
+    [aux_sym_print_statement_token1] = ACTIONS(4331),
+    [aux_sym_open_statement_token1] = ACTIONS(4331),
+    [aux_sym_close_statement_token1] = ACTIONS(4331),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4331),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4331),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4331),
+    [aux_sym_entry_statement_token1] = ACTIONS(4331),
+    [aux_sym_logical_expression_token5] = ACTIONS(5634),
+    [anon_sym_DOT] = ACTIONS(4331),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5634),
+    [anon_sym_LBRACK] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5634),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5634),
+    [aux_sym_null_literal_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4331),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4331),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4331),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4331),
+    [aux_sym_identifier_token1] = ACTIONS(4331),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5634),
+    [sym__float_literal] = ACTIONS(5634),
+    [sym__boz_literal] = ACTIONS(5634),
+    [sym__string_literal] = ACTIONS(5634),
+    [sym__string_literal_kind] = ACTIONS(5634),
+  },
+  [2559] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
     [anon_sym_PLUS] = ACTIONS(5638),
     [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
     [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
     [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
+    [anon_sym_DOT] = ACTIONS(5040),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
     [anon_sym_LBRACK] = ACTIONS(5638),
     [aux_sym_boolean_literal_token1] = ACTIONS(5638),
     [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5638),
     [sym__float_literal] = ACTIONS(5638),
@@ -419535,499 +412394,1699 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5638),
     [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2630] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [2560] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
   },
-  [2631] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [2561] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2562] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2563] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2564] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2565] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2566] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2567] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
+  },
+  [2568] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4393),
+    [aux_sym_preproc_def_token1] = ACTIONS(4393),
+    [aux_sym_preproc_if_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4393),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4393),
+    [sym_preproc_directive] = ACTIONS(4393),
+    [anon_sym_LPAREN2] = ACTIONS(4393),
+    [sym_preproc_comment] = ACTIONS(6686),
+    [anon_sym_PLUS] = ACTIONS(5590),
+    [anon_sym_DASH] = ACTIONS(5590),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4393),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4393),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4393),
+    [aux_sym_use_statement_token2] = ACTIONS(4393),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4393),
+    [aux_sym_save_statement_token1] = ACTIONS(4393),
+    [aux_sym_private_statement_token1] = ACTIONS(4393),
+    [aux_sym_public_statement_token1] = ACTIONS(4393),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4393),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4393),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4393),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4393),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4393),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4393),
+    [anon_sym_SEMI] = ACTIONS(5590),
+    [aux_sym_stop_statement_token1] = ACTIONS(4393),
+    [aux_sym_stop_statement_token2] = ACTIONS(4393),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4393),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4393),
+    [aux_sym_include_statement_token1] = ACTIONS(4393),
+    [aux_sym_data_statement_token1] = ACTIONS(4393),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4393),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4393),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4393),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4393),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4393),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4393),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4393),
+    [aux_sym_block_construct_token1] = ACTIONS(4393),
+    [aux_sym_associate_statement_token1] = ACTIONS(4393),
+    [aux_sym_format_statement_token1] = ACTIONS(4393),
+    [aux_sym_print_statement_token1] = ACTIONS(4393),
+    [aux_sym_open_statement_token1] = ACTIONS(4393),
+    [aux_sym_close_statement_token1] = ACTIONS(4393),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4393),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4393),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4393),
+    [aux_sym_entry_statement_token1] = ACTIONS(4393),
+    [aux_sym_logical_expression_token5] = ACTIONS(5590),
+    [anon_sym_DOT] = ACTIONS(4393),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5590),
+    [anon_sym_LBRACK] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5590),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5590),
+    [aux_sym_null_literal_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4393),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4393),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4393),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4393),
+    [aux_sym_identifier_token1] = ACTIONS(4393),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5590),
+    [sym__float_literal] = ACTIONS(5590),
+    [sym__boz_literal] = ACTIONS(5590),
+    [sym__string_literal] = ACTIONS(5590),
+    [sym__string_literal_kind] = ACTIONS(5590),
+  },
+  [2569] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token2] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2570] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token2] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2571] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2632] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
+  [2572] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token2] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2633] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2573] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2634] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
+  [2574] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token2] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2575] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2576] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token2] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
     [anon_sym_PLUS] = ACTIONS(5690),
     [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
     [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
     [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_DOT] = ACTIONS(5688),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
     [anon_sym_LBRACK] = ACTIONS(5690),
     [aux_sym_boolean_literal_token1] = ACTIONS(5690),
     [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5690),
     [sym__float_literal] = ACTIONS(5690),
@@ -420035,1107 +414094,511 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5690),
     [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2635] = {
-    [anon_sym_COMMA] = ACTIONS(6690),
-    [anon_sym_RPAREN] = ACTIONS(6690),
-    [anon_sym_LPAREN2] = ACTIONS(6690),
-    [anon_sym_PLUS] = ACTIONS(6690),
-    [anon_sym_DASH] = ACTIONS(6690),
-    [anon_sym_STAR] = ACTIONS(6692),
-    [anon_sym_SLASH] = ACTIONS(6692),
-    [anon_sym_PERCENT] = ACTIONS(6690),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6690),
-    [anon_sym_GT] = ACTIONS(6692),
-    [anon_sym_GT_EQ] = ACTIONS(6690),
-    [anon_sym_LT_EQ] = ACTIONS(6690),
-    [anon_sym_LT] = ACTIONS(6692),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6692),
-    [anon_sym_EQ] = ACTIONS(6692),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6692),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6692),
-    [aux_sym_language_binding_token1] = ACTIONS(6692),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6692),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6692),
-    [aux_sym_use_statement_token2] = ACTIONS(6692),
-    [anon_sym_COLON_COLON] = ACTIONS(6690),
-    [anon_sym_EQ_GT] = ACTIONS(6690),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6692),
-    [aux_sym_save_statement_token1] = ACTIONS(6692),
-    [aux_sym_private_statement_token1] = ACTIONS(6692),
-    [aux_sym_public_statement_token1] = ACTIONS(6692),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6692),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6692),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6692),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6692),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6692),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6692),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6692),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6692),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6692),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6692),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6692),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6692),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6692),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6692),
-    [aux_sym_stop_statement_token1] = ACTIONS(6692),
-    [aux_sym_stop_statement_token2] = ACTIONS(6692),
-    [anon_sym_GT_GT_GT] = ACTIONS(6690),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6692),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6692),
-    [aux_sym_data_statement_token1] = ACTIONS(6692),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6692),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6692),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6692),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6692),
-    [aux_sym_block_construct_token1] = ACTIONS(6692),
-    [aux_sym_format_statement_token1] = ACTIONS(6692),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6692),
-    [aux_sym_entry_statement_token1] = ACTIONS(6692),
-    [aux_sym_logical_expression_token1] = ACTIONS(6690),
-    [aux_sym_logical_expression_token2] = ACTIONS(6690),
-    [aux_sym_logical_expression_token3] = ACTIONS(6690),
-    [aux_sym_logical_expression_token4] = ACTIONS(6690),
-    [aux_sym_relational_expression_token1] = ACTIONS(6690),
-    [aux_sym_relational_expression_token2] = ACTIONS(6690),
-    [aux_sym_relational_expression_token3] = ACTIONS(6690),
-    [aux_sym_relational_expression_token4] = ACTIONS(6690),
-    [aux_sym_relational_expression_token5] = ACTIONS(6690),
-    [anon_sym_SLASH_EQ] = ACTIONS(6690),
-    [aux_sym_relational_expression_token6] = ACTIONS(6690),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6690),
-    [anon_sym_STAR_STAR] = ACTIONS(6690),
-    [anon_sym_DOT] = ACTIONS(6692),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(6690),
-    [anon_sym_LBRACK] = ACTIONS(6690),
-    [anon_sym_RBRACK] = ACTIONS(6690),
-    [aux_sym_null_literal_token1] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6692),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6692),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6692),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6692),
-    [anon_sym_QMARK] = ACTIONS(6690),
-    [aux_sym_identifier_token1] = ACTIONS(6692),
-    [sym_comment] = ACTIONS(21),
-  },
-  [2636] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_end_forall_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
-  },
-  [2637] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2638] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2639] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
-    [anon_sym_PLUS] = ACTIONS(5690),
-    [anon_sym_DASH] = ACTIONS(5690),
+  [2577] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
-    [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_select_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
-    [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
-    [anon_sym_LBRACK] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5690),
-    [sym__float_literal] = ACTIONS(5690),
-    [sym__boz_literal] = ACTIONS(5690),
-    [sym__string_literal] = ACTIONS(5690),
-    [sym__string_literal_kind] = ACTIONS(5690),
-  },
-  [2640] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2641] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2642] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2578] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token2] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2643] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4499),
-    [aux_sym_preproc_def_token1] = ACTIONS(4499),
-    [aux_sym_preproc_if_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4499),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4499),
-    [sym_preproc_directive] = ACTIONS(4499),
-    [anon_sym_LPAREN2] = ACTIONS(4499),
-    [anon_sym_PLUS] = ACTIONS(5580),
-    [anon_sym_DASH] = ACTIONS(5580),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4499),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4499),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4499),
-    [aux_sym_use_statement_token2] = ACTIONS(4499),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4499),
-    [aux_sym_save_statement_token1] = ACTIONS(4499),
-    [aux_sym_private_statement_token1] = ACTIONS(4499),
-    [aux_sym_public_statement_token1] = ACTIONS(4499),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4499),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4499),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4499),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4499),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4499),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4499),
-    [anon_sym_SEMI] = ACTIONS(5580),
-    [aux_sym_stop_statement_token1] = ACTIONS(4499),
-    [aux_sym_stop_statement_token2] = ACTIONS(4499),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4499),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4499),
-    [aux_sym_include_statement_token1] = ACTIONS(4499),
-    [aux_sym_data_statement_token1] = ACTIONS(4499),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4499),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4499),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4499),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4499),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4499),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4499),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4499),
-    [aux_sym_block_construct_token1] = ACTIONS(4499),
-    [aux_sym_associate_statement_token1] = ACTIONS(4499),
-    [aux_sym_format_statement_token1] = ACTIONS(4499),
-    [aux_sym_print_statement_token1] = ACTIONS(4499),
-    [aux_sym_open_statement_token1] = ACTIONS(4499),
-    [aux_sym_close_statement_token1] = ACTIONS(4499),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4499),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4499),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4499),
-    [aux_sym_entry_statement_token1] = ACTIONS(4499),
-    [aux_sym_logical_expression_token5] = ACTIONS(5580),
-    [anon_sym_DOT] = ACTIONS(4499),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5580),
-    [anon_sym_LBRACK] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5580),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5580),
-    [aux_sym_null_literal_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4499),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4499),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4499),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4499),
-    [aux_sym_identifier_token1] = ACTIONS(4499),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5580),
-    [sym__float_literal] = ACTIONS(5580),
-    [sym__boz_literal] = ACTIONS(5580),
-    [sym__string_literal] = ACTIONS(5580),
-    [sym__string_literal_kind] = ACTIONS(5580),
+  [2579] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2644] = {
-    [sym_identifier] = STATE(6384),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(6694),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(6696),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6698),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6698),
+  [2580] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2645] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5764),
-    [aux_sym_preproc_def_token1] = ACTIONS(5764),
-    [aux_sym_preproc_if_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5764),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5764),
-    [sym_preproc_directive] = ACTIONS(5764),
-    [anon_sym_LPAREN2] = ACTIONS(5764),
-    [anon_sym_PLUS] = ACTIONS(5766),
-    [anon_sym_DASH] = ACTIONS(5766),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5764),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5764),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5764),
-    [aux_sym_use_statement_token2] = ACTIONS(5764),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5764),
-    [aux_sym_save_statement_token1] = ACTIONS(5764),
-    [aux_sym_private_statement_token1] = ACTIONS(5764),
-    [aux_sym_public_statement_token1] = ACTIONS(5764),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5764),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5764),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5764),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5764),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5764),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5764),
-    [anon_sym_SEMI] = ACTIONS(5766),
-    [aux_sym_stop_statement_token1] = ACTIONS(5764),
-    [aux_sym_stop_statement_token2] = ACTIONS(5764),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5764),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5764),
-    [aux_sym_include_statement_token1] = ACTIONS(5764),
-    [aux_sym_data_statement_token1] = ACTIONS(5764),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5764),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5764),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5764),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5764),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5764),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5764),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5764),
-    [aux_sym_block_construct_token1] = ACTIONS(5764),
-    [aux_sym_associate_statement_token1] = ACTIONS(5764),
-    [aux_sym_format_statement_token1] = ACTIONS(5764),
-    [aux_sym_print_statement_token1] = ACTIONS(5764),
-    [aux_sym_open_statement_token1] = ACTIONS(5764),
-    [aux_sym_close_statement_token1] = ACTIONS(5764),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5764),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5764),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5764),
-    [aux_sym_entry_statement_token1] = ACTIONS(5764),
-    [aux_sym_logical_expression_token5] = ACTIONS(5766),
-    [anon_sym_DOT] = ACTIONS(5764),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5766),
-    [anon_sym_LBRACK] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5766),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5766),
-    [aux_sym_null_literal_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5764),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5764),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5764),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5764),
-    [aux_sym_identifier_token1] = ACTIONS(5764),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5766),
-    [sym__float_literal] = ACTIONS(5766),
-    [sym__boz_literal] = ACTIONS(5766),
-    [sym__string_literal] = ACTIONS(5766),
-    [sym__string_literal_kind] = ACTIONS(5766),
+  [2581] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2646] = {
+  [2582] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5726),
     [aux_sym_preproc_def_token1] = ACTIONS(5726),
     [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token2] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
     [sym_preproc_directive] = ACTIONS(5726),
@@ -421231,403 +414694,607 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5728),
     [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2647] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5026),
-    [aux_sym_preproc_def_token1] = ACTIONS(5026),
-    [aux_sym_preproc_if_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5026),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5026),
-    [sym_preproc_directive] = ACTIONS(5026),
-    [anon_sym_LPAREN2] = ACTIONS(5026),
-    [anon_sym_PLUS] = ACTIONS(5592),
-    [anon_sym_DASH] = ACTIONS(5592),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5026),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5026),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5026),
-    [aux_sym_use_statement_token2] = ACTIONS(5026),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5026),
-    [aux_sym_save_statement_token1] = ACTIONS(5026),
-    [aux_sym_private_statement_token1] = ACTIONS(5026),
-    [aux_sym_public_statement_token1] = ACTIONS(5026),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5026),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5026),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5026),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5026),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5026),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5026),
-    [anon_sym_SEMI] = ACTIONS(5592),
-    [aux_sym_stop_statement_token1] = ACTIONS(5026),
-    [aux_sym_stop_statement_token2] = ACTIONS(5026),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5026),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5026),
-    [aux_sym_include_statement_token1] = ACTIONS(5026),
-    [aux_sym_data_statement_token1] = ACTIONS(5026),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5026),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5026),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5026),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5026),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5026),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5026),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5026),
-    [aux_sym_block_construct_token1] = ACTIONS(5026),
-    [aux_sym_associate_statement_token1] = ACTIONS(5026),
-    [aux_sym_format_statement_token1] = ACTIONS(5026),
-    [aux_sym_print_statement_token1] = ACTIONS(5026),
-    [aux_sym_open_statement_token1] = ACTIONS(5026),
-    [aux_sym_close_statement_token1] = ACTIONS(5026),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5026),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5026),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5026),
-    [aux_sym_entry_statement_token1] = ACTIONS(5026),
-    [aux_sym_logical_expression_token5] = ACTIONS(5592),
-    [anon_sym_DOT] = ACTIONS(5026),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5592),
-    [anon_sym_LBRACK] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5592),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5592),
-    [aux_sym_null_literal_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5026),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5026),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5026),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5026),
-    [aux_sym_identifier_token1] = ACTIONS(5026),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5592),
-    [sym__float_literal] = ACTIONS(5592),
-    [sym__boz_literal] = ACTIONS(5592),
-    [sym__string_literal] = ACTIONS(5592),
-    [sym__string_literal_kind] = ACTIONS(5592),
-  },
-  [2648] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5748),
-    [aux_sym_preproc_def_token1] = ACTIONS(5748),
-    [aux_sym_preproc_if_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5748),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5748),
-    [sym_preproc_directive] = ACTIONS(5748),
-    [anon_sym_LPAREN2] = ACTIONS(5748),
-    [anon_sym_PLUS] = ACTIONS(5750),
-    [anon_sym_DASH] = ACTIONS(5750),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5748),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5748),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5748),
-    [aux_sym_use_statement_token2] = ACTIONS(5748),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5748),
-    [aux_sym_save_statement_token1] = ACTIONS(5748),
-    [aux_sym_private_statement_token1] = ACTIONS(5748),
-    [aux_sym_public_statement_token1] = ACTIONS(5748),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5748),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5748),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5748),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5748),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5748),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5748),
-    [anon_sym_SEMI] = ACTIONS(5750),
-    [aux_sym_stop_statement_token1] = ACTIONS(5748),
-    [aux_sym_stop_statement_token2] = ACTIONS(5748),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5748),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5748),
-    [aux_sym_include_statement_token1] = ACTIONS(5748),
-    [aux_sym_data_statement_token1] = ACTIONS(5748),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5748),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5748),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5748),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5748),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5748),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5748),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5748),
-    [aux_sym_block_construct_token1] = ACTIONS(5748),
-    [aux_sym_associate_statement_token1] = ACTIONS(5748),
-    [aux_sym_format_statement_token1] = ACTIONS(5748),
-    [aux_sym_print_statement_token1] = ACTIONS(5748),
-    [aux_sym_open_statement_token1] = ACTIONS(5748),
-    [aux_sym_close_statement_token1] = ACTIONS(5748),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5748),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5748),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5748),
-    [aux_sym_entry_statement_token1] = ACTIONS(5748),
-    [aux_sym_logical_expression_token5] = ACTIONS(5750),
-    [anon_sym_DOT] = ACTIONS(5748),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5750),
-    [anon_sym_LBRACK] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5750),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5750),
-    [aux_sym_null_literal_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5748),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5748),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5748),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5748),
-    [aux_sym_identifier_token1] = ACTIONS(5748),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5750),
-    [sym__float_literal] = ACTIONS(5750),
-    [sym__boz_literal] = ACTIONS(5750),
-    [sym__string_literal] = ACTIONS(5750),
-    [sym__string_literal_kind] = ACTIONS(5750),
-  },
-  [2649] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5068),
-    [aux_sym_preproc_def_token1] = ACTIONS(5068),
-    [aux_sym_preproc_if_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5068),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5068),
-    [sym_preproc_directive] = ACTIONS(5068),
-    [anon_sym_LPAREN2] = ACTIONS(5068),
-    [anon_sym_PLUS] = ACTIONS(5638),
-    [anon_sym_DASH] = ACTIONS(5638),
+  [2583] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5618),
+    [aux_sym_preproc_def_token1] = ACTIONS(5618),
+    [aux_sym_preproc_if_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5618),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5618),
+    [sym_preproc_directive] = ACTIONS(5618),
+    [anon_sym_LPAREN2] = ACTIONS(5618),
+    [sym_preproc_comment] = ACTIONS(6688),
+    [anon_sym_PLUS] = ACTIONS(5622),
+    [anon_sym_DASH] = ACTIONS(5622),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5068),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5068),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5068),
-    [aux_sym_use_statement_token2] = ACTIONS(5068),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5068),
-    [aux_sym_save_statement_token1] = ACTIONS(5068),
-    [aux_sym_private_statement_token1] = ACTIONS(5068),
-    [aux_sym_public_statement_token1] = ACTIONS(5068),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5068),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5068),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5068),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5068),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5068),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5068),
-    [anon_sym_SEMI] = ACTIONS(5638),
-    [aux_sym_stop_statement_token1] = ACTIONS(5068),
-    [aux_sym_stop_statement_token2] = ACTIONS(5068),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5068),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5068),
-    [aux_sym_include_statement_token1] = ACTIONS(5068),
-    [aux_sym_data_statement_token1] = ACTIONS(5068),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5068),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5068),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5068),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5068),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5068),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5068),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5068),
-    [aux_sym_block_construct_token1] = ACTIONS(5068),
-    [aux_sym_associate_statement_token1] = ACTIONS(5068),
-    [aux_sym_format_statement_token1] = ACTIONS(5068),
-    [aux_sym_print_statement_token1] = ACTIONS(5068),
-    [aux_sym_open_statement_token1] = ACTIONS(5068),
-    [aux_sym_close_statement_token1] = ACTIONS(5068),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5068),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5068),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5068),
-    [aux_sym_entry_statement_token1] = ACTIONS(5068),
-    [aux_sym_logical_expression_token5] = ACTIONS(5638),
-    [anon_sym_DOT] = ACTIONS(5068),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
-    [anon_sym_LBRACK] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
-    [aux_sym_null_literal_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5068),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5068),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5068),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5068),
-    [aux_sym_identifier_token1] = ACTIONS(5068),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5618),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5618),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5618),
+    [aux_sym_use_statement_token2] = ACTIONS(5618),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5618),
+    [aux_sym_save_statement_token1] = ACTIONS(5618),
+    [aux_sym_private_statement_token1] = ACTIONS(5618),
+    [aux_sym_public_statement_token1] = ACTIONS(5618),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5618),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5618),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5618),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5618),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5618),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5618),
+    [anon_sym_SEMI] = ACTIONS(5622),
+    [aux_sym_stop_statement_token1] = ACTIONS(5618),
+    [aux_sym_stop_statement_token2] = ACTIONS(5618),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5618),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5618),
+    [aux_sym_include_statement_token1] = ACTIONS(5618),
+    [aux_sym_data_statement_token1] = ACTIONS(5618),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5618),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5618),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5618),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5618),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5618),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5618),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5618),
+    [aux_sym_block_construct_token1] = ACTIONS(5618),
+    [aux_sym_associate_statement_token1] = ACTIONS(5618),
+    [aux_sym_format_statement_token1] = ACTIONS(5618),
+    [aux_sym_print_statement_token1] = ACTIONS(5618),
+    [aux_sym_open_statement_token1] = ACTIONS(5618),
+    [aux_sym_close_statement_token1] = ACTIONS(5618),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5618),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5618),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5618),
+    [aux_sym_entry_statement_token1] = ACTIONS(5618),
+    [aux_sym_logical_expression_token5] = ACTIONS(5622),
+    [anon_sym_DOT] = ACTIONS(5618),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5622),
+    [anon_sym_LBRACK] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5622),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5622),
+    [aux_sym_null_literal_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5618),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5618),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5618),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5618),
+    [aux_sym_identifier_token1] = ACTIONS(5618),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5638),
-    [sym__float_literal] = ACTIONS(5638),
-    [sym__boz_literal] = ACTIONS(5638),
-    [sym__string_literal] = ACTIONS(5638),
-    [sym__string_literal_kind] = ACTIONS(5638),
+    [sym__integer_literal] = ACTIONS(5622),
+    [sym__float_literal] = ACTIONS(5622),
+    [sym__boz_literal] = ACTIONS(5622),
+    [sym__string_literal] = ACTIONS(5622),
+    [sym__string_literal_kind] = ACTIONS(5622),
   },
-  [2650] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4349),
-    [aux_sym_preproc_def_token1] = ACTIONS(4349),
-    [aux_sym_preproc_if_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4349),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4349),
-    [sym_preproc_directive] = ACTIONS(4349),
-    [anon_sym_LPAREN2] = ACTIONS(4349),
-    [anon_sym_PLUS] = ACTIONS(5576),
-    [anon_sym_DASH] = ACTIONS(5576),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4349),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4349),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4349),
-    [aux_sym_use_statement_token2] = ACTIONS(4349),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4349),
-    [aux_sym_save_statement_token1] = ACTIONS(4349),
-    [aux_sym_private_statement_token1] = ACTIONS(4349),
-    [aux_sym_public_statement_token1] = ACTIONS(4349),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4349),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4349),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4349),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4349),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4349),
-    [anon_sym_SEMI] = ACTIONS(5576),
-    [aux_sym_stop_statement_token1] = ACTIONS(4349),
-    [aux_sym_stop_statement_token2] = ACTIONS(4349),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4349),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4349),
-    [aux_sym_include_statement_token1] = ACTIONS(4349),
-    [aux_sym_data_statement_token1] = ACTIONS(4349),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4349),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4349),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4349),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4349),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4349),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4349),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4349),
-    [aux_sym_block_construct_token1] = ACTIONS(4349),
-    [aux_sym_associate_statement_token1] = ACTIONS(4349),
-    [aux_sym_format_statement_token1] = ACTIONS(4349),
-    [aux_sym_print_statement_token1] = ACTIONS(4349),
-    [aux_sym_open_statement_token1] = ACTIONS(4349),
-    [aux_sym_close_statement_token1] = ACTIONS(4349),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4349),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4349),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4349),
-    [aux_sym_entry_statement_token1] = ACTIONS(4349),
-    [aux_sym_logical_expression_token5] = ACTIONS(5576),
-    [anon_sym_DOT] = ACTIONS(4349),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5576),
-    [anon_sym_LBRACK] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5576),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5576),
-    [aux_sym_null_literal_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4349),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4349),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4349),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4349),
-    [aux_sym_identifier_token1] = ACTIONS(4349),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5576),
-    [sym__float_literal] = ACTIONS(5576),
-    [sym__boz_literal] = ACTIONS(5576),
-    [sym__string_literal] = ACTIONS(5576),
-    [sym__string_literal_kind] = ACTIONS(5576),
+  [2584] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2651] = {
+  [2585] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2586] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2587] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2588] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2589] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4317),
     [aux_sym_preproc_def_token1] = ACTIONS(4317),
     [aux_sym_preproc_if_token1] = ACTIONS(4317),
@@ -421635,8 +415302,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
     [sym_preproc_directive] = ACTIONS(4317),
     [anon_sym_LPAREN2] = ACTIONS(4317),
-    [anon_sym_PLUS] = ACTIONS(5572),
-    [anon_sym_DASH] = ACTIONS(5572),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4317),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
@@ -421667,7 +415334,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
     [aux_sym_type_qualifier_token1] = ACTIONS(4317),
     [aux_sym_type_qualifier_token2] = ACTIONS(4317),
-    [anon_sym_SEMI] = ACTIONS(5572),
+    [anon_sym_SEMI] = ACTIONS(5630),
     [aux_sym_stop_statement_token1] = ACTIONS(4317),
     [aux_sym_stop_statement_token2] = ACTIONS(4317),
     [aux_sym_subroutine_call_token1] = ACTIONS(4317),
@@ -421680,6 +415347,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_include_statement_token1] = ACTIONS(4317),
     [aux_sym_data_statement_token1] = ACTIONS(4317),
     [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(4317),
     [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
     [aux_sym_end_if_statement_token1] = ACTIONS(4317),
     [aux_sym_elseif_clause_token2] = ACTIONS(4317),
@@ -421702,12 +415370,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4317),
     [aux_sym_allocate_statement_token1] = ACTIONS(4317),
     [aux_sym_entry_statement_token1] = ACTIONS(4317),
-    [aux_sym_logical_expression_token5] = ACTIONS(5572),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
     [anon_sym_DOT] = ACTIONS(4317),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5572),
-    [anon_sym_LBRACK] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5572),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5572),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
     [aux_sym_null_literal_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token1] = ACTIONS(4317),
     [aux_sym_coarray_statement_token2] = ACTIONS(4317),
@@ -421720,13 +415388,313 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
     [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5572),
-    [sym__float_literal] = ACTIONS(5572),
-    [sym__boz_literal] = ACTIONS(5572),
-    [sym__string_literal] = ACTIONS(5572),
-    [sym__string_literal_kind] = ACTIONS(5572),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2652] = {
+  [2590] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
+  },
+  [2591] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
+  },
+  [2592] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2593] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5824),
     [aux_sym_preproc_def_token1] = ACTIONS(5824),
     [aux_sym_preproc_if_token1] = ACTIONS(5824),
@@ -421816,6 +415784,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5824),
     [aux_sym_coarray_statement_token13] = ACTIONS(5824),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5824),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
     [aux_sym_identifier_token1] = ACTIONS(5824),
     [sym_comment] = ACTIONS(21),
@@ -421825,791 +415794,1099 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5826),
     [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2653] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5760),
-    [aux_sym_preproc_def_token1] = ACTIONS(5760),
-    [aux_sym_preproc_if_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5760),
-    [sym_preproc_directive] = ACTIONS(5760),
-    [anon_sym_LPAREN2] = ACTIONS(5760),
-    [anon_sym_PLUS] = ACTIONS(5762),
-    [anon_sym_DASH] = ACTIONS(5762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5760),
-    [aux_sym_use_statement_token2] = ACTIONS(5760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5760),
-    [aux_sym_save_statement_token1] = ACTIONS(5760),
-    [aux_sym_private_statement_token1] = ACTIONS(5760),
-    [aux_sym_public_statement_token1] = ACTIONS(5760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5760),
-    [anon_sym_SEMI] = ACTIONS(5762),
-    [aux_sym_stop_statement_token1] = ACTIONS(5760),
-    [aux_sym_stop_statement_token2] = ACTIONS(5760),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5760),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5760),
-    [aux_sym_include_statement_token1] = ACTIONS(5760),
-    [aux_sym_data_statement_token1] = ACTIONS(5760),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5760),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5760),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5760),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5760),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5760),
-    [aux_sym_block_construct_token1] = ACTIONS(5760),
-    [aux_sym_associate_statement_token1] = ACTIONS(5760),
-    [aux_sym_format_statement_token1] = ACTIONS(5760),
-    [aux_sym_print_statement_token1] = ACTIONS(5760),
-    [aux_sym_open_statement_token1] = ACTIONS(5760),
-    [aux_sym_close_statement_token1] = ACTIONS(5760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5760),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5760),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5760),
-    [aux_sym_entry_statement_token1] = ACTIONS(5760),
-    [aux_sym_logical_expression_token5] = ACTIONS(5762),
-    [anon_sym_DOT] = ACTIONS(5760),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5762),
-    [anon_sym_LBRACK] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5762),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5762),
-    [aux_sym_null_literal_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5760),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5760),
-    [aux_sym_identifier_token1] = ACTIONS(5760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5762),
-    [sym__float_literal] = ACTIONS(5762),
-    [sym__boz_literal] = ACTIONS(5762),
-    [sym__string_literal] = ACTIONS(5762),
-    [sym__string_literal_kind] = ACTIONS(5762),
-  },
-  [2654] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_LPAREN2] = ACTIONS(4405),
-    [anon_sym_PLUS] = ACTIONS(4407),
-    [anon_sym_DASH] = ACTIONS(4407),
+  [2594] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [anon_sym_SEMI] = ACTIONS(4407),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4405),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4405),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_associate_statement_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_print_statement_token1] = ACTIONS(4405),
-    [aux_sym_open_statement_token1] = ACTIONS(4405),
-    [aux_sym_close_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4405),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4405),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_logical_expression_token5] = ACTIONS(4407),
-    [anon_sym_DOT] = ACTIONS(4405),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4407),
-    [anon_sym_LBRACK] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4407),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4407),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
-    [sym__float_literal] = ACTIONS(4407),
-    [sym__boz_literal] = ACTIONS(4407),
-    [sym__string_literal] = ACTIONS(4407),
-    [sym__string_literal_kind] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2655] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5100),
-    [aux_sym_preproc_def_token1] = ACTIONS(5100),
-    [aux_sym_preproc_if_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
-    [sym_preproc_directive] = ACTIONS(5100),
-    [anon_sym_LPAREN2] = ACTIONS(5100),
-    [anon_sym_PLUS] = ACTIONS(5640),
-    [anon_sym_DASH] = ACTIONS(5640),
+  [2595] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2596] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
-    [aux_sym_use_statement_token2] = ACTIONS(5100),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
-    [aux_sym_save_statement_token1] = ACTIONS(5100),
-    [aux_sym_private_statement_token1] = ACTIONS(5100),
-    [aux_sym_public_statement_token1] = ACTIONS(5100),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
-    [anon_sym_SEMI] = ACTIONS(5640),
-    [aux_sym_stop_statement_token1] = ACTIONS(5100),
-    [aux_sym_stop_statement_token2] = ACTIONS(5100),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5100),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5100),
-    [aux_sym_include_statement_token1] = ACTIONS(5100),
-    [aux_sym_data_statement_token1] = ACTIONS(5100),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5100),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5100),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5100),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5100),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5100),
-    [aux_sym_block_construct_token1] = ACTIONS(5100),
-    [aux_sym_associate_statement_token1] = ACTIONS(5100),
-    [aux_sym_format_statement_token1] = ACTIONS(5100),
-    [aux_sym_print_statement_token1] = ACTIONS(5100),
-    [aux_sym_open_statement_token1] = ACTIONS(5100),
-    [aux_sym_close_statement_token1] = ACTIONS(5100),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5100),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5100),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5100),
-    [aux_sym_entry_statement_token1] = ACTIONS(5100),
-    [aux_sym_logical_expression_token5] = ACTIONS(5640),
-    [anon_sym_DOT] = ACTIONS(5100),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5640),
-    [anon_sym_LBRACK] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5640),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5640),
-    [aux_sym_null_literal_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5100),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
-    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5640),
-    [sym__float_literal] = ACTIONS(5640),
-    [sym__boz_literal] = ACTIONS(5640),
-    [sym__string_literal] = ACTIONS(5640),
-    [sym__string_literal_kind] = ACTIONS(5640),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2656] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
-    [anon_sym_LPAREN2] = ACTIONS(4409),
-    [anon_sym_PLUS] = ACTIONS(4411),
-    [anon_sym_DASH] = ACTIONS(4411),
+  [2597] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [anon_sym_SEMI] = ACTIONS(4411),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4409),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4409),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_associate_statement_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_print_statement_token1] = ACTIONS(4409),
-    [aux_sym_open_statement_token1] = ACTIONS(4409),
-    [aux_sym_close_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4409),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4409),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_logical_expression_token5] = ACTIONS(4411),
-    [anon_sym_DOT] = ACTIONS(4409),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4411),
-    [anon_sym_LBRACK] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4411),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4411),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-    [sym__float_literal] = ACTIONS(4411),
-    [sym__boz_literal] = ACTIONS(4411),
-    [sym__string_literal] = ACTIONS(4411),
-    [sym__string_literal_kind] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2657] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_LPAREN2] = ACTIONS(4413),
-    [anon_sym_PLUS] = ACTIONS(4415),
-    [anon_sym_DASH] = ACTIONS(4415),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [anon_sym_SEMI] = ACTIONS(4415),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4413),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4413),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_associate_statement_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_print_statement_token1] = ACTIONS(4413),
-    [aux_sym_open_statement_token1] = ACTIONS(4413),
-    [aux_sym_close_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4413),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4413),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_logical_expression_token5] = ACTIONS(4415),
-    [anon_sym_DOT] = ACTIONS(4413),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4415),
-    [anon_sym_LBRACK] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4415),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4415),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+  [2598] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2599] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-    [sym__float_literal] = ACTIONS(4415),
-    [sym__boz_literal] = ACTIONS(4415),
-    [sym__string_literal] = ACTIONS(4415),
-    [sym__string_literal_kind] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2658] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5828),
-    [aux_sym_preproc_def_token1] = ACTIONS(5828),
-    [aux_sym_preproc_if_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5828),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5828),
-    [sym_preproc_directive] = ACTIONS(5828),
-    [anon_sym_LPAREN2] = ACTIONS(5828),
-    [anon_sym_PLUS] = ACTIONS(5830),
-    [anon_sym_DASH] = ACTIONS(5830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5828),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5828),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5828),
-    [aux_sym_use_statement_token2] = ACTIONS(5828),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5828),
-    [aux_sym_save_statement_token1] = ACTIONS(5828),
-    [aux_sym_private_statement_token1] = ACTIONS(5828),
-    [aux_sym_public_statement_token1] = ACTIONS(5828),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5828),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5828),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5828),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5828),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5828),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5828),
-    [anon_sym_SEMI] = ACTIONS(5830),
-    [aux_sym_stop_statement_token1] = ACTIONS(5828),
-    [aux_sym_stop_statement_token2] = ACTIONS(5828),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5828),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5828),
-    [aux_sym_include_statement_token1] = ACTIONS(5828),
-    [aux_sym_data_statement_token1] = ACTIONS(5828),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5828),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5828),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5828),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5828),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5828),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5828),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5828),
-    [aux_sym_block_construct_token1] = ACTIONS(5828),
-    [aux_sym_associate_statement_token1] = ACTIONS(5828),
-    [aux_sym_format_statement_token1] = ACTIONS(5828),
-    [aux_sym_print_statement_token1] = ACTIONS(5828),
-    [aux_sym_open_statement_token1] = ACTIONS(5828),
-    [aux_sym_close_statement_token1] = ACTIONS(5828),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5828),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5828),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5828),
-    [aux_sym_entry_statement_token1] = ACTIONS(5828),
-    [aux_sym_logical_expression_token5] = ACTIONS(5830),
-    [anon_sym_DOT] = ACTIONS(5828),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5830),
-    [anon_sym_LBRACK] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5830),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5830),
-    [aux_sym_null_literal_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5828),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5828),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5828),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5828),
-    [aux_sym_identifier_token1] = ACTIONS(5828),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5830),
-    [sym__float_literal] = ACTIONS(5830),
-    [sym__boz_literal] = ACTIONS(5830),
-    [sym__string_literal] = ACTIONS(5830),
-    [sym__string_literal_kind] = ACTIONS(5830),
+  [2600] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2659] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5792),
-    [aux_sym_preproc_def_token1] = ACTIONS(5792),
-    [aux_sym_preproc_if_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5792),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5792),
-    [sym_preproc_directive] = ACTIONS(5792),
-    [anon_sym_LPAREN2] = ACTIONS(5792),
-    [anon_sym_PLUS] = ACTIONS(5794),
-    [anon_sym_DASH] = ACTIONS(5794),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5792),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5792),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5792),
-    [aux_sym_use_statement_token2] = ACTIONS(5792),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5792),
-    [aux_sym_save_statement_token1] = ACTIONS(5792),
-    [aux_sym_private_statement_token1] = ACTIONS(5792),
-    [aux_sym_public_statement_token1] = ACTIONS(5792),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5792),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5792),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5792),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5792),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5792),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5792),
-    [anon_sym_SEMI] = ACTIONS(5794),
-    [aux_sym_stop_statement_token1] = ACTIONS(5792),
-    [aux_sym_stop_statement_token2] = ACTIONS(5792),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5792),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5792),
-    [aux_sym_include_statement_token1] = ACTIONS(5792),
-    [aux_sym_data_statement_token1] = ACTIONS(5792),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5792),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5792),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5792),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5792),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5792),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5792),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5792),
-    [aux_sym_block_construct_token1] = ACTIONS(5792),
-    [aux_sym_associate_statement_token1] = ACTIONS(5792),
-    [aux_sym_format_statement_token1] = ACTIONS(5792),
-    [aux_sym_print_statement_token1] = ACTIONS(5792),
-    [aux_sym_open_statement_token1] = ACTIONS(5792),
-    [aux_sym_close_statement_token1] = ACTIONS(5792),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5792),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5792),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5792),
-    [aux_sym_entry_statement_token1] = ACTIONS(5792),
-    [aux_sym_logical_expression_token5] = ACTIONS(5794),
-    [anon_sym_DOT] = ACTIONS(5792),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5794),
-    [anon_sym_LBRACK] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5794),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5794),
-    [aux_sym_null_literal_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5792),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5792),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5792),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5792),
-    [aux_sym_identifier_token1] = ACTIONS(5792),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5794),
-    [sym__float_literal] = ACTIONS(5794),
-    [sym__boz_literal] = ACTIONS(5794),
-    [sym__string_literal] = ACTIONS(5794),
-    [sym__string_literal_kind] = ACTIONS(5794),
+  [2601] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
   },
-  [2660] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(2079),
-    [aux_sym_preproc_def_token1] = ACTIONS(2079),
-    [aux_sym_preproc_if_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
-    [sym_preproc_directive] = ACTIONS(2079),
-    [anon_sym_LPAREN2] = ACTIONS(2079),
+  [2602] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
+  },
+  [2603] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2604] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
     [anon_sym_PLUS] = ACTIONS(5690),
     [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
-    [aux_sym_use_statement_token2] = ACTIONS(2079),
-    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
-    [aux_sym_save_statement_token1] = ACTIONS(2079),
-    [aux_sym_private_statement_token1] = ACTIONS(2079),
-    [aux_sym_public_statement_token1] = ACTIONS(2079),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
-    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
-    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
     [anon_sym_SEMI] = ACTIONS(5690),
-    [aux_sym_stop_statement_token1] = ACTIONS(2079),
-    [aux_sym_stop_statement_token2] = ACTIONS(2079),
-    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
-    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
-    [aux_sym_include_statement_token1] = ACTIONS(2079),
-    [aux_sym_data_statement_token1] = ACTIONS(2079),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
-    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
-    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
-    [aux_sym_block_construct_token1] = ACTIONS(2079),
-    [aux_sym_associate_statement_token1] = ACTIONS(2079),
-    [aux_sym_format_statement_token1] = ACTIONS(2079),
-    [aux_sym_print_statement_token1] = ACTIONS(2079),
-    [aux_sym_open_statement_token1] = ACTIONS(2079),
-    [aux_sym_close_statement_token1] = ACTIONS(2079),
-    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
-    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
-    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
-    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
     [aux_sym_logical_expression_token5] = ACTIONS(5690),
-    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_DOT] = ACTIONS(5688),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
     [anon_sym_LBRACK] = ACTIONS(5690),
     [aux_sym_boolean_literal_token1] = ACTIONS(5690),
     [aux_sym_boolean_literal_token2] = ACTIONS(5690),
-    [aux_sym_null_literal_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
-    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
-    [aux_sym_identifier_token1] = ACTIONS(2079),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5690),
     [sym__float_literal] = ACTIONS(5690),
@@ -422617,7 +416894,107 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5690),
     [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2661] = {
+  [2605] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2606] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4525),
     [aux_sym_preproc_def_token1] = ACTIONS(4525),
     [aux_sym_preproc_if_token1] = ACTIONS(4525),
@@ -422625,8 +417002,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
     [sym_preproc_directive] = ACTIONS(4525),
     [anon_sym_LPAREN2] = ACTIONS(4525),
-    [anon_sym_PLUS] = ACTIONS(5584),
-    [anon_sym_DASH] = ACTIONS(5584),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(4525),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
@@ -422657,7 +417034,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
     [aux_sym_type_qualifier_token1] = ACTIONS(4525),
     [aux_sym_type_qualifier_token2] = ACTIONS(4525),
-    [anon_sym_SEMI] = ACTIONS(5584),
+    [anon_sym_SEMI] = ACTIONS(5626),
     [aux_sym_stop_statement_token1] = ACTIONS(4525),
     [aux_sym_stop_statement_token2] = ACTIONS(4525),
     [aux_sym_subroutine_call_token1] = ACTIONS(4525),
@@ -422681,6 +417058,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
     [aux_sym_block_construct_token1] = ACTIONS(4525),
     [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4525),
     [aux_sym_format_statement_token1] = ACTIONS(4525),
     [aux_sym_print_statement_token1] = ACTIONS(4525),
     [aux_sym_open_statement_token1] = ACTIONS(4525),
@@ -422692,12 +417070,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_file_position_statement_token4] = ACTIONS(4525),
     [aux_sym_allocate_statement_token1] = ACTIONS(4525),
     [aux_sym_entry_statement_token1] = ACTIONS(4525),
-    [aux_sym_logical_expression_token5] = ACTIONS(5584),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
     [anon_sym_DOT] = ACTIONS(4525),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5584),
-    [anon_sym_LBRACK] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5584),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5584),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
     [aux_sym_null_literal_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token1] = ACTIONS(4525),
     [aux_sym_coarray_statement_token2] = ACTIONS(4525),
@@ -422710,4781 +417088,6415 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
     [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5584),
-    [sym__float_literal] = ACTIONS(5584),
-    [sym__boz_literal] = ACTIONS(5584),
-    [sym__string_literal] = ACTIONS(5584),
-    [sym__string_literal_kind] = ACTIONS(5584),
-  },
-  [2662] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5798),
-    [aux_sym_preproc_def_token1] = ACTIONS(5798),
-    [aux_sym_preproc_if_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5798),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5798),
-    [sym_preproc_directive] = ACTIONS(5798),
-    [anon_sym_LPAREN2] = ACTIONS(5798),
-    [anon_sym_PLUS] = ACTIONS(5800),
-    [anon_sym_DASH] = ACTIONS(5800),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5798),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5798),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5798),
-    [aux_sym_use_statement_token2] = ACTIONS(5798),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5798),
-    [aux_sym_save_statement_token1] = ACTIONS(5798),
-    [aux_sym_private_statement_token1] = ACTIONS(5798),
-    [aux_sym_public_statement_token1] = ACTIONS(5798),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5798),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5798),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5798),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5798),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5798),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5798),
-    [anon_sym_SEMI] = ACTIONS(5800),
-    [aux_sym_stop_statement_token1] = ACTIONS(5798),
-    [aux_sym_stop_statement_token2] = ACTIONS(5798),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5798),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5798),
-    [aux_sym_include_statement_token1] = ACTIONS(5798),
-    [aux_sym_data_statement_token1] = ACTIONS(5798),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5798),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5798),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5798),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5798),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5798),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5798),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5798),
-    [aux_sym_block_construct_token1] = ACTIONS(5798),
-    [aux_sym_associate_statement_token1] = ACTIONS(5798),
-    [aux_sym_format_statement_token1] = ACTIONS(5798),
-    [aux_sym_print_statement_token1] = ACTIONS(5798),
-    [aux_sym_open_statement_token1] = ACTIONS(5798),
-    [aux_sym_close_statement_token1] = ACTIONS(5798),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5798),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5798),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5798),
-    [aux_sym_entry_statement_token1] = ACTIONS(5798),
-    [aux_sym_logical_expression_token5] = ACTIONS(5800),
-    [anon_sym_DOT] = ACTIONS(5798),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5800),
-    [anon_sym_LBRACK] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5800),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5800),
-    [aux_sym_null_literal_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5798),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5798),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5798),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5798),
-    [aux_sym_identifier_token1] = ACTIONS(5798),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5800),
-    [sym__float_literal] = ACTIONS(5800),
-    [sym__boz_literal] = ACTIONS(5800),
-    [sym__string_literal] = ACTIONS(5800),
-    [sym__string_literal_kind] = ACTIONS(5800),
-  },
-  [2663] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_LPAREN2] = ACTIONS(4629),
-    [anon_sym_PLUS] = ACTIONS(4631),
-    [anon_sym_DASH] = ACTIONS(4631),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [anon_sym_SEMI] = ACTIONS(4631),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4629),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4629),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_associate_statement_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_print_statement_token1] = ACTIONS(4629),
-    [aux_sym_open_statement_token1] = ACTIONS(4629),
-    [aux_sym_close_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4629),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4629),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_logical_expression_token5] = ACTIONS(4631),
-    [anon_sym_DOT] = ACTIONS(4629),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4631),
-    [anon_sym_LBRACK] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4631),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4631),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-    [sym__float_literal] = ACTIONS(4631),
-    [sym__boz_literal] = ACTIONS(4631),
-    [sym__string_literal] = ACTIONS(4631),
-    [sym__string_literal_kind] = ACTIONS(4631),
-  },
-  [2664] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5002),
-    [aux_sym_preproc_def_token1] = ACTIONS(5002),
-    [aux_sym_preproc_if_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5002),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5002),
-    [sym_preproc_directive] = ACTIONS(5002),
-    [anon_sym_LPAREN2] = ACTIONS(5002),
-    [anon_sym_PLUS] = ACTIONS(5588),
-    [anon_sym_DASH] = ACTIONS(5588),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5002),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5002),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5002),
-    [aux_sym_use_statement_token2] = ACTIONS(5002),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5002),
-    [aux_sym_save_statement_token1] = ACTIONS(5002),
-    [aux_sym_private_statement_token1] = ACTIONS(5002),
-    [aux_sym_public_statement_token1] = ACTIONS(5002),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5002),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5002),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5002),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5002),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5002),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5002),
-    [anon_sym_SEMI] = ACTIONS(5588),
-    [aux_sym_stop_statement_token1] = ACTIONS(5002),
-    [aux_sym_stop_statement_token2] = ACTIONS(5002),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5002),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5002),
-    [aux_sym_include_statement_token1] = ACTIONS(5002),
-    [aux_sym_data_statement_token1] = ACTIONS(5002),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5002),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5002),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5002),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5002),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5002),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5002),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5002),
-    [aux_sym_block_construct_token1] = ACTIONS(5002),
-    [aux_sym_associate_statement_token1] = ACTIONS(5002),
-    [aux_sym_format_statement_token1] = ACTIONS(5002),
-    [aux_sym_print_statement_token1] = ACTIONS(5002),
-    [aux_sym_open_statement_token1] = ACTIONS(5002),
-    [aux_sym_close_statement_token1] = ACTIONS(5002),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5002),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5002),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5002),
-    [aux_sym_entry_statement_token1] = ACTIONS(5002),
-    [aux_sym_logical_expression_token5] = ACTIONS(5588),
-    [anon_sym_DOT] = ACTIONS(5002),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5588),
-    [anon_sym_LBRACK] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5588),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5588),
-    [aux_sym_null_literal_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5002),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5002),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5002),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5002),
-    [aux_sym_identifier_token1] = ACTIONS(5002),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5588),
-    [sym__float_literal] = ACTIONS(5588),
-    [sym__boz_literal] = ACTIONS(5588),
-    [sym__string_literal] = ACTIONS(5588),
-    [sym__string_literal_kind] = ACTIONS(5588),
-  },
-  [2665] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_LPAREN2] = ACTIONS(4637),
-    [anon_sym_PLUS] = ACTIONS(4639),
-    [anon_sym_DASH] = ACTIONS(4639),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [anon_sym_SEMI] = ACTIONS(4639),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4637),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4637),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_associate_statement_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_print_statement_token1] = ACTIONS(4637),
-    [aux_sym_open_statement_token1] = ACTIONS(4637),
-    [aux_sym_close_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4637),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4637),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_logical_expression_token5] = ACTIONS(4639),
-    [anon_sym_DOT] = ACTIONS(4637),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4639),
-    [anon_sym_LBRACK] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4639),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4639),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-    [sym__float_literal] = ACTIONS(4639),
-    [sym__boz_literal] = ACTIONS(4639),
-    [sym__string_literal] = ACTIONS(4639),
-    [sym__string_literal_kind] = ACTIONS(4639),
-  },
-  [2666] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_LPAREN2] = ACTIONS(4401),
-    [anon_sym_PLUS] = ACTIONS(4403),
-    [anon_sym_DASH] = ACTIONS(4403),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [anon_sym_SEMI] = ACTIONS(4403),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4401),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4401),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_associate_statement_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_print_statement_token1] = ACTIONS(4401),
-    [aux_sym_open_statement_token1] = ACTIONS(4401),
-    [aux_sym_close_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4401),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4401),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_logical_expression_token5] = ACTIONS(4403),
-    [anon_sym_DOT] = ACTIONS(4401),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4403),
-    [anon_sym_LBRACK] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4403),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4403),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-    [sym__float_literal] = ACTIONS(4403),
-    [sym__boz_literal] = ACTIONS(4403),
-    [sym__string_literal] = ACTIONS(4403),
-    [sym__string_literal_kind] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2667] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5818),
-    [aux_sym_preproc_def_token1] = ACTIONS(5818),
-    [aux_sym_preproc_if_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5818),
-    [sym_preproc_directive] = ACTIONS(5818),
-    [anon_sym_LPAREN2] = ACTIONS(5818),
-    [anon_sym_PLUS] = ACTIONS(5820),
-    [anon_sym_DASH] = ACTIONS(5820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5818),
-    [aux_sym_use_statement_token2] = ACTIONS(5818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5818),
-    [aux_sym_save_statement_token1] = ACTIONS(5818),
-    [aux_sym_private_statement_token1] = ACTIONS(5818),
-    [aux_sym_public_statement_token1] = ACTIONS(5818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5818),
-    [anon_sym_SEMI] = ACTIONS(5820),
-    [aux_sym_stop_statement_token1] = ACTIONS(5818),
-    [aux_sym_stop_statement_token2] = ACTIONS(5818),
-    [aux_sym_subroutine_call_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token1] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token4] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token6] = ACTIONS(5818),
-    [aux_sym_keyword_statement_token7] = ACTIONS(5818),
-    [aux_sym_include_statement_token1] = ACTIONS(5818),
-    [aux_sym_data_statement_token1] = ACTIONS(5818),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(5818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5818),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(5818),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_case_statement_token3] = ACTIONS(5818),
-    [aux_sym_select_type_statement_token1] = ACTIONS(5818),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(5818),
-    [aux_sym_block_construct_token1] = ACTIONS(5818),
-    [aux_sym_associate_statement_token1] = ACTIONS(5818),
-    [aux_sym_format_statement_token1] = ACTIONS(5818),
-    [aux_sym_print_statement_token1] = ACTIONS(5818),
-    [aux_sym_open_statement_token1] = ACTIONS(5818),
-    [aux_sym_close_statement_token1] = ACTIONS(5818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token1] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token2] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token3] = ACTIONS(5818),
-    [aux_sym_file_position_statement_token4] = ACTIONS(5818),
-    [aux_sym_allocate_statement_token1] = ACTIONS(5818),
-    [aux_sym_entry_statement_token1] = ACTIONS(5818),
-    [aux_sym_logical_expression_token5] = ACTIONS(5820),
-    [anon_sym_DOT] = ACTIONS(5818),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5820),
-    [anon_sym_LBRACK] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5820),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5820),
-    [aux_sym_null_literal_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5818),
-    [aux_sym_coarray_statement_token13] = ACTIONS(5818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5818),
-    [aux_sym_identifier_token1] = ACTIONS(5818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5820),
-    [sym__float_literal] = ACTIONS(5820),
-    [sym__boz_literal] = ACTIONS(5820),
-    [sym__string_literal] = ACTIONS(5820),
-    [sym__string_literal_kind] = ACTIONS(5820),
+  [2607] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
   },
-  [2668] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_LPAREN2] = ACTIONS(4529),
-    [anon_sym_PLUS] = ACTIONS(4531),
-    [anon_sym_DASH] = ACTIONS(4531),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [anon_sym_SEMI] = ACTIONS(4531),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_subroutine_call_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token1] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token4] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token6] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token7] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(4529),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token3] = ACTIONS(4529),
-    [aux_sym_select_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_associate_statement_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_print_statement_token1] = ACTIONS(4529),
-    [aux_sym_open_statement_token1] = ACTIONS(4529),
-    [aux_sym_close_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token1] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token2] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token3] = ACTIONS(4529),
-    [aux_sym_file_position_statement_token4] = ACTIONS(4529),
-    [aux_sym_allocate_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_logical_expression_token5] = ACTIONS(4531),
-    [anon_sym_DOT] = ACTIONS(4529),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(4531),
-    [anon_sym_LBRACK] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token1] = ACTIONS(4531),
-    [aux_sym_boolean_literal_token2] = ACTIONS(4531),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token13] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-    [sym__float_literal] = ACTIONS(4531),
-    [sym__boz_literal] = ACTIONS(4531),
-    [sym__string_literal] = ACTIONS(4531),
-    [sym__string_literal_kind] = ACTIONS(4531),
+  [2608] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2669] = {
-    [sym_statement_label] = STATE(4019),
-    [sym_statement_label_reference] = STATE(7523),
-    [sym_format_identifier] = STATE(7662),
-    [sym__io_expressions] = STATE(7523),
-    [sym__expression] = STATE(4691),
-    [sym_parenthesized_expression] = STATE(4976),
-    [sym_derived_type_member_expression] = STATE(4976),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4976),
-    [sym_math_expression] = STATE(4976),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4976),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7291),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4976),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4927),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(6700),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4257),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [2609] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2670] = {
-    [sym__argument_list] = STATE(2550),
-    [sym_argument_list] = STATE(3409),
-    [anon_sym_LPAREN2] = ACTIONS(6702),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
+  [2610] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
   },
-  [2671] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
+  [2611] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2672] = {
-    [sym__expression] = STATE(4440),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_assumed_size] = STATE(7268),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_COMMA] = ACTIONS(6706),
-    [anon_sym_RPAREN] = ACTIONS(6706),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6708),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [2612] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2673] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token2] = ACTIONS(4293),
-    [aux_sym_preproc_else_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
-    [sym_preproc_comment] = ACTIONS(4295),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_interface_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
-    [aux_sym_language_binding_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
-    [aux_sym_common_statement_token1] = ACTIONS(4293),
-    [aux_sym_import_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
-    [aux_sym_derived_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_enum_statement_token1] = ACTIONS(4293),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
+  [2613] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2674] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token2] = ACTIONS(4285),
-    [aux_sym_preproc_else_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [sym_preproc_comment] = ACTIONS(4287),
+  [2614] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2675] = {
-    [sym_statement_label] = STATE(6542),
-    [sym_statement_label_reference] = STATE(6729),
-    [sym_format_identifier] = STATE(6911),
-    [sym__io_expressions] = STATE(6729),
-    [sym__expression] = STATE(4690),
-    [sym_parenthesized_expression] = STATE(4850),
-    [sym_derived_type_member_expression] = STATE(4850),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4850),
-    [sym_math_expression] = STATE(4850),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4850),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4850),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4850),
-    [anon_sym_LPAREN2] = ACTIONS(6710),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(6712),
+  [2615] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(5503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5505),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2676] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token2] = ACTIONS(4297),
-    [aux_sym_preproc_else_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [sym_preproc_comment] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
+  [2616] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
   },
-  [2677] = {
-    [sym__expression] = STATE(4482),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_assumed_size] = STATE(6537),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_COMMA] = ACTIONS(6714),
-    [anon_sym_RPAREN] = ACTIONS(6714),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(5914),
+  [2617] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
+  },
+  [2618] = {
+    [anon_sym_COMMA] = ACTIONS(6690),
+    [anon_sym_RPAREN] = ACTIONS(6690),
+    [anon_sym_LPAREN2] = ACTIONS(6690),
+    [anon_sym_PLUS] = ACTIONS(6690),
+    [anon_sym_DASH] = ACTIONS(6690),
+    [anon_sym_STAR] = ACTIONS(6692),
+    [anon_sym_SLASH] = ACTIONS(6692),
+    [anon_sym_PERCENT] = ACTIONS(6690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6716),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [anon_sym_EQ_EQ] = ACTIONS(6690),
+    [anon_sym_GT] = ACTIONS(6692),
+    [anon_sym_GT_EQ] = ACTIONS(6690),
+    [anon_sym_LT_EQ] = ACTIONS(6690),
+    [anon_sym_LT] = ACTIONS(6692),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6692),
+    [anon_sym_EQ] = ACTIONS(6692),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6692),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6692),
+    [aux_sym_language_binding_token1] = ACTIONS(6692),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6692),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6692),
+    [aux_sym_use_statement_token2] = ACTIONS(6692),
+    [anon_sym_COLON_COLON] = ACTIONS(6690),
+    [anon_sym_EQ_GT] = ACTIONS(6690),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6692),
+    [aux_sym_save_statement_token1] = ACTIONS(6692),
+    [aux_sym_private_statement_token1] = ACTIONS(6692),
+    [aux_sym_public_statement_token1] = ACTIONS(6692),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6692),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6692),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6692),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6692),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6692),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6692),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6692),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6692),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6692),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6692),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6692),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6692),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6692),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6692),
+    [aux_sym_stop_statement_token1] = ACTIONS(6692),
+    [aux_sym_stop_statement_token2] = ACTIONS(6692),
+    [anon_sym_GT_GT_GT] = ACTIONS(6690),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6692),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6692),
+    [aux_sym_data_statement_token1] = ACTIONS(6692),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6692),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6692),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6692),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6692),
+    [aux_sym_block_construct_token1] = ACTIONS(6692),
+    [aux_sym_format_statement_token1] = ACTIONS(6692),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6692),
+    [aux_sym_entry_statement_token1] = ACTIONS(6692),
+    [aux_sym_logical_expression_token1] = ACTIONS(6690),
+    [aux_sym_logical_expression_token2] = ACTIONS(6690),
+    [aux_sym_logical_expression_token3] = ACTIONS(6690),
+    [aux_sym_logical_expression_token4] = ACTIONS(6690),
+    [aux_sym_relational_expression_token1] = ACTIONS(6690),
+    [aux_sym_relational_expression_token2] = ACTIONS(6690),
+    [aux_sym_relational_expression_token3] = ACTIONS(6690),
+    [aux_sym_relational_expression_token4] = ACTIONS(6690),
+    [aux_sym_relational_expression_token5] = ACTIONS(6690),
+    [anon_sym_SLASH_EQ] = ACTIONS(6690),
+    [aux_sym_relational_expression_token6] = ACTIONS(6690),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6690),
+    [anon_sym_STAR_STAR] = ACTIONS(6690),
+    [anon_sym_DOT] = ACTIONS(6692),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6690),
+    [anon_sym_LBRACK] = ACTIONS(6690),
+    [anon_sym_RBRACK] = ACTIONS(6690),
+    [aux_sym_null_literal_token1] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6692),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6692),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6692),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6692),
+    [anon_sym_QMARK] = ACTIONS(6690),
+    [aux_sym_identifier_token1] = ACTIONS(6692),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2678] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token2] = ACTIONS(4289),
-    [aux_sym_preproc_else_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [sym_preproc_comment] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
+  [2619] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2679] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6718),
-    [aux_sym_preproc_def_token1] = ACTIONS(6718),
-    [aux_sym_preproc_if_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
-    [sym_preproc_directive] = ACTIONS(6718),
-    [sym_preproc_comment] = ACTIONS(6720),
+  [2620] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2621] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2622] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6718),
-    [aux_sym_interface_statement_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
-    [aux_sym_language_binding_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
-    [aux_sym_contains_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token2] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
-    [aux_sym_save_statement_token1] = ACTIONS(6718),
-    [aux_sym_private_statement_token1] = ACTIONS(6718),
-    [aux_sym_public_statement_token1] = ACTIONS(6718),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
-    [aux_sym_common_statement_token1] = ACTIONS(6718),
-    [aux_sym_import_statement_token1] = ACTIONS(6718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
-    [aux_sym_derived_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
-    [aux_sym_include_statement_token1] = ACTIONS(6718),
-    [aux_sym_data_statement_token1] = ACTIONS(6718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
-    [aux_sym_block_construct_token1] = ACTIONS(6718),
-    [aux_sym_format_statement_token1] = ACTIONS(6718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
-    [aux_sym_enum_statement_token1] = ACTIONS(6718),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
-    [aux_sym_entry_statement_token1] = ACTIONS(6718),
-    [aux_sym_null_literal_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
-    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6722),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2680] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6724),
-    [aux_sym_preproc_def_token1] = ACTIONS(6724),
-    [aux_sym_preproc_if_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
-    [sym_preproc_directive] = ACTIONS(6724),
-    [sym_preproc_comment] = ACTIONS(6726),
+  [2623] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6724),
-    [aux_sym_interface_statement_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
-    [aux_sym_language_binding_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
-    [aux_sym_contains_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token2] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
-    [aux_sym_save_statement_token1] = ACTIONS(6724),
-    [aux_sym_private_statement_token1] = ACTIONS(6724),
-    [aux_sym_public_statement_token1] = ACTIONS(6724),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
-    [aux_sym_common_statement_token1] = ACTIONS(6724),
-    [aux_sym_import_statement_token1] = ACTIONS(6724),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
-    [aux_sym_derived_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
-    [aux_sym_include_statement_token1] = ACTIONS(6724),
-    [aux_sym_data_statement_token1] = ACTIONS(6724),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
-    [aux_sym_block_construct_token1] = ACTIONS(6724),
-    [aux_sym_format_statement_token1] = ACTIONS(6724),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
-    [aux_sym_enum_statement_token1] = ACTIONS(6724),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
-    [aux_sym_entry_statement_token1] = ACTIONS(6724),
-    [aux_sym_null_literal_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
-    [aux_sym_identifier_token1] = ACTIONS(6724),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_end_block_construct_statement_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6728),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2681] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6730),
-    [aux_sym_preproc_def_token1] = ACTIONS(6730),
-    [aux_sym_preproc_if_token1] = ACTIONS(6730),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6730),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6730),
-    [sym_preproc_directive] = ACTIONS(6730),
-    [sym_preproc_comment] = ACTIONS(6732),
+  [2624] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2625] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6730),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6730),
-    [aux_sym_interface_statement_token1] = ACTIONS(6730),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6730),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6730),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6730),
-    [aux_sym_language_binding_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6730),
-    [aux_sym_contains_statement_token1] = ACTIONS(6730),
-    [aux_sym_use_statement_token1] = ACTIONS(6730),
-    [aux_sym_use_statement_token2] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6730),
-    [aux_sym_save_statement_token1] = ACTIONS(6730),
-    [aux_sym_private_statement_token1] = ACTIONS(6730),
-    [aux_sym_public_statement_token1] = ACTIONS(6730),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6730),
-    [aux_sym_common_statement_token1] = ACTIONS(6730),
-    [aux_sym_import_statement_token1] = ACTIONS(6730),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6730),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6730),
-    [aux_sym_derived_type_token1] = ACTIONS(6730),
-    [aux_sym_declared_type_token1] = ACTIONS(6730),
-    [aux_sym_declared_type_token2] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6730),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6730),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6730),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6730),
-    [aux_sym_stop_statement_token1] = ACTIONS(6730),
-    [aux_sym_stop_statement_token2] = ACTIONS(6730),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6730),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6730),
-    [aux_sym_include_statement_token1] = ACTIONS(6730),
-    [aux_sym_data_statement_token1] = ACTIONS(6730),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6730),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6730),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6730),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6730),
-    [aux_sym_block_construct_token1] = ACTIONS(6730),
-    [aux_sym_format_statement_token1] = ACTIONS(6730),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6730),
-    [aux_sym_enum_statement_token1] = ACTIONS(6730),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6730),
-    [aux_sym_entry_statement_token1] = ACTIONS(6730),
-    [aux_sym_null_literal_token1] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6730),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6730),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6730),
-    [aux_sym_identifier_token1] = ACTIONS(6730),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6734),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2682] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
-    [aux_sym_preproc_else_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
+  [2626] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
+  },
+  [2627] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2628] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
+  },
+  [2629] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
+  },
+  [2630] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
+  },
+  [2631] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
+  },
+  [2632] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
+  },
+  [2633] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2683] = {
-    [anon_sym_LPAREN2] = ACTIONS(6736),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
+  [2634] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
   },
-  [2684] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [aux_sym_preproc_else_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
+  [2635] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2685] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [aux_sym_preproc_else_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
+  [2636] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
   },
-  [2686] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [aux_sym_preproc_else_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
+  [2637] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2687] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [aux_sym_preproc_else_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
+  [2638] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2688] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [aux_sym_preproc_else_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
+  [2639] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2689] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [aux_sym_preproc_else_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
+  [2640] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_end_forall_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2690] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [aux_sym_preproc_else_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
+  [2641] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2691] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [aux_sym_preproc_else_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
+  [2642] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
+  },
+  [2643] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4619),
+    [aux_sym_preproc_def_token1] = ACTIONS(4619),
+    [aux_sym_preproc_if_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4619),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4619),
+    [sym_preproc_directive] = ACTIONS(4619),
+    [anon_sym_LPAREN2] = ACTIONS(4619),
+    [anon_sym_PLUS] = ACTIONS(5604),
+    [anon_sym_DASH] = ACTIONS(5604),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4619),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4619),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4619),
+    [aux_sym_use_statement_token2] = ACTIONS(4619),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4619),
+    [aux_sym_save_statement_token1] = ACTIONS(4619),
+    [aux_sym_private_statement_token1] = ACTIONS(4619),
+    [aux_sym_public_statement_token1] = ACTIONS(4619),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4619),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4619),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4619),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4619),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4619),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4619),
+    [anon_sym_SEMI] = ACTIONS(5604),
+    [aux_sym_stop_statement_token1] = ACTIONS(4619),
+    [aux_sym_stop_statement_token2] = ACTIONS(4619),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4619),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4619),
+    [aux_sym_include_statement_token1] = ACTIONS(4619),
+    [aux_sym_data_statement_token1] = ACTIONS(4619),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4619),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4619),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4619),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4619),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4619),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4619),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4619),
+    [aux_sym_block_construct_token1] = ACTIONS(4619),
+    [aux_sym_associate_statement_token1] = ACTIONS(4619),
+    [aux_sym_format_statement_token1] = ACTIONS(4619),
+    [aux_sym_print_statement_token1] = ACTIONS(4619),
+    [aux_sym_open_statement_token1] = ACTIONS(4619),
+    [aux_sym_close_statement_token1] = ACTIONS(4619),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4619),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4619),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4619),
+    [aux_sym_entry_statement_token1] = ACTIONS(4619),
+    [aux_sym_logical_expression_token5] = ACTIONS(5604),
+    [anon_sym_DOT] = ACTIONS(4619),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5604),
+    [anon_sym_LBRACK] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5604),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5604),
+    [aux_sym_null_literal_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4619),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4619),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4619),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4619),
+    [aux_sym_identifier_token1] = ACTIONS(4619),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5604),
+    [sym__float_literal] = ACTIONS(5604),
+    [sym__boz_literal] = ACTIONS(5604),
+    [sym__string_literal] = ACTIONS(5604),
+    [sym__string_literal_kind] = ACTIONS(5604),
   },
-  [2692] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [aux_sym_preproc_else_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
+  [2644] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4317),
+    [aux_sym_preproc_def_token1] = ACTIONS(4317),
+    [aux_sym_preproc_if_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4317),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4317),
+    [sym_preproc_directive] = ACTIONS(4317),
+    [anon_sym_LPAREN2] = ACTIONS(4317),
+    [anon_sym_PLUS] = ACTIONS(5630),
+    [anon_sym_DASH] = ACTIONS(5630),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4317),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4317),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4317),
+    [aux_sym_use_statement_token2] = ACTIONS(4317),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4317),
+    [aux_sym_save_statement_token1] = ACTIONS(4317),
+    [aux_sym_private_statement_token1] = ACTIONS(4317),
+    [aux_sym_public_statement_token1] = ACTIONS(4317),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4317),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4317),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4317),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4317),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4317),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4317),
+    [anon_sym_SEMI] = ACTIONS(5630),
+    [aux_sym_stop_statement_token1] = ACTIONS(4317),
+    [aux_sym_stop_statement_token2] = ACTIONS(4317),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4317),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4317),
+    [aux_sym_include_statement_token1] = ACTIONS(4317),
+    [aux_sym_data_statement_token1] = ACTIONS(4317),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4317),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4317),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4317),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4317),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4317),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4317),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4317),
+    [aux_sym_block_construct_token1] = ACTIONS(4317),
+    [aux_sym_associate_statement_token1] = ACTIONS(4317),
+    [aux_sym_format_statement_token1] = ACTIONS(4317),
+    [aux_sym_print_statement_token1] = ACTIONS(4317),
+    [aux_sym_open_statement_token1] = ACTIONS(4317),
+    [aux_sym_close_statement_token1] = ACTIONS(4317),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4317),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4317),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4317),
+    [aux_sym_entry_statement_token1] = ACTIONS(4317),
+    [aux_sym_logical_expression_token5] = ACTIONS(5630),
+    [anon_sym_DOT] = ACTIONS(4317),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5630),
+    [anon_sym_LBRACK] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5630),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5630),
+    [aux_sym_null_literal_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4317),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4317),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4317),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4317),
+    [aux_sym_identifier_token1] = ACTIONS(4317),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5630),
+    [sym__float_literal] = ACTIONS(5630),
+    [sym__boz_literal] = ACTIONS(5630),
+    [sym__string_literal] = ACTIONS(5630),
+    [sym__string_literal_kind] = ACTIONS(5630),
   },
-  [2693] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6738),
-    [aux_sym_preproc_def_token1] = ACTIONS(6738),
-    [aux_sym_preproc_if_token1] = ACTIONS(6738),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6738),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6738),
-    [sym_preproc_directive] = ACTIONS(6738),
-    [sym_preproc_comment] = ACTIONS(6740),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6738),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6738),
-    [aux_sym_interface_statement_token1] = ACTIONS(6738),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6738),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6738),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6738),
-    [aux_sym_language_binding_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6738),
-    [aux_sym_contains_statement_token1] = ACTIONS(6738),
-    [aux_sym_use_statement_token1] = ACTIONS(6738),
-    [aux_sym_use_statement_token2] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6738),
-    [aux_sym_save_statement_token1] = ACTIONS(6738),
-    [aux_sym_private_statement_token1] = ACTIONS(6738),
-    [aux_sym_public_statement_token1] = ACTIONS(6738),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6738),
-    [aux_sym_common_statement_token1] = ACTIONS(6738),
-    [aux_sym_import_statement_token1] = ACTIONS(6738),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6738),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6738),
-    [aux_sym_derived_type_token1] = ACTIONS(6738),
-    [aux_sym_declared_type_token1] = ACTIONS(6738),
-    [aux_sym_declared_type_token2] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6738),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6738),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6738),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6738),
-    [aux_sym_stop_statement_token1] = ACTIONS(6738),
-    [aux_sym_stop_statement_token2] = ACTIONS(6738),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6738),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6738),
-    [aux_sym_include_statement_token1] = ACTIONS(6738),
-    [aux_sym_data_statement_token1] = ACTIONS(6738),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6738),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6738),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6738),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6738),
-    [aux_sym_block_construct_token1] = ACTIONS(6738),
-    [aux_sym_format_statement_token1] = ACTIONS(6738),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6738),
-    [aux_sym_enum_statement_token1] = ACTIONS(6738),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6738),
-    [aux_sym_entry_statement_token1] = ACTIONS(6738),
-    [aux_sym_null_literal_token1] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6738),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6738),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6738),
-    [aux_sym_identifier_token1] = ACTIONS(6738),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6742),
+  [2645] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_LPAREN2] = ACTIONS(4595),
+    [anon_sym_PLUS] = ACTIONS(4597),
+    [anon_sym_DASH] = ACTIONS(4597),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [anon_sym_SEMI] = ACTIONS(4597),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4595),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4595),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_associate_statement_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_print_statement_token1] = ACTIONS(4595),
+    [aux_sym_open_statement_token1] = ACTIONS(4595),
+    [aux_sym_close_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4595),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4595),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_logical_expression_token5] = ACTIONS(4597),
+    [anon_sym_DOT] = ACTIONS(4595),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4597),
+    [anon_sym_LBRACK] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4597),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4597),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+    [sym__float_literal] = ACTIONS(4597),
+    [sym__boz_literal] = ACTIONS(4597),
+    [sym__string_literal] = ACTIONS(4597),
+    [sym__string_literal_kind] = ACTIONS(4597),
   },
-  [2694] = {
-    [sym_case_value_range_list] = STATE(7988),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [2646] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5800),
+    [aux_sym_preproc_def_token1] = ACTIONS(5800),
+    [aux_sym_preproc_if_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5800),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5800),
+    [sym_preproc_directive] = ACTIONS(5800),
+    [anon_sym_LPAREN2] = ACTIONS(5800),
+    [anon_sym_PLUS] = ACTIONS(5802),
+    [anon_sym_DASH] = ACTIONS(5802),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5800),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5800),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5800),
+    [aux_sym_use_statement_token2] = ACTIONS(5800),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5800),
+    [aux_sym_save_statement_token1] = ACTIONS(5800),
+    [aux_sym_private_statement_token1] = ACTIONS(5800),
+    [aux_sym_public_statement_token1] = ACTIONS(5800),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5800),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5800),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5800),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5800),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5800),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5800),
+    [anon_sym_SEMI] = ACTIONS(5802),
+    [aux_sym_stop_statement_token1] = ACTIONS(5800),
+    [aux_sym_stop_statement_token2] = ACTIONS(5800),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5800),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5800),
+    [aux_sym_include_statement_token1] = ACTIONS(5800),
+    [aux_sym_data_statement_token1] = ACTIONS(5800),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5800),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5800),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5800),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5800),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5800),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5800),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5800),
+    [aux_sym_block_construct_token1] = ACTIONS(5800),
+    [aux_sym_associate_statement_token1] = ACTIONS(5800),
+    [aux_sym_format_statement_token1] = ACTIONS(5800),
+    [aux_sym_print_statement_token1] = ACTIONS(5800),
+    [aux_sym_open_statement_token1] = ACTIONS(5800),
+    [aux_sym_close_statement_token1] = ACTIONS(5800),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5800),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5800),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5800),
+    [aux_sym_entry_statement_token1] = ACTIONS(5800),
+    [aux_sym_logical_expression_token5] = ACTIONS(5802),
+    [anon_sym_DOT] = ACTIONS(5800),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5802),
+    [anon_sym_LBRACK] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5802),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5802),
+    [aux_sym_null_literal_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5800),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5800),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5800),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5800),
+    [aux_sym_identifier_token1] = ACTIONS(5800),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5802),
+    [sym__float_literal] = ACTIONS(5802),
+    [sym__boz_literal] = ACTIONS(5802),
+    [sym__string_literal] = ACTIONS(5802),
+    [sym__string_literal_kind] = ACTIONS(5802),
   },
-  [2695] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7296),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+  [2647] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_LPAREN2] = ACTIONS(4543),
+    [anon_sym_PLUS] = ACTIONS(4545),
+    [anon_sym_DASH] = ACTIONS(4545),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [anon_sym_SEMI] = ACTIONS(4545),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4543),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4543),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_associate_statement_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_print_statement_token1] = ACTIONS(4543),
+    [aux_sym_open_statement_token1] = ACTIONS(4543),
+    [aux_sym_close_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4543),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4543),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_logical_expression_token5] = ACTIONS(4545),
+    [anon_sym_DOT] = ACTIONS(4543),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4545),
+    [anon_sym_LBRACK] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4545),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4545),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+    [sym__float_literal] = ACTIONS(4545),
+    [sym__boz_literal] = ACTIONS(4545),
+    [sym__string_literal] = ACTIONS(4545),
+    [sym__string_literal_kind] = ACTIONS(4545),
+  },
+  [2648] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5770),
+    [aux_sym_preproc_def_token1] = ACTIONS(5770),
+    [aux_sym_preproc_if_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5770),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5770),
+    [sym_preproc_directive] = ACTIONS(5770),
+    [anon_sym_LPAREN2] = ACTIONS(5770),
+    [anon_sym_PLUS] = ACTIONS(5772),
+    [anon_sym_DASH] = ACTIONS(5772),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5770),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5770),
+    [aux_sym_use_statement_token2] = ACTIONS(5770),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5770),
+    [aux_sym_save_statement_token1] = ACTIONS(5770),
+    [aux_sym_private_statement_token1] = ACTIONS(5770),
+    [aux_sym_public_statement_token1] = ACTIONS(5770),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5770),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5770),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5770),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5770),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5770),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5770),
+    [anon_sym_SEMI] = ACTIONS(5772),
+    [aux_sym_stop_statement_token1] = ACTIONS(5770),
+    [aux_sym_stop_statement_token2] = ACTIONS(5770),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5770),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5770),
+    [aux_sym_include_statement_token1] = ACTIONS(5770),
+    [aux_sym_data_statement_token1] = ACTIONS(5770),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5770),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5770),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5770),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5770),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5770),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5770),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5770),
+    [aux_sym_block_construct_token1] = ACTIONS(5770),
+    [aux_sym_associate_statement_token1] = ACTIONS(5770),
+    [aux_sym_format_statement_token1] = ACTIONS(5770),
+    [aux_sym_print_statement_token1] = ACTIONS(5770),
+    [aux_sym_open_statement_token1] = ACTIONS(5770),
+    [aux_sym_close_statement_token1] = ACTIONS(5770),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5770),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5770),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5770),
+    [aux_sym_entry_statement_token1] = ACTIONS(5770),
+    [aux_sym_logical_expression_token5] = ACTIONS(5772),
+    [anon_sym_DOT] = ACTIONS(5770),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5772),
+    [anon_sym_LBRACK] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5772),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5772),
+    [aux_sym_null_literal_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5770),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5770),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5770),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5770),
+    [aux_sym_identifier_token1] = ACTIONS(5770),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5772),
+    [sym__float_literal] = ACTIONS(5772),
+    [sym__boz_literal] = ACTIONS(5772),
+    [sym__string_literal] = ACTIONS(5772),
+    [sym__string_literal_kind] = ACTIONS(5772),
+  },
+  [2649] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5746),
+    [aux_sym_preproc_def_token1] = ACTIONS(5746),
+    [aux_sym_preproc_if_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5746),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5746),
+    [sym_preproc_directive] = ACTIONS(5746),
+    [anon_sym_LPAREN2] = ACTIONS(5746),
+    [anon_sym_PLUS] = ACTIONS(5748),
+    [anon_sym_DASH] = ACTIONS(5748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5746),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5746),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5746),
+    [aux_sym_use_statement_token2] = ACTIONS(5746),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5746),
+    [aux_sym_save_statement_token1] = ACTIONS(5746),
+    [aux_sym_private_statement_token1] = ACTIONS(5746),
+    [aux_sym_public_statement_token1] = ACTIONS(5746),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5746),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5746),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5746),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5746),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5746),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5746),
+    [anon_sym_SEMI] = ACTIONS(5748),
+    [aux_sym_stop_statement_token1] = ACTIONS(5746),
+    [aux_sym_stop_statement_token2] = ACTIONS(5746),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5746),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5746),
+    [aux_sym_include_statement_token1] = ACTIONS(5746),
+    [aux_sym_data_statement_token1] = ACTIONS(5746),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5746),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5746),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5746),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5746),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5746),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5746),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5746),
+    [aux_sym_block_construct_token1] = ACTIONS(5746),
+    [aux_sym_associate_statement_token1] = ACTIONS(5746),
+    [aux_sym_format_statement_token1] = ACTIONS(5746),
+    [aux_sym_print_statement_token1] = ACTIONS(5746),
+    [aux_sym_open_statement_token1] = ACTIONS(5746),
+    [aux_sym_close_statement_token1] = ACTIONS(5746),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5746),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5746),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5746),
+    [aux_sym_entry_statement_token1] = ACTIONS(5746),
+    [aux_sym_logical_expression_token5] = ACTIONS(5748),
+    [anon_sym_DOT] = ACTIONS(5746),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5748),
+    [anon_sym_LBRACK] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5748),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5748),
+    [aux_sym_null_literal_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5746),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5746),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5746),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5746),
+    [aux_sym_identifier_token1] = ACTIONS(5746),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5748),
+    [sym__float_literal] = ACTIONS(5748),
+    [sym__boz_literal] = ACTIONS(5748),
+    [sym__string_literal] = ACTIONS(5748),
+    [sym__string_literal_kind] = ACTIONS(5748),
+  },
+  [2650] = {
+    [sym_identifier] = STATE(6332),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(6694),
+    [anon_sym_PERCENT] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(6696),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(6698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2696] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [aux_sym_preproc_else_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
+    [sym__external_end_of_statement] = ACTIONS(6698),
   },
-  [2697] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [aux_sym_preproc_else_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
+  [2651] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5712),
+    [aux_sym_preproc_def_token1] = ACTIONS(5712),
+    [aux_sym_preproc_if_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5712),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5712),
+    [sym_preproc_directive] = ACTIONS(5712),
+    [anon_sym_LPAREN2] = ACTIONS(5712),
+    [anon_sym_PLUS] = ACTIONS(5714),
+    [anon_sym_DASH] = ACTIONS(5714),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5712),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5712),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5712),
+    [aux_sym_use_statement_token2] = ACTIONS(5712),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5712),
+    [aux_sym_save_statement_token1] = ACTIONS(5712),
+    [aux_sym_private_statement_token1] = ACTIONS(5712),
+    [aux_sym_public_statement_token1] = ACTIONS(5712),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5712),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5712),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5712),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5712),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5712),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5712),
+    [anon_sym_SEMI] = ACTIONS(5714),
+    [aux_sym_stop_statement_token1] = ACTIONS(5712),
+    [aux_sym_stop_statement_token2] = ACTIONS(5712),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5712),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5712),
+    [aux_sym_include_statement_token1] = ACTIONS(5712),
+    [aux_sym_data_statement_token1] = ACTIONS(5712),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5712),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5712),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5712),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5712),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5712),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5712),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5712),
+    [aux_sym_block_construct_token1] = ACTIONS(5712),
+    [aux_sym_associate_statement_token1] = ACTIONS(5712),
+    [aux_sym_format_statement_token1] = ACTIONS(5712),
+    [aux_sym_print_statement_token1] = ACTIONS(5712),
+    [aux_sym_open_statement_token1] = ACTIONS(5712),
+    [aux_sym_close_statement_token1] = ACTIONS(5712),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5712),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5712),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5712),
+    [aux_sym_entry_statement_token1] = ACTIONS(5712),
+    [aux_sym_logical_expression_token5] = ACTIONS(5714),
+    [anon_sym_DOT] = ACTIONS(5712),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5714),
+    [anon_sym_LBRACK] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5714),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5714),
+    [aux_sym_null_literal_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5712),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5712),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5712),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5712),
+    [aux_sym_identifier_token1] = ACTIONS(5712),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5714),
+    [sym__float_literal] = ACTIONS(5714),
+    [sym__boz_literal] = ACTIONS(5714),
+    [sym__string_literal] = ACTIONS(5714),
+    [sym__string_literal_kind] = ACTIONS(5714),
   },
-  [2698] = {
-    [sym__expression] = STATE(4480),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_COMMA] = ACTIONS(6748),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6750),
+  [2652] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5688),
+    [aux_sym_preproc_def_token1] = ACTIONS(5688),
+    [aux_sym_preproc_if_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5688),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5688),
+    [sym_preproc_directive] = ACTIONS(5688),
+    [anon_sym_LPAREN2] = ACTIONS(5688),
+    [anon_sym_PLUS] = ACTIONS(5690),
+    [anon_sym_DASH] = ACTIONS(5690),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6752),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [anon_sym_RBRACK] = ACTIONS(6748),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5688),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5688),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5688),
+    [aux_sym_use_statement_token2] = ACTIONS(5688),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5688),
+    [aux_sym_save_statement_token1] = ACTIONS(5688),
+    [aux_sym_private_statement_token1] = ACTIONS(5688),
+    [aux_sym_public_statement_token1] = ACTIONS(5688),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5688),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5688),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5688),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5688),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5688),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5688),
+    [anon_sym_SEMI] = ACTIONS(5690),
+    [aux_sym_stop_statement_token1] = ACTIONS(5688),
+    [aux_sym_stop_statement_token2] = ACTIONS(5688),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5688),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5688),
+    [aux_sym_include_statement_token1] = ACTIONS(5688),
+    [aux_sym_data_statement_token1] = ACTIONS(5688),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5688),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5688),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5688),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5688),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5688),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5688),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5688),
+    [aux_sym_block_construct_token1] = ACTIONS(5688),
+    [aux_sym_associate_statement_token1] = ACTIONS(5688),
+    [aux_sym_format_statement_token1] = ACTIONS(5688),
+    [aux_sym_print_statement_token1] = ACTIONS(5688),
+    [aux_sym_open_statement_token1] = ACTIONS(5688),
+    [aux_sym_close_statement_token1] = ACTIONS(5688),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5688),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5688),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5688),
+    [aux_sym_entry_statement_token1] = ACTIONS(5688),
+    [aux_sym_logical_expression_token5] = ACTIONS(5690),
+    [anon_sym_DOT] = ACTIONS(5688),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5690),
+    [anon_sym_LBRACK] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5690),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5690),
+    [aux_sym_null_literal_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5688),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5688),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5688),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5688),
+    [aux_sym_identifier_token1] = ACTIONS(5688),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5690),
+    [sym__float_literal] = ACTIONS(5690),
+    [sym__boz_literal] = ACTIONS(5690),
+    [sym__string_literal] = ACTIONS(5690),
+    [sym__string_literal_kind] = ACTIONS(5690),
   },
-  [2699] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6754),
-    [aux_sym_preproc_def_token1] = ACTIONS(6754),
-    [aux_sym_preproc_if_token1] = ACTIONS(6754),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6754),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6754),
-    [sym_preproc_directive] = ACTIONS(6754),
-    [sym_preproc_comment] = ACTIONS(6756),
+  [2653] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(2079),
+    [aux_sym_preproc_def_token1] = ACTIONS(2079),
+    [aux_sym_preproc_if_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(2079),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(2079),
+    [sym_preproc_directive] = ACTIONS(2079),
+    [anon_sym_LPAREN2] = ACTIONS(2079),
+    [anon_sym_PLUS] = ACTIONS(5708),
+    [anon_sym_DASH] = ACTIONS(5708),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6754),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6754),
-    [aux_sym_interface_statement_token1] = ACTIONS(6754),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6754),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6754),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6754),
-    [aux_sym_language_binding_token1] = ACTIONS(6754),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6754),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6754),
-    [aux_sym_contains_statement_token1] = ACTIONS(6754),
-    [aux_sym_use_statement_token1] = ACTIONS(6754),
-    [aux_sym_use_statement_token2] = ACTIONS(6754),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6754),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6754),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6754),
-    [aux_sym_save_statement_token1] = ACTIONS(6754),
-    [aux_sym_private_statement_token1] = ACTIONS(6754),
-    [aux_sym_public_statement_token1] = ACTIONS(6754),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6754),
-    [aux_sym_common_statement_token1] = ACTIONS(6754),
-    [aux_sym_import_statement_token1] = ACTIONS(6754),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6754),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6754),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6754),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6754),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6754),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6754),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6754),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6754),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6754),
-    [aux_sym_derived_type_token1] = ACTIONS(6754),
-    [aux_sym_declared_type_token1] = ACTIONS(6754),
-    [aux_sym_declared_type_token2] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6754),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6754),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6754),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6754),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6754),
-    [aux_sym_stop_statement_token1] = ACTIONS(6754),
-    [aux_sym_stop_statement_token2] = ACTIONS(6754),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6754),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6754),
-    [aux_sym_include_statement_token1] = ACTIONS(6754),
-    [aux_sym_data_statement_token1] = ACTIONS(6754),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6754),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6754),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6754),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6754),
-    [aux_sym_block_construct_token1] = ACTIONS(6754),
-    [aux_sym_format_statement_token1] = ACTIONS(6754),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6754),
-    [aux_sym_enum_statement_token1] = ACTIONS(6754),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6754),
-    [aux_sym_entry_statement_token1] = ACTIONS(6754),
-    [aux_sym_null_literal_token1] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6754),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6754),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6754),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6754),
-    [aux_sym_identifier_token1] = ACTIONS(6754),
+    [aux_sym_end_program_statement_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(2079),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(2079),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(2079),
+    [aux_sym_use_statement_token2] = ACTIONS(2079),
+    [aux_sym_implicit_statement_token4] = ACTIONS(2079),
+    [aux_sym_save_statement_token1] = ACTIONS(2079),
+    [aux_sym_private_statement_token1] = ACTIONS(2079),
+    [aux_sym_public_statement_token1] = ACTIONS(2079),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(2079),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token2] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token3] = ACTIONS(2079),
+    [aux_sym_variable_attributes_token5] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(2079),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(2079),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token1] = ACTIONS(2079),
+    [aux_sym_type_qualifier_token2] = ACTIONS(2079),
+    [anon_sym_SEMI] = ACTIONS(5708),
+    [aux_sym_stop_statement_token1] = ACTIONS(2079),
+    [aux_sym_stop_statement_token2] = ACTIONS(2079),
+    [aux_sym_subroutine_call_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token1] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token2] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token3] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token4] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token6] = ACTIONS(2079),
+    [aux_sym_keyword_statement_token7] = ACTIONS(2079),
+    [aux_sym_include_statement_token1] = ACTIONS(2079),
+    [aux_sym_data_statement_token1] = ACTIONS(2079),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(2079),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_end_if_statement_token1] = ACTIONS(2079),
+    [aux_sym_elseif_clause_token2] = ACTIONS(2079),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(2079),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_case_statement_token3] = ACTIONS(2079),
+    [aux_sym_select_type_statement_token1] = ACTIONS(2079),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(2079),
+    [aux_sym_block_construct_token1] = ACTIONS(2079),
+    [aux_sym_associate_statement_token1] = ACTIONS(2079),
+    [aux_sym_format_statement_token1] = ACTIONS(2079),
+    [aux_sym_print_statement_token1] = ACTIONS(2079),
+    [aux_sym_open_statement_token1] = ACTIONS(2079),
+    [aux_sym_close_statement_token1] = ACTIONS(2079),
+    [aux_sym_inquire_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token1] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token2] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token3] = ACTIONS(2079),
+    [aux_sym_file_position_statement_token4] = ACTIONS(2079),
+    [aux_sym_allocate_statement_token1] = ACTIONS(2079),
+    [aux_sym_entry_statement_token1] = ACTIONS(2079),
+    [aux_sym_logical_expression_token5] = ACTIONS(5708),
+    [anon_sym_DOT] = ACTIONS(2079),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5708),
+    [anon_sym_LBRACK] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5708),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5708),
+    [aux_sym_null_literal_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token2] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token6] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token8] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token11] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token12] = ACTIONS(2079),
+    [aux_sym_coarray_statement_token13] = ACTIONS(2079),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(2079),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(2079),
+    [aux_sym_identifier_token1] = ACTIONS(2079),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6758),
+    [sym__integer_literal] = ACTIONS(5708),
+    [sym__float_literal] = ACTIONS(5708),
+    [sym__boz_literal] = ACTIONS(5708),
+    [sym__string_literal] = ACTIONS(5708),
+    [sym__string_literal_kind] = ACTIONS(5708),
   },
-  [2700] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6760),
-    [aux_sym_preproc_def_token1] = ACTIONS(6760),
-    [aux_sym_preproc_if_token1] = ACTIONS(6760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6760),
-    [sym_preproc_directive] = ACTIONS(6760),
-    [sym_preproc_comment] = ACTIONS(6762),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6760),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6760),
-    [aux_sym_interface_statement_token1] = ACTIONS(6760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6760),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6760),
-    [aux_sym_language_binding_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6760),
-    [aux_sym_contains_statement_token1] = ACTIONS(6760),
-    [aux_sym_use_statement_token1] = ACTIONS(6760),
-    [aux_sym_use_statement_token2] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6760),
-    [aux_sym_save_statement_token1] = ACTIONS(6760),
-    [aux_sym_private_statement_token1] = ACTIONS(6760),
-    [aux_sym_public_statement_token1] = ACTIONS(6760),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6760),
-    [aux_sym_common_statement_token1] = ACTIONS(6760),
-    [aux_sym_import_statement_token1] = ACTIONS(6760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6760),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6760),
-    [aux_sym_derived_type_token1] = ACTIONS(6760),
-    [aux_sym_declared_type_token1] = ACTIONS(6760),
-    [aux_sym_declared_type_token2] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6760),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6760),
-    [aux_sym_stop_statement_token1] = ACTIONS(6760),
-    [aux_sym_stop_statement_token2] = ACTIONS(6760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6760),
-    [aux_sym_include_statement_token1] = ACTIONS(6760),
-    [aux_sym_data_statement_token1] = ACTIONS(6760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6760),
-    [aux_sym_block_construct_token1] = ACTIONS(6760),
-    [aux_sym_format_statement_token1] = ACTIONS(6760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6760),
-    [aux_sym_enum_statement_token1] = ACTIONS(6760),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6760),
-    [aux_sym_entry_statement_token1] = ACTIONS(6760),
-    [aux_sym_null_literal_token1] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6760),
-    [aux_sym_identifier_token1] = ACTIONS(6760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6764),
+  [2654] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5750),
+    [aux_sym_preproc_def_token1] = ACTIONS(5750),
+    [aux_sym_preproc_if_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5750),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5750),
+    [sym_preproc_directive] = ACTIONS(5750),
+    [anon_sym_LPAREN2] = ACTIONS(5750),
+    [anon_sym_PLUS] = ACTIONS(5752),
+    [anon_sym_DASH] = ACTIONS(5752),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5750),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5750),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5750),
+    [aux_sym_use_statement_token2] = ACTIONS(5750),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5750),
+    [aux_sym_save_statement_token1] = ACTIONS(5750),
+    [aux_sym_private_statement_token1] = ACTIONS(5750),
+    [aux_sym_public_statement_token1] = ACTIONS(5750),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5750),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5750),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5750),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5750),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5750),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5750),
+    [anon_sym_SEMI] = ACTIONS(5752),
+    [aux_sym_stop_statement_token1] = ACTIONS(5750),
+    [aux_sym_stop_statement_token2] = ACTIONS(5750),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5750),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5750),
+    [aux_sym_include_statement_token1] = ACTIONS(5750),
+    [aux_sym_data_statement_token1] = ACTIONS(5750),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5750),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5750),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5750),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5750),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5750),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5750),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5750),
+    [aux_sym_block_construct_token1] = ACTIONS(5750),
+    [aux_sym_associate_statement_token1] = ACTIONS(5750),
+    [aux_sym_format_statement_token1] = ACTIONS(5750),
+    [aux_sym_print_statement_token1] = ACTIONS(5750),
+    [aux_sym_open_statement_token1] = ACTIONS(5750),
+    [aux_sym_close_statement_token1] = ACTIONS(5750),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5750),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5750),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5750),
+    [aux_sym_entry_statement_token1] = ACTIONS(5750),
+    [aux_sym_logical_expression_token5] = ACTIONS(5752),
+    [anon_sym_DOT] = ACTIONS(5750),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5752),
+    [anon_sym_LBRACK] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5752),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5752),
+    [aux_sym_null_literal_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5750),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5750),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5750),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5750),
+    [aux_sym_identifier_token1] = ACTIONS(5750),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5752),
+    [sym__float_literal] = ACTIONS(5752),
+    [sym__boz_literal] = ACTIONS(5752),
+    [sym__string_literal] = ACTIONS(5752),
+    [sym__string_literal_kind] = ACTIONS(5752),
   },
-  [2701] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token2] = ACTIONS(4621),
-    [aux_sym_preproc_else_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
+  [2655] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_LPAREN2] = ACTIONS(4539),
+    [anon_sym_PLUS] = ACTIONS(4541),
+    [anon_sym_DASH] = ACTIONS(4541),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [anon_sym_SEMI] = ACTIONS(4541),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4539),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4539),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_associate_statement_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_print_statement_token1] = ACTIONS(4539),
+    [aux_sym_open_statement_token1] = ACTIONS(4539),
+    [aux_sym_close_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4539),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4539),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_logical_expression_token5] = ACTIONS(4541),
+    [anon_sym_DOT] = ACTIONS(4539),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4541),
+    [anon_sym_LBRACK] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4541),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+    [sym__float_literal] = ACTIONS(4541),
+    [sym__boz_literal] = ACTIONS(4541),
+    [sym__string_literal] = ACTIONS(4541),
+    [sym__string_literal_kind] = ACTIONS(4541),
   },
-  [2702] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6766),
-    [aux_sym_preproc_def_token1] = ACTIONS(6766),
-    [aux_sym_preproc_if_token1] = ACTIONS(6766),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6766),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6766),
-    [sym_preproc_directive] = ACTIONS(6766),
-    [sym_preproc_comment] = ACTIONS(6768),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6766),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6766),
-    [aux_sym_interface_statement_token1] = ACTIONS(6766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6766),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6766),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6766),
-    [aux_sym_language_binding_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6766),
-    [aux_sym_contains_statement_token1] = ACTIONS(6766),
-    [aux_sym_use_statement_token1] = ACTIONS(6766),
-    [aux_sym_use_statement_token2] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6766),
-    [aux_sym_save_statement_token1] = ACTIONS(6766),
-    [aux_sym_private_statement_token1] = ACTIONS(6766),
-    [aux_sym_public_statement_token1] = ACTIONS(6766),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6766),
-    [aux_sym_common_statement_token1] = ACTIONS(6766),
-    [aux_sym_import_statement_token1] = ACTIONS(6766),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6766),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6766),
-    [aux_sym_derived_type_token1] = ACTIONS(6766),
-    [aux_sym_declared_type_token1] = ACTIONS(6766),
-    [aux_sym_declared_type_token2] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6766),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6766),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6766),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6766),
-    [aux_sym_stop_statement_token1] = ACTIONS(6766),
-    [aux_sym_stop_statement_token2] = ACTIONS(6766),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6766),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6766),
-    [aux_sym_include_statement_token1] = ACTIONS(6766),
-    [aux_sym_data_statement_token1] = ACTIONS(6766),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6766),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6766),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6766),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6766),
-    [aux_sym_block_construct_token1] = ACTIONS(6766),
-    [aux_sym_format_statement_token1] = ACTIONS(6766),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6766),
-    [aux_sym_enum_statement_token1] = ACTIONS(6766),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6766),
-    [aux_sym_entry_statement_token1] = ACTIONS(6766),
-    [aux_sym_null_literal_token1] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6766),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6766),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6766),
-    [aux_sym_identifier_token1] = ACTIONS(6766),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6770),
+  [2656] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5648),
+    [aux_sym_preproc_def_token1] = ACTIONS(5648),
+    [aux_sym_preproc_if_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5648),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5648),
+    [sym_preproc_directive] = ACTIONS(5648),
+    [anon_sym_LPAREN2] = ACTIONS(5648),
+    [anon_sym_PLUS] = ACTIONS(5650),
+    [anon_sym_DASH] = ACTIONS(5650),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5648),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5648),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5648),
+    [aux_sym_use_statement_token2] = ACTIONS(5648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5648),
+    [aux_sym_save_statement_token1] = ACTIONS(5648),
+    [aux_sym_private_statement_token1] = ACTIONS(5648),
+    [aux_sym_public_statement_token1] = ACTIONS(5648),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5648),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5648),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5648),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5648),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5648),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5648),
+    [anon_sym_SEMI] = ACTIONS(5650),
+    [aux_sym_stop_statement_token1] = ACTIONS(5648),
+    [aux_sym_stop_statement_token2] = ACTIONS(5648),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5648),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5648),
+    [aux_sym_include_statement_token1] = ACTIONS(5648),
+    [aux_sym_data_statement_token1] = ACTIONS(5648),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5648),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5648),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5648),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5648),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5648),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5648),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5648),
+    [aux_sym_block_construct_token1] = ACTIONS(5648),
+    [aux_sym_associate_statement_token1] = ACTIONS(5648),
+    [aux_sym_format_statement_token1] = ACTIONS(5648),
+    [aux_sym_print_statement_token1] = ACTIONS(5648),
+    [aux_sym_open_statement_token1] = ACTIONS(5648),
+    [aux_sym_close_statement_token1] = ACTIONS(5648),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5648),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5648),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5648),
+    [aux_sym_entry_statement_token1] = ACTIONS(5648),
+    [aux_sym_logical_expression_token5] = ACTIONS(5650),
+    [anon_sym_DOT] = ACTIONS(5648),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5650),
+    [anon_sym_LBRACK] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5650),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5650),
+    [aux_sym_null_literal_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5648),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5648),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5648),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5648),
+    [aux_sym_identifier_token1] = ACTIONS(5648),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5650),
+    [sym__float_literal] = ACTIONS(5650),
+    [sym__boz_literal] = ACTIONS(5650),
+    [sym__string_literal] = ACTIONS(5650),
+    [sym__string_literal_kind] = ACTIONS(5650),
   },
-  [2703] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6724),
-    [aux_sym_preproc_def_token1] = ACTIONS(6724),
-    [aux_sym_preproc_if_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
-    [sym_preproc_directive] = ACTIONS(6724),
-    [sym_preproc_comment] = ACTIONS(6772),
+  [2657] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_LPAREN2] = ACTIONS(4535),
+    [anon_sym_PLUS] = ACTIONS(4537),
+    [anon_sym_DASH] = ACTIONS(4537),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [anon_sym_SEMI] = ACTIONS(4537),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4535),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4535),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_associate_statement_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_print_statement_token1] = ACTIONS(4535),
+    [aux_sym_open_statement_token1] = ACTIONS(4535),
+    [aux_sym_close_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4535),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4535),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_logical_expression_token5] = ACTIONS(4537),
+    [anon_sym_DOT] = ACTIONS(4535),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4537),
+    [anon_sym_LBRACK] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4537),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4537),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+    [sym__float_literal] = ACTIONS(4537),
+    [sym__boz_literal] = ACTIONS(4537),
+    [sym__string_literal] = ACTIONS(4537),
+    [sym__string_literal_kind] = ACTIONS(4537),
+  },
+  [2658] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5726),
+    [aux_sym_preproc_def_token1] = ACTIONS(5726),
+    [aux_sym_preproc_if_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5726),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5726),
+    [sym_preproc_directive] = ACTIONS(5726),
+    [anon_sym_LPAREN2] = ACTIONS(5726),
+    [anon_sym_PLUS] = ACTIONS(5728),
+    [anon_sym_DASH] = ACTIONS(5728),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6724),
-    [aux_sym_interface_statement_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
-    [aux_sym_language_binding_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
-    [aux_sym_contains_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token2] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
-    [aux_sym_save_statement_token1] = ACTIONS(6724),
-    [aux_sym_private_statement_token1] = ACTIONS(6724),
-    [aux_sym_public_statement_token1] = ACTIONS(6724),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
-    [aux_sym_common_statement_token1] = ACTIONS(6724),
-    [aux_sym_import_statement_token1] = ACTIONS(6724),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
-    [aux_sym_derived_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
-    [aux_sym_include_statement_token1] = ACTIONS(6724),
-    [aux_sym_data_statement_token1] = ACTIONS(6724),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
-    [aux_sym_block_construct_token1] = ACTIONS(6724),
-    [aux_sym_format_statement_token1] = ACTIONS(6724),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
-    [aux_sym_enum_statement_token1] = ACTIONS(6724),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
-    [aux_sym_entry_statement_token1] = ACTIONS(6724),
-    [aux_sym_null_literal_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
-    [aux_sym_identifier_token1] = ACTIONS(6724),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5726),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5726),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5726),
+    [aux_sym_use_statement_token2] = ACTIONS(5726),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5726),
+    [aux_sym_save_statement_token1] = ACTIONS(5726),
+    [aux_sym_private_statement_token1] = ACTIONS(5726),
+    [aux_sym_public_statement_token1] = ACTIONS(5726),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5726),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5726),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5726),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5726),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5726),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5726),
+    [anon_sym_SEMI] = ACTIONS(5728),
+    [aux_sym_stop_statement_token1] = ACTIONS(5726),
+    [aux_sym_stop_statement_token2] = ACTIONS(5726),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5726),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5726),
+    [aux_sym_include_statement_token1] = ACTIONS(5726),
+    [aux_sym_data_statement_token1] = ACTIONS(5726),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5726),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5726),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5726),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5726),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5726),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5726),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5726),
+    [aux_sym_block_construct_token1] = ACTIONS(5726),
+    [aux_sym_associate_statement_token1] = ACTIONS(5726),
+    [aux_sym_format_statement_token1] = ACTIONS(5726),
+    [aux_sym_print_statement_token1] = ACTIONS(5726),
+    [aux_sym_open_statement_token1] = ACTIONS(5726),
+    [aux_sym_close_statement_token1] = ACTIONS(5726),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5726),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5726),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5726),
+    [aux_sym_entry_statement_token1] = ACTIONS(5726),
+    [aux_sym_logical_expression_token5] = ACTIONS(5728),
+    [anon_sym_DOT] = ACTIONS(5726),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5728),
+    [anon_sym_LBRACK] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5728),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5728),
+    [aux_sym_null_literal_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5726),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5726),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5726),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5726),
+    [aux_sym_identifier_token1] = ACTIONS(5726),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6728),
+    [sym__integer_literal] = ACTIONS(5728),
+    [sym__float_literal] = ACTIONS(5728),
+    [sym__boz_literal] = ACTIONS(5728),
+    [sym__string_literal] = ACTIONS(5728),
+    [sym__string_literal_kind] = ACTIONS(5728),
   },
-  [2704] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6730),
-    [aux_sym_preproc_def_token1] = ACTIONS(6730),
-    [aux_sym_preproc_if_token1] = ACTIONS(6730),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6730),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6730),
-    [sym_preproc_directive] = ACTIONS(6730),
-    [sym_preproc_comment] = ACTIONS(6774),
+  [2659] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_LPAREN2] = ACTIONS(4469),
+    [anon_sym_PLUS] = ACTIONS(4471),
+    [anon_sym_DASH] = ACTIONS(4471),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6730),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6730),
-    [aux_sym_interface_statement_token1] = ACTIONS(6730),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6730),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6730),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6730),
-    [aux_sym_language_binding_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6730),
-    [aux_sym_contains_statement_token1] = ACTIONS(6730),
-    [aux_sym_use_statement_token1] = ACTIONS(6730),
-    [aux_sym_use_statement_token2] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6730),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6730),
-    [aux_sym_save_statement_token1] = ACTIONS(6730),
-    [aux_sym_private_statement_token1] = ACTIONS(6730),
-    [aux_sym_public_statement_token1] = ACTIONS(6730),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6730),
-    [aux_sym_common_statement_token1] = ACTIONS(6730),
-    [aux_sym_import_statement_token1] = ACTIONS(6730),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6730),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6730),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6730),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6730),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6730),
-    [aux_sym_derived_type_token1] = ACTIONS(6730),
-    [aux_sym_declared_type_token1] = ACTIONS(6730),
-    [aux_sym_declared_type_token2] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6730),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6730),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6730),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6730),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6730),
-    [aux_sym_stop_statement_token1] = ACTIONS(6730),
-    [aux_sym_stop_statement_token2] = ACTIONS(6730),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6730),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6730),
-    [aux_sym_include_statement_token1] = ACTIONS(6730),
-    [aux_sym_data_statement_token1] = ACTIONS(6730),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6730),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6730),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6730),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6730),
-    [aux_sym_block_construct_token1] = ACTIONS(6730),
-    [aux_sym_format_statement_token1] = ACTIONS(6730),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6730),
-    [aux_sym_enum_statement_token1] = ACTIONS(6730),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6730),
-    [aux_sym_entry_statement_token1] = ACTIONS(6730),
-    [aux_sym_null_literal_token1] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6730),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6730),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6730),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6730),
-    [aux_sym_identifier_token1] = ACTIONS(6730),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [anon_sym_SEMI] = ACTIONS(4471),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4469),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4469),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_associate_statement_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_print_statement_token1] = ACTIONS(4469),
+    [aux_sym_open_statement_token1] = ACTIONS(4469),
+    [aux_sym_close_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4469),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4469),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_logical_expression_token5] = ACTIONS(4471),
+    [anon_sym_DOT] = ACTIONS(4469),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4471),
+    [anon_sym_LBRACK] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4471),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4471),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6734),
+    [sym__integer_literal] = ACTIONS(4471),
+    [sym__float_literal] = ACTIONS(4471),
+    [sym__boz_literal] = ACTIONS(4471),
+    [sym__string_literal] = ACTIONS(4471),
+    [sym__string_literal_kind] = ACTIONS(4471),
   },
-  [2705] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6776),
-    [aux_sym_preproc_def_token1] = ACTIONS(6776),
-    [aux_sym_preproc_if_token1] = ACTIONS(6776),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6776),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6776),
-    [sym_preproc_directive] = ACTIONS(6776),
-    [sym_preproc_comment] = ACTIONS(6778),
+  [2660] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4525),
+    [aux_sym_preproc_def_token1] = ACTIONS(4525),
+    [aux_sym_preproc_if_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4525),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4525),
+    [sym_preproc_directive] = ACTIONS(4525),
+    [anon_sym_LPAREN2] = ACTIONS(4525),
+    [anon_sym_PLUS] = ACTIONS(5626),
+    [anon_sym_DASH] = ACTIONS(5626),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6776),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6776),
-    [aux_sym_interface_statement_token1] = ACTIONS(6776),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6776),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6776),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6776),
-    [aux_sym_language_binding_token1] = ACTIONS(6776),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6776),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6776),
-    [aux_sym_contains_statement_token1] = ACTIONS(6776),
-    [aux_sym_use_statement_token1] = ACTIONS(6776),
-    [aux_sym_use_statement_token2] = ACTIONS(6776),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6776),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6776),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6776),
-    [aux_sym_save_statement_token1] = ACTIONS(6776),
-    [aux_sym_private_statement_token1] = ACTIONS(6776),
-    [aux_sym_public_statement_token1] = ACTIONS(6776),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6776),
-    [aux_sym_common_statement_token1] = ACTIONS(6776),
-    [aux_sym_import_statement_token1] = ACTIONS(6776),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6776),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6776),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6776),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6776),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6776),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6776),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6776),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6776),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6776),
-    [aux_sym_derived_type_token1] = ACTIONS(6776),
-    [aux_sym_declared_type_token1] = ACTIONS(6776),
-    [aux_sym_declared_type_token2] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6776),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6776),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6776),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6776),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6776),
-    [aux_sym_stop_statement_token1] = ACTIONS(6776),
-    [aux_sym_stop_statement_token2] = ACTIONS(6776),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6776),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6776),
-    [aux_sym_include_statement_token1] = ACTIONS(6776),
-    [aux_sym_data_statement_token1] = ACTIONS(6776),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6776),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6776),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6776),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6776),
-    [aux_sym_block_construct_token1] = ACTIONS(6776),
-    [aux_sym_format_statement_token1] = ACTIONS(6776),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6776),
-    [aux_sym_enum_statement_token1] = ACTIONS(6776),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6776),
-    [aux_sym_entry_statement_token1] = ACTIONS(6776),
-    [aux_sym_null_literal_token1] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6776),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6776),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6776),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6776),
-    [aux_sym_identifier_token1] = ACTIONS(6776),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4525),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4525),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4525),
+    [aux_sym_use_statement_token2] = ACTIONS(4525),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4525),
+    [aux_sym_save_statement_token1] = ACTIONS(4525),
+    [aux_sym_private_statement_token1] = ACTIONS(4525),
+    [aux_sym_public_statement_token1] = ACTIONS(4525),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4525),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4525),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4525),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4525),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4525),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4525),
+    [anon_sym_SEMI] = ACTIONS(5626),
+    [aux_sym_stop_statement_token1] = ACTIONS(4525),
+    [aux_sym_stop_statement_token2] = ACTIONS(4525),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4525),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4525),
+    [aux_sym_include_statement_token1] = ACTIONS(4525),
+    [aux_sym_data_statement_token1] = ACTIONS(4525),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4525),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4525),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4525),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4525),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4525),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4525),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4525),
+    [aux_sym_block_construct_token1] = ACTIONS(4525),
+    [aux_sym_associate_statement_token1] = ACTIONS(4525),
+    [aux_sym_format_statement_token1] = ACTIONS(4525),
+    [aux_sym_print_statement_token1] = ACTIONS(4525),
+    [aux_sym_open_statement_token1] = ACTIONS(4525),
+    [aux_sym_close_statement_token1] = ACTIONS(4525),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4525),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4525),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4525),
+    [aux_sym_entry_statement_token1] = ACTIONS(4525),
+    [aux_sym_logical_expression_token5] = ACTIONS(5626),
+    [anon_sym_DOT] = ACTIONS(4525),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5626),
+    [anon_sym_LBRACK] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5626),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5626),
+    [aux_sym_null_literal_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4525),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4525),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4525),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4525),
+    [aux_sym_identifier_token1] = ACTIONS(4525),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6780),
+    [sym__integer_literal] = ACTIONS(5626),
+    [sym__float_literal] = ACTIONS(5626),
+    [sym__boz_literal] = ACTIONS(5626),
+    [sym__string_literal] = ACTIONS(5626),
+    [sym__string_literal_kind] = ACTIONS(5626),
   },
-  [2706] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6782),
-    [aux_sym_preproc_def_token1] = ACTIONS(6782),
-    [aux_sym_preproc_if_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
-    [sym_preproc_directive] = ACTIONS(6782),
-    [sym_preproc_comment] = ACTIONS(6784),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6782),
-    [aux_sym_interface_statement_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
-    [aux_sym_language_binding_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
-    [aux_sym_contains_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token2] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
-    [aux_sym_save_statement_token1] = ACTIONS(6782),
-    [aux_sym_private_statement_token1] = ACTIONS(6782),
-    [aux_sym_public_statement_token1] = ACTIONS(6782),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
-    [aux_sym_common_statement_token1] = ACTIONS(6782),
-    [aux_sym_import_statement_token1] = ACTIONS(6782),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
-    [aux_sym_derived_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
-    [aux_sym_include_statement_token1] = ACTIONS(6782),
-    [aux_sym_data_statement_token1] = ACTIONS(6782),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
-    [aux_sym_block_construct_token1] = ACTIONS(6782),
-    [aux_sym_format_statement_token1] = ACTIONS(6782),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
-    [aux_sym_enum_statement_token1] = ACTIONS(6782),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
-    [aux_sym_entry_statement_token1] = ACTIONS(6782),
-    [aux_sym_null_literal_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
-    [aux_sym_identifier_token1] = ACTIONS(6782),
+  [2661] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4369),
+    [aux_sym_preproc_def_token1] = ACTIONS(4369),
+    [aux_sym_preproc_if_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4369),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4369),
+    [sym_preproc_directive] = ACTIONS(4369),
+    [anon_sym_LPAREN2] = ACTIONS(4369),
+    [anon_sym_PLUS] = ACTIONS(5558),
+    [anon_sym_DASH] = ACTIONS(5558),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4369),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4369),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4369),
+    [aux_sym_use_statement_token2] = ACTIONS(4369),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4369),
+    [aux_sym_save_statement_token1] = ACTIONS(4369),
+    [aux_sym_private_statement_token1] = ACTIONS(4369),
+    [aux_sym_public_statement_token1] = ACTIONS(4369),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4369),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4369),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4369),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4369),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4369),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4369),
+    [anon_sym_SEMI] = ACTIONS(5558),
+    [aux_sym_stop_statement_token1] = ACTIONS(4369),
+    [aux_sym_stop_statement_token2] = ACTIONS(4369),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4369),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4369),
+    [aux_sym_include_statement_token1] = ACTIONS(4369),
+    [aux_sym_data_statement_token1] = ACTIONS(4369),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4369),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4369),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4369),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4369),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4369),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4369),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4369),
+    [aux_sym_block_construct_token1] = ACTIONS(4369),
+    [aux_sym_associate_statement_token1] = ACTIONS(4369),
+    [aux_sym_format_statement_token1] = ACTIONS(4369),
+    [aux_sym_print_statement_token1] = ACTIONS(4369),
+    [aux_sym_open_statement_token1] = ACTIONS(4369),
+    [aux_sym_close_statement_token1] = ACTIONS(4369),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4369),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4369),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4369),
+    [aux_sym_entry_statement_token1] = ACTIONS(4369),
+    [aux_sym_logical_expression_token5] = ACTIONS(5558),
+    [anon_sym_DOT] = ACTIONS(4369),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5558),
+    [anon_sym_LBRACK] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5558),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5558),
+    [aux_sym_null_literal_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4369),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4369),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4369),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4369),
+    [aux_sym_identifier_token1] = ACTIONS(4369),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5558),
+    [sym__float_literal] = ACTIONS(5558),
+    [sym__boz_literal] = ACTIONS(5558),
+    [sym__string_literal] = ACTIONS(5558),
+    [sym__string_literal_kind] = ACTIONS(5558),
+  },
+  [2662] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5034),
+    [aux_sym_preproc_def_token1] = ACTIONS(5034),
+    [aux_sym_preproc_if_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5034),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5034),
+    [sym_preproc_directive] = ACTIONS(5034),
+    [anon_sym_LPAREN2] = ACTIONS(5034),
+    [anon_sym_PLUS] = ACTIONS(5636),
+    [anon_sym_DASH] = ACTIONS(5636),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5034),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5034),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5034),
+    [aux_sym_use_statement_token2] = ACTIONS(5034),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5034),
+    [aux_sym_save_statement_token1] = ACTIONS(5034),
+    [aux_sym_private_statement_token1] = ACTIONS(5034),
+    [aux_sym_public_statement_token1] = ACTIONS(5034),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5034),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5034),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5034),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5034),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5034),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5034),
+    [anon_sym_SEMI] = ACTIONS(5636),
+    [aux_sym_stop_statement_token1] = ACTIONS(5034),
+    [aux_sym_stop_statement_token2] = ACTIONS(5034),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5034),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5034),
+    [aux_sym_include_statement_token1] = ACTIONS(5034),
+    [aux_sym_data_statement_token1] = ACTIONS(5034),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5034),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5034),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5034),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5034),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5034),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5034),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5034),
+    [aux_sym_block_construct_token1] = ACTIONS(5034),
+    [aux_sym_associate_statement_token1] = ACTIONS(5034),
+    [aux_sym_format_statement_token1] = ACTIONS(5034),
+    [aux_sym_print_statement_token1] = ACTIONS(5034),
+    [aux_sym_open_statement_token1] = ACTIONS(5034),
+    [aux_sym_close_statement_token1] = ACTIONS(5034),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5034),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5034),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5034),
+    [aux_sym_entry_statement_token1] = ACTIONS(5034),
+    [aux_sym_logical_expression_token5] = ACTIONS(5636),
+    [anon_sym_DOT] = ACTIONS(5034),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5636),
+    [anon_sym_LBRACK] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5636),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5636),
+    [aux_sym_null_literal_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5034),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5034),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5034),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5034),
+    [aux_sym_identifier_token1] = ACTIONS(5034),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5636),
+    [sym__float_literal] = ACTIONS(5636),
+    [sym__boz_literal] = ACTIONS(5636),
+    [sym__string_literal] = ACTIONS(5636),
+    [sym__string_literal_kind] = ACTIONS(5636),
+  },
+  [2663] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5040),
+    [aux_sym_preproc_def_token1] = ACTIONS(5040),
+    [aux_sym_preproc_if_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5040),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5040),
+    [sym_preproc_directive] = ACTIONS(5040),
+    [anon_sym_LPAREN2] = ACTIONS(5040),
+    [anon_sym_PLUS] = ACTIONS(5638),
+    [anon_sym_DASH] = ACTIONS(5638),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5040),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5040),
+    [aux_sym_use_statement_token2] = ACTIONS(5040),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5040),
+    [aux_sym_save_statement_token1] = ACTIONS(5040),
+    [aux_sym_private_statement_token1] = ACTIONS(5040),
+    [aux_sym_public_statement_token1] = ACTIONS(5040),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5040),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5040),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5040),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5040),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5040),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5040),
+    [anon_sym_SEMI] = ACTIONS(5638),
+    [aux_sym_stop_statement_token1] = ACTIONS(5040),
+    [aux_sym_stop_statement_token2] = ACTIONS(5040),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5040),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5040),
+    [aux_sym_include_statement_token1] = ACTIONS(5040),
+    [aux_sym_data_statement_token1] = ACTIONS(5040),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5040),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5040),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5040),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5040),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5040),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5040),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5040),
+    [aux_sym_block_construct_token1] = ACTIONS(5040),
+    [aux_sym_associate_statement_token1] = ACTIONS(5040),
+    [aux_sym_format_statement_token1] = ACTIONS(5040),
+    [aux_sym_print_statement_token1] = ACTIONS(5040),
+    [aux_sym_open_statement_token1] = ACTIONS(5040),
+    [aux_sym_close_statement_token1] = ACTIONS(5040),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5040),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5040),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5040),
+    [aux_sym_entry_statement_token1] = ACTIONS(5040),
+    [aux_sym_logical_expression_token5] = ACTIONS(5638),
+    [anon_sym_DOT] = ACTIONS(5040),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5638),
+    [anon_sym_LBRACK] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5638),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5638),
+    [aux_sym_null_literal_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5040),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5040),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5040),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5040),
+    [aux_sym_identifier_token1] = ACTIONS(5040),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6786),
+    [sym__integer_literal] = ACTIONS(5638),
+    [sym__float_literal] = ACTIONS(5638),
+    [sym__boz_literal] = ACTIONS(5638),
+    [sym__string_literal] = ACTIONS(5638),
+    [sym__string_literal_kind] = ACTIONS(5638),
   },
-  [2707] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [aux_sym_preproc_else_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
+  [2664] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4607),
+    [anon_sym_PLUS] = ACTIONS(4609),
+    [anon_sym_DASH] = ACTIONS(4609),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [anon_sym_SEMI] = ACTIONS(4609),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4607),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4607),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_associate_statement_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_print_statement_token1] = ACTIONS(4607),
+    [aux_sym_open_statement_token1] = ACTIONS(4607),
+    [aux_sym_close_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4607),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4607),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_logical_expression_token5] = ACTIONS(4609),
+    [anon_sym_DOT] = ACTIONS(4607),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4609),
+    [anon_sym_LBRACK] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4609),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4609),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+    [sym__float_literal] = ACTIONS(4609),
+    [sym__boz_literal] = ACTIONS(4609),
+    [sym__string_literal] = ACTIONS(4609),
+    [sym__string_literal_kind] = ACTIONS(4609),
   },
-  [2708] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [aux_sym_preproc_else_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
+  [2665] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_LPAREN2] = ACTIONS(4513),
+    [anon_sym_PLUS] = ACTIONS(4515),
+    [anon_sym_DASH] = ACTIONS(4515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [anon_sym_SEMI] = ACTIONS(4515),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_subroutine_call_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token1] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token4] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token6] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token7] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(4513),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token3] = ACTIONS(4513),
+    [aux_sym_select_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_associate_statement_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_print_statement_token1] = ACTIONS(4513),
+    [aux_sym_open_statement_token1] = ACTIONS(4513),
+    [aux_sym_close_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token1] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token2] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token3] = ACTIONS(4513),
+    [aux_sym_file_position_statement_token4] = ACTIONS(4513),
+    [aux_sym_allocate_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_logical_expression_token5] = ACTIONS(4515),
+    [anon_sym_DOT] = ACTIONS(4513),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(4515),
+    [anon_sym_LBRACK] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token1] = ACTIONS(4515),
+    [aux_sym_boolean_literal_token2] = ACTIONS(4515),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token13] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+    [sym__float_literal] = ACTIONS(4515),
+    [sym__boz_literal] = ACTIONS(4515),
+    [sym__string_literal] = ACTIONS(4515),
+    [sym__string_literal_kind] = ACTIONS(4515),
   },
-  [2709] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6788),
-    [aux_sym_preproc_def_token1] = ACTIONS(6788),
-    [aux_sym_preproc_if_token1] = ACTIONS(6788),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6788),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6788),
-    [sym_preproc_directive] = ACTIONS(6788),
-    [sym_preproc_comment] = ACTIONS(6790),
+  [2666] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5010),
+    [aux_sym_preproc_def_token1] = ACTIONS(5010),
+    [aux_sym_preproc_if_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5010),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5010),
+    [sym_preproc_directive] = ACTIONS(5010),
+    [anon_sym_LPAREN2] = ACTIONS(5010),
+    [anon_sym_PLUS] = ACTIONS(5586),
+    [anon_sym_DASH] = ACTIONS(5586),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5010),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5010),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5010),
+    [aux_sym_use_statement_token2] = ACTIONS(5010),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5010),
+    [aux_sym_save_statement_token1] = ACTIONS(5010),
+    [aux_sym_private_statement_token1] = ACTIONS(5010),
+    [aux_sym_public_statement_token1] = ACTIONS(5010),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5010),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5010),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5010),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5010),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5010),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5010),
+    [anon_sym_SEMI] = ACTIONS(5586),
+    [aux_sym_stop_statement_token1] = ACTIONS(5010),
+    [aux_sym_stop_statement_token2] = ACTIONS(5010),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5010),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5010),
+    [aux_sym_include_statement_token1] = ACTIONS(5010),
+    [aux_sym_data_statement_token1] = ACTIONS(5010),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5010),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5010),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5010),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5010),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5010),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5010),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5010),
+    [aux_sym_block_construct_token1] = ACTIONS(5010),
+    [aux_sym_associate_statement_token1] = ACTIONS(5010),
+    [aux_sym_format_statement_token1] = ACTIONS(5010),
+    [aux_sym_print_statement_token1] = ACTIONS(5010),
+    [aux_sym_open_statement_token1] = ACTIONS(5010),
+    [aux_sym_close_statement_token1] = ACTIONS(5010),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5010),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5010),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5010),
+    [aux_sym_entry_statement_token1] = ACTIONS(5010),
+    [aux_sym_logical_expression_token5] = ACTIONS(5586),
+    [anon_sym_DOT] = ACTIONS(5010),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5586),
+    [anon_sym_LBRACK] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5586),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5586),
+    [aux_sym_null_literal_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5010),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5010),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5010),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5010),
+    [aux_sym_identifier_token1] = ACTIONS(5010),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5586),
+    [sym__float_literal] = ACTIONS(5586),
+    [sym__boz_literal] = ACTIONS(5586),
+    [sym__string_literal] = ACTIONS(5586),
+    [sym__string_literal_kind] = ACTIONS(5586),
+  },
+  [2667] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5020),
+    [aux_sym_preproc_def_token1] = ACTIONS(5020),
+    [aux_sym_preproc_if_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5020),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5020),
+    [sym_preproc_directive] = ACTIONS(5020),
+    [anon_sym_LPAREN2] = ACTIONS(5020),
+    [anon_sym_PLUS] = ACTIONS(5594),
+    [anon_sym_DASH] = ACTIONS(5594),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5020),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5020),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5020),
+    [aux_sym_use_statement_token2] = ACTIONS(5020),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5020),
+    [aux_sym_save_statement_token1] = ACTIONS(5020),
+    [aux_sym_private_statement_token1] = ACTIONS(5020),
+    [aux_sym_public_statement_token1] = ACTIONS(5020),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5020),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5020),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5020),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5020),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5020),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5020),
+    [anon_sym_SEMI] = ACTIONS(5594),
+    [aux_sym_stop_statement_token1] = ACTIONS(5020),
+    [aux_sym_stop_statement_token2] = ACTIONS(5020),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5020),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5020),
+    [aux_sym_include_statement_token1] = ACTIONS(5020),
+    [aux_sym_data_statement_token1] = ACTIONS(5020),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5020),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5020),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5020),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5020),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5020),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5020),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5020),
+    [aux_sym_block_construct_token1] = ACTIONS(5020),
+    [aux_sym_associate_statement_token1] = ACTIONS(5020),
+    [aux_sym_format_statement_token1] = ACTIONS(5020),
+    [aux_sym_print_statement_token1] = ACTIONS(5020),
+    [aux_sym_open_statement_token1] = ACTIONS(5020),
+    [aux_sym_close_statement_token1] = ACTIONS(5020),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5020),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5020),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5020),
+    [aux_sym_entry_statement_token1] = ACTIONS(5020),
+    [aux_sym_logical_expression_token5] = ACTIONS(5594),
+    [anon_sym_DOT] = ACTIONS(5020),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5594),
+    [anon_sym_LBRACK] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5594),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5594),
+    [aux_sym_null_literal_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5020),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5020),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5020),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5020),
+    [aux_sym_identifier_token1] = ACTIONS(5020),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5594),
+    [sym__float_literal] = ACTIONS(5594),
+    [sym__boz_literal] = ACTIONS(5594),
+    [sym__string_literal] = ACTIONS(5594),
+    [sym__string_literal_kind] = ACTIONS(5594),
+  },
+  [2668] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5824),
+    [aux_sym_preproc_def_token1] = ACTIONS(5824),
+    [aux_sym_preproc_if_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5824),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5824),
+    [sym_preproc_directive] = ACTIONS(5824),
+    [anon_sym_LPAREN2] = ACTIONS(5824),
+    [anon_sym_PLUS] = ACTIONS(5826),
+    [anon_sym_DASH] = ACTIONS(5826),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6788),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6788),
-    [aux_sym_interface_statement_token1] = ACTIONS(6788),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6788),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6788),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6788),
-    [aux_sym_language_binding_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6788),
-    [aux_sym_contains_statement_token1] = ACTIONS(6788),
-    [aux_sym_use_statement_token1] = ACTIONS(6788),
-    [aux_sym_use_statement_token2] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6788),
-    [aux_sym_save_statement_token1] = ACTIONS(6788),
-    [aux_sym_private_statement_token1] = ACTIONS(6788),
-    [aux_sym_public_statement_token1] = ACTIONS(6788),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6788),
-    [aux_sym_common_statement_token1] = ACTIONS(6788),
-    [aux_sym_import_statement_token1] = ACTIONS(6788),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6788),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6788),
-    [aux_sym_derived_type_token1] = ACTIONS(6788),
-    [aux_sym_declared_type_token1] = ACTIONS(6788),
-    [aux_sym_declared_type_token2] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6788),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6788),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6788),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6788),
-    [aux_sym_stop_statement_token1] = ACTIONS(6788),
-    [aux_sym_stop_statement_token2] = ACTIONS(6788),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6788),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6788),
-    [aux_sym_include_statement_token1] = ACTIONS(6788),
-    [aux_sym_data_statement_token1] = ACTIONS(6788),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6788),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6788),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6788),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6788),
-    [aux_sym_block_construct_token1] = ACTIONS(6788),
-    [aux_sym_format_statement_token1] = ACTIONS(6788),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6788),
-    [aux_sym_enum_statement_token1] = ACTIONS(6788),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6788),
-    [aux_sym_entry_statement_token1] = ACTIONS(6788),
-    [aux_sym_null_literal_token1] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6788),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6788),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6788),
-    [aux_sym_identifier_token1] = ACTIONS(6788),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6792),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5824),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5824),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5824),
+    [aux_sym_use_statement_token2] = ACTIONS(5824),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5824),
+    [aux_sym_save_statement_token1] = ACTIONS(5824),
+    [aux_sym_private_statement_token1] = ACTIONS(5824),
+    [aux_sym_public_statement_token1] = ACTIONS(5824),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5824),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5824),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5824),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5824),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5824),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5824),
+    [anon_sym_SEMI] = ACTIONS(5826),
+    [aux_sym_stop_statement_token1] = ACTIONS(5824),
+    [aux_sym_stop_statement_token2] = ACTIONS(5824),
+    [aux_sym_subroutine_call_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token1] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token4] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token6] = ACTIONS(5824),
+    [aux_sym_keyword_statement_token7] = ACTIONS(5824),
+    [aux_sym_include_statement_token1] = ACTIONS(5824),
+    [aux_sym_data_statement_token1] = ACTIONS(5824),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(5824),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5824),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5824),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(5824),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_case_statement_token3] = ACTIONS(5824),
+    [aux_sym_select_type_statement_token1] = ACTIONS(5824),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(5824),
+    [aux_sym_block_construct_token1] = ACTIONS(5824),
+    [aux_sym_associate_statement_token1] = ACTIONS(5824),
+    [aux_sym_format_statement_token1] = ACTIONS(5824),
+    [aux_sym_print_statement_token1] = ACTIONS(5824),
+    [aux_sym_open_statement_token1] = ACTIONS(5824),
+    [aux_sym_close_statement_token1] = ACTIONS(5824),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token1] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token2] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token3] = ACTIONS(5824),
+    [aux_sym_file_position_statement_token4] = ACTIONS(5824),
+    [aux_sym_allocate_statement_token1] = ACTIONS(5824),
+    [aux_sym_entry_statement_token1] = ACTIONS(5824),
+    [aux_sym_logical_expression_token5] = ACTIONS(5826),
+    [anon_sym_DOT] = ACTIONS(5824),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5826),
+    [anon_sym_LBRACK] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5826),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5826),
+    [aux_sym_null_literal_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5824),
+    [aux_sym_coarray_statement_token13] = ACTIONS(5824),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5824),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5824),
+    [aux_sym_identifier_token1] = ACTIONS(5824),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5826),
+    [sym__float_literal] = ACTIONS(5826),
+    [sym__boz_literal] = ACTIONS(5826),
+    [sym__string_literal] = ACTIONS(5826),
+    [sym__string_literal_kind] = ACTIONS(5826),
   },
-  [2710] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6718),
-    [aux_sym_preproc_def_token1] = ACTIONS(6718),
-    [aux_sym_preproc_if_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
-    [sym_preproc_directive] = ACTIONS(6718),
-    [sym_preproc_comment] = ACTIONS(6794),
+  [2669] = {
+    [sym_statement_label] = STATE(4003),
+    [sym_statement_label_reference] = STATE(7353),
+    [sym_format_identifier] = STATE(7538),
+    [sym__io_expressions] = STATE(7353),
+    [sym__expression] = STATE(4695),
+    [sym_parenthesized_expression] = STATE(5004),
+    [sym_derived_type_member_expression] = STATE(5004),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(5004),
+    [sym_math_expression] = STATE(5004),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(5004),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7083),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(5004),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4897),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(6700),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6718),
-    [aux_sym_interface_statement_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
-    [aux_sym_language_binding_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
-    [aux_sym_contains_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token2] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
-    [aux_sym_save_statement_token1] = ACTIONS(6718),
-    [aux_sym_private_statement_token1] = ACTIONS(6718),
-    [aux_sym_public_statement_token1] = ACTIONS(6718),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
-    [aux_sym_common_statement_token1] = ACTIONS(6718),
-    [aux_sym_import_statement_token1] = ACTIONS(6718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
-    [aux_sym_derived_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
-    [aux_sym_include_statement_token1] = ACTIONS(6718),
-    [aux_sym_data_statement_token1] = ACTIONS(6718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
-    [aux_sym_block_construct_token1] = ACTIONS(6718),
-    [aux_sym_format_statement_token1] = ACTIONS(6718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
-    [aux_sym_enum_statement_token1] = ACTIONS(6718),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
-    [aux_sym_entry_statement_token1] = ACTIONS(6718),
-    [aux_sym_null_literal_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
-    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6722),
+    [sym__integer_literal] = ACTIONS(4259),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2711] = {
-    [sym_unit_identifier] = STATE(7586),
-    [sym__io_expressions] = STATE(7537),
-    [sym__expression] = STATE(4465),
-    [sym_parenthesized_expression] = STATE(4976),
-    [sym_derived_type_member_expression] = STATE(4976),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4976),
-    [sym_math_expression] = STATE(4976),
-    [sym_unary_expression] = STATE(5053),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(4976),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6600),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5145),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4976),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4901),
+  [2670] = {
+    [sym__argument_list] = STATE(2445),
+    [sym_argument_list] = STATE(3430),
+    [anon_sym_LPAREN2] = ACTIONS(6702),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2671] = {
+    [sym__expression] = STATE(4436),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_assumed_size] = STATE(7310),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_COMMA] = ACTIONS(6706),
+    [anon_sym_RPAREN] = ACTIONS(6706),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_STAR] = ACTIONS(6796),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6708),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -427526,7 +423538,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -427543,44 +423555,239 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2712] = {
-    [sym_unit_identifier] = STATE(7586),
-    [sym__io_expressions] = STATE(7537),
-    [sym__expression] = STATE(4691),
-    [sym_parenthesized_expression] = STATE(4976),
-    [sym_derived_type_member_expression] = STATE(4976),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4976),
-    [sym_math_expression] = STATE(4976),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4976),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6600),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5054),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4976),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4927),
+  [2672] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token2] = ACTIONS(4389),
+    [aux_sym_preproc_else_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [sym_preproc_comment] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
+  },
+  [2673] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+  },
+  [2674] = {
+    [sym__expression] = STATE(4455),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_assumed_size] = STATE(7037),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_COMMA] = ACTIONS(6710),
+    [anon_sym_RPAREN] = ACTIONS(6710),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(6796),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(5878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6712),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -427622,7 +423829,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -427639,685 +423846,1841 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2675] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token2] = ACTIONS(4321),
+    [aux_sym_preproc_else_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [sym_preproc_comment] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+  },
+  [2676] = {
+    [sym_statement_label] = STATE(7219),
+    [sym_statement_label_reference] = STATE(7220),
+    [sym_format_identifier] = STATE(6959),
+    [sym__io_expressions] = STATE(7220),
+    [sym__expression] = STATE(4689),
+    [sym_parenthesized_expression] = STATE(4792),
+    [sym_derived_type_member_expression] = STATE(4792),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(4792),
+    [sym_math_expression] = STATE(4792),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4792),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(4792),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4792),
+    [anon_sym_LPAREN2] = ACTIONS(6714),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(6716),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(5503),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5505),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2677] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token2] = ACTIONS(4347),
+    [aux_sym_preproc_else_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
+    [sym_preproc_comment] = ACTIONS(4349),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_interface_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
+    [aux_sym_language_binding_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
+    [aux_sym_common_statement_token1] = ACTIONS(4347),
+    [aux_sym_import_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
+    [aux_sym_derived_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_enum_statement_token1] = ACTIONS(4347),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4349),
+  },
+  [2678] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token2] = ACTIONS(4343),
+    [aux_sym_preproc_else_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+  },
+  [2679] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [aux_sym_preproc_else_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5122),
+  },
+  [2680] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [aux_sym_preproc_else_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+  },
+  [2681] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [aux_sym_preproc_else_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+  },
+  [2682] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [aux_sym_preproc_else_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+  },
+  [2683] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [aux_sym_preproc_else_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5102),
+  },
+  [2684] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [aux_sym_preproc_else_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+  },
+  [2685] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token2] = ACTIONS(4473),
+    [aux_sym_preproc_else_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4475),
+  },
+  [2686] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6718),
+    [aux_sym_preproc_def_token1] = ACTIONS(6718),
+    [aux_sym_preproc_if_token1] = ACTIONS(6718),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
+    [sym_preproc_directive] = ACTIONS(6718),
+    [sym_preproc_comment] = ACTIONS(6720),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6718),
+    [aux_sym_interface_statement_token1] = ACTIONS(6718),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
+    [aux_sym_language_binding_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
+    [aux_sym_contains_statement_token1] = ACTIONS(6718),
+    [aux_sym_use_statement_token1] = ACTIONS(6718),
+    [aux_sym_use_statement_token2] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
+    [aux_sym_save_statement_token1] = ACTIONS(6718),
+    [aux_sym_private_statement_token1] = ACTIONS(6718),
+    [aux_sym_public_statement_token1] = ACTIONS(6718),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
+    [aux_sym_common_statement_token1] = ACTIONS(6718),
+    [aux_sym_import_statement_token1] = ACTIONS(6718),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
+    [aux_sym_derived_type_token1] = ACTIONS(6718),
+    [aux_sym_declared_type_token1] = ACTIONS(6718),
+    [aux_sym_declared_type_token2] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
+    [aux_sym_stop_statement_token1] = ACTIONS(6718),
+    [aux_sym_stop_statement_token2] = ACTIONS(6718),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
+    [aux_sym_include_statement_token1] = ACTIONS(6718),
+    [aux_sym_data_statement_token1] = ACTIONS(6718),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
+    [aux_sym_block_construct_token1] = ACTIONS(6718),
+    [aux_sym_format_statement_token1] = ACTIONS(6718),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
+    [aux_sym_enum_statement_token1] = ACTIONS(6718),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
+    [aux_sym_entry_statement_token1] = ACTIONS(6718),
+    [aux_sym_null_literal_token1] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
+    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6722),
   },
-  [2713] = {
-    [sym_output_item_list] = STATE(7452),
-    [sym__expression] = STATE(4386),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_COMMA] = ACTIONS(6798),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2687] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token2] = ACTIONS(4485),
+    [aux_sym_preproc_else_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6804),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6804),
+    [sym__integer_literal] = ACTIONS(4487),
   },
-  [2714] = {
-    [sym_unit_identifier] = STATE(7442),
-    [sym__file_position_spec] = STATE(7442),
-    [sym__io_expressions] = STATE(7454),
-    [sym__expression] = STATE(4690),
-    [sym_parenthesized_expression] = STATE(4850),
-    [sym_derived_type_member_expression] = STATE(4850),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4850),
-    [sym_math_expression] = STATE(4850),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4850),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5092),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4850),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4850),
-    [anon_sym_LPAREN2] = ACTIONS(6808),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(6810),
+  [2688] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6724),
+    [aux_sym_preproc_def_token1] = ACTIONS(6724),
+    [aux_sym_preproc_if_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
+    [sym_preproc_directive] = ACTIONS(6724),
+    [sym_preproc_comment] = ACTIONS(6726),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(5503),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6724),
+    [aux_sym_interface_statement_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
+    [aux_sym_language_binding_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
+    [aux_sym_contains_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token2] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
+    [aux_sym_save_statement_token1] = ACTIONS(6724),
+    [aux_sym_private_statement_token1] = ACTIONS(6724),
+    [aux_sym_public_statement_token1] = ACTIONS(6724),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
+    [aux_sym_common_statement_token1] = ACTIONS(6724),
+    [aux_sym_import_statement_token1] = ACTIONS(6724),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
+    [aux_sym_derived_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
+    [aux_sym_include_statement_token1] = ACTIONS(6724),
+    [aux_sym_data_statement_token1] = ACTIONS(6724),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
+    [aux_sym_block_construct_token1] = ACTIONS(6724),
+    [aux_sym_format_statement_token1] = ACTIONS(6724),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
+    [aux_sym_enum_statement_token1] = ACTIONS(6724),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
+    [aux_sym_entry_statement_token1] = ACTIONS(6724),
+    [aux_sym_null_literal_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
+    [aux_sym_identifier_token1] = ACTIONS(6724),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2715] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6812),
-    [aux_sym_preproc_def_token1] = ACTIONS(6812),
-    [aux_sym_preproc_if_token1] = ACTIONS(6812),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6812),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6812),
-    [sym_preproc_directive] = ACTIONS(6812),
-    [sym_preproc_comment] = ACTIONS(6814),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6812),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6812),
-    [aux_sym_interface_statement_token1] = ACTIONS(6812),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6812),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6812),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6812),
-    [aux_sym_language_binding_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6812),
-    [aux_sym_contains_statement_token1] = ACTIONS(6812),
-    [aux_sym_use_statement_token1] = ACTIONS(6812),
-    [aux_sym_use_statement_token2] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6812),
-    [aux_sym_save_statement_token1] = ACTIONS(6812),
-    [aux_sym_private_statement_token1] = ACTIONS(6812),
-    [aux_sym_public_statement_token1] = ACTIONS(6812),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6812),
-    [aux_sym_common_statement_token1] = ACTIONS(6812),
-    [aux_sym_import_statement_token1] = ACTIONS(6812),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6812),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6812),
-    [aux_sym_derived_type_token1] = ACTIONS(6812),
-    [aux_sym_declared_type_token1] = ACTIONS(6812),
-    [aux_sym_declared_type_token2] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6812),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6812),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6812),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6812),
-    [aux_sym_stop_statement_token1] = ACTIONS(6812),
-    [aux_sym_stop_statement_token2] = ACTIONS(6812),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6812),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6812),
-    [aux_sym_include_statement_token1] = ACTIONS(6812),
-    [aux_sym_data_statement_token1] = ACTIONS(6812),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6812),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6812),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6812),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6812),
-    [aux_sym_block_construct_token1] = ACTIONS(6812),
-    [aux_sym_format_statement_token1] = ACTIONS(6812),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6812),
-    [aux_sym_enum_statement_token1] = ACTIONS(6812),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6812),
-    [aux_sym_entry_statement_token1] = ACTIONS(6812),
-    [aux_sym_null_literal_token1] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6812),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6812),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6812),
-    [aux_sym_identifier_token1] = ACTIONS(6812),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6816),
-  },
-  [2716] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6818),
-    [aux_sym_preproc_def_token1] = ACTIONS(6818),
-    [aux_sym_preproc_if_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6818),
-    [sym_preproc_directive] = ACTIONS(6818),
-    [sym_preproc_comment] = ACTIONS(6820),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6818),
-    [aux_sym_interface_statement_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6818),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6818),
-    [aux_sym_language_binding_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6818),
-    [aux_sym_contains_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token2] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6818),
-    [aux_sym_save_statement_token1] = ACTIONS(6818),
-    [aux_sym_private_statement_token1] = ACTIONS(6818),
-    [aux_sym_public_statement_token1] = ACTIONS(6818),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6818),
-    [aux_sym_common_statement_token1] = ACTIONS(6818),
-    [aux_sym_import_statement_token1] = ACTIONS(6818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6818),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6818),
-    [aux_sym_derived_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6818),
-    [aux_sym_include_statement_token1] = ACTIONS(6818),
-    [aux_sym_data_statement_token1] = ACTIONS(6818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6818),
-    [aux_sym_block_construct_token1] = ACTIONS(6818),
-    [aux_sym_format_statement_token1] = ACTIONS(6818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6818),
-    [aux_sym_enum_statement_token1] = ACTIONS(6818),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6818),
-    [aux_sym_entry_statement_token1] = ACTIONS(6818),
-    [aux_sym_null_literal_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6818),
-    [aux_sym_identifier_token1] = ACTIONS(6818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6822),
+    [sym__integer_literal] = ACTIONS(6728),
   },
-  [2717] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [aux_sym_preproc_else_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
+  [2689] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6730),
+    [aux_sym_preproc_def_token1] = ACTIONS(6730),
+    [aux_sym_preproc_if_token1] = ACTIONS(6730),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6730),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6730),
+    [sym_preproc_directive] = ACTIONS(6730),
+    [sym_preproc_comment] = ACTIONS(6732),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6730),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6730),
+    [aux_sym_interface_statement_token1] = ACTIONS(6730),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6730),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6730),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6730),
+    [aux_sym_language_binding_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6730),
+    [aux_sym_contains_statement_token1] = ACTIONS(6730),
+    [aux_sym_use_statement_token1] = ACTIONS(6730),
+    [aux_sym_use_statement_token2] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6730),
+    [aux_sym_save_statement_token1] = ACTIONS(6730),
+    [aux_sym_private_statement_token1] = ACTIONS(6730),
+    [aux_sym_public_statement_token1] = ACTIONS(6730),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6730),
+    [aux_sym_common_statement_token1] = ACTIONS(6730),
+    [aux_sym_import_statement_token1] = ACTIONS(6730),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6730),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6730),
+    [aux_sym_derived_type_token1] = ACTIONS(6730),
+    [aux_sym_declared_type_token1] = ACTIONS(6730),
+    [aux_sym_declared_type_token2] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6730),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6730),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6730),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6730),
+    [aux_sym_stop_statement_token1] = ACTIONS(6730),
+    [aux_sym_stop_statement_token2] = ACTIONS(6730),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6730),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6730),
+    [aux_sym_include_statement_token1] = ACTIONS(6730),
+    [aux_sym_data_statement_token1] = ACTIONS(6730),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6730),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6730),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6730),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6730),
+    [aux_sym_block_construct_token1] = ACTIONS(6730),
+    [aux_sym_format_statement_token1] = ACTIONS(6730),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6730),
+    [aux_sym_enum_statement_token1] = ACTIONS(6730),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6730),
+    [aux_sym_entry_statement_token1] = ACTIONS(6730),
+    [aux_sym_null_literal_token1] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6730),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6730),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6730),
+    [aux_sym_identifier_token1] = ACTIONS(6730),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
+    [sym__integer_literal] = ACTIONS(6734),
   },
-  [2718] = {
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
+  [2690] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6736),
+    [aux_sym_preproc_def_token1] = ACTIONS(6736),
+    [aux_sym_preproc_if_token1] = ACTIONS(6736),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6736),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6736),
+    [sym_preproc_directive] = ACTIONS(6736),
+    [sym_preproc_comment] = ACTIONS(6738),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6736),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6736),
+    [aux_sym_interface_statement_token1] = ACTIONS(6736),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6736),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6736),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6736),
+    [aux_sym_language_binding_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6736),
+    [aux_sym_contains_statement_token1] = ACTIONS(6736),
+    [aux_sym_use_statement_token1] = ACTIONS(6736),
+    [aux_sym_use_statement_token2] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6736),
+    [aux_sym_save_statement_token1] = ACTIONS(6736),
+    [aux_sym_private_statement_token1] = ACTIONS(6736),
+    [aux_sym_public_statement_token1] = ACTIONS(6736),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6736),
+    [aux_sym_common_statement_token1] = ACTIONS(6736),
+    [aux_sym_import_statement_token1] = ACTIONS(6736),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6736),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6736),
+    [aux_sym_derived_type_token1] = ACTIONS(6736),
+    [aux_sym_declared_type_token1] = ACTIONS(6736),
+    [aux_sym_declared_type_token2] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6736),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6736),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6736),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6736),
+    [aux_sym_stop_statement_token1] = ACTIONS(6736),
+    [aux_sym_stop_statement_token2] = ACTIONS(6736),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6736),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6736),
+    [aux_sym_include_statement_token1] = ACTIONS(6736),
+    [aux_sym_data_statement_token1] = ACTIONS(6736),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6736),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6736),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6736),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6736),
+    [aux_sym_block_construct_token1] = ACTIONS(6736),
+    [aux_sym_format_statement_token1] = ACTIONS(6736),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6736),
+    [aux_sym_enum_statement_token1] = ACTIONS(6736),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6736),
+    [aux_sym_entry_statement_token1] = ACTIONS(6736),
+    [aux_sym_null_literal_token1] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6736),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6736),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6736),
+    [aux_sym_identifier_token1] = ACTIONS(6736),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6740),
   },
-  [2719] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [aux_sym_preproc_else_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
+  [2691] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6742),
+    [aux_sym_preproc_def_token1] = ACTIONS(6742),
+    [aux_sym_preproc_if_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6742),
+    [sym_preproc_directive] = ACTIONS(6742),
+    [sym_preproc_comment] = ACTIONS(6744),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6742),
+    [aux_sym_interface_statement_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6742),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6742),
+    [aux_sym_language_binding_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6742),
+    [aux_sym_contains_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token2] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6742),
+    [aux_sym_save_statement_token1] = ACTIONS(6742),
+    [aux_sym_private_statement_token1] = ACTIONS(6742),
+    [aux_sym_public_statement_token1] = ACTIONS(6742),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6742),
+    [aux_sym_common_statement_token1] = ACTIONS(6742),
+    [aux_sym_import_statement_token1] = ACTIONS(6742),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6742),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6742),
+    [aux_sym_derived_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6742),
+    [aux_sym_include_statement_token1] = ACTIONS(6742),
+    [aux_sym_data_statement_token1] = ACTIONS(6742),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6742),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6742),
+    [aux_sym_block_construct_token1] = ACTIONS(6742),
+    [aux_sym_format_statement_token1] = ACTIONS(6742),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6742),
+    [aux_sym_enum_statement_token1] = ACTIONS(6742),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6742),
+    [aux_sym_entry_statement_token1] = ACTIONS(6742),
+    [aux_sym_null_literal_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6742),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6742),
+    [aux_sym_identifier_token1] = ACTIONS(6742),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6746),
+  },
+  [2692] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6748),
+    [aux_sym_preproc_def_token1] = ACTIONS(6748),
+    [aux_sym_preproc_if_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6748),
+    [sym_preproc_directive] = ACTIONS(6748),
+    [sym_preproc_comment] = ACTIONS(6750),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6748),
+    [aux_sym_interface_statement_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6748),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6748),
+    [aux_sym_language_binding_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6748),
+    [aux_sym_contains_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token2] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6748),
+    [aux_sym_save_statement_token1] = ACTIONS(6748),
+    [aux_sym_private_statement_token1] = ACTIONS(6748),
+    [aux_sym_public_statement_token1] = ACTIONS(6748),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6748),
+    [aux_sym_common_statement_token1] = ACTIONS(6748),
+    [aux_sym_import_statement_token1] = ACTIONS(6748),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6748),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6748),
+    [aux_sym_derived_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6748),
+    [aux_sym_include_statement_token1] = ACTIONS(6748),
+    [aux_sym_data_statement_token1] = ACTIONS(6748),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6748),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6748),
+    [aux_sym_block_construct_token1] = ACTIONS(6748),
+    [aux_sym_format_statement_token1] = ACTIONS(6748),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6748),
+    [aux_sym_enum_statement_token1] = ACTIONS(6748),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6748),
+    [aux_sym_entry_statement_token1] = ACTIONS(6748),
+    [aux_sym_null_literal_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6748),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6748),
+    [aux_sym_identifier_token1] = ACTIONS(6748),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6752),
+  },
+  [2693] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6754),
+    [aux_sym_preproc_def_token1] = ACTIONS(6754),
+    [aux_sym_preproc_if_token1] = ACTIONS(6754),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6754),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6754),
+    [sym_preproc_directive] = ACTIONS(6754),
+    [sym_preproc_comment] = ACTIONS(6756),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6754),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6754),
+    [aux_sym_interface_statement_token1] = ACTIONS(6754),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6754),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6754),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6754),
+    [aux_sym_language_binding_token1] = ACTIONS(6754),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6754),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6754),
+    [aux_sym_contains_statement_token1] = ACTIONS(6754),
+    [aux_sym_use_statement_token1] = ACTIONS(6754),
+    [aux_sym_use_statement_token2] = ACTIONS(6754),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6754),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6754),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6754),
+    [aux_sym_save_statement_token1] = ACTIONS(6754),
+    [aux_sym_private_statement_token1] = ACTIONS(6754),
+    [aux_sym_public_statement_token1] = ACTIONS(6754),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6754),
+    [aux_sym_common_statement_token1] = ACTIONS(6754),
+    [aux_sym_import_statement_token1] = ACTIONS(6754),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6754),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6754),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6754),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6754),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6754),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6754),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6754),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6754),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6754),
+    [aux_sym_derived_type_token1] = ACTIONS(6754),
+    [aux_sym_declared_type_token1] = ACTIONS(6754),
+    [aux_sym_declared_type_token2] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6754),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6754),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6754),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6754),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6754),
+    [aux_sym_stop_statement_token1] = ACTIONS(6754),
+    [aux_sym_stop_statement_token2] = ACTIONS(6754),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6754),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6754),
+    [aux_sym_include_statement_token1] = ACTIONS(6754),
+    [aux_sym_data_statement_token1] = ACTIONS(6754),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6754),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6754),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6754),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6754),
+    [aux_sym_block_construct_token1] = ACTIONS(6754),
+    [aux_sym_format_statement_token1] = ACTIONS(6754),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6754),
+    [aux_sym_enum_statement_token1] = ACTIONS(6754),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6754),
+    [aux_sym_entry_statement_token1] = ACTIONS(6754),
+    [aux_sym_null_literal_token1] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6754),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6754),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6754),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6754),
+    [aux_sym_identifier_token1] = ACTIONS(6754),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
+    [sym__integer_literal] = ACTIONS(6758),
   },
-  [2720] = {
+  [2694] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5124),
     [aux_sym_preproc_def_token1] = ACTIONS(5124),
     [aux_sym_preproc_if_token2] = ACTIONS(5124),
@@ -428413,103 +425776,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5126),
   },
-  [2721] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6812),
-    [aux_sym_preproc_def_token1] = ACTIONS(6812),
-    [aux_sym_preproc_if_token1] = ACTIONS(6812),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6812),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6812),
-    [sym_preproc_directive] = ACTIONS(6812),
-    [sym_preproc_comment] = ACTIONS(6824),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6812),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6812),
-    [aux_sym_interface_statement_token1] = ACTIONS(6812),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6812),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6812),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6812),
-    [aux_sym_language_binding_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6812),
-    [aux_sym_contains_statement_token1] = ACTIONS(6812),
-    [aux_sym_use_statement_token1] = ACTIONS(6812),
-    [aux_sym_use_statement_token2] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6812),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6812),
-    [aux_sym_save_statement_token1] = ACTIONS(6812),
-    [aux_sym_private_statement_token1] = ACTIONS(6812),
-    [aux_sym_public_statement_token1] = ACTIONS(6812),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6812),
-    [aux_sym_common_statement_token1] = ACTIONS(6812),
-    [aux_sym_import_statement_token1] = ACTIONS(6812),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6812),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6812),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6812),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6812),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6812),
-    [aux_sym_derived_type_token1] = ACTIONS(6812),
-    [aux_sym_declared_type_token1] = ACTIONS(6812),
-    [aux_sym_declared_type_token2] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6812),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6812),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6812),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6812),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6812),
-    [aux_sym_stop_statement_token1] = ACTIONS(6812),
-    [aux_sym_stop_statement_token2] = ACTIONS(6812),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6812),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6812),
-    [aux_sym_include_statement_token1] = ACTIONS(6812),
-    [aux_sym_data_statement_token1] = ACTIONS(6812),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6812),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6812),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6812),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6812),
-    [aux_sym_block_construct_token1] = ACTIONS(6812),
-    [aux_sym_format_statement_token1] = ACTIONS(6812),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6812),
-    [aux_sym_enum_statement_token1] = ACTIONS(6812),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6812),
-    [aux_sym_entry_statement_token1] = ACTIONS(6812),
-    [aux_sym_null_literal_token1] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6812),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6812),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6812),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6812),
-    [aux_sym_identifier_token1] = ACTIONS(6812),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6816),
-  },
-  [2722] = {
+  [2695] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5132),
     [aux_sym_preproc_def_token1] = ACTIONS(5132),
     [aux_sym_preproc_if_token2] = ACTIONS(5132),
@@ -428605,902 +425872,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(5134),
   },
-  [2723] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6818),
-    [aux_sym_preproc_def_token1] = ACTIONS(6818),
-    [aux_sym_preproc_if_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6818),
-    [sym_preproc_directive] = ACTIONS(6818),
-    [sym_preproc_comment] = ACTIONS(6826),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6818),
-    [aux_sym_interface_statement_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6818),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6818),
-    [aux_sym_language_binding_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6818),
-    [aux_sym_contains_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token2] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6818),
-    [aux_sym_save_statement_token1] = ACTIONS(6818),
-    [aux_sym_private_statement_token1] = ACTIONS(6818),
-    [aux_sym_public_statement_token1] = ACTIONS(6818),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6818),
-    [aux_sym_common_statement_token1] = ACTIONS(6818),
-    [aux_sym_import_statement_token1] = ACTIONS(6818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6818),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6818),
-    [aux_sym_derived_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6818),
-    [aux_sym_include_statement_token1] = ACTIONS(6818),
-    [aux_sym_data_statement_token1] = ACTIONS(6818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6818),
-    [aux_sym_block_construct_token1] = ACTIONS(6818),
-    [aux_sym_format_statement_token1] = ACTIONS(6818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6818),
-    [aux_sym_enum_statement_token1] = ACTIONS(6818),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6818),
-    [aux_sym_entry_statement_token1] = ACTIONS(6818),
-    [aux_sym_null_literal_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6818),
-    [aux_sym_identifier_token1] = ACTIONS(6818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6822),
-  },
-  [2724] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6760),
-    [aux_sym_preproc_def_token1] = ACTIONS(6760),
-    [aux_sym_preproc_if_token1] = ACTIONS(6760),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6760),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6760),
-    [sym_preproc_directive] = ACTIONS(6760),
-    [sym_preproc_comment] = ACTIONS(6828),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6760),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6760),
-    [aux_sym_interface_statement_token1] = ACTIONS(6760),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6760),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6760),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6760),
-    [aux_sym_language_binding_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6760),
-    [aux_sym_contains_statement_token1] = ACTIONS(6760),
-    [aux_sym_use_statement_token1] = ACTIONS(6760),
-    [aux_sym_use_statement_token2] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6760),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6760),
-    [aux_sym_save_statement_token1] = ACTIONS(6760),
-    [aux_sym_private_statement_token1] = ACTIONS(6760),
-    [aux_sym_public_statement_token1] = ACTIONS(6760),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6760),
-    [aux_sym_common_statement_token1] = ACTIONS(6760),
-    [aux_sym_import_statement_token1] = ACTIONS(6760),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6760),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6760),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6760),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6760),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6760),
-    [aux_sym_derived_type_token1] = ACTIONS(6760),
-    [aux_sym_declared_type_token1] = ACTIONS(6760),
-    [aux_sym_declared_type_token2] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6760),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6760),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6760),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6760),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6760),
-    [aux_sym_stop_statement_token1] = ACTIONS(6760),
-    [aux_sym_stop_statement_token2] = ACTIONS(6760),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6760),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6760),
-    [aux_sym_include_statement_token1] = ACTIONS(6760),
-    [aux_sym_data_statement_token1] = ACTIONS(6760),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6760),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6760),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6760),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6760),
-    [aux_sym_block_construct_token1] = ACTIONS(6760),
-    [aux_sym_format_statement_token1] = ACTIONS(6760),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6760),
-    [aux_sym_enum_statement_token1] = ACTIONS(6760),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6760),
-    [aux_sym_entry_statement_token1] = ACTIONS(6760),
-    [aux_sym_null_literal_token1] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6760),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6760),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6760),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6760),
-    [aux_sym_identifier_token1] = ACTIONS(6760),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6764),
-  },
-  [2725] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [aux_sym_preproc_else_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-  },
-  [2726] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6830),
-    [aux_sym_preproc_def_token1] = ACTIONS(6830),
-    [aux_sym_preproc_if_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6830),
-    [sym_preproc_directive] = ACTIONS(6830),
-    [sym_preproc_comment] = ACTIONS(6832),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6830),
-    [aux_sym_interface_statement_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6830),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6830),
-    [aux_sym_language_binding_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6830),
-    [aux_sym_contains_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token2] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6830),
-    [aux_sym_save_statement_token1] = ACTIONS(6830),
-    [aux_sym_private_statement_token1] = ACTIONS(6830),
-    [aux_sym_public_statement_token1] = ACTIONS(6830),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6830),
-    [aux_sym_common_statement_token1] = ACTIONS(6830),
-    [aux_sym_import_statement_token1] = ACTIONS(6830),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6830),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6830),
-    [aux_sym_derived_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6830),
-    [aux_sym_include_statement_token1] = ACTIONS(6830),
-    [aux_sym_data_statement_token1] = ACTIONS(6830),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6830),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6830),
-    [aux_sym_block_construct_token1] = ACTIONS(6830),
-    [aux_sym_format_statement_token1] = ACTIONS(6830),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6830),
-    [aux_sym_enum_statement_token1] = ACTIONS(6830),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6830),
-    [aux_sym_entry_statement_token1] = ACTIONS(6830),
-    [aux_sym_null_literal_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6830),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6830),
-    [aux_sym_identifier_token1] = ACTIONS(6830),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6834),
-  },
-  [2727] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6738),
-    [aux_sym_preproc_def_token1] = ACTIONS(6738),
-    [aux_sym_preproc_if_token1] = ACTIONS(6738),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6738),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6738),
-    [sym_preproc_directive] = ACTIONS(6738),
-    [sym_preproc_comment] = ACTIONS(6836),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6738),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6738),
-    [aux_sym_interface_statement_token1] = ACTIONS(6738),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6738),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6738),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6738),
-    [aux_sym_language_binding_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6738),
-    [aux_sym_contains_statement_token1] = ACTIONS(6738),
-    [aux_sym_use_statement_token1] = ACTIONS(6738),
-    [aux_sym_use_statement_token2] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6738),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6738),
-    [aux_sym_save_statement_token1] = ACTIONS(6738),
-    [aux_sym_private_statement_token1] = ACTIONS(6738),
-    [aux_sym_public_statement_token1] = ACTIONS(6738),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6738),
-    [aux_sym_common_statement_token1] = ACTIONS(6738),
-    [aux_sym_import_statement_token1] = ACTIONS(6738),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6738),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6738),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6738),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6738),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6738),
-    [aux_sym_derived_type_token1] = ACTIONS(6738),
-    [aux_sym_declared_type_token1] = ACTIONS(6738),
-    [aux_sym_declared_type_token2] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6738),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6738),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6738),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6738),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6738),
-    [aux_sym_stop_statement_token1] = ACTIONS(6738),
-    [aux_sym_stop_statement_token2] = ACTIONS(6738),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6738),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6738),
-    [aux_sym_include_statement_token1] = ACTIONS(6738),
-    [aux_sym_data_statement_token1] = ACTIONS(6738),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6738),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6738),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6738),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6738),
-    [aux_sym_block_construct_token1] = ACTIONS(6738),
-    [aux_sym_format_statement_token1] = ACTIONS(6738),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6738),
-    [aux_sym_enum_statement_token1] = ACTIONS(6738),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6738),
-    [aux_sym_entry_statement_token1] = ACTIONS(6738),
-    [aux_sym_null_literal_token1] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6738),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6738),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6738),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6738),
-    [aux_sym_identifier_token1] = ACTIONS(6738),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6742),
-  },
-  [2728] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [aux_sym_preproc_else_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-  },
-  [2729] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [aux_sym_preproc_else_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-  },
-  [2730] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [aux_sym_preproc_else_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-  },
-  [2731] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [aux_sym_preproc_else_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
-  },
-  [2732] = {
-    [sym_case_value_range_list] = STATE(8162),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2696] = {
+    [sym__expression] = STATE(4447),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_COMMA] = ACTIONS(6760),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6762),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6764),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -429542,10 +425944,11 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
+    [anon_sym_RBRACK] = ACTIONS(6760),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
@@ -429559,139 +425962,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2733] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [aux_sym_preproc_else_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
+  [2697] = {
+    [sym__expression] = STATE(4437),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_COMMA] = ACTIONS(6766),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6768),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6770),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [anon_sym_RBRACK] = ACTIONS(6766),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2734] = {
+  [2698] = {
     [sym__expression] = STATE(4439),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_COMMA] = ACTIONS(6838),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6835),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6840),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6842),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -429733,11 +426137,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
-    [anon_sym_RBRACK] = ACTIONS(6838),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
@@ -429751,116 +426154,308 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2735] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [aux_sym_preproc_else_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
+  [2699] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [aux_sym_preproc_else_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
   },
-  [2736] = {
+  [2700] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6776),
+    [aux_sym_preproc_def_token1] = ACTIONS(6776),
+    [aux_sym_preproc_if_token1] = ACTIONS(6776),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6776),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6776),
+    [sym_preproc_directive] = ACTIONS(6776),
+    [sym_preproc_comment] = ACTIONS(6778),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6776),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6776),
+    [aux_sym_interface_statement_token1] = ACTIONS(6776),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6776),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6776),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6776),
+    [aux_sym_language_binding_token1] = ACTIONS(6776),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6776),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6776),
+    [aux_sym_contains_statement_token1] = ACTIONS(6776),
+    [aux_sym_use_statement_token1] = ACTIONS(6776),
+    [aux_sym_use_statement_token2] = ACTIONS(6776),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6776),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6776),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6776),
+    [aux_sym_save_statement_token1] = ACTIONS(6776),
+    [aux_sym_private_statement_token1] = ACTIONS(6776),
+    [aux_sym_public_statement_token1] = ACTIONS(6776),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6776),
+    [aux_sym_common_statement_token1] = ACTIONS(6776),
+    [aux_sym_import_statement_token1] = ACTIONS(6776),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6776),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6776),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6776),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6776),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6776),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6776),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6776),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6776),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6776),
+    [aux_sym_derived_type_token1] = ACTIONS(6776),
+    [aux_sym_declared_type_token1] = ACTIONS(6776),
+    [aux_sym_declared_type_token2] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6776),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6776),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6776),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6776),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6776),
+    [aux_sym_stop_statement_token1] = ACTIONS(6776),
+    [aux_sym_stop_statement_token2] = ACTIONS(6776),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6776),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6776),
+    [aux_sym_include_statement_token1] = ACTIONS(6776),
+    [aux_sym_data_statement_token1] = ACTIONS(6776),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6776),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6776),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6776),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6776),
+    [aux_sym_block_construct_token1] = ACTIONS(6776),
+    [aux_sym_format_statement_token1] = ACTIONS(6776),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6776),
+    [aux_sym_enum_statement_token1] = ACTIONS(6776),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6776),
+    [aux_sym_entry_statement_token1] = ACTIONS(6776),
+    [aux_sym_null_literal_token1] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6776),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6776),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6776),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6776),
+    [aux_sym_identifier_token1] = ACTIONS(6776),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6780),
+  },
+  [2701] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6782),
+    [aux_sym_preproc_def_token1] = ACTIONS(6782),
+    [aux_sym_preproc_if_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
+    [sym_preproc_directive] = ACTIONS(6782),
+    [sym_preproc_comment] = ACTIONS(6784),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6782),
+    [aux_sym_interface_statement_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
+    [aux_sym_language_binding_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
+    [aux_sym_contains_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token2] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
+    [aux_sym_save_statement_token1] = ACTIONS(6782),
+    [aux_sym_private_statement_token1] = ACTIONS(6782),
+    [aux_sym_public_statement_token1] = ACTIONS(6782),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
+    [aux_sym_common_statement_token1] = ACTIONS(6782),
+    [aux_sym_import_statement_token1] = ACTIONS(6782),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
+    [aux_sym_derived_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
+    [aux_sym_include_statement_token1] = ACTIONS(6782),
+    [aux_sym_data_statement_token1] = ACTIONS(6782),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
+    [aux_sym_block_construct_token1] = ACTIONS(6782),
+    [aux_sym_format_statement_token1] = ACTIONS(6782),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
+    [aux_sym_enum_statement_token1] = ACTIONS(6782),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
+    [aux_sym_entry_statement_token1] = ACTIONS(6782),
+    [aux_sym_null_literal_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
+    [aux_sym_identifier_token1] = ACTIONS(6782),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6786),
+  },
+  [2702] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6776),
     [aux_sym_preproc_def_token1] = ACTIONS(6776),
     [aux_sym_preproc_if_token1] = ACTIONS(6776),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(6776),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(6776),
     [sym_preproc_directive] = ACTIONS(6776),
-    [sym_preproc_comment] = ACTIONS(6844),
+    [sym_preproc_comment] = ACTIONS(6788),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(6776),
     [aux_sym_end_submodule_statement_token1] = ACTIONS(6776),
@@ -429949,14 +426544,110 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6780),
   },
-  [2737] = {
+  [2703] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [aux_sym_preproc_else_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+  },
+  [2704] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6782),
     [aux_sym_preproc_def_token1] = ACTIONS(6782),
     [aux_sym_preproc_if_token1] = ACTIONS(6782),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
     [sym_preproc_directive] = ACTIONS(6782),
-    [sym_preproc_comment] = ACTIONS(6846),
+    [sym_preproc_comment] = ACTIONS(6790),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(6782),
     [aux_sym_end_submodule_statement_token1] = ACTIONS(6782),
@@ -430045,518 +426736,2246 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6786),
   },
-  [2738] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6788),
-    [aux_sym_preproc_def_token1] = ACTIONS(6788),
-    [aux_sym_preproc_if_token1] = ACTIONS(6788),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6788),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6788),
-    [sym_preproc_directive] = ACTIONS(6788),
-    [sym_preproc_comment] = ACTIONS(6848),
+  [2705] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [aux_sym_preproc_else_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6788),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6788),
-    [aux_sym_interface_statement_token1] = ACTIONS(6788),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6788),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6788),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6788),
-    [aux_sym_language_binding_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6788),
-    [aux_sym_contains_statement_token1] = ACTIONS(6788),
-    [aux_sym_use_statement_token1] = ACTIONS(6788),
-    [aux_sym_use_statement_token2] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6788),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6788),
-    [aux_sym_save_statement_token1] = ACTIONS(6788),
-    [aux_sym_private_statement_token1] = ACTIONS(6788),
-    [aux_sym_public_statement_token1] = ACTIONS(6788),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6788),
-    [aux_sym_common_statement_token1] = ACTIONS(6788),
-    [aux_sym_import_statement_token1] = ACTIONS(6788),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6788),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6788),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6788),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6788),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6788),
-    [aux_sym_derived_type_token1] = ACTIONS(6788),
-    [aux_sym_declared_type_token1] = ACTIONS(6788),
-    [aux_sym_declared_type_token2] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6788),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6788),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6788),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6788),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6788),
-    [aux_sym_stop_statement_token1] = ACTIONS(6788),
-    [aux_sym_stop_statement_token2] = ACTIONS(6788),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6788),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6788),
-    [aux_sym_include_statement_token1] = ACTIONS(6788),
-    [aux_sym_data_statement_token1] = ACTIONS(6788),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6788),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6788),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6788),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6788),
-    [aux_sym_block_construct_token1] = ACTIONS(6788),
-    [aux_sym_format_statement_token1] = ACTIONS(6788),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6788),
-    [aux_sym_enum_statement_token1] = ACTIONS(6788),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6788),
-    [aux_sym_entry_statement_token1] = ACTIONS(6788),
-    [aux_sym_null_literal_token1] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6788),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6788),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6788),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6788),
-    [aux_sym_identifier_token1] = ACTIONS(6788),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6792),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4439),
   },
-  [2739] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6830),
-    [aux_sym_preproc_def_token1] = ACTIONS(6830),
-    [aux_sym_preproc_if_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6830),
-    [sym_preproc_directive] = ACTIONS(6830),
-    [sym_preproc_comment] = ACTIONS(6850),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6830),
-    [aux_sym_interface_statement_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6830),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6830),
-    [aux_sym_language_binding_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6830),
-    [aux_sym_contains_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token2] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6830),
-    [aux_sym_save_statement_token1] = ACTIONS(6830),
-    [aux_sym_private_statement_token1] = ACTIONS(6830),
-    [aux_sym_public_statement_token1] = ACTIONS(6830),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6830),
-    [aux_sym_common_statement_token1] = ACTIONS(6830),
-    [aux_sym_import_statement_token1] = ACTIONS(6830),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6830),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6830),
-    [aux_sym_derived_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6830),
-    [aux_sym_include_statement_token1] = ACTIONS(6830),
-    [aux_sym_data_statement_token1] = ACTIONS(6830),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6830),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6830),
-    [aux_sym_block_construct_token1] = ACTIONS(6830),
-    [aux_sym_format_statement_token1] = ACTIONS(6830),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6830),
-    [aux_sym_enum_statement_token1] = ACTIONS(6830),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6830),
-    [aux_sym_entry_statement_token1] = ACTIONS(6830),
-    [aux_sym_null_literal_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6830),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6830),
-    [aux_sym_identifier_token1] = ACTIONS(6830),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6834),
+  [2706] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6792),
+    [aux_sym_preproc_def_token1] = ACTIONS(6792),
+    [aux_sym_preproc_if_token1] = ACTIONS(6792),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6792),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6792),
+    [sym_preproc_directive] = ACTIONS(6792),
+    [sym_preproc_comment] = ACTIONS(6794),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6792),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6792),
+    [aux_sym_interface_statement_token1] = ACTIONS(6792),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6792),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6792),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6792),
+    [aux_sym_language_binding_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6792),
+    [aux_sym_contains_statement_token1] = ACTIONS(6792),
+    [aux_sym_use_statement_token1] = ACTIONS(6792),
+    [aux_sym_use_statement_token2] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6792),
+    [aux_sym_save_statement_token1] = ACTIONS(6792),
+    [aux_sym_private_statement_token1] = ACTIONS(6792),
+    [aux_sym_public_statement_token1] = ACTIONS(6792),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6792),
+    [aux_sym_common_statement_token1] = ACTIONS(6792),
+    [aux_sym_import_statement_token1] = ACTIONS(6792),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6792),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6792),
+    [aux_sym_derived_type_token1] = ACTIONS(6792),
+    [aux_sym_declared_type_token1] = ACTIONS(6792),
+    [aux_sym_declared_type_token2] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6792),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6792),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6792),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6792),
+    [aux_sym_stop_statement_token1] = ACTIONS(6792),
+    [aux_sym_stop_statement_token2] = ACTIONS(6792),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6792),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6792),
+    [aux_sym_include_statement_token1] = ACTIONS(6792),
+    [aux_sym_data_statement_token1] = ACTIONS(6792),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6792),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6792),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6792),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6792),
+    [aux_sym_block_construct_token1] = ACTIONS(6792),
+    [aux_sym_format_statement_token1] = ACTIONS(6792),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6792),
+    [aux_sym_enum_statement_token1] = ACTIONS(6792),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6792),
+    [aux_sym_entry_statement_token1] = ACTIONS(6792),
+    [aux_sym_null_literal_token1] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6792),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6792),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6792),
+    [aux_sym_identifier_token1] = ACTIONS(6792),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6796),
   },
-  [2740] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [aux_sym_preproc_else_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
+  [2707] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token2] = ACTIONS(4409),
+    [aux_sym_preproc_else_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4411),
   },
-  [2741] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [aux_sym_preproc_else_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
+  [2708] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6798),
+    [aux_sym_preproc_def_token1] = ACTIONS(6798),
+    [aux_sym_preproc_if_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6798),
+    [sym_preproc_directive] = ACTIONS(6798),
+    [sym_preproc_comment] = ACTIONS(6800),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6798),
+    [aux_sym_interface_statement_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6798),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6798),
+    [aux_sym_language_binding_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6798),
+    [aux_sym_contains_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token2] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6798),
+    [aux_sym_save_statement_token1] = ACTIONS(6798),
+    [aux_sym_private_statement_token1] = ACTIONS(6798),
+    [aux_sym_public_statement_token1] = ACTIONS(6798),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6798),
+    [aux_sym_common_statement_token1] = ACTIONS(6798),
+    [aux_sym_import_statement_token1] = ACTIONS(6798),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6798),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6798),
+    [aux_sym_derived_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6798),
+    [aux_sym_include_statement_token1] = ACTIONS(6798),
+    [aux_sym_data_statement_token1] = ACTIONS(6798),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6798),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6798),
+    [aux_sym_block_construct_token1] = ACTIONS(6798),
+    [aux_sym_format_statement_token1] = ACTIONS(6798),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6798),
+    [aux_sym_enum_statement_token1] = ACTIONS(6798),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6798),
+    [aux_sym_entry_statement_token1] = ACTIONS(6798),
+    [aux_sym_null_literal_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6798),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6798),
+    [aux_sym_identifier_token1] = ACTIONS(6798),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6802),
+  },
+  [2709] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [aux_sym_preproc_else_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+  },
+  [2710] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [aux_sym_preproc_else_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+  },
+  [2711] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [aux_sym_preproc_else_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+  },
+  [2712] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
+    [aux_sym_preproc_else_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+  },
+  [2713] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [aux_sym_preproc_else_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+  },
+  [2714] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6792),
+    [aux_sym_preproc_def_token1] = ACTIONS(6792),
+    [aux_sym_preproc_if_token1] = ACTIONS(6792),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6792),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6792),
+    [sym_preproc_directive] = ACTIONS(6792),
+    [sym_preproc_comment] = ACTIONS(6804),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6792),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6792),
+    [aux_sym_interface_statement_token1] = ACTIONS(6792),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6792),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6792),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6792),
+    [aux_sym_language_binding_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6792),
+    [aux_sym_contains_statement_token1] = ACTIONS(6792),
+    [aux_sym_use_statement_token1] = ACTIONS(6792),
+    [aux_sym_use_statement_token2] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6792),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6792),
+    [aux_sym_save_statement_token1] = ACTIONS(6792),
+    [aux_sym_private_statement_token1] = ACTIONS(6792),
+    [aux_sym_public_statement_token1] = ACTIONS(6792),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6792),
+    [aux_sym_common_statement_token1] = ACTIONS(6792),
+    [aux_sym_import_statement_token1] = ACTIONS(6792),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6792),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6792),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6792),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6792),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6792),
+    [aux_sym_derived_type_token1] = ACTIONS(6792),
+    [aux_sym_declared_type_token1] = ACTIONS(6792),
+    [aux_sym_declared_type_token2] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6792),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6792),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6792),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6792),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6792),
+    [aux_sym_stop_statement_token1] = ACTIONS(6792),
+    [aux_sym_stop_statement_token2] = ACTIONS(6792),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6792),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6792),
+    [aux_sym_include_statement_token1] = ACTIONS(6792),
+    [aux_sym_data_statement_token1] = ACTIONS(6792),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6792),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6792),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6792),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6792),
+    [aux_sym_block_construct_token1] = ACTIONS(6792),
+    [aux_sym_format_statement_token1] = ACTIONS(6792),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6792),
+    [aux_sym_enum_statement_token1] = ACTIONS(6792),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6792),
+    [aux_sym_entry_statement_token1] = ACTIONS(6792),
+    [aux_sym_null_literal_token1] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6792),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6792),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6792),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6792),
+    [aux_sym_identifier_token1] = ACTIONS(6792),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6796),
+  },
+  [2715] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [aux_sym_preproc_else_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+  },
+  [2716] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6798),
+    [aux_sym_preproc_def_token1] = ACTIONS(6798),
+    [aux_sym_preproc_if_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6798),
+    [sym_preproc_directive] = ACTIONS(6798),
+    [sym_preproc_comment] = ACTIONS(6806),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6798),
+    [aux_sym_interface_statement_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6798),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6798),
+    [aux_sym_language_binding_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6798),
+    [aux_sym_contains_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token2] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6798),
+    [aux_sym_save_statement_token1] = ACTIONS(6798),
+    [aux_sym_private_statement_token1] = ACTIONS(6798),
+    [aux_sym_public_statement_token1] = ACTIONS(6798),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6798),
+    [aux_sym_common_statement_token1] = ACTIONS(6798),
+    [aux_sym_import_statement_token1] = ACTIONS(6798),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6798),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6798),
+    [aux_sym_derived_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6798),
+    [aux_sym_include_statement_token1] = ACTIONS(6798),
+    [aux_sym_data_statement_token1] = ACTIONS(6798),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6798),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6798),
+    [aux_sym_block_construct_token1] = ACTIONS(6798),
+    [aux_sym_format_statement_token1] = ACTIONS(6798),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6798),
+    [aux_sym_enum_statement_token1] = ACTIONS(6798),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6798),
+    [aux_sym_entry_statement_token1] = ACTIONS(6798),
+    [aux_sym_null_literal_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6798),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6798),
+    [aux_sym_identifier_token1] = ACTIONS(6798),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6802),
+  },
+  [2717] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [aux_sym_preproc_else_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+  },
+  [2718] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [aux_sym_preproc_else_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+  },
+  [2719] = {
+    [sym_unit_identifier] = STATE(7483),
+    [sym__io_expressions] = STATE(7354),
+    [sym__expression] = STATE(4695),
+    [sym_parenthesized_expression] = STATE(5004),
+    [sym_derived_type_member_expression] = STATE(5004),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(5004),
+    [sym_math_expression] = STATE(5004),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(5004),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7127),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5017),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(5004),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4897),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(6808),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2720] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [aux_sym_preproc_else_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+  },
+  [2721] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [aux_sym_preproc_else_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+  },
+  [2722] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [aux_sym_preproc_else_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+  },
+  [2723] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
+    [aux_sym_preproc_else_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
+  },
+  [2724] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
+    [aux_sym_preproc_else_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5140),
+  },
+  [2725] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [aux_sym_preproc_else_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
+    [sym__integer_literal] = ACTIONS(5130),
   },
-  [2742] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [aux_sym_preproc_else_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
+  [2726] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [aux_sym_preproc_else_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
   },
-  [2743] = {
-    [sym_unit_identifier] = STATE(7327),
-    [sym__io_expressions] = STATE(7537),
-    [sym__expression] = STATE(4691),
-    [sym_parenthesized_expression] = STATE(4976),
-    [sym_derived_type_member_expression] = STATE(4976),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(4976),
-    [sym_math_expression] = STATE(4976),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4976),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6795),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5054),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(4976),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4927),
+  [2727] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6742),
+    [aux_sym_preproc_def_token1] = ACTIONS(6742),
+    [aux_sym_preproc_if_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6742),
+    [sym_preproc_directive] = ACTIONS(6742),
+    [sym_preproc_comment] = ACTIONS(6810),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6742),
+    [aux_sym_interface_statement_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6742),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6742),
+    [aux_sym_language_binding_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6742),
+    [aux_sym_contains_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token2] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6742),
+    [aux_sym_save_statement_token1] = ACTIONS(6742),
+    [aux_sym_private_statement_token1] = ACTIONS(6742),
+    [aux_sym_public_statement_token1] = ACTIONS(6742),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6742),
+    [aux_sym_common_statement_token1] = ACTIONS(6742),
+    [aux_sym_import_statement_token1] = ACTIONS(6742),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6742),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6742),
+    [aux_sym_derived_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6742),
+    [aux_sym_include_statement_token1] = ACTIONS(6742),
+    [aux_sym_data_statement_token1] = ACTIONS(6742),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6742),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6742),
+    [aux_sym_block_construct_token1] = ACTIONS(6742),
+    [aux_sym_format_statement_token1] = ACTIONS(6742),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6742),
+    [aux_sym_enum_statement_token1] = ACTIONS(6742),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6742),
+    [aux_sym_entry_statement_token1] = ACTIONS(6742),
+    [aux_sym_null_literal_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6742),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6742),
+    [aux_sym_identifier_token1] = ACTIONS(6742),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6746),
+  },
+  [2728] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7041),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_STAR] = ACTIONS(6796),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -430598,7 +429017,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -430615,236 +429034,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2744] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [aux_sym_preproc_else_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-  },
-  [2745] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6766),
-    [aux_sym_preproc_def_token1] = ACTIONS(6766),
-    [aux_sym_preproc_if_token1] = ACTIONS(6766),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6766),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6766),
-    [sym_preproc_directive] = ACTIONS(6766),
-    [sym_preproc_comment] = ACTIONS(6852),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6766),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6766),
-    [aux_sym_interface_statement_token1] = ACTIONS(6766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6766),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6766),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6766),
-    [aux_sym_language_binding_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6766),
-    [aux_sym_contains_statement_token1] = ACTIONS(6766),
-    [aux_sym_use_statement_token1] = ACTIONS(6766),
-    [aux_sym_use_statement_token2] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6766),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6766),
-    [aux_sym_save_statement_token1] = ACTIONS(6766),
-    [aux_sym_private_statement_token1] = ACTIONS(6766),
-    [aux_sym_public_statement_token1] = ACTIONS(6766),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6766),
-    [aux_sym_common_statement_token1] = ACTIONS(6766),
-    [aux_sym_import_statement_token1] = ACTIONS(6766),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6766),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6766),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6766),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6766),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6766),
-    [aux_sym_derived_type_token1] = ACTIONS(6766),
-    [aux_sym_declared_type_token1] = ACTIONS(6766),
-    [aux_sym_declared_type_token2] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6766),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6766),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6766),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6766),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6766),
-    [aux_sym_stop_statement_token1] = ACTIONS(6766),
-    [aux_sym_stop_statement_token2] = ACTIONS(6766),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6766),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6766),
-    [aux_sym_include_statement_token1] = ACTIONS(6766),
-    [aux_sym_data_statement_token1] = ACTIONS(6766),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6766),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6766),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6766),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6766),
-    [aux_sym_block_construct_token1] = ACTIONS(6766),
-    [aux_sym_format_statement_token1] = ACTIONS(6766),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6766),
-    [aux_sym_enum_statement_token1] = ACTIONS(6766),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6766),
-    [aux_sym_entry_statement_token1] = ACTIONS(6766),
-    [aux_sym_null_literal_token1] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6766),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6766),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6766),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6766),
-    [aux_sym_identifier_token1] = ACTIONS(6766),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6770),
-  },
-  [2746] = {
-    [sym__expression] = STATE(4477),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_assumed_size] = STATE(7303),
-    [sym_assumed_shape] = STATE(7303),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2729] = {
+    [sym__expression] = STATE(4459),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_assumed_size] = STATE(7071),
+    [sym_assumed_shape] = STATE(7071),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_STAR] = ACTIONS(5914),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_STAR] = ACTIONS(5878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6854),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6812),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -430886,7 +429113,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -430903,44 +429130,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2747] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6497),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2730] = {
+    [sym_case_value_range_list] = STATE(8174),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -430982,7 +429209,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -430999,236 +429226,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2748] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6856),
-    [aux_sym_preproc_def_token1] = ACTIONS(6856),
-    [aux_sym_preproc_if_token1] = ACTIONS(6856),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6856),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6856),
-    [sym_preproc_directive] = ACTIONS(6856),
-    [sym_preproc_comment] = ACTIONS(6858),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6856),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6856),
-    [aux_sym_interface_statement_token1] = ACTIONS(6856),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6856),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6856),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6856),
-    [aux_sym_language_binding_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6856),
-    [aux_sym_contains_statement_token1] = ACTIONS(6856),
-    [aux_sym_use_statement_token1] = ACTIONS(6856),
-    [aux_sym_use_statement_token2] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6856),
-    [aux_sym_save_statement_token1] = ACTIONS(6856),
-    [aux_sym_private_statement_token1] = ACTIONS(6856),
-    [aux_sym_public_statement_token1] = ACTIONS(6856),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6856),
-    [aux_sym_common_statement_token1] = ACTIONS(6856),
-    [aux_sym_import_statement_token1] = ACTIONS(6856),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6856),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6856),
-    [aux_sym_derived_type_token1] = ACTIONS(6856),
-    [aux_sym_declared_type_token1] = ACTIONS(6856),
-    [aux_sym_declared_type_token2] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6856),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6856),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6856),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6856),
-    [aux_sym_stop_statement_token1] = ACTIONS(6856),
-    [aux_sym_stop_statement_token2] = ACTIONS(6856),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6856),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6856),
-    [aux_sym_include_statement_token1] = ACTIONS(6856),
-    [aux_sym_data_statement_token1] = ACTIONS(6856),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6856),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6856),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6856),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6856),
-    [aux_sym_block_construct_token1] = ACTIONS(6856),
-    [aux_sym_format_statement_token1] = ACTIONS(6856),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6856),
-    [aux_sym_enum_statement_token1] = ACTIONS(6856),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6856),
-    [aux_sym_entry_statement_token1] = ACTIONS(6856),
-    [aux_sym_null_literal_token1] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6856),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6856),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6856),
-    [aux_sym_identifier_token1] = ACTIONS(6856),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6860),
-  },
-  [2749] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6862),
-    [aux_sym_preproc_def_token1] = ACTIONS(6862),
-    [aux_sym_preproc_if_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6862),
-    [sym_preproc_directive] = ACTIONS(6862),
-    [sym_preproc_comment] = ACTIONS(6864),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6862),
-    [aux_sym_interface_statement_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6862),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6862),
-    [aux_sym_language_binding_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6862),
-    [aux_sym_contains_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token2] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6862),
-    [aux_sym_save_statement_token1] = ACTIONS(6862),
-    [aux_sym_private_statement_token1] = ACTIONS(6862),
-    [aux_sym_public_statement_token1] = ACTIONS(6862),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6862),
-    [aux_sym_common_statement_token1] = ACTIONS(6862),
-    [aux_sym_import_statement_token1] = ACTIONS(6862),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6862),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6862),
-    [aux_sym_derived_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6862),
-    [aux_sym_include_statement_token1] = ACTIONS(6862),
-    [aux_sym_data_statement_token1] = ACTIONS(6862),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6862),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6862),
-    [aux_sym_block_construct_token1] = ACTIONS(6862),
-    [aux_sym_format_statement_token1] = ACTIONS(6862),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6862),
-    [aux_sym_enum_statement_token1] = ACTIONS(6862),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6862),
-    [aux_sym_entry_statement_token1] = ACTIONS(6862),
-    [aux_sym_null_literal_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6862),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6862),
-    [aux_sym_identifier_token1] = ACTIONS(6862),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6866),
+  [2731] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [aux_sym_preproc_else_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
   },
-  [2750] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7042),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2732] = {
+    [sym_unit_identifier] = STATE(8254),
+    [sym__io_expressions] = STATE(7354),
+    [sym__expression] = STATE(4452),
+    [sym_parenthesized_expression] = STATE(5170),
+    [sym_derived_type_member_expression] = STATE(5170),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(5170),
+    [sym_math_expression] = STATE(5170),
+    [sym_unary_expression] = STATE(5128),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(5170),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(7135),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5060),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(5170),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4893),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_STAR] = ACTIONS(6808),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -431270,7 +429401,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -431287,44 +429418,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2751] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7073),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2733] = {
+    [sym_unit_identifier] = STATE(7680),
+    [sym__io_expressions] = STATE(7354),
+    [sym__expression] = STATE(4452),
+    [sym_parenthesized_expression] = STATE(5004),
+    [sym_derived_type_member_expression] = STATE(5004),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(5004),
+    [sym_math_expression] = STATE(5004),
+    [sym_unary_expression] = STATE(5128),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(5004),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6766),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5027),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(5004),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4899),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_STAR] = ACTIONS(6808),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -431366,7 +429497,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -431383,332 +429514,428 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2752] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6856),
-    [aux_sym_preproc_def_token1] = ACTIONS(6856),
-    [aux_sym_preproc_if_token1] = ACTIONS(6856),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6856),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6856),
-    [sym_preproc_directive] = ACTIONS(6856),
-    [sym_preproc_comment] = ACTIONS(6868),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6856),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6856),
-    [aux_sym_interface_statement_token1] = ACTIONS(6856),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6856),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6856),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6856),
-    [aux_sym_language_binding_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6856),
-    [aux_sym_contains_statement_token1] = ACTIONS(6856),
-    [aux_sym_use_statement_token1] = ACTIONS(6856),
-    [aux_sym_use_statement_token2] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6856),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6856),
-    [aux_sym_save_statement_token1] = ACTIONS(6856),
-    [aux_sym_private_statement_token1] = ACTIONS(6856),
-    [aux_sym_public_statement_token1] = ACTIONS(6856),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6856),
-    [aux_sym_common_statement_token1] = ACTIONS(6856),
-    [aux_sym_import_statement_token1] = ACTIONS(6856),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6856),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6856),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6856),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6856),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6856),
-    [aux_sym_derived_type_token1] = ACTIONS(6856),
-    [aux_sym_declared_type_token1] = ACTIONS(6856),
-    [aux_sym_declared_type_token2] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6856),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6856),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6856),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6856),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6856),
-    [aux_sym_stop_statement_token1] = ACTIONS(6856),
-    [aux_sym_stop_statement_token2] = ACTIONS(6856),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6856),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6856),
-    [aux_sym_include_statement_token1] = ACTIONS(6856),
-    [aux_sym_data_statement_token1] = ACTIONS(6856),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6856),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6856),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6856),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6856),
-    [aux_sym_block_construct_token1] = ACTIONS(6856),
-    [aux_sym_format_statement_token1] = ACTIONS(6856),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6856),
-    [aux_sym_enum_statement_token1] = ACTIONS(6856),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6856),
-    [aux_sym_entry_statement_token1] = ACTIONS(6856),
-    [aux_sym_null_literal_token1] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6856),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6856),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6856),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6856),
-    [aux_sym_identifier_token1] = ACTIONS(6856),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6860),
+  [2734] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [aux_sym_preproc_else_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
   },
-  [2753] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6862),
-    [aux_sym_preproc_def_token1] = ACTIONS(6862),
-    [aux_sym_preproc_if_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6862),
-    [sym_preproc_directive] = ACTIONS(6862),
-    [sym_preproc_comment] = ACTIONS(6870),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6862),
-    [aux_sym_interface_statement_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6862),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6862),
-    [aux_sym_language_binding_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6862),
-    [aux_sym_contains_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token2] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6862),
-    [aux_sym_save_statement_token1] = ACTIONS(6862),
-    [aux_sym_private_statement_token1] = ACTIONS(6862),
-    [aux_sym_public_statement_token1] = ACTIONS(6862),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6862),
-    [aux_sym_common_statement_token1] = ACTIONS(6862),
-    [aux_sym_import_statement_token1] = ACTIONS(6862),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6862),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6862),
-    [aux_sym_derived_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6862),
-    [aux_sym_include_statement_token1] = ACTIONS(6862),
-    [aux_sym_data_statement_token1] = ACTIONS(6862),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6862),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6862),
-    [aux_sym_block_construct_token1] = ACTIONS(6862),
-    [aux_sym_format_statement_token1] = ACTIONS(6862),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6862),
-    [aux_sym_enum_statement_token1] = ACTIONS(6862),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6862),
-    [aux_sym_entry_statement_token1] = ACTIONS(6862),
-    [aux_sym_null_literal_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6862),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6862),
-    [aux_sym_identifier_token1] = ACTIONS(6862),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6866),
+  [2735] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6814),
+    [aux_sym_preproc_def_token1] = ACTIONS(6814),
+    [aux_sym_preproc_if_token1] = ACTIONS(6814),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6814),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6814),
+    [sym_preproc_directive] = ACTIONS(6814),
+    [sym_preproc_comment] = ACTIONS(6816),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6814),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6814),
+    [aux_sym_interface_statement_token1] = ACTIONS(6814),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6814),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6814),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6814),
+    [aux_sym_language_binding_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6814),
+    [aux_sym_contains_statement_token1] = ACTIONS(6814),
+    [aux_sym_use_statement_token1] = ACTIONS(6814),
+    [aux_sym_use_statement_token2] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6814),
+    [aux_sym_save_statement_token1] = ACTIONS(6814),
+    [aux_sym_private_statement_token1] = ACTIONS(6814),
+    [aux_sym_public_statement_token1] = ACTIONS(6814),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6814),
+    [aux_sym_common_statement_token1] = ACTIONS(6814),
+    [aux_sym_import_statement_token1] = ACTIONS(6814),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6814),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6814),
+    [aux_sym_derived_type_token1] = ACTIONS(6814),
+    [aux_sym_declared_type_token1] = ACTIONS(6814),
+    [aux_sym_declared_type_token2] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6814),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6814),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6814),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6814),
+    [aux_sym_stop_statement_token1] = ACTIONS(6814),
+    [aux_sym_stop_statement_token2] = ACTIONS(6814),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6814),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6814),
+    [aux_sym_include_statement_token1] = ACTIONS(6814),
+    [aux_sym_data_statement_token1] = ACTIONS(6814),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6814),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6814),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6814),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6814),
+    [aux_sym_block_construct_token1] = ACTIONS(6814),
+    [aux_sym_format_statement_token1] = ACTIONS(6814),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6814),
+    [aux_sym_enum_statement_token1] = ACTIONS(6814),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6814),
+    [aux_sym_entry_statement_token1] = ACTIONS(6814),
+    [aux_sym_null_literal_token1] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6814),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6814),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6814),
+    [aux_sym_identifier_token1] = ACTIONS(6814),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6818),
   },
-  [2754] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6452),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+  [2736] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6820),
+    [aux_sym_preproc_def_token1] = ACTIONS(6820),
+    [aux_sym_preproc_if_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6820),
+    [sym_preproc_directive] = ACTIONS(6820),
+    [sym_preproc_comment] = ACTIONS(6822),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6820),
+    [aux_sym_interface_statement_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6820),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6820),
+    [aux_sym_language_binding_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6820),
+    [aux_sym_contains_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token2] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6820),
+    [aux_sym_save_statement_token1] = ACTIONS(6820),
+    [aux_sym_private_statement_token1] = ACTIONS(6820),
+    [aux_sym_public_statement_token1] = ACTIONS(6820),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6820),
+    [aux_sym_common_statement_token1] = ACTIONS(6820),
+    [aux_sym_import_statement_token1] = ACTIONS(6820),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6820),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6820),
+    [aux_sym_derived_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6820),
+    [aux_sym_include_statement_token1] = ACTIONS(6820),
+    [aux_sym_data_statement_token1] = ACTIONS(6820),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6820),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6820),
+    [aux_sym_block_construct_token1] = ACTIONS(6820),
+    [aux_sym_format_statement_token1] = ACTIONS(6820),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6820),
+    [aux_sym_enum_statement_token1] = ACTIONS(6820),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6820),
+    [aux_sym_entry_statement_token1] = ACTIONS(6820),
+    [aux_sym_null_literal_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6820),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6820),
+    [aux_sym_identifier_token1] = ACTIONS(6820),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6824),
+  },
+  [2737] = {
+    [sym_output_item_list] = STATE(7521),
+    [sym__expression] = STATE(4431),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_COMMA] = ACTIONS(6826),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(6832),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(6832),
   },
-  [2755] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6459),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2738] = {
+    [sym_unit_identifier] = STATE(7680),
+    [sym__io_expressions] = STATE(7354),
+    [sym__expression] = STATE(4695),
+    [sym_parenthesized_expression] = STATE(5004),
+    [sym_derived_type_member_expression] = STATE(5004),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(5004),
+    [sym_math_expression] = STATE(5004),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(5004),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6766),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5017),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(5004),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4897),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(6808),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -431750,7 +429977,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -431767,44 +429994,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2756] = {
-    [sym_unit_identifier] = STATE(8557),
-    [sym__io_expressions] = STATE(7537),
-    [sym__expression] = STATE(4465),
-    [sym_parenthesized_expression] = STATE(5034),
-    [sym_derived_type_member_expression] = STATE(5034),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(5034),
-    [sym_math_expression] = STATE(5034),
-    [sym_unary_expression] = STATE(5053),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(5034),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6808),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5108),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(5034),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4785),
+  [2739] = {
+    [sym_case_value_range_list] = STATE(8299),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_STAR] = ACTIONS(6796),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -431846,7 +430073,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -431863,140 +430090,620 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2757] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6549),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+  [2740] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6836),
+    [aux_sym_preproc_def_token1] = ACTIONS(6836),
+    [aux_sym_preproc_if_token1] = ACTIONS(6836),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6836),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6836),
+    [sym_preproc_directive] = ACTIONS(6836),
+    [sym_preproc_comment] = ACTIONS(6838),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6836),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6836),
+    [aux_sym_interface_statement_token1] = ACTIONS(6836),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6836),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6836),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6836),
+    [aux_sym_language_binding_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6836),
+    [aux_sym_contains_statement_token1] = ACTIONS(6836),
+    [aux_sym_use_statement_token1] = ACTIONS(6836),
+    [aux_sym_use_statement_token2] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6836),
+    [aux_sym_save_statement_token1] = ACTIONS(6836),
+    [aux_sym_private_statement_token1] = ACTIONS(6836),
+    [aux_sym_public_statement_token1] = ACTIONS(6836),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6836),
+    [aux_sym_common_statement_token1] = ACTIONS(6836),
+    [aux_sym_import_statement_token1] = ACTIONS(6836),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6836),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6836),
+    [aux_sym_derived_type_token1] = ACTIONS(6836),
+    [aux_sym_declared_type_token1] = ACTIONS(6836),
+    [aux_sym_declared_type_token2] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6836),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6836),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6836),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6836),
+    [aux_sym_stop_statement_token1] = ACTIONS(6836),
+    [aux_sym_stop_statement_token2] = ACTIONS(6836),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6836),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6836),
+    [aux_sym_include_statement_token1] = ACTIONS(6836),
+    [aux_sym_data_statement_token1] = ACTIONS(6836),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6836),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6836),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6836),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6836),
+    [aux_sym_block_construct_token1] = ACTIONS(6836),
+    [aux_sym_format_statement_token1] = ACTIONS(6836),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6836),
+    [aux_sym_enum_statement_token1] = ACTIONS(6836),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6836),
+    [aux_sym_entry_statement_token1] = ACTIONS(6836),
+    [aux_sym_null_literal_token1] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6836),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6836),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6836),
+    [aux_sym_identifier_token1] = ACTIONS(6836),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6840),
+  },
+  [2741] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6718),
+    [aux_sym_preproc_def_token1] = ACTIONS(6718),
+    [aux_sym_preproc_if_token1] = ACTIONS(6718),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
+    [sym_preproc_directive] = ACTIONS(6718),
+    [sym_preproc_comment] = ACTIONS(6842),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6718),
+    [aux_sym_interface_statement_token1] = ACTIONS(6718),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
+    [aux_sym_language_binding_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
+    [aux_sym_contains_statement_token1] = ACTIONS(6718),
+    [aux_sym_use_statement_token1] = ACTIONS(6718),
+    [aux_sym_use_statement_token2] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
+    [aux_sym_save_statement_token1] = ACTIONS(6718),
+    [aux_sym_private_statement_token1] = ACTIONS(6718),
+    [aux_sym_public_statement_token1] = ACTIONS(6718),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
+    [aux_sym_common_statement_token1] = ACTIONS(6718),
+    [aux_sym_import_statement_token1] = ACTIONS(6718),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
+    [aux_sym_derived_type_token1] = ACTIONS(6718),
+    [aux_sym_declared_type_token1] = ACTIONS(6718),
+    [aux_sym_declared_type_token2] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
+    [aux_sym_stop_statement_token1] = ACTIONS(6718),
+    [aux_sym_stop_statement_token2] = ACTIONS(6718),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
+    [aux_sym_include_statement_token1] = ACTIONS(6718),
+    [aux_sym_data_statement_token1] = ACTIONS(6718),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
+    [aux_sym_block_construct_token1] = ACTIONS(6718),
+    [aux_sym_format_statement_token1] = ACTIONS(6718),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
+    [aux_sym_enum_statement_token1] = ACTIONS(6718),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
+    [aux_sym_entry_statement_token1] = ACTIONS(6718),
+    [aux_sym_null_literal_token1] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
+    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6722),
+  },
+  [2742] = {
+    [sym_unit_identifier] = STATE(7697),
+    [sym__file_position_spec] = STATE(7697),
+    [sym__io_expressions] = STATE(7693),
+    [sym__expression] = STATE(4689),
+    [sym_parenthesized_expression] = STATE(4792),
+    [sym_derived_type_member_expression] = STATE(4792),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(4792),
+    [sym_math_expression] = STATE(4792),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4792),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5071),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(4792),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4792),
+    [anon_sym_LPAREN2] = ACTIONS(6844),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_STAR] = ACTIONS(6846),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(5503),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2758] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6557),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2743] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6814),
+    [aux_sym_preproc_def_token1] = ACTIONS(6814),
+    [aux_sym_preproc_if_token1] = ACTIONS(6814),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6814),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6814),
+    [sym_preproc_directive] = ACTIONS(6814),
+    [sym_preproc_comment] = ACTIONS(6848),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6814),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6814),
+    [aux_sym_interface_statement_token1] = ACTIONS(6814),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6814),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6814),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6814),
+    [aux_sym_language_binding_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6814),
+    [aux_sym_contains_statement_token1] = ACTIONS(6814),
+    [aux_sym_use_statement_token1] = ACTIONS(6814),
+    [aux_sym_use_statement_token2] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6814),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6814),
+    [aux_sym_save_statement_token1] = ACTIONS(6814),
+    [aux_sym_private_statement_token1] = ACTIONS(6814),
+    [aux_sym_public_statement_token1] = ACTIONS(6814),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6814),
+    [aux_sym_common_statement_token1] = ACTIONS(6814),
+    [aux_sym_import_statement_token1] = ACTIONS(6814),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6814),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6814),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6814),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6814),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6814),
+    [aux_sym_derived_type_token1] = ACTIONS(6814),
+    [aux_sym_declared_type_token1] = ACTIONS(6814),
+    [aux_sym_declared_type_token2] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6814),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6814),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6814),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6814),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6814),
+    [aux_sym_stop_statement_token1] = ACTIONS(6814),
+    [aux_sym_stop_statement_token2] = ACTIONS(6814),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6814),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6814),
+    [aux_sym_include_statement_token1] = ACTIONS(6814),
+    [aux_sym_data_statement_token1] = ACTIONS(6814),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6814),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6814),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6814),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6814),
+    [aux_sym_block_construct_token1] = ACTIONS(6814),
+    [aux_sym_format_statement_token1] = ACTIONS(6814),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6814),
+    [aux_sym_enum_statement_token1] = ACTIONS(6814),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6814),
+    [aux_sym_entry_statement_token1] = ACTIONS(6814),
+    [aux_sym_null_literal_token1] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6814),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6814),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6814),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6814),
+    [aux_sym_identifier_token1] = ACTIONS(6814),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6818),
+  },
+  [2744] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6850),
+    [aux_sym_preproc_def_token1] = ACTIONS(6850),
+    [aux_sym_preproc_if_token1] = ACTIONS(6850),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6850),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6850),
+    [sym_preproc_directive] = ACTIONS(6850),
+    [sym_preproc_comment] = ACTIONS(6852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6850),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6850),
+    [aux_sym_interface_statement_token1] = ACTIONS(6850),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6850),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6850),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6850),
+    [aux_sym_language_binding_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6850),
+    [aux_sym_contains_statement_token1] = ACTIONS(6850),
+    [aux_sym_use_statement_token1] = ACTIONS(6850),
+    [aux_sym_use_statement_token2] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6850),
+    [aux_sym_save_statement_token1] = ACTIONS(6850),
+    [aux_sym_private_statement_token1] = ACTIONS(6850),
+    [aux_sym_public_statement_token1] = ACTIONS(6850),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6850),
+    [aux_sym_common_statement_token1] = ACTIONS(6850),
+    [aux_sym_import_statement_token1] = ACTIONS(6850),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6850),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6850),
+    [aux_sym_derived_type_token1] = ACTIONS(6850),
+    [aux_sym_declared_type_token1] = ACTIONS(6850),
+    [aux_sym_declared_type_token2] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6850),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6850),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6850),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6850),
+    [aux_sym_stop_statement_token1] = ACTIONS(6850),
+    [aux_sym_stop_statement_token2] = ACTIONS(6850),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6850),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6850),
+    [aux_sym_include_statement_token1] = ACTIONS(6850),
+    [aux_sym_data_statement_token1] = ACTIONS(6850),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6850),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6850),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6850),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6850),
+    [aux_sym_block_construct_token1] = ACTIONS(6850),
+    [aux_sym_format_statement_token1] = ACTIONS(6850),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6850),
+    [aux_sym_enum_statement_token1] = ACTIONS(6850),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6850),
+    [aux_sym_entry_statement_token1] = ACTIONS(6850),
+    [aux_sym_null_literal_token1] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6850),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6850),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6850),
+    [aux_sym_identifier_token1] = ACTIONS(6850),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6854),
+  },
+  [2745] = {
+    [anon_sym_LPAREN2] = ACTIONS(6856),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+  },
+  [2746] = {
+    [sym_case_value_range_list] = STATE(8159),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -432038,7 +430745,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -432055,140 +430762,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2759] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6872),
-    [aux_sym_preproc_def_token1] = ACTIONS(6872),
-    [aux_sym_preproc_if_token1] = ACTIONS(6872),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6872),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6872),
-    [sym_preproc_directive] = ACTIONS(6872),
-    [sym_preproc_comment] = ACTIONS(6874),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6872),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6872),
-    [aux_sym_interface_statement_token1] = ACTIONS(6872),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6872),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6872),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6872),
-    [aux_sym_language_binding_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6872),
-    [aux_sym_contains_statement_token1] = ACTIONS(6872),
-    [aux_sym_use_statement_token1] = ACTIONS(6872),
-    [aux_sym_use_statement_token2] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6872),
-    [aux_sym_save_statement_token1] = ACTIONS(6872),
-    [aux_sym_private_statement_token1] = ACTIONS(6872),
-    [aux_sym_public_statement_token1] = ACTIONS(6872),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6872),
-    [aux_sym_common_statement_token1] = ACTIONS(6872),
-    [aux_sym_import_statement_token1] = ACTIONS(6872),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6872),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6872),
-    [aux_sym_derived_type_token1] = ACTIONS(6872),
-    [aux_sym_declared_type_token1] = ACTIONS(6872),
-    [aux_sym_declared_type_token2] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6872),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6872),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6872),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6872),
-    [aux_sym_stop_statement_token1] = ACTIONS(6872),
-    [aux_sym_stop_statement_token2] = ACTIONS(6872),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6872),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6872),
-    [aux_sym_include_statement_token1] = ACTIONS(6872),
-    [aux_sym_data_statement_token1] = ACTIONS(6872),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6872),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6872),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6872),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6872),
-    [aux_sym_block_construct_token1] = ACTIONS(6872),
-    [aux_sym_format_statement_token1] = ACTIONS(6872),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6872),
-    [aux_sym_enum_statement_token1] = ACTIONS(6872),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6872),
-    [aux_sym_entry_statement_token1] = ACTIONS(6872),
-    [aux_sym_null_literal_token1] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6872),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6872),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6872),
-    [aux_sym_identifier_token1] = ACTIONS(6872),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6876),
+  [2747] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6820),
+    [aux_sym_preproc_def_token1] = ACTIONS(6820),
+    [aux_sym_preproc_if_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6820),
+    [sym_preproc_directive] = ACTIONS(6820),
+    [sym_preproc_comment] = ACTIONS(6858),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6820),
+    [aux_sym_interface_statement_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6820),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6820),
+    [aux_sym_language_binding_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6820),
+    [aux_sym_contains_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token2] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6820),
+    [aux_sym_save_statement_token1] = ACTIONS(6820),
+    [aux_sym_private_statement_token1] = ACTIONS(6820),
+    [aux_sym_public_statement_token1] = ACTIONS(6820),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6820),
+    [aux_sym_common_statement_token1] = ACTIONS(6820),
+    [aux_sym_import_statement_token1] = ACTIONS(6820),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6820),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6820),
+    [aux_sym_derived_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6820),
+    [aux_sym_include_statement_token1] = ACTIONS(6820),
+    [aux_sym_data_statement_token1] = ACTIONS(6820),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6820),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6820),
+    [aux_sym_block_construct_token1] = ACTIONS(6820),
+    [aux_sym_format_statement_token1] = ACTIONS(6820),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6820),
+    [aux_sym_enum_statement_token1] = ACTIONS(6820),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6820),
+    [aux_sym_entry_statement_token1] = ACTIONS(6820),
+    [aux_sym_null_literal_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6820),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6820),
+    [aux_sym_identifier_token1] = ACTIONS(6820),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6824),
   },
-  [2760] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6615),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2748] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6788),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -432230,7 +430937,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -432247,44 +430954,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2761] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6620),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4694),
+  [2749] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6743),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -432326,7 +431033,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -432343,524 +431050,236 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2762] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [aux_sym_preproc_else_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-  },
-  [2763] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6872),
-    [aux_sym_preproc_def_token1] = ACTIONS(6872),
-    [aux_sym_preproc_if_token1] = ACTIONS(6872),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6872),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6872),
-    [sym_preproc_directive] = ACTIONS(6872),
-    [sym_preproc_comment] = ACTIONS(6878),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6872),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6872),
-    [aux_sym_interface_statement_token1] = ACTIONS(6872),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6872),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6872),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6872),
-    [aux_sym_language_binding_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6872),
-    [aux_sym_contains_statement_token1] = ACTIONS(6872),
-    [aux_sym_use_statement_token1] = ACTIONS(6872),
-    [aux_sym_use_statement_token2] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6872),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6872),
-    [aux_sym_save_statement_token1] = ACTIONS(6872),
-    [aux_sym_private_statement_token1] = ACTIONS(6872),
-    [aux_sym_public_statement_token1] = ACTIONS(6872),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6872),
-    [aux_sym_common_statement_token1] = ACTIONS(6872),
-    [aux_sym_import_statement_token1] = ACTIONS(6872),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6872),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6872),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6872),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6872),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6872),
-    [aux_sym_derived_type_token1] = ACTIONS(6872),
-    [aux_sym_declared_type_token1] = ACTIONS(6872),
-    [aux_sym_declared_type_token2] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6872),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6872),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6872),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6872),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6872),
-    [aux_sym_stop_statement_token1] = ACTIONS(6872),
-    [aux_sym_stop_statement_token2] = ACTIONS(6872),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6872),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6872),
-    [aux_sym_include_statement_token1] = ACTIONS(6872),
-    [aux_sym_data_statement_token1] = ACTIONS(6872),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6872),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6872),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6872),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6872),
-    [aux_sym_block_construct_token1] = ACTIONS(6872),
-    [aux_sym_format_statement_token1] = ACTIONS(6872),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6872),
-    [aux_sym_enum_statement_token1] = ACTIONS(6872),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6872),
-    [aux_sym_entry_statement_token1] = ACTIONS(6872),
-    [aux_sym_null_literal_token1] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6872),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6872),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6872),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6872),
-    [aux_sym_identifier_token1] = ACTIONS(6872),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6876),
-  },
-  [2764] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [aux_sym_preproc_else_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
+  [2750] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token2] = ACTIONS(4405),
+    [aux_sym_preproc_else_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-  },
-  [2765] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [aux_sym_preproc_else_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
+    [sym__integer_literal] = ACTIONS(4407),
   },
-  [2766] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [aux_sym_preproc_else_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elif_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
+  [2751] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6850),
+    [aux_sym_preproc_def_token1] = ACTIONS(6850),
+    [aux_sym_preproc_if_token1] = ACTIONS(6850),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6850),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6850),
+    [sym_preproc_directive] = ACTIONS(6850),
+    [sym_preproc_comment] = ACTIONS(6860),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6850),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6850),
+    [aux_sym_interface_statement_token1] = ACTIONS(6850),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6850),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6850),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6850),
+    [aux_sym_language_binding_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6850),
+    [aux_sym_contains_statement_token1] = ACTIONS(6850),
+    [aux_sym_use_statement_token1] = ACTIONS(6850),
+    [aux_sym_use_statement_token2] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6850),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6850),
+    [aux_sym_save_statement_token1] = ACTIONS(6850),
+    [aux_sym_private_statement_token1] = ACTIONS(6850),
+    [aux_sym_public_statement_token1] = ACTIONS(6850),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6850),
+    [aux_sym_common_statement_token1] = ACTIONS(6850),
+    [aux_sym_import_statement_token1] = ACTIONS(6850),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6850),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6850),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6850),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6850),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6850),
+    [aux_sym_derived_type_token1] = ACTIONS(6850),
+    [aux_sym_declared_type_token1] = ACTIONS(6850),
+    [aux_sym_declared_type_token2] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6850),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6850),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6850),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6850),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6850),
+    [aux_sym_stop_statement_token1] = ACTIONS(6850),
+    [aux_sym_stop_statement_token2] = ACTIONS(6850),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6850),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6850),
+    [aux_sym_include_statement_token1] = ACTIONS(6850),
+    [aux_sym_data_statement_token1] = ACTIONS(6850),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6850),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6850),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6850),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6850),
+    [aux_sym_block_construct_token1] = ACTIONS(6850),
+    [aux_sym_format_statement_token1] = ACTIONS(6850),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6850),
+    [aux_sym_enum_statement_token1] = ACTIONS(6850),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6850),
+    [aux_sym_entry_statement_token1] = ACTIONS(6850),
+    [aux_sym_null_literal_token1] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6850),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6850),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6850),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6850),
+    [aux_sym_identifier_token1] = ACTIONS(6850),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6854),
   },
-  [2767] = {
-    [sym_case_value_range_list] = STATE(8219),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2752] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6475),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -432902,7 +431321,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -432919,44 +431338,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2768] = {
-    [sym_case_value_range_list] = STATE(8222),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2753] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6487),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -432998,7 +431417,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -433015,140 +431434,428 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2769] = {
-    [sym_case_value_range_list] = STATE(8296),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+  [2754] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6836),
+    [aux_sym_preproc_def_token1] = ACTIONS(6836),
+    [aux_sym_preproc_if_token1] = ACTIONS(6836),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6836),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6836),
+    [sym_preproc_directive] = ACTIONS(6836),
+    [sym_preproc_comment] = ACTIONS(6862),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6836),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6836),
+    [aux_sym_interface_statement_token1] = ACTIONS(6836),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6836),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6836),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6836),
+    [aux_sym_language_binding_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6836),
+    [aux_sym_contains_statement_token1] = ACTIONS(6836),
+    [aux_sym_use_statement_token1] = ACTIONS(6836),
+    [aux_sym_use_statement_token2] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6836),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6836),
+    [aux_sym_save_statement_token1] = ACTIONS(6836),
+    [aux_sym_private_statement_token1] = ACTIONS(6836),
+    [aux_sym_public_statement_token1] = ACTIONS(6836),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6836),
+    [aux_sym_common_statement_token1] = ACTIONS(6836),
+    [aux_sym_import_statement_token1] = ACTIONS(6836),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6836),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6836),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6836),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6836),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6836),
+    [aux_sym_derived_type_token1] = ACTIONS(6836),
+    [aux_sym_declared_type_token1] = ACTIONS(6836),
+    [aux_sym_declared_type_token2] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6836),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6836),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6836),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6836),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6836),
+    [aux_sym_stop_statement_token1] = ACTIONS(6836),
+    [aux_sym_stop_statement_token2] = ACTIONS(6836),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6836),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6836),
+    [aux_sym_include_statement_token1] = ACTIONS(6836),
+    [aux_sym_data_statement_token1] = ACTIONS(6836),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6836),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6836),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6836),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6836),
+    [aux_sym_block_construct_token1] = ACTIONS(6836),
+    [aux_sym_format_statement_token1] = ACTIONS(6836),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6836),
+    [aux_sym_enum_statement_token1] = ACTIONS(6836),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6836),
+    [aux_sym_entry_statement_token1] = ACTIONS(6836),
+    [aux_sym_null_literal_token1] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6836),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6836),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6836),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6836),
+    [aux_sym_identifier_token1] = ACTIONS(6836),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6840),
+  },
+  [2755] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6730),
+    [aux_sym_preproc_def_token1] = ACTIONS(6730),
+    [aux_sym_preproc_if_token1] = ACTIONS(6730),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6730),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6730),
+    [sym_preproc_directive] = ACTIONS(6730),
+    [sym_preproc_comment] = ACTIONS(6864),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6730),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6730),
+    [aux_sym_interface_statement_token1] = ACTIONS(6730),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6730),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6730),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6730),
+    [aux_sym_language_binding_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6730),
+    [aux_sym_contains_statement_token1] = ACTIONS(6730),
+    [aux_sym_use_statement_token1] = ACTIONS(6730),
+    [aux_sym_use_statement_token2] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6730),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6730),
+    [aux_sym_save_statement_token1] = ACTIONS(6730),
+    [aux_sym_private_statement_token1] = ACTIONS(6730),
+    [aux_sym_public_statement_token1] = ACTIONS(6730),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6730),
+    [aux_sym_common_statement_token1] = ACTIONS(6730),
+    [aux_sym_import_statement_token1] = ACTIONS(6730),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6730),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6730),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6730),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6730),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6730),
+    [aux_sym_derived_type_token1] = ACTIONS(6730),
+    [aux_sym_declared_type_token1] = ACTIONS(6730),
+    [aux_sym_declared_type_token2] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6730),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6730),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6730),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6730),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6730),
+    [aux_sym_stop_statement_token1] = ACTIONS(6730),
+    [aux_sym_stop_statement_token2] = ACTIONS(6730),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6730),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6730),
+    [aux_sym_include_statement_token1] = ACTIONS(6730),
+    [aux_sym_data_statement_token1] = ACTIONS(6730),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6730),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6730),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6730),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6730),
+    [aux_sym_block_construct_token1] = ACTIONS(6730),
+    [aux_sym_format_statement_token1] = ACTIONS(6730),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6730),
+    [aux_sym_enum_statement_token1] = ACTIONS(6730),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6730),
+    [aux_sym_entry_statement_token1] = ACTIONS(6730),
+    [aux_sym_null_literal_token1] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6730),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6730),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6730),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6730),
+    [aux_sym_identifier_token1] = ACTIONS(6730),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6734),
+  },
+  [2756] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6724),
+    [aux_sym_preproc_def_token1] = ACTIONS(6724),
+    [aux_sym_preproc_if_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
+    [sym_preproc_directive] = ACTIONS(6724),
+    [sym_preproc_comment] = ACTIONS(6866),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6724),
+    [aux_sym_interface_statement_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
+    [aux_sym_language_binding_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
+    [aux_sym_contains_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token2] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
+    [aux_sym_save_statement_token1] = ACTIONS(6724),
+    [aux_sym_private_statement_token1] = ACTIONS(6724),
+    [aux_sym_public_statement_token1] = ACTIONS(6724),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
+    [aux_sym_common_statement_token1] = ACTIONS(6724),
+    [aux_sym_import_statement_token1] = ACTIONS(6724),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
+    [aux_sym_derived_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
+    [aux_sym_include_statement_token1] = ACTIONS(6724),
+    [aux_sym_data_statement_token1] = ACTIONS(6724),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
+    [aux_sym_block_construct_token1] = ACTIONS(6724),
+    [aux_sym_format_statement_token1] = ACTIONS(6724),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
+    [aux_sym_enum_statement_token1] = ACTIONS(6724),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
+    [aux_sym_entry_statement_token1] = ACTIONS(6724),
+    [aux_sym_null_literal_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
+    [aux_sym_identifier_token1] = ACTIONS(6724),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(6728),
   },
-  [2770] = {
-    [sym_case_value_range_list] = STATE(8299),
-    [sym__expression] = STATE(4403),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(6875),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2757] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6748),
+    [aux_sym_preproc_def_token1] = ACTIONS(6748),
+    [aux_sym_preproc_if_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6748),
+    [sym_preproc_directive] = ACTIONS(6748),
+    [sym_preproc_comment] = ACTIONS(6868),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6748),
+    [aux_sym_interface_statement_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6748),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6748),
+    [aux_sym_language_binding_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6748),
+    [aux_sym_contains_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token2] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6748),
+    [aux_sym_save_statement_token1] = ACTIONS(6748),
+    [aux_sym_private_statement_token1] = ACTIONS(6748),
+    [aux_sym_public_statement_token1] = ACTIONS(6748),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6748),
+    [aux_sym_common_statement_token1] = ACTIONS(6748),
+    [aux_sym_import_statement_token1] = ACTIONS(6748),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6748),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6748),
+    [aux_sym_derived_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6748),
+    [aux_sym_include_statement_token1] = ACTIONS(6748),
+    [aux_sym_data_statement_token1] = ACTIONS(6748),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6748),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6748),
+    [aux_sym_block_construct_token1] = ACTIONS(6748),
+    [aux_sym_format_statement_token1] = ACTIONS(6748),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6748),
+    [aux_sym_enum_statement_token1] = ACTIONS(6748),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6748),
+    [aux_sym_entry_statement_token1] = ACTIONS(6748),
+    [aux_sym_null_literal_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6748),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6748),
+    [aux_sym_identifier_token1] = ACTIONS(6748),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6752),
+  },
+  [2758] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6681),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -433190,7 +431897,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -433207,23 +431914,119 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2771] = {
+  [2759] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6870),
+    [aux_sym_preproc_def_token1] = ACTIONS(6870),
+    [aux_sym_preproc_if_token1] = ACTIONS(6870),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6870),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6870),
+    [sym_preproc_directive] = ACTIONS(6870),
+    [sym_preproc_comment] = ACTIONS(6872),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6870),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6870),
+    [aux_sym_interface_statement_token1] = ACTIONS(6870),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6870),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6870),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6870),
+    [aux_sym_language_binding_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6870),
+    [aux_sym_contains_statement_token1] = ACTIONS(6870),
+    [aux_sym_use_statement_token1] = ACTIONS(6870),
+    [aux_sym_use_statement_token2] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6870),
+    [aux_sym_save_statement_token1] = ACTIONS(6870),
+    [aux_sym_private_statement_token1] = ACTIONS(6870),
+    [aux_sym_public_statement_token1] = ACTIONS(6870),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6870),
+    [aux_sym_common_statement_token1] = ACTIONS(6870),
+    [aux_sym_import_statement_token1] = ACTIONS(6870),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6870),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6870),
+    [aux_sym_derived_type_token1] = ACTIONS(6870),
+    [aux_sym_declared_type_token1] = ACTIONS(6870),
+    [aux_sym_declared_type_token2] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6870),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6870),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6870),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6870),
+    [aux_sym_stop_statement_token1] = ACTIONS(6870),
+    [aux_sym_stop_statement_token2] = ACTIONS(6870),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6870),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6870),
+    [aux_sym_include_statement_token1] = ACTIONS(6870),
+    [aux_sym_data_statement_token1] = ACTIONS(6870),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6870),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6870),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6870),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6870),
+    [aux_sym_block_construct_token1] = ACTIONS(6870),
+    [aux_sym_format_statement_token1] = ACTIONS(6870),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6870),
+    [aux_sym_enum_statement_token1] = ACTIONS(6870),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6870),
+    [aux_sym_entry_statement_token1] = ACTIONS(6870),
+    [aux_sym_null_literal_token1] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6870),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6870),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6870),
+    [aux_sym_identifier_token1] = ACTIONS(6870),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6874),
+  },
+  [2760] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6754),
     [aux_sym_preproc_def_token1] = ACTIONS(6754),
     [aux_sym_preproc_if_token1] = ACTIONS(6754),
     [aux_sym_preproc_ifdef_token1] = ACTIONS(6754),
     [aux_sym_preproc_ifdef_token2] = ACTIONS(6754),
     [sym_preproc_directive] = ACTIONS(6754),
-    [sym_preproc_comment] = ACTIONS(6880),
+    [sym_preproc_comment] = ACTIONS(6876),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(6754),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6754),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6754),
     [aux_sym_interface_statement_token1] = ACTIONS(6754),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(6754),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(6754),
@@ -433309,1082 +432112,518 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6758),
   },
-  [2772] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6882),
-    [aux_sym_preproc_def_token1] = ACTIONS(6882),
-    [aux_sym_preproc_if_token1] = ACTIONS(6882),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6882),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6882),
-    [sym_preproc_directive] = ACTIONS(6882),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6882),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6882),
-    [aux_sym_interface_statement_token1] = ACTIONS(6882),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6882),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6882),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6882),
-    [aux_sym_language_binding_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6882),
-    [aux_sym_contains_statement_token1] = ACTIONS(6882),
-    [aux_sym_use_statement_token1] = ACTIONS(6882),
-    [aux_sym_use_statement_token2] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6882),
-    [aux_sym_save_statement_token1] = ACTIONS(6882),
-    [aux_sym_private_statement_token1] = ACTIONS(6882),
-    [aux_sym_public_statement_token1] = ACTIONS(6882),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6882),
-    [aux_sym_common_statement_token1] = ACTIONS(6882),
-    [aux_sym_import_statement_token1] = ACTIONS(6882),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6882),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6882),
-    [aux_sym_derived_type_token1] = ACTIONS(6882),
-    [aux_sym_declared_type_token1] = ACTIONS(6882),
-    [aux_sym_declared_type_token2] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6882),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6882),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6882),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6882),
-    [aux_sym_stop_statement_token1] = ACTIONS(6882),
-    [aux_sym_stop_statement_token2] = ACTIONS(6882),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6882),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6882),
-    [aux_sym_include_statement_token1] = ACTIONS(6882),
-    [aux_sym_data_statement_token1] = ACTIONS(6882),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6882),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6882),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6882),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6882),
-    [aux_sym_block_construct_token1] = ACTIONS(6882),
-    [aux_sym_format_statement_token1] = ACTIONS(6882),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6882),
-    [aux_sym_enum_statement_token1] = ACTIONS(6882),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6882),
-    [aux_sym_entry_statement_token1] = ACTIONS(6882),
-    [aux_sym_null_literal_token1] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6882),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6882),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6882),
-    [aux_sym_identifier_token1] = ACTIONS(6882),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6884),
-  },
-  [2773] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
-  },
-  [2774] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
-  },
-  [2775] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
-  },
-  [2776] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-  },
-  [2777] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
+  [2761] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6706),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2778] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
+  [2762] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token2] = ACTIONS(4425),
+    [aux_sym_preproc_else_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(4427),
   },
-  [2779] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
+  [2763] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6870),
+    [aux_sym_preproc_def_token1] = ACTIONS(6870),
+    [aux_sym_preproc_if_token1] = ACTIONS(6870),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6870),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6870),
+    [sym_preproc_directive] = ACTIONS(6870),
+    [sym_preproc_comment] = ACTIONS(6878),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6870),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6870),
+    [aux_sym_interface_statement_token1] = ACTIONS(6870),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6870),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6870),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6870),
+    [aux_sym_language_binding_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6870),
+    [aux_sym_contains_statement_token1] = ACTIONS(6870),
+    [aux_sym_use_statement_token1] = ACTIONS(6870),
+    [aux_sym_use_statement_token2] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6870),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6870),
+    [aux_sym_save_statement_token1] = ACTIONS(6870),
+    [aux_sym_private_statement_token1] = ACTIONS(6870),
+    [aux_sym_public_statement_token1] = ACTIONS(6870),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6870),
+    [aux_sym_common_statement_token1] = ACTIONS(6870),
+    [aux_sym_import_statement_token1] = ACTIONS(6870),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6870),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6870),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6870),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6870),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6870),
+    [aux_sym_derived_type_token1] = ACTIONS(6870),
+    [aux_sym_declared_type_token1] = ACTIONS(6870),
+    [aux_sym_declared_type_token2] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6870),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6870),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6870),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6870),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6870),
+    [aux_sym_stop_statement_token1] = ACTIONS(6870),
+    [aux_sym_stop_statement_token2] = ACTIONS(6870),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6870),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6870),
+    [aux_sym_include_statement_token1] = ACTIONS(6870),
+    [aux_sym_data_statement_token1] = ACTIONS(6870),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6870),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6870),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6870),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6870),
+    [aux_sym_block_construct_token1] = ACTIONS(6870),
+    [aux_sym_format_statement_token1] = ACTIONS(6870),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6870),
+    [aux_sym_enum_statement_token1] = ACTIONS(6870),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6870),
+    [aux_sym_entry_statement_token1] = ACTIONS(6870),
+    [aux_sym_null_literal_token1] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6870),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6870),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6870),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6870),
+    [aux_sym_identifier_token1] = ACTIONS(6870),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6874),
   },
-  [2780] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
+  [2764] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [aux_sym_preproc_else_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elif_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
   },
-  [2781] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
+  [2765] = {
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-  },
-  [2782] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
   },
-  [2783] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6554),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2766] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6832),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -434426,7 +432665,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -434443,138 +432682,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2784] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
+  [2767] = {
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6850),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4687),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2785] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7110),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2768] = {
+    [sym_case_value_range_list] = STATE(8219),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -434616,7 +432857,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -434633,328 +432874,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2786] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-  },
-  [2787] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
-  },
-  [2788] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6830),
-    [aux_sym_preproc_def_token1] = ACTIONS(6830),
-    [aux_sym_preproc_if_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6830),
-    [sym_preproc_directive] = ACTIONS(6830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6830),
-    [aux_sym_interface_statement_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6830),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6830),
-    [aux_sym_language_binding_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6830),
-    [aux_sym_contains_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token2] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6830),
-    [aux_sym_save_statement_token1] = ACTIONS(6830),
-    [aux_sym_private_statement_token1] = ACTIONS(6830),
-    [aux_sym_public_statement_token1] = ACTIONS(6830),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6830),
-    [aux_sym_common_statement_token1] = ACTIONS(6830),
-    [aux_sym_import_statement_token1] = ACTIONS(6830),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6830),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6830),
-    [aux_sym_derived_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6830),
-    [aux_sym_include_statement_token1] = ACTIONS(6830),
-    [aux_sym_data_statement_token1] = ACTIONS(6830),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6830),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6830),
-    [aux_sym_block_construct_token1] = ACTIONS(6830),
-    [aux_sym_format_statement_token1] = ACTIONS(6830),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6830),
-    [aux_sym_enum_statement_token1] = ACTIONS(6830),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6830),
-    [aux_sym_entry_statement_token1] = ACTIONS(6830),
-    [aux_sym_null_literal_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6830),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6830),
-    [aux_sym_identifier_token1] = ACTIONS(6830),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6834),
-  },
-  [2789] = {
-    [sym__expression] = STATE(4445),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7613),
-    [sym_extent_specifier] = STATE(7670),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2769] = {
+    [sym_case_value_range_list] = STATE(8222),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -434996,7 +432953,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -435013,233 +432970,140 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2790] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-  },
-  [2791] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
+  [2770] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6736),
+    [aux_sym_preproc_def_token1] = ACTIONS(6736),
+    [aux_sym_preproc_if_token1] = ACTIONS(6736),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6736),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6736),
+    [sym_preproc_directive] = ACTIONS(6736),
+    [sym_preproc_comment] = ACTIONS(6880),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6736),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6736),
+    [aux_sym_interface_statement_token1] = ACTIONS(6736),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6736),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6736),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6736),
+    [aux_sym_language_binding_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6736),
+    [aux_sym_contains_statement_token1] = ACTIONS(6736),
+    [aux_sym_use_statement_token1] = ACTIONS(6736),
+    [aux_sym_use_statement_token2] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6736),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6736),
+    [aux_sym_save_statement_token1] = ACTIONS(6736),
+    [aux_sym_private_statement_token1] = ACTIONS(6736),
+    [aux_sym_public_statement_token1] = ACTIONS(6736),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6736),
+    [aux_sym_common_statement_token1] = ACTIONS(6736),
+    [aux_sym_import_statement_token1] = ACTIONS(6736),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6736),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6736),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6736),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6736),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6736),
+    [aux_sym_derived_type_token1] = ACTIONS(6736),
+    [aux_sym_declared_type_token1] = ACTIONS(6736),
+    [aux_sym_declared_type_token2] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6736),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6736),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6736),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6736),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6736),
+    [aux_sym_stop_statement_token1] = ACTIONS(6736),
+    [aux_sym_stop_statement_token2] = ACTIONS(6736),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6736),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6736),
+    [aux_sym_include_statement_token1] = ACTIONS(6736),
+    [aux_sym_data_statement_token1] = ACTIONS(6736),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6736),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6736),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6736),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6736),
+    [aux_sym_block_construct_token1] = ACTIONS(6736),
+    [aux_sym_format_statement_token1] = ACTIONS(6736),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6736),
+    [aux_sym_enum_statement_token1] = ACTIONS(6736),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6736),
+    [aux_sym_entry_statement_token1] = ACTIONS(6736),
+    [aux_sym_null_literal_token1] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6736),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6736),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6736),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6736),
+    [aux_sym_identifier_token1] = ACTIONS(6736),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6740),
   },
-  [2792] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7113),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2771] = {
+    [sym_case_value_range_list] = STATE(8296),
+    [sym__expression] = STATE(4388),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(6769),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -435281,7 +433145,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -435298,108 +433162,108 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2793] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
+  [2772] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6882),
+    [aux_sym_preproc_def_token1] = ACTIONS(6882),
+    [aux_sym_preproc_if_token1] = ACTIONS(6882),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6882),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6882),
+    [sym_preproc_directive] = ACTIONS(6882),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6882),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6882),
+    [aux_sym_interface_statement_token1] = ACTIONS(6882),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6882),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6882),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6882),
+    [aux_sym_language_binding_token1] = ACTIONS(6882),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6882),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6882),
+    [aux_sym_contains_statement_token1] = ACTIONS(6882),
+    [aux_sym_use_statement_token1] = ACTIONS(6882),
+    [aux_sym_use_statement_token2] = ACTIONS(6882),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6882),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6882),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6882),
+    [aux_sym_save_statement_token1] = ACTIONS(6882),
+    [aux_sym_private_statement_token1] = ACTIONS(6882),
+    [aux_sym_public_statement_token1] = ACTIONS(6882),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6882),
+    [aux_sym_common_statement_token1] = ACTIONS(6882),
+    [aux_sym_import_statement_token1] = ACTIONS(6882),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6882),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6882),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6882),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6882),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6882),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6882),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6882),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6882),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6882),
+    [aux_sym_derived_type_token1] = ACTIONS(6882),
+    [aux_sym_declared_type_token1] = ACTIONS(6882),
+    [aux_sym_declared_type_token2] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6882),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6882),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6882),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6882),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6882),
+    [aux_sym_stop_statement_token1] = ACTIONS(6882),
+    [aux_sym_stop_statement_token2] = ACTIONS(6882),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6882),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6882),
+    [aux_sym_include_statement_token1] = ACTIONS(6882),
+    [aux_sym_data_statement_token1] = ACTIONS(6882),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6882),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6882),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6882),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6882),
+    [aux_sym_block_construct_token1] = ACTIONS(6882),
+    [aux_sym_format_statement_token1] = ACTIONS(6882),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6882),
+    [aux_sym_enum_statement_token1] = ACTIONS(6882),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6882),
+    [aux_sym_entry_statement_token1] = ACTIONS(6882),
+    [aux_sym_null_literal_token1] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6882),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6882),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6882),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6882),
+    [aux_sym_identifier_token1] = ACTIONS(6882),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(6884),
   },
-  [2794] = {
+  [2773] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6886),
     [aux_sym_preproc_def_token1] = ACTIONS(6886),
     [aux_sym_preproc_if_token1] = ACTIONS(6886),
@@ -435494,797 +433358,322 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6888),
   },
-  [2795] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6890),
-    [aux_sym_preproc_def_token1] = ACTIONS(6890),
-    [aux_sym_preproc_if_token1] = ACTIONS(6890),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6890),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6890),
-    [sym_preproc_directive] = ACTIONS(6890),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6890),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6890),
-    [aux_sym_interface_statement_token1] = ACTIONS(6890),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6890),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6890),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6890),
-    [aux_sym_language_binding_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6890),
-    [aux_sym_contains_statement_token1] = ACTIONS(6890),
-    [aux_sym_use_statement_token1] = ACTIONS(6890),
-    [aux_sym_use_statement_token2] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6890),
-    [aux_sym_save_statement_token1] = ACTIONS(6890),
-    [aux_sym_private_statement_token1] = ACTIONS(6890),
-    [aux_sym_public_statement_token1] = ACTIONS(6890),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6890),
-    [aux_sym_common_statement_token1] = ACTIONS(6890),
-    [aux_sym_import_statement_token1] = ACTIONS(6890),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6890),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6890),
-    [aux_sym_derived_type_token1] = ACTIONS(6890),
-    [aux_sym_declared_type_token1] = ACTIONS(6890),
-    [aux_sym_declared_type_token2] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6890),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6890),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6890),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6890),
-    [aux_sym_stop_statement_token1] = ACTIONS(6890),
-    [aux_sym_stop_statement_token2] = ACTIONS(6890),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6890),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6890),
-    [aux_sym_include_statement_token1] = ACTIONS(6890),
-    [aux_sym_data_statement_token1] = ACTIONS(6890),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6890),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6890),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6890),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6890),
-    [aux_sym_block_construct_token1] = ACTIONS(6890),
-    [aux_sym_format_statement_token1] = ACTIONS(6890),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6890),
-    [aux_sym_enum_statement_token1] = ACTIONS(6890),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6890),
-    [aux_sym_entry_statement_token1] = ACTIONS(6890),
-    [aux_sym_null_literal_token1] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6890),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6890),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6890),
-    [aux_sym_identifier_token1] = ACTIONS(6890),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6892),
-  },
-  [2796] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-  },
-  [2797] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6681),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2798] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-  },
-  [2799] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-  },
-  [2800] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
+  [2774] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
   },
-  [2801] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4629),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
+  [2775] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
+    [sym__integer_literal] = ACTIONS(5102),
   },
-  [2802] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
+  [2776] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6748),
+    [aux_sym_preproc_def_token1] = ACTIONS(6748),
+    [aux_sym_preproc_if_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6748),
+    [sym_preproc_directive] = ACTIONS(6748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6748),
+    [aux_sym_interface_statement_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6748),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6748),
+    [aux_sym_language_binding_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6748),
+    [aux_sym_contains_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token2] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6748),
+    [aux_sym_save_statement_token1] = ACTIONS(6748),
+    [aux_sym_private_statement_token1] = ACTIONS(6748),
+    [aux_sym_public_statement_token1] = ACTIONS(6748),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6748),
+    [aux_sym_common_statement_token1] = ACTIONS(6748),
+    [aux_sym_import_statement_token1] = ACTIONS(6748),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6748),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6748),
+    [aux_sym_derived_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6748),
+    [aux_sym_include_statement_token1] = ACTIONS(6748),
+    [aux_sym_data_statement_token1] = ACTIONS(6748),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6748),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6748),
+    [aux_sym_block_construct_token1] = ACTIONS(6748),
+    [aux_sym_format_statement_token1] = ACTIONS(6748),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6748),
+    [aux_sym_enum_statement_token1] = ACTIONS(6748),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6748),
+    [aux_sym_entry_statement_token1] = ACTIONS(6748),
+    [aux_sym_null_literal_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6748),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6748),
+    [aux_sym_identifier_token1] = ACTIONS(6748),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6752),
   },
-  [2803] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6682),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2777] = {
+    [sym__expression] = STATE(4367),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7051),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6890),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -436326,7 +433715,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -436341,235 +433730,235 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2804] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4637),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
-  },
-  [2805] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4401),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2806] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6684),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2778] = {
+    [sym__expression] = STATE(4464),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_COMMA] = ACTIONS(6892),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(6894),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(6894),
+  },
+  [2779] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+  },
+  [2780] = {
+    [sym__expression] = STATE(4481),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7568),
+    [sym_extent_specifier] = STATE(7393),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -436611,7 +434000,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -436628,1248 +434017,963 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2807] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4529),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-  },
-  [2808] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-  },
-  [2809] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-  },
-  [2810] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6724),
-    [aux_sym_preproc_def_token1] = ACTIONS(6724),
-    [aux_sym_preproc_if_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
-    [sym_preproc_directive] = ACTIONS(6724),
+  [2781] = {
+    [sym__expression] = STATE(4370),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(6634),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6896),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6724),
-    [aux_sym_interface_statement_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
-    [aux_sym_language_binding_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
-    [aux_sym_contains_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token2] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
-    [aux_sym_save_statement_token1] = ACTIONS(6724),
-    [aux_sym_private_statement_token1] = ACTIONS(6724),
-    [aux_sym_public_statement_token1] = ACTIONS(6724),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
-    [aux_sym_common_statement_token1] = ACTIONS(6724),
-    [aux_sym_import_statement_token1] = ACTIONS(6724),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
-    [aux_sym_derived_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
-    [aux_sym_include_statement_token1] = ACTIONS(6724),
-    [aux_sym_data_statement_token1] = ACTIONS(6724),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
-    [aux_sym_block_construct_token1] = ACTIONS(6724),
-    [aux_sym_format_statement_token1] = ACTIONS(6724),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
-    [aux_sym_enum_statement_token1] = ACTIONS(6724),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
-    [aux_sym_entry_statement_token1] = ACTIONS(6724),
-    [aux_sym_null_literal_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
-    [aux_sym_identifier_token1] = ACTIONS(6724),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6728),
-  },
-  [2811] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5062),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-  },
-  [2812] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6894),
-    [aux_sym_preproc_def_token1] = ACTIONS(6894),
-    [aux_sym_preproc_if_token1] = ACTIONS(6894),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6894),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6894),
-    [sym_preproc_directive] = ACTIONS(6894),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6894),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6894),
-    [aux_sym_interface_statement_token1] = ACTIONS(6894),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6894),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6894),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6894),
-    [aux_sym_language_binding_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6894),
-    [aux_sym_contains_statement_token1] = ACTIONS(6894),
-    [aux_sym_use_statement_token1] = ACTIONS(6894),
-    [aux_sym_use_statement_token2] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6894),
-    [aux_sym_save_statement_token1] = ACTIONS(6894),
-    [aux_sym_private_statement_token1] = ACTIONS(6894),
-    [aux_sym_public_statement_token1] = ACTIONS(6894),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6894),
-    [aux_sym_common_statement_token1] = ACTIONS(6894),
-    [aux_sym_import_statement_token1] = ACTIONS(6894),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6894),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6894),
-    [aux_sym_derived_type_token1] = ACTIONS(6894),
-    [aux_sym_declared_type_token1] = ACTIONS(6894),
-    [aux_sym_declared_type_token2] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6894),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6894),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6894),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6894),
-    [aux_sym_stop_statement_token1] = ACTIONS(6894),
-    [aux_sym_stop_statement_token2] = ACTIONS(6894),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6894),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6894),
-    [aux_sym_include_statement_token1] = ACTIONS(6894),
-    [aux_sym_data_statement_token1] = ACTIONS(6894),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6894),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6894),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6894),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6894),
-    [aux_sym_block_construct_token1] = ACTIONS(6894),
-    [aux_sym_format_statement_token1] = ACTIONS(6894),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6894),
-    [aux_sym_enum_statement_token1] = ACTIONS(6894),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6894),
-    [aux_sym_entry_statement_token1] = ACTIONS(6894),
-    [aux_sym_null_literal_token1] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6894),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6894),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6894),
-    [aux_sym_identifier_token1] = ACTIONS(6894),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6896),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2813] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
+  [2782] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5106),
   },
-  [2814] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
+  [2783] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(5126),
   },
-  [2815] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6782),
-    [aux_sym_preproc_def_token1] = ACTIONS(6782),
-    [aux_sym_preproc_if_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
-    [sym_preproc_directive] = ACTIONS(6782),
+  [2784] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+  },
+  [2785] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6782),
-    [aux_sym_interface_statement_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
-    [aux_sym_language_binding_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
-    [aux_sym_contains_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token2] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
-    [aux_sym_save_statement_token1] = ACTIONS(6782),
-    [aux_sym_private_statement_token1] = ACTIONS(6782),
-    [aux_sym_public_statement_token1] = ACTIONS(6782),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
-    [aux_sym_common_statement_token1] = ACTIONS(6782),
-    [aux_sym_import_statement_token1] = ACTIONS(6782),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
-    [aux_sym_derived_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
-    [aux_sym_include_statement_token1] = ACTIONS(6782),
-    [aux_sym_data_statement_token1] = ACTIONS(6782),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
-    [aux_sym_block_construct_token1] = ACTIONS(6782),
-    [aux_sym_format_statement_token1] = ACTIONS(6782),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
-    [aux_sym_enum_statement_token1] = ACTIONS(6782),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
-    [aux_sym_entry_statement_token1] = ACTIONS(6782),
-    [aux_sym_null_literal_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
-    [aux_sym_identifier_token1] = ACTIONS(6782),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6786),
+    [sym__integer_literal] = ACTIONS(4427),
   },
-  [2816] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
+  [2786] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5134),
   },
-  [2817] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
+  [2787] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
+    [sym__integer_literal] = ACTIONS(5122),
   },
-  [2818] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
+  [2788] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5070),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
   },
-  [2819] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
+  [2789] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
   },
-  [2820] = {
+  [2790] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+  },
+  [2791] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6898),
     [aux_sym_preproc_def_token1] = ACTIONS(6898),
     [aux_sym_preproc_if_token1] = ACTIONS(6898),
@@ -437878,7 +434982,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(6898),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(6898),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6898),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6898),
     [aux_sym_interface_statement_token1] = ACTIONS(6898),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(6898),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(6898),
@@ -437964,102 +435068,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6900),
   },
-  [2821] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
-  },
-  [2822] = {
+  [2792] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6902),
     [aux_sym_preproc_def_token1] = ACTIONS(6902),
     [aux_sym_preproc_if_token1] = ACTIONS(6902),
@@ -438154,227 +435163,1937 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6904),
   },
-  [2823] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6718),
-    [aux_sym_preproc_def_token1] = ACTIONS(6718),
-    [aux_sym_preproc_if_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
-    [sym_preproc_directive] = ACTIONS(6718),
+  [2793] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5048),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
+  },
+  [2794] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5084),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
+  },
+  [2795] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6906),
+    [aux_sym_preproc_def_token1] = ACTIONS(6906),
+    [aux_sym_preproc_if_token1] = ACTIONS(6906),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6906),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6906),
+    [sym_preproc_directive] = ACTIONS(6906),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6718),
-    [aux_sym_interface_statement_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
-    [aux_sym_language_binding_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
-    [aux_sym_contains_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token2] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
-    [aux_sym_save_statement_token1] = ACTIONS(6718),
-    [aux_sym_private_statement_token1] = ACTIONS(6718),
-    [aux_sym_public_statement_token1] = ACTIONS(6718),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
-    [aux_sym_common_statement_token1] = ACTIONS(6718),
-    [aux_sym_import_statement_token1] = ACTIONS(6718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
-    [aux_sym_derived_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
-    [aux_sym_include_statement_token1] = ACTIONS(6718),
-    [aux_sym_data_statement_token1] = ACTIONS(6718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
-    [aux_sym_block_construct_token1] = ACTIONS(6718),
-    [aux_sym_format_statement_token1] = ACTIONS(6718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
-    [aux_sym_enum_statement_token1] = ACTIONS(6718),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
-    [aux_sym_entry_statement_token1] = ACTIONS(6718),
-    [aux_sym_null_literal_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
-    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6906),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6906),
+    [aux_sym_interface_statement_token1] = ACTIONS(6906),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6906),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6906),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6906),
+    [aux_sym_language_binding_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6906),
+    [aux_sym_contains_statement_token1] = ACTIONS(6906),
+    [aux_sym_use_statement_token1] = ACTIONS(6906),
+    [aux_sym_use_statement_token2] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6906),
+    [aux_sym_save_statement_token1] = ACTIONS(6906),
+    [aux_sym_private_statement_token1] = ACTIONS(6906),
+    [aux_sym_public_statement_token1] = ACTIONS(6906),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6906),
+    [aux_sym_common_statement_token1] = ACTIONS(6906),
+    [aux_sym_import_statement_token1] = ACTIONS(6906),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6906),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6906),
+    [aux_sym_derived_type_token1] = ACTIONS(6906),
+    [aux_sym_declared_type_token1] = ACTIONS(6906),
+    [aux_sym_declared_type_token2] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6906),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6906),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6906),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6906),
+    [aux_sym_stop_statement_token1] = ACTIONS(6906),
+    [aux_sym_stop_statement_token2] = ACTIONS(6906),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6906),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6906),
+    [aux_sym_include_statement_token1] = ACTIONS(6906),
+    [aux_sym_data_statement_token1] = ACTIONS(6906),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6906),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6906),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6906),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6906),
+    [aux_sym_block_construct_token1] = ACTIONS(6906),
+    [aux_sym_format_statement_token1] = ACTIONS(6906),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6906),
+    [aux_sym_enum_statement_token1] = ACTIONS(6906),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6906),
+    [aux_sym_entry_statement_token1] = ACTIONS(6906),
+    [aux_sym_null_literal_token1] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6906),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6906),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6906),
+    [aux_sym_identifier_token1] = ACTIONS(6906),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6722),
+    [sym__integer_literal] = ACTIONS(6908),
   },
-  [2824] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5050),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
+  [2796] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6910),
+    [aux_sym_preproc_def_token1] = ACTIONS(6910),
+    [aux_sym_preproc_if_token1] = ACTIONS(6910),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6910),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6910),
+    [sym_preproc_directive] = ACTIONS(6910),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6910),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6910),
+    [aux_sym_interface_statement_token1] = ACTIONS(6910),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6910),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6910),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6910),
+    [aux_sym_language_binding_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6910),
+    [aux_sym_contains_statement_token1] = ACTIONS(6910),
+    [aux_sym_use_statement_token1] = ACTIONS(6910),
+    [aux_sym_use_statement_token2] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6910),
+    [aux_sym_save_statement_token1] = ACTIONS(6910),
+    [aux_sym_private_statement_token1] = ACTIONS(6910),
+    [aux_sym_public_statement_token1] = ACTIONS(6910),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6910),
+    [aux_sym_common_statement_token1] = ACTIONS(6910),
+    [aux_sym_import_statement_token1] = ACTIONS(6910),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6910),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6910),
+    [aux_sym_derived_type_token1] = ACTIONS(6910),
+    [aux_sym_declared_type_token1] = ACTIONS(6910),
+    [aux_sym_declared_type_token2] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6910),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6910),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6910),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6910),
+    [aux_sym_stop_statement_token1] = ACTIONS(6910),
+    [aux_sym_stop_statement_token2] = ACTIONS(6910),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6910),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6910),
+    [aux_sym_include_statement_token1] = ACTIONS(6910),
+    [aux_sym_data_statement_token1] = ACTIONS(6910),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6910),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6910),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6910),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6910),
+    [aux_sym_block_construct_token1] = ACTIONS(6910),
+    [aux_sym_format_statement_token1] = ACTIONS(6910),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6910),
+    [aux_sym_enum_statement_token1] = ACTIONS(6910),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6910),
+    [aux_sym_entry_statement_token1] = ACTIONS(6910),
+    [aux_sym_null_literal_token1] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6910),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6910),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6910),
+    [aux_sym_identifier_token1] = ACTIONS(6910),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6912),
   },
-  [2825] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7122),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2797] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6914),
+    [aux_sym_preproc_def_token1] = ACTIONS(6914),
+    [aux_sym_preproc_if_token1] = ACTIONS(6914),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6914),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6914),
+    [sym_preproc_directive] = ACTIONS(6914),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6914),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6914),
+    [aux_sym_interface_statement_token1] = ACTIONS(6914),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6914),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6914),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6914),
+    [aux_sym_language_binding_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6914),
+    [aux_sym_contains_statement_token1] = ACTIONS(6914),
+    [aux_sym_use_statement_token1] = ACTIONS(6914),
+    [aux_sym_use_statement_token2] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6914),
+    [aux_sym_save_statement_token1] = ACTIONS(6914),
+    [aux_sym_private_statement_token1] = ACTIONS(6914),
+    [aux_sym_public_statement_token1] = ACTIONS(6914),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6914),
+    [aux_sym_common_statement_token1] = ACTIONS(6914),
+    [aux_sym_import_statement_token1] = ACTIONS(6914),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6914),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6914),
+    [aux_sym_derived_type_token1] = ACTIONS(6914),
+    [aux_sym_declared_type_token1] = ACTIONS(6914),
+    [aux_sym_declared_type_token2] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6914),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6914),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6914),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6914),
+    [aux_sym_stop_statement_token1] = ACTIONS(6914),
+    [aux_sym_stop_statement_token2] = ACTIONS(6914),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6914),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6914),
+    [aux_sym_include_statement_token1] = ACTIONS(6914),
+    [aux_sym_data_statement_token1] = ACTIONS(6914),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6914),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6914),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6914),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6914),
+    [aux_sym_block_construct_token1] = ACTIONS(6914),
+    [aux_sym_format_statement_token1] = ACTIONS(6914),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6914),
+    [aux_sym_enum_statement_token1] = ACTIONS(6914),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6914),
+    [aux_sym_entry_statement_token1] = ACTIONS(6914),
+    [aux_sym_null_literal_token1] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6914),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6914),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6914),
+    [aux_sym_identifier_token1] = ACTIONS(6914),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6916),
+  },
+  [2798] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6820),
+    [aux_sym_preproc_def_token1] = ACTIONS(6820),
+    [aux_sym_preproc_if_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6820),
+    [sym_preproc_directive] = ACTIONS(6820),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6820),
+    [aux_sym_interface_statement_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6820),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6820),
+    [aux_sym_language_binding_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6820),
+    [aux_sym_contains_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token2] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6820),
+    [aux_sym_save_statement_token1] = ACTIONS(6820),
+    [aux_sym_private_statement_token1] = ACTIONS(6820),
+    [aux_sym_public_statement_token1] = ACTIONS(6820),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6820),
+    [aux_sym_common_statement_token1] = ACTIONS(6820),
+    [aux_sym_import_statement_token1] = ACTIONS(6820),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6820),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6820),
+    [aux_sym_derived_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6820),
+    [aux_sym_include_statement_token1] = ACTIONS(6820),
+    [aux_sym_data_statement_token1] = ACTIONS(6820),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6820),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6820),
+    [aux_sym_block_construct_token1] = ACTIONS(6820),
+    [aux_sym_format_statement_token1] = ACTIONS(6820),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6820),
+    [aux_sym_enum_statement_token1] = ACTIONS(6820),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6820),
+    [aux_sym_entry_statement_token1] = ACTIONS(6820),
+    [aux_sym_null_literal_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6820),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6820),
+    [aux_sym_identifier_token1] = ACTIONS(6820),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6824),
+  },
+  [2799] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6517),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2800] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6918),
+    [aux_sym_preproc_def_token1] = ACTIONS(6918),
+    [aux_sym_preproc_if_token1] = ACTIONS(6918),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6918),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6918),
+    [sym_preproc_directive] = ACTIONS(6918),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6918),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6918),
+    [aux_sym_interface_statement_token1] = ACTIONS(6918),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6918),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6918),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6918),
+    [aux_sym_language_binding_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6918),
+    [aux_sym_contains_statement_token1] = ACTIONS(6918),
+    [aux_sym_use_statement_token1] = ACTIONS(6918),
+    [aux_sym_use_statement_token2] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6918),
+    [aux_sym_save_statement_token1] = ACTIONS(6918),
+    [aux_sym_private_statement_token1] = ACTIONS(6918),
+    [aux_sym_public_statement_token1] = ACTIONS(6918),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6918),
+    [aux_sym_common_statement_token1] = ACTIONS(6918),
+    [aux_sym_import_statement_token1] = ACTIONS(6918),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6918),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6918),
+    [aux_sym_derived_type_token1] = ACTIONS(6918),
+    [aux_sym_declared_type_token1] = ACTIONS(6918),
+    [aux_sym_declared_type_token2] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6918),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6918),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6918),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6918),
+    [aux_sym_stop_statement_token1] = ACTIONS(6918),
+    [aux_sym_stop_statement_token2] = ACTIONS(6918),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6918),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6918),
+    [aux_sym_include_statement_token1] = ACTIONS(6918),
+    [aux_sym_data_statement_token1] = ACTIONS(6918),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6918),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6918),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6918),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6918),
+    [aux_sym_block_construct_token1] = ACTIONS(6918),
+    [aux_sym_format_statement_token1] = ACTIONS(6918),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6918),
+    [aux_sym_enum_statement_token1] = ACTIONS(6918),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6918),
+    [aux_sym_entry_statement_token1] = ACTIONS(6918),
+    [aux_sym_null_literal_token1] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6918),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6918),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6918),
+    [aux_sym_identifier_token1] = ACTIONS(6918),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6920),
+  },
+  [2801] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6724),
+    [aux_sym_preproc_def_token1] = ACTIONS(6724),
+    [aux_sym_preproc_if_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
+    [sym_preproc_directive] = ACTIONS(6724),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6724),
+    [aux_sym_interface_statement_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
+    [aux_sym_language_binding_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
+    [aux_sym_contains_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token2] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
+    [aux_sym_save_statement_token1] = ACTIONS(6724),
+    [aux_sym_private_statement_token1] = ACTIONS(6724),
+    [aux_sym_public_statement_token1] = ACTIONS(6724),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
+    [aux_sym_common_statement_token1] = ACTIONS(6724),
+    [aux_sym_import_statement_token1] = ACTIONS(6724),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
+    [aux_sym_derived_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
+    [aux_sym_include_statement_token1] = ACTIONS(6724),
+    [aux_sym_data_statement_token1] = ACTIONS(6724),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
+    [aux_sym_block_construct_token1] = ACTIONS(6724),
+    [aux_sym_format_statement_token1] = ACTIONS(6724),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
+    [aux_sym_enum_statement_token1] = ACTIONS(6724),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
+    [aux_sym_entry_statement_token1] = ACTIONS(6724),
+    [aux_sym_null_literal_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
+    [aux_sym_identifier_token1] = ACTIONS(6724),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6728),
+  },
+  [2802] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6515),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2803] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6742),
+    [aux_sym_preproc_def_token1] = ACTIONS(6742),
+    [aux_sym_preproc_if_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6742),
+    [sym_preproc_directive] = ACTIONS(6742),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6742),
+    [aux_sym_interface_statement_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6742),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6742),
+    [aux_sym_language_binding_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6742),
+    [aux_sym_contains_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token2] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6742),
+    [aux_sym_save_statement_token1] = ACTIONS(6742),
+    [aux_sym_private_statement_token1] = ACTIONS(6742),
+    [aux_sym_public_statement_token1] = ACTIONS(6742),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6742),
+    [aux_sym_common_statement_token1] = ACTIONS(6742),
+    [aux_sym_import_statement_token1] = ACTIONS(6742),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6742),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6742),
+    [aux_sym_derived_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6742),
+    [aux_sym_include_statement_token1] = ACTIONS(6742),
+    [aux_sym_data_statement_token1] = ACTIONS(6742),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6742),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6742),
+    [aux_sym_block_construct_token1] = ACTIONS(6742),
+    [aux_sym_format_statement_token1] = ACTIONS(6742),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6742),
+    [aux_sym_enum_statement_token1] = ACTIONS(6742),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6742),
+    [aux_sym_entry_statement_token1] = ACTIONS(6742),
+    [aux_sym_null_literal_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6742),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6742),
+    [aux_sym_identifier_token1] = ACTIONS(6742),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6746),
+  },
+  [2804] = {
+    [sym__expression] = STATE(4404),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(6802),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6922),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2805] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+  },
+  [2806] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+  },
+  [2807] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6924),
+    [aux_sym_preproc_def_token1] = ACTIONS(6924),
+    [aux_sym_preproc_if_token1] = ACTIONS(6924),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6924),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6924),
+    [sym_preproc_directive] = ACTIONS(6924),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6924),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6924),
+    [aux_sym_interface_statement_token1] = ACTIONS(6924),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6924),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6924),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6924),
+    [aux_sym_language_binding_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6924),
+    [aux_sym_contains_statement_token1] = ACTIONS(6924),
+    [aux_sym_use_statement_token1] = ACTIONS(6924),
+    [aux_sym_use_statement_token2] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6924),
+    [aux_sym_save_statement_token1] = ACTIONS(6924),
+    [aux_sym_private_statement_token1] = ACTIONS(6924),
+    [aux_sym_public_statement_token1] = ACTIONS(6924),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6924),
+    [aux_sym_common_statement_token1] = ACTIONS(6924),
+    [aux_sym_import_statement_token1] = ACTIONS(6924),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6924),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6924),
+    [aux_sym_derived_type_token1] = ACTIONS(6924),
+    [aux_sym_declared_type_token1] = ACTIONS(6924),
+    [aux_sym_declared_type_token2] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6924),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6924),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6924),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6924),
+    [aux_sym_stop_statement_token1] = ACTIONS(6924),
+    [aux_sym_stop_statement_token2] = ACTIONS(6924),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6924),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6924),
+    [aux_sym_include_statement_token1] = ACTIONS(6924),
+    [aux_sym_data_statement_token1] = ACTIONS(6924),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6924),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6924),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6924),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6924),
+    [aux_sym_block_construct_token1] = ACTIONS(6924),
+    [aux_sym_format_statement_token1] = ACTIONS(6924),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6924),
+    [aux_sym_enum_statement_token1] = ACTIONS(6924),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6924),
+    [aux_sym_entry_statement_token1] = ACTIONS(6924),
+    [aux_sym_null_literal_token1] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6924),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6924),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6924),
+    [aux_sym_identifier_token1] = ACTIONS(6924),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6926),
+  },
+  [2808] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
+  },
+  [2809] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
+  },
+  [2810] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+  },
+  [2811] = {
+    [sym__expression] = STATE(4386),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(6529),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6928),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2812] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+  },
+  [2813] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6922),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -438433,514 +437152,799 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2814] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
+  },
+  [2815] = {
+    [sym_input_item_list] = STATE(7513),
+    [sym__expression] = STATE(4380),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(6930),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(6930),
+  },
+  [2816] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5096),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+  },
+  [2817] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5100),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5102),
+  },
+  [2818] = {
+    [sym_output_item_list] = STATE(7484),
+    [sym__expression] = STATE(4431),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(6932),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(6932),
   },
-  [2826] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6906),
-    [aux_sym_preproc_def_token1] = ACTIONS(6906),
-    [aux_sym_preproc_if_token1] = ACTIONS(6906),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6906),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6906),
-    [sym_preproc_directive] = ACTIONS(6906),
+  [2819] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6906),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6906),
-    [aux_sym_interface_statement_token1] = ACTIONS(6906),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6906),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6906),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6906),
-    [aux_sym_language_binding_token1] = ACTIONS(6906),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6906),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6906),
-    [aux_sym_contains_statement_token1] = ACTIONS(6906),
-    [aux_sym_use_statement_token1] = ACTIONS(6906),
-    [aux_sym_use_statement_token2] = ACTIONS(6906),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6906),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6906),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6906),
-    [aux_sym_save_statement_token1] = ACTIONS(6906),
-    [aux_sym_private_statement_token1] = ACTIONS(6906),
-    [aux_sym_public_statement_token1] = ACTIONS(6906),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6906),
-    [aux_sym_common_statement_token1] = ACTIONS(6906),
-    [aux_sym_import_statement_token1] = ACTIONS(6906),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6906),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6906),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6906),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6906),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6906),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6906),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6906),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6906),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6906),
-    [aux_sym_derived_type_token1] = ACTIONS(6906),
-    [aux_sym_declared_type_token1] = ACTIONS(6906),
-    [aux_sym_declared_type_token2] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6906),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6906),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6906),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6906),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6906),
-    [aux_sym_stop_statement_token1] = ACTIONS(6906),
-    [aux_sym_stop_statement_token2] = ACTIONS(6906),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6906),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6906),
-    [aux_sym_include_statement_token1] = ACTIONS(6906),
-    [aux_sym_data_statement_token1] = ACTIONS(6906),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6906),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6906),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6906),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6906),
-    [aux_sym_block_construct_token1] = ACTIONS(6906),
-    [aux_sym_format_statement_token1] = ACTIONS(6906),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6906),
-    [aux_sym_enum_statement_token1] = ACTIONS(6906),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6906),
-    [aux_sym_entry_statement_token1] = ACTIONS(6906),
-    [aux_sym_null_literal_token1] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6906),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6906),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6906),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6906),
-    [aux_sym_identifier_token1] = ACTIONS(6906),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6908),
-  },
-  [2827] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-  },
-  [2828] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
+    [sym__integer_literal] = ACTIONS(5106),
   },
-  [2829] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
+  [2820] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
+    [sym__integer_literal] = ACTIONS(5126),
   },
-  [2830] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
+  [2821] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5132),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
+    [sym__integer_literal] = ACTIONS(5134),
   },
-  [2831] = {
-    [sym_input_item_list] = STATE(7649),
-    [sym__expression] = STATE(4382),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2822] = {
+    [sym_output_item_list] = STATE(7479),
+    [sym__expression] = STATE(4431),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -438971,7 +437975,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6910),
+    [anon_sym_SEMI] = ACTIONS(6934),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -438988,7 +437992,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -439007,199 +438011,294 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__boz_literal] = ACTIONS(5545),
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6910),
+    [sym__external_end_of_statement] = ACTIONS(6934),
   },
-  [2832] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5090),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
+  [2823] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6936),
+    [aux_sym_preproc_def_token1] = ACTIONS(6936),
+    [aux_sym_preproc_if_token1] = ACTIONS(6936),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6936),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6936),
+    [sym_preproc_directive] = ACTIONS(6936),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6936),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6936),
+    [aux_sym_interface_statement_token1] = ACTIONS(6936),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6936),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6936),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6936),
+    [aux_sym_language_binding_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6936),
+    [aux_sym_contains_statement_token1] = ACTIONS(6936),
+    [aux_sym_use_statement_token1] = ACTIONS(6936),
+    [aux_sym_use_statement_token2] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6936),
+    [aux_sym_save_statement_token1] = ACTIONS(6936),
+    [aux_sym_private_statement_token1] = ACTIONS(6936),
+    [aux_sym_public_statement_token1] = ACTIONS(6936),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6936),
+    [aux_sym_common_statement_token1] = ACTIONS(6936),
+    [aux_sym_import_statement_token1] = ACTIONS(6936),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6936),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6936),
+    [aux_sym_derived_type_token1] = ACTIONS(6936),
+    [aux_sym_declared_type_token1] = ACTIONS(6936),
+    [aux_sym_declared_type_token2] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6936),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6936),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6936),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6936),
+    [aux_sym_stop_statement_token1] = ACTIONS(6936),
+    [aux_sym_stop_statement_token2] = ACTIONS(6936),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6936),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6936),
+    [aux_sym_include_statement_token1] = ACTIONS(6936),
+    [aux_sym_data_statement_token1] = ACTIONS(6936),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6936),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6936),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6936),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6936),
+    [aux_sym_block_construct_token1] = ACTIONS(6936),
+    [aux_sym_format_statement_token1] = ACTIONS(6936),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6936),
+    [aux_sym_enum_statement_token1] = ACTIONS(6936),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6936),
+    [aux_sym_entry_statement_token1] = ACTIONS(6936),
+    [aux_sym_null_literal_token1] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6936),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6936),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6936),
+    [aux_sym_identifier_token1] = ACTIONS(6936),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6938),
   },
-  [2833] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6912),
-    [aux_sym_preproc_def_token1] = ACTIONS(6912),
-    [aux_sym_preproc_if_token1] = ACTIONS(6912),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6912),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6912),
-    [sym_preproc_directive] = ACTIONS(6912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6912),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6912),
-    [aux_sym_interface_statement_token1] = ACTIONS(6912),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6912),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6912),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6912),
-    [aux_sym_language_binding_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6912),
-    [aux_sym_contains_statement_token1] = ACTIONS(6912),
-    [aux_sym_use_statement_token1] = ACTIONS(6912),
-    [aux_sym_use_statement_token2] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6912),
-    [aux_sym_save_statement_token1] = ACTIONS(6912),
-    [aux_sym_private_statement_token1] = ACTIONS(6912),
-    [aux_sym_public_statement_token1] = ACTIONS(6912),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6912),
-    [aux_sym_common_statement_token1] = ACTIONS(6912),
-    [aux_sym_import_statement_token1] = ACTIONS(6912),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6912),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6912),
-    [aux_sym_derived_type_token1] = ACTIONS(6912),
-    [aux_sym_declared_type_token1] = ACTIONS(6912),
-    [aux_sym_declared_type_token2] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6912),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6912),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6912),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6912),
-    [aux_sym_stop_statement_token1] = ACTIONS(6912),
-    [aux_sym_stop_statement_token2] = ACTIONS(6912),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6912),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6912),
-    [aux_sym_include_statement_token1] = ACTIONS(6912),
-    [aux_sym_data_statement_token1] = ACTIONS(6912),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6912),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6912),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6912),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6912),
-    [aux_sym_block_construct_token1] = ACTIONS(6912),
-    [aux_sym_format_statement_token1] = ACTIONS(6912),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6912),
-    [aux_sym_enum_statement_token1] = ACTIONS(6912),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6912),
-    [aux_sym_entry_statement_token1] = ACTIONS(6912),
-    [aux_sym_null_literal_token1] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6912),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6912),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6912),
-    [aux_sym_identifier_token1] = ACTIONS(6912),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6914),
+  [2824] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6936),
+    [aux_sym_preproc_def_token1] = ACTIONS(6936),
+    [aux_sym_preproc_if_token1] = ACTIONS(6936),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6936),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6936),
+    [sym_preproc_directive] = ACTIONS(6936),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6936),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6936),
+    [aux_sym_interface_statement_token1] = ACTIONS(6936),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6936),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6936),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6936),
+    [aux_sym_language_binding_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6936),
+    [aux_sym_contains_statement_token1] = ACTIONS(6936),
+    [aux_sym_use_statement_token1] = ACTIONS(6936),
+    [aux_sym_use_statement_token2] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6936),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6936),
+    [aux_sym_save_statement_token1] = ACTIONS(6936),
+    [aux_sym_private_statement_token1] = ACTIONS(6936),
+    [aux_sym_public_statement_token1] = ACTIONS(6936),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6936),
+    [aux_sym_common_statement_token1] = ACTIONS(6936),
+    [aux_sym_import_statement_token1] = ACTIONS(6936),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6936),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6936),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6936),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6936),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6936),
+    [aux_sym_derived_type_token1] = ACTIONS(6936),
+    [aux_sym_declared_type_token1] = ACTIONS(6936),
+    [aux_sym_declared_type_token2] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6936),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6936),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6936),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6936),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6936),
+    [aux_sym_stop_statement_token1] = ACTIONS(6936),
+    [aux_sym_stop_statement_token2] = ACTIONS(6936),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6936),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6936),
+    [aux_sym_include_statement_token1] = ACTIONS(6936),
+    [aux_sym_data_statement_token1] = ACTIONS(6936),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6936),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6936),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6936),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6936),
+    [aux_sym_block_construct_token1] = ACTIONS(6936),
+    [aux_sym_format_statement_token1] = ACTIONS(6936),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6936),
+    [aux_sym_enum_statement_token1] = ACTIONS(6936),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6936),
+    [aux_sym_entry_statement_token1] = ACTIONS(6936),
+    [aux_sym_null_literal_token1] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6936),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6936),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6936),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6936),
+    [aux_sym_identifier_token1] = ACTIONS(6936),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6938),
   },
-  [2834] = {
+  [2825] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6782),
+    [aux_sym_preproc_def_token1] = ACTIONS(6782),
+    [aux_sym_preproc_if_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
+    [sym_preproc_directive] = ACTIONS(6782),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6782),
+    [aux_sym_interface_statement_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
+    [aux_sym_language_binding_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
+    [aux_sym_contains_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token2] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
+    [aux_sym_save_statement_token1] = ACTIONS(6782),
+    [aux_sym_private_statement_token1] = ACTIONS(6782),
+    [aux_sym_public_statement_token1] = ACTIONS(6782),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
+    [aux_sym_common_statement_token1] = ACTIONS(6782),
+    [aux_sym_import_statement_token1] = ACTIONS(6782),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
+    [aux_sym_derived_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
+    [aux_sym_include_statement_token1] = ACTIONS(6782),
+    [aux_sym_data_statement_token1] = ACTIONS(6782),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
+    [aux_sym_block_construct_token1] = ACTIONS(6782),
+    [aux_sym_format_statement_token1] = ACTIONS(6782),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
+    [aux_sym_enum_statement_token1] = ACTIONS(6782),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
+    [aux_sym_entry_statement_token1] = ACTIONS(6782),
+    [aux_sym_null_literal_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
+    [aux_sym_identifier_token1] = ACTIONS(6782),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6786),
+  },
+  [2826] = {
     [aux_sym_preproc_include_token1] = ACTIONS(4409),
     [aux_sym_preproc_def_token1] = ACTIONS(4409),
     [aux_sym_preproc_if_token1] = ACTIONS(4409),
@@ -439292,134 +438391,229 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
     [aux_sym_identifier_token1] = ACTIONS(4409),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
-  },
-  [2835] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6818),
-    [aux_sym_preproc_def_token1] = ACTIONS(6818),
-    [aux_sym_preproc_if_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6818),
-    [sym_preproc_directive] = ACTIONS(6818),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6818),
-    [aux_sym_interface_statement_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6818),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6818),
-    [aux_sym_language_binding_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6818),
-    [aux_sym_contains_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token2] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6818),
-    [aux_sym_save_statement_token1] = ACTIONS(6818),
-    [aux_sym_private_statement_token1] = ACTIONS(6818),
-    [aux_sym_public_statement_token1] = ACTIONS(6818),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6818),
-    [aux_sym_common_statement_token1] = ACTIONS(6818),
-    [aux_sym_import_statement_token1] = ACTIONS(6818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6818),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6818),
-    [aux_sym_derived_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6818),
-    [aux_sym_include_statement_token1] = ACTIONS(6818),
-    [aux_sym_data_statement_token1] = ACTIONS(6818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6818),
-    [aux_sym_block_construct_token1] = ACTIONS(6818),
-    [aux_sym_format_statement_token1] = ACTIONS(6818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6818),
-    [aux_sym_enum_statement_token1] = ACTIONS(6818),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6818),
-    [aux_sym_entry_statement_token1] = ACTIONS(6818),
-    [aux_sym_null_literal_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6818),
-    [aux_sym_identifier_token1] = ACTIONS(6818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6822),
+    [sym__integer_literal] = ACTIONS(4411),
+  },
+  [2827] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4407),
+  },
+  [2828] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6782),
+    [aux_sym_preproc_def_token1] = ACTIONS(6782),
+    [aux_sym_preproc_if_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
+    [sym_preproc_directive] = ACTIONS(6782),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6782),
+    [aux_sym_interface_statement_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
+    [aux_sym_language_binding_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
+    [aux_sym_contains_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token1] = ACTIONS(6782),
+    [aux_sym_use_statement_token2] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
+    [aux_sym_save_statement_token1] = ACTIONS(6782),
+    [aux_sym_private_statement_token1] = ACTIONS(6782),
+    [aux_sym_public_statement_token1] = ACTIONS(6782),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
+    [aux_sym_common_statement_token1] = ACTIONS(6782),
+    [aux_sym_import_statement_token1] = ACTIONS(6782),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
+    [aux_sym_derived_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token1] = ACTIONS(6782),
+    [aux_sym_declared_type_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token1] = ACTIONS(6782),
+    [aux_sym_stop_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
+    [aux_sym_include_statement_token1] = ACTIONS(6782),
+    [aux_sym_data_statement_token1] = ACTIONS(6782),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
+    [aux_sym_block_construct_token1] = ACTIONS(6782),
+    [aux_sym_format_statement_token1] = ACTIONS(6782),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
+    [aux_sym_enum_statement_token1] = ACTIONS(6782),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
+    [aux_sym_entry_statement_token1] = ACTIONS(6782),
+    [aux_sym_null_literal_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
+    [aux_sym_identifier_token1] = ACTIONS(6782),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6786),
   },
-  [2836] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(6744),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
+  [2829] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6516),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -439484,387 +438678,767 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2837] = {
-    [sym__expression] = STATE(4412),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7183),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6916),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [2830] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6940),
+    [aux_sym_preproc_def_token1] = ACTIONS(6940),
+    [aux_sym_preproc_if_token1] = ACTIONS(6940),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6940),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6940),
+    [sym_preproc_directive] = ACTIONS(6940),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6940),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6940),
+    [aux_sym_interface_statement_token1] = ACTIONS(6940),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6940),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6940),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6940),
+    [aux_sym_language_binding_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6940),
+    [aux_sym_contains_statement_token1] = ACTIONS(6940),
+    [aux_sym_use_statement_token1] = ACTIONS(6940),
+    [aux_sym_use_statement_token2] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6940),
+    [aux_sym_save_statement_token1] = ACTIONS(6940),
+    [aux_sym_private_statement_token1] = ACTIONS(6940),
+    [aux_sym_public_statement_token1] = ACTIONS(6940),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6940),
+    [aux_sym_common_statement_token1] = ACTIONS(6940),
+    [aux_sym_import_statement_token1] = ACTIONS(6940),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6940),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6940),
+    [aux_sym_derived_type_token1] = ACTIONS(6940),
+    [aux_sym_declared_type_token1] = ACTIONS(6940),
+    [aux_sym_declared_type_token2] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6940),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6940),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6940),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6940),
+    [aux_sym_stop_statement_token1] = ACTIONS(6940),
+    [aux_sym_stop_statement_token2] = ACTIONS(6940),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6940),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6940),
+    [aux_sym_include_statement_token1] = ACTIONS(6940),
+    [aux_sym_data_statement_token1] = ACTIONS(6940),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6940),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6940),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6940),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6940),
+    [aux_sym_block_construct_token1] = ACTIONS(6940),
+    [aux_sym_format_statement_token1] = ACTIONS(6940),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6940),
+    [aux_sym_enum_statement_token1] = ACTIONS(6940),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6940),
+    [aux_sym_entry_statement_token1] = ACTIONS(6940),
+    [aux_sym_null_literal_token1] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6940),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6940),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6940),
+    [aux_sym_identifier_token1] = ACTIONS(6940),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6942),
   },
-  [2838] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
+  [2831] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6940),
+    [aux_sym_preproc_def_token1] = ACTIONS(6940),
+    [aux_sym_preproc_if_token1] = ACTIONS(6940),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6940),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6940),
+    [sym_preproc_directive] = ACTIONS(6940),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6940),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6940),
+    [aux_sym_interface_statement_token1] = ACTIONS(6940),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6940),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6940),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6940),
+    [aux_sym_language_binding_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6940),
+    [aux_sym_contains_statement_token1] = ACTIONS(6940),
+    [aux_sym_use_statement_token1] = ACTIONS(6940),
+    [aux_sym_use_statement_token2] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6940),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6940),
+    [aux_sym_save_statement_token1] = ACTIONS(6940),
+    [aux_sym_private_statement_token1] = ACTIONS(6940),
+    [aux_sym_public_statement_token1] = ACTIONS(6940),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6940),
+    [aux_sym_common_statement_token1] = ACTIONS(6940),
+    [aux_sym_import_statement_token1] = ACTIONS(6940),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6940),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6940),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6940),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6940),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6940),
+    [aux_sym_derived_type_token1] = ACTIONS(6940),
+    [aux_sym_declared_type_token1] = ACTIONS(6940),
+    [aux_sym_declared_type_token2] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6940),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6940),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6940),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6940),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6940),
+    [aux_sym_stop_statement_token1] = ACTIONS(6940),
+    [aux_sym_stop_statement_token2] = ACTIONS(6940),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6940),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6940),
+    [aux_sym_include_statement_token1] = ACTIONS(6940),
+    [aux_sym_data_statement_token1] = ACTIONS(6940),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6940),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6940),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6940),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6940),
+    [aux_sym_block_construct_token1] = ACTIONS(6940),
+    [aux_sym_format_statement_token1] = ACTIONS(6940),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6940),
+    [aux_sym_enum_statement_token1] = ACTIONS(6940),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6940),
+    [aux_sym_entry_statement_token1] = ACTIONS(6940),
+    [aux_sym_null_literal_token1] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6940),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6940),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6940),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6940),
+    [aux_sym_identifier_token1] = ACTIONS(6940),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6942),
+  },
+  [2832] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6798),
+    [aux_sym_preproc_def_token1] = ACTIONS(6798),
+    [aux_sym_preproc_if_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6798),
+    [sym_preproc_directive] = ACTIONS(6798),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6798),
+    [aux_sym_interface_statement_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6798),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6798),
+    [aux_sym_language_binding_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6798),
+    [aux_sym_contains_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token2] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6798),
+    [aux_sym_save_statement_token1] = ACTIONS(6798),
+    [aux_sym_private_statement_token1] = ACTIONS(6798),
+    [aux_sym_public_statement_token1] = ACTIONS(6798),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6798),
+    [aux_sym_common_statement_token1] = ACTIONS(6798),
+    [aux_sym_import_statement_token1] = ACTIONS(6798),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6798),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6798),
+    [aux_sym_derived_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6798),
+    [aux_sym_include_statement_token1] = ACTIONS(6798),
+    [aux_sym_data_statement_token1] = ACTIONS(6798),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6798),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6798),
+    [aux_sym_block_construct_token1] = ACTIONS(6798),
+    [aux_sym_format_statement_token1] = ACTIONS(6798),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6798),
+    [aux_sym_enum_statement_token1] = ACTIONS(6798),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6798),
+    [aux_sym_entry_statement_token1] = ACTIONS(6798),
+    [aux_sym_null_literal_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6798),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6798),
+    [aux_sym_identifier_token1] = ACTIONS(6798),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6802),
+  },
+  [2833] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6798),
+    [aux_sym_preproc_def_token1] = ACTIONS(6798),
+    [aux_sym_preproc_if_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6798),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6798),
+    [sym_preproc_directive] = ACTIONS(6798),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6798),
+    [aux_sym_interface_statement_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6798),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6798),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6798),
+    [aux_sym_language_binding_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6798),
+    [aux_sym_contains_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token1] = ACTIONS(6798),
+    [aux_sym_use_statement_token2] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6798),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6798),
+    [aux_sym_save_statement_token1] = ACTIONS(6798),
+    [aux_sym_private_statement_token1] = ACTIONS(6798),
+    [aux_sym_public_statement_token1] = ACTIONS(6798),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6798),
+    [aux_sym_common_statement_token1] = ACTIONS(6798),
+    [aux_sym_import_statement_token1] = ACTIONS(6798),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6798),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6798),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6798),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6798),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6798),
+    [aux_sym_derived_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token1] = ACTIONS(6798),
+    [aux_sym_declared_type_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6798),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6798),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6798),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token1] = ACTIONS(6798),
+    [aux_sym_stop_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6798),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6798),
+    [aux_sym_include_statement_token1] = ACTIONS(6798),
+    [aux_sym_data_statement_token1] = ACTIONS(6798),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6798),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6798),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6798),
+    [aux_sym_block_construct_token1] = ACTIONS(6798),
+    [aux_sym_format_statement_token1] = ACTIONS(6798),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6798),
+    [aux_sym_enum_statement_token1] = ACTIONS(6798),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6798),
+    [aux_sym_entry_statement_token1] = ACTIONS(6798),
+    [aux_sym_null_literal_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6798),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6798),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6798),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6798),
+    [aux_sym_identifier_token1] = ACTIONS(6798),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6802),
+  },
+  [2834] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
+    [sym__integer_literal] = ACTIONS(4471),
   },
-  [2839] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5104),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
+  [2835] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
+    [sym__integer_literal] = ACTIONS(4439),
   },
-  [2840] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6818),
-    [aux_sym_preproc_def_token1] = ACTIONS(6818),
-    [aux_sym_preproc_if_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6818),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6818),
-    [sym_preproc_directive] = ACTIONS(6818),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6818),
-    [aux_sym_interface_statement_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6818),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6818),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6818),
-    [aux_sym_language_binding_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6818),
-    [aux_sym_contains_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token1] = ACTIONS(6818),
-    [aux_sym_use_statement_token2] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6818),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6818),
-    [aux_sym_save_statement_token1] = ACTIONS(6818),
-    [aux_sym_private_statement_token1] = ACTIONS(6818),
-    [aux_sym_public_statement_token1] = ACTIONS(6818),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6818),
-    [aux_sym_common_statement_token1] = ACTIONS(6818),
-    [aux_sym_import_statement_token1] = ACTIONS(6818),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6818),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6818),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6818),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6818),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6818),
-    [aux_sym_derived_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token1] = ACTIONS(6818),
-    [aux_sym_declared_type_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6818),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6818),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6818),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token1] = ACTIONS(6818),
-    [aux_sym_stop_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6818),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6818),
-    [aux_sym_include_statement_token1] = ACTIONS(6818),
-    [aux_sym_data_statement_token1] = ACTIONS(6818),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6818),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6818),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6818),
-    [aux_sym_block_construct_token1] = ACTIONS(6818),
-    [aux_sym_format_statement_token1] = ACTIONS(6818),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6818),
-    [aux_sym_enum_statement_token1] = ACTIONS(6818),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6818),
-    [aux_sym_entry_statement_token1] = ACTIONS(6818),
-    [aux_sym_null_literal_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6818),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6818),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6818),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6818),
-    [aux_sym_identifier_token1] = ACTIONS(6818),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6822),
+  [2836] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
   },
-  [2841] = {
+  [2837] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
+  },
+  [2838] = {
     [aux_sym_preproc_include_token1] = ACTIONS(5120),
     [aux_sym_preproc_def_token1] = ACTIONS(5120),
     [aux_sym_preproc_if_token1] = ACTIONS(5120),
@@ -439873,7 +439447,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_directive] = ACTIONS(5120),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5120),
     [aux_sym_interface_statement_token1] = ACTIONS(5120),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
@@ -439945,2042 +439519,1092 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_inquire_statement_token1] = ACTIONS(5120),
     [aux_sym_enum_statement_token1] = ACTIONS(5120),
     [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-  },
-  [2842] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6830),
-    [aux_sym_preproc_def_token1] = ACTIONS(6830),
-    [aux_sym_preproc_if_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6830),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6830),
-    [sym_preproc_directive] = ACTIONS(6830),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6830),
-    [aux_sym_interface_statement_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6830),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6830),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6830),
-    [aux_sym_language_binding_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6830),
-    [aux_sym_contains_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token1] = ACTIONS(6830),
-    [aux_sym_use_statement_token2] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6830),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6830),
-    [aux_sym_save_statement_token1] = ACTIONS(6830),
-    [aux_sym_private_statement_token1] = ACTIONS(6830),
-    [aux_sym_public_statement_token1] = ACTIONS(6830),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6830),
-    [aux_sym_common_statement_token1] = ACTIONS(6830),
-    [aux_sym_import_statement_token1] = ACTIONS(6830),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6830),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6830),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6830),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6830),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6830),
-    [aux_sym_derived_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token1] = ACTIONS(6830),
-    [aux_sym_declared_type_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6830),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6830),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6830),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token1] = ACTIONS(6830),
-    [aux_sym_stop_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6830),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6830),
-    [aux_sym_include_statement_token1] = ACTIONS(6830),
-    [aux_sym_data_statement_token1] = ACTIONS(6830),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6830),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6830),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6830),
-    [aux_sym_block_construct_token1] = ACTIONS(6830),
-    [aux_sym_format_statement_token1] = ACTIONS(6830),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6830),
-    [aux_sym_enum_statement_token1] = ACTIONS(6830),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6830),
-    [aux_sym_entry_statement_token1] = ACTIONS(6830),
-    [aux_sym_null_literal_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6830),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6830),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6830),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6830),
-    [aux_sym_identifier_token1] = ACTIONS(6830),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6834),
-  },
-  [2843] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6898),
-    [aux_sym_preproc_def_token1] = ACTIONS(6898),
-    [aux_sym_preproc_if_token1] = ACTIONS(6898),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6898),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6898),
-    [sym_preproc_directive] = ACTIONS(6898),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6898),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6898),
-    [aux_sym_interface_statement_token1] = ACTIONS(6898),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6898),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6898),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6898),
-    [aux_sym_language_binding_token1] = ACTIONS(6898),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6898),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6898),
-    [aux_sym_contains_statement_token1] = ACTIONS(6898),
-    [aux_sym_use_statement_token1] = ACTIONS(6898),
-    [aux_sym_use_statement_token2] = ACTIONS(6898),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6898),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6898),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6898),
-    [aux_sym_save_statement_token1] = ACTIONS(6898),
-    [aux_sym_private_statement_token1] = ACTIONS(6898),
-    [aux_sym_public_statement_token1] = ACTIONS(6898),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6898),
-    [aux_sym_common_statement_token1] = ACTIONS(6898),
-    [aux_sym_import_statement_token1] = ACTIONS(6898),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6898),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6898),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6898),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6898),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6898),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6898),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6898),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6898),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6898),
-    [aux_sym_derived_type_token1] = ACTIONS(6898),
-    [aux_sym_declared_type_token1] = ACTIONS(6898),
-    [aux_sym_declared_type_token2] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6898),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6898),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6898),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6898),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6898),
-    [aux_sym_stop_statement_token1] = ACTIONS(6898),
-    [aux_sym_stop_statement_token2] = ACTIONS(6898),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6898),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6898),
-    [aux_sym_include_statement_token1] = ACTIONS(6898),
-    [aux_sym_data_statement_token1] = ACTIONS(6898),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6898),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6898),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6898),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6898),
-    [aux_sym_block_construct_token1] = ACTIONS(6898),
-    [aux_sym_format_statement_token1] = ACTIONS(6898),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6898),
-    [aux_sym_enum_statement_token1] = ACTIONS(6898),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6898),
-    [aux_sym_entry_statement_token1] = ACTIONS(6898),
-    [aux_sym_null_literal_token1] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6898),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6898),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6898),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6898),
-    [aux_sym_identifier_token1] = ACTIONS(6898),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6900),
-  },
-  [2844] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4605),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-  },
-  [2845] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
-  },
-  [2846] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5058),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
-  },
-  [2847] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-  },
-  [2848] = {
-    [sym__expression] = STATE(4478),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_COMMA] = ACTIONS(6918),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6920),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6920),
-  },
-  [2849] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4609),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-  },
-  [2850] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6922),
-    [aux_sym_preproc_def_token1] = ACTIONS(6922),
-    [aux_sym_preproc_if_token1] = ACTIONS(6922),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6922),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6922),
-    [sym_preproc_directive] = ACTIONS(6922),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6922),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6922),
-    [aux_sym_interface_statement_token1] = ACTIONS(6922),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6922),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6922),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6922),
-    [aux_sym_language_binding_token1] = ACTIONS(6922),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6922),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6922),
-    [aux_sym_contains_statement_token1] = ACTIONS(6922),
-    [aux_sym_use_statement_token1] = ACTIONS(6922),
-    [aux_sym_use_statement_token2] = ACTIONS(6922),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6922),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6922),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6922),
-    [aux_sym_save_statement_token1] = ACTIONS(6922),
-    [aux_sym_private_statement_token1] = ACTIONS(6922),
-    [aux_sym_public_statement_token1] = ACTIONS(6922),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6922),
-    [aux_sym_common_statement_token1] = ACTIONS(6922),
-    [aux_sym_import_statement_token1] = ACTIONS(6922),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6922),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6922),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6922),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6922),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6922),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6922),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6922),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6922),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6922),
-    [aux_sym_derived_type_token1] = ACTIONS(6922),
-    [aux_sym_declared_type_token1] = ACTIONS(6922),
-    [aux_sym_declared_type_token2] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6922),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6922),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6922),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6922),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6922),
-    [aux_sym_stop_statement_token1] = ACTIONS(6922),
-    [aux_sym_stop_statement_token2] = ACTIONS(6922),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6922),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6922),
-    [aux_sym_include_statement_token1] = ACTIONS(6922),
-    [aux_sym_data_statement_token1] = ACTIONS(6922),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6922),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6922),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6922),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6922),
-    [aux_sym_block_construct_token1] = ACTIONS(6922),
-    [aux_sym_format_statement_token1] = ACTIONS(6922),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6922),
-    [aux_sym_enum_statement_token1] = ACTIONS(6922),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6922),
-    [aux_sym_entry_statement_token1] = ACTIONS(6922),
-    [aux_sym_null_literal_token1] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6922),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6922),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6922),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6922),
-    [aux_sym_identifier_token1] = ACTIONS(6922),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6924),
-  },
-  [2851] = {
-    [sym_output_item_list] = STATE(7326),
-    [sym__expression] = STATE(4386),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6926),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6926),
-  },
-  [2852] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6912),
-    [aux_sym_preproc_def_token1] = ACTIONS(6912),
-    [aux_sym_preproc_if_token1] = ACTIONS(6912),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6912),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6912),
-    [sym_preproc_directive] = ACTIONS(6912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6912),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6912),
-    [aux_sym_interface_statement_token1] = ACTIONS(6912),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6912),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6912),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6912),
-    [aux_sym_language_binding_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6912),
-    [aux_sym_contains_statement_token1] = ACTIONS(6912),
-    [aux_sym_use_statement_token1] = ACTIONS(6912),
-    [aux_sym_use_statement_token2] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6912),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6912),
-    [aux_sym_save_statement_token1] = ACTIONS(6912),
-    [aux_sym_private_statement_token1] = ACTIONS(6912),
-    [aux_sym_public_statement_token1] = ACTIONS(6912),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6912),
-    [aux_sym_common_statement_token1] = ACTIONS(6912),
-    [aux_sym_import_statement_token1] = ACTIONS(6912),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6912),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6912),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6912),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6912),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6912),
-    [aux_sym_derived_type_token1] = ACTIONS(6912),
-    [aux_sym_declared_type_token1] = ACTIONS(6912),
-    [aux_sym_declared_type_token2] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6912),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6912),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6912),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6912),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6912),
-    [aux_sym_stop_statement_token1] = ACTIONS(6912),
-    [aux_sym_stop_statement_token2] = ACTIONS(6912),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6912),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6912),
-    [aux_sym_include_statement_token1] = ACTIONS(6912),
-    [aux_sym_data_statement_token1] = ACTIONS(6912),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6912),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6912),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6912),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6912),
-    [aux_sym_block_construct_token1] = ACTIONS(6912),
-    [aux_sym_format_statement_token1] = ACTIONS(6912),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6912),
-    [aux_sym_enum_statement_token1] = ACTIONS(6912),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6912),
-    [aux_sym_entry_statement_token1] = ACTIONS(6912),
-    [aux_sym_null_literal_token1] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6912),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6912),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6912),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6912),
-    [aux_sym_identifier_token1] = ACTIONS(6912),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6914),
-  },
-  [2853] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4601),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
-  },
-  [2854] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5094),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
-  },
-  [2855] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4413),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
+    [sym__integer_literal] = ACTIONS(5122),
   },
-  [2856] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5485),
-    [aux_sym_preproc_def_token1] = ACTIONS(5485),
-    [aux_sym_preproc_if_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
-    [sym_preproc_directive] = ACTIONS(5485),
+  [2839] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5052),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+  },
+  [2840] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5485),
-    [aux_sym_interface_statement_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
-    [aux_sym_language_binding_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
-    [aux_sym_contains_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token2] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
-    [aux_sym_save_statement_token1] = ACTIONS(5485),
-    [aux_sym_private_statement_token1] = ACTIONS(5485),
-    [aux_sym_public_statement_token1] = ACTIONS(5485),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
-    [aux_sym_common_statement_token1] = ACTIONS(5485),
-    [aux_sym_import_statement_token1] = ACTIONS(5485),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
-    [aux_sym_derived_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
-    [aux_sym_stop_statement_token1] = ACTIONS(5485),
-    [aux_sym_stop_statement_token2] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
-    [aux_sym_include_statement_token1] = ACTIONS(5485),
-    [aux_sym_data_statement_token1] = ACTIONS(5485),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
-    [aux_sym_block_construct_token1] = ACTIONS(5485),
-    [aux_sym_format_statement_token1] = ACTIONS(5485),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
-    [aux_sym_enum_statement_token1] = ACTIONS(5485),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
-    [aux_sym_entry_statement_token1] = ACTIONS(5485),
-    [aux_sym_null_literal_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
-    [aux_sym_identifier_token1] = ACTIONS(5485),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4347),
+    [aux_sym_interface_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
+    [aux_sym_language_binding_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
+    [aux_sym_common_statement_token1] = ACTIONS(4347),
+    [aux_sym_import_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
+    [aux_sym_derived_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_enum_statement_token1] = ACTIONS(4347),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5487),
+    [sym__integer_literal] = ACTIONS(4349),
   },
-  [2857] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6890),
-    [aux_sym_preproc_def_token1] = ACTIONS(6890),
-    [aux_sym_preproc_if_token1] = ACTIONS(6890),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6890),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6890),
-    [sym_preproc_directive] = ACTIONS(6890),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6890),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6890),
-    [aux_sym_interface_statement_token1] = ACTIONS(6890),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6890),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6890),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6890),
-    [aux_sym_language_binding_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6890),
-    [aux_sym_contains_statement_token1] = ACTIONS(6890),
-    [aux_sym_use_statement_token1] = ACTIONS(6890),
-    [aux_sym_use_statement_token2] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6890),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6890),
-    [aux_sym_save_statement_token1] = ACTIONS(6890),
-    [aux_sym_private_statement_token1] = ACTIONS(6890),
-    [aux_sym_public_statement_token1] = ACTIONS(6890),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6890),
-    [aux_sym_common_statement_token1] = ACTIONS(6890),
-    [aux_sym_import_statement_token1] = ACTIONS(6890),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6890),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6890),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6890),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6890),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6890),
-    [aux_sym_derived_type_token1] = ACTIONS(6890),
-    [aux_sym_declared_type_token1] = ACTIONS(6890),
-    [aux_sym_declared_type_token2] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6890),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6890),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6890),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6890),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6890),
-    [aux_sym_stop_statement_token1] = ACTIONS(6890),
-    [aux_sym_stop_statement_token2] = ACTIONS(6890),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6890),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6890),
-    [aux_sym_include_statement_token1] = ACTIONS(6890),
-    [aux_sym_data_statement_token1] = ACTIONS(6890),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6890),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6890),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6890),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6890),
-    [aux_sym_block_construct_token1] = ACTIONS(6890),
-    [aux_sym_format_statement_token1] = ACTIONS(6890),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6890),
-    [aux_sym_enum_statement_token1] = ACTIONS(6890),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6890),
-    [aux_sym_entry_statement_token1] = ACTIONS(6890),
-    [aux_sym_null_literal_token1] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6890),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6890),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6890),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6890),
-    [aux_sym_identifier_token1] = ACTIONS(6890),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6892),
+  [2841] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
   },
-  [2858] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
+  [2842] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6944),
+    [aux_sym_preproc_def_token1] = ACTIONS(6944),
+    [aux_sym_preproc_if_token1] = ACTIONS(6944),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6944),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6944),
+    [sym_preproc_directive] = ACTIONS(6944),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6944),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6944),
+    [aux_sym_interface_statement_token1] = ACTIONS(6944),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6944),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6944),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6944),
+    [aux_sym_language_binding_token1] = ACTIONS(6944),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6944),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6944),
+    [aux_sym_contains_statement_token1] = ACTIONS(6944),
+    [aux_sym_use_statement_token1] = ACTIONS(6944),
+    [aux_sym_use_statement_token2] = ACTIONS(6944),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6944),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6944),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6944),
+    [aux_sym_save_statement_token1] = ACTIONS(6944),
+    [aux_sym_private_statement_token1] = ACTIONS(6944),
+    [aux_sym_public_statement_token1] = ACTIONS(6944),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6944),
+    [aux_sym_common_statement_token1] = ACTIONS(6944),
+    [aux_sym_import_statement_token1] = ACTIONS(6944),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6944),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6944),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6944),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6944),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6944),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6944),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6944),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6944),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6944),
+    [aux_sym_derived_type_token1] = ACTIONS(6944),
+    [aux_sym_declared_type_token1] = ACTIONS(6944),
+    [aux_sym_declared_type_token2] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6944),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6944),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6944),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6944),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6944),
+    [aux_sym_stop_statement_token1] = ACTIONS(6944),
+    [aux_sym_stop_statement_token2] = ACTIONS(6944),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6944),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6944),
+    [aux_sym_include_statement_token1] = ACTIONS(6944),
+    [aux_sym_data_statement_token1] = ACTIONS(6944),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6944),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6944),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6944),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6944),
+    [aux_sym_block_construct_token1] = ACTIONS(6944),
+    [aux_sym_format_statement_token1] = ACTIONS(6944),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6944),
+    [aux_sym_enum_statement_token1] = ACTIONS(6944),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6944),
+    [aux_sym_entry_statement_token1] = ACTIONS(6944),
+    [aux_sym_null_literal_token1] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6944),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6944),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6944),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6944),
+    [aux_sym_identifier_token1] = ACTIONS(6944),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6946),
   },
-  [2859] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5485),
-    [aux_sym_preproc_def_token1] = ACTIONS(5485),
-    [aux_sym_preproc_if_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5485),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5485),
-    [sym_preproc_directive] = ACTIONS(5485),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5485),
-    [aux_sym_interface_statement_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5485),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5485),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5485),
-    [aux_sym_language_binding_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5485),
-    [aux_sym_contains_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token1] = ACTIONS(5485),
-    [aux_sym_use_statement_token2] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5485),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5485),
-    [aux_sym_save_statement_token1] = ACTIONS(5485),
-    [aux_sym_private_statement_token1] = ACTIONS(5485),
-    [aux_sym_public_statement_token1] = ACTIONS(5485),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5485),
-    [aux_sym_common_statement_token1] = ACTIONS(5485),
-    [aux_sym_import_statement_token1] = ACTIONS(5485),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5485),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5485),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5485),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5485),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5485),
-    [aux_sym_derived_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token1] = ACTIONS(5485),
-    [aux_sym_declared_type_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5485),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5485),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5485),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5485),
-    [aux_sym_stop_statement_token1] = ACTIONS(5485),
-    [aux_sym_stop_statement_token2] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5485),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5485),
-    [aux_sym_include_statement_token1] = ACTIONS(5485),
-    [aux_sym_data_statement_token1] = ACTIONS(5485),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5485),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5485),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5485),
-    [aux_sym_block_construct_token1] = ACTIONS(5485),
-    [aux_sym_format_statement_token1] = ACTIONS(5485),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5485),
-    [aux_sym_enum_statement_token1] = ACTIONS(5485),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5485),
-    [aux_sym_entry_statement_token1] = ACTIONS(5485),
-    [aux_sym_null_literal_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5485),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5485),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5485),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5485),
-    [aux_sym_identifier_token1] = ACTIONS(5485),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5487),
+  [2843] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
   },
-  [2860] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
+  [2844] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
   },
-  [2861] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
+  [2845] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6918),
+    [aux_sym_preproc_def_token1] = ACTIONS(6918),
+    [aux_sym_preproc_if_token1] = ACTIONS(6918),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6918),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6918),
+    [sym_preproc_directive] = ACTIONS(6918),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6918),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6918),
+    [aux_sym_interface_statement_token1] = ACTIONS(6918),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6918),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6918),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6918),
+    [aux_sym_language_binding_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6918),
+    [aux_sym_contains_statement_token1] = ACTIONS(6918),
+    [aux_sym_use_statement_token1] = ACTIONS(6918),
+    [aux_sym_use_statement_token2] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6918),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6918),
+    [aux_sym_save_statement_token1] = ACTIONS(6918),
+    [aux_sym_private_statement_token1] = ACTIONS(6918),
+    [aux_sym_public_statement_token1] = ACTIONS(6918),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6918),
+    [aux_sym_common_statement_token1] = ACTIONS(6918),
+    [aux_sym_import_statement_token1] = ACTIONS(6918),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6918),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6918),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6918),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6918),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6918),
+    [aux_sym_derived_type_token1] = ACTIONS(6918),
+    [aux_sym_declared_type_token1] = ACTIONS(6918),
+    [aux_sym_declared_type_token2] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6918),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6918),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6918),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6918),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6918),
+    [aux_sym_stop_statement_token1] = ACTIONS(6918),
+    [aux_sym_stop_statement_token2] = ACTIONS(6918),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6918),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6918),
+    [aux_sym_include_statement_token1] = ACTIONS(6918),
+    [aux_sym_data_statement_token1] = ACTIONS(6918),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6918),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6918),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6918),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6918),
+    [aux_sym_block_construct_token1] = ACTIONS(6918),
+    [aux_sym_format_statement_token1] = ACTIONS(6918),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6918),
+    [aux_sym_enum_statement_token1] = ACTIONS(6918),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6918),
+    [aux_sym_entry_statement_token1] = ACTIONS(6918),
+    [aux_sym_null_literal_token1] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6918),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6918),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6918),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6918),
+    [aux_sym_identifier_token1] = ACTIONS(6918),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6920),
+  },
+  [2846] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6820),
+    [aux_sym_preproc_def_token1] = ACTIONS(6820),
+    [aux_sym_preproc_if_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6820),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6820),
+    [sym_preproc_directive] = ACTIONS(6820),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6820),
+    [aux_sym_interface_statement_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6820),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6820),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6820),
+    [aux_sym_language_binding_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6820),
+    [aux_sym_contains_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token1] = ACTIONS(6820),
+    [aux_sym_use_statement_token2] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6820),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6820),
+    [aux_sym_save_statement_token1] = ACTIONS(6820),
+    [aux_sym_private_statement_token1] = ACTIONS(6820),
+    [aux_sym_public_statement_token1] = ACTIONS(6820),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6820),
+    [aux_sym_common_statement_token1] = ACTIONS(6820),
+    [aux_sym_import_statement_token1] = ACTIONS(6820),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6820),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6820),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6820),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6820),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6820),
+    [aux_sym_derived_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token1] = ACTIONS(6820),
+    [aux_sym_declared_type_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6820),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6820),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6820),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token1] = ACTIONS(6820),
+    [aux_sym_stop_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6820),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6820),
+    [aux_sym_include_statement_token1] = ACTIONS(6820),
+    [aux_sym_data_statement_token1] = ACTIONS(6820),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6820),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6820),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6820),
+    [aux_sym_block_construct_token1] = ACTIONS(6820),
+    [aux_sym_format_statement_token1] = ACTIONS(6820),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6820),
+    [aux_sym_enum_statement_token1] = ACTIONS(6820),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6820),
+    [aux_sym_entry_statement_token1] = ACTIONS(6820),
+    [aux_sym_null_literal_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6820),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6820),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6820),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6820),
+    [aux_sym_identifier_token1] = ACTIONS(6820),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6824),
+  },
+  [2847] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6910),
+    [aux_sym_preproc_def_token1] = ACTIONS(6910),
+    [aux_sym_preproc_if_token1] = ACTIONS(6910),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6910),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6910),
+    [sym_preproc_directive] = ACTIONS(6910),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6910),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6910),
+    [aux_sym_interface_statement_token1] = ACTIONS(6910),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6910),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6910),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6910),
+    [aux_sym_language_binding_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6910),
+    [aux_sym_contains_statement_token1] = ACTIONS(6910),
+    [aux_sym_use_statement_token1] = ACTIONS(6910),
+    [aux_sym_use_statement_token2] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6910),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6910),
+    [aux_sym_save_statement_token1] = ACTIONS(6910),
+    [aux_sym_private_statement_token1] = ACTIONS(6910),
+    [aux_sym_public_statement_token1] = ACTIONS(6910),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6910),
+    [aux_sym_common_statement_token1] = ACTIONS(6910),
+    [aux_sym_import_statement_token1] = ACTIONS(6910),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6910),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6910),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6910),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6910),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6910),
+    [aux_sym_derived_type_token1] = ACTIONS(6910),
+    [aux_sym_declared_type_token1] = ACTIONS(6910),
+    [aux_sym_declared_type_token2] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6910),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6910),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6910),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6910),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6910),
+    [aux_sym_stop_statement_token1] = ACTIONS(6910),
+    [aux_sym_stop_statement_token2] = ACTIONS(6910),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6910),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6910),
+    [aux_sym_include_statement_token1] = ACTIONS(6910),
+    [aux_sym_data_statement_token1] = ACTIONS(6910),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6910),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6910),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6910),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6910),
+    [aux_sym_block_construct_token1] = ACTIONS(6910),
+    [aux_sym_format_statement_token1] = ACTIONS(6910),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6910),
+    [aux_sym_enum_statement_token1] = ACTIONS(6910),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6910),
+    [aux_sym_entry_statement_token1] = ACTIONS(6910),
+    [aux_sym_null_literal_token1] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6910),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6910),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6910),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6910),
+    [aux_sym_identifier_token1] = ACTIONS(6910),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6912),
+  },
+  [2848] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6906),
+    [aux_sym_preproc_def_token1] = ACTIONS(6906),
+    [aux_sym_preproc_if_token1] = ACTIONS(6906),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6906),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6906),
+    [sym_preproc_directive] = ACTIONS(6906),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6906),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6906),
+    [aux_sym_interface_statement_token1] = ACTIONS(6906),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6906),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6906),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6906),
+    [aux_sym_language_binding_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6906),
+    [aux_sym_contains_statement_token1] = ACTIONS(6906),
+    [aux_sym_use_statement_token1] = ACTIONS(6906),
+    [aux_sym_use_statement_token2] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6906),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6906),
+    [aux_sym_save_statement_token1] = ACTIONS(6906),
+    [aux_sym_private_statement_token1] = ACTIONS(6906),
+    [aux_sym_public_statement_token1] = ACTIONS(6906),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6906),
+    [aux_sym_common_statement_token1] = ACTIONS(6906),
+    [aux_sym_import_statement_token1] = ACTIONS(6906),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6906),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6906),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6906),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6906),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6906),
+    [aux_sym_derived_type_token1] = ACTIONS(6906),
+    [aux_sym_declared_type_token1] = ACTIONS(6906),
+    [aux_sym_declared_type_token2] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6906),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6906),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6906),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6906),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6906),
+    [aux_sym_stop_statement_token1] = ACTIONS(6906),
+    [aux_sym_stop_statement_token2] = ACTIONS(6906),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6906),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6906),
+    [aux_sym_include_statement_token1] = ACTIONS(6906),
+    [aux_sym_data_statement_token1] = ACTIONS(6906),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6906),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6906),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6906),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6906),
+    [aux_sym_block_construct_token1] = ACTIONS(6906),
+    [aux_sym_format_statement_token1] = ACTIONS(6906),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6906),
+    [aux_sym_enum_statement_token1] = ACTIONS(6906),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6906),
+    [aux_sym_entry_statement_token1] = ACTIONS(6906),
+    [aux_sym_null_literal_token1] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6906),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6906),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6906),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6906),
+    [aux_sym_identifier_token1] = ACTIONS(6906),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(6908),
   },
-  [2862] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4289),
-    [aux_sym_interface_statement_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4289),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4289),
-    [aux_sym_language_binding_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4289),
-    [aux_sym_contains_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token1] = ACTIONS(4289),
-    [aux_sym_use_statement_token2] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4289),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4289),
-    [aux_sym_save_statement_token1] = ACTIONS(4289),
-    [aux_sym_private_statement_token1] = ACTIONS(4289),
-    [aux_sym_public_statement_token1] = ACTIONS(4289),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4289),
-    [aux_sym_common_statement_token1] = ACTIONS(4289),
-    [aux_sym_import_statement_token1] = ACTIONS(4289),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4289),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4289),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4289),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4289),
-    [aux_sym_derived_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token1] = ACTIONS(4289),
-    [aux_sym_declared_type_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4289),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4289),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4289),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token1] = ACTIONS(4289),
-    [aux_sym_stop_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4289),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4289),
-    [aux_sym_include_statement_token1] = ACTIONS(4289),
-    [aux_sym_data_statement_token1] = ACTIONS(4289),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4289),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4289),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4289),
-    [aux_sym_block_construct_token1] = ACTIONS(4289),
-    [aux_sym_format_statement_token1] = ACTIONS(4289),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4289),
-    [aux_sym_enum_statement_token1] = ACTIONS(4289),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4289),
-    [aux_sym_entry_statement_token1] = ACTIONS(4289),
-    [aux_sym_null_literal_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4289),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4289),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4289),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4289),
-    [aux_sym_identifier_token1] = ACTIONS(4289),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4291),
+  [2849] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6948),
+    [aux_sym_preproc_def_token1] = ACTIONS(6948),
+    [aux_sym_preproc_if_token1] = ACTIONS(6948),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6948),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6948),
+    [sym_preproc_directive] = ACTIONS(6948),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6948),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6948),
+    [aux_sym_interface_statement_token1] = ACTIONS(6948),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6948),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6948),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6948),
+    [aux_sym_language_binding_token1] = ACTIONS(6948),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6948),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6948),
+    [aux_sym_contains_statement_token1] = ACTIONS(6948),
+    [aux_sym_use_statement_token1] = ACTIONS(6948),
+    [aux_sym_use_statement_token2] = ACTIONS(6948),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6948),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6948),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6948),
+    [aux_sym_save_statement_token1] = ACTIONS(6948),
+    [aux_sym_private_statement_token1] = ACTIONS(6948),
+    [aux_sym_public_statement_token1] = ACTIONS(6948),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6948),
+    [aux_sym_common_statement_token1] = ACTIONS(6948),
+    [aux_sym_import_statement_token1] = ACTIONS(6948),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6948),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6948),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6948),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6948),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6948),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6948),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6948),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6948),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6948),
+    [aux_sym_derived_type_token1] = ACTIONS(6948),
+    [aux_sym_declared_type_token1] = ACTIONS(6948),
+    [aux_sym_declared_type_token2] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6948),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6948),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6948),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6948),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6948),
+    [aux_sym_stop_statement_token1] = ACTIONS(6948),
+    [aux_sym_stop_statement_token2] = ACTIONS(6948),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6948),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6948),
+    [aux_sym_include_statement_token1] = ACTIONS(6948),
+    [aux_sym_data_statement_token1] = ACTIONS(6948),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6948),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6948),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6948),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6948),
+    [aux_sym_block_construct_token1] = ACTIONS(6948),
+    [aux_sym_format_statement_token1] = ACTIONS(6948),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6948),
+    [aux_sym_enum_statement_token1] = ACTIONS(6948),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6948),
+    [aux_sym_entry_statement_token1] = ACTIONS(6948),
+    [aux_sym_null_literal_token1] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6948),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6948),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6948),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6948),
+    [aux_sym_identifier_token1] = ACTIONS(6948),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6950),
   },
-  [2863] = {
-    [sym_output_item_list] = STATE(7695),
-    [sym__expression] = STATE(4386),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2850] = {
+    [sym_output_item_list] = STATE(7362),
+    [sym__expression] = STATE(4431),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -442011,7 +440635,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6928),
+    [anon_sym_SEMI] = ACTIONS(6952),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -442028,7 +440652,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -442047,769 +440671,389 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__boz_literal] = ACTIONS(5545),
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6928),
+    [sym__external_end_of_statement] = ACTIONS(6952),
   },
-  [2864] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
+  [2851] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4293),
-    [aux_sym_interface_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
-    [aux_sym_language_binding_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
-    [aux_sym_common_statement_token1] = ACTIONS(4293),
-    [aux_sym_import_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
-    [aux_sym_derived_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_enum_statement_token1] = ACTIONS(4293),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
+    [sym__integer_literal] = ACTIONS(5114),
   },
-  [2865] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
+  [2852] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
+    [sym__integer_literal] = ACTIONS(5140),
   },
-  [2866] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4621),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
+  [2853] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6898),
+    [aux_sym_preproc_def_token1] = ACTIONS(6898),
+    [aux_sym_preproc_if_token1] = ACTIONS(6898),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6898),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6898),
+    [sym_preproc_directive] = ACTIONS(6898),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6898),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6898),
+    [aux_sym_interface_statement_token1] = ACTIONS(6898),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6898),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6898),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6898),
+    [aux_sym_language_binding_token1] = ACTIONS(6898),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6898),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6898),
+    [aux_sym_contains_statement_token1] = ACTIONS(6898),
+    [aux_sym_use_statement_token1] = ACTIONS(6898),
+    [aux_sym_use_statement_token2] = ACTIONS(6898),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6898),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6898),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6898),
+    [aux_sym_save_statement_token1] = ACTIONS(6898),
+    [aux_sym_private_statement_token1] = ACTIONS(6898),
+    [aux_sym_public_statement_token1] = ACTIONS(6898),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6898),
+    [aux_sym_common_statement_token1] = ACTIONS(6898),
+    [aux_sym_import_statement_token1] = ACTIONS(6898),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6898),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6898),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6898),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6898),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6898),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6898),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6898),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6898),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6898),
+    [aux_sym_derived_type_token1] = ACTIONS(6898),
+    [aux_sym_declared_type_token1] = ACTIONS(6898),
+    [aux_sym_declared_type_token2] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6898),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6898),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6898),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6898),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6898),
+    [aux_sym_stop_statement_token1] = ACTIONS(6898),
+    [aux_sym_stop_statement_token2] = ACTIONS(6898),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6898),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6898),
+    [aux_sym_include_statement_token1] = ACTIONS(6898),
+    [aux_sym_data_statement_token1] = ACTIONS(6898),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6898),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6898),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6898),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6898),
+    [aux_sym_block_construct_token1] = ACTIONS(6898),
+    [aux_sym_format_statement_token1] = ACTIONS(6898),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6898),
+    [aux_sym_enum_statement_token1] = ACTIONS(6898),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6898),
+    [aux_sym_entry_statement_token1] = ACTIONS(6898),
+    [aux_sym_null_literal_token1] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6898),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6898),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6898),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6898),
+    [aux_sym_identifier_token1] = ACTIONS(6898),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
-  },
-  [2867] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5042),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-  },
-  [2868] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5046),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
-  },
-  [2869] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4297),
-    [aux_sym_interface_statement_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4297),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4297),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4297),
-    [aux_sym_language_binding_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4297),
-    [aux_sym_contains_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token1] = ACTIONS(4297),
-    [aux_sym_use_statement_token2] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4297),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4297),
-    [aux_sym_save_statement_token1] = ACTIONS(4297),
-    [aux_sym_private_statement_token1] = ACTIONS(4297),
-    [aux_sym_public_statement_token1] = ACTIONS(4297),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4297),
-    [aux_sym_common_statement_token1] = ACTIONS(4297),
-    [aux_sym_import_statement_token1] = ACTIONS(4297),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4297),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4297),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4297),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4297),
-    [aux_sym_derived_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token1] = ACTIONS(4297),
-    [aux_sym_declared_type_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4297),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4297),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4297),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token1] = ACTIONS(4297),
-    [aux_sym_stop_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4297),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4297),
-    [aux_sym_include_statement_token1] = ACTIONS(4297),
-    [aux_sym_data_statement_token1] = ACTIONS(4297),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4297),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4297),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4297),
-    [aux_sym_block_construct_token1] = ACTIONS(4297),
-    [aux_sym_format_statement_token1] = ACTIONS(4297),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4297),
-    [aux_sym_enum_statement_token1] = ACTIONS(4297),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4297),
-    [aux_sym_entry_statement_token1] = ACTIONS(4297),
-    [aux_sym_null_literal_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4297),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4297),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4297),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4297),
-    [aux_sym_identifier_token1] = ACTIONS(4297),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4299),
-  },
-  [2870] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6894),
-    [aux_sym_preproc_def_token1] = ACTIONS(6894),
-    [aux_sym_preproc_if_token1] = ACTIONS(6894),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6894),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6894),
-    [sym_preproc_directive] = ACTIONS(6894),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6894),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6894),
-    [aux_sym_interface_statement_token1] = ACTIONS(6894),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6894),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6894),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6894),
-    [aux_sym_language_binding_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6894),
-    [aux_sym_contains_statement_token1] = ACTIONS(6894),
-    [aux_sym_use_statement_token1] = ACTIONS(6894),
-    [aux_sym_use_statement_token2] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6894),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6894),
-    [aux_sym_save_statement_token1] = ACTIONS(6894),
-    [aux_sym_private_statement_token1] = ACTIONS(6894),
-    [aux_sym_public_statement_token1] = ACTIONS(6894),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6894),
-    [aux_sym_common_statement_token1] = ACTIONS(6894),
-    [aux_sym_import_statement_token1] = ACTIONS(6894),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6894),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6894),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6894),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6894),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6894),
-    [aux_sym_derived_type_token1] = ACTIONS(6894),
-    [aux_sym_declared_type_token1] = ACTIONS(6894),
-    [aux_sym_declared_type_token2] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6894),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6894),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6894),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6894),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6894),
-    [aux_sym_stop_statement_token1] = ACTIONS(6894),
-    [aux_sym_stop_statement_token2] = ACTIONS(6894),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6894),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6894),
-    [aux_sym_include_statement_token1] = ACTIONS(6894),
-    [aux_sym_data_statement_token1] = ACTIONS(6894),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6894),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6894),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6894),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6894),
-    [aux_sym_block_construct_token1] = ACTIONS(6894),
-    [aux_sym_format_statement_token1] = ACTIONS(6894),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6894),
-    [aux_sym_enum_statement_token1] = ACTIONS(6894),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6894),
-    [aux_sym_entry_statement_token1] = ACTIONS(6894),
-    [aux_sym_null_literal_token1] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6894),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6894),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6894),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6894),
-    [aux_sym_identifier_token1] = ACTIONS(6894),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6896),
+    [sym__integer_literal] = ACTIONS(6900),
   },
-  [2871] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6782),
-    [aux_sym_preproc_def_token1] = ACTIONS(6782),
-    [aux_sym_preproc_if_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6782),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6782),
-    [sym_preproc_directive] = ACTIONS(6782),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6782),
-    [aux_sym_interface_statement_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6782),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6782),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6782),
-    [aux_sym_language_binding_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6782),
-    [aux_sym_contains_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token1] = ACTIONS(6782),
-    [aux_sym_use_statement_token2] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6782),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6782),
-    [aux_sym_save_statement_token1] = ACTIONS(6782),
-    [aux_sym_private_statement_token1] = ACTIONS(6782),
-    [aux_sym_public_statement_token1] = ACTIONS(6782),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6782),
-    [aux_sym_common_statement_token1] = ACTIONS(6782),
-    [aux_sym_import_statement_token1] = ACTIONS(6782),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6782),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6782),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6782),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6782),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6782),
-    [aux_sym_derived_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token1] = ACTIONS(6782),
-    [aux_sym_declared_type_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6782),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6782),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6782),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token1] = ACTIONS(6782),
-    [aux_sym_stop_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6782),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6782),
-    [aux_sym_include_statement_token1] = ACTIONS(6782),
-    [aux_sym_data_statement_token1] = ACTIONS(6782),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6782),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6782),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6782),
-    [aux_sym_block_construct_token1] = ACTIONS(6782),
-    [aux_sym_format_statement_token1] = ACTIONS(6782),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6782),
-    [aux_sym_enum_statement_token1] = ACTIONS(6782),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6782),
-    [aux_sym_entry_statement_token1] = ACTIONS(6782),
-    [aux_sym_null_literal_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6782),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6782),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6782),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6782),
-    [aux_sym_identifier_token1] = ACTIONS(6782),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6786),
+  [2854] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
   },
-  [2872] = {
+  [2855] = {
     [aux_sym_preproc_include_token1] = ACTIONS(6902),
     [aux_sym_preproc_def_token1] = ACTIONS(6902),
     [aux_sym_preproc_if_token1] = ACTIONS(6902),
@@ -442904,2032 +441148,3647 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(6904),
   },
-  [2873] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6718),
-    [aux_sym_preproc_def_token1] = ACTIONS(6718),
-    [aux_sym_preproc_if_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6718),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6718),
-    [sym_preproc_directive] = ACTIONS(6718),
+  [2856] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6914),
+    [aux_sym_preproc_def_token1] = ACTIONS(6914),
+    [aux_sym_preproc_if_token1] = ACTIONS(6914),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6914),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6914),
+    [sym_preproc_directive] = ACTIONS(6914),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6914),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(6914),
+    [aux_sym_interface_statement_token1] = ACTIONS(6914),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6914),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6914),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6914),
+    [aux_sym_language_binding_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6914),
+    [aux_sym_contains_statement_token1] = ACTIONS(6914),
+    [aux_sym_use_statement_token1] = ACTIONS(6914),
+    [aux_sym_use_statement_token2] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6914),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6914),
+    [aux_sym_save_statement_token1] = ACTIONS(6914),
+    [aux_sym_private_statement_token1] = ACTIONS(6914),
+    [aux_sym_public_statement_token1] = ACTIONS(6914),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6914),
+    [aux_sym_common_statement_token1] = ACTIONS(6914),
+    [aux_sym_import_statement_token1] = ACTIONS(6914),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6914),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6914),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6914),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6914),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6914),
+    [aux_sym_derived_type_token1] = ACTIONS(6914),
+    [aux_sym_declared_type_token1] = ACTIONS(6914),
+    [aux_sym_declared_type_token2] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6914),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6914),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6914),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6914),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6914),
+    [aux_sym_stop_statement_token1] = ACTIONS(6914),
+    [aux_sym_stop_statement_token2] = ACTIONS(6914),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6914),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6914),
+    [aux_sym_include_statement_token1] = ACTIONS(6914),
+    [aux_sym_data_statement_token1] = ACTIONS(6914),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6914),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6914),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6914),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6914),
+    [aux_sym_block_construct_token1] = ACTIONS(6914),
+    [aux_sym_format_statement_token1] = ACTIONS(6914),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6914),
+    [aux_sym_enum_statement_token1] = ACTIONS(6914),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6914),
+    [aux_sym_entry_statement_token1] = ACTIONS(6914),
+    [aux_sym_null_literal_token1] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6914),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6914),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6914),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6914),
+    [aux_sym_identifier_token1] = ACTIONS(6914),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6916),
+  },
+  [2857] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6738),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6718),
-    [aux_sym_interface_statement_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6718),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6718),
-    [aux_sym_language_binding_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6718),
-    [aux_sym_contains_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token1] = ACTIONS(6718),
-    [aux_sym_use_statement_token2] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6718),
-    [aux_sym_save_statement_token1] = ACTIONS(6718),
-    [aux_sym_private_statement_token1] = ACTIONS(6718),
-    [aux_sym_public_statement_token1] = ACTIONS(6718),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6718),
-    [aux_sym_common_statement_token1] = ACTIONS(6718),
-    [aux_sym_import_statement_token1] = ACTIONS(6718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6718),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6718),
-    [aux_sym_derived_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token1] = ACTIONS(6718),
-    [aux_sym_declared_type_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6718),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6718),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token1] = ACTIONS(6718),
-    [aux_sym_stop_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6718),
-    [aux_sym_include_statement_token1] = ACTIONS(6718),
-    [aux_sym_data_statement_token1] = ACTIONS(6718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6718),
-    [aux_sym_block_construct_token1] = ACTIONS(6718),
-    [aux_sym_format_statement_token1] = ACTIONS(6718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6718),
-    [aux_sym_enum_statement_token1] = ACTIONS(6718),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6718),
-    [aux_sym_entry_statement_token1] = ACTIONS(6718),
-    [aux_sym_null_literal_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6718),
-    [aux_sym_identifier_token1] = ACTIONS(6718),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6722),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2858] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+  },
+  [2859] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+  },
+  [2860] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6735),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2861] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6734),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2862] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4475),
+  },
+  [2863] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+  },
+  [2864] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6733),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2865] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+  },
+  [2866] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4487),
+  },
+  [2867] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4595),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+  },
+  [2868] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(6748),
+    [aux_sym_preproc_def_token1] = ACTIONS(6748),
+    [aux_sym_preproc_if_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6748),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6748),
+    [sym_preproc_directive] = ACTIONS(6748),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6748),
+    [aux_sym_interface_statement_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6748),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6748),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6748),
+    [aux_sym_language_binding_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6748),
+    [aux_sym_contains_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token1] = ACTIONS(6748),
+    [aux_sym_use_statement_token2] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6748),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6748),
+    [aux_sym_save_statement_token1] = ACTIONS(6748),
+    [aux_sym_private_statement_token1] = ACTIONS(6748),
+    [aux_sym_public_statement_token1] = ACTIONS(6748),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6748),
+    [aux_sym_common_statement_token1] = ACTIONS(6748),
+    [aux_sym_import_statement_token1] = ACTIONS(6748),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6748),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6748),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6748),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6748),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6748),
+    [aux_sym_derived_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token1] = ACTIONS(6748),
+    [aux_sym_declared_type_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6748),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6748),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6748),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token1] = ACTIONS(6748),
+    [aux_sym_stop_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6748),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6748),
+    [aux_sym_include_statement_token1] = ACTIONS(6748),
+    [aux_sym_data_statement_token1] = ACTIONS(6748),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6748),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6748),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6748),
+    [aux_sym_block_construct_token1] = ACTIONS(6748),
+    [aux_sym_format_statement_token1] = ACTIONS(6748),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6748),
+    [aux_sym_enum_statement_token1] = ACTIONS(6748),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6748),
+    [aux_sym_entry_statement_token1] = ACTIONS(6748),
+    [aux_sym_null_literal_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6748),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6748),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6748),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6748),
+    [aux_sym_identifier_token1] = ACTIONS(6748),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6752),
+  },
+  [2869] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4607),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+  },
+  [2870] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4405),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4407),
+  },
+  [2871] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4409),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4411),
+  },
+  [2872] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4321),
+    [aux_sym_interface_statement_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4321),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4321),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4321),
+    [aux_sym_language_binding_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4321),
+    [aux_sym_contains_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token1] = ACTIONS(4321),
+    [aux_sym_use_statement_token2] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4321),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4321),
+    [aux_sym_save_statement_token1] = ACTIONS(4321),
+    [aux_sym_private_statement_token1] = ACTIONS(4321),
+    [aux_sym_public_statement_token1] = ACTIONS(4321),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4321),
+    [aux_sym_common_statement_token1] = ACTIONS(4321),
+    [aux_sym_import_statement_token1] = ACTIONS(4321),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4321),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4321),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4321),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4321),
+    [aux_sym_derived_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token1] = ACTIONS(4321),
+    [aux_sym_declared_type_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4321),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4321),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4321),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token1] = ACTIONS(4321),
+    [aux_sym_stop_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4321),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4321),
+    [aux_sym_include_statement_token1] = ACTIONS(4321),
+    [aux_sym_data_statement_token1] = ACTIONS(4321),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4321),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4321),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4321),
+    [aux_sym_block_construct_token1] = ACTIONS(4321),
+    [aux_sym_format_statement_token1] = ACTIONS(4321),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4321),
+    [aux_sym_enum_statement_token1] = ACTIONS(4321),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4321),
+    [aux_sym_entry_statement_token1] = ACTIONS(4321),
+    [aux_sym_null_literal_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4321),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4321),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4321),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4321),
+    [aux_sym_identifier_token1] = ACTIONS(4321),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4323),
+  },
+  [2873] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
   },
   [2874] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
+    [aux_sym_preproc_include_token1] = ACTIONS(4347),
+    [aux_sym_preproc_def_token1] = ACTIONS(4347),
+    [aux_sym_preproc_if_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4347),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4347),
+    [sym_preproc_directive] = ACTIONS(4347),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4347),
+    [aux_sym_interface_statement_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4347),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4347),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4347),
+    [aux_sym_language_binding_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4347),
+    [aux_sym_contains_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token1] = ACTIONS(4347),
+    [aux_sym_use_statement_token2] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4347),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4347),
+    [aux_sym_save_statement_token1] = ACTIONS(4347),
+    [aux_sym_private_statement_token1] = ACTIONS(4347),
+    [aux_sym_public_statement_token1] = ACTIONS(4347),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4347),
+    [aux_sym_common_statement_token1] = ACTIONS(4347),
+    [aux_sym_import_statement_token1] = ACTIONS(4347),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4347),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4347),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4347),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4347),
+    [aux_sym_derived_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token1] = ACTIONS(4347),
+    [aux_sym_declared_type_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4347),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4347),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4347),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token1] = ACTIONS(4347),
+    [aux_sym_stop_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4347),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4347),
+    [aux_sym_include_statement_token1] = ACTIONS(4347),
+    [aux_sym_data_statement_token1] = ACTIONS(4347),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4347),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4347),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4347),
+    [aux_sym_block_construct_token1] = ACTIONS(4347),
+    [aux_sym_format_statement_token1] = ACTIONS(4347),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4347),
+    [aux_sym_enum_statement_token1] = ACTIONS(4347),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4347),
+    [aux_sym_entry_statement_token1] = ACTIONS(4347),
+    [aux_sym_null_literal_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4347),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4347),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4347),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4347),
+    [aux_sym_identifier_token1] = ACTIONS(4347),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(4349),
   },
   [2875] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4513),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
   },
   [2876] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5032),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
+    [aux_sym_preproc_include_token1] = ACTIONS(6924),
+    [aux_sym_preproc_def_token1] = ACTIONS(6924),
+    [aux_sym_preproc_if_token1] = ACTIONS(6924),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6924),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6924),
+    [sym_preproc_directive] = ACTIONS(6924),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6924),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6924),
+    [aux_sym_interface_statement_token1] = ACTIONS(6924),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6924),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6924),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6924),
+    [aux_sym_language_binding_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6924),
+    [aux_sym_contains_statement_token1] = ACTIONS(6924),
+    [aux_sym_use_statement_token1] = ACTIONS(6924),
+    [aux_sym_use_statement_token2] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6924),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6924),
+    [aux_sym_save_statement_token1] = ACTIONS(6924),
+    [aux_sym_private_statement_token1] = ACTIONS(6924),
+    [aux_sym_public_statement_token1] = ACTIONS(6924),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6924),
+    [aux_sym_common_statement_token1] = ACTIONS(6924),
+    [aux_sym_import_statement_token1] = ACTIONS(6924),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6924),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6924),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6924),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6924),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6924),
+    [aux_sym_derived_type_token1] = ACTIONS(6924),
+    [aux_sym_declared_type_token1] = ACTIONS(6924),
+    [aux_sym_declared_type_token2] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6924),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6924),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6924),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6924),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6924),
+    [aux_sym_stop_statement_token1] = ACTIONS(6924),
+    [aux_sym_stop_statement_token2] = ACTIONS(6924),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6924),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6924),
+    [aux_sym_include_statement_token1] = ACTIONS(6924),
+    [aux_sym_data_statement_token1] = ACTIONS(6924),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6924),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6924),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6924),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6924),
+    [aux_sym_block_construct_token1] = ACTIONS(6924),
+    [aux_sym_format_statement_token1] = ACTIONS(6924),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6924),
+    [aux_sym_enum_statement_token1] = ACTIONS(6924),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6924),
+    [aux_sym_entry_statement_token1] = ACTIONS(6924),
+    [aux_sym_null_literal_token1] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6924),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6924),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6924),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6924),
+    [aux_sym_identifier_token1] = ACTIONS(6924),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6926),
   },
   [2877] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6882),
-    [aux_sym_preproc_def_token1] = ACTIONS(6882),
-    [aux_sym_preproc_if_token1] = ACTIONS(6882),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6882),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6882),
-    [sym_preproc_directive] = ACTIONS(6882),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6882),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6882),
-    [aux_sym_interface_statement_token1] = ACTIONS(6882),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6882),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6882),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6882),
-    [aux_sym_language_binding_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6882),
-    [aux_sym_contains_statement_token1] = ACTIONS(6882),
-    [aux_sym_use_statement_token1] = ACTIONS(6882),
-    [aux_sym_use_statement_token2] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6882),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6882),
-    [aux_sym_save_statement_token1] = ACTIONS(6882),
-    [aux_sym_private_statement_token1] = ACTIONS(6882),
-    [aux_sym_public_statement_token1] = ACTIONS(6882),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6882),
-    [aux_sym_common_statement_token1] = ACTIONS(6882),
-    [aux_sym_import_statement_token1] = ACTIONS(6882),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6882),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6882),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6882),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6882),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6882),
-    [aux_sym_derived_type_token1] = ACTIONS(6882),
-    [aux_sym_declared_type_token1] = ACTIONS(6882),
-    [aux_sym_declared_type_token2] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6882),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6882),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6882),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6882),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6882),
-    [aux_sym_stop_statement_token1] = ACTIONS(6882),
-    [aux_sym_stop_statement_token2] = ACTIONS(6882),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6882),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6882),
-    [aux_sym_include_statement_token1] = ACTIONS(6882),
-    [aux_sym_data_statement_token1] = ACTIONS(6882),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6882),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6882),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6882),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6882),
-    [aux_sym_block_construct_token1] = ACTIONS(6882),
-    [aux_sym_format_statement_token1] = ACTIONS(6882),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6882),
-    [aux_sym_enum_statement_token1] = ACTIONS(6882),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6882),
-    [aux_sym_entry_statement_token1] = ACTIONS(6882),
-    [aux_sym_null_literal_token1] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6882),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6882),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6882),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6882),
-    [aux_sym_identifier_token1] = ACTIONS(6882),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6884),
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5092),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
   },
   [2878] = {
-    [sym_output_item_list] = STATE(7397),
-    [sym__expression] = STATE(4386),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5108),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(6930),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-    [sym__external_end_of_statement] = ACTIONS(6930),
+    [sym__integer_literal] = ACTIONS(5110),
   },
   [2879] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4285),
-    [aux_sym_interface_statement_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4285),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4285),
-    [aux_sym_language_binding_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4285),
-    [aux_sym_contains_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token1] = ACTIONS(4285),
-    [aux_sym_use_statement_token2] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4285),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4285),
-    [aux_sym_save_statement_token1] = ACTIONS(4285),
-    [aux_sym_private_statement_token1] = ACTIONS(4285),
-    [aux_sym_public_statement_token1] = ACTIONS(4285),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4285),
-    [aux_sym_common_statement_token1] = ACTIONS(4285),
-    [aux_sym_import_statement_token1] = ACTIONS(4285),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4285),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4285),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4285),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4285),
-    [aux_sym_derived_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token1] = ACTIONS(4285),
-    [aux_sym_declared_type_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4285),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4285),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4285),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token1] = ACTIONS(4285),
-    [aux_sym_stop_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4285),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4285),
-    [aux_sym_include_statement_token1] = ACTIONS(4285),
-    [aux_sym_data_statement_token1] = ACTIONS(4285),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4285),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4285),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4285),
-    [aux_sym_block_construct_token1] = ACTIONS(4285),
-    [aux_sym_format_statement_token1] = ACTIONS(4285),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4285),
-    [aux_sym_enum_statement_token1] = ACTIONS(4285),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4285),
-    [aux_sym_entry_statement_token1] = ACTIONS(4285),
-    [aux_sym_null_literal_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4285),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4285),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4285),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4285),
-    [aux_sym_identifier_token1] = ACTIONS(4285),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4287),
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4389),
+    [aux_sym_interface_statement_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4389),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4389),
+    [aux_sym_language_binding_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4389),
+    [aux_sym_contains_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token1] = ACTIONS(4389),
+    [aux_sym_use_statement_token2] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4389),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4389),
+    [aux_sym_save_statement_token1] = ACTIONS(4389),
+    [aux_sym_private_statement_token1] = ACTIONS(4389),
+    [aux_sym_public_statement_token1] = ACTIONS(4389),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4389),
+    [aux_sym_common_statement_token1] = ACTIONS(4389),
+    [aux_sym_import_statement_token1] = ACTIONS(4389),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4389),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4389),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4389),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4389),
+    [aux_sym_derived_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token1] = ACTIONS(4389),
+    [aux_sym_declared_type_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4389),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4389),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4389),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token1] = ACTIONS(4389),
+    [aux_sym_stop_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4389),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4389),
+    [aux_sym_include_statement_token1] = ACTIONS(4389),
+    [aux_sym_data_statement_token1] = ACTIONS(4389),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4389),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4389),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4389),
+    [aux_sym_block_construct_token1] = ACTIONS(4389),
+    [aux_sym_format_statement_token1] = ACTIONS(4389),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4389),
+    [aux_sym_enum_statement_token1] = ACTIONS(4389),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4389),
+    [aux_sym_entry_statement_token1] = ACTIONS(4389),
+    [aux_sym_null_literal_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4389),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4389),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4389),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4389),
+    [aux_sym_identifier_token1] = ACTIONS(4389),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4391),
   },
   [2880] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4613),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-  },
-  [2881] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
+    [sym__integer_literal] = ACTIONS(5118),
+  },
+  [2881] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5044),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
   },
   [2882] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5120),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
+    [aux_sym_preproc_include_token1] = ACTIONS(6742),
+    [aux_sym_preproc_def_token1] = ACTIONS(6742),
+    [aux_sym_preproc_if_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6742),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6742),
+    [sym_preproc_directive] = ACTIONS(6742),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6742),
+    [aux_sym_interface_statement_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6742),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6742),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6742),
+    [aux_sym_language_binding_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6742),
+    [aux_sym_contains_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token1] = ACTIONS(6742),
+    [aux_sym_use_statement_token2] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6742),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6742),
+    [aux_sym_save_statement_token1] = ACTIONS(6742),
+    [aux_sym_private_statement_token1] = ACTIONS(6742),
+    [aux_sym_public_statement_token1] = ACTIONS(6742),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6742),
+    [aux_sym_common_statement_token1] = ACTIONS(6742),
+    [aux_sym_import_statement_token1] = ACTIONS(6742),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6742),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6742),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6742),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6742),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6742),
+    [aux_sym_derived_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token1] = ACTIONS(6742),
+    [aux_sym_declared_type_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6742),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6742),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6742),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token1] = ACTIONS(6742),
+    [aux_sym_stop_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6742),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6742),
+    [aux_sym_include_statement_token1] = ACTIONS(6742),
+    [aux_sym_data_statement_token1] = ACTIONS(6742),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6742),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6742),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6742),
+    [aux_sym_block_construct_token1] = ACTIONS(6742),
+    [aux_sym_format_statement_token1] = ACTIONS(6742),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6742),
+    [aux_sym_enum_statement_token1] = ACTIONS(6742),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6742),
+    [aux_sym_entry_statement_token1] = ACTIONS(6742),
+    [aux_sym_null_literal_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6742),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6742),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6742),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6742),
+    [aux_sym_identifier_token1] = ACTIONS(6742),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6746),
   },
   [2883] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5082),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4425),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4427),
   },
   [2884] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5086),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5130),
   },
   [2885] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5054),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
+    [aux_sym_preproc_include_token1] = ACTIONS(6886),
+    [aux_sym_preproc_def_token1] = ACTIONS(6886),
+    [aux_sym_preproc_if_token1] = ACTIONS(6886),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6886),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6886),
+    [sym_preproc_directive] = ACTIONS(6886),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6886),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6886),
+    [aux_sym_interface_statement_token1] = ACTIONS(6886),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6886),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6886),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6886),
+    [aux_sym_language_binding_token1] = ACTIONS(6886),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6886),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6886),
+    [aux_sym_contains_statement_token1] = ACTIONS(6886),
+    [aux_sym_use_statement_token1] = ACTIONS(6886),
+    [aux_sym_use_statement_token2] = ACTIONS(6886),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6886),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6886),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6886),
+    [aux_sym_save_statement_token1] = ACTIONS(6886),
+    [aux_sym_private_statement_token1] = ACTIONS(6886),
+    [aux_sym_public_statement_token1] = ACTIONS(6886),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6886),
+    [aux_sym_common_statement_token1] = ACTIONS(6886),
+    [aux_sym_import_statement_token1] = ACTIONS(6886),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6886),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6886),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6886),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6886),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6886),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6886),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6886),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6886),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6886),
+    [aux_sym_derived_type_token1] = ACTIONS(6886),
+    [aux_sym_declared_type_token1] = ACTIONS(6886),
+    [aux_sym_declared_type_token2] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6886),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6886),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6886),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6886),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6886),
+    [aux_sym_stop_statement_token1] = ACTIONS(6886),
+    [aux_sym_stop_statement_token2] = ACTIONS(6886),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6886),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6886),
+    [aux_sym_include_statement_token1] = ACTIONS(6886),
+    [aux_sym_data_statement_token1] = ACTIONS(6886),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6886),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6886),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6886),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6886),
+    [aux_sym_block_construct_token1] = ACTIONS(6886),
+    [aux_sym_format_statement_token1] = ACTIONS(6886),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6886),
+    [aux_sym_enum_statement_token1] = ACTIONS(6886),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6886),
+    [aux_sym_entry_statement_token1] = ACTIONS(6886),
+    [aux_sym_null_literal_token1] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6886),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6886),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6886),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6886),
+    [aux_sym_identifier_token1] = ACTIONS(6886),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6888),
   },
   [2886] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6932),
-    [aux_sym_preproc_def_token1] = ACTIONS(6932),
-    [aux_sym_preproc_if_token1] = ACTIONS(6932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6932),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6932),
-    [sym_preproc_directive] = ACTIONS(6932),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6932),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6932),
-    [aux_sym_interface_statement_token1] = ACTIONS(6932),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6932),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6932),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6932),
-    [aux_sym_language_binding_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6932),
-    [aux_sym_contains_statement_token1] = ACTIONS(6932),
-    [aux_sym_use_statement_token1] = ACTIONS(6932),
-    [aux_sym_use_statement_token2] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6932),
-    [aux_sym_save_statement_token1] = ACTIONS(6932),
-    [aux_sym_private_statement_token1] = ACTIONS(6932),
-    [aux_sym_public_statement_token1] = ACTIONS(6932),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6932),
-    [aux_sym_common_statement_token1] = ACTIONS(6932),
-    [aux_sym_import_statement_token1] = ACTIONS(6932),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6932),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6932),
-    [aux_sym_derived_type_token1] = ACTIONS(6932),
-    [aux_sym_declared_type_token1] = ACTIONS(6932),
-    [aux_sym_declared_type_token2] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6932),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6932),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6932),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6932),
-    [aux_sym_stop_statement_token1] = ACTIONS(6932),
-    [aux_sym_stop_statement_token2] = ACTIONS(6932),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6932),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6932),
-    [aux_sym_include_statement_token1] = ACTIONS(6932),
-    [aux_sym_data_statement_token1] = ACTIONS(6932),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6932),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6932),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6932),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6932),
-    [aux_sym_block_construct_token1] = ACTIONS(6932),
-    [aux_sym_format_statement_token1] = ACTIONS(6932),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6932),
-    [aux_sym_enum_statement_token1] = ACTIONS(6932),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6932),
-    [aux_sym_entry_statement_token1] = ACTIONS(6932),
-    [aux_sym_null_literal_token1] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6932),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6932),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6932),
-    [aux_sym_identifier_token1] = ACTIONS(6932),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6934),
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5056),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
   },
   [2887] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6862),
-    [aux_sym_preproc_def_token1] = ACTIONS(6862),
-    [aux_sym_preproc_if_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6862),
-    [sym_preproc_directive] = ACTIONS(6862),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6862),
-    [aux_sym_interface_statement_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6862),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6862),
-    [aux_sym_language_binding_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6862),
-    [aux_sym_contains_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token2] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6862),
-    [aux_sym_save_statement_token1] = ACTIONS(6862),
-    [aux_sym_private_statement_token1] = ACTIONS(6862),
-    [aux_sym_public_statement_token1] = ACTIONS(6862),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6862),
-    [aux_sym_common_statement_token1] = ACTIONS(6862),
-    [aux_sym_import_statement_token1] = ACTIONS(6862),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6862),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6862),
-    [aux_sym_derived_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6862),
-    [aux_sym_include_statement_token1] = ACTIONS(6862),
-    [aux_sym_data_statement_token1] = ACTIONS(6862),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6862),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6862),
-    [aux_sym_block_construct_token1] = ACTIONS(6862),
-    [aux_sym_format_statement_token1] = ACTIONS(6862),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6862),
-    [aux_sym_enum_statement_token1] = ACTIONS(6862),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6862),
-    [aux_sym_entry_statement_token1] = ACTIONS(6862),
-    [aux_sym_null_literal_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6862),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6862),
-    [aux_sym_identifier_token1] = ACTIONS(6862),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6866),
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4343),
+    [aux_sym_interface_statement_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4343),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4343),
+    [aux_sym_language_binding_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4343),
+    [aux_sym_contains_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token1] = ACTIONS(4343),
+    [aux_sym_use_statement_token2] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4343),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4343),
+    [aux_sym_save_statement_token1] = ACTIONS(4343),
+    [aux_sym_private_statement_token1] = ACTIONS(4343),
+    [aux_sym_public_statement_token1] = ACTIONS(4343),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4343),
+    [aux_sym_common_statement_token1] = ACTIONS(4343),
+    [aux_sym_import_statement_token1] = ACTIONS(4343),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4343),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4343),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4343),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4343),
+    [aux_sym_derived_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token1] = ACTIONS(4343),
+    [aux_sym_declared_type_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4343),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4343),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4343),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token1] = ACTIONS(4343),
+    [aux_sym_stop_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4343),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4343),
+    [aux_sym_include_statement_token1] = ACTIONS(4343),
+    [aux_sym_data_statement_token1] = ACTIONS(4343),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4343),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4343),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4343),
+    [aux_sym_block_construct_token1] = ACTIONS(4343),
+    [aux_sym_format_statement_token1] = ACTIONS(4343),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4343),
+    [aux_sym_enum_statement_token1] = ACTIONS(4343),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4343),
+    [aux_sym_entry_statement_token1] = ACTIONS(4343),
+    [aux_sym_null_literal_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4343),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4343),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4343),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4343),
+    [aux_sym_identifier_token1] = ACTIONS(4343),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4345),
   },
   [2888] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6936),
-    [aux_sym_preproc_def_token1] = ACTIONS(6936),
-    [aux_sym_preproc_if_token1] = ACTIONS(6936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6936),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6936),
-    [sym_preproc_directive] = ACTIONS(6936),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6936),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6936),
-    [aux_sym_interface_statement_token1] = ACTIONS(6936),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6936),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6936),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6936),
-    [aux_sym_language_binding_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6936),
-    [aux_sym_contains_statement_token1] = ACTIONS(6936),
-    [aux_sym_use_statement_token1] = ACTIONS(6936),
-    [aux_sym_use_statement_token2] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6936),
-    [aux_sym_save_statement_token1] = ACTIONS(6936),
-    [aux_sym_private_statement_token1] = ACTIONS(6936),
-    [aux_sym_public_statement_token1] = ACTIONS(6936),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6936),
-    [aux_sym_common_statement_token1] = ACTIONS(6936),
-    [aux_sym_import_statement_token1] = ACTIONS(6936),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6936),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6936),
-    [aux_sym_derived_type_token1] = ACTIONS(6936),
-    [aux_sym_declared_type_token1] = ACTIONS(6936),
-    [aux_sym_declared_type_token2] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6936),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6936),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6936),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6936),
-    [aux_sym_stop_statement_token1] = ACTIONS(6936),
-    [aux_sym_stop_statement_token2] = ACTIONS(6936),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6936),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6936),
-    [aux_sym_include_statement_token1] = ACTIONS(6936),
-    [aux_sym_data_statement_token1] = ACTIONS(6936),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6936),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6936),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6936),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6936),
-    [aux_sym_block_construct_token1] = ACTIONS(6936),
-    [aux_sym_format_statement_token1] = ACTIONS(6936),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6936),
-    [aux_sym_enum_statement_token1] = ACTIONS(6936),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6936),
-    [aux_sym_entry_statement_token1] = ACTIONS(6936),
-    [aux_sym_null_literal_token1] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6936),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6936),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6936),
-    [aux_sym_identifier_token1] = ACTIONS(6936),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6938),
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5074),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
   },
   [2889] = {
-    [sym__expression] = STATE(4371),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(6910),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6940),
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4469),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(4471),
   },
   [2890] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6932),
-    [aux_sym_preproc_def_token1] = ACTIONS(6932),
-    [aux_sym_preproc_if_token1] = ACTIONS(6932),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6932),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6932),
-    [sym_preproc_directive] = ACTIONS(6932),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6932),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6932),
-    [aux_sym_interface_statement_token1] = ACTIONS(6932),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6932),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6932),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6932),
-    [aux_sym_language_binding_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6932),
-    [aux_sym_contains_statement_token1] = ACTIONS(6932),
-    [aux_sym_use_statement_token1] = ACTIONS(6932),
-    [aux_sym_use_statement_token2] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6932),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6932),
-    [aux_sym_save_statement_token1] = ACTIONS(6932),
-    [aux_sym_private_statement_token1] = ACTIONS(6932),
-    [aux_sym_public_statement_token1] = ACTIONS(6932),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6932),
-    [aux_sym_common_statement_token1] = ACTIONS(6932),
-    [aux_sym_import_statement_token1] = ACTIONS(6932),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6932),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6932),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6932),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6932),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6932),
-    [aux_sym_derived_type_token1] = ACTIONS(6932),
-    [aux_sym_declared_type_token1] = ACTIONS(6932),
-    [aux_sym_declared_type_token2] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6932),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6932),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6932),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6932),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6932),
-    [aux_sym_stop_statement_token1] = ACTIONS(6932),
-    [aux_sym_stop_statement_token2] = ACTIONS(6932),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6932),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6932),
-    [aux_sym_include_statement_token1] = ACTIONS(6932),
-    [aux_sym_data_statement_token1] = ACTIONS(6932),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6932),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6932),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6932),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6932),
-    [aux_sym_block_construct_token1] = ACTIONS(6932),
-    [aux_sym_format_statement_token1] = ACTIONS(6932),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6932),
-    [aux_sym_enum_statement_token1] = ACTIONS(6932),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6932),
-    [aux_sym_entry_statement_token1] = ACTIONS(6932),
-    [aux_sym_null_literal_token1] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6932),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6932),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6932),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6932),
-    [aux_sym_identifier_token1] = ACTIONS(6932),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6934),
+    [aux_sym_preproc_include_token1] = ACTIONS(5441),
+    [aux_sym_preproc_def_token1] = ACTIONS(5441),
+    [aux_sym_preproc_if_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
+    [sym_preproc_directive] = ACTIONS(5441),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_module_statement_token1] = ACTIONS(5441),
+    [aux_sym_interface_statement_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
+    [aux_sym_language_binding_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
+    [aux_sym_contains_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token2] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
+    [aux_sym_save_statement_token1] = ACTIONS(5441),
+    [aux_sym_private_statement_token1] = ACTIONS(5441),
+    [aux_sym_public_statement_token1] = ACTIONS(5441),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
+    [aux_sym_common_statement_token1] = ACTIONS(5441),
+    [aux_sym_import_statement_token1] = ACTIONS(5441),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
+    [aux_sym_derived_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
+    [aux_sym_stop_statement_token1] = ACTIONS(5441),
+    [aux_sym_stop_statement_token2] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
+    [aux_sym_include_statement_token1] = ACTIONS(5441),
+    [aux_sym_data_statement_token1] = ACTIONS(5441),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
+    [aux_sym_block_construct_token1] = ACTIONS(5441),
+    [aux_sym_format_statement_token1] = ACTIONS(5441),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
+    [aux_sym_enum_statement_token1] = ACTIONS(5441),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
+    [aux_sym_entry_statement_token1] = ACTIONS(5441),
+    [aux_sym_null_literal_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
+    [aux_sym_identifier_token1] = ACTIONS(5441),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5443),
   },
   [2891] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_keyword_argument] = STATE(7080),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4858),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5128),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5130),
   },
   [2892] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6862),
-    [aux_sym_preproc_def_token1] = ACTIONS(6862),
-    [aux_sym_preproc_if_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6862),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6862),
-    [sym_preproc_directive] = ACTIONS(6862),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6862),
-    [aux_sym_interface_statement_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6862),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6862),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6862),
-    [aux_sym_language_binding_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6862),
-    [aux_sym_contains_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token1] = ACTIONS(6862),
-    [aux_sym_use_statement_token2] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6862),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6862),
-    [aux_sym_save_statement_token1] = ACTIONS(6862),
-    [aux_sym_private_statement_token1] = ACTIONS(6862),
-    [aux_sym_public_statement_token1] = ACTIONS(6862),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6862),
-    [aux_sym_common_statement_token1] = ACTIONS(6862),
-    [aux_sym_import_statement_token1] = ACTIONS(6862),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6862),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6862),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6862),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6862),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6862),
-    [aux_sym_derived_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token1] = ACTIONS(6862),
-    [aux_sym_declared_type_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6862),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6862),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6862),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token1] = ACTIONS(6862),
-    [aux_sym_stop_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6862),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6862),
-    [aux_sym_include_statement_token1] = ACTIONS(6862),
-    [aux_sym_data_statement_token1] = ACTIONS(6862),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6862),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6862),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6862),
-    [aux_sym_block_construct_token1] = ACTIONS(6862),
-    [aux_sym_format_statement_token1] = ACTIONS(6862),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6862),
-    [aux_sym_enum_statement_token1] = ACTIONS(6862),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6862),
-    [aux_sym_entry_statement_token1] = ACTIONS(6862),
-    [aux_sym_null_literal_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6862),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6862),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6862),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6862),
-    [aux_sym_identifier_token1] = ACTIONS(6862),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6866),
+    [aux_sym_preproc_include_token1] = ACTIONS(6724),
+    [aux_sym_preproc_def_token1] = ACTIONS(6724),
+    [aux_sym_preproc_if_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
+    [sym_preproc_directive] = ACTIONS(6724),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_module_statement_token1] = ACTIONS(6724),
+    [aux_sym_interface_statement_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
+    [aux_sym_language_binding_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
+    [aux_sym_contains_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token1] = ACTIONS(6724),
+    [aux_sym_use_statement_token2] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
+    [aux_sym_save_statement_token1] = ACTIONS(6724),
+    [aux_sym_private_statement_token1] = ACTIONS(6724),
+    [aux_sym_public_statement_token1] = ACTIONS(6724),
+    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
+    [aux_sym_common_statement_token1] = ACTIONS(6724),
+    [aux_sym_import_statement_token1] = ACTIONS(6724),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
+    [aux_sym_derived_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token1] = ACTIONS(6724),
+    [aux_sym_declared_type_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token1] = ACTIONS(6724),
+    [aux_sym_stop_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
+    [aux_sym_include_statement_token1] = ACTIONS(6724),
+    [aux_sym_data_statement_token1] = ACTIONS(6724),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
+    [aux_sym_block_construct_token1] = ACTIONS(6724),
+    [aux_sym_format_statement_token1] = ACTIONS(6724),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
+    [aux_sym_enum_statement_token1] = ACTIONS(6724),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
+    [aux_sym_entry_statement_token1] = ACTIONS(6724),
+    [aux_sym_null_literal_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
+    [aux_sym_identifier_token1] = ACTIONS(6724),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6728),
   },
   [2893] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4617),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_module_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
   },
   [2894] = {
-    [sym__expression] = STATE(4422),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7270),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym__expression] = STATE(4439),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(7596),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6942),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6772),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -444971,7 +444830,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -444988,138 +444847,328 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2895] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6936),
-    [aux_sym_preproc_def_token1] = ACTIONS(6936),
-    [aux_sym_preproc_if_token1] = ACTIONS(6936),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6936),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6936),
-    [sym_preproc_directive] = ACTIONS(6936),
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4437),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6936),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6936),
-    [aux_sym_interface_statement_token1] = ACTIONS(6936),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6936),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6936),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6936),
-    [aux_sym_language_binding_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6936),
-    [aux_sym_contains_statement_token1] = ACTIONS(6936),
-    [aux_sym_use_statement_token1] = ACTIONS(6936),
-    [aux_sym_use_statement_token2] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6936),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6936),
-    [aux_sym_save_statement_token1] = ACTIONS(6936),
-    [aux_sym_private_statement_token1] = ACTIONS(6936),
-    [aux_sym_public_statement_token1] = ACTIONS(6936),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6936),
-    [aux_sym_common_statement_token1] = ACTIONS(6936),
-    [aux_sym_import_statement_token1] = ACTIONS(6936),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6936),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6936),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6936),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6936),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6936),
-    [aux_sym_derived_type_token1] = ACTIONS(6936),
-    [aux_sym_declared_type_token1] = ACTIONS(6936),
-    [aux_sym_declared_type_token2] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6936),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6936),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6936),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6936),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6936),
-    [aux_sym_stop_statement_token1] = ACTIONS(6936),
-    [aux_sym_stop_statement_token2] = ACTIONS(6936),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6936),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6936),
-    [aux_sym_include_statement_token1] = ACTIONS(6936),
-    [aux_sym_data_statement_token1] = ACTIONS(6936),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6936),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6936),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6936),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6936),
-    [aux_sym_block_construct_token1] = ACTIONS(6936),
-    [aux_sym_format_statement_token1] = ACTIONS(6936),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6936),
-    [aux_sym_enum_statement_token1] = ACTIONS(6936),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6936),
-    [aux_sym_entry_statement_token1] = ACTIONS(6936),
-    [aux_sym_null_literal_token1] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6936),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6936),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6936),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6936),
-    [aux_sym_identifier_token1] = ACTIONS(6936),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4439),
+  },
+  [2896] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5138),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6938),
+    [sym__integer_literal] = ACTIONS(5140),
   },
-  [2896] = {
-    [sym__expression] = STATE(4377),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(6527),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2897] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5112),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+  },
+  [2898] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_keyword_argument] = STATE(6673),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4886),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6944),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -445161,7 +445210,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -445178,138 +445227,803 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2897] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6946),
-    [aux_sym_preproc_def_token1] = ACTIONS(6946),
-    [aux_sym_preproc_if_token1] = ACTIONS(6946),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6946),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6946),
-    [sym_preproc_directive] = ACTIONS(6946),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6946),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6946),
-    [aux_sym_interface_statement_token1] = ACTIONS(6946),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6946),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6946),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6946),
-    [aux_sym_language_binding_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6946),
-    [aux_sym_contains_statement_token1] = ACTIONS(6946),
-    [aux_sym_use_statement_token1] = ACTIONS(6946),
-    [aux_sym_use_statement_token2] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6946),
-    [aux_sym_save_statement_token1] = ACTIONS(6946),
-    [aux_sym_private_statement_token1] = ACTIONS(6946),
-    [aux_sym_public_statement_token1] = ACTIONS(6946),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6946),
-    [aux_sym_common_statement_token1] = ACTIONS(6946),
-    [aux_sym_import_statement_token1] = ACTIONS(6946),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6946),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6946),
-    [aux_sym_derived_type_token1] = ACTIONS(6946),
-    [aux_sym_declared_type_token1] = ACTIONS(6946),
-    [aux_sym_declared_type_token2] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6946),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6946),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6946),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6946),
-    [aux_sym_stop_statement_token1] = ACTIONS(6946),
-    [aux_sym_stop_statement_token2] = ACTIONS(6946),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6946),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6946),
-    [aux_sym_include_statement_token1] = ACTIONS(6946),
-    [aux_sym_data_statement_token1] = ACTIONS(6946),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6946),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6946),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6946),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6946),
-    [aux_sym_block_construct_token1] = ACTIONS(6946),
-    [aux_sym_format_statement_token1] = ACTIONS(6946),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6946),
-    [aux_sym_enum_statement_token1] = ACTIONS(6946),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6946),
-    [aux_sym_entry_statement_token1] = ACTIONS(6946),
-    [aux_sym_null_literal_token1] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6946),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6946),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6946),
-    [aux_sym_identifier_token1] = ACTIONS(6946),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6948),
+  [2899] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5441),
+    [aux_sym_preproc_def_token1] = ACTIONS(5441),
+    [aux_sym_preproc_if_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5441),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5441),
+    [sym_preproc_directive] = ACTIONS(5441),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5441),
+    [aux_sym_interface_statement_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5441),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5441),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5441),
+    [aux_sym_language_binding_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5441),
+    [aux_sym_contains_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token1] = ACTIONS(5441),
+    [aux_sym_use_statement_token2] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5441),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5441),
+    [aux_sym_save_statement_token1] = ACTIONS(5441),
+    [aux_sym_private_statement_token1] = ACTIONS(5441),
+    [aux_sym_public_statement_token1] = ACTIONS(5441),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5441),
+    [aux_sym_common_statement_token1] = ACTIONS(5441),
+    [aux_sym_import_statement_token1] = ACTIONS(5441),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5441),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5441),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5441),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5441),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5441),
+    [aux_sym_derived_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token1] = ACTIONS(5441),
+    [aux_sym_declared_type_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5441),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5441),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5441),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5441),
+    [aux_sym_stop_statement_token1] = ACTIONS(5441),
+    [aux_sym_stop_statement_token2] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5441),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5441),
+    [aux_sym_include_statement_token1] = ACTIONS(5441),
+    [aux_sym_data_statement_token1] = ACTIONS(5441),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5441),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5441),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5441),
+    [aux_sym_block_construct_token1] = ACTIONS(5441),
+    [aux_sym_format_statement_token1] = ACTIONS(5441),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5441),
+    [aux_sym_enum_statement_token1] = ACTIONS(5441),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5441),
+    [aux_sym_entry_statement_token1] = ACTIONS(5441),
+    [aux_sym_null_literal_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5441),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5441),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5441),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5441),
+    [aux_sym_identifier_token1] = ACTIONS(5441),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5443),
   },
-  [2898] = {
-    [sym__expression] = STATE(4391),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(6601),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2900] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4485),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4487),
+  },
+  [2901] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4473),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4475),
+  },
+  [2902] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4535),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+  },
+  [2903] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4539),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+  },
+  [2904] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4543),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_module_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+  },
+  [2905] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5088),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+  },
+  [2906] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(5078),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_submodule_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+  },
+  [2907] = {
+    [sym__expression] = STATE(4369),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym__coarray_extent_specifier] = STATE(6951),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6950),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_STAR] = ACTIONS(6954),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(6774),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -445351,7 +446065,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -445368,43 +446082,135 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2899] = {
-    [sym__expression] = STATE(4479),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym__coarray_extent_specifier] = STATE(7659),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2908] = {
+    [sym__expression] = STATE(4232),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(3653),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [2909] = {
+    [sym__expression] = STATE(4676),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(8375),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_STAR] = ACTIONS(6744),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(6746),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -445446,7 +446252,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -445461,803 +446267,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2900] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6952),
-    [aux_sym_preproc_def_token1] = ACTIONS(6952),
-    [aux_sym_preproc_if_token1] = ACTIONS(6952),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6952),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6952),
-    [sym_preproc_directive] = ACTIONS(6952),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6952),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(6952),
-    [aux_sym_interface_statement_token1] = ACTIONS(6952),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6952),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6952),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6952),
-    [aux_sym_language_binding_token1] = ACTIONS(6952),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6952),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6952),
-    [aux_sym_contains_statement_token1] = ACTIONS(6952),
-    [aux_sym_use_statement_token1] = ACTIONS(6952),
-    [aux_sym_use_statement_token2] = ACTIONS(6952),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6952),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6952),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6952),
-    [aux_sym_save_statement_token1] = ACTIONS(6952),
-    [aux_sym_private_statement_token1] = ACTIONS(6952),
-    [aux_sym_public_statement_token1] = ACTIONS(6952),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6952),
-    [aux_sym_common_statement_token1] = ACTIONS(6952),
-    [aux_sym_import_statement_token1] = ACTIONS(6952),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6952),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6952),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6952),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6952),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6952),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6952),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6952),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6952),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6952),
-    [aux_sym_derived_type_token1] = ACTIONS(6952),
-    [aux_sym_declared_type_token1] = ACTIONS(6952),
-    [aux_sym_declared_type_token2] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6952),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6952),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6952),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6952),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6952),
-    [aux_sym_stop_statement_token1] = ACTIONS(6952),
-    [aux_sym_stop_statement_token2] = ACTIONS(6952),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6952),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6952),
-    [aux_sym_include_statement_token1] = ACTIONS(6952),
-    [aux_sym_data_statement_token1] = ACTIONS(6952),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6952),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6952),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6952),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6952),
-    [aux_sym_block_construct_token1] = ACTIONS(6952),
-    [aux_sym_format_statement_token1] = ACTIONS(6952),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6952),
-    [aux_sym_enum_statement_token1] = ACTIONS(6952),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6952),
-    [aux_sym_entry_statement_token1] = ACTIONS(6952),
-    [aux_sym_null_literal_token1] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6952),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6952),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6952),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6952),
-    [aux_sym_identifier_token1] = ACTIONS(6952),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6954),
-  },
-  [2901] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6946),
-    [aux_sym_preproc_def_token1] = ACTIONS(6946),
-    [aux_sym_preproc_if_token1] = ACTIONS(6946),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6946),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6946),
-    [sym_preproc_directive] = ACTIONS(6946),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6946),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6946),
-    [aux_sym_interface_statement_token1] = ACTIONS(6946),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6946),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6946),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6946),
-    [aux_sym_language_binding_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6946),
-    [aux_sym_contains_statement_token1] = ACTIONS(6946),
-    [aux_sym_use_statement_token1] = ACTIONS(6946),
-    [aux_sym_use_statement_token2] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6946),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6946),
-    [aux_sym_save_statement_token1] = ACTIONS(6946),
-    [aux_sym_private_statement_token1] = ACTIONS(6946),
-    [aux_sym_public_statement_token1] = ACTIONS(6946),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6946),
-    [aux_sym_common_statement_token1] = ACTIONS(6946),
-    [aux_sym_import_statement_token1] = ACTIONS(6946),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6946),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6946),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6946),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6946),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6946),
-    [aux_sym_derived_type_token1] = ACTIONS(6946),
-    [aux_sym_declared_type_token1] = ACTIONS(6946),
-    [aux_sym_declared_type_token2] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6946),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6946),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6946),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6946),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6946),
-    [aux_sym_stop_statement_token1] = ACTIONS(6946),
-    [aux_sym_stop_statement_token2] = ACTIONS(6946),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6946),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6946),
-    [aux_sym_include_statement_token1] = ACTIONS(6946),
-    [aux_sym_data_statement_token1] = ACTIONS(6946),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6946),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6946),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6946),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6946),
-    [aux_sym_block_construct_token1] = ACTIONS(6946),
-    [aux_sym_format_statement_token1] = ACTIONS(6946),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6946),
-    [aux_sym_enum_statement_token1] = ACTIONS(6946),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6946),
-    [aux_sym_entry_statement_token1] = ACTIONS(6946),
-    [aux_sym_null_literal_token1] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6946),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6946),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6946),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6946),
-    [aux_sym_identifier_token1] = ACTIONS(6946),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6948),
-  },
-  [2902] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5038),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-  },
-  [2903] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6886),
-    [aux_sym_preproc_def_token1] = ACTIONS(6886),
-    [aux_sym_preproc_if_token1] = ACTIONS(6886),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6886),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6886),
-    [sym_preproc_directive] = ACTIONS(6886),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6886),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6886),
-    [aux_sym_interface_statement_token1] = ACTIONS(6886),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6886),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6886),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6886),
-    [aux_sym_language_binding_token1] = ACTIONS(6886),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6886),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6886),
-    [aux_sym_contains_statement_token1] = ACTIONS(6886),
-    [aux_sym_use_statement_token1] = ACTIONS(6886),
-    [aux_sym_use_statement_token2] = ACTIONS(6886),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6886),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6886),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6886),
-    [aux_sym_save_statement_token1] = ACTIONS(6886),
-    [aux_sym_private_statement_token1] = ACTIONS(6886),
-    [aux_sym_public_statement_token1] = ACTIONS(6886),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6886),
-    [aux_sym_common_statement_token1] = ACTIONS(6886),
-    [aux_sym_import_statement_token1] = ACTIONS(6886),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6886),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6886),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6886),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6886),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6886),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6886),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6886),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6886),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6886),
-    [aux_sym_derived_type_token1] = ACTIONS(6886),
-    [aux_sym_declared_type_token1] = ACTIONS(6886),
-    [aux_sym_declared_type_token2] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6886),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6886),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6886),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6886),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6886),
-    [aux_sym_stop_statement_token1] = ACTIONS(6886),
-    [aux_sym_stop_statement_token2] = ACTIONS(6886),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6886),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6886),
-    [aux_sym_include_statement_token1] = ACTIONS(6886),
-    [aux_sym_data_statement_token1] = ACTIONS(6886),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6886),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6886),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6886),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6886),
-    [aux_sym_block_construct_token1] = ACTIONS(6886),
-    [aux_sym_format_statement_token1] = ACTIONS(6886),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6886),
-    [aux_sym_enum_statement_token1] = ACTIONS(6886),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6886),
-    [aux_sym_entry_statement_token1] = ACTIONS(6886),
-    [aux_sym_null_literal_token1] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6886),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6886),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6886),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6886),
-    [aux_sym_identifier_token1] = ACTIONS(6886),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6888),
-  },
-  [2904] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(6724),
-    [aux_sym_preproc_def_token1] = ACTIONS(6724),
-    [aux_sym_preproc_if_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(6724),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(6724),
-    [sym_preproc_directive] = ACTIONS(6724),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_module_statement_token1] = ACTIONS(6724),
-    [aux_sym_interface_statement_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6724),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6724),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(6724),
-    [aux_sym_language_binding_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6724),
-    [aux_sym_contains_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token1] = ACTIONS(6724),
-    [aux_sym_use_statement_token2] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token1] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6724),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6724),
-    [aux_sym_save_statement_token1] = ACTIONS(6724),
-    [aux_sym_private_statement_token1] = ACTIONS(6724),
-    [aux_sym_public_statement_token1] = ACTIONS(6724),
-    [aux_sym_namelist_statement_token1] = ACTIONS(6724),
-    [aux_sym_common_statement_token1] = ACTIONS(6724),
-    [aux_sym_import_statement_token1] = ACTIONS(6724),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6724),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(6724),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token1] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token4] = ACTIONS(6724),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6724),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6724),
-    [aux_sym_derived_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token1] = ACTIONS(6724),
-    [aux_sym_declared_type_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6724),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6724),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6724),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token1] = ACTIONS(6724),
-    [aux_sym_stop_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6724),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6724),
-    [aux_sym_include_statement_token1] = ACTIONS(6724),
-    [aux_sym_data_statement_token1] = ACTIONS(6724),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6724),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6724),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6724),
-    [aux_sym_block_construct_token1] = ACTIONS(6724),
-    [aux_sym_format_statement_token1] = ACTIONS(6724),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6724),
-    [aux_sym_enum_statement_token1] = ACTIONS(6724),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(6724),
-    [aux_sym_entry_statement_token1] = ACTIONS(6724),
-    [aux_sym_null_literal_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6724),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6724),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6724),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6724),
-    [aux_sym_identifier_token1] = ACTIONS(6724),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6728),
-  },
-  [2905] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5124),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-  },
-  [2906] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4293),
-    [aux_sym_preproc_def_token1] = ACTIONS(4293),
-    [aux_sym_preproc_if_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4293),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4293),
-    [sym_preproc_directive] = ACTIONS(4293),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_submodule_statement_token1] = ACTIONS(4293),
-    [aux_sym_interface_statement_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4293),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4293),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4293),
-    [aux_sym_language_binding_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4293),
-    [aux_sym_contains_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token1] = ACTIONS(4293),
-    [aux_sym_use_statement_token2] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4293),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4293),
-    [aux_sym_save_statement_token1] = ACTIONS(4293),
-    [aux_sym_private_statement_token1] = ACTIONS(4293),
-    [aux_sym_public_statement_token1] = ACTIONS(4293),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4293),
-    [aux_sym_common_statement_token1] = ACTIONS(4293),
-    [aux_sym_import_statement_token1] = ACTIONS(4293),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4293),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4293),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4293),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4293),
-    [aux_sym_derived_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token1] = ACTIONS(4293),
-    [aux_sym_declared_type_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4293),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4293),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4293),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token1] = ACTIONS(4293),
-    [aux_sym_stop_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4293),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4293),
-    [aux_sym_include_statement_token1] = ACTIONS(4293),
-    [aux_sym_data_statement_token1] = ACTIONS(4293),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4293),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4293),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4293),
-    [aux_sym_block_construct_token1] = ACTIONS(4293),
-    [aux_sym_format_statement_token1] = ACTIONS(4293),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4293),
-    [aux_sym_enum_statement_token1] = ACTIONS(4293),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4293),
-    [aux_sym_entry_statement_token1] = ACTIONS(4293),
-    [aux_sym_null_literal_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4293),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4293),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4293),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4293),
-    [aux_sym_identifier_token1] = ACTIONS(4293),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4295),
-  },
-  [2907] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(5116),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_module_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-  },
-  [2908] = {
-    [sym__expression] = STATE(4666),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
+  [2910] = {
+    [sym__expression] = STATE(4680),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
     [sym_nil_literal] = STATE(8192),
-    [sym_identifier] = STATE(3807),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446299,7 +446346,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -446314,138 +446361,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2909] = {
-    [anon_sym_LPAREN2] = ACTIONS(6958),
-    [anon_sym_PLUS] = ACTIONS(6960),
-    [anon_sym_DASH] = ACTIONS(6960),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6958),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6958),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6958),
-    [aux_sym_use_statement_token2] = ACTIONS(6958),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6958),
-    [aux_sym_save_statement_token1] = ACTIONS(6958),
-    [aux_sym_private_statement_token1] = ACTIONS(6958),
-    [aux_sym_public_statement_token1] = ACTIONS(6958),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6958),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6958),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6958),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6958),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6958),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6958),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6958),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6958),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6958),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6958),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6958),
-    [anon_sym_SEMI] = ACTIONS(6960),
-    [aux_sym_stop_statement_token1] = ACTIONS(6958),
-    [aux_sym_stop_statement_token2] = ACTIONS(6958),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6958),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6958),
-    [aux_sym_include_statement_token1] = ACTIONS(6958),
-    [aux_sym_data_statement_token1] = ACTIONS(6958),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6958),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6958),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6958),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6958),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6958),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6958),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6958),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6958),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6958),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6958),
-    [aux_sym_block_construct_token1] = ACTIONS(6958),
-    [aux_sym_associate_statement_token1] = ACTIONS(6958),
-    [aux_sym_format_statement_token1] = ACTIONS(6958),
-    [aux_sym_print_statement_token1] = ACTIONS(6958),
-    [aux_sym_open_statement_token1] = ACTIONS(6958),
-    [aux_sym_close_statement_token1] = ACTIONS(6958),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6958),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6958),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6958),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6958),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6958),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6958),
-    [aux_sym_entry_statement_token1] = ACTIONS(6958),
-    [aux_sym_logical_expression_token5] = ACTIONS(6960),
-    [anon_sym_DOT] = ACTIONS(6958),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6960),
-    [anon_sym_LBRACK] = ACTIONS(6960),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6960),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6960),
-    [aux_sym_null_literal_token1] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6958),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6958),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6958),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6958),
-    [aux_sym_identifier_token1] = ACTIONS(6958),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6960),
-    [sym__float_literal] = ACTIONS(6960),
-    [sym__boz_literal] = ACTIONS(6960),
-    [sym__string_literal] = ACTIONS(6960),
-    [sym__string_literal_kind] = ACTIONS(6960),
-    [sym__external_end_of_statement] = ACTIONS(6960),
-  },
-  [2910] = {
-    [sym__expression] = STATE(4390),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(3755),
-    [sym_identifier] = STATE(3807),
+  [2911] = {
+    [sym__expression] = STATE(4658),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(8391),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446487,7 +446440,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -446502,44 +446455,45 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2911] = {
-    [sym__expression] = STATE(4619),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(3755),
-    [sym_identifier] = STATE(3807),
+  [2912] = {
+    [sym_sized_allocation] = STATE(6327),
+    [sym_coarray_allocation] = STATE(7700),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4984),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4984),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446596,7 +446550,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
     [sym__integer_literal] = ACTIONS(193),
@@ -446605,35 +446558,35 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2912] = {
-    [sym__expression] = STATE(4341),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(3755),
-    [sym_identifier] = STATE(3807),
+  [2913] = {
+    [sym__expression] = STATE(4685),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(7753),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446675,7 +446628,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -446690,45 +446643,139 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2913] = {
-    [sym_sized_allocation] = STATE(6309),
-    [sym_coarray_allocation] = STATE(7545),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5031),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5031),
+  [2914] = {
+    [anon_sym_LPAREN2] = ACTIONS(6976),
+    [anon_sym_PLUS] = ACTIONS(6978),
+    [anon_sym_DASH] = ACTIONS(6978),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6976),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6976),
+    [aux_sym_use_statement_token2] = ACTIONS(6976),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6976),
+    [aux_sym_save_statement_token1] = ACTIONS(6976),
+    [aux_sym_private_statement_token1] = ACTIONS(6976),
+    [aux_sym_public_statement_token1] = ACTIONS(6976),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6976),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6976),
+    [anon_sym_SEMI] = ACTIONS(6978),
+    [aux_sym_stop_statement_token1] = ACTIONS(6976),
+    [aux_sym_stop_statement_token2] = ACTIONS(6976),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6976),
+    [aux_sym_include_statement_token1] = ACTIONS(6976),
+    [aux_sym_data_statement_token1] = ACTIONS(6976),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6976),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6976),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6976),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6976),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6976),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6976),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6976),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6976),
+    [aux_sym_block_construct_token1] = ACTIONS(6976),
+    [aux_sym_associate_statement_token1] = ACTIONS(6976),
+    [aux_sym_format_statement_token1] = ACTIONS(6976),
+    [aux_sym_print_statement_token1] = ACTIONS(6976),
+    [aux_sym_open_statement_token1] = ACTIONS(6976),
+    [aux_sym_close_statement_token1] = ACTIONS(6976),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6976),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6976),
+    [aux_sym_entry_statement_token1] = ACTIONS(6976),
+    [aux_sym_logical_expression_token5] = ACTIONS(6978),
+    [anon_sym_DOT] = ACTIONS(6976),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6978),
+    [anon_sym_LBRACK] = ACTIONS(6978),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6978),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6978),
+    [aux_sym_null_literal_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6976),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6976),
+    [aux_sym_identifier_token1] = ACTIONS(6976),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6978),
+    [sym__float_literal] = ACTIONS(6978),
+    [sym__boz_literal] = ACTIONS(6978),
+    [sym__string_literal] = ACTIONS(6978),
+    [sym__string_literal_kind] = ACTIONS(6978),
+    [sym__external_end_of_statement] = ACTIONS(6978),
+  },
+  [2915] = {
+    [sym__expression] = STATE(4435),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym__extent_specifier] = STATE(7329),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [anon_sym_COLON] = ACTIONS(5880),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446770,7 +446817,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -446787,41 +446834,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2914] = {
-    [sym__expression] = STATE(4669),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(8367),
-    [sym_identifier] = STATE(3807),
+  [2916] = {
+    [sym__expression] = STATE(4660),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(8279),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -446863,7 +446910,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -446878,327 +446925,233 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2915] = {
-    [anon_sym_LPAREN2] = ACTIONS(6962),
-    [anon_sym_PLUS] = ACTIONS(6964),
-    [anon_sym_DASH] = ACTIONS(6964),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6962),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6962),
-    [aux_sym_use_statement_token2] = ACTIONS(6962),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6962),
-    [aux_sym_save_statement_token1] = ACTIONS(6962),
-    [aux_sym_private_statement_token1] = ACTIONS(6962),
-    [aux_sym_public_statement_token1] = ACTIONS(6962),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6962),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6962),
-    [anon_sym_SEMI] = ACTIONS(6964),
-    [aux_sym_stop_statement_token1] = ACTIONS(6962),
-    [aux_sym_stop_statement_token2] = ACTIONS(6962),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6962),
-    [aux_sym_include_statement_token1] = ACTIONS(6962),
-    [aux_sym_data_statement_token1] = ACTIONS(6962),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6962),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6962),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6962),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6962),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6962),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6962),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6962),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6962),
-    [aux_sym_block_construct_token1] = ACTIONS(6962),
-    [aux_sym_associate_statement_token1] = ACTIONS(6962),
-    [aux_sym_format_statement_token1] = ACTIONS(6962),
-    [aux_sym_print_statement_token1] = ACTIONS(6962),
-    [aux_sym_open_statement_token1] = ACTIONS(6962),
-    [aux_sym_close_statement_token1] = ACTIONS(6962),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6962),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6962),
-    [aux_sym_entry_statement_token1] = ACTIONS(6962),
-    [aux_sym_logical_expression_token5] = ACTIONS(6964),
-    [anon_sym_DOT] = ACTIONS(6962),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6964),
-    [anon_sym_LBRACK] = ACTIONS(6964),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6964),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6964),
-    [aux_sym_null_literal_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6962),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6962),
-    [aux_sym_identifier_token1] = ACTIONS(6962),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6964),
-    [sym__float_literal] = ACTIONS(6964),
-    [sym__boz_literal] = ACTIONS(6964),
-    [sym__string_literal] = ACTIONS(6964),
-    [sym__string_literal_kind] = ACTIONS(6964),
-    [sym__external_end_of_statement] = ACTIONS(6964),
-  },
-  [2916] = {
-    [anon_sym_LPAREN2] = ACTIONS(6966),
-    [anon_sym_PLUS] = ACTIONS(6968),
-    [anon_sym_DASH] = ACTIONS(6968),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6966),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6966),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6966),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6966),
-    [aux_sym_use_statement_token2] = ACTIONS(6966),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6966),
-    [aux_sym_save_statement_token1] = ACTIONS(6966),
-    [aux_sym_private_statement_token1] = ACTIONS(6966),
-    [aux_sym_public_statement_token1] = ACTIONS(6966),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6966),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6966),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6966),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6966),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6966),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6966),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6966),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6966),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6966),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6966),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6966),
-    [anon_sym_SEMI] = ACTIONS(6968),
-    [aux_sym_stop_statement_token1] = ACTIONS(6966),
-    [aux_sym_stop_statement_token2] = ACTIONS(6966),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6966),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6966),
-    [aux_sym_include_statement_token1] = ACTIONS(6966),
-    [aux_sym_data_statement_token1] = ACTIONS(6966),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6966),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6966),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6966),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6966),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6966),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6966),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6966),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6966),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6966),
-    [aux_sym_block_construct_token1] = ACTIONS(6966),
-    [aux_sym_associate_statement_token1] = ACTIONS(6966),
-    [aux_sym_format_statement_token1] = ACTIONS(6966),
-    [aux_sym_print_statement_token1] = ACTIONS(6966),
-    [aux_sym_open_statement_token1] = ACTIONS(6966),
-    [aux_sym_close_statement_token1] = ACTIONS(6966),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6966),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6966),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6966),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6966),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6966),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6966),
-    [aux_sym_entry_statement_token1] = ACTIONS(6966),
-    [aux_sym_logical_expression_token5] = ACTIONS(6968),
-    [anon_sym_DOT] = ACTIONS(6966),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6968),
-    [anon_sym_LBRACK] = ACTIONS(6968),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6968),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6968),
-    [aux_sym_null_literal_token1] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6966),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6966),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6966),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6966),
-    [aux_sym_identifier_token1] = ACTIONS(6966),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6968),
-    [sym__float_literal] = ACTIONS(6968),
-    [sym__boz_literal] = ACTIONS(6968),
-    [sym__string_literal] = ACTIONS(6968),
-    [sym__string_literal_kind] = ACTIONS(6968),
-    [sym__external_end_of_statement] = ACTIONS(6968),
-  },
   [2917] = {
-    [anon_sym_LPAREN2] = ACTIONS(6970),
-    [anon_sym_PLUS] = ACTIONS(6972),
-    [anon_sym_DASH] = ACTIONS(6972),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6970),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6970),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6970),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6970),
-    [aux_sym_use_statement_token2] = ACTIONS(6970),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6970),
-    [aux_sym_save_statement_token1] = ACTIONS(6970),
-    [aux_sym_private_statement_token1] = ACTIONS(6970),
-    [aux_sym_public_statement_token1] = ACTIONS(6970),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6970),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6970),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6970),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6970),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6970),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6970),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6970),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6970),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6970),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6970),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6970),
-    [anon_sym_SEMI] = ACTIONS(6972),
-    [aux_sym_stop_statement_token1] = ACTIONS(6970),
-    [aux_sym_stop_statement_token2] = ACTIONS(6970),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6970),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6970),
-    [aux_sym_include_statement_token1] = ACTIONS(6970),
-    [aux_sym_data_statement_token1] = ACTIONS(6970),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6970),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6970),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6970),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6970),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6970),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6970),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6970),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6970),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6970),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6970),
-    [aux_sym_block_construct_token1] = ACTIONS(6970),
-    [aux_sym_associate_statement_token1] = ACTIONS(6970),
-    [aux_sym_format_statement_token1] = ACTIONS(6970),
-    [aux_sym_print_statement_token1] = ACTIONS(6970),
-    [aux_sym_open_statement_token1] = ACTIONS(6970),
-    [aux_sym_close_statement_token1] = ACTIONS(6970),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6970),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6970),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6970),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6970),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6970),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6970),
-    [aux_sym_entry_statement_token1] = ACTIONS(6970),
-    [aux_sym_logical_expression_token5] = ACTIONS(6972),
-    [anon_sym_DOT] = ACTIONS(6970),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6972),
-    [anon_sym_LBRACK] = ACTIONS(6972),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6972),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6972),
-    [aux_sym_null_literal_token1] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6970),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6970),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6970),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6970),
-    [aux_sym_identifier_token1] = ACTIONS(6970),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6972),
-    [sym__float_literal] = ACTIONS(6972),
-    [sym__boz_literal] = ACTIONS(6972),
-    [sym__string_literal] = ACTIONS(6972),
-    [sym__string_literal_kind] = ACTIONS(6972),
-    [sym__external_end_of_statement] = ACTIONS(6972),
+    [anon_sym_LPAREN2] = ACTIONS(6980),
+    [anon_sym_PLUS] = ACTIONS(6982),
+    [anon_sym_DASH] = ACTIONS(6982),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6980),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6980),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6980),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6980),
+    [aux_sym_use_statement_token2] = ACTIONS(6980),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6980),
+    [aux_sym_save_statement_token1] = ACTIONS(6980),
+    [aux_sym_private_statement_token1] = ACTIONS(6980),
+    [aux_sym_public_statement_token1] = ACTIONS(6980),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6980),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6980),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6980),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6980),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6980),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6980),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6980),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6980),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6980),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6980),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6980),
+    [anon_sym_SEMI] = ACTIONS(6982),
+    [aux_sym_stop_statement_token1] = ACTIONS(6980),
+    [aux_sym_stop_statement_token2] = ACTIONS(6980),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6980),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6980),
+    [aux_sym_include_statement_token1] = ACTIONS(6980),
+    [aux_sym_data_statement_token1] = ACTIONS(6980),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6980),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6980),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6980),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6980),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6980),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6980),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6980),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6980),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6980),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6980),
+    [aux_sym_block_construct_token1] = ACTIONS(6980),
+    [aux_sym_associate_statement_token1] = ACTIONS(6980),
+    [aux_sym_format_statement_token1] = ACTIONS(6980),
+    [aux_sym_print_statement_token1] = ACTIONS(6980),
+    [aux_sym_open_statement_token1] = ACTIONS(6980),
+    [aux_sym_close_statement_token1] = ACTIONS(6980),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6980),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6980),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6980),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6980),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6980),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6980),
+    [aux_sym_entry_statement_token1] = ACTIONS(6980),
+    [aux_sym_logical_expression_token5] = ACTIONS(6982),
+    [anon_sym_DOT] = ACTIONS(6980),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6982),
+    [anon_sym_LBRACK] = ACTIONS(6982),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6982),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6982),
+    [aux_sym_null_literal_token1] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6980),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6980),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6980),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6980),
+    [aux_sym_identifier_token1] = ACTIONS(6980),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6982),
+    [sym__float_literal] = ACTIONS(6982),
+    [sym__boz_literal] = ACTIONS(6982),
+    [sym__string_literal] = ACTIONS(6982),
+    [sym__string_literal_kind] = ACTIONS(6982),
+    [sym__external_end_of_statement] = ACTIONS(6982),
   },
   [2918] = {
-    [sym__expression] = STATE(4441),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym__extent_specifier] = STATE(7629),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym__expression] = STATE(4375),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_nil_literal] = STATE(4760),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_nil_literal_token1] = ACTIONS(6984),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2919] = {
+    [sym_sized_allocation] = STATE(6290),
+    [sym_coarray_allocation] = STATE(6923),
+    [sym__expression] = STATE(4698),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4879),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4879),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [anon_sym_COLON] = ACTIONS(5916),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447240,7 +447193,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -447257,41 +447210,229 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2919] = {
-    [sym__expression] = STATE(4656),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(8565),
-    [sym_identifier] = STATE(3807),
+  [2920] = {
+    [anon_sym_LPAREN2] = ACTIONS(6986),
+    [anon_sym_PLUS] = ACTIONS(6988),
+    [anon_sym_DASH] = ACTIONS(6988),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6986),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6986),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6986),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6986),
+    [aux_sym_use_statement_token2] = ACTIONS(6986),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6986),
+    [aux_sym_save_statement_token1] = ACTIONS(6986),
+    [aux_sym_private_statement_token1] = ACTIONS(6986),
+    [aux_sym_public_statement_token1] = ACTIONS(6986),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6986),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6986),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6986),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6986),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6986),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6986),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6986),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6986),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6986),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6986),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6986),
+    [anon_sym_SEMI] = ACTIONS(6988),
+    [aux_sym_stop_statement_token1] = ACTIONS(6986),
+    [aux_sym_stop_statement_token2] = ACTIONS(6986),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6986),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6986),
+    [aux_sym_include_statement_token1] = ACTIONS(6986),
+    [aux_sym_data_statement_token1] = ACTIONS(6986),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6986),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6986),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6986),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6986),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6986),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6986),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6986),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6986),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6986),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6986),
+    [aux_sym_block_construct_token1] = ACTIONS(6986),
+    [aux_sym_associate_statement_token1] = ACTIONS(6986),
+    [aux_sym_format_statement_token1] = ACTIONS(6986),
+    [aux_sym_print_statement_token1] = ACTIONS(6986),
+    [aux_sym_open_statement_token1] = ACTIONS(6986),
+    [aux_sym_close_statement_token1] = ACTIONS(6986),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6986),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6986),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6986),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6986),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6986),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6986),
+    [aux_sym_entry_statement_token1] = ACTIONS(6986),
+    [aux_sym_logical_expression_token5] = ACTIONS(6988),
+    [anon_sym_DOT] = ACTIONS(6986),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6988),
+    [anon_sym_LBRACK] = ACTIONS(6988),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6988),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6988),
+    [aux_sym_null_literal_token1] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6986),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6986),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6986),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6986),
+    [aux_sym_identifier_token1] = ACTIONS(6986),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6988),
+    [sym__float_literal] = ACTIONS(6988),
+    [sym__boz_literal] = ACTIONS(6988),
+    [sym__string_literal] = ACTIONS(6988),
+    [sym__string_literal_kind] = ACTIONS(6988),
+    [sym__external_end_of_statement] = ACTIONS(6988),
+  },
+  [2921] = {
+    [anon_sym_LPAREN2] = ACTIONS(6990),
+    [anon_sym_PLUS] = ACTIONS(6992),
+    [anon_sym_DASH] = ACTIONS(6992),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6990),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6990),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6990),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6990),
+    [aux_sym_use_statement_token2] = ACTIONS(6990),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6990),
+    [aux_sym_save_statement_token1] = ACTIONS(6990),
+    [aux_sym_private_statement_token1] = ACTIONS(6990),
+    [aux_sym_public_statement_token1] = ACTIONS(6990),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6990),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6990),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6990),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6990),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6990),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6990),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6990),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6990),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6990),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6990),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6990),
+    [anon_sym_SEMI] = ACTIONS(6992),
+    [aux_sym_stop_statement_token1] = ACTIONS(6990),
+    [aux_sym_stop_statement_token2] = ACTIONS(6990),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6990),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6990),
+    [aux_sym_include_statement_token1] = ACTIONS(6990),
+    [aux_sym_data_statement_token1] = ACTIONS(6990),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6990),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6990),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6990),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6990),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6990),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6990),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6990),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6990),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6990),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6990),
+    [aux_sym_block_construct_token1] = ACTIONS(6990),
+    [aux_sym_associate_statement_token1] = ACTIONS(6990),
+    [aux_sym_format_statement_token1] = ACTIONS(6990),
+    [aux_sym_print_statement_token1] = ACTIONS(6990),
+    [aux_sym_open_statement_token1] = ACTIONS(6990),
+    [aux_sym_close_statement_token1] = ACTIONS(6990),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6990),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6990),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6990),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6990),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6990),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6990),
+    [aux_sym_entry_statement_token1] = ACTIONS(6990),
+    [aux_sym_logical_expression_token5] = ACTIONS(6992),
+    [anon_sym_DOT] = ACTIONS(6990),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6992),
+    [anon_sym_LBRACK] = ACTIONS(6992),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6992),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6992),
+    [aux_sym_null_literal_token1] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6990),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6990),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6990),
+    [aux_sym_identifier_token1] = ACTIONS(6990),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6992),
+    [sym__float_literal] = ACTIONS(6992),
+    [sym__boz_literal] = ACTIONS(6992),
+    [sym__string_literal] = ACTIONS(6992),
+    [sym__string_literal_kind] = ACTIONS(6992),
+    [sym__external_end_of_statement] = ACTIONS(6992),
+  },
+  [2922] = {
+    [sym__expression] = STATE(4334),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(3653),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447333,7 +447474,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -447348,138 +447489,138 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2920] = {
-    [sym__expression] = STATE(4236),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(3755),
-    [sym_identifier] = STATE(3807),
+  [2923] = {
+    [sym__expression] = STATE(4535),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(3653),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2921] = {
-    [sym__expression] = STATE(4672),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(8611),
-    [sym_identifier] = STATE(3807),
+  [2924] = {
+    [sym__expression] = STATE(4395),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(3653),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447521,7 +447662,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -447536,44 +447677,43 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2922] = {
-    [sym__expression] = STATE(4497),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_nil_literal] = STATE(4889),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [2925] = {
+    [sym__expression] = STATE(4427),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447615,13 +447755,296 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(6994),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [anon_sym_RBRACK] = ACTIONS(6994),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2926] = {
+    [anon_sym_LPAREN2] = ACTIONS(6996),
+    [anon_sym_PLUS] = ACTIONS(6998),
+    [anon_sym_DASH] = ACTIONS(6998),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6996),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6996),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6996),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6996),
+    [aux_sym_use_statement_token2] = ACTIONS(6996),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6996),
+    [aux_sym_save_statement_token1] = ACTIONS(6996),
+    [aux_sym_private_statement_token1] = ACTIONS(6996),
+    [aux_sym_public_statement_token1] = ACTIONS(6996),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6996),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6996),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6996),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6996),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6996),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6996),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6996),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6996),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6996),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6996),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6996),
+    [anon_sym_SEMI] = ACTIONS(6998),
+    [aux_sym_stop_statement_token1] = ACTIONS(6996),
+    [aux_sym_stop_statement_token2] = ACTIONS(6996),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6996),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6996),
+    [aux_sym_include_statement_token1] = ACTIONS(6996),
+    [aux_sym_data_statement_token1] = ACTIONS(6996),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6996),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6996),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6996),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6996),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6996),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6996),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6996),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6996),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6996),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6996),
+    [aux_sym_block_construct_token1] = ACTIONS(6996),
+    [aux_sym_associate_statement_token1] = ACTIONS(6996),
+    [aux_sym_format_statement_token1] = ACTIONS(6996),
+    [aux_sym_print_statement_token1] = ACTIONS(6996),
+    [aux_sym_open_statement_token1] = ACTIONS(6996),
+    [aux_sym_close_statement_token1] = ACTIONS(6996),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6996),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6996),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6996),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6996),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6996),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6996),
+    [aux_sym_entry_statement_token1] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(6998),
+    [anon_sym_DOT] = ACTIONS(6996),
     [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LBRACK] = ACTIONS(6998),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6998),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6998),
+    [aux_sym_null_literal_token1] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6996),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6996),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6996),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6996),
+    [aux_sym_identifier_token1] = ACTIONS(6996),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6998),
+    [sym__float_literal] = ACTIONS(6998),
+    [sym__boz_literal] = ACTIONS(6998),
+    [sym__string_literal] = ACTIONS(6998),
+    [sym__string_literal_kind] = ACTIONS(6998),
+    [sym__external_end_of_statement] = ACTIONS(6998),
+  },
+  [2927] = {
+    [sym__expression] = STATE(4366),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(3653),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2928] = {
+    [sym__expression] = STATE(4684),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(8515),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -447630,44 +448053,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(7006),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2923] = {
-    [sym__expression] = STATE(4679),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(7926),
-    [sym_identifier] = STATE(3807),
+  [2929] = {
+    [sym__expression] = STATE(4655),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_nil_literal] = STATE(8055),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447709,7 +448132,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -447724,138 +448147,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(6970),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2924] = {
-    [anon_sym_LPAREN2] = ACTIONS(7014),
-    [anon_sym_PLUS] = ACTIONS(7016),
-    [anon_sym_DASH] = ACTIONS(7016),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7014),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7014),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7014),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7014),
-    [aux_sym_use_statement_token2] = ACTIONS(7014),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7014),
-    [aux_sym_save_statement_token1] = ACTIONS(7014),
-    [aux_sym_private_statement_token1] = ACTIONS(7014),
-    [aux_sym_public_statement_token1] = ACTIONS(7014),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7014),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7014),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7014),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7014),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7014),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7014),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7014),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7014),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7014),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7014),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7014),
-    [anon_sym_SEMI] = ACTIONS(7016),
-    [aux_sym_stop_statement_token1] = ACTIONS(7014),
-    [aux_sym_stop_statement_token2] = ACTIONS(7014),
-    [aux_sym_subroutine_call_token1] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token1] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token4] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token6] = ACTIONS(7014),
-    [aux_sym_keyword_statement_token7] = ACTIONS(7014),
-    [aux_sym_include_statement_token1] = ACTIONS(7014),
-    [aux_sym_data_statement_token1] = ACTIONS(7014),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(7014),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7014),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7014),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7014),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(7014),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(7014),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7014),
-    [aux_sym_select_case_statement_token3] = ACTIONS(7014),
-    [aux_sym_select_type_statement_token1] = ACTIONS(7014),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(7014),
-    [aux_sym_block_construct_token1] = ACTIONS(7014),
-    [aux_sym_associate_statement_token1] = ACTIONS(7014),
-    [aux_sym_format_statement_token1] = ACTIONS(7014),
-    [aux_sym_print_statement_token1] = ACTIONS(7014),
-    [aux_sym_open_statement_token1] = ACTIONS(7014),
-    [aux_sym_close_statement_token1] = ACTIONS(7014),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7014),
-    [aux_sym_file_position_statement_token1] = ACTIONS(7014),
-    [aux_sym_file_position_statement_token2] = ACTIONS(7014),
-    [aux_sym_file_position_statement_token3] = ACTIONS(7014),
-    [aux_sym_file_position_statement_token4] = ACTIONS(7014),
-    [aux_sym_allocate_statement_token1] = ACTIONS(7014),
-    [aux_sym_entry_statement_token1] = ACTIONS(7014),
-    [aux_sym_logical_expression_token5] = ACTIONS(7016),
-    [anon_sym_DOT] = ACTIONS(7014),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7016),
-    [anon_sym_LBRACK] = ACTIONS(7016),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7016),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7016),
-    [aux_sym_null_literal_token1] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7014),
-    [aux_sym_coarray_statement_token13] = ACTIONS(7014),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7014),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7014),
-    [aux_sym_identifier_token1] = ACTIONS(7014),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7016),
-    [sym__float_literal] = ACTIONS(7016),
-    [sym__boz_literal] = ACTIONS(7016),
-    [sym__string_literal] = ACTIONS(7016),
-    [sym__string_literal_kind] = ACTIONS(7016),
-    [sym__external_end_of_statement] = ACTIONS(7016),
-  },
-  [2925] = {
-    [sym__expression] = STATE(4686),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(8153),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [2930] = {
+    [sym__expression] = STATE(4470),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_nil_literal] = STATE(4918),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -447897,13 +448226,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -447912,138 +448241,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
+    [aux_sym_nil_literal_token1] = ACTIONS(7022),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2926] = {
-    [sym__expression] = STATE(4406),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(3755),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [2927] = {
-    [sym__expression] = STATE(4668),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_nil_literal] = STATE(8279),
-    [sym_identifier] = STATE(3807),
+  [2931] = {
+    [sym_pointer_association_statement] = STATE(8202),
+    [sym__expression] = STATE(4587),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448085,7 +448320,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -448100,45 +448335,136 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(97),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_nil_literal_token1] = ACTIONS(6956),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2928] = {
-    [sym_sized_allocation] = STATE(6113),
-    [sym_coarray_allocation] = STATE(6712),
-    [sym__expression] = STATE(4703),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(4852),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4852),
+  [2932] = {
+    [anon_sym_LPAREN2] = ACTIONS(6976),
+    [anon_sym_PLUS] = ACTIONS(6978),
+    [anon_sym_DASH] = ACTIONS(6978),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6976),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6976),
+    [aux_sym_use_statement_token2] = ACTIONS(6976),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6976),
+    [aux_sym_save_statement_token1] = ACTIONS(6976),
+    [aux_sym_private_statement_token1] = ACTIONS(6976),
+    [aux_sym_public_statement_token1] = ACTIONS(6976),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6976),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6976),
+    [aux_sym_stop_statement_token1] = ACTIONS(6976),
+    [aux_sym_stop_statement_token2] = ACTIONS(6976),
+    [aux_sym_subroutine_call_token1] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token1] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token4] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token6] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token7] = ACTIONS(6976),
+    [aux_sym_include_statement_token1] = ACTIONS(6976),
+    [aux_sym_data_statement_token1] = ACTIONS(6976),
+    [aux_sym_do_loop_statement_token1] = ACTIONS(6976),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6976),
+    [aux_sym__block_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6976),
+    [aux_sym__inline_where_statement_token1] = ACTIONS(6976),
+    [aux_sym__forall_control_expression_token1] = ACTIONS(6976),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6976),
+    [aux_sym_select_case_statement_token3] = ACTIONS(6976),
+    [aux_sym_select_type_statement_token1] = ACTIONS(6976),
+    [aux_sym_select_rank_statement_token1] = ACTIONS(6976),
+    [aux_sym_block_construct_token1] = ACTIONS(6976),
+    [aux_sym_associate_statement_token1] = ACTIONS(6976),
+    [aux_sym_format_statement_token1] = ACTIONS(6976),
+    [aux_sym_print_statement_token1] = ACTIONS(6976),
+    [aux_sym_open_statement_token1] = ACTIONS(6976),
+    [aux_sym_close_statement_token1] = ACTIONS(6976),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token1] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token2] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token3] = ACTIONS(6976),
+    [aux_sym_file_position_statement_token4] = ACTIONS(6976),
+    [aux_sym_allocate_statement_token1] = ACTIONS(6976),
+    [aux_sym_entry_statement_token1] = ACTIONS(6976),
+    [aux_sym_logical_expression_token5] = ACTIONS(6978),
+    [anon_sym_DOT] = ACTIONS(6976),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(6978),
+    [anon_sym_LBRACK] = ACTIONS(6978),
+    [aux_sym_boolean_literal_token1] = ACTIONS(6978),
+    [aux_sym_boolean_literal_token2] = ACTIONS(6978),
+    [aux_sym_null_literal_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token13] = ACTIONS(6976),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6976),
+    [aux_sym_identifier_token1] = ACTIONS(6976),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(6978),
+    [sym__float_literal] = ACTIONS(6978),
+    [sym__boz_literal] = ACTIONS(6978),
+    [sym__string_literal] = ACTIONS(6978),
+    [sym__string_literal_kind] = ACTIONS(6978),
+  },
+  [2933] = {
+    [sym_concurrent_control] = STATE(7558),
+    [sym__expression] = STATE(4682),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5079),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448180,7 +448506,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -448197,134 +448523,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2929] = {
-    [sym__expression] = STATE(4421),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_nil_literal] = STATE(4719),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_nil_literal_token1] = ACTIONS(7026),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2930] = {
-    [sym__expression] = STATE(4383),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2934] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(8561),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448366,12 +448599,10 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(7028),
     [anon_sym_LBRACK] = ACTIONS(171),
-    [anon_sym_RBRACK] = ACTIONS(7028),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
@@ -448385,41 +448616,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2931] = {
-    [sym_triplet_spec] = STATE(7448),
-    [sym__expression] = STATE(4695),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(5244),
-    [sym_relational_expression] = STATE(5244),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5246),
+  [2935] = {
+    [sym_triplet_spec] = STATE(7663),
+    [sym__expression] = STATE(4700),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(5256),
+    [sym_relational_expression] = STATE(5256),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5265),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448461,7 +448692,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -448484,126 +448715,33 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2932] = {
-    [anon_sym_LPAREN2] = ACTIONS(6962),
-    [anon_sym_PLUS] = ACTIONS(6964),
-    [anon_sym_DASH] = ACTIONS(6964),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6962),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6962),
-    [aux_sym_use_statement_token2] = ACTIONS(6962),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6962),
-    [aux_sym_save_statement_token1] = ACTIONS(6962),
-    [aux_sym_private_statement_token1] = ACTIONS(6962),
-    [aux_sym_public_statement_token1] = ACTIONS(6962),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6962),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6962),
-    [aux_sym_stop_statement_token1] = ACTIONS(6962),
-    [aux_sym_stop_statement_token2] = ACTIONS(6962),
-    [aux_sym_subroutine_call_token1] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token1] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token4] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token6] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token7] = ACTIONS(6962),
-    [aux_sym_include_statement_token1] = ACTIONS(6962),
-    [aux_sym_data_statement_token1] = ACTIONS(6962),
-    [aux_sym_do_loop_statement_token1] = ACTIONS(6962),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6962),
-    [aux_sym__block_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6962),
-    [aux_sym__inline_where_statement_token1] = ACTIONS(6962),
-    [aux_sym__forall_control_expression_token1] = ACTIONS(6962),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6962),
-    [aux_sym_select_case_statement_token3] = ACTIONS(6962),
-    [aux_sym_select_type_statement_token1] = ACTIONS(6962),
-    [aux_sym_select_rank_statement_token1] = ACTIONS(6962),
-    [aux_sym_block_construct_token1] = ACTIONS(6962),
-    [aux_sym_associate_statement_token1] = ACTIONS(6962),
-    [aux_sym_format_statement_token1] = ACTIONS(6962),
-    [aux_sym_print_statement_token1] = ACTIONS(6962),
-    [aux_sym_open_statement_token1] = ACTIONS(6962),
-    [aux_sym_close_statement_token1] = ACTIONS(6962),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token1] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token2] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token3] = ACTIONS(6962),
-    [aux_sym_file_position_statement_token4] = ACTIONS(6962),
-    [aux_sym_allocate_statement_token1] = ACTIONS(6962),
-    [aux_sym_entry_statement_token1] = ACTIONS(6962),
-    [aux_sym_logical_expression_token5] = ACTIONS(6964),
-    [anon_sym_DOT] = ACTIONS(6962),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6964),
-    [anon_sym_LBRACK] = ACTIONS(6964),
-    [aux_sym_boolean_literal_token1] = ACTIONS(6964),
-    [aux_sym_boolean_literal_token2] = ACTIONS(6964),
-    [aux_sym_null_literal_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token13] = ACTIONS(6962),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6962),
-    [aux_sym_identifier_token1] = ACTIONS(6962),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(6964),
-    [sym__float_literal] = ACTIONS(6964),
-    [sym__boz_literal] = ACTIONS(6964),
-    [sym__string_literal] = ACTIONS(6964),
-    [sym__string_literal_kind] = ACTIONS(6964),
-  },
-  [2933] = {
-    [sym__expression] = STATE(4644),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
+  [2936] = {
+    [sym__expression] = STATE(4500),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
     [anon_sym_COMMA] = ACTIONS(7030),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -448650,7 +448788,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -448670,35 +448808,35 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2934] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(8546),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [2937] = {
+    [sym_data_set] = STATE(6337),
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4853),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4853),
+    [sym_implied_do_loop_expression] = STATE(4853),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4853),
+    [anon_sym_LPAREN2] = ACTIONS(5547),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448740,7 +448878,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -448757,41 +448895,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2935] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(8592),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
+  [2938] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(8587),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -448833,7 +448971,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -448850,134 +448988,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2936] = {
-    [sym_input_item_list] = STATE(7657),
-    [sym__expression] = STATE(4382),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2937] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(8669),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
+  [2939] = {
+    [sym_triplet_spec] = STATE(7663),
+    [sym__expression] = STATE(4700),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(5253),
+    [sym_relational_expression] = STATE(5253),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5265),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449019,7 +449064,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449036,41 +449081,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2938] = {
-    [sym_triplet_spec] = STATE(7448),
-    [sym__expression] = STATE(4695),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(5245),
-    [sym_relational_expression] = STATE(5245),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5246),
+  [2940] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(8142),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449112,7 +449157,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449129,134 +449174,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2939] = {
-    [sym__expression] = STATE(4630),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_COMMA] = ACTIONS(7032),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2940] = {
-    [sym_triplet_spec] = STATE(7448),
-    [sym__expression] = STATE(4695),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(5248),
-    [sym_relational_expression] = STATE(5248),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5246),
+  [2941] = {
+    [sym_concurrent_control] = STATE(7558),
+    [sym__expression] = STATE(4670),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5079),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449298,7 +449250,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449315,134 +449267,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2941] = {
-    [sym_output_item_list] = STATE(7460),
-    [sym__expression] = STATE(4386),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
   [2942] = {
-    [sym_data_set] = STATE(6591),
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(4824),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4824),
-    [sym_implied_do_loop_expression] = STATE(4824),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4824),
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(7861),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449484,7 +449343,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449501,41 +449360,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2943] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(7718),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
+    [sym_triplet_spec] = STATE(7663),
+    [sym__expression] = STATE(4700),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(5250),
+    [sym_relational_expression] = STATE(5250),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5265),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449577,7 +449436,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449594,41 +449453,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2944] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(8460),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
+    [sym_triplet_spec] = STATE(7663),
+    [sym__expression] = STATE(4700),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(5247),
+    [sym_relational_expression] = STATE(5247),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5265),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449670,7 +449529,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449687,41 +449546,134 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2945] = {
-    [sym_pointer_association_statement] = STATE(8288),
-    [sym__expression] = STATE(4608),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym_input_item_list] = STATE(7363),
+    [sym__expression] = STATE(4380),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2946] = {
+    [sym_concurrent_control] = STATE(7558),
+    [sym__expression] = STATE(4663),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5079),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449763,7 +449715,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449780,41 +449732,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2946] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_loop_control_expression] = STATE(7727),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5132),
+  [2947] = {
+    [sym_data_set] = STATE(7311),
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(4853),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4853),
+    [sym_implied_do_loop_expression] = STATE(4853),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4853),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449856,7 +449808,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449873,41 +449825,41 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2947] = {
-    [sym_concurrent_control] = STATE(7696),
-    [sym__expression] = STATE(4647),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5240),
+  [2948] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(8087),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -449949,7 +449901,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -449966,41 +449918,227 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2948] = {
-    [sym_concurrent_control] = STATE(7696),
-    [sym__expression] = STATE(4684),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5240),
+  [2949] = {
+    [sym__expression] = STATE(4643),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_COMMA] = ACTIONS(7032),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2950] = {
+    [sym_output_item_list] = STATE(7343),
+    [sym__expression] = STATE(4431),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2951] = {
+    [sym_concurrent_control] = STATE(7558),
+    [sym__expression] = STATE(4661),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5079),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -450042,7 +450180,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -450059,41 +450197,134 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2949] = {
-    [sym_data_set] = STATE(6340),
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(4824),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4824),
-    [sym_implied_do_loop_expression] = STATE(4824),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4824),
-    [anon_sym_LPAREN2] = ACTIONS(5547),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+  [2952] = {
+    [sym__expression] = STATE(4632),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_COMMA] = ACTIONS(7034),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [2953] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_loop_control_expression] = STATE(8336),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5052),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -450135,7 +450366,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -450152,41 +450383,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2950] = {
-    [sym_triplet_spec] = STATE(7448),
-    [sym__expression] = STATE(4695),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(5249),
-    [sym_relational_expression] = STATE(5249),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5246),
+  [2954] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4911),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4911),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -450228,7 +450458,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -450251,126 +450481,492 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2951] = {
-    [sym_concurrent_control] = STATE(7696),
-    [sym__expression] = STATE(4671),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5240),
+  [2955] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5096),
+    [aux_sym_preproc_def_token1] = ACTIONS(5096),
+    [aux_sym_preproc_if_token2] = ACTIONS(5096),
+    [sym_preproc_directive] = ACTIONS(5096),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5096),
+    [aux_sym_interface_statement_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5096),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5096),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5096),
+    [aux_sym_language_binding_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5096),
+    [aux_sym_contains_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token1] = ACTIONS(5096),
+    [aux_sym_use_statement_token2] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5096),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5096),
+    [aux_sym_save_statement_token1] = ACTIONS(5096),
+    [aux_sym_private_statement_token1] = ACTIONS(5096),
+    [aux_sym_public_statement_token1] = ACTIONS(5096),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5096),
+    [aux_sym_common_statement_token1] = ACTIONS(5096),
+    [aux_sym_import_statement_token1] = ACTIONS(5096),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5096),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5096),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5096),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5096),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5096),
+    [aux_sym_derived_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token1] = ACTIONS(5096),
+    [aux_sym_declared_type_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5096),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5096),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5096),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token1] = ACTIONS(5096),
+    [aux_sym_stop_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5096),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5096),
+    [aux_sym_include_statement_token1] = ACTIONS(5096),
+    [aux_sym_data_statement_token1] = ACTIONS(5096),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5096),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5096),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5096),
+    [aux_sym_block_construct_token1] = ACTIONS(5096),
+    [aux_sym_format_statement_token1] = ACTIONS(5096),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5096),
+    [aux_sym_enum_statement_token1] = ACTIONS(5096),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5096),
+    [aux_sym_entry_statement_token1] = ACTIONS(5096),
+    [aux_sym_null_literal_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5096),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5096),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5096),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5096),
+    [aux_sym_identifier_token1] = ACTIONS(5096),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5098),
+  },
+  [2956] = {
+    [sym__expression] = STATE(4405),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
   },
-  [2952] = {
-    [sym__expression] = STATE(4603),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_COMMA] = ACTIONS(7034),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2957] = {
+    [sym__expression] = STATE(4406),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2958] = {
+    [sym__expression] = STATE(4409),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2959] = {
+    [sym__expression] = STATE(4410),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2960] = {
+    [sym__expression] = STATE(4365),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -450417,7 +451013,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -450437,35 +451033,310 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2953] = {
-    [sym_concurrent_control] = STATE(7696),
-    [sym__expression] = STATE(4667),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5240),
+  [2961] = {
+    [sym__expression] = STATE(4413),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2962] = {
+    [sym__expression] = STATE(4415),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2963] = {
+    [sym__name] = STATE(7142),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4530),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7036),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7038),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7038),
+  },
+  [2964] = {
+    [sym__expression] = STATE(4460),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(4971),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(4971),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4971),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -450507,7 +451378,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -450524,38 +451395,130 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
+  },
+  [2965] = {
+    [sym__name] = STATE(6648),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(899),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7040),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7042),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7042),
   },
-  [2954] = {
-    [sym__expression] = STATE(4380),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2966] = {
+    [sym__expression] = STATE(4632),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -450602,7 +451565,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -450622,31 +451585,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2955] = {
-    [sym__name] = STATE(6765),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4533),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [2967] = {
+    [sym__expression] = STATE(4631),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7036),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -450671,7 +451641,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7038),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -450685,22 +451654,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -450709,220 +451669,46 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7038),
-  },
-  [2956] = {
-    [sym__expression] = STATE(4470),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2957] = {
-    [sym__expression] = STATE(4681),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [2968] = {
+    [sym__expression] = STATE(4374),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2958] = {
-    [sym__name] = STATE(6767),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4552),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7040),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -450947,7 +451733,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7042),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -450961,22 +451746,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -450985,39 +451761,42 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7042),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2959] = {
-    [sym__expression] = STATE(4471),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [2969] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(4949),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4949),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -451059,13 +451838,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -451076,40 +451855,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2960] = {
-    [sym__expression] = STATE(4483),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [2970] = {
+    [sym__expression] = STATE(4630),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -451151,13 +451930,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -451168,40 +451947,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2961] = {
-    [sym__expression] = STATE(4473),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [2971] = {
+    [sym__expression] = STATE(4629),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -451243,13 +452022,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -451260,44 +452039,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2962] = {
-    [sym__expression] = STATE(4641),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
+  [2972] = {
+    [sym__name] = STATE(6713),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4600),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7044),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -451322,6 +452094,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7046),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -451335,13 +452108,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -451350,315 +452132,43 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2963] = {
-    [sym__expression] = STATE(4394),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [2964] = {
-    [sym__expression] = STATE(4590),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__external_end_of_statement] = ACTIONS(7046),
   },
-  [2965] = {
-    [sym__expression] = STATE(4628),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [2973] = {
+    [sym__expression] = STATE(4407),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2966] = {
-    [sym__name] = STATE(6627),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1044),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7044),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -451683,7 +452193,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7046),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -451697,22 +452206,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -451721,39 +452221,42 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7046),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2967] = {
-    [sym__expression] = STATE(4638),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2974] = {
+    [sym__expression] = STATE(4376),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -451795,7 +452298,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -451812,132 +452315,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2968] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5086),
-    [aux_sym_preproc_def_token1] = ACTIONS(5086),
-    [aux_sym_preproc_if_token2] = ACTIONS(5086),
-    [sym_preproc_directive] = ACTIONS(5086),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5086),
-    [aux_sym_interface_statement_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5086),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5086),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5086),
-    [aux_sym_language_binding_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5086),
-    [aux_sym_contains_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token1] = ACTIONS(5086),
-    [aux_sym_use_statement_token2] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5086),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5086),
-    [aux_sym_save_statement_token1] = ACTIONS(5086),
-    [aux_sym_private_statement_token1] = ACTIONS(5086),
-    [aux_sym_public_statement_token1] = ACTIONS(5086),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5086),
-    [aux_sym_common_statement_token1] = ACTIONS(5086),
-    [aux_sym_import_statement_token1] = ACTIONS(5086),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5086),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5086),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5086),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5086),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5086),
-    [aux_sym_derived_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token1] = ACTIONS(5086),
-    [aux_sym_declared_type_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5086),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5086),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5086),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token1] = ACTIONS(5086),
-    [aux_sym_stop_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5086),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5086),
-    [aux_sym_include_statement_token1] = ACTIONS(5086),
-    [aux_sym_data_statement_token1] = ACTIONS(5086),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5086),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5086),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5086),
-    [aux_sym_block_construct_token1] = ACTIONS(5086),
-    [aux_sym_format_statement_token1] = ACTIONS(5086),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5086),
-    [aux_sym_enum_statement_token1] = ACTIONS(5086),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5086),
-    [aux_sym_entry_statement_token1] = ACTIONS(5086),
-    [aux_sym_null_literal_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5086),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5086),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5086),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5086),
-    [aux_sym_identifier_token1] = ACTIONS(5086),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5088),
-  },
-  [2969] = {
-    [sym__expression] = STATE(4642),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2975] = {
+    [sym__expression] = STATE(4371),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -451979,7 +452390,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -451996,37 +452407,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2970] = {
-    [sym__name] = STATE(6559),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4568),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [2976] = {
+    [sym__name] = STATE(6666),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1037),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_program_statement_token1] = ACTIONS(7048),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7048),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -452065,21 +452476,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -452089,39 +452500,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7050),
   },
-  [2971] = {
-    [sym__expression] = STATE(4622),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2977] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(5243),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5243),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -452186,31 +452597,31 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2972] = {
-    [sym__name] = STATE(6809),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5228),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [2978] = {
+    [sym__name] = STATE(7227),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5014),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
     [aux_sym_module_procedure_statement_token1] = ACTIONS(7052),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -452249,21 +452660,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -452273,407 +452684,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7054),
   },
-  [2973] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5038),
-    [aux_sym_preproc_def_token1] = ACTIONS(5038),
-    [aux_sym_preproc_if_token2] = ACTIONS(5038),
-    [sym_preproc_directive] = ACTIONS(5038),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5038),
-    [aux_sym_interface_statement_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5038),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5038),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5038),
-    [aux_sym_language_binding_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5038),
-    [aux_sym_contains_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token1] = ACTIONS(5038),
-    [aux_sym_use_statement_token2] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5038),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5038),
-    [aux_sym_save_statement_token1] = ACTIONS(5038),
-    [aux_sym_private_statement_token1] = ACTIONS(5038),
-    [aux_sym_public_statement_token1] = ACTIONS(5038),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5038),
-    [aux_sym_common_statement_token1] = ACTIONS(5038),
-    [aux_sym_import_statement_token1] = ACTIONS(5038),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5038),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5038),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5038),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5038),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5038),
-    [aux_sym_derived_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token1] = ACTIONS(5038),
-    [aux_sym_declared_type_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5038),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5038),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5038),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token1] = ACTIONS(5038),
-    [aux_sym_stop_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5038),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5038),
-    [aux_sym_include_statement_token1] = ACTIONS(5038),
-    [aux_sym_data_statement_token1] = ACTIONS(5038),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5038),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5038),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5038),
-    [aux_sym_block_construct_token1] = ACTIONS(5038),
-    [aux_sym_format_statement_token1] = ACTIONS(5038),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5038),
-    [aux_sym_enum_statement_token1] = ACTIONS(5038),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5038),
-    [aux_sym_entry_statement_token1] = ACTIONS(5038),
-    [aux_sym_null_literal_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5038),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5038),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5038),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5038),
-    [aux_sym_identifier_token1] = ACTIONS(5038),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5040),
-  },
-  [2974] = {
-    [sym__expression] = STATE(4443),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [2975] = {
-    [sym__expression] = STATE(4580),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2976] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5104),
-    [aux_sym_preproc_def_token1] = ACTIONS(5104),
-    [aux_sym_preproc_if_token2] = ACTIONS(5104),
-    [sym_preproc_directive] = ACTIONS(5104),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
-    [aux_sym_interface_statement_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
-    [aux_sym_language_binding_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
-    [aux_sym_contains_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token1] = ACTIONS(5104),
-    [aux_sym_use_statement_token2] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
-    [aux_sym_save_statement_token1] = ACTIONS(5104),
-    [aux_sym_private_statement_token1] = ACTIONS(5104),
-    [aux_sym_public_statement_token1] = ACTIONS(5104),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
-    [aux_sym_common_statement_token1] = ACTIONS(5104),
-    [aux_sym_import_statement_token1] = ACTIONS(5104),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
-    [aux_sym_derived_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token1] = ACTIONS(5104),
-    [aux_sym_declared_type_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token1] = ACTIONS(5104),
-    [aux_sym_stop_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
-    [aux_sym_include_statement_token1] = ACTIONS(5104),
-    [aux_sym_data_statement_token1] = ACTIONS(5104),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
-    [aux_sym_block_construct_token1] = ACTIONS(5104),
-    [aux_sym_format_statement_token1] = ACTIONS(5104),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
-    [aux_sym_enum_statement_token1] = ACTIONS(5104),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
-    [aux_sym_entry_statement_token1] = ACTIONS(5104),
-    [aux_sym_null_literal_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
-    [aux_sym_identifier_token1] = ACTIONS(5104),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5106),
-  },
-  [2977] = {
-    [sym__expression] = STATE(4631),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2979] = {
+    [sym__expression] = STATE(4450),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(4948),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(4948),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4948),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -452715,7 +452758,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -452732,40 +452775,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2978] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(5250),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5250),
+  [2980] = {
+    [sym__expression] = STATE(4501),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -452830,123 +452873,123 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2979] = {
-    [sym__expression] = STATE(4417),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [2981] = {
+    [sym__expression] = STATE(4379),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
   },
-  [2980] = {
-    [sym__name] = STATE(6823),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5058),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [2982] = {
+    [sym__name] = STATE(6731),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5011),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7056),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -452985,21 +453028,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -453009,312 +453052,128 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7058),
   },
-  [2981] = {
-    [sym__expression] = STATE(4572),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2982] = {
-    [sym__expression] = STATE(4370),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2983] = {
+    [sym__expression] = STATE(4526),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2983] = {
-    [sym__name] = STATE(6826),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5077),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7060),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7062),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7062),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
   [2984] = {
-    [sym__name] = STATE(6922),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(884),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+    [sym__name] = STATE(7137),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4527),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7064),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7060),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -453339,7 +453198,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7066),
+    [anon_sym_SEMI] = ACTIONS(7062),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -453353,21 +453212,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -453377,39 +453236,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7066),
+    [sym__external_end_of_statement] = ACTIONS(7062),
   },
   [2985] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(5167),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5167),
+    [sym__expression] = STATE(4637),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -453451,7 +453310,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -453468,40 +453327,224 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
   [2986] = {
-    [sym__expression] = STATE(4589),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym__expression] = STATE(4377),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
+  [2987] = {
+    [sym__expression] = STATE(4241),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [2988] = {
+    [sym__expression] = STATE(4457),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -453543,7 +453586,191 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
+  },
+  [2989] = {
+    [sym__expression] = STATE(4234),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [2990] = {
+    [sym__expression] = STATE(4363),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -453560,136 +453787,313 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2987] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5108),
-    [aux_sym_preproc_def_token1] = ACTIONS(5108),
-    [aux_sym_preproc_if_token2] = ACTIONS(5108),
-    [sym_preproc_directive] = ACTIONS(5108),
+  [2991] = {
+    [sym__expression] = STATE(4653),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
-    [aux_sym_interface_statement_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
-    [aux_sym_language_binding_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
-    [aux_sym_contains_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token1] = ACTIONS(5108),
-    [aux_sym_use_statement_token2] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
-    [aux_sym_save_statement_token1] = ACTIONS(5108),
-    [aux_sym_private_statement_token1] = ACTIONS(5108),
-    [aux_sym_public_statement_token1] = ACTIONS(5108),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
-    [aux_sym_common_statement_token1] = ACTIONS(5108),
-    [aux_sym_import_statement_token1] = ACTIONS(5108),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
-    [aux_sym_derived_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token1] = ACTIONS(5108),
-    [aux_sym_declared_type_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token1] = ACTIONS(5108),
-    [aux_sym_stop_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
-    [aux_sym_include_statement_token1] = ACTIONS(5108),
-    [aux_sym_data_statement_token1] = ACTIONS(5108),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
-    [aux_sym_block_construct_token1] = ACTIONS(5108),
-    [aux_sym_format_statement_token1] = ACTIONS(5108),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
-    [aux_sym_enum_statement_token1] = ACTIONS(5108),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
-    [aux_sym_entry_statement_token1] = ACTIONS(5108),
-    [aux_sym_null_literal_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
-    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5110),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2988] = {
-    [sym__expression] = STATE(4416),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2992] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4469),
+    [aux_sym_preproc_def_token1] = ACTIONS(4469),
+    [aux_sym_preproc_if_token2] = ACTIONS(4469),
+    [sym_preproc_directive] = ACTIONS(4469),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4469),
+    [aux_sym_interface_statement_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4469),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4469),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4469),
+    [aux_sym_language_binding_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4469),
+    [aux_sym_contains_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token1] = ACTIONS(4469),
+    [aux_sym_use_statement_token2] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4469),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4469),
+    [aux_sym_save_statement_token1] = ACTIONS(4469),
+    [aux_sym_private_statement_token1] = ACTIONS(4469),
+    [aux_sym_public_statement_token1] = ACTIONS(4469),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4469),
+    [aux_sym_common_statement_token1] = ACTIONS(4469),
+    [aux_sym_import_statement_token1] = ACTIONS(4469),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4469),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4469),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4469),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4469),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4469),
+    [aux_sym_derived_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token1] = ACTIONS(4469),
+    [aux_sym_declared_type_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4469),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4469),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4469),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token1] = ACTIONS(4469),
+    [aux_sym_stop_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4469),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4469),
+    [aux_sym_include_statement_token1] = ACTIONS(4469),
+    [aux_sym_data_statement_token1] = ACTIONS(4469),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4469),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4469),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4469),
+    [aux_sym_block_construct_token1] = ACTIONS(4469),
+    [aux_sym_format_statement_token1] = ACTIONS(4469),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4469),
+    [aux_sym_enum_statement_token1] = ACTIONS(4469),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4469),
+    [aux_sym_entry_statement_token1] = ACTIONS(4469),
+    [aux_sym_null_literal_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4469),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4469),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4469),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4469),
+    [aux_sym_identifier_token1] = ACTIONS(4469),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4471),
+  },
+  [2993] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4535),
+    [aux_sym_preproc_def_token1] = ACTIONS(4535),
+    [aux_sym_preproc_if_token2] = ACTIONS(4535),
+    [sym_preproc_directive] = ACTIONS(4535),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4535),
+    [aux_sym_interface_statement_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4535),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4535),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4535),
+    [aux_sym_language_binding_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4535),
+    [aux_sym_contains_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token1] = ACTIONS(4535),
+    [aux_sym_use_statement_token2] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4535),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4535),
+    [aux_sym_save_statement_token1] = ACTIONS(4535),
+    [aux_sym_private_statement_token1] = ACTIONS(4535),
+    [aux_sym_public_statement_token1] = ACTIONS(4535),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4535),
+    [aux_sym_common_statement_token1] = ACTIONS(4535),
+    [aux_sym_import_statement_token1] = ACTIONS(4535),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4535),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4535),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4535),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4535),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4535),
+    [aux_sym_derived_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token1] = ACTIONS(4535),
+    [aux_sym_declared_type_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4535),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4535),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4535),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token1] = ACTIONS(4535),
+    [aux_sym_stop_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4535),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4535),
+    [aux_sym_include_statement_token1] = ACTIONS(4535),
+    [aux_sym_data_statement_token1] = ACTIONS(4535),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4535),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4535),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4535),
+    [aux_sym_block_construct_token1] = ACTIONS(4535),
+    [aux_sym_format_statement_token1] = ACTIONS(4535),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4535),
+    [aux_sym_enum_statement_token1] = ACTIONS(4535),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4535),
+    [aux_sym_entry_statement_token1] = ACTIONS(4535),
+    [aux_sym_null_literal_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4535),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4535),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4535),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4535),
+    [aux_sym_identifier_token1] = ACTIONS(4535),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4537),
+  },
+  [2994] = {
+    [sym__name] = STATE(6578),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1019),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7064),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -453714,6 +454118,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7066),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -453727,13 +454132,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -453742,39 +454156,36 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(7066),
   },
-  [2989] = {
-    [sym__name] = STATE(6576),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4992),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [2995] = {
+    [sym__name] = STATE(6749),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5180),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
     [aux_sym_subroutine_statement_token1] = ACTIONS(7068),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -453813,21 +454224,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -453837,37 +454248,313 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7070),
   },
-  [2990] = {
-    [sym__expression] = STATE(4462),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [2996] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4539),
+    [aux_sym_preproc_def_token1] = ACTIONS(4539),
+    [aux_sym_preproc_if_token2] = ACTIONS(4539),
+    [sym_preproc_directive] = ACTIONS(4539),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4539),
+    [aux_sym_interface_statement_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4539),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4539),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4539),
+    [aux_sym_language_binding_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4539),
+    [aux_sym_contains_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token1] = ACTIONS(4539),
+    [aux_sym_use_statement_token2] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4539),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4539),
+    [aux_sym_save_statement_token1] = ACTIONS(4539),
+    [aux_sym_private_statement_token1] = ACTIONS(4539),
+    [aux_sym_public_statement_token1] = ACTIONS(4539),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4539),
+    [aux_sym_common_statement_token1] = ACTIONS(4539),
+    [aux_sym_import_statement_token1] = ACTIONS(4539),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4539),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4539),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4539),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4539),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4539),
+    [aux_sym_derived_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token1] = ACTIONS(4539),
+    [aux_sym_declared_type_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4539),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4539),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4539),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token1] = ACTIONS(4539),
+    [aux_sym_stop_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4539),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4539),
+    [aux_sym_include_statement_token1] = ACTIONS(4539),
+    [aux_sym_data_statement_token1] = ACTIONS(4539),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4539),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4539),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4539),
+    [aux_sym_block_construct_token1] = ACTIONS(4539),
+    [aux_sym_format_statement_token1] = ACTIONS(4539),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4539),
+    [aux_sym_enum_statement_token1] = ACTIONS(4539),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4539),
+    [aux_sym_entry_statement_token1] = ACTIONS(4539),
+    [aux_sym_null_literal_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4539),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4539),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4539),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4539),
+    [aux_sym_identifier_token1] = ACTIONS(4539),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4541),
+  },
+  [2997] = {
+    [sym__name] = STATE(6573),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1015),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7072),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7074),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7074),
+  },
+  [2998] = {
+    [sym__name] = STATE(6754),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5184),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7076),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7078),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7078),
+  },
+  [2999] = {
+    [sym__expression] = STATE(4542),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -453914,7 +454601,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -453934,32 +454621,216 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2991] = {
-    [sym__expression] = STATE(4396),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3000] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4543),
+    [aux_sym_preproc_def_token1] = ACTIONS(4543),
+    [aux_sym_preproc_if_token2] = ACTIONS(4543),
+    [sym_preproc_directive] = ACTIONS(4543),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4543),
+    [aux_sym_interface_statement_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4543),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4543),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4543),
+    [aux_sym_language_binding_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4543),
+    [aux_sym_contains_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token1] = ACTIONS(4543),
+    [aux_sym_use_statement_token2] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4543),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4543),
+    [aux_sym_save_statement_token1] = ACTIONS(4543),
+    [aux_sym_private_statement_token1] = ACTIONS(4543),
+    [aux_sym_public_statement_token1] = ACTIONS(4543),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4543),
+    [aux_sym_common_statement_token1] = ACTIONS(4543),
+    [aux_sym_import_statement_token1] = ACTIONS(4543),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4543),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4543),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4543),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4543),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4543),
+    [aux_sym_derived_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token1] = ACTIONS(4543),
+    [aux_sym_declared_type_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4543),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4543),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4543),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token1] = ACTIONS(4543),
+    [aux_sym_stop_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4543),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4543),
+    [aux_sym_include_statement_token1] = ACTIONS(4543),
+    [aux_sym_data_statement_token1] = ACTIONS(4543),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4543),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4543),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4543),
+    [aux_sym_block_construct_token1] = ACTIONS(4543),
+    [aux_sym_format_statement_token1] = ACTIONS(4543),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4543),
+    [aux_sym_enum_statement_token1] = ACTIONS(4543),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4543),
+    [aux_sym_entry_statement_token1] = ACTIONS(4543),
+    [aux_sym_null_literal_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4543),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4543),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4543),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4543),
+    [aux_sym_identifier_token1] = ACTIONS(4543),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4545),
+  },
+  [3001] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4595),
+    [aux_sym_preproc_def_token1] = ACTIONS(4595),
+    [aux_sym_preproc_if_token2] = ACTIONS(4595),
+    [sym_preproc_directive] = ACTIONS(4595),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4595),
+    [aux_sym_interface_statement_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4595),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4595),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4595),
+    [aux_sym_language_binding_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4595),
+    [aux_sym_contains_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token1] = ACTIONS(4595),
+    [aux_sym_use_statement_token2] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4595),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4595),
+    [aux_sym_save_statement_token1] = ACTIONS(4595),
+    [aux_sym_private_statement_token1] = ACTIONS(4595),
+    [aux_sym_public_statement_token1] = ACTIONS(4595),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4595),
+    [aux_sym_common_statement_token1] = ACTIONS(4595),
+    [aux_sym_import_statement_token1] = ACTIONS(4595),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4595),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4595),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4595),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4595),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4595),
+    [aux_sym_derived_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token1] = ACTIONS(4595),
+    [aux_sym_declared_type_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4595),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4595),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4595),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token1] = ACTIONS(4595),
+    [aux_sym_stop_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4595),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4595),
+    [aux_sym_include_statement_token1] = ACTIONS(4595),
+    [aux_sym_data_statement_token1] = ACTIONS(4595),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4595),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4595),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4595),
+    [aux_sym_block_construct_token1] = ACTIONS(4595),
+    [aux_sym_format_statement_token1] = ACTIONS(4595),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4595),
+    [aux_sym_enum_statement_token1] = ACTIONS(4595),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4595),
+    [aux_sym_entry_statement_token1] = ACTIONS(4595),
+    [aux_sym_null_literal_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4595),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4595),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4595),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4595),
+    [aux_sym_identifier_token1] = ACTIONS(4595),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4597),
+  },
+  [3002] = {
+    [sym__expression] = STATE(4532),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -454006,7 +454877,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -454026,31 +454897,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2992] = {
-    [sym__name] = STATE(6578),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4994),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3003] = {
+    [sym__expression] = STATE(4444),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7072),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -454075,7 +454953,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7074),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -454089,22 +454966,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -454113,39 +454981,42 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7074),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [2993] = {
-    [sym__expression] = STATE(4399),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3004] = {
+    [sym__expression] = STATE(4675),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -454187,7 +455058,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -454204,224 +455075,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2994] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4605),
-    [aux_sym_preproc_def_token1] = ACTIONS(4605),
-    [aux_sym_preproc_if_token2] = ACTIONS(4605),
-    [sym_preproc_directive] = ACTIONS(4605),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4605),
-    [aux_sym_interface_statement_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4605),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4605),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4605),
-    [aux_sym_language_binding_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4605),
-    [aux_sym_contains_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token1] = ACTIONS(4605),
-    [aux_sym_use_statement_token2] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4605),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4605),
-    [aux_sym_save_statement_token1] = ACTIONS(4605),
-    [aux_sym_private_statement_token1] = ACTIONS(4605),
-    [aux_sym_public_statement_token1] = ACTIONS(4605),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4605),
-    [aux_sym_common_statement_token1] = ACTIONS(4605),
-    [aux_sym_import_statement_token1] = ACTIONS(4605),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4605),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4605),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4605),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4605),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4605),
-    [aux_sym_derived_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token1] = ACTIONS(4605),
-    [aux_sym_declared_type_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4605),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4605),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4605),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token1] = ACTIONS(4605),
-    [aux_sym_stop_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4605),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4605),
-    [aux_sym_include_statement_token1] = ACTIONS(4605),
-    [aux_sym_data_statement_token1] = ACTIONS(4605),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4605),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4605),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4605),
-    [aux_sym_block_construct_token1] = ACTIONS(4605),
-    [aux_sym_format_statement_token1] = ACTIONS(4605),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4605),
-    [aux_sym_enum_statement_token1] = ACTIONS(4605),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4605),
-    [aux_sym_entry_statement_token1] = ACTIONS(4605),
-    [aux_sym_null_literal_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4605),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4605),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4605),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4605),
-    [aux_sym_identifier_token1] = ACTIONS(4605),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4607),
-  },
-  [2995] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4609),
-    [aux_sym_preproc_def_token1] = ACTIONS(4609),
-    [aux_sym_preproc_if_token2] = ACTIONS(4609),
-    [sym_preproc_directive] = ACTIONS(4609),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4609),
-    [aux_sym_interface_statement_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4609),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4609),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4609),
-    [aux_sym_language_binding_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4609),
-    [aux_sym_contains_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token1] = ACTIONS(4609),
-    [aux_sym_use_statement_token2] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4609),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4609),
-    [aux_sym_save_statement_token1] = ACTIONS(4609),
-    [aux_sym_private_statement_token1] = ACTIONS(4609),
-    [aux_sym_public_statement_token1] = ACTIONS(4609),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4609),
-    [aux_sym_common_statement_token1] = ACTIONS(4609),
-    [aux_sym_import_statement_token1] = ACTIONS(4609),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4609),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4609),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4609),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4609),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4609),
-    [aux_sym_derived_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token1] = ACTIONS(4609),
-    [aux_sym_declared_type_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4609),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4609),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4609),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token1] = ACTIONS(4609),
-    [aux_sym_stop_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4609),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4609),
-    [aux_sym_include_statement_token1] = ACTIONS(4609),
-    [aux_sym_data_statement_token1] = ACTIONS(4609),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4609),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4609),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4609),
-    [aux_sym_block_construct_token1] = ACTIONS(4609),
-    [aux_sym_format_statement_token1] = ACTIONS(4609),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4609),
-    [aux_sym_enum_statement_token1] = ACTIONS(4609),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4609),
-    [aux_sym_entry_statement_token1] = ACTIONS(4609),
-    [aux_sym_null_literal_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4609),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4609),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4609),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4609),
-    [aux_sym_identifier_token1] = ACTIONS(4609),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4611),
-  },
-  [2996] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5253),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(5253),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(5253),
-    [sym_number_literal] = STATE(5253),
-    [sym_boolean_literal] = STATE(5253),
-    [sym_null_literal] = STATE(5253),
-    [sym_string_literal] = STATE(5253),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5253),
+  [3005] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(5080),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(5080),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(5080),
+    [sym_number_literal] = STATE(5080),
+    [sym_boolean_literal] = STATE(5080),
+    [sym_null_literal] = STATE(5080),
+    [sym_string_literal] = STATE(5080),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5080),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -454480,40 +455167,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2997] = {
-    [sym__expression] = STATE(4618),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3006] = {
+    [sym__expression] = STATE(4411),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -454555,7 +455242,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -454572,132 +455259,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [2998] = {
-    [sym__expression] = STATE(4463),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [2999] = {
-    [sym__expression] = STATE(4474),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5053),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5053),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5053),
+  [3007] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(5264),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(5264),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(5264),
+    [sym_number_literal] = STATE(5255),
+    [sym_boolean_literal] = STATE(5264),
+    [sym_null_literal] = STATE(5264),
+    [sym_string_literal] = STATE(5264),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5264),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -454739,7 +455334,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -454756,132 +455351,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3000] = {
-    [sym__name] = STATE(6872),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5133),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7076),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7078),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7078),
-  },
-  [3001] = {
-    [sym__expression] = STATE(4393),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3008] = {
+    [sym__expression] = STATE(4414),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -454923,7 +455426,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -454940,224 +455443,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3002] = {
-    [sym__name] = STATE(6876),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5162),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7080),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7082),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7082),
-  },
-  [3003] = {
-    [sym__expression] = STATE(4418),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [3004] = {
-    [sym__expression] = STATE(4676),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3009] = {
+    [sym__expression] = STATE(4417),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -455199,7 +455518,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -455216,222 +455535,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3005] = {
-    [sym__expression] = STATE(4364),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [3006] = {
-    [sym__name] = STATE(6599),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1041),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7084),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7086),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7086),
-  },
-  [3007] = {
-    [sym__expression] = STATE(4365),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3010] = {
+    [sym__expression] = STATE(4643),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -455478,7 +455613,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -455498,34 +455633,34 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3008] = {
-    [sym__expression] = STATE(4498),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3011] = {
+    [sym__expression] = STATE(4636),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -455567,7 +455702,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -455584,38 +455719,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3009] = {
-    [sym__expression] = STATE(4366),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3012] = {
+    [sym__expression] = STATE(4639),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -455662,7 +455797,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -455682,126 +455817,126 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3010] = {
-    [sym__expression] = STATE(4368),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3013] = {
+    [sym__expression] = STATE(4627),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3011] = {
-    [sym__expression] = STATE(4601),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3014] = {
+    [sym__expression] = STATE(4626),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -455843,7 +455978,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -455860,40 +455995,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3012] = {
-    [sym__expression] = STATE(4604),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3015] = {
+    [sym__expression] = STATE(4418),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -455935,7 +456070,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -455952,224 +456087,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3013] = {
-    [sym__expression] = STATE(4237),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3016] = {
+    [sym__expression] = STATE(4421),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3014] = {
-    [sym__name] = STATE(6921),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4790),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7088),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7090),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7090),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3015] = {
-    [sym__expression] = STATE(4511),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3017] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(5258),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5258),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -456211,7 +456254,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -456228,129 +456271,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3016] = {
-    [sym__expression] = STATE(4243),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3017] = {
-    [sym__name] = STATE(6925),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4792),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3018] = {
+    [sym__name] = STATE(6714),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5082),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7080),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -456375,7 +456326,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7094),
+    [anon_sym_SEMI] = ACTIONS(7082),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -456389,21 +456340,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -456413,223 +456364,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7094),
-  },
-  [3018] = {
-    [sym__expression] = STATE(4238),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+    [sym__external_end_of_statement] = ACTIONS(7082),
   },
   [3019] = {
-    [sym__expression] = STATE(4376),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [3020] = {
-    [sym__expression] = STATE(4685),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym__expression] = STATE(4422),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -456671,7 +456438,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -456688,40 +456455,224 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
+  [3020] = {
+    [sym__expression] = STATE(4402),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
+  },
   [3021] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(4842),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4842),
+    [aux_sym_preproc_include_token1] = ACTIONS(4607),
+    [aux_sym_preproc_def_token1] = ACTIONS(4607),
+    [aux_sym_preproc_if_token2] = ACTIONS(4607),
+    [sym_preproc_directive] = ACTIONS(4607),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4607),
+    [aux_sym_interface_statement_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4607),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4607),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4607),
+    [aux_sym_language_binding_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4607),
+    [aux_sym_contains_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token1] = ACTIONS(4607),
+    [aux_sym_use_statement_token2] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4607),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4607),
+    [aux_sym_save_statement_token1] = ACTIONS(4607),
+    [aux_sym_private_statement_token1] = ACTIONS(4607),
+    [aux_sym_public_statement_token1] = ACTIONS(4607),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4607),
+    [aux_sym_common_statement_token1] = ACTIONS(4607),
+    [aux_sym_import_statement_token1] = ACTIONS(4607),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4607),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4607),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4607),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4607),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4607),
+    [aux_sym_derived_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token1] = ACTIONS(4607),
+    [aux_sym_declared_type_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4607),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4607),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4607),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token1] = ACTIONS(4607),
+    [aux_sym_stop_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4607),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4607),
+    [aux_sym_include_statement_token1] = ACTIONS(4607),
+    [aux_sym_data_statement_token1] = ACTIONS(4607),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4607),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4607),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4607),
+    [aux_sym_block_construct_token1] = ACTIONS(4607),
+    [aux_sym_format_statement_token1] = ACTIONS(4607),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4607),
+    [aux_sym_enum_statement_token1] = ACTIONS(4607),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4607),
+    [aux_sym_entry_statement_token1] = ACTIONS(4607),
+    [aux_sym_null_literal_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4607),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4607),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4607),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4607),
+    [aux_sym_identifier_token1] = ACTIONS(4607),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4609),
+  },
+  [3022] = {
+    [sym__expression] = STATE(4671),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -456763,7 +456714,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -456780,228 +456731,129 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3022] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5042),
-    [aux_sym_preproc_def_token1] = ACTIONS(5042),
-    [aux_sym_preproc_if_token2] = ACTIONS(5042),
-    [sym_preproc_directive] = ACTIONS(5042),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5042),
-    [aux_sym_interface_statement_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5042),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5042),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5042),
-    [aux_sym_language_binding_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5042),
-    [aux_sym_contains_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token1] = ACTIONS(5042),
-    [aux_sym_use_statement_token2] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5042),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5042),
-    [aux_sym_save_statement_token1] = ACTIONS(5042),
-    [aux_sym_private_statement_token1] = ACTIONS(5042),
-    [aux_sym_public_statement_token1] = ACTIONS(5042),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5042),
-    [aux_sym_common_statement_token1] = ACTIONS(5042),
-    [aux_sym_import_statement_token1] = ACTIONS(5042),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5042),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5042),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5042),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5042),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5042),
-    [aux_sym_derived_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token1] = ACTIONS(5042),
-    [aux_sym_declared_type_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5042),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5042),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5042),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token1] = ACTIONS(5042),
-    [aux_sym_stop_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5042),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5042),
-    [aux_sym_include_statement_token1] = ACTIONS(5042),
-    [aux_sym_data_statement_token1] = ACTIONS(5042),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5042),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5042),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5042),
-    [aux_sym_block_construct_token1] = ACTIONS(5042),
-    [aux_sym_format_statement_token1] = ACTIONS(5042),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5042),
-    [aux_sym_enum_statement_token1] = ACTIONS(5042),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5042),
-    [aux_sym_entry_statement_token1] = ACTIONS(5042),
-    [aux_sym_null_literal_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5042),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5042),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5042),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5042),
-    [aux_sym_identifier_token1] = ACTIONS(5042),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5044),
-  },
   [3023] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5046),
-    [aux_sym_preproc_def_token1] = ACTIONS(5046),
-    [aux_sym_preproc_if_token2] = ACTIONS(5046),
-    [sym_preproc_directive] = ACTIONS(5046),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5046),
-    [aux_sym_interface_statement_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5046),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5046),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5046),
-    [aux_sym_language_binding_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5046),
-    [aux_sym_contains_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token1] = ACTIONS(5046),
-    [aux_sym_use_statement_token2] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5046),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5046),
-    [aux_sym_save_statement_token1] = ACTIONS(5046),
-    [aux_sym_private_statement_token1] = ACTIONS(5046),
-    [aux_sym_public_statement_token1] = ACTIONS(5046),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5046),
-    [aux_sym_common_statement_token1] = ACTIONS(5046),
-    [aux_sym_import_statement_token1] = ACTIONS(5046),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5046),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5046),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5046),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5046),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5046),
-    [aux_sym_derived_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token1] = ACTIONS(5046),
-    [aux_sym_declared_type_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5046),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5046),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5046),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token1] = ACTIONS(5046),
-    [aux_sym_stop_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5046),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5046),
-    [aux_sym_include_statement_token1] = ACTIONS(5046),
-    [aux_sym_data_statement_token1] = ACTIONS(5046),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5046),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5046),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5046),
-    [aux_sym_block_construct_token1] = ACTIONS(5046),
-    [aux_sym_format_statement_token1] = ACTIONS(5046),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5046),
-    [aux_sym_enum_statement_token1] = ACTIONS(5046),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5046),
-    [aux_sym_entry_statement_token1] = ACTIONS(5046),
-    [aux_sym_null_literal_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5046),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5046),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5046),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5046),
-    [aux_sym_identifier_token1] = ACTIONS(5046),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5048),
+    [aux_sym_preproc_include_token1] = ACTIONS(4513),
+    [aux_sym_preproc_def_token1] = ACTIONS(4513),
+    [aux_sym_preproc_if_token2] = ACTIONS(4513),
+    [sym_preproc_directive] = ACTIONS(4513),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4513),
+    [aux_sym_interface_statement_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4513),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4513),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4513),
+    [aux_sym_language_binding_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4513),
+    [aux_sym_contains_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token1] = ACTIONS(4513),
+    [aux_sym_use_statement_token2] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4513),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4513),
+    [aux_sym_save_statement_token1] = ACTIONS(4513),
+    [aux_sym_private_statement_token1] = ACTIONS(4513),
+    [aux_sym_public_statement_token1] = ACTIONS(4513),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4513),
+    [aux_sym_common_statement_token1] = ACTIONS(4513),
+    [aux_sym_import_statement_token1] = ACTIONS(4513),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4513),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4513),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4513),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4513),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4513),
+    [aux_sym_derived_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token1] = ACTIONS(4513),
+    [aux_sym_declared_type_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4513),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4513),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4513),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token1] = ACTIONS(4513),
+    [aux_sym_stop_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4513),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4513),
+    [aux_sym_include_statement_token1] = ACTIONS(4513),
+    [aux_sym_data_statement_token1] = ACTIONS(4513),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4513),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4513),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4513),
+    [aux_sym_block_construct_token1] = ACTIONS(4513),
+    [aux_sym_format_statement_token1] = ACTIONS(4513),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4513),
+    [aux_sym_enum_statement_token1] = ACTIONS(4513),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4513),
+    [aux_sym_entry_statement_token1] = ACTIONS(4513),
+    [aux_sym_null_literal_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4513),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4513),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4513),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4513),
+    [aux_sym_identifier_token1] = ACTIONS(4513),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4515),
   },
   [3024] = {
-    [sym__expression] = STATE(4602),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
+    [sym__name] = STATE(7183),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1081),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7084),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -457026,6 +456878,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7086),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -457039,13 +456892,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -457054,131 +456916,36 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(7086),
   },
   [3025] = {
-    [sym__expression] = STATE(4600),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3026] = {
-    [sym__name] = STATE(6623),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5146),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+    [sym__name] = STATE(7086),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5208),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7096),
+    [aux_sym_function_statement_token1] = ACTIONS(7088),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -457203,7 +456970,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7098),
+    [anon_sym_SEMI] = ACTIONS(7090),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -457217,21 +456984,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -457241,221 +457008,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7098),
-  },
-  [3027] = {
-    [sym__expression] = STATE(4239),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3028] = {
-    [sym__expression] = STATE(4675),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__external_end_of_statement] = ACTIONS(7090),
   },
-  [3029] = {
-    [sym__expression] = STATE(4575),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3026] = {
+    [sym__expression] = STATE(4420),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -457502,7 +457085,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -457522,123 +457105,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3030] = {
-    [sym__expression] = STATE(4444),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [3027] = {
+    [sym__expression] = STATE(4419),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3031] = {
-    [sym__name] = STATE(6494),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1000),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7100),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -457663,7 +457161,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7102),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -457677,22 +457174,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -457701,39 +457189,42 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7102),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3032] = {
-    [sym__expression] = STATE(4429),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3028] = {
+    [sym__expression] = STATE(4423),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -457775,7 +457266,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -457792,37 +457283,44 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3033] = {
-    [sym__name] = STATE(6970),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5070),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3029] = {
+    [sym__expression] = STATE(4412),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7104),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -457847,7 +457345,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7106),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -457861,22 +457358,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -457885,128 +457373,138 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7106),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3034] = {
-    [sym__expression] = STATE(4431),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3030] = {
+    [sym__expression] = STATE(4235),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3035] = {
-    [sym__name] = STATE(6498),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1002),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3031] = {
+    [sym__expression] = STATE(4401),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7108),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -458031,7 +457529,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7110),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -458045,22 +457542,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -458069,36 +457557,46 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7110),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3036] = {
-    [sym__name] = STATE(6972),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5083),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3032] = {
+    [sym__expression] = STATE(4372),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7112),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -458123,7 +457621,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7114),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -458137,22 +457634,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -458161,404 +457649,46 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7114),
-  },
-  [3037] = {
-    [sym__expression] = STATE(4469),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
-  },
-  [3038] = {
-    [sym__expression] = STATE(4240),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3039] = {
-    [sym__expression] = STATE(4241),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
+  [3033] = {
+    [sym__expression] = STATE(4403),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3040] = {
-    [sym__expression] = STATE(4485),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
-  },
-  [3041] = {
-    [sym__name] = STATE(6641),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5134),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7116),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -458583,7 +457713,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7118),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -458597,22 +457726,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -458621,313 +457741,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7118),
-  },
-  [3042] = {
-    [sym__expression] = STATE(4242),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3043] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5090),
-    [aux_sym_preproc_def_token1] = ACTIONS(5090),
-    [aux_sym_preproc_if_token2] = ACTIONS(5090),
-    [sym_preproc_directive] = ACTIONS(5090),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5090),
-    [aux_sym_interface_statement_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5090),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5090),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5090),
-    [aux_sym_language_binding_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5090),
-    [aux_sym_contains_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token1] = ACTIONS(5090),
-    [aux_sym_use_statement_token2] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5090),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5090),
-    [aux_sym_save_statement_token1] = ACTIONS(5090),
-    [aux_sym_private_statement_token1] = ACTIONS(5090),
-    [aux_sym_public_statement_token1] = ACTIONS(5090),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5090),
-    [aux_sym_common_statement_token1] = ACTIONS(5090),
-    [aux_sym_import_statement_token1] = ACTIONS(5090),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5090),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5090),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5090),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5090),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5090),
-    [aux_sym_derived_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token1] = ACTIONS(5090),
-    [aux_sym_declared_type_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5090),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5090),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5090),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token1] = ACTIONS(5090),
-    [aux_sym_stop_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5090),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5090),
-    [aux_sym_include_statement_token1] = ACTIONS(5090),
-    [aux_sym_data_statement_token1] = ACTIONS(5090),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5090),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5090),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5090),
-    [aux_sym_block_construct_token1] = ACTIONS(5090),
-    [aux_sym_format_statement_token1] = ACTIONS(5090),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5090),
-    [aux_sym_enum_statement_token1] = ACTIONS(5090),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5090),
-    [aux_sym_entry_statement_token1] = ACTIONS(5090),
-    [aux_sym_null_literal_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5090),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5090),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5090),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5090),
-    [aux_sym_identifier_token1] = ACTIONS(5090),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5092),
-  },
-  [3044] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4601),
-    [aux_sym_preproc_def_token1] = ACTIONS(4601),
-    [aux_sym_preproc_if_token2] = ACTIONS(4601),
-    [sym_preproc_directive] = ACTIONS(4601),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4601),
-    [aux_sym_interface_statement_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4601),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4601),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4601),
-    [aux_sym_language_binding_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4601),
-    [aux_sym_contains_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token1] = ACTIONS(4601),
-    [aux_sym_use_statement_token2] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4601),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4601),
-    [aux_sym_save_statement_token1] = ACTIONS(4601),
-    [aux_sym_private_statement_token1] = ACTIONS(4601),
-    [aux_sym_public_statement_token1] = ACTIONS(4601),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4601),
-    [aux_sym_common_statement_token1] = ACTIONS(4601),
-    [aux_sym_import_statement_token1] = ACTIONS(4601),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4601),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4601),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4601),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4601),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4601),
-    [aux_sym_derived_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token1] = ACTIONS(4601),
-    [aux_sym_declared_type_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4601),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4601),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4601),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token1] = ACTIONS(4601),
-    [aux_sym_stop_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4601),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4601),
-    [aux_sym_include_statement_token1] = ACTIONS(4601),
-    [aux_sym_data_statement_token1] = ACTIONS(4601),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4601),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4601),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4601),
-    [aux_sym_block_construct_token1] = ACTIONS(4601),
-    [aux_sym_format_statement_token1] = ACTIONS(4601),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4601),
-    [aux_sym_enum_statement_token1] = ACTIONS(4601),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4601),
-    [aux_sym_entry_statement_token1] = ACTIONS(4601),
-    [aux_sym_null_literal_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4601),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4601),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4601),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4601),
-    [aux_sym_identifier_token1] = ACTIONS(4601),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4603),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3045] = {
-    [sym__expression] = STATE(4644),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3034] = {
+    [sym__expression] = STATE(4394),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -458974,7 +457821,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -458994,123 +457841,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3046] = {
-    [sym__expression] = STATE(4230),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
+  [3035] = {
+    [sym__expression] = STATE(4392),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3047] = {
-    [sym__name] = STATE(6644),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5136),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7120),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -459135,7 +457897,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7122),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -459149,22 +457910,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -459173,37 +457925,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7122),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3048] = {
-    [sym__expression] = STATE(4411),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3036] = {
+    [sym__expression] = STATE(4373),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -459250,7 +458005,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -459270,31 +458025,31 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3049] = {
-    [sym__name] = STATE(7104),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4961),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3037] = {
+    [sym__name] = STATE(7092),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5206),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7124),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7092),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -459319,7 +458074,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7126),
+    [anon_sym_SEMI] = ACTIONS(7094),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -459333,21 +458088,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -459357,36 +458112,404 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7126),
+    [sym__external_end_of_statement] = ACTIONS(7094),
+  },
+  [3038] = {
+    [sym__expression] = STATE(4492),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
+  },
+  [3039] = {
+    [sym__expression] = STATE(4456),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
+  },
+  [3040] = {
+    [sym__expression] = STATE(4496),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
+  },
+  [3041] = {
+    [sym__expression] = STATE(4424),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3050] = {
-    [sym__name] = STATE(7057),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4578),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3042] = {
+    [sym__name] = STATE(6631),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5036),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7128),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7096),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -459411,7 +458534,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7130),
+    [anon_sym_SEMI] = ACTIONS(7098),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -459425,21 +458548,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -459449,39 +458572,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7130),
+    [sym__external_end_of_statement] = ACTIONS(7098),
   },
-  [3051] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5239),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(5239),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(5239),
-    [sym_number_literal] = STATE(5239),
-    [sym_boolean_literal] = STATE(5239),
-    [sym_null_literal] = STATE(5239),
-    [sym_string_literal] = STATE(5239),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5239),
+  [3043] = {
+    [sym__expression] = STATE(4531),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -459540,40 +458663,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3052] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5256),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(5256),
-    [sym_implied_do_loop_expression] = STATE(5256),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5256),
+  [3044] = {
+    [sym__expression] = STATE(4665),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -459615,7 +458738,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -459632,136 +458755,405 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3053] = {
-    [sym__expression] = STATE(4231),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3045] = {
+    [sym__expression] = STATE(4393),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
   },
-  [3054] = {
-    [sym__expression] = STATE(4414),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3046] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5138),
+    [aux_sym_preproc_def_token1] = ACTIONS(5138),
+    [aux_sym_preproc_if_token2] = ACTIONS(5138),
+    [sym_preproc_directive] = ACTIONS(5138),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
+    [aux_sym_interface_statement_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
+    [aux_sym_language_binding_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
+    [aux_sym_contains_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token1] = ACTIONS(5138),
+    [aux_sym_use_statement_token2] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
+    [aux_sym_save_statement_token1] = ACTIONS(5138),
+    [aux_sym_private_statement_token1] = ACTIONS(5138),
+    [aux_sym_public_statement_token1] = ACTIONS(5138),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
+    [aux_sym_common_statement_token1] = ACTIONS(5138),
+    [aux_sym_import_statement_token1] = ACTIONS(5138),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
+    [aux_sym_derived_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token1] = ACTIONS(5138),
+    [aux_sym_declared_type_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token1] = ACTIONS(5138),
+    [aux_sym_stop_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
+    [aux_sym_include_statement_token1] = ACTIONS(5138),
+    [aux_sym_data_statement_token1] = ACTIONS(5138),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
+    [aux_sym_block_construct_token1] = ACTIONS(5138),
+    [aux_sym_format_statement_token1] = ACTIONS(5138),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
+    [aux_sym_enum_statement_token1] = ACTIONS(5138),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
+    [aux_sym_entry_statement_token1] = ACTIONS(5138),
+    [aux_sym_null_literal_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
+    [aux_sym_identifier_token1] = ACTIONS(5138),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5140),
+  },
+  [3047] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5112),
+    [aux_sym_preproc_def_token1] = ACTIONS(5112),
+    [aux_sym_preproc_if_token2] = ACTIONS(5112),
+    [sym_preproc_directive] = ACTIONS(5112),
     [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
+    [aux_sym_interface_statement_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
+    [aux_sym_language_binding_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
+    [aux_sym_contains_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token1] = ACTIONS(5112),
+    [aux_sym_use_statement_token2] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
+    [aux_sym_save_statement_token1] = ACTIONS(5112),
+    [aux_sym_private_statement_token1] = ACTIONS(5112),
+    [aux_sym_public_statement_token1] = ACTIONS(5112),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
+    [aux_sym_common_statement_token1] = ACTIONS(5112),
+    [aux_sym_import_statement_token1] = ACTIONS(5112),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
+    [aux_sym_derived_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token1] = ACTIONS(5112),
+    [aux_sym_declared_type_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token1] = ACTIONS(5112),
+    [aux_sym_stop_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
+    [aux_sym_include_statement_token1] = ACTIONS(5112),
+    [aux_sym_data_statement_token1] = ACTIONS(5112),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
+    [aux_sym_block_construct_token1] = ACTIONS(5112),
+    [aux_sym_format_statement_token1] = ACTIONS(5112),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
+    [aux_sym_enum_statement_token1] = ACTIONS(5112),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
+    [aux_sym_entry_statement_token1] = ACTIONS(5112),
+    [aux_sym_null_literal_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
+    [aux_sym_identifier_token1] = ACTIONS(5112),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5114),
+  },
+  [3048] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5074),
+    [aux_sym_preproc_def_token1] = ACTIONS(5074),
+    [aux_sym_preproc_if_token2] = ACTIONS(5074),
+    [sym_preproc_directive] = ACTIONS(5074),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5074),
+    [aux_sym_interface_statement_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5074),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5074),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5074),
+    [aux_sym_language_binding_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5074),
+    [aux_sym_contains_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token1] = ACTIONS(5074),
+    [aux_sym_use_statement_token2] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5074),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5074),
+    [aux_sym_save_statement_token1] = ACTIONS(5074),
+    [aux_sym_private_statement_token1] = ACTIONS(5074),
+    [aux_sym_public_statement_token1] = ACTIONS(5074),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5074),
+    [aux_sym_common_statement_token1] = ACTIONS(5074),
+    [aux_sym_import_statement_token1] = ACTIONS(5074),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5074),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5074),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5074),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5074),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5074),
+    [aux_sym_derived_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token1] = ACTIONS(5074),
+    [aux_sym_declared_type_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5074),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5074),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5074),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token1] = ACTIONS(5074),
+    [aux_sym_stop_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5074),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5074),
+    [aux_sym_include_statement_token1] = ACTIONS(5074),
+    [aux_sym_data_statement_token1] = ACTIONS(5074),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5074),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5074),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5074),
+    [aux_sym_block_construct_token1] = ACTIONS(5074),
+    [aux_sym_format_statement_token1] = ACTIONS(5074),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5074),
+    [aux_sym_enum_statement_token1] = ACTIONS(5074),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5074),
+    [aux_sym_entry_statement_token1] = ACTIONS(5074),
+    [aux_sym_null_literal_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5074),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5074),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5074),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5074),
+    [aux_sym_identifier_token1] = ACTIONS(5074),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5076),
+  },
+  [3049] = {
+    [sym__name] = STATE(6857),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5087),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7100),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -459786,6 +459178,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7102),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -459799,13 +459192,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -459814,224 +459216,221 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(7102),
   },
-  [3055] = {
-    [sym__expression] = STATE(4232),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+  [3050] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5056),
+    [aux_sym_preproc_def_token1] = ACTIONS(5056),
+    [aux_sym_preproc_if_token2] = ACTIONS(5056),
+    [sym_preproc_directive] = ACTIONS(5056),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5056),
+    [aux_sym_interface_statement_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5056),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5056),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5056),
+    [aux_sym_language_binding_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5056),
+    [aux_sym_contains_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token1] = ACTIONS(5056),
+    [aux_sym_use_statement_token2] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5056),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5056),
+    [aux_sym_save_statement_token1] = ACTIONS(5056),
+    [aux_sym_private_statement_token1] = ACTIONS(5056),
+    [aux_sym_public_statement_token1] = ACTIONS(5056),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5056),
+    [aux_sym_common_statement_token1] = ACTIONS(5056),
+    [aux_sym_import_statement_token1] = ACTIONS(5056),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5056),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5056),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5056),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5056),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5056),
+    [aux_sym_derived_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token1] = ACTIONS(5056),
+    [aux_sym_declared_type_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5056),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5056),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5056),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token1] = ACTIONS(5056),
+    [aux_sym_stop_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5056),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5056),
+    [aux_sym_include_statement_token1] = ACTIONS(5056),
+    [aux_sym_data_statement_token1] = ACTIONS(5056),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5056),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5056),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5056),
+    [aux_sym_block_construct_token1] = ACTIONS(5056),
+    [aux_sym_format_statement_token1] = ACTIONS(5056),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5056),
+    [aux_sym_enum_statement_token1] = ACTIONS(5056),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5056),
+    [aux_sym_entry_statement_token1] = ACTIONS(5056),
+    [aux_sym_null_literal_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5056),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5056),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5056),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5056),
+    [aux_sym_identifier_token1] = ACTIONS(5056),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5058),
   },
-  [3056] = {
-    [sym__expression] = STATE(4233),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+  [3051] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5044),
+    [aux_sym_preproc_def_token1] = ACTIONS(5044),
+    [aux_sym_preproc_if_token2] = ACTIONS(5044),
+    [sym_preproc_directive] = ACTIONS(5044),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5044),
+    [aux_sym_interface_statement_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5044),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5044),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5044),
+    [aux_sym_language_binding_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5044),
+    [aux_sym_contains_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token1] = ACTIONS(5044),
+    [aux_sym_use_statement_token2] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5044),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5044),
+    [aux_sym_save_statement_token1] = ACTIONS(5044),
+    [aux_sym_private_statement_token1] = ACTIONS(5044),
+    [aux_sym_public_statement_token1] = ACTIONS(5044),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5044),
+    [aux_sym_common_statement_token1] = ACTIONS(5044),
+    [aux_sym_import_statement_token1] = ACTIONS(5044),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5044),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5044),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5044),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5044),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5044),
+    [aux_sym_derived_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token1] = ACTIONS(5044),
+    [aux_sym_declared_type_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5044),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5044),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5044),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token1] = ACTIONS(5044),
+    [aux_sym_stop_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5044),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5044),
+    [aux_sym_include_statement_token1] = ACTIONS(5044),
+    [aux_sym_data_statement_token1] = ACTIONS(5044),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5044),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5044),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5044),
+    [aux_sym_block_construct_token1] = ACTIONS(5044),
+    [aux_sym_format_statement_token1] = ACTIONS(5044),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5044),
+    [aux_sym_enum_statement_token1] = ACTIONS(5044),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5044),
+    [aux_sym_entry_statement_token1] = ACTIONS(5044),
+    [aux_sym_null_literal_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5044),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5044),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5044),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5044),
+    [aux_sym_identifier_token1] = ACTIONS(5044),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5046),
   },
-  [3057] = {
-    [sym__expression] = STATE(4433),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3052] = {
+    [sym__expression] = STATE(4533),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -460078,7 +459477,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -460098,34 +459497,586 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
+  [3053] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5108),
+    [aux_sym_preproc_def_token1] = ACTIONS(5108),
+    [aux_sym_preproc_if_token2] = ACTIONS(5108),
+    [sym_preproc_directive] = ACTIONS(5108),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5108),
+    [aux_sym_interface_statement_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5108),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5108),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5108),
+    [aux_sym_language_binding_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5108),
+    [aux_sym_contains_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token1] = ACTIONS(5108),
+    [aux_sym_use_statement_token2] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5108),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5108),
+    [aux_sym_save_statement_token1] = ACTIONS(5108),
+    [aux_sym_private_statement_token1] = ACTIONS(5108),
+    [aux_sym_public_statement_token1] = ACTIONS(5108),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5108),
+    [aux_sym_common_statement_token1] = ACTIONS(5108),
+    [aux_sym_import_statement_token1] = ACTIONS(5108),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5108),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5108),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5108),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5108),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5108),
+    [aux_sym_derived_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token1] = ACTIONS(5108),
+    [aux_sym_declared_type_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5108),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5108),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5108),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token1] = ACTIONS(5108),
+    [aux_sym_stop_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5108),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5108),
+    [aux_sym_include_statement_token1] = ACTIONS(5108),
+    [aux_sym_data_statement_token1] = ACTIONS(5108),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5108),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5108),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5108),
+    [aux_sym_block_construct_token1] = ACTIONS(5108),
+    [aux_sym_format_statement_token1] = ACTIONS(5108),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5108),
+    [aux_sym_enum_statement_token1] = ACTIONS(5108),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5108),
+    [aux_sym_entry_statement_token1] = ACTIONS(5108),
+    [aux_sym_null_literal_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5108),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5108),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5108),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5108),
+    [aux_sym_identifier_token1] = ACTIONS(5108),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5110),
+  },
+  [3054] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5092),
+    [aux_sym_preproc_def_token1] = ACTIONS(5092),
+    [aux_sym_preproc_if_token2] = ACTIONS(5092),
+    [sym_preproc_directive] = ACTIONS(5092),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5092),
+    [aux_sym_interface_statement_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5092),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5092),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5092),
+    [aux_sym_language_binding_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5092),
+    [aux_sym_contains_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token1] = ACTIONS(5092),
+    [aux_sym_use_statement_token2] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5092),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5092),
+    [aux_sym_save_statement_token1] = ACTIONS(5092),
+    [aux_sym_private_statement_token1] = ACTIONS(5092),
+    [aux_sym_public_statement_token1] = ACTIONS(5092),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5092),
+    [aux_sym_common_statement_token1] = ACTIONS(5092),
+    [aux_sym_import_statement_token1] = ACTIONS(5092),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5092),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5092),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5092),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5092),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5092),
+    [aux_sym_derived_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token1] = ACTIONS(5092),
+    [aux_sym_declared_type_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5092),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5092),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5092),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token1] = ACTIONS(5092),
+    [aux_sym_stop_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5092),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5092),
+    [aux_sym_include_statement_token1] = ACTIONS(5092),
+    [aux_sym_data_statement_token1] = ACTIONS(5092),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5092),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5092),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5092),
+    [aux_sym_block_construct_token1] = ACTIONS(5092),
+    [aux_sym_format_statement_token1] = ACTIONS(5092),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5092),
+    [aux_sym_enum_statement_token1] = ACTIONS(5092),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5092),
+    [aux_sym_entry_statement_token1] = ACTIONS(5092),
+    [aux_sym_null_literal_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5092),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5092),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5092),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5092),
+    [aux_sym_identifier_token1] = ACTIONS(5092),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5094),
+  },
+  [3055] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5132),
+    [aux_sym_preproc_def_token1] = ACTIONS(5132),
+    [aux_sym_preproc_if_token2] = ACTIONS(5132),
+    [sym_preproc_directive] = ACTIONS(5132),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
+    [aux_sym_interface_statement_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
+    [aux_sym_language_binding_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
+    [aux_sym_contains_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token1] = ACTIONS(5132),
+    [aux_sym_use_statement_token2] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
+    [aux_sym_save_statement_token1] = ACTIONS(5132),
+    [aux_sym_private_statement_token1] = ACTIONS(5132),
+    [aux_sym_public_statement_token1] = ACTIONS(5132),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
+    [aux_sym_common_statement_token1] = ACTIONS(5132),
+    [aux_sym_import_statement_token1] = ACTIONS(5132),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
+    [aux_sym_derived_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token1] = ACTIONS(5132),
+    [aux_sym_declared_type_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token1] = ACTIONS(5132),
+    [aux_sym_stop_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
+    [aux_sym_include_statement_token1] = ACTIONS(5132),
+    [aux_sym_data_statement_token1] = ACTIONS(5132),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
+    [aux_sym_block_construct_token1] = ACTIONS(5132),
+    [aux_sym_format_statement_token1] = ACTIONS(5132),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
+    [aux_sym_enum_statement_token1] = ACTIONS(5132),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
+    [aux_sym_entry_statement_token1] = ACTIONS(5132),
+    [aux_sym_null_literal_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
+    [aux_sym_identifier_token1] = ACTIONS(5132),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5134),
+  },
+  [3056] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5124),
+    [aux_sym_preproc_def_token1] = ACTIONS(5124),
+    [aux_sym_preproc_if_token2] = ACTIONS(5124),
+    [sym_preproc_directive] = ACTIONS(5124),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
+    [aux_sym_interface_statement_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
+    [aux_sym_language_binding_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
+    [aux_sym_contains_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token1] = ACTIONS(5124),
+    [aux_sym_use_statement_token2] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
+    [aux_sym_save_statement_token1] = ACTIONS(5124),
+    [aux_sym_private_statement_token1] = ACTIONS(5124),
+    [aux_sym_public_statement_token1] = ACTIONS(5124),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
+    [aux_sym_common_statement_token1] = ACTIONS(5124),
+    [aux_sym_import_statement_token1] = ACTIONS(5124),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
+    [aux_sym_derived_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token1] = ACTIONS(5124),
+    [aux_sym_declared_type_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token1] = ACTIONS(5124),
+    [aux_sym_stop_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
+    [aux_sym_include_statement_token1] = ACTIONS(5124),
+    [aux_sym_data_statement_token1] = ACTIONS(5124),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
+    [aux_sym_block_construct_token1] = ACTIONS(5124),
+    [aux_sym_format_statement_token1] = ACTIONS(5124),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
+    [aux_sym_enum_statement_token1] = ACTIONS(5124),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
+    [aux_sym_entry_statement_token1] = ACTIONS(5124),
+    [aux_sym_null_literal_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
+    [aux_sym_identifier_token1] = ACTIONS(5124),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5126),
+  },
+  [3057] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5104),
+    [aux_sym_preproc_def_token1] = ACTIONS(5104),
+    [aux_sym_preproc_if_token2] = ACTIONS(5104),
+    [sym_preproc_directive] = ACTIONS(5104),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5104),
+    [aux_sym_interface_statement_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5104),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5104),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5104),
+    [aux_sym_language_binding_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5104),
+    [aux_sym_contains_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token1] = ACTIONS(5104),
+    [aux_sym_use_statement_token2] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5104),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5104),
+    [aux_sym_save_statement_token1] = ACTIONS(5104),
+    [aux_sym_private_statement_token1] = ACTIONS(5104),
+    [aux_sym_public_statement_token1] = ACTIONS(5104),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5104),
+    [aux_sym_common_statement_token1] = ACTIONS(5104),
+    [aux_sym_import_statement_token1] = ACTIONS(5104),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5104),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5104),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5104),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5104),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5104),
+    [aux_sym_derived_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token1] = ACTIONS(5104),
+    [aux_sym_declared_type_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5104),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5104),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5104),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token1] = ACTIONS(5104),
+    [aux_sym_stop_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5104),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5104),
+    [aux_sym_include_statement_token1] = ACTIONS(5104),
+    [aux_sym_data_statement_token1] = ACTIONS(5104),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5104),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5104),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5104),
+    [aux_sym_block_construct_token1] = ACTIONS(5104),
+    [aux_sym_format_statement_token1] = ACTIONS(5104),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5104),
+    [aux_sym_enum_statement_token1] = ACTIONS(5104),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5104),
+    [aux_sym_entry_statement_token1] = ACTIONS(5104),
+    [aux_sym_null_literal_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5104),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5104),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5104),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5104),
+    [aux_sym_identifier_token1] = ACTIONS(5104),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5106),
+  },
   [3058] = {
-    [sym__expression] = STATE(4649),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [aux_sym_preproc_include_token1] = ACTIONS(5100),
+    [aux_sym_preproc_def_token1] = ACTIONS(5100),
+    [aux_sym_preproc_if_token2] = ACTIONS(5100),
+    [sym_preproc_directive] = ACTIONS(5100),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5100),
+    [aux_sym_interface_statement_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5100),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5100),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5100),
+    [aux_sym_language_binding_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5100),
+    [aux_sym_contains_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token1] = ACTIONS(5100),
+    [aux_sym_use_statement_token2] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5100),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5100),
+    [aux_sym_save_statement_token1] = ACTIONS(5100),
+    [aux_sym_private_statement_token1] = ACTIONS(5100),
+    [aux_sym_public_statement_token1] = ACTIONS(5100),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5100),
+    [aux_sym_common_statement_token1] = ACTIONS(5100),
+    [aux_sym_import_statement_token1] = ACTIONS(5100),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5100),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5100),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5100),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5100),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5100),
+    [aux_sym_derived_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token1] = ACTIONS(5100),
+    [aux_sym_declared_type_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5100),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5100),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5100),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token1] = ACTIONS(5100),
+    [aux_sym_stop_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5100),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5100),
+    [aux_sym_include_statement_token1] = ACTIONS(5100),
+    [aux_sym_data_statement_token1] = ACTIONS(5100),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5100),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5100),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5100),
+    [aux_sym_block_construct_token1] = ACTIONS(5100),
+    [aux_sym_format_statement_token1] = ACTIONS(5100),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5100),
+    [aux_sym_enum_statement_token1] = ACTIONS(5100),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5100),
+    [aux_sym_entry_statement_token1] = ACTIONS(5100),
+    [aux_sym_null_literal_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5100),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5100),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5100),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5100),
+    [aux_sym_identifier_token1] = ACTIONS(5100),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5102),
+  },
+  [3059] = {
+    [sym__expression] = STATE(4430),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -460167,7 +460118,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -460184,44 +460135,129 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3059] = {
-    [sym__expression] = STATE(4413),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
+  [3060] = {
+    [sym__expression] = STATE(4497),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
+  },
+  [3061] = {
+    [sym__name] = STATE(6889),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5051),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7104),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -460246,6 +460282,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7106),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -460259,13 +460296,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -460274,410 +460320,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [3060] = {
-    [sym__expression] = STATE(4234),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
-  },
-  [3061] = {
-    [sym__expression] = STATE(4405),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [sym__external_end_of_statement] = ACTIONS(7106),
   },
   [3062] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5128),
-    [aux_sym_preproc_def_token1] = ACTIONS(5128),
-    [aux_sym_preproc_if_token2] = ACTIONS(5128),
-    [sym_preproc_directive] = ACTIONS(5128),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
-    [aux_sym_interface_statement_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
-    [aux_sym_language_binding_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
-    [aux_sym_contains_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token1] = ACTIONS(5128),
-    [aux_sym_use_statement_token2] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
-    [aux_sym_save_statement_token1] = ACTIONS(5128),
-    [aux_sym_private_statement_token1] = ACTIONS(5128),
-    [aux_sym_public_statement_token1] = ACTIONS(5128),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
-    [aux_sym_common_statement_token1] = ACTIONS(5128),
-    [aux_sym_import_statement_token1] = ACTIONS(5128),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
-    [aux_sym_derived_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token1] = ACTIONS(5128),
-    [aux_sym_declared_type_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token1] = ACTIONS(5128),
-    [aux_sym_stop_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
-    [aux_sym_include_statement_token1] = ACTIONS(5128),
-    [aux_sym_data_statement_token1] = ACTIONS(5128),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
-    [aux_sym_block_construct_token1] = ACTIONS(5128),
-    [aux_sym_format_statement_token1] = ACTIONS(5128),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
-    [aux_sym_enum_statement_token1] = ACTIONS(5128),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
-    [aux_sym_entry_statement_token1] = ACTIONS(5128),
-    [aux_sym_null_literal_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
-    [aux_sym_identifier_token1] = ACTIONS(5128),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5130),
-  },
-  [3063] = {
-    [sym__expression] = STATE(4401),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [3064] = {
-    [sym__expression] = STATE(4627),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [sym__expression] = STATE(4449),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -460719,13 +460394,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -460736,313 +460411,129 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3065] = {
-    [sym__expression] = STATE(4420),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [3066] = {
-    [sym__expression] = STATE(4430),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3067] = {
-    [sym__expression] = STATE(4338),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3063] = {
+    [sym__expression] = STATE(4389),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
   },
-  [3068] = {
-    [sym__name] = STATE(6544),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(843),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_program_statement_token1] = ACTIONS(7132),
+  [3064] = {
+    [sym__name] = STATE(6894),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5046),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7108),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -461067,7 +460558,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7134),
+    [anon_sym_SEMI] = ACTIONS(7110),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -461081,21 +460572,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -461105,223 +460596,223 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7134),
+    [sym__external_end_of_statement] = ACTIONS(7110),
   },
-  [3069] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(4957),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(4957),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(4957),
-    [sym_number_literal] = STATE(4959),
-    [sym_boolean_literal] = STATE(4957),
-    [sym_null_literal] = STATE(4957),
-    [sym_string_literal] = STATE(4957),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(4957),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+  [3065] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5084),
+    [aux_sym_preproc_def_token1] = ACTIONS(5084),
+    [aux_sym_preproc_if_token2] = ACTIONS(5084),
+    [sym_preproc_directive] = ACTIONS(5084),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5084),
+    [aux_sym_interface_statement_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5084),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5084),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5084),
+    [aux_sym_language_binding_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5084),
+    [aux_sym_contains_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token1] = ACTIONS(5084),
+    [aux_sym_use_statement_token2] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5084),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5084),
+    [aux_sym_save_statement_token1] = ACTIONS(5084),
+    [aux_sym_private_statement_token1] = ACTIONS(5084),
+    [aux_sym_public_statement_token1] = ACTIONS(5084),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5084),
+    [aux_sym_common_statement_token1] = ACTIONS(5084),
+    [aux_sym_import_statement_token1] = ACTIONS(5084),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5084),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5084),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5084),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5084),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5084),
+    [aux_sym_derived_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token1] = ACTIONS(5084),
+    [aux_sym_declared_type_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5084),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5084),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5084),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token1] = ACTIONS(5084),
+    [aux_sym_stop_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5084),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5084),
+    [aux_sym_include_statement_token1] = ACTIONS(5084),
+    [aux_sym_data_statement_token1] = ACTIONS(5084),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5084),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5084),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5084),
+    [aux_sym_block_construct_token1] = ACTIONS(5084),
+    [aux_sym_format_statement_token1] = ACTIONS(5084),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5084),
+    [aux_sym_enum_statement_token1] = ACTIONS(5084),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5084),
+    [aux_sym_entry_statement_token1] = ACTIONS(5084),
+    [aux_sym_null_literal_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5084),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5084),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5084),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5084),
+    [aux_sym_identifier_token1] = ACTIONS(5084),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5086),
   },
-  [3070] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4621),
-    [aux_sym_preproc_def_token1] = ACTIONS(4621),
-    [aux_sym_preproc_if_token2] = ACTIONS(4621),
-    [sym_preproc_directive] = ACTIONS(4621),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4621),
-    [aux_sym_interface_statement_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4621),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4621),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4621),
-    [aux_sym_language_binding_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4621),
-    [aux_sym_contains_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token1] = ACTIONS(4621),
-    [aux_sym_use_statement_token2] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4621),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4621),
-    [aux_sym_save_statement_token1] = ACTIONS(4621),
-    [aux_sym_private_statement_token1] = ACTIONS(4621),
-    [aux_sym_public_statement_token1] = ACTIONS(4621),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4621),
-    [aux_sym_common_statement_token1] = ACTIONS(4621),
-    [aux_sym_import_statement_token1] = ACTIONS(4621),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4621),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4621),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4621),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4621),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4621),
-    [aux_sym_derived_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token1] = ACTIONS(4621),
-    [aux_sym_declared_type_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4621),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4621),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4621),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token1] = ACTIONS(4621),
-    [aux_sym_stop_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4621),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4621),
-    [aux_sym_include_statement_token1] = ACTIONS(4621),
-    [aux_sym_data_statement_token1] = ACTIONS(4621),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4621),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4621),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4621),
-    [aux_sym_block_construct_token1] = ACTIONS(4621),
-    [aux_sym_format_statement_token1] = ACTIONS(4621),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4621),
-    [aux_sym_enum_statement_token1] = ACTIONS(4621),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4621),
-    [aux_sym_entry_statement_token1] = ACTIONS(4621),
-    [aux_sym_null_literal_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4621),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4621),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4621),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4621),
-    [aux_sym_identifier_token1] = ACTIONS(4621),
+  [3066] = {
+    [sym__name] = STATE(6629),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(875),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7112),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7114),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4623),
+    [sym__external_end_of_statement] = ACTIONS(7114),
   },
-  [3071] = {
-    [sym__expression] = STATE(4428),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3067] = {
+    [sym__expression] = STATE(4482),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -461363,13 +460854,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -461380,40 +460871,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3072] = {
-    [sym__expression] = STATE(4634),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3068] = {
+    [sym__expression] = STATE(4484),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -461455,13 +460946,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -461472,40 +460963,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3073] = {
-    [sym__expression] = STATE(4639),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3069] = {
+    [sym__expression] = STATE(4489),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -461547,13 +461038,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -461564,408 +461055,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3074] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5138),
-    [aux_sym_preproc_def_token1] = ACTIONS(5138),
-    [aux_sym_preproc_if_token2] = ACTIONS(5138),
-    [sym_preproc_directive] = ACTIONS(5138),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5138),
-    [aux_sym_interface_statement_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5138),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5138),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5138),
-    [aux_sym_language_binding_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5138),
-    [aux_sym_contains_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token1] = ACTIONS(5138),
-    [aux_sym_use_statement_token2] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5138),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5138),
-    [aux_sym_save_statement_token1] = ACTIONS(5138),
-    [aux_sym_private_statement_token1] = ACTIONS(5138),
-    [aux_sym_public_statement_token1] = ACTIONS(5138),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5138),
-    [aux_sym_common_statement_token1] = ACTIONS(5138),
-    [aux_sym_import_statement_token1] = ACTIONS(5138),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5138),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5138),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5138),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5138),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5138),
-    [aux_sym_derived_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token1] = ACTIONS(5138),
-    [aux_sym_declared_type_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5138),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5138),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5138),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token1] = ACTIONS(5138),
-    [aux_sym_stop_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5138),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5138),
-    [aux_sym_include_statement_token1] = ACTIONS(5138),
-    [aux_sym_data_statement_token1] = ACTIONS(5138),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5138),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5138),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5138),
-    [aux_sym_block_construct_token1] = ACTIONS(5138),
-    [aux_sym_format_statement_token1] = ACTIONS(5138),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5138),
-    [aux_sym_enum_statement_token1] = ACTIONS(5138),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5138),
-    [aux_sym_entry_statement_token1] = ACTIONS(5138),
-    [aux_sym_null_literal_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5138),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5138),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5138),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5138),
-    [aux_sym_identifier_token1] = ACTIONS(5138),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5140),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3075] = {
-    [sym__expression] = STATE(4630),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3070] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4437),
+    [aux_sym_preproc_def_token1] = ACTIONS(4437),
+    [aux_sym_preproc_if_token2] = ACTIONS(4437),
+    [sym_preproc_directive] = ACTIONS(4437),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4437),
+    [aux_sym_interface_statement_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4437),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4437),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4437),
+    [aux_sym_language_binding_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4437),
+    [aux_sym_contains_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token1] = ACTIONS(4437),
+    [aux_sym_use_statement_token2] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4437),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4437),
+    [aux_sym_save_statement_token1] = ACTIONS(4437),
+    [aux_sym_private_statement_token1] = ACTIONS(4437),
+    [aux_sym_public_statement_token1] = ACTIONS(4437),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4437),
+    [aux_sym_common_statement_token1] = ACTIONS(4437),
+    [aux_sym_import_statement_token1] = ACTIONS(4437),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4437),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4437),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4437),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4437),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4437),
+    [aux_sym_derived_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token1] = ACTIONS(4437),
+    [aux_sym_declared_type_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4437),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4437),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4437),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token1] = ACTIONS(4437),
+    [aux_sym_stop_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4437),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4437),
+    [aux_sym_include_statement_token1] = ACTIONS(4437),
+    [aux_sym_data_statement_token1] = ACTIONS(4437),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4437),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4437),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4437),
+    [aux_sym_block_construct_token1] = ACTIONS(4437),
+    [aux_sym_format_statement_token1] = ACTIONS(4437),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4437),
+    [aux_sym_enum_statement_token1] = ACTIONS(4437),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4437),
+    [aux_sym_entry_statement_token1] = ACTIONS(4437),
+    [aux_sym_null_literal_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4437),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4437),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4437),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4437),
+    [aux_sym_identifier_token1] = ACTIONS(4437),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [3076] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5054),
-    [aux_sym_preproc_def_token1] = ACTIONS(5054),
-    [aux_sym_preproc_if_token2] = ACTIONS(5054),
-    [sym_preproc_directive] = ACTIONS(5054),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5054),
-    [aux_sym_interface_statement_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5054),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5054),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5054),
-    [aux_sym_language_binding_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5054),
-    [aux_sym_contains_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token1] = ACTIONS(5054),
-    [aux_sym_use_statement_token2] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5054),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5054),
-    [aux_sym_save_statement_token1] = ACTIONS(5054),
-    [aux_sym_private_statement_token1] = ACTIONS(5054),
-    [aux_sym_public_statement_token1] = ACTIONS(5054),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5054),
-    [aux_sym_common_statement_token1] = ACTIONS(5054),
-    [aux_sym_import_statement_token1] = ACTIONS(5054),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5054),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5054),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5054),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5054),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5054),
-    [aux_sym_derived_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token1] = ACTIONS(5054),
-    [aux_sym_declared_type_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5054),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5054),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5054),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token1] = ACTIONS(5054),
-    [aux_sym_stop_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5054),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5054),
-    [aux_sym_include_statement_token1] = ACTIONS(5054),
-    [aux_sym_data_statement_token1] = ACTIONS(5054),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5054),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5054),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5054),
-    [aux_sym_block_construct_token1] = ACTIONS(5054),
-    [aux_sym_format_statement_token1] = ACTIONS(5054),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5054),
-    [aux_sym_enum_statement_token1] = ACTIONS(5054),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5054),
-    [aux_sym_entry_statement_token1] = ACTIONS(5054),
-    [aux_sym_null_literal_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5054),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5054),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5054),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5054),
-    [aux_sym_identifier_token1] = ACTIONS(5054),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5056),
-  },
-  [3077] = {
-    [sym__expression] = STATE(4235),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3018),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(6974),
-    [anon_sym_DASH] = ACTIONS(6974),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(6986),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(6988),
-    [sym__string_literal_kind] = ACTIONS(6990),
+    [sym__integer_literal] = ACTIONS(4439),
   },
-  [3078] = {
-    [sym__expression] = STATE(4664),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3071] = {
+    [sym__expression] = STATE(4494),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462007,13 +461222,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -462024,38 +461239,38 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3079] = {
-    [sym__expression] = STATE(4472),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3072] = {
+    [sym__expression] = STATE(4461),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
@@ -462102,7 +461317,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_logical_expression_token5] = ACTIONS(5531),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
+    [anon_sym_LBRACK] = ACTIONS(6834),
     [aux_sym_boolean_literal_token1] = ACTIONS(5541),
     [aux_sym_boolean_literal_token2] = ACTIONS(5541),
     [aux_sym_null_literal_token1] = ACTIONS(5543),
@@ -462122,34 +461337,34 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(5507),
     [sym__string_literal_kind] = ACTIONS(5509),
   },
-  [3080] = {
-    [sym__expression] = STATE(4489),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3073] = {
+    [sym__expression] = STATE(4495),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462191,13 +461406,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -462208,37 +461423,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3081] = {
-    [sym__name] = STATE(7191),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5051),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3074] = {
+    [sym__name] = STATE(7106),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4855),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7136),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7116),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -462263,7 +461478,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7138),
+    [anon_sym_SEMI] = ACTIONS(7118),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -462277,21 +461492,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -462301,39 +461516,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7138),
+    [sym__external_end_of_statement] = ACTIONS(7118),
   },
-  [3082] = {
-    [sym__expression] = STATE(4357),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3075] = {
+    [sym__expression] = STATE(4668),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462375,7 +461590,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -462392,40 +461607,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3083] = {
-    [sym__expression] = STATE(4343),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3076] = {
+    [sym__expression] = STATE(4541),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462467,7 +461682,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -462484,40 +461699,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3084] = {
-    [sym__expression] = STATE(4328),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3077] = {
+    [sym__expression] = STATE(4468),
+    [sym_parenthesized_expression] = STATE(4793),
+    [sym_derived_type_member_expression] = STATE(4793),
+    [sym_logical_expression] = STATE(4793),
+    [sym_relational_expression] = STATE(4793),
+    [sym_concatenation_expression] = STATE(4793),
+    [sym_math_expression] = STATE(4793),
+    [sym_unary_expression] = STATE(4793),
+    [sym_user_defined_operator] = STATE(3077),
+    [sym_call_expression] = STATE(4793),
+    [sym_implied_do_loop_expression] = STATE(4793),
+    [sym_array_literal] = STATE(4793),
+    [sym__array_constructor_legacy] = STATE(4797),
+    [sym__array_constructor_f2003] = STATE(4799),
+    [sym_complex_literal] = STATE(4793),
+    [sym_number_literal] = STATE(4793),
+    [sym_boolean_literal] = STATE(4793),
+    [sym_null_literal] = STATE(4793),
+    [sym_string_literal] = STATE(4793),
+    [sym_coarray_expression] = STATE(4793),
+    [sym_conditional_expression] = STATE(4793),
+    [sym_identifier] = STATE(4793),
+    [anon_sym_LPAREN2] = ACTIONS(7008),
+    [anon_sym_PLUS] = ACTIONS(7010),
+    [anon_sym_DASH] = ACTIONS(7010),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462559,13 +461774,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(7012),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7014),
+    [anon_sym_LBRACK] = ACTIONS(7016),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7018),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7018),
+    [aux_sym_null_literal_token1] = ACTIONS(7020),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -462576,40 +461791,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(7024),
+    [sym__float_literal] = ACTIONS(7024),
+    [sym__boz_literal] = ACTIONS(7024),
+    [sym__string_literal] = ACTIONS(7026),
+    [sym__string_literal_kind] = ACTIONS(7028),
   },
-  [3085] = {
-    [sym__expression] = STATE(4329),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3078] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(4958),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(4958),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(4958),
+    [sym_number_literal] = STATE(4959),
+    [sym_boolean_literal] = STATE(4958),
+    [sym_null_literal] = STATE(4958),
+    [sym_string_literal] = STATE(4958),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(4958),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462651,7 +461866,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -462668,132 +461883,224 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3086] = {
-    [sym__expression] = STATE(4330),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+  [3079] = {
+    [sym__name] = STATE(7181),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4861),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7122),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7122),
+  },
+  [3080] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4473),
+    [aux_sym_preproc_def_token1] = ACTIONS(4473),
+    [aux_sym_preproc_if_token2] = ACTIONS(4473),
+    [sym_preproc_directive] = ACTIONS(4473),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4473),
+    [aux_sym_interface_statement_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4473),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4473),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4473),
+    [aux_sym_language_binding_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4473),
+    [aux_sym_contains_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token1] = ACTIONS(4473),
+    [aux_sym_use_statement_token2] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4473),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4473),
+    [aux_sym_save_statement_token1] = ACTIONS(4473),
+    [aux_sym_private_statement_token1] = ACTIONS(4473),
+    [aux_sym_public_statement_token1] = ACTIONS(4473),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4473),
+    [aux_sym_common_statement_token1] = ACTIONS(4473),
+    [aux_sym_import_statement_token1] = ACTIONS(4473),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4473),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4473),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4473),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4473),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4473),
+    [aux_sym_derived_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token1] = ACTIONS(4473),
+    [aux_sym_declared_type_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4473),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4473),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4473),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token1] = ACTIONS(4473),
+    [aux_sym_stop_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4473),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4473),
+    [aux_sym_include_statement_token1] = ACTIONS(4473),
+    [aux_sym_data_statement_token1] = ACTIONS(4473),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4473),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4473),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4473),
+    [aux_sym_block_construct_token1] = ACTIONS(4473),
+    [aux_sym_format_statement_token1] = ACTIONS(4473),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4473),
+    [aux_sym_enum_statement_token1] = ACTIONS(4473),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4473),
+    [aux_sym_entry_statement_token1] = ACTIONS(4473),
+    [aux_sym_null_literal_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4473),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4473),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4473),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4473),
+    [aux_sym_identifier_token1] = ACTIONS(4473),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
+    [sym__integer_literal] = ACTIONS(4475),
   },
-  [3087] = {
-    [sym__expression] = STATE(4332),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3081] = {
+    [sym__expression] = STATE(4677),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462835,7 +462142,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -462852,40 +462159,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3088] = {
-    [sym__expression] = STATE(4333),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3082] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(5262),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(5262),
+    [sym_implied_do_loop_expression] = STATE(5262),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5262),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -462927,7 +462234,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -462944,40 +462251,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3089] = {
-    [sym__expression] = STATE(4334),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3083] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4485),
+    [aux_sym_preproc_def_token1] = ACTIONS(4485),
+    [aux_sym_preproc_if_token2] = ACTIONS(4485),
+    [sym_preproc_directive] = ACTIONS(4485),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4485),
+    [aux_sym_interface_statement_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4485),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4485),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4485),
+    [aux_sym_language_binding_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4485),
+    [aux_sym_contains_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token1] = ACTIONS(4485),
+    [aux_sym_use_statement_token2] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4485),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4485),
+    [aux_sym_save_statement_token1] = ACTIONS(4485),
+    [aux_sym_private_statement_token1] = ACTIONS(4485),
+    [aux_sym_public_statement_token1] = ACTIONS(4485),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4485),
+    [aux_sym_common_statement_token1] = ACTIONS(4485),
+    [aux_sym_import_statement_token1] = ACTIONS(4485),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4485),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4485),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4485),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4485),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4485),
+    [aux_sym_derived_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token1] = ACTIONS(4485),
+    [aux_sym_declared_type_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4485),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4485),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4485),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token1] = ACTIONS(4485),
+    [aux_sym_stop_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4485),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4485),
+    [aux_sym_include_statement_token1] = ACTIONS(4485),
+    [aux_sym_data_statement_token1] = ACTIONS(4485),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4485),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4485),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4485),
+    [aux_sym_block_construct_token1] = ACTIONS(4485),
+    [aux_sym_format_statement_token1] = ACTIONS(4485),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4485),
+    [aux_sym_enum_statement_token1] = ACTIONS(4485),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4485),
+    [aux_sym_entry_statement_token1] = ACTIONS(4485),
+    [aux_sym_null_literal_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4485),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4485),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4485),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4485),
+    [aux_sym_identifier_token1] = ACTIONS(4485),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4487),
+  },
+  [3084] = {
+    [sym__expression] = STATE(4452),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(5128),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5128),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5128),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463009,251 +462408,67 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_stop_statement_token1] = ACTIONS(97),
     [aux_sym_stop_statement_token2] = ACTIONS(97),
     [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3090] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5112),
-    [aux_sym_preproc_def_token1] = ACTIONS(5112),
-    [aux_sym_preproc_if_token2] = ACTIONS(5112),
-    [sym_preproc_directive] = ACTIONS(5112),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5112),
-    [aux_sym_interface_statement_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5112),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5112),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5112),
-    [aux_sym_language_binding_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5112),
-    [aux_sym_contains_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token1] = ACTIONS(5112),
-    [aux_sym_use_statement_token2] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5112),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5112),
-    [aux_sym_save_statement_token1] = ACTIONS(5112),
-    [aux_sym_private_statement_token1] = ACTIONS(5112),
-    [aux_sym_public_statement_token1] = ACTIONS(5112),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5112),
-    [aux_sym_common_statement_token1] = ACTIONS(5112),
-    [aux_sym_import_statement_token1] = ACTIONS(5112),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5112),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5112),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5112),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5112),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5112),
-    [aux_sym_derived_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token1] = ACTIONS(5112),
-    [aux_sym_declared_type_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5112),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5112),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5112),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token1] = ACTIONS(5112),
-    [aux_sym_stop_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5112),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5112),
-    [aux_sym_include_statement_token1] = ACTIONS(5112),
-    [aux_sym_data_statement_token1] = ACTIONS(5112),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5112),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5112),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5112),
-    [aux_sym_block_construct_token1] = ACTIONS(5112),
-    [aux_sym_format_statement_token1] = ACTIONS(5112),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5112),
-    [aux_sym_enum_statement_token1] = ACTIONS(5112),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5112),
-    [aux_sym_entry_statement_token1] = ACTIONS(5112),
-    [aux_sym_null_literal_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5112),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5112),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5112),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5112),
-    [aux_sym_identifier_token1] = ACTIONS(5112),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5114),
-  },
-  [3091] = {
-    [sym__expression] = STATE(4369),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3092] = {
-    [sym__expression] = STATE(4605),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3085] = {
+    [sym__expression] = STATE(4582),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463295,7 +462510,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -463312,132 +462527,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3093] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5120),
-    [aux_sym_preproc_def_token1] = ACTIONS(5120),
-    [aux_sym_preproc_if_token2] = ACTIONS(5120),
-    [sym_preproc_directive] = ACTIONS(5120),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
-    [aux_sym_interface_statement_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
-    [aux_sym_language_binding_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
-    [aux_sym_contains_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token1] = ACTIONS(5120),
-    [aux_sym_use_statement_token2] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
-    [aux_sym_save_statement_token1] = ACTIONS(5120),
-    [aux_sym_private_statement_token1] = ACTIONS(5120),
-    [aux_sym_public_statement_token1] = ACTIONS(5120),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
-    [aux_sym_common_statement_token1] = ACTIONS(5120),
-    [aux_sym_import_statement_token1] = ACTIONS(5120),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
-    [aux_sym_derived_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token1] = ACTIONS(5120),
-    [aux_sym_declared_type_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token1] = ACTIONS(5120),
-    [aux_sym_stop_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
-    [aux_sym_include_statement_token1] = ACTIONS(5120),
-    [aux_sym_data_statement_token1] = ACTIONS(5120),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
-    [aux_sym_block_construct_token1] = ACTIONS(5120),
-    [aux_sym_format_statement_token1] = ACTIONS(5120),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
-    [aux_sym_enum_statement_token1] = ACTIONS(5120),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
-    [aux_sym_entry_statement_token1] = ACTIONS(5120),
-    [aux_sym_null_literal_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
-    [aux_sym_identifier_token1] = ACTIONS(5120),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5122),
-  },
-  [3094] = {
-    [sym__expression] = STATE(4659),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3086] = {
+    [sym__expression] = STATE(4681),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463479,7 +462602,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -463496,40 +462619,684 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3095] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5264),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(5264),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(5264),
-    [sym_number_literal] = STATE(5265),
-    [sym_boolean_literal] = STATE(5264),
-    [sym_null_literal] = STATE(5264),
-    [sym_string_literal] = STATE(5264),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5264),
+  [3087] = {
+    [sym__expression] = STATE(4237),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [3088] = {
+    [sym__name] = STATE(7195),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4863),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7124),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7126),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7126),
+  },
+  [3089] = {
+    [sym__name] = STATE(6984),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5242),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7130),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7130),
+  },
+  [3090] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4405),
+    [aux_sym_preproc_def_token1] = ACTIONS(4405),
+    [aux_sym_preproc_if_token2] = ACTIONS(4405),
+    [sym_preproc_directive] = ACTIONS(4405),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
+    [aux_sym_interface_statement_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
+    [aux_sym_language_binding_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
+    [aux_sym_contains_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token1] = ACTIONS(4405),
+    [aux_sym_use_statement_token2] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
+    [aux_sym_save_statement_token1] = ACTIONS(4405),
+    [aux_sym_private_statement_token1] = ACTIONS(4405),
+    [aux_sym_public_statement_token1] = ACTIONS(4405),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
+    [aux_sym_common_statement_token1] = ACTIONS(4405),
+    [aux_sym_import_statement_token1] = ACTIONS(4405),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
+    [aux_sym_derived_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token1] = ACTIONS(4405),
+    [aux_sym_declared_type_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token1] = ACTIONS(4405),
+    [aux_sym_stop_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
+    [aux_sym_include_statement_token1] = ACTIONS(4405),
+    [aux_sym_data_statement_token1] = ACTIONS(4405),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
+    [aux_sym_block_construct_token1] = ACTIONS(4405),
+    [aux_sym_format_statement_token1] = ACTIONS(4405),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
+    [aux_sym_enum_statement_token1] = ACTIONS(4405),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
+    [aux_sym_entry_statement_token1] = ACTIONS(4405),
+    [aux_sym_null_literal_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
+    [aux_sym_identifier_token1] = ACTIONS(4405),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4407),
+  },
+  [3091] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4409),
+    [aux_sym_preproc_def_token1] = ACTIONS(4409),
+    [aux_sym_preproc_if_token2] = ACTIONS(4409),
+    [sym_preproc_directive] = ACTIONS(4409),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
+    [aux_sym_interface_statement_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
+    [aux_sym_language_binding_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
+    [aux_sym_contains_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token1] = ACTIONS(4409),
+    [aux_sym_use_statement_token2] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
+    [aux_sym_save_statement_token1] = ACTIONS(4409),
+    [aux_sym_private_statement_token1] = ACTIONS(4409),
+    [aux_sym_public_statement_token1] = ACTIONS(4409),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
+    [aux_sym_common_statement_token1] = ACTIONS(4409),
+    [aux_sym_import_statement_token1] = ACTIONS(4409),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
+    [aux_sym_derived_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token1] = ACTIONS(4409),
+    [aux_sym_declared_type_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token1] = ACTIONS(4409),
+    [aux_sym_stop_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
+    [aux_sym_include_statement_token1] = ACTIONS(4409),
+    [aux_sym_data_statement_token1] = ACTIONS(4409),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
+    [aux_sym_block_construct_token1] = ACTIONS(4409),
+    [aux_sym_format_statement_token1] = ACTIONS(4409),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
+    [aux_sym_enum_statement_token1] = ACTIONS(4409),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
+    [aux_sym_entry_statement_token1] = ACTIONS(4409),
+    [aux_sym_null_literal_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
+    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4411),
+  },
+  [3092] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4425),
+    [aux_sym_preproc_def_token1] = ACTIONS(4425),
+    [aux_sym_preproc_if_token2] = ACTIONS(4425),
+    [sym_preproc_directive] = ACTIONS(4425),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4425),
+    [aux_sym_interface_statement_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(4425),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(4425),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4425),
+    [aux_sym_language_binding_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(4425),
+    [aux_sym_contains_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token1] = ACTIONS(4425),
+    [aux_sym_use_statement_token2] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token1] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4425),
+    [aux_sym_implicit_statement_token4] = ACTIONS(4425),
+    [aux_sym_save_statement_token1] = ACTIONS(4425),
+    [aux_sym_private_statement_token1] = ACTIONS(4425),
+    [aux_sym_public_statement_token1] = ACTIONS(4425),
+    [aux_sym_namelist_statement_token1] = ACTIONS(4425),
+    [aux_sym_common_statement_token1] = ACTIONS(4425),
+    [aux_sym_import_statement_token1] = ACTIONS(4425),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(4425),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(4425),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token1] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token2] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token3] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token4] = ACTIONS(4425),
+    [aux_sym_variable_attributes_token5] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4425),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4425),
+    [aux_sym_derived_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token1] = ACTIONS(4425),
+    [aux_sym_declared_type_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4425),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token1] = ACTIONS(4425),
+    [aux_sym_type_qualifier_token2] = ACTIONS(4425),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token1] = ACTIONS(4425),
+    [aux_sym_stop_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token2] = ACTIONS(4425),
+    [aux_sym_keyword_statement_token3] = ACTIONS(4425),
+    [aux_sym_include_statement_token1] = ACTIONS(4425),
+    [aux_sym_data_statement_token1] = ACTIONS(4425),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_end_if_statement_token1] = ACTIONS(4425),
+    [aux_sym_elseif_clause_token2] = ACTIONS(4425),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4425),
+    [aux_sym_block_construct_token1] = ACTIONS(4425),
+    [aux_sym_format_statement_token1] = ACTIONS(4425),
+    [aux_sym_inquire_statement_token1] = ACTIONS(4425),
+    [aux_sym_enum_statement_token1] = ACTIONS(4425),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4425),
+    [aux_sym_entry_statement_token1] = ACTIONS(4425),
+    [aux_sym_null_literal_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token2] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token6] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token8] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token11] = ACTIONS(4425),
+    [aux_sym_coarray_statement_token12] = ACTIONS(4425),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(4425),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4425),
+    [aux_sym_identifier_token1] = ACTIONS(4425),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(4427),
+  },
+  [3093] = {
+    [sym__expression] = STATE(4509),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [3094] = {
+    [sym__expression] = STATE(4538),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463588,40 +463355,224 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
+  [3095] = {
+    [sym__name] = STATE(6508),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4594),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7132),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7134),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7134),
+  },
   [3096] = {
-    [sym__expression] = STATE(4335),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [sym__name] = STATE(7197),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1101),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_program_statement_token1] = ACTIONS(7136),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7138),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7138),
+  },
+  [3097] = {
+    [sym__expression] = STATE(4606),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463663,7 +463614,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -463680,40 +463631,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3097] = {
-    [sym__expression] = STATE(4609),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3098] = {
+    [sym__expression] = STATE(4537),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463755,7 +463706,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -463772,37 +463723,129 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3098] = {
-    [sym__name] = STATE(6464),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5117),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3099] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5128),
+    [aux_sym_preproc_def_token1] = ACTIONS(5128),
+    [aux_sym_preproc_if_token2] = ACTIONS(5128),
+    [sym_preproc_directive] = ACTIONS(5128),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5128),
+    [aux_sym_interface_statement_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5128),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5128),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5128),
+    [aux_sym_language_binding_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5128),
+    [aux_sym_contains_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token1] = ACTIONS(5128),
+    [aux_sym_use_statement_token2] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5128),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5128),
+    [aux_sym_save_statement_token1] = ACTIONS(5128),
+    [aux_sym_private_statement_token1] = ACTIONS(5128),
+    [aux_sym_public_statement_token1] = ACTIONS(5128),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5128),
+    [aux_sym_common_statement_token1] = ACTIONS(5128),
+    [aux_sym_import_statement_token1] = ACTIONS(5128),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5128),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5128),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5128),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5128),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5128),
+    [aux_sym_derived_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token1] = ACTIONS(5128),
+    [aux_sym_declared_type_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5128),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5128),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5128),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token1] = ACTIONS(5128),
+    [aux_sym_stop_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5128),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5128),
+    [aux_sym_include_statement_token1] = ACTIONS(5128),
+    [aux_sym_data_statement_token1] = ACTIONS(5128),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5128),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5128),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5128),
+    [aux_sym_block_construct_token1] = ACTIONS(5128),
+    [aux_sym_format_statement_token1] = ACTIONS(5128),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5128),
+    [aux_sym_enum_statement_token1] = ACTIONS(5128),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5128),
+    [aux_sym_entry_statement_token1] = ACTIONS(5128),
+    [aux_sym_null_literal_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5128),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5128),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5128),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5128),
+    [aux_sym_identifier_token1] = ACTIONS(5128),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5130),
+  },
+  [3100] = {
+    [sym__name] = STATE(6505),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4607),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7140),
+    [aux_sym_function_statement_token1] = ACTIONS(7140),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -463841,21 +463884,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -463865,39 +463908,499 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7142),
+    [sym__external_end_of_statement] = ACTIONS(7142),
+  },
+  [3101] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5116),
+    [aux_sym_preproc_def_token1] = ACTIONS(5116),
+    [aux_sym_preproc_if_token2] = ACTIONS(5116),
+    [sym_preproc_directive] = ACTIONS(5116),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
+    [aux_sym_interface_statement_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
+    [aux_sym_language_binding_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
+    [aux_sym_contains_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token1] = ACTIONS(5116),
+    [aux_sym_use_statement_token2] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
+    [aux_sym_save_statement_token1] = ACTIONS(5116),
+    [aux_sym_private_statement_token1] = ACTIONS(5116),
+    [aux_sym_public_statement_token1] = ACTIONS(5116),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
+    [aux_sym_common_statement_token1] = ACTIONS(5116),
+    [aux_sym_import_statement_token1] = ACTIONS(5116),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
+    [aux_sym_derived_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token1] = ACTIONS(5116),
+    [aux_sym_declared_type_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token1] = ACTIONS(5116),
+    [aux_sym_stop_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
+    [aux_sym_include_statement_token1] = ACTIONS(5116),
+    [aux_sym_data_statement_token1] = ACTIONS(5116),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
+    [aux_sym_block_construct_token1] = ACTIONS(5116),
+    [aux_sym_format_statement_token1] = ACTIONS(5116),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
+    [aux_sym_enum_statement_token1] = ACTIONS(5116),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
+    [aux_sym_entry_statement_token1] = ACTIONS(5116),
+    [aux_sym_null_literal_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
+    [aux_sym_identifier_token1] = ACTIONS(5116),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5118),
+  },
+  [3102] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5088),
+    [aux_sym_preproc_def_token1] = ACTIONS(5088),
+    [aux_sym_preproc_if_token2] = ACTIONS(5088),
+    [sym_preproc_directive] = ACTIONS(5088),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5088),
+    [aux_sym_interface_statement_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5088),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5088),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5088),
+    [aux_sym_language_binding_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5088),
+    [aux_sym_contains_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token1] = ACTIONS(5088),
+    [aux_sym_use_statement_token2] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5088),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5088),
+    [aux_sym_save_statement_token1] = ACTIONS(5088),
+    [aux_sym_private_statement_token1] = ACTIONS(5088),
+    [aux_sym_public_statement_token1] = ACTIONS(5088),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5088),
+    [aux_sym_common_statement_token1] = ACTIONS(5088),
+    [aux_sym_import_statement_token1] = ACTIONS(5088),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5088),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5088),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5088),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5088),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5088),
+    [aux_sym_derived_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token1] = ACTIONS(5088),
+    [aux_sym_declared_type_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5088),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5088),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5088),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token1] = ACTIONS(5088),
+    [aux_sym_stop_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5088),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5088),
+    [aux_sym_include_statement_token1] = ACTIONS(5088),
+    [aux_sym_data_statement_token1] = ACTIONS(5088),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5088),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5088),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5088),
+    [aux_sym_block_construct_token1] = ACTIONS(5088),
+    [aux_sym_format_statement_token1] = ACTIONS(5088),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5088),
+    [aux_sym_enum_statement_token1] = ACTIONS(5088),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5088),
+    [aux_sym_entry_statement_token1] = ACTIONS(5088),
+    [aux_sym_null_literal_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5088),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5088),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5088),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5088),
+    [aux_sym_identifier_token1] = ACTIONS(5088),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5090),
+  },
+  [3103] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5078),
+    [aux_sym_preproc_def_token1] = ACTIONS(5078),
+    [aux_sym_preproc_if_token2] = ACTIONS(5078),
+    [sym_preproc_directive] = ACTIONS(5078),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5078),
+    [aux_sym_interface_statement_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5078),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5078),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5078),
+    [aux_sym_language_binding_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5078),
+    [aux_sym_contains_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token1] = ACTIONS(5078),
+    [aux_sym_use_statement_token2] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5078),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5078),
+    [aux_sym_save_statement_token1] = ACTIONS(5078),
+    [aux_sym_private_statement_token1] = ACTIONS(5078),
+    [aux_sym_public_statement_token1] = ACTIONS(5078),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5078),
+    [aux_sym_common_statement_token1] = ACTIONS(5078),
+    [aux_sym_import_statement_token1] = ACTIONS(5078),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5078),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5078),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5078),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5078),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5078),
+    [aux_sym_derived_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token1] = ACTIONS(5078),
+    [aux_sym_declared_type_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5078),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5078),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5078),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token1] = ACTIONS(5078),
+    [aux_sym_stop_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5078),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5078),
+    [aux_sym_include_statement_token1] = ACTIONS(5078),
+    [aux_sym_data_statement_token1] = ACTIONS(5078),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5078),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5078),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5078),
+    [aux_sym_block_construct_token1] = ACTIONS(5078),
+    [aux_sym_format_statement_token1] = ACTIONS(5078),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5078),
+    [aux_sym_enum_statement_token1] = ACTIONS(5078),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5078),
+    [aux_sym_entry_statement_token1] = ACTIONS(5078),
+    [aux_sym_null_literal_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5078),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5078),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5078),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5078),
+    [aux_sym_identifier_token1] = ACTIONS(5078),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5080),
+  },
+  [3104] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5052),
+    [aux_sym_preproc_def_token1] = ACTIONS(5052),
+    [aux_sym_preproc_if_token2] = ACTIONS(5052),
+    [sym_preproc_directive] = ACTIONS(5052),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5052),
+    [aux_sym_interface_statement_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5052),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5052),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5052),
+    [aux_sym_language_binding_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5052),
+    [aux_sym_contains_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token1] = ACTIONS(5052),
+    [aux_sym_use_statement_token2] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5052),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5052),
+    [aux_sym_save_statement_token1] = ACTIONS(5052),
+    [aux_sym_private_statement_token1] = ACTIONS(5052),
+    [aux_sym_public_statement_token1] = ACTIONS(5052),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5052),
+    [aux_sym_common_statement_token1] = ACTIONS(5052),
+    [aux_sym_import_statement_token1] = ACTIONS(5052),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5052),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5052),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5052),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5052),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5052),
+    [aux_sym_derived_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token1] = ACTIONS(5052),
+    [aux_sym_declared_type_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5052),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5052),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5052),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token1] = ACTIONS(5052),
+    [aux_sym_stop_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5052),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5052),
+    [aux_sym_include_statement_token1] = ACTIONS(5052),
+    [aux_sym_data_statement_token1] = ACTIONS(5052),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5052),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5052),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5052),
+    [aux_sym_block_construct_token1] = ACTIONS(5052),
+    [aux_sym_format_statement_token1] = ACTIONS(5052),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5052),
+    [aux_sym_enum_statement_token1] = ACTIONS(5052),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5052),
+    [aux_sym_entry_statement_token1] = ACTIONS(5052),
+    [aux_sym_null_literal_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5052),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5052),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5052),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5052),
+    [aux_sym_identifier_token1] = ACTIONS(5052),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5054),
+  },
+  [3105] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5120),
+    [aux_sym_preproc_def_token1] = ACTIONS(5120),
+    [aux_sym_preproc_if_token2] = ACTIONS(5120),
+    [sym_preproc_directive] = ACTIONS(5120),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5120),
+    [aux_sym_interface_statement_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5120),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5120),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5120),
+    [aux_sym_language_binding_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5120),
+    [aux_sym_contains_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token1] = ACTIONS(5120),
+    [aux_sym_use_statement_token2] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5120),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5120),
+    [aux_sym_save_statement_token1] = ACTIONS(5120),
+    [aux_sym_private_statement_token1] = ACTIONS(5120),
+    [aux_sym_public_statement_token1] = ACTIONS(5120),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5120),
+    [aux_sym_common_statement_token1] = ACTIONS(5120),
+    [aux_sym_import_statement_token1] = ACTIONS(5120),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5120),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5120),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5120),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5120),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5120),
+    [aux_sym_derived_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token1] = ACTIONS(5120),
+    [aux_sym_declared_type_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5120),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5120),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5120),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token1] = ACTIONS(5120),
+    [aux_sym_stop_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5120),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5120),
+    [aux_sym_include_statement_token1] = ACTIONS(5120),
+    [aux_sym_data_statement_token1] = ACTIONS(5120),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5120),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5120),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5120),
+    [aux_sym_block_construct_token1] = ACTIONS(5120),
+    [aux_sym_format_statement_token1] = ACTIONS(5120),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5120),
+    [aux_sym_enum_statement_token1] = ACTIONS(5120),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5120),
+    [aux_sym_entry_statement_token1] = ACTIONS(5120),
+    [aux_sym_null_literal_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5120),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5120),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5120),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5120),
+    [aux_sym_identifier_token1] = ACTIONS(5120),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5122),
   },
-  [3099] = {
-    [sym__expression] = STATE(4640),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3106] = {
+    [sym__expression] = STATE(4463),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -463939,7 +464442,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -463956,132 +464459,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3100] = {
-    [sym__name] = STATE(7196),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4965),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7144),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7146),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7146),
-  },
-  [3101] = {
-    [sym__expression] = STATE(4606),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3107] = {
+    [sym__expression] = STATE(4525),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -464146,34 +464557,34 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3102] = {
-    [sym__expression] = STATE(4495),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5230),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5230),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5230),
+  [3108] = {
+    [sym__expression] = STATE(4667),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -464215,7 +464626,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -464232,316 +464643,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3103] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5124),
-    [aux_sym_preproc_def_token1] = ACTIONS(5124),
-    [aux_sym_preproc_if_token2] = ACTIONS(5124),
-    [sym_preproc_directive] = ACTIONS(5124),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5124),
-    [aux_sym_interface_statement_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5124),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5124),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5124),
-    [aux_sym_language_binding_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5124),
-    [aux_sym_contains_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token1] = ACTIONS(5124),
-    [aux_sym_use_statement_token2] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5124),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5124),
-    [aux_sym_save_statement_token1] = ACTIONS(5124),
-    [aux_sym_private_statement_token1] = ACTIONS(5124),
-    [aux_sym_public_statement_token1] = ACTIONS(5124),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5124),
-    [aux_sym_common_statement_token1] = ACTIONS(5124),
-    [aux_sym_import_statement_token1] = ACTIONS(5124),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5124),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5124),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5124),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5124),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5124),
-    [aux_sym_derived_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token1] = ACTIONS(5124),
-    [aux_sym_declared_type_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5124),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5124),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5124),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token1] = ACTIONS(5124),
-    [aux_sym_stop_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5124),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5124),
-    [aux_sym_include_statement_token1] = ACTIONS(5124),
-    [aux_sym_data_statement_token1] = ACTIONS(5124),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5124),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5124),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5124),
-    [aux_sym_block_construct_token1] = ACTIONS(5124),
-    [aux_sym_format_statement_token1] = ACTIONS(5124),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5124),
-    [aux_sym_enum_statement_token1] = ACTIONS(5124),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5124),
-    [aux_sym_entry_statement_token1] = ACTIONS(5124),
-    [aux_sym_null_literal_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5124),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5124),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5124),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5124),
-    [aux_sym_identifier_token1] = ACTIONS(5124),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5126),
-  },
-  [3104] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5132),
-    [aux_sym_preproc_def_token1] = ACTIONS(5132),
-    [aux_sym_preproc_if_token2] = ACTIONS(5132),
-    [sym_preproc_directive] = ACTIONS(5132),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5132),
-    [aux_sym_interface_statement_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5132),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5132),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5132),
-    [aux_sym_language_binding_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5132),
-    [aux_sym_contains_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token1] = ACTIONS(5132),
-    [aux_sym_use_statement_token2] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5132),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5132),
-    [aux_sym_save_statement_token1] = ACTIONS(5132),
-    [aux_sym_private_statement_token1] = ACTIONS(5132),
-    [aux_sym_public_statement_token1] = ACTIONS(5132),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5132),
-    [aux_sym_common_statement_token1] = ACTIONS(5132),
-    [aux_sym_import_statement_token1] = ACTIONS(5132),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5132),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5132),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5132),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5132),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5132),
-    [aux_sym_derived_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token1] = ACTIONS(5132),
-    [aux_sym_declared_type_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5132),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5132),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5132),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token1] = ACTIONS(5132),
-    [aux_sym_stop_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5132),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5132),
-    [aux_sym_include_statement_token1] = ACTIONS(5132),
-    [aux_sym_data_statement_token1] = ACTIONS(5132),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5132),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5132),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5132),
-    [aux_sym_block_construct_token1] = ACTIONS(5132),
-    [aux_sym_format_statement_token1] = ACTIONS(5132),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5132),
-    [aux_sym_enum_statement_token1] = ACTIONS(5132),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5132),
-    [aux_sym_entry_statement_token1] = ACTIONS(5132),
-    [aux_sym_null_literal_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5132),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5132),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5132),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5132),
-    [aux_sym_identifier_token1] = ACTIONS(5132),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5134),
-  },
-  [3105] = {
-    [sym__name] = STATE(6688),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5062),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7148),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7150),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7150),
-  },
-  [3106] = {
-    [sym__expression] = STATE(4663),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3109] = {
+    [sym__expression] = STATE(4445),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -464583,7 +464718,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -464600,592 +464735,408 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3107] = {
-    [sym__expression] = STATE(4374),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+  [3110] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(5048),
+    [aux_sym_preproc_def_token1] = ACTIONS(5048),
+    [aux_sym_preproc_if_token2] = ACTIONS(5048),
+    [sym_preproc_directive] = ACTIONS(5048),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5048),
+    [aux_sym_interface_statement_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5048),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5048),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5048),
+    [aux_sym_language_binding_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5048),
+    [aux_sym_contains_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token1] = ACTIONS(5048),
+    [aux_sym_use_statement_token2] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5048),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5048),
+    [aux_sym_save_statement_token1] = ACTIONS(5048),
+    [aux_sym_private_statement_token1] = ACTIONS(5048),
+    [aux_sym_public_statement_token1] = ACTIONS(5048),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5048),
+    [aux_sym_common_statement_token1] = ACTIONS(5048),
+    [aux_sym_import_statement_token1] = ACTIONS(5048),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5048),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5048),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5048),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5048),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5048),
+    [aux_sym_derived_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token1] = ACTIONS(5048),
+    [aux_sym_declared_type_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5048),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5048),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5048),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token1] = ACTIONS(5048),
+    [aux_sym_stop_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5048),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5048),
+    [aux_sym_include_statement_token1] = ACTIONS(5048),
+    [aux_sym_data_statement_token1] = ACTIONS(5048),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5048),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5048),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5048),
+    [aux_sym_block_construct_token1] = ACTIONS(5048),
+    [aux_sym_format_statement_token1] = ACTIONS(5048),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5048),
+    [aux_sym_enum_statement_token1] = ACTIONS(5048),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5048),
+    [aux_sym_entry_statement_token1] = ACTIONS(5048),
+    [aux_sym_null_literal_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5048),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5048),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5048),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5048),
+    [aux_sym_identifier_token1] = ACTIONS(5048),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5050),
   },
-  [3108] = {
-    [sym__expression] = STATE(4375),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3111] = {
+    [sym__expression] = STATE(4425),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2986),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
+    [anon_sym_PLUS] = ACTIONS(7000),
+    [anon_sym_DASH] = ACTIONS(7000),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(7002),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(7004),
+    [sym__string_literal_kind] = ACTIONS(7006),
   },
-  [3109] = {
-    [sym__expression] = STATE(4670),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3112] = {
+    [sym__expression] = STATE(4231),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
     [aux_sym_boolean_literal_token1] = ACTIONS(173),
     [aux_sym_boolean_literal_token2] = ACTIONS(173),
     [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3110] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5082),
-    [aux_sym_preproc_def_token1] = ACTIONS(5082),
-    [aux_sym_preproc_if_token2] = ACTIONS(5082),
-    [sym_preproc_directive] = ACTIONS(5082),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5082),
-    [aux_sym_interface_statement_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5082),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5082),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5082),
-    [aux_sym_language_binding_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5082),
-    [aux_sym_contains_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token1] = ACTIONS(5082),
-    [aux_sym_use_statement_token2] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5082),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5082),
-    [aux_sym_save_statement_token1] = ACTIONS(5082),
-    [aux_sym_private_statement_token1] = ACTIONS(5082),
-    [aux_sym_public_statement_token1] = ACTIONS(5082),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5082),
-    [aux_sym_common_statement_token1] = ACTIONS(5082),
-    [aux_sym_import_statement_token1] = ACTIONS(5082),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5082),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5082),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5082),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5082),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5082),
-    [aux_sym_derived_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token1] = ACTIONS(5082),
-    [aux_sym_declared_type_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5082),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5082),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5082),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token1] = ACTIONS(5082),
-    [aux_sym_stop_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5082),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5082),
-    [aux_sym_include_statement_token1] = ACTIONS(5082),
-    [aux_sym_data_statement_token1] = ACTIONS(5082),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5082),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5082),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5082),
-    [aux_sym_block_construct_token1] = ACTIONS(5082),
-    [aux_sym_format_statement_token1] = ACTIONS(5082),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5082),
-    [aux_sym_enum_statement_token1] = ACTIONS(5082),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5082),
-    [aux_sym_entry_statement_token1] = ACTIONS(5082),
-    [aux_sym_null_literal_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5082),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5082),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5082),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5082),
-    [aux_sym_identifier_token1] = ACTIONS(5082),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5084),
-  },
-  [3111] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4613),
-    [aux_sym_preproc_def_token1] = ACTIONS(4613),
-    [aux_sym_preproc_if_token2] = ACTIONS(4613),
-    [sym_preproc_directive] = ACTIONS(4613),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4613),
-    [aux_sym_interface_statement_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4613),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4613),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4613),
-    [aux_sym_language_binding_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4613),
-    [aux_sym_contains_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token1] = ACTIONS(4613),
-    [aux_sym_use_statement_token2] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4613),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4613),
-    [aux_sym_save_statement_token1] = ACTIONS(4613),
-    [aux_sym_private_statement_token1] = ACTIONS(4613),
-    [aux_sym_public_statement_token1] = ACTIONS(4613),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4613),
-    [aux_sym_common_statement_token1] = ACTIONS(4613),
-    [aux_sym_import_statement_token1] = ACTIONS(4613),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4613),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4613),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4613),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4613),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4613),
-    [aux_sym_derived_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token1] = ACTIONS(4613),
-    [aux_sym_declared_type_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4613),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4613),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4613),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token1] = ACTIONS(4613),
-    [aux_sym_stop_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4613),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4613),
-    [aux_sym_include_statement_token1] = ACTIONS(4613),
-    [aux_sym_data_statement_token1] = ACTIONS(4613),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4613),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4613),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4613),
-    [aux_sym_block_construct_token1] = ACTIONS(4613),
-    [aux_sym_format_statement_token1] = ACTIONS(4613),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4613),
-    [aux_sym_enum_statement_token1] = ACTIONS(4613),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4613),
-    [aux_sym_entry_statement_token1] = ACTIONS(4613),
-    [aux_sym_null_literal_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4613),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4613),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4613),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4613),
-    [aux_sym_identifier_token1] = ACTIONS(4613),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4615),
-  },
-  [3112] = {
-    [sym__expression] = STATE(4415),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
   [3113] = {
-    [sym__expression] = STATE(4635),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+    [aux_sym_preproc_include_token1] = ACTIONS(5070),
+    [aux_sym_preproc_def_token1] = ACTIONS(5070),
+    [aux_sym_preproc_if_token2] = ACTIONS(5070),
+    [sym_preproc_directive] = ACTIONS(5070),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5070),
+    [aux_sym_interface_statement_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5070),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5070),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(5070),
+    [aux_sym_language_binding_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5070),
+    [aux_sym_contains_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token1] = ACTIONS(5070),
+    [aux_sym_use_statement_token2] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token1] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5070),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5070),
+    [aux_sym_save_statement_token1] = ACTIONS(5070),
+    [aux_sym_private_statement_token1] = ACTIONS(5070),
+    [aux_sym_public_statement_token1] = ACTIONS(5070),
+    [aux_sym_namelist_statement_token1] = ACTIONS(5070),
+    [aux_sym_common_statement_token1] = ACTIONS(5070),
+    [aux_sym_import_statement_token1] = ACTIONS(5070),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5070),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5070),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5070),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5070),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5070),
+    [aux_sym_derived_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token1] = ACTIONS(5070),
+    [aux_sym_declared_type_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5070),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5070),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5070),
+    [aux_sym_equivalence_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token1] = ACTIONS(5070),
+    [aux_sym_stop_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5070),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5070),
+    [aux_sym_include_statement_token1] = ACTIONS(5070),
+    [aux_sym_data_statement_token1] = ACTIONS(5070),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5070),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5070),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5070),
+    [aux_sym_block_construct_token1] = ACTIONS(5070),
+    [aux_sym_format_statement_token1] = ACTIONS(5070),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5070),
+    [aux_sym_enum_statement_token1] = ACTIONS(5070),
+    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5070),
+    [aux_sym_entry_statement_token1] = ACTIONS(5070),
+    [aux_sym_null_literal_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5070),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5070),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5070),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5070),
+    [aux_sym_identifier_token1] = ACTIONS(5070),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5072),
+  },
+  [3114] = {
+    [sym__expression] = STATE(4355),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(19),
-    [anon_sym_DASH] = ACTIONS(19),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -465227,7 +465178,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -465244,224 +465195,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(193),
-    [sym__float_literal] = ACTIONS(193),
-    [sym__boz_literal] = ACTIONS(193),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3114] = {
-    [sym__name] = STATE(6701),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4755),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7152),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7154),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7154),
-  },
   [3115] = {
-    [sym__expression] = STATE(4373),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(2979),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
-    [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(7018),
-    [anon_sym_DASH] = ACTIONS(7018),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6978),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6978),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6978),
-    [aux_sym_use_statement_token2] = ACTIONS(6978),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6978),
-    [aux_sym_save_statement_token1] = ACTIONS(6978),
-    [aux_sym_private_statement_token1] = ACTIONS(6978),
-    [aux_sym_public_statement_token1] = ACTIONS(6978),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6978),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6978),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6978),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6980),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6982),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6978),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6978),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6978),
-    [aux_sym_stop_statement_token1] = ACTIONS(6978),
-    [aux_sym_stop_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6978),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6978),
-    [aux_sym_data_statement_token1] = ACTIONS(6978),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6978),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6978),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6984),
-    [aux_sym_block_construct_token1] = ACTIONS(6978),
-    [aux_sym_format_statement_token1] = ACTIONS(6978),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6978),
-    [aux_sym_entry_statement_token1] = ACTIONS(6978),
-    [aux_sym_logical_expression_token5] = ACTIONS(7020),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
-    [anon_sym_LBRACK] = ACTIONS(171),
-    [aux_sym_boolean_literal_token1] = ACTIONS(173),
-    [aux_sym_boolean_literal_token2] = ACTIONS(173),
-    [aux_sym_null_literal_token1] = ACTIONS(175),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6978),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6978),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6978),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6978),
-    [aux_sym_identifier_token1] = ACTIONS(6978),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(7022),
-    [sym__string_literal_kind] = ACTIONS(7024),
-  },
-  [3116] = {
-    [sym__expression] = STATE(4465),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5053),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5053),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5053),
+    [sym__expression] = STATE(4358),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -465503,7 +465270,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -465520,408 +465287,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3117] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5062),
-    [aux_sym_preproc_def_token1] = ACTIONS(5062),
-    [aux_sym_preproc_if_token2] = ACTIONS(5062),
-    [sym_preproc_directive] = ACTIONS(5062),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5062),
-    [aux_sym_interface_statement_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5062),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5062),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5062),
-    [aux_sym_language_binding_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5062),
-    [aux_sym_contains_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token1] = ACTIONS(5062),
-    [aux_sym_use_statement_token2] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5062),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5062),
-    [aux_sym_save_statement_token1] = ACTIONS(5062),
-    [aux_sym_private_statement_token1] = ACTIONS(5062),
-    [aux_sym_public_statement_token1] = ACTIONS(5062),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5062),
-    [aux_sym_common_statement_token1] = ACTIONS(5062),
-    [aux_sym_import_statement_token1] = ACTIONS(5062),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5062),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5062),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5062),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5062),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5062),
-    [aux_sym_derived_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token1] = ACTIONS(5062),
-    [aux_sym_declared_type_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5062),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5062),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5062),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token1] = ACTIONS(5062),
-    [aux_sym_stop_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5062),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5062),
-    [aux_sym_include_statement_token1] = ACTIONS(5062),
-    [aux_sym_data_statement_token1] = ACTIONS(5062),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5062),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5062),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5062),
-    [aux_sym_block_construct_token1] = ACTIONS(5062),
-    [aux_sym_format_statement_token1] = ACTIONS(5062),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5062),
-    [aux_sym_enum_statement_token1] = ACTIONS(5062),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5062),
-    [aux_sym_entry_statement_token1] = ACTIONS(5062),
-    [aux_sym_null_literal_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5062),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5062),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5062),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5062),
-    [aux_sym_identifier_token1] = ACTIONS(5062),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5064),
-  },
-  [3118] = {
-    [sym__name] = STATE(7149),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1029),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_program_statement_token1] = ACTIONS(7156),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7158),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7158),
-  },
-  [3119] = {
-    [sym__expression] = STATE(4636),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
-  },
-  [3120] = {
-    [sym__name] = STATE(6705),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4757),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7160),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7162),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7162),
-  },
-  [3121] = {
-    [sym__expression] = STATE(4654),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3116] = {
+    [sym__expression] = STATE(4357),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -465963,7 +465362,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -465980,316 +465379,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
-    [sym__string_literal] = ACTIONS(195),
-    [sym__string_literal_kind] = ACTIONS(197),
-  },
-  [3122] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5116),
-    [aux_sym_preproc_def_token1] = ACTIONS(5116),
-    [aux_sym_preproc_if_token2] = ACTIONS(5116),
-    [sym_preproc_directive] = ACTIONS(5116),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5116),
-    [aux_sym_interface_statement_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5116),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5116),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5116),
-    [aux_sym_language_binding_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5116),
-    [aux_sym_contains_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token1] = ACTIONS(5116),
-    [aux_sym_use_statement_token2] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5116),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5116),
-    [aux_sym_save_statement_token1] = ACTIONS(5116),
-    [aux_sym_private_statement_token1] = ACTIONS(5116),
-    [aux_sym_public_statement_token1] = ACTIONS(5116),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5116),
-    [aux_sym_common_statement_token1] = ACTIONS(5116),
-    [aux_sym_import_statement_token1] = ACTIONS(5116),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5116),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5116),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5116),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5116),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5116),
-    [aux_sym_derived_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token1] = ACTIONS(5116),
-    [aux_sym_declared_type_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5116),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5116),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5116),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token1] = ACTIONS(5116),
-    [aux_sym_stop_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5116),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5116),
-    [aux_sym_include_statement_token1] = ACTIONS(5116),
-    [aux_sym_data_statement_token1] = ACTIONS(5116),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5116),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5116),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5116),
-    [aux_sym_block_construct_token1] = ACTIONS(5116),
-    [aux_sym_format_statement_token1] = ACTIONS(5116),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5116),
-    [aux_sym_enum_statement_token1] = ACTIONS(5116),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5116),
-    [aux_sym_entry_statement_token1] = ACTIONS(5116),
-    [aux_sym_null_literal_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5116),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5116),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5116),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5116),
-    [aux_sym_identifier_token1] = ACTIONS(5116),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5118),
-  },
-  [3123] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4629),
-    [aux_sym_preproc_def_token1] = ACTIONS(4629),
-    [aux_sym_preproc_if_token2] = ACTIONS(4629),
-    [sym_preproc_directive] = ACTIONS(4629),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4629),
-    [aux_sym_interface_statement_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4629),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4629),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4629),
-    [aux_sym_language_binding_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4629),
-    [aux_sym_contains_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token1] = ACTIONS(4629),
-    [aux_sym_use_statement_token2] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4629),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4629),
-    [aux_sym_save_statement_token1] = ACTIONS(4629),
-    [aux_sym_private_statement_token1] = ACTIONS(4629),
-    [aux_sym_public_statement_token1] = ACTIONS(4629),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4629),
-    [aux_sym_common_statement_token1] = ACTIONS(4629),
-    [aux_sym_import_statement_token1] = ACTIONS(4629),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4629),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4629),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4629),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4629),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4629),
-    [aux_sym_derived_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token1] = ACTIONS(4629),
-    [aux_sym_declared_type_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4629),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4629),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4629),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token1] = ACTIONS(4629),
-    [aux_sym_stop_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4629),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4629),
-    [aux_sym_include_statement_token1] = ACTIONS(4629),
-    [aux_sym_data_statement_token1] = ACTIONS(4629),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4629),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4629),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4629),
-    [aux_sym_block_construct_token1] = ACTIONS(4629),
-    [aux_sym_format_statement_token1] = ACTIONS(4629),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4629),
-    [aux_sym_enum_statement_token1] = ACTIONS(4629),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4629),
-    [aux_sym_entry_statement_token1] = ACTIONS(4629),
-    [aux_sym_null_literal_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4629),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4629),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4629),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4629),
-    [aux_sym_identifier_token1] = ACTIONS(4629),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4631),
-  },
-  [3124] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4637),
-    [aux_sym_preproc_def_token1] = ACTIONS(4637),
-    [aux_sym_preproc_if_token2] = ACTIONS(4637),
-    [sym_preproc_directive] = ACTIONS(4637),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4637),
-    [aux_sym_interface_statement_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4637),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4637),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4637),
-    [aux_sym_language_binding_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4637),
-    [aux_sym_contains_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token1] = ACTIONS(4637),
-    [aux_sym_use_statement_token2] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4637),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4637),
-    [aux_sym_save_statement_token1] = ACTIONS(4637),
-    [aux_sym_private_statement_token1] = ACTIONS(4637),
-    [aux_sym_public_statement_token1] = ACTIONS(4637),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4637),
-    [aux_sym_common_statement_token1] = ACTIONS(4637),
-    [aux_sym_import_statement_token1] = ACTIONS(4637),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4637),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4637),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4637),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4637),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4637),
-    [aux_sym_derived_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token1] = ACTIONS(4637),
-    [aux_sym_declared_type_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4637),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4637),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4637),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token1] = ACTIONS(4637),
-    [aux_sym_stop_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4637),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4637),
-    [aux_sym_include_statement_token1] = ACTIONS(4637),
-    [aux_sym_data_statement_token1] = ACTIONS(4637),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4637),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4637),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4637),
-    [aux_sym_block_construct_token1] = ACTIONS(4637),
-    [aux_sym_format_statement_token1] = ACTIONS(4637),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4637),
-    [aux_sym_enum_statement_token1] = ACTIONS(4637),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4637),
-    [aux_sym_entry_statement_token1] = ACTIONS(4637),
-    [aux_sym_null_literal_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4637),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4637),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4637),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4637),
-    [aux_sym_identifier_token1] = ACTIONS(4637),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4639),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3125] = {
-    [sym__expression] = STATE(4408),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3117] = {
+    [sym__expression] = STATE(4353),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -466331,7 +465454,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -466348,132 +465471,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3126] = {
-    [sym__name] = STATE(7154),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1054),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_program_statement_token1] = ACTIONS(7164),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7166),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7166),
-  },
-  [3127] = {
-    [sym__expression] = STATE(4410),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3118] = {
+    [sym__expression] = STATE(4350),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -466515,7 +465546,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -466532,40 +465563,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3128] = {
-    [sym__expression] = STATE(4476),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(5235),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(5235),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5235),
+  [3119] = {
+    [sym__expression] = STATE(4340),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -466607,7 +465638,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -466624,132 +465655,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3129] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4401),
-    [aux_sym_preproc_def_token1] = ACTIONS(4401),
-    [aux_sym_preproc_if_token2] = ACTIONS(4401),
-    [sym_preproc_directive] = ACTIONS(4401),
+  [3120] = {
+    [sym__expression] = STATE(4238),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4401),
-    [aux_sym_interface_statement_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4401),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4401),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4401),
-    [aux_sym_language_binding_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4401),
-    [aux_sym_contains_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token1] = ACTIONS(4401),
-    [aux_sym_use_statement_token2] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4401),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4401),
-    [aux_sym_save_statement_token1] = ACTIONS(4401),
-    [aux_sym_private_statement_token1] = ACTIONS(4401),
-    [aux_sym_public_statement_token1] = ACTIONS(4401),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4401),
-    [aux_sym_common_statement_token1] = ACTIONS(4401),
-    [aux_sym_import_statement_token1] = ACTIONS(4401),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4401),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4401),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4401),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4401),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4401),
-    [aux_sym_derived_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token1] = ACTIONS(4401),
-    [aux_sym_declared_type_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4401),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4401),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4401),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token1] = ACTIONS(4401),
-    [aux_sym_stop_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4401),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4401),
-    [aux_sym_include_statement_token1] = ACTIONS(4401),
-    [aux_sym_data_statement_token1] = ACTIONS(4401),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4401),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4401),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4401),
-    [aux_sym_block_construct_token1] = ACTIONS(4401),
-    [aux_sym_format_statement_token1] = ACTIONS(4401),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4401),
-    [aux_sym_enum_statement_token1] = ACTIONS(4401),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4401),
-    [aux_sym_entry_statement_token1] = ACTIONS(4401),
-    [aux_sym_null_literal_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4401),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4401),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4401),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4401),
-    [aux_sym_identifier_token1] = ACTIONS(4401),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4403),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3130] = {
-    [sym__expression] = STATE(4597),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3121] = {
+    [sym__expression] = STATE(4339),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -466791,7 +465822,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -466808,684 +465839,500 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3131] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4529),
-    [aux_sym_preproc_def_token1] = ACTIONS(4529),
-    [aux_sym_preproc_if_token2] = ACTIONS(4529),
-    [sym_preproc_directive] = ACTIONS(4529),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4529),
-    [aux_sym_interface_statement_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4529),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4529),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4529),
-    [aux_sym_language_binding_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4529),
-    [aux_sym_contains_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token1] = ACTIONS(4529),
-    [aux_sym_use_statement_token2] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4529),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4529),
-    [aux_sym_save_statement_token1] = ACTIONS(4529),
-    [aux_sym_private_statement_token1] = ACTIONS(4529),
-    [aux_sym_public_statement_token1] = ACTIONS(4529),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4529),
-    [aux_sym_common_statement_token1] = ACTIONS(4529),
-    [aux_sym_import_statement_token1] = ACTIONS(4529),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4529),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4529),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4529),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4529),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4529),
-    [aux_sym_derived_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token1] = ACTIONS(4529),
-    [aux_sym_declared_type_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4529),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4529),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4529),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token1] = ACTIONS(4529),
-    [aux_sym_stop_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4529),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4529),
-    [aux_sym_include_statement_token1] = ACTIONS(4529),
-    [aux_sym_data_statement_token1] = ACTIONS(4529),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4529),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4529),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4529),
-    [aux_sym_block_construct_token1] = ACTIONS(4529),
-    [aux_sym_format_statement_token1] = ACTIONS(4529),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4529),
-    [aux_sym_enum_statement_token1] = ACTIONS(4529),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4529),
-    [aux_sym_entry_statement_token1] = ACTIONS(4529),
-    [aux_sym_null_literal_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4529),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4529),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4529),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4529),
-    [aux_sym_identifier_token1] = ACTIONS(4529),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4531),
-  },
-  [3132] = {
-    [sym__name] = STATE(6854),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(5068),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7168),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7170),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+  [3122] = {
+    [sym__expression] = STATE(4335),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7170),
-  },
-  [3133] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4617),
-    [aux_sym_preproc_def_token1] = ACTIONS(4617),
-    [aux_sym_preproc_if_token2] = ACTIONS(4617),
-    [sym_preproc_directive] = ACTIONS(4617),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4617),
-    [aux_sym_interface_statement_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4617),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4617),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4617),
-    [aux_sym_language_binding_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4617),
-    [aux_sym_contains_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token1] = ACTIONS(4617),
-    [aux_sym_use_statement_token2] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4617),
-    [aux_sym_save_statement_token1] = ACTIONS(4617),
-    [aux_sym_private_statement_token1] = ACTIONS(4617),
-    [aux_sym_public_statement_token1] = ACTIONS(4617),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4617),
-    [aux_sym_common_statement_token1] = ACTIONS(4617),
-    [aux_sym_import_statement_token1] = ACTIONS(4617),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4617),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4617),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4617),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4617),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4617),
-    [aux_sym_derived_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token1] = ACTIONS(4617),
-    [aux_sym_declared_type_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4617),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4617),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4617),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token1] = ACTIONS(4617),
-    [aux_sym_stop_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4617),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4617),
-    [aux_sym_include_statement_token1] = ACTIONS(4617),
-    [aux_sym_data_statement_token1] = ACTIONS(4617),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4617),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4617),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4617),
-    [aux_sym_block_construct_token1] = ACTIONS(4617),
-    [aux_sym_format_statement_token1] = ACTIONS(4617),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4617),
-    [aux_sym_enum_statement_token1] = ACTIONS(4617),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4617),
-    [aux_sym_entry_statement_token1] = ACTIONS(4617),
-    [aux_sym_null_literal_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4617),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4617),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4617),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4617),
-    [aux_sym_identifier_token1] = ACTIONS(4617),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4619),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3134] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4405),
-    [aux_sym_preproc_def_token1] = ACTIONS(4405),
-    [aux_sym_preproc_if_token2] = ACTIONS(4405),
-    [sym_preproc_directive] = ACTIONS(4405),
+  [3123] = {
+    [sym__expression] = STATE(4236),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4405),
-    [aux_sym_interface_statement_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4405),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4405),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4405),
-    [aux_sym_language_binding_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4405),
-    [aux_sym_contains_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token1] = ACTIONS(4405),
-    [aux_sym_use_statement_token2] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4405),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4405),
-    [aux_sym_save_statement_token1] = ACTIONS(4405),
-    [aux_sym_private_statement_token1] = ACTIONS(4405),
-    [aux_sym_public_statement_token1] = ACTIONS(4405),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4405),
-    [aux_sym_common_statement_token1] = ACTIONS(4405),
-    [aux_sym_import_statement_token1] = ACTIONS(4405),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4405),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4405),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4405),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4405),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4405),
-    [aux_sym_derived_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token1] = ACTIONS(4405),
-    [aux_sym_declared_type_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4405),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4405),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4405),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token1] = ACTIONS(4405),
-    [aux_sym_stop_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4405),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4405),
-    [aux_sym_include_statement_token1] = ACTIONS(4405),
-    [aux_sym_data_statement_token1] = ACTIONS(4405),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4405),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4405),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4405),
-    [aux_sym_block_construct_token1] = ACTIONS(4405),
-    [aux_sym_format_statement_token1] = ACTIONS(4405),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4405),
-    [aux_sym_enum_statement_token1] = ACTIONS(4405),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4405),
-    [aux_sym_entry_statement_token1] = ACTIONS(4405),
-    [aux_sym_null_literal_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4405),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4405),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4405),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4405),
-    [aux_sym_identifier_token1] = ACTIONS(4405),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4407),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3135] = {
-    [sym__expression] = STATE(4637),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
+  [3124] = {
+    [sym__expression] = STATE(4333),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3136] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4409),
-    [aux_sym_preproc_def_token1] = ACTIONS(4409),
-    [aux_sym_preproc_if_token2] = ACTIONS(4409),
-    [sym_preproc_directive] = ACTIONS(4409),
+  [3125] = {
+    [sym__expression] = STATE(4536),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4409),
-    [aux_sym_interface_statement_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4409),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4409),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4409),
-    [aux_sym_language_binding_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4409),
-    [aux_sym_contains_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token1] = ACTIONS(4409),
-    [aux_sym_use_statement_token2] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4409),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4409),
-    [aux_sym_save_statement_token1] = ACTIONS(4409),
-    [aux_sym_private_statement_token1] = ACTIONS(4409),
-    [aux_sym_public_statement_token1] = ACTIONS(4409),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4409),
-    [aux_sym_common_statement_token1] = ACTIONS(4409),
-    [aux_sym_import_statement_token1] = ACTIONS(4409),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4409),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4409),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4409),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4409),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4409),
-    [aux_sym_derived_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token1] = ACTIONS(4409),
-    [aux_sym_declared_type_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4409),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4409),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4409),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token1] = ACTIONS(4409),
-    [aux_sym_stop_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4409),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4409),
-    [aux_sym_include_statement_token1] = ACTIONS(4409),
-    [aux_sym_data_statement_token1] = ACTIONS(4409),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4409),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4409),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4409),
-    [aux_sym_block_construct_token1] = ACTIONS(4409),
-    [aux_sym_format_statement_token1] = ACTIONS(4409),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4409),
-    [aux_sym_enum_statement_token1] = ACTIONS(4409),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4409),
-    [aux_sym_entry_statement_token1] = ACTIONS(4409),
-    [aux_sym_null_literal_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4409),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4409),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4409),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4409),
-    [aux_sym_identifier_token1] = ACTIONS(4409),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4411),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3137] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4413),
-    [aux_sym_preproc_def_token1] = ACTIONS(4413),
-    [aux_sym_preproc_if_token2] = ACTIONS(4413),
-    [sym_preproc_directive] = ACTIONS(4413),
+  [3126] = {
+    [sym__expression] = STATE(4233),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4413),
-    [aux_sym_interface_statement_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(4413),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(4413),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4413),
-    [aux_sym_language_binding_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(4413),
-    [aux_sym_contains_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token1] = ACTIONS(4413),
-    [aux_sym_use_statement_token2] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token1] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4413),
-    [aux_sym_implicit_statement_token4] = ACTIONS(4413),
-    [aux_sym_save_statement_token1] = ACTIONS(4413),
-    [aux_sym_private_statement_token1] = ACTIONS(4413),
-    [aux_sym_public_statement_token1] = ACTIONS(4413),
-    [aux_sym_namelist_statement_token1] = ACTIONS(4413),
-    [aux_sym_common_statement_token1] = ACTIONS(4413),
-    [aux_sym_import_statement_token1] = ACTIONS(4413),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(4413),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(4413),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token1] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token2] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token3] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token4] = ACTIONS(4413),
-    [aux_sym_variable_attributes_token5] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4413),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4413),
-    [aux_sym_derived_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token1] = ACTIONS(4413),
-    [aux_sym_declared_type_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(4413),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token1] = ACTIONS(4413),
-    [aux_sym_type_qualifier_token2] = ACTIONS(4413),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token1] = ACTIONS(4413),
-    [aux_sym_stop_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token2] = ACTIONS(4413),
-    [aux_sym_keyword_statement_token3] = ACTIONS(4413),
-    [aux_sym_include_statement_token1] = ACTIONS(4413),
-    [aux_sym_data_statement_token1] = ACTIONS(4413),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_end_if_statement_token1] = ACTIONS(4413),
-    [aux_sym_elseif_clause_token2] = ACTIONS(4413),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4413),
-    [aux_sym_block_construct_token1] = ACTIONS(4413),
-    [aux_sym_format_statement_token1] = ACTIONS(4413),
-    [aux_sym_inquire_statement_token1] = ACTIONS(4413),
-    [aux_sym_enum_statement_token1] = ACTIONS(4413),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(4413),
-    [aux_sym_entry_statement_token1] = ACTIONS(4413),
-    [aux_sym_null_literal_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token2] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token6] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token8] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token11] = ACTIONS(4413),
-    [aux_sym_coarray_statement_token12] = ACTIONS(4413),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(4413),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(4413),
-    [aux_sym_identifier_token1] = ACTIONS(4413),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(4415),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3138] = {
-    [sym__expression] = STATE(4687),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(5263),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3092),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(5263),
+  [3127] = {
+    [sym__expression] = STATE(4534),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
     [anon_sym_PLUS] = ACTIONS(19),
     [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -467550,34 +466397,34 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3139] = {
-    [sym__expression] = STATE(4460),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3128] = {
+    [sym__expression] = STATE(4442),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(2974),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5876),
+    [anon_sym_DASH] = ACTIONS(5876),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -467619,13 +466466,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5882),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -467636,132 +466483,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3140] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5058),
-    [aux_sym_preproc_def_token1] = ACTIONS(5058),
-    [aux_sym_preproc_if_token2] = ACTIONS(5058),
-    [sym_preproc_directive] = ACTIONS(5058),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5058),
-    [aux_sym_interface_statement_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5058),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5058),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5058),
-    [aux_sym_language_binding_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5058),
-    [aux_sym_contains_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token1] = ACTIONS(5058),
-    [aux_sym_use_statement_token2] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5058),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5058),
-    [aux_sym_save_statement_token1] = ACTIONS(5058),
-    [aux_sym_private_statement_token1] = ACTIONS(5058),
-    [aux_sym_public_statement_token1] = ACTIONS(5058),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5058),
-    [aux_sym_common_statement_token1] = ACTIONS(5058),
-    [aux_sym_import_statement_token1] = ACTIONS(5058),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5058),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5058),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5058),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5058),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5058),
-    [aux_sym_derived_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token1] = ACTIONS(5058),
-    [aux_sym_declared_type_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5058),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5058),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5058),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token1] = ACTIONS(5058),
-    [aux_sym_stop_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5058),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5058),
-    [aux_sym_include_statement_token1] = ACTIONS(5058),
-    [aux_sym_data_statement_token1] = ACTIONS(5058),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5058),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5058),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5058),
-    [aux_sym_block_construct_token1] = ACTIONS(5058),
-    [aux_sym_format_statement_token1] = ACTIONS(5058),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5058),
-    [aux_sym_enum_statement_token1] = ACTIONS(5058),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5058),
-    [aux_sym_entry_statement_token1] = ACTIONS(5058),
-    [aux_sym_null_literal_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5058),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5058),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5058),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5058),
-    [aux_sym_identifier_token1] = ACTIONS(5058),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5060),
+  [3129] = {
+    [sym__expression] = STATE(4240),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3141] = {
-    [sym__expression] = STATE(4461),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3130] = {
+    [sym__expression] = STATE(4654),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -467803,13 +466650,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -467820,221 +466667,412 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3142] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5032),
-    [aux_sym_preproc_def_token1] = ACTIONS(5032),
-    [aux_sym_preproc_if_token2] = ACTIONS(5032),
-    [sym_preproc_directive] = ACTIONS(5032),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5032),
-    [aux_sym_interface_statement_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5032),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5032),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5032),
-    [aux_sym_language_binding_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5032),
-    [aux_sym_contains_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token1] = ACTIONS(5032),
-    [aux_sym_use_statement_token2] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5032),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5032),
-    [aux_sym_save_statement_token1] = ACTIONS(5032),
-    [aux_sym_private_statement_token1] = ACTIONS(5032),
-    [aux_sym_public_statement_token1] = ACTIONS(5032),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5032),
-    [aux_sym_common_statement_token1] = ACTIONS(5032),
-    [aux_sym_import_statement_token1] = ACTIONS(5032),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5032),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5032),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5032),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5032),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5032),
-    [aux_sym_derived_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token1] = ACTIONS(5032),
-    [aux_sym_declared_type_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5032),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5032),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5032),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token1] = ACTIONS(5032),
-    [aux_sym_stop_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5032),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5032),
-    [aux_sym_include_statement_token1] = ACTIONS(5032),
-    [aux_sym_data_statement_token1] = ACTIONS(5032),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5032),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5032),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5032),
-    [aux_sym_block_construct_token1] = ACTIONS(5032),
-    [aux_sym_format_statement_token1] = ACTIONS(5032),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5032),
-    [aux_sym_enum_statement_token1] = ACTIONS(5032),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5032),
-    [aux_sym_entry_statement_token1] = ACTIONS(5032),
-    [aux_sym_null_literal_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5032),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5032),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5032),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5032),
-    [aux_sym_identifier_token1] = ACTIONS(5032),
+  [3131] = {
+    [sym__name] = STATE(7271),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5024),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7144),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7146),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7146),
+  },
+  [3132] = {
+    [sym__name] = STATE(7283),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5022),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7148),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7150),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5034),
+    [sym__external_end_of_statement] = ACTIONS(7150),
   },
-  [3143] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5094),
-    [aux_sym_preproc_def_token1] = ACTIONS(5094),
-    [aux_sym_preproc_if_token2] = ACTIONS(5094),
-    [sym_preproc_directive] = ACTIONS(5094),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5094),
-    [aux_sym_interface_statement_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5094),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5094),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5094),
-    [aux_sym_language_binding_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5094),
-    [aux_sym_contains_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token1] = ACTIONS(5094),
-    [aux_sym_use_statement_token2] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5094),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5094),
-    [aux_sym_save_statement_token1] = ACTIONS(5094),
-    [aux_sym_private_statement_token1] = ACTIONS(5094),
-    [aux_sym_public_statement_token1] = ACTIONS(5094),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5094),
-    [aux_sym_common_statement_token1] = ACTIONS(5094),
-    [aux_sym_import_statement_token1] = ACTIONS(5094),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5094),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5094),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5094),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5094),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5094),
-    [aux_sym_derived_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token1] = ACTIONS(5094),
-    [aux_sym_declared_type_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5094),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5094),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5094),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token1] = ACTIONS(5094),
-    [aux_sym_stop_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5094),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5094),
-    [aux_sym_include_statement_token1] = ACTIONS(5094),
-    [aux_sym_data_statement_token1] = ACTIONS(5094),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5094),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5094),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5094),
-    [aux_sym_block_construct_token1] = ACTIONS(5094),
-    [aux_sym_format_statement_token1] = ACTIONS(5094),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5094),
-    [aux_sym_enum_statement_token1] = ACTIONS(5094),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5094),
-    [aux_sym_entry_statement_token1] = ACTIONS(5094),
-    [aux_sym_null_literal_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5094),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5094),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5094),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5094),
-    [aux_sym_identifier_token1] = ACTIONS(5094),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5096),
+  [3133] = {
+    [sym__expression] = STATE(4652),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3144] = {
-    [sym__name] = STATE(6751),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4903),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3134] = {
+    [sym__expression] = STATE(4242),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [3135] = {
+    [sym__expression] = STATE(4588),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7172),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -468059,7 +467097,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7174),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -468073,21 +467110,107 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [3136] = {
+    [sym__name] = STATE(6531),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(5038),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7152),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7154),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -468097,43 +467220,36 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7174),
+    [sym__external_end_of_statement] = ACTIONS(7154),
   },
-  [3145] = {
-    [sym__expression] = STATE(4629),
-    [sym_parenthesized_expression] = STATE(4725),
-    [sym_derived_type_member_expression] = STATE(4725),
-    [sym_logical_expression] = STATE(4725),
-    [sym_relational_expression] = STATE(4725),
-    [sym_concatenation_expression] = STATE(4725),
-    [sym_math_expression] = STATE(4725),
-    [sym_unary_expression] = STATE(4725),
-    [sym_user_defined_operator] = STATE(2982),
-    [sym_call_expression] = STATE(4725),
-    [sym_implied_do_loop_expression] = STATE(4725),
-    [sym_array_literal] = STATE(4725),
-    [sym__array_constructor_legacy] = STATE(4740),
-    [sym__array_constructor_f2003] = STATE(4705),
-    [sym_complex_literal] = STATE(4725),
-    [sym_number_literal] = STATE(4725),
-    [sym_boolean_literal] = STATE(4725),
-    [sym_null_literal] = STATE(4725),
-    [sym_string_literal] = STATE(4725),
-    [sym_coarray_expression] = STATE(4725),
-    [sym_conditional_expression] = STATE(4725),
-    [sym_identifier] = STATE(4725),
-    [anon_sym_LPAREN2] = ACTIONS(6800),
-    [anon_sym_PLUS] = ACTIONS(6802),
-    [anon_sym_DASH] = ACTIONS(6802),
-    [anon_sym_AMP] = ACTIONS(21),
+  [3137] = {
+    [sym__name] = STATE(7015),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4712),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7156),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -468158,6 +467274,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7158),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -468171,13 +467288,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token5] = ACTIONS(5531),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
-    [anon_sym_LBRACK] = ACTIONS(6806),
-    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
-    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
-    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
     [aux_sym_coarray_statement_token6] = ACTIONS(5495),
@@ -468186,42 +467312,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5545),
-    [sym__float_literal] = ACTIONS(5545),
-    [sym__boz_literal] = ACTIONS(5545),
-    [sym__string_literal] = ACTIONS(5507),
-    [sym__string_literal_kind] = ACTIONS(5509),
+    [sym__external_end_of_statement] = ACTIONS(7158),
   },
-  [3146] = {
-    [sym__expression] = STATE(4427),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3138] = {
+    [sym__expression] = STATE(4593),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468263,7 +467386,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -468280,40 +467403,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3147] = {
-    [sym__expression] = STATE(4680),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3139] = {
+    [sym__expression] = STATE(4638),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468355,7 +467478,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -468372,37 +467495,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3148] = {
-    [sym__name] = STATE(7047),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4576),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3140] = {
+    [sym__name] = STATE(7020),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4714),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7176),
+    [aux_sym_function_statement_token1] = ACTIONS(7160),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -468427,7 +467550,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7178),
+    [anon_sym_SEMI] = ACTIONS(7162),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -468441,21 +467564,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -468465,39 +467588,39 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7178),
+    [sym__external_end_of_statement] = ACTIONS(7162),
   },
-  [3149] = {
-    [sym__expression] = STATE(4407),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3141] = {
+    [sym__expression] = STATE(4560),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468539,7 +467662,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -468556,40 +467679,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3150] = {
-    [sym__expression] = STATE(4464),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3142] = {
+    [sym__expression] = STATE(4640),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468631,13 +467754,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -468648,40 +467771,40 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3151] = {
-    [sym__expression] = STATE(4595),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3143] = {
+    [sym__expression] = STATE(4656),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468723,7 +467846,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -468740,37 +467863,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3152] = {
-    [sym__name] = STATE(6937),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(886),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
+  [3144] = {
+    [sym__name] = STATE(6507),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4944),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_function_statement_token1] = ACTIONS(7180),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7164),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -468795,7 +467918,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7182),
+    [anon_sym_SEMI] = ACTIONS(7166),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -468809,21 +467932,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -468833,131 +467956,131 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4291),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7182),
+    [sym__external_end_of_statement] = ACTIONS(7166),
   },
-  [3153] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(5050),
-    [aux_sym_preproc_def_token1] = ACTIONS(5050),
-    [aux_sym_preproc_if_token2] = ACTIONS(5050),
-    [sym_preproc_directive] = ACTIONS(5050),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5050),
-    [aux_sym_interface_statement_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5050),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5050),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(5050),
-    [aux_sym_language_binding_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5050),
-    [aux_sym_contains_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token1] = ACTIONS(5050),
-    [aux_sym_use_statement_token2] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token1] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5050),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5050),
-    [aux_sym_save_statement_token1] = ACTIONS(5050),
-    [aux_sym_private_statement_token1] = ACTIONS(5050),
-    [aux_sym_public_statement_token1] = ACTIONS(5050),
-    [aux_sym_namelist_statement_token1] = ACTIONS(5050),
-    [aux_sym_common_statement_token1] = ACTIONS(5050),
-    [aux_sym_import_statement_token1] = ACTIONS(5050),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5050),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5050),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5050),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5050),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5050),
-    [aux_sym_derived_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token1] = ACTIONS(5050),
-    [aux_sym_declared_type_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5050),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5050),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5050),
-    [aux_sym_equivalence_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token1] = ACTIONS(5050),
-    [aux_sym_stop_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5050),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5050),
-    [aux_sym_include_statement_token1] = ACTIONS(5050),
-    [aux_sym_data_statement_token1] = ACTIONS(5050),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5050),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5050),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5050),
-    [aux_sym_block_construct_token1] = ACTIONS(5050),
-    [aux_sym_format_statement_token1] = ACTIONS(5050),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5050),
-    [aux_sym_enum_statement_token1] = ACTIONS(5050),
-    [aux_sym_enumeration_type_statement_token1] = ACTIONS(5050),
-    [aux_sym_entry_statement_token1] = ACTIONS(5050),
-    [aux_sym_null_literal_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5050),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5050),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5050),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5050),
-    [aux_sym_identifier_token1] = ACTIONS(5050),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5052),
+  [3145] = {
+    [sym__expression] = STATE(4243),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3154] = {
-    [sym__expression] = STATE(4467),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+  [3146] = {
+    [sym__expression] = STATE(4343),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -468999,13 +468122,13 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
     [aux_sym_coarray_statement_token1] = ACTIONS(97),
     [aux_sym_coarray_statement_token2] = ACTIONS(97),
     [aux_sym_coarray_statement_token6] = ACTIONS(97),
@@ -469016,40 +468139,224 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(195),
+    [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3155] = {
-    [sym__expression] = STATE(4424),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3147] = {
+    [sym__expression] = STATE(4434),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [3148] = {
+    [sym__expression] = STATE(4446),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [3149] = {
+    [sym__expression] = STATE(4471),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(5128),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(5128),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5128),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -469091,7 +468398,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -469108,132 +468415,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3156] = {
-    [sym__expression] = STATE(4499),
-    [sym_parenthesized_expression] = STATE(4855),
-    [sym_derived_type_member_expression] = STATE(4855),
-    [sym_logical_expression] = STATE(4855),
-    [sym_relational_expression] = STATE(4855),
-    [sym_concatenation_expression] = STATE(4855),
-    [sym_math_expression] = STATE(4855),
-    [sym_unary_expression] = STATE(4855),
-    [sym_user_defined_operator] = STATE(3037),
-    [sym_call_expression] = STATE(4855),
-    [sym_implied_do_loop_expression] = STATE(4855),
-    [sym_array_literal] = STATE(4855),
-    [sym__array_constructor_legacy] = STATE(4856),
-    [sym__array_constructor_f2003] = STATE(4857),
-    [sym_complex_literal] = STATE(4855),
-    [sym_number_literal] = STATE(4855),
-    [sym_boolean_literal] = STATE(4855),
-    [sym_null_literal] = STATE(4855),
-    [sym_string_literal] = STATE(4855),
-    [sym_coarray_expression] = STATE(4855),
-    [sym_conditional_expression] = STATE(4855),
-    [sym_identifier] = STATE(4855),
-    [anon_sym_LPAREN2] = ACTIONS(6992),
-    [anon_sym_PLUS] = ACTIONS(6994),
-    [anon_sym_DASH] = ACTIONS(6994),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(6996),
-    [anon_sym_DOT] = ACTIONS(167),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(6998),
-    [anon_sym_LBRACK] = ACTIONS(7000),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7002),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7002),
-    [aux_sym_null_literal_token1] = ACTIONS(7004),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+  [3150] = {
+    [sym__name] = STATE(6473),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(904),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_program_statement_token1] = ACTIONS(7168),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7170),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7008),
-    [sym__float_literal] = ACTIONS(7008),
-    [sym__boz_literal] = ACTIONS(7008),
-    [sym__string_literal] = ACTIONS(7010),
-    [sym__string_literal_kind] = ACTIONS(7012),
+    [sym__external_end_of_statement] = ACTIONS(7170),
   },
-  [3157] = {
-    [sym__expression] = STATE(4425),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3151] = {
+    [sym__expression] = STATE(4354),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -469275,7 +468582,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(5858),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -469292,40 +468599,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3158] = {
-    [sym__expression] = STATE(4426),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3125),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3152] = {
+    [sym__expression] = STATE(4641),
+    [sym_parenthesized_expression] = STATE(4717),
+    [sym_derived_type_member_expression] = STATE(4717),
+    [sym_logical_expression] = STATE(4717),
+    [sym_relational_expression] = STATE(4717),
+    [sym_concatenation_expression] = STATE(4717),
+    [sym_math_expression] = STATE(4717),
+    [sym_unary_expression] = STATE(4717),
+    [sym_user_defined_operator] = STATE(2960),
+    [sym_call_expression] = STATE(4717),
+    [sym_implied_do_loop_expression] = STATE(4717),
+    [sym_array_literal] = STATE(4717),
+    [sym__array_constructor_legacy] = STATE(4721),
+    [sym__array_constructor_f2003] = STATE(4722),
+    [sym_complex_literal] = STATE(4717),
+    [sym_number_literal] = STATE(4717),
+    [sym_boolean_literal] = STATE(4717),
+    [sym_null_literal] = STATE(4717),
+    [sym_string_literal] = STATE(4717),
+    [sym_coarray_expression] = STATE(4717),
+    [sym_conditional_expression] = STATE(4717),
+    [sym_identifier] = STATE(4717),
+    [anon_sym_LPAREN2] = ACTIONS(6828),
+    [anon_sym_PLUS] = ACTIONS(6830),
+    [anon_sym_DASH] = ACTIONS(6830),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token5] = ACTIONS(5531),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(5536),
+    [anon_sym_LBRACK] = ACTIONS(6834),
+    [aux_sym_boolean_literal_token1] = ACTIONS(5541),
+    [aux_sym_boolean_literal_token2] = ACTIONS(5541),
+    [aux_sym_null_literal_token1] = ACTIONS(5543),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5545),
+    [sym__float_literal] = ACTIONS(5545),
+    [sym__boz_literal] = ACTIONS(5545),
+    [sym__string_literal] = ACTIONS(5507),
+    [sym__string_literal_kind] = ACTIONS(5509),
+  },
+  [3153] = {
+    [sym__expression] = STATE(4701),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(5257),
+    [sym_user_defined_operator] = STATE(3151),
+    [sym_call_expression] = STATE(5257),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(5257),
+    [sym_number_literal] = STATE(5257),
+    [sym_boolean_literal] = STATE(5257),
+    [sym_null_literal] = STATE(5257),
+    [sym_string_literal] = STATE(5257),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(5257),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5912),
-    [anon_sym_DASH] = ACTIONS(5912),
+    [anon_sym_PLUS] = ACTIONS(5852),
+    [anon_sym_DASH] = ACTIONS(5852),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -469367,7 +468766,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5918),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -469384,40 +468783,132 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3159] = {
-    [sym__expression] = STATE(4358),
-    [sym_parenthesized_expression] = STATE(3807),
-    [sym_derived_type_member_expression] = STATE(3807),
-    [sym_logical_expression] = STATE(3807),
-    [sym_relational_expression] = STATE(3807),
-    [sym_concatenation_expression] = STATE(3807),
-    [sym_math_expression] = STATE(3807),
-    [sym_unary_expression] = STATE(3807),
-    [sym_user_defined_operator] = STATE(3067),
-    [sym_call_expression] = STATE(3807),
-    [sym_implied_do_loop_expression] = STATE(3807),
-    [sym_array_literal] = STATE(3807),
-    [sym__array_constructor_legacy] = STATE(3672),
-    [sym__array_constructor_f2003] = STATE(3674),
-    [sym_complex_literal] = STATE(3807),
-    [sym_number_literal] = STATE(3807),
-    [sym_boolean_literal] = STATE(3807),
-    [sym_null_literal] = STATE(3807),
-    [sym_string_literal] = STATE(3807),
-    [sym_coarray_expression] = STATE(3807),
-    [sym_conditional_expression] = STATE(3807),
-    [sym_identifier] = STATE(3807),
+  [3154] = {
+    [sym__expression] = STATE(4230),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
+  },
+  [3155] = {
+    [sym__expression] = STATE(4591),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3141),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
     [anon_sym_LPAREN2] = ACTIONS(17),
-    [anon_sym_PLUS] = ACTIONS(5834),
-    [anon_sym_DASH] = ACTIONS(5834),
+    [anon_sym_PLUS] = ACTIONS(19),
+    [anon_sym_DASH] = ACTIONS(19),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -469459,7 +468950,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(97),
     [aux_sym_inquire_statement_token1] = ACTIONS(97),
     [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_logical_expression_token5] = ACTIONS(5840),
+    [aux_sym_logical_expression_token5] = ACTIONS(165),
     [anon_sym_DOT] = ACTIONS(167),
     [anon_sym_LPAREN_SLASH] = ACTIONS(169),
     [anon_sym_LBRACK] = ACTIONS(171),
@@ -469476,35 +468967,37 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(5842),
-    [sym__float_literal] = ACTIONS(5842),
-    [sym__boz_literal] = ACTIONS(5842),
+    [sym__integer_literal] = ACTIONS(193),
+    [sym__float_literal] = ACTIONS(193),
+    [sym__boz_literal] = ACTIONS(193),
     [sym__string_literal] = ACTIONS(195),
     [sym__string_literal_kind] = ACTIONS(197),
   },
-  [3160] = {
-    [sym__block_label] = STATE(7421),
-    [sym_identifier] = STATE(7603),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
+  [3156] = {
+    [sym__name] = STATE(7263),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4937),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_function_statement_token1] = ACTIONS(7172),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -469529,7 +469022,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7184),
+    [anon_sym_SEMI] = ACTIONS(7174),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -469543,21 +469036,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -469567,390 +469060,220 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7184),
+    [sym__external_end_of_statement] = ACTIONS(7174),
   },
-  [3161] = {
-    [sym__import_names] = STATE(4527),
-    [sym_identifier] = STATE(4379),
-    [aux_sym_preproc_include_token1] = ACTIONS(7186),
-    [aux_sym_preproc_def_token1] = ACTIONS(7186),
-    [anon_sym_COMMA] = ACTIONS(7188),
-    [aux_sym_preproc_if_token1] = ACTIONS(7186),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(7186),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(7186),
-    [sym_preproc_directive] = ACTIONS(7186),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7186),
-    [aux_sym_module_statement_token1] = ACTIONS(7186),
-    [aux_sym_end_interface_statement_token1] = ACTIONS(7186),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6232),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6232),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7186),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(7186),
-    [aux_sym_function_statement_token1] = ACTIONS(7186),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7186),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6232),
-    [aux_sym_use_statement_token2] = ACTIONS(6232),
-    [anon_sym_COLON_COLON] = ACTIONS(7190),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7186),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6232),
-    [aux_sym_save_statement_token1] = ACTIONS(6232),
-    [aux_sym_private_statement_token1] = ACTIONS(6232),
-    [aux_sym_public_statement_token1] = ACTIONS(6232),
-    [aux_sym_import_statement_token1] = ACTIONS(7186),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6232),
-    [aux_sym_procedure_kind_token1] = ACTIONS(7186),
-    [aux_sym_procedure_kind_token2] = ACTIONS(7186),
-    [aux_sym_procedure_kind_token3] = ACTIONS(7186),
-    [aux_sym_procedure_kind_token4] = ACTIONS(7186),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6232),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6232),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7186),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7186),
-    [aux_sym_derived_type_token1] = ACTIONS(7186),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6238),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6238),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6232),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6232),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6232),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6232),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7186),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7186),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7186),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7186),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7186),
-    [aux_sym_stop_statement_token1] = ACTIONS(6232),
-    [aux_sym_stop_statement_token2] = ACTIONS(6232),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6232),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6232),
-    [aux_sym_data_statement_token1] = ACTIONS(6232),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6232),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6232),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6232),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6240),
-    [aux_sym_block_construct_token1] = ACTIONS(6232),
-    [aux_sym_format_statement_token1] = ACTIONS(6232),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6232),
-    [aux_sym_entry_statement_token1] = ACTIONS(6232),
-    [aux_sym_null_literal_token1] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6232),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6232),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6232),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6232),
-    [aux_sym_identifier_token1] = ACTIONS(6232),
+  [3157] = {
+    [sym__name] = STATE(7258),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4972),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7176),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7178),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7178),
   },
-  [3162] = {
-    [anon_sym_COMMA] = ACTIONS(6650),
-    [anon_sym_LPAREN2] = ACTIONS(6650),
-    [anon_sym_PLUS] = ACTIONS(6650),
-    [anon_sym_DASH] = ACTIONS(6650),
-    [anon_sym_STAR] = ACTIONS(6652),
-    [anon_sym_SLASH] = ACTIONS(6652),
-    [anon_sym_PERCENT] = ACTIONS(6650),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6650),
-    [anon_sym_GT] = ACTIONS(6652),
-    [anon_sym_GT_EQ] = ACTIONS(6650),
-    [anon_sym_LT_EQ] = ACTIONS(6650),
-    [anon_sym_LT] = ACTIONS(6652),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6652),
-    [anon_sym_EQ] = ACTIONS(6652),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6652),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6652),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6652),
-    [aux_sym_use_statement_token2] = ACTIONS(6652),
-    [anon_sym_EQ_GT] = ACTIONS(6650),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6652),
-    [aux_sym_save_statement_token1] = ACTIONS(6652),
-    [aux_sym_private_statement_token1] = ACTIONS(6652),
-    [aux_sym_public_statement_token1] = ACTIONS(6652),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6652),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6652),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6652),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6652),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6652),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6652),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6652),
-    [anon_sym_SEMI] = ACTIONS(6650),
-    [aux_sym_stop_statement_token1] = ACTIONS(6652),
-    [aux_sym_stop_statement_token2] = ACTIONS(6652),
-    [anon_sym_LT_LT_LT] = ACTIONS(6650),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6652),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6652),
-    [aux_sym_data_statement_token1] = ACTIONS(6652),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6652),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6652),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6652),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6652),
-    [aux_sym_block_construct_token1] = ACTIONS(6652),
-    [aux_sym_format_statement_token1] = ACTIONS(6652),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6652),
-    [aux_sym_entry_statement_token1] = ACTIONS(6652),
-    [aux_sym_logical_expression_token1] = ACTIONS(6650),
-    [aux_sym_logical_expression_token2] = ACTIONS(6650),
-    [aux_sym_logical_expression_token3] = ACTIONS(6650),
-    [aux_sym_logical_expression_token4] = ACTIONS(6650),
-    [aux_sym_relational_expression_token1] = ACTIONS(6650),
-    [aux_sym_relational_expression_token2] = ACTIONS(6650),
-    [aux_sym_relational_expression_token3] = ACTIONS(6650),
-    [aux_sym_relational_expression_token4] = ACTIONS(6650),
-    [aux_sym_relational_expression_token5] = ACTIONS(6650),
-    [anon_sym_SLASH_EQ] = ACTIONS(6650),
-    [aux_sym_relational_expression_token6] = ACTIONS(6650),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6650),
-    [anon_sym_STAR_STAR] = ACTIONS(6650),
-    [anon_sym_DOT] = ACTIONS(6652),
-    [anon_sym_LBRACK] = ACTIONS(6650),
-    [aux_sym_null_literal_token1] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6652),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6652),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6652),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6652),
-    [anon_sym_QMARK] = ACTIONS(6650),
-    [aux_sym_identifier_token1] = ACTIONS(6652),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6650),
-  },
-  [3163] = {
-    [anon_sym_COMMA] = ACTIONS(6686),
-    [anon_sym_LPAREN2] = ACTIONS(6686),
-    [anon_sym_PLUS] = ACTIONS(6686),
-    [anon_sym_DASH] = ACTIONS(6686),
-    [anon_sym_STAR] = ACTIONS(6688),
-    [anon_sym_SLASH] = ACTIONS(6688),
-    [anon_sym_PERCENT] = ACTIONS(6686),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6686),
-    [anon_sym_GT] = ACTIONS(6688),
-    [anon_sym_GT_EQ] = ACTIONS(6686),
-    [anon_sym_LT_EQ] = ACTIONS(6686),
-    [anon_sym_LT] = ACTIONS(6688),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6688),
-    [anon_sym_EQ] = ACTIONS(6688),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6688),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6688),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6688),
-    [aux_sym_use_statement_token2] = ACTIONS(6688),
-    [anon_sym_EQ_GT] = ACTIONS(6686),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6688),
-    [aux_sym_save_statement_token1] = ACTIONS(6688),
-    [aux_sym_private_statement_token1] = ACTIONS(6688),
-    [aux_sym_public_statement_token1] = ACTIONS(6688),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6688),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6688),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6688),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6688),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6688),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6688),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6688),
-    [anon_sym_SEMI] = ACTIONS(6686),
-    [aux_sym_stop_statement_token1] = ACTIONS(6688),
-    [aux_sym_stop_statement_token2] = ACTIONS(6688),
-    [anon_sym_LT_LT_LT] = ACTIONS(6686),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6688),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6688),
-    [aux_sym_data_statement_token1] = ACTIONS(6688),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6688),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6688),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6688),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6688),
-    [aux_sym_block_construct_token1] = ACTIONS(6688),
-    [aux_sym_format_statement_token1] = ACTIONS(6688),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6688),
-    [aux_sym_entry_statement_token1] = ACTIONS(6688),
-    [aux_sym_logical_expression_token1] = ACTIONS(6686),
-    [aux_sym_logical_expression_token2] = ACTIONS(6686),
-    [aux_sym_logical_expression_token3] = ACTIONS(6686),
-    [aux_sym_logical_expression_token4] = ACTIONS(6686),
-    [aux_sym_relational_expression_token1] = ACTIONS(6686),
-    [aux_sym_relational_expression_token2] = ACTIONS(6686),
-    [aux_sym_relational_expression_token3] = ACTIONS(6686),
-    [aux_sym_relational_expression_token4] = ACTIONS(6686),
-    [aux_sym_relational_expression_token5] = ACTIONS(6686),
-    [anon_sym_SLASH_EQ] = ACTIONS(6686),
-    [aux_sym_relational_expression_token6] = ACTIONS(6686),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6686),
-    [anon_sym_STAR_STAR] = ACTIONS(6686),
-    [anon_sym_DOT] = ACTIONS(6688),
-    [anon_sym_LBRACK] = ACTIONS(6686),
-    [aux_sym_null_literal_token1] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6688),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6688),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6688),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6688),
-    [anon_sym_QMARK] = ACTIONS(6686),
-    [aux_sym_identifier_token1] = ACTIONS(6688),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6686),
-  },
-  [3164] = {
-    [anon_sym_COMMA] = ACTIONS(6632),
-    [anon_sym_LPAREN2] = ACTIONS(6632),
-    [anon_sym_PLUS] = ACTIONS(6632),
-    [anon_sym_DASH] = ACTIONS(6632),
-    [anon_sym_STAR] = ACTIONS(6634),
-    [anon_sym_SLASH] = ACTIONS(6634),
-    [anon_sym_PERCENT] = ACTIONS(6632),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6632),
-    [anon_sym_GT] = ACTIONS(6634),
-    [anon_sym_GT_EQ] = ACTIONS(6632),
-    [anon_sym_LT_EQ] = ACTIONS(6632),
-    [anon_sym_LT] = ACTIONS(6634),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6634),
-    [anon_sym_EQ] = ACTIONS(6634),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6634),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6634),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6634),
-    [aux_sym_use_statement_token2] = ACTIONS(6634),
-    [anon_sym_EQ_GT] = ACTIONS(6632),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6634),
-    [aux_sym_save_statement_token1] = ACTIONS(6634),
-    [aux_sym_private_statement_token1] = ACTIONS(6634),
-    [aux_sym_public_statement_token1] = ACTIONS(6634),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6634),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6634),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6634),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6634),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6634),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6634),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6634),
-    [anon_sym_SEMI] = ACTIONS(6632),
-    [aux_sym_stop_statement_token1] = ACTIONS(6634),
-    [aux_sym_stop_statement_token2] = ACTIONS(6634),
-    [anon_sym_LT_LT_LT] = ACTIONS(6632),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6634),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6634),
-    [aux_sym_data_statement_token1] = ACTIONS(6634),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6634),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6634),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6634),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6634),
-    [aux_sym_block_construct_token1] = ACTIONS(6634),
-    [aux_sym_format_statement_token1] = ACTIONS(6634),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6634),
-    [aux_sym_entry_statement_token1] = ACTIONS(6634),
-    [aux_sym_logical_expression_token1] = ACTIONS(6632),
-    [aux_sym_logical_expression_token2] = ACTIONS(6632),
-    [aux_sym_logical_expression_token3] = ACTIONS(6632),
-    [aux_sym_logical_expression_token4] = ACTIONS(6632),
-    [aux_sym_relational_expression_token1] = ACTIONS(6632),
-    [aux_sym_relational_expression_token2] = ACTIONS(6632),
-    [aux_sym_relational_expression_token3] = ACTIONS(6632),
-    [aux_sym_relational_expression_token4] = ACTIONS(6632),
-    [aux_sym_relational_expression_token5] = ACTIONS(6632),
-    [anon_sym_SLASH_EQ] = ACTIONS(6632),
-    [aux_sym_relational_expression_token6] = ACTIONS(6632),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6632),
-    [anon_sym_STAR_STAR] = ACTIONS(6632),
-    [anon_sym_DOT] = ACTIONS(6634),
-    [anon_sym_LBRACK] = ACTIONS(6632),
-    [aux_sym_null_literal_token1] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6634),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6634),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6634),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6634),
-    [anon_sym_QMARK] = ACTIONS(6632),
-    [aux_sym_identifier_token1] = ACTIONS(6634),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6632),
+  [3158] = {
+    [sym__expression] = STATE(4239),
+    [sym_parenthesized_expression] = STATE(3729),
+    [sym_derived_type_member_expression] = STATE(3729),
+    [sym_logical_expression] = STATE(3729),
+    [sym_relational_expression] = STATE(3729),
+    [sym_concatenation_expression] = STATE(3729),
+    [sym_math_expression] = STATE(3729),
+    [sym_unary_expression] = STATE(3729),
+    [sym_user_defined_operator] = STATE(3123),
+    [sym_call_expression] = STATE(3729),
+    [sym_implied_do_loop_expression] = STATE(3729),
+    [sym_array_literal] = STATE(3729),
+    [sym__array_constructor_legacy] = STATE(3744),
+    [sym__array_constructor_f2003] = STATE(3745),
+    [sym_complex_literal] = STATE(3729),
+    [sym_number_literal] = STATE(3729),
+    [sym_boolean_literal] = STATE(3729),
+    [sym_null_literal] = STATE(3729),
+    [sym_string_literal] = STATE(3729),
+    [sym_coarray_expression] = STATE(3729),
+    [sym_conditional_expression] = STATE(3729),
+    [sym_identifier] = STATE(3729),
+    [anon_sym_LPAREN2] = ACTIONS(17),
+    [anon_sym_PLUS] = ACTIONS(6956),
+    [anon_sym_DASH] = ACTIONS(6956),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6958),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6960),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6960),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6960),
+    [aux_sym_use_statement_token2] = ACTIONS(6960),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6960),
+    [aux_sym_save_statement_token1] = ACTIONS(6960),
+    [aux_sym_private_statement_token1] = ACTIONS(6960),
+    [aux_sym_public_statement_token1] = ACTIONS(6960),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6960),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6960),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6960),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6964),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6960),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6960),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6960),
+    [aux_sym_stop_statement_token1] = ACTIONS(6960),
+    [aux_sym_stop_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6960),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6960),
+    [aux_sym_data_statement_token1] = ACTIONS(6960),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6960),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6960),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6966),
+    [aux_sym_block_construct_token1] = ACTIONS(6960),
+    [aux_sym_format_statement_token1] = ACTIONS(6960),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6960),
+    [aux_sym_entry_statement_token1] = ACTIONS(6960),
+    [aux_sym_logical_expression_token5] = ACTIONS(6968),
+    [anon_sym_DOT] = ACTIONS(167),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(169),
+    [anon_sym_LBRACK] = ACTIONS(171),
+    [aux_sym_boolean_literal_token1] = ACTIONS(173),
+    [aux_sym_boolean_literal_token2] = ACTIONS(173),
+    [aux_sym_null_literal_token1] = ACTIONS(175),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6960),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6960),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6960),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6960),
+    [aux_sym_identifier_token1] = ACTIONS(6960),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(5860),
+    [sym__float_literal] = ACTIONS(5860),
+    [sym__boz_literal] = ACTIONS(5860),
+    [sym__string_literal] = ACTIONS(6972),
+    [sym__string_literal_kind] = ACTIONS(6974),
   },
-  [3165] = {
-    [sym_identifier] = STATE(7476),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
+  [3159] = {
+    [sym__name] = STATE(7196),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(970),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7180),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -469975,7 +469298,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7192),
+    [anon_sym_SEMI] = ACTIONS(7182),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -469989,21 +469312,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -470013,190 +469336,192 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7192),
+    [sym__external_end_of_statement] = ACTIONS(7182),
   },
-  [3166] = {
-    [anon_sym_COMMA] = ACTIONS(6682),
-    [anon_sym_LPAREN2] = ACTIONS(6682),
-    [anon_sym_PLUS] = ACTIONS(6682),
-    [anon_sym_DASH] = ACTIONS(6682),
-    [anon_sym_STAR] = ACTIONS(6684),
-    [anon_sym_SLASH] = ACTIONS(6684),
-    [anon_sym_PERCENT] = ACTIONS(6682),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6682),
-    [anon_sym_GT] = ACTIONS(6684),
-    [anon_sym_GT_EQ] = ACTIONS(6682),
-    [anon_sym_LT_EQ] = ACTIONS(6682),
-    [anon_sym_LT] = ACTIONS(6684),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6684),
-    [anon_sym_EQ] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6684),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6684),
-    [aux_sym_use_statement_token2] = ACTIONS(6684),
-    [anon_sym_EQ_GT] = ACTIONS(6682),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6684),
-    [aux_sym_save_statement_token1] = ACTIONS(6684),
-    [aux_sym_private_statement_token1] = ACTIONS(6684),
-    [aux_sym_public_statement_token1] = ACTIONS(6684),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6684),
-    [anon_sym_SEMI] = ACTIONS(6682),
-    [aux_sym_stop_statement_token1] = ACTIONS(6684),
-    [aux_sym_stop_statement_token2] = ACTIONS(6684),
-    [anon_sym_LT_LT_LT] = ACTIONS(6682),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6684),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6684),
-    [aux_sym_data_statement_token1] = ACTIONS(6684),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6684),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6684),
-    [aux_sym_block_construct_token1] = ACTIONS(6684),
-    [aux_sym_format_statement_token1] = ACTIONS(6684),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6684),
-    [aux_sym_entry_statement_token1] = ACTIONS(6684),
-    [aux_sym_logical_expression_token1] = ACTIONS(6682),
-    [aux_sym_logical_expression_token2] = ACTIONS(6682),
-    [aux_sym_logical_expression_token3] = ACTIONS(6682),
-    [aux_sym_logical_expression_token4] = ACTIONS(6682),
-    [aux_sym_relational_expression_token1] = ACTIONS(6682),
-    [aux_sym_relational_expression_token2] = ACTIONS(6682),
-    [aux_sym_relational_expression_token3] = ACTIONS(6682),
-    [aux_sym_relational_expression_token4] = ACTIONS(6682),
-    [aux_sym_relational_expression_token5] = ACTIONS(6682),
-    [anon_sym_SLASH_EQ] = ACTIONS(6682),
-    [aux_sym_relational_expression_token6] = ACTIONS(6682),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6682),
-    [anon_sym_STAR_STAR] = ACTIONS(6682),
-    [anon_sym_DOT] = ACTIONS(6684),
-    [anon_sym_LBRACK] = ACTIONS(6682),
-    [aux_sym_null_literal_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6684),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6684),
-    [anon_sym_QMARK] = ACTIONS(6682),
-    [aux_sym_identifier_token1] = ACTIONS(6684),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6682),
+  [3160] = {
+    [sym__block_label] = STATE(7546),
+    [sym_identifier] = STATE(7349),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7184),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7184),
   },
-  [3167] = {
-    [anon_sym_COMMA] = ACTIONS(6674),
-    [anon_sym_LPAREN2] = ACTIONS(6674),
-    [anon_sym_PLUS] = ACTIONS(6674),
-    [anon_sym_DASH] = ACTIONS(6674),
-    [anon_sym_STAR] = ACTIONS(6676),
-    [anon_sym_SLASH] = ACTIONS(6676),
-    [anon_sym_PERCENT] = ACTIONS(6674),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6674),
-    [anon_sym_GT] = ACTIONS(6676),
-    [anon_sym_GT_EQ] = ACTIONS(6674),
-    [anon_sym_LT_EQ] = ACTIONS(6674),
-    [anon_sym_LT] = ACTIONS(6676),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6676),
-    [anon_sym_EQ] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6676),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6676),
-    [aux_sym_use_statement_token2] = ACTIONS(6676),
-    [anon_sym_EQ_GT] = ACTIONS(6674),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6676),
-    [aux_sym_save_statement_token1] = ACTIONS(6676),
-    [aux_sym_private_statement_token1] = ACTIONS(6676),
-    [aux_sym_public_statement_token1] = ACTIONS(6676),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6676),
-    [anon_sym_SEMI] = ACTIONS(6674),
-    [aux_sym_stop_statement_token1] = ACTIONS(6676),
-    [aux_sym_stop_statement_token2] = ACTIONS(6676),
-    [anon_sym_LT_LT_LT] = ACTIONS(6674),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6676),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6676),
-    [aux_sym_data_statement_token1] = ACTIONS(6676),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6676),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6676),
-    [aux_sym_block_construct_token1] = ACTIONS(6676),
-    [aux_sym_format_statement_token1] = ACTIONS(6676),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6676),
-    [aux_sym_entry_statement_token1] = ACTIONS(6676),
-    [aux_sym_logical_expression_token1] = ACTIONS(6674),
-    [aux_sym_logical_expression_token2] = ACTIONS(6674),
-    [aux_sym_logical_expression_token3] = ACTIONS(6674),
-    [aux_sym_logical_expression_token4] = ACTIONS(6674),
-    [aux_sym_relational_expression_token1] = ACTIONS(6674),
-    [aux_sym_relational_expression_token2] = ACTIONS(6674),
-    [aux_sym_relational_expression_token3] = ACTIONS(6674),
-    [aux_sym_relational_expression_token4] = ACTIONS(6674),
-    [aux_sym_relational_expression_token5] = ACTIONS(6674),
-    [anon_sym_SLASH_EQ] = ACTIONS(6674),
-    [aux_sym_relational_expression_token6] = ACTIONS(6674),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6674),
-    [anon_sym_STAR_STAR] = ACTIONS(6674),
-    [anon_sym_DOT] = ACTIONS(6676),
-    [anon_sym_LBRACK] = ACTIONS(6674),
-    [aux_sym_null_literal_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6676),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6676),
-    [anon_sym_QMARK] = ACTIONS(6674),
-    [aux_sym_identifier_token1] = ACTIONS(6676),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6674),
+  [3161] = {
+    [sym__import_names] = STATE(4549),
+    [sym_identifier] = STATE(4399),
+    [aux_sym_preproc_include_token1] = ACTIONS(7186),
+    [aux_sym_preproc_def_token1] = ACTIONS(7186),
+    [anon_sym_COMMA] = ACTIONS(7188),
+    [aux_sym_preproc_if_token1] = ACTIONS(7186),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(7186),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(7186),
+    [sym_preproc_directive] = ACTIONS(7186),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7186),
+    [aux_sym_module_statement_token1] = ACTIONS(7186),
+    [aux_sym_end_interface_statement_token1] = ACTIONS(7186),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6198),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6198),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7186),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(7186),
+    [aux_sym_function_statement_token1] = ACTIONS(7186),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7186),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6198),
+    [aux_sym_use_statement_token2] = ACTIONS(6198),
+    [anon_sym_COLON_COLON] = ACTIONS(7190),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7186),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6198),
+    [aux_sym_save_statement_token1] = ACTIONS(6198),
+    [aux_sym_private_statement_token1] = ACTIONS(6198),
+    [aux_sym_public_statement_token1] = ACTIONS(6198),
+    [aux_sym_import_statement_token1] = ACTIONS(7186),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6198),
+    [aux_sym_procedure_kind_token1] = ACTIONS(7186),
+    [aux_sym_procedure_kind_token2] = ACTIONS(7186),
+    [aux_sym_procedure_kind_token3] = ACTIONS(7186),
+    [aux_sym_procedure_kind_token4] = ACTIONS(7186),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6198),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6198),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7186),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7186),
+    [aux_sym_derived_type_token1] = ACTIONS(7186),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6204),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6204),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6198),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6198),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6198),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6198),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7186),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7186),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7186),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7186),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7186),
+    [aux_sym_stop_statement_token1] = ACTIONS(6198),
+    [aux_sym_stop_statement_token2] = ACTIONS(6198),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6198),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6198),
+    [aux_sym_data_statement_token1] = ACTIONS(6198),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6198),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6198),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6198),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6206),
+    [aux_sym_block_construct_token1] = ACTIONS(6198),
+    [aux_sym_format_statement_token1] = ACTIONS(6198),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6198),
+    [aux_sym_entry_statement_token1] = ACTIONS(6198),
+    [aux_sym_null_literal_token1] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6198),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6198),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6198),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6198),
+    [aux_sym_identifier_token1] = ACTIONS(6198),
+    [sym_comment] = ACTIONS(21),
   },
-  [3168] = {
+  [3162] = {
     [anon_sym_COMMA] = ACTIONS(6678),
     [anon_sym_LPAREN2] = ACTIONS(6678),
     [anon_sym_PLUS] = ACTIONS(6678),
@@ -470285,7 +469610,630 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(6678),
   },
+  [3163] = {
+    [anon_sym_COMMA] = ACTIONS(6666),
+    [anon_sym_LPAREN2] = ACTIONS(6666),
+    [anon_sym_PLUS] = ACTIONS(6666),
+    [anon_sym_DASH] = ACTIONS(6666),
+    [anon_sym_STAR] = ACTIONS(6668),
+    [anon_sym_SLASH] = ACTIONS(6668),
+    [anon_sym_PERCENT] = ACTIONS(6666),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6666),
+    [anon_sym_GT] = ACTIONS(6668),
+    [anon_sym_GT_EQ] = ACTIONS(6666),
+    [anon_sym_LT_EQ] = ACTIONS(6666),
+    [anon_sym_LT] = ACTIONS(6668),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6668),
+    [anon_sym_EQ] = ACTIONS(6668),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6668),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6668),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6668),
+    [aux_sym_use_statement_token2] = ACTIONS(6668),
+    [anon_sym_EQ_GT] = ACTIONS(6666),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6668),
+    [aux_sym_save_statement_token1] = ACTIONS(6668),
+    [aux_sym_private_statement_token1] = ACTIONS(6668),
+    [aux_sym_public_statement_token1] = ACTIONS(6668),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6668),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6668),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6668),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6668),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6668),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6668),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6668),
+    [anon_sym_SEMI] = ACTIONS(6666),
+    [aux_sym_stop_statement_token1] = ACTIONS(6668),
+    [aux_sym_stop_statement_token2] = ACTIONS(6668),
+    [anon_sym_LT_LT_LT] = ACTIONS(6666),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6668),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6668),
+    [aux_sym_data_statement_token1] = ACTIONS(6668),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6668),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6668),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6668),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6668),
+    [aux_sym_block_construct_token1] = ACTIONS(6668),
+    [aux_sym_format_statement_token1] = ACTIONS(6668),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6668),
+    [aux_sym_entry_statement_token1] = ACTIONS(6668),
+    [aux_sym_logical_expression_token1] = ACTIONS(6666),
+    [aux_sym_logical_expression_token2] = ACTIONS(6666),
+    [aux_sym_logical_expression_token3] = ACTIONS(6666),
+    [aux_sym_logical_expression_token4] = ACTIONS(6666),
+    [aux_sym_relational_expression_token1] = ACTIONS(6666),
+    [aux_sym_relational_expression_token2] = ACTIONS(6666),
+    [aux_sym_relational_expression_token3] = ACTIONS(6666),
+    [aux_sym_relational_expression_token4] = ACTIONS(6666),
+    [aux_sym_relational_expression_token5] = ACTIONS(6666),
+    [anon_sym_SLASH_EQ] = ACTIONS(6666),
+    [aux_sym_relational_expression_token6] = ACTIONS(6666),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6666),
+    [anon_sym_STAR_STAR] = ACTIONS(6666),
+    [anon_sym_DOT] = ACTIONS(6668),
+    [anon_sym_LBRACK] = ACTIONS(6666),
+    [aux_sym_null_literal_token1] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6668),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6668),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6668),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6668),
+    [anon_sym_QMARK] = ACTIONS(6666),
+    [aux_sym_identifier_token1] = ACTIONS(6668),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6666),
+  },
+  [3164] = {
+    [anon_sym_COMMA] = ACTIONS(6652),
+    [anon_sym_LPAREN2] = ACTIONS(6652),
+    [anon_sym_PLUS] = ACTIONS(6652),
+    [anon_sym_DASH] = ACTIONS(6652),
+    [anon_sym_STAR] = ACTIONS(6654),
+    [anon_sym_SLASH] = ACTIONS(6654),
+    [anon_sym_PERCENT] = ACTIONS(6652),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6652),
+    [anon_sym_GT] = ACTIONS(6654),
+    [anon_sym_GT_EQ] = ACTIONS(6652),
+    [anon_sym_LT_EQ] = ACTIONS(6652),
+    [anon_sym_LT] = ACTIONS(6654),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6654),
+    [anon_sym_EQ] = ACTIONS(6654),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6654),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6654),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6654),
+    [aux_sym_use_statement_token2] = ACTIONS(6654),
+    [anon_sym_EQ_GT] = ACTIONS(6652),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6654),
+    [aux_sym_save_statement_token1] = ACTIONS(6654),
+    [aux_sym_private_statement_token1] = ACTIONS(6654),
+    [aux_sym_public_statement_token1] = ACTIONS(6654),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6654),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6654),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6654),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6654),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6654),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6654),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6654),
+    [anon_sym_SEMI] = ACTIONS(6652),
+    [aux_sym_stop_statement_token1] = ACTIONS(6654),
+    [aux_sym_stop_statement_token2] = ACTIONS(6654),
+    [anon_sym_LT_LT_LT] = ACTIONS(6652),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6654),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6654),
+    [aux_sym_data_statement_token1] = ACTIONS(6654),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6654),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6654),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6654),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6654),
+    [aux_sym_block_construct_token1] = ACTIONS(6654),
+    [aux_sym_format_statement_token1] = ACTIONS(6654),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6654),
+    [aux_sym_entry_statement_token1] = ACTIONS(6654),
+    [aux_sym_logical_expression_token1] = ACTIONS(6652),
+    [aux_sym_logical_expression_token2] = ACTIONS(6652),
+    [aux_sym_logical_expression_token3] = ACTIONS(6652),
+    [aux_sym_logical_expression_token4] = ACTIONS(6652),
+    [aux_sym_relational_expression_token1] = ACTIONS(6652),
+    [aux_sym_relational_expression_token2] = ACTIONS(6652),
+    [aux_sym_relational_expression_token3] = ACTIONS(6652),
+    [aux_sym_relational_expression_token4] = ACTIONS(6652),
+    [aux_sym_relational_expression_token5] = ACTIONS(6652),
+    [anon_sym_SLASH_EQ] = ACTIONS(6652),
+    [aux_sym_relational_expression_token6] = ACTIONS(6652),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6652),
+    [anon_sym_STAR_STAR] = ACTIONS(6652),
+    [anon_sym_DOT] = ACTIONS(6654),
+    [anon_sym_LBRACK] = ACTIONS(6652),
+    [aux_sym_null_literal_token1] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6654),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6654),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6654),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6654),
+    [anon_sym_QMARK] = ACTIONS(6652),
+    [aux_sym_identifier_token1] = ACTIONS(6654),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6652),
+  },
+  [3165] = {
+    [anon_sym_COMMA] = ACTIONS(6670),
+    [anon_sym_LPAREN2] = ACTIONS(6670),
+    [anon_sym_PLUS] = ACTIONS(6670),
+    [anon_sym_DASH] = ACTIONS(6670),
+    [anon_sym_STAR] = ACTIONS(6672),
+    [anon_sym_SLASH] = ACTIONS(6672),
+    [anon_sym_PERCENT] = ACTIONS(6670),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6670),
+    [anon_sym_GT] = ACTIONS(6672),
+    [anon_sym_GT_EQ] = ACTIONS(6670),
+    [anon_sym_LT_EQ] = ACTIONS(6670),
+    [anon_sym_LT] = ACTIONS(6672),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6672),
+    [anon_sym_EQ] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6672),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6672),
+    [aux_sym_use_statement_token2] = ACTIONS(6672),
+    [anon_sym_EQ_GT] = ACTIONS(6670),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6672),
+    [aux_sym_save_statement_token1] = ACTIONS(6672),
+    [aux_sym_private_statement_token1] = ACTIONS(6672),
+    [aux_sym_public_statement_token1] = ACTIONS(6672),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6672),
+    [anon_sym_SEMI] = ACTIONS(6670),
+    [aux_sym_stop_statement_token1] = ACTIONS(6672),
+    [aux_sym_stop_statement_token2] = ACTIONS(6672),
+    [anon_sym_LT_LT_LT] = ACTIONS(6670),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6672),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6672),
+    [aux_sym_data_statement_token1] = ACTIONS(6672),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6672),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6672),
+    [aux_sym_block_construct_token1] = ACTIONS(6672),
+    [aux_sym_format_statement_token1] = ACTIONS(6672),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6672),
+    [aux_sym_entry_statement_token1] = ACTIONS(6672),
+    [aux_sym_logical_expression_token1] = ACTIONS(6670),
+    [aux_sym_logical_expression_token2] = ACTIONS(6670),
+    [aux_sym_logical_expression_token3] = ACTIONS(6670),
+    [aux_sym_logical_expression_token4] = ACTIONS(6670),
+    [aux_sym_relational_expression_token1] = ACTIONS(6670),
+    [aux_sym_relational_expression_token2] = ACTIONS(6670),
+    [aux_sym_relational_expression_token3] = ACTIONS(6670),
+    [aux_sym_relational_expression_token4] = ACTIONS(6670),
+    [aux_sym_relational_expression_token5] = ACTIONS(6670),
+    [anon_sym_SLASH_EQ] = ACTIONS(6670),
+    [aux_sym_relational_expression_token6] = ACTIONS(6670),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6670),
+    [anon_sym_STAR_STAR] = ACTIONS(6670),
+    [anon_sym_DOT] = ACTIONS(6672),
+    [anon_sym_LBRACK] = ACTIONS(6670),
+    [aux_sym_null_literal_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6672),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6672),
+    [anon_sym_QMARK] = ACTIONS(6670),
+    [aux_sym_identifier_token1] = ACTIONS(6672),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6670),
+  },
+  [3166] = {
+    [anon_sym_COMMA] = ACTIONS(6648),
+    [anon_sym_LPAREN2] = ACTIONS(6648),
+    [anon_sym_PLUS] = ACTIONS(6648),
+    [anon_sym_DASH] = ACTIONS(6648),
+    [anon_sym_STAR] = ACTIONS(6650),
+    [anon_sym_SLASH] = ACTIONS(6650),
+    [anon_sym_PERCENT] = ACTIONS(6648),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6648),
+    [anon_sym_GT] = ACTIONS(6650),
+    [anon_sym_GT_EQ] = ACTIONS(6648),
+    [anon_sym_LT_EQ] = ACTIONS(6648),
+    [anon_sym_LT] = ACTIONS(6650),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6650),
+    [anon_sym_EQ] = ACTIONS(6650),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6650),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6650),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6650),
+    [aux_sym_use_statement_token2] = ACTIONS(6650),
+    [anon_sym_EQ_GT] = ACTIONS(6648),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6650),
+    [aux_sym_save_statement_token1] = ACTIONS(6650),
+    [aux_sym_private_statement_token1] = ACTIONS(6650),
+    [aux_sym_public_statement_token1] = ACTIONS(6650),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6650),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6650),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6650),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6650),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6650),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6650),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6650),
+    [anon_sym_SEMI] = ACTIONS(6648),
+    [aux_sym_stop_statement_token1] = ACTIONS(6650),
+    [aux_sym_stop_statement_token2] = ACTIONS(6650),
+    [anon_sym_LT_LT_LT] = ACTIONS(6648),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6650),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6650),
+    [aux_sym_data_statement_token1] = ACTIONS(6650),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6650),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6650),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6650),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6650),
+    [aux_sym_block_construct_token1] = ACTIONS(6650),
+    [aux_sym_format_statement_token1] = ACTIONS(6650),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6650),
+    [aux_sym_entry_statement_token1] = ACTIONS(6650),
+    [aux_sym_logical_expression_token1] = ACTIONS(6648),
+    [aux_sym_logical_expression_token2] = ACTIONS(6648),
+    [aux_sym_logical_expression_token3] = ACTIONS(6648),
+    [aux_sym_logical_expression_token4] = ACTIONS(6648),
+    [aux_sym_relational_expression_token1] = ACTIONS(6648),
+    [aux_sym_relational_expression_token2] = ACTIONS(6648),
+    [aux_sym_relational_expression_token3] = ACTIONS(6648),
+    [aux_sym_relational_expression_token4] = ACTIONS(6648),
+    [aux_sym_relational_expression_token5] = ACTIONS(6648),
+    [anon_sym_SLASH_EQ] = ACTIONS(6648),
+    [aux_sym_relational_expression_token6] = ACTIONS(6648),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6648),
+    [anon_sym_STAR_STAR] = ACTIONS(6648),
+    [anon_sym_DOT] = ACTIONS(6650),
+    [anon_sym_LBRACK] = ACTIONS(6648),
+    [aux_sym_null_literal_token1] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6650),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6650),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6650),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6650),
+    [anon_sym_QMARK] = ACTIONS(6648),
+    [aux_sym_identifier_token1] = ACTIONS(6650),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6648),
+  },
+  [3167] = {
+    [anon_sym_COMMA] = ACTIONS(6644),
+    [anon_sym_LPAREN2] = ACTIONS(6644),
+    [anon_sym_PLUS] = ACTIONS(6644),
+    [anon_sym_DASH] = ACTIONS(6644),
+    [anon_sym_STAR] = ACTIONS(6646),
+    [anon_sym_SLASH] = ACTIONS(6646),
+    [anon_sym_PERCENT] = ACTIONS(6644),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6644),
+    [anon_sym_GT] = ACTIONS(6646),
+    [anon_sym_GT_EQ] = ACTIONS(6644),
+    [anon_sym_LT_EQ] = ACTIONS(6644),
+    [anon_sym_LT] = ACTIONS(6646),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6646),
+    [anon_sym_EQ] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6646),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6646),
+    [aux_sym_use_statement_token2] = ACTIONS(6646),
+    [anon_sym_EQ_GT] = ACTIONS(6644),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6646),
+    [aux_sym_save_statement_token1] = ACTIONS(6646),
+    [aux_sym_private_statement_token1] = ACTIONS(6646),
+    [aux_sym_public_statement_token1] = ACTIONS(6646),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6646),
+    [anon_sym_SEMI] = ACTIONS(6644),
+    [aux_sym_stop_statement_token1] = ACTIONS(6646),
+    [aux_sym_stop_statement_token2] = ACTIONS(6646),
+    [anon_sym_LT_LT_LT] = ACTIONS(6644),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6646),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6646),
+    [aux_sym_data_statement_token1] = ACTIONS(6646),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6646),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6646),
+    [aux_sym_block_construct_token1] = ACTIONS(6646),
+    [aux_sym_format_statement_token1] = ACTIONS(6646),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6646),
+    [aux_sym_entry_statement_token1] = ACTIONS(6646),
+    [aux_sym_logical_expression_token1] = ACTIONS(6644),
+    [aux_sym_logical_expression_token2] = ACTIONS(6644),
+    [aux_sym_logical_expression_token3] = ACTIONS(6644),
+    [aux_sym_logical_expression_token4] = ACTIONS(6644),
+    [aux_sym_relational_expression_token1] = ACTIONS(6644),
+    [aux_sym_relational_expression_token2] = ACTIONS(6644),
+    [aux_sym_relational_expression_token3] = ACTIONS(6644),
+    [aux_sym_relational_expression_token4] = ACTIONS(6644),
+    [aux_sym_relational_expression_token5] = ACTIONS(6644),
+    [anon_sym_SLASH_EQ] = ACTIONS(6644),
+    [aux_sym_relational_expression_token6] = ACTIONS(6644),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6644),
+    [anon_sym_STAR_STAR] = ACTIONS(6644),
+    [anon_sym_DOT] = ACTIONS(6646),
+    [anon_sym_LBRACK] = ACTIONS(6644),
+    [aux_sym_null_literal_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6646),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6646),
+    [anon_sym_QMARK] = ACTIONS(6644),
+    [aux_sym_identifier_token1] = ACTIONS(6646),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6644),
+  },
+  [3168] = {
+    [anon_sym_COMMA] = ACTIONS(6660),
+    [anon_sym_LPAREN2] = ACTIONS(6660),
+    [anon_sym_PLUS] = ACTIONS(6660),
+    [anon_sym_DASH] = ACTIONS(6660),
+    [anon_sym_STAR] = ACTIONS(6662),
+    [anon_sym_SLASH] = ACTIONS(6662),
+    [anon_sym_PERCENT] = ACTIONS(6660),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6660),
+    [anon_sym_GT] = ACTIONS(6662),
+    [anon_sym_GT_EQ] = ACTIONS(6660),
+    [anon_sym_LT_EQ] = ACTIONS(6660),
+    [anon_sym_LT] = ACTIONS(6662),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6662),
+    [anon_sym_EQ] = ACTIONS(6662),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6662),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6662),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6662),
+    [aux_sym_use_statement_token2] = ACTIONS(6662),
+    [anon_sym_EQ_GT] = ACTIONS(6660),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6662),
+    [aux_sym_save_statement_token1] = ACTIONS(6662),
+    [aux_sym_private_statement_token1] = ACTIONS(6662),
+    [aux_sym_public_statement_token1] = ACTIONS(6662),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6662),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6662),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6662),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6662),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6662),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6662),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6662),
+    [anon_sym_SEMI] = ACTIONS(6660),
+    [aux_sym_stop_statement_token1] = ACTIONS(6662),
+    [aux_sym_stop_statement_token2] = ACTIONS(6662),
+    [anon_sym_LT_LT_LT] = ACTIONS(6660),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6662),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6662),
+    [aux_sym_data_statement_token1] = ACTIONS(6662),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6662),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6662),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6662),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6662),
+    [aux_sym_block_construct_token1] = ACTIONS(6662),
+    [aux_sym_format_statement_token1] = ACTIONS(6662),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6662),
+    [aux_sym_entry_statement_token1] = ACTIONS(6662),
+    [aux_sym_logical_expression_token1] = ACTIONS(6660),
+    [aux_sym_logical_expression_token2] = ACTIONS(6660),
+    [aux_sym_logical_expression_token3] = ACTIONS(6660),
+    [aux_sym_logical_expression_token4] = ACTIONS(6660),
+    [aux_sym_relational_expression_token1] = ACTIONS(6660),
+    [aux_sym_relational_expression_token2] = ACTIONS(6660),
+    [aux_sym_relational_expression_token3] = ACTIONS(6660),
+    [aux_sym_relational_expression_token4] = ACTIONS(6660),
+    [aux_sym_relational_expression_token5] = ACTIONS(6660),
+    [anon_sym_SLASH_EQ] = ACTIONS(6660),
+    [aux_sym_relational_expression_token6] = ACTIONS(6660),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6660),
+    [anon_sym_STAR_STAR] = ACTIONS(6660),
+    [anon_sym_DOT] = ACTIONS(6662),
+    [anon_sym_LBRACK] = ACTIONS(6660),
+    [aux_sym_null_literal_token1] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6662),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6662),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6662),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6662),
+    [anon_sym_QMARK] = ACTIONS(6660),
+    [aux_sym_identifier_token1] = ACTIONS(6662),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6660),
+  },
   [3169] = {
+    [anon_sym_COMMA] = ACTIONS(6640),
+    [anon_sym_LPAREN2] = ACTIONS(6640),
+    [anon_sym_PLUS] = ACTIONS(6640),
+    [anon_sym_DASH] = ACTIONS(6640),
+    [anon_sym_STAR] = ACTIONS(6642),
+    [anon_sym_SLASH] = ACTIONS(6642),
+    [anon_sym_PERCENT] = ACTIONS(6640),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6640),
+    [anon_sym_GT] = ACTIONS(6642),
+    [anon_sym_GT_EQ] = ACTIONS(6640),
+    [anon_sym_LT_EQ] = ACTIONS(6640),
+    [anon_sym_LT] = ACTIONS(6642),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6642),
+    [anon_sym_EQ] = ACTIONS(6642),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6642),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6642),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6642),
+    [aux_sym_use_statement_token2] = ACTIONS(6642),
+    [anon_sym_EQ_GT] = ACTIONS(6640),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6642),
+    [aux_sym_save_statement_token1] = ACTIONS(6642),
+    [aux_sym_private_statement_token1] = ACTIONS(6642),
+    [aux_sym_public_statement_token1] = ACTIONS(6642),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6642),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6642),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6642),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6642),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6642),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6642),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6642),
+    [anon_sym_SEMI] = ACTIONS(6640),
+    [aux_sym_stop_statement_token1] = ACTIONS(6642),
+    [aux_sym_stop_statement_token2] = ACTIONS(6642),
+    [anon_sym_LT_LT_LT] = ACTIONS(6640),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6642),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6642),
+    [aux_sym_data_statement_token1] = ACTIONS(6642),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6642),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6642),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6642),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6642),
+    [aux_sym_block_construct_token1] = ACTIONS(6642),
+    [aux_sym_format_statement_token1] = ACTIONS(6642),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6642),
+    [aux_sym_entry_statement_token1] = ACTIONS(6642),
+    [aux_sym_logical_expression_token1] = ACTIONS(6640),
+    [aux_sym_logical_expression_token2] = ACTIONS(6640),
+    [aux_sym_logical_expression_token3] = ACTIONS(6640),
+    [aux_sym_logical_expression_token4] = ACTIONS(6640),
+    [aux_sym_relational_expression_token1] = ACTIONS(6640),
+    [aux_sym_relational_expression_token2] = ACTIONS(6640),
+    [aux_sym_relational_expression_token3] = ACTIONS(6640),
+    [aux_sym_relational_expression_token4] = ACTIONS(6640),
+    [aux_sym_relational_expression_token5] = ACTIONS(6640),
+    [anon_sym_SLASH_EQ] = ACTIONS(6640),
+    [aux_sym_relational_expression_token6] = ACTIONS(6640),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6640),
+    [anon_sym_STAR_STAR] = ACTIONS(6640),
+    [anon_sym_DOT] = ACTIONS(6642),
+    [anon_sym_LBRACK] = ACTIONS(6640),
+    [aux_sym_null_literal_token1] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6642),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6642),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6642),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6642),
+    [anon_sym_QMARK] = ACTIONS(6640),
+    [aux_sym_identifier_token1] = ACTIONS(6642),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6640),
+  },
+  [3170] = {
     [anon_sym_COMMA] = ACTIONS(6690),
     [anon_sym_LPAREN2] = ACTIONS(6690),
     [anon_sym_PLUS] = ACTIONS(6690),
@@ -470374,207 +470322,118 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(6690),
   },
-  [3170] = {
-    [anon_sym_COMMA] = ACTIONS(6670),
-    [anon_sym_LPAREN2] = ACTIONS(6670),
-    [anon_sym_PLUS] = ACTIONS(6670),
-    [anon_sym_DASH] = ACTIONS(6670),
-    [anon_sym_STAR] = ACTIONS(6672),
-    [anon_sym_SLASH] = ACTIONS(6672),
-    [anon_sym_PERCENT] = ACTIONS(6670),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6670),
-    [anon_sym_GT] = ACTIONS(6672),
-    [anon_sym_GT_EQ] = ACTIONS(6670),
-    [anon_sym_LT_EQ] = ACTIONS(6670),
-    [anon_sym_LT] = ACTIONS(6672),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6672),
-    [anon_sym_EQ] = ACTIONS(6672),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6672),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6672),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6672),
-    [aux_sym_use_statement_token2] = ACTIONS(6672),
-    [anon_sym_EQ_GT] = ACTIONS(6670),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6672),
-    [aux_sym_save_statement_token1] = ACTIONS(6672),
-    [aux_sym_private_statement_token1] = ACTIONS(6672),
-    [aux_sym_public_statement_token1] = ACTIONS(6672),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6672),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6672),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6672),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6672),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6672),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6672),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6672),
-    [anon_sym_SEMI] = ACTIONS(6670),
-    [aux_sym_stop_statement_token1] = ACTIONS(6672),
-    [aux_sym_stop_statement_token2] = ACTIONS(6672),
-    [anon_sym_LT_LT_LT] = ACTIONS(6670),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6672),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6672),
-    [aux_sym_data_statement_token1] = ACTIONS(6672),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6672),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6672),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6672),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6672),
-    [aux_sym_block_construct_token1] = ACTIONS(6672),
-    [aux_sym_format_statement_token1] = ACTIONS(6672),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6672),
-    [aux_sym_entry_statement_token1] = ACTIONS(6672),
-    [aux_sym_logical_expression_token1] = ACTIONS(6670),
-    [aux_sym_logical_expression_token2] = ACTIONS(6670),
-    [aux_sym_logical_expression_token3] = ACTIONS(6670),
-    [aux_sym_logical_expression_token4] = ACTIONS(6670),
-    [aux_sym_relational_expression_token1] = ACTIONS(6670),
-    [aux_sym_relational_expression_token2] = ACTIONS(6670),
-    [aux_sym_relational_expression_token3] = ACTIONS(6670),
-    [aux_sym_relational_expression_token4] = ACTIONS(6670),
-    [aux_sym_relational_expression_token5] = ACTIONS(6670),
-    [anon_sym_SLASH_EQ] = ACTIONS(6670),
-    [aux_sym_relational_expression_token6] = ACTIONS(6670),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6670),
-    [anon_sym_STAR_STAR] = ACTIONS(6670),
-    [anon_sym_DOT] = ACTIONS(6672),
-    [anon_sym_LBRACK] = ACTIONS(6670),
-    [aux_sym_null_literal_token1] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6672),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6672),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6672),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6672),
-    [anon_sym_QMARK] = ACTIONS(6670),
-    [aux_sym_identifier_token1] = ACTIONS(6672),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6670),
-  },
   [3171] = {
-    [anon_sym_COMMA] = ACTIONS(6666),
-    [anon_sym_LPAREN2] = ACTIONS(6666),
-    [anon_sym_PLUS] = ACTIONS(6666),
-    [anon_sym_DASH] = ACTIONS(6666),
-    [anon_sym_STAR] = ACTIONS(6668),
-    [anon_sym_SLASH] = ACTIONS(6668),
-    [anon_sym_PERCENT] = ACTIONS(6666),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6666),
-    [anon_sym_GT] = ACTIONS(6668),
-    [anon_sym_GT_EQ] = ACTIONS(6666),
-    [anon_sym_LT_EQ] = ACTIONS(6666),
-    [anon_sym_LT] = ACTIONS(6668),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6668),
-    [anon_sym_EQ] = ACTIONS(6668),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6668),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6668),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6668),
-    [aux_sym_use_statement_token2] = ACTIONS(6668),
-    [anon_sym_EQ_GT] = ACTIONS(6666),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6668),
-    [aux_sym_save_statement_token1] = ACTIONS(6668),
-    [aux_sym_private_statement_token1] = ACTIONS(6668),
-    [aux_sym_public_statement_token1] = ACTIONS(6668),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6668),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6668),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6668),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6668),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6668),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6668),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6668),
-    [anon_sym_SEMI] = ACTIONS(6666),
-    [aux_sym_stop_statement_token1] = ACTIONS(6668),
-    [aux_sym_stop_statement_token2] = ACTIONS(6668),
-    [anon_sym_LT_LT_LT] = ACTIONS(6666),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6668),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6668),
-    [aux_sym_data_statement_token1] = ACTIONS(6668),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6668),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6668),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6668),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6668),
-    [aux_sym_block_construct_token1] = ACTIONS(6668),
-    [aux_sym_format_statement_token1] = ACTIONS(6668),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6668),
-    [aux_sym_entry_statement_token1] = ACTIONS(6668),
-    [aux_sym_logical_expression_token1] = ACTIONS(6666),
-    [aux_sym_logical_expression_token2] = ACTIONS(6666),
-    [aux_sym_logical_expression_token3] = ACTIONS(6666),
-    [aux_sym_logical_expression_token4] = ACTIONS(6666),
-    [aux_sym_relational_expression_token1] = ACTIONS(6666),
-    [aux_sym_relational_expression_token2] = ACTIONS(6666),
-    [aux_sym_relational_expression_token3] = ACTIONS(6666),
-    [aux_sym_relational_expression_token4] = ACTIONS(6666),
-    [aux_sym_relational_expression_token5] = ACTIONS(6666),
-    [anon_sym_SLASH_EQ] = ACTIONS(6666),
-    [aux_sym_relational_expression_token6] = ACTIONS(6666),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6666),
-    [anon_sym_STAR_STAR] = ACTIONS(6666),
-    [anon_sym_DOT] = ACTIONS(6668),
-    [anon_sym_LBRACK] = ACTIONS(6666),
-    [aux_sym_null_literal_token1] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6668),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6668),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6668),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6668),
-    [anon_sym_QMARK] = ACTIONS(6666),
-    [aux_sym_identifier_token1] = ACTIONS(6668),
+    [sym_identifier] = STATE(7533),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7192),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6666),
+    [sym__external_end_of_statement] = ACTIONS(7192),
   },
   [3172] = {
-    [sym__name] = STATE(5760),
-    [sym_identifier] = STATE(6116),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
+    [sym__name] = STATE(5766),
+    [sym_identifier] = STATE(6138),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -470612,21 +470471,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(5495),
     [aux_sym_inquire_statement_token1] = ACTIONS(5495),
     [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
     [aux_sym_null_literal_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_statement_token2] = ACTIONS(5495),
@@ -470636,13 +470495,101 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_statement_token12] = ACTIONS(5495),
     [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [anon_sym_QMARK] = ACTIONS(4287),
+    [anon_sym_QMARK] = ACTIONS(4345),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
   [3173] = {
-    [sym__import_names] = STATE(4728),
-    [sym_identifier] = STATE(4650),
+    [anon_sym_COMMA] = ACTIONS(5760),
+    [anon_sym_LPAREN2] = ACTIONS(5762),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(5765),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5768),
+    [anon_sym_COLON] = ACTIONS(4343),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5768),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5768),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5768),
+    [aux_sym_use_statement_token2] = ACTIONS(5768),
+    [anon_sym_COLON_COLON] = ACTIONS(5760),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5768),
+    [aux_sym_save_statement_token1] = ACTIONS(5768),
+    [aux_sym_private_statement_token1] = ACTIONS(5768),
+    [aux_sym_public_statement_token1] = ACTIONS(5768),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym_stop_statement_token1] = ACTIONS(5768),
+    [aux_sym_stop_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5768),
+    [aux_sym_data_statement_token1] = ACTIONS(5768),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5768),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5768),
+    [aux_sym_block_construct_token1] = ACTIONS(5768),
+    [aux_sym_format_statement_token1] = ACTIONS(5768),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5768),
+    [aux_sym_entry_statement_token1] = ACTIONS(5768),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5768),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5768),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [aux_sym_identifier_token1] = ACTIONS(5768),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3174] = {
+    [sym__import_names] = STATE(4761),
+    [sym_identifier] = STATE(4673),
     [anon_sym_COMMA] = ACTIONS(7194),
     [aux_sym_preproc_if_token2] = ACTIONS(7196),
     [aux_sym_preproc_else_token1] = ACTIONS(7196),
@@ -470650,7 +470597,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_preproc_elifdef_token1] = ACTIONS(7196),
     [aux_sym_preproc_elifdef_token2] = ACTIONS(7196),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_module_statement_token1] = ACTIONS(7186),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
@@ -470728,180 +470675,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
   },
-  [3174] = {
-    [anon_sym_COMMA] = ACTIONS(5710),
-    [anon_sym_LPAREN2] = ACTIONS(5712),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(5715),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5718),
-    [anon_sym_COLON] = ACTIONS(4285),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5718),
-    [aux_sym_use_statement_token2] = ACTIONS(5718),
-    [anon_sym_COLON_COLON] = ACTIONS(5710),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5718),
-    [aux_sym_save_statement_token1] = ACTIONS(5718),
-    [aux_sym_private_statement_token1] = ACTIONS(5718),
-    [aux_sym_public_statement_token1] = ACTIONS(5718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym_stop_statement_token1] = ACTIONS(5718),
-    [aux_sym_stop_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5718),
-    [aux_sym_data_statement_token1] = ACTIONS(5718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5718),
-    [aux_sym_block_construct_token1] = ACTIONS(5718),
-    [aux_sym_format_statement_token1] = ACTIONS(5718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5718),
-    [aux_sym_entry_statement_token1] = ACTIONS(5718),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5718),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [aux_sym_identifier_token1] = ACTIONS(5718),
-    [sym_comment] = ACTIONS(21),
-  },
   [3175] = {
-    [anon_sym_COMMA] = ACTIONS(6964),
-    [anon_sym_LPAREN2] = ACTIONS(6964),
-    [anon_sym_PLUS] = ACTIONS(6964),
-    [anon_sym_DASH] = ACTIONS(6964),
-    [anon_sym_STAR] = ACTIONS(6962),
-    [anon_sym_SLASH] = ACTIONS(6962),
-    [anon_sym_PERCENT] = ACTIONS(6964),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(6964),
-    [anon_sym_GT] = ACTIONS(6962),
-    [anon_sym_GT_EQ] = ACTIONS(6964),
-    [anon_sym_LT_EQ] = ACTIONS(6964),
-    [anon_sym_LT] = ACTIONS(6962),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6962),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6962),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6962),
-    [aux_sym_use_statement_token2] = ACTIONS(6962),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6962),
-    [aux_sym_save_statement_token1] = ACTIONS(6962),
-    [aux_sym_private_statement_token1] = ACTIONS(6962),
-    [aux_sym_public_statement_token1] = ACTIONS(6962),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6962),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6962),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6962),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6962),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6962),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6962),
-    [anon_sym_SEMI] = ACTIONS(6964),
-    [aux_sym_stop_statement_token1] = ACTIONS(6962),
-    [aux_sym_stop_statement_token2] = ACTIONS(6962),
-    [anon_sym_LT_LT_LT] = ACTIONS(6964),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6962),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6962),
-    [aux_sym_data_statement_token1] = ACTIONS(6962),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6962),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6962),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6962),
-    [aux_sym_block_construct_token1] = ACTIONS(6962),
-    [aux_sym_format_statement_token1] = ACTIONS(6962),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6962),
-    [aux_sym_entry_statement_token1] = ACTIONS(6962),
-    [aux_sym_logical_expression_token1] = ACTIONS(6964),
-    [aux_sym_logical_expression_token2] = ACTIONS(6964),
-    [aux_sym_logical_expression_token3] = ACTIONS(6964),
-    [aux_sym_logical_expression_token4] = ACTIONS(6964),
-    [aux_sym_relational_expression_token1] = ACTIONS(6964),
-    [aux_sym_relational_expression_token2] = ACTIONS(6964),
-    [aux_sym_relational_expression_token3] = ACTIONS(6964),
-    [aux_sym_relational_expression_token4] = ACTIONS(6964),
-    [aux_sym_relational_expression_token5] = ACTIONS(6964),
-    [anon_sym_SLASH_EQ] = ACTIONS(6964),
-    [aux_sym_relational_expression_token6] = ACTIONS(6964),
-    [anon_sym_SLASH_SLASH] = ACTIONS(6964),
-    [anon_sym_STAR_STAR] = ACTIONS(6964),
-    [anon_sym_DOT] = ACTIONS(6962),
-    [anon_sym_LBRACK] = ACTIONS(6964),
-    [aux_sym_null_literal_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6962),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6962),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6962),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6962),
-    [anon_sym_QMARK] = ACTIONS(6964),
-    [aux_sym_identifier_token1] = ACTIONS(6962),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(6964),
+    [anon_sym_COMMA] = ACTIONS(6978),
+    [anon_sym_LPAREN2] = ACTIONS(6978),
+    [anon_sym_PLUS] = ACTIONS(6978),
+    [anon_sym_DASH] = ACTIONS(6978),
+    [anon_sym_STAR] = ACTIONS(6976),
+    [anon_sym_SLASH] = ACTIONS(6976),
+    [anon_sym_PERCENT] = ACTIONS(6978),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(6978),
+    [anon_sym_GT] = ACTIONS(6976),
+    [anon_sym_GT_EQ] = ACTIONS(6978),
+    [anon_sym_LT_EQ] = ACTIONS(6978),
+    [anon_sym_LT] = ACTIONS(6976),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6976),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6976),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6976),
+    [aux_sym_use_statement_token2] = ACTIONS(6976),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6976),
+    [aux_sym_save_statement_token1] = ACTIONS(6976),
+    [aux_sym_private_statement_token1] = ACTIONS(6976),
+    [aux_sym_public_statement_token1] = ACTIONS(6976),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6976),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6976),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6976),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6976),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6976),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6976),
+    [anon_sym_SEMI] = ACTIONS(6978),
+    [aux_sym_stop_statement_token1] = ACTIONS(6976),
+    [aux_sym_stop_statement_token2] = ACTIONS(6976),
+    [anon_sym_LT_LT_LT] = ACTIONS(6978),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6976),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6976),
+    [aux_sym_data_statement_token1] = ACTIONS(6976),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6976),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6976),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6976),
+    [aux_sym_block_construct_token1] = ACTIONS(6976),
+    [aux_sym_format_statement_token1] = ACTIONS(6976),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6976),
+    [aux_sym_entry_statement_token1] = ACTIONS(6976),
+    [aux_sym_logical_expression_token1] = ACTIONS(6978),
+    [aux_sym_logical_expression_token2] = ACTIONS(6978),
+    [aux_sym_logical_expression_token3] = ACTIONS(6978),
+    [aux_sym_logical_expression_token4] = ACTIONS(6978),
+    [aux_sym_relational_expression_token1] = ACTIONS(6978),
+    [aux_sym_relational_expression_token2] = ACTIONS(6978),
+    [aux_sym_relational_expression_token3] = ACTIONS(6978),
+    [aux_sym_relational_expression_token4] = ACTIONS(6978),
+    [aux_sym_relational_expression_token5] = ACTIONS(6978),
+    [anon_sym_SLASH_EQ] = ACTIONS(6978),
+    [aux_sym_relational_expression_token6] = ACTIONS(6978),
+    [anon_sym_SLASH_SLASH] = ACTIONS(6978),
+    [anon_sym_STAR_STAR] = ACTIONS(6978),
+    [anon_sym_DOT] = ACTIONS(6976),
+    [anon_sym_LBRACK] = ACTIONS(6978),
+    [aux_sym_null_literal_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6976),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6976),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6976),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6976),
+    [anon_sym_QMARK] = ACTIONS(6978),
+    [aux_sym_identifier_token1] = ACTIONS(6976),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(6978),
   },
   [3176] = {
     [anon_sym_AMP] = ACTIONS(21),
@@ -470986,12 +470845,12 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3177] = {
-    [sym__variable_declarator] = STATE(6049),
-    [sym_sized_declarator] = STATE(3455),
-    [sym__declaration_assignment] = STATE(6311),
-    [sym__declaration_pointer_association] = STATE(6411),
-    [sym__declaration_targets] = STATE(7698),
-    [sym_coarray_declarator] = STATE(6049),
+    [sym__variable_declarator] = STATE(6074),
+    [sym_sized_declarator] = STATE(3456),
+    [sym__declaration_assignment] = STATE(6331),
+    [sym__declaration_pointer_association] = STATE(6443),
+    [sym__declaration_targets] = STATE(7405),
+    [sym_coarray_declarator] = STATE(6074),
     [sym_identifier] = STATE(3341),
     [anon_sym_COMMA] = ACTIONS(7206),
     [anon_sym_AMP] = ACTIONS(21),
@@ -471068,8 +470927,8 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3178] = {
-    [sym_kind] = STATE(3188),
-    [sym__argument_list] = STATE(3194),
+    [sym_kind] = STATE(3185),
+    [sym__argument_list] = STATE(3184),
     [anon_sym_COMMA] = ACTIONS(7212),
     [anon_sym_LPAREN2] = ACTIONS(7214),
     [anon_sym_STAR] = ACTIONS(7216),
@@ -471225,6 +471084,84 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3180] = {
+    [anon_sym_COMMA] = ACTIONS(5760),
+    [anon_sym_RPAREN] = ACTIONS(5760),
+    [anon_sym_LPAREN2] = ACTIONS(5760),
+    [anon_sym_STAR] = ACTIONS(5760),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5768),
+    [aux_sym_module_statement_token1] = ACTIONS(5768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5768),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5768),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(5768),
+    [aux_sym_function_statement_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5768),
+    [aux_sym_use_statement_token2] = ACTIONS(5768),
+    [anon_sym_COLON_COLON] = ACTIONS(5760),
+    [aux_sym_implicit_statement_token3] = ACTIONS(5768),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5768),
+    [aux_sym_save_statement_token1] = ACTIONS(5768),
+    [aux_sym_private_statement_token1] = ACTIONS(5768),
+    [aux_sym_public_statement_token1] = ACTIONS(5768),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5768),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5768),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(5768),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(5768),
+    [aux_sym_derived_type_token1] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5768),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5768),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(5768),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(5768),
+    [aux_sym_stop_statement_token1] = ACTIONS(5768),
+    [aux_sym_stop_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5768),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5768),
+    [aux_sym_data_statement_token1] = ACTIONS(5768),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5768),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5768),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5768),
+    [aux_sym_block_construct_token1] = ACTIONS(5768),
+    [aux_sym_format_statement_token1] = ACTIONS(5768),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5768),
+    [aux_sym_entry_statement_token1] = ACTIONS(5768),
+    [aux_sym_null_literal_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5768),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5768),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5768),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5768),
+    [aux_sym_identifier_token1] = ACTIONS(5768),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3181] = {
     [anon_sym_COMMA] = ACTIONS(7224),
     [anon_sym_RPAREN] = ACTIONS(7224),
     [anon_sym_LPAREN2] = ACTIONS(7224),
@@ -471302,84 +471239,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7226),
     [sym_comment] = ACTIONS(21),
   },
-  [3181] = {
-    [anon_sym_COMMA] = ACTIONS(5710),
-    [anon_sym_RPAREN] = ACTIONS(5710),
-    [anon_sym_LPAREN2] = ACTIONS(5710),
-    [anon_sym_STAR] = ACTIONS(5710),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5718),
-    [aux_sym_module_statement_token1] = ACTIONS(5718),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5718),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5718),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(5718),
-    [aux_sym_function_statement_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5718),
-    [aux_sym_use_statement_token2] = ACTIONS(5718),
-    [anon_sym_COLON_COLON] = ACTIONS(5710),
-    [aux_sym_implicit_statement_token3] = ACTIONS(5718),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5718),
-    [aux_sym_save_statement_token1] = ACTIONS(5718),
-    [aux_sym_private_statement_token1] = ACTIONS(5718),
-    [aux_sym_public_statement_token1] = ACTIONS(5718),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5718),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5718),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(5718),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(5718),
-    [aux_sym_derived_type_token1] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5718),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5718),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(5718),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(5718),
-    [aux_sym_stop_statement_token1] = ACTIONS(5718),
-    [aux_sym_stop_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5718),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5718),
-    [aux_sym_data_statement_token1] = ACTIONS(5718),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5718),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5718),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5718),
-    [aux_sym_block_construct_token1] = ACTIONS(5718),
-    [aux_sym_format_statement_token1] = ACTIONS(5718),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5718),
-    [aux_sym_entry_statement_token1] = ACTIONS(5718),
-    [aux_sym_null_literal_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5718),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5718),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5718),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5718),
-    [aux_sym_identifier_token1] = ACTIONS(5718),
-    [sym_comment] = ACTIONS(21),
-  },
   [3182] = {
     [anon_sym_COMMA] = ACTIONS(7228),
     [anon_sym_RPAREN] = ACTIONS(7228),
@@ -471459,21 +471318,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3183] = {
-    [sym_assignment] = STATE(6187),
-    [sym_operator] = STATE(6187),
-    [sym_defined_io_procedure] = STATE(6187),
-    [sym__generic_procedure] = STATE(6187),
-    [sym_identifier] = STATE(6187),
-    [sym__end_of_statement] = STATE(2874),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+    [sym_assignment] = STATE(6179),
+    [sym_operator] = STATE(6179),
+    [sym_defined_io_procedure] = STATE(6179),
+    [sym__generic_procedure] = STATE(6179),
+    [sym_identifier] = STATE(6179),
+    [sym__end_of_statement] = STATE(3101),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7232),
@@ -471482,30 +471341,30 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
     [anon_sym_SEMI] = ACTIONS(7234),
@@ -471536,56 +471395,287 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7234),
   },
   [3184] = {
-    [sym_assignment] = STATE(6194),
-    [sym_operator] = STATE(6194),
-    [sym_defined_io_procedure] = STATE(6194),
-    [sym__generic_procedure] = STATE(6194),
-    [sym_identifier] = STATE(6194),
-    [sym__end_of_statement] = STATE(2780),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+    [anon_sym_COMMA] = ACTIONS(7236),
+    [anon_sym_RPAREN] = ACTIONS(7236),
+    [anon_sym_LPAREN2] = ACTIONS(7236),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7238),
+    [aux_sym_module_statement_token1] = ACTIONS(7238),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7238),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7238),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7238),
+    [aux_sym_function_statement_token1] = ACTIONS(7238),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7238),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7238),
+    [aux_sym_use_statement_token2] = ACTIONS(7238),
+    [anon_sym_COLON_COLON] = ACTIONS(7236),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7238),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7238),
+    [aux_sym_save_statement_token1] = ACTIONS(7238),
+    [aux_sym_private_statement_token1] = ACTIONS(7238),
+    [aux_sym_public_statement_token1] = ACTIONS(7238),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7238),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7238),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7238),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7238),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7238),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7238),
+    [aux_sym_derived_type_token1] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7238),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7238),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7238),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7238),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7238),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7238),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7238),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7238),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7238),
+    [aux_sym_stop_statement_token1] = ACTIONS(7238),
+    [aux_sym_stop_statement_token2] = ACTIONS(7238),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7238),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7238),
+    [aux_sym_data_statement_token1] = ACTIONS(7238),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7238),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7238),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7238),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7238),
+    [aux_sym_block_construct_token1] = ACTIONS(7238),
+    [aux_sym_format_statement_token1] = ACTIONS(7238),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7238),
+    [aux_sym_entry_statement_token1] = ACTIONS(7238),
+    [aux_sym_null_literal_token1] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7238),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7238),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7238),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7238),
+    [aux_sym_identifier_token1] = ACTIONS(7238),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3185] = {
+    [anon_sym_COMMA] = ACTIONS(7240),
+    [anon_sym_RPAREN] = ACTIONS(7240),
+    [anon_sym_LPAREN2] = ACTIONS(7240),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7242),
+    [aux_sym_module_statement_token1] = ACTIONS(7242),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7242),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7242),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7242),
+    [aux_sym_function_statement_token1] = ACTIONS(7242),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7242),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7242),
+    [aux_sym_use_statement_token2] = ACTIONS(7242),
+    [anon_sym_COLON_COLON] = ACTIONS(7240),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7242),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7242),
+    [aux_sym_save_statement_token1] = ACTIONS(7242),
+    [aux_sym_private_statement_token1] = ACTIONS(7242),
+    [aux_sym_public_statement_token1] = ACTIONS(7242),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7242),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7242),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7242),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7242),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7242),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7242),
+    [aux_sym_derived_type_token1] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7242),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7242),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7242),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7242),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7242),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7242),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7242),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7242),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7242),
+    [aux_sym_stop_statement_token1] = ACTIONS(7242),
+    [aux_sym_stop_statement_token2] = ACTIONS(7242),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7242),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7242),
+    [aux_sym_data_statement_token1] = ACTIONS(7242),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7242),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7242),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7242),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7242),
+    [aux_sym_block_construct_token1] = ACTIONS(7242),
+    [aux_sym_format_statement_token1] = ACTIONS(7242),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7242),
+    [aux_sym_entry_statement_token1] = ACTIONS(7242),
+    [aux_sym_null_literal_token1] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7242),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7242),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7242),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7242),
+    [aux_sym_identifier_token1] = ACTIONS(7242),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3186] = {
+    [anon_sym_COMMA] = ACTIONS(7244),
+    [anon_sym_RPAREN] = ACTIONS(7244),
+    [anon_sym_LPAREN2] = ACTIONS(7244),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7246),
+    [aux_sym_module_statement_token1] = ACTIONS(7246),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7246),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7246),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7246),
+    [aux_sym_function_statement_token1] = ACTIONS(7246),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7246),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7246),
+    [aux_sym_use_statement_token2] = ACTIONS(7246),
+    [anon_sym_COLON_COLON] = ACTIONS(7244),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7246),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7246),
+    [aux_sym_save_statement_token1] = ACTIONS(7246),
+    [aux_sym_private_statement_token1] = ACTIONS(7246),
+    [aux_sym_public_statement_token1] = ACTIONS(7246),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7246),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7246),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7246),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7246),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7246),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7246),
+    [aux_sym_derived_type_token1] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7246),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7246),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7246),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7246),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7246),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7246),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7246),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7246),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7246),
+    [aux_sym_stop_statement_token1] = ACTIONS(7246),
+    [aux_sym_stop_statement_token2] = ACTIONS(7246),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7246),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7246),
+    [aux_sym_data_statement_token1] = ACTIONS(7246),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7246),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7246),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7246),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7246),
+    [aux_sym_block_construct_token1] = ACTIONS(7246),
+    [aux_sym_format_statement_token1] = ACTIONS(7246),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7246),
+    [aux_sym_entry_statement_token1] = ACTIONS(7246),
+    [aux_sym_null_literal_token1] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7246),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7246),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7246),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7246),
+    [aux_sym_identifier_token1] = ACTIONS(7246),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3187] = {
+    [sym_assignment] = STATE(6305),
+    [sym_operator] = STATE(6305),
+    [sym_defined_io_procedure] = STATE(6305),
+    [sym__generic_procedure] = STATE(6305),
+    [sym_identifier] = STATE(6305),
+    [sym__end_of_statement] = STATE(2893),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7236),
+    [anon_sym_COLON_COLON] = ACTIONS(7248),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7238),
+    [anon_sym_SEMI] = ACTIONS(7250),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -471610,136 +471700,136 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7238),
+    [sym__external_end_of_statement] = ACTIONS(7250),
   },
-  [3185] = {
-    [anon_sym_COMMA] = ACTIONS(7240),
-    [anon_sym_RPAREN] = ACTIONS(7240),
-    [anon_sym_LPAREN2] = ACTIONS(7240),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7243),
-    [aux_sym_module_statement_token1] = ACTIONS(7243),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7243),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7243),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7243),
-    [aux_sym_function_statement_token1] = ACTIONS(7243),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7243),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7243),
-    [aux_sym_use_statement_token2] = ACTIONS(7243),
-    [anon_sym_COLON_COLON] = ACTIONS(7240),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7243),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7243),
-    [aux_sym_save_statement_token1] = ACTIONS(7243),
-    [aux_sym_private_statement_token1] = ACTIONS(7243),
-    [aux_sym_public_statement_token1] = ACTIONS(7243),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7243),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7243),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7243),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7243),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7243),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7243),
-    [aux_sym_derived_type_token1] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7243),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7243),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7243),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7243),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7243),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7243),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7243),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7243),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7243),
-    [aux_sym_stop_statement_token1] = ACTIONS(7243),
-    [aux_sym_stop_statement_token2] = ACTIONS(7243),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7243),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7243),
-    [aux_sym_data_statement_token1] = ACTIONS(7243),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7243),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7243),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7243),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7243),
-    [aux_sym_block_construct_token1] = ACTIONS(7243),
-    [aux_sym_format_statement_token1] = ACTIONS(7243),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7243),
-    [aux_sym_entry_statement_token1] = ACTIONS(7243),
-    [aux_sym_null_literal_token1] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7243),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7243),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7243),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7243),
-    [aux_sym_identifier_token1] = ACTIONS(7243),
+  [3188] = {
+    [anon_sym_COMMA] = ACTIONS(7252),
+    [anon_sym_RPAREN] = ACTIONS(7252),
+    [anon_sym_LPAREN2] = ACTIONS(7252),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7254),
+    [aux_sym_module_statement_token1] = ACTIONS(7254),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7254),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7254),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7254),
+    [aux_sym_function_statement_token1] = ACTIONS(7254),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7254),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7254),
+    [aux_sym_use_statement_token2] = ACTIONS(7254),
+    [anon_sym_COLON_COLON] = ACTIONS(7252),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7254),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7254),
+    [aux_sym_save_statement_token1] = ACTIONS(7254),
+    [aux_sym_private_statement_token1] = ACTIONS(7254),
+    [aux_sym_public_statement_token1] = ACTIONS(7254),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7254),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7254),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7254),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7254),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7254),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7254),
+    [aux_sym_derived_type_token1] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7254),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7254),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7254),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7254),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7254),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7254),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7254),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7254),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7254),
+    [aux_sym_stop_statement_token1] = ACTIONS(7254),
+    [aux_sym_stop_statement_token2] = ACTIONS(7254),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7254),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7254),
+    [aux_sym_data_statement_token1] = ACTIONS(7254),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7254),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7254),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7254),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7254),
+    [aux_sym_block_construct_token1] = ACTIONS(7254),
+    [aux_sym_format_statement_token1] = ACTIONS(7254),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7254),
+    [aux_sym_entry_statement_token1] = ACTIONS(7254),
+    [aux_sym_null_literal_token1] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7254),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7254),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7254),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7254),
+    [aux_sym_identifier_token1] = ACTIONS(7254),
     [sym_comment] = ACTIONS(21),
   },
-  [3186] = {
-    [sym_assignment] = STATE(6273),
-    [sym_operator] = STATE(6273),
-    [sym_defined_io_procedure] = STATE(6273),
-    [sym__generic_procedure] = STATE(6273),
-    [sym_identifier] = STATE(6273),
-    [sym__end_of_statement] = STATE(2731),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+  [3189] = {
+    [sym_assignment] = STATE(6304),
+    [sym_operator] = STATE(6304),
+    [sym_defined_io_procedure] = STATE(6304),
+    [sym__generic_procedure] = STATE(6304),
+    [sym_identifier] = STATE(6304),
+    [sym__end_of_statement] = STATE(2891),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7246),
+    [anon_sym_COLON_COLON] = ACTIONS(7256),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7248),
+    [anon_sym_SEMI] = ACTIONS(7258),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -471764,59 +471854,59 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7248),
+    [sym__external_end_of_statement] = ACTIONS(7258),
   },
-  [3187] = {
-    [sym_assignment] = STATE(6274),
-    [sym_operator] = STATE(6274),
-    [sym_defined_io_procedure] = STATE(6274),
-    [sym__generic_procedure] = STATE(6274),
-    [sym_identifier] = STATE(6274),
-    [sym__end_of_statement] = STATE(2733),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+  [3190] = {
+    [sym_assignment] = STATE(6283),
+    [sym_operator] = STATE(6283),
+    [sym_defined_io_procedure] = STATE(6283),
+    [sym__generic_procedure] = STATE(6283),
+    [sym_identifier] = STATE(6283),
+    [sym__end_of_statement] = STATE(2884),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7250),
+    [anon_sym_COLON_COLON] = ACTIONS(7260),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7252),
+    [anon_sym_SEMI] = ACTIONS(7262),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -471841,213 +471931,136 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7252),
+    [sym__external_end_of_statement] = ACTIONS(7262),
   },
-  [3188] = {
-    [anon_sym_COMMA] = ACTIONS(7254),
-    [anon_sym_RPAREN] = ACTIONS(7254),
-    [anon_sym_LPAREN2] = ACTIONS(7254),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7256),
-    [aux_sym_module_statement_token1] = ACTIONS(7256),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7256),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7256),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7256),
-    [aux_sym_function_statement_token1] = ACTIONS(7256),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7256),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7256),
-    [aux_sym_use_statement_token2] = ACTIONS(7256),
-    [anon_sym_COLON_COLON] = ACTIONS(7254),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7256),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7256),
-    [aux_sym_save_statement_token1] = ACTIONS(7256),
-    [aux_sym_private_statement_token1] = ACTIONS(7256),
-    [aux_sym_public_statement_token1] = ACTIONS(7256),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7256),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7256),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7256),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7256),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7256),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7256),
-    [aux_sym_derived_type_token1] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7256),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7256),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7256),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7256),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7256),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7256),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7256),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7256),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7256),
-    [aux_sym_stop_statement_token1] = ACTIONS(7256),
-    [aux_sym_stop_statement_token2] = ACTIONS(7256),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7256),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7256),
-    [aux_sym_data_statement_token1] = ACTIONS(7256),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7256),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7256),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7256),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7256),
-    [aux_sym_block_construct_token1] = ACTIONS(7256),
-    [aux_sym_format_statement_token1] = ACTIONS(7256),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7256),
-    [aux_sym_entry_statement_token1] = ACTIONS(7256),
-    [aux_sym_null_literal_token1] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7256),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7256),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7256),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7256),
-    [aux_sym_identifier_token1] = ACTIONS(7256),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3189] = {
-    [anon_sym_COMMA] = ACTIONS(7258),
-    [anon_sym_RPAREN] = ACTIONS(7258),
-    [anon_sym_LPAREN2] = ACTIONS(7258),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7260),
-    [aux_sym_module_statement_token1] = ACTIONS(7260),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7260),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7260),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7260),
-    [aux_sym_function_statement_token1] = ACTIONS(7260),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7260),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7260),
-    [aux_sym_use_statement_token2] = ACTIONS(7260),
-    [anon_sym_COLON_COLON] = ACTIONS(7258),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7260),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7260),
-    [aux_sym_save_statement_token1] = ACTIONS(7260),
-    [aux_sym_private_statement_token1] = ACTIONS(7260),
-    [aux_sym_public_statement_token1] = ACTIONS(7260),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7260),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7260),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7260),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7260),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7260),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7260),
-    [aux_sym_derived_type_token1] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7260),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7260),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7260),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7260),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7260),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7260),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7260),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7260),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7260),
-    [aux_sym_stop_statement_token1] = ACTIONS(7260),
-    [aux_sym_stop_statement_token2] = ACTIONS(7260),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7260),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7260),
-    [aux_sym_data_statement_token1] = ACTIONS(7260),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7260),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7260),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7260),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7260),
-    [aux_sym_block_construct_token1] = ACTIONS(7260),
-    [aux_sym_format_statement_token1] = ACTIONS(7260),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7260),
-    [aux_sym_entry_statement_token1] = ACTIONS(7260),
-    [aux_sym_null_literal_token1] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7260),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7260),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7260),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7260),
-    [aux_sym_identifier_token1] = ACTIONS(7260),
+  [3191] = {
+    [anon_sym_COMMA] = ACTIONS(7264),
+    [anon_sym_RPAREN] = ACTIONS(7264),
+    [anon_sym_LPAREN2] = ACTIONS(7264),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7266),
+    [aux_sym_module_statement_token1] = ACTIONS(7266),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7266),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7266),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7266),
+    [aux_sym_function_statement_token1] = ACTIONS(7266),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7266),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7266),
+    [aux_sym_use_statement_token2] = ACTIONS(7266),
+    [anon_sym_COLON_COLON] = ACTIONS(7264),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7266),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7266),
+    [aux_sym_save_statement_token1] = ACTIONS(7266),
+    [aux_sym_private_statement_token1] = ACTIONS(7266),
+    [aux_sym_public_statement_token1] = ACTIONS(7266),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7266),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7266),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7266),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7266),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7266),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7266),
+    [aux_sym_derived_type_token1] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7266),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7266),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7266),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7266),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7266),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7266),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7266),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7266),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7266),
+    [aux_sym_stop_statement_token1] = ACTIONS(7266),
+    [aux_sym_stop_statement_token2] = ACTIONS(7266),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7266),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7266),
+    [aux_sym_data_statement_token1] = ACTIONS(7266),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7266),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7266),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7266),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7266),
+    [aux_sym_block_construct_token1] = ACTIONS(7266),
+    [aux_sym_format_statement_token1] = ACTIONS(7266),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7266),
+    [aux_sym_entry_statement_token1] = ACTIONS(7266),
+    [aux_sym_null_literal_token1] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7266),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7266),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7266),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7266),
+    [aux_sym_identifier_token1] = ACTIONS(7266),
     [sym_comment] = ACTIONS(21),
   },
-  [3190] = {
-    [sym_assignment] = STATE(6123),
-    [sym_operator] = STATE(6123),
-    [sym_defined_io_procedure] = STATE(6123),
-    [sym__generic_procedure] = STATE(6123),
-    [sym_identifier] = STATE(6123),
-    [sym__end_of_statement] = STATE(3074),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+  [3192] = {
+    [sym_assignment] = STATE(6122),
+    [sym_operator] = STATE(6122),
+    [sym_defined_io_procedure] = STATE(6122),
+    [sym__generic_procedure] = STATE(6122),
+    [sym_identifier] = STATE(6122),
+    [sym__end_of_statement] = STATE(3099),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7262),
+    [anon_sym_COLON_COLON] = ACTIONS(7268),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7264),
+    [anon_sym_SEMI] = ACTIONS(7270),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -472072,59 +472085,136 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7264),
+    [sym__external_end_of_statement] = ACTIONS(7270),
   },
-  [3191] = {
-    [sym_assignment] = STATE(6124),
-    [sym_operator] = STATE(6124),
-    [sym_defined_io_procedure] = STATE(6124),
-    [sym__generic_procedure] = STATE(6124),
-    [sym_identifier] = STATE(6124),
-    [sym__end_of_statement] = STATE(3142),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+  [3193] = {
+    [anon_sym_COMMA] = ACTIONS(7272),
+    [anon_sym_RPAREN] = ACTIONS(7272),
+    [anon_sym_LPAREN2] = ACTIONS(7272),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7275),
+    [aux_sym_module_statement_token1] = ACTIONS(7275),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7275),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7275),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7275),
+    [aux_sym_function_statement_token1] = ACTIONS(7275),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7275),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7275),
+    [aux_sym_use_statement_token2] = ACTIONS(7275),
+    [anon_sym_COLON_COLON] = ACTIONS(7272),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7275),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7275),
+    [aux_sym_save_statement_token1] = ACTIONS(7275),
+    [aux_sym_private_statement_token1] = ACTIONS(7275),
+    [aux_sym_public_statement_token1] = ACTIONS(7275),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7275),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7275),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7275),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7275),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7275),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7275),
+    [aux_sym_derived_type_token1] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7275),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7275),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7275),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7275),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7275),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7275),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7275),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7275),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7275),
+    [aux_sym_stop_statement_token1] = ACTIONS(7275),
+    [aux_sym_stop_statement_token2] = ACTIONS(7275),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7275),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7275),
+    [aux_sym_data_statement_token1] = ACTIONS(7275),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7275),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7275),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7275),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7275),
+    [aux_sym_block_construct_token1] = ACTIONS(7275),
+    [aux_sym_format_statement_token1] = ACTIONS(7275),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7275),
+    [aux_sym_entry_statement_token1] = ACTIONS(7275),
+    [aux_sym_null_literal_token1] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7275),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7275),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7275),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7275),
+    [aux_sym_identifier_token1] = ACTIONS(7275),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3194] = {
+    [sym_assignment] = STATE(6200),
+    [sym_operator] = STATE(6200),
+    [sym_defined_io_procedure] = STATE(6200),
+    [sym__generic_procedure] = STATE(6200),
+    [sym_identifier] = STATE(6200),
+    [sym__end_of_statement] = STATE(2723),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7266),
+    [anon_sym_COLON_COLON] = ACTIONS(7278),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7268),
+    [anon_sym_SEMI] = ACTIONS(7280),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -472149,255 +472239,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7268),
-  },
-  [3192] = {
-    [anon_sym_COMMA] = ACTIONS(7270),
-    [anon_sym_RPAREN] = ACTIONS(7270),
-    [anon_sym_LPAREN2] = ACTIONS(7270),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7272),
-    [aux_sym_module_statement_token1] = ACTIONS(7272),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7272),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7272),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7272),
-    [aux_sym_function_statement_token1] = ACTIONS(7272),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7272),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7272),
-    [aux_sym_use_statement_token2] = ACTIONS(7272),
-    [anon_sym_COLON_COLON] = ACTIONS(7270),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7272),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7272),
-    [aux_sym_save_statement_token1] = ACTIONS(7272),
-    [aux_sym_private_statement_token1] = ACTIONS(7272),
-    [aux_sym_public_statement_token1] = ACTIONS(7272),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7272),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7272),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7272),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7272),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7272),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7272),
-    [aux_sym_derived_type_token1] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7272),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7272),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7272),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7272),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7272),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7272),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7272),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7272),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7272),
-    [aux_sym_stop_statement_token1] = ACTIONS(7272),
-    [aux_sym_stop_statement_token2] = ACTIONS(7272),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7272),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7272),
-    [aux_sym_data_statement_token1] = ACTIONS(7272),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7272),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7272),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7272),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7272),
-    [aux_sym_block_construct_token1] = ACTIONS(7272),
-    [aux_sym_format_statement_token1] = ACTIONS(7272),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7272),
-    [aux_sym_entry_statement_token1] = ACTIONS(7272),
-    [aux_sym_null_literal_token1] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7272),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7272),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7272),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7272),
-    [aux_sym_identifier_token1] = ACTIONS(7272),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3193] = {
-    [anon_sym_COMMA] = ACTIONS(7274),
-    [anon_sym_RPAREN] = ACTIONS(7274),
-    [anon_sym_LPAREN2] = ACTIONS(7274),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7276),
-    [aux_sym_module_statement_token1] = ACTIONS(7276),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7276),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7276),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7276),
-    [aux_sym_function_statement_token1] = ACTIONS(7276),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7276),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7276),
-    [aux_sym_use_statement_token2] = ACTIONS(7276),
-    [anon_sym_COLON_COLON] = ACTIONS(7274),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7276),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7276),
-    [aux_sym_save_statement_token1] = ACTIONS(7276),
-    [aux_sym_private_statement_token1] = ACTIONS(7276),
-    [aux_sym_public_statement_token1] = ACTIONS(7276),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7276),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7276),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7276),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7276),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7276),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7276),
-    [aux_sym_derived_type_token1] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7276),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7276),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7276),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7276),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7276),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7276),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7276),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7276),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7276),
-    [aux_sym_stop_statement_token1] = ACTIONS(7276),
-    [aux_sym_stop_statement_token2] = ACTIONS(7276),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7276),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7276),
-    [aux_sym_data_statement_token1] = ACTIONS(7276),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7276),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7276),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7276),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7276),
-    [aux_sym_block_construct_token1] = ACTIONS(7276),
-    [aux_sym_format_statement_token1] = ACTIONS(7276),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7276),
-    [aux_sym_entry_statement_token1] = ACTIONS(7276),
-    [aux_sym_null_literal_token1] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7276),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7276),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7276),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7276),
-    [aux_sym_identifier_token1] = ACTIONS(7276),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3194] = {
-    [anon_sym_COMMA] = ACTIONS(7278),
-    [anon_sym_RPAREN] = ACTIONS(7278),
-    [anon_sym_LPAREN2] = ACTIONS(7278),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7280),
-    [aux_sym_module_statement_token1] = ACTIONS(7280),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7280),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7280),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7280),
-    [aux_sym_function_statement_token1] = ACTIONS(7280),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7280),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7280),
-    [aux_sym_use_statement_token2] = ACTIONS(7280),
-    [anon_sym_COLON_COLON] = ACTIONS(7278),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7280),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7280),
-    [aux_sym_save_statement_token1] = ACTIONS(7280),
-    [aux_sym_private_statement_token1] = ACTIONS(7280),
-    [aux_sym_public_statement_token1] = ACTIONS(7280),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7280),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7280),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7280),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7280),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7280),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7280),
-    [aux_sym_derived_type_token1] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7280),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7280),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7280),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7280),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7280),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7280),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7280),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7280),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7280),
-    [aux_sym_stop_statement_token1] = ACTIONS(7280),
-    [aux_sym_stop_statement_token2] = ACTIONS(7280),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7280),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7280),
-    [aux_sym_data_statement_token1] = ACTIONS(7280),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7280),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7280),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7280),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7280),
-    [aux_sym_block_construct_token1] = ACTIONS(7280),
-    [aux_sym_format_statement_token1] = ACTIONS(7280),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7280),
-    [aux_sym_entry_statement_token1] = ACTIONS(7280),
-    [aux_sym_null_literal_token1] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7280),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7280),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7280),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7280),
-    [aux_sym_identifier_token1] = ACTIONS(7280),
-    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7280),
   },
   [3195] = {
-    [sym_assignment] = STATE(6179),
-    [sym_operator] = STATE(6179),
-    [sym_defined_io_procedure] = STATE(6179),
-    [sym__generic_procedure] = STATE(6179),
-    [sym_identifier] = STATE(6179),
-    [sym__end_of_statement] = STATE(2875),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+    [sym_assignment] = STATE(6198),
+    [sym_operator] = STATE(6198),
+    [sym_defined_io_procedure] = STATE(6198),
+    [sym__generic_procedure] = STATE(6198),
+    [sym_identifier] = STATE(6198),
+    [sym__end_of_statement] = STATE(2725),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7282),
@@ -472406,30 +472265,30 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
     [anon_sym_SEMI] = ACTIONS(7284),
@@ -472460,21 +472319,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7284),
   },
   [3196] = {
-    [sym_assignment] = STATE(6180),
-    [sym_operator] = STATE(6180),
-    [sym_defined_io_procedure] = STATE(6180),
-    [sym__generic_procedure] = STATE(6180),
-    [sym_identifier] = STATE(6180),
-    [sym__end_of_statement] = STATE(2876),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
+    [sym_assignment] = STATE(6282),
+    [sym_operator] = STATE(6282),
+    [sym_defined_io_procedure] = STATE(6282),
+    [sym__generic_procedure] = STATE(6282),
+    [sym_identifier] = STATE(6282),
+    [sym__end_of_statement] = STATE(2880),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7286),
@@ -472483,30 +472342,30 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_private_statement_token1] = ACTIONS(5495),
     [aux_sym_public_statement_token1] = ACTIONS(5495),
     [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
     [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
     [aux_sym_variable_attributes_token2] = ACTIONS(5495),
     [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
     [aux_sym_variable_attributes_token5] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
     [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
     [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
     [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
     [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
     [anon_sym_SEMI] = ACTIONS(7288),
@@ -472687,6 +472546,81 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3199] = {
+    [anon_sym_COMMA] = ACTIONS(6644),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6646),
+    [aux_sym_module_statement_token1] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6646),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6646),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(6646),
+    [aux_sym_function_statement_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6646),
+    [aux_sym_use_statement_token2] = ACTIONS(6646),
+    [anon_sym_COLON_COLON] = ACTIONS(6644),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6646),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6646),
+    [aux_sym_save_statement_token1] = ACTIONS(6646),
+    [aux_sym_private_statement_token1] = ACTIONS(6646),
+    [aux_sym_public_statement_token1] = ACTIONS(6646),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6646),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6646),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6646),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6646),
+    [aux_sym_derived_type_token1] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6646),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6646),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6646),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(6646),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(6646),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(6646),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(6646),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(6646),
+    [aux_sym_stop_statement_token1] = ACTIONS(6646),
+    [aux_sym_stop_statement_token2] = ACTIONS(6646),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6646),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6646),
+    [aux_sym_data_statement_token1] = ACTIONS(6646),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6646),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6646),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6646),
+    [aux_sym_block_construct_token1] = ACTIONS(6646),
+    [aux_sym_format_statement_token1] = ACTIONS(6646),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6646),
+    [aux_sym_entry_statement_token1] = ACTIONS(6646),
+    [aux_sym_null_literal_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6646),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6646),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6646),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6646),
+    [aux_sym_identifier_token1] = ACTIONS(6646),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3200] = {
     [anon_sym_COMMA] = ACTIONS(7298),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7300),
@@ -472761,7 +472695,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7300),
     [sym_comment] = ACTIONS(21),
   },
-  [3200] = {
+  [3201] = {
     [anon_sym_COMMA] = ACTIONS(7302),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7304),
@@ -472836,7 +472770,82 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7304),
     [sym_comment] = ACTIONS(21),
   },
-  [3201] = {
+  [3202] = {
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_RPAREN] = ACTIONS(4345),
+    [aux_sym_preproc_if_token2] = ACTIONS(4345),
+    [aux_sym_preproc_else_token1] = ACTIONS(4345),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4345),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4345),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_statement_token1] = ACTIONS(4345),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4345),
+    [aux_sym_function_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4345),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4345),
+    [aux_sym_import_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4345),
+    [aux_sym_derived_type_token1] = ACTIONS(4345),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4345),
+    [anon_sym_GT_GT_GT] = ACTIONS(4345),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4345),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [anon_sym_RBRACK] = ACTIONS(4345),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3203] = {
     [anon_sym_COMMA] = ACTIONS(7306),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7308),
@@ -472911,7 +472920,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7308),
     [sym_comment] = ACTIONS(21),
   },
-  [3202] = {
+  [3204] = {
     [anon_sym_COMMA] = ACTIONS(7310),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7312),
@@ -472986,307 +472995,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7312),
     [sym_comment] = ACTIONS(21),
   },
-  [3203] = {
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_RPAREN] = ACTIONS(4287),
-    [aux_sym_preproc_if_token2] = ACTIONS(4287),
-    [aux_sym_preproc_else_token1] = ACTIONS(4287),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4287),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4287),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_statement_token1] = ACTIONS(4287),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4287),
-    [aux_sym_function_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4287),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4287),
-    [aux_sym_import_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4287),
-    [aux_sym_derived_type_token1] = ACTIONS(4287),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4287),
-    [anon_sym_GT_GT_GT] = ACTIONS(4287),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4287),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [anon_sym_RBRACK] = ACTIONS(4287),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3204] = {
-    [anon_sym_COMMA] = ACTIONS(4291),
-    [anon_sym_RPAREN] = ACTIONS(4291),
-    [aux_sym_preproc_if_token2] = ACTIONS(4291),
-    [aux_sym_preproc_else_token1] = ACTIONS(4291),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4289),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4291),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4291),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [sym_preproc_comment] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4291),
-    [aux_sym_module_statement_token1] = ACTIONS(4291),
-    [anon_sym_COLON] = ACTIONS(4291),
-    [anon_sym_EQ] = ACTIONS(4289),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4291),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
-    [aux_sym_function_statement_token1] = ACTIONS(4291),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
-    [anon_sym_EQ_GT] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
-    [aux_sym_import_statement_token1] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
-    [aux_sym_derived_type_token1] = ACTIONS(4291),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4291),
-    [anon_sym_GT_GT_GT] = ACTIONS(4291),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4291),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(4291),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [anon_sym_RBRACK] = ACTIONS(4291),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [sym_comment] = ACTIONS(21),
-  },
   [3205] = {
-    [anon_sym_COMMA] = ACTIONS(4295),
-    [anon_sym_RPAREN] = ACTIONS(4295),
-    [aux_sym_preproc_if_token2] = ACTIONS(4295),
-    [aux_sym_preproc_else_token1] = ACTIONS(4295),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4293),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4295),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4295),
-    [anon_sym_LPAREN2] = ACTIONS(4295),
-    [sym_preproc_comment] = ACTIONS(4295),
-    [anon_sym_PLUS] = ACTIONS(4295),
-    [anon_sym_DASH] = ACTIONS(4295),
-    [anon_sym_STAR] = ACTIONS(4293),
-    [anon_sym_SLASH] = ACTIONS(4293),
-    [anon_sym_PERCENT] = ACTIONS(4295),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4295),
-    [anon_sym_GT] = ACTIONS(4293),
-    [anon_sym_GT_EQ] = ACTIONS(4295),
-    [anon_sym_LT_EQ] = ACTIONS(4295),
-    [anon_sym_LT] = ACTIONS(4293),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4295),
-    [aux_sym_module_statement_token1] = ACTIONS(4295),
-    [anon_sym_COLON] = ACTIONS(4295),
-    [anon_sym_EQ] = ACTIONS(4293),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4295),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4295),
-    [aux_sym_function_statement_token1] = ACTIONS(4295),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4295),
-    [anon_sym_EQ_GT] = ACTIONS(4295),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4295),
-    [aux_sym_import_statement_token1] = ACTIONS(4295),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4295),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4295),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4295),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4293),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4295),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4295),
-    [aux_sym_derived_type_token1] = ACTIONS(4295),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4295),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4295),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4295),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4295),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4295),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4295),
-    [anon_sym_GT_GT_GT] = ACTIONS(4295),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4295),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(4295),
-    [aux_sym_logical_expression_token1] = ACTIONS(4295),
-    [aux_sym_logical_expression_token2] = ACTIONS(4295),
-    [aux_sym_logical_expression_token3] = ACTIONS(4295),
-    [aux_sym_logical_expression_token4] = ACTIONS(4295),
-    [aux_sym_relational_expression_token1] = ACTIONS(4295),
-    [aux_sym_relational_expression_token2] = ACTIONS(4295),
-    [aux_sym_relational_expression_token3] = ACTIONS(4295),
-    [aux_sym_relational_expression_token4] = ACTIONS(4295),
-    [aux_sym_relational_expression_token5] = ACTIONS(4295),
-    [anon_sym_SLASH_EQ] = ACTIONS(4295),
-    [aux_sym_relational_expression_token6] = ACTIONS(4295),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4295),
-    [anon_sym_STAR_STAR] = ACTIONS(4295),
-    [anon_sym_DOT] = ACTIONS(4293),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(4295),
-    [anon_sym_LBRACK] = ACTIONS(4295),
-    [anon_sym_RBRACK] = ACTIONS(4295),
-    [anon_sym_QMARK] = ACTIONS(4295),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3206] = {
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_RPAREN] = ACTIONS(4287),
-    [aux_sym_preproc_if_token2] = ACTIONS(4287),
-    [aux_sym_preproc_else_token1] = ACTIONS(4287),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4285),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4287),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4287),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [sym_preproc_comment] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_statement_token1] = ACTIONS(4287),
-    [anon_sym_COLON] = ACTIONS(4287),
-    [anon_sym_EQ] = ACTIONS(4285),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4287),
-    [aux_sym_function_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4287),
-    [anon_sym_EQ_GT] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4287),
-    [aux_sym_import_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4287),
-    [aux_sym_derived_type_token1] = ACTIONS(4287),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4287),
-    [anon_sym_GT_GT_GT] = ACTIONS(4287),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4287),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(4287),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [anon_sym_RBRACK] = ACTIONS(4287),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3207] = {
     [anon_sym_COMMA] = ACTIONS(7314),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7316),
@@ -473361,307 +473070,307 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(7316),
     [sym_comment] = ACTIONS(21),
   },
-  [3208] = {
-    [anon_sym_COMMA] = ACTIONS(4299),
-    [anon_sym_RPAREN] = ACTIONS(4299),
-    [aux_sym_preproc_if_token2] = ACTIONS(4299),
-    [aux_sym_preproc_else_token1] = ACTIONS(4299),
-    [aux_sym_preproc_elif_token1] = ACTIONS(4297),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(4299),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(4299),
-    [anon_sym_LPAREN2] = ACTIONS(4299),
-    [sym_preproc_comment] = ACTIONS(4299),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_STAR] = ACTIONS(4297),
-    [anon_sym_SLASH] = ACTIONS(4297),
-    [anon_sym_PERCENT] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4299),
-    [anon_sym_GT] = ACTIONS(4297),
-    [anon_sym_GT_EQ] = ACTIONS(4299),
-    [anon_sym_LT_EQ] = ACTIONS(4299),
-    [anon_sym_LT] = ACTIONS(4297),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4299),
-    [aux_sym_module_statement_token1] = ACTIONS(4299),
-    [anon_sym_COLON] = ACTIONS(4299),
-    [anon_sym_EQ] = ACTIONS(4297),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4299),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4299),
-    [aux_sym_function_statement_token1] = ACTIONS(4299),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4299),
-    [anon_sym_EQ_GT] = ACTIONS(4299),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4299),
-    [aux_sym_import_statement_token1] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4299),
-    [aux_sym_derived_type_token1] = ACTIONS(4299),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4299),
-    [anon_sym_GT_GT_GT] = ACTIONS(4299),
-    [aux_sym_select_case_statement_token2] = ACTIONS(4299),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(4299),
-    [aux_sym_logical_expression_token1] = ACTIONS(4299),
-    [aux_sym_logical_expression_token2] = ACTIONS(4299),
-    [aux_sym_logical_expression_token3] = ACTIONS(4299),
-    [aux_sym_logical_expression_token4] = ACTIONS(4299),
-    [aux_sym_relational_expression_token1] = ACTIONS(4299),
-    [aux_sym_relational_expression_token2] = ACTIONS(4299),
-    [aux_sym_relational_expression_token3] = ACTIONS(4299),
-    [aux_sym_relational_expression_token4] = ACTIONS(4299),
-    [aux_sym_relational_expression_token5] = ACTIONS(4299),
-    [anon_sym_SLASH_EQ] = ACTIONS(4299),
-    [aux_sym_relational_expression_token6] = ACTIONS(4299),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4299),
-    [anon_sym_STAR_STAR] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(4299),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [anon_sym_RBRACK] = ACTIONS(4299),
-    [anon_sym_QMARK] = ACTIONS(4299),
+  [3206] = {
+    [anon_sym_COMMA] = ACTIONS(4349),
+    [anon_sym_RPAREN] = ACTIONS(4349),
+    [aux_sym_preproc_if_token2] = ACTIONS(4349),
+    [aux_sym_preproc_else_token1] = ACTIONS(4349),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4347),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4349),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4349),
+    [anon_sym_LPAREN2] = ACTIONS(4349),
+    [sym_preproc_comment] = ACTIONS(4349),
+    [anon_sym_PLUS] = ACTIONS(4349),
+    [anon_sym_DASH] = ACTIONS(4349),
+    [anon_sym_STAR] = ACTIONS(4347),
+    [anon_sym_SLASH] = ACTIONS(4347),
+    [anon_sym_PERCENT] = ACTIONS(4349),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4349),
+    [anon_sym_GT] = ACTIONS(4347),
+    [anon_sym_GT_EQ] = ACTIONS(4349),
+    [anon_sym_LT_EQ] = ACTIONS(4349),
+    [anon_sym_LT] = ACTIONS(4347),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4349),
+    [aux_sym_module_statement_token1] = ACTIONS(4349),
+    [anon_sym_COLON] = ACTIONS(4349),
+    [anon_sym_EQ] = ACTIONS(4347),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4349),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4349),
+    [aux_sym_function_statement_token1] = ACTIONS(4349),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4349),
+    [anon_sym_EQ_GT] = ACTIONS(4349),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4349),
+    [aux_sym_import_statement_token1] = ACTIONS(4349),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4349),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4349),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4349),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4347),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4349),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4349),
+    [aux_sym_derived_type_token1] = ACTIONS(4349),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4349),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4349),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4349),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4349),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4349),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4349),
+    [anon_sym_GT_GT_GT] = ACTIONS(4349),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4349),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(4349),
+    [aux_sym_logical_expression_token1] = ACTIONS(4349),
+    [aux_sym_logical_expression_token2] = ACTIONS(4349),
+    [aux_sym_logical_expression_token3] = ACTIONS(4349),
+    [aux_sym_logical_expression_token4] = ACTIONS(4349),
+    [aux_sym_relational_expression_token1] = ACTIONS(4349),
+    [aux_sym_relational_expression_token2] = ACTIONS(4349),
+    [aux_sym_relational_expression_token3] = ACTIONS(4349),
+    [aux_sym_relational_expression_token4] = ACTIONS(4349),
+    [aux_sym_relational_expression_token5] = ACTIONS(4349),
+    [anon_sym_SLASH_EQ] = ACTIONS(4349),
+    [aux_sym_relational_expression_token6] = ACTIONS(4349),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4349),
+    [anon_sym_STAR_STAR] = ACTIONS(4349),
+    [anon_sym_DOT] = ACTIONS(4347),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(4349),
+    [anon_sym_LBRACK] = ACTIONS(4349),
+    [anon_sym_RBRACK] = ACTIONS(4349),
+    [anon_sym_QMARK] = ACTIONS(4349),
     [sym_comment] = ACTIONS(21),
   },
-  [3209] = {
-    [anon_sym_COMMA] = ACTIONS(7318),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7320),
-    [aux_sym_module_statement_token1] = ACTIONS(7320),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7320),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7320),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7320),
-    [aux_sym_function_statement_token1] = ACTIONS(7320),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7320),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7320),
-    [aux_sym_use_statement_token2] = ACTIONS(7320),
-    [anon_sym_COLON_COLON] = ACTIONS(7318),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7320),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7320),
-    [aux_sym_save_statement_token1] = ACTIONS(7320),
-    [aux_sym_private_statement_token1] = ACTIONS(7320),
-    [aux_sym_public_statement_token1] = ACTIONS(7320),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7320),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7320),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7320),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7320),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7320),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7320),
-    [aux_sym_derived_type_token1] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7320),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7320),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7320),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7320),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7320),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7320),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7320),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7320),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7320),
-    [aux_sym_stop_statement_token1] = ACTIONS(7320),
-    [aux_sym_stop_statement_token2] = ACTIONS(7320),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7320),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7320),
-    [aux_sym_data_statement_token1] = ACTIONS(7320),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7320),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7320),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7320),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7320),
-    [aux_sym_block_construct_token1] = ACTIONS(7320),
-    [aux_sym_format_statement_token1] = ACTIONS(7320),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7320),
-    [aux_sym_entry_statement_token1] = ACTIONS(7320),
-    [aux_sym_null_literal_token1] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7320),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7320),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7320),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7320),
-    [aux_sym_identifier_token1] = ACTIONS(7320),
+  [3207] = {
+    [anon_sym_COMMA] = ACTIONS(4391),
+    [anon_sym_RPAREN] = ACTIONS(4391),
+    [aux_sym_preproc_if_token2] = ACTIONS(4391),
+    [aux_sym_preproc_else_token1] = ACTIONS(4391),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4389),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4391),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4391),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [sym_preproc_comment] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4391),
+    [aux_sym_module_statement_token1] = ACTIONS(4391),
+    [anon_sym_COLON] = ACTIONS(4391),
+    [anon_sym_EQ] = ACTIONS(4389),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4391),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4391),
+    [aux_sym_function_statement_token1] = ACTIONS(4391),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4391),
+    [anon_sym_EQ_GT] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4391),
+    [aux_sym_import_statement_token1] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4391),
+    [aux_sym_derived_type_token1] = ACTIONS(4391),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4391),
+    [anon_sym_GT_GT_GT] = ACTIONS(4391),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4391),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(4391),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [anon_sym_RBRACK] = ACTIONS(4391),
+    [anon_sym_QMARK] = ACTIONS(4391),
     [sym_comment] = ACTIONS(21),
   },
-  [3210] = {
-    [anon_sym_COMMA] = ACTIONS(7322),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7324),
-    [aux_sym_module_statement_token1] = ACTIONS(7324),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7324),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7324),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7324),
-    [aux_sym_function_statement_token1] = ACTIONS(7324),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7324),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7324),
-    [aux_sym_use_statement_token2] = ACTIONS(7324),
-    [anon_sym_COLON_COLON] = ACTIONS(7322),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7324),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7324),
-    [aux_sym_save_statement_token1] = ACTIONS(7324),
-    [aux_sym_private_statement_token1] = ACTIONS(7324),
-    [aux_sym_public_statement_token1] = ACTIONS(7324),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7324),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7324),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7324),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7324),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7324),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7324),
-    [aux_sym_derived_type_token1] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7324),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7324),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7324),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7324),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7324),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7324),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7324),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7324),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7324),
-    [aux_sym_stop_statement_token1] = ACTIONS(7324),
-    [aux_sym_stop_statement_token2] = ACTIONS(7324),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7324),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7324),
-    [aux_sym_data_statement_token1] = ACTIONS(7324),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7324),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7324),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7324),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7324),
-    [aux_sym_block_construct_token1] = ACTIONS(7324),
-    [aux_sym_format_statement_token1] = ACTIONS(7324),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7324),
-    [aux_sym_entry_statement_token1] = ACTIONS(7324),
-    [aux_sym_null_literal_token1] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7324),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7324),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7324),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7324),
-    [aux_sym_identifier_token1] = ACTIONS(7324),
+  [3208] = {
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_RPAREN] = ACTIONS(4345),
+    [aux_sym_preproc_if_token2] = ACTIONS(4345),
+    [aux_sym_preproc_else_token1] = ACTIONS(4345),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4343),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4345),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4345),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [sym_preproc_comment] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_statement_token1] = ACTIONS(4345),
+    [anon_sym_COLON] = ACTIONS(4345),
+    [anon_sym_EQ] = ACTIONS(4343),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4345),
+    [aux_sym_function_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4345),
+    [anon_sym_EQ_GT] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4345),
+    [aux_sym_import_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4345),
+    [aux_sym_derived_type_token1] = ACTIONS(4345),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4345),
+    [anon_sym_GT_GT_GT] = ACTIONS(4345),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4345),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(4345),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [anon_sym_RBRACK] = ACTIONS(4345),
+    [anon_sym_QMARK] = ACTIONS(4345),
     [sym_comment] = ACTIONS(21),
   },
-  [3211] = {
-    [anon_sym_COMMA] = ACTIONS(6682),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6684),
-    [aux_sym_module_statement_token1] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6684),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6684),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(6684),
-    [aux_sym_function_statement_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6684),
-    [aux_sym_use_statement_token2] = ACTIONS(6684),
-    [anon_sym_COLON_COLON] = ACTIONS(6682),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6684),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6684),
-    [aux_sym_save_statement_token1] = ACTIONS(6684),
-    [aux_sym_private_statement_token1] = ACTIONS(6684),
-    [aux_sym_public_statement_token1] = ACTIONS(6684),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6684),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6684),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6684),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6684),
-    [aux_sym_derived_type_token1] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6684),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6684),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6684),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(6684),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(6684),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(6684),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(6684),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(6684),
-    [aux_sym_stop_statement_token1] = ACTIONS(6684),
-    [aux_sym_stop_statement_token2] = ACTIONS(6684),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6684),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6684),
-    [aux_sym_data_statement_token1] = ACTIONS(6684),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6684),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6684),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6684),
-    [aux_sym_block_construct_token1] = ACTIONS(6684),
-    [aux_sym_format_statement_token1] = ACTIONS(6684),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6684),
-    [aux_sym_entry_statement_token1] = ACTIONS(6684),
-    [aux_sym_null_literal_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6684),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6684),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6684),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6684),
-    [aux_sym_identifier_token1] = ACTIONS(6684),
+  [3209] = {
+    [anon_sym_COMMA] = ACTIONS(6670),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(6672),
+    [aux_sym_module_statement_token1] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(6672),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(6672),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(6672),
+    [aux_sym_function_statement_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(6672),
+    [aux_sym_use_statement_token2] = ACTIONS(6672),
+    [anon_sym_COLON_COLON] = ACTIONS(6670),
+    [aux_sym_implicit_statement_token3] = ACTIONS(6672),
+    [aux_sym_implicit_statement_token4] = ACTIONS(6672),
+    [aux_sym_save_statement_token1] = ACTIONS(6672),
+    [aux_sym_private_statement_token1] = ACTIONS(6672),
+    [aux_sym_public_statement_token1] = ACTIONS(6672),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(6672),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token2] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token3] = ACTIONS(6672),
+    [aux_sym_variable_attributes_token5] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(6672),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(6672),
+    [aux_sym_derived_type_token1] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6672),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token1] = ACTIONS(6672),
+    [aux_sym_type_qualifier_token2] = ACTIONS(6672),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(6672),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(6672),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(6672),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(6672),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(6672),
+    [aux_sym_stop_statement_token1] = ACTIONS(6672),
+    [aux_sym_stop_statement_token2] = ACTIONS(6672),
+    [aux_sym_keyword_statement_token2] = ACTIONS(6672),
+    [aux_sym_keyword_statement_token3] = ACTIONS(6672),
+    [aux_sym_data_statement_token1] = ACTIONS(6672),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_end_if_statement_token1] = ACTIONS(6672),
+    [aux_sym_elseif_clause_token2] = ACTIONS(6672),
+    [aux_sym_select_case_statement_token1] = ACTIONS(6672),
+    [aux_sym_block_construct_token1] = ACTIONS(6672),
+    [aux_sym_format_statement_token1] = ACTIONS(6672),
+    [aux_sym_inquire_statement_token1] = ACTIONS(6672),
+    [aux_sym_entry_statement_token1] = ACTIONS(6672),
+    [aux_sym_null_literal_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token2] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token6] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token8] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token11] = ACTIONS(6672),
+    [aux_sym_coarray_statement_token12] = ACTIONS(6672),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(6672),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6672),
+    [aux_sym_identifier_token1] = ACTIONS(6672),
     [sym_comment] = ACTIONS(21),
   },
-  [3212] = {
+  [3210] = {
     [anon_sym_COMMA] = ACTIONS(6678),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(6680),
@@ -473736,241 +473445,391 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(6680),
     [sym_comment] = ACTIONS(21),
   },
+  [3211] = {
+    [anon_sym_COMMA] = ACTIONS(4323),
+    [anon_sym_RPAREN] = ACTIONS(4323),
+    [aux_sym_preproc_if_token2] = ACTIONS(4323),
+    [aux_sym_preproc_else_token1] = ACTIONS(4323),
+    [aux_sym_preproc_elif_token1] = ACTIONS(4321),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(4323),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(4323),
+    [anon_sym_LPAREN2] = ACTIONS(4323),
+    [sym_preproc_comment] = ACTIONS(4323),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_STAR] = ACTIONS(4321),
+    [anon_sym_SLASH] = ACTIONS(4321),
+    [anon_sym_PERCENT] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4323),
+    [anon_sym_GT] = ACTIONS(4321),
+    [anon_sym_GT_EQ] = ACTIONS(4323),
+    [anon_sym_LT_EQ] = ACTIONS(4323),
+    [anon_sym_LT] = ACTIONS(4321),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4323),
+    [aux_sym_module_statement_token1] = ACTIONS(4323),
+    [anon_sym_COLON] = ACTIONS(4323),
+    [anon_sym_EQ] = ACTIONS(4321),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4323),
+    [aux_sym_function_statement_token1] = ACTIONS(4323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4323),
+    [anon_sym_EQ_GT] = ACTIONS(4323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4323),
+    [aux_sym_import_statement_token1] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4323),
+    [aux_sym_derived_type_token1] = ACTIONS(4323),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
+    [anon_sym_GT_GT_GT] = ACTIONS(4323),
+    [aux_sym_select_case_statement_token2] = ACTIONS(4323),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(4323),
+    [aux_sym_logical_expression_token1] = ACTIONS(4323),
+    [aux_sym_logical_expression_token2] = ACTIONS(4323),
+    [aux_sym_logical_expression_token3] = ACTIONS(4323),
+    [aux_sym_logical_expression_token4] = ACTIONS(4323),
+    [aux_sym_relational_expression_token1] = ACTIONS(4323),
+    [aux_sym_relational_expression_token2] = ACTIONS(4323),
+    [aux_sym_relational_expression_token3] = ACTIONS(4323),
+    [aux_sym_relational_expression_token4] = ACTIONS(4323),
+    [aux_sym_relational_expression_token5] = ACTIONS(4323),
+    [anon_sym_SLASH_EQ] = ACTIONS(4323),
+    [aux_sym_relational_expression_token6] = ACTIONS(4323),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4323),
+    [anon_sym_STAR_STAR] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(4323),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [anon_sym_RBRACK] = ACTIONS(4323),
+    [anon_sym_QMARK] = ACTIONS(4323),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3212] = {
+    [sym__name] = STATE(2842),
+    [sym_identifier] = STATE(2890),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7318),
+    [aux_sym_module_statement_token1] = ACTIONS(7320),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7322),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7322),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7320),
+    [aux_sym_function_statement_token1] = ACTIONS(7320),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7320),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7322),
+    [aux_sym_use_statement_token2] = ACTIONS(7322),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7320),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7322),
+    [aux_sym_save_statement_token1] = ACTIONS(7322),
+    [aux_sym_private_statement_token1] = ACTIONS(7322),
+    [aux_sym_public_statement_token1] = ACTIONS(7322),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7322),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7322),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7322),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7322),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7322),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7324),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7320),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7324),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7327),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7320),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7320),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7320),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7320),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7320),
+    [aux_sym_derived_type_token1] = ACTIONS(7320),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7330),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7330),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7322),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7322),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7322),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7322),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7320),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7320),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7320),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7320),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7320),
+    [aux_sym_stop_statement_token1] = ACTIONS(7322),
+    [aux_sym_stop_statement_token2] = ACTIONS(7322),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7322),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7322),
+    [aux_sym_data_statement_token1] = ACTIONS(7322),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7322),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7322),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7322),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7332),
+    [aux_sym_block_construct_token1] = ACTIONS(7322),
+    [aux_sym_format_statement_token1] = ACTIONS(7322),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7322),
+    [aux_sym_entry_statement_token1] = ACTIONS(7322),
+    [aux_sym_null_literal_token1] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7322),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7322),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7322),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7322),
+    [aux_sym_identifier_token1] = ACTIONS(7322),
+    [sym_comment] = ACTIONS(21),
+  },
   [3213] = {
-    [anon_sym_COMMA] = ACTIONS(6674),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(6676),
-    [aux_sym_module_statement_token1] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(6676),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(6676),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(6676),
-    [aux_sym_function_statement_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(6676),
-    [aux_sym_use_statement_token2] = ACTIONS(6676),
-    [anon_sym_COLON_COLON] = ACTIONS(6674),
-    [aux_sym_implicit_statement_token3] = ACTIONS(6676),
-    [aux_sym_implicit_statement_token4] = ACTIONS(6676),
-    [aux_sym_save_statement_token1] = ACTIONS(6676),
-    [aux_sym_private_statement_token1] = ACTIONS(6676),
-    [aux_sym_public_statement_token1] = ACTIONS(6676),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(6676),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token2] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token3] = ACTIONS(6676),
-    [aux_sym_variable_attributes_token5] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(6676),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(6676),
-    [aux_sym_derived_type_token1] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(6676),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token1] = ACTIONS(6676),
-    [aux_sym_type_qualifier_token2] = ACTIONS(6676),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(6676),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(6676),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(6676),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(6676),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(6676),
-    [aux_sym_stop_statement_token1] = ACTIONS(6676),
-    [aux_sym_stop_statement_token2] = ACTIONS(6676),
-    [aux_sym_keyword_statement_token2] = ACTIONS(6676),
-    [aux_sym_keyword_statement_token3] = ACTIONS(6676),
-    [aux_sym_data_statement_token1] = ACTIONS(6676),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_end_if_statement_token1] = ACTIONS(6676),
-    [aux_sym_elseif_clause_token2] = ACTIONS(6676),
-    [aux_sym_select_case_statement_token1] = ACTIONS(6676),
-    [aux_sym_block_construct_token1] = ACTIONS(6676),
-    [aux_sym_format_statement_token1] = ACTIONS(6676),
-    [aux_sym_inquire_statement_token1] = ACTIONS(6676),
-    [aux_sym_entry_statement_token1] = ACTIONS(6676),
-    [aux_sym_null_literal_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token2] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token6] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token8] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token11] = ACTIONS(6676),
-    [aux_sym_coarray_statement_token12] = ACTIONS(6676),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(6676),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(6676),
-    [aux_sym_identifier_token1] = ACTIONS(6676),
+    [anon_sym_COMMA] = ACTIONS(7334),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7336),
+    [aux_sym_module_statement_token1] = ACTIONS(7336),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7336),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7336),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7336),
+    [aux_sym_function_statement_token1] = ACTIONS(7336),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7336),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7336),
+    [aux_sym_use_statement_token2] = ACTIONS(7336),
+    [anon_sym_COLON_COLON] = ACTIONS(7334),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7336),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7336),
+    [aux_sym_save_statement_token1] = ACTIONS(7336),
+    [aux_sym_private_statement_token1] = ACTIONS(7336),
+    [aux_sym_public_statement_token1] = ACTIONS(7336),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7336),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7336),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7336),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7336),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7336),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7336),
+    [aux_sym_derived_type_token1] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7336),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7336),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7336),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7336),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7336),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7336),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7336),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7336),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7336),
+    [aux_sym_stop_statement_token1] = ACTIONS(7336),
+    [aux_sym_stop_statement_token2] = ACTIONS(7336),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7336),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7336),
+    [aux_sym_data_statement_token1] = ACTIONS(7336),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7336),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7336),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7336),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7336),
+    [aux_sym_block_construct_token1] = ACTIONS(7336),
+    [aux_sym_format_statement_token1] = ACTIONS(7336),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7336),
+    [aux_sym_entry_statement_token1] = ACTIONS(7336),
+    [aux_sym_null_literal_token1] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7336),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7336),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7336),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7336),
+    [aux_sym_identifier_token1] = ACTIONS(7336),
     [sym_comment] = ACTIONS(21),
   },
   [3214] = {
-    [anon_sym_COMMA] = ACTIONS(7326),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7328),
-    [aux_sym_module_statement_token1] = ACTIONS(7328),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7328),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7328),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7328),
-    [aux_sym_function_statement_token1] = ACTIONS(7328),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7328),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7328),
-    [aux_sym_use_statement_token2] = ACTIONS(7328),
-    [anon_sym_COLON_COLON] = ACTIONS(7326),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7328),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7328),
-    [aux_sym_save_statement_token1] = ACTIONS(7328),
-    [aux_sym_private_statement_token1] = ACTIONS(7328),
-    [aux_sym_public_statement_token1] = ACTIONS(7328),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7328),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7328),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7328),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7328),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7328),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7328),
-    [aux_sym_derived_type_token1] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7328),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7328),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7328),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7328),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7328),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7328),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7328),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7328),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7328),
-    [aux_sym_stop_statement_token1] = ACTIONS(7328),
-    [aux_sym_stop_statement_token2] = ACTIONS(7328),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7328),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7328),
-    [aux_sym_data_statement_token1] = ACTIONS(7328),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7328),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7328),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7328),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7328),
-    [aux_sym_block_construct_token1] = ACTIONS(7328),
-    [aux_sym_format_statement_token1] = ACTIONS(7328),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7328),
-    [aux_sym_entry_statement_token1] = ACTIONS(7328),
-    [aux_sym_null_literal_token1] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7328),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7328),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7328),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7328),
-    [aux_sym_identifier_token1] = ACTIONS(7328),
+    [anon_sym_COMMA] = ACTIONS(7338),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7340),
+    [aux_sym_module_statement_token1] = ACTIONS(7340),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7340),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7340),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7340),
+    [aux_sym_function_statement_token1] = ACTIONS(7340),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7340),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7340),
+    [aux_sym_use_statement_token2] = ACTIONS(7340),
+    [anon_sym_COLON_COLON] = ACTIONS(7338),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7340),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7340),
+    [aux_sym_save_statement_token1] = ACTIONS(7340),
+    [aux_sym_private_statement_token1] = ACTIONS(7340),
+    [aux_sym_public_statement_token1] = ACTIONS(7340),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7340),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7340),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7340),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7340),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7340),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7340),
+    [aux_sym_derived_type_token1] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7340),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7340),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7340),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7340),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7340),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7340),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7340),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7340),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7340),
+    [aux_sym_stop_statement_token1] = ACTIONS(7340),
+    [aux_sym_stop_statement_token2] = ACTIONS(7340),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7340),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7340),
+    [aux_sym_data_statement_token1] = ACTIONS(7340),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7340),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7340),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7340),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7340),
+    [aux_sym_block_construct_token1] = ACTIONS(7340),
+    [aux_sym_format_statement_token1] = ACTIONS(7340),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7340),
+    [aux_sym_entry_statement_token1] = ACTIONS(7340),
+    [aux_sym_null_literal_token1] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7340),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7340),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7340),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7340),
+    [aux_sym_identifier_token1] = ACTIONS(7340),
     [sym_comment] = ACTIONS(21),
   },
   [3215] = {
-    [sym__name] = STATE(2826),
-    [sym_identifier] = STATE(2856),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7330),
-    [aux_sym_module_statement_token1] = ACTIONS(7332),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7334),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7334),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7332),
-    [aux_sym_function_statement_token1] = ACTIONS(7332),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7332),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7334),
-    [aux_sym_use_statement_token2] = ACTIONS(7334),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7332),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7334),
-    [aux_sym_save_statement_token1] = ACTIONS(7334),
-    [aux_sym_private_statement_token1] = ACTIONS(7334),
-    [aux_sym_public_statement_token1] = ACTIONS(7334),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7334),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7334),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7334),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7334),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7334),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7336),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7332),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7336),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7339),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7332),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7332),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7332),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7332),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7332),
-    [aux_sym_derived_type_token1] = ACTIONS(7332),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7342),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7342),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7334),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7334),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7334),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7334),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7332),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7332),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7332),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7332),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7332),
-    [aux_sym_stop_statement_token1] = ACTIONS(7334),
-    [aux_sym_stop_statement_token2] = ACTIONS(7334),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7334),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7334),
-    [aux_sym_data_statement_token1] = ACTIONS(7334),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7334),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7334),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7334),
+    [anon_sym_COMMA] = ACTIONS(7342),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7344),
+    [aux_sym_module_statement_token1] = ACTIONS(7344),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7344),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7344),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7344),
+    [aux_sym_function_statement_token1] = ACTIONS(7344),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7344),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7344),
+    [aux_sym_use_statement_token2] = ACTIONS(7344),
+    [anon_sym_COLON_COLON] = ACTIONS(7342),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7344),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7344),
+    [aux_sym_save_statement_token1] = ACTIONS(7344),
+    [aux_sym_private_statement_token1] = ACTIONS(7344),
+    [aux_sym_public_statement_token1] = ACTIONS(7344),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7344),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7344),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7344),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7344),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7344),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7344),
+    [aux_sym_derived_type_token1] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7344),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7344),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7344),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7344),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7344),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7344),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7344),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7344),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7344),
+    [aux_sym_stop_statement_token1] = ACTIONS(7344),
+    [aux_sym_stop_statement_token2] = ACTIONS(7344),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7344),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7344),
+    [aux_sym_data_statement_token1] = ACTIONS(7344),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7344),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7344),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7344),
     [aux_sym_select_case_statement_token1] = ACTIONS(7344),
-    [aux_sym_block_construct_token1] = ACTIONS(7334),
-    [aux_sym_format_statement_token1] = ACTIONS(7334),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7334),
-    [aux_sym_entry_statement_token1] = ACTIONS(7334),
-    [aux_sym_null_literal_token1] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7334),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7334),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7334),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7334),
-    [aux_sym_identifier_token1] = ACTIONS(7334),
+    [aux_sym_block_construct_token1] = ACTIONS(7344),
+    [aux_sym_format_statement_token1] = ACTIONS(7344),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7344),
+    [aux_sym_entry_statement_token1] = ACTIONS(7344),
+    [aux_sym_null_literal_token1] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7344),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7344),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7344),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7344),
+    [aux_sym_identifier_token1] = ACTIONS(7344),
     [sym_comment] = ACTIONS(21),
   },
   [3216] = {
-    [sym__preproc_expression] = STATE(5501),
-    [sym_preproc_parenthesized_expression] = STATE(5501),
-    [sym_preproc_defined] = STATE(5501),
-    [sym_preproc_unary_expression] = STATE(5501),
-    [sym_preproc_call_expression] = STATE(5501),
-    [sym_preproc_binary_expression] = STATE(5501),
-    [sym_number_literal] = STATE(5501),
-    [sym_string_literal] = STATE(5501),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5511),
+    [sym_preproc_parenthesized_expression] = STATE(5511),
+    [sym_preproc_defined] = STATE(5511),
+    [sym_preproc_unary_expression] = STATE(5511),
+    [sym_preproc_call_expression] = STATE(5511),
+    [sym_preproc_binary_expression] = STATE(5511),
+    [sym_number_literal] = STATE(5511),
+    [sym_string_literal] = STATE(5511),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [sym_preproc_comment] = ACTIONS(7350),
@@ -474036,15 +473895,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3217] = {
-    [sym__preproc_expression] = STATE(5518),
-    [sym_preproc_parenthesized_expression] = STATE(5518),
-    [sym_preproc_defined] = STATE(5518),
-    [sym_preproc_unary_expression] = STATE(5518),
-    [sym_preproc_call_expression] = STATE(5518),
-    [sym_preproc_binary_expression] = STATE(5518),
-    [sym_number_literal] = STATE(5518),
-    [sym_string_literal] = STATE(5518),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5526),
+    [sym_preproc_parenthesized_expression] = STATE(5526),
+    [sym_preproc_defined] = STATE(5526),
+    [sym_preproc_unary_expression] = STATE(5526),
+    [sym_preproc_call_expression] = STATE(5526),
+    [sym_preproc_binary_expression] = STATE(5526),
+    [sym_number_literal] = STATE(5526),
+    [sym_string_literal] = STATE(5526),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [sym_preproc_comment] = ACTIONS(7370),
@@ -474110,18 +473969,314 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3218] = {
-    [sym__preproc_expression] = STATE(5523),
-    [sym_preproc_parenthesized_expression] = STATE(5523),
-    [sym_preproc_defined] = STATE(5523),
-    [sym_preproc_unary_expression] = STATE(5523),
-    [sym_preproc_call_expression] = STATE(5523),
-    [sym_preproc_binary_expression] = STATE(5523),
-    [sym_number_literal] = STATE(5523),
-    [sym_string_literal] = STATE(5523),
-    [sym_identifier] = STATE(5347),
+    [sym__argument_list] = STATE(2445),
+    [sym_argument_list] = STATE(3430),
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_LPAREN2] = ACTIONS(6702),
+    [anon_sym_STAR] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(4345),
+  },
+  [3219] = {
+    [sym__preproc_expression] = STATE(5355),
+    [sym_preproc_parenthesized_expression] = STATE(5355),
+    [sym_preproc_defined] = STATE(5355),
+    [sym_preproc_unary_expression] = STATE(5355),
+    [sym_preproc_call_expression] = STATE(5355),
+    [sym_preproc_binary_expression] = STATE(5355),
+    [sym_number_literal] = STATE(5355),
+    [sym_string_literal] = STATE(5355),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_RPAREN] = ACTIONS(7372),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3220] = {
+    [sym__preproc_expression] = STATE(5382),
+    [sym_preproc_parenthesized_expression] = STATE(5382),
+    [sym_preproc_defined] = STATE(5382),
+    [sym_preproc_unary_expression] = STATE(5382),
+    [sym_preproc_call_expression] = STATE(5382),
+    [sym_preproc_binary_expression] = STATE(5382),
+    [sym_number_literal] = STATE(5382),
+    [sym_string_literal] = STATE(5382),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_RPAREN] = ACTIONS(7396),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3221] = {
+    [sym_language_binding] = STATE(3336),
+    [sym_variable_attributes] = STATE(3336),
+    [sym__variable_declarator] = STATE(6372),
+    [sym_sized_declarator] = STATE(3456),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [sym_coarray_declarator] = STATE(6372),
+    [sym_identifier] = STATE(3341),
+    [aux_sym_variable_modification_repeat1] = STATE(3336),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
+    [aux_sym_language_binding_token1] = ACTIONS(45),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(770),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7398),
+    [aux_sym_use_statement_token2] = ACTIONS(7398),
+    [anon_sym_COLON_COLON] = ACTIONS(7400),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7398),
+    [aux_sym_save_statement_token1] = ACTIONS(7398),
+    [aux_sym_private_statement_token1] = ACTIONS(7398),
+    [aux_sym_public_statement_token1] = ACTIONS(7398),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7398),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(73),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7398),
+    [aux_sym_variable_attributes_token1] = ACTIONS(73),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7398),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7398),
+    [aux_sym_variable_attributes_token4] = ACTIONS(73),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7398),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7402),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7404),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7398),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3222] = {
+    [sym__preproc_expression] = STATE(5510),
+    [sym_preproc_parenthesized_expression] = STATE(5510),
+    [sym_preproc_defined] = STATE(5510),
+    [sym_preproc_unary_expression] = STATE(5510),
+    [sym_preproc_call_expression] = STATE(5510),
+    [sym_preproc_binary_expression] = STATE(5510),
+    [sym_number_literal] = STATE(5510),
+    [sym_string_literal] = STATE(5510),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7372),
+    [sym_preproc_comment] = ACTIONS(7406),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474183,19 +474338,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3219] = {
-    [sym__preproc_expression] = STATE(5526),
-    [sym_preproc_parenthesized_expression] = STATE(5526),
-    [sym_preproc_defined] = STATE(5526),
-    [sym_preproc_unary_expression] = STATE(5526),
-    [sym_preproc_call_expression] = STATE(5526),
-    [sym_preproc_binary_expression] = STATE(5526),
-    [sym_number_literal] = STATE(5526),
-    [sym_string_literal] = STATE(5526),
-    [sym_identifier] = STATE(5347),
+  [3223] = {
+    [sym__preproc_expression] = STATE(5536),
+    [sym_preproc_parenthesized_expression] = STATE(5536),
+    [sym_preproc_defined] = STATE(5536),
+    [sym_preproc_unary_expression] = STATE(5536),
+    [sym_preproc_call_expression] = STATE(5536),
+    [sym_preproc_binary_expression] = STATE(5536),
+    [sym_number_literal] = STATE(5536),
+    [sym_string_literal] = STATE(5536),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7374),
+    [sym_preproc_comment] = ACTIONS(7408),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474257,19 +474412,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3220] = {
-    [sym__preproc_expression] = STATE(5532),
-    [sym_preproc_parenthesized_expression] = STATE(5532),
-    [sym_preproc_defined] = STATE(5532),
-    [sym_preproc_unary_expression] = STATE(5532),
-    [sym_preproc_call_expression] = STATE(5532),
-    [sym_preproc_binary_expression] = STATE(5532),
-    [sym_number_literal] = STATE(5532),
-    [sym_string_literal] = STATE(5532),
-    [sym_identifier] = STATE(5347),
+  [3224] = {
+    [sym__preproc_expression] = STATE(5513),
+    [sym_preproc_parenthesized_expression] = STATE(5513),
+    [sym_preproc_defined] = STATE(5513),
+    [sym_preproc_unary_expression] = STATE(5513),
+    [sym_preproc_call_expression] = STATE(5513),
+    [sym_preproc_binary_expression] = STATE(5513),
+    [sym_number_literal] = STATE(5513),
+    [sym_string_literal] = STATE(5513),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7376),
+    [sym_preproc_comment] = ACTIONS(7410),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474331,19 +474486,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3221] = {
-    [sym__preproc_expression] = STATE(5536),
-    [sym_preproc_parenthesized_expression] = STATE(5536),
-    [sym_preproc_defined] = STATE(5536),
-    [sym_preproc_unary_expression] = STATE(5536),
-    [sym_preproc_call_expression] = STATE(5536),
-    [sym_preproc_binary_expression] = STATE(5536),
-    [sym_number_literal] = STATE(5536),
-    [sym_string_literal] = STATE(5536),
-    [sym_identifier] = STATE(5347),
+  [3225] = {
+    [sym__preproc_expression] = STATE(5515),
+    [sym_preproc_parenthesized_expression] = STATE(5515),
+    [sym_preproc_defined] = STATE(5515),
+    [sym_preproc_unary_expression] = STATE(5515),
+    [sym_preproc_call_expression] = STATE(5515),
+    [sym_preproc_binary_expression] = STATE(5515),
+    [sym_number_literal] = STATE(5515),
+    [sym_string_literal] = STATE(5515),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7378),
+    [sym_preproc_comment] = ACTIONS(7412),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474405,167 +474560,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3222] = {
-    [sym__preproc_expression] = STATE(5379),
-    [sym_preproc_parenthesized_expression] = STATE(5379),
-    [sym_preproc_defined] = STATE(5379),
-    [sym_preproc_unary_expression] = STATE(5379),
-    [sym_preproc_call_expression] = STATE(5379),
-    [sym_preproc_binary_expression] = STATE(5379),
-    [sym_number_literal] = STATE(5379),
-    [sym_string_literal] = STATE(5379),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_RPAREN] = ACTIONS(7380),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3223] = {
-    [sym__preproc_expression] = STATE(5355),
-    [sym_preproc_parenthesized_expression] = STATE(5355),
-    [sym_preproc_defined] = STATE(5355),
-    [sym_preproc_unary_expression] = STATE(5355),
-    [sym_preproc_call_expression] = STATE(5355),
-    [sym_preproc_binary_expression] = STATE(5355),
-    [sym_number_literal] = STATE(5355),
-    [sym_string_literal] = STATE(5355),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_RPAREN] = ACTIONS(7404),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
+  [3226] = {
+    [sym__preproc_expression] = STATE(5522),
+    [sym_preproc_parenthesized_expression] = STATE(5522),
+    [sym_preproc_defined] = STATE(5522),
+    [sym_preproc_unary_expression] = STATE(5522),
+    [sym_preproc_call_expression] = STATE(5522),
+    [sym_preproc_binary_expression] = STATE(5522),
+    [sym_number_literal] = STATE(5522),
+    [sym_string_literal] = STATE(5522),
+    [sym_identifier] = STATE(5340),
+    [anon_sym_LPAREN2] = ACTIONS(7346),
+    [anon_sym_defined] = ACTIONS(7348),
+    [sym_preproc_comment] = ACTIONS(7414),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
+    [aux_sym_use_statement_token2] = ACTIONS(7354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
+    [aux_sym_save_statement_token1] = ACTIONS(7354),
+    [aux_sym_private_statement_token1] = ACTIONS(7354),
+    [aux_sym_public_statement_token1] = ACTIONS(7354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym_stop_statement_token1] = ACTIONS(7354),
+    [aux_sym_stop_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
+    [aux_sym_data_statement_token1] = ACTIONS(7354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
+    [aux_sym_block_construct_token1] = ACTIONS(7354),
+    [aux_sym_format_statement_token1] = ACTIONS(7354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
+    [aux_sym_entry_statement_token1] = ACTIONS(7354),
+    [aux_sym_null_literal_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
+    [aux_sym_identifier_token1] = ACTIONS(7354),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7362),
+    [sym__float_literal] = ACTIONS(7362),
+    [sym__boz_literal] = ACTIONS(7362),
+    [sym__string_literal] = ACTIONS(7364),
+    [sym__string_literal_kind] = ACTIONS(7366),
+    [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3224] = {
-    [sym__preproc_expression] = STATE(5507),
-    [sym_preproc_parenthesized_expression] = STATE(5507),
-    [sym_preproc_defined] = STATE(5507),
-    [sym_preproc_unary_expression] = STATE(5507),
-    [sym_preproc_call_expression] = STATE(5507),
-    [sym_preproc_binary_expression] = STATE(5507),
-    [sym_number_literal] = STATE(5507),
-    [sym_string_literal] = STATE(5507),
-    [sym_identifier] = STATE(5347),
+  [3227] = {
+    [sym__preproc_expression] = STATE(5501),
+    [sym_preproc_parenthesized_expression] = STATE(5501),
+    [sym_preproc_defined] = STATE(5501),
+    [sym_preproc_unary_expression] = STATE(5501),
+    [sym_preproc_call_expression] = STATE(5501),
+    [sym_preproc_binary_expression] = STATE(5501),
+    [sym_number_literal] = STATE(5501),
+    [sym_string_literal] = STATE(5501),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7406),
+    [sym_preproc_comment] = ACTIONS(7416),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474627,19 +474708,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3225] = {
-    [sym__preproc_expression] = STATE(5517),
-    [sym_preproc_parenthesized_expression] = STATE(5517),
-    [sym_preproc_defined] = STATE(5517),
-    [sym_preproc_unary_expression] = STATE(5517),
-    [sym_preproc_call_expression] = STATE(5517),
-    [sym_preproc_binary_expression] = STATE(5517),
-    [sym_number_literal] = STATE(5517),
-    [sym_string_literal] = STATE(5517),
-    [sym_identifier] = STATE(5347),
+  [3228] = {
+    [sym__preproc_expression] = STATE(5507),
+    [sym_preproc_parenthesized_expression] = STATE(5507),
+    [sym_preproc_defined] = STATE(5507),
+    [sym_preproc_unary_expression] = STATE(5507),
+    [sym_preproc_call_expression] = STATE(5507),
+    [sym_preproc_binary_expression] = STATE(5507),
+    [sym_number_literal] = STATE(5507),
+    [sym_string_literal] = STATE(5507),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7408),
+    [sym_preproc_comment] = ACTIONS(7418),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474701,19 +474782,93 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3226] = {
-    [sym__preproc_expression] = STATE(5508),
-    [sym_preproc_parenthesized_expression] = STATE(5508),
-    [sym_preproc_defined] = STATE(5508),
-    [sym_preproc_unary_expression] = STATE(5508),
-    [sym_preproc_call_expression] = STATE(5508),
-    [sym_preproc_binary_expression] = STATE(5508),
-    [sym_number_literal] = STATE(5508),
-    [sym_string_literal] = STATE(5508),
-    [sym_identifier] = STATE(5347),
+  [3229] = {
+    [sym__preproc_expression] = STATE(5394),
+    [sym_preproc_parenthesized_expression] = STATE(5394),
+    [sym_preproc_defined] = STATE(5394),
+    [sym_preproc_unary_expression] = STATE(5394),
+    [sym_preproc_call_expression] = STATE(5394),
+    [sym_preproc_binary_expression] = STATE(5394),
+    [sym_number_literal] = STATE(5394),
+    [sym_string_literal] = STATE(5394),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_RPAREN] = ACTIONS(7420),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3230] = {
+    [sym__preproc_expression] = STATE(5506),
+    [sym_preproc_parenthesized_expression] = STATE(5506),
+    [sym_preproc_defined] = STATE(5506),
+    [sym_preproc_unary_expression] = STATE(5506),
+    [sym_preproc_call_expression] = STATE(5506),
+    [sym_preproc_binary_expression] = STATE(5506),
+    [sym_number_literal] = STATE(5506),
+    [sym_string_literal] = STATE(5506),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7410),
+    [sym_preproc_comment] = ACTIONS(7422),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474775,19 +474930,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3227] = {
-    [sym__preproc_expression] = STATE(5510),
-    [sym_preproc_parenthesized_expression] = STATE(5510),
-    [sym_preproc_defined] = STATE(5510),
-    [sym_preproc_unary_expression] = STATE(5510),
-    [sym_preproc_call_expression] = STATE(5510),
-    [sym_preproc_binary_expression] = STATE(5510),
-    [sym_number_literal] = STATE(5510),
-    [sym_string_literal] = STATE(5510),
-    [sym_identifier] = STATE(5347),
+  [3231] = {
+    [sym__preproc_expression] = STATE(5533),
+    [sym_preproc_parenthesized_expression] = STATE(5533),
+    [sym_preproc_defined] = STATE(5533),
+    [sym_preproc_unary_expression] = STATE(5533),
+    [sym_preproc_call_expression] = STATE(5533),
+    [sym_preproc_binary_expression] = STATE(5533),
+    [sym_number_literal] = STATE(5533),
+    [sym_string_literal] = STATE(5533),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7412),
+    [sym_preproc_comment] = ACTIONS(7424),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474849,19 +475004,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3228] = {
-    [sym__preproc_expression] = STATE(5513),
-    [sym_preproc_parenthesized_expression] = STATE(5513),
-    [sym_preproc_defined] = STATE(5513),
-    [sym_preproc_unary_expression] = STATE(5513),
-    [sym_preproc_call_expression] = STATE(5513),
-    [sym_preproc_binary_expression] = STATE(5513),
-    [sym_number_literal] = STATE(5513),
-    [sym_string_literal] = STATE(5513),
-    [sym_identifier] = STATE(5347),
+  [3232] = {
+    [sym__preproc_expression] = STATE(5530),
+    [sym_preproc_parenthesized_expression] = STATE(5530),
+    [sym_preproc_defined] = STATE(5530),
+    [sym_preproc_unary_expression] = STATE(5530),
+    [sym_preproc_call_expression] = STATE(5530),
+    [sym_preproc_binary_expression] = STATE(5530),
+    [sym_number_literal] = STATE(5530),
+    [sym_string_literal] = STATE(5530),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7414),
+    [sym_preproc_comment] = ACTIONS(7426),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474923,19 +475078,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3229] = {
-    [sym__preproc_expression] = STATE(5506),
-    [sym_preproc_parenthesized_expression] = STATE(5506),
-    [sym_preproc_defined] = STATE(5506),
-    [sym_preproc_unary_expression] = STATE(5506),
-    [sym_preproc_call_expression] = STATE(5506),
-    [sym_preproc_binary_expression] = STATE(5506),
-    [sym_number_literal] = STATE(5506),
-    [sym_string_literal] = STATE(5506),
-    [sym_identifier] = STATE(5347),
+  [3233] = {
+    [sym__preproc_expression] = STATE(5517),
+    [sym_preproc_parenthesized_expression] = STATE(5517),
+    [sym_preproc_defined] = STATE(5517),
+    [sym_preproc_unary_expression] = STATE(5517),
+    [sym_preproc_call_expression] = STATE(5517),
+    [sym_preproc_binary_expression] = STATE(5517),
+    [sym_number_literal] = STATE(5517),
+    [sym_string_literal] = STATE(5517),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7416),
+    [sym_preproc_comment] = ACTIONS(7428),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -474997,19 +475152,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3230] = {
-    [sym__preproc_expression] = STATE(5528),
-    [sym_preproc_parenthesized_expression] = STATE(5528),
-    [sym_preproc_defined] = STATE(5528),
-    [sym_preproc_unary_expression] = STATE(5528),
-    [sym_preproc_call_expression] = STATE(5528),
-    [sym_preproc_binary_expression] = STATE(5528),
-    [sym_number_literal] = STATE(5528),
-    [sym_string_literal] = STATE(5528),
-    [sym_identifier] = STATE(5347),
+  [3234] = {
+    [sym__preproc_expression] = STATE(5520),
+    [sym_preproc_parenthesized_expression] = STATE(5520),
+    [sym_preproc_defined] = STATE(5520),
+    [sym_preproc_unary_expression] = STATE(5520),
+    [sym_preproc_call_expression] = STATE(5520),
+    [sym_preproc_binary_expression] = STATE(5520),
+    [sym_number_literal] = STATE(5520),
+    [sym_string_literal] = STATE(5520),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7418),
+    [sym_preproc_comment] = ACTIONS(7430),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -475071,93 +475226,165 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3231] = {
-    [sym_language_binding] = STATE(3337),
-    [sym_variable_attributes] = STATE(3337),
-    [sym__variable_declarator] = STATE(6430),
-    [sym_sized_declarator] = STATE(3455),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [sym_coarray_declarator] = STATE(6430),
-    [sym_identifier] = STATE(3341),
-    [aux_sym_variable_modification_repeat1] = STATE(3337),
+  [3235] = {
+    [sym__preproc_expression] = STATE(5505),
+    [sym_preproc_parenthesized_expression] = STATE(5505),
+    [sym_preproc_defined] = STATE(5505),
+    [sym_preproc_unary_expression] = STATE(5505),
+    [sym_preproc_call_expression] = STATE(5505),
+    [sym_preproc_binary_expression] = STATE(5505),
+    [sym_number_literal] = STATE(5505),
+    [sym_string_literal] = STATE(5505),
+    [sym_identifier] = STATE(5340),
+    [anon_sym_LPAREN2] = ACTIONS(7346),
+    [anon_sym_defined] = ACTIONS(7348),
+    [sym_preproc_comment] = ACTIONS(7432),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5495),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5495),
-    [aux_sym_language_binding_token1] = ACTIONS(45),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(768),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7420),
-    [aux_sym_use_statement_token2] = ACTIONS(7420),
-    [anon_sym_COLON_COLON] = ACTIONS(7422),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7420),
-    [aux_sym_save_statement_token1] = ACTIONS(7420),
-    [aux_sym_private_statement_token1] = ACTIONS(7420),
-    [aux_sym_public_statement_token1] = ACTIONS(7420),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7420),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(73),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7420),
-    [aux_sym_variable_attributes_token1] = ACTIONS(73),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7420),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7420),
-    [aux_sym_variable_attributes_token4] = ACTIONS(73),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7420),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(87),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7424),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(91),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(73),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7426),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7420),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(73),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
+    [aux_sym_use_statement_token2] = ACTIONS(7354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
+    [aux_sym_save_statement_token1] = ACTIONS(7354),
+    [aux_sym_private_statement_token1] = ACTIONS(7354),
+    [aux_sym_public_statement_token1] = ACTIONS(7354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym_stop_statement_token1] = ACTIONS(7354),
+    [aux_sym_stop_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
+    [aux_sym_data_statement_token1] = ACTIONS(7354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
+    [aux_sym_block_construct_token1] = ACTIONS(7354),
+    [aux_sym_format_statement_token1] = ACTIONS(7354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
+    [aux_sym_entry_statement_token1] = ACTIONS(7354),
+    [aux_sym_null_literal_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
+    [aux_sym_identifier_token1] = ACTIONS(7354),
     [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7362),
+    [sym__float_literal] = ACTIONS(7362),
+    [sym__boz_literal] = ACTIONS(7362),
+    [sym__string_literal] = ACTIONS(7364),
+    [sym__string_literal_kind] = ACTIONS(7366),
+    [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3232] = {
-    [sym__preproc_expression] = STATE(5531),
-    [sym_preproc_parenthesized_expression] = STATE(5531),
-    [sym_preproc_defined] = STATE(5531),
-    [sym_preproc_unary_expression] = STATE(5531),
-    [sym_preproc_call_expression] = STATE(5531),
-    [sym_preproc_binary_expression] = STATE(5531),
-    [sym_number_literal] = STATE(5531),
-    [sym_string_literal] = STATE(5531),
-    [sym_identifier] = STATE(5347),
+  [3236] = {
+    [sym__preproc_expression] = STATE(5404),
+    [sym_preproc_parenthesized_expression] = STATE(5404),
+    [sym_preproc_defined] = STATE(5404),
+    [sym_preproc_unary_expression] = STATE(5404),
+    [sym_preproc_call_expression] = STATE(5404),
+    [sym_preproc_binary_expression] = STATE(5404),
+    [sym_number_literal] = STATE(5404),
+    [sym_string_literal] = STATE(5404),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3237] = {
+    [sym__preproc_expression] = STATE(5471),
+    [sym_preproc_parenthesized_expression] = STATE(5471),
+    [sym_preproc_defined] = STATE(5471),
+    [sym_preproc_unary_expression] = STATE(5471),
+    [sym_preproc_call_expression] = STATE(5471),
+    [sym_preproc_binary_expression] = STATE(5471),
+    [sym_number_literal] = STATE(5471),
+    [sym_string_literal] = STATE(5471),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7428),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -475219,167 +475446,18 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3233] = {
-    [sym__preproc_expression] = STATE(5397),
-    [sym_preproc_parenthesized_expression] = STATE(5397),
-    [sym_preproc_defined] = STATE(5397),
-    [sym_preproc_unary_expression] = STATE(5397),
-    [sym_preproc_call_expression] = STATE(5397),
-    [sym_preproc_binary_expression] = STATE(5397),
-    [sym_number_literal] = STATE(5397),
-    [sym_string_literal] = STATE(5397),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_RPAREN] = ACTIONS(7430),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3234] = {
-    [sym__argument_list] = STATE(2550),
-    [sym_argument_list] = STATE(3409),
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_LPAREN2] = ACTIONS(6702),
-    [anon_sym_STAR] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(4287),
-  },
-  [3235] = {
-    [sym__preproc_expression] = STATE(5534),
-    [sym_preproc_parenthesized_expression] = STATE(5534),
-    [sym_preproc_defined] = STATE(5534),
-    [sym_preproc_unary_expression] = STATE(5534),
-    [sym_preproc_call_expression] = STATE(5534),
-    [sym_preproc_binary_expression] = STATE(5534),
-    [sym_number_literal] = STATE(5534),
-    [sym_string_literal] = STATE(5534),
-    [sym_identifier] = STATE(5347),
+  [3238] = {
+    [sym__preproc_expression] = STATE(5473),
+    [sym_preproc_parenthesized_expression] = STATE(5473),
+    [sym_preproc_defined] = STATE(5473),
+    [sym_preproc_unary_expression] = STATE(5473),
+    [sym_preproc_call_expression] = STATE(5473),
+    [sym_preproc_binary_expression] = STATE(5473),
+    [sym_number_literal] = STATE(5473),
+    [sym_string_literal] = STATE(5473),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
-    [sym_preproc_comment] = ACTIONS(7432),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7352),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
@@ -475441,16 +475519,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3236] = {
-    [sym__preproc_expression] = STATE(5459),
-    [sym_preproc_parenthesized_expression] = STATE(5459),
-    [sym_preproc_defined] = STATE(5459),
-    [sym_preproc_unary_expression] = STATE(5459),
-    [sym_preproc_call_expression] = STATE(5459),
-    [sym_preproc_binary_expression] = STATE(5459),
-    [sym_number_literal] = STATE(5459),
-    [sym_string_literal] = STATE(5459),
-    [sym_identifier] = STATE(5347),
+  [3239] = {
+    [sym__preproc_expression] = STATE(5472),
+    [sym_preproc_parenthesized_expression] = STATE(5472),
+    [sym_preproc_defined] = STATE(5472),
+    [sym_preproc_unary_expression] = STATE(5472),
+    [sym_preproc_call_expression] = STATE(5472),
+    [sym_preproc_binary_expression] = STATE(5472),
+    [sym_number_literal] = STATE(5472),
+    [sym_string_literal] = STATE(5472),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475514,16 +475592,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3237] = {
-    [sym__preproc_expression] = STATE(5406),
-    [sym_preproc_parenthesized_expression] = STATE(5406),
-    [sym_preproc_defined] = STATE(5406),
-    [sym_preproc_unary_expression] = STATE(5406),
-    [sym_preproc_call_expression] = STATE(5406),
-    [sym_preproc_binary_expression] = STATE(5406),
-    [sym_number_literal] = STATE(5406),
-    [sym_string_literal] = STATE(5406),
-    [sym_identifier] = STATE(5347),
+  [3240] = {
+    [sym__preproc_expression] = STATE(5483),
+    [sym_preproc_parenthesized_expression] = STATE(5483),
+    [sym_preproc_defined] = STATE(5483),
+    [sym_preproc_unary_expression] = STATE(5483),
+    [sym_preproc_call_expression] = STATE(5483),
+    [sym_preproc_binary_expression] = STATE(5483),
+    [sym_number_literal] = STATE(5483),
+    [sym_string_literal] = STATE(5483),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475587,16 +475665,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3238] = {
-    [sym__preproc_expression] = STATE(5443),
-    [sym_preproc_parenthesized_expression] = STATE(5443),
-    [sym_preproc_defined] = STATE(5443),
-    [sym_preproc_unary_expression] = STATE(5443),
-    [sym_preproc_call_expression] = STATE(5443),
-    [sym_preproc_binary_expression] = STATE(5443),
-    [sym_number_literal] = STATE(5443),
-    [sym_string_literal] = STATE(5443),
-    [sym_identifier] = STATE(5347),
+  [3241] = {
+    [sym__preproc_expression] = STATE(5466),
+    [sym_preproc_parenthesized_expression] = STATE(5466),
+    [sym_preproc_defined] = STATE(5466),
+    [sym_preproc_unary_expression] = STATE(5466),
+    [sym_preproc_call_expression] = STATE(5466),
+    [sym_preproc_binary_expression] = STATE(5466),
+    [sym_number_literal] = STATE(5466),
+    [sym_string_literal] = STATE(5466),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475660,16 +475738,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3239] = {
-    [sym__preproc_expression] = STATE(5535),
-    [sym_preproc_parenthesized_expression] = STATE(5535),
-    [sym_preproc_defined] = STATE(5535),
-    [sym_preproc_unary_expression] = STATE(5535),
-    [sym_preproc_call_expression] = STATE(5535),
-    [sym_preproc_binary_expression] = STATE(5535),
-    [sym_number_literal] = STATE(5535),
-    [sym_string_literal] = STATE(5535),
-    [sym_identifier] = STATE(5347),
+  [3242] = {
+    [sym__preproc_expression] = STATE(5425),
+    [sym_preproc_parenthesized_expression] = STATE(5425),
+    [sym_preproc_defined] = STATE(5425),
+    [sym_preproc_unary_expression] = STATE(5425),
+    [sym_preproc_call_expression] = STATE(5425),
+    [sym_preproc_binary_expression] = STATE(5425),
+    [sym_number_literal] = STATE(5425),
+    [sym_string_literal] = STATE(5425),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475733,16 +475811,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3240] = {
-    [sym__preproc_expression] = STATE(5451),
-    [sym_preproc_parenthesized_expression] = STATE(5451),
-    [sym_preproc_defined] = STATE(5451),
-    [sym_preproc_unary_expression] = STATE(5451),
-    [sym_preproc_call_expression] = STATE(5451),
-    [sym_preproc_binary_expression] = STATE(5451),
-    [sym_number_literal] = STATE(5451),
-    [sym_string_literal] = STATE(5451),
-    [sym_identifier] = STATE(5347),
+  [3243] = {
+    [sym__preproc_expression] = STATE(5431),
+    [sym_preproc_parenthesized_expression] = STATE(5431),
+    [sym_preproc_defined] = STATE(5431),
+    [sym_preproc_unary_expression] = STATE(5431),
+    [sym_preproc_call_expression] = STATE(5431),
+    [sym_preproc_binary_expression] = STATE(5431),
+    [sym_number_literal] = STATE(5431),
+    [sym_string_literal] = STATE(5431),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475806,16 +475884,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3241] = {
-    [sym__preproc_expression] = STATE(5503),
-    [sym_preproc_parenthesized_expression] = STATE(5503),
-    [sym_preproc_defined] = STATE(5503),
-    [sym_preproc_unary_expression] = STATE(5503),
-    [sym_preproc_call_expression] = STATE(5503),
-    [sym_preproc_binary_expression] = STATE(5503),
-    [sym_number_literal] = STATE(5503),
-    [sym_string_literal] = STATE(5503),
-    [sym_identifier] = STATE(5347),
+  [3244] = {
+    [sym__preproc_expression] = STATE(5465),
+    [sym_preproc_parenthesized_expression] = STATE(5465),
+    [sym_preproc_defined] = STATE(5465),
+    [sym_preproc_unary_expression] = STATE(5465),
+    [sym_preproc_call_expression] = STATE(5465),
+    [sym_preproc_binary_expression] = STATE(5465),
+    [sym_number_literal] = STATE(5465),
+    [sym_string_literal] = STATE(5465),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475879,16 +475957,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3242] = {
-    [sym__preproc_expression] = STATE(5440),
-    [sym_preproc_parenthesized_expression] = STATE(5440),
-    [sym_preproc_defined] = STATE(5440),
-    [sym_preproc_unary_expression] = STATE(5440),
-    [sym_preproc_call_expression] = STATE(5440),
-    [sym_preproc_binary_expression] = STATE(5440),
-    [sym_number_literal] = STATE(5440),
-    [sym_string_literal] = STATE(5440),
-    [sym_identifier] = STATE(5347),
+  [3245] = {
+    [sym__preproc_expression] = STATE(5436),
+    [sym_preproc_parenthesized_expression] = STATE(5436),
+    [sym_preproc_defined] = STATE(5436),
+    [sym_preproc_unary_expression] = STATE(5436),
+    [sym_preproc_call_expression] = STATE(5436),
+    [sym_preproc_binary_expression] = STATE(5436),
+    [sym_number_literal] = STATE(5436),
+    [sym_string_literal] = STATE(5436),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -475952,16 +476030,162 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3243] = {
-    [sym__preproc_expression] = STATE(5409),
-    [sym_preproc_parenthesized_expression] = STATE(5409),
-    [sym_preproc_defined] = STATE(5409),
-    [sym_preproc_unary_expression] = STATE(5409),
-    [sym_preproc_call_expression] = STATE(5409),
-    [sym_preproc_binary_expression] = STATE(5409),
-    [sym_number_literal] = STATE(5409),
-    [sym_string_literal] = STATE(5409),
-    [sym_identifier] = STATE(5347),
+  [3246] = {
+    [anon_sym_COMMA] = ACTIONS(7434),
+    [anon_sym_LPAREN2] = ACTIONS(7436),
+    [anon_sym_PLUS] = ACTIONS(7434),
+    [anon_sym_DASH] = ACTIONS(7434),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7436),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7436),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7436),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7436),
+    [aux_sym_use_statement_token2] = ACTIONS(7436),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7436),
+    [aux_sym_save_statement_token1] = ACTIONS(7436),
+    [aux_sym_private_statement_token1] = ACTIONS(7436),
+    [aux_sym_public_statement_token1] = ACTIONS(7436),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7436),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7436),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7436),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7436),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7436),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7436),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7436),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7436),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7436),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7436),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7436),
+    [anon_sym_SEMI] = ACTIONS(7434),
+    [aux_sym_stop_statement_token1] = ACTIONS(7436),
+    [aux_sym_stop_statement_token2] = ACTIONS(7436),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7436),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7436),
+    [aux_sym_data_statement_token1] = ACTIONS(7436),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7436),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7436),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7436),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7436),
+    [aux_sym_block_construct_token1] = ACTIONS(7436),
+    [aux_sym_format_statement_token1] = ACTIONS(7436),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7436),
+    [aux_sym_entry_statement_token1] = ACTIONS(7436),
+    [aux_sym_logical_expression_token5] = ACTIONS(7434),
+    [anon_sym_DOT] = ACTIONS(7436),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7434),
+    [anon_sym_LBRACK] = ACTIONS(7434),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7434),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7434),
+    [aux_sym_null_literal_token1] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7436),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7436),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7436),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7436),
+    [aux_sym_identifier_token1] = ACTIONS(7436),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7434),
+    [sym__float_literal] = ACTIONS(7434),
+    [sym__boz_literal] = ACTIONS(7434),
+    [sym__string_literal] = ACTIONS(7434),
+    [sym__string_literal_kind] = ACTIONS(7434),
+    [sym__external_end_of_statement] = ACTIONS(7434),
+  },
+  [3247] = {
+    [anon_sym_COMMA] = ACTIONS(7438),
+    [anon_sym_LPAREN2] = ACTIONS(7440),
+    [anon_sym_PLUS] = ACTIONS(7438),
+    [anon_sym_DASH] = ACTIONS(7438),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7440),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7440),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7440),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7440),
+    [aux_sym_use_statement_token2] = ACTIONS(7440),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7440),
+    [aux_sym_save_statement_token1] = ACTIONS(7440),
+    [aux_sym_private_statement_token1] = ACTIONS(7440),
+    [aux_sym_public_statement_token1] = ACTIONS(7440),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7440),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7440),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7440),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7440),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7440),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7440),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7440),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7440),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7440),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7440),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7440),
+    [anon_sym_SEMI] = ACTIONS(7438),
+    [aux_sym_stop_statement_token1] = ACTIONS(7440),
+    [aux_sym_stop_statement_token2] = ACTIONS(7440),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7440),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7440),
+    [aux_sym_data_statement_token1] = ACTIONS(7440),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7440),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7440),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7440),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7440),
+    [aux_sym_block_construct_token1] = ACTIONS(7440),
+    [aux_sym_format_statement_token1] = ACTIONS(7440),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7440),
+    [aux_sym_entry_statement_token1] = ACTIONS(7440),
+    [aux_sym_logical_expression_token5] = ACTIONS(7438),
+    [anon_sym_DOT] = ACTIONS(7440),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7438),
+    [anon_sym_LBRACK] = ACTIONS(7438),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7438),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7438),
+    [aux_sym_null_literal_token1] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7440),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7440),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7440),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7440),
+    [aux_sym_identifier_token1] = ACTIONS(7440),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7438),
+    [sym__float_literal] = ACTIONS(7438),
+    [sym__boz_literal] = ACTIONS(7438),
+    [sym__string_literal] = ACTIONS(7438),
+    [sym__string_literal_kind] = ACTIONS(7438),
+    [sym__external_end_of_statement] = ACTIONS(7438),
+  },
+  [3248] = {
+    [sym__preproc_expression] = STATE(5412),
+    [sym_preproc_parenthesized_expression] = STATE(5412),
+    [sym_preproc_defined] = STATE(5412),
+    [sym_preproc_unary_expression] = STATE(5412),
+    [sym_preproc_call_expression] = STATE(5412),
+    [sym_preproc_binary_expression] = STATE(5412),
+    [sym_number_literal] = STATE(5412),
+    [sym_string_literal] = STATE(5412),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476025,16 +476249,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3244] = {
-    [sym__preproc_expression] = STATE(5502),
-    [sym_preproc_parenthesized_expression] = STATE(5502),
-    [sym_preproc_defined] = STATE(5502),
-    [sym_preproc_unary_expression] = STATE(5502),
-    [sym_preproc_call_expression] = STATE(5502),
-    [sym_preproc_binary_expression] = STATE(5502),
-    [sym_number_literal] = STATE(5502),
-    [sym_string_literal] = STATE(5502),
-    [sym_identifier] = STATE(5347),
+  [3249] = {
+    [sym__preproc_expression] = STATE(5512),
+    [sym_preproc_parenthesized_expression] = STATE(5512),
+    [sym_preproc_defined] = STATE(5512),
+    [sym_preproc_unary_expression] = STATE(5512),
+    [sym_preproc_call_expression] = STATE(5512),
+    [sym_preproc_binary_expression] = STATE(5512),
+    [sym_number_literal] = STATE(5512),
+    [sym_string_literal] = STATE(5512),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476098,16 +476322,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3245] = {
-    [sym__preproc_expression] = STATE(5442),
-    [sym_preproc_parenthesized_expression] = STATE(5442),
-    [sym_preproc_defined] = STATE(5442),
-    [sym_preproc_unary_expression] = STATE(5442),
-    [sym_preproc_call_expression] = STATE(5442),
-    [sym_preproc_binary_expression] = STATE(5442),
-    [sym_number_literal] = STATE(5442),
-    [sym_string_literal] = STATE(5442),
-    [sym_identifier] = STATE(5347),
+  [3250] = {
+    [sym__preproc_expression] = STATE(5409),
+    [sym_preproc_parenthesized_expression] = STATE(5409),
+    [sym_preproc_defined] = STATE(5409),
+    [sym_preproc_unary_expression] = STATE(5409),
+    [sym_preproc_call_expression] = STATE(5409),
+    [sym_preproc_binary_expression] = STATE(5409),
+    [sym_number_literal] = STATE(5409),
+    [sym_string_literal] = STATE(5409),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476171,16 +476395,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3246] = {
-    [sym__preproc_expression] = STATE(5412),
-    [sym_preproc_parenthesized_expression] = STATE(5412),
-    [sym_preproc_defined] = STATE(5412),
-    [sym_preproc_unary_expression] = STATE(5412),
-    [sym_preproc_call_expression] = STATE(5412),
-    [sym_preproc_binary_expression] = STATE(5412),
-    [sym_number_literal] = STATE(5412),
-    [sym_string_literal] = STATE(5412),
-    [sym_identifier] = STATE(5347),
+  [3251] = {
+    [sym__preproc_expression] = STATE(5527),
+    [sym_preproc_parenthesized_expression] = STATE(5527),
+    [sym_preproc_defined] = STATE(5527),
+    [sym_preproc_unary_expression] = STATE(5527),
+    [sym_preproc_call_expression] = STATE(5527),
+    [sym_preproc_binary_expression] = STATE(5527),
+    [sym_number_literal] = STATE(5527),
+    [sym_string_literal] = STATE(5527),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476244,16 +476468,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3247] = {
-    [sym__preproc_expression] = STATE(5515),
-    [sym_preproc_parenthesized_expression] = STATE(5515),
-    [sym_preproc_defined] = STATE(5515),
-    [sym_preproc_unary_expression] = STATE(5515),
-    [sym_preproc_call_expression] = STATE(5515),
-    [sym_preproc_binary_expression] = STATE(5515),
-    [sym_number_literal] = STATE(5515),
-    [sym_string_literal] = STATE(5515),
-    [sym_identifier] = STATE(5347),
+  [3252] = {
+    [sym__preproc_expression] = STATE(5453),
+    [sym_preproc_parenthesized_expression] = STATE(5453),
+    [sym_preproc_defined] = STATE(5453),
+    [sym_preproc_unary_expression] = STATE(5453),
+    [sym_preproc_call_expression] = STATE(5453),
+    [sym_preproc_binary_expression] = STATE(5453),
+    [sym_number_literal] = STATE(5453),
+    [sym_string_literal] = STATE(5453),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476317,16 +476541,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3248] = {
-    [sym__preproc_expression] = STATE(5423),
-    [sym_preproc_parenthesized_expression] = STATE(5423),
-    [sym_preproc_defined] = STATE(5423),
-    [sym_preproc_unary_expression] = STATE(5423),
-    [sym_preproc_call_expression] = STATE(5423),
-    [sym_preproc_binary_expression] = STATE(5423),
-    [sym_number_literal] = STATE(5423),
-    [sym_string_literal] = STATE(5423),
-    [sym_identifier] = STATE(5347),
+  [3253] = {
+    [sym__preproc_expression] = STATE(5469),
+    [sym_preproc_parenthesized_expression] = STATE(5469),
+    [sym_preproc_defined] = STATE(5469),
+    [sym_preproc_unary_expression] = STATE(5469),
+    [sym_preproc_call_expression] = STATE(5469),
+    [sym_preproc_binary_expression] = STATE(5469),
+    [sym_number_literal] = STATE(5469),
+    [sym_string_literal] = STATE(5469),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476390,16 +476614,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3249] = {
-    [sym__preproc_expression] = STATE(5530),
-    [sym_preproc_parenthesized_expression] = STATE(5530),
-    [sym_preproc_defined] = STATE(5530),
-    [sym_preproc_unary_expression] = STATE(5530),
-    [sym_preproc_call_expression] = STATE(5530),
-    [sym_preproc_binary_expression] = STATE(5530),
-    [sym_number_literal] = STATE(5530),
-    [sym_string_literal] = STATE(5530),
-    [sym_identifier] = STATE(5347),
+  [3254] = {
+    [sym__preproc_expression] = STATE(5451),
+    [sym_preproc_parenthesized_expression] = STATE(5451),
+    [sym_preproc_defined] = STATE(5451),
+    [sym_preproc_unary_expression] = STATE(5451),
+    [sym_preproc_call_expression] = STATE(5451),
+    [sym_preproc_binary_expression] = STATE(5451),
+    [sym_number_literal] = STATE(5451),
+    [sym_string_literal] = STATE(5451),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476463,89 +476687,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3250] = {
-    [sym__preproc_expression] = STATE(5429),
-    [sym_preproc_parenthesized_expression] = STATE(5429),
-    [sym_preproc_defined] = STATE(5429),
-    [sym_preproc_unary_expression] = STATE(5429),
-    [sym_preproc_call_expression] = STATE(5429),
-    [sym_preproc_binary_expression] = STATE(5429),
-    [sym_number_literal] = STATE(5429),
-    [sym_string_literal] = STATE(5429),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3251] = {
-    [sym__preproc_expression] = STATE(5505),
-    [sym_preproc_parenthesized_expression] = STATE(5505),
-    [sym_preproc_defined] = STATE(5505),
-    [sym_preproc_unary_expression] = STATE(5505),
-    [sym_preproc_call_expression] = STATE(5505),
-    [sym_preproc_binary_expression] = STATE(5505),
-    [sym_number_literal] = STATE(5505),
-    [sym_string_literal] = STATE(5505),
-    [sym_identifier] = STATE(5347),
+  [3255] = {
+    [sym__preproc_expression] = STATE(5484),
+    [sym_preproc_parenthesized_expression] = STATE(5484),
+    [sym_preproc_defined] = STATE(5484),
+    [sym_preproc_unary_expression] = STATE(5484),
+    [sym_preproc_call_expression] = STATE(5484),
+    [sym_preproc_binary_expression] = STATE(5484),
+    [sym_number_literal] = STATE(5484),
+    [sym_string_literal] = STATE(5484),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476609,16 +476760,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3252] = {
-    [sym__preproc_expression] = STATE(5525),
-    [sym_preproc_parenthesized_expression] = STATE(5525),
-    [sym_preproc_defined] = STATE(5525),
-    [sym_preproc_unary_expression] = STATE(5525),
-    [sym_preproc_call_expression] = STATE(5525),
-    [sym_preproc_binary_expression] = STATE(5525),
-    [sym_number_literal] = STATE(5525),
-    [sym_string_literal] = STATE(5525),
-    [sym_identifier] = STATE(5347),
+  [3256] = {
+    [sym__preproc_expression] = STATE(5478),
+    [sym_preproc_parenthesized_expression] = STATE(5478),
+    [sym_preproc_defined] = STATE(5478),
+    [sym_preproc_unary_expression] = STATE(5478),
+    [sym_preproc_call_expression] = STATE(5478),
+    [sym_preproc_binary_expression] = STATE(5478),
+    [sym_number_literal] = STATE(5478),
+    [sym_string_literal] = STATE(5478),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476682,16 +476833,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3253] = {
-    [sym__preproc_expression] = STATE(5404),
-    [sym_preproc_parenthesized_expression] = STATE(5404),
-    [sym_preproc_defined] = STATE(5404),
-    [sym_preproc_unary_expression] = STATE(5404),
-    [sym_preproc_call_expression] = STATE(5404),
-    [sym_preproc_binary_expression] = STATE(5404),
-    [sym_number_literal] = STATE(5404),
-    [sym_string_literal] = STATE(5404),
-    [sym_identifier] = STATE(5347),
+  [3257] = {
+    [sym__preproc_expression] = STATE(5529),
+    [sym_preproc_parenthesized_expression] = STATE(5529),
+    [sym_preproc_defined] = STATE(5529),
+    [sym_preproc_unary_expression] = STATE(5529),
+    [sym_preproc_call_expression] = STATE(5529),
+    [sym_preproc_binary_expression] = STATE(5529),
+    [sym_number_literal] = STATE(5529),
+    [sym_string_literal] = STATE(5529),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476755,16 +476906,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3254] = {
-    [sym__preproc_expression] = STATE(5491),
-    [sym_preproc_parenthesized_expression] = STATE(5491),
-    [sym_preproc_defined] = STATE(5491),
-    [sym_preproc_unary_expression] = STATE(5491),
-    [sym_preproc_call_expression] = STATE(5491),
-    [sym_preproc_binary_expression] = STATE(5491),
-    [sym_number_literal] = STATE(5491),
-    [sym_string_literal] = STATE(5491),
-    [sym_identifier] = STATE(5347),
+  [3258] = {
+    [sym__preproc_expression] = STATE(5452),
+    [sym_preproc_parenthesized_expression] = STATE(5452),
+    [sym_preproc_defined] = STATE(5452),
+    [sym_preproc_unary_expression] = STATE(5452),
+    [sym_preproc_call_expression] = STATE(5452),
+    [sym_preproc_binary_expression] = STATE(5452),
+    [sym_number_literal] = STATE(5452),
+    [sym_string_literal] = STATE(5452),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476828,89 +476979,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3255] = {
-    [anon_sym_COMMA] = ACTIONS(7434),
-    [anon_sym_LPAREN2] = ACTIONS(7436),
-    [anon_sym_PLUS] = ACTIONS(7434),
-    [anon_sym_DASH] = ACTIONS(7434),
+  [3259] = {
+    [anon_sym_COMMA] = ACTIONS(7442),
+    [anon_sym_LPAREN2] = ACTIONS(7444),
+    [anon_sym_PLUS] = ACTIONS(7442),
+    [anon_sym_DASH] = ACTIONS(7442),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7436),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7436),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7436),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7436),
-    [aux_sym_use_statement_token2] = ACTIONS(7436),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7436),
-    [aux_sym_save_statement_token1] = ACTIONS(7436),
-    [aux_sym_private_statement_token1] = ACTIONS(7436),
-    [aux_sym_public_statement_token1] = ACTIONS(7436),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7436),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7436),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7436),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7436),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7436),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7436),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7436),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7436),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7436),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7436),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7436),
-    [anon_sym_SEMI] = ACTIONS(7434),
-    [aux_sym_stop_statement_token1] = ACTIONS(7436),
-    [aux_sym_stop_statement_token2] = ACTIONS(7436),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7436),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7436),
-    [aux_sym_data_statement_token1] = ACTIONS(7436),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7436),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7436),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7436),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7436),
-    [aux_sym_block_construct_token1] = ACTIONS(7436),
-    [aux_sym_format_statement_token1] = ACTIONS(7436),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7436),
-    [aux_sym_entry_statement_token1] = ACTIONS(7436),
-    [aux_sym_logical_expression_token5] = ACTIONS(7434),
-    [anon_sym_DOT] = ACTIONS(7436),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7434),
-    [anon_sym_LBRACK] = ACTIONS(7434),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7434),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7434),
-    [aux_sym_null_literal_token1] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7436),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7436),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7436),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7436),
-    [aux_sym_identifier_token1] = ACTIONS(7436),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7444),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7444),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7444),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7444),
+    [aux_sym_use_statement_token2] = ACTIONS(7444),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7444),
+    [aux_sym_save_statement_token1] = ACTIONS(7444),
+    [aux_sym_private_statement_token1] = ACTIONS(7444),
+    [aux_sym_public_statement_token1] = ACTIONS(7444),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7444),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7444),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7444),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7444),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7444),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7444),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7444),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7444),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7444),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7444),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7444),
+    [anon_sym_SEMI] = ACTIONS(7442),
+    [aux_sym_stop_statement_token1] = ACTIONS(7444),
+    [aux_sym_stop_statement_token2] = ACTIONS(7444),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7444),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7444),
+    [aux_sym_data_statement_token1] = ACTIONS(7444),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7444),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7444),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7444),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7444),
+    [aux_sym_block_construct_token1] = ACTIONS(7444),
+    [aux_sym_format_statement_token1] = ACTIONS(7444),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7444),
+    [aux_sym_entry_statement_token1] = ACTIONS(7444),
+    [aux_sym_logical_expression_token5] = ACTIONS(7442),
+    [anon_sym_DOT] = ACTIONS(7444),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7442),
+    [anon_sym_LBRACK] = ACTIONS(7442),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7442),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7442),
+    [aux_sym_null_literal_token1] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7444),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7444),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7444),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7444),
+    [aux_sym_identifier_token1] = ACTIONS(7444),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7434),
-    [sym__float_literal] = ACTIONS(7434),
-    [sym__boz_literal] = ACTIONS(7434),
-    [sym__string_literal] = ACTIONS(7434),
-    [sym__string_literal_kind] = ACTIONS(7434),
-    [sym__external_end_of_statement] = ACTIONS(7434),
+    [sym__integer_literal] = ACTIONS(7442),
+    [sym__float_literal] = ACTIONS(7442),
+    [sym__boz_literal] = ACTIONS(7442),
+    [sym__string_literal] = ACTIONS(7442),
+    [sym__string_literal_kind] = ACTIONS(7442),
+    [sym__external_end_of_statement] = ACTIONS(7442),
   },
-  [3256] = {
-    [sym__preproc_expression] = STATE(5529),
-    [sym_preproc_parenthesized_expression] = STATE(5529),
-    [sym_preproc_defined] = STATE(5529),
-    [sym_preproc_unary_expression] = STATE(5529),
-    [sym_preproc_call_expression] = STATE(5529),
-    [sym_preproc_binary_expression] = STATE(5529),
-    [sym_number_literal] = STATE(5529),
-    [sym_string_literal] = STATE(5529),
-    [sym_identifier] = STATE(5347),
+  [3260] = {
+    [sym__preproc_expression] = STATE(5462),
+    [sym_preproc_parenthesized_expression] = STATE(5462),
+    [sym_preproc_defined] = STATE(5462),
+    [sym_preproc_unary_expression] = STATE(5462),
+    [sym_preproc_call_expression] = STATE(5462),
+    [sym_preproc_binary_expression] = STATE(5462),
+    [sym_number_literal] = STATE(5462),
+    [sym_string_literal] = STATE(5462),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -476974,16 +477125,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3257] = {
-    [sym__preproc_expression] = STATE(5456),
-    [sym_preproc_parenthesized_expression] = STATE(5456),
-    [sym_preproc_defined] = STATE(5456),
-    [sym_preproc_unary_expression] = STATE(5456),
-    [sym_preproc_call_expression] = STATE(5456),
-    [sym_preproc_binary_expression] = STATE(5456),
-    [sym_number_literal] = STATE(5456),
-    [sym_string_literal] = STATE(5456),
-    [sym_identifier] = STATE(5347),
+  [3261] = {
+    [sym__preproc_expression] = STATE(5488),
+    [sym_preproc_parenthesized_expression] = STATE(5488),
+    [sym_preproc_defined] = STATE(5488),
+    [sym_preproc_unary_expression] = STATE(5488),
+    [sym_preproc_call_expression] = STATE(5488),
+    [sym_preproc_binary_expression] = STATE(5488),
+    [sym_number_literal] = STATE(5488),
+    [sym_string_literal] = STATE(5488),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477047,16 +477198,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3258] = {
-    [sym__preproc_expression] = STATE(5411),
-    [sym_preproc_parenthesized_expression] = STATE(5411),
-    [sym_preproc_defined] = STATE(5411),
-    [sym_preproc_unary_expression] = STATE(5411),
-    [sym_preproc_call_expression] = STATE(5411),
-    [sym_preproc_binary_expression] = STATE(5411),
-    [sym_number_literal] = STATE(5411),
-    [sym_string_literal] = STATE(5411),
-    [sym_identifier] = STATE(5347),
+  [3262] = {
+    [sym__preproc_expression] = STATE(5463),
+    [sym_preproc_parenthesized_expression] = STATE(5463),
+    [sym_preproc_defined] = STATE(5463),
+    [sym_preproc_unary_expression] = STATE(5463),
+    [sym_preproc_call_expression] = STATE(5463),
+    [sym_preproc_binary_expression] = STATE(5463),
+    [sym_number_literal] = STATE(5463),
+    [sym_string_literal] = STATE(5463),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477120,16 +477271,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3259] = {
-    [sym__preproc_expression] = STATE(5437),
-    [sym_preproc_parenthesized_expression] = STATE(5437),
-    [sym_preproc_defined] = STATE(5437),
-    [sym_preproc_unary_expression] = STATE(5437),
-    [sym_preproc_call_expression] = STATE(5437),
-    [sym_preproc_binary_expression] = STATE(5437),
-    [sym_number_literal] = STATE(5437),
-    [sym_string_literal] = STATE(5437),
-    [sym_identifier] = STATE(5347),
+  [3263] = {
+    [sym__preproc_expression] = STATE(5460),
+    [sym_preproc_parenthesized_expression] = STATE(5460),
+    [sym_preproc_defined] = STATE(5460),
+    [sym_preproc_unary_expression] = STATE(5460),
+    [sym_preproc_call_expression] = STATE(5460),
+    [sym_preproc_binary_expression] = STATE(5460),
+    [sym_number_literal] = STATE(5460),
+    [sym_string_literal] = STATE(5460),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477193,16 +477344,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3260] = {
-    [sym__preproc_expression] = STATE(5493),
-    [sym_preproc_parenthesized_expression] = STATE(5493),
-    [sym_preproc_defined] = STATE(5493),
-    [sym_preproc_unary_expression] = STATE(5493),
-    [sym_preproc_call_expression] = STATE(5493),
-    [sym_preproc_binary_expression] = STATE(5493),
-    [sym_number_literal] = STATE(5493),
-    [sym_string_literal] = STATE(5493),
-    [sym_identifier] = STATE(5347),
+  [3264] = {
+    [sym__preproc_expression] = STATE(5440),
+    [sym_preproc_parenthesized_expression] = STATE(5440),
+    [sym_preproc_defined] = STATE(5440),
+    [sym_preproc_unary_expression] = STATE(5440),
+    [sym_preproc_call_expression] = STATE(5440),
+    [sym_preproc_binary_expression] = STATE(5440),
+    [sym_number_literal] = STATE(5440),
+    [sym_string_literal] = STATE(5440),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477266,16 +477417,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3261] = {
-    [sym__preproc_expression] = STATE(5520),
-    [sym_preproc_parenthesized_expression] = STATE(5520),
-    [sym_preproc_defined] = STATE(5520),
-    [sym_preproc_unary_expression] = STATE(5520),
-    [sym_preproc_call_expression] = STATE(5520),
-    [sym_preproc_binary_expression] = STATE(5520),
-    [sym_number_literal] = STATE(5520),
-    [sym_string_literal] = STATE(5520),
-    [sym_identifier] = STATE(5347),
+  [3265] = {
+    [sym__preproc_expression] = STATE(5400),
+    [sym_preproc_parenthesized_expression] = STATE(5400),
+    [sym_preproc_defined] = STATE(5400),
+    [sym_preproc_unary_expression] = STATE(5400),
+    [sym_preproc_call_expression] = STATE(5400),
+    [sym_preproc_binary_expression] = STATE(5400),
+    [sym_number_literal] = STATE(5400),
+    [sym_string_literal] = STATE(5400),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477339,89 +477490,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3262] = {
-    [anon_sym_COMMA] = ACTIONS(7438),
-    [anon_sym_LPAREN2] = ACTIONS(7440),
-    [anon_sym_PLUS] = ACTIONS(7438),
-    [anon_sym_DASH] = ACTIONS(7438),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7440),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7440),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7440),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7440),
-    [aux_sym_use_statement_token2] = ACTIONS(7440),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7440),
-    [aux_sym_save_statement_token1] = ACTIONS(7440),
-    [aux_sym_private_statement_token1] = ACTIONS(7440),
-    [aux_sym_public_statement_token1] = ACTIONS(7440),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7440),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7440),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7440),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7440),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7440),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7440),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7440),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7440),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7440),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7440),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7440),
-    [anon_sym_SEMI] = ACTIONS(7438),
-    [aux_sym_stop_statement_token1] = ACTIONS(7440),
-    [aux_sym_stop_statement_token2] = ACTIONS(7440),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7440),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7440),
-    [aux_sym_data_statement_token1] = ACTIONS(7440),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7440),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7440),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7440),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7440),
-    [aux_sym_block_construct_token1] = ACTIONS(7440),
-    [aux_sym_format_statement_token1] = ACTIONS(7440),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7440),
-    [aux_sym_entry_statement_token1] = ACTIONS(7440),
-    [aux_sym_logical_expression_token5] = ACTIONS(7438),
-    [anon_sym_DOT] = ACTIONS(7440),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7438),
-    [anon_sym_LBRACK] = ACTIONS(7438),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7438),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7438),
-    [aux_sym_null_literal_token1] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7440),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7440),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7440),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7440),
-    [aux_sym_identifier_token1] = ACTIONS(7440),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7438),
-    [sym__float_literal] = ACTIONS(7438),
-    [sym__boz_literal] = ACTIONS(7438),
-    [sym__string_literal] = ACTIONS(7438),
-    [sym__string_literal_kind] = ACTIONS(7438),
-    [sym__external_end_of_statement] = ACTIONS(7438),
-  },
-  [3263] = {
-    [sym__preproc_expression] = STATE(5509),
-    [sym_preproc_parenthesized_expression] = STATE(5509),
-    [sym_preproc_defined] = STATE(5509),
-    [sym_preproc_unary_expression] = STATE(5509),
-    [sym_preproc_call_expression] = STATE(5509),
-    [sym_preproc_binary_expression] = STATE(5509),
-    [sym_number_literal] = STATE(5509),
-    [sym_string_literal] = STATE(5509),
-    [sym_identifier] = STATE(5347),
+  [3266] = {
+    [sym__preproc_expression] = STATE(5429),
+    [sym_preproc_parenthesized_expression] = STATE(5429),
+    [sym_preproc_defined] = STATE(5429),
+    [sym_preproc_unary_expression] = STATE(5429),
+    [sym_preproc_call_expression] = STATE(5429),
+    [sym_preproc_binary_expression] = STATE(5429),
+    [sym_number_literal] = STATE(5429),
+    [sym_string_literal] = STATE(5429),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477485,16 +477563,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3264] = {
-    [sym__preproc_expression] = STATE(5521),
-    [sym_preproc_parenthesized_expression] = STATE(5521),
-    [sym_preproc_defined] = STATE(5521),
-    [sym_preproc_unary_expression] = STATE(5521),
-    [sym_preproc_call_expression] = STATE(5521),
-    [sym_preproc_binary_expression] = STATE(5521),
-    [sym_number_literal] = STATE(5521),
-    [sym_string_literal] = STATE(5521),
-    [sym_identifier] = STATE(5347),
+  [3267] = {
+    [sym__preproc_expression] = STATE(5444),
+    [sym_preproc_parenthesized_expression] = STATE(5444),
+    [sym_preproc_defined] = STATE(5444),
+    [sym_preproc_unary_expression] = STATE(5444),
+    [sym_preproc_call_expression] = STATE(5444),
+    [sym_preproc_binary_expression] = STATE(5444),
+    [sym_number_literal] = STATE(5444),
+    [sym_string_literal] = STATE(5444),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477558,16 +477636,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3265] = {
-    [sym__preproc_expression] = STATE(5484),
-    [sym_preproc_parenthesized_expression] = STATE(5484),
-    [sym_preproc_defined] = STATE(5484),
-    [sym_preproc_unary_expression] = STATE(5484),
-    [sym_preproc_call_expression] = STATE(5484),
-    [sym_preproc_binary_expression] = STATE(5484),
-    [sym_number_literal] = STATE(5484),
-    [sym_string_literal] = STATE(5484),
-    [sym_identifier] = STATE(5347),
+  [3268] = {
+    [sym__preproc_expression] = STATE(5426),
+    [sym_preproc_parenthesized_expression] = STATE(5426),
+    [sym_preproc_defined] = STATE(5426),
+    [sym_preproc_unary_expression] = STATE(5426),
+    [sym_preproc_call_expression] = STATE(5426),
+    [sym_preproc_binary_expression] = STATE(5426),
+    [sym_number_literal] = STATE(5426),
+    [sym_string_literal] = STATE(5426),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477631,16 +477709,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3266] = {
-    [sym__preproc_expression] = STATE(5522),
-    [sym_preproc_parenthesized_expression] = STATE(5522),
-    [sym_preproc_defined] = STATE(5522),
-    [sym_preproc_unary_expression] = STATE(5522),
-    [sym_preproc_call_expression] = STATE(5522),
-    [sym_preproc_binary_expression] = STATE(5522),
-    [sym_number_literal] = STATE(5522),
-    [sym_string_literal] = STATE(5522),
-    [sym_identifier] = STATE(5347),
+  [3269] = {
+    [sym__preproc_expression] = STATE(5516),
+    [sym_preproc_parenthesized_expression] = STATE(5516),
+    [sym_preproc_defined] = STATE(5516),
+    [sym_preproc_unary_expression] = STATE(5516),
+    [sym_preproc_call_expression] = STATE(5516),
+    [sym_preproc_binary_expression] = STATE(5516),
+    [sym_number_literal] = STATE(5516),
+    [sym_string_literal] = STATE(5516),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477704,235 +477782,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3267] = {
-    [anon_sym_COMMA] = ACTIONS(7442),
-    [anon_sym_LPAREN2] = ACTIONS(7444),
-    [anon_sym_PLUS] = ACTIONS(7442),
-    [anon_sym_DASH] = ACTIONS(7442),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7444),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7444),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7444),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7444),
-    [aux_sym_use_statement_token2] = ACTIONS(7444),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7444),
-    [aux_sym_save_statement_token1] = ACTIONS(7444),
-    [aux_sym_private_statement_token1] = ACTIONS(7444),
-    [aux_sym_public_statement_token1] = ACTIONS(7444),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7444),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7444),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7444),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7444),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7444),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7444),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7444),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7444),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7444),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7444),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7444),
-    [anon_sym_SEMI] = ACTIONS(7442),
-    [aux_sym_stop_statement_token1] = ACTIONS(7444),
-    [aux_sym_stop_statement_token2] = ACTIONS(7444),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7444),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7444),
-    [aux_sym_data_statement_token1] = ACTIONS(7444),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7444),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7444),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7444),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7444),
-    [aux_sym_block_construct_token1] = ACTIONS(7444),
-    [aux_sym_format_statement_token1] = ACTIONS(7444),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7444),
-    [aux_sym_entry_statement_token1] = ACTIONS(7444),
-    [aux_sym_logical_expression_token5] = ACTIONS(7442),
-    [anon_sym_DOT] = ACTIONS(7444),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7442),
-    [anon_sym_LBRACK] = ACTIONS(7442),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7442),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7442),
-    [aux_sym_null_literal_token1] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7444),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7444),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7444),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7444),
-    [aux_sym_identifier_token1] = ACTIONS(7444),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7442),
-    [sym__float_literal] = ACTIONS(7442),
-    [sym__boz_literal] = ACTIONS(7442),
-    [sym__string_literal] = ACTIONS(7442),
-    [sym__string_literal_kind] = ACTIONS(7442),
-    [sym__external_end_of_statement] = ACTIONS(7442),
-  },
-  [3268] = {
-    [anon_sym_COMMA] = ACTIONS(7446),
-    [anon_sym_LPAREN2] = ACTIONS(7448),
-    [anon_sym_PLUS] = ACTIONS(7446),
-    [anon_sym_DASH] = ACTIONS(7446),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7448),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7448),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7448),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7448),
-    [aux_sym_use_statement_token2] = ACTIONS(7448),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7448),
-    [aux_sym_save_statement_token1] = ACTIONS(7448),
-    [aux_sym_private_statement_token1] = ACTIONS(7448),
-    [aux_sym_public_statement_token1] = ACTIONS(7448),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7448),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7448),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7448),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7448),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7448),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7448),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7448),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7448),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7448),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7448),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7448),
-    [anon_sym_SEMI] = ACTIONS(7446),
-    [aux_sym_stop_statement_token1] = ACTIONS(7448),
-    [aux_sym_stop_statement_token2] = ACTIONS(7448),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7448),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7448),
-    [aux_sym_data_statement_token1] = ACTIONS(7448),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7448),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7448),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7448),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7448),
-    [aux_sym_block_construct_token1] = ACTIONS(7448),
-    [aux_sym_format_statement_token1] = ACTIONS(7448),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7448),
-    [aux_sym_entry_statement_token1] = ACTIONS(7448),
-    [aux_sym_logical_expression_token5] = ACTIONS(7446),
-    [anon_sym_DOT] = ACTIONS(7448),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7446),
-    [anon_sym_LBRACK] = ACTIONS(7446),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7446),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7446),
-    [aux_sym_null_literal_token1] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7448),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7448),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7448),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7448),
-    [aux_sym_identifier_token1] = ACTIONS(7448),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7446),
-    [sym__float_literal] = ACTIONS(7446),
-    [sym__boz_literal] = ACTIONS(7446),
-    [sym__string_literal] = ACTIONS(7446),
-    [sym__string_literal_kind] = ACTIONS(7446),
-    [sym__external_end_of_statement] = ACTIONS(7446),
-  },
-  [3269] = {
-    [anon_sym_COMMA] = ACTIONS(7450),
-    [anon_sym_LPAREN2] = ACTIONS(7452),
-    [anon_sym_PLUS] = ACTIONS(7450),
-    [anon_sym_DASH] = ACTIONS(7450),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7452),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7452),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7452),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7452),
-    [aux_sym_use_statement_token2] = ACTIONS(7452),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7452),
-    [aux_sym_save_statement_token1] = ACTIONS(7452),
-    [aux_sym_private_statement_token1] = ACTIONS(7452),
-    [aux_sym_public_statement_token1] = ACTIONS(7452),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7452),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7452),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7452),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7452),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7452),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7452),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7452),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7452),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7452),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7452),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7452),
-    [anon_sym_SEMI] = ACTIONS(7450),
-    [aux_sym_stop_statement_token1] = ACTIONS(7452),
-    [aux_sym_stop_statement_token2] = ACTIONS(7452),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7452),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7452),
-    [aux_sym_data_statement_token1] = ACTIONS(7452),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7452),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7452),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7452),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7452),
-    [aux_sym_block_construct_token1] = ACTIONS(7452),
-    [aux_sym_format_statement_token1] = ACTIONS(7452),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7452),
-    [aux_sym_entry_statement_token1] = ACTIONS(7452),
-    [aux_sym_logical_expression_token5] = ACTIONS(7450),
-    [anon_sym_DOT] = ACTIONS(7452),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7450),
-    [anon_sym_LBRACK] = ACTIONS(7450),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7450),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7450),
-    [aux_sym_null_literal_token1] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7452),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7452),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7452),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7452),
-    [aux_sym_identifier_token1] = ACTIONS(7452),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7450),
-    [sym__float_literal] = ACTIONS(7450),
-    [sym__boz_literal] = ACTIONS(7450),
-    [sym__string_literal] = ACTIONS(7450),
-    [sym__string_literal_kind] = ACTIONS(7450),
-    [sym__external_end_of_statement] = ACTIONS(7450),
-  },
   [3270] = {
-    [sym__preproc_expression] = STATE(5461),
-    [sym_preproc_parenthesized_expression] = STATE(5461),
-    [sym_preproc_defined] = STATE(5461),
-    [sym_preproc_unary_expression] = STATE(5461),
-    [sym_preproc_call_expression] = STATE(5461),
-    [sym_preproc_binary_expression] = STATE(5461),
-    [sym_number_literal] = STATE(5461),
-    [sym_string_literal] = STATE(5461),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5443),
+    [sym_preproc_parenthesized_expression] = STATE(5443),
+    [sym_preproc_defined] = STATE(5443),
+    [sym_preproc_unary_expression] = STATE(5443),
+    [sym_preproc_call_expression] = STATE(5443),
+    [sym_preproc_binary_expression] = STATE(5443),
+    [sym_number_literal] = STATE(5443),
+    [sym_string_literal] = STATE(5443),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -477997,15 +477856,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3271] = {
-    [sym__preproc_expression] = STATE(5497),
-    [sym_preproc_parenthesized_expression] = STATE(5497),
-    [sym_preproc_defined] = STATE(5497),
-    [sym_preproc_unary_expression] = STATE(5497),
-    [sym_preproc_call_expression] = STATE(5497),
-    [sym_preproc_binary_expression] = STATE(5497),
-    [sym_number_literal] = STATE(5497),
-    [sym_string_literal] = STATE(5497),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5508),
+    [sym_preproc_parenthesized_expression] = STATE(5508),
+    [sym_preproc_defined] = STATE(5508),
+    [sym_preproc_unary_expression] = STATE(5508),
+    [sym_preproc_call_expression] = STATE(5508),
+    [sym_preproc_binary_expression] = STATE(5508),
+    [sym_number_literal] = STATE(5508),
+    [sym_string_literal] = STATE(5508),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478070,15 +477929,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3272] = {
-    [sym__preproc_expression] = STATE(5403),
-    [sym_preproc_parenthesized_expression] = STATE(5403),
-    [sym_preproc_defined] = STATE(5403),
-    [sym_preproc_unary_expression] = STATE(5403),
-    [sym_preproc_call_expression] = STATE(5403),
-    [sym_preproc_binary_expression] = STATE(5403),
-    [sym_number_literal] = STATE(5403),
-    [sym_string_literal] = STATE(5403),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5528),
+    [sym_preproc_parenthesized_expression] = STATE(5528),
+    [sym_preproc_defined] = STATE(5528),
+    [sym_preproc_unary_expression] = STATE(5528),
+    [sym_preproc_call_expression] = STATE(5528),
+    [sym_preproc_binary_expression] = STATE(5528),
+    [sym_number_literal] = STATE(5528),
+    [sym_string_literal] = STATE(5528),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478143,15 +478002,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3273] = {
-    [sym__preproc_expression] = STATE(5401),
-    [sym_preproc_parenthesized_expression] = STATE(5401),
-    [sym_preproc_defined] = STATE(5401),
-    [sym_preproc_unary_expression] = STATE(5401),
-    [sym_preproc_call_expression] = STATE(5401),
-    [sym_preproc_binary_expression] = STATE(5401),
-    [sym_number_literal] = STATE(5401),
-    [sym_string_literal] = STATE(5401),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5525),
+    [sym_preproc_parenthesized_expression] = STATE(5525),
+    [sym_preproc_defined] = STATE(5525),
+    [sym_preproc_unary_expression] = STATE(5525),
+    [sym_preproc_call_expression] = STATE(5525),
+    [sym_preproc_binary_expression] = STATE(5525),
+    [sym_number_literal] = STATE(5525),
+    [sym_string_literal] = STATE(5525),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478216,15 +478075,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3274] = {
-    [sym__preproc_expression] = STATE(5492),
-    [sym_preproc_parenthesized_expression] = STATE(5492),
-    [sym_preproc_defined] = STATE(5492),
-    [sym_preproc_unary_expression] = STATE(5492),
-    [sym_preproc_call_expression] = STATE(5492),
-    [sym_preproc_binary_expression] = STATE(5492),
-    [sym_number_literal] = STATE(5492),
-    [sym_string_literal] = STATE(5492),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5439),
+    [sym_preproc_parenthesized_expression] = STATE(5439),
+    [sym_preproc_defined] = STATE(5439),
+    [sym_preproc_unary_expression] = STATE(5439),
+    [sym_preproc_call_expression] = STATE(5439),
+    [sym_preproc_binary_expression] = STATE(5439),
+    [sym_number_literal] = STATE(5439),
+    [sym_string_literal] = STATE(5439),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478289,15 +478148,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3275] = {
-    [sym__preproc_expression] = STATE(5495),
-    [sym_preproc_parenthesized_expression] = STATE(5495),
-    [sym_preproc_defined] = STATE(5495),
-    [sym_preproc_unary_expression] = STATE(5495),
-    [sym_preproc_call_expression] = STATE(5495),
-    [sym_preproc_binary_expression] = STATE(5495),
-    [sym_number_literal] = STATE(5495),
-    [sym_string_literal] = STATE(5495),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5432),
+    [sym_preproc_parenthesized_expression] = STATE(5432),
+    [sym_preproc_defined] = STATE(5432),
+    [sym_preproc_unary_expression] = STATE(5432),
+    [sym_preproc_call_expression] = STATE(5432),
+    [sym_preproc_binary_expression] = STATE(5432),
+    [sym_number_literal] = STATE(5432),
+    [sym_string_literal] = STATE(5432),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478362,88 +478221,15 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3276] = {
-    [anon_sym_COMMA] = ACTIONS(7454),
-    [anon_sym_LPAREN2] = ACTIONS(7456),
-    [anon_sym_PLUS] = ACTIONS(7454),
-    [anon_sym_DASH] = ACTIONS(7454),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7456),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7456),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7456),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7456),
-    [aux_sym_use_statement_token2] = ACTIONS(7456),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7456),
-    [aux_sym_save_statement_token1] = ACTIONS(7456),
-    [aux_sym_private_statement_token1] = ACTIONS(7456),
-    [aux_sym_public_statement_token1] = ACTIONS(7456),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7456),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7456),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7456),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7456),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7456),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7456),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7456),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7456),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7456),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7456),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7456),
-    [anon_sym_SEMI] = ACTIONS(7454),
-    [aux_sym_stop_statement_token1] = ACTIONS(7456),
-    [aux_sym_stop_statement_token2] = ACTIONS(7456),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7456),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7456),
-    [aux_sym_data_statement_token1] = ACTIONS(7456),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7456),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7456),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7456),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7456),
-    [aux_sym_block_construct_token1] = ACTIONS(7456),
-    [aux_sym_format_statement_token1] = ACTIONS(7456),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7456),
-    [aux_sym_entry_statement_token1] = ACTIONS(7456),
-    [aux_sym_logical_expression_token5] = ACTIONS(7454),
-    [anon_sym_DOT] = ACTIONS(7456),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7454),
-    [anon_sym_LBRACK] = ACTIONS(7454),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7454),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7454),
-    [aux_sym_null_literal_token1] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7456),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7456),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7456),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7456),
-    [aux_sym_identifier_token1] = ACTIONS(7456),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7454),
-    [sym__float_literal] = ACTIONS(7454),
-    [sym__boz_literal] = ACTIONS(7454),
-    [sym__string_literal] = ACTIONS(7454),
-    [sym__string_literal_kind] = ACTIONS(7454),
-    [sym__external_end_of_statement] = ACTIONS(7454),
-  },
-  [3277] = {
-    [sym__preproc_expression] = STATE(5494),
-    [sym_preproc_parenthesized_expression] = STATE(5494),
-    [sym_preproc_defined] = STATE(5494),
-    [sym_preproc_unary_expression] = STATE(5494),
-    [sym_preproc_call_expression] = STATE(5494),
-    [sym_preproc_binary_expression] = STATE(5494),
-    [sym_number_literal] = STATE(5494),
-    [sym_string_literal] = STATE(5494),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5474),
+    [sym_preproc_parenthesized_expression] = STATE(5474),
+    [sym_preproc_defined] = STATE(5474),
+    [sym_preproc_unary_expression] = STATE(5474),
+    [sym_preproc_call_expression] = STATE(5474),
+    [sym_preproc_binary_expression] = STATE(5474),
+    [sym_number_literal] = STATE(5474),
+    [sym_string_literal] = STATE(5474),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478507,162 +478293,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3278] = {
-    [sym__preproc_expression] = STATE(5524),
-    [sym_preproc_parenthesized_expression] = STATE(5524),
-    [sym_preproc_defined] = STATE(5524),
-    [sym_preproc_unary_expression] = STATE(5524),
-    [sym_preproc_call_expression] = STATE(5524),
-    [sym_preproc_binary_expression] = STATE(5524),
-    [sym_number_literal] = STATE(5524),
-    [sym_string_literal] = STATE(5524),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3279] = {
-    [sym__preproc_expression] = STATE(5425),
-    [sym_preproc_parenthesized_expression] = STATE(5425),
-    [sym_preproc_defined] = STATE(5425),
-    [sym_preproc_unary_expression] = STATE(5425),
-    [sym_preproc_call_expression] = STATE(5425),
-    [sym_preproc_binary_expression] = STATE(5425),
-    [sym_number_literal] = STATE(5425),
-    [sym_string_literal] = STATE(5425),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3280] = {
-    [sym__preproc_expression] = STATE(5527),
-    [sym_preproc_parenthesized_expression] = STATE(5527),
-    [sym_preproc_defined] = STATE(5527),
-    [sym_preproc_unary_expression] = STATE(5527),
-    [sym_preproc_call_expression] = STATE(5527),
-    [sym_preproc_binary_expression] = STATE(5527),
-    [sym_number_literal] = STATE(5527),
-    [sym_string_literal] = STATE(5527),
-    [sym_identifier] = STATE(5347),
+  [3277] = {
+    [sym__preproc_expression] = STATE(5509),
+    [sym_preproc_parenthesized_expression] = STATE(5509),
+    [sym_preproc_defined] = STATE(5509),
+    [sym_preproc_unary_expression] = STATE(5509),
+    [sym_preproc_call_expression] = STATE(5509),
+    [sym_preproc_binary_expression] = STATE(5509),
+    [sym_number_literal] = STATE(5509),
+    [sym_string_literal] = STATE(5509),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478726,89 +478366,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3281] = {
-    [sym__preproc_expression] = STATE(5514),
-    [sym_preproc_parenthesized_expression] = STATE(5514),
-    [sym_preproc_defined] = STATE(5514),
-    [sym_preproc_unary_expression] = STATE(5514),
-    [sym_preproc_call_expression] = STATE(5514),
-    [sym_preproc_binary_expression] = STATE(5514),
-    [sym_number_literal] = STATE(5514),
-    [sym_string_literal] = STATE(5514),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3282] = {
-    [sym__preproc_expression] = STATE(5402),
-    [sym_preproc_parenthesized_expression] = STATE(5402),
-    [sym_preproc_defined] = STATE(5402),
-    [sym_preproc_unary_expression] = STATE(5402),
-    [sym_preproc_call_expression] = STATE(5402),
-    [sym_preproc_binary_expression] = STATE(5402),
-    [sym_number_literal] = STATE(5402),
-    [sym_string_literal] = STATE(5402),
-    [sym_identifier] = STATE(5347),
+  [3278] = {
+    [sym__preproc_expression] = STATE(5489),
+    [sym_preproc_parenthesized_expression] = STATE(5489),
+    [sym_preproc_defined] = STATE(5489),
+    [sym_preproc_unary_expression] = STATE(5489),
+    [sym_preproc_call_expression] = STATE(5489),
+    [sym_preproc_binary_expression] = STATE(5489),
+    [sym_number_literal] = STATE(5489),
+    [sym_string_literal] = STATE(5489),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -478872,746 +478439,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3283] = {
-    [sym__preproc_expression] = STATE(5471),
-    [sym_preproc_parenthesized_expression] = STATE(5471),
-    [sym_preproc_defined] = STATE(5471),
-    [sym_preproc_unary_expression] = STATE(5471),
-    [sym_preproc_call_expression] = STATE(5471),
-    [sym_preproc_binary_expression] = STATE(5471),
-    [sym_number_literal] = STATE(5471),
-    [sym_string_literal] = STATE(5471),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3284] = {
-    [sym__preproc_expression] = STATE(5472),
-    [sym_preproc_parenthesized_expression] = STATE(5472),
-    [sym_preproc_defined] = STATE(5472),
-    [sym_preproc_unary_expression] = STATE(5472),
-    [sym_preproc_call_expression] = STATE(5472),
-    [sym_preproc_binary_expression] = STATE(5472),
-    [sym_number_literal] = STATE(5472),
-    [sym_string_literal] = STATE(5472),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3285] = {
-    [sym__preproc_expression] = STATE(5473),
-    [sym_preproc_parenthesized_expression] = STATE(5473),
-    [sym_preproc_defined] = STATE(5473),
-    [sym_preproc_unary_expression] = STATE(5473),
-    [sym_preproc_call_expression] = STATE(5473),
-    [sym_preproc_binary_expression] = STATE(5473),
-    [sym_number_literal] = STATE(5473),
-    [sym_string_literal] = STATE(5473),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3286] = {
-    [sym__preproc_expression] = STATE(5475),
-    [sym_preproc_parenthesized_expression] = STATE(5475),
-    [sym_preproc_defined] = STATE(5475),
-    [sym_preproc_unary_expression] = STATE(5475),
-    [sym_preproc_call_expression] = STATE(5475),
-    [sym_preproc_binary_expression] = STATE(5475),
-    [sym_number_literal] = STATE(5475),
-    [sym_string_literal] = STATE(5475),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3287] = {
-    [sym__preproc_expression] = STATE(5476),
-    [sym_preproc_parenthesized_expression] = STATE(5476),
-    [sym_preproc_defined] = STATE(5476),
-    [sym_preproc_unary_expression] = STATE(5476),
-    [sym_preproc_call_expression] = STATE(5476),
-    [sym_preproc_binary_expression] = STATE(5476),
-    [sym_number_literal] = STATE(5476),
-    [sym_string_literal] = STATE(5476),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3288] = {
-    [sym__preproc_expression] = STATE(5477),
-    [sym_preproc_parenthesized_expression] = STATE(5477),
-    [sym_preproc_defined] = STATE(5477),
-    [sym_preproc_unary_expression] = STATE(5477),
-    [sym_preproc_call_expression] = STATE(5477),
-    [sym_preproc_binary_expression] = STATE(5477),
-    [sym_number_literal] = STATE(5477),
-    [sym_string_literal] = STATE(5477),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3289] = {
-    [sym__preproc_expression] = STATE(5478),
-    [sym_preproc_parenthesized_expression] = STATE(5478),
-    [sym_preproc_defined] = STATE(5478),
-    [sym_preproc_unary_expression] = STATE(5478),
-    [sym_preproc_call_expression] = STATE(5478),
-    [sym_preproc_binary_expression] = STATE(5478),
-    [sym_number_literal] = STATE(5478),
-    [sym_string_literal] = STATE(5478),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3290] = {
-    [sym__preproc_expression] = STATE(5479),
-    [sym_preproc_parenthesized_expression] = STATE(5479),
-    [sym_preproc_defined] = STATE(5479),
-    [sym_preproc_unary_expression] = STATE(5479),
-    [sym_preproc_call_expression] = STATE(5479),
-    [sym_preproc_binary_expression] = STATE(5479),
-    [sym_number_literal] = STATE(5479),
-    [sym_string_literal] = STATE(5479),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3291] = {
-    [sym__preproc_expression] = STATE(5480),
-    [sym_preproc_parenthesized_expression] = STATE(5480),
-    [sym_preproc_defined] = STATE(5480),
-    [sym_preproc_unary_expression] = STATE(5480),
-    [sym_preproc_call_expression] = STATE(5480),
-    [sym_preproc_binary_expression] = STATE(5480),
-    [sym_number_literal] = STATE(5480),
-    [sym_string_literal] = STATE(5480),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3292] = {
-    [sym__preproc_expression] = STATE(5482),
-    [sym_preproc_parenthesized_expression] = STATE(5482),
-    [sym_preproc_defined] = STATE(5482),
-    [sym_preproc_unary_expression] = STATE(5482),
-    [sym_preproc_call_expression] = STATE(5482),
-    [sym_preproc_binary_expression] = STATE(5482),
-    [sym_number_literal] = STATE(5482),
-    [sym_string_literal] = STATE(5482),
-    [sym_identifier] = STATE(5348),
-    [anon_sym_LPAREN2] = ACTIONS(7382),
-    [anon_sym_defined] = ACTIONS(7384),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7386),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7388),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7388),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7388),
-    [aux_sym_use_statement_token2] = ACTIONS(7388),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7388),
-    [aux_sym_save_statement_token1] = ACTIONS(7388),
-    [aux_sym_private_statement_token1] = ACTIONS(7388),
-    [aux_sym_public_statement_token1] = ACTIONS(7388),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7388),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7388),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7388),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7390),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7392),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7388),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7388),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7388),
-    [aux_sym_stop_statement_token1] = ACTIONS(7388),
-    [aux_sym_stop_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7388),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7388),
-    [aux_sym_data_statement_token1] = ACTIONS(7388),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7388),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7388),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7394),
-    [aux_sym_block_construct_token1] = ACTIONS(7388),
-    [aux_sym_format_statement_token1] = ACTIONS(7388),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7388),
-    [aux_sym_entry_statement_token1] = ACTIONS(7388),
-    [aux_sym_null_literal_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7388),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7388),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7388),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7388),
-    [aux_sym_identifier_token1] = ACTIONS(7388),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7396),
-    [sym__float_literal] = ACTIONS(7396),
-    [sym__boz_literal] = ACTIONS(7396),
-    [sym__string_literal] = ACTIONS(7398),
-    [sym__string_literal_kind] = ACTIONS(7400),
-    [sym__preproc_unary_operator] = ACTIONS(7402),
-  },
-  [3293] = {
-    [sym__preproc_expression] = STATE(5504),
-    [sym_preproc_parenthesized_expression] = STATE(5504),
-    [sym_preproc_defined] = STATE(5504),
-    [sym_preproc_unary_expression] = STATE(5504),
-    [sym_preproc_call_expression] = STATE(5504),
-    [sym_preproc_binary_expression] = STATE(5504),
-    [sym_number_literal] = STATE(5504),
-    [sym_string_literal] = STATE(5504),
-    [sym_identifier] = STATE(5347),
+  [3279] = {
+    [sym__preproc_expression] = STATE(5424),
+    [sym_preproc_parenthesized_expression] = STATE(5424),
+    [sym_preproc_defined] = STATE(5424),
+    [sym_preproc_unary_expression] = STATE(5424),
+    [sym_preproc_call_expression] = STATE(5424),
+    [sym_preproc_binary_expression] = STATE(5424),
+    [sym_number_literal] = STATE(5424),
+    [sym_string_literal] = STATE(5424),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -479675,7 +478512,80 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3294] = {
+  [3280] = {
+    [sym__preproc_expression] = STATE(5406),
+    [sym_preproc_parenthesized_expression] = STATE(5406),
+    [sym_preproc_defined] = STATE(5406),
+    [sym_preproc_unary_expression] = STATE(5406),
+    [sym_preproc_call_expression] = STATE(5406),
+    [sym_preproc_binary_expression] = STATE(5406),
+    [sym_number_literal] = STATE(5406),
+    [sym_string_literal] = STATE(5406),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3281] = {
     [sym__preproc_expression] = STATE(5407),
     [sym_preproc_parenthesized_expression] = STATE(5407),
     [sym_preproc_defined] = STATE(5407),
@@ -479684,80 +478594,80 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_binary_expression] = STATE(5407),
     [sym_number_literal] = STATE(5407),
     [sym_string_literal] = STATE(5407),
-    [sym_identifier] = STATE(5347),
-    [anon_sym_LPAREN2] = ACTIONS(7346),
-    [anon_sym_defined] = ACTIONS(7348),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
-    [aux_sym_use_statement_token2] = ACTIONS(7354),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
-    [aux_sym_save_statement_token1] = ACTIONS(7354),
-    [aux_sym_private_statement_token1] = ACTIONS(7354),
-    [aux_sym_public_statement_token1] = ACTIONS(7354),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym_stop_statement_token1] = ACTIONS(7354),
-    [aux_sym_stop_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
-    [aux_sym_data_statement_token1] = ACTIONS(7354),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
-    [aux_sym_block_construct_token1] = ACTIONS(7354),
-    [aux_sym_format_statement_token1] = ACTIONS(7354),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
-    [aux_sym_entry_statement_token1] = ACTIONS(7354),
-    [aux_sym_null_literal_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
-    [aux_sym_identifier_token1] = ACTIONS(7354),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7362),
-    [sym__float_literal] = ACTIONS(7362),
-    [sym__boz_literal] = ACTIONS(7362),
-    [sym__string_literal] = ACTIONS(7364),
-    [sym__string_literal_kind] = ACTIONS(7366),
-    [sym__preproc_unary_operator] = ACTIONS(7368),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
   },
-  [3295] = {
-    [sym__preproc_expression] = STATE(5427),
-    [sym_preproc_parenthesized_expression] = STATE(5427),
-    [sym_preproc_defined] = STATE(5427),
-    [sym_preproc_unary_expression] = STATE(5427),
-    [sym_preproc_call_expression] = STATE(5427),
-    [sym_preproc_binary_expression] = STATE(5427),
-    [sym_number_literal] = STATE(5427),
-    [sym_string_literal] = STATE(5427),
-    [sym_identifier] = STATE(5347),
+  [3282] = {
+    [sym__preproc_expression] = STATE(5410),
+    [sym_preproc_parenthesized_expression] = STATE(5410),
+    [sym_preproc_defined] = STATE(5410),
+    [sym_preproc_unary_expression] = STATE(5410),
+    [sym_preproc_call_expression] = STATE(5410),
+    [sym_preproc_binary_expression] = STATE(5410),
+    [sym_number_literal] = STATE(5410),
+    [sym_string_literal] = STATE(5410),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -479821,16 +478731,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3296] = {
-    [sym__preproc_expression] = STATE(5430),
-    [sym_preproc_parenthesized_expression] = STATE(5430),
-    [sym_preproc_defined] = STATE(5430),
-    [sym_preproc_unary_expression] = STATE(5430),
-    [sym_preproc_call_expression] = STATE(5430),
-    [sym_preproc_binary_expression] = STATE(5430),
-    [sym_number_literal] = STATE(5430),
-    [sym_string_literal] = STATE(5430),
-    [sym_identifier] = STATE(5347),
+  [3283] = {
+    [sym__preproc_expression] = STATE(5408),
+    [sym_preproc_parenthesized_expression] = STATE(5408),
+    [sym_preproc_defined] = STATE(5408),
+    [sym_preproc_unary_expression] = STATE(5408),
+    [sym_preproc_call_expression] = STATE(5408),
+    [sym_preproc_binary_expression] = STATE(5408),
+    [sym_number_literal] = STATE(5408),
+    [sym_string_literal] = STATE(5408),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3284] = {
+    [sym__preproc_expression] = STATE(5402),
+    [sym_preproc_parenthesized_expression] = STATE(5402),
+    [sym_preproc_defined] = STATE(5402),
+    [sym_preproc_unary_expression] = STATE(5402),
+    [sym_preproc_call_expression] = STATE(5402),
+    [sym_preproc_binary_expression] = STATE(5402),
+    [sym_number_literal] = STATE(5402),
+    [sym_string_literal] = STATE(5402),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -479894,16 +478877,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3297] = {
-    [sym__preproc_expression] = STATE(5432),
-    [sym_preproc_parenthesized_expression] = STATE(5432),
-    [sym_preproc_defined] = STATE(5432),
-    [sym_preproc_unary_expression] = STATE(5432),
-    [sym_preproc_call_expression] = STATE(5432),
-    [sym_preproc_binary_expression] = STATE(5432),
-    [sym_number_literal] = STATE(5432),
-    [sym_string_literal] = STATE(5432),
-    [sym_identifier] = STATE(5347),
+  [3285] = {
+    [sym__preproc_expression] = STATE(5411),
+    [sym_preproc_parenthesized_expression] = STATE(5411),
+    [sym_preproc_defined] = STATE(5411),
+    [sym_preproc_unary_expression] = STATE(5411),
+    [sym_preproc_call_expression] = STATE(5411),
+    [sym_preproc_binary_expression] = STATE(5411),
+    [sym_number_literal] = STATE(5411),
+    [sym_string_literal] = STATE(5411),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3286] = {
+    [sym__preproc_expression] = STATE(5531),
+    [sym_preproc_parenthesized_expression] = STATE(5531),
+    [sym_preproc_defined] = STATE(5531),
+    [sym_preproc_unary_expression] = STATE(5531),
+    [sym_preproc_call_expression] = STATE(5531),
+    [sym_preproc_binary_expression] = STATE(5531),
+    [sym_number_literal] = STATE(5531),
+    [sym_string_literal] = STATE(5531),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -479967,7 +479023,80 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3298] = {
+  [3287] = {
+    [sym__preproc_expression] = STATE(5534),
+    [sym_preproc_parenthesized_expression] = STATE(5534),
+    [sym_preproc_defined] = STATE(5534),
+    [sym_preproc_unary_expression] = STATE(5534),
+    [sym_preproc_call_expression] = STATE(5534),
+    [sym_preproc_binary_expression] = STATE(5534),
+    [sym_number_literal] = STATE(5534),
+    [sym_string_literal] = STATE(5534),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3288] = {
     [sym__preproc_expression] = STATE(5433),
     [sym_preproc_parenthesized_expression] = STATE(5433),
     [sym_preproc_defined] = STATE(5433),
@@ -479976,7 +479105,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_binary_expression] = STATE(5433),
     [sym_number_literal] = STATE(5433),
     [sym_string_literal] = STATE(5433),
-    [sym_identifier] = STATE(5347),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480040,16 +479169,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3299] = {
-    [sym__preproc_expression] = STATE(5434),
-    [sym_preproc_parenthesized_expression] = STATE(5434),
-    [sym_preproc_defined] = STATE(5434),
-    [sym_preproc_unary_expression] = STATE(5434),
-    [sym_preproc_call_expression] = STATE(5434),
-    [sym_preproc_binary_expression] = STATE(5434),
-    [sym_number_literal] = STATE(5434),
-    [sym_string_literal] = STATE(5434),
-    [sym_identifier] = STATE(5347),
+  [3289] = {
+    [sym__preproc_expression] = STATE(5414),
+    [sym_preproc_parenthesized_expression] = STATE(5414),
+    [sym_preproc_defined] = STATE(5414),
+    [sym_preproc_unary_expression] = STATE(5414),
+    [sym_preproc_call_expression] = STATE(5414),
+    [sym_preproc_binary_expression] = STATE(5414),
+    [sym_number_literal] = STATE(5414),
+    [sym_string_literal] = STATE(5414),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3290] = {
+    [sym__preproc_expression] = STATE(5502),
+    [sym_preproc_parenthesized_expression] = STATE(5502),
+    [sym_preproc_defined] = STATE(5502),
+    [sym_preproc_unary_expression] = STATE(5502),
+    [sym_preproc_call_expression] = STATE(5502),
+    [sym_preproc_binary_expression] = STATE(5502),
+    [sym_number_literal] = STATE(5502),
+    [sym_string_literal] = STATE(5502),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480113,16 +479315,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3300] = {
-    [sym__preproc_expression] = STATE(5435),
-    [sym_preproc_parenthesized_expression] = STATE(5435),
-    [sym_preproc_defined] = STATE(5435),
-    [sym_preproc_unary_expression] = STATE(5435),
-    [sym_preproc_call_expression] = STATE(5435),
-    [sym_preproc_binary_expression] = STATE(5435),
-    [sym_number_literal] = STATE(5435),
-    [sym_string_literal] = STATE(5435),
-    [sym_identifier] = STATE(5347),
+  [3291] = {
+    [sym__preproc_expression] = STATE(5521),
+    [sym_preproc_parenthesized_expression] = STATE(5521),
+    [sym_preproc_defined] = STATE(5521),
+    [sym_preproc_unary_expression] = STATE(5521),
+    [sym_preproc_call_expression] = STATE(5521),
+    [sym_preproc_binary_expression] = STATE(5521),
+    [sym_number_literal] = STATE(5521),
+    [sym_string_literal] = STATE(5521),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480186,16 +479388,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3301] = {
-    [sym__preproc_expression] = STATE(5436),
-    [sym_preproc_parenthesized_expression] = STATE(5436),
-    [sym_preproc_defined] = STATE(5436),
-    [sym_preproc_unary_expression] = STATE(5436),
-    [sym_preproc_call_expression] = STATE(5436),
-    [sym_preproc_binary_expression] = STATE(5436),
-    [sym_number_literal] = STATE(5436),
-    [sym_string_literal] = STATE(5436),
-    [sym_identifier] = STATE(5347),
+  [3292] = {
+    [sym__preproc_expression] = STATE(5419),
+    [sym_preproc_parenthesized_expression] = STATE(5419),
+    [sym_preproc_defined] = STATE(5419),
+    [sym_preproc_unary_expression] = STATE(5419),
+    [sym_preproc_call_expression] = STATE(5419),
+    [sym_preproc_binary_expression] = STATE(5419),
+    [sym_number_literal] = STATE(5419),
+    [sym_string_literal] = STATE(5419),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3293] = {
+    [sym__preproc_expression] = STATE(5498),
+    [sym_preproc_parenthesized_expression] = STATE(5498),
+    [sym_preproc_defined] = STATE(5498),
+    [sym_preproc_unary_expression] = STATE(5498),
+    [sym_preproc_call_expression] = STATE(5498),
+    [sym_preproc_binary_expression] = STATE(5498),
+    [sym_number_literal] = STATE(5498),
+    [sym_string_literal] = STATE(5498),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480259,16 +479534,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3302] = {
-    [sym__preproc_expression] = STATE(5439),
-    [sym_preproc_parenthesized_expression] = STATE(5439),
-    [sym_preproc_defined] = STATE(5439),
-    [sym_preproc_unary_expression] = STATE(5439),
-    [sym_preproc_call_expression] = STATE(5439),
-    [sym_preproc_binary_expression] = STATE(5439),
-    [sym_number_literal] = STATE(5439),
-    [sym_string_literal] = STATE(5439),
-    [sym_identifier] = STATE(5347),
+  [3294] = {
+    [sym__preproc_expression] = STATE(5461),
+    [sym_preproc_parenthesized_expression] = STATE(5461),
+    [sym_preproc_defined] = STATE(5461),
+    [sym_preproc_unary_expression] = STATE(5461),
+    [sym_preproc_call_expression] = STATE(5461),
+    [sym_preproc_binary_expression] = STATE(5461),
+    [sym_number_literal] = STATE(5461),
+    [sym_string_literal] = STATE(5461),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480332,16 +479607,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3303] = {
-    [sym__preproc_expression] = STATE(5533),
-    [sym_preproc_parenthesized_expression] = STATE(5533),
-    [sym_preproc_defined] = STATE(5533),
-    [sym_preproc_unary_expression] = STATE(5533),
-    [sym_preproc_call_expression] = STATE(5533),
-    [sym_preproc_binary_expression] = STATE(5533),
-    [sym_number_literal] = STATE(5533),
-    [sym_string_literal] = STATE(5533),
-    [sym_identifier] = STATE(5347),
+  [3295] = {
+    [sym__preproc_expression] = STATE(5423),
+    [sym_preproc_parenthesized_expression] = STATE(5423),
+    [sym_preproc_defined] = STATE(5423),
+    [sym_preproc_unary_expression] = STATE(5423),
+    [sym_preproc_call_expression] = STATE(5423),
+    [sym_preproc_binary_expression] = STATE(5423),
+    [sym_number_literal] = STATE(5423),
+    [sym_string_literal] = STATE(5423),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480405,16 +479680,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3304] = {
-    [sym__preproc_expression] = STATE(5441),
-    [sym_preproc_parenthesized_expression] = STATE(5441),
-    [sym_preproc_defined] = STATE(5441),
-    [sym_preproc_unary_expression] = STATE(5441),
-    [sym_preproc_call_expression] = STATE(5441),
-    [sym_preproc_binary_expression] = STATE(5441),
-    [sym_number_literal] = STATE(5441),
-    [sym_string_literal] = STATE(5441),
-    [sym_identifier] = STATE(5347),
+  [3296] = {
+    [sym__preproc_expression] = STATE(5415),
+    [sym_preproc_parenthesized_expression] = STATE(5415),
+    [sym_preproc_defined] = STATE(5415),
+    [sym_preproc_unary_expression] = STATE(5415),
+    [sym_preproc_call_expression] = STATE(5415),
+    [sym_preproc_binary_expression] = STATE(5415),
+    [sym_number_literal] = STATE(5415),
+    [sym_string_literal] = STATE(5415),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3297] = {
+    [sym__preproc_expression] = STATE(5456),
+    [sym_preproc_parenthesized_expression] = STATE(5456),
+    [sym_preproc_defined] = STATE(5456),
+    [sym_preproc_unary_expression] = STATE(5456),
+    [sym_preproc_call_expression] = STATE(5456),
+    [sym_preproc_binary_expression] = STATE(5456),
+    [sym_number_literal] = STATE(5456),
+    [sym_string_literal] = STATE(5456),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480478,16 +479826,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3305] = {
-    [sym__preproc_expression] = STATE(5444),
-    [sym_preproc_parenthesized_expression] = STATE(5444),
-    [sym_preproc_defined] = STATE(5444),
-    [sym_preproc_unary_expression] = STATE(5444),
-    [sym_preproc_call_expression] = STATE(5444),
-    [sym_preproc_binary_expression] = STATE(5444),
-    [sym_number_literal] = STATE(5444),
-    [sym_string_literal] = STATE(5444),
-    [sym_identifier] = STATE(5347),
+  [3298] = {
+    [sym__preproc_expression] = STATE(5503),
+    [sym_preproc_parenthesized_expression] = STATE(5503),
+    [sym_preproc_defined] = STATE(5503),
+    [sym_preproc_unary_expression] = STATE(5503),
+    [sym_preproc_call_expression] = STATE(5503),
+    [sym_preproc_binary_expression] = STATE(5503),
+    [sym_number_literal] = STATE(5503),
+    [sym_string_literal] = STATE(5503),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480551,16 +479899,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3306] = {
-    [sym__preproc_expression] = STATE(5445),
-    [sym_preproc_parenthesized_expression] = STATE(5445),
-    [sym_preproc_defined] = STATE(5445),
-    [sym_preproc_unary_expression] = STATE(5445),
-    [sym_preproc_call_expression] = STATE(5445),
-    [sym_preproc_binary_expression] = STATE(5445),
-    [sym_number_literal] = STATE(5445),
-    [sym_string_literal] = STATE(5445),
-    [sym_identifier] = STATE(5347),
+  [3299] = {
+    [sym__preproc_expression] = STATE(5457),
+    [sym_preproc_parenthesized_expression] = STATE(5457),
+    [sym_preproc_defined] = STATE(5457),
+    [sym_preproc_unary_expression] = STATE(5457),
+    [sym_preproc_call_expression] = STATE(5457),
+    [sym_preproc_binary_expression] = STATE(5457),
+    [sym_number_literal] = STATE(5457),
+    [sym_string_literal] = STATE(5457),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480624,16 +479972,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3307] = {
-    [sym__preproc_expression] = STATE(5446),
-    [sym_preproc_parenthesized_expression] = STATE(5446),
-    [sym_preproc_defined] = STATE(5446),
-    [sym_preproc_unary_expression] = STATE(5446),
-    [sym_preproc_call_expression] = STATE(5446),
-    [sym_preproc_binary_expression] = STATE(5446),
-    [sym_number_literal] = STATE(5446),
-    [sym_string_literal] = STATE(5446),
-    [sym_identifier] = STATE(5347),
+  [3300] = {
+    [sym__preproc_expression] = STATE(5470),
+    [sym_preproc_parenthesized_expression] = STATE(5470),
+    [sym_preproc_defined] = STATE(5470),
+    [sym_preproc_unary_expression] = STATE(5470),
+    [sym_preproc_call_expression] = STATE(5470),
+    [sym_preproc_binary_expression] = STATE(5470),
+    [sym_number_literal] = STATE(5470),
+    [sym_string_literal] = STATE(5470),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480697,16 +480045,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3308] = {
-    [sym__preproc_expression] = STATE(5447),
-    [sym_preproc_parenthesized_expression] = STATE(5447),
-    [sym_preproc_defined] = STATE(5447),
-    [sym_preproc_unary_expression] = STATE(5447),
-    [sym_preproc_call_expression] = STATE(5447),
-    [sym_preproc_binary_expression] = STATE(5447),
-    [sym_number_literal] = STATE(5447),
-    [sym_string_literal] = STATE(5447),
-    [sym_identifier] = STATE(5347),
+  [3301] = {
+    [sym__preproc_expression] = STATE(5405),
+    [sym_preproc_parenthesized_expression] = STATE(5405),
+    [sym_preproc_defined] = STATE(5405),
+    [sym_preproc_unary_expression] = STATE(5405),
+    [sym_preproc_call_expression] = STATE(5405),
+    [sym_preproc_binary_expression] = STATE(5405),
+    [sym_number_literal] = STATE(5405),
+    [sym_string_literal] = STATE(5405),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480770,16 +480118,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3309] = {
-    [sym__preproc_expression] = STATE(5450),
-    [sym_preproc_parenthesized_expression] = STATE(5450),
-    [sym_preproc_defined] = STATE(5450),
-    [sym_preproc_unary_expression] = STATE(5450),
-    [sym_preproc_call_expression] = STATE(5450),
-    [sym_preproc_binary_expression] = STATE(5450),
-    [sym_number_literal] = STATE(5450),
-    [sym_string_literal] = STATE(5450),
-    [sym_identifier] = STATE(5347),
+  [3302] = {
+    [sym__preproc_expression] = STATE(5485),
+    [sym_preproc_parenthesized_expression] = STATE(5485),
+    [sym_preproc_defined] = STATE(5485),
+    [sym_preproc_unary_expression] = STATE(5485),
+    [sym_preproc_call_expression] = STATE(5485),
+    [sym_preproc_binary_expression] = STATE(5485),
+    [sym_number_literal] = STATE(5485),
+    [sym_string_literal] = STATE(5485),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480843,89 +480191,162 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3310] = {
-    [sym__preproc_expression] = STATE(5452),
-    [sym_preproc_parenthesized_expression] = STATE(5452),
-    [sym_preproc_defined] = STATE(5452),
-    [sym_preproc_unary_expression] = STATE(5452),
-    [sym_preproc_call_expression] = STATE(5452),
-    [sym_preproc_binary_expression] = STATE(5452),
-    [sym_number_literal] = STATE(5452),
-    [sym_string_literal] = STATE(5452),
-    [sym_identifier] = STATE(5347),
-    [anon_sym_LPAREN2] = ACTIONS(7346),
-    [anon_sym_defined] = ACTIONS(7348),
+  [3303] = {
+    [anon_sym_COMMA] = ACTIONS(7446),
+    [anon_sym_LPAREN2] = ACTIONS(7448),
+    [anon_sym_PLUS] = ACTIONS(7446),
+    [anon_sym_DASH] = ACTIONS(7446),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
-    [aux_sym_use_statement_token2] = ACTIONS(7354),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
-    [aux_sym_save_statement_token1] = ACTIONS(7354),
-    [aux_sym_private_statement_token1] = ACTIONS(7354),
-    [aux_sym_public_statement_token1] = ACTIONS(7354),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym_stop_statement_token1] = ACTIONS(7354),
-    [aux_sym_stop_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
-    [aux_sym_data_statement_token1] = ACTIONS(7354),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
-    [aux_sym_block_construct_token1] = ACTIONS(7354),
-    [aux_sym_format_statement_token1] = ACTIONS(7354),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
-    [aux_sym_entry_statement_token1] = ACTIONS(7354),
-    [aux_sym_null_literal_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
-    [aux_sym_identifier_token1] = ACTIONS(7354),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7448),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7448),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7448),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7448),
+    [aux_sym_use_statement_token2] = ACTIONS(7448),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7448),
+    [aux_sym_save_statement_token1] = ACTIONS(7448),
+    [aux_sym_private_statement_token1] = ACTIONS(7448),
+    [aux_sym_public_statement_token1] = ACTIONS(7448),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7448),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7448),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7448),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7448),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7448),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7448),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7448),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7448),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7448),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7448),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7448),
+    [anon_sym_SEMI] = ACTIONS(7446),
+    [aux_sym_stop_statement_token1] = ACTIONS(7448),
+    [aux_sym_stop_statement_token2] = ACTIONS(7448),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7448),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7448),
+    [aux_sym_data_statement_token1] = ACTIONS(7448),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7448),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7448),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7448),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7448),
+    [aux_sym_block_construct_token1] = ACTIONS(7448),
+    [aux_sym_format_statement_token1] = ACTIONS(7448),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7448),
+    [aux_sym_entry_statement_token1] = ACTIONS(7448),
+    [aux_sym_logical_expression_token5] = ACTIONS(7446),
+    [anon_sym_DOT] = ACTIONS(7448),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7446),
+    [anon_sym_LBRACK] = ACTIONS(7446),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7446),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7446),
+    [aux_sym_null_literal_token1] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7448),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7448),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7448),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7448),
+    [aux_sym_identifier_token1] = ACTIONS(7448),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7362),
-    [sym__float_literal] = ACTIONS(7362),
-    [sym__boz_literal] = ACTIONS(7362),
-    [sym__string_literal] = ACTIONS(7364),
-    [sym__string_literal_kind] = ACTIONS(7366),
-    [sym__preproc_unary_operator] = ACTIONS(7368),
+    [sym__integer_literal] = ACTIONS(7446),
+    [sym__float_literal] = ACTIONS(7446),
+    [sym__boz_literal] = ACTIONS(7446),
+    [sym__string_literal] = ACTIONS(7446),
+    [sym__string_literal_kind] = ACTIONS(7446),
+    [sym__external_end_of_statement] = ACTIONS(7446),
   },
-  [3311] = {
-    [sym__preproc_expression] = STATE(5453),
-    [sym_preproc_parenthesized_expression] = STATE(5453),
-    [sym_preproc_defined] = STATE(5453),
-    [sym_preproc_unary_expression] = STATE(5453),
-    [sym_preproc_call_expression] = STATE(5453),
-    [sym_preproc_binary_expression] = STATE(5453),
-    [sym_number_literal] = STATE(5453),
-    [sym_string_literal] = STATE(5453),
-    [sym_identifier] = STATE(5347),
+  [3304] = {
+    [sym__preproc_expression] = STATE(5416),
+    [sym_preproc_parenthesized_expression] = STATE(5416),
+    [sym_preproc_defined] = STATE(5416),
+    [sym_preproc_unary_expression] = STATE(5416),
+    [sym_preproc_call_expression] = STATE(5416),
+    [sym_preproc_binary_expression] = STATE(5416),
+    [sym_number_literal] = STATE(5416),
+    [sym_string_literal] = STATE(5416),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3305] = {
+    [sym__preproc_expression] = STATE(5445),
+    [sym_preproc_parenthesized_expression] = STATE(5445),
+    [sym_preproc_defined] = STATE(5445),
+    [sym_preproc_unary_expression] = STATE(5445),
+    [sym_preproc_call_expression] = STATE(5445),
+    [sym_preproc_binary_expression] = STATE(5445),
+    [sym_number_literal] = STATE(5445),
+    [sym_string_literal] = STATE(5445),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -480989,16 +480410,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3312] = {
-    [sym__preproc_expression] = STATE(5454),
-    [sym_preproc_parenthesized_expression] = STATE(5454),
-    [sym_preproc_defined] = STATE(5454),
-    [sym_preproc_unary_expression] = STATE(5454),
-    [sym_preproc_call_expression] = STATE(5454),
-    [sym_preproc_binary_expression] = STATE(5454),
-    [sym_number_literal] = STATE(5454),
-    [sym_string_literal] = STATE(5454),
-    [sym_identifier] = STATE(5347),
+  [3306] = {
+    [sym__preproc_expression] = STATE(5524),
+    [sym_preproc_parenthesized_expression] = STATE(5524),
+    [sym_preproc_defined] = STATE(5524),
+    [sym_preproc_unary_expression] = STATE(5524),
+    [sym_preproc_call_expression] = STATE(5524),
+    [sym_preproc_binary_expression] = STATE(5524),
+    [sym_number_literal] = STATE(5524),
+    [sym_string_literal] = STATE(5524),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481062,16 +480483,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3313] = {
-    [sym__preproc_expression] = STATE(5455),
-    [sym_preproc_parenthesized_expression] = STATE(5455),
-    [sym_preproc_defined] = STATE(5455),
-    [sym_preproc_unary_expression] = STATE(5455),
-    [sym_preproc_call_expression] = STATE(5455),
-    [sym_preproc_binary_expression] = STATE(5455),
-    [sym_number_literal] = STATE(5455),
-    [sym_string_literal] = STATE(5455),
-    [sym_identifier] = STATE(5347),
+  [3307] = {
+    [sym__preproc_expression] = STATE(5476),
+    [sym_preproc_parenthesized_expression] = STATE(5476),
+    [sym_preproc_defined] = STATE(5476),
+    [sym_preproc_unary_expression] = STATE(5476),
+    [sym_preproc_call_expression] = STATE(5476),
+    [sym_preproc_binary_expression] = STATE(5476),
+    [sym_number_literal] = STATE(5476),
+    [sym_string_literal] = STATE(5476),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481135,16 +480556,162 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3314] = {
-    [sym__preproc_expression] = STATE(5457),
-    [sym_preproc_parenthesized_expression] = STATE(5457),
-    [sym_preproc_defined] = STATE(5457),
-    [sym_preproc_unary_expression] = STATE(5457),
-    [sym_preproc_call_expression] = STATE(5457),
-    [sym_preproc_binary_expression] = STATE(5457),
-    [sym_number_literal] = STATE(5457),
-    [sym_string_literal] = STATE(5457),
-    [sym_identifier] = STATE(5347),
+  [3308] = {
+    [sym__preproc_expression] = STATE(5417),
+    [sym_preproc_parenthesized_expression] = STATE(5417),
+    [sym_preproc_defined] = STATE(5417),
+    [sym_preproc_unary_expression] = STATE(5417),
+    [sym_preproc_call_expression] = STATE(5417),
+    [sym_preproc_binary_expression] = STATE(5417),
+    [sym_number_literal] = STATE(5417),
+    [sym_string_literal] = STATE(5417),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3309] = {
+    [sym__preproc_expression] = STATE(5418),
+    [sym_preproc_parenthesized_expression] = STATE(5418),
+    [sym_preproc_defined] = STATE(5418),
+    [sym_preproc_unary_expression] = STATE(5418),
+    [sym_preproc_call_expression] = STATE(5418),
+    [sym_preproc_binary_expression] = STATE(5418),
+    [sym_number_literal] = STATE(5418),
+    [sym_string_literal] = STATE(5418),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3310] = {
+    [sym__preproc_expression] = STATE(5447),
+    [sym_preproc_parenthesized_expression] = STATE(5447),
+    [sym_preproc_defined] = STATE(5447),
+    [sym_preproc_unary_expression] = STATE(5447),
+    [sym_preproc_call_expression] = STATE(5447),
+    [sym_preproc_binary_expression] = STATE(5447),
+    [sym_number_literal] = STATE(5447),
+    [sym_string_literal] = STATE(5447),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481208,16 +480775,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3315] = {
-    [sym__preproc_expression] = STATE(5458),
-    [sym_preproc_parenthesized_expression] = STATE(5458),
-    [sym_preproc_defined] = STATE(5458),
-    [sym_preproc_unary_expression] = STATE(5458),
-    [sym_preproc_call_expression] = STATE(5458),
-    [sym_preproc_binary_expression] = STATE(5458),
-    [sym_number_literal] = STATE(5458),
-    [sym_string_literal] = STATE(5458),
-    [sym_identifier] = STATE(5347),
+  [3311] = {
+    [sym__preproc_expression] = STATE(5482),
+    [sym_preproc_parenthesized_expression] = STATE(5482),
+    [sym_preproc_defined] = STATE(5482),
+    [sym_preproc_unary_expression] = STATE(5482),
+    [sym_preproc_call_expression] = STATE(5482),
+    [sym_preproc_binary_expression] = STATE(5482),
+    [sym_number_literal] = STATE(5482),
+    [sym_string_literal] = STATE(5482),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481281,16 +480848,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3316] = {
-    [sym__preproc_expression] = STATE(5490),
-    [sym_preproc_parenthesized_expression] = STATE(5490),
-    [sym_preproc_defined] = STATE(5490),
-    [sym_preproc_unary_expression] = STATE(5490),
-    [sym_preproc_call_expression] = STATE(5490),
-    [sym_preproc_binary_expression] = STATE(5490),
-    [sym_number_literal] = STATE(5490),
-    [sym_string_literal] = STATE(5490),
-    [sym_identifier] = STATE(5347),
+  [3312] = {
+    [anon_sym_COMMA] = ACTIONS(7450),
+    [anon_sym_LPAREN2] = ACTIONS(7452),
+    [anon_sym_PLUS] = ACTIONS(7450),
+    [anon_sym_DASH] = ACTIONS(7450),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7452),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7452),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7452),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7452),
+    [aux_sym_use_statement_token2] = ACTIONS(7452),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7452),
+    [aux_sym_save_statement_token1] = ACTIONS(7452),
+    [aux_sym_private_statement_token1] = ACTIONS(7452),
+    [aux_sym_public_statement_token1] = ACTIONS(7452),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7452),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7452),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7452),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7452),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7452),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7452),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7452),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7452),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7452),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7452),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7452),
+    [anon_sym_SEMI] = ACTIONS(7450),
+    [aux_sym_stop_statement_token1] = ACTIONS(7452),
+    [aux_sym_stop_statement_token2] = ACTIONS(7452),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7452),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7452),
+    [aux_sym_data_statement_token1] = ACTIONS(7452),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7452),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7452),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7452),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7452),
+    [aux_sym_block_construct_token1] = ACTIONS(7452),
+    [aux_sym_format_statement_token1] = ACTIONS(7452),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7452),
+    [aux_sym_entry_statement_token1] = ACTIONS(7452),
+    [aux_sym_logical_expression_token5] = ACTIONS(7450),
+    [anon_sym_DOT] = ACTIONS(7452),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7450),
+    [anon_sym_LBRACK] = ACTIONS(7450),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7450),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7450),
+    [aux_sym_null_literal_token1] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7452),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7452),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7452),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7452),
+    [aux_sym_identifier_token1] = ACTIONS(7452),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7450),
+    [sym__float_literal] = ACTIONS(7450),
+    [sym__boz_literal] = ACTIONS(7450),
+    [sym__string_literal] = ACTIONS(7450),
+    [sym__string_literal_kind] = ACTIONS(7450),
+    [sym__external_end_of_statement] = ACTIONS(7450),
+  },
+  [3313] = {
+    [sym__preproc_expression] = STATE(5434),
+    [sym_preproc_parenthesized_expression] = STATE(5434),
+    [sym_preproc_defined] = STATE(5434),
+    [sym_preproc_unary_expression] = STATE(5434),
+    [sym_preproc_call_expression] = STATE(5434),
+    [sym_preproc_binary_expression] = STATE(5434),
+    [sym_number_literal] = STATE(5434),
+    [sym_string_literal] = STATE(5434),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481354,16 +480994,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3317] = {
-    [sym__preproc_expression] = STATE(5460),
-    [sym_preproc_parenthesized_expression] = STATE(5460),
-    [sym_preproc_defined] = STATE(5460),
-    [sym_preproc_unary_expression] = STATE(5460),
-    [sym_preproc_call_expression] = STATE(5460),
-    [sym_preproc_binary_expression] = STATE(5460),
-    [sym_number_literal] = STATE(5460),
-    [sym_string_literal] = STATE(5460),
-    [sym_identifier] = STATE(5347),
+  [3314] = {
+    [sym__preproc_expression] = STATE(5422),
+    [sym_preproc_parenthesized_expression] = STATE(5422),
+    [sym_preproc_defined] = STATE(5422),
+    [sym_preproc_unary_expression] = STATE(5422),
+    [sym_preproc_call_expression] = STATE(5422),
+    [sym_preproc_binary_expression] = STATE(5422),
+    [sym_number_literal] = STATE(5422),
+    [sym_string_literal] = STATE(5422),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481427,16 +481067,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3318] = {
-    [sym__preproc_expression] = STATE(5462),
-    [sym_preproc_parenthesized_expression] = STATE(5462),
-    [sym_preproc_defined] = STATE(5462),
-    [sym_preproc_unary_expression] = STATE(5462),
-    [sym_preproc_call_expression] = STATE(5462),
-    [sym_preproc_binary_expression] = STATE(5462),
-    [sym_number_literal] = STATE(5462),
-    [sym_string_literal] = STATE(5462),
-    [sym_identifier] = STATE(5347),
+  [3315] = {
+    [sym__preproc_expression] = STATE(5519),
+    [sym_preproc_parenthesized_expression] = STATE(5519),
+    [sym_preproc_defined] = STATE(5519),
+    [sym_preproc_unary_expression] = STATE(5519),
+    [sym_preproc_call_expression] = STATE(5519),
+    [sym_preproc_binary_expression] = STATE(5519),
+    [sym_number_literal] = STATE(5519),
+    [sym_string_literal] = STATE(5519),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481500,16 +481140,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3319] = {
-    [sym__preproc_expression] = STATE(5463),
-    [sym_preproc_parenthesized_expression] = STATE(5463),
-    [sym_preproc_defined] = STATE(5463),
-    [sym_preproc_unary_expression] = STATE(5463),
-    [sym_preproc_call_expression] = STATE(5463),
-    [sym_preproc_binary_expression] = STATE(5463),
-    [sym_number_literal] = STATE(5463),
-    [sym_string_literal] = STATE(5463),
-    [sym_identifier] = STATE(5347),
+  [3316] = {
+    [sym__preproc_expression] = STATE(5499),
+    [sym_preproc_parenthesized_expression] = STATE(5499),
+    [sym_preproc_defined] = STATE(5499),
+    [sym_preproc_unary_expression] = STATE(5499),
+    [sym_preproc_call_expression] = STATE(5499),
+    [sym_preproc_binary_expression] = STATE(5499),
+    [sym_number_literal] = STATE(5499),
+    [sym_string_literal] = STATE(5499),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481573,16 +481213,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3320] = {
-    [sym__preproc_expression] = STATE(5464),
-    [sym_preproc_parenthesized_expression] = STATE(5464),
-    [sym_preproc_defined] = STATE(5464),
-    [sym_preproc_unary_expression] = STATE(5464),
-    [sym_preproc_call_expression] = STATE(5464),
-    [sym_preproc_binary_expression] = STATE(5464),
-    [sym_number_literal] = STATE(5464),
-    [sym_string_literal] = STATE(5464),
-    [sym_identifier] = STATE(5347),
+  [3317] = {
+    [anon_sym_COMMA] = ACTIONS(7454),
+    [anon_sym_LPAREN2] = ACTIONS(7456),
+    [anon_sym_PLUS] = ACTIONS(7454),
+    [anon_sym_DASH] = ACTIONS(7454),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7456),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7456),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7456),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7456),
+    [aux_sym_use_statement_token2] = ACTIONS(7456),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7456),
+    [aux_sym_save_statement_token1] = ACTIONS(7456),
+    [aux_sym_private_statement_token1] = ACTIONS(7456),
+    [aux_sym_public_statement_token1] = ACTIONS(7456),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7456),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7456),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7456),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7456),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7456),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7456),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7456),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7456),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7456),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7456),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7456),
+    [anon_sym_SEMI] = ACTIONS(7454),
+    [aux_sym_stop_statement_token1] = ACTIONS(7456),
+    [aux_sym_stop_statement_token2] = ACTIONS(7456),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7456),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7456),
+    [aux_sym_data_statement_token1] = ACTIONS(7456),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7456),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7456),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7456),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7456),
+    [aux_sym_block_construct_token1] = ACTIONS(7456),
+    [aux_sym_format_statement_token1] = ACTIONS(7456),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7456),
+    [aux_sym_entry_statement_token1] = ACTIONS(7456),
+    [aux_sym_logical_expression_token5] = ACTIONS(7454),
+    [anon_sym_DOT] = ACTIONS(7456),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7454),
+    [anon_sym_LBRACK] = ACTIONS(7454),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7454),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7454),
+    [aux_sym_null_literal_token1] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7456),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7456),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7456),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7456),
+    [aux_sym_identifier_token1] = ACTIONS(7456),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7454),
+    [sym__float_literal] = ACTIONS(7454),
+    [sym__boz_literal] = ACTIONS(7454),
+    [sym__string_literal] = ACTIONS(7454),
+    [sym__string_literal_kind] = ACTIONS(7454),
+    [sym__external_end_of_statement] = ACTIONS(7454),
+  },
+  [3318] = {
+    [sym__preproc_expression] = STATE(5495),
+    [sym_preproc_parenthesized_expression] = STATE(5495),
+    [sym_preproc_defined] = STATE(5495),
+    [sym_preproc_unary_expression] = STATE(5495),
+    [sym_preproc_call_expression] = STATE(5495),
+    [sym_preproc_binary_expression] = STATE(5495),
+    [sym_number_literal] = STATE(5495),
+    [sym_string_literal] = STATE(5495),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481646,16 +481359,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3321] = {
-    [sym__preproc_expression] = STATE(5465),
-    [sym_preproc_parenthesized_expression] = STATE(5465),
-    [sym_preproc_defined] = STATE(5465),
-    [sym_preproc_unary_expression] = STATE(5465),
-    [sym_preproc_call_expression] = STATE(5465),
-    [sym_preproc_binary_expression] = STATE(5465),
-    [sym_number_literal] = STATE(5465),
-    [sym_string_literal] = STATE(5465),
-    [sym_identifier] = STATE(5347),
+  [3319] = {
+    [sym__preproc_expression] = STATE(5494),
+    [sym_preproc_parenthesized_expression] = STATE(5494),
+    [sym_preproc_defined] = STATE(5494),
+    [sym_preproc_unary_expression] = STATE(5494),
+    [sym_preproc_call_expression] = STATE(5494),
+    [sym_preproc_binary_expression] = STATE(5494),
+    [sym_number_literal] = STATE(5494),
+    [sym_string_literal] = STATE(5494),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481719,16 +481432,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3322] = {
-    [sym__preproc_expression] = STATE(5466),
-    [sym_preproc_parenthesized_expression] = STATE(5466),
-    [sym_preproc_defined] = STATE(5466),
-    [sym_preproc_unary_expression] = STATE(5466),
-    [sym_preproc_call_expression] = STATE(5466),
-    [sym_preproc_binary_expression] = STATE(5466),
-    [sym_number_literal] = STATE(5466),
-    [sym_string_literal] = STATE(5466),
-    [sym_identifier] = STATE(5347),
+  [3320] = {
+    [sym__preproc_expression] = STATE(5493),
+    [sym_preproc_parenthesized_expression] = STATE(5493),
+    [sym_preproc_defined] = STATE(5493),
+    [sym_preproc_unary_expression] = STATE(5493),
+    [sym_preproc_call_expression] = STATE(5493),
+    [sym_preproc_binary_expression] = STATE(5493),
+    [sym_number_literal] = STATE(5493),
+    [sym_string_literal] = STATE(5493),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481792,16 +481505,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3323] = {
-    [sym__preproc_expression] = STATE(5467),
-    [sym_preproc_parenthesized_expression] = STATE(5467),
-    [sym_preproc_defined] = STATE(5467),
-    [sym_preproc_unary_expression] = STATE(5467),
-    [sym_preproc_call_expression] = STATE(5467),
-    [sym_preproc_binary_expression] = STATE(5467),
-    [sym_number_literal] = STATE(5467),
-    [sym_string_literal] = STATE(5467),
-    [sym_identifier] = STATE(5347),
+  [3321] = {
+    [sym__preproc_expression] = STATE(5490),
+    [sym_preproc_parenthesized_expression] = STATE(5490),
+    [sym_preproc_defined] = STATE(5490),
+    [sym_preproc_unary_expression] = STATE(5490),
+    [sym_preproc_call_expression] = STATE(5490),
+    [sym_preproc_binary_expression] = STATE(5490),
+    [sym_number_literal] = STATE(5490),
+    [sym_string_literal] = STATE(5490),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481865,16 +481578,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3324] = {
-    [sym__preproc_expression] = STATE(5468),
-    [sym_preproc_parenthesized_expression] = STATE(5468),
-    [sym_preproc_defined] = STATE(5468),
-    [sym_preproc_unary_expression] = STATE(5468),
-    [sym_preproc_call_expression] = STATE(5468),
-    [sym_preproc_binary_expression] = STATE(5468),
-    [sym_number_literal] = STATE(5468),
-    [sym_string_literal] = STATE(5468),
-    [sym_identifier] = STATE(5347),
+  [3322] = {
+    [sym__preproc_expression] = STATE(5492),
+    [sym_preproc_parenthesized_expression] = STATE(5492),
+    [sym_preproc_defined] = STATE(5492),
+    [sym_preproc_unary_expression] = STATE(5492),
+    [sym_preproc_call_expression] = STATE(5492),
+    [sym_preproc_binary_expression] = STATE(5492),
+    [sym_number_literal] = STATE(5492),
+    [sym_string_literal] = STATE(5492),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -481938,16 +481651,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3325] = {
-    [sym__preproc_expression] = STATE(5474),
-    [sym_preproc_parenthesized_expression] = STATE(5474),
-    [sym_preproc_defined] = STATE(5474),
-    [sym_preproc_unary_expression] = STATE(5474),
-    [sym_preproc_call_expression] = STATE(5474),
-    [sym_preproc_binary_expression] = STATE(5474),
-    [sym_number_literal] = STATE(5474),
-    [sym_string_literal] = STATE(5474),
-    [sym_identifier] = STATE(5347),
+  [3323] = {
+    [sym__preproc_expression] = STATE(5491),
+    [sym_preproc_parenthesized_expression] = STATE(5491),
+    [sym_preproc_defined] = STATE(5491),
+    [sym_preproc_unary_expression] = STATE(5491),
+    [sym_preproc_call_expression] = STATE(5491),
+    [sym_preproc_binary_expression] = STATE(5491),
+    [sym_number_literal] = STATE(5491),
+    [sym_string_literal] = STATE(5491),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482011,16 +481724,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3326] = {
-    [sym__preproc_expression] = STATE(5481),
-    [sym_preproc_parenthesized_expression] = STATE(5481),
-    [sym_preproc_defined] = STATE(5481),
-    [sym_preproc_unary_expression] = STATE(5481),
-    [sym_preproc_call_expression] = STATE(5481),
-    [sym_preproc_binary_expression] = STATE(5481),
-    [sym_number_literal] = STATE(5481),
-    [sym_string_literal] = STATE(5481),
-    [sym_identifier] = STATE(5347),
+  [3324] = {
+    [sym__preproc_expression] = STATE(5518),
+    [sym_preproc_parenthesized_expression] = STATE(5518),
+    [sym_preproc_defined] = STATE(5518),
+    [sym_preproc_unary_expression] = STATE(5518),
+    [sym_preproc_call_expression] = STATE(5518),
+    [sym_preproc_binary_expression] = STATE(5518),
+    [sym_number_literal] = STATE(5518),
+    [sym_string_literal] = STATE(5518),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3325] = {
+    [sym__preproc_expression] = STATE(5455),
+    [sym_preproc_parenthesized_expression] = STATE(5455),
+    [sym_preproc_defined] = STATE(5455),
+    [sym_preproc_unary_expression] = STATE(5455),
+    [sym_preproc_call_expression] = STATE(5455),
+    [sym_preproc_binary_expression] = STATE(5455),
+    [sym_number_literal] = STATE(5455),
+    [sym_string_literal] = STATE(5455),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482084,16 +481870,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3327] = {
-    [sym__preproc_expression] = STATE(5399),
-    [sym_preproc_parenthesized_expression] = STATE(5399),
-    [sym_preproc_defined] = STATE(5399),
-    [sym_preproc_unary_expression] = STATE(5399),
-    [sym_preproc_call_expression] = STATE(5399),
-    [sym_preproc_binary_expression] = STATE(5399),
-    [sym_number_literal] = STATE(5399),
-    [sym_string_literal] = STATE(5399),
-    [sym_identifier] = STATE(5347),
+  [3326] = {
+    [sym__preproc_expression] = STATE(5486),
+    [sym_preproc_parenthesized_expression] = STATE(5486),
+    [sym_preproc_defined] = STATE(5486),
+    [sym_preproc_unary_expression] = STATE(5486),
+    [sym_preproc_call_expression] = STATE(5486),
+    [sym_preproc_binary_expression] = STATE(5486),
+    [sym_number_literal] = STATE(5486),
+    [sym_string_literal] = STATE(5486),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482157,16 +481943,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3328] = {
-    [sym__preproc_expression] = STATE(5485),
-    [sym_preproc_parenthesized_expression] = STATE(5485),
-    [sym_preproc_defined] = STATE(5485),
-    [sym_preproc_unary_expression] = STATE(5485),
-    [sym_preproc_call_expression] = STATE(5485),
-    [sym_preproc_binary_expression] = STATE(5485),
-    [sym_number_literal] = STATE(5485),
-    [sym_string_literal] = STATE(5485),
-    [sym_identifier] = STATE(5347),
+  [3327] = {
+    [sym__preproc_expression] = STATE(5464),
+    [sym_preproc_parenthesized_expression] = STATE(5464),
+    [sym_preproc_defined] = STATE(5464),
+    [sym_preproc_unary_expression] = STATE(5464),
+    [sym_preproc_call_expression] = STATE(5464),
+    [sym_preproc_binary_expression] = STATE(5464),
+    [sym_number_literal] = STATE(5464),
+    [sym_string_literal] = STATE(5464),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482230,16 +482016,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3329] = {
-    [sym__preproc_expression] = STATE(5486),
-    [sym_preproc_parenthesized_expression] = STATE(5486),
-    [sym_preproc_defined] = STATE(5486),
-    [sym_preproc_unary_expression] = STATE(5486),
-    [sym_preproc_call_expression] = STATE(5486),
-    [sym_preproc_binary_expression] = STATE(5486),
-    [sym_number_literal] = STATE(5486),
-    [sym_string_literal] = STATE(5486),
-    [sym_identifier] = STATE(5347),
+  [3328] = {
+    [sym__preproc_expression] = STATE(5467),
+    [sym_preproc_parenthesized_expression] = STATE(5467),
+    [sym_preproc_defined] = STATE(5467),
+    [sym_preproc_unary_expression] = STATE(5467),
+    [sym_preproc_call_expression] = STATE(5467),
+    [sym_preproc_binary_expression] = STATE(5467),
+    [sym_number_literal] = STATE(5467),
+    [sym_string_literal] = STATE(5467),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482303,7 +482089,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7366),
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
-  [3330] = {
+  [3329] = {
     [sym__preproc_expression] = STATE(5487),
     [sym_preproc_parenthesized_expression] = STATE(5487),
     [sym_preproc_defined] = STATE(5487),
@@ -482312,7 +482098,80 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_preproc_binary_expression] = STATE(5487),
     [sym_number_literal] = STATE(5487),
     [sym_string_literal] = STATE(5487),
-    [sym_identifier] = STATE(5347),
+    [sym_identifier] = STATE(5340),
+    [anon_sym_LPAREN2] = ACTIONS(7346),
+    [anon_sym_defined] = ACTIONS(7348),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
+    [aux_sym_use_statement_token2] = ACTIONS(7354),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
+    [aux_sym_save_statement_token1] = ACTIONS(7354),
+    [aux_sym_private_statement_token1] = ACTIONS(7354),
+    [aux_sym_public_statement_token1] = ACTIONS(7354),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
+    [aux_sym_stop_statement_token1] = ACTIONS(7354),
+    [aux_sym_stop_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
+    [aux_sym_data_statement_token1] = ACTIONS(7354),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
+    [aux_sym_block_construct_token1] = ACTIONS(7354),
+    [aux_sym_format_statement_token1] = ACTIONS(7354),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
+    [aux_sym_entry_statement_token1] = ACTIONS(7354),
+    [aux_sym_null_literal_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
+    [aux_sym_identifier_token1] = ACTIONS(7354),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7362),
+    [sym__float_literal] = ACTIONS(7362),
+    [sym__boz_literal] = ACTIONS(7362),
+    [sym__string_literal] = ACTIONS(7364),
+    [sym__string_literal_kind] = ACTIONS(7366),
+    [sym__preproc_unary_operator] = ACTIONS(7368),
+  },
+  [3330] = {
+    [sym__preproc_expression] = STATE(5535),
+    [sym_preproc_parenthesized_expression] = STATE(5535),
+    [sym_preproc_defined] = STATE(5535),
+    [sym_preproc_unary_expression] = STATE(5535),
+    [sym_preproc_call_expression] = STATE(5535),
+    [sym_preproc_binary_expression] = STATE(5535),
+    [sym_number_literal] = STATE(5535),
+    [sym_string_literal] = STATE(5535),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482377,88 +482236,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3331] = {
-    [sym__preproc_expression] = STATE(5488),
-    [sym_preproc_parenthesized_expression] = STATE(5488),
-    [sym_preproc_defined] = STATE(5488),
-    [sym_preproc_unary_expression] = STATE(5488),
-    [sym_preproc_call_expression] = STATE(5488),
-    [sym_preproc_binary_expression] = STATE(5488),
-    [sym_number_literal] = STATE(5488),
-    [sym_string_literal] = STATE(5488),
-    [sym_identifier] = STATE(5347),
-    [anon_sym_LPAREN2] = ACTIONS(7346),
-    [anon_sym_defined] = ACTIONS(7348),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7352),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7354),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7354),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7354),
-    [aux_sym_use_statement_token2] = ACTIONS(7354),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7354),
-    [aux_sym_save_statement_token1] = ACTIONS(7354),
-    [aux_sym_private_statement_token1] = ACTIONS(7354),
-    [aux_sym_public_statement_token1] = ACTIONS(7354),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7354),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7354),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7354),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7356),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7358),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7354),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7354),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7354),
-    [aux_sym_stop_statement_token1] = ACTIONS(7354),
-    [aux_sym_stop_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7354),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7354),
-    [aux_sym_data_statement_token1] = ACTIONS(7354),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7354),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7354),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7360),
-    [aux_sym_block_construct_token1] = ACTIONS(7354),
-    [aux_sym_format_statement_token1] = ACTIONS(7354),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7354),
-    [aux_sym_entry_statement_token1] = ACTIONS(7354),
-    [aux_sym_null_literal_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7354),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7354),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7354),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7354),
-    [aux_sym_identifier_token1] = ACTIONS(7354),
-    [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7362),
-    [sym__float_literal] = ACTIONS(7362),
-    [sym__boz_literal] = ACTIONS(7362),
-    [sym__string_literal] = ACTIONS(7364),
-    [sym__string_literal_kind] = ACTIONS(7366),
-    [sym__preproc_unary_operator] = ACTIONS(7368),
-  },
-  [3332] = {
-    [sym__preproc_expression] = STATE(5413),
-    [sym_preproc_parenthesized_expression] = STATE(5413),
-    [sym_preproc_defined] = STATE(5413),
-    [sym_preproc_unary_expression] = STATE(5413),
-    [sym_preproc_call_expression] = STATE(5413),
-    [sym_preproc_binary_expression] = STATE(5413),
-    [sym_number_literal] = STATE(5413),
-    [sym_string_literal] = STATE(5413),
-    [sym_identifier] = STATE(5347),
+    [sym__preproc_expression] = STATE(5481),
+    [sym_preproc_parenthesized_expression] = STATE(5481),
+    [sym_preproc_defined] = STATE(5481),
+    [sym_preproc_unary_expression] = STATE(5481),
+    [sym_preproc_call_expression] = STATE(5481),
+    [sym_preproc_binary_expression] = STATE(5481),
+    [sym_number_literal] = STATE(5481),
+    [sym_string_literal] = STATE(5481),
+    [sym_identifier] = STATE(5341),
+    [anon_sym_LPAREN2] = ACTIONS(7374),
+    [anon_sym_defined] = ACTIONS(7376),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7378),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7380),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7380),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7380),
+    [aux_sym_use_statement_token2] = ACTIONS(7380),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7380),
+    [aux_sym_save_statement_token1] = ACTIONS(7380),
+    [aux_sym_private_statement_token1] = ACTIONS(7380),
+    [aux_sym_public_statement_token1] = ACTIONS(7380),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7380),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7380),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7380),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7382),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7384),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7380),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7380),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7380),
+    [aux_sym_stop_statement_token1] = ACTIONS(7380),
+    [aux_sym_stop_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7380),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7380),
+    [aux_sym_data_statement_token1] = ACTIONS(7380),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7380),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7380),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7386),
+    [aux_sym_block_construct_token1] = ACTIONS(7380),
+    [aux_sym_format_statement_token1] = ACTIONS(7380),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7380),
+    [aux_sym_entry_statement_token1] = ACTIONS(7380),
+    [aux_sym_null_literal_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7380),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7380),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7380),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7380),
+    [aux_sym_identifier_token1] = ACTIONS(7380),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7388),
+    [sym__float_literal] = ACTIONS(7388),
+    [sym__boz_literal] = ACTIONS(7388),
+    [sym__string_literal] = ACTIONS(7390),
+    [sym__string_literal_kind] = ACTIONS(7392),
+    [sym__preproc_unary_operator] = ACTIONS(7394),
+  },
+  [3332] = {
+    [sym__preproc_expression] = STATE(5468),
+    [sym_preproc_parenthesized_expression] = STATE(5468),
+    [sym_preproc_defined] = STATE(5468),
+    [sym_preproc_unary_expression] = STATE(5468),
+    [sym_preproc_call_expression] = STATE(5468),
+    [sym_preproc_binary_expression] = STATE(5468),
+    [sym_number_literal] = STATE(5468),
+    [sym_string_literal] = STATE(5468),
+    [sym_identifier] = STATE(5340),
     [anon_sym_LPAREN2] = ACTIONS(7346),
     [anon_sym_defined] = ACTIONS(7348),
     [anon_sym_AMP] = ACTIONS(21),
@@ -482523,76 +482382,76 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__preproc_unary_operator] = ACTIONS(7368),
   },
   [3333] = {
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
     [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [anon_sym_SEMI] = ACTIONS(4287),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(4287),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [anon_sym_SEMI] = ACTIONS(4345),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(4345),
   },
   [3334] = {
     [anon_sym_LPAREN2] = ACTIONS(7458),
@@ -482667,17 +482526,17 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__string_literal_kind] = ACTIONS(7460),
   },
   [3335] = {
-    [sym_statement_label] = STATE(4019),
-    [sym_statement_label_reference] = STATE(3950),
-    [sym_while_statement] = STATE(6499),
-    [sym_concurrent_statement] = STATE(6499),
-    [sym_concurrent_header] = STATE(5774),
-    [sym_loop_control_expression] = STATE(6499),
-    [sym_identifier] = STATE(7861),
-    [sym__end_of_statement] = STATE(688),
+    [sym_statement_label] = STATE(4003),
+    [sym_statement_label_reference] = STATE(3972),
+    [sym_while_statement] = STATE(7029),
+    [sym_concurrent_statement] = STATE(7029),
+    [sym_concurrent_header] = STATE(5770),
+    [sym_loop_control_expression] = STATE(7029),
+    [sym_identifier] = STATE(7970),
+    [sym__end_of_statement] = STATE(660),
     [anon_sym_COMMA] = ACTIONS(7462),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -482737,37 +482596,48 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7464),
   },
   [3336] = {
-    [anon_sym_LPAREN2] = ACTIONS(7472),
-    [anon_sym_PLUS] = ACTIONS(7474),
-    [anon_sym_DASH] = ACTIONS(7474),
+    [sym_language_binding] = STATE(3336),
+    [sym_variable_attributes] = STATE(3336),
+    [sym__standalone_type_qualifier] = STATE(3427),
+    [aux_sym_variable_modification_repeat1] = STATE(3336),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(7472),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(7472),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(7472),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7472),
-    [aux_sym_use_statement_token2] = ACTIONS(7472),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7472),
-    [aux_sym_save_statement_token1] = ACTIONS(7472),
-    [aux_sym_private_statement_token1] = ACTIONS(7472),
-    [aux_sym_public_statement_token1] = ACTIONS(7472),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7472),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7472),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7472),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7472),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7472),
+    [aux_sym_language_binding_token1] = ACTIONS(7474),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7477),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7480),
+    [aux_sym_use_statement_token2] = ACTIONS(7480),
+    [anon_sym_COLON_COLON] = ACTIONS(7483),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7480),
+    [aux_sym_save_statement_token1] = ACTIONS(7480),
+    [aux_sym_private_statement_token1] = ACTIONS(7480),
+    [aux_sym_public_statement_token1] = ACTIONS(7480),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7480),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(7480),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7480),
+    [aux_sym_variable_attributes_token1] = ACTIONS(7480),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7480),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7480),
+    [aux_sym_variable_attributes_token4] = ACTIONS(7480),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7480),
     [aux_sym__intrinsic_type_token1] = ACTIONS(7472),
     [aux_sym__intrinsic_type_token3] = ACTIONS(7472),
     [aux_sym__intrinsic_type_token4] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7472),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7472),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7485),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7488),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7491),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7494),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7480),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7480),
     [aux_sym_type_qualifier_token1] = ACTIONS(7472),
     [aux_sym_type_qualifier_token2] = ACTIONS(7472),
     [aux_sym_stop_statement_token1] = ACTIONS(7472),
@@ -482783,12 +482653,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_format_statement_token1] = ACTIONS(7472),
     [aux_sym_inquire_statement_token1] = ACTIONS(7472),
     [aux_sym_entry_statement_token1] = ACTIONS(7472),
-    [aux_sym_logical_expression_token5] = ACTIONS(7474),
-    [anon_sym_DOT] = ACTIONS(7472),
-    [anon_sym_LPAREN_SLASH] = ACTIONS(7474),
-    [anon_sym_LBRACK] = ACTIONS(7474),
-    [aux_sym_boolean_literal_token1] = ACTIONS(7474),
-    [aux_sym_boolean_literal_token2] = ACTIONS(7474),
     [aux_sym_null_literal_token1] = ACTIONS(7472),
     [aux_sym_coarray_statement_token1] = ACTIONS(7472),
     [aux_sym_coarray_statement_token2] = ACTIONS(7472),
@@ -482800,171 +482664,97 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(7472),
     [aux_sym_identifier_token1] = ACTIONS(7472),
     [sym_comment] = ACTIONS(21),
-    [sym__integer_literal] = ACTIONS(7474),
-    [sym__float_literal] = ACTIONS(7474),
-    [sym__boz_literal] = ACTIONS(7474),
-    [sym__string_literal] = ACTIONS(7474),
-    [sym__string_literal_kind] = ACTIONS(7474),
   },
   [3337] = {
-    [sym_language_binding] = STATE(3337),
-    [sym_variable_attributes] = STATE(3337),
-    [sym__standalone_type_qualifier] = STATE(3436),
-    [aux_sym_variable_modification_repeat1] = STATE(3337),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7476),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7476),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7476),
-    [aux_sym_language_binding_token1] = ACTIONS(7478),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7481),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7484),
-    [aux_sym_use_statement_token2] = ACTIONS(7484),
-    [anon_sym_COLON_COLON] = ACTIONS(7487),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7484),
-    [aux_sym_save_statement_token1] = ACTIONS(7484),
-    [aux_sym_private_statement_token1] = ACTIONS(7484),
-    [aux_sym_public_statement_token1] = ACTIONS(7484),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7484),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(7484),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7484),
-    [aux_sym_variable_attributes_token1] = ACTIONS(7484),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7484),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7484),
-    [aux_sym_variable_attributes_token4] = ACTIONS(7484),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7484),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7476),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7476),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7476),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7489),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7492),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7498),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7484),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7484),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7476),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7476),
-    [aux_sym_stop_statement_token1] = ACTIONS(7476),
-    [aux_sym_stop_statement_token2] = ACTIONS(7476),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7476),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7476),
-    [aux_sym_data_statement_token1] = ACTIONS(7476),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7476),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7476),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7476),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7476),
-    [aux_sym_block_construct_token1] = ACTIONS(7476),
-    [aux_sym_format_statement_token1] = ACTIONS(7476),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7476),
-    [aux_sym_entry_statement_token1] = ACTIONS(7476),
-    [aux_sym_null_literal_token1] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7476),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7476),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7476),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7476),
-    [aux_sym_identifier_token1] = ACTIONS(7476),
-    [sym_comment] = ACTIONS(21),
+    [anon_sym_LPAREN2] = ACTIONS(7497),
+    [anon_sym_PLUS] = ACTIONS(7499),
+    [anon_sym_DASH] = ACTIONS(7499),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7497),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7497),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7497),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7497),
+    [aux_sym_use_statement_token2] = ACTIONS(7497),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7497),
+    [aux_sym_save_statement_token1] = ACTIONS(7497),
+    [aux_sym_private_statement_token1] = ACTIONS(7497),
+    [aux_sym_public_statement_token1] = ACTIONS(7497),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7497),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7497),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7497),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7497),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7497),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7497),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7497),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7497),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7497),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7497),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7497),
+    [aux_sym_stop_statement_token1] = ACTIONS(7497),
+    [aux_sym_stop_statement_token2] = ACTIONS(7497),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7497),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7497),
+    [aux_sym_data_statement_token1] = ACTIONS(7497),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7497),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7497),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7497),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7497),
+    [aux_sym_block_construct_token1] = ACTIONS(7497),
+    [aux_sym_format_statement_token1] = ACTIONS(7497),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7497),
+    [aux_sym_entry_statement_token1] = ACTIONS(7497),
+    [aux_sym_logical_expression_token5] = ACTIONS(7499),
+    [anon_sym_DOT] = ACTIONS(7497),
+    [anon_sym_LPAREN_SLASH] = ACTIONS(7499),
+    [anon_sym_LBRACK] = ACTIONS(7499),
+    [aux_sym_boolean_literal_token1] = ACTIONS(7499),
+    [aux_sym_boolean_literal_token2] = ACTIONS(7499),
+    [aux_sym_null_literal_token1] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7497),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7497),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7497),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7497),
+    [aux_sym_identifier_token1] = ACTIONS(7497),
+    [sym_comment] = ACTIONS(21),
+    [sym__integer_literal] = ACTIONS(7499),
+    [sym__float_literal] = ACTIONS(7499),
+    [sym__boz_literal] = ACTIONS(7499),
+    [sym__string_literal] = ACTIONS(7499),
+    [sym__string_literal_kind] = ACTIONS(7499),
   },
   [3338] = {
-    [sym__argument_list] = STATE(2550),
-    [sym_argument_list] = STATE(3409),
-    [anon_sym_LPAREN2] = ACTIONS(6702),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3339] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6263),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6263),
-    [sym_identifier] = STATE(6418),
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6129),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6129),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3345),
     [anon_sym_COMMA] = ACTIONS(7501),
-    [anon_sym_LPAREN2] = ACTIONS(7503),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7511),
+    [anon_sym_COLON_COLON] = ACTIONS(7509),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483014,26 +482804,26 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3340] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6163),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6163),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3715),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3339] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6108),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6108),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3735),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7515),
+    [anon_sym_COLON_COLON] = ACTIONS(7511),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483083,95 +482873,26 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3341] = {
-    [sym_character_length] = STATE(3465),
-    [sym__argument_list] = STATE(3170),
-    [sym_argument_list] = STATE(3466),
-    [sym_coarray_index] = STATE(3545),
-    [anon_sym_COMMA] = ACTIONS(7517),
-    [anon_sym_LPAREN2] = ACTIONS(7519),
-    [anon_sym_STAR] = ACTIONS(7521),
-    [anon_sym_SLASH] = ACTIONS(7517),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7523),
-    [anon_sym_EQ] = ACTIONS(7523),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7523),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7523),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7523),
-    [aux_sym_use_statement_token2] = ACTIONS(7523),
-    [anon_sym_EQ_GT] = ACTIONS(7517),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7523),
-    [aux_sym_save_statement_token1] = ACTIONS(7523),
-    [aux_sym_private_statement_token1] = ACTIONS(7523),
-    [aux_sym_public_statement_token1] = ACTIONS(7523),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7523),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7523),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7523),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7523),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7523),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7523),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7523),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7523),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7523),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7523),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7523),
-    [anon_sym_SEMI] = ACTIONS(7517),
-    [aux_sym_stop_statement_token1] = ACTIONS(7523),
-    [aux_sym_stop_statement_token2] = ACTIONS(7523),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7523),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7523),
-    [aux_sym_data_statement_token1] = ACTIONS(7523),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7523),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7523),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7523),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7523),
-    [aux_sym_block_construct_token1] = ACTIONS(7523),
-    [aux_sym_format_statement_token1] = ACTIONS(7523),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7523),
-    [aux_sym_entry_statement_token1] = ACTIONS(7523),
-    [anon_sym_LBRACK] = ACTIONS(7525),
-    [aux_sym_null_literal_token1] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7523),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7523),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7523),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7523),
-    [aux_sym_identifier_token1] = ACTIONS(7523),
-    [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7517),
-  },
-  [3342] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6302),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6302),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3344),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3340] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6177),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6177),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3735),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7527),
+    [anon_sym_COLON_COLON] = ACTIONS(7513),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483221,26 +482942,95 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3343] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6205),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6205),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3349),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3341] = {
+    [sym_character_length] = STATE(3499),
+    [sym__argument_list] = STATE(3169),
+    [sym_argument_list] = STATE(3506),
+    [sym_coarray_index] = STATE(3562),
+    [anon_sym_COMMA] = ACTIONS(7515),
+    [anon_sym_LPAREN2] = ACTIONS(7517),
+    [anon_sym_STAR] = ACTIONS(7519),
+    [anon_sym_SLASH] = ACTIONS(7515),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7521),
+    [anon_sym_EQ] = ACTIONS(7521),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7521),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7521),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7521),
+    [aux_sym_use_statement_token2] = ACTIONS(7521),
+    [anon_sym_EQ_GT] = ACTIONS(7515),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7521),
+    [aux_sym_save_statement_token1] = ACTIONS(7521),
+    [aux_sym_private_statement_token1] = ACTIONS(7521),
+    [aux_sym_public_statement_token1] = ACTIONS(7521),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7521),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7521),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7521),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7521),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7521),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7521),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7521),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7521),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7521),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7521),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7521),
+    [anon_sym_SEMI] = ACTIONS(7515),
+    [aux_sym_stop_statement_token1] = ACTIONS(7521),
+    [aux_sym_stop_statement_token2] = ACTIONS(7521),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7521),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7521),
+    [aux_sym_data_statement_token1] = ACTIONS(7521),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7521),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7521),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7521),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7521),
+    [aux_sym_block_construct_token1] = ACTIONS(7521),
+    [aux_sym_format_statement_token1] = ACTIONS(7521),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7521),
+    [aux_sym_entry_statement_token1] = ACTIONS(7521),
+    [anon_sym_LBRACK] = ACTIONS(7523),
+    [aux_sym_null_literal_token1] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7521),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7521),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7521),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7521),
+    [aux_sym_identifier_token1] = ACTIONS(7521),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7515),
+  },
+  [3342] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6183),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6183),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3735),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7529),
+    [anon_sym_COLON_COLON] = ACTIONS(7525),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483290,23 +483080,23 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3344] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6090),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6090),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3715),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3343] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6091),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6091),
+    [sym_identifier] = STATE(6413),
+    [anon_sym_COMMA] = ACTIONS(7527),
+    [anon_sym_LPAREN2] = ACTIONS(7529),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7531),
@@ -483359,23 +483149,23 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3345] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6140),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6140),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3715),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3344] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6142),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6142),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3339),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7533),
@@ -483428,26 +483218,26 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3346] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6097),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6097),
-    [sym_identifier] = STATE(6418),
-    [anon_sym_COMMA] = ACTIONS(7535),
-    [anon_sym_LPAREN2] = ACTIONS(7537),
+  [3345] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6167),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6167),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3735),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7539),
+    [anon_sym_COLON_COLON] = ACTIONS(7535),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483497,26 +483287,26 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3347] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6176),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6176),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3340),
-    [anon_sym_COMMA] = ACTIONS(7513),
+  [3346] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6172),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6172),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3342),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7541),
+    [anon_sym_COLON_COLON] = ACTIONS(7537),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -483566,23 +483356,92 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
+  [3347] = {
+    [sym__argument_list] = STATE(2445),
+    [sym_argument_list] = STATE(3430),
+    [anon_sym_LPAREN2] = ACTIONS(6702),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+  },
   [3348] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6115),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6115),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3345),
-    [anon_sym_COMMA] = ACTIONS(7513),
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6092),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6092),
+    [sym_identifier] = STATE(6413),
+    [anon_sym_COMMA] = ACTIONS(7539),
+    [anon_sym_LPAREN2] = ACTIONS(7541),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7543),
@@ -483636,22 +483495,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
   },
   [3349] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6255),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6255),
-    [sym_identifier] = STATE(6418),
-    [aux_sym_procedure_statement_repeat1] = STATE(3715),
-    [anon_sym_COMMA] = ACTIONS(7513),
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6209),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6209),
+    [sym_identifier] = STATE(6413),
+    [aux_sym_procedure_statement_repeat1] = STATE(3340),
+    [anon_sym_COMMA] = ACTIONS(7501),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [anon_sym_COLON_COLON] = ACTIONS(7545),
@@ -483751,386 +483610,46 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_procedure_qualifier_token4] = ACTIONS(7549),
     [aux_sym_procedure_qualifier_token5] = ACTIONS(7549),
     [anon_sym_GT_GT_GT] = ACTIONS(7549),
-    [aux_sym_include_statement_token1] = ACTIONS(7549),
-    [aux_sym_logical_expression_token1] = ACTIONS(7549),
-    [aux_sym_logical_expression_token2] = ACTIONS(7549),
-    [aux_sym_logical_expression_token3] = ACTIONS(7549),
-    [aux_sym_logical_expression_token4] = ACTIONS(7549),
-    [aux_sym_relational_expression_token1] = ACTIONS(7549),
-    [aux_sym_relational_expression_token2] = ACTIONS(7549),
-    [aux_sym_relational_expression_token3] = ACTIONS(7549),
-    [aux_sym_relational_expression_token4] = ACTIONS(7549),
-    [aux_sym_relational_expression_token5] = ACTIONS(7549),
-    [anon_sym_SLASH_EQ] = ACTIONS(7549),
-    [aux_sym_relational_expression_token6] = ACTIONS(7549),
-    [anon_sym_SLASH_SLASH] = ACTIONS(7549),
-    [anon_sym_STAR_STAR] = ACTIONS(7549),
-    [anon_sym_DOT] = ACTIONS(7547),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(7549),
-    [anon_sym_LBRACK] = ACTIONS(7549),
-    [anon_sym_RBRACK] = ACTIONS(7549),
-    [anon_sym_QMARK] = ACTIONS(7549),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3351] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4289),
-    [aux_sym_preproc_def_token1] = ACTIONS(4289),
-    [anon_sym_COMMA] = ACTIONS(4291),
-    [anon_sym_RPAREN] = ACTIONS(4291),
-    [aux_sym_preproc_if_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4289),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4289),
-    [sym_preproc_directive] = ACTIONS(4289),
-    [anon_sym_LPAREN2] = ACTIONS(4291),
-    [anon_sym_PLUS] = ACTIONS(4291),
-    [anon_sym_DASH] = ACTIONS(4291),
-    [anon_sym_STAR] = ACTIONS(4289),
-    [anon_sym_SLASH] = ACTIONS(4289),
-    [anon_sym_PERCENT] = ACTIONS(4291),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4291),
-    [anon_sym_GT] = ACTIONS(4289),
-    [anon_sym_GT_EQ] = ACTIONS(4291),
-    [anon_sym_LT_EQ] = ACTIONS(4291),
-    [anon_sym_LT] = ACTIONS(4289),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4289),
-    [aux_sym_module_statement_token1] = ACTIONS(4291),
-    [aux_sym_end_interface_statement_token1] = ACTIONS(4291),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4291),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4291),
-    [aux_sym_function_statement_token1] = ACTIONS(4291),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4291),
-    [anon_sym_COLON_COLON] = ACTIONS(4291),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4291),
-    [aux_sym_import_statement_token1] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4291),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4289),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4291),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4291),
-    [aux_sym_derived_type_token1] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4291),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4291),
-    [aux_sym_logical_expression_token1] = ACTIONS(4291),
-    [aux_sym_logical_expression_token2] = ACTIONS(4291),
-    [aux_sym_logical_expression_token3] = ACTIONS(4291),
-    [aux_sym_logical_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token1] = ACTIONS(4291),
-    [aux_sym_relational_expression_token2] = ACTIONS(4291),
-    [aux_sym_relational_expression_token3] = ACTIONS(4291),
-    [aux_sym_relational_expression_token4] = ACTIONS(4291),
-    [aux_sym_relational_expression_token5] = ACTIONS(4291),
-    [anon_sym_SLASH_EQ] = ACTIONS(4291),
-    [aux_sym_relational_expression_token6] = ACTIONS(4291),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4291),
-    [anon_sym_STAR_STAR] = ACTIONS(4291),
-    [anon_sym_DOT] = ACTIONS(4289),
-    [anon_sym_LBRACK] = ACTIONS(4291),
-    [anon_sym_QMARK] = ACTIONS(4291),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3352] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_RPAREN] = ACTIONS(4287),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_module_statement_token1] = ACTIONS(4287),
-    [aux_sym_end_interface_statement_token1] = ACTIONS(4287),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4287),
-    [aux_sym_function_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4287),
-    [anon_sym_COLON_COLON] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4287),
-    [aux_sym_import_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4287),
-    [aux_sym_derived_type_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4287),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3353] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6110),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6110),
-    [sym_identifier] = STATE(6418),
-    [anon_sym_COMMA] = ACTIONS(7551),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7553),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3354] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4285),
-    [aux_sym_preproc_def_token1] = ACTIONS(4285),
-    [anon_sym_COMMA] = ACTIONS(4287),
-    [anon_sym_RPAREN] = ACTIONS(4287),
-    [aux_sym_preproc_if_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4285),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4285),
-    [sym_preproc_directive] = ACTIONS(4285),
-    [anon_sym_LPAREN2] = ACTIONS(4287),
-    [anon_sym_PLUS] = ACTIONS(4287),
-    [anon_sym_DASH] = ACTIONS(4287),
-    [anon_sym_STAR] = ACTIONS(4285),
-    [anon_sym_SLASH] = ACTIONS(4285),
-    [anon_sym_PERCENT] = ACTIONS(4287),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4287),
-    [anon_sym_GT] = ACTIONS(4285),
-    [anon_sym_GT_EQ] = ACTIONS(4287),
-    [anon_sym_LT_EQ] = ACTIONS(4287),
-    [anon_sym_LT] = ACTIONS(4285),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4285),
-    [aux_sym_module_statement_token1] = ACTIONS(4287),
-    [aux_sym_end_interface_statement_token1] = ACTIONS(4287),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4287),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4287),
-    [aux_sym_function_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4287),
-    [anon_sym_COLON_COLON] = ACTIONS(4287),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4287),
-    [aux_sym_import_statement_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4287),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4285),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4287),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4287),
-    [aux_sym_derived_type_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4287),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4287),
-    [aux_sym_logical_expression_token1] = ACTIONS(4287),
-    [aux_sym_logical_expression_token2] = ACTIONS(4287),
-    [aux_sym_logical_expression_token3] = ACTIONS(4287),
-    [aux_sym_logical_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token1] = ACTIONS(4287),
-    [aux_sym_relational_expression_token2] = ACTIONS(4287),
-    [aux_sym_relational_expression_token3] = ACTIONS(4287),
-    [aux_sym_relational_expression_token4] = ACTIONS(4287),
-    [aux_sym_relational_expression_token5] = ACTIONS(4287),
-    [anon_sym_SLASH_EQ] = ACTIONS(4287),
-    [aux_sym_relational_expression_token6] = ACTIONS(4287),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4287),
-    [anon_sym_STAR_STAR] = ACTIONS(4287),
-    [anon_sym_DOT] = ACTIONS(4285),
-    [anon_sym_LBRACK] = ACTIONS(4287),
-    [anon_sym_QMARK] = ACTIONS(4287),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3355] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(4297),
-    [aux_sym_preproc_def_token1] = ACTIONS(4297),
-    [anon_sym_COMMA] = ACTIONS(4299),
-    [anon_sym_RPAREN] = ACTIONS(4299),
-    [aux_sym_preproc_if_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(4297),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(4297),
-    [sym_preproc_directive] = ACTIONS(4297),
-    [anon_sym_LPAREN2] = ACTIONS(4299),
-    [anon_sym_PLUS] = ACTIONS(4299),
-    [anon_sym_DASH] = ACTIONS(4299),
-    [anon_sym_STAR] = ACTIONS(4297),
-    [anon_sym_SLASH] = ACTIONS(4297),
-    [anon_sym_PERCENT] = ACTIONS(4299),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(4299),
-    [anon_sym_GT] = ACTIONS(4297),
-    [anon_sym_GT_EQ] = ACTIONS(4299),
-    [anon_sym_LT_EQ] = ACTIONS(4299),
-    [anon_sym_LT] = ACTIONS(4297),
-    [aux_sym_end_program_statement_token1] = ACTIONS(4297),
-    [aux_sym_module_statement_token1] = ACTIONS(4299),
-    [aux_sym_end_interface_statement_token1] = ACTIONS(4299),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(4299),
-    [aux_sym_module_procedure_statement_token1] = ACTIONS(4299),
-    [aux_sym_function_statement_token1] = ACTIONS(4299),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(4299),
-    [anon_sym_COLON_COLON] = ACTIONS(4299),
-    [aux_sym_implicit_statement_token3] = ACTIONS(4299),
-    [aux_sym_import_statement_token1] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token1] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token2] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token3] = ACTIONS(4299),
-    [aux_sym_procedure_kind_token4] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(4297),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(4299),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(4299),
-    [aux_sym_derived_type_token1] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(4299),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(4299),
-    [aux_sym_logical_expression_token1] = ACTIONS(4299),
-    [aux_sym_logical_expression_token2] = ACTIONS(4299),
-    [aux_sym_logical_expression_token3] = ACTIONS(4299),
-    [aux_sym_logical_expression_token4] = ACTIONS(4299),
-    [aux_sym_relational_expression_token1] = ACTIONS(4299),
-    [aux_sym_relational_expression_token2] = ACTIONS(4299),
-    [aux_sym_relational_expression_token3] = ACTIONS(4299),
-    [aux_sym_relational_expression_token4] = ACTIONS(4299),
-    [aux_sym_relational_expression_token5] = ACTIONS(4299),
-    [anon_sym_SLASH_EQ] = ACTIONS(4299),
-    [aux_sym_relational_expression_token6] = ACTIONS(4299),
-    [anon_sym_SLASH_SLASH] = ACTIONS(4299),
-    [anon_sym_STAR_STAR] = ACTIONS(4299),
-    [anon_sym_DOT] = ACTIONS(4297),
-    [anon_sym_LBRACK] = ACTIONS(4299),
-    [anon_sym_QMARK] = ACTIONS(4299),
+    [aux_sym_include_statement_token1] = ACTIONS(7549),
+    [aux_sym_logical_expression_token1] = ACTIONS(7549),
+    [aux_sym_logical_expression_token2] = ACTIONS(7549),
+    [aux_sym_logical_expression_token3] = ACTIONS(7549),
+    [aux_sym_logical_expression_token4] = ACTIONS(7549),
+    [aux_sym_relational_expression_token1] = ACTIONS(7549),
+    [aux_sym_relational_expression_token2] = ACTIONS(7549),
+    [aux_sym_relational_expression_token3] = ACTIONS(7549),
+    [aux_sym_relational_expression_token4] = ACTIONS(7549),
+    [aux_sym_relational_expression_token5] = ACTIONS(7549),
+    [anon_sym_SLASH_EQ] = ACTIONS(7549),
+    [aux_sym_relational_expression_token6] = ACTIONS(7549),
+    [anon_sym_SLASH_SLASH] = ACTIONS(7549),
+    [anon_sym_STAR_STAR] = ACTIONS(7549),
+    [anon_sym_DOT] = ACTIONS(7547),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(7549),
+    [anon_sym_LBRACK] = ACTIONS(7549),
+    [anon_sym_RBRACK] = ACTIONS(7549),
+    [anon_sym_QMARK] = ACTIONS(7549),
     [sym_comment] = ACTIONS(21),
   },
-  [3356] = {
-    [sym_assignment] = STATE(7884),
-    [sym_operator] = STATE(7884),
-    [sym_defined_io_procedure] = STATE(7884),
-    [sym__generic_procedure] = STATE(7884),
-    [sym_binding] = STATE(6142),
-    [sym_binding_name] = STATE(8144),
-    [sym_method_name] = STATE(6142),
-    [sym_identifier] = STATE(6418),
-    [anon_sym_COMMA] = ACTIONS(7555),
+  [3351] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6159),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6159),
+    [sym_identifier] = STATE(6413),
+    [anon_sym_COMMA] = ACTIONS(7551),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(7505),
-    [aux_sym_operator_token1] = ACTIONS(7507),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7509),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7509),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7557),
+    [anon_sym_COLON_COLON] = ACTIONS(7553),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484180,90 +483699,365 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
   },
-  [3357] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(7559),
-    [aux_sym_preproc_def_token1] = ACTIONS(7559),
-    [anon_sym_COMMA] = ACTIONS(7561),
-    [anon_sym_RPAREN] = ACTIONS(7561),
-    [aux_sym_preproc_if_token1] = ACTIONS(7559),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(7559),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(7559),
-    [sym_preproc_directive] = ACTIONS(7559),
-    [anon_sym_LPAREN2] = ACTIONS(7561),
-    [anon_sym_PLUS] = ACTIONS(7561),
-    [anon_sym_DASH] = ACTIONS(7561),
-    [anon_sym_STAR] = ACTIONS(7559),
-    [anon_sym_SLASH] = ACTIONS(7559),
-    [anon_sym_PERCENT] = ACTIONS(7561),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(7561),
-    [anon_sym_GT] = ACTIONS(7559),
-    [anon_sym_GT_EQ] = ACTIONS(7561),
-    [anon_sym_LT_EQ] = ACTIONS(7561),
-    [anon_sym_LT] = ACTIONS(7559),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7559),
-    [aux_sym_end_program_statement_token2] = ACTIONS(7561),
-    [aux_sym_module_statement_token1] = ACTIONS(7561),
-    [anon_sym_COLON] = ACTIONS(7561),
-    [anon_sym_EQ] = ACTIONS(7559),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7561),
-    [aux_sym_function_statement_token1] = ACTIONS(7561),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7561),
-    [anon_sym_EQ_GT] = ACTIONS(7561),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7559),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7561),
-    [aux_sym_derived_type_token1] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7561),
-    [anon_sym_GT_GT_GT] = ACTIONS(7561),
-    [aux_sym_include_statement_token1] = ACTIONS(7561),
-    [aux_sym_logical_expression_token1] = ACTIONS(7561),
-    [aux_sym_logical_expression_token2] = ACTIONS(7561),
-    [aux_sym_logical_expression_token3] = ACTIONS(7561),
-    [aux_sym_logical_expression_token4] = ACTIONS(7561),
-    [aux_sym_relational_expression_token1] = ACTIONS(7561),
-    [aux_sym_relational_expression_token2] = ACTIONS(7561),
-    [aux_sym_relational_expression_token3] = ACTIONS(7561),
-    [aux_sym_relational_expression_token4] = ACTIONS(7561),
-    [aux_sym_relational_expression_token5] = ACTIONS(7561),
-    [anon_sym_SLASH_EQ] = ACTIONS(7561),
-    [aux_sym_relational_expression_token6] = ACTIONS(7561),
-    [anon_sym_SLASH_SLASH] = ACTIONS(7561),
-    [anon_sym_STAR_STAR] = ACTIONS(7561),
-    [anon_sym_DOT] = ACTIONS(7559),
-    [anon_sym_SLASH_RPAREN] = ACTIONS(7561),
-    [anon_sym_LBRACK] = ACTIONS(7561),
-    [anon_sym_RBRACK] = ACTIONS(7561),
-    [anon_sym_QMARK] = ACTIONS(7561),
+  [3352] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(7555),
+    [aux_sym_preproc_def_token1] = ACTIONS(7555),
+    [anon_sym_COMMA] = ACTIONS(7557),
+    [anon_sym_RPAREN] = ACTIONS(7557),
+    [aux_sym_preproc_if_token1] = ACTIONS(7555),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(7555),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(7555),
+    [sym_preproc_directive] = ACTIONS(7555),
+    [anon_sym_LPAREN2] = ACTIONS(7557),
+    [anon_sym_PLUS] = ACTIONS(7557),
+    [anon_sym_DASH] = ACTIONS(7557),
+    [anon_sym_STAR] = ACTIONS(7555),
+    [anon_sym_SLASH] = ACTIONS(7555),
+    [anon_sym_PERCENT] = ACTIONS(7557),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(7557),
+    [anon_sym_GT] = ACTIONS(7555),
+    [anon_sym_GT_EQ] = ACTIONS(7557),
+    [anon_sym_LT_EQ] = ACTIONS(7557),
+    [anon_sym_LT] = ACTIONS(7555),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7555),
+    [aux_sym_end_program_statement_token2] = ACTIONS(7557),
+    [aux_sym_module_statement_token1] = ACTIONS(7557),
+    [anon_sym_COLON] = ACTIONS(7557),
+    [anon_sym_EQ] = ACTIONS(7555),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7557),
+    [aux_sym_function_statement_token1] = ACTIONS(7557),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7557),
+    [anon_sym_EQ_GT] = ACTIONS(7557),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7555),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7557),
+    [aux_sym_derived_type_token1] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7557),
+    [anon_sym_GT_GT_GT] = ACTIONS(7557),
+    [aux_sym_include_statement_token1] = ACTIONS(7557),
+    [aux_sym_logical_expression_token1] = ACTIONS(7557),
+    [aux_sym_logical_expression_token2] = ACTIONS(7557),
+    [aux_sym_logical_expression_token3] = ACTIONS(7557),
+    [aux_sym_logical_expression_token4] = ACTIONS(7557),
+    [aux_sym_relational_expression_token1] = ACTIONS(7557),
+    [aux_sym_relational_expression_token2] = ACTIONS(7557),
+    [aux_sym_relational_expression_token3] = ACTIONS(7557),
+    [aux_sym_relational_expression_token4] = ACTIONS(7557),
+    [aux_sym_relational_expression_token5] = ACTIONS(7557),
+    [anon_sym_SLASH_EQ] = ACTIONS(7557),
+    [aux_sym_relational_expression_token6] = ACTIONS(7557),
+    [anon_sym_SLASH_SLASH] = ACTIONS(7557),
+    [anon_sym_STAR_STAR] = ACTIONS(7557),
+    [anon_sym_DOT] = ACTIONS(7555),
+    [anon_sym_SLASH_RPAREN] = ACTIONS(7557),
+    [anon_sym_LBRACK] = ACTIONS(7557),
+    [anon_sym_RBRACK] = ACTIONS(7557),
+    [anon_sym_QMARK] = ACTIONS(7557),
     [sym_comment] = ACTIONS(21),
   },
-  [3358] = {
-    [sym_assignment] = STATE(6963),
-    [sym_operator] = STATE(6963),
-    [sym_defined_io_procedure] = STATE(6963),
-    [sym__generic_procedure] = STATE(6963),
-    [sym__name] = STATE(6963),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1604),
+  [3353] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4389),
+    [aux_sym_preproc_def_token1] = ACTIONS(4389),
+    [anon_sym_COMMA] = ACTIONS(4391),
+    [anon_sym_RPAREN] = ACTIONS(4391),
+    [aux_sym_preproc_if_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4389),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4389),
+    [sym_preproc_directive] = ACTIONS(4389),
+    [anon_sym_LPAREN2] = ACTIONS(4391),
+    [anon_sym_PLUS] = ACTIONS(4391),
+    [anon_sym_DASH] = ACTIONS(4391),
+    [anon_sym_STAR] = ACTIONS(4389),
+    [anon_sym_SLASH] = ACTIONS(4389),
+    [anon_sym_PERCENT] = ACTIONS(4391),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4391),
+    [anon_sym_GT] = ACTIONS(4389),
+    [anon_sym_GT_EQ] = ACTIONS(4391),
+    [anon_sym_LT_EQ] = ACTIONS(4391),
+    [anon_sym_LT] = ACTIONS(4389),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4389),
+    [aux_sym_module_statement_token1] = ACTIONS(4391),
+    [aux_sym_end_interface_statement_token1] = ACTIONS(4391),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4391),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4391),
+    [aux_sym_function_statement_token1] = ACTIONS(4391),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4391),
+    [anon_sym_COLON_COLON] = ACTIONS(4391),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4391),
+    [aux_sym_import_statement_token1] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4391),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4389),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4391),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4391),
+    [aux_sym_derived_type_token1] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4391),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4391),
+    [aux_sym_logical_expression_token1] = ACTIONS(4391),
+    [aux_sym_logical_expression_token2] = ACTIONS(4391),
+    [aux_sym_logical_expression_token3] = ACTIONS(4391),
+    [aux_sym_logical_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token1] = ACTIONS(4391),
+    [aux_sym_relational_expression_token2] = ACTIONS(4391),
+    [aux_sym_relational_expression_token3] = ACTIONS(4391),
+    [aux_sym_relational_expression_token4] = ACTIONS(4391),
+    [aux_sym_relational_expression_token5] = ACTIONS(4391),
+    [anon_sym_SLASH_EQ] = ACTIONS(4391),
+    [aux_sym_relational_expression_token6] = ACTIONS(4391),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4391),
+    [anon_sym_STAR_STAR] = ACTIONS(4391),
+    [anon_sym_DOT] = ACTIONS(4389),
+    [anon_sym_LBRACK] = ACTIONS(4391),
+    [anon_sym_QMARK] = ACTIONS(4391),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3354] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_RPAREN] = ACTIONS(4345),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_module_statement_token1] = ACTIONS(4345),
+    [aux_sym_end_interface_statement_token1] = ACTIONS(4345),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4345),
+    [aux_sym_function_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4345),
+    [anon_sym_COLON_COLON] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4345),
+    [aux_sym_import_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4345),
+    [aux_sym_derived_type_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4345),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3355] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4321),
+    [aux_sym_preproc_def_token1] = ACTIONS(4321),
+    [anon_sym_COMMA] = ACTIONS(4323),
+    [anon_sym_RPAREN] = ACTIONS(4323),
+    [aux_sym_preproc_if_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4321),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4321),
+    [sym_preproc_directive] = ACTIONS(4321),
+    [anon_sym_LPAREN2] = ACTIONS(4323),
+    [anon_sym_PLUS] = ACTIONS(4323),
+    [anon_sym_DASH] = ACTIONS(4323),
+    [anon_sym_STAR] = ACTIONS(4321),
+    [anon_sym_SLASH] = ACTIONS(4321),
+    [anon_sym_PERCENT] = ACTIONS(4323),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4323),
+    [anon_sym_GT] = ACTIONS(4321),
+    [anon_sym_GT_EQ] = ACTIONS(4323),
+    [anon_sym_LT_EQ] = ACTIONS(4323),
+    [anon_sym_LT] = ACTIONS(4321),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4321),
+    [aux_sym_module_statement_token1] = ACTIONS(4323),
+    [aux_sym_end_interface_statement_token1] = ACTIONS(4323),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4323),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4323),
+    [aux_sym_function_statement_token1] = ACTIONS(4323),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4323),
+    [anon_sym_COLON_COLON] = ACTIONS(4323),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4323),
+    [aux_sym_import_statement_token1] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4323),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4321),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4323),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4323),
+    [aux_sym_derived_type_token1] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4323),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4323),
+    [aux_sym_logical_expression_token1] = ACTIONS(4323),
+    [aux_sym_logical_expression_token2] = ACTIONS(4323),
+    [aux_sym_logical_expression_token3] = ACTIONS(4323),
+    [aux_sym_logical_expression_token4] = ACTIONS(4323),
+    [aux_sym_relational_expression_token1] = ACTIONS(4323),
+    [aux_sym_relational_expression_token2] = ACTIONS(4323),
+    [aux_sym_relational_expression_token3] = ACTIONS(4323),
+    [aux_sym_relational_expression_token4] = ACTIONS(4323),
+    [aux_sym_relational_expression_token5] = ACTIONS(4323),
+    [anon_sym_SLASH_EQ] = ACTIONS(4323),
+    [aux_sym_relational_expression_token6] = ACTIONS(4323),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4323),
+    [anon_sym_STAR_STAR] = ACTIONS(4323),
+    [anon_sym_DOT] = ACTIONS(4321),
+    [anon_sym_LBRACK] = ACTIONS(4323),
+    [anon_sym_QMARK] = ACTIONS(4323),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3356] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(4343),
+    [aux_sym_preproc_def_token1] = ACTIONS(4343),
+    [anon_sym_COMMA] = ACTIONS(4345),
+    [anon_sym_RPAREN] = ACTIONS(4345),
+    [aux_sym_preproc_if_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(4343),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(4343),
+    [sym_preproc_directive] = ACTIONS(4343),
+    [anon_sym_LPAREN2] = ACTIONS(4345),
+    [anon_sym_PLUS] = ACTIONS(4345),
+    [anon_sym_DASH] = ACTIONS(4345),
+    [anon_sym_STAR] = ACTIONS(4343),
+    [anon_sym_SLASH] = ACTIONS(4343),
+    [anon_sym_PERCENT] = ACTIONS(4345),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(4345),
+    [anon_sym_GT] = ACTIONS(4343),
+    [anon_sym_GT_EQ] = ACTIONS(4345),
+    [anon_sym_LT_EQ] = ACTIONS(4345),
+    [anon_sym_LT] = ACTIONS(4343),
+    [aux_sym_end_program_statement_token1] = ACTIONS(4343),
+    [aux_sym_module_statement_token1] = ACTIONS(4345),
+    [aux_sym_end_interface_statement_token1] = ACTIONS(4345),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(4345),
+    [aux_sym_module_procedure_statement_token1] = ACTIONS(4345),
+    [aux_sym_function_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(4345),
+    [anon_sym_COLON_COLON] = ACTIONS(4345),
+    [aux_sym_implicit_statement_token3] = ACTIONS(4345),
+    [aux_sym_import_statement_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token1] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token2] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token3] = ACTIONS(4345),
+    [aux_sym_procedure_kind_token4] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(4343),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(4345),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(4345),
+    [aux_sym_derived_type_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(4345),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(4345),
+    [aux_sym_logical_expression_token1] = ACTIONS(4345),
+    [aux_sym_logical_expression_token2] = ACTIONS(4345),
+    [aux_sym_logical_expression_token3] = ACTIONS(4345),
+    [aux_sym_logical_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token1] = ACTIONS(4345),
+    [aux_sym_relational_expression_token2] = ACTIONS(4345),
+    [aux_sym_relational_expression_token3] = ACTIONS(4345),
+    [aux_sym_relational_expression_token4] = ACTIONS(4345),
+    [aux_sym_relational_expression_token5] = ACTIONS(4345),
+    [anon_sym_SLASH_EQ] = ACTIONS(4345),
+    [aux_sym_relational_expression_token6] = ACTIONS(4345),
+    [anon_sym_SLASH_SLASH] = ACTIONS(4345),
+    [anon_sym_STAR_STAR] = ACTIONS(4345),
+    [anon_sym_DOT] = ACTIONS(4343),
+    [anon_sym_LBRACK] = ACTIONS(4345),
+    [anon_sym_QMARK] = ACTIONS(4345),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3357] = {
+    [sym_assignment] = STATE(8315),
+    [sym_operator] = STATE(8315),
+    [sym_defined_io_procedure] = STATE(8315),
+    [sym__generic_procedure] = STATE(8315),
+    [sym_binding] = STATE(6110),
+    [sym_binding_name] = STATE(8316),
+    [sym_method_name] = STATE(6110),
+    [sym_identifier] = STATE(6413),
+    [anon_sym_COMMA] = ACTIONS(7559),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(7503),
+    [aux_sym_operator_token1] = ACTIONS(7505),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7507),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7507),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(7561),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484288,7 +484082,6 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7563),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484313,22 +484106,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7563),
+  },
+  [3358] = {
+    [sym__type_name] = STATE(6227),
+    [sym__intrinsic_type] = STATE(6226),
+    [sym_unlimited_polymorphic] = STATE(8559),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
   },
   [3359] = {
-    [sym_assignment] = STATE(6817),
-    [sym_operator] = STATE(6817),
-    [sym_defined_io_procedure] = STATE(6817),
-    [sym__generic_procedure] = STATE(6817),
-    [sym__name] = STATE(6817),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1033),
+    [sym_assignment] = STATE(6560),
+    [sym_operator] = STATE(6560),
+    [sym_defined_io_procedure] = STATE(6560),
+    [sym__generic_procedure] = STATE(6560),
+    [sym__name] = STATE(6560),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(2862),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -484383,86 +484242,86 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7565),
   },
   [3360] = {
-    [sym_assignment] = STATE(6818),
-    [sym_operator] = STATE(6818),
-    [sym_defined_io_procedure] = STATE(6818),
-    [sym__generic_procedure] = STATE(6818),
-    [sym__name] = STATE(6818),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1036),
+    [sym__type_name] = STATE(6133),
+    [sym__intrinsic_type] = STATE(6193),
+    [sym_unlimited_polymorphic] = STATE(7737),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
-    [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
-    [aux_sym_save_statement_token1] = ACTIONS(5495),
-    [aux_sym_private_statement_token1] = ACTIONS(5495),
-    [aux_sym_public_statement_token1] = ACTIONS(5495),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7567),
-    [aux_sym_stop_statement_token1] = ACTIONS(5495),
-    [aux_sym_stop_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
-    [aux_sym_data_statement_token1] = ACTIONS(5495),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
-    [aux_sym_block_construct_token1] = ACTIONS(5495),
-    [aux_sym_format_statement_token1] = ACTIONS(5495),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
-    [aux_sym_entry_statement_token1] = ACTIONS(5495),
-    [aux_sym_null_literal_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
-    [aux_sym_identifier_token1] = ACTIONS(5495),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7567),
   },
   [3361] = {
-    [sym_assignment] = STATE(6572),
-    [sym_operator] = STATE(6572),
-    [sym_defined_io_procedure] = STATE(6572),
-    [sym__generic_procedure] = STATE(6572),
-    [sym__name] = STATE(6572),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1021),
+    [sym_assignment] = STATE(7028),
+    [sym_operator] = STATE(7028),
+    [sym_defined_io_procedure] = STATE(7028),
+    [sym__generic_procedure] = STATE(7028),
+    [sym__name] = STATE(7028),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(3080),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -484489,7 +484348,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7569),
+    [anon_sym_SEMI] = ACTIONS(7567),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484514,22 +484373,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7569),
+    [sym__external_end_of_statement] = ACTIONS(7567),
   },
   [3362] = {
-    [sym_assignment] = STATE(6865),
-    [sym_operator] = STATE(6865),
-    [sym_defined_io_procedure] = STATE(6865),
-    [sym__generic_procedure] = STATE(6865),
-    [sym__name] = STATE(6865),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1190),
+    [sym_assignment] = STATE(7018),
+    [sym_operator] = STATE(7018),
+    [sym_defined_io_procedure] = STATE(7018),
+    [sym__generic_procedure] = STATE(7018),
+    [sym__name] = STATE(7018),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(3090),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -484556,7 +484415,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7571),
+    [anon_sym_SEMI] = ACTIONS(7569),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484581,22 +484440,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7571),
+    [sym__external_end_of_statement] = ACTIONS(7569),
   },
   [3363] = {
-    [sym_assignment] = STATE(6866),
-    [sym_operator] = STATE(6866),
-    [sym_defined_io_procedure] = STATE(6866),
-    [sym__generic_procedure] = STATE(6866),
-    [sym__name] = STATE(6866),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1178),
+    [sym_assignment] = STATE(6635),
+    [sym_operator] = STATE(6635),
+    [sym_defined_io_procedure] = STATE(6635),
+    [sym__generic_procedure] = STATE(6635),
+    [sym__name] = STATE(6635),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(2827),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -484623,7 +484482,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7573),
+    [anon_sym_SEMI] = ACTIONS(7571),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484648,24 +484507,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7573),
+    [sym__external_end_of_statement] = ACTIONS(7571),
   },
   [3364] = {
-    [sym_assignment] = STATE(6913),
-    [sym_operator] = STATE(6913),
-    [sym_defined_io_procedure] = STATE(6913),
-    [sym__generic_procedure] = STATE(6913),
-    [sym__name] = STATE(6913),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2684),
+    [sym_assignment] = STATE(6286),
+    [sym_operator] = STATE(6286),
+    [sym_defined_io_procedure] = STATE(6286),
+    [sym__generic_procedure] = STATE(6286),
+    [sym_identifier] = STATE(6286),
+    [sym__end_of_statement] = STATE(5304),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(7573),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484718,19 +484577,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7575),
   },
   [3365] = {
-    [sym_assignment] = STATE(6914),
-    [sym_operator] = STATE(6914),
-    [sym_defined_io_procedure] = STATE(6914),
-    [sym__generic_procedure] = STATE(6914),
-    [sym__name] = STATE(6914),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2696),
+    [sym_assignment] = STATE(6494),
+    [sym_operator] = STATE(6494),
+    [sym_defined_io_procedure] = STATE(6494),
+    [sym__generic_procedure] = STATE(6494),
+    [sym__name] = STATE(6494),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1581),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -484785,21 +484644,21 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7577),
   },
   [3366] = {
-    [sym_assignment] = STATE(7186),
-    [sym_operator] = STATE(7186),
-    [sym_defined_io_procedure] = STATE(7186),
-    [sym__generic_procedure] = STATE(7186),
-    [sym__name] = STATE(7186),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4531),
+    [sym_assignment] = STATE(6257),
+    [sym_operator] = STATE(6257),
+    [sym_defined_io_procedure] = STATE(6257),
+    [sym__generic_procedure] = STATE(6257),
+    [sym_identifier] = STATE(6257),
+    [sym__end_of_statement] = STATE(5664),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(7579),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484824,7 +484683,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7579),
+    [anon_sym_SEMI] = ACTIONS(7581),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484849,24 +484708,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7579),
+    [sym__external_end_of_statement] = ACTIONS(7581),
   },
   [3367] = {
-    [sym_assignment] = STATE(6114),
-    [sym_operator] = STATE(6114),
-    [sym_defined_io_procedure] = STATE(6114),
-    [sym__generic_procedure] = STATE(6114),
-    [sym_identifier] = STATE(6114),
-    [sym__end_of_statement] = STATE(5302),
+    [sym_assignment] = STATE(6236),
+    [sym_operator] = STATE(6236),
+    [sym_defined_io_procedure] = STATE(6236),
+    [sym__generic_procedure] = STATE(6236),
+    [sym_identifier] = STATE(6236),
+    [sym__end_of_statement] = STATE(5666),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7581),
+    [anon_sym_COLON_COLON] = ACTIONS(7583),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484891,7 +484750,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7583),
+    [anon_sym_SEMI] = ACTIONS(7585),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -484916,24 +484775,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7583),
+    [sym__external_end_of_statement] = ACTIONS(7585),
   },
   [3368] = {
-    [sym_assignment] = STATE(6138),
-    [sym_operator] = STATE(6138),
-    [sym_defined_io_procedure] = STATE(6138),
-    [sym__generic_procedure] = STATE(6138),
+    [sym_assignment] = STATE(6645),
+    [sym_operator] = STATE(6645),
+    [sym_defined_io_procedure] = STATE(6645),
+    [sym__generic_procedure] = STATE(6645),
+    [sym__name] = STATE(6645),
     [sym_identifier] = STATE(6138),
-    [sym__end_of_statement] = STATE(5303),
+    [sym__end_of_statement] = STATE(2901),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7585),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -484986,21 +484845,88 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7587),
   },
   [3369] = {
-    [sym_assignment] = STATE(6962),
-    [sym_operator] = STATE(6962),
-    [sym_defined_io_procedure] = STATE(6962),
-    [sym__generic_procedure] = STATE(6962),
-    [sym__name] = STATE(6962),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1597),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5698),
+    [aux_sym_interface_statement_token1] = ACTIONS(7589),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_language_binding_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5698),
+    [aux_sym_use_statement_token2] = ACTIONS(5698),
+    [anon_sym_COLON_COLON] = ACTIONS(6704),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5698),
+    [aux_sym_save_statement_token1] = ACTIONS(5698),
+    [aux_sym_private_statement_token1] = ACTIONS(5698),
+    [aux_sym_public_statement_token1] = ACTIONS(5698),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5698),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(5698),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token1] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token4] = ACTIONS(5698),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5698),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5698),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5698),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5698),
+    [aux_sym_stop_statement_token1] = ACTIONS(5698),
+    [aux_sym_stop_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5698),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5698),
+    [aux_sym_data_statement_token1] = ACTIONS(5698),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5698),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5698),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5698),
+    [aux_sym_block_construct_token1] = ACTIONS(5698),
+    [aux_sym_format_statement_token1] = ACTIONS(5698),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5698),
+    [aux_sym_entry_statement_token1] = ACTIONS(5698),
+    [aux_sym_null_literal_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5698),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5698),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5698),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5698),
+    [aux_sym_identifier_token1] = ACTIONS(5698),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3370] = {
+    [sym_assignment] = STATE(6287),
+    [sym_operator] = STATE(6287),
+    [sym_defined_io_procedure] = STATE(6287),
+    [sym__generic_procedure] = STATE(6287),
+    [sym_identifier] = STATE(6287),
+    [sym__end_of_statement] = STATE(5306),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [anon_sym_COLON_COLON] = ACTIONS(7591),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -485025,7 +484951,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7589),
+    [anon_sym_SEMI] = ACTIONS(7593),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485050,22 +484976,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7589),
+    [sym__external_end_of_statement] = ACTIONS(7593),
   },
-  [3370] = {
-    [sym_assignment] = STATE(6487),
-    [sym_operator] = STATE(6487),
-    [sym_defined_io_procedure] = STATE(6487),
-    [sym__generic_procedure] = STATE(6487),
-    [sym__name] = STATE(6487),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2808),
+  [3371] = {
+    [sym_assignment] = STATE(6876),
+    [sym_operator] = STATE(6876),
+    [sym_defined_io_procedure] = STATE(6876),
+    [sym__generic_procedure] = STATE(6876),
+    [sym__name] = STATE(6876),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1638),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485092,7 +485018,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7591),
+    [anon_sym_SEMI] = ACTIONS(7595),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485117,22 +485043,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7591),
+    [sym__external_end_of_statement] = ACTIONS(7595),
   },
-  [3371] = {
-    [sym_assignment] = STATE(6488),
-    [sym_operator] = STATE(6488),
-    [sym_defined_io_procedure] = STATE(6488),
-    [sym__generic_procedure] = STATE(6488),
-    [sym__name] = STATE(6488),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2818),
+  [3372] = {
+    [sym__type_name] = STATE(6082),
+    [sym__intrinsic_type] = STATE(6081),
+    [sym_unlimited_polymorphic] = STATE(8044),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3373] = {
+    [sym_assignment] = STATE(7138),
+    [sym_operator] = STATE(7138),
+    [sym_defined_io_procedure] = STATE(7138),
+    [sym__generic_procedure] = STATE(7138),
+    [sym__name] = STATE(7138),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4569),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485159,7 +485152,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7593),
+    [anon_sym_SEMI] = ACTIONS(7597),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485184,22 +485177,223 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7593),
+    [sym__external_end_of_statement] = ACTIONS(7597),
   },
-  [3372] = {
-    [sym_assignment] = STATE(6993),
-    [sym_operator] = STATE(6993),
-    [sym_defined_io_procedure] = STATE(6993),
-    [sym__generic_procedure] = STATE(6993),
-    [sym__name] = STATE(6993),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2994),
+  [3374] = {
+    [anon_sym_COMMA] = ACTIONS(7599),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7601),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7601),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7601),
+    [aux_sym_language_binding_token1] = ACTIONS(7601),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7601),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7601),
+    [aux_sym_use_statement_token2] = ACTIONS(7601),
+    [anon_sym_COLON_COLON] = ACTIONS(7599),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7601),
+    [aux_sym_save_statement_token1] = ACTIONS(7601),
+    [aux_sym_private_statement_token1] = ACTIONS(7601),
+    [aux_sym_public_statement_token1] = ACTIONS(7601),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7601),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(7601),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7601),
+    [aux_sym_variable_attributes_token1] = ACTIONS(7601),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7601),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7601),
+    [aux_sym_variable_attributes_token4] = ACTIONS(7601),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7601),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7601),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7601),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7601),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7601),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7601),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7601),
+    [aux_sym_stop_statement_token1] = ACTIONS(7601),
+    [aux_sym_stop_statement_token2] = ACTIONS(7601),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7601),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7601),
+    [aux_sym_data_statement_token1] = ACTIONS(7601),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7601),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7601),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7601),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7601),
+    [aux_sym_block_construct_token1] = ACTIONS(7601),
+    [aux_sym_format_statement_token1] = ACTIONS(7601),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7601),
+    [aux_sym_entry_statement_token1] = ACTIONS(7601),
+    [aux_sym_null_literal_token1] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7601),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7601),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7601),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7601),
+    [aux_sym_identifier_token1] = ACTIONS(7601),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3375] = {
+    [sym__type_name] = STATE(6112),
+    [sym__intrinsic_type] = STATE(6107),
+    [sym_unlimited_polymorphic] = STATE(7726),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3376] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(7547),
+    [aux_sym_preproc_def_token1] = ACTIONS(7547),
+    [anon_sym_COMMA] = ACTIONS(7549),
+    [aux_sym_preproc_if_token1] = ACTIONS(7547),
+    [aux_sym_preproc_if_token2] = ACTIONS(7547),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(7547),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(7547),
+    [aux_sym_preproc_else_token1] = ACTIONS(7547),
+    [aux_sym_preproc_elif_token1] = ACTIONS(7547),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(7547),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(7547),
+    [sym_preproc_directive] = ACTIONS(7547),
+    [anon_sym_LPAREN2] = ACTIONS(7549),
+    [anon_sym_PLUS] = ACTIONS(7549),
+    [anon_sym_DASH] = ACTIONS(7549),
+    [anon_sym_STAR] = ACTIONS(7547),
+    [anon_sym_SLASH] = ACTIONS(7547),
+    [anon_sym_PERCENT] = ACTIONS(7549),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(7549),
+    [anon_sym_GT] = ACTIONS(7547),
+    [anon_sym_GT_EQ] = ACTIONS(7549),
+    [anon_sym_LT_EQ] = ACTIONS(7549),
+    [anon_sym_LT] = ACTIONS(7547),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7547),
+    [aux_sym_module_statement_token1] = ACTIONS(7549),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7549),
+    [aux_sym_function_statement_token1] = ACTIONS(7549),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7549),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7547),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7549),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7549),
+    [aux_sym_derived_type_token1] = ACTIONS(7549),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7549),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7549),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7549),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7549),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7549),
+    [aux_sym_include_statement_token1] = ACTIONS(7549),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(7549),
+    [aux_sym_end_enum_statement_token1] = ACTIONS(7549),
+    [aux_sym_logical_expression_token1] = ACTIONS(7549),
+    [aux_sym_logical_expression_token2] = ACTIONS(7549),
+    [aux_sym_logical_expression_token3] = ACTIONS(7549),
+    [aux_sym_logical_expression_token4] = ACTIONS(7549),
+    [aux_sym_relational_expression_token1] = ACTIONS(7549),
+    [aux_sym_relational_expression_token2] = ACTIONS(7549),
+    [aux_sym_relational_expression_token3] = ACTIONS(7549),
+    [aux_sym_relational_expression_token4] = ACTIONS(7549),
+    [aux_sym_relational_expression_token5] = ACTIONS(7549),
+    [anon_sym_SLASH_EQ] = ACTIONS(7549),
+    [aux_sym_relational_expression_token6] = ACTIONS(7549),
+    [anon_sym_SLASH_SLASH] = ACTIONS(7549),
+    [anon_sym_STAR_STAR] = ACTIONS(7549),
+    [anon_sym_DOT] = ACTIONS(7547),
+    [anon_sym_LBRACK] = ACTIONS(7549),
+    [anon_sym_QMARK] = ACTIONS(7549),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3377] = {
+    [sym_assignment] = STATE(6962),
+    [sym_operator] = STATE(6962),
+    [sym_defined_io_procedure] = STATE(6962),
+    [sym__generic_procedure] = STATE(6962),
+    [sym__name] = STATE(6962),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1513),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485226,7 +485420,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7595),
+    [anon_sym_SEMI] = ACTIONS(7603),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485251,22 +485445,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7595),
+    [sym__external_end_of_statement] = ACTIONS(7603),
   },
-  [3373] = {
-    [sym_assignment] = STATE(6994),
-    [sym_operator] = STATE(6994),
-    [sym_defined_io_procedure] = STATE(6994),
-    [sym__generic_procedure] = STATE(6994),
-    [sym__name] = STATE(6994),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(3111),
+  [3378] = {
+    [sym_assignment] = STATE(7205),
+    [sym_operator] = STATE(7205),
+    [sym_defined_io_procedure] = STATE(7205),
+    [sym__generic_procedure] = STATE(7205),
+    [sym__name] = STATE(7205),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(2750),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485293,7 +485487,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7597),
+    [anon_sym_SEMI] = ACTIONS(7605),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485318,22 +485512,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7597),
+    [sym__external_end_of_statement] = ACTIONS(7605),
   },
-  [3374] = {
-    [sym_assignment] = STATE(7022),
-    [sym_operator] = STATE(7022),
-    [sym_defined_io_procedure] = STATE(7022),
-    [sym__generic_procedure] = STATE(7022),
-    [sym__name] = STATE(7022),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1460),
+  [3379] = {
+    [sym_assignment] = STATE(6561),
+    [sym_operator] = STATE(6561),
+    [sym_defined_io_procedure] = STATE(6561),
+    [sym__generic_procedure] = STATE(6561),
+    [sym__name] = STATE(6561),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(2870),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485360,7 +485554,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7599),
+    [anon_sym_SEMI] = ACTIONS(7607),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485385,22 +485579,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7599),
+    [sym__external_end_of_statement] = ACTIONS(7607),
   },
-  [3375] = {
-    [sym_assignment] = STATE(7023),
-    [sym_operator] = STATE(7023),
-    [sym_defined_io_procedure] = STATE(7023),
-    [sym__generic_procedure] = STATE(7023),
-    [sym__name] = STATE(7023),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1465),
+  [3380] = {
+    [sym_assignment] = STATE(7200),
+    [sym_operator] = STATE(7200),
+    [sym_defined_io_procedure] = STATE(7200),
+    [sym__generic_procedure] = STATE(7200),
+    [sym__name] = STATE(7200),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1057),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485427,7 +485621,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7601),
+    [anon_sym_SEMI] = ACTIONS(7609),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485452,83 +485646,16 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7601),
-  },
-  [3376] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(7559),
-    [aux_sym_preproc_def_token1] = ACTIONS(7559),
-    [anon_sym_COMMA] = ACTIONS(7561),
-    [aux_sym_preproc_if_token1] = ACTIONS(7559),
-    [aux_sym_preproc_if_token2] = ACTIONS(7559),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(7559),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(7559),
-    [aux_sym_preproc_else_token1] = ACTIONS(7559),
-    [aux_sym_preproc_elif_token1] = ACTIONS(7559),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(7559),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(7559),
-    [sym_preproc_directive] = ACTIONS(7559),
-    [anon_sym_LPAREN2] = ACTIONS(7561),
-    [anon_sym_PLUS] = ACTIONS(7561),
-    [anon_sym_DASH] = ACTIONS(7561),
-    [anon_sym_STAR] = ACTIONS(7559),
-    [anon_sym_SLASH] = ACTIONS(7559),
-    [anon_sym_PERCENT] = ACTIONS(7561),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(7561),
-    [anon_sym_GT] = ACTIONS(7559),
-    [anon_sym_GT_EQ] = ACTIONS(7561),
-    [anon_sym_LT_EQ] = ACTIONS(7561),
-    [anon_sym_LT] = ACTIONS(7559),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7559),
-    [aux_sym_module_statement_token1] = ACTIONS(7561),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7561),
-    [aux_sym_function_statement_token1] = ACTIONS(7561),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7561),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7559),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7561),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7561),
-    [aux_sym_derived_type_token1] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7561),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7561),
-    [aux_sym_include_statement_token1] = ACTIONS(7561),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(7561),
-    [aux_sym_end_enum_statement_token1] = ACTIONS(7561),
-    [aux_sym_logical_expression_token1] = ACTIONS(7561),
-    [aux_sym_logical_expression_token2] = ACTIONS(7561),
-    [aux_sym_logical_expression_token3] = ACTIONS(7561),
-    [aux_sym_logical_expression_token4] = ACTIONS(7561),
-    [aux_sym_relational_expression_token1] = ACTIONS(7561),
-    [aux_sym_relational_expression_token2] = ACTIONS(7561),
-    [aux_sym_relational_expression_token3] = ACTIONS(7561),
-    [aux_sym_relational_expression_token4] = ACTIONS(7561),
-    [aux_sym_relational_expression_token5] = ACTIONS(7561),
-    [anon_sym_SLASH_EQ] = ACTIONS(7561),
-    [aux_sym_relational_expression_token6] = ACTIONS(7561),
-    [anon_sym_SLASH_SLASH] = ACTIONS(7561),
-    [anon_sym_STAR_STAR] = ACTIONS(7561),
-    [anon_sym_DOT] = ACTIONS(7559),
-    [anon_sym_LBRACK] = ACTIONS(7561),
-    [anon_sym_QMARK] = ACTIONS(7561),
-    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7609),
   },
-  [3377] = {
-    [sym__type_name] = STATE(6285),
-    [sym__intrinsic_type] = STATE(6290),
-    [sym_unlimited_polymorphic] = STATE(8577),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
+  [3381] = {
+    [sym__type_name] = STATE(6255),
+    [sym__intrinsic_type] = STATE(6238),
+    [sym_unlimited_polymorphic] = STATE(8491),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
     [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
     [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
     [aux_sym_procedure_attributes_token3] = ACTIONS(97),
@@ -485588,20 +485715,87 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_identifier_token1] = ACTIONS(97),
     [sym_comment] = ACTIONS(21),
   },
-  [3378] = {
-    [sym_assignment] = STATE(7173),
-    [sym_operator] = STATE(7173),
-    [sym_defined_io_procedure] = STATE(7173),
-    [sym__generic_procedure] = STATE(7173),
-    [sym__name] = STATE(7173),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2880),
+  [3382] = {
+    [anon_sym_COMMA] = ACTIONS(7611),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7613),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(7613),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(7613),
+    [aux_sym_language_binding_token1] = ACTIONS(7613),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7613),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(7613),
+    [aux_sym_use_statement_token2] = ACTIONS(7613),
+    [anon_sym_COLON_COLON] = ACTIONS(7611),
+    [aux_sym_implicit_statement_token4] = ACTIONS(7613),
+    [aux_sym_save_statement_token1] = ACTIONS(7613),
+    [aux_sym_private_statement_token1] = ACTIONS(7613),
+    [aux_sym_public_statement_token1] = ACTIONS(7613),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(7613),
+    [aux_sym_abstract_specifier_token1] = ACTIONS(7613),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(7613),
+    [aux_sym_variable_attributes_token1] = ACTIONS(7613),
+    [aux_sym_variable_attributes_token2] = ACTIONS(7613),
+    [aux_sym_variable_attributes_token3] = ACTIONS(7613),
+    [aux_sym_variable_attributes_token4] = ACTIONS(7613),
+    [aux_sym_variable_attributes_token5] = ACTIONS(7613),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7613),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7613),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7613),
+    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7613),
+    [aux_sym_type_qualifier_token1] = ACTIONS(7613),
+    [aux_sym_type_qualifier_token2] = ACTIONS(7613),
+    [aux_sym_stop_statement_token1] = ACTIONS(7613),
+    [aux_sym_stop_statement_token2] = ACTIONS(7613),
+    [aux_sym_keyword_statement_token2] = ACTIONS(7613),
+    [aux_sym_keyword_statement_token3] = ACTIONS(7613),
+    [aux_sym_data_statement_token1] = ACTIONS(7613),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(7613),
+    [aux_sym_end_if_statement_token1] = ACTIONS(7613),
+    [aux_sym_elseif_clause_token2] = ACTIONS(7613),
+    [aux_sym_select_case_statement_token1] = ACTIONS(7613),
+    [aux_sym_block_construct_token1] = ACTIONS(7613),
+    [aux_sym_format_statement_token1] = ACTIONS(7613),
+    [aux_sym_inquire_statement_token1] = ACTIONS(7613),
+    [aux_sym_entry_statement_token1] = ACTIONS(7613),
+    [aux_sym_null_literal_token1] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token1] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token2] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token6] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token8] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token11] = ACTIONS(7613),
+    [aux_sym_coarray_statement_token12] = ACTIONS(7613),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(7613),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7613),
+    [aux_sym_identifier_token1] = ACTIONS(7613),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3383] = {
+    [sym_assignment] = STATE(6961),
+    [sym_operator] = STATE(6961),
+    [sym_defined_io_procedure] = STATE(6961),
+    [sym__generic_procedure] = STATE(6961),
+    [sym__name] = STATE(6961),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1518),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485628,7 +485822,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7605),
+    [anon_sym_SEMI] = ACTIONS(7615),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485653,290 +485847,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7605),
-  },
-  [3379] = {
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(5700),
-    [aux_sym_interface_statement_token1] = ACTIONS(7607),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5700),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5700),
-    [aux_sym_language_binding_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(5700),
-    [aux_sym_use_statement_token2] = ACTIONS(5700),
-    [anon_sym_COLON_COLON] = ACTIONS(6704),
-    [aux_sym_implicit_statement_token4] = ACTIONS(5700),
-    [aux_sym_save_statement_token1] = ACTIONS(5700),
-    [aux_sym_private_statement_token1] = ACTIONS(5700),
-    [aux_sym_public_statement_token1] = ACTIONS(5700),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(5700),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(5700),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token1] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token2] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token3] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token4] = ACTIONS(5700),
-    [aux_sym_variable_attributes_token5] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(5700),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5700),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token1] = ACTIONS(5700),
-    [aux_sym_type_qualifier_token2] = ACTIONS(5700),
-    [aux_sym_stop_statement_token1] = ACTIONS(5700),
-    [aux_sym_stop_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token2] = ACTIONS(5700),
-    [aux_sym_keyword_statement_token3] = ACTIONS(5700),
-    [aux_sym_data_statement_token1] = ACTIONS(5700),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_end_if_statement_token1] = ACTIONS(5700),
-    [aux_sym_elseif_clause_token2] = ACTIONS(5700),
-    [aux_sym_select_case_statement_token1] = ACTIONS(5700),
-    [aux_sym_block_construct_token1] = ACTIONS(5700),
-    [aux_sym_format_statement_token1] = ACTIONS(5700),
-    [aux_sym_inquire_statement_token1] = ACTIONS(5700),
-    [aux_sym_entry_statement_token1] = ACTIONS(5700),
-    [aux_sym_null_literal_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token2] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token6] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token8] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token11] = ACTIONS(5700),
-    [aux_sym_coarray_statement_token12] = ACTIONS(5700),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(5700),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5700),
-    [aux_sym_identifier_token1] = ACTIONS(5700),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3380] = {
-    [aux_sym_preproc_include_token1] = ACTIONS(7547),
-    [aux_sym_preproc_def_token1] = ACTIONS(7547),
-    [anon_sym_COMMA] = ACTIONS(7549),
-    [aux_sym_preproc_if_token1] = ACTIONS(7547),
-    [aux_sym_preproc_if_token2] = ACTIONS(7547),
-    [aux_sym_preproc_ifdef_token1] = ACTIONS(7547),
-    [aux_sym_preproc_ifdef_token2] = ACTIONS(7547),
-    [aux_sym_preproc_else_token1] = ACTIONS(7547),
-    [aux_sym_preproc_elif_token1] = ACTIONS(7547),
-    [aux_sym_preproc_elifdef_token1] = ACTIONS(7547),
-    [aux_sym_preproc_elifdef_token2] = ACTIONS(7547),
-    [sym_preproc_directive] = ACTIONS(7547),
-    [anon_sym_LPAREN2] = ACTIONS(7549),
-    [anon_sym_PLUS] = ACTIONS(7549),
-    [anon_sym_DASH] = ACTIONS(7549),
-    [anon_sym_STAR] = ACTIONS(7547),
-    [anon_sym_SLASH] = ACTIONS(7547),
-    [anon_sym_PERCENT] = ACTIONS(7549),
-    [anon_sym_AMP] = ACTIONS(21),
-    [anon_sym_EQ_EQ] = ACTIONS(7549),
-    [anon_sym_GT] = ACTIONS(7547),
-    [anon_sym_GT_EQ] = ACTIONS(7549),
-    [anon_sym_LT_EQ] = ACTIONS(7549),
-    [anon_sym_LT] = ACTIONS(7547),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7547),
-    [aux_sym_module_statement_token1] = ACTIONS(7549),
-    [aux_sym_subroutine_statement_token1] = ACTIONS(7549),
-    [aux_sym_function_statement_token1] = ACTIONS(7549),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7549),
-    [aux_sym_implicit_statement_token3] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7547),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(7549),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(7549),
-    [aux_sym_derived_type_token1] = ACTIONS(7549),
-    [aux_sym_procedure_qualifier_token1] = ACTIONS(7549),
-    [aux_sym_procedure_qualifier_token2] = ACTIONS(7549),
-    [aux_sym_procedure_qualifier_token3] = ACTIONS(7549),
-    [aux_sym_procedure_qualifier_token4] = ACTIONS(7549),
-    [aux_sym_procedure_qualifier_token5] = ACTIONS(7549),
-    [aux_sym_include_statement_token1] = ACTIONS(7549),
-    [aux_sym_enumerator_statement_token1] = ACTIONS(7549),
-    [aux_sym_end_enum_statement_token1] = ACTIONS(7549),
-    [aux_sym_logical_expression_token1] = ACTIONS(7549),
-    [aux_sym_logical_expression_token2] = ACTIONS(7549),
-    [aux_sym_logical_expression_token3] = ACTIONS(7549),
-    [aux_sym_logical_expression_token4] = ACTIONS(7549),
-    [aux_sym_relational_expression_token1] = ACTIONS(7549),
-    [aux_sym_relational_expression_token2] = ACTIONS(7549),
-    [aux_sym_relational_expression_token3] = ACTIONS(7549),
-    [aux_sym_relational_expression_token4] = ACTIONS(7549),
-    [aux_sym_relational_expression_token5] = ACTIONS(7549),
-    [anon_sym_SLASH_EQ] = ACTIONS(7549),
-    [aux_sym_relational_expression_token6] = ACTIONS(7549),
-    [anon_sym_SLASH_SLASH] = ACTIONS(7549),
-    [anon_sym_STAR_STAR] = ACTIONS(7549),
-    [anon_sym_DOT] = ACTIONS(7547),
-    [anon_sym_LBRACK] = ACTIONS(7549),
-    [anon_sym_QMARK] = ACTIONS(7549),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3381] = {
-    [sym__type_name] = STATE(6247),
-    [sym__intrinsic_type] = STATE(6249),
-    [sym_unlimited_polymorphic] = STATE(8118),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3382] = {
-    [sym__type_name] = STATE(6256),
-    [sym__intrinsic_type] = STATE(6258),
-    [sym_unlimited_polymorphic] = STATE(8157),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7615),
   },
-  [3383] = {
-    [sym_assignment] = STATE(6569),
-    [sym_operator] = STATE(6569),
-    [sym_defined_io_procedure] = STATE(6569),
-    [sym__generic_procedure] = STATE(6569),
-    [sym__name] = STATE(6569),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(897),
+  [3384] = {
+    [sym_assignment] = STATE(7097),
+    [sym_operator] = STATE(7097),
+    [sym_defined_io_procedure] = STATE(7097),
+    [sym__generic_procedure] = STATE(7097),
+    [sym__name] = STATE(7097),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1427),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -485963,7 +485889,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7609),
+    [anon_sym_SEMI] = ACTIONS(7617),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -485988,22 +485914,89 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7609),
+    [sym__external_end_of_statement] = ACTIONS(7617),
   },
-  [3384] = {
-    [sym_assignment] = STATE(6570),
-    [sym_operator] = STATE(6570),
-    [sym_defined_io_procedure] = STATE(6570),
-    [sym__generic_procedure] = STATE(6570),
-    [sym__name] = STATE(6570),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(899),
+  [3385] = {
+    [aux_sym_preproc_include_token1] = ACTIONS(7555),
+    [aux_sym_preproc_def_token1] = ACTIONS(7555),
+    [anon_sym_COMMA] = ACTIONS(7557),
+    [aux_sym_preproc_if_token1] = ACTIONS(7555),
+    [aux_sym_preproc_if_token2] = ACTIONS(7555),
+    [aux_sym_preproc_ifdef_token1] = ACTIONS(7555),
+    [aux_sym_preproc_ifdef_token2] = ACTIONS(7555),
+    [aux_sym_preproc_else_token1] = ACTIONS(7555),
+    [aux_sym_preproc_elif_token1] = ACTIONS(7555),
+    [aux_sym_preproc_elifdef_token1] = ACTIONS(7555),
+    [aux_sym_preproc_elifdef_token2] = ACTIONS(7555),
+    [sym_preproc_directive] = ACTIONS(7555),
+    [anon_sym_LPAREN2] = ACTIONS(7557),
+    [anon_sym_PLUS] = ACTIONS(7557),
+    [anon_sym_DASH] = ACTIONS(7557),
+    [anon_sym_STAR] = ACTIONS(7555),
+    [anon_sym_SLASH] = ACTIONS(7555),
+    [anon_sym_PERCENT] = ACTIONS(7557),
+    [anon_sym_AMP] = ACTIONS(21),
+    [anon_sym_EQ_EQ] = ACTIONS(7557),
+    [anon_sym_GT] = ACTIONS(7555),
+    [anon_sym_GT_EQ] = ACTIONS(7557),
+    [anon_sym_LT_EQ] = ACTIONS(7557),
+    [anon_sym_LT] = ACTIONS(7555),
+    [aux_sym_end_program_statement_token1] = ACTIONS(7555),
+    [aux_sym_module_statement_token1] = ACTIONS(7557),
+    [aux_sym_subroutine_statement_token1] = ACTIONS(7557),
+    [aux_sym_function_statement_token1] = ACTIONS(7557),
+    [aux_sym_procedure_attributes_token1] = ACTIONS(7557),
+    [aux_sym_implicit_statement_token3] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(7555),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(7557),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(7557),
+    [aux_sym_derived_type_token1] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token1] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token2] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token3] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token4] = ACTIONS(7557),
+    [aux_sym_procedure_qualifier_token5] = ACTIONS(7557),
+    [aux_sym_include_statement_token1] = ACTIONS(7557),
+    [aux_sym_enumerator_statement_token1] = ACTIONS(7557),
+    [aux_sym_end_enum_statement_token1] = ACTIONS(7557),
+    [aux_sym_logical_expression_token1] = ACTIONS(7557),
+    [aux_sym_logical_expression_token2] = ACTIONS(7557),
+    [aux_sym_logical_expression_token3] = ACTIONS(7557),
+    [aux_sym_logical_expression_token4] = ACTIONS(7557),
+    [aux_sym_relational_expression_token1] = ACTIONS(7557),
+    [aux_sym_relational_expression_token2] = ACTIONS(7557),
+    [aux_sym_relational_expression_token3] = ACTIONS(7557),
+    [aux_sym_relational_expression_token4] = ACTIONS(7557),
+    [aux_sym_relational_expression_token5] = ACTIONS(7557),
+    [anon_sym_SLASH_EQ] = ACTIONS(7557),
+    [aux_sym_relational_expression_token6] = ACTIONS(7557),
+    [anon_sym_SLASH_SLASH] = ACTIONS(7557),
+    [anon_sym_STAR_STAR] = ACTIONS(7557),
+    [anon_sym_DOT] = ACTIONS(7555),
+    [anon_sym_LBRACK] = ACTIONS(7557),
+    [anon_sym_QMARK] = ACTIONS(7557),
+    [sym_comment] = ACTIONS(21),
+  },
+  [3386] = {
+    [sym_assignment] = STATE(6737),
+    [sym_operator] = STATE(6737),
+    [sym_defined_io_procedure] = STATE(6737),
+    [sym__generic_procedure] = STATE(6737),
+    [sym__name] = STATE(6737),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(839),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486030,7 +486023,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7611),
+    [anon_sym_SEMI] = ACTIONS(7619),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -486055,24 +486048,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7611),
+    [sym__external_end_of_statement] = ACTIONS(7619),
   },
-  [3385] = {
-    [sym_assignment] = STATE(6135),
-    [sym_operator] = STATE(6135),
-    [sym_defined_io_procedure] = STATE(6135),
-    [sym__generic_procedure] = STATE(6135),
-    [sym_identifier] = STATE(6135),
-    [sym__end_of_statement] = STATE(5663),
+  [3387] = {
+    [sym_assignment] = STATE(7098),
+    [sym_operator] = STATE(7098),
+    [sym_defined_io_procedure] = STATE(7098),
+    [sym__generic_procedure] = STATE(7098),
+    [sym__name] = STATE(7098),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1420),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7613),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -486097,7 +486090,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7615),
+    [anon_sym_SEMI] = ACTIONS(7621),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -486122,89 +486115,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7615),
-  },
-  [3386] = {
-    [anon_sym_COMMA] = ACTIONS(7617),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7619),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7619),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7619),
-    [aux_sym_language_binding_token1] = ACTIONS(7619),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7619),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7619),
-    [aux_sym_use_statement_token2] = ACTIONS(7619),
-    [anon_sym_COLON_COLON] = ACTIONS(7617),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7619),
-    [aux_sym_save_statement_token1] = ACTIONS(7619),
-    [aux_sym_private_statement_token1] = ACTIONS(7619),
-    [aux_sym_public_statement_token1] = ACTIONS(7619),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7619),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(7619),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7619),
-    [aux_sym_variable_attributes_token1] = ACTIONS(7619),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7619),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7619),
-    [aux_sym_variable_attributes_token4] = ACTIONS(7619),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7619),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7619),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7619),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7619),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7619),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7619),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7619),
-    [aux_sym_stop_statement_token1] = ACTIONS(7619),
-    [aux_sym_stop_statement_token2] = ACTIONS(7619),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7619),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7619),
-    [aux_sym_data_statement_token1] = ACTIONS(7619),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7619),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7619),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7619),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7619),
-    [aux_sym_block_construct_token1] = ACTIONS(7619),
-    [aux_sym_format_statement_token1] = ACTIONS(7619),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7619),
-    [aux_sym_entry_statement_token1] = ACTIONS(7619),
-    [aux_sym_null_literal_token1] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7619),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7619),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7619),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7619),
-    [aux_sym_identifier_token1] = ACTIONS(7619),
-    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7621),
   },
-  [3387] = {
-    [sym_assignment] = STATE(7070),
-    [sym_operator] = STATE(7070),
-    [sym_defined_io_procedure] = STATE(7070),
-    [sym__generic_procedure] = STATE(7070),
-    [sym__name] = STATE(7070),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1047),
+  [3388] = {
+    [sym_assignment] = STATE(7246),
+    [sym_operator] = STATE(7246),
+    [sym_defined_io_procedure] = STATE(7246),
+    [sym__generic_procedure] = STATE(7246),
+    [sym__name] = STATE(7246),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1109),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486231,7 +486157,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7621),
+    [anon_sym_SEMI] = ACTIONS(7623),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -486256,24 +486182,24 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7621),
+    [sym__external_end_of_statement] = ACTIONS(7623),
   },
-  [3388] = {
-    [sym_assignment] = STATE(6136),
-    [sym_operator] = STATE(6136),
-    [sym_defined_io_procedure] = STATE(6136),
-    [sym__generic_procedure] = STATE(6136),
-    [sym_identifier] = STATE(6136),
-    [sym__end_of_statement] = STATE(5664),
+  [3389] = {
+    [sym_assignment] = STATE(7245),
+    [sym_operator] = STATE(7245),
+    [sym_defined_io_procedure] = STATE(7245),
+    [sym__generic_procedure] = STATE(7245),
+    [sym__name] = STATE(7245),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1096),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
-    [anon_sym_COLON_COLON] = ACTIONS(7623),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
     [aux_sym_save_statement_token1] = ACTIONS(5495),
     [aux_sym_private_statement_token1] = ACTIONS(5495),
@@ -486325,221 +486251,154 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7625),
   },
-  [3389] = {
-    [sym__type_name] = STATE(6294),
-    [sym__intrinsic_type] = STATE(6296),
-    [sym_unlimited_polymorphic] = STATE(8518),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-  },
   [3390] = {
-    [sym__type_name] = STATE(6160),
-    [sym__intrinsic_type] = STATE(6307),
-    [sym_unlimited_polymorphic] = STATE(8529),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
+    [sym_assignment] = STATE(7314),
+    [sym_operator] = STATE(7314),
+    [sym_defined_io_procedure] = STATE(7314),
+    [sym__generic_procedure] = STATE(7314),
+    [sym__name] = STATE(7314),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1171),
     [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
+    [anon_sym_SEMI] = ACTIONS(7627),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7627),
   },
   [3391] = {
-    [sym_while_statement] = STATE(6518),
-    [sym_concurrent_statement] = STATE(6518),
-    [sym_concurrent_header] = STATE(5774),
-    [sym_loop_control_expression] = STATE(6518),
-    [sym_identifier] = STATE(7861),
-    [sym__end_of_statement] = STATE(662),
-    [anon_sym_COMMA] = ACTIONS(7627),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [sym_assignment] = STATE(7313),
+    [sym_operator] = STATE(7313),
+    [sym_defined_io_procedure] = STATE(7313),
+    [sym__generic_procedure] = STATE(7313),
+    [sym__name] = STATE(7313),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1181),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(5493),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
+    [aux_sym_use_statement_token2] = ACTIONS(5495),
+    [aux_sym_implicit_statement_token4] = ACTIONS(5495),
+    [aux_sym_save_statement_token1] = ACTIONS(5495),
+    [aux_sym_private_statement_token1] = ACTIONS(5495),
+    [aux_sym_public_statement_token1] = ACTIONS(5495),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(5495),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token2] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token3] = ACTIONS(5495),
+    [aux_sym_variable_attributes_token5] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(5495),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(5497),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(5499),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(5495),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token1] = ACTIONS(5495),
+    [aux_sym_type_qualifier_token2] = ACTIONS(5495),
     [anon_sym_SEMI] = ACTIONS(7629),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym_while_statement_token1] = ACTIONS(7466),
-    [aux_sym_concurrent_header_token1] = ACTIONS(7468),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(5495),
+    [aux_sym_stop_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token2] = ACTIONS(5495),
+    [aux_sym_keyword_statement_token3] = ACTIONS(5495),
+    [aux_sym_data_statement_token1] = ACTIONS(5495),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_end_if_statement_token1] = ACTIONS(5495),
+    [aux_sym_elseif_clause_token2] = ACTIONS(5495),
+    [aux_sym_select_case_statement_token1] = ACTIONS(5501),
+    [aux_sym_block_construct_token1] = ACTIONS(5495),
+    [aux_sym_format_statement_token1] = ACTIONS(5495),
+    [aux_sym_inquire_statement_token1] = ACTIONS(5495),
+    [aux_sym_entry_statement_token1] = ACTIONS(5495),
+    [aux_sym_null_literal_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token2] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token6] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token8] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token11] = ACTIONS(5495),
+    [aux_sym_coarray_statement_token12] = ACTIONS(5495),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(5495),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
+    [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7629),
   },
   [3392] = {
-    [sym_assignment] = STATE(6632),
-    [sym_operator] = STATE(6632),
-    [sym_defined_io_procedure] = STATE(6632),
-    [sym__generic_procedure] = STATE(6632),
-    [sym__name] = STATE(6632),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1633),
+    [sym_assignment] = STATE(7002),
+    [sym_operator] = STATE(7002),
+    [sym_defined_io_procedure] = STATE(7002),
+    [sym__generic_procedure] = STATE(7002),
+    [sym__name] = STATE(7002),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1595),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486594,19 +486453,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7631),
   },
   [3393] = {
-    [sym_assignment] = STATE(6633),
-    [sym_operator] = STATE(6633),
-    [sym_defined_io_procedure] = STATE(6633),
-    [sym__generic_procedure] = STATE(6633),
-    [sym__name] = STATE(6633),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1652),
+    [sym_assignment] = STATE(7003),
+    [sym_operator] = STATE(7003),
+    [sym_defined_io_procedure] = STATE(7003),
+    [sym__generic_procedure] = STATE(7003),
+    [sym__name] = STATE(7003),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1620),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486661,86 +486520,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7633),
   },
   [3394] = {
-    [sym__type_name] = STATE(6295),
-    [sym__intrinsic_type] = STATE(6303),
-    [sym_unlimited_polymorphic] = STATE(8331),
-    [sym_identifier] = STATE(6122),
-    [anon_sym_STAR] = ACTIONS(7603),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(766),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
-    [aux_sym_use_statement_token2] = ACTIONS(97),
-    [aux_sym_implicit_statement_token4] = ACTIONS(97),
-    [aux_sym_save_statement_token1] = ACTIONS(97),
-    [aux_sym_private_statement_token1] = ACTIONS(97),
-    [aux_sym_public_statement_token1] = ACTIONS(97),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
-    [aux_sym_variable_attributes_token2] = ACTIONS(97),
-    [aux_sym_variable_attributes_token3] = ACTIONS(97),
-    [aux_sym_variable_attributes_token5] = ACTIONS(97),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
-    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
-    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
-    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
-    [aux_sym_type_qualifier_token1] = ACTIONS(97),
-    [aux_sym_type_qualifier_token2] = ACTIONS(97),
-    [aux_sym_stop_statement_token1] = ACTIONS(97),
-    [aux_sym_stop_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token2] = ACTIONS(97),
-    [aux_sym_keyword_statement_token3] = ACTIONS(97),
-    [aux_sym_data_statement_token1] = ACTIONS(97),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
-    [aux_sym_end_if_statement_token1] = ACTIONS(97),
-    [aux_sym_elseif_clause_token2] = ACTIONS(97),
-    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
-    [aux_sym_block_construct_token1] = ACTIONS(97),
-    [aux_sym_format_statement_token1] = ACTIONS(97),
-    [aux_sym_inquire_statement_token1] = ACTIONS(97),
-    [aux_sym_entry_statement_token1] = ACTIONS(97),
-    [aux_sym_null_literal_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_statement_token2] = ACTIONS(97),
-    [aux_sym_coarray_statement_token6] = ACTIONS(97),
-    [aux_sym_coarray_statement_token8] = ACTIONS(97),
-    [aux_sym_coarray_statement_token11] = ACTIONS(97),
-    [aux_sym_coarray_statement_token12] = ACTIONS(97),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
-    [aux_sym_identifier_token1] = ACTIONS(97),
-    [sym_comment] = ACTIONS(21),
-  },
-  [3395] = {
-    [sym_assignment] = STATE(6746),
-    [sym_operator] = STATE(6746),
-    [sym_defined_io_procedure] = STATE(6746),
-    [sym__generic_procedure] = STATE(6746),
-    [sym__name] = STATE(6746),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1383),
+    [sym_assignment] = STATE(6736),
+    [sym_operator] = STATE(6736),
+    [sym_defined_io_procedure] = STATE(6736),
+    [sym__generic_procedure] = STATE(6736),
+    [sym__name] = STATE(6736),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(857),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486794,20 +486586,20 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7635),
   },
-  [3396] = {
-    [sym_assignment] = STATE(6695),
-    [sym_operator] = STATE(6695),
-    [sym_defined_io_procedure] = STATE(6695),
-    [sym__generic_procedure] = STATE(6695),
-    [sym__name] = STATE(6695),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1397),
+  [3395] = {
+    [sym_assignment] = STATE(7214),
+    [sym_operator] = STATE(7214),
+    [sym_defined_io_procedure] = STATE(7214),
+    [sym__generic_procedure] = STATE(7214),
+    [sym__name] = STATE(7214),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(4543),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486861,20 +486653,87 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym_comment] = ACTIONS(21),
     [sym__external_end_of_statement] = ACTIONS(7637),
   },
+  [3396] = {
+    [sym__type_name] = STATE(6098),
+    [sym__intrinsic_type] = STATE(6099),
+    [sym_unlimited_polymorphic] = STATE(7768),
+    [sym_identifier] = STATE(6125),
+    [anon_sym_STAR] = ACTIONS(7563),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token2] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(75),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(79),
+    [aux_sym__intrinsic_type_token6] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token7] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token8] = ACTIONS(81),
+    [aux_sym__intrinsic_type_token9] = ACTIONS(77),
+    [aux_sym__intrinsic_type_token10] = ACTIONS(77),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+  },
   [3397] = {
-    [sym_assignment] = STATE(6696),
-    [sym_operator] = STATE(6696),
-    [sym_defined_io_procedure] = STATE(6696),
-    [sym__generic_procedure] = STATE(6696),
-    [sym__name] = STATE(6696),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1407),
+    [sym_assignment] = STATE(7165),
+    [sym_operator] = STATE(7165),
+    [sym_defined_io_procedure] = STATE(7165),
+    [sym__generic_procedure] = STATE(7165),
+    [sym__name] = STATE(7165),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(981),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486929,19 +486788,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7639),
   },
   [3398] = {
-    [sym_assignment] = STATE(7169),
-    [sym_operator] = STATE(7169),
-    [sym_defined_io_procedure] = STATE(7169),
-    [sym__generic_procedure] = STATE(7169),
-    [sym__name] = STATE(7169),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(2844),
+    [sym_assignment] = STATE(7125),
+    [sym_operator] = STATE(7125),
+    [sym_defined_io_procedure] = STATE(7125),
+    [sym__generic_procedure] = STATE(7125),
+    [sym__name] = STATE(7125),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1529),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -486996,19 +486855,19 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7641),
   },
   [3399] = {
-    [sym_assignment] = STATE(7309),
-    [sym_operator] = STATE(7309),
-    [sym_defined_io_procedure] = STATE(7309),
-    [sym__generic_procedure] = STATE(7309),
-    [sym__name] = STATE(7309),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(4643),
+    [sym_assignment] = STATE(7124),
+    [sym_operator] = STATE(7124),
+    [sym_defined_io_procedure] = STATE(7124),
+    [sym__generic_procedure] = STATE(7124),
+    [sym__name] = STATE(7124),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1559),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -487063,19 +486922,86 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [sym__external_end_of_statement] = ACTIONS(7643),
   },
   [3400] = {
-    [sym_assignment] = STATE(6758),
-    [sym_operator] = STATE(6758),
-    [sym_defined_io_procedure] = STATE(6758),
-    [sym__generic_procedure] = STATE(6758),
-    [sym__name] = STATE(6758),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1450),
+    [sym_while_statement] = STATE(7087),
+    [sym_concurrent_statement] = STATE(7087),
+    [sym_concurrent_header] = STATE(5770),
+    [sym_loop_control_expression] = STATE(7087),
+    [sym_identifier] = STATE(7970),
+    [sym__end_of_statement] = STATE(680),
+    [anon_sym_COMMA] = ACTIONS(7645),
+    [anon_sym_AMP] = ACTIONS(21),
+    [aux_sym_end_program_statement_token1] = ACTIONS(768),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(97),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(97),
+    [aux_sym_procedure_attributes_token3] = ACTIONS(97),
+    [aux_sym_use_statement_token2] = ACTIONS(97),
+    [aux_sym_implicit_statement_token4] = ACTIONS(97),
+    [aux_sym_save_statement_token1] = ACTIONS(97),
+    [aux_sym_private_statement_token1] = ACTIONS(97),
+    [aux_sym_public_statement_token1] = ACTIONS(97),
+    [aux_sym_derived_type_definition_token1] = ACTIONS(97),
+    [aux_sym_procedure_attribute_token6] = ACTIONS(97),
+    [aux_sym_variable_attributes_token2] = ACTIONS(97),
+    [aux_sym_variable_attributes_token3] = ACTIONS(97),
+    [aux_sym_variable_attributes_token5] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token1] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token3] = ACTIONS(97),
+    [aux_sym__intrinsic_type_token4] = ACTIONS(1416),
+    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(1418),
+    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(97),
+    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(97),
+    [aux_sym_type_qualifier_token1] = ACTIONS(97),
+    [aux_sym_type_qualifier_token2] = ACTIONS(97),
+    [anon_sym_SEMI] = ACTIONS(7647),
+    [aux_sym_stop_statement_token1] = ACTIONS(97),
+    [aux_sym_stop_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token2] = ACTIONS(97),
+    [aux_sym_keyword_statement_token3] = ACTIONS(97),
+    [aux_sym_data_statement_token1] = ACTIONS(97),
+    [aux_sym_while_statement_token1] = ACTIONS(7466),
+    [aux_sym_concurrent_header_token1] = ACTIONS(7468),
+    [aux_sym__inline_if_statement_token1] = ACTIONS(97),
+    [aux_sym_end_if_statement_token1] = ACTIONS(97),
+    [aux_sym_elseif_clause_token2] = ACTIONS(97),
+    [aux_sym_select_case_statement_token1] = ACTIONS(4669),
+    [aux_sym_block_construct_token1] = ACTIONS(97),
+    [aux_sym_format_statement_token1] = ACTIONS(97),
+    [aux_sym_inquire_statement_token1] = ACTIONS(97),
+    [aux_sym_entry_statement_token1] = ACTIONS(97),
+    [aux_sym_null_literal_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_statement_token2] = ACTIONS(97),
+    [aux_sym_coarray_statement_token6] = ACTIONS(97),
+    [aux_sym_coarray_statement_token8] = ACTIONS(97),
+    [aux_sym_coarray_statement_token11] = ACTIONS(97),
+    [aux_sym_coarray_statement_token12] = ACTIONS(97),
+    [aux_sym_coarray_team_statement_token1] = ACTIONS(97),
+    [aux_sym_coarray_critical_statement_token1] = ACTIONS(97),
+    [aux_sym_identifier_token1] = ACTIONS(97),
+    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7647),
+  },
+  [3401] = {
+    [sym_assignment] = STATE(6877),
+    [sym_operator] = STATE(6877),
+    [sym_defined_io_procedure] = STATE(6877),
+    [sym__generic_procedure] = STATE(6877),
+    [sym__name] = STATE(6877),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1649),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -487102,7 +487028,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7645),
+    [anon_sym_SEMI] = ACTIONS(7649),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -487127,22 +487053,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7645),
+    [sym__external_end_of_statement] = ACTIONS(7649),
   },
-  [3401] = {
-    [sym_assignment] = STATE(6759),
-    [sym_operator] = STATE(6759),
-    [sym_defined_io_procedure] = STATE(6759),
-    [sym__generic_procedure] = STATE(6759),
-    [sym__name] = STATE(6759),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1471),
+  [3402] = {
+    [sym_assignment] = STATE(6503),
+    [sym_operator] = STATE(6503),
+    [sym_defined_io_procedure] = STATE(6503),
+    [sym__generic_procedure] = STATE(6503),
+    [sym__name] = STATE(6503),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(1562),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -487169,7 +487095,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7647),
+    [anon_sym_SEMI] = ACTIONS(7651),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -487194,22 +487120,22 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7647),
+    [sym__external_end_of_statement] = ACTIONS(7651),
   },
-  [3402] = {
-    [sym_assignment] = STATE(7041),
-    [sym_operator] = STATE(7041),
-    [sym_defined_io_procedure] = STATE(7041),
-    [sym__generic_procedure] = STATE(7041),
-    [sym__name] = STATE(7041),
-    [sym_identifier] = STATE(6116),
-    [sym__end_of_statement] = STATE(1408),
+  [3403] = {
+    [sym_assignment] = STATE(7207),
+    [sym_operator] = STATE(7207),
+    [sym_defined_io_procedure] = STATE(7207),
+    [sym__generic_procedure] = STATE(7207),
+    [sym__name] = STATE(7207),
+    [sym_identifier] = STATE(6138),
+    [sym__end_of_statement] = STATE(2685),
     [anon_sym_AMP] = ACTIONS(21),
     [aux_sym_end_program_statement_token1] = ACTIONS(5493),
-    [aux_sym_assignment_token1] = ACTIONS(5694),
-    [aux_sym_operator_token1] = ACTIONS(5696),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(5698),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(5698),
+    [aux_sym_assignment_token1] = ACTIONS(5692),
+    [aux_sym_operator_token1] = ACTIONS(5694),
+    [aux_sym_defined_io_procedure_token1] = ACTIONS(5696),
+    [aux_sym_defined_io_procedure_token2] = ACTIONS(5696),
     [aux_sym_procedure_attributes_token3] = ACTIONS(5495),
     [aux_sym_use_statement_token2] = ACTIONS(5495),
     [aux_sym_implicit_statement_token4] = ACTIONS(5495),
@@ -487236,7 +487162,7 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym__standalone_type_qualifier_token16] = ACTIONS(5495),
     [aux_sym_type_qualifier_token1] = ACTIONS(5495),
     [aux_sym_type_qualifier_token2] = ACTIONS(5495),
-    [anon_sym_SEMI] = ACTIONS(7649),
+    [anon_sym_SEMI] = ACTIONS(7653),
     [aux_sym_stop_statement_token1] = ACTIONS(5495),
     [aux_sym_stop_statement_token2] = ACTIONS(5495),
     [aux_sym_keyword_statement_token2] = ACTIONS(5495),
@@ -487261,871 +487187,42 @@ static const uint16_t ts_parse_table[LARGE_STATE_COUNT][SYMBOL_COUNT] = {
     [aux_sym_coarray_critical_statement_token1] = ACTIONS(5495),
     [aux_sym_identifier_token1] = ACTIONS(5495),
     [sym_comment] = ACTIONS(21),
-    [sym__external_end_of_statement] = ACTIONS(7649),
-  },
-  [3403] = {
-    [anon_sym_COMMA] = ACTIONS(7651),
-    [anon_sym_AMP] = ACTIONS(21),
-    [aux_sym_end_program_statement_token1] = ACTIONS(7653),
-    [aux_sym_defined_io_procedure_token1] = ACTIONS(7653),
-    [aux_sym_defined_io_procedure_token2] = ACTIONS(7653),
-    [aux_sym_language_binding_token1] = ACTIONS(7653),
-    [aux_sym_procedure_attributes_token1] = ACTIONS(7653),
-    [aux_sym_procedure_attributes_token3] = ACTIONS(7653),
-    [aux_sym_use_statement_token2] = ACTIONS(7653),
-    [anon_sym_COLON_COLON] = ACTIONS(7651),
-    [aux_sym_implicit_statement_token4] = ACTIONS(7653),
-    [aux_sym_save_statement_token1] = ACTIONS(7653),
-    [aux_sym_private_statement_token1] = ACTIONS(7653),
-    [aux_sym_public_statement_token1] = ACTIONS(7653),
-    [aux_sym_derived_type_definition_token1] = ACTIONS(7653),
-    [aux_sym_abstract_specifier_token1] = ACTIONS(7653),
-    [aux_sym_procedure_attribute_token6] = ACTIONS(7653),
-    [aux_sym_variable_attributes_token1] = ACTIONS(7653),
-    [aux_sym_variable_attributes_token2] = ACTIONS(7653),
-    [aux_sym_variable_attributes_token3] = ACTIONS(7653),
-    [aux_sym_variable_attributes_token4] = ACTIONS(7653),
-    [aux_sym_variable_attributes_token5] = ACTIONS(7653),
-    [aux_sym__intrinsic_type_token1] = ACTIONS(7653),
-    [aux_sym__intrinsic_type_token3] = ACTIONS(7653),
-    [aux_sym__intrinsic_type_token4] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token1] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token2] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token3] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token4] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token5] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token6] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token10] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token11] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token12] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token13] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token14] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token15] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token16] = ACTIONS(7653),
-    [aux_sym__standalone_type_qualifier_token17] = ACTIONS(7653),
-    [aux_sym_type_qualifier_token1] = ACTIONS(7653),
-    [aux_sym_type_qualifier_token2] = ACTIONS(7653),
-    [aux_sym_stop_statement_token1] = ACTIONS(7653),
-    [aux_sym_stop_statement_token2] = ACTIONS(7653),
-    [aux_sym_keyword_statement_token2] = ACTIONS(7653),
-    [aux_sym_keyword_statement_token3] = ACTIONS(7653),
-    [aux_sym_data_statement_token1] = ACTIONS(7653),
-    [aux_sym__inline_if_statement_token1] = ACTIONS(7653),
-    [aux_sym_end_if_statement_token1] = ACTIONS(7653),
-    [aux_sym_elseif_clause_token2] = ACTIONS(7653),
-    [aux_sym_select_case_statement_token1] = ACTIONS(7653),
-    [aux_sym_block_construct_token1] = ACTIONS(7653),
-    [aux_sym_format_statement_token1] = ACTIONS(7653),
-    [aux_sym_inquire_statement_token1] = ACTIONS(7653),
-    [aux_sym_entry_statement_token1] = ACTIONS(7653),
-    [aux_sym_null_literal_token1] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token1] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token2] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token6] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token8] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token11] = ACTIONS(7653),
-    [aux_sym_coarray_statement_token12] = ACTIONS(7653),
-    [aux_sym_coarray_team_statement_token1] = ACTIONS(7653),
-    [aux_sym_coarray_critical_statement_token1] = ACTIONS(7653),
-    [aux_sym_identifier_token1] = ACTIONS(7653),
-    [sym_comment] = ACTIONS(21),
+    [sym__external_end_of_statement] = ACTIONS(7653),
   },
 };
 
 static const uint16_t ts_small_parse_table[] = {
-  [0] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6293), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [91] = 13,
-    ACTIONS(5493), 1,
+  [0] = 11,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6287), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [182] = 3,
     ACTIONS(7657), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7655), 61,
-      aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [253] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6166), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [344] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6090), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [435] = 3,
-    ACTIONS(7661), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7659), 61,
-      aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [506] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6299), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [597] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6140), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [688] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6177), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [779] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
+      anon_sym_DOT,
+    STATE(2991), 1,
+      sym_user_defined_operator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-    STATE(6163), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [870] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
+    ACTIONS(7655), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(5860), 3,
+      sym__integer_literal,
+      sym__float_literal,
+      sym__boz_literal,
+    STATE(8526), 3,
+      sym_unary_expression,
+      sym_number_literal,
       sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6255), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488171,38 +487268,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [961] = 12,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
-    STATE(6262), 1,
-      sym_identifier,
+  [87] = 3,
+    ACTIONS(7661), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7659), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    ACTIONS(7663), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6370), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_use_alias,
-    ACTIONS(5495), 45,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488210,20 +487287,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -488234,6 +487321,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -488248,41 +487336,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1050] = 15,
-    ACTIONS(6976), 1,
+  [158] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7665), 1,
-      anon_sym_COMMA,
-    ACTIONS(7667), 1,
-      anon_sym_COLON_COLON,
-    STATE(3955), 1,
-      aux_sym_variable_declaration_repeat1,
-    STATE(5035), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5400), 1,
-      sym__declaration_targets,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6240), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488328,34 +487414,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1145] = 11,
-    ACTIONS(766), 1,
+  [249] = 13,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7671), 1,
-      anon_sym_DOT,
-    STATE(3058), 1,
-      sym_user_defined_operator,
+    ACTIONS(7466), 1,
+      aux_sym_while_statement_token1,
+    ACTIONS(7468), 1,
+      aux_sym_concurrent_header_token1,
+    STATE(678), 1,
+      sym__end_of_statement,
+    STATE(5770), 1,
+      sym_concurrent_header,
+    STATE(7970), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7669), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(5842), 3,
-      sym__integer_literal,
-      sym__float_literal,
-      sym__boz_literal,
-    STATE(8593), 3,
-      sym_unary_expression,
-      sym_number_literal,
-      sym_identifier,
+    ACTIONS(7663), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(7208), 3,
+      sym_while_statement,
+      sym_concurrent_statement,
+      sym_loop_control_expression,
     ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -488404,98 +487492,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1232] = 15,
-    ACTIONS(5493), 1,
+  [340] = 13,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7665), 1,
-      anon_sym_COMMA,
-    ACTIONS(7673), 1,
-      anon_sym_COLON_COLON,
-    STATE(3341), 1,
+    ACTIONS(7466), 1,
+      aux_sym_while_statement_token1,
+    ACTIONS(7468), 1,
+      aux_sym_concurrent_header_token1,
+    STATE(680), 1,
+      sym__end_of_statement,
+    STATE(5770), 1,
+      sym_concurrent_header,
+    STATE(7970), 1,
       sym_identifier,
-    STATE(3430), 1,
-      aux_sym_variable_declaration_repeat1,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7563), 1,
-      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [1327] = 3,
-    ACTIONS(7204), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7200), 61,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(7647), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(7087), 3,
+      sym_while_statement,
+      sym_concurrent_statement,
+      sym_loop_control_expression,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488503,30 +487532,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -488537,7 +487556,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -488552,37 +487570,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1398] = 13,
-    ACTIONS(766), 1,
+  [431] = 15,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7466), 1,
-      aux_sym_while_statement_token1,
-    ACTIONS(7468), 1,
-      aux_sym_concurrent_header_token1,
-    STATE(697), 1,
-      sym__end_of_statement,
-    STATE(5774), 1,
-      sym_concurrent_header,
-    STATE(7861), 1,
+    ACTIONS(7665), 1,
+      anon_sym_COMMA,
+    ACTIONS(7667), 1,
+      anon_sym_COLON_COLON,
+    STATE(3952), 1,
+      aux_sym_variable_declaration_repeat1,
+    STATE(5006), 1,
       sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5437), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7675), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6833), 3,
-      sym_while_statement,
-      sym_concurrent_statement,
-      sym_loop_control_expression,
-    ACTIONS(97), 47,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -488630,13 +487650,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1489] = 3,
-    ACTIONS(7679), 1,
+  [526] = 3,
+    ACTIONS(7671), 1,
       anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7677), 61,
+    ACTIONS(7669), 61,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -488698,18 +487718,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1560] = 3,
-    ACTIONS(7683), 1,
-      anon_sym_COLON_COLON,
+  [597] = 13,
+    ACTIONS(79), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
+    STATE(7286), 1,
+      sym_concurrent_control,
+    STATE(8625), 1,
+      sym_identifier,
+    STATE(8626), 1,
+      sym_intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7681), 61,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488717,30 +487760,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -488751,7 +487782,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -488766,41 +487796,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1631] = 15,
-    ACTIONS(6976), 1,
+  [688] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7665), 1,
-      anon_sym_COMMA,
-    ACTIONS(7685), 1,
-      anon_sym_COLON_COLON,
-    STATE(3416), 1,
-      aux_sym_variable_declaration_repeat1,
-    STATE(5035), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5415), 1,
-      sym__declaration_targets,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6177), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -488846,20 +487874,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1726] = 13,
+  [779] = 13,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
+    ACTIONS(7503), 1,
       aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
+    ACTIONS(7505), 1,
       aux_sym_operator_token1,
-    STATE(6418), 1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(8144), 1,
+    STATE(8316), 1,
       sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -488867,13 +487895,13 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6248), 2,
+    STATE(6167), 2,
       sym_binding,
       sym_method_name,
-    STATE(7884), 4,
+    STATE(8315), 4,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -488924,37 +487952,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1817] = 11,
-    ACTIONS(766), 1,
+  [870] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7671), 1,
-      anon_sym_DOT,
-    STATE(3058), 1,
-      sym_user_defined_operator,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7669), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(5842), 3,
-      sym__integer_literal,
-      sym__float_literal,
-      sym__boz_literal,
-    STATE(8100), 3,
-      sym_unary_expression,
-      sym_number_literal,
-      sym_identifier,
-    ACTIONS(97), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6183), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489000,39 +488030,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1904] = 13,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [961] = 15,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
-    STATE(6690), 1,
-      sym_concurrent_control,
-    STATE(7792), 1,
-      sym_intrinsic_type,
-    STATE(7887), 1,
+    ACTIONS(7665), 1,
+      anon_sym_COMMA,
+    ACTIONS(7675), 1,
+      anon_sym_COLON_COLON,
+    STATE(3341), 1,
       sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(3952), 1,
+      aux_sym_variable_declaration_repeat1,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7671), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -489046,6 +488076,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -489078,18 +488110,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [1995] = 3,
-    ACTIONS(6704), 1,
+  [1056] = 15,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7665), 1,
+      anon_sym_COMMA,
+    ACTIONS(7677), 1,
       anon_sym_COLON_COLON,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3415), 1,
+      aux_sym_variable_declaration_repeat1,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7461), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5700), 61,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489097,30 +488152,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -489131,7 +488176,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -489146,13 +488190,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2066] = 3,
-    ACTIONS(7661), 1,
+  [1151] = 3,
+    ACTIONS(7681), 1,
       anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7659), 61,
+    ACTIONS(7679), 61,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -489214,37 +488258,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2137] = 11,
-    ACTIONS(766), 1,
+  [1222] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7671), 1,
-      anon_sym_DOT,
-    STATE(3058), 1,
-      sym_user_defined_operator,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7669), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(5842), 3,
-      sym__integer_literal,
-      sym__float_literal,
-      sym__boz_literal,
-    STATE(8461), 3,
-      sym_unary_expression,
-      sym_number_literal,
-      sym_identifier,
-    ACTIONS(97), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6188), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489290,39 +488336,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2224] = 15,
-    ACTIONS(5493), 1,
+  [1313] = 11,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7665), 1,
-      anon_sym_COMMA,
-    ACTIONS(7689), 1,
-      anon_sym_COLON_COLON,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(3955), 1,
-      aux_sym_variable_declaration_repeat1,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7559), 1,
-      sym__declaration_targets,
+    ACTIONS(7657), 1,
+      anon_sym_DOT,
+    STATE(2991), 1,
+      sym_user_defined_operator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(7655), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(5860), 3,
+      sym__integer_literal,
+      sym__float_literal,
+      sym__boz_literal,
+    STATE(7866), 3,
+      sym_unary_expression,
+      sym_number_literal,
+      sym_identifier,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -489370,39 +488412,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2319] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
+  [1400] = 3,
+    ACTIONS(6704), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
+    ACTIONS(5698), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6080), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489410,20 +488431,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -489434,6 +488465,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -489448,39 +488480,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2410] = 13,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
+  [1471] = 3,
+    ACTIONS(7685), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
+    ACTIONS(7683), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6086), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489488,20 +488499,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -489512,6 +488533,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -489526,13 +488548,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2501] = 3,
-    ACTIONS(7693), 1,
+  [1542] = 3,
+    ACTIONS(7204), 1,
       anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7691), 61,
+    ACTIONS(7200), 61,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -489594,39 +488616,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2572] = 13,
-    ACTIONS(766), 1,
+  [1613] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7466), 1,
-      aux_sym_while_statement_token1,
-    ACTIONS(7468), 1,
-      aux_sym_concurrent_header_token1,
-    STATE(662), 1,
-      sym__end_of_statement,
-    STATE(5774), 1,
-      sym_concurrent_header,
-    STATE(7861), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7629), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6518), 3,
-      sym_while_statement,
-      sym_concurrent_statement,
-      sym_loop_control_expression,
-    ACTIONS(97), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6145), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489672,39 +488694,37 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2663] = 13,
-    ACTIONS(5493), 1,
+  [1704] = 11,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7505), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(7507), 1,
-      aux_sym_operator_token1,
-    STATE(6418), 1,
-      sym_identifier,
-    STATE(8144), 1,
-      sym_binding_name,
+    ACTIONS(7657), 1,
+      anon_sym_DOT,
+    STATE(2991), 1,
+      sym_user_defined_operator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7509), 2,
+    ACTIONS(7655), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(5860), 3,
+      sym__integer_literal,
+      sym__float_literal,
+      sym__boz_literal,
+    STATE(8564), 3,
+      sym_unary_expression,
+      sym_number_literal,
+      sym_identifier,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6879), 2,
-      sym_binding,
-      sym_method_name,
-    STATE(7884), 4,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489750,18 +488770,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2754] = 3,
-    ACTIONS(7697), 1,
-      anon_sym_COLON_COLON,
+  [1791] = 13,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7695), 61,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-      aux_sym_language_binding_token1,
-      aux_sym_procedure_attributes_token1,
+    STATE(6275), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489769,30 +488810,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token3,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -489803,7 +488834,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -489818,38 +488848,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2825] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [1882] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8302), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6220), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489861,6 +488892,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -489893,38 +488926,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2911] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+  [1973] = 3,
+    ACTIONS(7689), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8226), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7687), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -489932,18 +488945,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -489954,6 +488979,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -489968,38 +488994,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [2997] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [2044] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8227), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6185), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490011,6 +489038,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -490043,38 +489072,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3083] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [2135] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
+      sym_identifier,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8550), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6144), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490086,6 +489116,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -490118,38 +489150,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3169] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+  [2226] = 3,
+    ACTIONS(7661), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8301), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7659), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490157,18 +489169,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -490179,6 +489203,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -490193,37 +489218,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3255] = 12,
-    ACTIONS(7699), 1,
-      anon_sym_SLASH,
-    ACTIONS(7702), 1,
+  [2297] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7708), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7716), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7711), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7714), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(3442), 2,
-      sym_variable_group,
-      aux_sym_common_statement_repeat2,
-    STATE(3735), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(7705), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6914), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490269,38 +489296,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3343] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+  [2388] = 3,
+    ACTIONS(7693), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8297), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(7691), 61,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+      aux_sym_language_binding_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490308,18 +489315,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
       aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token3,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token6,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
       aux_sym_type_qualifier_token1,
       aux_sym_type_qualifier_token2,
       aux_sym_stop_statement_token1,
@@ -490330,6 +489349,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -490344,36 +489364,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3429] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [2459] = 15,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(6962), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+    ACTIONS(7665), 1,
+      anon_sym_COMMA,
+    ACTIONS(7695), 1,
+      anon_sym_COLON_COLON,
+    STATE(3409), 1,
+      aux_sym_variable_declaration_repeat1,
+    STATE(5006), 1,
+      sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5496), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8298), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -490387,6 +489410,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -490419,38 +489444,38 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3515] = 11,
-    ACTIONS(79), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(81), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+  [2554] = 12,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(4669), 1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
-      sym__intrinsic_type,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
+    STATE(6164), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-    STATE(8551), 2,
-      sym_intrinsic_type,
-      sym_identifier,
-    ACTIONS(77), 5,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    ACTIONS(97), 45,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    ACTIONS(7697), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(6345), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_use_alias,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490462,6 +489487,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -490494,37 +489521,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3601] = 12,
-    ACTIONS(7719), 1,
-      anon_sym_SLASH,
-    ACTIONS(7721), 1,
+  [2643] = 13,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7725), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7731), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7727), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7729), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(3442), 2,
-      sym_variable_group,
-      aux_sym_common_statement_repeat2,
-    STATE(3735), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(7723), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6280), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490570,39 +489599,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3689] = 14,
+  [2734] = 13,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7206), 1,
-      anon_sym_COMMA,
-    ACTIONS(7210), 1,
-      anon_sym_COLON_COLON,
-    STATE(3341), 1,
+    ACTIONS(7503), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(7505), 1,
+      aux_sym_operator_token1,
+    STATE(6413), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7630), 1,
-      sym__declaration_targets,
+    STATE(8316), 1,
+      sym_binding_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(7507), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6108), 2,
+      sym_binding,
+      sym_method_name,
+    STATE(8315), 4,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -490648,37 +489677,105 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3781] = 14,
-    ACTIONS(6976), 1,
+  [2825] = 5,
+    ACTIONS(7701), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7705), 1,
+      aux_sym_kind_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7699), 6,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+    ACTIONS(7703), 53,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+      anon_sym_EQ,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7733), 1,
-      anon_sym_COMMA,
-    ACTIONS(7735), 1,
-      anon_sym_COLON_COLON,
-    STATE(5035), 1,
-      sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5410), 1,
-      sym__declaration_targets,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [2899] = 11,
+    ACTIONS(79), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8226), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -490692,8 +489789,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -490726,16 +489821,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3873] = 11,
+  [2985] = 11,
     ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(81), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
+    STATE(6067), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -490743,10 +489838,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
+    ACTIONS(7673), 2,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-    STATE(8614), 2,
+    STATE(8221), 2,
       sym_intrinsic_type,
       sym_identifier,
     ACTIONS(77), 5,
@@ -490801,16 +489896,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [3959] = 11,
+  [3071] = 11,
     ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(81), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
+    STATE(6067), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -490818,10 +489913,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
+    ACTIONS(7673), 2,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-    STATE(8647), 2,
+    STATE(8301), 2,
       sym_intrinsic_type,
       sym_identifier,
     ACTIONS(77), 5,
@@ -490876,24 +489971,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4045] = 5,
-    ACTIONS(7739), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7743), 1,
-      aux_sym_kind_token1,
+  [3157] = 11,
+    ACTIONS(79), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7737), 6,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SLASH,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(7741), 53,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8220), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -490907,16 +490014,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -490930,7 +490032,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -490945,16 +490046,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4119] = 11,
+  [3243] = 11,
     ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(81), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
+    STATE(6067), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -490962,10 +490063,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
+    ACTIONS(7673), 2,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-    STATE(8220), 2,
+    STATE(8227), 2,
       sym_intrinsic_type,
       sym_identifier,
     ACTIONS(77), 5,
@@ -491020,16 +490121,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4205] = 11,
+  [3329] = 11,
     ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(81), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6038), 1,
+    STATE(6067), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -491037,10 +490138,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7687), 2,
+    ACTIONS(7673), 2,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-    STATE(8221), 2,
+    STATE(8323), 2,
       sym_intrinsic_type,
       sym_identifier,
     ACTIONS(77), 5,
@@ -491095,35 +490196,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4291] = 11,
+  [3415] = 14,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
-    STATE(6390), 1,
+    ACTIONS(7206), 1,
+      anon_sym_COMMA,
+    ACTIONS(7210), 1,
+      anon_sym_COLON_COLON,
+    STATE(3341), 1,
       sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7419), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6472), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_use_alias,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -491169,23 +490274,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4376] = 5,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    STATE(3545), 1,
-      sym_coarray_index,
+  [3507] = 11,
+    ACTIONS(79), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7517), 5,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SLASH,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-    ACTIONS(7523), 53,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8327), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491199,16 +490317,86 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [3593] = 11,
+    ACTIONS(79), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7673), 2,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
+    STATE(8167), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -491222,7 +490410,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -491237,22 +490424,37 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4449] = 4,
-    ACTIONS(7747), 1,
-      anon_sym_LPAREN2,
+  [3679] = 14,
+    ACTIONS(6958), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(6962), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(6966), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7707), 1,
+      anon_sym_COMMA,
+    ACTIONS(7709), 1,
+      anon_sym_COLON_COLON,
+    STATE(5006), 1,
+      sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5459), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7745), 6,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SLASH,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(7749), 53,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(6964), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491268,14 +490470,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -491289,7 +490488,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -491304,33 +490502,38 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4520] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+  [3771] = 11,
+    ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8169), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6096), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -491342,8 +490545,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -491376,33 +490577,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4602] = 12,
-    ACTIONS(5493), 1,
+  [3857] = 12,
+    ACTIONS(7711), 1,
+      anon_sym_SLASH,
+    ACTIONS(7714), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7720), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7728), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(3914), 1,
-      sym_argument_list,
-    STATE(7462), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(3341), 1,
       sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7723), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7751), 2,
+    ACTIONS(7726), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(3449), 2,
+      sym_variable_group,
+      aux_sym_common_statement_repeat2,
+    STATE(3730), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(7717), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491450,100 +490653,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4688] = 5,
-    ACTIONS(7757), 1,
-      anon_sym__,
-    STATE(3721), 1,
-      sym__kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7755), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
+  [3945] = 11,
+    ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(7753), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
+    ACTIONS(81), 1,
       aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [4760] = 12,
-    ACTIONS(5493), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7618), 1,
-      sym__declaration_targets,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8297), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491557,8 +490696,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -491591,33 +490728,38 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4846] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+  [4031] = 11,
+    ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8298), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6957), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -491629,8 +490771,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -491663,20 +490803,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4928] = 3,
+  [4117] = 12,
+    ACTIONS(7731), 1,
+      anon_sym_SLASH,
+    ACTIONS(7733), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7737), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7743), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 7,
+    ACTIONS(7739), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7741), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(4285), 52,
-      aux_sym_end_program_statement_token1,
+    STATE(3449), 2,
+      sym_variable_group,
+      aux_sym_common_statement_repeat2,
+    STATE(3730), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(7735), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491692,14 +490847,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -491713,7 +490865,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -491728,32 +490879,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [4996] = 11,
-    ACTIONS(7719), 1,
-      anon_sym_SLASH,
-    ACTIONS(7721), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(7725), 1,
+  [4205] = 11,
+    ACTIONS(79), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7731), 1,
+    ACTIONS(81), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+    STATE(6067), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7727), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(3446), 2,
-      sym_variable_group,
-      aux_sym_common_statement_repeat2,
-    STATE(3735), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(7723), 47,
+    ACTIONS(7673), 2,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+    STATE(8302), 2,
+      sym_intrinsic_type,
+      sym_identifier,
+    ACTIONS(77), 5,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    ACTIONS(97), 45,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491767,8 +490922,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token2,
       aux_sym_variable_attributes_token3,
       aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
       aux_sym__standalone_type_qualifier_token5,
@@ -491801,33 +490954,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5080] = 12,
-    ACTIONS(6976), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5035), 1,
-      sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5449), 1,
-      sym__declaration_targets,
+  [4291] = 4,
+    ACTIONS(7747), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7745), 6,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+    ACTIONS(7749), 53,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -491843,11 +490985,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -491861,6 +491006,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -491875,22 +491021,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5166] = 3,
+  [4362] = 11,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
+    STATE(6381), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7759), 6,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SLASH,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(7761), 53,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6557), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_use_alias,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -491904,14 +491063,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -491925,7 +491081,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -491940,18 +491095,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5234] = 3,
+  [4447] = 5,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    STATE(3562), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7763), 6,
+    ACTIONS(7515), 5,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_SLASH,
       anon_sym_EQ_GT,
       anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(7765), 53,
+    ACTIONS(7521), 53,
       aux_sym_end_program_statement_token1,
       anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
@@ -492005,16 +491163,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5302] = 10,
+  [4520] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -492022,10 +491180,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6297), 5,
+    STATE(6253), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -492077,16 +491235,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5384] = 10,
+  [4602] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -492094,10 +491252,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6306), 5,
+    STATE(6211), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -492149,35 +491307,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5466] = 12,
+  [4684] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7767), 1,
-      anon_sym_LPAREN2,
-    STATE(646), 1,
-      sym__end_of_statement,
-    STATE(3746), 1,
-      sym_parenthesized_expression,
-    STATE(6884), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7769), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6258), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -492223,35 +491379,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5552] = 12,
-    ACTIONS(4291), 1,
-      anon_sym_LPAREN2,
+  [4766] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7771), 1,
-      aux_sym_module_statement_token1,
-    STATE(1062), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(7163), 1,
-      sym__name,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7773), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6239), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -492297,33 +491451,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5638] = 10,
+  [4848] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7672), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6238), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -492369,16 +491525,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5720] = 10,
+  [4934] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -492386,10 +491542,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6269), 5,
+    STATE(6147), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -492441,35 +491597,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5802] = 12,
+  [5016] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7636), 1,
-      sym__declaration_targets,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(7290), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -492515,22 +491669,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5888] = 3,
+  [5098] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4291), 7,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(4289), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6154), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -492544,14 +491709,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -492565,7 +491727,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -492580,33 +491741,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [5956] = 12,
-    ACTIONS(4291), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7775), 1,
-      aux_sym_module_statement_token1,
-    STATE(850), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6737), 1,
-      sym__name,
+  [5180] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7777), 2,
+    ACTIONS(4323), 7,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+      anon_sym_LBRACK,
+    ACTIONS(4321), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -492622,11 +491770,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -492640,6 +491791,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -492654,20 +491806,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6042] = 3,
+  [5248] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7779), 6,
+    ACTIONS(4345), 7,
       sym__external_end_of_statement,
       anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_EQ_GT,
       anon_sym_SEMI,
       anon_sym_LBRACK,
-    ACTIONS(7781), 53,
+    ACTIONS(4343), 52,
       aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -492719,16 +491871,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6110] = 10,
+  [5316] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -492736,10 +491888,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6148), 5,
+    STATE(6121), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -492791,16 +491943,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6192] = 10,
+  [5398] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -492808,10 +491960,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6079), 5,
+    STATE(6130), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -492863,33 +492015,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6274] = 12,
-    ACTIONS(4291), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7783), 1,
-      aux_sym_submodule_statement_token1,
-    STATE(1064), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(7167), 1,
-      sym__name,
+  [5480] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7785), 2,
+    ACTIONS(4391), 7,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+      anon_sym_LBRACK,
+    ACTIONS(4389), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -492905,11 +492044,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -492923,6 +492065,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -492937,33 +492080,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6360] = 12,
-    ACTIONS(4291), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7787), 1,
-      aux_sym_submodule_statement_token1,
-    STATE(852), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6740), 1,
-      sym__name,
+  [5548] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7789), 2,
+    ACTIONS(4345), 7,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+      anon_sym_LBRACK,
+    ACTIONS(4343), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -492979,11 +492109,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -492997,6 +492130,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -493011,33 +492145,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6446] = 10,
-    ACTIONS(5493), 1,
+  [5616] = 12,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(5006), 1,
+      sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5438), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6257), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493083,16 +492219,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6528] = 10,
+  [5702] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -493100,10 +492236,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6260), 5,
+    STATE(6278), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -493155,16 +492291,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6610] = 10,
+  [5784] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -493172,10 +492308,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6167), 5,
+    STATE(6284), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -493227,33 +492363,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6692] = 10,
-    ACTIONS(5493), 1,
+  [5866] = 11,
+    ACTIONS(7731), 1,
+      anon_sym_SLASH,
+    ACTIONS(7733), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7737), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7743), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7739), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(3452), 2,
+      sym_variable_group,
+      aux_sym_common_statement_repeat2,
+    STATE(3730), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(7735), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6170), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493299,33 +492436,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6774] = 10,
+  [5950] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    ACTIONS(7751), 1,
+      anon_sym_LPAREN2,
+    STATE(640), 1,
+      sym__end_of_statement,
+    STATE(3708), 1,
+      sym_parenthesized_expression,
+    STATE(6970), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7753), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6253), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493371,20 +492510,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6856] = 3,
+  [6036] = 12,
+    ACTIONS(4391), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7755), 1,
+      aux_sym_submodule_statement_token1,
+    STATE(989), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6652), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4299), 7,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7757), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(4297), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -493400,14 +492552,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -493421,7 +492570,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -493436,33 +492584,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [6924] = 10,
-    ACTIONS(5493), 1,
+  [6122] = 12,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(5006), 1,
+      sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5427), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6144), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493508,33 +492658,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7006] = 10,
+  [6208] = 12,
+    ACTIONS(4391), 1,
+      anon_sym_LPAREN2,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    ACTIONS(7759), 1,
+      aux_sym_module_statement_token1,
+    STATE(996), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6657), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7761), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6146), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493580,35 +492732,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7088] = 12,
-    ACTIONS(6976), 1,
+  [6294] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5035), 1,
-      sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5500), 1,
-      sym__declaration_targets,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6251), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493654,33 +492804,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7174] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+  [6376] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7763), 6,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+    ACTIONS(7765), 53,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6197), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493694,11 +492833,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -493712,6 +492854,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -493726,33 +492869,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7256] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+  [6444] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7767), 6,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+    ACTIONS(7769), 53,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6201), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493766,11 +492898,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -493784,6 +492919,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -493798,33 +492934,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7338] = 10,
+  [6512] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7482), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6240), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -493870,16 +493008,83 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7420] = 10,
+  [6598] = 5,
+    ACTIONS(7775), 1,
+      anon_sym__,
+    STATE(3686), 1,
+      sym__kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7773), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(7771), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [6670] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -493887,10 +493092,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6242), 5,
+    STATE(6301), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -493942,16 +493147,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7502] = 10,
+  [6752] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -493959,10 +493164,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6281), 5,
+    STATE(6152), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494014,16 +493219,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7584] = 10,
+  [6834] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494031,10 +493236,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6284), 5,
+    STATE(6306), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494086,16 +493291,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7666] = 10,
+  [6916] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494103,10 +493308,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6081), 5,
+    STATE(6079), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494158,16 +493363,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7748] = 10,
+  [6998] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494175,10 +493380,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6087), 5,
+    STATE(6205), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494230,16 +493435,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7830] = 10,
+  [7080] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494247,10 +493452,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6125), 5,
+    STATE(6182), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494302,16 +493507,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7912] = 10,
+  [7162] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494319,10 +493524,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6129), 5,
+    STATE(6113), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494374,33 +493579,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [7994] = 10,
+  [7244] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(3879), 1,
+      sym_argument_list,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7488), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7777), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6189), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -494446,33 +493653,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8076] = 10,
+  [7330] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    STATE(6331), 1,
+      sym__declaration_assignment,
+    STATE(6443), 1,
+      sym__declaration_pointer_association,
+    STATE(7430), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    STATE(6074), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6196), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -494518,22 +493727,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8158] = 3,
+  [7416] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 7,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(4285), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6155), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -494547,14 +493767,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -494568,7 +493785,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -494583,35 +493799,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8226] = 12,
-    ACTIONS(4291), 1,
-      anon_sym_LPAREN2,
+  [7498] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7791), 1,
-      aux_sym_module_statement_token1,
-    STATE(994), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6969), 1,
-      sym__name,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7793), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6265), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -494657,22 +493871,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8312] = 3,
+  [7580] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4295), 7,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-    ACTIONS(4293), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6169), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -494686,14 +493911,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -494707,7 +493929,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -494722,16 +493943,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8380] = 10,
+  [7662] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -494739,10 +493960,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6085), 5,
+    STATE(6229), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -494794,33 +494015,92 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8462] = 12,
+  [7744] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(3842), 1,
-      sym_argument_list,
-    STATE(7418), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7795), 2,
+    ACTIONS(5696), 2,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+    STATE(6232), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [7826] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4349), 7,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+      anon_sym_LBRACK,
+    ACTIONS(4347), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -494836,11 +494116,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -494854,6 +494137,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -494868,18 +494152,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8548] = 3,
+  [7894] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7797), 6,
+    ACTIONS(7779), 6,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_SLASH,
       anon_sym_EQ_GT,
       anon_sym_SEMI,
       anon_sym_LBRACK,
-    ACTIONS(7799), 53,
+    ACTIONS(7781), 53,
       aux_sym_end_program_statement_token1,
       anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
@@ -494933,32 +494217,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8616] = 12,
+  [7962] = 12,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    ACTIONS(7751), 1,
+      anon_sym_LPAREN2,
+    STATE(648), 1,
+      sym__end_of_statement,
+    STATE(3663), 1,
+      sym_parenthesized_expression,
+    STATE(6779), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6311), 1,
-      sym__declaration_assignment,
-    STATE(6411), 1,
-      sym__declaration_pointer_association,
-    STATE(7556), 1,
-      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6049), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
+    ACTIONS(7783), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -495007,16 +494291,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8702] = 10,
+  [8048] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -495024,10 +494308,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6275), 5,
+    STATE(6088), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -495079,16 +494363,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8784] = 10,
+  [8130] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
+    ACTIONS(5692), 1,
       aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
+    ACTIONS(5694), 1,
       aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -495096,10 +494380,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6250), 5,
+    STATE(6100), 5,
       sym_assignment,
       sym_operator,
       sym_defined_io_procedure,
@@ -495151,8 +494435,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8866] = 12,
-    ACTIONS(4291), 1,
+  [8212] = 12,
+    ACTIONS(4391), 1,
       anon_sym_LPAREN2,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
@@ -495160,13 +494444,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7801), 1,
-      aux_sym_submodule_statement_token1,
-    STATE(1043), 1,
+    ACTIONS(7785), 1,
+      aux_sym_module_statement_token1,
+    STATE(987), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7034), 1,
+    STATE(7151), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -495174,7 +494458,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7803), 2,
+    ACTIONS(7787), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -495225,33 +494509,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [8952] = 12,
-    ACTIONS(6976), 1,
+  [8298] = 12,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5035), 1,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(3938), 1,
+      sym_argument_list,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(5319), 1,
-      sym_sized_declarator,
-    STATE(5340), 1,
-      sym__declaration_assignment,
-    STATE(5343), 1,
-      sym__declaration_pointer_association,
-    STATE(5418), 1,
-      sym__declaration_targets,
+    STATE(7431), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5326), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7789), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -495299,30 +494583,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9038] = 12,
+  [8384] = 12,
+    ACTIONS(4391), 1,
+      anon_sym_LPAREN2,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7767), 1,
-      anon_sym_LPAREN2,
-    STATE(642), 1,
+    ACTIONS(7791), 1,
+      aux_sym_module_statement_token1,
+    STATE(852), 1,
       sym__end_of_statement,
-    STATE(3752), 1,
-      sym_parenthesized_expression,
-    STATE(6616), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6485), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7805), 2,
+    ACTIONS(7793), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -495373,33 +494657,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9124] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(5694), 1,
-      aux_sym_assignment_token1,
-    ACTIONS(5696), 1,
-      aux_sym_operator_token1,
+  [8470] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5698), 2,
+    ACTIONS(7795), 6,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+    ACTIONS(7797), 53,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-    STATE(6099), 5,
-      sym_assignment,
-      sym_operator,
-      sym_defined_io_procedure,
-      sym__generic_procedure,
-      sym_identifier,
-    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -495413,11 +494686,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -495431,6 +494707,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -495445,33 +494722,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9206] = 11,
-    ACTIONS(7807), 1,
-      sym_system_lib_string,
-    ACTIONS(7809), 1,
+  [8538] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    STATE(6812), 1,
-      sym_identifier,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8638), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6241), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -495517,20 +494794,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9289] = 11,
+  [8620] = 12,
+    ACTIONS(4391), 1,
+      anon_sym_LPAREN2,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7112), 1,
-      aux_sym_function_statement_token1,
-    STATE(5083), 1,
+    ACTIONS(7799), 1,
+      aux_sym_submodule_statement_token1,
+    STATE(847), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6972), 1,
+    STATE(6491), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -495538,7 +494817,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7114), 2,
+    ACTIONS(7801), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -495589,31 +494868,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9372] = 11,
-    ACTIONS(7809), 1,
+  [8706] = 12,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7823), 1,
-      sym_system_lib_string,
-    STATE(6779), 1,
+    STATE(5006), 1,
       sym_identifier,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5337), 1,
+      sym__declaration_assignment,
+    STATE(5348), 1,
+      sym__declaration_pointer_association,
+    STATE(5475), 1,
+      sym__declaration_targets,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8377), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    STATE(5321), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -495661,33 +494942,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9455] = 11,
+  [8792] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7825), 1,
-      anon_sym_COMMA,
-    ACTIONS(7827), 1,
-      anon_sym_COLON_COLON,
-    STATE(6448), 1,
-      sym_identifier,
-    STATE(7547), 1,
-      sym__import_names,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7196), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6285), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -495733,33 +495014,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9538] = 11,
+  [8874] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7829), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(2717), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6901), 1,
-      sym__name,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7831), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6250), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -495805,105 +495086,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9621] = 11,
+  [8956] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7140), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(5117), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6464), 1,
-      sym__name,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7142), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [9704] = 11,
-    ACTIONS(7809), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7833), 1,
-      sym_system_lib_string,
-    STATE(6837), 1,
+    STATE(6119), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
       sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7815), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(7795), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -495949,33 +495158,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9787] = 11,
+  [9038] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7084), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(1041), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6599), 1,
-      sym__name,
+    ACTIONS(5692), 1,
+      aux_sym_assignment_token1,
+    ACTIONS(5694), 1,
+      aux_sym_operator_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7086), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(5696), 2,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
+    STATE(6111), 5,
+      sym_assignment,
+      sym_operator,
+      sym_defined_io_procedure,
+      sym__generic_procedure,
+      sym_identifier,
+    ACTIONS(5495), 45,
       aux_sym_procedure_attributes_token3,
       aux_sym_use_statement_token2,
       aux_sym_implicit_statement_token4,
@@ -496021,20 +495230,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9870] = 11,
+  [9120] = 12,
+    ACTIONS(4391), 1,
+      anon_sym_LPAREN2,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7156), 1,
-      aux_sym_program_statement_token1,
-    STATE(1029), 1,
+    ACTIONS(7803), 1,
+      aux_sym_submodule_statement_token1,
+    STATE(972), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7149), 1,
+    STATE(7162), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -496042,7 +495253,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7158), 2,
+    ACTIONS(7805), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -496093,20 +495304,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [9953] = 11,
+  [9206] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7835), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1619), 1,
+    ACTIONS(7164), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(4944), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7008), 1,
+    STATE(6507), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -496114,7 +495325,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7837), 2,
+    ACTIONS(7166), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -496165,31 +495376,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10036] = 11,
-    ACTIONS(7809), 1,
+  [9289] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7839), 1,
-      sym_system_lib_string,
-    STATE(6889), 1,
+    ACTIONS(7799), 1,
+      aux_sym_submodule_statement_token1,
+    STATE(847), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6491), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8039), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7801), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496237,31 +495448,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10119] = 11,
-    ACTIONS(5493), 1,
+  [9372] = 11,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7841), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1637), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7807), 1,
+      anon_sym_COLON_COLON,
+    STATE(5674), 1,
       sym_identifier,
-    STATE(6605), 1,
-      sym__name,
+    STATE(6161), 1,
+      sym__declaration_assignment,
+    STATE(6474), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7843), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8349), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496309,20 +495520,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10202] = 11,
+  [9455] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7845), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1173), 1,
+    ACTIONS(7092), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(5206), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6848), 1,
+    STATE(7092), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -496330,7 +495541,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7847), 2,
+    ACTIONS(7094), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -496381,31 +495592,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10285] = 11,
+  [9538] = 11,
     ACTIONS(7809), 1,
+      sym_system_lib_string,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7849), 1,
-      sym_system_lib_string,
-    STATE(6935), 1,
+    STATE(6591), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8240), 2,
+    STATE(8419), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496453,31 +495664,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10368] = 11,
-    ACTIONS(7809), 1,
+  [9621] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7851), 1,
-      sym_system_lib_string,
-    STATE(6512), 1,
+    ACTIONS(7088), 1,
+      aux_sym_function_statement_token1,
+    STATE(5208), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7086), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8036), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7090), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496525,31 +495736,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10451] = 11,
-    ACTIONS(5493), 1,
+  [9704] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7100), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(1000), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7825), 1,
+      sym_system_lib_string,
+    STATE(6913), 1,
       sym_identifier,
-    STATE(6494), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7102), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7754), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496597,20 +495808,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10534] = 11,
+  [9787] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7108), 1,
+    ACTIONS(7040), 1,
       aux_sym_function_statement_token1,
-    STATE(1002), 1,
+    STATE(899), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6498), 1,
+    STATE(6648), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -496618,7 +495829,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7110), 2,
+    ACTIONS(7042), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -496669,31 +495880,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10617] = 11,
-    ACTIONS(7809), 1,
+  [9870] = 11,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7853), 1,
-      sym_system_lib_string,
-    STATE(6980), 1,
+    ACTIONS(7827), 1,
+      anon_sym_COLON_COLON,
+    STATE(5676), 1,
       sym_identifier,
+    STATE(6377), 1,
+      sym__declaration_assignment,
+    STATE(6474), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8401), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    STATE(7731), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496741,30 +495952,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10700] = 11,
+  [9953] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    ACTIONS(7056), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(5011), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
-    STATE(6747), 1,
-      sym__declaration_assignment,
-    STATE(6749), 1,
-      sym__declaration_pointer_association,
+    STATE(6731), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6132), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
+    ACTIONS(7058), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -496813,20 +496024,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10783] = 11,
+  [10036] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7128), 1,
-      aux_sym_function_statement_token1,
-    STATE(4578), 1,
+    ACTIONS(7829), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(3048), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7057), 1,
+    STATE(7048), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -496834,7 +496045,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7130), 2,
+    ACTIONS(7831), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -496885,31 +496096,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10866] = 11,
-    ACTIONS(6976), 1,
+  [10119] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5035), 1,
+    STATE(3341), 1,
       sym_identifier,
-    STATE(5319), 1,
+    STATE(3456), 1,
       sym_sized_declarator,
-    STATE(5351), 1,
-      sym__declaration_assignment,
-    STATE(5352), 1,
+    STATE(7143), 1,
       sym__declaration_pointer_association,
+    STATE(7150), 1,
+      sym__declaration_assignment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(5335), 2,
+    STATE(6192), 2,
       sym__variable_declarator,
       sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -496957,31 +496168,103 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [10949] = 11,
-    ACTIONS(7809), 1,
+  [10202] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
+    ACTIONS(7108), 1,
+      aux_sym_function_statement_token1,
+    STATE(5046), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6894), 1,
+      sym__name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7110), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [10285] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
+      aux_sym__intrinsic_type_token4,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7855), 1,
+    ACTIONS(7833), 1,
       sym_system_lib_string,
-    STATE(6998), 1,
+    STATE(6890), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8507), 2,
+    STATE(7798), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497029,20 +496312,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11032] = 11,
+  [10368] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7048), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(4568), 1,
+    ACTIONS(7835), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1628), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6559), 1,
+    STATE(6808), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497050,7 +496333,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7050), 2,
+    ACTIONS(7837), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497101,84 +496384,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11115] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7559), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym__intrinsic_type_token4,
-      anon_sym_DOT,
-    ACTIONS(7561), 45,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [11182] = 11,
+  [10451] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7088), 1,
+    ACTIONS(7112), 1,
       aux_sym_subroutine_statement_token1,
-    STATE(4790), 1,
+    STATE(875), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6921), 1,
+    STATE(6629), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497186,7 +496405,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7090), 2,
+    ACTIONS(7114), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497237,31 +496456,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11265] = 11,
-    ACTIONS(7809), 1,
+  [10534] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7857), 1,
+    ACTIONS(7839), 1,
       sym_system_lib_string,
-    STATE(7025), 1,
+    STATE(6902), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8628), 2,
+    STATE(7766), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497309,20 +496528,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11348] = 11,
+  [10617] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7068), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(4992), 1,
+    ACTIONS(7052), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(5014), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6576), 1,
+    STATE(7227), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497330,7 +496549,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7070), 2,
+    ACTIONS(7054), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497381,20 +496600,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11431] = 11,
+  [10700] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7096), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(5146), 1,
+    ACTIONS(7168), 1,
+      aux_sym_program_statement_token1,
+    STATE(904), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6623), 1,
+    STATE(6473), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497402,7 +496621,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7098), 2,
+    ACTIONS(7170), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497453,31 +496672,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11514] = 11,
-    ACTIONS(5493), 1,
+  [10783] = 11,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7120), 1,
-      aux_sym_function_statement_token1,
-    STATE(5136), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(5006), 1,
       sym_identifier,
-    STATE(6644), 1,
-      sym__name,
+    STATE(5318), 1,
+      sym_sized_declarator,
+    STATE(5361), 1,
+      sym__declaration_assignment,
+    STATE(5365), 1,
+      sym__declaration_pointer_association,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7122), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(5336), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497525,31 +496744,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11597] = 11,
-    ACTIONS(7809), 1,
+  [10866] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7859), 1,
+    ACTIONS(7841), 1,
       sym_system_lib_string,
-    STATE(7039), 1,
+    STATE(6599), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7725), 2,
+    STATE(8410), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497597,84 +496816,84 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11680] = 3,
+  [10949] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7861), 5,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(7547), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-    ACTIONS(7863), 53,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym__intrinsic_type_token4,
+      anon_sym_DOT,
+    ACTIONS(7549), 45,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [11747] = 11,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [11016] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7168), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(5068), 1,
+    ACTIONS(7843), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1598), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6854), 1,
+    STATE(7065), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497682,7 +496901,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7170), 2,
+    ACTIONS(7845), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497733,31 +496952,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11830] = 11,
-    ACTIONS(7809), 1,
+  [11099] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7865), 1,
+    ACTIONS(7847), 1,
       sym_system_lib_string,
-    STATE(7050), 1,
+    STATE(6816), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7766), 2,
+    STATE(8045), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497805,20 +497024,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11913] = 11,
+  [11182] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7867), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1544), 1,
+    ACTIONS(7076), 1,
+      aux_sym_function_statement_token1,
+    STATE(5184), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7194), 1,
+    STATE(6754), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -497826,7 +497045,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7869), 2,
+    ACTIONS(7078), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -497877,31 +497096,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [11996] = 11,
-    ACTIONS(7809), 1,
+  [11265] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7871), 1,
+    ACTIONS(7849), 1,
       sym_system_lib_string,
-    STATE(7060), 1,
+    STATE(6831), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7798), 2,
+    STATE(8013), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -497949,31 +497168,95 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12079] = 11,
-    ACTIONS(7809), 1,
+  [11348] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7555), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym__intrinsic_type_token4,
+      anon_sym_DOT,
+    ACTIONS(7557), 45,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [11415] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7873), 1,
+    ACTIONS(7851), 1,
       sym_system_lib_string,
-    STATE(7068), 1,
+    STATE(6813), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7830), 2,
+    STATE(8053), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498021,31 +497304,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12162] = 11,
-    ACTIONS(7809), 1,
+  [11498] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7875), 1,
-      sym_system_lib_string,
-    STATE(7075), 1,
+    ACTIONS(7853), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1467), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6987), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7862), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7855), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498093,31 +497376,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12245] = 11,
-    ACTIONS(7809), 1,
+  [11581] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7877), 1,
-      sym_system_lib_string,
-    STATE(7081), 1,
+    ACTIONS(7176), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(4972), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7258), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7893), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7178), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498165,31 +497448,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12328] = 11,
-    ACTIONS(7809), 1,
+  [11664] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7879), 1,
+    ACTIONS(7857), 1,
       sym_system_lib_string,
-    STATE(7083), 1,
+    STATE(7039), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7909), 2,
+    STATE(7988), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498237,31 +497520,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12411] = 11,
-    ACTIONS(7809), 1,
+  [11747] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7881), 1,
-      sym_system_lib_string,
-    STATE(7084), 1,
+    ACTIONS(7859), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(2888), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6522), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7925), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7861), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498309,31 +497592,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12494] = 11,
-    ACTIONS(7809), 1,
+  [11830] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7883), 1,
-      sym_system_lib_string,
-    STATE(7085), 1,
+    ACTIONS(7100), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(5087), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6857), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7941), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7102), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498381,31 +497664,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12577] = 11,
-    ACTIONS(7809), 1,
+  [11913] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7885), 1,
-      sym_system_lib_string,
-    STATE(7087), 1,
+    ACTIONS(7072), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(1015), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6573), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7949), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7074), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498453,31 +497736,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12660] = 11,
-    ACTIONS(7809), 1,
+  [11996] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7887), 1,
+    ACTIONS(7863), 1,
       sym_system_lib_string,
-    STATE(7088), 1,
+    STATE(6920), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7957), 2,
+    STATE(7725), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498525,31 +497808,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12743] = 11,
-    ACTIONS(7809), 1,
+  [12079] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7889), 1,
+    ACTIONS(7865), 1,
       sym_system_lib_string,
-    STATE(7090), 1,
+    STATE(6807), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7965), 2,
+    STATE(8061), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498597,31 +497880,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12826] = 11,
-    ACTIONS(7809), 1,
+  [12162] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7891), 1,
-      sym_system_lib_string,
-    STATE(7092), 1,
+    ACTIONS(7068), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(5180), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6749), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7973), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7070), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498669,31 +497952,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12909] = 11,
-    ACTIONS(7809), 1,
+  [12245] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7893), 1,
-      sym_system_lib_string,
-    STATE(7093), 1,
+    ACTIONS(7172), 1,
+      aux_sym_function_statement_token1,
+    STATE(4937), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7263), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7981), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7174), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498741,31 +498024,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [12992] = 11,
-    ACTIONS(7809), 1,
+  [12328] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7895), 1,
+    ACTIONS(7867), 1,
       sym_system_lib_string,
-    STATE(7095), 1,
+    STATE(6855), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7989), 2,
+    STATE(7949), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498813,31 +498096,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13075] = 11,
-    ACTIONS(7809), 1,
+  [12411] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7897), 1,
-      sym_system_lib_string,
-    STATE(7096), 1,
+    ACTIONS(7096), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(5036), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6631), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7997), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7098), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498885,31 +498168,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13158] = 11,
-    ACTIONS(7809), 1,
+  [12494] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7899), 1,
-      sym_system_lib_string,
-    STATE(7098), 1,
+    ACTIONS(7869), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1351), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6942), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8005), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7871), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -498957,31 +498240,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13241] = 11,
-    ACTIONS(7809), 1,
+  [12577] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7901), 1,
-      sym_system_lib_string,
-    STATE(7100), 1,
+    ACTIONS(7064), 1,
+      aux_sym_function_statement_token1,
+    STATE(1019), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6578), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8013), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7066), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499029,31 +498312,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13324] = 11,
-    ACTIONS(7809), 1,
+  [12660] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7903), 1,
+    ACTIONS(7873), 1,
       sym_system_lib_string,
-    STATE(7101), 1,
+    STATE(7152), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8021), 2,
+    STATE(8286), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499101,31 +498384,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13407] = 11,
-    ACTIONS(7809), 1,
+  [12743] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7905), 1,
+    ACTIONS(7875), 1,
       sym_system_lib_string,
-    STATE(7102), 1,
+    STATE(7161), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8029), 2,
+    STATE(8292), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499173,31 +498456,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13490] = 11,
-    ACTIONS(7809), 1,
+  [12826] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7907), 1,
-      sym_system_lib_string,
-    STATE(7103), 1,
+    ACTIONS(7877), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1186), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7306), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8037), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7879), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499245,31 +498528,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13573] = 11,
-    ACTIONS(7809), 1,
+  [12909] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7909), 1,
+    ACTIONS(7881), 1,
       sym_system_lib_string,
-    STATE(7105), 1,
+    STATE(7007), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8045), 2,
+    STATE(7956), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499317,31 +498600,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13656] = 11,
-    ACTIONS(7809), 1,
+  [12992] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7911), 1,
-      sym_system_lib_string,
-    STATE(7107), 1,
+    ACTIONS(7791), 1,
+      aux_sym_module_statement_token1,
+    STATE(852), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6485), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8053), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7793), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499389,31 +498672,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13739] = 11,
-    ACTIONS(7809), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7913), 1,
-      sym_system_lib_string,
-    STATE(7109), 1,
-      sym_identifier,
+  [13075] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(8061), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7883), 5,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SLASH,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+    ACTIONS(7885), 53,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499429,11 +498700,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -499447,6 +498721,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -499461,31 +498736,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13822] = 11,
-    ACTIONS(7809), 1,
+  [13142] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7915), 1,
+    ACTIONS(7887), 1,
       sym_system_lib_string,
-    STATE(7111), 1,
+    STATE(6840), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8069), 2,
+    STATE(7997), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499533,31 +498808,97 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13905] = 11,
-    ACTIONS(7809), 1,
+  [13225] = 5,
+    ACTIONS(7775), 1,
+      anon_sym__,
+    STATE(3757), 1,
+      sym__kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5515), 10,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(5517), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [13296] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7917), 1,
+    ACTIONS(7889), 1,
       sym_system_lib_string,
-    STATE(7112), 1,
+    STATE(7281), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8077), 2,
+    STATE(8592), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499605,31 +498946,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [13988] = 11,
-    ACTIONS(7809), 1,
+  [13379] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7919), 1,
-      sym_system_lib_string,
-    STATE(7114), 1,
+    ACTIONS(7891), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1304), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7186), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8085), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7893), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499677,31 +499018,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14071] = 11,
-    ACTIONS(7809), 1,
+  [13462] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7921), 1,
-      sym_system_lib_string,
-    STATE(7115), 1,
+    ACTIONS(7156), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(4712), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7015), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8093), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7158), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499749,20 +499090,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14154] = 11,
+  [13545] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7923), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(2838), 1,
+    ACTIONS(7803), 1,
+      aux_sym_submodule_statement_token1,
+    STATE(972), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6946), 1,
+    STATE(7162), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -499770,7 +499111,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7925), 2,
+    ACTIONS(7805), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -499821,31 +499162,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14237] = 11,
-    ACTIONS(7809), 1,
+  [13628] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7927), 1,
-      sym_system_lib_string,
-    STATE(7117), 1,
+    ACTIONS(7104), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(5051), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6889), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8109), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7106), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499893,31 +499234,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14320] = 11,
-    ACTIONS(7809), 1,
+  [13711] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7929), 1,
-      sym_system_lib_string,
-    STATE(7118), 1,
+    ACTIONS(7895), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1135), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6640), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8117), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7897), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -499965,31 +499306,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14403] = 11,
-    ACTIONS(7809), 1,
+  [13794] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7931), 1,
+    ACTIONS(7899), 1,
       sym_system_lib_string,
-    STATE(7119), 1,
+    STATE(6842), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8125), 2,
+    STATE(7989), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500037,31 +499378,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14486] = 11,
-    ACTIONS(7809), 1,
+  [13877] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7933), 1,
+    ACTIONS(7901), 1,
       sym_system_lib_string,
-    STATE(7121), 1,
+    STATE(6879), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8133), 2,
+    STATE(7830), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500109,31 +499450,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14569] = 11,
-    ACTIONS(6976), 1,
+  [13960] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7935), 1,
-      anon_sym_COLON_COLON,
-    STATE(5654), 1,
+    ACTIONS(7180), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(970), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6084), 1,
-      sym__declaration_assignment,
-    STATE(6552), 1,
-      sym_sized_declarator,
+    STATE(7196), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7994), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(7182), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500181,31 +499522,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14652] = 11,
-    ACTIONS(7809), 1,
+  [14043] = 11,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7937), 1,
-      sym_system_lib_string,
-    STATE(7273), 1,
+    ACTIONS(7785), 1,
+      aux_sym_module_statement_token1,
+    STATE(987), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7151), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8630), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7787), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500253,31 +499594,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14735] = 11,
-    ACTIONS(5493), 1,
+  [14126] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7939), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1368), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7903), 1,
+      sym_system_lib_string,
+    STATE(6843), 1,
       sym_identifier,
-    STATE(6672), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7941), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7981), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500325,20 +499666,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14818] = 11,
+  [14209] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7132), 1,
-      aux_sym_program_statement_token1,
-    STATE(843), 1,
+    ACTIONS(7044), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(4600), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6544), 1,
+    STATE(6713), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -500346,7 +499687,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7134), 2,
+    ACTIONS(7046), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -500397,31 +499738,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14901] = 11,
-    ACTIONS(7809), 1,
+  [14292] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7943), 1,
+    ACTIONS(7905), 1,
       sym_system_lib_string,
-    STATE(6589), 1,
+    STATE(6957), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8621), 2,
+    STATE(7738), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500469,31 +499810,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [14984] = 11,
-    ACTIONS(5493), 1,
+  [14375] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7044), 1,
-      aux_sym_function_statement_token1,
-    STATE(1044), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7907), 1,
+      sym_system_lib_string,
+    STATE(6805), 1,
       sym_identifier,
-    STATE(6627), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7046), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8069), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500541,20 +499882,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15067] = 11,
+  [14458] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7072), 1,
-      aux_sym_function_statement_token1,
-    STATE(4994), 1,
+    ACTIONS(7124), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(4863), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6578), 1,
+    STATE(7195), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -500562,7 +499903,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7074), 2,
+    ACTIONS(7126), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -500613,31 +499954,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15150] = 11,
-    ACTIONS(766), 1,
+  [14541] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7945), 1,
-      anon_sym_COLON_COLON,
-    STATE(5679), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7909), 1,
+      sym_system_lib_string,
+    STATE(6846), 1,
       sym_identifier,
-    STATE(6347), 1,
-      sym__declaration_assignment,
-    STATE(6552), 1,
-      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8330), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(97), 47,
+    STATE(7973), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500685,18 +500026,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15233] = 11,
+  [14624] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7947), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1147), 1,
+    ACTIONS(7152), 1,
+      aux_sym_function_statement_token1,
+    STATE(5038), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
     STATE(6531), 1,
       sym__name,
@@ -500706,7 +500047,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7949), 2,
+    ACTIONS(7154), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -500757,31 +500098,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15316] = 11,
-    ACTIONS(5493), 1,
+  [14707] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7092), 1,
-      aux_sym_function_statement_token1,
-    STATE(4792), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7911), 1,
+      sym_system_lib_string,
+    STATE(6851), 1,
       sym_identifier,
-    STATE(6925), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7094), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7957), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500829,31 +500170,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15399] = 11,
-    ACTIONS(5493), 1,
+  [14790] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7124), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(4961), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7913), 1,
+      sym_system_lib_string,
+    STATE(7064), 1,
       sym_identifier,
-    STATE(7104), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7126), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8092), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -500901,84 +500242,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15482] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6962), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(6964), 47,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym__block_if_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [15549] = 11,
+  [14873] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7148), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(5062), 1,
+    ACTIONS(7084), 1,
+      aux_sym_function_statement_token1,
+    STATE(1081), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6688), 1,
+    STATE(7183), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -500986,7 +500263,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7150), 2,
+    ACTIONS(7086), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501037,20 +500314,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15632] = 11,
+  [14956] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7951), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(3090), 1,
+    ACTIONS(7080), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(5082), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6986), 1,
+    STATE(6714), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501058,7 +500335,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7953), 2,
+    ACTIONS(7082), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501109,20 +500386,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15715] = 11,
+  [15039] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7052), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(5228), 1,
+    ACTIONS(7036), 1,
+      aux_sym_function_statement_token1,
+    STATE(4530), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6809), 1,
+    STATE(7142), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501130,7 +500407,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7054), 2,
+    ACTIONS(7038), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501181,92 +500458,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15798] = 11,
-    ACTIONS(7809), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7819), 1,
-      sym__string_literal,
-    ACTIONS(7821), 1,
-      sym__string_literal_kind,
-    ACTIONS(7955), 1,
-      sym_system_lib_string,
-    STATE(7230), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7815), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(8422), 2,
-      sym_preproc_call_expression,
-      sym_string_literal,
-    ACTIONS(7811), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [15881] = 11,
+  [15122] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7801), 1,
-      aux_sym_submodule_statement_token1,
-    STATE(1043), 1,
+    ACTIONS(7060), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(4527), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7034), 1,
+    STATE(7137), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501274,7 +500479,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7803), 2,
+    ACTIONS(7062), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501325,31 +500530,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [15964] = 11,
-    ACTIONS(5493), 1,
+  [15205] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7164), 1,
-      aux_sym_program_statement_token1,
-    STATE(1054), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7915), 1,
+      sym_system_lib_string,
+    STATE(6801), 1,
       sym_identifier,
-    STATE(7154), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7166), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8077), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -501397,31 +500602,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16047] = 11,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7056), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(5058), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6823), 1,
-      sym__name,
+  [15288] = 7,
+    ACTIONS(7917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7919), 1,
+      anon_sym_STAR,
+    STATE(4070), 1,
+      sym_kind,
+    STATE(4071), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7058), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(7212), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7218), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -501437,11 +500634,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -501455,6 +500655,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -501469,20 +500670,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16130] = 11,
+  [15363] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7152), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(4755), 1,
+    ACTIONS(7921), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(2718), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6701), 1,
+    STATE(7233), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501490,7 +500691,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7154), 2,
+    ACTIONS(7923), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501541,20 +500742,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16213] = 11,
+  [15446] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7957), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(2881), 1,
+    ACTIONS(7120), 1,
+      aux_sym_function_statement_token1,
+    STATE(4861), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7278), 1,
+    STATE(7181), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501562,7 +500763,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7959), 2,
+    ACTIONS(7122), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501613,31 +500814,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16296] = 11,
-    ACTIONS(5493), 1,
+  [15529] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7060), 1,
-      aux_sym_function_statement_token1,
-    STATE(5077), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7925), 1,
+      sym_system_lib_string,
+    STATE(6848), 1,
       sym_identifier,
-    STATE(6826), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7062), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7965), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -501685,26 +500886,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16379] = 5,
-    ACTIONS(7757), 1,
-      anon_sym__,
-    STATE(3711), 1,
-      sym__kind,
+  [15612] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5515), 10,
+    ACTIONS(6976), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(5517), 46,
+    ACTIONS(6978), 47,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -501732,6 +500930,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       anon_sym_GT_GT_GT,
+      aux_sym__block_if_statement_token1,
       aux_sym_enumerator_statement_token1,
       aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
@@ -501751,31 +500950,31 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [16450] = 11,
-    ACTIONS(5493), 1,
+  [15679] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7961), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1568), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7927), 1,
+      sym_system_lib_string,
+    STATE(6800), 1,
       sym_identifier,
-    STATE(6948), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7963), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8085), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -501823,20 +501022,164 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16533] = 11,
+  [15762] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7819), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7929), 1,
+      sym_system_lib_string,
+    STATE(6798), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7817), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8093), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [15845] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7819), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7931), 1,
+      sym_system_lib_string,
+    STATE(6818), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7817), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8037), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [15928] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7160), 1,
-      aux_sym_function_statement_token1,
-    STATE(4757), 1,
+    ACTIONS(7136), 1,
+      aux_sym_program_statement_token1,
+    STATE(1101), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6705), 1,
+    STATE(7197), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501844,7 +501187,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7162), 2,
+    ACTIONS(7138), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -501895,84 +501238,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16616] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7547), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym__intrinsic_type_token4,
-      anon_sym_DOT,
-    ACTIONS(7549), 45,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [16683] = 11,
+  [16011] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7136), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(5051), 1,
+    ACTIONS(7933), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1412), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7191), 1,
+    STATE(7182), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -501980,7 +501259,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7138), 2,
+    ACTIONS(7935), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502031,95 +501310,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16766] = 11,
-    ACTIONS(5493), 1,
+  [16094] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7965), 1,
-      aux_sym_implicit_statement_token3,
-    STATE(1400), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7937), 1,
+      sym_system_lib_string,
+    STATE(6795), 1,
       sym_identifier,
-    STATE(6730), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7967), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [16849] = 7,
-    ACTIONS(7969), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7971), 1,
-      anon_sym_STAR,
-    STATE(3983), 1,
-      sym_kind,
-    STATE(3990), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7212), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7218), 52,
-      aux_sym_end_program_statement_token1,
+    STATE(8101), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502135,14 +501350,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -502156,7 +501368,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -502171,31 +501382,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [16924] = 11,
-    ACTIONS(5493), 1,
+  [16177] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7144), 1,
-      aux_sym_function_statement_token1,
-    STATE(4965), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7939), 1,
+      sym_system_lib_string,
+    STATE(6774), 1,
       sym_identifier,
-    STATE(7196), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7146), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8151), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502243,28 +501454,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17007] = 11,
+  [16260] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7116), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(5134), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7941), 1,
+      anon_sym_COMMA,
+    ACTIONS(7943), 1,
+      anon_sym_COLON_COLON,
+    STATE(6400), 1,
       sym_identifier,
-    STATE(6641), 1,
-      sym__name,
+    STATE(7439), 1,
+      sym__import_names,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7118), 2,
+    ACTIONS(7196), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502315,20 +501526,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17090] = 11,
+  [16343] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7172), 1,
-      aux_sym_module_procedure_statement_token1,
-    STATE(4903), 1,
+    ACTIONS(7144), 1,
+      aux_sym_function_statement_token1,
+    STATE(5024), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6751), 1,
+    STATE(7271), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -502336,7 +501547,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7174), 2,
+    ACTIONS(7146), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502387,31 +501598,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17173] = 11,
-    ACTIONS(7809), 1,
+  [16426] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7973), 1,
+    ACTIONS(7945), 1,
       sym_system_lib_string,
-    STATE(6656), 1,
+    STATE(7000), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8371), 2,
+    STATE(7962), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502459,31 +501670,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17256] = 11,
-    ACTIONS(5493), 1,
+  [16509] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7176), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(4576), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7947), 1,
+      sym_system_lib_string,
+    STATE(6837), 1,
       sym_identifier,
-    STATE(7047), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7178), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8005), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502531,31 +501742,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17339] = 11,
-    ACTIONS(5493), 1,
+  [16592] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7104), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(5070), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7949), 1,
+      sym_system_lib_string,
+    STATE(6820), 1,
       sym_identifier,
-    STATE(6970), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7106), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8029), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502603,31 +501814,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17422] = 11,
-    ACTIONS(5493), 1,
+  [16675] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7775), 1,
-      aux_sym_module_statement_token1,
-    STATE(850), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7951), 1,
+      sym_system_lib_string,
+    STATE(6856), 1,
       sym_identifier,
-    STATE(6737), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7777), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7941), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502675,20 +501886,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17505] = 11,
+  [16758] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7036), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(4533), 1,
+    ACTIONS(7048), 1,
+      aux_sym_program_statement_token1,
+    STATE(1037), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6765), 1,
+    STATE(6666), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -502696,7 +501907,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7038), 2,
+    ACTIONS(7050), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502747,20 +501958,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17588] = 11,
+  [16841] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7771), 1,
-      aux_sym_module_statement_token1,
-    STATE(1062), 1,
+    ACTIONS(7140), 1,
+      aux_sym_function_statement_token1,
+    STATE(4607), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7163), 1,
+    STATE(6505), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -502768,7 +501979,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7773), 2,
+    ACTIONS(7142), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502819,20 +502030,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17671] = 11,
+  [16924] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7040), 1,
-      aux_sym_function_statement_token1,
-    STATE(4552), 1,
+    ACTIONS(7759), 1,
+      aux_sym_module_statement_token1,
+    STATE(996), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6767), 1,
+    STATE(6657), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -502840,7 +502051,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7042), 2,
+    ACTIONS(7761), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -502891,31 +502102,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17754] = 11,
-    ACTIONS(5493), 1,
+  [17007] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7064), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(884), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7953), 1,
+      sym_system_lib_string,
+    STATE(6794), 1,
       sym_identifier,
-    STATE(6922), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7066), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8109), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -502963,31 +502174,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17837] = 11,
-    ACTIONS(5493), 1,
+  [17090] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7783), 1,
-      aux_sym_submodule_statement_token1,
-    STATE(1064), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7955), 1,
+      sym_system_lib_string,
+    STATE(6793), 1,
       sym_identifier,
-    STATE(7167), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7785), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8117), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503035,20 +502246,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [17920] = 11,
+  [17173] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7787), 1,
+    ACTIONS(7755), 1,
       aux_sym_submodule_statement_token1,
-    STATE(852), 1,
+    STATE(989), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6740), 1,
+    STATE(6652), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -503056,7 +502267,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7789), 2,
+    ACTIONS(7757), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -503107,20 +502318,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18003] = 11,
+  [17256] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7975), 1,
+    ACTIONS(7957), 1,
       aux_sym_implicit_statement_token3,
-    STATE(1262), 1,
+    STATE(2810), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6790), 1,
+    STATE(6934), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -503128,79 +502339,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7977), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [18086] = 11,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(7076), 1,
-      aux_sym_subroutine_statement_token1,
-    STATE(5133), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6872), 1,
-      sym__name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7078), 2,
+    ACTIONS(7959), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -503251,31 +502390,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18169] = 11,
-    ACTIONS(5493), 1,
+  [17339] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7180), 1,
-      aux_sym_function_statement_token1,
-    STATE(886), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7961), 1,
+      sym_system_lib_string,
+    STATE(6871), 1,
       sym_identifier,
-    STATE(6937), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7182), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7862), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503323,31 +502462,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18252] = 11,
-    ACTIONS(5493), 1,
+  [17422] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7080), 1,
-      aux_sym_function_statement_token1,
-    STATE(5162), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7963), 1,
+      sym_system_lib_string,
+    STATE(6784), 1,
       sym_identifier,
-    STATE(6876), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7082), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8125), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503395,31 +502534,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18335] = 11,
-    ACTIONS(7809), 1,
+  [17505] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7979), 1,
+    ACTIONS(7965), 1,
       sym_system_lib_string,
-    STATE(6717), 1,
+    STATE(6783), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8002), 2,
+    STATE(8133), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503467,20 +502606,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18418] = 11,
+  [17588] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(7791), 1,
-      aux_sym_module_statement_token1,
-    STATE(994), 1,
+    ACTIONS(7148), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(5022), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6969), 1,
+    STATE(7283), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -503488,7 +502627,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7793), 2,
+    ACTIONS(7150), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -503539,31 +502678,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18501] = 11,
-    ACTIONS(7809), 1,
+  [17671] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7813), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7817), 1,
-      aux_sym_select_case_statement_token1,
     ACTIONS(7819), 1,
-      sym__string_literal,
+      aux_sym_select_case_statement_token1,
     ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
       sym__string_literal_kind,
-    ACTIONS(7981), 1,
+    ACTIONS(7967), 1,
       sym_system_lib_string,
-    STATE(7116), 1,
+    STATE(7247), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7815), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8101), 2,
+    STATE(8551), 2,
       sym_preproc_call_expression,
       sym_string_literal,
-    ACTIONS(7811), 47,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503611,18 +502750,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18584] = 10,
+  [17754] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2728), 1,
+    ACTIONS(7969), 1,
+      aux_sym_implicit_statement_token3,
+    STATE(1357), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6905), 1,
+    STATE(7115), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -503630,7 +502771,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7983), 2,
+    ACTIONS(7971), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -503681,18 +502822,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18664] = 10,
+  [17837] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(861), 1,
+    ACTIONS(7132), 1,
+      aux_sym_subroutine_statement_token1,
+    STATE(4594), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7031), 1,
+    STATE(6508), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -503700,7 +502843,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7985), 2,
+    ACTIONS(7134), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -503751,29 +502894,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18744] = 10,
-    ACTIONS(5493), 1,
+  [17920] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    STATE(963), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7973), 1,
+      sym_system_lib_string,
+    STATE(6862), 1,
       sym_identifier,
-    STATE(6483), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7987), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7893), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503821,20 +502966,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18824] = 5,
-    ACTIONS(7989), 1,
-      anon_sym_COMMA,
-    STATE(3728), 1,
-      aux_sym_common_statement_repeat1,
+  [18003] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7819), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7975), 1,
+      sym_system_lib_string,
+    STATE(6826), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7991), 3,
-      sym__external_end_of_statement,
-      anon_sym_SLASH,
-      anon_sym_SEMI,
-    ACTIONS(7993), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(7817), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8021), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503850,14 +503006,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -503871,7 +503024,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -503886,29 +503038,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18894] = 10,
-    ACTIONS(5493), 1,
+  [18086] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    STATE(720), 1,
-      sym__end_of_statement,
-    STATE(6460), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7977), 1,
+      sym_system_lib_string,
+    STATE(6861), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7995), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7909), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -503956,29 +503110,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [18974] = 10,
-    ACTIONS(5493), 1,
+  [18169] = 11,
+    ACTIONS(7811), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(7819), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1262), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7979), 1,
+      sym_system_lib_string,
+    STATE(6858), 1,
       sym_identifier,
-    STATE(6790), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(7817), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7977), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7925), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -504026,18 +503182,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19054] = 10,
+  [18252] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1276), 1,
+    ACTIONS(7128), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(5242), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6796), 1,
+    STATE(6984), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504045,7 +503203,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7997), 2,
+    ACTIONS(7130), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504096,18 +503254,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19134] = 10,
+  [18335] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(891), 1,
+    ACTIONS(7116), 1,
+      aux_sym_module_procedure_statement_token1,
+    STATE(4855), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7017), 1,
+    STATE(7106), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504115,7 +503275,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7999), 2,
+    ACTIONS(7118), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504166,116 +503326,100 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19214] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8007), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8019), 1,
-      sym_preproc_comment,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+  [18418] = 11,
+    ACTIONS(7811), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7815), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
+    ACTIONS(7819), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(7821), 1,
+      sym__string_literal,
+    ACTIONS(7823), 1,
+      sym__string_literal_kind,
+    ACTIONS(7981), 1,
+      sym_system_lib_string,
+    STATE(7099), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8540), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(7817), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8132), 2,
+      sym_preproc_call_expression,
+      sym_string_literal,
+    ACTIONS(7813), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3824), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [19334] = 10,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [18501] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(723), 1,
+    ACTIONS(7160), 1,
+      aux_sym_function_statement_token1,
+    STATE(4714), 1,
       sym__end_of_statement,
-    STATE(6461), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7020), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8043), 2,
+    ACTIONS(7162), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504326,18 +503470,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19414] = 10,
+  [18584] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5228), 1,
+    STATE(1477), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6809), 1,
+    STATE(6977), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504345,7 +503489,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7054), 2,
+    ACTIONS(7983), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504396,18 +503540,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19494] = 10,
+  [18664] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4576), 1,
+    STATE(1598), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7047), 1,
+    STATE(7065), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504415,7 +503559,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7178), 2,
+    ACTIONS(7845), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504466,18 +503610,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19574] = 3,
+  [18744] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(587), 1,
+      sym__end_of_statement,
+    STATE(6683), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8045), 3,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_COLON_COLON,
-    ACTIONS(8047), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7985), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -504493,14 +503648,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -504514,7 +503666,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -504529,18 +503680,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19640] = 10,
+  [18824] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4968), 1,
+    STATE(2810), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6813), 1,
+    STATE(6934), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504548,7 +503699,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8049), 2,
+    ACTIONS(7959), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504599,18 +503750,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19720] = 10,
+  [18904] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7989), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(7987), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [18970] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4578), 1,
+    STATE(4600), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7057), 1,
+    STATE(6713), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504618,7 +503832,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7130), 2,
+    ACTIONS(7046), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504669,18 +503883,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19800] = 10,
+  [19050] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1018), 1,
+    STATE(1054), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6510), 1,
+    STATE(6639), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504688,7 +503902,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8051), 2,
+    ACTIONS(7991), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504739,26 +503953,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19880] = 10,
+  [19130] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5117), 1,
+    STATE(575), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6669), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6464), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7142), 2,
+    ACTIONS(7993), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504809,18 +504023,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [19960] = 10,
+  [19210] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5058), 1,
+    STATE(5242), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6823), 1,
+    STATE(6984), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504828,7 +504042,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7058), 2,
+    ACTIONS(7130), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504879,18 +504093,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20040] = 10,
+  [19290] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1029), 1,
+    STATE(1412), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7149), 1,
+    STATE(7182), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -504898,7 +504112,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7158), 2,
+    ACTIONS(7935), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -504949,26 +504163,96 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20120] = 10,
+  [19370] = 10,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(5679), 1,
+      sym_identifier,
+    STATE(6423), 1,
+      sym__declaration_assignment,
+    STATE(6474), 1,
+      sym_sized_declarator,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(7731), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(97), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [19450] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(544), 1,
+    STATE(1049), 1,
       sym__end_of_statement,
-    STATE(6677), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6637), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8053), 2,
+    ACTIONS(7995), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505019,26 +504303,89 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20200] = 10,
+  [19530] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7997), 3,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_COLON_COLON,
+    ACTIONS(7999), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [19596] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5077), 1,
+    STATE(574), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6668), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6826), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7062), 2,
+    ACTIONS(8001), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505089,26 +504436,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20280] = 10,
+  [19676] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(546), 1,
+    STATE(5011), 1,
       sym__end_of_statement,
-    STATE(7082), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6731), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8055), 2,
+    ACTIONS(7058), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505159,26 +504506,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20360] = 10,
+  [19756] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5109), 1,
+    STATE(566), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6464), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6829), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8057), 2,
+    ACTIONS(8003), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505229,18 +504576,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20440] = 10,
+  [19836] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5168), 1,
+    STATE(1152), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6831), 1,
+    STATE(6664), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505248,7 +504595,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8059), 2,
+    ACTIONS(8005), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505299,18 +504646,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20520] = 10,
+  [19916] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(552), 1,
+    STATE(562), 1,
       sym__end_of_statement,
-    STATE(7086), 1,
+    STATE(6462), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505318,7 +504665,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8061), 2,
+    ACTIONS(8007), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505369,26 +504716,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20600] = 10,
+  [19996] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1173), 1,
+    STATE(586), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6682), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6848), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7847), 2,
+    ACTIONS(8009), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505439,18 +504786,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20680] = 10,
+  [20076] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1174), 1,
+    STATE(5039), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6853), 1,
+    STATE(7259), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505458,7 +504805,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8063), 2,
+    ACTIONS(8011), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505509,29 +504856,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20760] = 10,
-    ACTIONS(766), 1,
+  [20156] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5675), 1,
+    STATE(5024), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6419), 1,
-      sym__declaration_assignment,
-    STATE(6552), 1,
-      sym_sized_declarator,
+    STATE(7271), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8330), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(97), 47,
+    ACTIONS(7146), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -505579,118 +504926,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [20840] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8065), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8067), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7758), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3911), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [20960] = 10,
+  [20236] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5094), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    ACTIONS(8013), 1,
+      anon_sym_COMMA,
+    ACTIONS(8015), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8017), 1,
+      anon_sym_COLON_COLON,
+    STATE(6045), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
-    STATE(7066), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8069), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -505739,81 +504997,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21040] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8071), 3,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_COLON_COLON,
-    ACTIONS(8073), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [21106] = 10,
+  [20318] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5133), 1,
+    STATE(5036), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6872), 1,
+    STATE(6631), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505821,7 +505016,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7078), 2,
+    ACTIONS(7098), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505872,18 +505067,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21186] = 10,
+  [20398] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5162), 1,
+    STATE(1001), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6876), 1,
+    STATE(6659), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505891,7 +505086,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7082), 2,
+    ACTIONS(8019), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -505942,18 +505137,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21266] = 10,
+  [20478] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8023), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8021), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [20544] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5171), 1,
+    STATE(4607), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6880), 1,
+    STATE(6505), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -505961,7 +505219,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8075), 2,
+    ACTIONS(7142), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506012,18 +505270,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21346] = 10,
+  [20624] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5157), 1,
+    STATE(855), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6475), 1,
+    STATE(6483), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506031,7 +505289,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8077), 2,
+    ACTIONS(8025), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506082,26 +505340,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21426] = 10,
+  [20704] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5177), 1,
+    STATE(585), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6679), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6882), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8079), 2,
+    ACTIONS(8027), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506152,18 +505410,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21506] = 10,
+  [20784] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(759), 1,
+    STATE(565), 1,
       sym__end_of_statement,
-    STATE(6477), 1,
+    STATE(6965), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506171,7 +505429,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8081), 2,
+    ACTIONS(8029), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506222,18 +505480,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21586] = 10,
+  [20864] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1041), 1,
+    STATE(5177), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6599), 1,
+    STATE(6995), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506241,7 +505499,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7086), 2,
+    ACTIONS(8031), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506292,26 +505550,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21666] = 10,
+  [20944] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(711), 1,
+    STATE(5038), 1,
       sym__end_of_statement,
-    STATE(6480), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6531), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8083), 2,
+    ACTIONS(7154), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506362,18 +505620,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21746] = 10,
+  [21024] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2717), 1,
+    STATE(996), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6901), 1,
+    STATE(6657), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506381,7 +505639,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7831), 2,
+    ACTIONS(7761), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506432,26 +505690,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21826] = 10,
+  [21104] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(590), 1,
+    STATE(5042), 1,
       sym__end_of_statement,
-    STATE(7045), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7255), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8085), 2,
+    ACTIONS(8033), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506502,26 +505760,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21906] = 10,
+  [21184] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(722), 1,
+    STATE(5022), 1,
       sym__end_of_statement,
-    STATE(6481), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7283), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8087), 2,
+    ACTIONS(7150), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506572,18 +505830,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [21986] = 10,
+  [21264] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(744), 1,
+    STATE(651), 1,
       sym__end_of_statement,
-    STATE(6482), 1,
+    STATE(6694), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506591,7 +505849,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8089), 2,
+    ACTIONS(8035), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506642,214 +505900,108 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22066] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8093), 11,
+  [21344] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8043), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8055), 1,
+      sym_preproc_comment,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8091), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [22132] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(4790), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6921), 1,
-      sym__name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7090), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [22212] = 3,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8093), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8091), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8329), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [22278] = 10,
+    STATE(3907), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [21464] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4792), 1,
+    STATE(5048), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6925), 1,
+    STATE(6617), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506857,7 +506009,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7094), 2,
+    ACTIONS(8079), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506908,18 +506060,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22358] = 10,
+  [21544] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1044), 1,
+    STATE(2718), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6627), 1,
+    STATE(7233), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -506927,7 +506079,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7046), 2,
+    ACTIONS(7923), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -506978,26 +506130,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22438] = 10,
+  [21624] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4795), 1,
+    STATE(589), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6685), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6927), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8095), 2,
+    ACTIONS(8081), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507048,26 +506200,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22518] = 10,
+  [21704] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(730), 1,
+    STATE(4712), 1,
       sym__end_of_statement,
-    STATE(6484), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7015), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8097), 2,
+    ACTIONS(7158), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507118,18 +506270,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22598] = 10,
+  [21784] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4798), 1,
+    STATE(5180), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6929), 1,
+    STATE(6749), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507137,7 +506289,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8099), 2,
+    ACTIONS(7070), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507188,26 +506340,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22678] = 10,
+  [21864] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(743), 1,
+    STATE(2695), 1,
       sym__end_of_statement,
-    STATE(6485), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7221), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8101), 2,
+    ACTIONS(8083), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507258,108 +506410,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22758] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8103), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8105), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7785), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3854), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [22878] = 10,
+  [21944] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1506), 1,
+    STATE(875), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6727), 1,
+    STATE(6629), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507367,7 +506429,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8107), 2,
+    ACTIONS(7114), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507418,83 +506480,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [22958] = 5,
-    ACTIONS(7989), 1,
-      anon_sym_COMMA,
-    STATE(3728), 1,
-      aux_sym_common_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7714), 3,
-      sym__external_end_of_statement,
-      anon_sym_SLASH,
-      anon_sym_SEMI,
-    ACTIONS(8109), 52,
-      aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [23028] = 10,
+  [22024] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1568), 1,
+    STATE(1188), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6948), 1,
+    STATE(6451), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507502,7 +506499,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7963), 2,
+    ACTIONS(8085), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507553,18 +506550,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23108] = 10,
+  [22104] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1577), 1,
+    STATE(4516), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6955), 1,
+    STATE(6728), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507572,7 +506569,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8111), 2,
+    ACTIONS(8087), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507623,18 +506620,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23188] = 10,
+  [22184] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1544), 1,
+    STATE(5057), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7194), 1,
+    STATE(6614), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507642,7 +506639,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7869), 2,
+    ACTIONS(8089), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507693,21 +506690,93 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23268] = 6,
-    ACTIONS(7969), 1,
+  [22264] = 4,
+    ACTIONS(8091), 1,
       anon_sym_LPAREN2,
-    STATE(4040), 1,
-      sym__argument_list,
-    STATE(4052), 1,
-      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6704), 2,
+    ACTIONS(4343), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4345), 45,
       anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(5700), 52,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [22332] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4714), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7020), 1,
+      sym__name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7162), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -507723,14 +506792,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -507744,7 +506810,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -507759,18 +506824,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23340] = 10,
+  [22412] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4581), 1,
+    STATE(899), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7212), 1,
+    STATE(6648), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507778,7 +506843,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8113), 2,
+    ACTIONS(7042), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507829,18 +506894,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23420] = 10,
+  [22492] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1000), 1,
+    STATE(4594), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6494), 1,
+    STATE(6508), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507848,7 +506913,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7102), 2,
+    ACTIONS(7134), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507899,18 +506964,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23500] = 10,
+  [22572] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4584), 1,
+    STATE(4730), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7219), 1,
+    STATE(7024), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507918,7 +506983,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8115), 2,
+    ACTIONS(8093), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -507969,18 +507034,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23580] = 10,
+  [22652] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1002), 1,
+    STATE(5122), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6498), 1,
+    STATE(6689), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -507988,7 +507053,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7110), 2,
+    ACTIONS(8095), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508039,18 +507104,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23660] = 10,
+  [22732] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5070), 1,
+    STATE(1135), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6970), 1,
+    STATE(6640), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508058,7 +507123,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7106), 2,
+    ACTIONS(7897), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508109,18 +507174,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23740] = 10,
+  [22812] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5051), 1,
+    STATE(4863), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7191), 1,
+    STATE(7195), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508128,7 +507193,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7138), 2,
+    ACTIONS(7126), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508179,16 +507244,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23820] = 10,
+  [22892] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1011), 1,
+    STATE(881), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
     STATE(6502), 1,
       sym__name,
@@ -508198,7 +507263,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8117), 2,
+    ACTIONS(8097), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508249,18 +507314,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23900] = 10,
+  [22972] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5083), 1,
+    STATE(1037), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6972), 1,
+    STATE(6666), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508268,7 +507333,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7114), 2,
+    ACTIONS(7050), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508319,29 +507384,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [23980] = 10,
-    ACTIONS(766), 1,
+  [23052] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5724), 1,
+    STATE(5051), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6552), 1,
-      sym_sized_declarator,
-    STATE(7260), 1,
-      sym__declaration_assignment,
+    STATE(6889), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(8330), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(97), 47,
+    ACTIONS(7106), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -508389,18 +507454,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24060] = 10,
+  [23132] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8101), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8099), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [23198] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5185), 1,
+    STATE(4733), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6974), 1,
+    STATE(7026), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508408,7 +507536,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8119), 2,
+    ACTIONS(8103), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508459,18 +507587,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24140] = 10,
+  [23278] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8107), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8105), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [23344] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1014), 1,
+    STATE(1622), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6504), 1,
+    STATE(7077), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508478,7 +507669,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8121), 2,
+    ACTIONS(8109), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508529,18 +507720,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24220] = 10,
+  [23424] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5193), 1,
+    STATE(904), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6976), 1,
+    STATE(6473), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508548,7 +507739,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8123), 2,
+    ACTIONS(7170), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508599,18 +507790,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24300] = 10,
+  [23504] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4965), 1,
+    STATE(5184), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7196), 1,
+    STATE(6754), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508618,7 +507809,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7146), 2,
+    ACTIONS(7078), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508669,18 +507860,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24380] = 10,
+  [23584] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3090), 1,
+    STATE(1186), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6986), 1,
+    STATE(7306), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -508688,7 +507879,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7953), 2,
+    ACTIONS(7879), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -508739,29 +507930,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24460] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(3153), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6990), 1,
-      sym__name,
+  [23664] = 5,
+    ACTIONS(8111), 1,
+      anon_sym_COMMA,
+    STATE(3694), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8125), 2,
+    ACTIONS(8113), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8115), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -508777,11 +507959,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -508795,6 +507980,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -508809,93 +507995,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24540] = 4,
-    ACTIONS(8127), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4287), 45,
+  [23734] = 5,
+    ACTIONS(8117), 1,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [24608] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(1147), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6531), 1,
-      sym__name,
+    STATE(3694), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7949), 2,
+    ACTIONS(8120), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8122), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -508911,11 +508024,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -508929,6 +508045,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -508943,155 +508060,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24688] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8131), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8129), 46,
+  [23804] = 5,
+    ACTIONS(8111), 1,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [24754] = 3,
+    STATE(3694), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8135), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
+    ACTIONS(7726), 3,
+      sym__external_end_of_statement,
       anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8133), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [24820] = 10,
-    ACTIONS(6976), 1,
+      anon_sym_SEMI,
+    ACTIONS(8124), 52,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5662), 1,
-      sym_identifier,
-    STATE(6156), 1,
-      sym__declaration_assignment,
-    STATE(6552), 1,
-      sym_sized_declarator,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6982), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(7994), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -509107,11 +508089,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -509125,6 +508110,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -509139,26 +508125,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24900] = 10,
+  [23874] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5119), 1,
+    STATE(754), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6755), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7203), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8137), 2,
+    ACTIONS(8126), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509209,26 +508195,116 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [24980] = 10,
+  [23954] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8128), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8130), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(7868), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3823), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [24074] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1619), 1,
+    STATE(728), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6477), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7008), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7837), 2,
+    ACTIONS(8132), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509279,18 +508355,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25060] = 10,
+  [24154] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1542), 1,
+    STATE(1387), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7013), 1,
+    STATE(6955), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -509298,7 +508374,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8139), 2,
+    ACTIONS(8134), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509349,144 +508425,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25140] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8143), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8141), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [25206] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8147), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8145), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [25272] = 10,
+  [24234] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1128), 1,
+    STATE(885), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6543), 1,
+    STATE(6501), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -509494,7 +508444,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8149), 2,
+    ACTIONS(8136), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509545,18 +508495,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25352] = 10,
+  [24314] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4984), 1,
+    STATE(1079), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7131), 1,
+    STATE(6584), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -509564,7 +508514,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8151), 2,
+    ACTIONS(8138), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509615,20 +508565,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25432] = 5,
-    ACTIONS(8153), 1,
-      anon_sym_COMMA,
-    ACTIONS(8158), 1,
-      anon_sym_COLON_COLON,
-    STATE(3715), 1,
-      aux_sym_procedure_statement_repeat1,
+  [24394] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(663), 1,
+      sym__end_of_statement,
+    STATE(6799), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8156), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8140), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -509644,14 +508603,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -509665,7 +508621,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -509680,116 +508635,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25502] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8160), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8162), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7982), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3829), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [25622] = 10,
+  [24474] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(727), 1,
+    STATE(5212), 1,
       sym__end_of_statement,
-    STATE(6539), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6758), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8164), 2,
+    ACTIONS(8142), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509840,18 +508705,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25702] = 10,
+  [24554] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5128), 1,
+    STATE(1101), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7205), 1,
+    STATE(7197), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -509859,7 +508724,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8166), 2,
+    ACTIONS(7138), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -509910,215 +508775,96 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [25782] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8170), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8168), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [25848] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8174), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
+  [24634] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8172), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [25914] = 3,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4861), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7181), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8178), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8176), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7122), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [25980] = 10,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [24714] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(689), 1,
+    STATE(1067), 1,
       sym__end_of_statement,
-    STATE(6558), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6582), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8180), 2,
+    ACTIONS(8144), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510169,18 +508915,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26060] = 10,
+  [24794] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5068), 1,
+    STATE(1019), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6854), 1,
+    STATE(6578), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510188,7 +508934,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7170), 2,
+    ACTIONS(7066), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510239,18 +508985,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26140] = 10,
+  [24874] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(565), 1,
+    STATE(653), 1,
       sym__end_of_statement,
-    STATE(6622), 1,
+    STATE(6778), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510258,7 +509004,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8182), 2,
+    ACTIONS(8146), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510309,26 +509055,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26220] = 10,
+  [24954] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(568), 1,
+    STATE(2888), 1,
       sym__end_of_statement,
-    STATE(6625), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6522), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8184), 2,
+    ACTIONS(7861), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510379,26 +509125,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26300] = 10,
+  [25034] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(733), 1,
+    STATE(5046), 1,
       sym__end_of_statement,
-    STATE(6667), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6894), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8186), 2,
+    ACTIONS(7110), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510449,18 +509195,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26380] = 10,
+  [25114] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4568), 1,
+    STATE(1015), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6559), 1,
+    STATE(6573), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510468,7 +509214,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7050), 2,
+    ACTIONS(7074), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510519,20 +509265,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26460] = 5,
-    ACTIONS(8188), 1,
-      anon_sym_COMMA,
-    STATE(3728), 1,
-      aux_sym_common_statement_repeat1,
+  [25194] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4953), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7269), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8191), 3,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8148), 2,
       sym__external_end_of_statement,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(8193), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -510548,14 +509303,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -510569,7 +509321,77 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [25274] = 11,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
+    ACTIONS(8152), 1,
+      aux_sym__inline_if_statement_token1,
+    STATE(763), 1,
+      sym__end_of_statement,
+    STATE(6785), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8150), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 46,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -510584,18 +509406,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26530] = 10,
+  [25356] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4574), 1,
+    STATE(852), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6770), 1,
+    STATE(6485), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510603,7 +509425,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8195), 2,
+    ACTIONS(7793), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510654,18 +509476,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26610] = 10,
+  [25436] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1054), 1,
+    STATE(4950), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7154), 1,
+    STATE(7267), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510673,7 +509495,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7166), 2,
+    ACTIONS(8154), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510724,18 +509546,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26690] = 10,
+  [25516] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4501), 1,
+    STATE(1467), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6566), 1,
+    STATE(6987), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510743,7 +509565,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8197), 2,
+    ACTIONS(7855), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510794,26 +509616,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26770] = 10,
+  [25596] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(732), 1,
+    STATE(4937), 1,
       sym__end_of_statement,
-    STATE(7046), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7263), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8199), 2,
+    ACTIONS(7174), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510864,18 +509686,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26850] = 10,
+  [25676] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(974), 1,
+    STATE(972), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6918), 1,
+    STATE(7162), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -510883,7 +509705,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8201), 2,
+    ACTIONS(7805), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -510934,26 +509756,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [26930] = 10,
+  [25756] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(574), 1,
+    STATE(5215), 1,
       sym__end_of_statement,
-    STATE(7134), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6760), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8203), 2,
+    ACTIONS(8156), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511004,20 +509826,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27010] = 5,
-    ACTIONS(7989), 1,
-      anon_sym_COMMA,
-    STATE(3683), 1,
-      aux_sym_common_statement_repeat1,
+  [25836] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(847), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6491), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8205), 3,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7801), 2,
       sym__external_end_of_statement,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(8207), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -511033,14 +509864,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [25916] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4972), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7258), 1,
+      sym__name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7178), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -511054,7 +509952,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [25996] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
+    STATE(989), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6652), 1,
+      sym__name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7757), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -511069,26 +510036,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27080] = 10,
+  [26076] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(581), 1,
+    STATE(2786), 1,
       sym__end_of_statement,
-    STATE(7136), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6828), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8209), 2,
+    ACTIONS(8158), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511139,18 +510106,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27160] = 10,
+  [26156] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(578), 1,
+    STATE(701), 1,
       sym__end_of_statement,
-    STATE(7138), 1,
+    STATE(6554), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -511158,7 +510125,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8211), 2,
+    ACTIONS(8160), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511209,26 +510176,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27240] = 10,
+  [26236] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4992), 1,
+    STATE(734), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6553), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6576), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7070), 2,
+    ACTIONS(8162), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511279,26 +510246,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27320] = 10,
+  [26316] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(582), 1,
+    STATE(1351), 1,
       sym__end_of_statement,
-    STATE(7139), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6942), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8213), 2,
+    ACTIONS(7871), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511349,31 +510316,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27400] = 11,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8217), 1,
-      aux_sym__inline_if_statement_token1,
-    STATE(766), 1,
-      sym__end_of_statement,
-    STATE(7252), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+  [26396] = 5,
+    ACTIONS(8111), 1,
+      anon_sym_COMMA,
+    STATE(3693), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8215), 2,
+    ACTIONS(8164), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 46,
+    ACTIONS(8166), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -511389,11 +510345,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -511404,8 +510363,10 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_keyword_statement_token2,
       aux_sym_keyword_statement_token3,
       aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -511420,18 +510381,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27482] = 10,
+  [26466] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4994), 1,
+    STATE(5072), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6578), 1,
+    STATE(7238), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -511439,7 +510400,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7074), 2,
+    ACTIONS(8168), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511490,29 +510451,83 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27562] = 10,
-    ACTIONS(5493), 1,
+  [26546] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5009), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6580), 1,
-      sym__name,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8170), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [26612] = 5,
+    ACTIONS(8111), 1,
+      anon_sym_COMMA,
+    STATE(3695), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8219), 2,
+    ACTIONS(8174), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8176), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -511528,11 +510543,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -511546,6 +510564,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -511560,18 +510579,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27642] = 10,
+  [26682] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5019), 1,
+    STATE(5014), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6582), 1,
+    STATE(7227), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -511579,7 +510598,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8221), 2,
+    ACTIONS(7054), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511630,20 +510649,209 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27722] = 5,
-    ACTIONS(7989), 1,
+  [26762] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8180), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8178), 46,
       anon_sym_COMMA,
-    STATE(3632), 1,
-      aux_sym_common_statement_repeat1,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [26828] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8223), 3,
-      sym__external_end_of_statement,
+    ACTIONS(8184), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_SEMI,
-    ACTIONS(8225), 52,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8182), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [26894] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8188), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8186), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [26960] = 5,
+    ACTIONS(8190), 1,
+      anon_sym_COMMA,
+    ACTIONS(8195), 1,
+      anon_sym_COLON_COLON,
+    STATE(3735), 1,
+      aux_sym_procedure_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8193), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -511695,18 +510903,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27792] = 10,
+  [27030] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2838), 1,
+    STATE(5082), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6946), 1,
+    STATE(6714), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -511714,7 +510922,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7925), 2,
+    ACTIONS(7082), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511765,29 +510973,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27872] = 10,
-    ACTIONS(5493), 1,
+  [27110] = 10,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    STATE(649), 1,
-      sym__end_of_statement,
-    STATE(7094), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(5672), 1,
       sym_identifier,
+    STATE(6213), 1,
+      sym__declaration_assignment,
+    STATE(6474), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8227), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8349), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -511835,89 +511043,116 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [27952] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8231), 11,
+  [27190] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8229), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8197), 1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
+    ACTIONS(8199), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8370), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [28018] = 10,
+    STATE(3920), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [27310] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(848), 1,
+    STATE(705), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6545), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6697), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8233), 2,
+    ACTIONS(8201), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -511968,26 +511203,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28098] = 10,
+  [27390] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(583), 1,
+    STATE(2821), 1,
       sym__end_of_statement,
-    STATE(6797), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6461), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8235), 2,
+    ACTIONS(8203), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512038,26 +511273,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28178] = 10,
+  [27470] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1637), 1,
+    STATE(707), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6544), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6605), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7843), 2,
+    ACTIONS(8205), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512108,18 +511343,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28258] = 10,
+  [27550] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1647), 1,
+    STATE(894), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6614), 1,
+    STATE(6678), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -512127,7 +511362,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8237), 2,
+    ACTIONS(8207), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512178,26 +511413,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28338] = 10,
+  [27630] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(647), 1,
+    STATE(987), 1,
       sym__end_of_statement,
-    STATE(6960), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7151), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8239), 2,
+    ACTIONS(7787), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512248,171 +511483,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28418] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(4961), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(7104), 1,
-      sym__name,
+  [27710] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7126), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [28498] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8211), 11,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8241), 1,
+      anon_sym_DOT,
+    ACTIONS(8209), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
-    ACTIONS(8243), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+      aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8012), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3870), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [28618] = 3,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [27776] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8247), 11,
+    ACTIONS(8211), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -512424,7 +511562,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8245), 46,
+    ACTIONS(8209), 46,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -512471,26 +511609,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [28684] = 10,
+  [27842] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5146), 1,
+    STATE(613), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6741), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6623), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7098), 2,
+    ACTIONS(8213), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512541,96 +511679,116 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28764] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+  [27922] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5187), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6628), 1,
-      sym__name,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8215), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8217), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8249), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8402), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [28844] = 10,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3875), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [28042] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(679), 1,
+    STATE(5172), 1,
       sym__end_of_statement,
-    STATE(6877), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6600), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8251), 2,
+    ACTIONS(8219), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512681,18 +511839,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [28924] = 10,
+  [28122] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2881), 1,
+    STATE(3055), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7278), 1,
+    STATE(7042), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -512700,7 +511858,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7959), 2,
+    ACTIONS(8221), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512751,18 +511909,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29004] = 10,
+  [28202] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(591), 1,
+    STATE(709), 1,
       sym__end_of_statement,
-    STATE(7147), 1,
+    STATE(6543), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -512770,7 +511928,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8253), 2,
+    ACTIONS(8223), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512821,26 +511979,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29084] = 10,
+  [28282] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(593), 1,
+    STATE(891), 1,
       sym__end_of_statement,
-    STATE(7148), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6684), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8255), 2,
+    ACTIONS(8225), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512891,18 +512049,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29164] = 10,
+  [28362] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(850), 1,
+    STATE(3048), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6737), 1,
+    STATE(7048), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -512910,7 +512068,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7777), 2,
+    ACTIONS(7831), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -512961,26 +512119,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29244] = 10,
+  [28442] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5134), 1,
+    STATE(713), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6540), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6641), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7118), 2,
+    ACTIONS(8227), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513031,26 +512189,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29324] = 10,
+  [28522] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5136), 1,
+    STATE(617), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6742), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6644), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7122), 2,
+    ACTIONS(8229), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513101,18 +512259,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29404] = 10,
+  [28602] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5139), 1,
+    STATE(1246), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6647), 1,
+    STATE(7198), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513120,7 +512278,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8257), 2,
+    ACTIONS(8231), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513171,18 +512329,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29484] = 10,
+  [28682] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2775), 1,
+    STATE(1066), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7014), 1,
+    STATE(6909), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513190,7 +512348,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8259), 2,
+    ACTIONS(8233), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513241,99 +512399,84 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29564] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(852), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6740), 1,
-      sym__name,
+  [28762] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7789), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [29644] = 10,
-    ACTIONS(5493), 1,
+    ACTIONS(8237), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5142), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6649), 1,
-      sym__name,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8235), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [28828] = 6,
+    ACTIONS(7917), 1,
+      anon_sym_LPAREN2,
+    STATE(4038), 1,
+      sym_argument_list,
+    STATE(4051), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8261), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(6704), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(5698), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -513349,11 +512492,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -513367,6 +512513,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -513381,18 +512528,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29724] = 10,
+  [28900] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1060), 1,
+    STATE(1439), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7161), 1,
+    STATE(7163), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513400,7 +512547,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8263), 2,
+    ACTIONS(8239), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513451,18 +512598,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29804] = 10,
+  [28980] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1062), 1,
+    STATE(5226), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7163), 1,
+    STATE(7076), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513470,7 +512617,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7773), 2,
+    ACTIONS(8241), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513521,18 +512668,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29884] = 10,
+  [29060] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(978), 1,
+    STATE(5223), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6932), 1,
+    STATE(7080), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513540,7 +512687,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8265), 2,
+    ACTIONS(8243), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513591,18 +512738,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [29964] = 10,
+  [29140] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(884), 1,
+    STATE(5208), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6922), 1,
+    STATE(7086), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513610,7 +512757,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7066), 2,
+    ACTIONS(7090), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513661,26 +512808,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30044] = 10,
+  [29220] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(598), 1,
+    STATE(4967), 1,
       sym__end_of_statement,
-    STATE(7076), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6536), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8267), 2,
+    ACTIONS(8245), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513731,18 +512878,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30124] = 10,
+  [29300] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1368), 1,
+    STATE(1304), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6672), 1,
+    STATE(7186), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513750,7 +512897,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7941), 2,
+    ACTIONS(7893), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513801,26 +512948,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30204] = 10,
+  [29380] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1376), 1,
+    STATE(758), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6488), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6679), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8269), 2,
+    ACTIONS(8247), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -513871,108 +513018,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30284] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8271), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8273), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7711), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3900), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [30404] = 10,
+  [29460] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1064), 1,
+    STATE(1081), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7167), 1,
+    STATE(7183), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -513980,7 +513037,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7785), 2,
+    ACTIONS(7086), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514031,18 +513088,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30484] = 10,
+  [29540] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(886), 1,
+    STATE(1628), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6937), 1,
+    STATE(6808), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514050,7 +513107,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7182), 2,
+    ACTIONS(7837), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514101,18 +513158,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30564] = 10,
+  [29620] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(728), 1,
+    STATE(735), 1,
       sym__end_of_statement,
-    STATE(6739), 1,
+    STATE(6489), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514120,7 +513177,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8275), 2,
+    ACTIONS(8249), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514171,18 +513228,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30644] = 10,
+  [29700] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5062), 1,
+    STATE(5015), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6688), 1,
+    STATE(6900), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514190,7 +513247,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7150), 2,
+    ACTIONS(8251), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514241,88 +513298,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30724] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5073), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(6692), 1,
-      sym__name,
+  [29780] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8277), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+    ACTIONS(8255), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8253), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [30804] = 10,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [29846] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2824), 1,
+    STATE(970), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7302), 1,
+    STATE(7196), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514330,7 +513380,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8279), 2,
+    ACTIONS(7182), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514381,119 +513431,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [30884] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8281), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8283), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
+  [29926] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8356), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3891), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [31004] = 10,
-    ACTIONS(5493), 1,
+    ACTIONS(8257), 3,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_COLON_COLON,
+    ACTIONS(8259), 54,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(612), 1,
-      sym__end_of_statement,
-    STATE(7078), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8285), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -514509,11 +513458,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -514527,6 +513479,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -514541,29 +513494,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31084] = 10,
-    ACTIONS(5493), 1,
+  [29992] = 10,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4755), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(5735), 1,
       sym_identifier,
-    STATE(6701), 1,
-      sym__name,
+    STATE(6474), 1,
+      sym_sized_declarator,
+    STATE(6514), 1,
+      sym__declaration_assignment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7154), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(7731), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -514611,18 +513564,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31164] = 10,
+  [30072] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4757), 1,
+    STATE(5206), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6705), 1,
+    STATE(7092), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514630,7 +513583,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7162), 2,
+    ACTIONS(7094), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514681,26 +513634,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31244] = 10,
+  [30152] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(994), 1,
+    STATE(725), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6476), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6969), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7793), 2,
+    ACTIONS(8261), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514751,18 +513704,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31324] = 10,
+  [30232] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4760), 1,
+    STATE(1105), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6707), 1,
+    STATE(7203), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514770,7 +513723,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8287), 2,
+    ACTIONS(8263), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514821,11 +513774,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31404] = 3,
+  [30312] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8291), 11,
+    ACTIONS(8267), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -514837,7 +513790,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8289), 46,
+    ACTIONS(8265), 46,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -514884,18 +513837,18 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [31470] = 10,
+  [30378] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4763), 1,
+    STATE(4851), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6709), 1,
+    STATE(7177), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -514903,7 +513856,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8293), 2,
+    ACTIONS(8269), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -514954,29 +513907,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31550] = 11,
+  [30458] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8295), 1,
-      anon_sym_COMMA,
-    ACTIONS(8297), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8299), 1,
-      anon_sym_COLON_COLON,
-    STATE(6065), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    STATE(1102), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7204), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8271), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -515025,18 +513977,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31632] = 10,
+  [30538] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1072), 1,
+    STATE(982), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7171), 1,
+    STATE(6904), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -515044,7 +513996,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8301), 2,
+    ACTIONS(8273), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515095,92 +514047,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31712] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8305), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8303), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [31778] = 10,
-    ACTIONS(6976), 1,
+  [30618] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5676), 1,
+    STATE(1023), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6325), 1,
-      sym__declaration_assignment,
-    STATE(6552), 1,
-      sym_sized_declarator,
+    STATE(6718), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7994), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(6978), 47,
+    ACTIONS(8275), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -515228,26 +514117,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31858] = 10,
+  [30698] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(726), 1,
+    STATE(4590), 1,
       sym__end_of_statement,
-    STATE(6455), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7148), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8307), 2,
+    ACTIONS(8277), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515298,18 +514187,108 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [31938] = 10,
+  [30778] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8279), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8281), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8582), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3828), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [30898] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1400), 1,
+    STATE(1633), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6730), 1,
+    STATE(6825), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -515317,7 +514296,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7967), 2,
+    ACTIONS(8283), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515368,18 +514347,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32018] = 10,
+  [30978] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8287), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8285), 46,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      anon_sym_GT_GT_GT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [31044] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1415), 1,
+    STATE(4848), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6736), 1,
+    STATE(7167), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -515387,7 +514429,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8309), 2,
+    ACTIONS(8289), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515438,11 +514480,101 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32098] = 3,
+  [31124] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8291), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8293), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8014), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3818), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [31244] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8313), 11,
+    ACTIONS(8297), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -515454,7 +514586,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8311), 46,
+    ACTIONS(8295), 46,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -515501,11 +514633,81 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [32164] = 3,
+  [31310] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4944), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(6507), 1,
+      sym__name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7166), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [31390] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8317), 11,
+    ACTIONS(8301), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -515517,7 +514719,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8315), 46,
+    ACTIONS(8299), 46,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -515564,76 +514766,76 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [32230] = 30,
-    ACTIONS(8001), 1,
+  [31456] = 30,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8319), 1,
+    ACTIONS(8303), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(8321), 1,
+    ACTIONS(8305), 1,
       sym_preproc_comment,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8177), 3,
+    STATE(7780), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -515641,7 +514843,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3930), 12,
+    STATE(3937), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -515654,29 +514856,28 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [32350] = 11,
+  [31576] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8295), 1,
-      anon_sym_COMMA,
-    ACTIONS(8299), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(8323), 1,
-      anon_sym_LPAREN2,
-    STATE(6065), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    STATE(5021), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(6898), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8307), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -515725,18 +514926,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32432] = 10,
+  [31656] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4599), 1,
+    STATE(1342), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6772), 1,
+    STATE(7103), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -515744,7 +514945,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8325), 2,
+    ACTIONS(8309), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515795,18 +514996,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32512] = 10,
+  [31736] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4903), 1,
+    STATE(4583), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6751), 1,
+    STATE(6512), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -515814,7 +515015,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7174), 2,
+    ACTIONS(8311), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -515865,19 +515066,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32592] = 4,
-    ACTIONS(8329), 1,
-      anon_sym_LPAREN2,
+  [31816] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4565), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7146), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8327), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(8331), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8313), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -515893,14 +515104,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -515914,7 +515122,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -515929,108 +515136,88 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32660] = 30,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+  [31896] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8333), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8335), 1,
-      sym_preproc_comment,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4530), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
+      sym_identifier,
+    STATE(7142), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7787), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7038), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3889), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [32780] = 10,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [31976] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4909), 1,
+    STATE(1357), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6755), 1,
+    STATE(7115), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -516038,7 +515225,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8337), 2,
+    ACTIONS(7971), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516089,81 +515276,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [32860] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(8339), 46,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      anon_sym_GT_GT_GT,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [32926] = 10,
+  [32056] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(619), 1,
+    STATE(583), 1,
       sym__end_of_statement,
-    STATE(7055), 1,
+    STATE(6884), 1,
       sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -516171,7 +515295,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8343), 2,
+    ACTIONS(8315), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516222,26 +515346,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33006] = 10,
+  [32136] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1075), 1,
+    STATE(743), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6525), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7172), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8345), 2,
+    ACTIONS(8317), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516292,18 +515416,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33086] = 10,
+  [32216] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4533), 1,
+    STATE(4572), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(6765), 1,
+    STATE(6510), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -516311,7 +515435,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7038), 2,
+    ACTIONS(8319), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516362,18 +515486,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33166] = 10,
+  [32296] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1043), 1,
+    STATE(4527), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7034), 1,
+    STATE(7137), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -516381,7 +515505,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7803), 2,
+    ACTIONS(7062), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516432,26 +515556,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33246] = 10,
+  [32376] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(858), 1,
+    STATE(546), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6534), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7021), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8347), 2,
+    ACTIONS(8321), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516502,26 +515626,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33326] = 10,
+  [32456] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1101), 1,
+    STATE(550), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6535), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6514), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8349), 2,
+    ACTIONS(8323), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516572,29 +515696,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33406] = 10,
-    ACTIONS(5493), 1,
+  [32536] = 10,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4552), 1,
-      sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(5677), 1,
       sym_identifier,
-    STATE(6767), 1,
-      sym__name,
+    STATE(6389), 1,
+      sym__declaration_assignment,
+    STATE(6474), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7042), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    STATE(8349), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -516642,18 +515766,108 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33486] = 10,
+  [32616] = 30,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8325), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8327), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8147), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3932), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [32736] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(888), 1,
+    STATE(5087), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7007), 1,
+    STATE(6857), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -516661,7 +515875,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8351), 2,
+    ACTIONS(7102), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516712,26 +515926,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33566] = 10,
+  [32816] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(843), 1,
+    STATE(622), 1,
       sym__end_of_statement,
-    STATE(6116), 1,
+    STATE(6786), 1,
+      sym__block_label,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(6544), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7134), 2,
+    ACTIONS(8329), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516782,24 +515996,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33646] = 9,
+  [32896] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
+    STATE(4883), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7648), 1,
-      sym__block_label,
+    STATE(7117), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8353), 2,
+    ACTIONS(8331), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -516850,104 +516066,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33723] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8365), 1,
+  [32976] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8369), 1,
-      aux_sym_end_interface_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    STATE(1455), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3942), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [33838] = 3,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(699), 1,
+      sym__end_of_statement,
+    STATE(6542), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8158), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(8156), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8333), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -516963,14 +516104,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -516984,7 +516122,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -516999,200 +516136,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [33903] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8375), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8377), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1161), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3893), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [34018] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8379), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8381), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(991), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3895), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [34133] = 9,
+  [33056] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    STATE(5106), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+    STATE(6869), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(6300), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
+    ACTIONS(8335), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -517241,281 +516206,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [34210] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8383), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8616), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3876), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34327] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8383), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8616), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34444] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+  [33136] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8385), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(7991), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3884), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34561] = 3,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(584), 1,
+      sym__end_of_statement,
+    STATE(7284), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8191), 4,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8337), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-    ACTIONS(8193), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -517531,14 +516244,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -517552,7 +516262,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -517561,559 +516270,25 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_statement_token1,
       aux_sym_coarray_statement_token2,
       aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [34626] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8387), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8195), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3836), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34743] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8389), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8212), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3839), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34860] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8389), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8212), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [34977] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8391), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8393), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1433), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3940), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [35092] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8395), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8397), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(2685), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [35207] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8399), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8015), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3922), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [35324] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
-      sym_identifier,
-    STATE(7626), 1,
-      sym__block_label,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [33216] = 4,
+    ACTIONS(8341), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8401), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8339), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8343), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -518129,11 +516304,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -518147,6 +516325,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -518161,26 +516340,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [35401] = 9,
+  [33284] = 10,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
+    STATE(4855), 1,
+      sym__end_of_statement,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+    STATE(7106), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(7019), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
+    ACTIONS(7118), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -518229,16 +516410,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [35478] = 9,
+  [33364] = 11,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7602), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    ACTIONS(8013), 1,
+      anon_sym_COMMA,
+    ACTIONS(8017), 1,
+      anon_sym_COLON_COLON,
+    ACTIONS(8345), 1,
+      anon_sym_LPAREN2,
+    STATE(6045), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -518246,9 +516433,6 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8403), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -518297,74 +516481,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [35555] = 29,
-    ACTIONS(8001), 1,
+  [33446] = 30,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8405), 1,
+    ACTIONS(8347), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8349), 1,
+      sym_preproc_comment,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8307), 3,
+    STATE(8122), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -518372,7 +516558,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3853), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -518385,161 +516571,144 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [35672] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8407), 1,
+  [33566] = 10,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8409), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1373), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(733), 1,
+      sym__end_of_statement,
+    STATE(6548), 1,
+      sym__block_label,
+    STATE(7349), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8351), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3892), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [35787] = 29,
-    ACTIONS(8001), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [33646] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8405), 1,
+    ACTIONS(8353), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8307), 3,
+    STATE(8235), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -518547,7 +516716,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3843), 12,
+    STATE(3856), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -518560,74 +516729,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [35904] = 29,
-    ACTIONS(8001), 1,
+  [33763] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8411), 1,
+    ACTIONS(8355), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8319), 3,
+    STATE(7958), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -518635,7 +516804,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -518648,74 +516817,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [36021] = 29,
-    ACTIONS(8001), 1,
+  [33880] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8413), 1,
+    ACTIONS(8357), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8476), 3,
+    STATE(7908), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -518723,7 +516892,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3913), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -518736,24 +516905,24 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [36138] = 9,
+  [33997] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7364), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
+    STATE(7546), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8415), 2,
+    ACTIONS(7184), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -518804,27 +516973,281 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [36215] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+  [34074] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7353), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8359), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8417), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(7793), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [34191] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8357), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(7908), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3838), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [34308] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8361), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(7850), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [34425] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7220), 4,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_COLON_COLON,
+    ACTIONS(7222), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -518840,11 +517263,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -518858,6 +517284,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -518872,74 +517299,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [36292] = 29,
-    ACTIONS(8001), 1,
+  [34490] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8419), 1,
+    ACTIONS(8361), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8348), 3,
+    STATE(7850), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -518947,7 +517374,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3821), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -518960,73 +517387,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [36409] = 28,
-    ACTIONS(8023), 1,
+  [34607] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
     ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8421), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8423), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(898), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(7842), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519034,37 +517462,37 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3819), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [36524] = 9,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [34724] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7484), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
+    STATE(7459), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8425), 2,
+    ACTIONS(8365), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -519115,74 +517543,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [36601] = 29,
-    ACTIONS(8001), 1,
+  [34801] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8427), 1,
+    ACTIONS(8367), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8658), 3,
+    STATE(8547), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519190,7 +517618,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519203,27 +517631,27 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [36718] = 9,
-    ACTIONS(7721), 1,
+  [34918] = 9,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7725), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7731), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
     STATE(3341), 1,
       sym_identifier,
-    STATE(3455), 1,
+    STATE(3456), 1,
       sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7727), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(3826), 2,
+    STATE(3887), 2,
       sym__variable_declarator,
       sym_coarray_declarator,
-    ACTIONS(7723), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -519271,16 +517699,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [36795] = 9,
+  [34995] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7674), 1,
+    STATE(7643), 1,
       sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -519288,7 +517716,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8429), 2,
+    ACTIONS(8369), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -519339,74 +517767,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [36872] = 29,
-    ACTIONS(8001), 1,
+  [35072] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8431), 1,
+    ACTIONS(8367), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7962), 3,
+    STATE(8547), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519414,7 +517842,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3902), 12,
+    STATE(3837), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519427,74 +517855,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [36989] = 29,
-    ACTIONS(8001), 1,
+  [35189] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8433), 1,
+    ACTIONS(8371), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8369), 3,
+    STATE(8550), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519502,7 +517930,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3835), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519515,17 +517943,28 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [37106] = 3,
+  [35306] = 10,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8373), 1,
+      anon_sym_COMMA,
+    ACTIONS(8375), 1,
+      anon_sym_COLON_COLON,
+    STATE(6125), 1,
+      sym_identifier,
+    STATE(7478), 1,
+      sym__type_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5710), 4,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
-    ACTIONS(5718), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -519541,14 +517980,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -519562,7 +517998,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [35385] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7666), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8377), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -519577,17 +518080,379 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [37171] = 3,
+  [35462] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8379), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7220), 4,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
-    ACTIONS(7222), 52,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8492), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [35579] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8379), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8492), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3874), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [35696] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8381), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8483), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [35813] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8383), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(7930), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [35930] = 9,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7522), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8385), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -519603,14 +518468,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -519624,7 +518486,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -519639,73 +518500,160 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [37236] = 28,
-    ACTIONS(8023), 1,
+  [36007] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8397), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8401), 1,
+      aux_sym_end_interface_statement_token1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8435), 1,
+    STATE(1597), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3962), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [36122] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8407), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8437), 1,
+    ACTIONS(8409), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(2853), 1,
+    STATE(2705), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519713,7 +518661,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3912), 12,
+    STATE(3918), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519726,74 +518674,162 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [37351] = 29,
-    ACTIONS(8001), 1,
+  [36237] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8399), 1,
+    ACTIONS(8411), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
       sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8236), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [36354] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8413), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8015), 3,
+    STATE(8576), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519801,7 +518837,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519814,26 +518850,26 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [37468] = 9,
+  [36471] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7421), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(3341), 1,
       sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7184), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
+    STATE(6368), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
     ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -519882,73 +518918,73 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [37545] = 28,
-    ACTIONS(8023), 1,
+  [36548] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8421), 1,
+    ACTIONS(8415), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8423), 1,
+    ACTIONS(8417), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(896), 1,
+    STATE(1563), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -519956,7 +518992,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3844), 12,
+    STATE(3939), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -519969,24 +519005,92 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [37660] = 9,
+  [36663] = 9,
+    ACTIONS(7733), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7737), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7743), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7739), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(3887), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(7735), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [36740] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
+    STATE(6138), 1,
       sym_identifier,
-    STATE(7677), 1,
-      sym__block_label,
+    STATE(7661), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8439), 2,
+    ACTIONS(8419), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -520037,73 +519141,73 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [37737] = 28,
-    ACTIONS(8023), 1,
+  [36817] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8441), 1,
+    ACTIONS(8421), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8443), 1,
+    ACTIONS(8423), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1032), 1,
+    STATE(3070), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520111,7 +519215,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3935), 12,
+    STATE(3910), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -520124,73 +519228,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [37852] = 28,
-    ACTIONS(8023), 1,
+  [36932] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
     ACTIONS(8395), 1,
-      aux_sym_end_program_statement_token1,
+      sym_preproc_directive,
     ACTIONS(8397), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8401), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(2744), 1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    STATE(1582), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520198,7 +519302,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3831), 12,
+    STATE(3840), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -520211,73 +519315,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [37967] = 28,
-    ACTIONS(8023), 1,
+  [37047] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8445), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8447), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(2809), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8425), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8170), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520285,155 +519390,175 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3858), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [38082] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [37164] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7558), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8427), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8449), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8538), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [38159] = 29,
-    ACTIONS(8001), 1,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [37281] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8427), 1,
+    ACTIONS(8429), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8658), 3,
+    STATE(8185), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520441,7 +519566,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3934), 12,
+    STATE(3863), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -520454,74 +519579,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [38276] = 29,
-    ACTIONS(8001), 1,
+  [37398] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8451), 1,
+    ACTIONS(8429), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8508), 3,
+    STATE(8185), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520529,7 +519654,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3931), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -520542,79 +519667,27 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [38393] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7228), 4,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
-    ACTIONS(7230), 52,
+  [37515] = 9,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [38458] = 3,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7450), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8453), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(8455), 54,
-      aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8431), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -520630,14 +519703,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -520651,7 +519721,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -520666,17 +519735,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [38523] = 3,
+  [37592] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7511), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7224), 4,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
-    ACTIONS(7226), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8433), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -520692,14 +519771,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -520713,7 +519789,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -520728,250 +519803,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [38588] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
+  [37669] = 29,
     ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8457), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8649), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [38705] = 29,
-    ACTIONS(8001), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
     ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8459), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8098), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3873), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [38822] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8461), 1,
+    ACTIONS(8435), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8141), 3,
+    STATE(8407), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -520979,7 +519878,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3875), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -520992,162 +519891,142 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [38939] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+  [37786] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8461), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7359), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8141), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8437), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39056] = 29,
-    ACTIONS(8001), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [37863] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8463), 1,
+    ACTIONS(8439), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8229), 3,
+    STATE(8206), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521155,7 +520034,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521168,74 +520047,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39173] = 29,
-    ACTIONS(8001), 1,
+  [37980] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8457), 1,
+    ACTIONS(8441), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8649), 3,
+    STATE(8325), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521243,7 +520122,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3927), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521256,74 +520135,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39290] = 29,
-    ACTIONS(8001), 1,
+  [38097] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8465), 1,
+    ACTIONS(8439), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8190), 3,
+    STATE(8206), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521331,7 +520210,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3868), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521344,74 +520223,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39407] = 29,
-    ACTIONS(8001), 1,
+  [38214] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8465), 1,
+    ACTIONS(8441), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8190), 3,
+    STATE(8325), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521419,7 +520298,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3880), 12,
+    STATE(3906), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521432,74 +520311,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39524] = 29,
-    ACTIONS(8001), 1,
+  [38331] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8467), 1,
+    ACTIONS(8443), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8193), 3,
+    STATE(8326), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521507,7 +520386,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521520,74 +520399,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39641] = 29,
-    ACTIONS(8001), 1,
+  [38448] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8469), 1,
+    ACTIONS(8445), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8671), 3,
+    STATE(8207), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521595,7 +520474,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521608,16 +520487,16 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [39758] = 9,
+  [38565] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7688), 1,
+    STATE(7447), 1,
       sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -521625,7 +520504,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8471), 2,
+    ACTIONS(8447), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -521676,92 +520555,199 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [39835] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+  [38642] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7384), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8449), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8473), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8542), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [39912] = 9,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3876), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [38759] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8453), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1169), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3962), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [38874] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7320), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
+    STATE(7380), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8475), 2,
+    ACTIONS(8455), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -521812,74 +520798,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [39989] = 29,
-    ACTIONS(8001), 1,
+  [38951] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8477), 1,
+    ACTIONS(8457), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8202), 3,
+    STATE(8231), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521887,7 +520873,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521900,74 +520886,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [40106] = 29,
-    ACTIONS(8001), 1,
+  [39068] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8479), 1,
+    ACTIONS(8459), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7818), 3,
+    STATE(8546), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -521975,7 +520961,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3873), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -521988,73 +520974,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [40223] = 28,
-    ACTIONS(8023), 1,
+  [39185] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8481), 1,
+    ACTIONS(8461), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8483), 1,
+    ACTIONS(8463), 1,
       aux_sym_end_interface_statement_token1,
     STATE(1642), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522062,7 +521048,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3881), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522075,27 +521061,17 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [40338] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+  [39300] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(3826), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(8465), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8467), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -522111,11 +521087,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -522129,6 +521108,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -522143,74 +521123,161 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [40415] = 29,
-    ACTIONS(8001), 1,
+  [39365] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8469), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8471), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1558), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3962), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [39480] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8485), 1,
+    ACTIONS(8473), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8171), 3,
+    STATE(8651), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522218,7 +521285,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522231,73 +521298,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [40532] = 28,
-    ACTIONS(8023), 1,
+  [39597] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8487), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8489), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1598), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8475), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8461), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522305,155 +521373,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [40647] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7594), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8491), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [40724] = 29,
-    ACTIONS(8001), 1,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [39714] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8493), 1,
+    ACTIONS(8459), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8619), 3,
+    STATE(8546), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522461,7 +521461,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3881), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522474,74 +521474,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [40841] = 29,
-    ACTIONS(8001), 1,
+  [39831] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8495), 1,
+    ACTIONS(8477), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7980), 3,
+    STATE(8652), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522549,7 +521549,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3903), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522562,74 +521562,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [40958] = 29,
-    ACTIONS(8001), 1,
+  [39948] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8451), 1,
+    ACTIONS(8479), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8508), 3,
+    STATE(8653), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522637,7 +521637,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3843), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522650,73 +521650,296 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [41075] = 28,
-    ACTIONS(8023), 1,
+  [40065] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7424), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8481), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [40142] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7429), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8483), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [40219] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8481), 1,
+    ACTIONS(8485), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8483), 1,
+    ACTIONS(8487), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1641), 1,
+    STATE(2866), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
       sym_subroutine_statement,
-    STATE(7124), 1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3962), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [40334] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8461), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8463), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1639), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522724,7 +521947,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3882), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522737,74 +521960,205 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [41190] = 29,
-    ACTIONS(8001), 1,
+  [40449] = 10,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8489), 1,
+      anon_sym_COMMA,
+    ACTIONS(8491), 1,
+      anon_sym_COLON_COLON,
+    STATE(6061), 1,
+      sym__type_name,
+    STATE(7273), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [40528] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8339), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8343), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [40593] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8493), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8619), 3,
+    STATE(8244), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522812,7 +522166,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -522825,160 +522179,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [41307] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
+  [40710] = 29,
     ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8407), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8409), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1384), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [41422] = 28,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8375), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8377), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1177), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8495), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(7863), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -522986,30 +522254,97 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [41537] = 4,
-    ACTIONS(5712), 1,
-      anon_sym_LPAREN2,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [40827] = 9,
+    ACTIONS(7733), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7737), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7743), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7739), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(3727), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(7735), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [40904] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5710), 3,
+    ACTIONS(8120), 4,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
-    ACTIONS(5718), 52,
+      anon_sym_SLASH,
+      anon_sym_SEMI,
+    ACTIONS(8122), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -523062,73 +522397,73 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [41604] = 28,
-    ACTIONS(8023), 1,
+  [40969] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8379), 1,
+    ACTIONS(8469), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8381), 1,
+    ACTIONS(8471), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1048), 1,
+    STATE(1569), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523136,7 +522471,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3872), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523149,74 +522484,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [41719] = 29,
-    ACTIONS(8001), 1,
+  [41084] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8497), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8373), 3,
+    STATE(7880), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523224,7 +522559,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3897), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523237,162 +522572,142 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [41836] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+  [41201] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8499), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7374), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    STATE(8615), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8499), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [41953] = 29,
-    ACTIONS(8001), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [41278] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8501), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7759), 3,
+    STATE(7888), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523400,7 +522715,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3904), 12,
+    STATE(3885), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523413,74 +522728,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42070] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [41395] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
     ACTIONS(8503), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8505), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1014), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7767), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523488,87 +522802,155 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3906), 12,
+    STATE(3904), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42187] = 29,
-    ACTIONS(8001), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [41510] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7643), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8369), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [41587] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8503), 1,
+    ACTIONS(8501), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7767), 3,
+    STATE(7888), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523576,7 +522958,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523589,24 +522971,24 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42304] = 9,
+  [41704] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7483), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
+    STATE(7359), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8505), 2,
+    ACTIONS(8437), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -523657,74 +523039,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [42381] = 29,
-    ACTIONS(8001), 1,
+  [41781] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8507), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8385), 3,
+    STATE(8250), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523732,7 +523114,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3842), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523745,74 +523127,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42498] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [41898] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
     ACTIONS(8509), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8511), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(861), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8388), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523820,87 +523201,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42615] = 29,
-    ACTIONS(8001), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [42013] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8511), 1,
+    ACTIONS(8507), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7810), 3,
+    STATE(8250), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523908,7 +523289,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -523921,74 +523302,142 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42732] = 29,
-    ACTIONS(8001), 1,
+  [42130] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7654), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8513), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [42207] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8511), 1,
+    ACTIONS(8355), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7810), 3,
+    STATE(7958), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -523996,7 +523445,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3909), 12,
+    STATE(3889), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524009,74 +523458,229 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42849] = 29,
-    ACTIONS(8001), 1,
+  [42324] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8485), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8487), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(2835), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3880), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [42439] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(3341), 1,
+      sym_identifier,
+    STATE(3456), 1,
+      sym_sized_declarator,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6259), 2,
+      sym__variable_declarator,
+      sym_coarray_declarator,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [42516] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8513), 1,
+    ACTIONS(8515), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7817), 3,
+    STATE(7966), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524084,7 +523688,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3894), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524097,73 +523701,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [42966] = 28,
-    ACTIONS(8023), 1,
+  [42633] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8487), 1,
+    ACTIONS(8503), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8489), 1,
+    ACTIONS(8505), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1591), 1,
+    STATE(1009), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524171,7 +523775,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3885), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524184,73 +523788,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [43081] = 28,
-    ACTIONS(8023), 1,
+  [42748] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8445), 1,
+    ACTIONS(8517), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8447), 1,
+    ACTIONS(8519), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(2802), 1,
+    STATE(1517), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524258,7 +523862,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3860), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524271,74 +523875,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [43196] = 29,
-    ACTIONS(8001), 1,
+  [42863] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8515), 1,
+    ACTIONS(8521), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7829), 3,
+    STATE(8357), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524346,7 +523950,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524359,73 +523963,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [43313] = 28,
-    ACTIONS(8023), 1,
+  [42980] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8517), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8519), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1399), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8523), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8280), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524433,87 +524038,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [43428] = 29,
-    ACTIONS(8001), 1,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [43097] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8495), 1,
+    ACTIONS(8523), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7980), 3,
+    STATE(8280), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524521,7 +524126,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3884), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524534,73 +524139,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [43545] = 28,
-    ACTIONS(8023), 1,
+  [43214] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8435), 1,
+    ACTIONS(8525), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8437), 1,
+    ACTIONS(8527), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(2849), 1,
+    STATE(2895), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524608,7 +524213,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3935), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524621,74 +524226,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [43660] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [43329] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8521), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8421), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8423), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(3083), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8020), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524696,155 +524300,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [43777] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7430), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8523), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [43854] = 29,
-    ACTIONS(8001), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [43444] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8485), 1,
+    ACTIONS(8529), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8171), 3,
+    STATE(8283), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -524852,7 +524388,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3871), 12,
+    STATE(3898), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -524865,27 +524401,17 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [43971] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(3341), 1,
-      sym_identifier,
-    STATE(3455), 1,
-      sym_sized_declarator,
+  [43561] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(6367), 2,
-      sym__variable_declarator,
-      sym_coarray_declarator,
-    ACTIONS(5495), 47,
+    ACTIONS(7228), 4,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_COLON_COLON,
+    ACTIONS(7230), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -524901,11 +524427,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -524919,6 +524448,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -524933,16 +524463,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [44048] = 9,
+  [43626] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7691), 1,
+    STATE(7472), 1,
       sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -524950,7 +524480,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8525), 2,
+    ACTIONS(8531), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -525001,27 +524531,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [44125] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7603), 1,
-      sym_identifier,
-    STATE(7606), 1,
-      sym__block_label,
+  [43703] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8527), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8195), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8193), 54,
+      aux_sym_end_program_statement_token1,
+      aux_sym_assignment_token1,
+      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -525037,11 +524557,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -525055,6 +524578,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -525069,73 +524593,161 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [44202] = 28,
-    ACTIONS(8023), 1,
+  [43768] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8533), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8434), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3923), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [43885] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
     ACTIONS(8517), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8519), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1388), 1,
+    STATE(1512), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525143,7 +524755,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3910), 12,
+    STATE(3905), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -525156,212 +524768,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [44317] = 10,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8529), 1,
-      anon_sym_COMMA,
-    ACTIONS(8531), 1,
-      anon_sym_COLON_COLON,
-    STATE(6069), 1,
-      sym__type_name,
-    STATE(7089), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [44396] = 10,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8533), 1,
-      anon_sym_COMMA,
-    ACTIONS(8535), 1,
-      anon_sym_COLON_COLON,
-    STATE(6122), 1,
-      sym_identifier,
-    STATE(7427), 1,
-      sym__type_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [44475] = 29,
-    ACTIONS(8001), 1,
+  [44000] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8537), 1,
+    ACTIONS(8535), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8173), 3,
+    STATE(8436), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525369,7 +524843,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3933), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -525382,73 +524856,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [44592] = 28,
-    ACTIONS(8023), 1,
+  [44117] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8539), 1,
+    ACTIONS(8407), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8541), 1,
+    ACTIONS(8409), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(2995), 1,
+    STATE(2687), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525456,7 +524930,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -525469,74 +524943,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [44707] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [44232] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8521), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8453), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1170), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8020), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525544,86 +525017,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3850), 12,
+    STATE(3866), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [44824] = 28,
-    ACTIONS(8023), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [44347] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8539), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8541), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(3044), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8535), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8436), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525631,37 +525105,105 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3923), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [44939] = 9,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [44464] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6116), 1,
+    STATE(7349), 1,
       sym_identifier,
-    STATE(7631), 1,
-      sym__name,
+    STATE(7682), 1,
+      sym__block_label,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8537), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [44541] = 9,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7349), 1,
+      sym_identifier,
+    STATE(7694), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8543), 2,
+    ACTIONS(8539), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -525712,74 +525254,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [45016] = 29,
-    ACTIONS(8001), 1,
+  [44618] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8545), 1,
+    ACTIONS(8541), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7707), 3,
+    STATE(8469), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525787,7 +525329,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -525800,74 +525342,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45133] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [44735] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8547), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8543), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8545), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1083), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8201), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525875,87 +525416,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3936), 12,
+    STATE(3942), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45250] = 29,
-    ACTIONS(8001), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [44850] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8549), 1,
+    ACTIONS(8541), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8205), 3,
+    STATE(8469), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -525963,7 +525504,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3938), 12,
+    STATE(3940), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -525976,74 +525517,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45367] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [44967] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8547), 1,
+      aux_sym_end_program_statement_token1,
     ACTIONS(8549), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1421), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8205), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526051,87 +525591,87 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45484] = 29,
-    ACTIONS(8001), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [45082] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8551), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8160), 3,
+    STATE(8234), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526139,7 +525679,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3944), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -526152,17 +525692,17 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45601] = 3,
+  [45199] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8327), 2,
+    ACTIONS(5760), 4,
       anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
       anon_sym_COLON_COLON,
-    ACTIONS(8331), 54,
+    ACTIONS(5768), 52,
       aux_sym_end_program_statement_token1,
-      aux_sym_assignment_token1,
-      aux_sym_operator_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -526214,27 +525754,115 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [45666] = 9,
-    ACTIONS(7721), 1,
+  [45264] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8553), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8276), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3859), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [45381] = 9,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7725), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7731), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
     STATE(3341), 1,
       sym_identifier,
-    STATE(3455), 1,
+    STATE(3456), 1,
       sym_sized_declarator,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7727), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    STATE(3744), 2,
+    STATE(7104), 2,
       sym__variable_declarator,
       sym_coarray_declarator,
-    ACTIONS(7723), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -526282,74 +525910,74 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [45743] = 29,
-    ACTIONS(8001), 1,
+  [45458] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8553), 1,
+    ACTIONS(8555), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7950), 3,
+    STATE(8277), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526357,7 +525985,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3862), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -526370,161 +525998,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [45860] = 28,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
+  [45575] = 29,
     ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
-      sym_preproc_directive,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(8441), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8443), 1,
-      aux_sym_end_interface_statement_token1,
-    STATE(1034), 1,
-      sym_end_interface_statement,
-    STATE(3346), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8361), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_interface,
-      sym_preproc_ifdef_in_interface,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_interface_repeat1,
-  [45975] = 29,
-    ACTIONS(8001), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8555), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8251), 3,
+    STATE(8277), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526532,7 +526073,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -526545,74 +526086,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [46092] = 29,
-    ACTIONS(8001), 1,
+  [45692] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(8555), 1,
+    ACTIONS(8557), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8251), 3,
+    STATE(8479), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526620,7 +526161,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3939), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -526633,74 +526174,73 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [46209] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [45809] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8557), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8547), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8549), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1415), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8255), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526708,87 +526248,86 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3926), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [46326] = 29,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [45924] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8559), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8525), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8527), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(2900), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8266), 3,
-      sym_preproc_else_in_internal_procedures,
-      sym_preproc_elif_in_internal_procedures,
-      sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526796,86 +526335,86 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
       sym_subroutine,
-      sym_module_procedure,
       sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [46443] = 28,
-    ACTIONS(8023), 1,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [46039] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8391), 1,
+    ACTIONS(8509), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8393), 1,
+    ACTIONS(8511), 1,
       aux_sym_end_interface_statement_token1,
-    STATE(1451), 1,
+    STATE(848), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -526883,7 +526422,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3897), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -526896,24 +526435,112 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [46558] = 9,
+  [46154] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8353), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8235), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [46271] = 9,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7484), 1,
-      sym__block_label,
-    STATE(7603), 1,
+    STATE(7349), 1,
       sym_identifier,
+    STATE(7375), 1,
+      sym__block_label,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8425), 2,
+    ACTIONS(8559), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
     ACTIONS(5495), 47,
@@ -526964,73 +526591,73 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [46635] = 28,
-    ACTIONS(8023), 1,
+  [46348] = 28,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8355), 1,
+    ACTIONS(8387), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8357), 1,
+    ACTIONS(8389), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8359), 1,
+    ACTIONS(8391), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8363), 1,
+    ACTIONS(8395), 1,
       sym_preproc_directive,
-    ACTIONS(8365), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8369), 1,
-      aux_sym_end_interface_statement_token1,
-    ACTIONS(8373), 1,
+    ACTIONS(8405), 1,
       aux_sym_import_statement_token1,
-    STATE(1463), 1,
+    ACTIONS(8415), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8417), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1584), 1,
       sym_end_interface_statement,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8361), 2,
+    ACTIONS(8393), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -527038,7 +526665,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -527051,74 +526678,74 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [46750] = 29,
-    ACTIONS(8001), 1,
+  [46463] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8561), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8589), 3,
+    STATE(8493), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -527126,7 +526753,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3867), 12,
+    STATE(4208), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -527139,27 +526766,167 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [46867] = 9,
-    ACTIONS(5493), 1,
+  [46580] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7224), 4,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_COLON_COLON,
+    ACTIONS(7226), 52,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_select_case_statement_token1,
-    STATE(7602), 1,
-      sym__block_label,
-    STATE(7603), 1,
-      sym_identifier,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [46645] = 28,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8387), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8389), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8391), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8395), 1,
+      sym_preproc_directive,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8405), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(8543), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8545), 1,
+      aux_sym_end_interface_statement_token1,
+    STATE(1099), 1,
+      sym_end_interface_statement,
+    STATE(3348), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6773), 1,
+      sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8403), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(5495), 47,
+    ACTIONS(8393), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3962), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_interface,
+      sym_preproc_ifdef_in_interface,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_interface_repeat1,
+  [46760] = 4,
+    ACTIONS(5762), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5760), 3,
+      anon_sym_COMMA,
+      anon_sym_STAR,
+      anon_sym_COLON_COLON,
+    ACTIONS(5768), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -527175,11 +526942,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -527193,6 +526963,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -527207,74 +526978,162 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [46944] = 29,
-    ACTIONS(8001), 1,
+  [46827] = 29,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8011), 1,
+    ACTIONS(8047), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(8013), 1,
+    ACTIONS(8049), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
+    ACTIONS(8077), 1,
       aux_sym_include_statement_token1,
     ACTIONS(8563), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
       sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8051), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8401), 3,
+      sym_preproc_else_in_internal_procedures,
+      sym_preproc_elif_in_internal_procedures,
+      sym_preproc_elifdef_in_internal_procedures,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [46944] = 29,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8047), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(8049), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8563), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(8015), 2,
+    ACTIONS(8051), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8044), 3,
+    STATE(8401), 3,
       sym_preproc_else_in_internal_procedures,
       sym_preproc_elif_in_internal_procedures,
       sym_preproc_elifdef_in_internal_procedures,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -527282,7 +527141,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3846), 12,
+    STATE(3851), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -527299,7 +527158,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6652), 11,
+    ACTIONS(6662), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -527311,7 +527170,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(6650), 44,
+    ACTIONS(6660), 44,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -527356,17 +527215,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [47125] = 4,
+  [47125] = 9,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
     ACTIONS(8565), 1,
-      anon_sym_LPAREN2,
+      aux_sym_included_items_token1,
+    STATE(6371), 1,
+      sym_use_alias,
+    STATE(8505), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8327), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(8331), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -527382,14 +527250,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -527403,7 +527268,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -527418,57 +527282,118 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47191] = 26,
-    ACTIONS(8001), 1,
+  [47201] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6650), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(6648), 44,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [47265] = 26,
+    ACTIONS(8037), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
+    ACTIONS(8039), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
+    ACTIONS(8041), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8017), 1,
+    ACTIONS(8053), 1,
       sym_preproc_directive,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
     ACTIONS(8569), 1,
       aux_sym_end_program_statement_token2,
     ACTIONS(8571), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
+    STATE(6577), 1,
       sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8009), 2,
+    ACTIONS(8045), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
@@ -527481,7 +527406,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -527489,7 +527414,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3966), 12,
+    STATE(3955), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -527502,152 +527427,18 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [47301] = 9,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7307), 1,
-      sym_identifier,
-    STATE(7444), 1,
-      sym__name,
-    STATE(8576), 1,
-      sym_module_name,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [47377] = 9,
-    ACTIONS(766), 1,
+  [47375] = 9,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
     ACTIONS(8573), 1,
-      anon_sym_COMMA,
-    STATE(7635), 1,
-      sym_loop_control_expression,
-    STATE(7861), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [47453] = 9,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
+      anon_sym_DOT_DOT_DOT,
     ACTIONS(8575), 1,
-      aux_sym_included_items_token1,
-    STATE(6364), 1,
-      sym_use_alias,
-    STATE(8042), 1,
+      anon_sym_RPAREN,
+    STATE(7228), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -527693,112 +527484,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
       aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [47529] = 26,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8571), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(8579), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8577), 6,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3948), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [47639] = 5,
-    ACTIONS(8581), 1,
-      anon_sym_COMMA,
-    ACTIONS(8584), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8588), 1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [47451] = 9,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8577), 1,
       anon_sym_COLON_COLON,
+    STATE(6125), 1,
+      sym_identifier,
+    STATE(7704), 1,
+      sym__type_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8586), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -527814,14 +527529,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -527835,7 +527547,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -527850,17 +527561,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47707] = 5,
-    ACTIONS(8590), 1,
+  [47527] = 5,
+    ACTIONS(8579), 1,
       anon_sym_COMMA,
-    ACTIONS(8595), 1,
+    ACTIONS(8584), 1,
       anon_sym_COLON_COLON,
-    STATE(3970), 1,
-      aux_sym_procedure_statement_repeat1,
+    STATE(3952), 1,
+      aux_sym_variable_declaration_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8593), 52,
+    ACTIONS(8582), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -527913,17 +527624,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47775] = 5,
-    ACTIONS(8597), 1,
+  [47595] = 5,
+    ACTIONS(8586), 1,
       anon_sym_COMMA,
-    ACTIONS(8602), 1,
+    ACTIONS(8591), 1,
       anon_sym_COLON_COLON,
-    STATE(3955), 1,
-      aux_sym_variable_declaration_repeat1,
+    STATE(3954), 1,
+      aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8600), 52,
+    ACTIONS(8589), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -527976,17 +527687,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47843] = 5,
-    ACTIONS(8604), 1,
-      anon_sym_COMMA,
-    ACTIONS(8609), 1,
+  [47663] = 5,
+    ACTIONS(8195), 1,
       anon_sym_COLON_COLON,
-    STATE(3971), 1,
+    ACTIONS(8593), 1,
+      anon_sym_COMMA,
+    STATE(3954), 1,
       aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8607), 52,
+    ACTIONS(8193), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -528039,18 +527750,102 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47911] = 9,
-    ACTIONS(766), 1,
+  [47731] = 26,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8571), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(8598), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8596), 6,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3960), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [47841] = 9,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7307), 1,
+    STATE(6732), 1,
       sym_identifier,
-    STATE(7440), 1,
+    STATE(7467), 1,
       sym_module_name,
-    STATE(7444), 1,
+    STATE(7474), 1,
       sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -528106,209 +527901,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [47987] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6668), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(6666), 44,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [48051] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6634), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(6632), 44,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [48115] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6688), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(6686), 44,
+  [47917] = 5,
+    ACTIONS(8600), 1,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+    ACTIONS(8603), 1,
       anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [48179] = 9,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8611), 1,
-      anon_sym_COMMA,
-    ACTIONS(8613), 1,
+    ACTIONS(8607), 1,
       anon_sym_COLON_COLON,
-    STATE(6444), 1,
-      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8605), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -528324,11 +527928,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -528342,6 +527949,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -528356,17 +527964,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48255] = 5,
-    ACTIONS(8615), 1,
-      anon_sym_COMMA,
-    ACTIONS(8620), 1,
-      anon_sym_COLON_COLON,
-    STATE(3973), 1,
-      aux_sym_procedure_statement_repeat1,
+  [47985] = 4,
+    ACTIONS(8609), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8618), 52,
+    ACTIONS(8339), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8343), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -528419,17 +528026,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48323] = 5,
-    ACTIONS(8622), 1,
+  [48051] = 5,
+    ACTIONS(8611), 1,
       anon_sym_COMMA,
-    ACTIONS(8627), 1,
+    ACTIONS(8616), 1,
       anon_sym_COLON_COLON,
-    STATE(3956), 1,
+    STATE(3953), 1,
       aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8625), 52,
+    ACTIONS(8614), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -528482,71 +528089,216 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48391] = 27,
-    ACTIONS(8629), 1,
+  [48119] = 26,
+    ACTIONS(8618), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8632), 1,
+    ACTIONS(8621), 1,
       aux_sym_preproc_def_token1,
+    ACTIONS(8624), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8632), 1,
+      sym_preproc_directive,
     ACTIONS(8635), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(8637), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8640), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8643), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8646), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8649), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8655), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8658), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8661), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8667), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8629), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8664), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8627), 6,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8652), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(3960), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [48229] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6692), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(6690), 44,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [48293] = 27,
+    ACTIONS(8670), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8673), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8676), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8641), 1,
+    ACTIONS(8682), 1,
       sym_preproc_directive,
-    ACTIONS(8644), 1,
+    ACTIONS(8685), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8646), 1,
+    ACTIONS(8687), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8649), 1,
+    ACTIONS(8690), 1,
       aux_sym_end_interface_statement_token1,
-    ACTIONS(8651), 1,
+    ACTIONS(8692), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8657), 1,
+    ACTIONS(8698), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8660), 1,
+    ACTIONS(8701), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8663), 1,
+    ACTIONS(8704), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8666), 1,
+    ACTIONS(8707), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(8672), 1,
+    ACTIONS(8713), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8675), 1,
+    ACTIONS(8716), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8678), 1,
+    ACTIONS(8719), 1,
       aux_sym_derived_type_token1,
-    STATE(3346), 1,
+    STATE(3348), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7123), 1,
-      sym_subroutine_statement,
-    STATE(7124), 1,
+    STATE(6773), 1,
       sym_function_statement,
+    STATE(6777), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8638), 2,
+    ACTIONS(8679), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8654), 5,
+    ACTIONS(8695), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    ACTIONS(8681), 5,
+    ACTIONS(8722), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8669), 7,
+    ACTIONS(8710), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -528554,7 +528306,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(3964), 12,
+    STATE(3962), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -528567,26 +528319,18 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_interface_repeat1,
-  [48503] = 9,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8575), 1,
-      aux_sym_included_items_token1,
-    STATE(6319), 1,
-      sym_use_alias,
-    STATE(8042), 1,
-      sym_identifier,
+  [48405] = 5,
+    ACTIONS(8725), 1,
+      anon_sym_COMMA,
+    ACTIONS(8730), 1,
+      anon_sym_COLON_COLON,
+    STATE(3954), 1,
+      aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8728), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -528602,11 +528346,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -528620,6 +528367,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -528634,103 +528382,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48579] = 26,
-    ACTIONS(8684), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8687), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8690), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8698), 1,
-      sym_preproc_directive,
-    ACTIONS(8701), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(8703), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8733), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8695), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8730), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8693), 6,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8718), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(3966), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [48689] = 9,
-    ACTIONS(766), 1,
+  [48473] = 9,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8575), 1,
-      aux_sym_included_items_token1,
-    STATE(6314), 1,
-      sym_use_alias,
-    STATE(8042), 1,
+    STATE(6732), 1,
       sym_identifier,
+    STATE(7474), 1,
+      sym__name,
+    STATE(8138), 1,
+      sym_module_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -528785,87 +528449,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48765] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6692), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(6690), 44,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [48829] = 9,
-    ACTIONS(766), 1,
+  [48549] = 9,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8736), 1,
-      anon_sym_DOT_DOT_DOT,
-    ACTIONS(8738), 1,
-      anon_sym_RPAREN,
-    STATE(6491), 1,
+    ACTIONS(8732), 1,
+      anon_sym_COMMA,
+    ACTIONS(8734), 1,
+      anon_sym_COLON_COLON,
+    STATE(6424), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -528913,18 +528516,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48905] = 5,
-    ACTIONS(8740), 1,
-      anon_sym_COMMA,
-    ACTIONS(8745), 1,
-      anon_sym_COLON_COLON,
-    STATE(3971), 1,
-      aux_sym_procedure_statement_repeat1,
+  [48625] = 9,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8565), 1,
+      aux_sym_included_items_token1,
+    STATE(6333), 1,
+      sym_use_alias,
+    STATE(8505), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8743), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -528940,14 +528551,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -528961,7 +528569,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -528976,17 +528583,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [48973] = 5,
-    ACTIONS(8158), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(8747), 1,
+  [48701] = 5,
+    ACTIONS(8736), 1,
       anon_sym_COMMA,
-    STATE(3971), 1,
+    ACTIONS(8741), 1,
+      anon_sym_COLON_COLON,
+    STATE(3968), 1,
       aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8156), 52,
+    ACTIONS(8739), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -529039,26 +528646,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49041] = 9,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8750), 1,
+  [48769] = 5,
+    ACTIONS(8743), 1,
+      anon_sym_COMMA,
+    ACTIONS(8748), 1,
       anon_sym_COLON_COLON,
-    STATE(6122), 1,
-      sym_identifier,
-    STATE(7441), 1,
-      sym__type_name,
+    STATE(3954), 1,
+      aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8746), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529074,11 +528673,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529092,6 +528694,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529106,17 +528709,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49117] = 5,
-    ACTIONS(8752), 1,
+  [48837] = 5,
+    ACTIONS(8750), 1,
       anon_sym_COMMA,
-    ACTIONS(8757), 1,
+    ACTIONS(8755), 1,
       anon_sym_COLON_COLON,
-    STATE(3971), 1,
+    STATE(3963), 1,
       aux_sym_procedure_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8755), 52,
+    ACTIONS(8753), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -529169,11 +528772,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49185] = 3,
+  [48905] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6672), 11,
+    ACTIONS(6668), 11,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -529185,7 +528788,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(6670), 44,
+    ACTIONS(6666), 44,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_preproc_if_token2,
@@ -529230,15 +528833,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [49249] = 3,
+  [48969] = 9,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8565), 1,
+      aux_sym_included_items_token1,
+    STATE(6328), 1,
+      sym_use_alias,
+    STATE(8505), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6690), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6692), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529254,14 +528868,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529275,7 +528886,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529290,15 +528900,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49312] = 3,
+  [49045] = 9,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    ACTIONS(8757), 1,
+      anon_sym_COMMA,
+    STATE(7537), 1,
+      sym_loop_control_expression,
+    STATE(7970), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6704), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(5700), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529314,14 +528935,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529335,7 +528953,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529350,17 +528967,139 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49375] = 8,
-    ACTIONS(766), 1,
+  [49121] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6642), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(6640), 44,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [49185] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6654), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(6652), 44,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [49249] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6760), 1,
-      sym_association,
-    STATE(8286), 1,
+    STATE(6732), 1,
       sym_identifier,
+    STATE(8182), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -529415,24 +529154,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49448] = 8,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5748), 1,
-      sym__name,
-    STATE(6116), 1,
-      sym_identifier,
+  [49322] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(7334), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7336), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529448,11 +529178,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529466,6 +529199,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529480,24 +529214,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49521] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6936), 1,
-      sym_triplet_spec,
-    STATE(8211), 1,
-      sym_identifier,
+  [49385] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(7272), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7275), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529513,11 +529238,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529531,6 +529259,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529545,24 +529274,135 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49594] = 8,
-    ACTIONS(7386), 1,
+  [49448] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6672), 7,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7390), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7394), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8759), 1,
+      anon_sym_DOT,
+    ACTIONS(6670), 47,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
-    STATE(5426), 1,
-      sym_identifier,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_statement_token1,
+      anon_sym_COLON,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [49511] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7392), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7388), 47,
+    ACTIONS(6680), 7,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+      anon_sym_DOT,
+    ACTIONS(6678), 47,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_statement_token1,
+      anon_sym_COLON,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [49574] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8759), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8761), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529578,11 +529418,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529596,6 +529439,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529610,24 +529454,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49667] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7307), 1,
-      sym_identifier,
-    STATE(8172), 1,
-      sym__name,
+  [49637] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(7252), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7254), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529643,11 +529478,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529661,6 +529499,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529675,16 +529514,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49740] = 8,
-    ACTIONS(766), 1,
+  [49700] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7696), 1,
-      sym_concurrent_control,
-    STATE(7887), 1,
+    STATE(7542), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -529740,14 +529579,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49813] = 3,
+  [49773] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7254), 2,
+    ACTIONS(7244), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7256), 52,
+    ACTIONS(7246), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -529800,14 +529639,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49876] = 3,
+  [49836] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7298), 2,
+    ACTIONS(7264), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7300), 52,
+    ACTIONS(7266), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -529860,75 +529699,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [49939] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6674), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6676), 52,
+  [49899] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [50002] = 3,
+    ACTIONS(8763), 1,
+      anon_sym_SLASH,
+    STATE(7289), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7318), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7320), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -529944,14 +529732,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -529965,7 +529750,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -529980,75 +529764,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50065] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6686), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6688), 52,
+  [49972] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [50128] = 3,
+    STATE(8111), 1,
+      sym_identifier,
+    STATE(8331), 1,
+      sym_keyword_argument,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7258), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7260), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530064,14 +529797,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -530085,7 +529815,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -530100,17 +529829,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50191] = 8,
-    ACTIONS(766), 1,
+  [50045] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6122), 1,
+    STATE(7663), 1,
+      sym_triplet_spec,
+    STATE(8187), 1,
       sym_identifier,
-    STATE(7517), 1,
-      sym__type_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -530165,75 +529894,84 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50264] = 3,
+  [50118] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7278), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7280), 52,
+    ACTIONS(6646), 7,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token4,
+      anon_sym_DOT,
+    ACTIONS(6644), 47,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_statement_token1,
+      anon_sym_COLON,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [50181] = 8,
+    ACTIONS(7378), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7382), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
+    ACTIONS(7386), 1,
       aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [50327] = 3,
+    ACTIONS(8765), 1,
+      anon_sym_LPAREN2,
+    STATE(5480), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7651), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7653), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(7384), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(7380), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530249,14 +529987,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -530270,7 +530005,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -530285,15 +530019,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50390] = 3,
+  [50254] = 8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7105), 1,
+      sym_triplet_spec,
+    STATE(8187), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7302), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7304), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530309,14 +530052,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -530330,7 +530070,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -530345,14 +530084,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50453] = 3,
+  [50327] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8761), 2,
+    ACTIONS(7302), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8763), 52,
+    ACTIONS(7304), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -530405,14 +530144,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50516] = 3,
+  [50390] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7270), 2,
+    ACTIONS(7298), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7272), 52,
+    ACTIONS(7300), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -530465,77 +530204,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50579] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6680), 7,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-      anon_sym_DOT,
-    ACTIONS(6678), 47,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_statement_token1,
-      anon_sym_COLON,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [50642] = 8,
-    ACTIONS(766), 1,
+  [50453] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6122), 1,
+    STATE(7696), 1,
+      sym_association,
+    STATE(8238), 1,
       sym_identifier,
-    STATE(7479), 1,
-      sym__type_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -530590,14 +530269,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50715] = 3,
+  [50526] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7322), 2,
+    ACTIONS(7294), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7324), 52,
+    ACTIONS(7296), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -530650,75 +530329,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50778] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6650), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6652), 52,
+  [50589] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [50841] = 3,
+    STATE(5751), 1,
+      sym__name,
+    STATE(6138), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7306), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7308), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530734,14 +530362,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -530755,7 +530380,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -530770,14 +530394,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50904] = 3,
+  [50662] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7274), 2,
+    ACTIONS(6648), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7276), 52,
+    ACTIONS(6650), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -530830,15 +530454,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [50967] = 3,
+  [50725] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6009), 1,
+      sym__name,
+    STATE(6138), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6666), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6668), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530854,14 +530487,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -530875,7 +530505,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -530890,24 +530519,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51030] = 8,
-    ACTIONS(7352), 1,
+  [50798] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(7356), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7360), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8765), 1,
-      anon_sym_LPAREN2,
-    STATE(5448), 1,
+    STATE(7347), 1,
+      sym_loop_control_expression,
+    STATE(7970), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7358), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(7354), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530955,24 +530584,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51103] = 8,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(7459), 1,
-      sym__name,
+  [50871] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(7314), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7316), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -530988,11 +530608,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -531006,6 +530629,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -531020,16 +530644,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51176] = 8,
-    ACTIONS(766), 1,
+  [50934] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7458), 1,
-      sym_loop_control_expression,
-    STATE(7861), 1,
+    STATE(6716), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -531085,74 +530709,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51249] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6682), 2,
+  [51007] = 4,
+    ACTIONS(8767), 1,
       anon_sym_COMMA,
+    ACTIONS(8772), 1,
       anon_sym_COLON_COLON,
-    ACTIONS(6684), 52,
-      aux_sym_end_program_statement_token1,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [51312] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7310), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7312), 52,
+    ACTIONS(8770), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -531205,24 +530770,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51375] = 8,
-    ACTIONS(5493), 1,
+  [51072] = 8,
+    ACTIONS(8774), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8778), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8782), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6116), 1,
-      sym_identifier,
-    STATE(7579), 1,
+    STATE(2849), 1,
       sym__name,
+    STATE(2899), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8780), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8776), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531270,14 +530835,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51448] = 3,
+  [51145] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7657), 2,
+    ACTIONS(8784), 2,
       anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7655), 52,
+      anon_sym_RPAREN,
+    ACTIONS(8786), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -531330,24 +530895,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51511] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(8189), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
-      sym_identifier,
+  [51208] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(7310), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7312), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531363,11 +530919,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -531381,6 +530940,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -531395,15 +530955,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51584] = 3,
+  [51271] = 8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6937), 1,
+      sym_triplet_spec,
+    STATE(8187), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7693), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7691), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531419,14 +530988,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -531440,7 +531006,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -531455,24 +531020,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51647] = 8,
-    ACTIONS(766), 1,
+  [51344] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7415), 1,
-      sym_parameter_assignment,
-    STATE(8542), 1,
+    STATE(6060), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531520,17 +531085,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51720] = 8,
+  [51417] = 8,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6001), 1,
-      sym__name,
-    STATE(6116), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7673), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -531585,14 +531150,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51793] = 3,
+  [51490] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8767), 2,
+    ACTIONS(7306), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8769), 52,
+    ACTIONS(7308), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -531645,14 +531210,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51856] = 3,
+  [51553] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7617), 2,
+    ACTIONS(7671), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7619), 52,
+    ACTIONS(7669), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -531705,24 +531270,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51919] = 8,
-    ACTIONS(5493), 1,
+  [51616] = 8,
+    ACTIONS(8788), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8792), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8796), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6072), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    STATE(1366), 1,
       sym_identifier,
+    STATE(1369), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8794), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8790), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531770,24 +531335,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [51992] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7275), 1,
-      sym_parameter_assignment,
-    STATE(8542), 1,
-      sym_identifier,
+  [51689] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8465), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8467), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531803,11 +531359,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -531821,6 +531380,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -531835,24 +531395,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52065] = 8,
-    ACTIONS(5493), 1,
+  [51752] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6690), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(6692), 52,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_select_case_statement_token1,
-    STATE(6069), 1,
-      sym__type_name,
-    STATE(7089), 1,
-      sym_identifier,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [51815] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(7681), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7679), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531868,11 +531479,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -531886,6 +531500,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -531900,24 +531515,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52138] = 8,
-    ACTIONS(5493), 1,
+  [51878] = 8,
+    ACTIONS(8774), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8778), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8782), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5751), 1,
+    STATE(2772), 1,
       sym__name,
-    STATE(6116), 1,
+    STATE(2899), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8780), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8776), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -531965,14 +531580,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52211] = 3,
+  [51951] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8771), 2,
+    ACTIONS(6704), 2,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8773), 52,
+      anon_sym_COLON_COLON,
+    ACTIONS(5698), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532025,15 +531640,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52274] = 3,
+  [52014] = 8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6803), 1,
+      sym_concurrent_control,
+    STATE(8625), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6678), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6680), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -532049,14 +531673,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -532070,7 +531691,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -532085,14 +531705,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52337] = 3,
+  [52087] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6632), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(6634), 52,
+    ACTIONS(8800), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(8798), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532145,17 +531765,82 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52400] = 8,
-    ACTIONS(766), 1,
+  [52150] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6010), 1,
+      sym__name,
+    STATE(6138), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [52223] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7307), 1,
+    STATE(7558), 1,
+      sym_concurrent_control,
+    STATE(8625), 1,
       sym_identifier,
-    STATE(8182), 1,
-      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -532210,24 +531895,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52473] = 8,
-    ACTIONS(766), 1,
+  [52296] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7665), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
+    STATE(6138), 1,
       sym_identifier,
+    STATE(7485), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -532275,16 +531960,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52546] = 8,
-    ACTIONS(766), 1,
+  [52369] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6898), 1,
-      sym_association,
-    STATE(8286), 1,
+    STATE(6864), 1,
+      sym_use_alias,
+    STATE(8505), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -532340,76 +532025,146 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52619] = 3,
+  [52442] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6040), 1,
+      sym__type_name,
+    STATE(7273), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6684), 7,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [52515] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-      anon_sym_DOT,
-    ACTIONS(6682), 47,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_statement_token1,
-      anon_sym_COLON,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6125), 1,
+      sym_identifier,
+    STATE(7397), 1,
+      sym__type_name,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [52682] = 8,
-    ACTIONS(766), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [52588] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7282), 1,
-      sym_use_alias,
-    STATE(8042), 1,
+    STATE(7069), 1,
+      sym_parameter_assignment,
+    STATE(8106), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -532465,14 +532220,79 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52755] = 3,
+  [52661] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6911), 1,
+      sym_identifier,
+    STATE(6912), 1,
+      sym_method_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7294), 2,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [52734] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6666), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7296), 52,
+    ACTIONS(6668), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532525,14 +532345,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52818] = 3,
+  [52797] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7679), 2,
+    ACTIONS(7599), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7677), 52,
+    ACTIONS(7601), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532585,16 +532405,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52881] = 8,
-    ACTIONS(766), 1,
+  [52860] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7706), 1,
+    STATE(8095), 1,
       sym_keyword_argument,
-    STATE(8613), 1,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -532650,14 +532470,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [52954] = 3,
+  [52933] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8775), 2,
+    ACTIONS(8802), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8777), 52,
+    ACTIONS(8804), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532710,17 +532530,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53017] = 8,
-    ACTIONS(766), 1,
+  [52996] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7730), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
+    STATE(8111), 1,
       sym_identifier,
+    STATE(8586), 1,
+      sym_keyword_argument,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -532775,15 +532595,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53090] = 4,
-    ACTIONS(8595), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(8779), 1,
-      anon_sym_COMMA,
+  [53069] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8593), 52,
+    ACTIONS(8808), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(8806), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -532836,16 +532655,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53155] = 8,
-    ACTIONS(766), 1,
+  [53132] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8782), 1,
-      anon_sym_RPAREN,
-    STATE(8138), 1,
+    STATE(7119), 1,
+      sym_association,
+    STATE(8238), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -532901,24 +532720,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53228] = 8,
-    ACTIONS(766), 1,
+  [53205] = 8,
+    ACTIONS(7352), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(7356), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(7360), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8784), 1,
-      anon_sym_DOT_DOT_DOT,
-    STATE(7445), 1,
+    ACTIONS(8810), 1,
+      anon_sym_LPAREN2,
+    STATE(5442), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(7358), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(7354), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -532966,24 +532785,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53301] = 8,
-    ACTIONS(5493), 1,
+  [53278] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6886), 1,
-      sym_method_name,
-    STATE(6891), 1,
+    STATE(8068), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533031,24 +532850,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53374] = 8,
-    ACTIONS(5493), 1,
+  [53351] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6076), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    STATE(6947), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533096,24 +532915,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53447] = 8,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6063), 1,
-      sym__type_name,
-    STATE(7089), 1,
-      sym_identifier,
+  [53424] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(7685), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7683), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533129,11 +532939,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533147,6 +532960,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533161,16 +532975,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53520] = 8,
-    ACTIONS(766), 1,
+  [53487] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7376), 1,
-      sym_association,
-    STATE(8286), 1,
+    ACTIONS(8812), 1,
+      anon_sym_RPAREN,
+    STATE(8070), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -533226,14 +533040,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53593] = 3,
+  [53560] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7326), 2,
+    ACTIONS(7661), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7328), 52,
+    ACTIONS(7659), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -533286,14 +533100,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53656] = 3,
+  [53623] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6670), 2,
+    ACTIONS(7661), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(6672), 52,
+    ACTIONS(7659), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -533346,24 +533160,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53719] = 8,
-    ACTIONS(5493), 1,
+  [53686] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6013), 1,
-      sym__name,
-    STATE(6116), 1,
+    STATE(7400), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533411,14 +533225,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53792] = 3,
+  [53759] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8453), 2,
+    ACTIONS(5513), 2,
       anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(8455), 52,
+      anon_sym_RPAREN,
+    ACTIONS(5511), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -533471,74 +533285,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53855] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6676), 7,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-      anon_sym_DOT,
-    ACTIONS(6674), 47,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_statement_token1,
-      anon_sym_COLON,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [53918] = 3,
+  [53822] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7314), 2,
+    ACTIONS(6644), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7316), 52,
+    ACTIONS(6646), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -533591,24 +533345,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [53981] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(7958), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
-      sym_identifier,
+  [53885] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(6652), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(6654), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533624,11 +533369,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533642,6 +533390,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533656,24 +533405,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54054] = 8,
-    ACTIONS(766), 1,
+  [53948] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7312), 1,
-      sym_concurrent_control,
-    STATE(7887), 1,
+    STATE(6061), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533721,24 +533470,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54127] = 8,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8786), 1,
-      anon_sym_SLASH,
-    STATE(6909), 1,
-      sym_identifier,
+  [54021] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8195), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8193), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533754,11 +533494,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533772,6 +533515,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533786,15 +533530,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54200] = 3,
+  [54084] = 8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(7605), 1,
+      sym_parameter_assignment,
+    STATE(8106), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8790), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(8788), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533810,14 +533563,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533831,7 +533581,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533846,24 +533595,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54263] = 8,
-    ACTIONS(8792), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8796), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8800), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(2850), 1,
-      sym__name,
-    STATE(2859), 1,
-      sym_identifier,
+  [54157] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8798), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8794), 47,
+    ACTIONS(8814), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8816), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533879,11 +533619,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533897,6 +533640,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533911,15 +533655,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54336] = 3,
+  [54220] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(5747), 1,
+      sym__name,
+    STATE(6138), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7683), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7681), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -533935,14 +533688,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -533956,7 +533706,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -533971,16 +533720,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54399] = 8,
-    ACTIONS(766), 1,
+  [54293] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7448), 1,
-      sym_triplet_spec,
-    STATE(8211), 1,
+    ACTIONS(8818), 1,
+      anon_sym_DOT_DOT_DOT,
+    STATE(7651), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -534036,14 +533785,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54472] = 3,
+  [54366] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7661), 2,
+    ACTIONS(8820), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7659), 52,
+    ACTIONS(8822), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534096,14 +533845,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54535] = 3,
+  [54429] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7661), 2,
+    ACTIONS(6640), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7659), 52,
+    ACTIONS(6642), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534156,16 +533905,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54598] = 8,
+  [54492] = 8,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6055), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    ACTIONS(8824), 1,
+      anon_sym_SLASH,
+    STATE(6355), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -534221,14 +533970,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54671] = 3,
+  [54565] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8158), 2,
+    ACTIONS(8826), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8156), 52,
+    ACTIONS(8828), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534281,14 +534030,80 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54734] = 3,
+  [54628] = 8,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6732), 1,
+      sym_identifier,
+    STATE(7972), 1,
+      sym__name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8804), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(8802), 52,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [54701] = 4,
+    ACTIONS(8616), 1,
+      anon_sym_COLON_COLON,
+    ACTIONS(8830), 1,
+      anon_sym_COMMA,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8614), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534341,24 +534156,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54797] = 8,
-    ACTIONS(8806), 1,
+  [54766] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8810), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8814), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(1344), 1,
-      sym__name,
-    STATE(1537), 1,
+    STATE(6125), 1,
       sym_identifier,
+    STATE(7500), 1,
+      sym__type_name,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8812), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8808), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534406,14 +534221,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54870] = 3,
+  [54839] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5513), 2,
+    ACTIONS(6678), 2,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(5511), 52,
+      anon_sym_COLON_COLON,
+    ACTIONS(6680), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534466,24 +534281,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [54933] = 8,
-    ACTIONS(766), 1,
+  [54902] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6660), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(6662), 52,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
       aux_sym_select_case_statement_token1,
-    STATE(6617), 1,
-      sym_triplet_spec,
-    STATE(8211), 1,
-      sym_identifier,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [54965] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8339), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(8343), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534499,11 +534365,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -534517,6 +534386,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -534531,15 +534401,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55006] = 4,
-    ACTIONS(8816), 1,
-      anon_sym_COMMA,
-    ACTIONS(8821), 1,
-      anon_sym_COLON_COLON,
+  [55028] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8819), 52,
+    ACTIONS(7611), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7613), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -534592,16 +534461,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55071] = 8,
-    ACTIONS(766), 1,
+  [55091] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(8823), 1,
-      anon_sym_RPAREN,
-    STATE(7097), 1,
+    STATE(7121), 1,
+      sym_association,
+    STATE(8238), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -534657,15 +534526,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55144] = 3,
+  [55164] = 8,
+    ACTIONS(5493), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5497), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(5501), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6050), 1,
+      sym__type_name,
+    STATE(7273), 1,
+      sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7240), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-    ACTIONS(7243), 52,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(5499), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534681,14 +534559,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -534702,7 +534577,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
-      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -534717,24 +534591,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55207] = 8,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8825), 1,
-      anon_sym_SLASH,
-    STATE(6450), 1,
-      sym_identifier,
+  [55237] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(7693), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7691), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534750,11 +534615,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -534768,6 +534636,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -534782,16 +534651,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55280] = 8,
-    ACTIONS(766), 1,
+  [55300] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6702), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
+    ACTIONS(8833), 1,
+      anon_sym_RPAREN,
+    STATE(7257), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -534847,24 +534716,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55353] = 8,
-    ACTIONS(8792), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8796), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8800), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(2859), 1,
-      sym_identifier,
-    STATE(2900), 1,
-      sym__name,
+  [55373] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8798), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8794), 47,
+    ACTIONS(6670), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(6672), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534880,11 +534740,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -534898,6 +534761,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -534912,24 +534776,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55426] = 8,
-    ACTIONS(766), 1,
+  [55436] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7666), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
+    STATE(6037), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -534977,24 +534841,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55499] = 8,
-    ACTIONS(766), 1,
+  [55509] = 8,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6621), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
+    STATE(6059), 1,
+      sym__type_name,
+    STATE(7273), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535042,14 +534906,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55572] = 3,
+  [55582] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7290), 2,
+    ACTIONS(7342), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(7292), 52,
+    ACTIONS(7344), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -535102,24 +534966,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55635] = 8,
-    ACTIONS(5493), 1,
+  [55645] = 8,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6067), 1,
-      sym__type_name,
-    STATE(7089), 1,
+    STATE(6933), 1,
+      sym_keyword_argument,
+    STATE(8111), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535167,24 +535031,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [55708] = 8,
-    ACTIONS(766), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6699), 1,
-      sym_keyword_argument,
-    STATE(8613), 1,
-      sym_identifier,
+  [55718] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(7240), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+    ACTIONS(7242), 52,
+      aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535200,11 +535055,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_variable_attributes_token5,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token4,
       aux_sym__standalone_type_qualifier_token1,
       aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token5,
       aux_sym__standalone_type_qualifier_token10,
       aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym__standalone_type_qualifier_token14,
       aux_sym__standalone_type_qualifier_token15,
       aux_sym__standalone_type_qualifier_token16,
@@ -535218,6 +535076,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__inline_if_statement_token1,
       aux_sym_end_if_statement_token1,
       aux_sym_elseif_clause_token2,
+      aux_sym_select_case_statement_token1,
       aux_sym_block_construct_token1,
       aux_sym_format_statement_token1,
       aux_sym_inquire_statement_token1,
@@ -535236,10 +535095,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8827), 2,
+    ACTIONS(7236), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8829), 52,
+    ACTIONS(7238), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -535296,10 +535155,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8327), 2,
+    ACTIONS(7290), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8331), 52,
+    ACTIONS(7292), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -535356,10 +535215,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8831), 2,
+    ACTIONS(7338), 2,
       anon_sym_COMMA,
       anon_sym_COLON_COLON,
-    ACTIONS(8833), 52,
+    ACTIONS(7340), 52,
       aux_sym_end_program_statement_token1,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
@@ -535419,7 +535278,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(243), 1,
+    STATE(6420), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -535476,21 +535335,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56040] = 7,
-    ACTIONS(8845), 1,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(83), 1,
+    STATE(7300), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535539,21 +535398,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56110] = 7,
-    ACTIONS(6976), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4905), 1,
+    STATE(8684), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6978), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535602,21 +535461,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56180] = 7,
-    ACTIONS(8835), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(242), 1,
+    STATE(8620), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535665,21 +535524,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56250] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7048), 1,
+    STATE(282), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535728,21 +535587,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56320] = 7,
-    ACTIONS(8845), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(72), 1,
+    STATE(6449), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535791,21 +535650,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56390] = 7,
-    ACTIONS(8855), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8859), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8863), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(26), 1,
+    STATE(6376), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8861), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8857), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535854,21 +535713,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56460] = 7,
-    ACTIONS(8845), 1,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(80), 1,
+    STATE(82), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -535917,13 +535776,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56530] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8634), 1,
+    STATE(6700), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -535980,21 +535839,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56600] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6555), 1,
+    STATE(6347), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536043,21 +535902,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56670] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8170), 1,
+    STATE(288), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536106,13 +535965,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56740] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3719), 1,
+    STATE(4894), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -536169,76 +536028,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [56810] = 7,
-    ACTIONS(8865), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8869), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8873), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(5830), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8871), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8867), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [56880] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6666), 1,
+    STATE(7813), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -536294,85 +536090,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [56950] = 7,
-    ACTIONS(5493), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6313), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5499), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [57020] = 7,
-    ACTIONS(766), 1,
+  [56880] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7895), 1,
+    STATE(6325), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536420,22 +536153,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57090] = 7,
-    ACTIONS(766), 1,
+  [56950] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8503), 1,
+    STATE(6342), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536483,22 +536216,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57160] = 7,
-    ACTIONS(5493), 1,
+  [57020] = 7,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6440), 1,
+    STATE(6), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536546,22 +536279,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57230] = 7,
-    ACTIONS(766), 1,
+  [57090] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7233), 1,
+    STATE(294), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536609,22 +536342,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57300] = 7,
-    ACTIONS(8835), 1,
+  [57160] = 7,
+    ACTIONS(8875), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8879), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8883), 1,
       aux_sym_select_case_statement_token1,
-    STATE(288), 1,
+    STATE(5851), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8881), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8877), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536672,22 +536405,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57370] = 7,
-    ACTIONS(766), 1,
+  [57230] = 7,
+    ACTIONS(8885), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8889), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8893), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7564), 1,
+    STATE(908), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8891), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8887), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536735,22 +536468,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57440] = 7,
-    ACTIONS(5493), 1,
+  [57300] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6345), 1,
+    STATE(285), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536798,22 +536531,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57510] = 7,
-    ACTIONS(766), 1,
+  [57370] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6575), 1,
+    STATE(6408), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536861,22 +536594,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57580] = 7,
-    ACTIONS(766), 1,
+  [57440] = 7,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6638), 1,
+    STATE(4752), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -536924,14 +536657,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57650] = 7,
-    ACTIONS(766), 1,
+  [57510] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8344), 1,
+    STATE(8026), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -536987,22 +536720,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57720] = 7,
-    ACTIONS(8865), 1,
+  [57580] = 7,
+    ACTIONS(8885), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8869), 1,
+    ACTIONS(8889), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8873), 1,
+    ACTIONS(8893), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5866), 1,
+    STATE(907), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8871), 2,
+    ACTIONS(8891), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8867), 47,
+    ACTIONS(8887), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537050,81 +536783,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57790] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4293), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4295), 42,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [57852] = 7,
-    ACTIONS(8875), 1,
+  [57650] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6373), 1,
+    STATE(281), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537172,22 +536846,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57922] = 7,
-    ACTIONS(766), 1,
+  [57720] = 7,
+    ACTIONS(8875), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8879), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8883), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6686), 1,
+    STATE(5929), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8881), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8877), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537235,22 +536909,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [57992] = 7,
-    ACTIONS(766), 1,
+  [57790] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7762), 1,
+    STATE(6411), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537298,258 +536972,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58062] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4287), 42,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [58124] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4289), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4291), 42,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [58186] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4287), 42,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [58248] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4297), 11,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(4299), 42,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [58310] = 7,
-    ACTIONS(8855), 1,
+  [57860] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8859), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8863), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(2), 1,
+    STATE(6433), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8861), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8857), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537597,22 +537035,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58380] = 7,
-    ACTIONS(8885), 1,
+  [57930] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8889), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8893), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(908), 1,
+    STATE(6320), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8891), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8887), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537660,14 +537098,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58450] = 7,
+  [58000] = 7,
     ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6308), 1,
+    STATE(6404), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -537723,22 +537161,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58520] = 7,
-    ACTIONS(766), 1,
+  [58070] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4253), 1,
+    STATE(56), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537786,14 +537224,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58590] = 7,
-    ACTIONS(766), 1,
+  [58140] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4652), 1,
+    STATE(6967), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -537849,22 +537287,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58660] = 7,
-    ACTIONS(8835), 1,
+  [58210] = 7,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(241), 1,
+    STATE(7), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537912,22 +537350,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58730] = 7,
-    ACTIONS(5493), 1,
+  [58280] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4713), 1,
+    STATE(6390), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -537975,22 +537413,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58800] = 7,
-    ACTIONS(8855), 1,
+  [58350] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8859), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8863), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6), 1,
+    STATE(7389), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8861), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8857), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538038,22 +537476,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58870] = 7,
-    ACTIONS(6976), 1,
+  [58420] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4884), 1,
+    STATE(6388), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6978), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538101,14 +537539,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [58940] = 7,
-    ACTIONS(766), 1,
+  [58490] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4385), 1,
+    STATE(4250), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -538164,22 +537602,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59010] = 7,
-    ACTIONS(6230), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(6240), 1,
-      aux_sym_select_case_statement_token1,
+  [58560] = 7,
     ACTIONS(8895), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    STATE(4400), 1,
+    ACTIONS(8903), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(3697), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6238), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6232), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538227,22 +537665,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59080] = 7,
-    ACTIONS(766), 1,
+  [58630] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4874), 1,
+    STATE(290), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538290,22 +537728,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59150] = 7,
-    ACTIONS(6230), 1,
+  [58700] = 7,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6240), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8895), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    STATE(4385), 1,
+    ACTIONS(6966), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4813), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6238), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6232), 47,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538353,22 +537791,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59220] = 7,
-    ACTIONS(766), 1,
+  [58770] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4661), 1,
+    STATE(299), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538416,22 +537854,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59290] = 7,
-    ACTIONS(6230), 1,
+  [58840] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6240), 1,
-      aux_sym_select_case_statement_token1,
-    ACTIONS(8895), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    STATE(4402), 1,
+    ACTIONS(8843), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(6319), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6238), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6232), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538479,22 +537917,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59360] = 7,
-    ACTIONS(8835), 1,
+  [58910] = 7,
+    ACTIONS(6196), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(6206), 1,
       aux_sym_select_case_statement_token1,
-    STATE(284), 1,
+    ACTIONS(8905), 1,
+      aux_sym__intrinsic_type_token4,
+    STATE(4383), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(6204), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(6198), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538542,22 +537980,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59430] = 7,
-    ACTIONS(766), 1,
+  [58980] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8106), 1,
+    STATE(289), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538605,22 +538043,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59500] = 7,
-    ACTIONS(6976), 1,
+  [59050] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(6980), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(6984), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3719), 1,
+    STATE(3738), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6982), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(6978), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538668,22 +538106,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59570] = 7,
-    ACTIONS(766), 1,
+  [59120] = 7,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4692), 1,
+    STATE(5), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538731,22 +538169,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59640] = 7,
-    ACTIONS(5493), 1,
+  [59190] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7006), 1,
+    STATE(3787), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538794,22 +538232,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59710] = 7,
-    ACTIONS(5493), 1,
+  [59260] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5497), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(5501), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7283), 1,
+    STATE(7225), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5499), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(5495), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538857,22 +538295,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59780] = 7,
-    ACTIONS(8845), 1,
+  [59330] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(56), 1,
+    STATE(6382), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538920,22 +538358,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59850] = 7,
-    ACTIONS(8897), 1,
+  [59400] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3657), 1,
+    STATE(293), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -538983,22 +538421,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59920] = 7,
-    ACTIONS(766), 1,
+  [59470] = 7,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5519), 1,
+    STATE(2), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539046,22 +538484,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [59990] = 7,
-    ACTIONS(766), 1,
+  [59540] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8420), 1,
+    STATE(6401), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539109,22 +538547,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60060] = 7,
-    ACTIONS(8875), 1,
+  [59610] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6346), 1,
+    STATE(6350), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539172,22 +538610,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60130] = 7,
-    ACTIONS(8855), 1,
+  [59680] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8859), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8863), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3), 1,
+    STATE(292), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8861), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8857), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539235,14 +538673,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60200] = 7,
-    ACTIONS(766), 1,
+  [59750] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7661), 1,
+    STATE(5504), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -539298,22 +538736,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60270] = 7,
-    ACTIONS(8885), 1,
+  [59820] = 7,
+    ACTIONS(6196), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8889), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8893), 1,
+    ACTIONS(6206), 1,
       aux_sym_select_case_statement_token1,
-    STATE(907), 1,
+    ACTIONS(8905), 1,
+      aux_sym__intrinsic_type_token4,
+    STATE(4428), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8891), 2,
+    ACTIONS(6204), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8887), 47,
+    ACTIONS(6198), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539361,14 +538799,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60340] = 7,
+  [59890] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(292), 1,
+    STATE(6356), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -539424,22 +538862,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60410] = 7,
-    ACTIONS(766), 1,
+  [59960] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8392), 1,
+    STATE(6312), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539487,22 +538925,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60480] = 7,
-    ACTIONS(8845), 1,
+  [60030] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(58), 1,
+    STATE(6358), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539550,22 +538988,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60550] = 7,
-    ACTIONS(8845), 1,
+  [60100] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(59), 1,
+    STATE(3791), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539613,22 +539051,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60620] = 7,
-    ACTIONS(8897), 1,
+  [60170] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3681), 1,
+    STATE(3747), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539676,22 +539114,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60690] = 7,
-    ACTIONS(8845), 1,
+  [60240] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(81), 1,
+    STATE(72), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539739,22 +539177,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60760] = 7,
-    ACTIONS(766), 1,
+  [60310] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7729), 1,
+    STATE(58), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539802,22 +539240,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60830] = 7,
-    ACTIONS(8845), 1,
+  [60380] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(73), 1,
+    STATE(8020), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -539865,265 +539303,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [60900] = 25,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8577), 5,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4146), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [61006] = 25,
-    ACTIONS(8001), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8003), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8005), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8017), 1,
-      sym_preproc_directive,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8041), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8009), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8567), 5,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [61112] = 25,
-    ACTIONS(8684), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8687), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8690), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8698), 1,
-      sym_preproc_directive,
-    ACTIONS(8703), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8907), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7178), 1,
-      sym_module_procedure_statement,
-    STATE(7231), 1,
-      sym_subroutine_statement,
-    STATE(7232), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8695), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8693), 5,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    ACTIONS(8730), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4147), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [61218] = 7,
-    ACTIONS(8875), 1,
+  [60450] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6349), 1,
+    STATE(6421), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540171,22 +539366,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61288] = 7,
-    ACTIONS(8855), 1,
+  [60520] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8859), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8863), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4), 1,
+    STATE(6340), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8861), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8857), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540234,22 +539429,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61358] = 7,
-    ACTIONS(766), 1,
+  [60590] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7624), 1,
+    STATE(295), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540297,22 +539492,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61428] = 7,
-    ACTIONS(8835), 1,
+  [60660] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(282), 1,
+    STATE(6546), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540360,14 +539555,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61498] = 7,
-    ACTIONS(766), 1,
+  [60730] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(8620), 1,
+    STATE(5523), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -540423,14 +539618,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61568] = 7,
+  [60800] = 7,
     ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(57), 1,
+    STATE(242), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -540486,22 +539681,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61638] = 7,
-    ACTIONS(8897), 1,
+  [60870] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3805), 1,
+    STATE(3783), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540549,22 +539744,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61708] = 7,
-    ACTIONS(8845), 1,
+  [60940] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(82), 1,
+    STATE(6335), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540612,14 +539807,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61778] = 7,
+  [61010] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(244), 1,
+    STATE(6359), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -540675,22 +539870,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61848] = 7,
-    ACTIONS(8875), 1,
+  [61080] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6310), 1,
+    STATE(8348), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540738,14 +539933,140 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61918] = 7,
+  [61150] = 7,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(4256), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(1418), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(97), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [61220] = 7,
+    ACTIONS(8845), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8849), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8853), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(243), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8851), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8847), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [61290] = 7,
     ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5), 1,
+    STATE(84), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -540801,22 +540122,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [61988] = 7,
-    ACTIONS(766), 1,
+  [61360] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7581), 1,
+    STATE(6318), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540864,14 +540185,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62058] = 7,
+  [61430] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(286), 1,
+    STATE(6346), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -540927,22 +540248,85 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62128] = 7,
-    ACTIONS(8897), 1,
+  [61500] = 7,
+    ACTIONS(6196), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
-      aux_sym__intrinsic_type_token4,
+    ACTIONS(6206), 1,
+      aux_sym_select_case_statement_token1,
     ACTIONS(8905), 1,
+      aux_sym__intrinsic_type_token4,
+    STATE(4391), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6204), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(6198), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [61570] = 7,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3716), 1,
+    STATE(6993), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -540990,22 +540374,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62198] = 7,
-    ACTIONS(8845), 1,
+  [61640] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8849), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8853), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(84), 1,
+    STATE(59), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8851), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8847), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541053,22 +540437,85 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62268] = 7,
-    ACTIONS(8875), 1,
+  [61710] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6379), 1,
+    STATE(73), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8857), 47,
+      aux_sym_defined_io_procedure_token1,
+      aux_sym_defined_io_procedure_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token5,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+      aux_sym_stop_statement_token1,
+      aux_sym_stop_statement_token2,
+      aux_sym_keyword_statement_token2,
+      aux_sym_keyword_statement_token3,
+      aux_sym_data_statement_token1,
+      aux_sym__inline_if_statement_token1,
+      aux_sym_end_if_statement_token1,
+      aux_sym_elseif_clause_token2,
+      aux_sym_block_construct_token1,
+      aux_sym_format_statement_token1,
+      aux_sym_inquire_statement_token1,
+      aux_sym_entry_statement_token1,
+      aux_sym_null_literal_token1,
+      aux_sym_coarray_statement_token1,
+      aux_sym_coarray_statement_token2,
+      aux_sym_coarray_statement_token6,
+      aux_sym_coarray_statement_token8,
+      aux_sym_coarray_statement_token11,
+      aux_sym_coarray_statement_token12,
+      aux_sym_coarray_team_statement_token1,
+      aux_sym_coarray_critical_statement_token1,
+      aux_sym_identifier_token1,
+  [61780] = 7,
+    ACTIONS(8845), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8849), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8853), 1,
+      aux_sym_select_case_statement_token1,
+    STATE(300), 1,
+      sym_identifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8851), 2,
+      aux_sym__standalone_type_qualifier_token4,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541116,14 +540563,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62338] = 7,
+  [61850] = 7,
     ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(7), 1,
+    STATE(80), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -541179,22 +540626,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62408] = 7,
-    ACTIONS(8835), 1,
+  [61920] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(291), 1,
+    STATE(7428), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541242,22 +540689,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62478] = 7,
-    ACTIONS(8897), 1,
+  [61990] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3754), 1,
+    STATE(6425), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541305,22 +540752,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62548] = 7,
-    ACTIONS(8885), 1,
+  [62060] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8889), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8893), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(909), 1,
+    STATE(8459), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8891), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8887), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541368,22 +540815,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62618] = 7,
-    ACTIONS(8875), 1,
+  [62130] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6331), 1,
+    STATE(6399), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541431,22 +540878,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62688] = 7,
-    ACTIONS(766), 1,
+  [62200] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(5511), 1,
+    STATE(244), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541494,22 +540941,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62758] = 7,
-    ACTIONS(8835), 1,
+  [62270] = 7,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(281), 1,
+    STATE(6373), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541557,22 +541004,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62828] = 7,
-    ACTIONS(8897), 1,
+  [62340] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4345), 42,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [62402] = 7,
+    ACTIONS(768), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(1416), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3776), 1,
+    STATE(3734), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541620,22 +541126,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62898] = 7,
-    ACTIONS(8875), 1,
+  [62472] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6334), 1,
+    STATE(6351), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541683,14 +541189,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [62968] = 7,
+  [62542] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(287), 1,
+    STATE(6369), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -541746,22 +541252,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63038] = 7,
-    ACTIONS(8897), 1,
+  [62612] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3800), 1,
+    STATE(6393), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541809,22 +541315,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63108] = 7,
-    ACTIONS(8875), 1,
+  [62682] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6417), 1,
+    STATE(8094), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541872,22 +541378,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63178] = 7,
-    ACTIONS(8835), 1,
+  [62752] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(289), 1,
+    STATE(296), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541935,22 +541441,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63248] = 7,
-    ACTIONS(8897), 1,
+  [62822] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3637), 1,
+    STATE(83), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -541998,22 +541504,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63318] = 7,
-    ACTIONS(8875), 1,
+  [62892] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6405), 1,
+    STATE(7684), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542061,22 +541567,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63388] = 7,
-    ACTIONS(8835), 1,
+  [62962] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(283), 1,
+    STATE(286), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542124,22 +541630,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63458] = 7,
-    ACTIONS(8875), 1,
+  [63032] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6395), 1,
+    STATE(8079), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542187,14 +541693,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63528] = 7,
+  [63102] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(295), 1,
+    STATE(6406), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -542250,22 +541756,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63598] = 7,
-    ACTIONS(8875), 1,
+  [63172] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6333), 1,
+    STATE(6330), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542313,22 +541819,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63668] = 7,
-    ACTIONS(8835), 1,
+  [63242] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(285), 1,
+    STATE(4383), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542376,22 +541882,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63738] = 7,
-    ACTIONS(8875), 1,
+  [63312] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6397), 1,
+    STATE(6435), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542439,14 +541945,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63808] = 7,
+  [63382] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(290), 1,
+    STATE(6445), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -542502,22 +542008,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63878] = 7,
-    ACTIONS(8875), 1,
+  [63452] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6437), 1,
+    STATE(6385), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542565,22 +542071,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [63948] = 7,
-    ACTIONS(8835), 1,
+  [63522] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(293), 1,
+    STATE(283), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542628,22 +542134,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64018] = 7,
-    ACTIONS(8875), 1,
+  [63592] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4347), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4349), 42,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [63654] = 7,
+    ACTIONS(8835), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8839), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6359), 1,
+    STATE(6395), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542691,22 +542256,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64088] = 7,
-    ACTIONS(8835), 1,
+  [63724] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(294), 1,
+    STATE(8076), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542754,22 +542319,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64158] = 7,
-    ACTIONS(8875), 1,
+  [63794] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6361), 1,
+    STATE(6956), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542817,22 +542382,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64228] = 7,
-    ACTIONS(8835), 1,
+  [63864] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(296), 1,
+    STATE(3805), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542880,22 +542445,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64298] = 7,
-    ACTIONS(8875), 1,
+  [63934] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6338), 1,
+    STATE(57), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -542943,14 +542508,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64368] = 7,
+  [64004] = 7,
     ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(297), 1,
+    STATE(6364), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -543006,22 +542571,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64438] = 7,
-    ACTIONS(8875), 1,
+  [64074] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6436), 1,
+    STATE(6316), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543069,22 +542634,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64508] = 7,
-    ACTIONS(8835), 1,
+  [64144] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(298), 1,
+    STATE(7587), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543132,22 +542697,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64578] = 7,
-    ACTIONS(8875), 1,
+  [64214] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6426), 1,
+    STATE(6380), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543195,22 +542760,162 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64648] = 7,
-    ACTIONS(8835), 1,
+  [64284] = 25,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8567), 5,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4198), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [64390] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4321), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4323), 42,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [64452] = 7,
+    ACTIONS(8865), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8869), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(299), 1,
+    STATE(26), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543258,22 +542963,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64718] = 7,
-    ACTIONS(8875), 1,
+  [64522] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6427), 1,
+    STATE(7764), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543321,22 +543026,162 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64788] = 7,
-    ACTIONS(8835), 1,
+  [64592] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8839), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8843), 1,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4345), 42,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [64654] = 25,
+    ACTIONS(8037), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8039), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8041), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8053), 1,
+      sym_preproc_directive,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8077), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8045), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8596), 5,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [64760] = 7,
+    ACTIONS(8845), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8849), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(300), 1,
+    STATE(284), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8841), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8837), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543384,22 +543229,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64858] = 7,
-    ACTIONS(8875), 1,
+  [64830] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6439), 1,
+    STATE(298), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543447,22 +543292,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64928] = 7,
-    ACTIONS(8875), 1,
+  [64900] = 7,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6445), 1,
+    STATE(4796), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543510,22 +543355,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [64998] = 7,
-    ACTIONS(8875), 1,
+  [64970] = 7,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6447), 1,
+    STATE(3), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543573,22 +543418,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65068] = 7,
-    ACTIONS(8875), 1,
+  [65040] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6322), 1,
+    STATE(6430), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543636,22 +543481,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65138] = 7,
-    ACTIONS(8875), 1,
+  [65110] = 7,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6326), 1,
+    STATE(6426), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543699,22 +543544,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65208] = 7,
-    ACTIONS(8875), 1,
+  [65180] = 7,
+    ACTIONS(8855), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8859), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8863), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6327), 1,
+    STATE(81), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8861), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8857), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543762,22 +543607,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65278] = 7,
-    ACTIONS(8875), 1,
+  [65250] = 7,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6328), 1,
+    STATE(6863), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543825,22 +543670,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65348] = 7,
-    ACTIONS(8875), 1,
+  [65320] = 7,
+    ACTIONS(8885), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8889), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8893), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6332), 1,
+    STATE(909), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8891), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8887), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543888,22 +543733,103 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65418] = 7,
-    ACTIONS(8875), 1,
+  [65390] = 25,
+    ACTIONS(8618), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8621), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8624), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8632), 1,
+      sym_preproc_directive,
+    ACTIONS(8637), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8640), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8643), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8646), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8649), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8655), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8658), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8661), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8907), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6577), 1,
+      sym_function_statement,
+    STATE(6581), 1,
+      sym_subroutine_statement,
+    STATE(6686), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8629), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8627), 5,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    ACTIONS(8664), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8652), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4208), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [65496] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6335), 1,
+    STATE(4662), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -543951,22 +543877,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65488] = 7,
-    ACTIONS(8875), 1,
+  [65566] = 7,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6336), 1,
+    STATE(6374), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544014,22 +543940,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65558] = 7,
-    ACTIONS(8875), 1,
+  [65636] = 7,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6337), 1,
+    STATE(3815), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544077,22 +544003,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65628] = 7,
-    ACTIONS(8875), 1,
+  [65706] = 7,
+    ACTIONS(5493), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(5497), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(5501), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6342), 1,
+    STATE(6440), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(5499), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(5495), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544140,22 +544066,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65698] = 7,
-    ACTIONS(8875), 1,
+  [65776] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6352), 1,
+    STATE(297), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544203,22 +544129,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65768] = 7,
-    ACTIONS(8875), 1,
+  [65846] = 7,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6353), 1,
+    STATE(4647), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544266,22 +544192,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65838] = 7,
-    ACTIONS(8875), 1,
+  [65916] = 7,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6356), 1,
+    STATE(241), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544329,148 +544255,81 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [65908] = 7,
-    ACTIONS(8875), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6360), 1,
-      sym_identifier,
+  [65986] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
-  [65978] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(4389), 11,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
-      aux_sym_select_case_statement_token1,
-    STATE(6368), 1,
-      sym_identifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8881), 2,
-      aux_sym__standalone_type_qualifier_token4,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
-      aux_sym_defined_io_procedure_token1,
-      aux_sym_defined_io_procedure_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token5,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(4391), 42,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-      aux_sym_stop_statement_token1,
-      aux_sym_stop_statement_token2,
-      aux_sym_keyword_statement_token2,
-      aux_sym_keyword_statement_token3,
-      aux_sym_data_statement_token1,
-      aux_sym__inline_if_statement_token1,
-      aux_sym_end_if_statement_token1,
-      aux_sym_elseif_clause_token2,
-      aux_sym_block_construct_token1,
-      aux_sym_format_statement_token1,
-      aux_sym_inquire_statement_token1,
-      aux_sym_entry_statement_token1,
-      aux_sym_null_literal_token1,
-      aux_sym_coarray_statement_token1,
-      aux_sym_coarray_statement_token2,
-      aux_sym_coarray_statement_token6,
-      aux_sym_coarray_statement_token8,
-      aux_sym_coarray_statement_token11,
-      aux_sym_coarray_statement_token12,
-      aux_sym_coarray_team_statement_token1,
-      aux_sym_coarray_critical_statement_token1,
-      aux_sym_identifier_token1,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
   [66048] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6369), 1,
+    STATE(6308), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544519,21 +544378,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66118] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6371), 1,
+    STATE(6397), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544582,21 +544441,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66188] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6374), 1,
+    STATE(6412), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544645,21 +544504,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66258] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6382), 1,
+    STATE(6533), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544708,21 +544567,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66328] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6386), 1,
+    STATE(291), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544771,21 +544630,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66398] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6394), 1,
+    STATE(6417), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544834,21 +544693,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66468] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8865), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8869), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8873), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6396), 1,
+    STATE(4), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8871), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8867), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544897,21 +544756,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66538] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(6958), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(6962), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(6966), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6400), 1,
+    STATE(3734), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(6964), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(6960), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -544960,21 +544819,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66608] = 7,
-    ACTIONS(766), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(1416), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4669), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(4257), 1,
+    STATE(6362), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(1418), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(97), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -545023,21 +544882,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66678] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8845), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8849), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8853), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6403), 1,
+    STATE(287), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8851), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8847), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -545086,21 +544945,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66748] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8835), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8839), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8843), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6407), 1,
+    STATE(6363), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8841), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8837), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -545149,21 +545008,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66818] = 7,
-    ACTIONS(8875), 1,
+    ACTIONS(8895), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8879), 1,
+    ACTIONS(8899), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8883), 1,
+    ACTIONS(8903), 1,
       aux_sym_select_case_statement_token1,
-    STATE(6408), 1,
+    STATE(3664), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8881), 2,
+    ACTIONS(8901), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8877), 47,
+    ACTIONS(8897), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -545212,21 +545071,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
   [66888] = 7,
-    ACTIONS(8897), 1,
+    ACTIONS(768), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8901), 1,
+    ACTIONS(1416), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8905), 1,
+    ACTIONS(4669), 1,
       aux_sym_select_case_statement_token1,
-    STATE(3783), 1,
+    STATE(4692), 1,
       sym_identifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8903), 2,
+    ACTIONS(1418), 2,
       aux_sym__standalone_type_qualifier_token4,
       aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(8899), 47,
+    ACTIONS(97), 47,
       aux_sym_defined_io_procedure_token1,
       aux_sym_defined_io_procedure_token2,
       aux_sym_procedure_attributes_token3,
@@ -545274,22 +545133,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
       aux_sym_identifier_token1,
-  [66958] = 16,
+  [66958] = 15,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
     ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545303,7 +545160,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
     ACTIONS(8912), 5,
@@ -545323,7 +545180,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8910), 21,
+    ACTIONS(8910), 22,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545341,24 +545198,35 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67045] = 15,
+  [67043] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(8928), 1,
+    ACTIONS(8926), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    ACTIONS(8934), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(8936), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(8942), 1,
+      anon_sym_QMARK,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545372,15 +545240,17 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4259), 2,
+    ACTIONS(8938), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8912), 5,
+    ACTIONS(8932), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-      anon_sym_DOT,
     ACTIONS(8922), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
@@ -545392,7 +545262,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8910), 22,
+    ACTIONS(8930), 16,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545409,30 +545279,94 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
+  [67140] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8920), 1,
+      anon_sym_PERCENT,
+    ACTIONS(8926), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(8928), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(8934), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(8936), 1,
       aux_sym_logical_expression_token2,
+    STATE(2987), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8916), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(8918), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(8924), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(8938), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+    STATE(4265), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8023), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(8922), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+    ACTIONS(8021), 18,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67130] = 17,
+  [67233] = 15,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
     ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(8932), 1,
-      aux_sym_logical_expression_token1,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545446,10 +545380,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8912), 5,
+    ACTIONS(8946), 5,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
@@ -545466,7 +545400,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8910), 20,
+    ACTIONS(8944), 22,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545483,24 +545417,90 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67219] = 13,
+  [67318] = 9,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(8928), 1,
+    STATE(2987), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4265), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 9,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(8948), 36,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [67391] = 13,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8920), 1,
+      anon_sym_PERCENT,
+    ACTIONS(8926), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545511,10 +545511,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8918), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 7,
+    ACTIONS(8954), 7,
       aux_sym_preproc_elif_token1,
       anon_sym_GT,
       anon_sym_LT,
@@ -545522,7 +545522,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8934), 32,
+    ACTIONS(8952), 32,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545555,24 +545555,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67300] = 9,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
+  [67472] = 8,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 9,
+    ACTIONS(8958), 9,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -545582,12 +545580,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8938), 36,
+    ACTIONS(8956), 37,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_EQ_EQ,
@@ -545619,24 +545618,24 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67373] = 18,
+  [67543] = 17,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
     ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(8932), 1,
+    ACTIONS(8934), 1,
       aux_sym_logical_expression_token1,
-    STATE(3077), 1,
+    ACTIONS(8936), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545650,13 +545649,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(8942), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(8912), 5,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
@@ -545673,7 +545669,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8938), 18,
+    ACTIONS(8910), 20,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545690,9 +545686,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67464] = 19,
+  [67632] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(8914), 1,
@@ -545700,18 +545698,22 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
     ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(8932), 1,
+    ACTIONS(8934), 1,
       aux_sym_logical_expression_token1,
-    STATE(3077), 1,
+    ACTIONS(8936), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(8942), 1,
+      anon_sym_QMARK,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545725,13 +545727,13 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(8942), 2,
+    ACTIONS(8938), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8247), 4,
+    ACTIONS(8962), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
@@ -545747,7 +545749,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8245), 18,
+    ACTIONS(8960), 16,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545764,32 +545766,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [67557] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
+  [67729] = 16,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
     ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(8932), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(8950), 1,
-      anon_sym_QMARK,
-    STATE(3077), 1,
+    ACTIONS(8936), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545803,17 +545795,15 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(8942), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8946), 4,
+    ACTIONS(8912), 5,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
+      anon_sym_DOT,
     ACTIONS(8922), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
@@ -545825,7 +545815,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8944), 16,
+    ACTIONS(8910), 21,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545842,38 +545832,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [67654] = 8,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [67816] = 11,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    STATE(3077), 1,
+    ACTIONS(8928), 1,
+      anon_sym_STAR_STAR,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4259), 2,
+    ACTIONS(8918), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 9,
+    ACTIONS(8950), 7,
       aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8952), 37,
+    ACTIONS(8948), 35,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_EQ_EQ,
@@ -545902,23 +545901,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67725] = 15,
+  [67893] = 18,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(8928), 1,
+    ACTIONS(8926), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    ACTIONS(8934), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(8936), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -545932,10 +545934,13 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(8924), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4259), 2,
+    ACTIONS(8938), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8958), 5,
+    ACTIONS(8950), 5,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
@@ -545952,7 +545957,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8956), 22,
+    ACTIONS(8948), 18,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -545969,43 +545974,38 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67810] = 11,
+  [67984] = 10,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(8930), 1,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8918), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4259), 2,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 7,
+    ACTIONS(8950), 9,
       aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8938), 35,
+    ACTIONS(8948), 35,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -546041,43 +546041,47 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67887] = 10,
+  [68059] = 13,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(8930), 1,
+    ACTIONS(8926), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(8928), 1,
       anon_sym_STAR_STAR,
-    STATE(3077), 1,
+    STATE(2987), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4259), 2,
+    ACTIONS(8916), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(8918), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4265), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 9,
+    ACTIONS(8966), 7,
       aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8938), 35,
+    ACTIONS(8964), 32,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -546103,54 +546107,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [67962] = 13,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(8928), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
-      anon_sym_STAR_STAR,
-    STATE(3077), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
+  [68140] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8916), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(8918), 2,
+    ACTIONS(6680), 10,
+      aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4259), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 7,
-      aux_sym_preproc_elif_token1,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(8960), 32,
+    ACTIONS(6678), 41,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
       aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546161,6 +546150,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -546172,89 +546162,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [68043] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(8926), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(8928), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(8930), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(8932), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(8948), 1,
       anon_sym_LBRACK,
-    ACTIONS(8950), 1,
       anon_sym_QMARK,
-    STATE(3077), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
+  [68200] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8916), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(8918), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(8924), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(8942), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4259), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8966), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(8922), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-    ACTIONS(8964), 16,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [68140] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6680), 10,
+    ACTIONS(6646), 10,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -546265,7 +546181,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(6678), 41,
+    ACTIONS(6644), 41,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -546307,66 +546223,66 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [68200] = 26,
-    ACTIONS(8701), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(8703), 1,
+  [68260] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
+    ACTIONS(8598), 1,
+      aux_sym_end_program_statement_token2,
     ACTIONS(8968), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8971), 1,
+    ACTIONS(8970), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8974), 1,
+    ACTIONS(8972), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8980), 1,
+    ACTIONS(8976), 1,
       sym_preproc_directive,
-    ACTIONS(8983), 1,
+    ACTIONS(8978), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8693), 2,
+    ACTIONS(8596), 2,
       aux_sym_preproc_if_token2,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8977), 2,
+    ACTIONS(8974), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546374,7 +546290,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4245), 12,
+    STATE(4248), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546387,66 +546303,146 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68306] = 26,
-    ACTIONS(8021), 1,
+  [68366] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8579), 1,
+    ACTIONS(8569), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(8986), 1,
+    ACTIONS(8968), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
+    ACTIONS(8970), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
+    ACTIONS(8972), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
+    ACTIONS(8976), 1,
       sym_preproc_directive,
-    ACTIONS(8996), 1,
+    ACTIONS(8978), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
+    STATE(6538), 1,
+      sym_function_statement,
+    STATE(6539), 1,
       sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8567), 2,
+      aux_sym_preproc_if_token2,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8974), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4246), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [68472] = 26,
+    ACTIONS(8635), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(8637), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8640), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8643), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8646), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8649), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8655), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8658), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8661), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8980), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8983), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8986), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8992), 1,
+      sym_preproc_directive,
+    ACTIONS(8995), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8577), 2,
+    ACTIONS(8627), 2,
       aux_sym_preproc_if_token2,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8992), 2,
+    ACTIONS(8989), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546454,7 +546450,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4249), 12,
+    STATE(4248), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546467,11 +546463,11 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68412] = 3,
+  [68578] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6684), 10,
+    ACTIONS(6672), 10,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -546482,7 +546478,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(6682), 41,
+    ACTIONS(6670), 41,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -546524,37 +546520,119 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [68472] = 3,
+  [68638] = 26,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8998), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(9000), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(9002), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(9006), 1,
+      sym_preproc_comment,
+    ACTIONS(9008), 1,
+      aux_sym_import_statement_token1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6597), 1,
+      sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9004), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    STATE(8223), 3,
+      sym_preproc_else_in_interface,
+      sym_preproc_elif_in_interface,
+      sym_preproc_elifdef_in_interface,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(4283), 6,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_interface_repeat1,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [68743] = 6,
+    ACTIONS(9014), 1,
+      anon_sym_LPAREN2,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6676), 10,
+    STATE(4251), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9012), 9,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(6674), 41,
+    ACTIONS(9010), 37,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
       aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546565,7 +546643,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -546581,66 +546658,65 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [68532] = 26,
-    ACTIONS(8021), 1,
+  [68808] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8569), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(8986), 1,
+    ACTIONS(8596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8598), 1,
+      aux_sym_end_function_statement_token1,
+    ACTIONS(9017), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
+    ACTIONS(9019), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
+    ACTIONS(9021), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
+    ACTIONS(9025), 1,
       sym_preproc_directive,
-    ACTIONS(8996), 1,
+    ACTIONS(9027), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6549), 1,
       sym_function_statement,
+    STATE(6551), 1,
+      sym_subroutine_statement,
+    STATE(6627), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8567), 2,
-      aux_sym_preproc_if_token2,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8992), 2,
+    ACTIONS(9023), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546648,7 +546724,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4245), 12,
+    STATE(4266), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546661,65 +546737,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68638] = 26,
-    ACTIONS(8021), 1,
+  [68913] = 26,
+    ACTIONS(8627), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8635), 1,
+      aux_sym_end_submodule_statement_token1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8567), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8569), 1,
-      aux_sym_end_subroutine_statement_token1,
-    ACTIONS(8998), 1,
+    ACTIONS(9029), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9000), 1,
+    ACTIONS(9032), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9002), 1,
+    ACTIONS(9035), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9006), 1,
+    ACTIONS(9041), 1,
       sym_preproc_directive,
-    ACTIONS(9008), 1,
+    ACTIONS(9044), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7192), 1,
-      sym_module_procedure_statement,
-    STATE(7239), 1,
-      sym_subroutine_statement,
-    STATE(7240), 1,
+    STATE(6612), 1,
       sym_function_statement,
+    STATE(6622), 1,
+      sym_subroutine_statement,
+    STATE(6711), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9004), 2,
+    ACTIONS(9038), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546727,7 +546803,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4258), 12,
+    STATE(4253), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546740,65 +546816,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68743] = 26,
-    ACTIONS(8021), 1,
+  [69018] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
+    ACTIONS(8596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
+    ACTIONS(8598), 1,
       aux_sym_end_submodule_statement_token1,
-    ACTIONS(9010), 1,
+    ACTIONS(9047), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9012), 1,
+    ACTIONS(9049), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9014), 1,
+    ACTIONS(9051), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9018), 1,
+    ACTIONS(9055), 1,
       sym_preproc_directive,
-    ACTIONS(9020), 1,
+    ACTIONS(9057), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7164), 1,
-      sym_module_procedure_statement,
-    STATE(7209), 1,
-      sym_subroutine_statement,
-    STATE(7210), 1,
+    STATE(6612), 1,
       sym_function_statement,
+    STATE(6622), 1,
+      sym_subroutine_statement,
+    STATE(6711), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9016), 2,
+    ACTIONS(9053), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546806,7 +546882,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4252), 12,
+    STATE(4253), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546819,65 +546895,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68848] = 26,
-    ACTIONS(8021), 1,
+  [69123] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
     ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8569), 1,
       aux_sym_end_submodule_statement_token1,
-    ACTIONS(9010), 1,
+    ACTIONS(9047), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9012), 1,
+    ACTIONS(9049), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9014), 1,
+    ACTIONS(9051), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9018), 1,
+    ACTIONS(9055), 1,
       sym_preproc_directive,
-    ACTIONS(9020), 1,
+    ACTIONS(9057), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7164), 1,
-      sym_module_procedure_statement,
-    STATE(7209), 1,
-      sym_subroutine_statement,
-    STATE(7210), 1,
+    STATE(6612), 1,
       sym_function_statement,
+    STATE(6622), 1,
+      sym_subroutine_statement,
+    STATE(6711), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9016), 2,
+    ACTIONS(9053), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546885,7 +546961,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4255), 12,
+    STATE(4254), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -546898,78 +546974,78 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [68953] = 26,
-    ACTIONS(8023), 1,
+  [69228] = 26,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9022), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9030), 1,
-      sym_preproc_comment,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    STATE(3339), 1,
+    ACTIONS(9059), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(9061), 1,
+      sym_preproc_comment,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8625), 3,
+    STATE(8351), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4292), 6,
+    STATE(4275), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -546977,144 +547053,65 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [69058] = 26,
-    ACTIONS(8693), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    ACTIONS(8703), 1,
+  [69333] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(9034), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(9037), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(9040), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(9046), 1,
-      sym_preproc_directive,
-    ACTIONS(9049), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7228), 1,
-      sym_module_procedure_statement,
-    STATE(7264), 1,
-      sym_subroutine_statement,
-    STATE(7265), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9043), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8730), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4254), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69163] = 26,
-    ACTIONS(8693), 1,
+    ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
-      aux_sym_end_submodule_statement_token1,
-    ACTIONS(8703), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9052), 1,
+    ACTIONS(8569), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    ACTIONS(9063), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9055), 1,
+    ACTIONS(9065), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9058), 1,
+    ACTIONS(9067), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9064), 1,
+    ACTIONS(9071), 1,
       sym_preproc_directive,
-    ACTIONS(9067), 1,
+    ACTIONS(9073), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7164), 1,
-      sym_module_procedure_statement,
-    STATE(7209), 1,
-      sym_subroutine_statement,
-    STATE(7210), 1,
+    STATE(6526), 1,
       sym_function_statement,
+    STATE(6532), 1,
+      sym_subroutine_statement,
+    STATE(6588), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9061), 2,
+    ACTIONS(9069), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547122,7 +547119,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4255), 12,
+    STATE(4269), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547135,157 +547132,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69268] = 26,
-    ACTIONS(8021), 1,
+  [69438] = 26,
+    ACTIONS(8627), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8635), 1,
+      aux_sym_end_module_statement_token1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8986), 1,
+    ACTIONS(9075), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
+    ACTIONS(9078), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
+    ACTIONS(9081), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
+    ACTIONS(9087), 1,
       sym_preproc_directive,
-    ACTIONS(9070), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(9072), 1,
-      sym_preproc_comment,
-    ACTIONS(9074), 1,
+    ACTIONS(9090), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8992), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4281), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69373] = 26,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(9076), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(9078), 1,
-      sym_preproc_comment,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6649), 1,
       sym_function_statement,
+    STATE(6650), 1,
+      sym_subroutine_statement,
+    STATE(6750), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(9084), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7930), 3,
-      sym_preproc_else_in_interface,
-      sym_preproc_elif_in_interface,
-      sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(4280), 6,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547293,65 +547198,78 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [69478] = 26,
-    ACTIONS(8693), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
-      aux_sym_end_subroutine_statement_token1,
-    ACTIONS(8703), 1,
+    STATE(4258), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [69543] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(9080), 1,
+    ACTIONS(8596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8598), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(9093), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9083), 1,
+    ACTIONS(9095), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9086), 1,
+    ACTIONS(9097), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9092), 1,
+    ACTIONS(9101), 1,
       sym_preproc_directive,
-    ACTIONS(9095), 1,
+    ACTIONS(9103), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7192), 1,
-      sym_module_procedure_statement,
-    STATE(7239), 1,
-      sym_subroutine_statement,
-    STATE(7240), 1,
+    STATE(6695), 1,
       sym_function_statement,
+    STATE(6696), 1,
+      sym_subroutine_statement,
+    STATE(7180), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9089), 2,
+    ACTIONS(9099), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547359,7 +547277,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4258), 12,
+    STATE(4261), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547372,123 +547290,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69583] = 5,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4262), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9100), 9,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(9098), 38,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [69646] = 26,
-    ACTIONS(8021), 1,
+  [69648] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
+    ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
-      aux_sym_end_module_statement_token1,
-    ACTIONS(9102), 1,
+    ACTIONS(8569), 1,
+      aux_sym_end_function_statement_token1,
+    ACTIONS(9017), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9104), 1,
+    ACTIONS(9019), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9106), 1,
+    ACTIONS(9021), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9110), 1,
+    ACTIONS(9025), 1,
       sym_preproc_directive,
-    ACTIONS(9112), 1,
+    ACTIONS(9027), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7137), 1,
-      sym_module_procedure_statement,
-    STATE(7197), 1,
-      sym_subroutine_statement,
-    STATE(7198), 1,
+    STATE(6549), 1,
       sym_function_statement,
+    STATE(6551), 1,
+      sym_subroutine_statement,
+    STATE(6627), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9108), 2,
+    ACTIONS(9023), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547496,7 +547356,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4263), 12,
+    STATE(4252), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547509,65 +547369,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69751] = 26,
-    ACTIONS(8693), 1,
+  [69753] = 26,
+    ACTIONS(8627), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
+    ACTIONS(8635), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(8703), 1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(9114), 1,
+    ACTIONS(9105), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9117), 1,
+    ACTIONS(9108), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9120), 1,
+    ACTIONS(9111), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9126), 1,
+    ACTIONS(9117), 1,
       sym_preproc_directive,
-    ACTIONS(9129), 1,
+    ACTIONS(9120), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7174), 1,
-      sym_subroutine_statement,
-    STATE(7175), 1,
+    STATE(6695), 1,
       sym_function_statement,
-    STATE(7181), 1,
+    STATE(6696), 1,
+      sym_subroutine_statement,
+    STATE(7180), 1,
       sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9123), 2,
+    ACTIONS(9114), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547588,124 +547448,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [69856] = 6,
-    ACTIONS(9136), 1,
-      anon_sym_LPAREN2,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4262), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9134), 9,
-      aux_sym_preproc_elif_token1,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-      anon_sym_DOT,
-    ACTIONS(9132), 37,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [69921] = 26,
-    ACTIONS(8021), 1,
+  [69858] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8567), 1,
+    ACTIONS(8596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8569), 1,
+    ACTIONS(8598), 1,
       aux_sym_end_module_statement_token1,
-    ACTIONS(9102), 1,
+    ACTIONS(9123), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9104), 1,
+    ACTIONS(9125), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9106), 1,
+    ACTIONS(9127), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9110), 1,
+    ACTIONS(9131), 1,
       sym_preproc_directive,
-    ACTIONS(9112), 1,
+    ACTIONS(9133), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7137), 1,
-      sym_module_procedure_statement,
-    STATE(7197), 1,
-      sym_subroutine_statement,
-    STATE(7198), 1,
+    STATE(6649), 1,
       sym_function_statement,
+    STATE(6650), 1,
+      sym_subroutine_statement,
+    STATE(6750), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9108), 2,
+    ACTIONS(9129), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547713,7 +547514,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4266), 12,
+    STATE(4258), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547726,65 +547527,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [70026] = 26,
-    ACTIONS(8021), 1,
+  [69963] = 26,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
-      aux_sym_end_function_statement_token1,
-    ACTIONS(9139), 1,
+    ACTIONS(8968), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9141), 1,
+    ACTIONS(8970), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9143), 1,
+    ACTIONS(8972), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9147), 1,
+    ACTIONS(8976), 1,
       sym_preproc_directive,
-    ACTIONS(9149), 1,
+    ACTIONS(9135), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(9137), 1,
+      sym_preproc_comment,
+    ACTIONS(9139), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(6451), 1,
+    STATE(6538), 1,
+      sym_function_statement,
+    STATE(6539), 1,
       sym_subroutine_statement,
-    STATE(7207), 1,
+    STATE(6601), 1,
       sym_module_procedure_statement,
-    STATE(7247), 1,
-      sym_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9145), 2,
+    ACTIONS(8974), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547792,7 +547593,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4267), 12,
+    STATE(4290), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547805,65 +547606,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [70131] = 26,
-    ACTIONS(8693), 1,
+  [70068] = 26,
+    ACTIONS(8627), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
-      aux_sym_end_function_statement_token1,
-    ACTIONS(8703), 1,
+    ACTIONS(8635), 1,
+      aux_sym_end_subroutine_statement_token1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(9151), 1,
+    ACTIONS(9141), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9154), 1,
+    ACTIONS(9144), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9157), 1,
+    ACTIONS(9147), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9163), 1,
+    ACTIONS(9153), 1,
       sym_preproc_directive,
-    ACTIONS(9166), 1,
+    ACTIONS(9156), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(6451), 1,
+    STATE(6568), 1,
+      sym_function_statement,
+    STATE(6571), 1,
       sym_subroutine_statement,
-    STATE(7207), 1,
+    STATE(6667), 1,
       sym_module_procedure_statement,
-    STATE(7247), 1,
-      sym_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9160), 2,
+    ACTIONS(9150), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547871,7 +547672,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4265), 12,
+    STATE(4264), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -547884,65 +547685,123 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [70173] = 5,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4251), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9161), 9,
+      aux_sym_preproc_elif_token1,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+      anon_sym_DOT,
+    ACTIONS(9159), 38,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
   [70236] = 26,
-    ACTIONS(8693), 1,
+    ACTIONS(8627), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8701), 1,
-      aux_sym_end_module_statement_token1,
-    ACTIONS(8703), 1,
+    ACTIONS(8635), 1,
+      aux_sym_end_function_statement_token1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(9169), 1,
+    ACTIONS(9163), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9172), 1,
+    ACTIONS(9166), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9175), 1,
+    ACTIONS(9169), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9181), 1,
+    ACTIONS(9175), 1,
       sym_preproc_directive,
-    ACTIONS(9184), 1,
+    ACTIONS(9178), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7137), 1,
-      sym_module_procedure_statement,
-    STATE(7197), 1,
-      sym_subroutine_statement,
-    STATE(7198), 1,
+    STATE(6549), 1,
       sym_function_statement,
+    STATE(6551), 1,
+      sym_subroutine_statement,
+    STATE(6627), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9178), 2,
+    ACTIONS(9172), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -547964,64 +547823,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70341] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
     ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8569), 1,
-      aux_sym_end_function_statement_token1,
-    ACTIONS(9139), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(9093), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9141), 1,
+    ACTIONS(9095), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9143), 1,
+    ACTIONS(9097), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9147), 1,
+    ACTIONS(9101), 1,
       sym_preproc_directive,
-    ACTIONS(9149), 1,
+    ACTIONS(9103), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(6451), 1,
+    STATE(6695), 1,
+      sym_function_statement,
+    STATE(6696), 1,
       sym_subroutine_statement,
-    STATE(7207), 1,
+    STATE(7180), 1,
       sym_module_procedure_statement,
-    STATE(7247), 1,
-      sym_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9145), 2,
+    ACTIONS(9099), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548029,7 +547888,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4265), 12,
+    STATE(4259), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548043,64 +547902,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70446] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
+    ACTIONS(8596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
+    ACTIONS(8598), 1,
       aux_sym_end_subroutine_statement_token1,
-    ACTIONS(8998), 1,
+    ACTIONS(9181), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9000), 1,
+    ACTIONS(9183), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9002), 1,
+    ACTIONS(9185), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9006), 1,
+    ACTIONS(9189), 1,
       sym_preproc_directive,
-    ACTIONS(9008), 1,
+    ACTIONS(9191), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7192), 1,
-      sym_module_procedure_statement,
-    STATE(7239), 1,
-      sym_subroutine_statement,
-    STATE(7240), 1,
+    STATE(6568), 1,
       sym_function_statement,
+    STATE(6571), 1,
+      sym_subroutine_statement,
+    STATE(6667), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9004), 2,
+    ACTIONS(9187), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548108,7 +547967,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4250), 12,
+    STATE(4264), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548122,64 +547981,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70551] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8567), 1,
+    ACTIONS(8596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8569), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(9187), 1,
+    ACTIONS(8598), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    ACTIONS(9063), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9189), 1,
+    ACTIONS(9065), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9191), 1,
+    ACTIONS(9067), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9195), 1,
+    ACTIONS(9071), 1,
       sym_preproc_directive,
-    ACTIONS(9197), 1,
+    ACTIONS(9073), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7174), 1,
-      sym_subroutine_statement,
-    STATE(7175), 1,
+    STATE(6526), 1,
       sym_function_statement,
-    STATE(7181), 1,
+    STATE(6532), 1,
+      sym_subroutine_statement,
+    STATE(6588), 1,
       sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9193), 2,
+    ACTIONS(9069), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548187,7 +548046,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4261), 12,
+    STATE(4271), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548201,64 +548060,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70656] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
+    ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    ACTIONS(9199), 1,
+    ACTIONS(8569), 1,
+      aux_sym_end_module_statement_token1,
+    ACTIONS(9123), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9201), 1,
+    ACTIONS(9125), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9203), 1,
+    ACTIONS(9127), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9207), 1,
+    ACTIONS(9131), 1,
       sym_preproc_directive,
-    ACTIONS(9209), 1,
+    ACTIONS(9133), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7228), 1,
-      sym_module_procedure_statement,
-    STATE(7264), 1,
-      sym_subroutine_statement,
-    STATE(7265), 1,
+    STATE(6649), 1,
       sym_function_statement,
+    STATE(6650), 1,
+      sym_subroutine_statement,
+    STATE(6750), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9205), 2,
+    ACTIONS(9129), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548266,7 +548125,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4272), 12,
+    STATE(4262), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548280,64 +548139,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70761] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8627), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8635), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8579), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(9187), 1,
+    ACTIONS(9193), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9189), 1,
+    ACTIONS(9196), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9191), 1,
+    ACTIONS(9199), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9195), 1,
+    ACTIONS(9205), 1,
       sym_preproc_directive,
-    ACTIONS(9197), 1,
+    ACTIONS(9208), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7174), 1,
-      sym_subroutine_statement,
-    STATE(7175), 1,
+    STATE(6526), 1,
       sym_function_statement,
-    STATE(7181), 1,
+    STATE(6532), 1,
+      sym_subroutine_statement,
+    STATE(6588), 1,
       sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9193), 2,
+    ACTIONS(9202), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548345,7 +548204,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4269), 12,
+    STATE(4271), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548359,64 +548218,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70866] = 26,
-    ACTIONS(8021), 1,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
     ACTIONS(8567), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(8569), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    ACTIONS(9199), 1,
+      aux_sym_end_subroutine_statement_token1,
+    ACTIONS(9181), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(9201), 1,
+    ACTIONS(9183), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(9203), 1,
+    ACTIONS(9185), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(9207), 1,
+    ACTIONS(9189), 1,
       sym_preproc_directive,
-    ACTIONS(9209), 1,
+    ACTIONS(9191), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7228), 1,
-      sym_module_procedure_statement,
-    STATE(7264), 1,
-      sym_subroutine_statement,
-    STATE(7265), 1,
+    STATE(6568), 1,
       sym_function_statement,
+    STATE(6571), 1,
+      sym_subroutine_statement,
+    STATE(6667), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9205), 2,
+    ACTIONS(9187), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548424,7 +548283,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4254), 12,
+    STATE(4268), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -548438,75 +548297,75 @@ static const uint16_t ts_small_parse_table[] = {
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
   [70971] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9211), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7874), 3,
+    STATE(8388), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4274), 6,
+    STATE(4279), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548515,75 +548374,62 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71073] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(9213), 1,
+    ACTIONS(8596), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8968), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8970), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8972), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8976), 1,
+      sym_preproc_directive,
+    ACTIONS(9139), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8974), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7888), 3,
-      sym_preproc_else_in_interface,
-      sym_preproc_elif_in_interface,
-      sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548591,76 +548437,89 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
+    STATE(4282), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
   [71175] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9215), 1,
+    ACTIONS(9213), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8047), 3,
+    STATE(7746), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548669,75 +548528,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71277] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9215), 1,
+    ACTIONS(9213), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8047), 3,
+    STATE(7746), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4279), 6,
+    STATE(4291), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548746,75 +548605,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71379] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9217), 1,
+    ACTIONS(9215), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7739), 3,
+    STATE(7800), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4275), 6,
+    STATE(4278), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548823,62 +548682,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71481] = 25,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8986), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
-      sym_preproc_directive,
-    ACTIONS(9074), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(9219), 1,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(9000), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(9002), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(9008), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(9217), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8992), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(9004), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8217), 3,
+      sym_preproc_else_in_interface,
+      sym_preproc_elif_in_interface,
+      sym_preproc_elifdef_in_interface,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(4306), 6,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_interface_repeat1,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548886,89 +548758,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4288), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
   [71583] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9221), 1,
+    ACTIONS(9219), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7763), 3,
+    STATE(8465), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -548977,75 +548836,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71685] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9211), 1,
+    ACTIONS(9221), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7874), 3,
+    STATE(8523), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549054,152 +548913,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [71787] = 25,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(8986), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
-      sym_preproc_directive,
-    ACTIONS(9074), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(9219), 1,
-      aux_sym_preproc_if_token2,
-    STATE(5318), 1,
-      sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
-      sym_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8992), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
-      sym_intrinsic_type,
-      sym_derived_type,
-    STATE(5312), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(8039), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4285), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [71889] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9223), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8028), 3,
+    STATE(8521), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4290), 6,
+    STATE(4284), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549207,63 +548989,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [71991] = 25,
-    ACTIONS(8021), 1,
+  [71889] = 25,
+    ACTIONS(8627), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(8637), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8640), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8643), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8646), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8649), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8655), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8658), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8661), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8577), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8986), 1,
+    ACTIONS(8980), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
+    ACTIONS(8983), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
+    ACTIONS(8986), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
+    ACTIONS(8992), 1,
       sym_preproc_directive,
-    ACTIONS(9074), 1,
+    ACTIONS(9225), 1,
       aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8992), 2,
+    ACTIONS(8989), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8664), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8652), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549271,7 +549053,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4284), 12,
+    STATE(4282), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -549284,63 +549066,76 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [72093] = 25,
-    ACTIONS(8021), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+  [71991] = 25,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8567), 1,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(9000), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(9002), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(9008), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(9211), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(8986), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
-      sym_preproc_directive,
-    ACTIONS(9074), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8992), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(9004), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    STATE(8388), 3,
+      sym_preproc_else_in_interface,
+      sym_preproc_elif_in_interface,
+      sym_preproc_elifdef_in_interface,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(4306), 6,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_interface_repeat1,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549348,76 +549143,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4285), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [72195] = 25,
-    ACTIONS(8693), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(8703), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(8706), 1,
+  [72093] = 25,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8709), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8712), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8715), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8721), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8724), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8727), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8968), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(8971), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(8974), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(8980), 1,
-      sym_preproc_directive,
-    ACTIONS(9225), 1,
-      aux_sym_include_statement_token1,
-    STATE(5318), 1,
+    ACTIONS(8399), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(9000), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(9002), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(9008), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(9228), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8977), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(9004), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8730), 5,
+    STATE(8659), 3,
+      sym_preproc_else_in_interface,
+      sym_preproc_elif_in_interface,
+      sym_preproc_elifdef_in_interface,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8718), 7,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(4306), 6,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_interface_repeat1,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549425,89 +549220,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4285), 12,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_internal_procedures,
-      sym_preproc_ifdef_in_internal_procedures,
-      sym_subroutine,
-      sym_module_procedure,
-      sym_function,
-      sym__internal_procedures,
-      sym_include_statement,
-      aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [72297] = 25,
-    ACTIONS(8023), 1,
+  [72195] = 25,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9228), 1,
+    ACTIONS(9230), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8070), 3,
+    STATE(8387), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4280), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549515,76 +549297,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [72399] = 25,
-    ACTIONS(8023), 1,
+  [72297] = 25,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9230), 1,
+    ACTIONS(9232), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8076), 3,
+    STATE(8385), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549592,63 +549374,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [72501] = 25,
-    ACTIONS(8021), 1,
+  [72399] = 25,
+    ACTIONS(8057), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8986), 1,
+    ACTIONS(8968), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(8988), 1,
+    ACTIONS(8970), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(8990), 1,
+    ACTIONS(8972), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(8994), 1,
+    ACTIONS(8976), 1,
       sym_preproc_directive,
-    ACTIONS(9074), 1,
+    ACTIONS(9139), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9232), 1,
+    ACTIONS(9234), 1,
       aux_sym_preproc_if_token2,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7217), 1,
-      sym_module_procedure_statement,
-    STATE(7255), 1,
-      sym_subroutine_statement,
-    STATE(7256), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8992), 2,
+    ACTIONS(8974), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5312), 3,
+    STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549656,7 +549438,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4285), 12,
+    STATE(4282), 12,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -549669,63 +549451,63 @@ static const uint16_t ts_small_parse_table[] = {
       sym__internal_procedures,
       sym_include_statement,
       aux_sym_preproc_if_in_internal_procedures_repeat1,
-  [72603] = 25,
-    ACTIONS(8023), 1,
+  [72501] = 25,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9234), 1,
+    ACTIONS(9217), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7845), 3,
+    STATE(8217), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
@@ -549738,7 +549520,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549746,76 +549528,140 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [72705] = 25,
-    ACTIONS(8023), 1,
+  [72603] = 25,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(9236), 1,
+    ACTIONS(8567), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(8968), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8970), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8972), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8976), 1,
+      sym_preproc_directive,
+    ACTIONS(9139), 1,
+      aux_sym_include_statement_token1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8974), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(8237), 3,
-      sym_preproc_else_in_interface,
-      sym_preproc_elif_in_interface,
-      sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
-      sym__interface_items,
+    ACTIONS(8067), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+    STATE(4274), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
       sym_subroutine,
+      sym_module_procedure,
       sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
+  [72705] = 25,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(8061), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(8063), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(8065), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(8069), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(8071), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(8073), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(8968), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8970), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8972), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8976), 1,
+      sym_preproc_directive,
+    ACTIONS(9139), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(9236), 1,
+      aux_sym_preproc_if_token2,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6538), 1,
+      sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8974), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5310), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(8075), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549823,76 +549669,89 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
+    STATE(4282), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
   [72807] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
+    ACTIONS(9000), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
+    ACTIONS(9002), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9238), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
+    ACTIONS(9004), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7892), 3,
+    STATE(8224), 3,
       sym_preproc_else_in_interface,
       sym_preproc_elif_in_interface,
       sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4287), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549901,75 +549760,62 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [72909] = 25,
-    ACTIONS(8023), 1,
+    ACTIONS(8057), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(9024), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(9026), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(9032), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(9238), 1,
+    ACTIONS(8968), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(8970), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(8972), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(8976), 1,
+      sym_preproc_directive,
+    ACTIONS(9139), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(9236), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6538), 1,
       sym_function_statement,
+    STATE(6539), 1,
+      sym_subroutine_statement,
+    STATE(6601), 1,
+      sym_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9028), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5387), 2,
+    ACTIONS(8974), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
     STATE(5310), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    STATE(7892), 3,
-      sym_preproc_else_in_interface,
-      sym_preproc_elif_in_interface,
-      sym_preproc_elifdef_in_interface,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -549977,11 +549823,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
+    STATE(4287), 12,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_internal_procedures,
+      sym_preproc_ifdef_in_internal_procedures,
+      sym_subroutine,
+      sym_module_procedure,
+      sym_function,
+      sym__internal_procedures,
+      sym_include_statement,
+      aux_sym_preproc_if_in_internal_procedures_repeat1,
   [73011] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 9,
+    ACTIONS(7555), 9,
       aux_sym_preproc_elif_token1,
       anon_sym_STAR,
       anon_sym_SLASH,
@@ -549991,7 +549850,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
       anon_sym_DOT,
-    ACTIONS(7561), 38,
+    ACTIONS(7557), 38,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -550084,7 +549943,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_QMARK,
   [73123] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550116,13 +549975,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    STATE(1532), 1,
+    STATE(1282), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6841), 1,
+    STATE(7187), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550133,10 +549992,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550149,7 +550008,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4313), 9,
+    STATE(4323), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550160,7 +550019,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [73226] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550192,13 +550051,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(9278), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1263), 1,
+    STATE(2722), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6791), 1,
+    STATE(7242), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550209,10 +550068,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550225,7 +550084,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4313), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550236,83 +550095,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [73329] = 27,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9240), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(9242), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(9244), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(9248), 1,
-      sym_preproc_directive,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9254), 1,
-      aux_sym_contains_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9258), 1,
-      aux_sym_private_statement_token1,
-    ACTIONS(9260), 1,
-      aux_sym_public_statement_token1,
-    ACTIONS(9262), 1,
-      aux_sym_derived_type_definition_token1,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(9274), 1,
-      aux_sym_include_statement_token1,
-    ACTIONS(9280), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9282), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2708), 1,
-      sym_end_type_statement,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    STATE(5396), 1,
-      sym_contains_statement,
-    STATE(6893), 1,
-      sym_derived_type_procedures,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9246), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    STATE(6859), 2,
-      sym_variable_declaration,
-      sym_include_statement,
-    STATE(3447), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-    STATE(4302), 9,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_derived_type,
-      sym_preproc_ifdef_in_derived_type,
-      sym_private_statement,
-      sym_public_statement,
-      aux_sym_derived_type_definition_repeat1,
-  [73432] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550340,17 +550123,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9276), 1,
+    ACTIONS(9280), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9278), 1,
+    ACTIONS(9282), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1255), 1,
+    STATE(3047), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6781), 1,
+    STATE(7061), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550361,10 +550144,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550377,7 +550160,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4296), 9,
+    STATE(4308), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550387,8 +550170,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [73535] = 27,
-    ACTIONS(784), 1,
+  [73432] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550420,13 +550203,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(9286), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1185), 1,
+    STATE(1480), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6849), 1,
+    STATE(6925), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550437,10 +550220,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550453,7 +550236,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4303), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550463,8 +550246,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [73638] = 27,
-    ACTIONS(784), 1,
+  [73535] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550496,13 +550279,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(9290), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1563), 1,
+    STATE(1468), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6939), 1,
+    STATE(6985), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550513,10 +550296,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550529,7 +550312,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4305), 9,
+    STATE(4323), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550539,8 +550322,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [73741] = 27,
-    ACTIONS(784), 1,
+  [73638] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550572,13 +550355,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(9294), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1648), 1,
+    STATE(1585), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6593), 1,
+    STATE(7050), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550589,10 +550372,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550615,8 +550398,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [73844] = 27,
-    ACTIONS(784), 1,
+  [73741] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550644,17 +550427,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9280), 1,
+    ACTIONS(9296), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9282), 1,
+    ACTIONS(9298), 1,
       aux_sym_end_type_statement_token1,
-    STATE(2719), 1,
+    STATE(1640), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6902), 1,
+    STATE(6809), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550665,10 +550448,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550691,70 +550474,65 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [73947] = 22,
-    ACTIONS(9298), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(9300), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(9303), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(9309), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(9312), 1,
-      aux_sym_procedure_attributes_token1,
-    ACTIONS(9315), 1,
+  [73844] = 27,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9240), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(9242), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(9244), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(9248), 1,
+      sym_preproc_directive,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9254), 1,
+      aux_sym_contains_statement_token1,
+    ACTIONS(9256), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(9318), 1,
-      aux_sym_import_statement_token1,
-    ACTIONS(9324), 1,
+    ACTIONS(9258), 1,
+      aux_sym_private_statement_token1,
+    ACTIONS(9260), 1,
+      aux_sym_public_statement_token1,
+    ACTIONS(9262), 1,
+      aux_sym_derived_type_definition_token1,
+    ACTIONS(9268), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9327), 1,
+    ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(9330), 1,
-      aux_sym_derived_type_token1,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    STATE(5318), 1,
+    ACTIONS(9274), 1,
+      aux_sym_include_statement_token1,
+    ACTIONS(9300), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9302), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1187), 1,
+      sym_end_type_statement,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
-      sym_function_statement,
+    STATE(5393), 1,
+      sym_contains_statement,
+    STATE(7307), 1,
+      sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    ACTIONS(9246), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    STATE(6628), 2,
+      sym_variable_declaration,
+      sym_include_statement,
+    STATE(3444), 4,
+      sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
-      aux_sym__callable_interface_qualifers,
-      sym_procedure_attributes,
-      sym_procedure_qualifier,
-    ACTIONS(9296), 4,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    ACTIONS(9306), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    ACTIONS(9333), 5,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-    STATE(4303), 6,
-      sym__interface_items,
-      sym_subroutine,
-      sym_function,
-      sym_import_statement,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(9321), 7,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -550762,8 +550540,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [74040] = 27,
-    ACTIONS(784), 1,
+    STATE(4323), 9,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_derived_type,
+      sym_preproc_ifdef_in_derived_type,
+      sym_private_statement,
+      sym_public_statement,
+      aux_sym_derived_type_definition_repeat1,
+  [73947] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550791,17 +550579,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9292), 1,
+    ACTIONS(9284), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9294), 1,
+    ACTIONS(9286), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1638), 1,
+    STATE(1371), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6606), 1,
+    STATE(6943), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550812,10 +550600,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550838,8 +550626,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [74143] = 27,
-    ACTIONS(784), 1,
+  [74050] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550867,17 +550655,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9288), 1,
+    ACTIONS(9292), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9290), 1,
+    ACTIONS(9294), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1569), 1,
+    STATE(1599), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6949), 1,
+    STATE(7066), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550888,10 +550676,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550914,8 +550702,8 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
-  [74246] = 27,
-    ACTIONS(784), 1,
+  [74153] = 27,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -550943,17 +550731,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9336), 1,
+    ACTIONS(9300), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9338), 1,
+    ACTIONS(9302), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1149), 1,
+    STATE(1157), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6532), 1,
+    STATE(7291), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -550964,10 +550752,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -550980,7 +550768,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4302), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -550990,8 +550778,79 @@ static const uint16_t ts_small_parse_table[] = {
       sym_private_statement,
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
+  [74256] = 22,
+    ACTIONS(9306), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(9308), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(9311), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(9317), 1,
+      aux_sym_function_statement_token1,
+    ACTIONS(9320), 1,
+      aux_sym_procedure_attributes_token1,
+    ACTIONS(9323), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9326), 1,
+      aux_sym_import_statement_token1,
+    ACTIONS(9332), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9335), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(9338), 1,
+      aux_sym_derived_type_token1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    STATE(5319), 1,
+      sym__intrinsic_type,
+    STATE(6597), 1,
+      sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(5381), 2,
+      sym_intrinsic_type,
+      sym_derived_type,
+    STATE(5309), 3,
+      aux_sym__callable_interface_qualifers,
+      sym_procedure_attributes,
+      sym_procedure_qualifier,
+    ACTIONS(9304), 4,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    ACTIONS(9314), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    ACTIONS(9341), 5,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+    STATE(4306), 6,
+      sym__interface_items,
+      sym_subroutine,
+      sym_function,
+      sym_import_statement,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_interface_repeat1,
+    ACTIONS(9329), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
   [74349] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551001,6 +550860,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_if_token1,
     ACTIONS(9248), 1,
       sym_preproc_directive,
+    ACTIONS(9250), 1,
+      aux_sym_end_program_statement_token1,
     ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
     ACTIONS(9254), 1,
@@ -551013,23 +550874,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_public_statement_token1,
     ACTIONS(9262), 1,
       aux_sym_derived_type_definition_token1,
+    ACTIONS(9264), 1,
+      aux_sym_end_type_statement_token1,
     ACTIONS(9268), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9340), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9342), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2868), 1,
+    STATE(1312), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6852), 1,
+    STATE(7171), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551040,10 +550899,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551056,7 +550915,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4308), 9,
+    STATE(4295), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551067,7 +550926,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74452] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551095,17 +550954,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9340), 1,
+    ACTIONS(9280), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9342), 1,
+    ACTIONS(9282), 1,
       aux_sym_end_type_statement_token1,
-    STATE(2841), 1,
+    STATE(3050), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6953), 1,
+    STATE(7047), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551116,10 +550975,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551143,7 +551002,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74555] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551171,17 +551030,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9284), 1,
+    ACTIONS(9344), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9286), 1,
+    ACTIONS(9346), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1183), 1,
+    STATE(2851), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6840), 1,
+    STATE(6983), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551192,10 +551051,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551208,7 +551067,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4299), 9,
+    STATE(4315), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551219,7 +551078,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74658] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551247,17 +551106,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9344), 1,
+    ACTIONS(9348), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9346), 1,
+    ACTIONS(9350), 1,
       aux_sym_end_type_statement_token1,
-    STATE(3023), 1,
+    STATE(1355), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6981), 1,
+    STATE(7114), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551268,10 +551127,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551284,7 +551143,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4311), 9,
+    STATE(4323), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551295,7 +551154,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74761] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551323,17 +551182,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9344), 1,
+    ACTIONS(9352), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9346), 1,
+    ACTIONS(9354), 1,
       aux_sym_end_type_statement_token1,
-    STATE(3093), 1,
+    STATE(1454), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6987), 1,
+    STATE(7185), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551344,10 +551203,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551371,7 +551230,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74864] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551399,17 +551258,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9348), 1,
+    ACTIONS(9352), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9350), 1,
+    ACTIONS(9354), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1365), 1,
+    STATE(1397), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6660), 1,
+    STATE(6647), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551420,10 +551279,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551436,7 +551295,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4314), 9,
+    STATE(4311), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551447,7 +551306,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [74967] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551457,8 +551316,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_if_token1,
     ACTIONS(9248), 1,
       sym_preproc_directive,
-    ACTIONS(9250), 1,
-      aux_sym_end_program_statement_token1,
     ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
     ACTIONS(9254), 1,
@@ -551471,21 +551328,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_public_statement_token1,
     ACTIONS(9262), 1,
       aux_sym_derived_type_definition_token1,
-    ACTIONS(9264), 1,
-      aux_sym_end_type_statement_token1,
     ACTIONS(9268), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    STATE(1602), 1,
+    ACTIONS(9276), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9278), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(2717), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(7229), 1,
+    STATE(7232), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551496,10 +551355,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551523,7 +551382,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75070] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551551,17 +551410,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9348), 1,
+    ACTIONS(9356), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9350), 1,
+    ACTIONS(9358), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1369), 1,
+    STATE(1132), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6673), 1,
+    STATE(6641), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551572,10 +551431,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551599,7 +551458,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75173] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551627,17 +551486,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9352), 1,
+    ACTIONS(9344), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9354), 1,
+    ACTIONS(9346), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1612), 1,
+    STATE(2809), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(7002), 1,
+    STATE(6926), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551648,10 +551507,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551664,7 +551523,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4316), 9,
+    STATE(4323), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551675,7 +551534,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75276] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551703,17 +551562,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9352), 1,
+    ACTIONS(9360), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9354), 1,
+    ACTIONS(9362), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1620), 1,
+    STATE(2897), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(7009), 1,
+    STATE(6566), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551724,10 +551583,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551740,7 +551599,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4320), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551751,7 +551610,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75379] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551779,17 +551638,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9356), 1,
+    ACTIONS(9296), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9358), 1,
+    ACTIONS(9298), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1392), 1,
+    STATE(1635), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6721), 1,
+    STATE(6787), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551800,10 +551659,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551816,7 +551675,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4319), 9,
+    STATE(4301), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551827,7 +551686,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75482] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551855,17 +551714,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9336), 1,
+    ACTIONS(9348), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9338), 1,
+    ACTIONS(9350), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1127), 1,
+    STATE(1359), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6519), 1,
+    STATE(7136), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551876,10 +551735,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551892,7 +551751,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4306), 9,
+    STATE(4310), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551903,7 +551762,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75585] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -551931,17 +551790,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9356), 1,
+    ACTIONS(9288), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9358), 1,
+    ACTIONS(9290), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1401), 1,
+    STATE(1459), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(6731), 1,
+    STATE(6994), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -551952,10 +551811,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -551968,7 +551827,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4299), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -551979,7 +551838,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75688] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -552011,13 +551870,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(9362), 1,
       aux_sym_end_type_statement_token1,
-    STATE(2860), 1,
+    STATE(2886), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(7251), 1,
+    STATE(6521), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -552028,10 +551887,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -552044,7 +551903,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4321), 9,
+    STATE(4323), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -552055,7 +551914,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75791] = 27,
-    ACTIONS(784), 1,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9240), 1,
       aux_sym_preproc_include_token1,
@@ -552083,17 +551942,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(9274), 1,
       aux_sym_include_statement_token1,
-    ACTIONS(9360), 1,
+    ACTIONS(9356), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9362), 1,
+    ACTIONS(9358), 1,
       aux_sym_end_type_statement_token1,
-    STATE(2882), 1,
+    STATE(1147), 1,
       sym_end_type_statement,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
-    STATE(5396), 1,
+    STATE(5393), 1,
       sym_contains_statement,
-    STATE(7279), 1,
+    STATE(6615), 1,
       sym_derived_type_procedures,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -552104,10 +551963,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -552120,7 +551979,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-    STATE(4323), 9,
+    STATE(4314), 9,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -552131,66 +551990,66 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [75894] = 22,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9364), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(9366), 1,
       sym_preproc_comment,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4324), 6,
+    STATE(4325), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -552227,7 +552086,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_derived_type_token1,
     ACTIONS(9417), 1,
       aux_sym_include_statement_token1,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -552241,10 +552100,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9414), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(6859), 2,
+    STATE(6628), 2,
       sym_variable_declaration,
       sym_include_statement,
-    STATE(3447), 4,
+    STATE(3444), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -552268,64 +552127,64 @@ static const uint16_t ts_small_parse_table[] = {
       sym_public_statement,
       aux_sym_derived_type_definition_repeat1,
   [76076] = 21,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9420), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -552334,64 +552193,64 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [76163] = 21,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
-    ACTIONS(9420), 1,
+    ACTIONS(9422), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4326), 6,
+    STATE(4306), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -552400,64 +552259,64 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
   [76250] = 21,
-    ACTIONS(8023), 1,
+    ACTIONS(8059), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(8025), 1,
+    ACTIONS(8061), 1,
       aux_sym_function_statement_token1,
-    ACTIONS(8027), 1,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(8367), 1,
+    ACTIONS(8399), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(9032), 1,
+    ACTIONS(9008), 1,
       aux_sym_import_statement_token1,
     ACTIONS(9422), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
-    STATE(7221), 1,
-      sym_subroutine_statement,
-    STATE(7222), 1,
+    STATE(6597), 1,
       sym_function_statement,
+    STATE(6598), 1,
+      sym_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5310), 3,
+    STATE(5309), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(4303), 6,
+    STATE(4324), 6,
       sym__interface_items,
       sym_subroutine,
       sym_function,
       sym_import_statement,
       sym_procedure_statement,
       aux_sym_preproc_if_in_interface_repeat1,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -552509,183 +552368,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [76384] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 3,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8960), 22,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [76451] = 16,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [76384] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-    ACTIONS(8910), 11,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [76524] = 15,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-    ACTIONS(8910), 12,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [76595] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9444), 4,
+    ACTIONS(9428), 4,
       aux_sym_preproc_if_token1,
       aux_sym_preproc_elif_token1,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9446), 34,
+    ACTIONS(9430), 34,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
@@ -552720,237 +552412,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [76642] = 17,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 10,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [76717] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 3,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8934), 22,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [76784] = 9,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 26,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [76843] = 18,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8940), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [76431] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 8,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [76920] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9452), 4,
+    ACTIONS(9432), 4,
       aux_sym_preproc_if_token1,
       aux_sym_preproc_elif_token1,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9454), 34,
+    ACTIONS(9434), 34,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
@@ -552985,16 +552456,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [76967] = 3,
+  [76478] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9456), 4,
+    ACTIONS(9436), 4,
       aux_sym_preproc_if_token1,
       aux_sym_preproc_elif_token1,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9458), 34,
+    ACTIONS(9438), 34,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
@@ -553029,65 +552500,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77014] = 8,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [76525] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8952), 27,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [77071] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9460), 4,
+    ACTIONS(9440), 4,
       aux_sym_preproc_if_token1,
       aux_sym_preproc_elif_token1,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9462), 34,
+    ACTIONS(9442), 34,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
@@ -553122,16 +552544,16 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77118] = 3,
+  [76572] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9464), 4,
+    ACTIONS(9444), 4,
       aux_sym_preproc_if_token1,
       aux_sym_preproc_elif_token1,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9466), 34,
+    ACTIONS(9446), 34,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
@@ -553166,46 +552588,98 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77165] = 18,
+  [76619] = 11,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8948), 25,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [76682] = 18,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    STATE(2550), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 8,
+    ACTIONS(8021), 8,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_EQ_GT,
@@ -553214,7 +552688,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -553225,7 +552699,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [77242] = 3,
+  [76759] = 10,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8948), 25,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [76820] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553269,58 +552794,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77289] = 10,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 25,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [77350] = 3,
+  [76867] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553364,7 +552838,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77397] = 3,
+  [76914] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553408,7 +552882,118 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77444] = 3,
+  [76961] = 13,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8966), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8964), 22,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [77028] = 16,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+    ACTIONS(8910), 11,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [77101] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553452,7 +553037,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77491] = 3,
+  [77148] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553496,7 +553081,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77538] = 3,
+  [77195] = 15,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8946), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+    ACTIONS(8944), 12,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [77266] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553540,7 +553181,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77585] = 3,
+  [77313] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553584,7 +553225,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77632] = 3,
+  [77360] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553628,7 +553269,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77679] = 3,
+  [77407] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553672,7 +553313,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77726] = 3,
+  [77454] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553716,7 +553357,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77773] = 3,
+  [77501] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553760,7 +553401,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77820] = 3,
+  [77548] = 15,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+    ACTIONS(8910), 12,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [77619] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553804,7 +553501,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77867] = 3,
+  [77666] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553848,7 +553545,173 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77914] = 3,
+  [77713] = 17,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 10,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [77788] = 8,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8958), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8956), 27,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [77845] = 18,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8950), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8948), 8,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [77922] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -553892,37 +553755,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [77961] = 11,
+  [77969] = 13,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    STATE(2550), 1,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4360), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 3,
+    ACTIONS(8954), 3,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8938), 25,
+    ACTIONS(8952), 22,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -553939,47 +553805,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
       anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78024] = 15,
+  [78036] = 9,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(8958), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+      anon_sym_DOT,
+    ACTIONS(8948), 26,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -553987,39 +553853,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-    ACTIONS(8956), 12,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
       anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78095] = 5,
-    STATE(3974), 1,
+  [78095] = 6,
+    ACTIONS(9524), 1,
+      anon_sym_LPAREN2,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4361), 2,
+    STATE(4359), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9100), 6,
+    ACTIONS(9012), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(9098), 28,
+    ACTIONS(9010), 27,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -554045,26 +553905,27 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78145] = 5,
-    STATE(2550), 1,
+  [78147] = 6,
+    ACTIONS(9527), 1,
+      anon_sym_LPAREN2,
+    STATE(2445), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4362), 2,
+    STATE(4360), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9100), 6,
+    ACTIONS(9012), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(9098), 28,
+    ACTIONS(9010), 27,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -554090,36 +553951,34 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78195] = 6,
-    ACTIONS(9524), 1,
-      anon_sym_LPAREN2,
-    STATE(3974), 1,
+  [78199] = 5,
+    STATE(2445), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4361), 2,
+    STATE(4360), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9134), 6,
+    ACTIONS(9161), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      aux_sym_end_program_statement_token1,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(9132), 27,
+    ACTIONS(9159), 28,
       anon_sym_COMMA,
       anon_sym_RPAREN,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
+      anon_sym_EQ_GT,
+      anon_sym_GT_GT_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -554133,38 +553992,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
       anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78247] = 6,
-    ACTIONS(9527), 1,
-      anon_sym_LPAREN2,
-    STATE(2550), 1,
+  [78249] = 5,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4362), 2,
+    STATE(4359), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9134), 6,
+    ACTIONS(9161), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
+      aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(9132), 27,
+    ACTIONS(9159), 28,
       anon_sym_COMMA,
       anon_sym_RPAREN,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_GT_GT_GT,
+      anon_sym_COLON,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -554178,100 +554038,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
       anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [78299] = 5,
-    ACTIONS(9532), 1,
-      anon_sym_COMMA,
-    STATE(4387), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9530), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [78348] = 17,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
+  [78299] = 15,
+    ACTIONS(8946), 1,
       anon_sym_DOT,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4367), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 8,
-      sym__external_end_of_statement,
+    ACTIONS(8944), 10,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_RPAREN,
+      anon_sym_COLON,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
+      anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9542), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554282,49 +554095,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [78421] = 13,
-    ACTIONS(7519), 1,
+  [78368] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
     ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9550), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9546), 1,
+      anon_sym_RPAREN,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(6456), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 3,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8934), 20,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554332,34 +554157,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [78486] = 9,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9540), 1,
+  [78453] = 8,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(8958), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8938), 24,
+    ACTIONS(8956), 25,
       sym__external_end_of_statement,
       anon_sym_COMMA,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_EQ_EQ,
@@ -554382,39 +554204,57 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [78543] = 5,
-    STATE(3170), 1,
+  [78508] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8023), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(8920), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9568), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9570), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9574), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9576), 1,
+      anon_sym_STAR_STAR,
+    STATE(3063), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4395), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9100), 6,
+    ACTIONS(9560), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(9098), 27,
-      sym__external_end_of_statement,
+    ACTIONS(9572), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8021), 5,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554422,57 +554262,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
+  [78585] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [78592] = 18,
-    ACTIONS(7519), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(8940), 1,
-      anon_sym_DOT,
     ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9578), 1,
+      anon_sym_COMMA,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
+    ACTIONS(9582), 1,
+      anon_sym_RBRACK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(7303), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
     ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 6,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9542), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554483,50 +554324,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [78667] = 15,
-    ACTIONS(8920), 1,
+  [78670] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3019), 1,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9584), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
+    STATE(6661), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8912), 2,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(9558), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 9,
-      anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9562), 10,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554537,42 +554386,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [78736] = 8,
-    ACTIONS(9540), 1,
+  [78755] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    STATE(3010), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
+    ACTIONS(9586), 1,
+      anon_sym_COMMA,
+    ACTIONS(9588), 1,
+      anon_sym_RBRACK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(6853), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 5,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8952), 25,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554580,62 +554448,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [78791] = 23,
+  [78840] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9570), 1,
-      anon_sym_COMMA,
-    ACTIONS(9580), 1,
-      anon_sym_COLON,
-    ACTIONS(9582), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
     ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
+      anon_sym_COMMA,
     ACTIONS(9592), 1,
       anon_sym_RBRACK,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6992), 1,
+    STATE(6660), 1,
       aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554646,58 +554510,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [78876] = 23,
+  [78925] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
     ACTIONS(9596), 1,
-      anon_sym_COMMA,
+      anon_sym_LBRACK,
     ACTIONS(9598), 1,
-      anon_sym_RPAREN,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    STATE(6995), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9594), 4,
+      anon_sym_COMMA,
+      anon_sym_GT_GT_GT,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554708,52 +554569,50 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [78961] = 17,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [79004] = 15,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9602), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9604), 1,
-      aux_sym_logical_expression_token2,
-    STATE(3019), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8912), 2,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(9558), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 7,
+    ACTIONS(8910), 10,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9562), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554764,49 +554623,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79034] = 13,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [79073] = 18,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(8950), 1,
+      anon_sym_DOT,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(3019), 1,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9558), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 4,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(8934), 19,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8948), 6,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554814,45 +554680,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [79099] = 9,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [79148] = 15,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    STATE(3019), 1,
+    ACTIONS(8946), 1,
+      anon_sym_DOT,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 6,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(8938), 23,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8944), 10,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554860,57 +554734,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [79156] = 18,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [79217] = 18,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9602), 1,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9604), 1,
+    ACTIONS(9614), 1,
       aux_sym_logical_expression_token2,
-    STATE(3019), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8940), 2,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(9558), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9606), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 5,
+    ACTIONS(8021), 6,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9562), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -554921,61 +554791,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79231] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+  [79292] = 8,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9580), 1,
-      anon_sym_COLON,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9608), 1,
-      anon_sym_COMMA,
-    ACTIONS(9610), 1,
-      anon_sym_RBRACK,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6540), 1,
-      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8958), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+      anon_sym_DOT,
+    ACTIONS(8956), 25,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -554983,61 +554833,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79316] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9612), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+  [79347] = 8,
+    ACTIONS(8920), 1,
+      anon_sym_PERCENT,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6541), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8958), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(8956), 24,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -555045,94 +554881,62 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79401] = 5,
-    ACTIONS(9532), 1,
-      anon_sym_COMMA,
-    STATE(4363), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9614), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9616), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [79450] = 15,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8958), 1,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [79402] = 23,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(9540), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9550), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9618), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(6952), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8956), 10,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9542), 10,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555143,58 +554947,50 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79519] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+  [79487] = 15,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9618), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6676), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(8946), 2,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8944), 9,
+      anon_sym_COMMA,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555205,57 +555001,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79604] = 22,
+  [79556] = 22,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9620), 1,
       anon_sym_COMMA,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
-    STATE(6320), 1,
+    STATE(6338), 1,
       aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
     ACTIONS(9622), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555266,60 +555062,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79687] = 22,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9626), 1,
-      anon_sym_COMMA,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
+  [79639] = 5,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(6372), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    STATE(4390), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9161), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9628), 2,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9159), 27,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -555327,15 +555102,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [79770] = 5,
-    ACTIONS(9532), 1,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [79688] = 5,
+    ACTIONS(9628), 1,
       anon_sym_COMMA,
     STATE(4387), 1,
       aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9634), 8,
+    ACTIONS(9626), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -555344,7 +555123,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9636), 26,
+    ACTIONS(9630), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -555371,11 +555150,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [79819] = 3,
+  [79737] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9638), 8,
+    ACTIONS(9632), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -555384,7 +555163,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9640), 28,
+    ACTIONS(9634), 28,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       aux_sym_module_statement_token1,
@@ -555413,120 +555192,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [79864] = 22,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9620), 1,
-      anon_sym_COMMA,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    STATE(6324), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9642), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [79947] = 5,
-    ACTIONS(9644), 1,
-      anon_sym_COMMA,
-    STATE(4387), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9638), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9640), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [79996] = 5,
-    ACTIONS(9532), 1,
+  [79782] = 5,
+    ACTIONS(9628), 1,
       anon_sym_COMMA,
     STATE(4387), 1,
       aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9647), 8,
+    ACTIONS(9636), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -555535,7 +555209,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9649), 26,
+    ACTIONS(9638), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -555562,58 +555236,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [80045] = 23,
+  [79831] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    ACTIONS(9600), 1,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    ACTIONS(9651), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9640), 1,
       anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(7285), 1,
+    STATE(6852), 1,
       aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555624,53 +555298,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80130] = 18,
+  [79916] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(9432), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
+    ACTIONS(9642), 1,
+      anon_sym_COMMA,
+    ACTIONS(9644), 1,
+      anon_sym_RBRACK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
+    STATE(6455), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 6,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555681,58 +555360,102 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80205] = 23,
+  [80001] = 5,
+    ACTIONS(9646), 1,
+      anon_sym_COMMA,
+    STATE(4387), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9632), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9634), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [80050] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9580), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    ACTIONS(9582), 1,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    ACTIONS(9653), 1,
+    ACTIONS(9649), 1,
       anon_sym_COMMA,
-    ACTIONS(9655), 1,
-      anon_sym_RBRACK,
-    STATE(3001), 1,
+    ACTIONS(9651), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6612), 1,
-      aux_sym_coarray_index_repeat1,
+    STATE(6691), 1,
+      aux_sym_case_value_range_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555743,58 +555466,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80290] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+  [80135] = 18,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9568), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9570), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9657), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6613), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(8950), 2,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9572), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8948), 5,
+      anon_sym_COMMA,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -555805,56 +555523,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80375] = 18,
-    ACTIONS(8940), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [80210] = 6,
+    ACTIONS(9653), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    STATE(4390), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9012), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 6,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9010), 26,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9576), 10,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -555862,59 +555564,91 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80450] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(8966), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9602), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9604), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9659), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    STATE(3019), 1,
+  [80261] = 5,
+    ACTIONS(9628), 1,
+      anon_sym_COMMA,
+    STATE(4384), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9656), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9658), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [80310] = 9,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9558), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9560), 2,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9606), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8964), 3,
+      anon_sym_DOT,
+    ACTIONS(8948), 24,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-    ACTIONS(9562), 10,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -555922,36 +555656,43 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80531] = 6,
-    ACTIONS(9661), 1,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [80367] = 9,
+    ACTIONS(8920), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
+    STATE(3063), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4395), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9134), 6,
+    ACTIONS(8950), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
+      aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(9132), 26,
-      sym__external_end_of_statement,
+    ACTIONS(8948), 23,
       anon_sym_COMMA,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -555967,61 +555708,49 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [80582] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
+  [80424] = 13,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    ACTIONS(9666), 1,
-      anon_sym_LT_LT_LT,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4367), 1,
-      aux_sym_call_expression_repeat1,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
-    STATE(4839), 1,
-      sym_argument_list,
-    STATE(6153), 1,
-      sym_cuda_kernel_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8954), 3,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9664), 2,
+      anon_sym_DOT,
+    ACTIONS(8952), 20,
       sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(9542), 10,
+      anon_sym_COMMA,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -556029,58 +555758,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80667] = 23,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [80489] = 18,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9668), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6613), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8021), 6,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_COLON,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556091,22 +555817,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [80752] = 5,
-    ACTIONS(9670), 1,
+  [80564] = 5,
+    ACTIONS(9660), 1,
       aux_sym__intrinsic_type_token5,
-    ACTIONS(9672), 1,
+    ACTIONS(9662), 1,
       aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4293), 6,
+    ACTIONS(4347), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4295), 28,
+    ACTIONS(4349), 28,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_LPAREN2,
@@ -556135,42 +555861,61 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [80801] = 9,
-    ACTIONS(9432), 1,
+  [80613] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    STATE(3001), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9664), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
+    STATE(7315), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 24,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -556178,95 +555923,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
+  [80698] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [80858] = 5,
-    ACTIONS(9532), 1,
-      anon_sym_COMMA,
-    STATE(4384), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9530), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [80907] = 11,
-    ACTIONS(8920), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9568), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3019), 1,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9666), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
+    STATE(6822), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9560), 2,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 4,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(8938), 22,
-      anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -556274,18 +555985,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [80968] = 5,
-    ACTIONS(9532), 1,
+  [80783] = 5,
+    ACTIONS(9628), 1,
       anon_sym_COMMA,
-    STATE(4388), 1,
+    STATE(4429), 1,
       aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9674), 8,
+    ACTIONS(9668), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -556294,7 +556002,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9676), 26,
+    ACTIONS(9670), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -556321,58 +556029,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [81017] = 23,
+  [80832] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9678), 1,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    ACTIONS(9680), 1,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9672), 1,
       anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(7187), 1,
-      aux_sym_case_value_range_list_repeat1,
+    STATE(6456), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556383,58 +556091,51 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81102] = 23,
-    ACTIONS(167), 1,
+  [80917] = 16,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8912), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9651), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(7294), 1,
-      aux_sym__argument_list_repeat1,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8910), 9,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556445,36 +556146,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81187] = 10,
+  [80988] = 13,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9568), 1,
+    ACTIONS(9574), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    STATE(3019), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 6,
+    ACTIONS(9560), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8954), 4,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(8938), 22,
+    ACTIONS(8952), 19,
       anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556491,57 +556196,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [81246] = 19,
-    ACTIONS(167), 1,
+  [81053] = 17,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8912), 1,
       anon_sym_DOT,
-    ACTIONS(8247), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(8920), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9602), 1,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9604), 1,
+    ACTIONS(9614), 1,
       aux_sym_logical_expression_token2,
-    STATE(3019), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9558), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9606), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 5,
+    ACTIONS(8910), 8,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9562), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556552,55 +556254,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81323] = 20,
+  [81126] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
+    ACTIONS(9674), 1,
+      anon_sym_COMMA,
+    ACTIONS(9676), 1,
+      anon_sym_RBRACK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(6821), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9682), 4,
-      anon_sym_COMMA,
-      anon_sym_GT_GT_GT,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-    ACTIONS(9438), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556611,104 +556316,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81402] = 8,
-    ACTIONS(9432), 1,
+  [81211] = 17,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8952), 25,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
+    ACTIONS(9568), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9570), 1,
       aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [81457] = 22,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9626), 1,
-      anon_sym_COMMA,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(6365), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(8912), 2,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9684), 2,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-    STATE(4360), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(8910), 7,
+      anon_sym_COMMA,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556719,50 +556372,50 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81540] = 15,
-    ACTIONS(8958), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
+  [81284] = 15,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9588), 1,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(8912), 2,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8956), 10,
+    ACTIONS(8910), 9,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
-      anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9576), 10,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556773,46 +556426,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81609] = 11,
-    ACTIONS(7519), 1,
+  [81353] = 23,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9540), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9552), 1,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    ACTIONS(9680), 1,
+      anon_sym_LT_LT_LT,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4381), 1,
+      aux_sym_call_expression_repeat1,
+    STATE(4741), 1,
       sym_coarray_index,
+    STATE(4857), 1,
+      sym_argument_list,
+    STATE(6197), 1,
+      sym_cuda_kernel_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9538), 2,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 3,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 23,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9678), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+      anon_sym_SEMI,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -556820,61 +556488,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [81670] = 23,
+  [81438] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9580), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    ACTIONS(9582), 1,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    ACTIONS(9686), 1,
-      anon_sym_COMMA,
-    ACTIONS(9688), 1,
-      anon_sym_RBRACK,
-    STATE(3001), 1,
+    ACTIONS(9682), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(7248), 1,
-      aux_sym_coarray_index_repeat1,
+    STATE(6822), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -556885,45 +556550,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81755] = 10,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9540), 1,
+  [81523] = 16,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9552), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9570), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9574), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(8912), 2,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(9560), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 23,
-      sym__external_end_of_statement,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 8,
       anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9564), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -556931,48 +556605,45 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [81814] = 13,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9540), 1,
+  [81594] = 13,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9550), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4367), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 3,
+    ACTIONS(8966), 4,
       anon_sym_GT,
       anon_sym_LT,
+      aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(8960), 20,
-      sym__external_end_of_statement,
+    ACTIONS(8964), 19,
       anon_sym_COMMA,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -556986,54 +556657,45 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [81879] = 16,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9540), 1,
+  [81659] = 11,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4367), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 9,
-      sym__external_end_of_statement,
+    ACTIONS(8950), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8948), 23,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9542), 10,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557041,53 +556703,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [81950] = 15,
-    ACTIONS(7519), 1,
+      anon_sym_SLASH_SLASH,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [81720] = 13,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 10,
+    ACTIONS(8966), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8964), 20,
       sym__external_end_of_statement,
       anon_sym_COMMA,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       anon_sym_SEMI,
       anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557095,31 +556757,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82019] = 8,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [81785] = 10,
     ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    STATE(3019), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9576), 1,
+      anon_sym_STAR_STAR,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 6,
+    ACTIONS(8950), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       aux_sym_end_program_statement_token1,
       anon_sym_DOT,
-    ACTIONS(8952), 24,
+    ACTIONS(8948), 22,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_EQ_EQ,
@@ -557139,227 +556806,46 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [82074] = 15,
-    ACTIONS(8920), 1,
+  [81844] = 10,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3019), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8958), 2,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(9558), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9560), 2,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8956), 9,
-      anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9562), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [82143] = 23,
-    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
+    ACTIONS(8948), 23,
       anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9690), 1,
       anon_sym_RPAREN,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    STATE(7285), 1,
-      aux_sym__argument_list_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9578), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [82228] = 13,
-    ACTIONS(8920), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
-      anon_sym_STAR_STAR,
-    STATE(3019), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9558), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 4,
-      anon_sym_GT,
-      anon_sym_LT,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(8960), 19,
-      anon_sym_COMMA,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [82293] = 18,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+      anon_sym_COLON,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 6,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557367,61 +556853,50 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82368] = 23,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
+      anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [81903] = 11,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9580), 1,
-      anon_sym_COLON,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9692), 1,
-      anon_sym_COMMA,
-    ACTIONS(9694), 1,
-      anon_sym_RBRACK,
-    STATE(3001), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(7293), 1,
-      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8950), 4,
+      anon_sym_GT,
+      anon_sym_LT,
+      aux_sym_end_program_statement_token1,
+      anon_sym_DOT,
+    ACTIONS(8948), 22,
+      anon_sym_COMMA,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557429,58 +556904,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82453] = 23,
+      anon_sym_SLASH_SLASH,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [81964] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9596), 1,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    ACTIONS(9600), 1,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    ACTIONS(9696), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9672), 1,
       anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(7294), 1,
+    STATE(7315), 1,
       aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557491,37 +556969,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82538] = 11,
-    ACTIONS(9432), 1,
+  [82049] = 13,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9590), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9574), 2,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 3,
+    ACTIONS(8966), 3,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8938), 23,
+    ACTIONS(8964), 20,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557537,48 +557018,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [82599] = 10,
-    ACTIONS(9432), 1,
+  [82114] = 16,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9590), 1,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 23,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 9,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       anon_sym_COLON,
       aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557586,48 +557076,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [82658] = 13,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [82185] = 10,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 3,
+    ACTIONS(8950), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8960), 20,
+    ACTIONS(8948), 23,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -557639,57 +557122,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
       anon_sym_LBRACK,
-      anon_sym_RBRACK,
       anon_sym_QMARK,
-  [82723] = 16,
-    ACTIONS(8912), 1,
-      anon_sym_DOT,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+  [82244] = 11,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 9,
+    ACTIONS(8950), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8948), 23,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9576), 10,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557697,36 +557172,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82794] = 15,
+      anon_sym_SLASH_SLASH,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [82305] = 15,
     ACTIONS(8912), 1,
       anon_sym_DOT,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
     ACTIONS(8910), 10,
@@ -557740,7 +557218,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557751,40 +557229,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82863] = 17,
+  [82374] = 17,
     ACTIONS(8912), 1,
       anon_sym_DOT,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
     ACTIONS(8910), 8,
@@ -557796,7 +557274,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557807,54 +557285,48 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [82936] = 16,
-    ACTIONS(8920), 1,
+  [82447] = 13,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9566), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9568), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9604), 1,
-      aux_sym_logical_expression_token2,
-    STATE(3019), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8912), 2,
-      aux_sym_end_program_statement_token1,
-      anon_sym_DOT,
-    ACTIONS(9558), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9560), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9564), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 8,
+    ACTIONS(8954), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8952), 20,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9562), 10,
+      anon_sym_RPAREN,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_COLON,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -557862,40 +557334,37 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83007] = 13,
-    ACTIONS(9432), 1,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+  [82512] = 9,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 3,
+    ACTIONS(8950), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8934), 20,
+    ACTIONS(8948), 24,
       anon_sym_COMMA,
       anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557911,61 +557380,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_RBRACK,
       anon_sym_QMARK,
-  [83072] = 23,
+  [82569] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(8920), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(8962), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9568), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9570), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9574), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9576), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9684), 1,
       anon_sym_QMARK,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    ACTIONS(9698), 1,
-      anon_sym_RPAREN,
-    STATE(3001), 1,
+    STATE(3063), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(6541), 1,
-      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9560), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9562), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9566), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9572), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8960), 3,
+      anon_sym_COMMA,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+    ACTIONS(9564), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -557976,55 +557445,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83157] = 21,
+  [82650] = 22,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(9700), 1,
+    ACTIONS(9686), 1,
       anon_sym_COMMA,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(6437), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(9702), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
+    ACTIONS(9688), 2,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558035,55 +557506,76 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83237] = 4,
-    ACTIONS(9706), 1,
-      sym_preproc_comment,
+  [82733] = 22,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(9686), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(6415), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9704), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9708), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [83283] = 4,
-    ACTIONS(9712), 1,
-      sym_preproc_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9690), 2,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [82816] = 5,
+    ACTIONS(9628), 1,
+      anon_sym_COMMA,
+    STATE(4382), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9710), 8,
+    ACTIONS(9692), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -558092,7 +557584,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9714), 26,
+    ACTIONS(9694), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -558119,13 +557611,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [83329] = 4,
-    ACTIONS(9718), 1,
-      sym_preproc_comment,
+  [82865] = 5,
+    ACTIONS(9628), 1,
+      anon_sym_COMMA,
+    STATE(4387), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9716), 8,
+    ACTIONS(9692), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -558134,7 +557628,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9720), 26,
+    ACTIONS(9694), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -558161,139 +557655,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [83375] = 4,
-    ACTIONS(9724), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9722), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [83421] = 4,
-    ACTIONS(9730), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9728), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [83467] = 21,
-    ACTIONS(167), 1,
+  [82914] = 18,
+    ACTIONS(8950), 1,
       anon_sym_DOT,
-    ACTIONS(6752), 1,
-      anon_sym_COLON,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6748), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(8948), 6,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_COLON,
+      anon_sym_LBRACK,
+      anon_sym_RBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558304,55 +557712,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83547] = 21,
+  [82989] = 22,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6716), 1,
-      anon_sym_COLON,
-    ACTIONS(8948), 1,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9620), 1,
+      anon_sym_COMMA,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3001), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    STATE(6313), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6714), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(9572), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    ACTIONS(9696), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558363,55 +557773,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83627] = 21,
+  [83072] = 23,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9600), 1,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9698), 1,
+      anon_sym_RPAREN,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
+    STATE(6661), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(9734), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558422,33 +557835,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83707] = 4,
-    ACTIONS(9738), 1,
+  [83157] = 4,
+    ACTIONS(9702), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 13,
+    ACTIONS(9700), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9704), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -558463,116 +557877,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [83753] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9744), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9578), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9742), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [83833] = 22,
+  [83203] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9626), 1,
-      anon_sym_COMMA,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    ACTIONS(9746), 1,
-      anon_sym_GT_GT_GT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
       sym_coarray_index,
-    STATE(6550), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(8930), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558583,55 +557935,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83915] = 21,
+  [83281] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9600), 1,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(9748), 2,
+    ACTIONS(9706), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -558642,390 +557994,131 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [83995] = 4,
-    ACTIONS(9752), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9750), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9754), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [84041] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4293), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4295), 27,
-      anon_sym_COMMA,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [84085] = 4,
-    ACTIONS(9758), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9756), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84131] = 4,
-    ACTIONS(9764), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9762), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84177] = 4,
-    ACTIONS(9770), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9768), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84223] = 4,
-    ACTIONS(9776), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9774), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84269] = 4,
-    ACTIONS(9782), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9780), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84315] = 4,
-    ACTIONS(9788), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9786), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84361] = 4,
-    ACTIONS(9794), 1,
-      sym_preproc_comment,
+  [83361] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6712), 1,
+      anon_sym_COLON,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84407] = 4,
-    ACTIONS(9800), 1,
+    ACTIONS(6710), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [83441] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6764), 1,
+      anon_sym_COLON,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6760), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [83521] = 4,
+    ACTIONS(9710), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9798), 8,
+    ACTIONS(9708), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -559034,7 +558127,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9802), 26,
+    ACTIONS(9712), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -559061,55 +558154,72 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [84453] = 4,
-    ACTIONS(9806), 1,
-      sym_preproc_comment,
+  [83567] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9580), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [84499] = 4,
-    ACTIONS(9812), 1,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9714), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [83647] = 4,
+    ACTIONS(9718), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9810), 8,
+    ACTIONS(9716), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -559118,7 +558228,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9814), 26,
+    ACTIONS(9720), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -559145,29 +558255,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [84545] = 8,
-    ACTIONS(9816), 1,
+  [83693] = 8,
+    ACTIONS(9722), 1,
       anon_sym_LPAREN2,
     STATE(668), 1,
       sym__end_of_statement,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(7142), 1,
+    STATE(6827), 1,
       sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9819), 2,
+    ACTIONS(9725), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    ACTIONS(4285), 6,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 23,
+    ACTIONS(4345), 23,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -559191,13 +558301,72 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [84599] = 4,
-    ACTIONS(9823), 1,
+  [83747] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9729), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9727), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [83827] = 4,
+    ACTIONS(9733), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9821), 8,
+    ACTIONS(9731), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -559206,7 +558375,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9825), 26,
+    ACTIONS(9735), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -559233,45 +558402,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [84645] = 11,
-    ACTIONS(8914), 1,
+  [83873] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    STATE(2961), 1,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    ACTIONS(9737), 1,
+      anon_sym_COMMA,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 3,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 22,
-      anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9739), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -559279,47 +558461,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [84705] = 10,
-    ACTIONS(8914), 1,
+  [83953] = 22,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    STATE(2961), 1,
-      sym_user_defined_operator,
-    STATE(4794), 1,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(9686), 1,
+      anon_sym_COMMA,
+    ACTIONS(9741), 1,
+      anon_sym_GT_GT_GT,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(7013), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 22,
-      anon_sym_COMMA,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -559327,57 +558521,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [84763] = 20,
+  [84035] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8964), 3,
+    ACTIONS(8960), 3,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_SEMI,
-    ACTIONS(9542), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559388,54 +558579,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [84841] = 20,
+  [84113] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    ACTIONS(9745), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
     ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    ACTIONS(9743), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8944), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-    ACTIONS(9542), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559446,48 +558638,94 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [84919] = 13,
+  [84193] = 4,
+    ACTIONS(9749), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9747), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9751), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [84239] = 15,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(8946), 1,
+      anon_sym_DOT,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
-    STATE(2961), 1,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 3,
+    ACTIONS(9755), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8960), 19,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8944), 9,
       anon_sym_COMMA,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9759), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -559495,58 +558733,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [84983] = 22,
+  [84307] = 22,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(9837), 1,
+    ACTIONS(9767), 1,
       anon_sym_COMMA,
-    ACTIONS(9839), 1,
+    ACTIONS(9769), 1,
       anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(7350), 1,
+    STATE(7337), 1,
       aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559557,34 +558793,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85065] = 4,
-    ACTIONS(9843), 1,
+  [84389] = 4,
+    ACTIONS(9773), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9841), 8,
+    ACTIONS(9771), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9845), 26,
+    ACTIONS(9775), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -559599,50 +558834,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [85111] = 16,
-    ACTIONS(8912), 1,
+      aux_sym_include_statement_token1,
+  [84435] = 22,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8914), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9851), 1,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    STATE(2961), 1,
-      sym_user_defined_operator,
-    STATE(4794), 1,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(9777), 1,
+      anon_sym_COMMA,
+    ACTIONS(9779), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(7466), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9849), 2,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 8,
-      anon_sym_COMMA,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9847), 10,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559653,34 +558895,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85181] = 4,
-    ACTIONS(9855), 1,
+  [84517] = 4,
+    ACTIONS(9783), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9853), 8,
+    ACTIONS(9781), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9857), 26,
+    ACTIONS(9785), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -559695,30 +558936,150 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [85227] = 8,
-    ACTIONS(9829), 1,
+      aux_sym_include_statement_token1,
+  [84563] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9548), 1,
+      anon_sym_COLON,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9787), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [84643] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9791), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9789), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [84723] = 9,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    STATE(2961), 1,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4651), 2,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 5,
+    ACTIONS(8950), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8952), 24,
+    ACTIONS(8948), 23,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_EQ_EQ,
@@ -559741,51 +559102,54 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [85281] = 17,
-    ACTIONS(8912), 1,
+  [84779] = 20,
+    ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9851), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9859), 1,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9793), 1,
       aux_sym_logical_expression_token1,
-    STATE(2961), 1,
+    ACTIONS(9795), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9799), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9801), 1,
+      anon_sym_QMARK,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9849), 2,
+    ACTIONS(9755), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4651), 2,
+    ACTIONS(9797), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 7,
+    ACTIONS(8960), 3,
       anon_sym_COMMA,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9847), 10,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559796,48 +559160,158 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85353] = 13,
-    ACTIONS(8914), 1,
+  [84857] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4347), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4349), 27,
+      anon_sym_COMMA,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [84901] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    STATE(2961), 1,
-      sym_user_defined_operator,
-    STATE(4794), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 3,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8934), 19,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9803), 3,
       anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_RBRACK,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [84979] = 22,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(9779), 1,
+      anon_sym_RPAREN,
+    ACTIONS(9805), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(7350), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -559845,56 +559319,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [85417] = 20,
+  [85061] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9682), 3,
+    ACTIONS(9594), 3,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_SEMI,
-    ACTIONS(9542), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -559905,55 +559377,327 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85495] = 18,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8940), 1,
+  [85139] = 4,
+    ACTIONS(9809), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9807), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9811), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [85185] = 21,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(9829), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9851), 1,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9859), 1,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(9815), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9813), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [85265] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    STATE(2961), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    ACTIONS(9817), 1,
+      anon_sym_COMMA,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9819), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [85345] = 4,
+    ACTIONS(9823), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9821), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9825), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [85391] = 4,
+    ACTIONS(9829), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9827), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9831), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [85437] = 4,
+    ACTIONS(9835), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9833), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9837), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [85483] = 8,
+    ACTIONS(9757), 1,
+      anon_sym_PERCENT,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8958), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9833), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9849), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9861), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 5,
+      anon_sym_DOT,
+    ACTIONS(8956), 24,
       anon_sym_COMMA,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9847), 10,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -559961,115 +559705,98 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85569] = 22,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
       anon_sym_QMARK,
-    ACTIONS(9837), 1,
-      anon_sym_COMMA,
-    ACTIONS(9863), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(7350), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+  [85537] = 4,
+    ACTIONS(9841), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [85651] = 21,
+    ACTIONS(9839), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9843), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [85583] = 18,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6918), 1,
-      anon_sym_COMMA,
-    ACTIONS(7519), 1,
+    ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9765), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
+    ACTIONS(9793), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9795), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6920), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(9536), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9797), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(8021), 5,
+      anon_sym_COMMA,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -560080,56 +559807,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85731] = 22,
+  [85657] = 22,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(9865), 1,
+    ACTIONS(9777), 1,
       anon_sym_COMMA,
-    ACTIONS(9867), 1,
+    ACTIONS(9845), 1,
       anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(7685), 1,
+    STATE(7466), 1,
       aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -560140,57 +559867,78 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85813] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [85739] = 4,
+    ACTIONS(9849), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9847), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9851), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [85785] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9869), 3,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 29,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_RBRACK,
-    ACTIONS(9438), 10,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560198,58 +559946,82 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85891] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9871), 1,
-      anon_sym_COMMA,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
+  [85829] = 4,
+    ACTIONS(9855), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9853), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9857), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [85875] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9873), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4391), 29,
       sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560257,58 +560029,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [85971] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9580), 1,
-      anon_sym_COLON,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
+  [85919] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(4347), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9875), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4349), 29,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RBRACK,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560316,58 +560070,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86051] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9879), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
+  [85963] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9877), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 29,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RBRACK,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560375,58 +560111,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86131] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9600), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
+  [86007] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(4321), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9881), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4323), 29,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560434,55 +560152,143 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86211] = 21,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [86051] = 4,
+    ACTIONS(9861), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9859), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9863), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [86097] = 4,
+    ACTIONS(9867), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9865), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [86143] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9885), 1,
+    ACTIONS(9548), 1,
       anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(9883), 2,
+    ACTIONS(9871), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -560493,87 +560299,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86291] = 9,
+  [86223] = 15,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    STATE(2961), 1,
+    ACTIONS(9763), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 5,
+    ACTIONS(9753), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8938), 23,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 9,
       anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [86347] = 7,
-    ACTIONS(5511), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(7757), 1,
-      anon_sym__,
-    STATE(3711), 1,
-      sym__kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5513), 3,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      aux_sym_end_do_loop_statement_token1,
-    ACTIONS(5515), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(5517), 23,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560581,53 +560352,92 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [86399] = 15,
+  [86291] = 4,
+    ACTIONS(9875), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9873), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9877), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [86337] = 16,
+    ACTIONS(8912), 1,
+      anon_sym_DOT,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(8958), 1,
-      anon_sym_DOT,
-    ACTIONS(9829), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
-    STATE(2961), 1,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9795), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9849), 2,
+    ACTIONS(9755), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4651), 2,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8956), 9,
+    ACTIONS(8910), 8,
       anon_sym_COMMA,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9847), 10,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -560638,13 +560448,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86467] = 4,
-    ACTIONS(9889), 1,
+  [86407] = 4,
+    ACTIONS(9881), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9887), 8,
+    ACTIONS(9879), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -560653,7 +560463,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9891), 26,
+    ACTIONS(9883), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -560680,34 +560490,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [86513] = 4,
-    ACTIONS(9895), 1,
+  [86453] = 4,
+    ACTIONS(9887), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9893), 8,
+    ACTIONS(9885), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9897), 26,
+    ACTIONS(9889), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -560722,34 +560531,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [86559] = 4,
-    ACTIONS(9901), 1,
+      aux_sym_include_statement_token1,
+  [86499] = 4,
+    ACTIONS(9893), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9899), 8,
+    ACTIONS(9891), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9903), 26,
+    ACTIONS(9895), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -560764,54 +560573,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [86605] = 20,
+      aux_sym_include_statement_token1,
+  [86545] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8914), 1,
+    ACTIONS(6892), 1,
+      anon_sym_COMMA,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9851), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9859), 1,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9905), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9907), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(2961), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(6894), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9849), 2,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9861), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4651), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8964), 3,
-      anon_sym_COMMA,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(9847), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -560822,32 +560633,44 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [86683] = 3,
+  [86625] = 13,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9757), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9763), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    STATE(3038), 1,
+      sym_user_defined_operator,
+    STATE(4877), 1,
+      sym__argument_list,
+    STATE(4892), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(9753), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8966), 3,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 29,
-      sym__external_end_of_statement,
+    ACTIONS(8964), 19,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -560859,81 +560682,141 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [86727] = 3,
+  [86689] = 4,
+    ACTIONS(9899), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4291), 29,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(9897), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9901), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [86735] = 4,
+    ACTIONS(9905), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9903), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9907), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [86781] = 18,
+    ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(8950), 1,
+      anon_sym_DOT,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
+    ACTIONS(9765), 1,
       anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [86771] = 3,
+    ACTIONS(9793), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9795), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3038), 1,
+      sym_user_defined_operator,
+    STATE(4877), 1,
+      sym__argument_list,
+    STATE(4892), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4293), 6,
+    ACTIONS(9753), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4295), 29,
-      sym__external_end_of_statement,
+    ACTIONS(9797), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8948), 5,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -560941,24 +560824,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [86815] = 3,
+  [86855] = 7,
+    ACTIONS(5511), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(7775), 1,
+      anon_sym__,
+    STATE(3757), 1,
+      sym__kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(5513), 3,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      aux_sym_end_do_loop_statement_token1,
+    ACTIONS(5515), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 29,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(5517), 23,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -560966,11 +560853,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -560986,32 +560869,40 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [86859] = 3,
+  [86907] = 10,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9757), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    STATE(3038), 1,
+      sym_user_defined_operator,
+    STATE(4877), 1,
+      sym__argument_list,
+    STATE(4892), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4297), 6,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4299), 29,
-      sym__external_end_of_statement,
+    ACTIONS(8948), 22,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -561024,160 +560915,47 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [86903] = 22,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
+  [86965] = 11,
+    ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9765), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(9839), 1,
-      anon_sym_RPAREN,
-    ACTIONS(9909), 1,
-      anon_sym_COMMA,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(4877), 1,
+      sym__argument_list,
+    STATE(4892), 1,
       sym_coarray_index,
-    STATE(7672), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(8950), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8948), 22,
+      anon_sym_COMMA,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [86985] = 4,
-    ACTIONS(9913), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9911), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87031] = 18,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9851), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9859), 1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
-    STATE(2961), 1,
-      sym_user_defined_operator,
-    STATE(4794), 1,
-      sym__argument_list,
-    STATE(4934), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9849), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9861), 2,
+      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4651), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 5,
-      anon_sym_COMMA,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(9847), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -561185,58 +560963,51 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [87105] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [87025] = 13,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9757), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9763), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9765), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(9919), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(4877), 1,
       sym__argument_list,
+    STATE(4892), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9755), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    STATE(4683), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8954), 3,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9917), 2,
+      anon_sym_DOT,
+    ACTIONS(8952), 19,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4359), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -561244,49 +561015,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [87185] = 15,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [87089] = 17,
     ACTIONS(8912), 1,
       anon_sym_DOT,
     ACTIONS(8914), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9829), 1,
+    ACTIONS(9757), 1,
       anon_sym_PERCENT,
-    ACTIONS(9831), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9835), 1,
+    ACTIONS(9763), 1,
       anon_sym_SLASH_SLASH,
-    STATE(2961), 1,
+    ACTIONS(9765), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9793), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9795), 1,
+      aux_sym_logical_expression_token2,
+    STATE(3038), 1,
       sym_user_defined_operator,
-    STATE(4794), 1,
+    STATE(4877), 1,
       sym__argument_list,
-    STATE(4934), 1,
+    STATE(4892), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9827), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9833), 2,
+    ACTIONS(9753), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9849), 2,
+    ACTIONS(9755), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9761), 2,
       anon_sym_GT,
       anon_sym_LT,
-    STATE(4651), 2,
+    STATE(4683), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 9,
+    ACTIONS(8910), 7,
       anon_sym_COMMA,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(9847), 10,
+    ACTIONS(9759), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -561297,31 +561072,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [87253] = 3,
+  [87161] = 4,
+    ACTIONS(9911), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 13,
+    ACTIONS(9909), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9913), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561336,32 +561114,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87296] = 3,
+  [87207] = 4,
+    ACTIONS(9917), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 13,
+    ACTIONS(9915), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9919), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561376,12 +561156,120 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87339] = 3,
+  [87253] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9921), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [87330] = 15,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8946), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8944), 7,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [87397] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 13,
+    ACTIONS(4543), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561395,7 +561283,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(4545), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561417,11 +561305,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [87382] = 3,
+  [87440] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 13,
+    ACTIONS(9935), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561435,7 +561323,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(9937), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561457,31 +561345,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [87425] = 3,
+  [87483] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 13,
+    ACTIONS(9432), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9434), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561496,12 +561385,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87468] = 3,
+  [87526] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 13,
+    ACTIONS(9865), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561515,7 +561403,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(9869), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561537,31 +561425,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [87511] = 3,
+  [87569] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 13,
+    ACTIONS(9939), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9941), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561576,33 +561465,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87554] = 3,
+  [87612] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9937), 8,
+    ACTIONS(9891), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9939), 26,
+    ACTIONS(9895), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561617,11 +561504,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87597] = 3,
+      aux_sym_include_statement_token1,
+  [87655] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9520), 8,
+    ACTIONS(9879), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561630,7 +561518,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9522), 26,
+    ACTIONS(9883), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561657,32 +561545,88 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87640] = 3,
+  [87698] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9943), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [87775] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9456), 8,
+    ACTIONS(9945), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9458), 26,
+    ACTIONS(9947), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561697,11 +561641,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87683] = 3,
+      aux_sym_include_statement_token1,
+  [87818] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9468), 8,
+    ACTIONS(9949), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561710,7 +561655,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9470), 26,
+    ACTIONS(9951), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561737,88 +561682,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87726] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9941), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [87803] = 3,
+  [87861] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 13,
+    ACTIONS(9520), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9522), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -561833,53 +561722,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [87846] = 4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9943), 4,
-      aux_sym__import_names_token1,
-      aux_sym_coarray_statement_token3,
-      aux_sym_coarray_statement_token4,
-      aux_sym_coarray_statement_token5,
-    ACTIONS(4285), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 24,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [87891] = 3,
+  [87904] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9480), 8,
+    ACTIONS(9492), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561888,7 +561735,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9482), 26,
+    ACTIONS(9494), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561915,11 +561762,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87934] = 3,
+  [87947] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9488), 8,
+    ACTIONS(9915), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561928,7 +561775,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9490), 26,
+    ACTIONS(9919), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561955,11 +561802,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [87977] = 3,
+  [87990] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 13,
+    ACTIONS(4539), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -561973,7 +561820,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(4541), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -561995,32 +561842,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88020] = 3,
+  [88033] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9492), 8,
+    ACTIONS(9953), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9494), 26,
+    ACTIONS(9955), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562035,32 +561881,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88063] = 3,
+      aux_sym_include_statement_token1,
+  [88076] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9496), 8,
+    ACTIONS(9957), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9498), 26,
+    ACTIONS(9959), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562075,32 +561921,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88106] = 3,
+      aux_sym_include_statement_token1,
+  [88119] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9504), 8,
+    ACTIONS(4625), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9506), 26,
+    ACTIONS(4627), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562115,31 +561961,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88149] = 3,
+      aux_sym_include_statement_token1,
+  [88162] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 13,
+    ACTIONS(9468), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9470), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562154,12 +562002,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88192] = 3,
+  [88205] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 13,
+    ACTIONS(9961), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562173,7 +562020,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(9963), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562195,11 +562042,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88235] = 3,
+  [88248] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9953), 8,
+    ACTIONS(9965), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562208,7 +562055,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9955), 26,
+    ACTIONS(9967), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562235,11 +562082,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88278] = 3,
+  [88291] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 13,
+    ACTIONS(4637), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562253,7 +562100,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(4639), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562275,31 +562122,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88321] = 3,
+  [88334] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 13,
+    ACTIONS(9480), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9482), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562314,12 +562162,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88364] = 3,
+  [88377] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9821), 8,
+    ACTIONS(9969), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562328,7 +562175,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9825), 26,
+    ACTIONS(9971), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562355,11 +562202,106 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88407] = 3,
+  [88420] = 11,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 4,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8948), 20,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [88479] = 10,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8948), 20,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [88536] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 13,
+    ACTIONS(4531), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562373,7 +562315,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
+    ACTIONS(4533), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562395,11 +562337,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88450] = 3,
+  [88579] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9969), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562408,7 +562350,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9971), 26,
+    ACTIONS(4483), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562435,11 +562377,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88493] = 3,
+  [88622] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 13,
+    ACTIONS(4527), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562453,7 +562395,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
+    ACTIONS(4529), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562475,32 +562417,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88536] = 3,
+  [88665] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9977), 8,
+    ACTIONS(4621), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9979), 26,
+    ACTIONS(4623), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562515,32 +562456,454 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88579] = 3,
+      aux_sym_include_statement_token1,
+  [88708] = 13,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8966), 4,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8964), 17,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [88771] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9973), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [88848] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9975), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [88925] = 15,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8912), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 7,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [88992] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8023), 1,
+      anon_sym_EQ,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8021), 3,
+      anon_sym_EQ_GT,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [89067] = 17,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8912), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 5,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [89138] = 13,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8954), 4,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8952), 17,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [89201] = 9,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8950), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8948), 21,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [89256] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9460), 8,
+    ACTIONS(4615), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9462), 26,
+    ACTIONS(4617), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562555,11 +562918,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88622] = 3,
+      aux_sym_include_statement_token1,
+  [89299] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9981), 8,
+    ACTIONS(9436), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562568,7 +562932,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9983), 26,
+    ACTIONS(9438), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562595,31 +562959,144 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [88665] = 3,
+  [89342] = 18,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8950), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8948), 3,
+      anon_sym_EQ_GT,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [89415] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
+      anon_sym_QMARK,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9600), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9602), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9606), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9616), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9983), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9604), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [89492] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 13,
+    ACTIONS(9985), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9987), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562634,12 +563111,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88708] = 3,
+  [89535] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 13,
+    ACTIONS(4535), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562653,7 +563129,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4537), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562675,51 +563151,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88751] = 3,
+  [89578] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9444), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9446), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [88794] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4629), 13,
+    ACTIONS(4445), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562733,7 +563169,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(4447), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562755,31 +563191,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [88837] = 3,
+  [89621] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 13,
+    ACTIONS(9484), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9486), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562794,32 +563231,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88880] = 3,
+  [89664] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 13,
+    ACTIONS(9989), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9991), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562834,32 +563271,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88923] = 3,
+  [89707] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 13,
+    ACTIONS(9488), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9490), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562874,32 +563311,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [88966] = 3,
+  [89750] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 13,
+    ACTIONS(9993), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9995), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562914,32 +563351,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [89009] = 3,
+  [89793] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 13,
+    ACTIONS(9440), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9442), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -562954,12 +563391,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [89052] = 3,
+  [89836] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 13,
+    ACTIONS(9997), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -562973,7 +563409,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
+    ACTIONS(9999), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -562995,11 +563431,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89095] = 3,
+  [89879] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9508), 8,
+    ACTIONS(9428), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563008,7 +563444,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9510), 26,
+    ACTIONS(9430), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563035,11 +563471,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89138] = 3,
+  [89922] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 13,
+    ACTIONS(4469), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563053,7 +563489,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(4471), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563075,51 +563511,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89181] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9993), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9995), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [89224] = 3,
+  [89965] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9997), 8,
+    ACTIONS(9897), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563128,7 +563524,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9999), 26,
+    ACTIONS(9901), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563155,11 +563551,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89267] = 3,
+  [90008] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9530), 8,
+    ACTIONS(10001), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563168,7 +563564,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 26,
+    ACTIONS(10003), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563195,32 +563591,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89310] = 3,
+  [90051] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9464), 8,
+    ACTIONS(10005), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9466), 26,
+    ACTIONS(10007), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563235,11 +563630,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89353] = 3,
+      aux_sym_include_statement_token1,
+  [90094] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 13,
+    ACTIONS(9821), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563253,7 +563649,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(9825), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563275,11 +563671,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89396] = 3,
+  [90137] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563288,7 +563684,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 26,
+    ACTIONS(4537), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563315,118 +563711,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89439] = 10,
-    ACTIONS(10001), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(10005), 1,
-      aux_sym__standalone_type_qualifier_token3,
-    ACTIONS(10007), 1,
-      aux_sym__standalone_type_qualifier_token4,
-    ACTIONS(10009), 1,
-      aux_sym__standalone_type_qualifier_token6,
-    ACTIONS(10011), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(4030), 1,
-      sym__standalone_type_qualifier,
+  [90180] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10013), 2,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-    STATE(3993), 2,
-      sym_language_binding,
-      sym_type_qualifier,
-    ACTIONS(10003), 24,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
-  [89496] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9728), 13,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [89539] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4569), 13,
+    ACTIONS(9716), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9720), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563441,12 +563751,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [89582] = 3,
+  [90223] = 8,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8958), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8956), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [90276] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563455,7 +563809,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 26,
+    ACTIONS(4541), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563482,31 +563836,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89625] = 3,
+  [90319] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 13,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4545), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563521,12 +563876,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [89668] = 3,
+  [90362] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(9500), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563535,7 +563889,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 26,
+    ACTIONS(9502), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563562,32 +563916,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89711] = 3,
+  [90405] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9853), 8,
+    ACTIONS(4461), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9857), 26,
+    ACTIONS(4463), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563602,11 +563955,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89754] = 3,
+      aux_sym_include_statement_token1,
+  [90448] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 13,
+    ACTIONS(4603), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563620,7 +563974,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(4605), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563642,11 +563996,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89797] = 3,
+  [90491] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 13,
+    ACTIONS(4397), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563660,7 +564014,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(4399), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563682,11 +564036,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89840] = 3,
+  [90534] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 13,
+    ACTIONS(10009), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563700,7 +564054,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(10011), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563722,32 +564076,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [89883] = 3,
+  [90577] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10019), 8,
+    ACTIONS(4607), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10021), 26,
+    ACTIONS(4609), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563762,11 +564115,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89926] = 3,
+      aux_sym_include_statement_token1,
+  [90620] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10023), 8,
+    ACTIONS(10013), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563775,7 +564129,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10025), 26,
+    ACTIONS(10015), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563802,32 +564156,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [89969] = 3,
+  [90663] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(4599), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 26,
+    ACTIONS(4601), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563842,11 +564195,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90012] = 3,
+      aux_sym_include_statement_token1,
+  [90706] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(10017), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563855,7 +564209,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 26,
+    ACTIONS(10019), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563882,11 +564236,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90055] = 3,
+  [90749] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9484), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563895,7 +564249,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9486), 26,
+    ACTIONS(4605), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -563922,32 +564276,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90098] = 3,
+  [90792] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(4481), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 26,
+    ACTIONS(4483), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -563962,11 +564315,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90141] = 3,
+      aux_sym_include_statement_token1,
+  [90835] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9452), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -563975,7 +564329,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9454), 26,
+    ACTIONS(4471), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564002,11 +564356,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90184] = 3,
+  [90878] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9710), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564015,7 +564369,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9714), 26,
+    ACTIONS(4399), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564042,31 +564396,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90227] = 3,
+  [90921] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 13,
+    ACTIONS(10021), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10023), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564081,12 +564436,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [90270] = 3,
+  [90964] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 13,
+    ACTIONS(10025), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564100,7 +564454,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(10027), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564122,11 +564476,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [90313] = 3,
+  [91007] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564135,7 +564489,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 26,
+    ACTIONS(4601), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564162,11 +564516,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90356] = 3,
+  [91050] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(9504), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564175,7 +564529,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 26,
+    ACTIONS(9506), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564202,89 +564556,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90399] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10035), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [90476] = 3,
+  [91093] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
+    ACTIONS(4595), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 26,
+    ACTIONS(4597), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564299,11 +564595,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90519] = 3,
+      aux_sym_include_statement_token1,
+  [91136] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 13,
+    ACTIONS(10029), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564317,7 +564614,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(10031), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564339,53 +564636,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [90562] = 20,
+  [91179] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10037), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
+    ACTIONS(10033), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -564396,11 +564693,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [90639] = 3,
+  [91256] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564409,7 +564706,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 26,
+    ACTIONS(4593), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564436,11 +564733,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90682] = 3,
+  [91299] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(9692), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564449,7 +564746,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 26,
+    ACTIONS(9694), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564476,11 +564773,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90725] = 3,
+  [91342] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564489,7 +564786,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 26,
+    ACTIONS(4589), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564516,11 +564813,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90768] = 3,
+  [91385] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564529,7 +564826,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 26,
+    ACTIONS(4585), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564556,53 +564853,111 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90811] = 20,
+  [91428] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(10035), 1,
+      anon_sym_RPAREN,
+    ACTIONS(10037), 1,
+      anon_sym_EQ_GT,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [91507] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9608), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
     ACTIONS(10039), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -564613,32 +564968,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [90888] = 3,
+  [91584] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(7547), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 26,
+    ACTIONS(7549), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564653,32 +565007,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90931] = 3,
+      aux_sym_include_statement_token1,
+  [91627] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(4591), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 26,
+    ACTIONS(4593), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564693,11 +565047,65 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [90974] = 3,
+      aux_sym_include_statement_token1,
+  [91670] = 16,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8912), 2,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(8910), 6,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [91739] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564706,7 +565114,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 26,
+    ACTIONS(4627), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564733,11 +565141,68 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91017] = 3,
+  [91782] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9448), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(10041), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [91859] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -564746,7 +565211,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 26,
+    ACTIONS(4533), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -564773,32 +565238,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91060] = 3,
+  [91902] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(4587), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 26,
+    ACTIONS(4589), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564813,32 +565277,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91103] = 3,
+      aux_sym_include_statement_token1,
+  [91945] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(10043), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 26,
+    ACTIONS(10045), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564853,31 +565317,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91146] = 3,
+      aux_sym_include_statement_token1,
+  [91988] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 13,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4639), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564892,32 +565358,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [91189] = 3,
+  [92031] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 13,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4597), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -564932,116 +565398,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [91232] = 9,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8938), 21,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [91287] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(9702), 1,
-      anon_sym_RPAREN,
-    ACTIONS(10041), 1,
-      anon_sym_COMMA,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [91366] = 3,
+  [92074] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565050,7 +565411,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 26,
+    ACTIONS(4609), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565077,32 +565438,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91409] = 3,
+  [92117] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(10047), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 26,
+    ACTIONS(10049), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -565117,11 +565477,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91452] = 3,
+      aux_sym_include_statement_token1,
+  [92160] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(9496), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565130,7 +565491,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 26,
+    ACTIONS(9498), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565157,11 +565518,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91495] = 3,
+  [92203] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565170,7 +565531,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 26,
+    ACTIONS(4529), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565197,68 +565558,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91538] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9877), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [91615] = 3,
+  [92246] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10043), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565267,7 +565571,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10045), 26,
+    ACTIONS(4617), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565294,68 +565598,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91658] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(9883), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [91735] = 3,
+  [92289] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10047), 8,
+    ACTIONS(10051), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565364,7 +565611,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10049), 26,
+    ACTIONS(10053), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565391,11 +565638,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [91778] = 3,
+  [92332] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 13,
+    ACTIONS(4583), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565409,7 +565656,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(4585), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565431,524 +565678,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [91821] = 18,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10059), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8940), 2,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10063), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8938), 3,
-      anon_sym_EQ_GT,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [91894] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10069), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [91971] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10071), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [92048] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10073), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [92125] = 11,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 4,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8938), 20,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [92184] = 8,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8954), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8952), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [92237] = 10,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8940), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8938), 20,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [92294] = 10,
-    ACTIONS(10001), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(10005), 1,
-      aux_sym__standalone_type_qualifier_token3,
-    ACTIONS(10007), 1,
-      aux_sym__standalone_type_qualifier_token4,
-    ACTIONS(10009), 1,
-      aux_sym__standalone_type_qualifier_token6,
-    ACTIONS(10011), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(4030), 1,
-      sym__standalone_type_qualifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10013), 2,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-    STATE(3418), 2,
-      sym_language_binding,
-      sym_type_qualifier,
-    ACTIONS(10003), 24,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
-  [92351] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(10075), 1,
-      anon_sym_RPAREN,
-    ACTIONS(10077), 1,
-      anon_sym_EQ_GT,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [92430] = 20,
+  [92375] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10079), 2,
+    ACTIONS(10055), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -565959,11 +565735,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [92507] = 3,
+  [92452] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10081), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -565972,7 +565748,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10083), 26,
+    ACTIONS(4623), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -565999,32 +565775,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92550] = 3,
+  [92495] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9476), 8,
+    ACTIONS(10057), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9478), 26,
+    ACTIONS(10059), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -566039,11 +565814,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92593] = 3,
+      aux_sym_include_statement_token1,
+  [92538] = 10,
+    ACTIONS(10061), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(10065), 1,
+      aux_sym__standalone_type_qualifier_token3,
+    ACTIONS(10067), 1,
+      aux_sym__standalone_type_qualifier_token4,
+    ACTIONS(10069), 1,
+      aux_sym__standalone_type_qualifier_token6,
+    ACTIONS(10071), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(4053), 1,
+      sym__standalone_type_qualifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9472), 8,
+    ACTIONS(10073), 2,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+    STATE(4047), 2,
+      sym_language_binding,
+      sym_type_qualifier,
+    ACTIONS(10063), 24,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
+      aux_sym_variable_attributes_token5,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
+  [92595] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9508), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566052,7 +565875,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9474), 26,
+    ACTIONS(9510), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566079,11 +565902,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92636] = 3,
+  [92638] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9893), 8,
+    ACTIONS(9512), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566092,7 +565915,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9897), 26,
+    ACTIONS(9514), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566119,11 +565942,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92679] = 3,
+  [92681] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9424), 8,
+    ACTIONS(9516), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566132,7 +565955,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9426), 26,
+    ACTIONS(9518), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566159,32 +565982,129 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92722] = 3,
+  [92724] = 21,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(10075), 1,
+      anon_sym_EQ,
+    ACTIONS(10077), 1,
+      anon_sym_EQ_GT,
+    ACTIONS(10079), 1,
+      anon_sym_QMARK,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9500), 8,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [92803] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4513), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4515), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [92846] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10081), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9502), 26,
+    ACTIONS(10083), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -566199,11 +566119,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92765] = 3,
+      aux_sym_include_statement_token1,
+  [92889] = 10,
+    ACTIONS(10061), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(10065), 1,
+      aux_sym__standalone_type_qualifier_token3,
+    ACTIONS(10067), 1,
+      aux_sym__standalone_type_qualifier_token4,
+    ACTIONS(10069), 1,
+      aux_sym__standalone_type_qualifier_token6,
+    ACTIONS(10071), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(4053), 1,
+      sym__standalone_type_qualifier,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9512), 8,
+    ACTIONS(10073), 2,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+    STATE(3416), 2,
+      sym_language_binding,
+      sym_type_qualifier,
+    ACTIONS(10063), 24,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
+      aux_sym_variable_attributes_token5,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
+  [92946] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566212,7 +566180,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9514), 26,
+    ACTIONS(4447), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566239,11 +566207,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92808] = 3,
+  [92989] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9516), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566252,7 +566220,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9518), 26,
+    ACTIONS(4463), 26,
       aux_sym_module_statement_token1,
       aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566279,119 +566247,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [92851] = 15,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8958), 2,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8956), 7,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [92918] = 19,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8247), 1,
-      anon_sym_EQ,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10059), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10063), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8245), 3,
-      anon_sym_EQ_GT,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [92993] = 3,
+  [93032] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 13,
+    ACTIONS(10085), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -566405,7 +566265,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(10087), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -566427,31 +566287,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [93036] = 3,
+  [93075] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 13,
+    ACTIONS(9424), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9426), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -566466,86 +566327,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [93079] = 17,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10059), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8912), 2,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 5,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93150] = 3,
+  [93118] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 13,
+    ACTIONS(10089), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10091), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -566560,32 +566367,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [93193] = 3,
+  [93161] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 13,
+    ACTIONS(9444), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9446), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -566600,333 +566407,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [93236] = 10,
-    ACTIONS(10001), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(10005), 1,
-      aux_sym__standalone_type_qualifier_token3,
-    ACTIONS(10007), 1,
-      aux_sym__standalone_type_qualifier_token4,
-    ACTIONS(10009), 1,
-      aux_sym__standalone_type_qualifier_token6,
-    ACTIONS(10011), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(4030), 1,
-      sym__standalone_type_qualifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10013), 2,
-      aux_sym_type_qualifier_token1,
-      aux_sym_type_qualifier_token2,
-    STATE(3423), 2,
-      sym_language_binding,
-      sym_type_qualifier,
-    ACTIONS(10003), 24,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_use_statement_token2,
-      aux_sym_implicit_statement_token4,
-      aux_sym_save_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_abstract_specifier_token1,
-      aux_sym_procedure_attribute_token6,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-      aux_sym__standalone_type_qualifier_token1,
-      aux_sym__standalone_type_qualifier_token2,
-      aux_sym__standalone_type_qualifier_token5,
-      aux_sym__standalone_type_qualifier_token10,
-      aux_sym__standalone_type_qualifier_token11,
-      aux_sym__standalone_type_qualifier_token12,
-      aux_sym__standalone_type_qualifier_token14,
-      aux_sym__standalone_type_qualifier_token15,
-      aux_sym__standalone_type_qualifier_token16,
-      aux_sym__standalone_type_qualifier_token17,
-  [93293] = 21,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10059), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(10085), 1,
-      anon_sym_EQ,
-    ACTIONS(10087), 1,
-      anon_sym_EQ_GT,
-    ACTIONS(10089), 1,
-      anon_sym_QMARK,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10063), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93372] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [93204] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(10093), 4,
+      aux_sym__import_names_token1,
+      aux_sym_coarray_statement_token3,
+      aux_sym_coarray_statement_token4,
+      aux_sym_coarray_statement_token5,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10091), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93449] = 20,
-    ACTIONS(167), 1,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
+    ACTIONS(4345), 24,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10093), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93526] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10095), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93603] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10097), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -566934,61 +566444,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [93680] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10065), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
       anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8936), 4,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8934), 17,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [93743] = 3,
+  [93249] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 13,
+    ACTIONS(10095), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -567002,7 +566466,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(10097), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -567024,31 +566488,32 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [93786] = 3,
+  [93292] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 13,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4499), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -567063,105 +566528,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [93829] = 20,
+  [93335] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10103), 2,
+    ACTIONS(10099), 2,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [93906] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    STATE(4360), 2,
+      anon_sym_RBRACK,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8962), 4,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8960), 17,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -567169,112 +566585,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [93969] = 20,
+  [93412] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9554), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10105), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [94046] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9624), 1,
-      anon_sym_QMARK,
-    STATE(3010), 1,
-      sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(4708), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10107), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(4367), 2,
+    ACTIONS(10101), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567285,106 +566642,93 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94123] = 16,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+  [93489] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8912), 2,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 6,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [94192] = 20,
+    ACTIONS(9747), 13,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9751), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [93532] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10109), 2,
+    ACTIONS(10103), 2,
       anon_sym_COMMA,
       anon_sym_RBRACK,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567395,53 +566739,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94269] = 20,
+  [93609] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10111), 2,
+    ACTIONS(10105), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567452,105 +566796,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94346] = 20,
+  [93686] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10113), 2,
+    ACTIONS(10107), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(4367), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [94423] = 15,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(10065), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8912), 2,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(10057), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    STATE(4360), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(8910), 7,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-    ACTIONS(10055), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567561,93 +566853,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94490] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10115), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(10117), 26,
-      aux_sym_module_statement_token1,
-      aux_sym_end_interface_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [94533] = 20,
+  [93763] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7525), 1,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9540), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9546), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9548), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9550), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
     ACTIONS(9624), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(4708), 1,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9544), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9554), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10119), 2,
+    ACTIONS(10109), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(4367), 2,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9542), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567658,11 +566910,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94610] = 3,
+  [93840] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 13,
+    ACTIONS(7555), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -567676,7 +566928,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(7557), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -567698,11 +566950,51 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [94653] = 3,
+  [93883] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9476), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9478), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [93926] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 13,
+    ACTIONS(10111), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -567716,7 +567008,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(10113), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -567738,92 +567030,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [94696] = 20,
+  [93969] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10125), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    ACTIONS(10115), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [94772] = 5,
-    ACTIONS(10127), 1,
-      anon_sym__,
-    STATE(4727), 1,
-      sym__kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5515), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(5517), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -567831,56 +567087,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [94818] = 20,
+  [94046] = 21,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(8952), 1,
-      anon_sym_RPAREN,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    ACTIONS(9739), 1,
+      anon_sym_RPAREN,
+    ACTIONS(10117), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -567891,77 +567145,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [94894] = 5,
-    ACTIONS(10129), 1,
-      anon_sym_COMMA,
-    STATE(4653), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9614), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9616), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [94940] = 5,
-    STATE(4794), 1,
+  [94125] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
       sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4655), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9100), 5,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(9098), 25,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9789), 2,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+      anon_sym_RPAREN,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -567969,138 +567202,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [94986] = 5,
-    ACTIONS(10129), 1,
-      anon_sym_COMMA,
-    STATE(4658), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9530), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [95032] = 5,
-    ACTIONS(10129), 1,
-      anon_sym_COMMA,
-    STATE(4678), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9530), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [95078] = 20,
+  [94202] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    ACTIONS(9839), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    ACTIONS(10119), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568111,37 +567259,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [95154] = 6,
-    ACTIONS(9136), 1,
+  [94279] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    STATE(4794), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
       sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(4655), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9134), 5,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(9132), 24,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9743), 2,
       anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+      anon_sym_RBRACK,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -568149,96 +567316,56 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [95202] = 20,
+  [94356] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7523), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9612), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    ACTIONS(10131), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3169), 1,
       sym__argument_list,
+    STATE(4741), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    ACTIONS(10121), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [95278] = 5,
-    ACTIONS(10127), 1,
-      anon_sym__,
-    STATE(4707), 1,
-      sym__kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7755), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(7753), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -568246,27 +567373,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [95324] = 5,
-    ACTIONS(10129), 1,
-      anon_sym_COMMA,
-    STATE(4678), 1,
-      aux_sym_parameters_repeat1,
+  [94433] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9634), 2,
-      aux_sym_preproc_elif_token1,
+    ACTIONS(9472), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9636), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+    ACTIONS(9474), 26,
       aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
@@ -568291,52 +567413,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [95370] = 20,
+  [94476] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(7523), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9612), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9614), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9624), 1,
       anon_sym_QMARK,
-    ACTIONS(10133), 1,
-      anon_sym_COMMA,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    STATE(3036), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(4741), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9606), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9616), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    ACTIONS(10123), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(4381), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9604), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568347,11 +567470,98 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [95446] = 3,
+  [94553] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4513), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4515), 26,
+      aux_sym_module_statement_token1,
+      aux_sym_end_interface_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [94596] = 10,
+    ACTIONS(10061), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(10065), 1,
+      aux_sym__standalone_type_qualifier_token3,
+    ACTIONS(10067), 1,
+      aux_sym__standalone_type_qualifier_token4,
+    ACTIONS(10069), 1,
+      aux_sym__standalone_type_qualifier_token6,
+    ACTIONS(10071), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(4053), 1,
+      sym__standalone_type_qualifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10073), 2,
+      aux_sym_type_qualifier_token1,
+      aux_sym_type_qualifier_token2,
+    STATE(3433), 2,
+      sym_language_binding,
+      sym_type_qualifier,
+    ACTIONS(10063), 24,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_use_statement_token2,
+      aux_sym_implicit_statement_token4,
+      aux_sym_save_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_abstract_specifier_token1,
+      aux_sym_procedure_attribute_token6,
+      aux_sym_variable_attributes_token1,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
+      aux_sym_variable_attributes_token5,
+      aux_sym__standalone_type_qualifier_token1,
+      aux_sym__standalone_type_qualifier_token2,
+      aux_sym__standalone_type_qualifier_token5,
+      aux_sym__standalone_type_qualifier_token10,
+      aux_sym__standalone_type_qualifier_token11,
+      aux_sym__standalone_type_qualifier_token12,
+      aux_sym__standalone_type_qualifier_token14,
+      aux_sym__standalone_type_qualifier_token15,
+      aux_sym__standalone_type_qualifier_token16,
+      aux_sym__standalone_type_qualifier_token17,
+  [94653] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 12,
+    ACTIONS(4497), 13,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -568363,9 +567573,10 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4287), 21,
-      sym_preproc_comment,
+    ACTIONS(4499), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -568386,18 +567597,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [95488] = 5,
-    ACTIONS(10129), 1,
+  [94696] = 5,
+    ACTIONS(10125), 1,
       anon_sym_COMMA,
-    STATE(4662), 1,
+    STATE(4679), 1,
       aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9674), 2,
+    ACTIONS(9692), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9676), 29,
+    ACTIONS(9694), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -568427,33 +567638,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [95534] = 5,
-    ACTIONS(10129), 1,
-      anon_sym_COMMA,
-    STATE(4678), 1,
-      aux_sym_parameters_repeat1,
+  [94742] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9647), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9649), 29,
+    ACTIONS(4343), 12,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
       aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4345), 21,
+      sym_preproc_comment,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -568468,123 +567676,90 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [95580] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(10135), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+      aux_sym_include_statement_token1,
+  [94784] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [95656] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(9863), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
+    ACTIONS(4389), 12,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4391), 21,
+      sym_preproc_comment,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [94826] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [95732] = 3,
+    ACTIONS(4343), 12,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4345), 21,
+      sym_preproc_comment,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [94868] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4297), 12,
+    ACTIONS(4347), 12,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -568597,7 +567772,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_elifdef_token2,
       sym_preproc_directive,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4299), 21,
+    ACTIONS(4349), 21,
       sym_preproc_comment,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -568619,52 +567794,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [95774] = 20,
+  [94910] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10137), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(9845), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568675,52 +567850,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [95850] = 20,
+  [94986] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(8956), 1,
+      anon_sym_RPAREN,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10139), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568731,52 +567906,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [95926] = 20,
+  [95062] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10141), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(10127), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568787,52 +567962,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96002] = 20,
+  [95138] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    ACTIONS(10143), 1,
+    ACTIONS(10129), 1,
       anon_sym_COLON,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -568843,164 +568018,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96078] = 20,
+  [95214] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(10145), 1,
-      anon_sym_COMMA,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [96154] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10147), 1,
+    ACTIONS(10131), 1,
       anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [96230] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
-      anon_sym_QMARK,
-    ACTIONS(10149), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569011,63 +568074,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96306] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4289), 12,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4291), 21,
-      sym_preproc_comment,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [96348] = 6,
-    ACTIONS(10151), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10153), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(10155), 1,
-      aux_sym_select_case_statement_token2,
+  [95290] = 5,
+    STATE(207), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4297), 6,
+    ACTIONS(10133), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4299), 24,
+    ACTIONS(4345), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -569092,108 +568115,52 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [96396] = 20,
+  [95336] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
-      anon_sym_QMARK,
-    ACTIONS(10039), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
-      sym_user_defined_operator,
-    STATE(3747), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    STATE(4360), 2,
-      sym_argument_list,
-      aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-  [96472] = 20,
-    ACTIONS(167), 1,
-      anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    ACTIONS(10157), 1,
-      anon_sym_RPAREN,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3096), 1,
+    ACTIONS(10135), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569204,57 +568171,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96548] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4293), 12,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4295), 21,
-      sym_preproc_comment,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [96590] = 5,
-    ACTIONS(10159), 1,
+  [95412] = 5,
+    ACTIONS(10125), 1,
       anon_sym_COMMA,
-    STATE(4678), 1,
+    STATE(4664), 1,
       aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9638), 2,
+    ACTIONS(9692), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9640), 29,
+    ACTIONS(9694), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -569284,52 +568212,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [96636] = 20,
+  [95458] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    ACTIONS(10162), 1,
+    ACTIONS(10137), 1,
       anon_sym_COLON,
-    STATE(3001), 1,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
+    STATE(3973), 1,
       sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569340,52 +568268,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96712] = 20,
+  [95534] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10164), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(10139), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569396,52 +568324,93 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96788] = 20,
+  [95610] = 5,
+    ACTIONS(10125), 1,
+      anon_sym_COMMA,
+    STATE(4674), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9656), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9658), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [95656] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10107), 1,
+    ACTIONS(10141), 1,
       anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569452,30 +568421,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [96864] = 3,
+  [95732] = 5,
+    ACTIONS(10143), 1,
+      anon_sym_COMMA,
+    STATE(4664), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 12,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
+    ACTIONS(9632), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9634), 29,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
       aux_sym_preproc_else_token1,
-      aux_sym_preproc_elif_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-      sym_preproc_directive,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4287), 21,
-      sym_preproc_comment,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -569490,33 +568462,89 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [96906] = 5,
-    STATE(205), 1,
-      sym__end_of_statement,
+  [95778] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(10146), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10166), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(4285), 6,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 24,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [95854] = 6,
+    ACTIONS(9014), 1,
       anon_sym_LPAREN2,
+    STATE(4877), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(4666), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9012), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(9010), 24,
+      anon_sym_COMMA,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -569532,52 +568560,52 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [96952] = 20,
+  [95902] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(9632), 1,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10168), 1,
+    ACTIONS(9779), 1,
       anon_sym_RPAREN,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9440), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9450), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569588,52 +568616,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97028] = 20,
+  [95978] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    ACTIONS(10170), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+    ACTIONS(9975), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569644,52 +568672,93 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97104] = 20,
-    ACTIONS(167), 1,
+  [96054] = 5,
+    ACTIONS(10148), 1,
+      anon_sym__,
+    STATE(4724), 1,
+      sym__kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7773), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9556), 1,
+    ACTIONS(7771), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
-    ACTIONS(9582), 1,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
-    ACTIONS(9584), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(9588), 1,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9590), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9594), 1,
+      anon_sym_LBRACK,
       anon_sym_QMARK,
-    ACTIONS(10172), 1,
-      anon_sym_COLON,
-    STATE(3001), 1,
+  [96100] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
+      anon_sym_QMARK,
+    ACTIONS(10150), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
-    STATE(3974), 1,
-      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9572), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9574), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(9578), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(9586), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4359), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9576), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569700,50 +568769,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97180] = 19,
+  [96176] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10059), 1,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
-      anon_sym_STAR_STAR,
-    ACTIONS(10089), 1,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    ACTIONS(10152), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3025), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10051), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10053), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(10057), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10063), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(10055), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569754,21 +568825,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97253] = 4,
+  [96252] = 5,
+    ACTIONS(10148), 1,
+      anon_sym__,
+    STATE(4764), 1,
+      sym__kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10174), 2,
-      aux_sym_coarray_statement_token9,
-      aux_sym_coarray_statement_token10,
-    ACTIONS(4285), 6,
+    ACTIONS(5515), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 24,
+    ACTIONS(5517), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -569776,8 +568849,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -569793,35 +568866,137 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [97296] = 5,
-    ACTIONS(10176), 1,
-      aux_sym_do_loop_statement_token1,
-    ACTIONS(10178), 1,
-      aux_sym__forall_control_expression_token1,
+  [96298] = 5,
+    ACTIONS(10125), 1,
+      anon_sym_COMMA,
+    STATE(4659), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
+    ACTIONS(9668), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9670), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [96344] = 5,
+    ACTIONS(10125), 1,
+      anon_sym_COMMA,
+    STATE(4664), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9636), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9638), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [96390] = 20,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
+      anon_sym_QMARK,
+    ACTIONS(10154), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9534), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -569829,54 +569004,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [97341] = 19,
+  [96466] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(7519), 1,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
     ACTIONS(9540), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9550), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(9552), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10059), 1,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(10089), 1,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    STATE(3010), 1,
+    ACTIONS(10156), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9536), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(9538), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(10057), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10063), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4367), 2,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(10055), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569887,50 +569060,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97414] = 19,
+  [96542] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-    ACTIONS(9434), 1,
-      anon_sym_SLASH_SLASH,
-    ACTIONS(9436), 1,
+    ACTIONS(9452), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10059), 1,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-    ACTIONS(10089), 1,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
+    ACTIONS(9943), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(3096), 1,
+    STATE(3114), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9428), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(9430), 2,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(10057), 2,
+    ACTIONS(9454), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10063), 2,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    STATE(4360), 2,
+    STATE(4361), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(10055), 10,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -569941,15 +569116,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97487] = 3,
+  [96618] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9638), 2,
+    ACTIONS(4321), 12,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_preproc_else_token1,
       aux_sym_preproc_elif_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      sym_preproc_directive,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9640), 30,
+    ACTIONS(4323), 21,
+      sym_preproc_comment,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [96660] = 5,
+    ACTIONS(10125), 1,
       anon_sym_COMMA,
+    STATE(4664), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9626), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9630), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -569979,73 +569196,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [97528] = 5,
-    ACTIONS(10180), 1,
-      aux_sym__intrinsic_type_token5,
-    ACTIONS(10182), 1,
-      aux_sym__intrinsic_type_token7,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4293), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
+  [96706] = 20,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(4295), 24,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-  [97573] = 4,
-    ACTIONS(10184), 1,
-      anon_sym_EQ,
+    ACTIONS(10158), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 26,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -570053,55 +569252,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_RBRACK,
-      anon_sym_QMARK,
-  [97616] = 19,
+  [96782] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9442), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(9448), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(9630), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(10065), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(10089), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
+    ACTIONS(10160), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(3747), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9440), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(9450), 2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-    ACTIONS(10051), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10053), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    STATE(4360), 2,
+    ACTIONS(9538), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
       sym_argument_list,
       aux_sym_call_expression_repeat1,
-    ACTIONS(9438), 10,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -570112,116 +569308,55 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [97689] = 5,
-    ACTIONS(9670), 1,
-      aux_sym__intrinsic_type_token5,
-    ACTIONS(9672), 1,
-      aux_sym__intrinsic_type_token7,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4293), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
+  [96858] = 20,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(4295), 25,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON_COLON,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9460), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
       aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
+    ACTIONS(9466), 1,
       anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
+    ACTIONS(9598), 1,
       anon_sym_QMARK,
-  [97734] = 5,
-    ACTIONS(10186), 1,
-      anon_sym__,
-    STATE(4859), 1,
-      sym__kind,
+    ACTIONS(10162), 1,
+      anon_sym_RPAREN,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7755), 5,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(7753), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
+    ACTIONS(9458), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9464), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [97779] = 6,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(7432), 1,
+    STATE(4361), 2,
       sym_argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 23,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -570229,25 +569364,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [97826] = 5,
-    ACTIONS(10186), 1,
-      anon_sym__,
-    STATE(4786), 1,
-      sym__kind,
+  [96934] = 5,
+    STATE(4877), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5515), 5,
+    STATE(4666), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9161), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(5517), 25,
+    ACTIONS(9159), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -570273,117 +569405,55 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [97871] = 6,
-    ACTIONS(7757), 1,
-      anon_sym__,
-    STATE(3711), 1,
-      sym__kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5513), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-    ACTIONS(5515), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
+  [96980] = 20,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(5517), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9450), 1,
       anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [97918] = 5,
-    ACTIONS(10176), 1,
-      aux_sym_do_loop_statement_token1,
-    ACTIONS(10188), 1,
-      aux_sym__inline_if_statement_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4289), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4291), 24,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+    ACTIONS(9550), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
       aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-  [97963] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    STATE(2550), 1,
+    ACTIONS(10164), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    STATE(3973), 1,
       sym__argument_list,
-    STATE(3428), 1,
-      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(9532), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 23,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9554), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -570391,55 +569461,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98010] = 20,
+  [97056] = 20,
     ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(9432), 1,
-      anon_sym_PERCENT,
-    ACTIONS(9630), 1,
+    ACTIONS(8940), 1,
       anon_sym_LBRACK,
-    ACTIONS(10059), 1,
-      aux_sym_logical_expression_token1,
-    ACTIONS(10061), 1,
-      aux_sym_logical_expression_token2,
-    ACTIONS(10065), 1,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9530), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9540), 1,
       anon_sym_SLASH_SLASH,
-    ACTIONS(10067), 1,
+    ACTIONS(9542), 1,
       anon_sym_STAR_STAR,
-    ACTIONS(10089), 1,
+    ACTIONS(9550), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9552), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9556), 1,
       anon_sym_QMARK,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3025), 1,
+    ACTIONS(10166), 1,
+      anon_sym_COLON,
+    STATE(3059), 1,
       sym_user_defined_operator,
-    STATE(4360), 1,
-      aux_sym_call_expression_repeat1,
-    STATE(5110), 1,
-      sym_argument_list,
-    STATE(5111), 1,
+    STATE(3688), 1,
       sym_coarray_index,
+    STATE(3973), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10051), 2,
+    ACTIONS(9532), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10053), 2,
+    ACTIONS(9534), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-    ACTIONS(10057), 2,
+    ACTIONS(9538), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10063), 2,
+    ACTIONS(9554), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
-    ACTIONS(10055), 10,
+    STATE(4362), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9536), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -570450,19 +569517,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-  [98085] = 3,
+  [97132] = 6,
+    ACTIONS(10168), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(10170), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(10172), 1,
+      aux_sym_select_case_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8147), 5,
+    ACTIONS(4321), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8145), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(4323), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570470,8 +569542,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570487,19 +569559,21 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98125] = 3,
+  [97180] = 4,
+    ACTIONS(10174), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8093), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8091), 26,
-      sym__external_end_of_statement,
+    ACTIONS(8170), 26,
       anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570507,8 +569581,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570523,22 +569596,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_SLASH_SLASH,
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
+      anon_sym_RBRACK,
       anon_sym_QMARK,
-  [98165] = 4,
-    ACTIONS(10190), 1,
-      aux_sym_coarray_statement_token5,
+  [97223] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3405), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 24,
-      anon_sym_LPAREN2,
+    ACTIONS(4345), 23,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -570562,145 +569639,53 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98207] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8178), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
+  [97270] = 19,
+    ACTIONS(167), 1,
       anon_sym_DOT,
-    ACTIONS(8176), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(9558), 1,
       anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9608), 1,
       anon_sym_SLASH_SLASH,
+    ACTIONS(9610), 1,
       anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98247] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8231), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8229), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+    ACTIONS(9977), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
       aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
+    ACTIONS(10079), 1,
       anon_sym_QMARK,
-  [98287] = 5,
-    ACTIONS(10192), 1,
-      anon_sym_LPAREN2,
-    STATE(2713), 1,
-      sym__io_arguments,
+    STATE(3036), 1,
+      sym_user_defined_operator,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 23,
+    ACTIONS(9600), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98331] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8291), 5,
+    ACTIONS(9602), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
+    ACTIONS(9929), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8289), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4381), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9927), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -570708,23 +569693,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98371] = 3,
+  [97343] = 5,
+    ACTIONS(9660), 1,
+      aux_sym__intrinsic_type_token5,
+    ACTIONS(9662), 1,
+      aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8305), 5,
+    ACTIONS(4347), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8303), 26,
-      sym__external_end_of_statement,
+    ACTIONS(4349), 25,
       anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570732,8 +569717,7 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON_COLON,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570749,19 +569733,22 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98411] = 3,
+  [97388] = 5,
+    ACTIONS(10176), 1,
+      aux_sym_do_loop_statement_token1,
+    ACTIONS(10178), 1,
+      aux_sym__inline_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8317), 5,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8315), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570769,8 +569756,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570786,18 +569773,59 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98451] = 3,
+  [97433] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9632), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9634), 30,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [97474] = 5,
+    ACTIONS(10180), 1,
+      anon_sym__,
+    STATE(4868), 1,
+      sym__kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8170), 5,
+    ACTIONS(7773), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8168), 26,
-      sym__external_end_of_statement,
+    ACTIONS(7771), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -570806,8 +569834,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570823,19 +569851,25 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98491] = 3,
+  [97519] = 6,
+    ACTIONS(7775), 1,
+      anon_sym__,
+    STATE(3757), 1,
+      sym__kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8174), 5,
+    ACTIONS(5513), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+    ACTIONS(5515), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8172), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(5517), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570843,8 +569877,6 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570860,33 +569892,53 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98531] = 4,
-    ACTIONS(10194), 1,
+  [97566] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9452), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9466), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(10079), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3114), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 5,
+    ACTIONS(9448), 2,
       anon_sym_STAR,
       anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(4287), 25,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(9454), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9927), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -570894,23 +569946,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98573] = 3,
+  [97639] = 5,
+    ACTIONS(10176), 1,
+      aux_sym_do_loop_statement_token1,
+    ACTIONS(10182), 1,
+      aux_sym__forall_control_expression_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8131), 5,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8129), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -570918,8 +569969,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570935,18 +569986,21 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98613] = 3,
+  [97684] = 5,
+    ACTIONS(10180), 1,
+      anon_sym__,
+    STATE(4880), 1,
+      sym__kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8135), 5,
+    ACTIONS(5515), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8133), 26,
-      sym__external_end_of_statement,
+    ACTIONS(5517), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -570955,8 +570009,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -570972,20 +570026,77 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98653] = 4,
-    ACTIONS(10196), 1,
-      aux_sym_do_loop_statement_token1,
+  [97729] = 20,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(10079), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(4361), 1,
+      aux_sym_call_expression_repeat1,
+    STATE(5220), 1,
+      sym_coarray_index,
+    STATE(5221), 1,
+      sym_argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [97804] = 5,
+    ACTIONS(10184), 1,
+      aux_sym__intrinsic_type_token5,
+    ACTIONS(10186), 1,
+      aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4347), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4349), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571010,32 +570121,107 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98695] = 3,
+  [97849] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9460), 1,
+      aux_sym_logical_expression_token1,
+    ACTIONS(9462), 1,
+      aux_sym_logical_expression_token2,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(10079), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8247), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
+    ACTIONS(9458), 2,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8245), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
+    ACTIONS(9464), 2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+    ACTIONS(9923), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_PERCENT,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9456), 10,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+  [97922] = 19,
+    ACTIONS(167), 1,
+      anon_sym_DOT,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(9450), 1,
+      anon_sym_PERCENT,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(9931), 1,
+      anon_sym_SLASH_SLASH,
+    ACTIONS(9933), 1,
+      anon_sym_STAR_STAR,
+    ACTIONS(9977), 1,
       aux_sym_logical_expression_token1,
+    ACTIONS(9979), 1,
       aux_sym_logical_expression_token2,
+    ACTIONS(10079), 1,
+      anon_sym_QMARK,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3076), 1,
+      sym_user_defined_operator,
+    STATE(3688), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9923), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(9925), 2,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+    ACTIONS(9929), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(9981), 2,
       aux_sym_logical_expression_token3,
       aux_sym_logical_expression_token4,
+    STATE(4361), 2,
+      sym_argument_list,
+      aux_sym_call_expression_repeat1,
+    ACTIONS(9927), 10,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_relational_expression_token1,
       aux_sym_relational_expression_token2,
       aux_sym_relational_expression_token3,
@@ -571043,25 +570229,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token5,
       anon_sym_SLASH_EQ,
       aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [98735] = 4,
-    ACTIONS(10198), 1,
-      aux_sym__inline_where_statement_token1,
+  [97995] = 6,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7597), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
-      anon_sym_LPAREN2,
+    ACTIONS(4345), 23,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -571085,20 +570270,21 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98777] = 4,
-    ACTIONS(10200), 1,
-      aux_sym_do_loop_statement_token1,
+  [98042] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(10188), 2,
+      aux_sym_coarray_statement_token9,
+      aux_sym_coarray_statement_token10,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4345), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571123,20 +570309,58 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98819] = 4,
-    ACTIONS(10202), 1,
-      aux_sym_stop_statement_token2,
+  [98085] = 4,
+    ACTIONS(10190), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9821), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9825), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [98127] = 4,
+    ACTIONS(10192), 1,
+      aux_sym_coarray_critical_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 24,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571161,20 +570385,20 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98861] = 4,
-    ACTIONS(10188), 1,
-      aux_sym__inline_if_statement_token1,
+  [98169] = 4,
+    ACTIONS(10194), 1,
+      aux_sym_coarray_statement_token5,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4345), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571199,29 +570423,28 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98903] = 5,
-    ACTIONS(10204), 1,
-      anon_sym_LPAREN2,
-    STATE(8034), 1,
-      sym_parenthesized_expression,
+  [98211] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(10196), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(8172), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 23,
+    ACTIONS(8170), 23,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
       anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
@@ -571238,28 +570461,68 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98947] = 3,
+  [98253] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4625), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4627), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [98293] = 6,
+    ACTIONS(10198), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(10201), 1,
+      anon_sym_COLON,
+    STATE(8541), 1,
+      sym__statement_function_arg_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(8172), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8339), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
+    ACTIONS(8170), 22,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571275,20 +570538,20 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [98987] = 4,
-    ACTIONS(10207), 1,
-      aux_sym_block_construct_token1,
+  [98339] = 4,
+    ACTIONS(10176), 1,
+      aux_sym_do_loop_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571313,28 +570576,29 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99029] = 3,
+  [98381] = 6,
+    ACTIONS(5760), 1,
+      anon_sym_COLON_COLON,
+    ACTIONS(5762), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(5765), 1,
+      anon_sym_STAR,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8143), 5,
-      anon_sym_STAR,
+    ACTIONS(4343), 4,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8141), 26,
-      sym__external_end_of_statement,
+    ACTIONS(4345), 24,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571348,16 +570612,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
       anon_sym_STAR_STAR,
+      anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
+      anon_sym_RBRACK,
       anon_sym_QMARK,
-  [99069] = 3,
+  [98427] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9969), 2,
+    ACTIONS(4531), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9971), 29,
+    ACTIONS(4533), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -571387,29 +570653,140 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [99109] = 4,
-    ACTIONS(10209), 1,
-      aux_sym_coarray_statement_token5,
+  [98467] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4527), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4529), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [98507] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4621), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4623), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [98547] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4615), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4617), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [98587] = 4,
+    ACTIONS(10203), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4343), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
-      anon_sym_LPAREN2,
+    ACTIONS(4345), 25,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571425,17 +570802,17 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99151] = 3,
+  [98629] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8313), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8311), 26,
+    ACTIONS(8170), 26,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
@@ -571462,66 +570839,66 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99191] = 3,
+  [98669] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9997), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9999), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [99231] = 3,
+    ACTIONS(7989), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(7987), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [98709] = 4,
+    ACTIONS(10205), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9530), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9534), 29,
+    ACTIONS(9781), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9785), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -571536,25 +570913,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [99271] = 7,
-    ACTIONS(10211), 1,
-      anon_sym_COMMA,
-    ACTIONS(10213), 1,
-      anon_sym_RPAREN,
-    ACTIONS(10215), 1,
-      anon_sym_COLON_COLON,
-    STATE(7250), 1,
-      aux_sym_allocate_statement_repeat1,
+      aux_sym_include_statement_token1,
+  [98751] = 4,
+    ACTIONS(10207), 1,
+      aux_sym_coarray_statement_token5,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571562,6 +570935,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571577,20 +570952,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99319] = 4,
-    ACTIONS(10176), 1,
-      aux_sym_do_loop_statement_token1,
+  [98793] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(8211), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(8209), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571598,8 +570972,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571615,20 +570989,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99361] = 4,
-    ACTIONS(10217), 1,
-      aux_sym_coarray_critical_statement_token1,
+  [98833] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(8211), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(8209), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571636,8 +571009,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571653,22 +571026,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99403] = 5,
-    ACTIONS(7757), 1,
-      anon_sym__,
-    STATE(5198), 1,
-      sym__kind,
+  [98873] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5515), 6,
+    ACTIONS(7555), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(5517), 23,
+    ACTIONS(7557), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571676,7 +571046,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571692,21 +571063,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99447] = 4,
+  [98913] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10219), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(8341), 6,
+    ACTIONS(8101), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8339), 23,
+    ACTIONS(8099), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -571714,7 +571083,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -571730,51 +571100,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99489] = 4,
-    ACTIONS(10221), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9911), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99531] = 4,
-    ACTIONS(10223), 1,
+  [98953] = 4,
+    ACTIONS(10209), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 9,
+    ACTIONS(9807), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -571784,7 +571116,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(9811), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -571806,17 +571138,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [99573] = 3,
+  [98995] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8093), 5,
+    ACTIONS(7547), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8091), 26,
+    ACTIONS(7549), 26,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
@@ -571843,13 +571175,52 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99613] = 4,
-    ACTIONS(10225), 1,
+  [99035] = 5,
+    ACTIONS(10211), 1,
+      anon_sym_LPAREN2,
+    STATE(2737), 1,
+      sym__io_arguments,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 23,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99079] = 4,
+    ACTIONS(10213), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 9,
+    ACTIONS(9847), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -571859,7 +571230,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(9851), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -571881,30 +571252,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [99655] = 6,
-    ACTIONS(10227), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(10230), 1,
-      anon_sym_COLON,
-    STATE(8564), 1,
-      sym__statement_function_arg_list,
+  [99121] = 4,
+    ACTIONS(10215), 1,
+      aux_sym_associate_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(4391), 24,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_COLON,
       anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
@@ -571921,29 +571290,29 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [99701] = 4,
-    ACTIONS(10232), 1,
-      sym_preproc_comment,
+  [99163] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4603), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4605), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -571958,30 +571327,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99743] = 4,
-    ACTIONS(10234), 1,
-      sym_preproc_comment,
+  [99203] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4397), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4399), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -571996,30 +571364,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99785] = 4,
-    ACTIONS(10236), 1,
-      sym_preproc_comment,
+  [99243] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4599), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4601), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572034,30 +571401,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99827] = 4,
-    ACTIONS(10238), 1,
-      sym_preproc_comment,
+  [99283] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4591), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4593), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572072,30 +571438,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99869] = 4,
-    ACTIONS(10240), 1,
-      sym_preproc_comment,
+  [99323] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4587), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4589), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572110,30 +571475,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99911] = 4,
-    ACTIONS(10242), 1,
-      sym_preproc_comment,
+  [99363] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(4583), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4585), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572148,30 +571512,103 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99953] = 4,
-    ACTIONS(10244), 1,
-      sym_preproc_comment,
+  [99403] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
+    ACTIONS(9692), 2,
+      aux_sym_preproc_elif_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9694), 29,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [99443] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8301), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8299), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99483] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10017), 2,
+      aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10019), 29,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
+      aux_sym_import_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572186,23 +571623,169 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [99995] = 5,
-    ACTIONS(10246), 1,
+  [99523] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8297), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8295), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99563] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8287), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8285), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99603] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8107), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8105), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99643] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8180), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8178), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
-    STATE(774), 1,
-      sym_parenthesized_expression,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [99683] = 4,
+    ACTIONS(10178), 1,
+      aux_sym__inline_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 23,
+    ACTIONS(4391), 24,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
@@ -572226,58 +571809,20 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100039] = 4,
-    ACTIONS(10248), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9804), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [100081] = 4,
-    ACTIONS(10250), 1,
-      aux_sym_coarray_statement_token7,
+  [99725] = 4,
+    ACTIONS(10217), 1,
+      aux_sym_do_loop_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 24,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -572302,29 +571847,29 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100123] = 3,
+  [99767] = 4,
+    ACTIONS(10219), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 29,
+    ACTIONS(9891), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9895), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572339,14 +571884,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100163] = 3,
+      aux_sym_include_statement_token1,
+  [99809] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 2,
+    ACTIONS(4497), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 29,
+    ACTIONS(4499), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572376,14 +571922,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100203] = 3,
+  [99849] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 2,
+    ACTIONS(4481), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 29,
+    ACTIONS(4483), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572413,14 +571959,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100243] = 3,
+  [99889] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 2,
+    ACTIONS(4461), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 29,
+    ACTIONS(4463), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572450,14 +571996,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100283] = 3,
+  [99929] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 2,
+    ACTIONS(4445), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 29,
+    ACTIONS(4447), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572487,29 +572033,68 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100323] = 3,
+  [99969] = 5,
+    ACTIONS(10221), 1,
+      anon_sym_LPAREN2,
+    STATE(8127), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 29,
+    ACTIONS(4343), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 23,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100013] = 4,
+    ACTIONS(10224), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9885), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9889), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572524,20 +572109,95 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100363] = 4,
-    ACTIONS(10252), 1,
-      aux_sym_associate_statement_token1,
+      aux_sym_include_statement_token1,
+  [100055] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8188), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8186), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100095] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8184), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8182), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100135] = 4,
+    ACTIONS(10226), 1,
+      aux_sym__inline_where_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -572562,66 +572222,67 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100405] = 3,
+  [100177] = 4,
+    ACTIONS(10228), 1,
+      aux_sym_do_loop_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [100445] = 3,
+    ACTIONS(4389), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4391), 24,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100219] = 4,
+    ACTIONS(10230), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 29,
+    ACTIONS(9865), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572636,29 +572297,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100485] = 3,
+      aux_sym_include_statement_token1,
+  [100261] = 4,
+    ACTIONS(10232), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 29,
+    ACTIONS(9859), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9863), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572673,51 +572335,128 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100525] = 3,
+      aux_sym_include_statement_token1,
+  [100303] = 4,
+    ACTIONS(10234), 1,
+      aux_sym_stop_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 29,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [100565] = 3,
+    ACTIONS(4343), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 24,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100345] = 4,
+    ACTIONS(10236), 1,
+      aux_sym_coarray_statement_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 2,
+    ACTIONS(4343), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 24,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100387] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8023), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8021), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100427] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9993), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 29,
+    ACTIONS(9995), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572747,29 +572486,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100605] = 3,
+  [100467] = 4,
+    ACTIONS(10238), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 29,
+    ACTIONS(9853), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9857), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572784,29 +572523,30 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100645] = 3,
+      aux_sym_include_statement_token1,
+  [100509] = 4,
+    ACTIONS(10240), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 29,
+    ACTIONS(9839), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9843), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572821,29 +572561,143 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100685] = 3,
+      aux_sym_include_statement_token1,
+  [100551] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 29,
+    ACTIONS(8237), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8235), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100591] = 5,
+    ACTIONS(7775), 1,
+      anon_sym__,
+    STATE(5000), 1,
+      sym__kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5515), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(5517), 23,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100635] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8267), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8265), 26,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100675] = 4,
+    ACTIONS(10242), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9747), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9751), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572858,14 +572712,133 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100725] = 3,
+      aux_sym_include_statement_token1,
+  [100717] = 5,
+    ACTIONS(10211), 1,
+      anon_sym_LPAREN2,
+    STATE(2822), 1,
+      sym__io_arguments,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4345), 23,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100761] = 7,
+    ACTIONS(10244), 1,
+      anon_sym_COMMA,
+    ACTIONS(10246), 1,
+      anon_sym_RPAREN,
+    ACTIONS(10248), 1,
+      anon_sym_COLON_COLON,
+    STATE(7209), 1,
+      aux_sym_allocate_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100809] = 4,
+    ACTIONS(10182), 1,
+      aux_sym__forall_control_expression_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4389), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(4391), 24,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [100851] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 2,
+    ACTIONS(4637), 2,
       aux_sym_preproc_elif_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 29,
+    ACTIONS(4639), 29,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -572895,29 +572868,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100765] = 3,
+  [100891] = 4,
+    ACTIONS(10250), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 2,
-      aux_sym_preproc_elif_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 29,
+    ACTIONS(9771), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9775), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym_import_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -572932,28 +572905,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [100805] = 3,
+      aux_sym_include_statement_token1,
+  [100933] = 5,
+    ACTIONS(10252), 1,
+      anon_sym_LPAREN2,
+    STATE(779), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 5,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(7561), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
+    ACTIONS(4345), 23,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -572969,29 +572945,28 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100845] = 6,
-    ACTIONS(5710), 1,
-      anon_sym_COLON_COLON,
-    ACTIONS(5712), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(5715), 1,
-      anon_sym_STAR,
+  [100977] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 4,
+    ACTIONS(8255), 5,
+      anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(4287), 24,
+    ACTIONS(8253), 26,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -573005,24 +572980,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_relational_expression_token6,
       anon_sym_SLASH_SLASH,
       anon_sym_STAR_STAR,
-      anon_sym_SLASH_RPAREN,
       anon_sym_LBRACK,
-      anon_sym_RBRACK,
       anon_sym_QMARK,
-  [100891] = 4,
-    ACTIONS(10178), 1,
-      aux_sym__forall_control_expression_token1,
+  [101017] = 4,
+    ACTIONS(10254), 1,
+      aux_sym_block_construct_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 6,
+    ACTIONS(4389), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4291), 24,
+    ACTIONS(4391), 24,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -573047,19 +573020,23 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100933] = 3,
+  [101059] = 6,
+    ACTIONS(10244), 1,
+      anon_sym_COMMA,
+    ACTIONS(10246), 1,
+      anon_sym_RPAREN,
+    STATE(7210), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(7549), 26,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -573067,8 +573044,6 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      anon_sym_LT_LT_LT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -573084,64 +573059,61 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [100973] = 5,
-    ACTIONS(10192), 1,
-      anon_sym_LPAREN2,
-    STATE(2878), 1,
-      sym__io_arguments,
+  [101104] = 4,
+    ACTIONS(10256), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(4287), 23,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [101017] = 4,
-    ACTIONS(10254), 1,
+    ACTIONS(9865), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [101145] = 4,
+    ACTIONS(10258), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 9,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9775), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -573161,13 +573133,161 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101059] = 4,
-    ACTIONS(10256), 1,
+  [101186] = 4,
+    ACTIONS(10260), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9859), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9863), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [101227] = 4,
+    ACTIONS(10262), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9865), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [101268] = 4,
+    ACTIONS(10264), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9885), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9889), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [101309] = 4,
+    ACTIONS(10266), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9891), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9895), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [101350] = 4,
+    ACTIONS(10268), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -573176,7 +573296,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -573198,25 +573318,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101100] = 4,
-    ACTIONS(10258), 1,
-      sym_preproc_comment,
+  [101391] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(9747), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(9751), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -573235,23 +573354,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101141] = 3,
+  [101430] = 4,
+    ACTIONS(10270), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 9,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9843), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -573271,11 +573391,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101180] = 3,
+  [101471] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 9,
+    ACTIONS(7547), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -573285,7 +573405,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
+    ACTIONS(7549), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -573307,21 +573427,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101219] = 3,
+  [101510] = 4,
+    ACTIONS(10272), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 9,
+    ACTIONS(9853), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(9857), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -573343,11 +573464,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101258] = 3,
+  [101551] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 9,
+    ACTIONS(9997), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -573357,7 +573478,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(9999), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -573379,11 +573500,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101297] = 3,
+  [101590] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 9,
+    ACTIONS(7555), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -573393,7 +573514,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(7557), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -573415,26 +573536,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101336] = 3,
+  [101629] = 4,
+    ACTIONS(10274), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 9,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9775), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -573451,23 +573573,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101375] = 3,
+  [101670] = 4,
+    ACTIONS(10276), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 9,
+    ACTIONS(9853), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9857), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -573487,22 +573610,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101414] = 5,
-    ACTIONS(10184), 1,
-      anon_sym_EQ,
-    ACTIONS(10260), 1,
-      anon_sym_COMMA,
+  [101711] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(10278), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -573525,17 +573647,17 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [101457] = 3,
+  [101752] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8143), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8141), 25,
+    ACTIONS(8170), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -573561,13 +573683,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [101496] = 4,
-    ACTIONS(10262), 1,
+  [101791] = 4,
+    ACTIONS(10280), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -573576,7 +573698,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(9851), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -573598,24 +573720,25 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101537] = 3,
+  [101832] = 4,
+    ACTIONS(10282), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 9,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -573634,197 +573757,67 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101576] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4557), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
+  [101873] = 17,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [101615] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4561), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [101654] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4565), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(9268), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
+    ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [101693] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4569), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
+    ACTIONS(10284), 1,
       aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [101732] = 3,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10292), 1,
+      sym_preproc_comment,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(4989), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8240), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [101771] = 3,
+  [101940] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6672), 5,
+    ACTIONS(8211), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(6670), 25,
+    ACTIONS(8209), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -573850,24 +573843,25 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [101810] = 3,
+  [101979] = 4,
+    ACTIONS(10294), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 9,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9811), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -573886,26 +573880,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101849] = 3,
+  [102020] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8211), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8209), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [102059] = 4,
+    ACTIONS(10296), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 9,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9785), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -573922,26 +573953,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101888] = 3,
+  [102100] = 4,
+    ACTIONS(10298), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 9,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9811), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -573958,26 +573990,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101927] = 3,
+  [102141] = 4,
+    ACTIONS(10300), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 9,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -573994,26 +574027,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [101966] = 3,
+  [102182] = 4,
+    ACTIONS(10302), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 9,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9851), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574030,24 +574064,25 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102005] = 3,
+  [102223] = 4,
+    ACTIONS(10304), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 9,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9785), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574066,27 +574101,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102044] = 3,
+  [102264] = 4,
+    ACTIONS(10306), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8313), 5,
+    ACTIONS(4343), 6,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
+      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8311), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
+    ACTIONS(4345), 23,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
+      anon_sym_COLON,
+      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -574102,26 +574138,27 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [102083] = 3,
+  [102305] = 4,
+    ACTIONS(10308), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 9,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574138,26 +574175,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102122] = 3,
+  [102346] = 4,
+    ACTIONS(10310), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 9,
+    ACTIONS(9885), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9889), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574174,26 +574212,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102161] = 3,
+  [102387] = 4,
+    ACTIONS(10312), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 9,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574210,62 +574249,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102200] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6962), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(6964), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [102239] = 3,
+  [102428] = 4,
+    ACTIONS(10314), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 9,
+    ACTIONS(9859), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9863), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574282,49 +574286,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102278] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6692), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(6690), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [102317] = 4,
-    ACTIONS(10264), 1,
+  [102469] = 4,
+    ACTIONS(10316), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574333,12 +574301,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
+    ACTIONS(9843), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574355,13 +574323,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102358] = 4,
-    ACTIONS(10266), 1,
+  [102510] = 4,
+    ACTIONS(10318), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574370,12 +574338,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574392,49 +574360,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102399] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6634), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(6632), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [102438] = 4,
-    ACTIONS(10268), 1,
+  [102551] = 4,
+    ACTIONS(10320), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(9885), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574443,7 +574375,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(9889), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -574465,50 +574397,63 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102479] = 4,
-    ACTIONS(10270), 1,
+  [102592] = 17,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10322), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(10324), 1,
       sym_preproc_comment,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5127), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8313), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [102520] = 4,
-    ACTIONS(10272), 1,
+  [102659] = 4,
+    ACTIONS(10326), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(9853), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574517,12 +574462,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9857), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -574539,49 +574484,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102561] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6668), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(6666), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [102600] = 4,
-    ACTIONS(10274), 1,
+  [102700] = 4,
+    ACTIONS(10328), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(9853), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574590,10 +574499,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(9857), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574612,13 +574521,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102641] = 4,
-    ACTIONS(10276), 1,
+  [102741] = 4,
+    ACTIONS(10330), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574627,10 +574536,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(9895), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574649,13 +574558,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102682] = 4,
-    ACTIONS(10278), 1,
+  [102782] = 4,
+    ACTIONS(10332), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574664,10 +574573,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(9851), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574686,13 +574595,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102723] = 4,
-    ACTIONS(10280), 1,
+  [102823] = 4,
+    ACTIONS(10334), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574701,10 +574610,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(9825), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574723,54 +574632,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102764] = 4,
-    ACTIONS(10282), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(4287), 24,
-      anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [102805] = 3,
+  [102864] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6652), 5,
+    ACTIONS(6654), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(6650), 25,
+    ACTIONS(6652), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -574796,13 +574668,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [102844] = 4,
-    ACTIONS(10284), 1,
+  [102903] = 4,
+    ACTIONS(10336), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574811,10 +574683,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(9811), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574833,25 +574705,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102885] = 4,
-    ACTIONS(10286), 1,
-      sym_preproc_comment,
+  [102944] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(9935), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(9937), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574870,25 +574741,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102926] = 4,
-    ACTIONS(10288), 1,
-      sym_preproc_comment,
+  [102983] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(10029), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(10031), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -574907,53 +574777,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [102967] = 7,
-    ACTIONS(10290), 1,
-      anon_sym_COMMA,
-    ACTIONS(10292), 1,
-      anon_sym_SLASH,
-    STATE(6402), 1,
-      aux_sym_data_set_repeat1,
-    STATE(6501), 1,
-      sym_data_value,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 4,
-      anon_sym_STAR,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [103014] = 4,
-    ACTIONS(10294), 1,
+  [103022] = 4,
+    ACTIONS(10338), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -574962,7 +574792,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
+    ACTIONS(9785), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -574984,25 +574814,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103055] = 4,
-    ACTIONS(10296), 1,
-      sym_preproc_comment,
+  [103063] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(9865), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(9869), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575021,13 +574850,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103096] = 4,
-    ACTIONS(10298), 1,
+  [103102] = 4,
+    ACTIONS(10340), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
+    ACTIONS(9859), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575036,7 +574865,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
+    ACTIONS(9863), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575058,49 +574887,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103137] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(6688), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(6686), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [103176] = 4,
-    ACTIONS(10300), 1,
+  [103143] = 4,
+    ACTIONS(10342), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575109,10 +574902,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575131,25 +574924,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103217] = 4,
-    ACTIONS(10302), 1,
-      sym_preproc_comment,
+  [103184] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4469), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(4471), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575168,13 +574960,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103258] = 4,
-    ACTIONS(10304), 1,
+  [103223] = 4,
+    ACTIONS(10344), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(9885), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575183,10 +574975,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(9889), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575205,25 +574997,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103299] = 4,
-    ACTIONS(10306), 1,
-      sym_preproc_comment,
+  [103264] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(4535), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
+    ACTIONS(4537), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575242,22 +575033,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103340] = 4,
-    ACTIONS(10308), 1,
-      sym_preproc_comment,
+  [103303] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(4539), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(4541), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575279,11 +575069,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103381] = 3,
+  [103342] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 9,
+    ACTIONS(4445), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575293,7 +575083,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(4447), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575315,13 +575105,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103420] = 4,
-    ACTIONS(10310), 1,
+  [103381] = 4,
+    ACTIONS(10346), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575330,10 +575120,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9811), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575352,24 +575142,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103461] = 4,
-    ACTIONS(10312), 1,
-      sym_preproc_comment,
+  [103422] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(4461), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(4463), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -575389,24 +575178,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103502] = 4,
-    ACTIONS(10314), 1,
-      sym_preproc_comment,
+  [103461] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(4481), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(4483), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -575426,24 +575214,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103543] = 4,
-    ACTIONS(10316), 1,
-      sym_preproc_comment,
+  [103500] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(4497), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(4499), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -575463,48 +575250,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103584] = 4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10322), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(10320), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(10318), 23,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT_LT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [103625] = 3,
+  [103539] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 9,
+    ACTIONS(4543), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575514,7 +575264,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(4545), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575536,22 +575286,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103664] = 4,
-    ACTIONS(10324), 1,
-      sym_preproc_comment,
+  [103578] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(4595), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(4597), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575573,52 +575322,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103705] = 6,
-    ACTIONS(10326), 1,
-      anon_sym_COMMA,
-    ACTIONS(10328), 1,
-      anon_sym_RPAREN,
-    STATE(7301), 1,
-      aux_sym_equivalence_set_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [103750] = 4,
-    ACTIONS(10330), 1,
+  [103617] = 4,
+    ACTIONS(10348), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575627,10 +575337,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575649,13 +575359,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103791] = 4,
-    ACTIONS(10332), 1,
+  [103658] = 4,
+    ACTIONS(10350), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575664,10 +575374,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(9851), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575686,24 +575396,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103832] = 4,
-    ACTIONS(10334), 1,
-      sym_preproc_comment,
+  [103699] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(4607), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
+    ACTIONS(4609), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -575723,24 +575432,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103873] = 4,
-    ACTIONS(10336), 1,
-      sym_preproc_comment,
+  [103738] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(4513), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(4515), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -575760,50 +575468,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103914] = 4,
-    ACTIONS(10338), 1,
-      sym_preproc_comment,
+  [103777] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
+    ACTIONS(6650), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(6648), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [103955] = 4,
-    ACTIONS(10340), 1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [103816] = 4,
+    ACTIONS(10352), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575812,10 +575519,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -575834,13 +575541,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [103996] = 4,
-    ACTIONS(10342), 1,
+  [103857] = 4,
+    ACTIONS(10354), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575849,7 +575556,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -575871,64 +575578,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104037] = 4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10260), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104078] = 4,
-    ACTIONS(10344), 1,
-      sym_preproc_comment,
+  [103898] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
+    ACTIONS(4583), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
+    ACTIONS(4585), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -575945,52 +575614,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104119] = 6,
-    ACTIONS(10346), 1,
-      anon_sym_COMMA,
-    ACTIONS(10348), 1,
-      anon_sym_RPAREN,
-    STATE(7036), 1,
-      aux_sym_allocate_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104164] = 4,
-    ACTIONS(10350), 1,
+  [103937] = 4,
+    ACTIONS(10356), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -575999,10 +575629,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
+    ACTIONS(9785), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -576021,278 +575651,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104205] = 4,
-    ACTIONS(8127), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(4287), 24,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_COLON_COLON,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104246] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104285] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8093), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8091), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104324] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8093), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8091), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104363] = 5,
-    ACTIONS(10184), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10352), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104406] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8178), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8176), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104445] = 4,
-    ACTIONS(8127), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(4287), 24,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_SEMI,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104486] = 4,
-    ACTIONS(10354), 1,
-      sym_preproc_comment,
+  [103978] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(4587), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(4589), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -576314,130 +575687,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104527] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8291), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8289), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104566] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8305), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8303), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104605] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8317), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8315), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104644] = 4,
-    ACTIONS(10356), 1,
-      sym_preproc_comment,
+  [104017] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(4591), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(4593), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -576459,64 +575723,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104685] = 6,
-    ACTIONS(10211), 1,
-      anon_sym_COMMA,
-    ACTIONS(10213), 1,
-      anon_sym_RPAREN,
-    STATE(7208), 1,
-      aux_sym_allocate_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [104730] = 4,
-    ACTIONS(10358), 1,
-      sym_preproc_comment,
+  [104056] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(4599), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(4601), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -576535,27 +575759,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104771] = 4,
-    ACTIONS(10360), 1,
-      sym_preproc_comment,
+  [104095] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(4397), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(4399), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576572,27 +575795,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104812] = 4,
-    ACTIONS(10362), 1,
-      sym_preproc_comment,
+  [104134] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(4603), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(4605), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576609,13 +575831,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104853] = 4,
-    ACTIONS(10364), 1,
+  [104173] = 4,
+    ACTIONS(10358), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(9885), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -576624,12 +575846,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(9889), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576646,28 +575868,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104894] = 4,
-    ACTIONS(10366), 1,
-      anon_sym_LPAREN2,
+  [104214] = 7,
+    ACTIONS(10360), 1,
+      anon_sym_COMMA,
+    ACTIONS(10362), 1,
+      anon_sym_SLASH,
+    STATE(6375), 1,
+      aux_sym_data_set_repeat1,
+    STATE(7085), 1,
+      sym_data_value,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 6,
+    ACTIONS(8172), 4,
       anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(4287), 23,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_COLON,
-      anon_sym_EQ_GT,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -576683,27 +575908,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [104935] = 4,
-    ACTIONS(10368), 1,
-      sym_preproc_comment,
+  [104261] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(4615), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(4617), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576720,27 +575944,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [104976] = 4,
-    ACTIONS(10370), 1,
-      sym_preproc_comment,
+  [104300] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(10047), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(10049), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576757,49 +575980,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105017] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8170), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8168), 25,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [105056] = 4,
-    ACTIONS(10372), 1,
+  [104339] = 4,
+    ACTIONS(10364), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(9859), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -576808,12 +575995,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
+    ACTIONS(9863), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576830,54 +576017,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105097] = 4,
-    ACTIONS(10374), 1,
-      sym_preproc_comment,
+  [104380] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [105138] = 3,
+    ACTIONS(10370), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(10368), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(10366), 23,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT_LT_LT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [104421] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8174), 5,
+    ACTIONS(6692), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8172), 25,
+    ACTIONS(6690), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -576903,13 +576090,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105177] = 4,
-    ACTIONS(10376), 1,
+  [104460] = 4,
+    ACTIONS(10372), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -576918,12 +576105,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(9843), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -576940,13 +576127,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105218] = 4,
-    ACTIONS(10378), 1,
+  [104501] = 4,
+    ACTIONS(10374), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -576955,10 +576142,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -576977,22 +576164,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105259] = 4,
-    ACTIONS(10380), 1,
-      sym_preproc_comment,
+  [104542] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(4621), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(4623), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -577014,27 +576200,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105300] = 4,
-    ACTIONS(10382), 1,
-      sym_preproc_comment,
+  [104581] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4527), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(4529), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -577051,27 +576236,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105341] = 4,
-    ACTIONS(10384), 1,
-      sym_preproc_comment,
+  [104620] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(4531), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(4533), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -577088,13 +576272,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105382] = 4,
-    ACTIONS(10386), 1,
+  [104659] = 4,
+    ACTIONS(10376), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577103,10 +576287,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9775), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -577125,67 +576309,90 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105423] = 17,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10388), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10396), 1,
+  [104700] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6668), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(6666), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [104739] = 4,
+    ACTIONS(10378), 1,
       sym_preproc_comment,
-    STATE(3608), 1,
-      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5164), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8480), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
+    ACTIONS(9853), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9857), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [105490] = 3,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [104780] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8131), 5,
+    ACTIONS(8287), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8129), 25,
+    ACTIONS(8285), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -577211,17 +576418,17 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105529] = 3,
+  [104819] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8135), 5,
+    ACTIONS(8101), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8133), 25,
+    ACTIONS(8099), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -577247,27 +576454,26 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105568] = 4,
-    ACTIONS(10398), 1,
-      sym_preproc_comment,
+  [104858] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(9891), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
+    ACTIONS(9895), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -577284,13 +576490,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105609] = 4,
-    ACTIONS(10400), 1,
+  [104897] = 4,
+    ACTIONS(10380), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577299,10 +576505,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
+    ACTIONS(9843), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -577321,17 +576527,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105650] = 3,
+  [104938] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8247), 5,
+    ACTIONS(6662), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8245), 25,
+    ACTIONS(6660), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -577357,17 +576563,17 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105689] = 3,
+  [104977] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8147), 5,
+    ACTIONS(6976), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8145), 25,
+    ACTIONS(6978), 25,
       anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -577393,24 +576599,23 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105728] = 4,
-    ACTIONS(10402), 1,
-      sym_preproc_comment,
+  [105016] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(4637), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(4639), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577430,24 +576635,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105769] = 4,
-    ACTIONS(10404), 1,
-      sym_preproc_comment,
+  [105055] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(4625), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(4627), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577467,13 +576671,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105810] = 4,
-    ACTIONS(10406), 1,
+  [105094] = 4,
+    ACTIONS(10382), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577482,10 +576686,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -577504,20 +576708,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105851] = 4,
-    ACTIONS(10230), 1,
-      anon_sym_COLON,
+  [105135] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 6,
+    ACTIONS(8180), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
-      anon_sym_EQ,
       anon_sym_DOT,
-    ACTIONS(8339), 23,
+    ACTIONS(8178), 25,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -577525,7 +576727,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -577541,13 +576744,49 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [105892] = 4,
-    ACTIONS(10408), 1,
+  [105174] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6642), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(6640), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105213] = 4,
+    ACTIONS(10384), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577556,10 +576795,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9775), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -577578,11 +576817,124 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105933] = 3,
+  [105254] = 6,
+    ACTIONS(10386), 1,
+      anon_sym_COMMA,
+    ACTIONS(10388), 1,
+      anon_sym_RPAREN,
+    STATE(6746), 1,
+      aux_sym_allocate_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105299] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8237), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8235), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105338] = 5,
+    ACTIONS(5765), 1,
+      anon_sym_STAR,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(5762), 2,
+      anon_sym_LPAREN2,
+      anon_sym_COLON_COLON,
+    ACTIONS(4343), 4,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(4345), 23,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105381] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 9,
+    ACTIONS(9945), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577592,7 +576944,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(9947), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -577614,24 +576966,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [105972] = 4,
-    ACTIONS(10410), 1,
-      sym_preproc_comment,
+  [105420] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9756), 8,
+    ACTIONS(9953), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9760), 21,
+    ACTIONS(9955), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577651,24 +577002,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106013] = 4,
-    ACTIONS(10412), 1,
-      sym_preproc_comment,
+  [105459] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(9957), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(9959), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577688,24 +577038,23 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106054] = 4,
-    ACTIONS(10414), 1,
-      sym_preproc_comment,
+  [105498] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9768), 8,
+    ACTIONS(9961), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9772), 21,
+    ACTIONS(9963), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577725,24 +577074,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106095] = 4,
-    ACTIONS(10416), 1,
-      sym_preproc_comment,
+  [105537] = 5,
+    ACTIONS(10174), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(10390), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105580] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10005), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(10007), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577762,22 +577148,54 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106136] = 5,
-    ACTIONS(10184), 1,
-      anon_sym_EQ,
+  [105619] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10260), 2,
+    ACTIONS(8301), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8299), 25,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105658] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8297), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8295), 25,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -577785,6 +577203,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -577800,24 +577220,61 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [106179] = 3,
+  [105697] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 9,
+    ACTIONS(8184), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8182), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105736] = 4,
+    ACTIONS(10392), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9853), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9857), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -577836,23 +577293,134 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106218] = 3,
+  [105777] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8107), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8105), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105816] = 5,
+    ACTIONS(10174), 1,
+      anon_sym_EQ,
+    ACTIONS(10278), 1,
+      anon_sym_COMMA,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105859] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8188), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8186), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [105898] = 4,
+    ACTIONS(10394), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 9,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9851), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -577872,11 +577440,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106257] = 3,
+  [105939] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 9,
+    ACTIONS(9821), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577886,7 +577454,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(9825), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -577908,61 +577476,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106296] = 17,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10418), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(10420), 1,
-      sym_preproc_comment,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [105978] = 5,
+    ACTIONS(10174), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(4960), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(7959), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [106363] = 3,
+    ACTIONS(10278), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106021] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 9,
+    ACTIONS(10009), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -577972,7 +577528,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(10011), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -577994,11 +577550,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106402] = 3,
+  [106060] = 5,
+    ACTIONS(10174), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 9,
+    ACTIONS(10278), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106103] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10025), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578008,7 +577602,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(10027), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578030,11 +577624,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106441] = 3,
+  [106142] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 9,
+    ACTIONS(10043), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578044,7 +577638,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(10045), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578066,21 +577660,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106480] = 3,
+  [106181] = 4,
+    ACTIONS(10396), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 9,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(9775), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578102,21 +577697,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106519] = 3,
+  [106222] = 4,
+    ACTIONS(10398), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 9,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(9751), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578138,21 +577734,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106558] = 3,
+  [106263] = 4,
+    ACTIONS(10400), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 9,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(9843), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578174,23 +577771,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106597] = 3,
+  [106304] = 4,
+    ACTIONS(10402), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 9,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9785), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578210,11 +577808,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106636] = 3,
+  [106345] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 9,
+    ACTIONS(10057), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578224,7 +577822,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(10059), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578246,11 +577844,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106675] = 3,
+  [106384] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 9,
+    ACTIONS(10081), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578260,7 +577858,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(10083), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578282,11 +577880,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106714] = 3,
+  [106423] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 9,
+    ACTIONS(10085), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578296,7 +577894,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(10087), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578318,13 +577916,50 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106753] = 4,
-    ACTIONS(10422), 1,
+  [106462] = 4,
+    ACTIONS(8091), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(4345), 24,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_SEMI,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106503] = 4,
+    ACTIONS(10404), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(9847), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578333,9 +577968,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(9851), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578355,24 +577990,62 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106794] = 4,
-    ACTIONS(10424), 1,
-      sym_preproc_comment,
+  [106544] = 6,
+    ACTIONS(10406), 1,
+      anon_sym_COMMA,
+    ACTIONS(10408), 1,
+      anon_sym_RPAREN,
+    STATE(6824), 1,
+      aux_sym_equivalence_set_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106589] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(10095), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(10097), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578392,23 +578065,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106835] = 3,
+  [106628] = 4,
+    ACTIONS(10410), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 9,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578428,13 +578102,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106874] = 4,
-    ACTIONS(10426), 1,
+  [106669] = 4,
+    ACTIONS(10412), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9792), 8,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578443,9 +578117,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9796), 21,
+    ACTIONS(9811), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578465,23 +578139,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106915] = 3,
+  [106710] = 4,
+    ACTIONS(10414), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 9,
+    ACTIONS(9807), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9811), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578501,25 +578176,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106954] = 4,
-    ACTIONS(10428), 1,
-      sym_preproc_comment,
+  [106751] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9780), 8,
+    ACTIONS(10111), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
+      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9784), 21,
+    ACTIONS(10113), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -578538,23 +578212,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [106995] = 3,
+  [106790] = 4,
+    ACTIONS(10416), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 9,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578574,23 +578249,97 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107034] = 3,
+  [106831] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8023), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8021), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106870] = 4,
+    ACTIONS(10418), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4343), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(4345), 24,
+      anon_sym_COMMA,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [106911] = 4,
+    ACTIONS(10420), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 9,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578610,23 +578359,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107073] = 3,
+  [106952] = 4,
+    ACTIONS(10422), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 9,
+    ACTIONS(9885), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9889), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578646,23 +578396,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107112] = 3,
+  [106993] = 4,
+    ACTIONS(10424), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 9,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578682,23 +578433,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107151] = 3,
+  [107034] = 4,
+    ACTIONS(10426), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 9,
+    ACTIONS(9859), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
-      aux_sym_preproc_if_token2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9863), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -578718,22 +578470,18 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107190] = 5,
-    ACTIONS(10184), 1,
-      anon_sym_EQ,
+  [107075] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10260), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
+    ACTIONS(8255), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8253), 25,
+      anon_sym_COMMA,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -578741,6 +578489,8 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -578756,51 +578506,50 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [107233] = 5,
-    ACTIONS(5715), 1,
-      anon_sym_STAR,
+  [107114] = 4,
+    ACTIONS(10428), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5712), 2,
-      anon_sym_LPAREN2,
-      anon_sym_COLON_COLON,
-    ACTIONS(4285), 4,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(4287), 23,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [107276] = 4,
+    ACTIONS(9859), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9863), 21,
+      aux_sym_end_program_statement_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [107155] = 4,
     ACTIONS(10430), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9804), 8,
+    ACTIONS(9839), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578809,7 +578558,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9808), 21,
+    ACTIONS(9843), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -578831,13 +578580,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107317] = 4,
+  [107196] = 4,
     ACTIONS(10432), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9911), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578846,10 +578595,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9915), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -578868,13 +578617,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107358] = 4,
+  [107237] = 4,
     ACTIONS(10434), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9722), 8,
+    ACTIONS(9771), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578883,10 +578632,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9726), 21,
+    ACTIONS(9775), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -578905,13 +578654,122 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107399] = 4,
+  [107278] = 4,
+    ACTIONS(10201), 1,
+      anon_sym_COLON,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [107319] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8267), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8265), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [107358] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7989), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(7987), 25,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [107397] = 4,
     ACTIONS(10436), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578920,10 +578778,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(9869), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -578942,13 +578800,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107440] = 4,
+  [107438] = 4,
     ACTIONS(10438), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9736), 8,
+    ACTIONS(9781), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -578957,10 +578815,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9740), 21,
+    ACTIONS(9785), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -578979,27 +578837,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [107481] = 3,
+  [107479] = 4,
+    ACTIONS(8091), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8231), 5,
+    ACTIONS(4343), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8229), 25,
+    ACTIONS(4345), 24,
       anon_sym_COMMA,
-      anon_sym_LPAREN2,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_PERCENT,
       anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
+      anon_sym_COLON_COLON,
       aux_sym_logical_expression_token1,
       aux_sym_logical_expression_token2,
       aux_sym_logical_expression_token3,
@@ -579019,7 +578878,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579028,12 +578887,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(4601), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -579054,7 +578913,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579063,10 +578922,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
+    ACTIONS(4447), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579089,7 +578948,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579098,10 +578957,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
+    ACTIONS(4623), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579124,7 +578983,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579133,7 +578992,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(4617), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -579159,7 +579018,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579168,10 +579027,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(10083), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579194,7 +579053,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 8,
+    ACTIONS(10085), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579203,10 +579062,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(10087), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579229,7 +579088,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579238,10 +579097,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(10097), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579264,7 +579123,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579273,10 +579132,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(4585), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579299,7 +579158,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579308,10 +579167,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579334,7 +579193,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579343,10 +579202,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
+    ACTIONS(10049), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579369,7 +579228,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(7547), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579378,7 +579237,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
+    ACTIONS(7549), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -579404,7 +579263,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 8,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579413,10 +579272,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
+    ACTIONS(10031), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579439,7 +579298,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579448,10 +579307,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(9999), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579470,81 +579329,83 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108014] = 3,
+  [108014] = 4,
+    ACTIONS(10440), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [108052] = 3,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [108054] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [108090] = 3,
+    ACTIONS(10443), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [108094] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579553,7 +579414,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(4605), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -579575,46 +579436,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108128] = 3,
+  [108132] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
-      aux_sym_end_program_statement_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [108166] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579623,7 +579449,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
+    ACTIONS(4399), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -579645,11 +579471,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108204] = 3,
+  [108170] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579658,7 +579484,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(4601), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -579680,11 +579506,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108242] = 3,
+  [108208] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579693,7 +579519,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(4593), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -579715,11 +579541,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108280] = 3,
+  [108246] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579728,10 +579554,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4589), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -579750,11 +579576,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108318] = 3,
+  [108284] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579763,12 +579589,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(4585), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -579785,49 +579611,46 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108356] = 6,
-    ACTIONS(10440), 1,
-      anon_sym_COMMA,
-    ACTIONS(10442), 1,
-      anon_sym_SLASH,
-    STATE(6565), 1,
-      aux_sym_data_value_repeat1,
+  [108322] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 4,
-      anon_sym_STAR,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [108400] = 3,
+    ACTIONS(7547), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7549), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [108360] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(7555), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579836,9 +579659,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(7557), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -579858,23 +579681,61 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108438] = 7,
-    ACTIONS(10440), 1,
+  [108398] = 6,
+    ACTIONS(10445), 1,
       anon_sym_COMMA,
-    ACTIONS(10442), 1,
+    ACTIONS(10447), 1,
       anon_sym_SLASH,
+    STATE(6999), 1,
+      aux_sym_data_value_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 4,
+      anon_sym_STAR,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [108442] = 7,
     ACTIONS(10445), 1,
+      anon_sym_COMMA,
+    ACTIONS(10447), 1,
+      anon_sym_SLASH,
+    ACTIONS(10450), 1,
       anon_sym_STAR,
-    STATE(6568), 1,
+    STATE(6998), 1,
       aux_sym_data_value_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 3,
+    ACTIONS(8172), 3,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -579897,59 +579758,46 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [108484] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10447), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [108488] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8445), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
+    ACTIONS(9865), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [108548] = 3,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [108526] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579958,9 +579806,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -579980,11 +579828,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108586] = 3,
+  [108564] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -579993,10 +579841,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(4499), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580015,11 +579863,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108624] = 3,
+  [108602] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580028,10 +579876,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(4483), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580050,11 +579898,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108662] = 3,
+  [108640] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580063,10 +579911,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4463), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580085,11 +579933,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108700] = 3,
+  [108678] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580098,10 +579946,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4447), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580120,7 +579968,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108738] = 3,
+  [108716] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -580134,8 +579982,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(9947), 21,
-      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580155,11 +580003,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108776] = 3,
+  [108754] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580168,9 +580016,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9955), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580190,11 +580038,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108814] = 3,
+  [108792] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580203,10 +580051,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(9959), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580225,11 +580073,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108852] = 3,
+  [108830] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580238,9 +580086,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9963), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580260,11 +580108,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108890] = 3,
+  [108868] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580273,7 +580121,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(10113), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -580295,11 +580143,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108928] = 3,
+  [108906] = 4,
+    ACTIONS(10452), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [108946] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580308,10 +580192,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4533), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580330,11 +580214,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [108966] = 3,
+  [108984] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580343,7 +580227,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(9895), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -580365,11 +580249,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109004] = 3,
+  [109022] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580378,10 +580262,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(9999), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580400,11 +580284,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109042] = 3,
+  [109060] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(7555), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580413,10 +580297,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
+    ACTIONS(7557), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580435,11 +580319,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109080] = 3,
+  [109098] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580448,9 +580332,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10007), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580470,47 +580354,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109118] = 4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10260), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [109158] = 3,
+  [109136] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580519,9 +580367,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580541,11 +580389,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109196] = 3,
+  [109174] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580554,7 +580402,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(10059), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -580576,11 +580424,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109234] = 3,
+  [109212] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580589,9 +580437,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10011), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580611,11 +580459,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109272] = 3,
+  [109250] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580624,7 +580472,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(10045), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -580646,11 +580494,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109310] = 3,
+  [109288] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580659,9 +580507,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(10027), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580681,11 +580529,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109348] = 3,
+  [109326] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580694,12 +580542,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(10045), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -580716,11 +580564,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109386] = 3,
+  [109364] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580729,9 +580577,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(10059), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580751,11 +580599,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109424] = 3,
+  [109402] = 4,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10390), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [109442] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580764,9 +580648,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(4447), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580786,11 +580670,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109462] = 3,
+  [109480] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580799,9 +580683,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(4463), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580821,11 +580705,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109500] = 3,
+  [109518] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580834,9 +580718,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(4483), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580856,11 +580740,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109538] = 3,
+  [109556] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580869,7 +580753,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(4499), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -580891,7 +580775,151 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109576] = 3,
+  [109594] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10455), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8414), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [109658] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10455), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5075), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8414), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [109722] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10457), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5219), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8392), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [109786] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -580906,8 +580934,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(4639), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580926,11 +580954,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109614] = 3,
+  [109824] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580939,10 +580967,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(4627), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -580961,11 +580989,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109652] = 3,
+  [109862] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -580974,9 +581002,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10027), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -580996,11 +581024,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109690] = 3,
+  [109900] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581009,9 +581037,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(10011), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581031,11 +581059,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109728] = 3,
+  [109938] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581044,9 +581072,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4617), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581066,11 +581094,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109766] = 3,
+  [109976] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10459), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8412), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [110040] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581079,7 +581155,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -581101,11 +581177,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109804] = 3,
+  [110078] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581114,9 +581190,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
+    ACTIONS(4589), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581136,11 +581212,46 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109842] = 3,
+  [110116] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8237), 6,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_EQ,
+      anon_sym_DOT,
+    ACTIONS(8235), 23,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_EQ_GT,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [110154] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581149,7 +581260,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(10007), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -581171,11 +581282,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109880] = 3,
+  [110192] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581184,9 +581295,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10083), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581206,59 +581317,82 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [109918] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10449), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [110230] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8399), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
+    ACTIONS(10085), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(10087), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [109982] = 3,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [110268] = 4,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10278), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [110308] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581267,9 +581401,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
+    ACTIONS(10097), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581289,11 +581423,53 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110020] = 3,
+  [110346] = 10,
+    ACTIONS(8914), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10461), 1,
+      anon_sym_STAR,
+    STATE(3973), 1,
+      sym__argument_list,
+    STATE(5323), 1,
+      sym_character_length,
+    STATE(5324), 1,
+      sym_argument_list,
+    STATE(5328), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7521), 5,
+      aux_sym_preproc_elif_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(7515), 17,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [110398] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581302,12 +581478,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(4627), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581324,11 +581500,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110058] = 3,
+  [110436] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581337,12 +581513,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(4639), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581359,11 +581535,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110096] = 3,
+  [110474] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581372,12 +581548,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581394,11 +581570,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110134] = 3,
+  [110512] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 8,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581407,9 +581583,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(10031), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581429,11 +581605,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110172] = 3,
+  [110550] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581442,9 +581618,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(10049), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581464,11 +581640,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110210] = 3,
+  [110588] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581477,10 +581653,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
+    ACTIONS(10113), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -581499,11 +581675,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110248] = 3,
+  [110626] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581512,9 +581688,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(9751), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581534,11 +581710,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110286] = 3,
+  [110664] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581547,10 +581723,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
+    ACTIONS(10049), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -581569,11 +581745,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110324] = 3,
+  [110702] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581582,9 +581758,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4593), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581604,11 +581780,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110362] = 3,
+  [110740] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581617,7 +581793,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(9937), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -581639,11 +581815,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110400] = 3,
+  [110778] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(10463), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [110818] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581652,10 +581864,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(10031), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -581674,11 +581886,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110438] = 3,
+  [110856] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581687,9 +581899,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
+    ACTIONS(4601), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581709,11 +581921,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110476] = 3,
+  [110894] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581722,9 +581934,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
+    ACTIONS(4399), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581744,11 +581956,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110514] = 3,
+  [110932] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581757,10 +581969,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(4605), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -581779,11 +581991,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110552] = 3,
+  [110970] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581792,12 +582004,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
+    ACTIONS(4533), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581814,11 +582026,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110590] = 3,
+  [111008] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581827,12 +582039,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
+    ACTIONS(4529), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581849,11 +582061,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110628] = 3,
+  [111046] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581862,12 +582074,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(4623), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581884,11 +582096,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110666] = 3,
+  [111084] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581897,12 +582109,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
+    ACTIONS(4617), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -581919,11 +582131,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110704] = 3,
+  [111122] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581932,10 +582144,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
+    ACTIONS(9937), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -581954,11 +582166,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110742] = 3,
+  [111160] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(10463), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [111200] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -581967,9 +582215,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(9999), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -581989,11 +582237,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110780] = 3,
+  [111238] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582002,10 +582250,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(4529), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582024,11 +582272,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110818] = 3,
+  [111276] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582037,9 +582285,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(9869), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582059,11 +582307,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110856] = 3,
+  [111314] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582072,9 +582320,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
+    ACTIONS(4627), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582094,11 +582342,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110894] = 3,
+  [111352] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582107,10 +582355,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(4639), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582129,11 +582377,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110932] = 3,
+  [111390] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 8,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582142,10 +582390,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(9999), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582164,81 +582412,107 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [110970] = 3,
+  [111428] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10465), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8239), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
+  [111492] = 16,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [111008] = 3,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10465), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(4997), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8239), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [111046] = 3,
+  [111556] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582247,12 +582521,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(4533), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582269,11 +582543,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111084] = 3,
+  [111594] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582282,10 +582556,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
+    ACTIONS(4529), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582304,11 +582578,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111122] = 3,
+  [111632] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582317,10 +582591,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(4623), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582339,11 +582613,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111160] = 3,
+  [111670] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582352,12 +582626,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
+    ACTIONS(4605), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582374,11 +582648,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111198] = 3,
+  [111708] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582387,12 +582661,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
+    ACTIONS(4399), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582409,47 +582683,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111236] = 4,
+  [111746] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10352), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [111276] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7547), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582458,12 +582696,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(4601), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582480,11 +582718,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111314] = 3,
+  [111784] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582493,12 +582731,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
+    ACTIONS(4593), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582515,89 +582753,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111352] = 4,
-    ACTIONS(10260), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [111392] = 10,
-    ACTIONS(8914), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10451), 1,
-      anon_sym_STAR,
-    STATE(3974), 1,
-      sym__argument_list,
-    STATE(5322), 1,
-      sym_character_length,
-    STATE(5327), 1,
-      sym_argument_list,
-    STATE(5334), 1,
-      sym_coarray_index,
+  [111822] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7523), 5,
-      aux_sym_preproc_elif_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(7517), 17,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [111444] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582606,12 +582766,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(4589), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582628,11 +582788,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111482] = 3,
+  [111860] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582641,12 +582801,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(4585), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582663,11 +582823,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111520] = 3,
+  [111898] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582676,10 +582836,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
+    ACTIONS(4617), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582698,11 +582858,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111558] = 3,
+  [111936] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582711,9 +582871,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4623), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582733,11 +582893,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111596] = 3,
+  [111974] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582746,9 +582906,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
+    ACTIONS(4529), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582768,11 +582928,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111634] = 3,
+  [112012] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582781,12 +582941,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
+    ACTIONS(4605), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582803,11 +582963,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111672] = 3,
+  [112050] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582816,9 +582976,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
+    ACTIONS(4399), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582838,11 +582998,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111710] = 3,
+  [112088] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582851,10 +583011,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(4601), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -582873,11 +583033,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111748] = 3,
+  [112126] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582886,9 +583046,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
+    ACTIONS(4533), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -582908,46 +583068,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111786] = 3,
+  [112164] = 4,
+    ACTIONS(10467), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [111824] = 3,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_COMMA,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [112204] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582956,12 +583117,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(4499), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -582978,11 +583139,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111862] = 3,
+  [112242] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -582991,12 +583152,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4483), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583013,11 +583174,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111900] = 3,
+  [112280] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583026,12 +583187,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4463), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583048,11 +583209,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111938] = 3,
+  [112318] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583061,12 +583222,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(4447), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583083,11 +583244,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [111976] = 3,
+  [112356] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583096,10 +583257,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(4593), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583118,11 +583279,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112014] = 3,
+  [112394] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583131,7 +583292,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4589), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -583153,11 +583314,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112052] = 3,
+  [112432] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583166,7 +583327,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(4585), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -583188,19 +583349,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112090] = 4,
-    ACTIONS(10453), 1,
+  [112470] = 4,
+    ACTIONS(10463), 1,
       anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 23,
+    ACTIONS(8170), 23,
       anon_sym_RPAREN,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
@@ -583224,47 +583385,59 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [112130] = 4,
+  [112510] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10469), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10456), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [112170] = 3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8241), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [112574] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583273,10 +583446,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(4515), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583295,11 +583468,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112208] = 3,
+  [112612] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583308,10 +583481,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583330,11 +583503,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112246] = 3,
+  [112650] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583343,7 +583516,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -583365,11 +583538,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112284] = 3,
+  [112688] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583378,10 +583551,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4499), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583400,11 +583573,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112322] = 3,
+  [112726] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(9945), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583413,12 +583586,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(9947), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583435,11 +583608,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112360] = 3,
+  [112764] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583448,10 +583621,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(4483), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583470,11 +583643,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112398] = 3,
+  [112802] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583483,10 +583656,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(4463), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583505,11 +583678,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112436] = 3,
+  [112840] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583518,12 +583691,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
+    ACTIONS(4447), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583540,11 +583713,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112474] = 3,
+  [112878] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583553,12 +583726,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583575,11 +583748,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112512] = 3,
+  [112916] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(10463), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [112956] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583588,7 +583797,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
+    ACTIONS(9955), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -583610,11 +583819,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112550] = 3,
+  [112994] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583623,10 +583832,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(9959), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583645,11 +583854,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112588] = 3,
+  [113032] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583658,12 +583867,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(4609), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583680,11 +583889,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112626] = 3,
+  [113070] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10471), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8545), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [113134] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583693,7 +583950,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(4597), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -583715,11 +583972,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112664] = 3,
+  [113172] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(7555), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583728,10 +583985,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(7557), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583750,11 +584007,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112702] = 3,
+  [113210] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583763,12 +584020,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(9963), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583785,11 +584042,85 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112740] = 3,
+  [113248] = 4,
+    ACTIONS(10473), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [113288] = 6,
+    ACTIONS(10445), 1,
+      anon_sym_COMMA,
+    ACTIONS(10475), 1,
+      anon_sym_SLASH,
+    STATE(6702), 1,
+      aux_sym_data_value_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 4,
+      anon_sym_STAR,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [113332] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583798,10 +584129,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4639), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583820,11 +584151,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112778] = 3,
+  [113370] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583833,10 +584164,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(10049), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -583855,11 +584186,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112816] = 3,
+  [113408] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583868,12 +584199,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(9937), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583890,11 +584221,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112854] = 3,
+  [113446] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583903,12 +584234,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(9999), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583925,11 +584256,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112892] = 3,
+  [113484] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 8,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583938,12 +584269,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(10031), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -583960,11 +584291,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112930] = 3,
+  [113522] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -583973,7 +584304,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(4545), 21,
       aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -583995,11 +584326,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [112968] = 3,
+  [113560] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584008,12 +584339,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(10049), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584030,11 +584361,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113006] = 3,
+  [113598] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10478), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8650), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [113662] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584043,7 +584422,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
+    ACTIONS(10031), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -584065,11 +584444,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113044] = 3,
+  [113700] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584078,7 +584457,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
+    ACTIONS(4515), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -584100,11 +584479,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113082] = 3,
+  [113738] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(7547), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584113,7 +584492,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(7549), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -584135,11 +584514,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113120] = 3,
+  [113776] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584148,10 +584527,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4609), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584170,11 +584549,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113158] = 3,
+  [113814] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10480), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5088), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8552), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [113878] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584183,12 +584610,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
+    ACTIONS(4597), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584205,11 +584632,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113196] = 3,
+  [113916] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584218,12 +584645,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(4545), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584240,11 +584667,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113234] = 3,
+  [113954] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584253,7 +584680,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
+    ACTIONS(4541), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -584275,11 +584702,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113272] = 3,
+  [113992] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584288,7 +584715,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(4537), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -584310,11 +584737,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113310] = 3,
+  [114030] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584323,7 +584750,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
+    ACTIONS(4471), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -584345,11 +584772,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113348] = 3,
+  [114068] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584358,10 +584785,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(4541), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584380,11 +584807,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113386] = 3,
+  [114106] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584393,12 +584820,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(4537), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584415,11 +584842,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113424] = 3,
+  [114144] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584428,12 +584855,82 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(4627), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [114182] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9865), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9869), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [114220] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7547), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(7549), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584450,11 +584947,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113462] = 3,
+  [114258] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584463,10 +584960,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584485,11 +584982,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113500] = 3,
+  [114296] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(9945), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584498,12 +584995,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(9947), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584520,11 +585017,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113538] = 3,
+  [114334] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584533,12 +585030,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
+    ACTIONS(9955), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584555,47 +585052,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113576] = 4,
+  [114372] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10456), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [113616] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584604,10 +585065,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9959), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584626,11 +585087,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113654] = 3,
+  [114410] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584639,10 +585100,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9963), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584661,107 +585122,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113692] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10458), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8022), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [113756] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10458), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [114448] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5155), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8022), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [113820] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9965), 8,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584770,12 +585135,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
+    ACTIONS(10007), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584792,59 +585157,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113858] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10460), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [114486] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8143), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [113922] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9925), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584853,10 +585170,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -584875,11 +585192,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113960] = 3,
+  [114524] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584888,7 +585205,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
+    ACTIONS(9937), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -584910,11 +585227,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [113998] = 3,
+  [114562] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584923,12 +585240,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
+    ACTIONS(10011), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -584945,11 +585262,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114036] = 3,
+  [114600] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(7555), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584958,7 +585275,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
+    ACTIONS(7557), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -584980,11 +585297,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114074] = 3,
+  [114638] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -584993,10 +585310,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(10027), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585015,11 +585332,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114112] = 3,
+  [114676] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585028,12 +585345,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(10083), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585050,11 +585367,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114150] = 3,
+  [114714] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585063,10 +585380,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10045), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585085,11 +585402,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114188] = 3,
+  [114752] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 8,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585098,10 +585415,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(10059), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585120,11 +585437,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114226] = 3,
+  [114790] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585133,10 +585450,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10083), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585155,47 +585472,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114264] = 4,
-    ACTIONS(10456), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [114304] = 3,
+  [114828] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(10085), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585204,7 +585485,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(10087), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -585226,83 +585507,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114342] = 4,
+  [114866] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10462), 3,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LBRACK,
-    ACTIONS(10320), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(10318), 21,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_QMARK,
-  [114382] = 4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10464), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8231), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8229), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [114422] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585311,10 +585520,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(9963), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585333,11 +585542,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114460] = 3,
+  [114904] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585346,9 +585555,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9959), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -585368,11 +585577,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114498] = 3,
+  [114942] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585381,12 +585590,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(9955), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585403,11 +585612,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114536] = 3,
+  [114980] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585416,10 +585625,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(10097), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585438,11 +585647,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114574] = 3,
+  [115018] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585451,10 +585660,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10113), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585473,11 +585682,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114612] = 3,
+  [115056] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585486,12 +585695,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
+    ACTIONS(10113), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585508,11 +585717,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114650] = 3,
+  [115094] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585521,10 +585730,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(9937), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -585543,11 +585752,143 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114688] = 3,
+  [115132] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10482), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(7787), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [115196] = 4,
+    ACTIONS(10484), 1,
+      anon_sym_COMMA,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [115236] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10482), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5061), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(7787), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [115300] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585556,12 +585897,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4515), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585578,11 +585919,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114726] = 3,
+  [115338] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585591,12 +585932,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(4609), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585613,11 +585954,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114764] = 3,
+  [115376] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
+    ACTIONS(10085), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585626,9 +585967,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10087), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -585648,11 +585989,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114802] = 3,
+  [115414] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585661,12 +586002,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4597), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585683,11 +586024,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114840] = 3,
+  [115452] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585696,12 +586037,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(4545), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585718,11 +586059,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114878] = 3,
+  [115490] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4553), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585731,9 +586072,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4555), 21,
+    ACTIONS(4471), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -585753,11 +586094,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114916] = 3,
+  [115528] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4557), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585766,12 +586107,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4559), 21,
+    ACTIONS(10097), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585788,11 +586129,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114954] = 3,
+  [115566] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(9945), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585801,9 +586142,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9947), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -585823,11 +586164,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [114992] = 3,
+  [115604] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585836,7 +586177,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(10097), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -585858,11 +586199,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115030] = 3,
+  [115642] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(10085), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585871,12 +586212,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10087), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585893,11 +586234,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115068] = 3,
+  [115680] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585906,12 +586247,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(10083), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585928,11 +586269,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115106] = 3,
+  [115718] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585941,12 +586282,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4541), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585963,11 +586304,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115144] = 3,
+  [115756] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10487), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5034), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(7785), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [115820] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -585976,12 +586365,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(10059), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -585998,47 +586387,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115182] = 4,
-    ACTIONS(10466), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_COMMA,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [115222] = 3,
+  [115858] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586047,7 +586400,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4537), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -586069,11 +586422,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115260] = 3,
+  [115896] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4561), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586082,12 +586435,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4563), 21,
+    ACTIONS(4471), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586104,11 +586457,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115298] = 3,
+  [115934] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586117,10 +586470,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(4515), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586139,11 +586492,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115336] = 3,
+  [115972] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586152,10 +586505,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
+    ACTIONS(4609), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586174,11 +586527,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115374] = 3,
+  [116010] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586187,10 +586540,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(4597), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586209,11 +586562,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115412] = 3,
+  [116048] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586222,10 +586575,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4545), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586244,11 +586597,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115450] = 3,
+  [116086] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586257,9 +586610,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(9963), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586279,11 +586632,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115488] = 3,
+  [116124] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586292,10 +586645,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(4541), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586314,11 +586667,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115526] = 3,
+  [116162] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586327,10 +586680,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
+    ACTIONS(4537), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586349,11 +586702,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115564] = 3,
+  [116200] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586362,10 +586715,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(4471), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586384,11 +586737,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115602] = 3,
+  [116238] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586397,12 +586750,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(10045), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586419,11 +586772,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115640] = 3,
+  [116276] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586432,9 +586785,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
+    ACTIONS(9959), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586454,47 +586807,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115678] = 4,
+  [116314] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10456), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [115718] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586503,10 +586820,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586525,11 +586842,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115756] = 3,
+  [116352] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586538,12 +586855,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
+    ACTIONS(10027), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586560,11 +586877,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115794] = 3,
+  [116390] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586573,12 +586890,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(10011), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586595,11 +586912,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115832] = 3,
+  [116428] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586608,9 +586925,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586630,59 +586947,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115870] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10468), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5095), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8378), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [115934] = 3,
+  [116466] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586691,12 +586960,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586713,11 +586982,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [115972] = 3,
+  [116504] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586726,9 +586995,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(10059), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586748,11 +587017,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116010] = 3,
+  [116542] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586761,9 +587030,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
+    ACTIONS(10045), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586783,11 +587052,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116048] = 3,
+  [116580] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586796,9 +587065,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(10027), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -586818,59 +587087,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116086] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10470), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [116618] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8031), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [116150] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586879,12 +587100,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(10007), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586901,11 +587122,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116188] = 3,
+  [116656] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(9961), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586914,12 +587135,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(9963), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -586936,11 +587157,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116226] = 3,
+  [116694] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 8,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586949,10 +587170,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(10007), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -586971,11 +587192,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116264] = 3,
+  [116732] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -586984,9 +587205,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(10011), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -587006,59 +587227,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116302] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10472), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [116770] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5207), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8071), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [116366] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4565), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587067,12 +587240,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4567), 21,
+    ACTIONS(9825), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587089,11 +587262,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116404] = 3,
+  [116808] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4569), 8,
+    ACTIONS(7555), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587102,7 +587275,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4571), 21,
+    ACTIONS(7557), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -587124,107 +587297,47 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116442] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10474), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5208), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8087), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [116506] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10474), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [116846] = 4,
+    ACTIONS(10278), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8087), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [116570] = 3,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 23,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [116886] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587233,10 +587346,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(4627), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587255,11 +587368,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116608] = 3,
+  [116924] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587268,10 +587381,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
+    ACTIONS(9955), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587290,47 +587403,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116646] = 4,
+  [116962] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10476), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [116686] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(9945), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587339,10 +587416,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(9947), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587361,11 +587438,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116724] = 3,
+  [117000] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4573), 8,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587374,12 +587451,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4575), 21,
+    ACTIONS(4639), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587396,11 +587473,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116762] = 3,
+  [117038] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587409,7 +587486,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_subroutine_statement_token1,
@@ -587431,11 +587508,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116800] = 3,
+  [117076] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(9957), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587444,7 +587521,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(9959), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -587466,11 +587543,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116838] = 3,
+  [117114] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9762), 8,
+    ACTIONS(9953), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587479,12 +587556,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9766), 21,
+    ACTIONS(9955), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587501,11 +587578,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116876] = 3,
+  [117152] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(10009), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587514,12 +587591,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(10011), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587536,11 +587613,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116914] = 3,
+  [117190] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(9945), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587549,7 +587626,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
+    ACTIONS(9947), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -587571,59 +587648,46 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [116952] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10447), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [117228] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5098), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8445), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
+    ACTIONS(4531), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4533), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [117016] = 3,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [117266] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9774), 8,
+    ACTIONS(9935), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587632,10 +587696,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9778), 21,
+    ACTIONS(9937), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587654,11 +587718,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117054] = 3,
+  [117304] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(4527), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587667,12 +587731,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(4529), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587689,11 +587753,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117092] = 3,
+  [117342] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(7547), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587702,7 +587766,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(7549), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -587724,11 +587788,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117130] = 3,
+  [117380] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9933), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587737,9 +587801,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9935), 21,
+    ACTIONS(4623), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -587759,11 +587823,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117168] = 3,
+  [117418] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10121), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587772,10 +587836,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10123), 21,
+    ACTIONS(4617), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587794,11 +587858,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117206] = 3,
+  [117456] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9786), 8,
+    ACTIONS(9891), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587807,12 +587871,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9790), 21,
+    ACTIONS(9895), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587829,11 +587893,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117244] = 3,
+  [117494] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587842,12 +587906,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
+    ACTIONS(4515), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -587864,11 +587928,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117282] = 3,
+  [117532] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587877,9 +587941,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(4609), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -587899,11 +587963,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117320] = 3,
+  [117570] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9945), 8,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587912,7 +587976,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9947), 21,
+    ACTIONS(4597), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -587934,11 +587998,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117358] = 3,
+  [117608] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4577), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587947,10 +588011,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4579), 21,
+    ACTIONS(4545), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -587969,11 +588033,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117396] = 3,
+  [117646] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9949), 8,
+    ACTIONS(4625), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -587982,10 +588046,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9951), 21,
+    ACTIONS(4627), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588004,11 +588068,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117434] = 3,
+  [117684] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9921), 8,
+    ACTIONS(4637), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588017,10 +588081,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9923), 21,
+    ACTIONS(4639), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588039,11 +588103,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117472] = 3,
+  [117722] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4581), 8,
+    ACTIONS(10025), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588052,7 +588116,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4583), 21,
+    ACTIONS(10027), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -588074,11 +588138,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117510] = 3,
+  [117760] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9957), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588087,7 +588151,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9959), 21,
+    ACTIONS(4541), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -588109,11 +588173,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117548] = 3,
+  [117798] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9961), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588122,7 +588186,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9963), 21,
+    ACTIONS(4537), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -588144,11 +588208,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117586] = 3,
+  [117836] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588157,10 +588221,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
+    ACTIONS(10113), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588179,11 +588243,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117624] = 3,
+  [117874] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4585), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588192,10 +588256,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4587), 21,
+    ACTIONS(4471), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588214,11 +588278,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117662] = 3,
+  [117912] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4589), 8,
+    ACTIONS(4513), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588227,10 +588291,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4591), 21,
+    ACTIONS(4515), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588249,11 +588313,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117700] = 3,
+  [117950] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4397), 8,
+    ACTIONS(4607), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588262,10 +588326,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4399), 21,
+    ACTIONS(4609), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588284,11 +588348,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117738] = 3,
+  [117988] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9925), 8,
+    ACTIONS(10095), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588297,10 +588361,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9927), 21,
+    ACTIONS(10097), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588319,11 +588383,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117776] = 3,
+  [118026] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4593), 8,
+    ACTIONS(10085), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588332,7 +588396,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4595), 21,
+    ACTIONS(10087), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -588354,11 +588418,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117814] = 3,
+  [118064] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7559), 8,
+    ACTIONS(4595), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588367,9 +588431,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7561), 21,
+    ACTIONS(4597), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -588389,46 +588453,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117852] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8143), 6,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_EQ,
-      anon_sym_DOT,
-    ACTIONS(8141), 23,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_EQ_GT,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [117890] = 3,
+  [118102] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9929), 8,
+    ACTIONS(4543), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588437,10 +588466,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9931), 21,
+    ACTIONS(4545), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588459,11 +588488,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117928] = 3,
+  [118140] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7547), 8,
+    ACTIONS(4539), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588472,9 +588501,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(7549), 21,
+    ACTIONS(4541), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -588494,11 +588523,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [117966] = 3,
+  [118178] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(4535), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588507,12 +588536,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
+    ACTIONS(4537), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -588529,11 +588558,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118004] = 3,
+  [118216] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(4531), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588542,10 +588571,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(4533), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588564,59 +588593,46 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118042] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10478), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
+  [118254] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(4997), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8130), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
+    ACTIONS(4527), 8,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(4529), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [118106] = 3,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+      aux_sym_include_statement_token1,
+  [118292] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(4621), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588625,12 +588641,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
+    ACTIONS(4623), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -588647,11 +588663,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118144] = 3,
+  [118330] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(4615), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588660,12 +588676,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
+    ACTIONS(4617), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -588682,11 +588698,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118182] = 3,
+  [118368] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(4469), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588695,7 +588711,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(4471), 21,
       aux_sym_module_statement_token1,
       aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
@@ -588717,107 +588733,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118220] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10480), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8148), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [118284] = 16,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
-    ACTIONS(10390), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(10392), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(10482), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    ACTIONS(10394), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5311), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(8152), 3,
-      sym_preproc_else_in_derived_type,
-      sym_preproc_elif_in_derived_type,
-      sym_preproc_elifdef_in_derived_type,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [118348] = 3,
+  [118406] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(9865), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588826,12 +588746,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
+    ACTIONS(9869), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -588848,11 +588768,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118386] = 3,
+  [118444] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588861,10 +588781,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(4605), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588883,11 +588803,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118424] = 3,
+  [118482] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588896,10 +588816,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
+    ACTIONS(4399), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588918,11 +588838,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118462] = 3,
+  [118520] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(10081), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588931,10 +588851,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(10083), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588953,11 +588873,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118500] = 3,
+  [118558] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -588966,10 +588886,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(4593), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -588988,11 +588908,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118538] = 3,
+  [118596] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9965), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589001,9 +588921,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9967), 21,
+    ACTIONS(4589), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -589023,11 +588943,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118576] = 3,
+  [118634] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589036,10 +588956,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4407), 21,
+    ACTIONS(4585), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -589058,11 +588978,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118614] = 3,
+  [118672] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9973), 8,
+    ACTIONS(9821), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589071,9 +588991,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9975), 21,
+    ACTIONS(9825), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -589093,81 +589013,131 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118652] = 3,
+  [118710] = 16,
+    ACTIONS(786), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(9252), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
+      aux_sym__intrinsic_type_token8,
+    ACTIONS(10286), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(10288), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(10489), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    ACTIONS(10290), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(8553), 3,
+      sym_preproc_else_in_derived_type,
+      sym_preproc_elif_in_derived_type,
+      sym_preproc_elifdef_in_derived_type,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [118690] = 3,
+  [118774] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-      aux_sym_include_statement_token1,
-  [118728] = 3,
+    ACTIONS(10491), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(8107), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8105), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [118814] = 4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9985), 8,
+    ACTIONS(10493), 3,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LBRACK,
+    ACTIONS(10368), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(10366), 21,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_QMARK,
+  [118854] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10005), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589176,9 +589146,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9987), 21,
+    ACTIONS(10007), 21,
+      aux_sym_end_program_statement_token2,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -589198,11 +589168,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118766] = 3,
+  [118892] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10099), 8,
+    ACTIONS(4603), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589211,7 +589181,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10101), 21,
+    ACTIONS(4605), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -589233,11 +589203,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118804] = 3,
+  [118930] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 8,
+    ACTIONS(4397), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589246,12 +589216,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4631), 21,
+    ACTIONS(4399), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589268,11 +589238,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118842] = 3,
+  [118968] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 8,
+    ACTIONS(4599), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589281,12 +589251,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4639), 21,
+    ACTIONS(4601), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589303,11 +589273,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118880] = 3,
+  [119006] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 8,
+    ACTIONS(4591), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589316,12 +589286,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4403), 21,
+    ACTIONS(4593), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589338,11 +589308,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118918] = 3,
+  [119044] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 8,
+    ACTIONS(4587), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589351,12 +589321,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4531), 21,
+    ACTIONS(4589), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589373,11 +589343,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118956] = 3,
+  [119082] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9728), 8,
+    ACTIONS(4583), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589386,7 +589356,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9732), 21,
+    ACTIONS(4585), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -589408,11 +589378,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [118994] = 3,
+  [119120] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(9997), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589421,12 +589391,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
+    ACTIONS(9999), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589443,11 +589413,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119032] = 3,
+  [119158] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(10043), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589456,7 +589426,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
+    ACTIONS(10045), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -589478,11 +589448,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119070] = 3,
+  [119196] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10027), 8,
+    ACTIONS(10029), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589491,12 +589461,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10029), 21,
+    ACTIONS(10031), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589513,11 +589483,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119108] = 3,
+  [119234] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10031), 8,
+    ACTIONS(10057), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589526,7 +589496,7 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10033), 21,
+    ACTIONS(10059), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_end_module_procedure_statement_token1,
@@ -589548,47 +589518,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119146] = 4,
-    ACTIONS(10484), 1,
-      anon_sym_COMMA,
+  [119272] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119186] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4625), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589597,10 +589531,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4627), 21,
+    ACTIONS(4499), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -589619,11 +589553,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119224] = 3,
+  [119310] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9989), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589632,9 +589566,9 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9991), 21,
+    ACTIONS(4483), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
@@ -589654,11 +589588,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119262] = 3,
+  [119348] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4633), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589667,10 +589601,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4635), 21,
+    ACTIONS(4463), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -589689,11 +589623,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119300] = 3,
+  [119386] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 8,
+    ACTIONS(10111), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589702,12 +589636,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4411), 21,
+    ACTIONS(10113), 21,
       aux_sym_module_statement_token1,
+      aux_sym_end_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589724,47 +589658,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119338] = 4,
-    ACTIONS(10487), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119378] = 3,
+  [119424] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(4497), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589773,10 +589671,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(4499), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
-      aux_sym_end_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -589795,11 +589693,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119416] = 3,
+  [119462] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 8,
+    ACTIONS(4481), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589808,12 +589706,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4415), 21,
+    ACTIONS(4483), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589830,11 +589728,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119454] = 3,
+  [119500] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10015), 8,
+    ACTIONS(4461), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589843,10 +589741,10 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10017), 21,
+    ACTIONS(4463), 21,
       aux_sym_module_statement_token1,
-      aux_sym_end_submodule_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
@@ -589865,85 +589763,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119492] = 6,
-    ACTIONS(10440), 1,
-      anon_sym_COMMA,
-    ACTIONS(10490), 1,
-      anon_sym_SLASH,
-    STATE(6907), 1,
-      aux_sym_data_value_repeat1,
+  [119538] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 4,
-      anon_sym_STAR,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119536] = 4,
-    ACTIONS(10493), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 23,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119576] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4461), 8,
+    ACTIONS(4445), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589952,12 +589776,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4463), 21,
+    ACTIONS(4447), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
+      aux_sym_end_module_procedure_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
-      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -589974,11 +589798,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119614] = 3,
+  [119576] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4597), 8,
+    ACTIONS(9747), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -589987,12 +589811,12 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(4599), 21,
-      aux_sym_end_program_statement_token2,
+    ACTIONS(9751), 21,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
       aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
@@ -590009,13 +589833,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119652] = 4,
-    ACTIONS(10497), 1,
-      sym_preproc_comment,
+  [119614] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10495), 10,
+    ACTIONS(10047), 8,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590023,16 +589845,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10499), 17,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_contains_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_derived_type_definition_token1,
-      aux_sym_end_type_statement_token1,
+    ACTIONS(10049), 21,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_end_function_statement_token1,
+      aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -590041,92 +589861,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
       aux_sym_include_statement_token1,
-  [119691] = 4,
-    ACTIONS(10501), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119730] = 4,
-    ACTIONS(10503), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119769] = 4,
-    ACTIONS(10505), 1,
-      anon_sym_EQ,
+  [119652] = 4,
+    ACTIONS(10495), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590149,13 +589903,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [119808] = 4,
-    ACTIONS(10509), 1,
+  [119691] = 4,
+    ACTIONS(10499), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10507), 10,
+    ACTIONS(10497), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590166,7 +589920,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10511), 17,
+    ACTIONS(10501), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590184,118 +589938,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [119847] = 4,
-    ACTIONS(10513), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119886] = 4,
-    ACTIONS(10515), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119925] = 4,
-    ACTIONS(10517), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8341), 5,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_GT,
-      anon_sym_LT,
-      anon_sym_DOT,
-    ACTIONS(8339), 22,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PERCENT,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      aux_sym_logical_expression_token1,
-      aux_sym_logical_expression_token2,
-      aux_sym_logical_expression_token3,
-      aux_sym_logical_expression_token4,
-      aux_sym_relational_expression_token1,
-      aux_sym_relational_expression_token2,
-      aux_sym_relational_expression_token3,
-      aux_sym_relational_expression_token4,
-      aux_sym_relational_expression_token5,
-      anon_sym_SLASH_EQ,
-      aux_sym_relational_expression_token6,
-      anon_sym_SLASH_SLASH,
-      anon_sym_STAR_STAR,
-      anon_sym_LBRACK,
-      anon_sym_QMARK,
-  [119964] = 4,
-    ACTIONS(10521), 1,
+  [119730] = 4,
+    ACTIONS(10505), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10519), 10,
+    ACTIONS(10503), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590306,7 +589955,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10523), 17,
+    ACTIONS(10507), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590324,13 +589973,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120003] = 4,
-    ACTIONS(10527), 1,
+  [119769] = 4,
+    ACTIONS(10511), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10525), 10,
+    ACTIONS(10509), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590341,7 +589990,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10529), 17,
+    ACTIONS(10513), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590359,20 +590008,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120042] = 5,
-    ACTIONS(10531), 1,
-      anon_sym_COMMA,
-    ACTIONS(10533), 1,
-      anon_sym_SLASH,
+  [119808] = 4,
+    ACTIONS(10515), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 4,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590395,13 +590043,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [120083] = 4,
-    ACTIONS(10538), 1,
+  [119847] = 4,
+    ACTIONS(10519), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10536), 10,
+    ACTIONS(10517), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590412,7 +590060,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10540), 17,
+    ACTIONS(10521), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590430,13 +590078,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120122] = 4,
-    ACTIONS(10544), 1,
+  [119886] = 4,
+    ACTIONS(10525), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10542), 10,
+    ACTIONS(10523), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590447,7 +590095,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10546), 17,
+    ACTIONS(10527), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590465,20 +590113,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120161] = 5,
-    ACTIONS(10548), 1,
-      anon_sym_COMMA,
-    ACTIONS(10550), 1,
-      anon_sym_SLASH,
+  [119925] = 4,
+    ACTIONS(10529), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 4,
+    ACTIONS(8172), 5,
       anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590501,13 +590148,13 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [120202] = 4,
-    ACTIONS(10555), 1,
+  [119964] = 4,
+    ACTIONS(10533), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10553), 10,
+    ACTIONS(10531), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590518,7 +590165,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10557), 17,
+    ACTIONS(10535), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590536,13 +590183,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120241] = 4,
-    ACTIONS(10561), 1,
+  [120003] = 4,
+    ACTIONS(10539), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10559), 10,
+    ACTIONS(10537), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590553,7 +590200,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10563), 17,
+    ACTIONS(10541), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590571,13 +590218,48 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120280] = 4,
-    ACTIONS(10567), 1,
+  [120042] = 4,
+    ACTIONS(10543), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [120081] = 4,
+    ACTIONS(10547), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10565), 10,
+    ACTIONS(10545), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590588,7 +590270,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10569), 17,
+    ACTIONS(10549), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590606,13 +590288,156 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120319] = 4,
-    ACTIONS(10573), 1,
+  [120120] = 6,
+    ACTIONS(10551), 1,
+      anon_sym_COMMA,
+    ACTIONS(10553), 1,
+      anon_sym_STAR,
+    ACTIONS(10555), 1,
+      anon_sym_SLASH,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 3,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [120163] = 4,
+    ACTIONS(10558), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [120202] = 5,
+    ACTIONS(10560), 1,
+      anon_sym_COMMA,
+    ACTIONS(10562), 1,
+      anon_sym_SLASH,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 4,
+      anon_sym_STAR,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [120243] = 4,
+    ACTIONS(10565), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_GT,
+      anon_sym_LT,
+      anon_sym_DOT,
+    ACTIONS(8170), 22,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_PERCENT,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      aux_sym_logical_expression_token1,
+      aux_sym_logical_expression_token2,
+      aux_sym_logical_expression_token3,
+      aux_sym_logical_expression_token4,
+      aux_sym_relational_expression_token1,
+      aux_sym_relational_expression_token2,
+      aux_sym_relational_expression_token3,
+      aux_sym_relational_expression_token4,
+      aux_sym_relational_expression_token5,
+      anon_sym_SLASH_EQ,
+      aux_sym_relational_expression_token6,
+      anon_sym_SLASH_SLASH,
+      anon_sym_STAR_STAR,
+      anon_sym_LBRACK,
+      anon_sym_QMARK,
+  [120282] = 4,
+    ACTIONS(10569), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10571), 10,
+    ACTIONS(10567), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590623,7 +590448,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10575), 17,
+    ACTIONS(10571), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590641,13 +590466,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120358] = 4,
-    ACTIONS(10579), 1,
+  [120321] = 4,
+    ACTIONS(10575), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10577), 10,
+    ACTIONS(10573), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590658,7 +590483,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10581), 17,
+    ACTIONS(10577), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590676,13 +590501,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120397] = 4,
-    ACTIONS(10585), 1,
+  [120360] = 4,
+    ACTIONS(10581), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10583), 10,
+    ACTIONS(10579), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590693,7 +590518,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10587), 17,
+    ACTIONS(10583), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590711,19 +590536,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [120436] = 4,
-    ACTIONS(10589), 1,
-      anon_sym_RPAREN,
+  [120399] = 5,
+    ACTIONS(10585), 1,
+      anon_sym_COMMA,
+    ACTIONS(10587), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 5,
+    ACTIONS(8172), 4,
       anon_sym_STAR,
-      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590746,20 +590572,55 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [120475] = 5,
-    ACTIONS(10591), 1,
+  [120440] = 4,
+    ACTIONS(10592), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10590), 10,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(10594), 17,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_contains_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_derived_type_definition_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+      aux_sym_include_statement_token1,
+  [120479] = 5,
+    ACTIONS(10551), 1,
       anon_sym_COMMA,
-    ACTIONS(10593), 1,
+    ACTIONS(10555), 1,
       anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 4,
+    ACTIONS(8172), 4,
       anon_sym_STAR,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590782,21 +590643,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_STAR_STAR,
       anon_sym_LBRACK,
       anon_sym_QMARK,
-  [120516] = 6,
-    ACTIONS(10591), 1,
-      anon_sym_COMMA,
-    ACTIONS(10593), 1,
-      anon_sym_SLASH,
+  [120520] = 4,
     ACTIONS(10596), 1,
-      anon_sym_STAR,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8341), 3,
+    ACTIONS(8172), 5,
+      anon_sym_STAR,
+      anon_sym_SLASH,
       anon_sym_GT,
       anon_sym_LT,
       anon_sym_DOT,
-    ACTIONS(8339), 22,
+    ACTIONS(8170), 22,
       anon_sym_LPAREN2,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -590823,7 +590682,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10559), 10,
+    ACTIONS(10598), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590834,7 +590693,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10563), 17,
+    ACTIONS(10600), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590856,7 +590715,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10598), 10,
+    ACTIONS(10602), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590867,7 +590726,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10600), 17,
+    ACTIONS(10604), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590889,7 +590748,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10602), 10,
+    ACTIONS(10606), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590900,7 +590759,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10604), 17,
+    ACTIONS(10608), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590922,7 +590781,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4409), 10,
+    ACTIONS(10610), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590933,7 +590792,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4411), 17,
+    ACTIONS(10612), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590955,7 +590814,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10577), 10,
+    ACTIONS(10614), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590966,7 +590825,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10581), 17,
+    ACTIONS(10616), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -590988,7 +590847,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10606), 10,
+    ACTIONS(10618), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -590999,7 +590858,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10608), 17,
+    ACTIONS(10620), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591021,7 +590880,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5086), 10,
+    ACTIONS(10622), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591032,7 +590891,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5088), 17,
+    ACTIONS(10624), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591054,7 +590913,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4629), 10,
+    ACTIONS(10626), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591065,7 +590924,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4631), 17,
+    ACTIONS(10628), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591087,7 +590946,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10610), 10,
+    ACTIONS(4469), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591098,7 +590957,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10612), 17,
+    ACTIONS(4471), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591120,7 +590979,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10614), 10,
+    ACTIONS(10567), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591131,7 +590990,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10616), 17,
+    ACTIONS(10571), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591153,7 +591012,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10618), 10,
+    ACTIONS(10630), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591164,7 +591023,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10620), 17,
+    ACTIONS(10632), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591186,7 +591045,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9383), 10,
+    ACTIONS(10634), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591197,7 +591056,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(9388), 17,
+    ACTIONS(10636), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591219,7 +591078,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4637), 10,
+    ACTIONS(10638), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591230,7 +591089,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4639), 17,
+    ACTIONS(10640), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591252,7 +591111,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10622), 10,
+    ACTIONS(10642), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591263,7 +591122,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10624), 17,
+    ACTIONS(10644), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591285,7 +591144,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10626), 10,
+    ACTIONS(10646), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591296,7 +591155,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10628), 17,
+    ACTIONS(10648), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591318,7 +591177,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4401), 10,
+    ACTIONS(10650), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591329,7 +591188,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4403), 17,
+    ACTIONS(10652), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591351,7 +591210,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4405), 10,
+    ACTIONS(10654), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591362,7 +591221,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4407), 17,
+    ACTIONS(10656), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591384,7 +591243,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5038), 10,
+    ACTIONS(10658), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591395,7 +591254,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5040), 17,
+    ACTIONS(10660), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591417,7 +591276,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10630), 10,
+    ACTIONS(4539), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591428,7 +591287,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10632), 17,
+    ACTIONS(4541), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591450,7 +591309,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10634), 10,
+    ACTIONS(4543), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591461,7 +591320,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10636), 17,
+    ACTIONS(4545), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591483,7 +591342,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10638), 10,
+    ACTIONS(5088), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591494,7 +591353,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10640), 17,
+    ACTIONS(5090), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591516,7 +591375,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5082), 10,
+    ACTIONS(10662), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591527,7 +591386,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5084), 17,
+    ACTIONS(10664), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591549,7 +591408,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4413), 10,
+    ACTIONS(10666), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591560,7 +591419,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4415), 17,
+    ACTIONS(10668), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591582,7 +591441,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10642), 10,
+    ACTIONS(10497), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591593,7 +591452,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10644), 17,
+    ACTIONS(10501), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591615,7 +591474,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10646), 10,
+    ACTIONS(4513), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591626,7 +591485,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10648), 17,
+    ACTIONS(4515), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591648,7 +591507,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10650), 10,
+    ACTIONS(10670), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591659,7 +591518,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10652), 17,
+    ACTIONS(10672), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591681,7 +591540,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4529), 10,
+    ACTIONS(4535), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591692,7 +591551,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(4531), 17,
+    ACTIONS(4537), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591714,7 +591573,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10654), 10,
+    ACTIONS(10674), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591725,7 +591584,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10656), 17,
+    ACTIONS(10676), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591747,7 +591606,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5058), 10,
+    ACTIONS(10678), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591758,7 +591617,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5060), 17,
+    ACTIONS(10680), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591780,7 +591639,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5094), 10,
+    ACTIONS(5070), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591791,7 +591650,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5096), 17,
+    ACTIONS(5072), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591813,7 +591672,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10658), 10,
+    ACTIONS(5048), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591824,7 +591683,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10660), 17,
+    ACTIONS(5050), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591846,7 +591705,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10662), 10,
+    ACTIONS(10531), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591857,7 +591716,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10664), 17,
+    ACTIONS(10535), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591879,7 +591738,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10666), 10,
+    ACTIONS(5120), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591890,7 +591749,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10668), 17,
+    ACTIONS(5122), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591912,7 +591771,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10670), 10,
+    ACTIONS(5052), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591923,7 +591782,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10672), 17,
+    ACTIONS(5054), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591945,7 +591804,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10674), 10,
+    ACTIONS(4595), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591956,7 +591815,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10676), 17,
+    ACTIONS(4597), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -591978,7 +591837,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10678), 10,
+    ACTIONS(4607), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -591989,7 +591848,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10680), 17,
+    ACTIONS(4609), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592011,7 +591870,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5138), 10,
+    ACTIONS(5078), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592022,7 +591881,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5140), 17,
+    ACTIONS(5080), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592044,7 +591903,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5032), 10,
+    ACTIONS(10682), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592055,7 +591914,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5034), 17,
+    ACTIONS(10684), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592077,7 +591936,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10565), 10,
+    ACTIONS(5116), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592088,7 +591947,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10569), 17,
+    ACTIONS(5118), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592110,7 +591969,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10682), 10,
+    ACTIONS(10509), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592121,7 +591980,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10684), 17,
+    ACTIONS(10513), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592143,7 +592002,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5054), 10,
+    ACTIONS(5128), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592154,7 +592013,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(5056), 17,
+    ACTIONS(5130), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592176,7 +592035,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10686), 10,
+    ACTIONS(9383), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592187,7 +592046,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10688), 17,
+    ACTIONS(9388), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592209,7 +592068,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10525), 10,
+    ACTIONS(10686), 10,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -592220,7 +592079,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10529), 17,
+    ACTIONS(10688), 17,
       aux_sym_module_procedure_statement_token1,
       aux_sym_contains_statement_token1,
       aux_sym_private_statement_token1,
@@ -592238,40 +592097,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       aux_sym_include_statement_token1,
-  [122107] = 12,
-    ACTIONS(10695), 1,
+  [122107] = 13,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(10698), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(10704), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10707), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(10710), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    STATE(5318), 1,
+    ACTIONS(10690), 1,
+      aux_sym_subroutine_statement_token1,
+    ACTIONS(10692), 1,
+      aux_sym_function_statement_token1,
+    STATE(5319), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10693), 2,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5309), 3,
+    STATE(5312), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(10690), 6,
+    ACTIONS(8075), 6,
       aux_sym_module_statement_token1,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(10701), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592279,41 +592139,42 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [122160] = 13,
-    ACTIONS(8027), 1,
+  [122162] = 14,
+    ACTIONS(8063), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(8065), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(8069), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(8071), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(8073), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(10713), 1,
+    ACTIONS(10690), 1,
       aux_sym_subroutine_statement_token1,
-    ACTIONS(10715), 1,
+    ACTIONS(10692), 1,
       aux_sym_function_statement_token1,
-    STATE(5318), 1,
+    ACTIONS(10694), 1,
+      aux_sym_module_statement_token1,
+    STATE(5319), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5309), 3,
+    STATE(5312), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 6,
-      aux_sym_module_statement_token1,
+    ACTIONS(8075), 5,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(8067), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592321,41 +592182,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [122215] = 13,
-    ACTIONS(10719), 1,
+  [122219] = 13,
+    ACTIONS(10698), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(10721), 1,
+    ACTIONS(10700), 1,
       aux_sym_module_procedure_statement_token1,
-    ACTIONS(10724), 1,
+    ACTIONS(10703), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(10730), 1,
+    ACTIONS(10709), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10733), 1,
+    ACTIONS(10712), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(10736), 1,
+    ACTIONS(10715), 1,
       aux_sym_derived_type_token1,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10739), 2,
+    ACTIONS(10718), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
     STATE(5311), 2,
       sym_variable_declaration,
       aux_sym_preproc_if_in_derived_type_repeat1,
-    ACTIONS(10717), 4,
+    ACTIONS(10696), 4,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(3448), 4,
+    STATE(3447), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
       sym_declared_type,
-    ACTIONS(10727), 7,
+    ACTIONS(10706), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592363,42 +592224,40 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [122270] = 14,
-    ACTIONS(8027), 1,
+  [122274] = 12,
+    ACTIONS(10726), 1,
       aux_sym_procedure_attributes_token1,
-    ACTIONS(8029), 1,
+    ACTIONS(10729), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(8033), 1,
+    ACTIONS(10735), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(8035), 1,
+    ACTIONS(10738), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(8037), 1,
+    ACTIONS(10741), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(10713), 1,
-      aux_sym_subroutine_statement_token1,
-    ACTIONS(10715), 1,
-      aux_sym_function_statement_token1,
-    ACTIONS(10742), 1,
-      aux_sym_module_statement_token1,
-    STATE(5318), 1,
+    STATE(5319), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5387), 2,
+    ACTIONS(10724), 2,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+    STATE(5381), 2,
       sym_intrinsic_type,
       sym_derived_type,
-    STATE(5309), 3,
+    STATE(5312), 3,
       aux_sym__callable_interface_qualifers,
       sym_procedure_attributes,
       sym_procedure_qualifier,
-    ACTIONS(8039), 5,
+    ACTIONS(10721), 6,
+      aux_sym_module_statement_token1,
       aux_sym_procedure_qualifier_token1,
       aux_sym_procedure_qualifier_token2,
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-    ACTIONS(8031), 7,
+    ACTIONS(10732), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592414,13 +592273,13 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7741), 5,
+    ACTIONS(7703), 5,
       aux_sym_preproc_elif_token1,
       anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(7737), 18,
+    ACTIONS(7699), 18,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -592464,11 +592323,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token3,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    STATE(3648), 1,
+    STATE(3657), 1,
       sym__class_default,
-    STATE(6680), 1,
+    STATE(6587), 1,
       sym_statement_label,
-    STATE(7671), 1,
+    STATE(7414), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -592476,7 +592335,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5323), 8,
+    STATE(5327), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -592510,11 +592369,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token3,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    STATE(3648), 1,
+    STATE(3657), 1,
       sym__class_default,
-    STATE(7195), 1,
+    STATE(6725), 1,
       sym_statement_label,
-    STATE(7530), 1,
+    STATE(7480), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -592522,7 +592381,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5323), 8,
+    STATE(5327), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -592556,11 +592415,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token3,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    STATE(3648), 1,
+    STATE(3657), 1,
       sym__class_default,
-    STATE(7274), 1,
+    STATE(6964), 1,
       sym_statement_label,
-    STATE(7660), 1,
+    STATE(7676), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -592568,7 +592427,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5323), 8,
+    STATE(5327), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -592602,11 +592461,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token3,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    STATE(3648), 1,
+    STATE(3657), 1,
       sym__class_default,
-    STATE(6646), 1,
+    STATE(6772), 1,
       sym_statement_label,
-    STATE(7394), 1,
+    STATE(7519), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -592614,7 +592473,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5323), 8,
+    STATE(5327), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -592623,17 +592482,49 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_type,
       sym_type_statement,
       aux_sym_select_type_statement_repeat1,
-  [122621] = 7,
+  [122621] = 5,
+    ACTIONS(8940), 1,
+      anon_sym_LBRACK,
+    STATE(5328), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7521), 5,
+      aux_sym_preproc_elif_token1,
+      anon_sym_EQ,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(7515), 17,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [122658] = 7,
     ACTIONS(7218), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(9556), 1,
+    ACTIONS(9530), 1,
       anon_sym_LPAREN2,
     ACTIONS(10772), 1,
       anon_sym_STAR,
-    STATE(5365), 1,
-      sym_kind,
-    STATE(5366), 1,
+    STATE(5367), 1,
       sym__argument_list,
+    STATE(5374), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -592657,38 +592548,6 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [122662] = 5,
-    ACTIONS(8948), 1,
-      anon_sym_LBRACK,
-    STATE(5334), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7523), 5,
-      aux_sym_preproc_elif_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(7517), 17,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
   [122699] = 4,
     ACTIONS(10774), 1,
       anon_sym_LPAREN2,
@@ -592720,63 +592579,29 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       anon_sym_LBRACK,
-  [122734] = 13,
-    ACTIONS(784), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(9252), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(9256), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(9268), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(9270), 1,
-      aux_sym__intrinsic_type_token8,
+  [122734] = 7,
     ACTIONS(10776), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(10778), 1,
-      sym_preproc_comment,
-    STATE(3608), 1,
-      sym__intrinsic_type,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9272), 2,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-    STATE(5328), 2,
-      sym_variable_declaration,
-      aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(3448), 4,
-      sym_procedure_declaration,
-      sym_intrinsic_type,
-      sym_derived_type,
-      sym_declared_type,
-    ACTIONS(9266), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [122786] = 3,
+      anon_sym_COMMA,
+    ACTIONS(10782), 1,
+      anon_sym_EQ,
+    ACTIONS(10784), 1,
+      anon_sym_EQ_GT,
+    STATE(5347), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7761), 5,
+    ACTIONS(10780), 4,
       aux_sym_preproc_elif_token1,
-      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(7759), 18,
-      anon_sym_COMMA,
+    ACTIONS(10778), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
       aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592787,59 +592612,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-      anon_sym_LBRACK,
-  [122818] = 15,
-    ACTIONS(10780), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10783), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10786), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10792), 1,
-      sym_preproc_directive,
-    ACTIONS(10795), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10797), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10800), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(10805), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(10808), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(10811), 1,
-      aux_sym__class_default_token1,
-    STATE(3648), 1,
-      sym__class_default,
+  [122774] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10789), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(10803), 2,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-    STATE(5323), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_type,
-      sym_preproc_ifdef_in_select_type,
-      sym_type_statement,
-      aux_sym_select_type_statement_repeat1,
-  [122874] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7799), 5,
+    ACTIONS(7769), 5,
       aux_sym_preproc_elif_token1,
       anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(7797), 18,
+    ACTIONS(7767), 18,
       anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
@@ -592858,7 +592641,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       anon_sym_LBRACK,
-  [122906] = 3,
+  [122806] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -592887,29 +592670,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       anon_sym_LBRACK,
-  [122938] = 7,
-    ACTIONS(10814), 1,
-      anon_sym_COMMA,
-    ACTIONS(10820), 1,
-      anon_sym_EQ,
-    ACTIONS(10822), 1,
-      anon_sym_EQ_GT,
-    STATE(5341), 1,
-      aux_sym__declaration_targets_repeat1,
+  [122838] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10818), 4,
+    ACTIONS(7797), 5,
       aux_sym_preproc_elif_token1,
+      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10816), 15,
+    ACTIONS(7795), 18,
+      anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
       aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -592920,7 +592698,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [122978] = 3,
+      anon_sym_LBRACK,
+  [122870] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -592949,8 +592728,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
       anon_sym_LBRACK,
-  [123010] = 12,
-    ACTIONS(784), 1,
+  [122902] = 13,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
@@ -592960,9 +592739,11 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(10824), 1,
+    ACTIONS(10786), 1,
       aux_sym_preproc_if_token2,
-    STATE(3608), 1,
+    ACTIONS(10788), 1,
+      sym_preproc_comment,
+    STATE(3589), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -592970,10 +592751,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(5311), 2,
+    STATE(5329), 2,
       sym_variable_declaration,
       aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(3448), 4,
+    STATE(3447), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -592986,76 +592767,65 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [123059] = 3,
-    ACTIONS(5718), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5710), 21,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
+  [122954] = 15,
+    ACTIONS(10790), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10793), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10796), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10802), 1,
+      sym_preproc_directive,
+    ACTIONS(10805), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10807), 1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
+    ACTIONS(10810), 1,
       aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [123090] = 3,
-    ACTIONS(7222), 1,
-      aux_sym__intrinsic_type_token4,
+    ACTIONS(10815), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(10818), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(10821), 1,
+      aux_sym__class_default_token1,
+    STATE(3657), 1,
+      sym__class_default,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7220), 21,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [123121] = 3,
-    ACTIONS(7226), 1,
-      aux_sym__intrinsic_type_token4,
+    ACTIONS(10799), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(10813), 2,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+    STATE(5327), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_type,
+      sym_preproc_ifdef_in_select_type,
+      sym_type_statement,
+      aux_sym_select_type_statement_repeat1,
+  [123010] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7224), 21,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
+    ACTIONS(7885), 5,
+      aux_sym_preproc_elif_token1,
+      anon_sym_EQ,
       aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(7883), 17,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      anon_sym_EQ_GT,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -593064,14 +592834,10 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [123152] = 12,
-    ACTIONS(784), 1,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [123041] = 12,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
@@ -593081,9 +592847,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
-    ACTIONS(10826), 1,
+    ACTIONS(10824), 1,
       aux_sym_preproc_if_token2,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -593094,7 +592860,7 @@ static const uint16_t ts_small_parse_table[] = {
     STATE(5311), 2,
       sym_variable_declaration,
       aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(3448), 4,
+    STATE(3447), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -593107,8 +592873,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [123201] = 12,
-    ACTIONS(784), 1,
+  [123090] = 12,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
     ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
@@ -593120,7 +592886,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
     ACTIONS(10824), 1,
       aux_sym_preproc_if_token2,
-    STATE(3608), 1,
+    STATE(3589), 1,
       sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -593128,10 +592894,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(9272), 2,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-    STATE(5332), 2,
+    STATE(5331), 2,
       sym_variable_declaration,
       aux_sym_preproc_if_in_derived_type_repeat1,
-    STATE(3448), 4,
+    STATE(3447), 4,
       sym_procedure_declaration,
       sym_intrinsic_type,
       sym_derived_type,
@@ -593144,65 +592910,44 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token7,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-  [123250] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7863), 5,
-      aux_sym_preproc_elif_token1,
-      anon_sym_EQ,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
+  [123139] = 12,
+    ACTIONS(786), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(7861), 17,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
+    ACTIONS(9252), 1,
       aux_sym_module_procedure_statement_token1,
-      anon_sym_EQ_GT,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
+    ACTIONS(9256), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(9268), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(9270), 1,
       aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [123281] = 5,
-    ACTIONS(10820), 1,
-      anon_sym_EQ,
-    ACTIONS(10822), 1,
-      anon_sym_EQ_GT,
+    ACTIONS(10826), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3589), 1,
+      sym__intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10830), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10828), 16,
-      anon_sym_COMMA,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
+    ACTIONS(9272), 2,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+    STATE(5311), 2,
+      sym_variable_declaration,
+      aux_sym_preproc_if_in_derived_type_repeat1,
+    STATE(3447), 4,
+      sym_procedure_declaration,
+      sym_intrinsic_type,
+      sym_derived_type,
+      sym_declared_type,
+    ACTIONS(9266), 7,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
       aux_sym__intrinsic_type_token6,
       aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [123316] = 3,
+  [123188] = 3,
     ACTIONS(7230), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
@@ -593230,82 +592975,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [123347] = 5,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10832), 1,
-      anon_sym__,
-    STATE(5496), 1,
-      sym__kind,
-    ACTIONS(5515), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(5517), 15,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [123381] = 4,
-    ACTIONS(7332), 1,
+  [123219] = 3,
+    ACTIONS(5768), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10836), 1,
-      aux_sym_module_procedure_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10834), 19,
+    ACTIONS(5760), 21,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [123413] = 5,
-    ACTIONS(10814), 1,
-      anon_sym_COMMA,
-    STATE(5342), 1,
-      aux_sym__declaration_targets_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10840), 4,
-      aux_sym_preproc_elif_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10838), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -593314,27 +592997,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [123447] = 5,
-    ACTIONS(10814), 1,
-      anon_sym_COMMA,
-    STATE(5339), 1,
-      aux_sym__declaration_targets_repeat1,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123250] = 3,
+    ACTIONS(7222), 1,
+      aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10844), 4,
-      aux_sym_preproc_elif_token1,
+    ACTIONS(7220), 21,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10842), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -593343,27 +593025,26 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [123481] = 5,
-    ACTIONS(10814), 1,
-      anon_sym_COMMA,
-    STATE(5342), 1,
-      aux_sym__declaration_targets_repeat1,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123281] = 3,
+    ACTIONS(7226), 1,
+      aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10848), 4,
-      aux_sym_preproc_elif_token1,
+    ACTIONS(7224), 21,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10846), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
       aux_sym__intrinsic_type_token1,
       aux_sym__intrinsic_type_token2,
       aux_sym__intrinsic_type_token3,
@@ -593372,22 +593053,27 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token8,
       aux_sym__intrinsic_type_token9,
       aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [123515] = 5,
-    ACTIONS(10850), 1,
-      anon_sym_COMMA,
-    STATE(5342), 1,
-      aux_sym__declaration_targets_repeat1,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123312] = 5,
+    ACTIONS(10782), 1,
+      anon_sym_EQ,
+    ACTIONS(10784), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10855), 4,
+    ACTIONS(10830), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10853), 15,
+    ACTIONS(10828), 16,
+      anon_sym_COMMA,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -593403,20 +593089,20 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [123549] = 5,
-    ACTIONS(10814), 1,
+  [123347] = 5,
+    ACTIONS(10776), 1,
       anon_sym_COMMA,
-    STATE(5349), 1,
+    STATE(5345), 1,
       aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10844), 4,
+    ACTIONS(10834), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10842), 15,
+    ACTIONS(10832), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -593432,15 +593118,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [123583] = 4,
-    ACTIONS(7332), 1,
+  [123381] = 4,
+    ACTIONS(7320), 1,
       aux_sym__intrinsic_type_token4,
-    ACTIONS(10857), 1,
+    ACTIONS(10838), 1,
       aux_sym_module_procedure_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10834), 19,
+    ACTIONS(10836), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -593460,14 +593146,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [123615] = 5,
+  [123413] = 5,
     ACTIONS(3), 1,
       sym_comment,
     ACTIONS(5517), 1,
       anon_sym_LF,
-    ACTIONS(10859), 1,
+    ACTIONS(10840), 1,
       anon_sym__,
-    STATE(5422), 1,
+    STATE(5441), 1,
       sym__kind,
     ACTIONS(5515), 19,
       sym_preproc_comment,
@@ -593489,44 +593175,16 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [123649] = 4,
-    ACTIONS(7332), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(10861), 1,
-      aux_sym_module_procedure_statement_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10834), 19,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [123681] = 5,
+  [123447] = 5,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10863), 1,
+    ACTIONS(10842), 1,
       anon_sym_LF,
-    ACTIONS(10865), 1,
+    ACTIONS(10844), 1,
       anon_sym_LPAREN2,
-    STATE(5424), 1,
+    STATE(5399), 1,
       sym_preproc_argument_list,
-    ACTIONS(10867), 19,
+    ACTIONS(10846), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -593546,20 +593204,20 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [123715] = 5,
+  [123481] = 5,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10869), 1,
+    ACTIONS(10848), 1,
       anon_sym_LPAREN2,
-    STATE(5438), 1,
+    STATE(5450), 1,
       sym_preproc_argument_list,
-    ACTIONS(10867), 5,
+    ACTIONS(10846), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10863), 15,
+    ACTIONS(10842), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -593575,20 +593233,48 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [123749] = 5,
-    ACTIONS(10814), 1,
+  [123515] = 4,
+    ACTIONS(7320), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(10850), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10836), 19,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123547] = 5,
+    ACTIONS(10776), 1,
       anon_sym_COMMA,
-    STATE(5342), 1,
+    STATE(5349), 1,
       aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10840), 4,
+    ACTIONS(10854), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10838), 15,
+    ACTIONS(10852), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -593604,14 +593290,22 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [123783] = 3,
+  [123581] = 5,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4287), 1,
-      anon_sym_LF,
-    ACTIONS(4285), 20,
-      anon_sym_LPAREN2,
-      sym_preproc_comment,
+    ACTIONS(10856), 1,
+      anon_sym__,
+    STATE(5413), 1,
+      sym__kind,
+    ACTIONS(5515), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(5517), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -593619,28 +593313,83 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [123812] = 3,
+  [123615] = 5,
+    ACTIONS(10776), 1,
+      anon_sym_COMMA,
+    STATE(5349), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10873), 4,
+    ACTIONS(10854), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10871), 16,
+    ACTIONS(10852), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [123649] = 4,
+    ACTIONS(7320), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(10858), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10836), 19,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123681] = 5,
+    ACTIONS(10776), 1,
       anon_sym_COMMA,
+    STATE(5349), 1,
+      aux_sym__declaration_targets_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10862), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(10860), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -593656,17 +593405,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [123841] = 3,
+  [123715] = 5,
+    ACTIONS(10776), 1,
+      anon_sym_COMMA,
+    STATE(5343), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10873), 4,
+    ACTIONS(10834), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(10871), 16,
+    ACTIONS(10832), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [123749] = 5,
+    ACTIONS(10864), 1,
       anon_sym_COMMA,
+    STATE(5349), 1,
+      aux_sym__declaration_targets_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10869), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(10867), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -593682,7 +593463,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [123870] = 13,
+  [123783] = 3,
+    ACTIONS(7304), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7302), 19,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [123812] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4345), 1,
+      anon_sym_LF,
+    ACTIONS(4343), 20,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [123841] = 13,
     ACTIONS(4671), 1,
       sym__integer_literal,
     ACTIONS(10748), 1,
@@ -593695,21 +593528,21 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(10764), 1,
       aux_sym_end_select_statement_token1,
-    ACTIONS(10875), 1,
+    ACTIONS(10871), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
+    ACTIONS(10875), 1,
       aux_sym_select_case_statement_token2,
-    STATE(6643), 1,
+    STATE(6771), 1,
       sym_statement_label,
-    STATE(7528), 1,
+    STATE(7517), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10877), 2,
+    ACTIONS(10873), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5512), 8,
+    STATE(5532), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -593718,88 +593551,124 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_case,
       sym_case_statement,
       aux_sym_select_case_statement_repeat1,
-  [123919] = 13,
-    ACTIONS(4671), 1,
-      sym__integer_literal,
+  [123890] = 13,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
+    ACTIONS(10752), 1,
+      aux_sym_preproc_if_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(10881), 1,
+    ACTIONS(10760), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(10762), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(10766), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(10768), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    STATE(3657), 1,
+      sym__class_default,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10754), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5315), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_type,
+      sym_preproc_ifdef_in_select_type,
+      sym_type_statement,
+      aux_sym_select_type_statement_repeat1,
+  [123939] = 13,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10752), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(6687), 1,
-      sym_statement_label,
-    STATE(7361), 1,
-      sym_end_select_statement,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10760), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(10762), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(10766), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(10768), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    STATE(3657), 1,
+      sym__class_default,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5516), 8,
+    STATE(5316), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_rank,
-      sym_preproc_ifdef_in_select_rank,
-      sym_rank_statement,
-      aux_sym_select_rank_statement_repeat1,
-  [123968] = 16,
+      sym_preproc_if_in_select_type,
+      sym_preproc_ifdef_in_select_type,
+      sym_type_statement,
+      aux_sym_select_type_statement_repeat1,
+  [123988] = 16,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10887), 1,
+    ACTIONS(10877), 1,
       anon_sym_COMMA,
-    ACTIONS(10889), 1,
+    ACTIONS(10879), 1,
       anon_sym_RPAREN,
-    ACTIONS(10895), 1,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
-    ACTIONS(10901), 1,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
-    ACTIONS(10903), 1,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
-    ACTIONS(10905), 1,
+    ACTIONS(10895), 1,
       anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
-    STATE(7306), 1,
+    STATE(6823), 1,
       aux_sym_preproc_argument_list_repeat1,
-    ACTIONS(10891), 2,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10909), 2,
+    ACTIONS(10899), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10911), 2,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10893), 3,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-  [124023] = 3,
-    ACTIONS(10917), 1,
+  [124043] = 3,
+    ACTIONS(7266), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10915), 19,
+    ACTIONS(7264), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -593819,13 +593688,39 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124052] = 3,
-    ACTIONS(7332), 1,
+  [124072] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4321), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(4323), 16,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [124101] = 3,
+    ACTIONS(7254), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10834), 19,
+    ACTIONS(7252), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -593845,120 +593740,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124081] = 13,
-    ACTIONS(4671), 1,
-      sym__integer_literal,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(10881), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(6467), 1,
-      sym_statement_label,
-    STATE(7457), 1,
-      sym_end_select_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10883), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5516), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_rank,
-      sym_preproc_ifdef_in_select_rank,
-      sym_rank_statement,
-      aux_sym_select_rank_statement_repeat1,
-  [124130] = 13,
-    ACTIONS(4671), 1,
-      sym__integer_literal,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(10875), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(6722), 1,
-      sym_statement_label,
-    STATE(7593), 1,
-      sym_end_select_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10877), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5512), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_case,
-      sym_preproc_ifdef_in_select_case,
-      sym_case_statement,
-      aux_sym_select_case_statement_repeat1,
-  [124179] = 13,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10752), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10760), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10762), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(10766), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(10768), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    STATE(3648), 1,
-      sym__class_default,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10754), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5314), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_type,
-      sym_preproc_ifdef_in_select_type,
-      sym_type_statement,
-      aux_sym_select_type_statement_repeat1,
-  [124228] = 3,
+  [124130] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4291), 1,
+    ACTIONS(4323), 1,
       anon_sym_LF,
-    ACTIONS(4289), 20,
+    ACTIONS(4321), 20,
       anon_sym_LPAREN2,
       sym_preproc_comment,
       anon_sym_PLUS,
@@ -593979,14 +593766,19 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [124257] = 3,
+  [124159] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4295), 1,
-      anon_sym_LF,
-    ACTIONS(4293), 20,
+    ACTIONS(4343), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(4345), 16,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
-      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -593994,25 +593786,51 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [124286] = 3,
+  [124188] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10907), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(10905), 16,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [124217] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4287), 1,
-      anon_sym_LF,
-    ACTIONS(4285), 20,
+    ACTIONS(4347), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(4349), 16,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
-      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -594020,25 +593838,25 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [124315] = 3,
+  [124246] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4299), 1,
-      anon_sym_LF,
-    ACTIONS(4297), 20,
+    ACTIONS(4389), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(4391), 16,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_LPAREN2,
-      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -594046,24 +593864,71 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [124275] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4343), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(4345), 16,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [124344] = 3,
-    ACTIONS(7256), 1,
+  [124304] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10907), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(10905), 16,
+      anon_sym_COMMA,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [124333] = 3,
+    ACTIONS(7344), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7254), 19,
+    ACTIONS(7342), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594083,13 +593948,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124373] = 3,
-    ACTIONS(7280), 1,
+  [124362] = 3,
+    ACTIONS(7238), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7278), 19,
+    ACTIONS(7236), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594109,49 +593974,49 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124402] = 13,
-    ACTIONS(4671), 1,
-      sym__integer_literal,
+  [124391] = 13,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
+    ACTIONS(10752), 1,
+      aux_sym_preproc_if_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(10881), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(7201), 1,
-      sym_statement_label,
-    STATE(7548), 1,
-      sym_end_select_statement,
+    ACTIONS(10760), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(10762), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(10766), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(10768), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    STATE(3657), 1,
+      sym__class_default,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10754), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5516), 8,
+    STATE(5317), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_rank,
-      sym_preproc_ifdef_in_select_rank,
-      sym_rank_statement,
-      aux_sym_select_rank_statement_repeat1,
-  [124451] = 3,
-    ACTIONS(7260), 1,
+      sym_preproc_if_in_select_type,
+      sym_preproc_ifdef_in_select_type,
+      sym_type_statement,
+      aux_sym_select_type_statement_repeat1,
+  [124440] = 3,
+    ACTIONS(7300), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7258), 19,
+    ACTIONS(7298), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594171,13 +594036,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124480] = 3,
-    ACTIONS(7272), 1,
+  [124469] = 3,
+    ACTIONS(7296), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7270), 19,
+    ACTIONS(7294), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594197,13 +594062,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124509] = 3,
-    ACTIONS(7276), 1,
+  [124498] = 3,
+    ACTIONS(7316), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7274), 19,
+    ACTIONS(7314), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594223,49 +594088,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124538] = 13,
-    ACTIONS(4671), 1,
-      sym__integer_literal,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(10875), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(7215), 1,
-      sym_statement_label,
-    STATE(7561), 1,
-      sym_end_select_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10877), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5512), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_case,
-      sym_preproc_ifdef_in_select_case,
-      sym_case_statement,
-      aux_sym_select_case_statement_repeat1,
-  [124587] = 3,
-    ACTIONS(7202), 1,
+  [124527] = 3,
+    ACTIONS(7312), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10919), 19,
+    ACTIONS(7310), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594285,13 +594114,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124616] = 3,
-    ACTIONS(7296), 1,
+  [124556] = 3,
+    ACTIONS(7308), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7294), 19,
+    ACTIONS(7306), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594311,49 +594140,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124645] = 13,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10752), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10760), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10762), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(10766), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(10768), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    STATE(3648), 1,
-      sym__class_default,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10754), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5316), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_type,
-      sym_preproc_ifdef_in_select_type,
-      sym_type_statement,
-      aux_sym_select_type_statement_repeat1,
-  [124694] = 3,
-    ACTIONS(7328), 1,
+  [124585] = 3,
+    ACTIONS(7242), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7326), 19,
+    ACTIONS(7240), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594373,39 +594166,169 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124723] = 3,
-    ACTIONS(7304), 1,
-      aux_sym__intrinsic_type_token4,
+  [124614] = 13,
+    ACTIONS(4671), 1,
+      sym__integer_literal,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(10909), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10913), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6450), 1,
+      sym_statement_label,
+    STATE(7518), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7302), 19,
+    ACTIONS(10911), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5514), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_rank,
+      sym_preproc_ifdef_in_select_rank,
+      sym_rank_statement,
+      aux_sym_select_rank_statement_repeat1,
+  [124663] = 11,
+    ACTIONS(10915), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10921), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10923), 1,
       aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [124752] = 3,
-    ACTIONS(7308), 1,
+    ACTIONS(10929), 1,
+      aux_sym_private_statement_token1,
+    ACTIONS(10932), 1,
+      aux_sym_public_statement_token1,
+    ACTIONS(10935), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10918), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(10926), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(5376), 6,
+      sym_preproc_if_in_bound_procedures,
+      sym_preproc_ifdef_in_bound_procedures,
+      sym_private_statement,
+      sym_public_statement,
+      sym_procedure_statement,
+      aux_sym_derived_type_procedures_repeat1,
+  [124708] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4391), 1,
+      anon_sym_LF,
+    ACTIONS(4389), 20,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [124737] = 11,
+    ACTIONS(10937), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10941), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10943), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(10945), 1,
+      aux_sym_private_statement_token1,
+    ACTIONS(10947), 1,
+      aux_sym_public_statement_token1,
+    ACTIONS(10949), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10939), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+    STATE(5376), 6,
+      sym_preproc_if_in_bound_procedures,
+      sym_preproc_ifdef_in_bound_procedures,
+      sym_private_statement,
+      sym_public_statement,
+      sym_procedure_statement,
+      aux_sym_derived_type_procedures_repeat1,
+  [124782] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4345), 1,
+      anon_sym_LF,
+    ACTIONS(4343), 20,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [124811] = 3,
+    ACTIONS(7246), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7306), 19,
+    ACTIONS(7244), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594425,13 +594348,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124781] = 3,
-    ACTIONS(7312), 1,
+  [124840] = 3,
+    ACTIONS(7208), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7310), 19,
+    ACTIONS(10951), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594451,52 +594374,52 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124810] = 16,
+  [124869] = 16,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10887), 1,
+    ACTIONS(10877), 1,
       anon_sym_COMMA,
-    ACTIONS(10895), 1,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
-    ACTIONS(10901), 1,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
-    ACTIONS(10903), 1,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
-    ACTIONS(10905), 1,
+    ACTIONS(10895), 1,
       anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
-    ACTIONS(10921), 1,
+    ACTIONS(10953), 1,
       anon_sym_RPAREN,
-    STATE(7032), 1,
+    STATE(6466), 1,
       aux_sym_preproc_argument_list_repeat1,
-    ACTIONS(10891), 2,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10909), 2,
+    ACTIONS(10899), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10911), 2,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10893), 3,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-  [124865] = 3,
-    ACTIONS(7316), 1,
+  [124924] = 3,
+    ACTIONS(7320), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7314), 19,
+    ACTIONS(10836), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594516,65 +594439,147 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124894] = 3,
-    ACTIONS(7292), 1,
-      aux_sym__intrinsic_type_token4,
+  [124953] = 13,
+    ACTIONS(4671), 1,
+      sym__integer_literal,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(10909), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10913), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6723), 1,
+      sym_statement_label,
+    STATE(7477), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7290), 19,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
+    ACTIONS(10911), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5514), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_rank,
+      sym_preproc_ifdef_in_select_rank,
+      sym_rank_statement,
+      aux_sym_select_rank_statement_repeat1,
+  [125002] = 13,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10752), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10760), 1,
       aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
+    ACTIONS(10762), 1,
       aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [124923] = 3,
-    ACTIONS(7320), 1,
-      aux_sym__intrinsic_type_token4,
+    ACTIONS(10766), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(10768), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    STATE(3657), 1,
+      sym__class_default,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10754), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5314), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_type,
+      sym_preproc_ifdef_in_select_type,
+      sym_type_statement,
+      aux_sym_select_type_statement_repeat1,
+  [125051] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(4349), 1,
+      anon_sym_LF,
+    ACTIONS(4347), 20,
+      anon_sym_LPAREN2,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [125080] = 13,
+    ACTIONS(4671), 1,
+      sym__integer_literal,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(10909), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10913), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6954), 1,
+      sym_statement_label,
+    STATE(7688), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7318), 19,
-      aux_sym_module_statement_token1,
-      aux_sym_subroutine_statement_token1,
-      aux_sym_function_statement_token1,
-      aux_sym_procedure_attributes_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_derived_type_token1,
-      aux_sym_procedure_qualifier_token1,
-      aux_sym_procedure_qualifier_token2,
-      aux_sym_procedure_qualifier_token3,
-      aux_sym_procedure_qualifier_token4,
-      aux_sym_procedure_qualifier_token5,
-  [124952] = 3,
-    ACTIONS(7324), 1,
+    ACTIONS(10911), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5514), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_rank,
+      sym_preproc_ifdef_in_select_rank,
+      sym_rank_statement,
+      aux_sym_select_rank_statement_repeat1,
+  [125129] = 3,
+    ACTIONS(10957), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7322), 19,
+    ACTIONS(10955), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594594,13 +594599,13 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [124981] = 3,
-    ACTIONS(7243), 1,
+  [125158] = 3,
+    ACTIONS(7275), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7240), 19,
+    ACTIONS(7272), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594620,43 +594625,43 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [125010] = 13,
+  [125187] = 13,
+    ACTIONS(4671), 1,
+      sym__integer_literal,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(10752), 1,
-      aux_sym_preproc_if_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10760), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10762), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(10766), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(10768), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    STATE(3648), 1,
-      sym__class_default,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(10909), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10913), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(6586), 1,
+      sym_statement_label,
+    STATE(7412), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10754), 2,
+    ACTIONS(10911), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5315), 8,
+    STATE(5514), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_type,
-      sym_preproc_ifdef_in_select_type,
-      sym_type_statement,
-      aux_sym_select_type_statement_repeat1,
-  [125059] = 13,
+      sym_preproc_if_in_select_rank,
+      sym_preproc_ifdef_in_select_rank,
+      sym_rank_statement,
+      aux_sym_select_rank_statement_repeat1,
+  [125236] = 13,
     ACTIONS(4671), 1,
       sym__integer_literal,
     ACTIONS(10748), 1,
@@ -594669,36 +594674,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(10764), 1,
       aux_sym_end_select_statement_token1,
-    ACTIONS(10881), 1,
+    ACTIONS(10871), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(6704), 1,
+    ACTIONS(10875), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(6576), 1,
       sym_statement_label,
-    STATE(7481), 1,
+    STATE(7410), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10873), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5516), 8,
+    STATE(5532), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_rank,
-      sym_preproc_ifdef_in_select_rank,
-      sym_rank_statement,
-      aux_sym_select_rank_statement_repeat1,
-  [125108] = 3,
-    ACTIONS(7208), 1,
+      sym_preproc_if_in_select_case,
+      sym_preproc_ifdef_in_select_case,
+      sym_case_statement,
+      aux_sym_select_case_statement_repeat1,
+  [125285] = 3,
+    ACTIONS(7292), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10923), 19,
+    ACTIONS(7290), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -594718,320 +594723,174 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [125137] = 11,
-    ACTIONS(10925), 1,
+  [125314] = 11,
+    ACTIONS(10937), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10931), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10933), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(10939), 1,
+    ACTIONS(10945), 1,
       aux_sym_private_statement_token1,
-    ACTIONS(10942), 1,
+    ACTIONS(10947), 1,
       aux_sym_public_statement_token1,
-    ACTIONS(10945), 1,
+    ACTIONS(10959), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10961), 1,
       aux_sym_end_type_statement_token1,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10928), 2,
+    ACTIONS(10939), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(10936), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-    STATE(5388), 6,
+    STATE(5378), 6,
       sym_preproc_if_in_bound_procedures,
       sym_preproc_ifdef_in_bound_procedures,
       sym_private_statement,
       sym_public_statement,
       sym_procedure_statement,
       aux_sym_derived_type_procedures_repeat1,
-  [125182] = 3,
+  [125359] = 16,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(4285), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(4287), 16,
+    ACTIONS(10877), 1,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [125211] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(4289), 5,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(4291), 16,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [125240] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(4293), 5,
-      anon_sym_PIPE,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(4295), 16,
-      anon_sym_COMMA,
+    ACTIONS(10963), 1,
       anon_sym_RPAREN,
-      anon_sym_LPAREN2,
+    STATE(7102), 1,
+      aux_sym_preproc_argument_list_repeat1,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [125269] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(4285), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
+    ACTIONS(10899), 2,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(4287), 16,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [125298] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(4297), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(4299), 16,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [125327] = 11,
-    ACTIONS(10947), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10951), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10953), 1,
+  [125414] = 3,
+    ACTIONS(7340), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7338), 19,
       aux_sym_module_statement_token1,
-    ACTIONS(10955), 1,
-      aux_sym_private_statement_token1,
-    ACTIONS(10957), 1,
-      aux_sym_public_statement_token1,
-    ACTIONS(10959), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(3339), 1,
-      sym_procedure_kind,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [125443] = 3,
+    ACTIONS(7336), 1,
+      aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10949), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(5388), 6,
-      sym_preproc_if_in_bound_procedures,
-      sym_preproc_ifdef_in_bound_procedures,
-      sym_private_statement,
-      sym_public_statement,
-      sym_procedure_statement,
-      aux_sym_derived_type_procedures_repeat1,
-  [125372] = 13,
+    ACTIONS(7334), 19,
+      aux_sym_module_statement_token1,
+      aux_sym_subroutine_statement_token1,
+      aux_sym_function_statement_token1,
+      aux_sym_procedure_attributes_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_derived_type_token1,
+      aux_sym_procedure_qualifier_token1,
+      aux_sym_procedure_qualifier_token2,
+      aux_sym_procedure_qualifier_token3,
+      aux_sym_procedure_qualifier_token4,
+      aux_sym_procedure_qualifier_token5,
+  [125472] = 13,
+    ACTIONS(4671), 1,
+      sym__integer_literal,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(10752), 1,
-      aux_sym_preproc_if_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10760), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(10762), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(10766), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(10768), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    STATE(3648), 1,
-      sym__class_default,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(10871), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10875), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(6966), 1,
+      sym_statement_label,
+    STATE(7653), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10754), 2,
+    ACTIONS(10873), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5317), 8,
+    STATE(5532), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_type,
-      sym_preproc_ifdef_in_select_type,
-      sym_type_statement,
-      aux_sym_select_type_statement_repeat1,
-  [125421] = 11,
-    ACTIONS(10947), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10953), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(10955), 1,
-      aux_sym_private_statement_token1,
-    ACTIONS(10957), 1,
-      aux_sym_public_statement_token1,
-    ACTIONS(10961), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10963), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10949), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-    STATE(5394), 6,
-      sym_preproc_if_in_bound_procedures,
-      sym_preproc_ifdef_in_bound_procedures,
-      sym_private_statement,
-      sym_public_statement,
-      sym_procedure_statement,
-      aux_sym_derived_type_procedures_repeat1,
-  [125466] = 16,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10887), 1,
-      anon_sym_COMMA,
-    ACTIONS(10895), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
-      anon_sym_PIPE,
-    ACTIONS(10901), 1,
-      anon_sym_CARET,
-    ACTIONS(10903), 1,
-      anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10965), 1,
-      anon_sym_RPAREN,
-    STATE(7027), 1,
-      aux_sym_preproc_argument_list_repeat1,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
+      sym_preproc_if_in_select_case,
+      sym_preproc_ifdef_in_select_case,
+      sym_case_statement,
+      aux_sym_select_case_statement_repeat1,
   [125521] = 3,
-    ACTIONS(7300), 1,
+    ACTIONS(7202), 1,
       aux_sym__intrinsic_type_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7298), 19,
+    ACTIONS(10965), 19,
       aux_sym_module_statement_token1,
       aux_sym_subroutine_statement_token1,
       aux_sym_function_statement_token1,
@@ -595051,83 +594910,78 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_qualifier_token3,
       aux_sym_procedure_qualifier_token4,
       aux_sym_procedure_qualifier_token5,
-  [125550] = 13,
+  [125550] = 3,
     ACTIONS(3), 1,
       sym_comment,
     ACTIONS(10967), 1,
       anon_sym_LF,
-    ACTIONS(10969), 1,
+    ACTIONS(10969), 19,
       sym_preproc_comment,
-    ACTIONS(10975), 1,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
       anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [125578] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10971), 1,
+      anon_sym_LF,
+    ACTIONS(10973), 1,
+      sym_preproc_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [125598] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10993), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(10991), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [125626] = 6,
+  [125626] = 3,
     ACTIONS(3), 1,
       sym_comment,
     ACTIONS(10995), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10997), 19,
+      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10997), 12,
-      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
       anon_sym_PIPE,
@@ -595139,468 +594993,496 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [125660] = 13,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [125654] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(10999), 1,
       anon_sym_LF,
     ACTIONS(11001), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [125708] = 13,
+  [125702] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(11005), 5,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11003), 1,
-      anon_sym_LF,
-    ACTIONS(11005), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10987), 4,
       anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
       anon_sym_LT,
-  [125756] = 8,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10995), 1,
-      anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(11003), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-    ACTIONS(10997), 6,
-      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
-  [125794] = 3,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [125730] = 5,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(7561), 1,
-      anon_sym_LF,
-    ACTIONS(7559), 19,
-      sym_preproc_comment,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
+    ACTIONS(11009), 5,
       anon_sym_PIPE,
-      anon_sym_CARET,
       anon_sym_AMP,
-      anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
       anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(11007), 10,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [125822] = 13,
+  [125762] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11007), 1,
+    ACTIONS(11011), 1,
       anon_sym_LF,
-    ACTIONS(11009), 1,
+    ACTIONS(11013), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [125870] = 13,
+  [125810] = 6,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11011), 1,
-      anon_sym_LF,
-    ACTIONS(11013), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-  [125918] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(11017), 5,
+    ACTIONS(11009), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11015), 15,
+    ACTIONS(11007), 8,
       anon_sym_COMMA,
       anon_sym_RPAREN,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+  [125844] = 8,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
+    ACTIONS(11009), 3,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+    ACTIONS(11007), 6,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
       anon_sym_CARET,
       anon_sym_EQ_EQ,
+  [125882] = 10,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
+      anon_sym_BANG_EQ,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [125946] = 13,
+    ACTIONS(11009), 2,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(11007), 5,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+  [125924] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11019), 1,
+    ACTIONS(11015), 1,
       anon_sym_LF,
-    ACTIONS(11021), 1,
+    ACTIONS(11017), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [125994] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11025), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(11023), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [126022] = 13,
+  [125972] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11027), 1,
+    ACTIONS(11019), 1,
       anon_sym_LF,
-    ACTIONS(11029), 1,
+    ACTIONS(11021), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126070] = 13,
+  [126020] = 11,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10893), 1,
+      anon_sym_AMP,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
+      anon_sym_BANG_EQ,
+    ACTIONS(11009), 1,
+      anon_sym_PIPE,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(11007), 5,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
+      anon_sym_CARET,
+  [126064] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
     ACTIONS(10979), 1,
-      anon_sym_PIPE,
+      anon_sym_PIPE_PIPE,
     ACTIONS(10981), 1,
-      anon_sym_CARET,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11031), 1,
+    ACTIONS(11023), 1,
       anon_sym_LF,
-    ACTIONS(11033), 1,
+    ACTIONS(11025), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126118] = 5,
+  [126112] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10995), 1,
-      anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(8237), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(8235), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10997), 14,
-      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126150] = 3,
+  [126140] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11035), 1,
-      anon_sym_LF,
-    ACTIONS(11037), 19,
-      sym_preproc_comment,
+    ACTIONS(10891), 1,
+      anon_sym_CARET,
+    ACTIONS(10893), 1,
+      anon_sym_AMP,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
+      anon_sym_BANG_EQ,
+    ACTIONS(11009), 1,
+      anon_sym_PIPE,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
+    ACTIONS(11007), 4,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
+  [126186] = 12,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
+    ACTIONS(10895), 1,
       anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
       anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126178] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11041), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(11039), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [126206] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(11015), 1,
-      anon_sym_LF,
-    ACTIONS(11017), 19,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
+    ACTIONS(11007), 4,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
+  [126232] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10887), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
+    ACTIONS(10895), 1,
       anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
       anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126234] = 3,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(11007), 3,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PIPE_PIPE,
+  [126280] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11045), 5,
+    ACTIONS(11009), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11043), 15,
+    ACTIONS(11007), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -595616,48 +595498,24 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126262] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11049), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(11047), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
-  [126290] = 3,
+  [126308] = 4,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11037), 5,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(11009), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11035), 15,
+    ACTIONS(11007), 12,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
       anon_sym_CARET,
@@ -595666,41 +595524,52 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126318] = 3,
+  [126338] = 14,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(8311), 1,
-      anon_sym_LF,
-    ACTIONS(8313), 19,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
+    ACTIONS(10895), 1,
       anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
       anon_sym_BANG_EQ,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
       anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126346] = 3,
+    ACTIONS(11027), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+  [126388] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(7559), 5,
+    ACTIONS(11031), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(7561), 15,
+    ACTIONS(11029), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -595716,12 +595585,12 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126374] = 3,
+  [126416] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(8141), 1,
+    ACTIONS(11033), 1,
       anon_sym_LF,
-    ACTIONS(8143), 19,
+    ACTIONS(11035), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -595741,78 +595610,213 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126402] = 13,
+  [126444] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11051), 1,
+    ACTIONS(11037), 1,
       anon_sym_LF,
-    ACTIONS(11053), 1,
+    ACTIONS(11039), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126450] = 3,
+  [126492] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11055), 1,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11041), 1,
       anon_sym_LF,
-    ACTIONS(11057), 19,
+    ACTIONS(11043), 1,
       sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126540] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
+    ACTIONS(11045), 1,
+      anon_sym_LF,
+    ACTIONS(11047), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
+  [126588] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11049), 1,
+      anon_sym_LF,
+    ACTIONS(11051), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126478] = 3,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126636] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11061), 5,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
+    ACTIONS(11053), 1,
+      anon_sym_LF,
+    ACTIONS(11055), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
       anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
       anon_sym_LT,
-    ACTIONS(11059), 15,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+  [126684] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11059), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(11057), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [126712] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(7557), 1,
+      anon_sym_LF,
+    ACTIONS(7555), 19,
+      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -595820,22 +595824,62 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
+      anon_sym_PIPE,
       anon_sym_CARET,
+      anon_sym_AMP,
       anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_LT,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [126740] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11061), 1,
+      anon_sym_LF,
+    ACTIONS(11063), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126506] = 3,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126788] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11065), 5,
+    ACTIONS(7547), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11063), 15,
+    ACTIONS(7549), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -595851,47 +595895,177 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126534] = 13,
+  [126816] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11065), 1,
+      anon_sym_LF,
+    ACTIONS(11067), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126864] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
     ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11069), 1,
+      anon_sym_LF,
+    ACTIONS(11071), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126912] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11067), 1,
+    ACTIONS(11073), 1,
       anon_sym_LF,
-    ACTIONS(11069), 1,
+    ACTIONS(11075), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [126960] = 13,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11077), 1,
+      anon_sym_LF,
+    ACTIONS(11079), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
     ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [127008] = 3,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(11083), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(11081), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
-  [126582] = 3,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127036] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11071), 1,
+    ACTIONS(11085), 1,
       anon_sym_LF,
-    ACTIONS(11073), 19,
+    ACTIONS(11087), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -595911,83 +596085,132 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126610] = 14,
+  [127064] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11091), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(11089), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [127092] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11095), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(11093), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [127120] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10895), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10901), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10903), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10891), 2,
+    ACTIONS(11097), 1,
+      anon_sym_LF,
+    ACTIONS(11099), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(11075), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-    ACTIONS(10893), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-  [126660] = 13,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [127168] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11077), 1,
+    ACTIONS(11101), 1,
       anon_sym_LF,
-    ACTIONS(11079), 1,
+    ACTIONS(11103), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126708] = 3,
+  [127216] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(7549), 1,
+    ACTIONS(8235), 1,
       anon_sym_LF,
-    ACTIONS(7547), 19,
+    ACTIONS(8237), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -596007,226 +596230,206 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [126736] = 13,
+  [127244] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11081), 1,
+    ACTIONS(11105), 1,
       anon_sym_LF,
-    ACTIONS(11083), 1,
+    ACTIONS(11107), 19,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126784] = 13,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127272] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11085), 1,
+    ACTIONS(11109), 1,
       anon_sym_LF,
-    ACTIONS(11087), 1,
+    ACTIONS(11111), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126832] = 13,
+  [127320] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11089), 1,
+    ACTIONS(11113), 1,
       anon_sym_LF,
-    ACTIONS(11091), 1,
+    ACTIONS(11115), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126880] = 13,
+  [127368] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11093), 1,
+    ACTIONS(11117), 1,
       anon_sym_LF,
-    ACTIONS(11095), 1,
+    ACTIONS(11119), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126928] = 13,
+  [127416] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11097), 1,
+    ACTIONS(7549), 1,
       anon_sym_LF,
-    ACTIONS(11099), 1,
+    ACTIONS(7547), 19,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [126976] = 13,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127444] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11101), 1,
+    ACTIONS(11121), 1,
       anon_sym_LF,
-    ACTIONS(11103), 1,
+    ACTIONS(11123), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127024] = 3,
+  [127492] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11057), 5,
+    ACTIONS(7555), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11055), 15,
+    ACTIONS(7557), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -596242,319 +596445,303 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [127052] = 13,
+  [127520] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11105), 1,
+    ACTIONS(11081), 1,
       anon_sym_LF,
-    ACTIONS(11107), 1,
+    ACTIONS(11083), 19,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_PIPE,
+      anon_sym_CARET,
+      anon_sym_AMP,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127100] = 10,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127548] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10969), 5,
+      anon_sym_PIPE,
       anon_sym_AMP,
-    ACTIONS(10995), 1,
-      anon_sym_LF,
-    ACTIONS(10971), 2,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10967), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-    ACTIONS(10997), 4,
-      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
-  [127142] = 13,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127576] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11109), 1,
+    ACTIONS(11125), 1,
       anon_sym_LF,
-    ACTIONS(11111), 1,
+    ACTIONS(11127), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127190] = 9,
+  [127624] = 13,
     ACTIONS(3), 1,
       sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10995), 1,
+    ACTIONS(11129), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(11131), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-    ACTIONS(10997), 5,
-      sym_preproc_comment,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_PIPE,
-      anon_sym_CARET,
-  [127230] = 11,
+  [127672] = 13,
     ACTIONS(3), 1,
       sym_comment,
     ACTIONS(10979), 1,
-      anon_sym_PIPE,
+      anon_sym_PIPE_PIPE,
     ACTIONS(10981), 1,
-      anon_sym_CARET,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10995), 1,
+    ACTIONS(11133), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(11135), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10997), 3,
-      sym_preproc_comment,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127274] = 13,
+  [127720] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(8180), 5,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11113), 1,
-      anon_sym_LF,
-    ACTIONS(11115), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(8178), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+      anon_sym_CARET,
+      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
-  [127322] = 13,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [127748] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11117), 1,
+    ACTIONS(11137), 1,
       anon_sym_LF,
-    ACTIONS(11119), 1,
+    ACTIONS(11139), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127370] = 13,
+  [127796] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11121), 1,
+    ACTIONS(11141), 1,
       anon_sym_LF,
-    ACTIONS(11123), 1,
+    ACTIONS(11143), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127418] = 13,
+  [127844] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11125), 1,
+    ACTIONS(11145), 1,
       anon_sym_LF,
-    ACTIONS(11127), 1,
+    ACTIONS(11147), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127466] = 3,
+  [127892] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11063), 1,
-      anon_sym_LF,
-    ACTIONS(11065), 19,
-      sym_preproc_comment,
+    ACTIONS(11035), 5,
+      anon_sym_PIPE,
+      anon_sym_AMP,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(11033), 15,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -596562,27 +596749,22 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_AMP,
       anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [127494] = 3,
+  [127920] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11131), 4,
+    ACTIONS(11151), 4,
       aux_sym_preproc_elif_token1,
       aux_sym_implicit_statement_token3,
       aux_sym__intrinsic_type_token4,
       aux_sym_derived_type_token1,
-    ACTIONS(11129), 15,
+    ACTIONS(11149), 15,
       aux_sym_preproc_if_token2,
       aux_sym_preproc_else_token1,
       aux_sym_preproc_elifdef_token1,
@@ -596598,676 +596780,657 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token10,
       aux_sym_declared_type_token1,
       aux_sym_declared_type_token2,
-  [127522] = 13,
+  [127948] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11133), 1,
+    ACTIONS(11153), 1,
       anon_sym_LF,
-    ACTIONS(11135), 1,
+    ACTIONS(11155), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127570] = 12,
+  [127996] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
     ACTIONS(10979), 1,
-      anon_sym_PIPE,
+      anon_sym_PIPE_PIPE,
     ACTIONS(10981), 1,
-      anon_sym_CARET,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10995), 1,
+    ACTIONS(11157), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(11159), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10997), 2,
-      sym_preproc_comment,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127616] = 13,
+  [128044] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11137), 1,
+    ACTIONS(11161), 1,
       anon_sym_LF,
-    ACTIONS(11139), 1,
+    ACTIONS(11163), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127664] = 13,
+  [128092] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11141), 1,
+    ACTIONS(11165), 1,
       anon_sym_LF,
-    ACTIONS(11143), 1,
+    ACTIONS(11167), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127712] = 13,
+  [128140] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11145), 1,
+    ACTIONS(11169), 1,
       anon_sym_LF,
-    ACTIONS(11147), 1,
+    ACTIONS(11171), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127760] = 13,
+  [128188] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11149), 1,
+    ACTIONS(11173), 1,
       anon_sym_LF,
-    ACTIONS(11151), 1,
+    ACTIONS(11175), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127808] = 13,
+  [128236] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11153), 1,
+    ACTIONS(11177), 1,
       anon_sym_LF,
-    ACTIONS(11155), 1,
+    ACTIONS(11179), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127856] = 13,
+  [128284] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11157), 1,
+    ACTIONS(11181), 1,
       anon_sym_LF,
-    ACTIONS(11159), 1,
+    ACTIONS(11183), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127904] = 13,
+  [128332] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11161), 1,
+    ACTIONS(11185), 1,
       anon_sym_LF,
-    ACTIONS(11163), 1,
+    ACTIONS(11187), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [127952] = 13,
+  [128380] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11165), 1,
+    ACTIONS(11189), 1,
       anon_sym_LF,
-    ACTIONS(11167), 1,
+    ACTIONS(11191), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128000] = 13,
+  [128428] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11169), 1,
+    ACTIONS(11193), 1,
       anon_sym_LF,
-    ACTIONS(11171), 1,
+    ACTIONS(11195), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128048] = 13,
+  [128476] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11173), 1,
+    ACTIONS(11197), 1,
       anon_sym_LF,
-    ACTIONS(11175), 1,
+    ACTIONS(11199), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128096] = 13,
+  [128524] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11177), 1,
+    ACTIONS(11201), 1,
       anon_sym_LF,
-    ACTIONS(11179), 1,
+    ACTIONS(11203), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128144] = 13,
+  [128572] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11181), 1,
+    ACTIONS(11205), 1,
       anon_sym_LF,
-    ACTIONS(11183), 1,
+    ACTIONS(11207), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128192] = 13,
+  [128620] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11185), 1,
+    ACTIONS(11209), 1,
       anon_sym_LF,
-    ACTIONS(11187), 1,
+    ACTIONS(11211), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128240] = 13,
+  [128668] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11215), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(11213), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [128696] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11189), 1,
+    ACTIONS(11217), 1,
       anon_sym_LF,
-    ACTIONS(11191), 1,
+    ACTIONS(11219), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128288] = 13,
+  [128744] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11193), 1,
+    ACTIONS(8178), 1,
       anon_sym_LF,
-    ACTIONS(11195), 1,
+    ACTIONS(8180), 19,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-  [128336] = 13,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10975), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11197), 1,
-      anon_sym_LF,
-    ACTIONS(11199), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10985), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10987), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128384] = 13,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [128772] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11201), 1,
+    ACTIONS(11221), 1,
       anon_sym_LF,
-    ACTIONS(11203), 1,
+    ACTIONS(11223), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128432] = 3,
+  [128820] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11205), 1,
+    ACTIONS(11003), 1,
       anon_sym_LF,
-    ACTIONS(11207), 19,
+    ACTIONS(11005), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -597287,16 +597450,16 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [128460] = 3,
+  [128848] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11073), 5,
+    ACTIONS(11107), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(11071), 15,
+    ACTIONS(11105), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -597312,42 +597475,16 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [128488] = 4,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10997), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10995), 12,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [128518] = 3,
+  [128876] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10997), 5,
+    ACTIONS(11087), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(10995), 15,
+    ACTIONS(11085), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -597363,366 +597500,190 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [128546] = 13,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10897), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
-      anon_sym_PIPE,
-    ACTIONS(10901), 1,
-      anon_sym_CARET,
-    ACTIONS(10903), 1,
-      anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10995), 3,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PIPE_PIPE,
-  [128594] = 13,
+  [128904] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11209), 1,
+    ACTIONS(11225), 1,
       anon_sym_LF,
-    ACTIONS(11211), 1,
+    ACTIONS(11227), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128642] = 12,
+  [128952] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10899), 1,
-      anon_sym_PIPE,
-    ACTIONS(10901), 1,
-      anon_sym_CARET,
-    ACTIONS(10903), 1,
-      anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10995), 4,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-  [128688] = 12,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10901), 1,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10903), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10997), 1,
-      anon_sym_PIPE,
-    ACTIONS(10891), 2,
+    ACTIONS(11229), 1,
+      anon_sym_LF,
+    ACTIONS(11231), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10995), 4,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-  [128734] = 11,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10903), 1,
-      anon_sym_AMP,
-    ACTIONS(10905), 1,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
       anon_sym_BANG_EQ,
-    ACTIONS(10997), 1,
-      anon_sym_PIPE,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10893), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10995), 5,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-  [128778] = 10,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
+    ACTIONS(10991), 4,
       anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10997), 2,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10995), 5,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-  [128820] = 8,
+      anon_sym_LT,
+  [129000] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10997), 3,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-    ACTIONS(10995), 6,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-      anon_sym_EQ_EQ,
-  [128858] = 6,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10891), 2,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11233), 1,
+      anon_sym_LF,
+    ACTIONS(11235), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10913), 2,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10893), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10997), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
+    ACTIONS(10991), 4,
       anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10995), 8,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
-  [128892] = 13,
+      anon_sym_LT,
+  [129048] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11213), 1,
+    ACTIONS(11237), 1,
       anon_sym_LF,
-    ACTIONS(11215), 1,
+    ACTIONS(11239), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [128940] = 5,
+  [129096] = 5,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10891), 2,
+    ACTIONS(11007), 1,
+      anon_sym_LF,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10893), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10997), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10995), 10,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(11009), 14,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [128972] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(11207), 5,
       anon_sym_PIPE,
+      anon_sym_CARET,
       anon_sym_AMP,
+      anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
       anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(11205), 15,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_CARET,
-      anon_sym_EQ_EQ,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [129000] = 3,
+  [129128] = 6,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10995), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(10997), 19,
-      sym_preproc_comment,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
+    ACTIONS(11009), 12,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
       anon_sym_PIPE,
@@ -597734,304 +597695,201 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [129028] = 13,
+  [129162] = 7,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11217), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11219), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129076] = 13,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(11009), 8,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11221), 1,
-      anon_sym_LF,
-    ACTIONS(11223), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10985), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-  [129124] = 13,
+  [129198] = 8,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
-    ACTIONS(10983), 1,
-      anon_sym_AMP,
-    ACTIONS(11225), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11227), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129172] = 13,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(11009), 6,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11229), 1,
+  [129236] = 9,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10987), 1,
+      anon_sym_AMP,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11231), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129220] = 3,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(7547), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(7549), 15,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
+    ACTIONS(11009), 5,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
+      anon_sym_PIPE,
       anon_sym_CARET,
-      anon_sym_EQ_EQ,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [129248] = 13,
+  [129276] = 10,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
-      anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11233), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11235), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129296] = 13,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(11009), 4,
+      sym_preproc_comment,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
-      anon_sym_CARET,
+  [129318] = 11,
+    ACTIONS(3), 1,
+      sym_comment,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11237), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11239), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(11009), 3,
+      sym_preproc_comment,
+      anon_sym_PIPE_PIPE,
+      anon_sym_AMP_AMP,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129344] = 4,
+  [129362] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10995), 1,
-      anon_sym_LF,
-    ACTIONS(10973), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10997), 16,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [129374] = 7,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10995), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
     ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(11009), 2,
+      sym_preproc_comment,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-    ACTIONS(10997), 8,
-      sym_preproc_comment,
-      anon_sym_PIPE_PIPE,
-      anon_sym_AMP_AMP,
-      anon_sym_PIPE,
-      anon_sym_CARET,
-      anon_sym_AMP,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-  [129410] = 3,
+  [129408] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11059), 1,
+    ACTIONS(11007), 1,
       anon_sym_LF,
-    ACTIONS(11061), 19,
+    ACTIONS(11009), 19,
       sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
@@ -598051,51 +597909,67 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [129438] = 13,
+  [129436] = 4,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(11007), 1,
+      anon_sym_LF,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(11009), 16,
+      sym_preproc_comment,
+      anon_sym_PLUS,
+      anon_sym_DASH,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
       anon_sym_AMP,
-    ACTIONS(11241), 1,
-      anon_sym_LF,
-    ACTIONS(11243), 1,
-      sym_preproc_comment,
-    ACTIONS(10971), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10985), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10973), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-    ACTIONS(10987), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129486] = 3,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+  [129466] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11243), 4,
+      aux_sym_preproc_elif_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym__intrinsic_type_token4,
+      aux_sym_derived_type_token1,
+    ACTIONS(11241), 15,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token8,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+      aux_sym_declared_type_token1,
+      aux_sym_declared_type_token2,
+  [129494] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(8143), 5,
+    ACTIONS(10997), 5,
       anon_sym_PIPE,
       anon_sym_AMP,
       anon_sym_BANG_EQ,
       anon_sym_GT,
       anon_sym_LT,
-    ACTIONS(8141), 15,
+    ACTIONS(10995), 15,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_PLUS,
@@ -598111,78 +597985,83 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_LT_EQ,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [129514] = 13,
+  [129522] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11245), 1,
       anon_sym_LF,
     ACTIONS(11247), 1,
       sym_preproc_comment,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129562] = 3,
+  [129570] = 13,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(11043), 1,
-      anon_sym_LF,
-    ACTIONS(11045), 19,
-      sym_preproc_comment,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
+    ACTIONS(11249), 1,
+      anon_sym_LF,
+    ACTIONS(11251), 1,
+      sym_preproc_comment,
+    ACTIONS(10975), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10977), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-  [129590] = 3,
+  [129618] = 3,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(8313), 5,
-      anon_sym_PIPE,
-      anon_sym_AMP,
-      anon_sym_BANG_EQ,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(8311), 15,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
+    ACTIONS(11029), 1,
+      anon_sym_LF,
+    ACTIONS(11031), 19,
+      sym_preproc_comment,
       anon_sym_PLUS,
       anon_sym_DASH,
       anon_sym_STAR,
@@ -598190,66 +598069,46 @@ static const uint16_t ts_small_parse_table[] = {
       anon_sym_PERCENT,
       anon_sym_PIPE_PIPE,
       anon_sym_AMP_AMP,
+      anon_sym_PIPE,
       anon_sym_CARET,
+      anon_sym_AMP,
       anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+      anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
+      anon_sym_LT,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-  [129618] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11251), 4,
-      aux_sym_preproc_elif_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym__intrinsic_type_token4,
-      aux_sym_derived_type_token1,
-    ACTIONS(11249), 15,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token8,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-      aux_sym_declared_type_token1,
-      aux_sym_declared_type_token2,
   [129646] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11253), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -598257,32 +598116,32 @@ static const uint16_t ts_small_parse_table[] = {
   [129691] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11255), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -598290,454 +598149,388 @@ static const uint16_t ts_small_parse_table[] = {
   [129736] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11257), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129781] = 12,
+  [129781] = 11,
+    ACTIONS(10943), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(11259), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(11261), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11263), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11267), 1,
+      sym_preproc_comment,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11265), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5550), 2,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_bound_procedures_repeat1,
+    STATE(7791), 3,
+      sym_preproc_else_in_bound_procedures,
+      sym_preproc_elif_in_bound_procedures,
+      sym_preproc_elifdef_in_bound_procedures,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [129824] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11259), 1,
+    ACTIONS(11269), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129826] = 12,
+  [129869] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11261), 1,
+    ACTIONS(11271), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129871] = 12,
+  [129914] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11263), 1,
+    ACTIONS(11273), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129916] = 12,
+  [129959] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11265), 1,
+    ACTIONS(11275), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [129961] = 12,
+  [130004] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11267), 1,
+    ACTIONS(11277), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130006] = 12,
+  [130049] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11269), 1,
+    ACTIONS(11279), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130051] = 12,
+  [130094] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11271), 1,
+    ACTIONS(11281), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130096] = 11,
-    ACTIONS(10953), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(11273), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(11275), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11281), 1,
-      sym_preproc_comment,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11279), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5549), 2,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8575), 3,
-      sym_preproc_else_in_bound_procedures,
-      sym_preproc_elif_in_bound_procedures,
-      sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [130139] = 10,
-    ACTIONS(11283), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(11286), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(11289), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(11295), 1,
-      sym_preproc_directive,
-    ACTIONS(11298), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11300), 1,
-      aux_sym_select_case_statement_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11292), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    ACTIONS(11303), 2,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-    STATE(5512), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_case,
-      sym_preproc_ifdef_in_select_case,
-      sym_case_statement,
-      aux_sym_select_case_statement_repeat1,
-  [130180] = 12,
+  [130139] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11305), 1,
+    ACTIONS(11283), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130225] = 14,
+  [130184] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10895), 1,
-      anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
-      anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
-      anon_sym_PIPE,
-    ACTIONS(10901), 1,
-      anon_sym_CARET,
-    ACTIONS(10903), 1,
-      anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(11307), 1,
-      anon_sym_RPAREN,
-    ACTIONS(10891), 2,
-      anon_sym_PLUS,
-      anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
-      anon_sym_LT_LT,
-      anon_sym_GT_GT,
-    ACTIONS(10893), 3,
-      anon_sym_STAR,
-      anon_sym_SLASH,
-      anon_sym_PERCENT,
-  [130274] = 12,
-    ACTIONS(3), 1,
-      sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11309), 1,
+    ACTIONS(11285), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130319] = 10,
-    ACTIONS(11311), 1,
+  [130229] = 10,
+    ACTIONS(11287), 1,
       aux_sym_preproc_include_token1,
-    ACTIONS(11314), 1,
+    ACTIONS(11290), 1,
       aux_sym_preproc_def_token1,
-    ACTIONS(11317), 1,
+    ACTIONS(11293), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(11323), 1,
+    ACTIONS(11299), 1,
       sym_preproc_directive,
-    ACTIONS(11326), 1,
+    ACTIONS(11302), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11328), 1,
+    ACTIONS(11304), 1,
       aux_sym__standalone_type_qualifier_token13,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11320), 2,
+    ACTIONS(11296), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    ACTIONS(11331), 2,
+    ACTIONS(11307), 2,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
-    STATE(5516), 8,
+    STATE(5514), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -598746,630 +598539,696 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_rank,
       sym_rank_statement,
       aux_sym_select_rank_statement_repeat1,
-  [130360] = 12,
+  [130270] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11333), 1,
+    ACTIONS(11309), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130405] = 12,
+  [130315] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11335), 1,
+    ACTIONS(11311), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130450] = 11,
-    ACTIONS(10953), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11337), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(11339), 1,
-      sym_preproc_comment,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11279), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(5548), 2,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8270), 3,
-      sym_preproc_else_in_bound_procedures,
-      sym_preproc_elif_in_bound_procedures,
-      sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [130493] = 12,
+  [130360] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11341), 1,
+    ACTIONS(11313), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130538] = 12,
+  [130405] = 14,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
+    ACTIONS(10893), 1,
+      anon_sym_AMP,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
+      anon_sym_BANG_EQ,
+    ACTIONS(11315), 1,
+      anon_sym_RPAREN,
+    ACTIONS(10881), 2,
+      anon_sym_PLUS,
+      anon_sym_DASH,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
+      anon_sym_LT_LT,
+      anon_sym_GT_GT,
+    ACTIONS(10883), 3,
+      anon_sym_STAR,
+      anon_sym_SLASH,
+      anon_sym_PERCENT,
+  [130454] = 12,
+    ACTIONS(3), 1,
+      sym_comment,
+    ACTIONS(10979), 1,
+      anon_sym_PIPE_PIPE,
+    ACTIONS(10981), 1,
+      anon_sym_AMP_AMP,
     ACTIONS(10983), 1,
+      anon_sym_PIPE,
+    ACTIONS(10985), 1,
+      anon_sym_CARET,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11343), 1,
+    ACTIONS(11317), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130583] = 12,
+  [130499] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11345), 1,
+    ACTIONS(11319), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130628] = 12,
+  [130544] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11347), 1,
+    ACTIONS(11321), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130673] = 14,
+  [130589] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10895), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10897), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10899), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10901), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10903), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(10905), 1,
-      anon_sym_EQ_EQ,
-    ACTIONS(10907), 1,
-      anon_sym_BANG_EQ,
-    ACTIONS(11349), 1,
-      anon_sym_RPAREN,
-    ACTIONS(10891), 2,
+    ACTIONS(11323), 1,
+      anon_sym_LF,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10909), 2,
-      anon_sym_GT,
-      anon_sym_LT,
-    ACTIONS(10911), 2,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-    ACTIONS(10913), 2,
+    ACTIONS(10989), 2,
+      anon_sym_EQ_EQ,
+      anon_sym_BANG_EQ,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10893), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-  [130722] = 12,
+    ACTIONS(10991), 4,
+      anon_sym_GT,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+      anon_sym_LT,
+  [130634] = 11,
+    ACTIONS(10943), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(11261), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11263), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11325), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(11327), 1,
+      sym_preproc_comment,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11265), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(5538), 2,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_bound_procedures_repeat1,
+    STATE(8413), 3,
+      sym_preproc_else_in_bound_procedures,
+      sym_preproc_elif_in_bound_procedures,
+      sym_preproc_elifdef_in_bound_procedures,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [130677] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11351), 1,
+    ACTIONS(11329), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130767] = 12,
+  [130722] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11353), 1,
+    ACTIONS(11331), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130812] = 12,
+  [130767] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11355), 1,
+    ACTIONS(11333), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130857] = 12,
+  [130812] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11357), 1,
+    ACTIONS(11335), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130902] = 12,
+  [130857] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11359), 1,
+    ACTIONS(11337), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130947] = 12,
+  [130902] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11361), 1,
+    ACTIONS(11339), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [130992] = 12,
+  [130947] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11363), 1,
+    ACTIONS(11341), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [131037] = 12,
+  [130992] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
-    ACTIONS(11365), 1,
+    ACTIONS(11343), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [131082] = 12,
+  [131037] = 10,
+    ACTIONS(11345), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(11348), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(11351), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(11357), 1,
+      sym_preproc_directive,
+    ACTIONS(11360), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11362), 1,
+      aux_sym_select_case_statement_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11354), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    ACTIONS(11365), 2,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+    STATE(5532), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_case,
+      sym_preproc_ifdef_in_select_case,
+      sym_case_statement,
+      aux_sym_select_case_statement_repeat1,
+  [131078] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11367), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
-  [131127] = 12,
+  [131123] = 14,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10885), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10887), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10889), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10891), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10893), 1,
       anon_sym_AMP,
+    ACTIONS(10895), 1,
+      anon_sym_EQ_EQ,
+    ACTIONS(10897), 1,
+      anon_sym_BANG_EQ,
     ACTIONS(11369), 1,
-      anon_sym_LF,
-    ACTIONS(10971), 2,
+      anon_sym_RPAREN,
+    ACTIONS(10881), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
-      anon_sym_EQ_EQ,
-      anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10899), 2,
+      anon_sym_GT,
+      anon_sym_LT,
+    ACTIONS(10901), 2,
+      anon_sym_GT_EQ,
+      anon_sym_LT_EQ,
+    ACTIONS(10903), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10883), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
-      anon_sym_GT,
-      anon_sym_GT_EQ,
-      anon_sym_LT_EQ,
-      anon_sym_LT,
   [131172] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11371), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
@@ -599377,451 +599236,451 @@ static const uint16_t ts_small_parse_table[] = {
   [131217] = 12,
     ACTIONS(3), 1,
       sym_comment,
-    ACTIONS(10975), 1,
+    ACTIONS(10979), 1,
       anon_sym_PIPE_PIPE,
-    ACTIONS(10977), 1,
+    ACTIONS(10981), 1,
       anon_sym_AMP_AMP,
-    ACTIONS(10979), 1,
+    ACTIONS(10983), 1,
       anon_sym_PIPE,
-    ACTIONS(10981), 1,
+    ACTIONS(10985), 1,
       anon_sym_CARET,
-    ACTIONS(10983), 1,
+    ACTIONS(10987), 1,
       anon_sym_AMP,
     ACTIONS(11373), 1,
       anon_sym_LF,
-    ACTIONS(10971), 2,
+    ACTIONS(10975), 2,
       anon_sym_PLUS,
       anon_sym_DASH,
-    ACTIONS(10985), 2,
+    ACTIONS(10989), 2,
       anon_sym_EQ_EQ,
       anon_sym_BANG_EQ,
-    ACTIONS(10989), 2,
+    ACTIONS(10993), 2,
       anon_sym_LT_LT,
       anon_sym_GT_GT,
-    ACTIONS(10973), 3,
+    ACTIONS(10977), 3,
       anon_sym_STAR,
       anon_sym_SLASH,
       anon_sym_PERCENT,
-    ACTIONS(10987), 4,
+    ACTIONS(10991), 4,
       anon_sym_GT,
       anon_sym_GT_EQ,
       anon_sym_LT_EQ,
       anon_sym_LT,
   [131262] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11375), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5550), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8478), 3,
+    STATE(8646), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131302] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11377), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5542), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8239), 3,
+    STATE(8557), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131342] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11379), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(7737), 3,
+    STATE(8416), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131382] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11377), 1,
+    ACTIONS(11379), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5544), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8239), 3,
+    STATE(8416), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131422] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11381), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5539), 2,
+    STATE(5546), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8428), 3,
+    STATE(8649), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131462] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11383), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5549), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8314), 3,
+    STATE(8556), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131502] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11385), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8433), 3,
+    STATE(8418), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131542] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11387), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8436), 3,
+    STATE(8555), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131582] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11389), 1,
+    ACTIONS(11377), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5540), 2,
+    STATE(5537), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8209), 3,
+    STATE(8557), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131622] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11391), 1,
+    ACTIONS(11389), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5543), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8338), 3,
+    STATE(8616), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131662] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11393), 1,
+    ACTIONS(11391), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5544), 2,
+    STATE(5539), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8343), 3,
+    STATE(8242), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131702] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11393), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5543), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8343), 3,
+    STATE(8246), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131742] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11375), 1,
+    ACTIONS(11395), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8478), 3,
+    STATE(8647), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
   [131782] = 10,
-    ACTIONS(10953), 1,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11275), 1,
+    ACTIONS(11261), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11277), 1,
+    ACTIONS(11263), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11395), 1,
+    ACTIONS(11393), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11279), 2,
+    ACTIONS(11265), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    STATE(8316), 3,
+    STATE(8246), 3,
       sym_preproc_else_in_bound_procedures,
       sym_preproc_elif_in_bound_procedures,
       sym_preproc_elifdef_in_bound_procedures,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
@@ -599831,7 +599690,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4403), 7,
+    ACTIONS(4515), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599839,7 +599698,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4401), 9,
+    ACTIONS(4513), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599853,7 +599712,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4531), 7,
+    ACTIONS(4471), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599861,7 +599720,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4529), 9,
+    ACTIONS(4469), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599875,7 +599734,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4407), 7,
+    ACTIONS(4597), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599883,7 +599742,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4405), 9,
+    ACTIONS(4595), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599897,7 +599756,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4415), 7,
+    ACTIONS(4609), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599905,7 +599764,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4413), 9,
+    ACTIONS(4607), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599919,7 +599778,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4411), 7,
+    ACTIONS(4545), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599927,7 +599786,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4409), 9,
+    ACTIONS(4543), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599941,7 +599800,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4631), 7,
+    ACTIONS(4541), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599949,7 +599808,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4629), 9,
+    ACTIONS(4539), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599963,7 +599822,7 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4639), 7,
+    ACTIONS(4537), 7,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_select_case_statement_token2,
@@ -599971,7 +599830,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(4637), 9,
+    ACTIONS(4535), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -599981,89 +599840,71 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [131997] = 4,
-    ACTIONS(11399), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11401), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11397), 9,
+  [131997] = 8,
+    ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
+    ACTIONS(10756), 1,
       sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [132023] = 4,
-    ACTIONS(11405), 1,
-      sym_preproc_comment,
+    ACTIONS(10909), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10913), 1,
+      aux_sym__standalone_type_qualifier_token13,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11407), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11403), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
+    ACTIONS(10911), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [132049] = 8,
+    STATE(5384), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_rank,
+      sym_preproc_ifdef_in_select_rank,
+      sym_rank_statement,
+      aux_sym_select_rank_statement_repeat1,
+  [132031] = 8,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10881), 1,
+    ACTIONS(10871), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
-      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(10875), 1,
+      aux_sym_select_case_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10873), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5367), 8,
+    STATE(5397), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
       sym_preproc_call,
-      sym_preproc_if_in_select_rank,
-      sym_preproc_ifdef_in_select_rank,
-      sym_rank_statement,
-      aux_sym_select_rank_statement_repeat1,
-  [132083] = 4,
-    ACTIONS(11411), 1,
+      sym_preproc_if_in_select_case,
+      sym_preproc_ifdef_in_select_case,
+      sym_case_statement,
+      aux_sym_select_case_statement_repeat1,
+  [132065] = 4,
+    ACTIONS(11399), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11413), 5,
+    ACTIONS(11401), 5,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(11409), 9,
+    ACTIONS(11397), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -600073,19 +599914,19 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [132109] = 4,
-    ACTIONS(11417), 1,
+  [132091] = 4,
+    ACTIONS(11405), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11419), 5,
+    ACTIONS(11407), 5,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(11415), 9,
+    ACTIONS(11403), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -600095,50 +599936,46 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [132135] = 8,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10875), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
-      aux_sym_select_case_statement_token2,
+  [132117] = 4,
+    ACTIONS(11411), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10877), 2,
+    ACTIONS(11413), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11409), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5359), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_case,
-      sym_preproc_ifdef_in_select_case,
-      sym_case_statement,
-      aux_sym_select_case_statement_repeat1,
-  [132169] = 8,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [132143] = 8,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10875), 1,
+    ACTIONS(10871), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
+    ACTIONS(10875), 1,
       aux_sym_select_case_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10877), 2,
+    ACTIONS(10873), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5353), 8,
+    STATE(5391), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -600147,24 +599984,24 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_case,
       sym_case_statement,
       aux_sym_select_case_statement_repeat1,
-  [132203] = 8,
+  [132177] = 8,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10881), 1,
+    ACTIONS(10909), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
+    ACTIONS(10913), 1,
       aux_sym__standalone_type_qualifier_token13,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10911), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5386), 8,
+    STATE(5390), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -600173,6 +600010,28 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_rank,
       sym_rank_statement,
       aux_sym_select_rank_statement_repeat1,
+  [132211] = 4,
+    ACTIONS(11417), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11419), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11415), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
   [132237] = 4,
     ACTIONS(11423), 1,
       sym_preproc_comment,
@@ -600202,17 +600061,17 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_def_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10881), 1,
+    ACTIONS(10909), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
+    ACTIONS(10913), 1,
       aux_sym__standalone_type_qualifier_token13,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10911), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5354), 8,
+    STATE(5387), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -600243,33 +600102,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [132323] = 8,
-    ACTIONS(10748), 1,
-      aux_sym_preproc_include_token1,
-    ACTIONS(10750), 1,
-      aux_sym_preproc_def_token1,
-    ACTIONS(10756), 1,
-      sym_preproc_directive,
-    ACTIONS(10875), 1,
-      aux_sym_preproc_if_token1,
-    ACTIONS(10879), 1,
-      aux_sym_select_case_statement_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10877), 2,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-    STATE(5371), 8,
-      sym_preproc_include,
-      sym_preproc_def,
-      sym_preproc_function_def,
-      sym_preproc_call,
-      sym_preproc_if_in_select_case,
-      sym_preproc_ifdef_in_select_case,
-      sym_case_statement,
-      aux_sym_select_case_statement_repeat1,
-  [132357] = 4,
+  [132323] = 4,
     ACTIONS(11435), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
@@ -600291,46 +600124,24 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [132383] = 4,
-    ACTIONS(11441), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11443), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11439), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [132409] = 8,
+  [132349] = 8,
     ACTIONS(10748), 1,
       aux_sym_preproc_include_token1,
     ACTIONS(10750), 1,
       aux_sym_preproc_def_token1,
     ACTIONS(10756), 1,
       sym_preproc_directive,
-    ACTIONS(10881), 1,
+    ACTIONS(10909), 1,
       aux_sym_preproc_if_token1,
-    ACTIONS(10885), 1,
+    ACTIONS(10913), 1,
       aux_sym__standalone_type_qualifier_token13,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10883), 2,
+    ACTIONS(10911), 2,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-    STATE(5358), 8,
+    STATE(5375), 8,
       sym_preproc_include,
       sym_preproc_def,
       sym_preproc_function_def,
@@ -600339,8 +600150,56 @@ static const uint16_t ts_small_parse_table[] = {
       sym_preproc_ifdef_in_select_rank,
       sym_rank_statement,
       aux_sym_select_rank_statement_repeat1,
+  [132383] = 8,
+    ACTIONS(10748), 1,
+      aux_sym_preproc_include_token1,
+    ACTIONS(10750), 1,
+      aux_sym_preproc_def_token1,
+    ACTIONS(10756), 1,
+      sym_preproc_directive,
+    ACTIONS(10871), 1,
+      aux_sym_preproc_if_token1,
+    ACTIONS(10875), 1,
+      aux_sym_select_case_statement_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10873), 2,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+    STATE(5352), 8,
+      sym_preproc_include,
+      sym_preproc_def,
+      sym_preproc_function_def,
+      sym_preproc_call,
+      sym_preproc_if_in_select_case,
+      sym_preproc_ifdef_in_select_case,
+      sym_case_statement,
+      aux_sym_select_case_statement_repeat1,
+  [132417] = 4,
+    ACTIONS(11441), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11443), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11439), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
   [132443] = 10,
-    ACTIONS(850), 1,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11445), 1,
       aux_sym_preproc_if_token2,
@@ -600350,7 +600209,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600358,111 +600217,176 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7827), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8228), 3,
+    STATE(8052), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [132480] = 8,
-    ACTIONS(758), 1,
+    STATE(8640), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [132480] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11457), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11455), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [132503] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11455), 1,
+    ACTIONS(11459), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8566), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8567), 3,
+    STATE(8145), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8668), 3,
+    STATE(8342), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [132513] = 8,
-    ACTIONS(758), 1,
+    STATE(8580), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [132536] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11461), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11465), 1,
       aux_sym_preproc_if_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7714), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8596), 3,
+    STATE(8270), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8644), 3,
+    STATE(8272), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132546] = 8,
-    ACTIONS(758), 1,
+  [132573] = 4,
+    ACTIONS(11471), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11467), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11469), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [132598] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11463), 1,
+    ACTIONS(11473), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8235), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8259), 3,
+    STATE(7898), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8646), 3,
+    STATE(8281), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [132579] = 3,
+    STATE(8658), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [132631] = 4,
+    ACTIONS(11479), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11467), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11465), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
+    ACTIONS(11475), 2,
       aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11477), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [132656] = 4,
+    ACTIONS(11485), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11481), 2,
+      aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [132602] = 10,
-    ACTIONS(850), 1,
+    ACTIONS(11483), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [132681] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -600470,9 +600394,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11469), 1,
+    ACTIONS(11487), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600480,147 +600404,208 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7747), 3,
+    STATE(8439), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(7764), 3,
+    STATE(8441), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132639] = 10,
-    ACTIONS(850), 1,
+  [132718] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11471), 1,
+    ACTIONS(11489), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7914), 3,
+    STATE(7836), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8317), 3,
+    STATE(8184), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [132676] = 8,
-    ACTIONS(758), 1,
+    STATE(8531), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [132751] = 4,
+    ACTIONS(11495), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11491), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11493), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [132776] = 4,
+    ACTIONS(11501), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11497), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11499), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [132801] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11473), 1,
+    ACTIONS(11503), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7710), 3,
+    STATE(7713), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(7843), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8342), 3,
+    STATE(8191), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-    STATE(8682), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [132709] = 10,
-    ACTIONS(850), 1,
+  [132834] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11475), 1,
+    ACTIONS(11505), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7819), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(7954), 3,
+    STATE(7757), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132746] = 10,
-    ACTIONS(850), 1,
+    STATE(8291), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8467), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [132867] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11469), 1,
+    ACTIONS(11507), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7747), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(7764), 3,
+    STATE(8118), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132783] = 8,
-    ACTIONS(758), 1,
+    STATE(8319), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+    STATE(8590), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [132900] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11477), 1,
+    ACTIONS(11509), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8155), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8167), 3,
+    STATE(8116), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8639), 3,
+    STATE(8317), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+    STATE(8614), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [132933] = 8,
+    ACTIONS(760), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11461), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11511), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11463), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8267), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [132816] = 10,
-    ACTIONS(850), 1,
+    STATE(8268), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8656), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [132966] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -600628,9 +600613,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11479), 1,
+    ACTIONS(11465), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600638,41 +600623,64 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8283), 3,
+    STATE(8270), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8329), 3,
+    STATE(8272), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132853] = 8,
-    ACTIONS(758), 1,
+  [133003] = 4,
+    ACTIONS(11517), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11513), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11515), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [133028] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11481), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11519), 1,
       aux_sym_preproc_if_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7749), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(7860), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(7864), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [132886] = 10,
-    ACTIONS(850), 1,
+    STATE(8078), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [133065] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -600680,9 +600688,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11455), 1,
+    ACTIONS(11521), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600690,119 +600698,103 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8566), 3,
+    STATE(8498), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8567), 3,
+    STATE(8645), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132923] = 8,
-    ACTIONS(758), 1,
+  [133102] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11483), 1,
+    ACTIONS(11523), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7750), 3,
+    STATE(7761), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(7898), 3,
+    STATE(8266), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(7951), 3,
+    STATE(8460), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [132956] = 8,
-    ACTIONS(758), 1,
+  [133135] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11485), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11525), 1,
       aux_sym_preproc_if_token2,
+    STATE(902), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8372), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8418), 3,
+    STATE(8498), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8556), 3,
+    STATE(8503), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [132989] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11401), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11397), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [133012] = 8,
-    ACTIONS(758), 1,
+  [133172] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11479), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11527), 1,
       aux_sym_preproc_if_token2,
+    STATE(902), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8283), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8329), 3,
+    STATE(8153), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8492), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [133045] = 4,
-    ACTIONS(11491), 1,
+  [133209] = 4,
+    ACTIONS(11533), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11487), 2,
+    ACTIONS(11529), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11489), 11,
+    ACTIONS(11531), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -600814,16 +600806,41 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [133070] = 4,
-    ACTIONS(11497), 1,
+  [133234] = 8,
+    ACTIONS(760), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11461), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11465), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11463), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8270), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8272), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8655), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [133267] = 4,
+    ACTIONS(11539), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11493), 2,
+    ACTIONS(11535), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11495), 11,
+    ACTIONS(11537), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -600835,8 +600852,28 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [133095] = 10,
-    ACTIONS(850), 1,
+  [133292] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11543), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11541), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [133315] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -600844,9 +600881,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11499), 1,
+    ACTIONS(11511), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600854,62 +600891,43 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8228), 3,
+    STATE(8267), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8231), 3,
+    STATE(8268), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133132] = 8,
-    ACTIONS(758), 1,
+  [133352] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11501), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11545), 1,
       aux_sym_preproc_if_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7738), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(7755), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(7848), 3,
+    STATE(8444), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [133165] = 4,
-    ACTIONS(11507), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11503), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11505), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133190] = 10,
-    ACTIONS(850), 1,
+    STATE(8447), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [133389] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -600917,9 +600935,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11471), 1,
+    ACTIONS(11547), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -600927,92 +600945,52 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7914), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8317), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [133227] = 4,
-    ACTIONS(11513), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11509), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11511), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133252] = 4,
-    ACTIONS(11519), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11515), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11517), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133277] = 8,
-    ACTIONS(758), 1,
+    STATE(8636), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [133426] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11521), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11547), 1,
       aux_sym_preproc_if_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7802), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8095), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8294), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [133310] = 3,
+    STATE(8636), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [133463] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11525), 5,
+    ACTIONS(11551), 5,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(11523), 9,
+    ACTIONS(11549), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -601022,29 +601000,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [133333] = 4,
-    ACTIONS(11531), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11527), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11529), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133358] = 10,
-    ACTIONS(850), 1,
+  [133486] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601052,9 +601009,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11499), 1,
+    ACTIONS(11527), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601062,37 +601019,16 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8228), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8231), 3,
+    STATE(8153), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133395] = 4,
-    ACTIONS(11537), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11533), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11535), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133420] = 10,
-    ACTIONS(850), 1,
+  [133523] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601100,9 +601036,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11539), 1,
+    ACTIONS(11553), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601110,36 +601046,16 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7806), 3,
+    STATE(7788), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(7816), 3,
+    STATE(7881), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133457] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11543), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11541), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [133480] = 10,
-    ACTIONS(850), 1,
+  [133560] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601147,9 +601063,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11545), 1,
+    ACTIONS(11555), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601157,16 +601073,41 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7943), 3,
+    STATE(8160), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8259), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [133597] = 8,
+    ACTIONS(760), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11461), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11557), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11463), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8345), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+    STATE(8433), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8228), 3,
+    STATE(8571), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [133517] = 10,
-    ACTIONS(850), 1,
+  [133630] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601174,9 +601115,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11547), 1,
+    ACTIONS(11559), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601184,46 +601125,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7819), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8111), 3,
+    STATE(8038), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133554] = 4,
-    ACTIONS(11553), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11549), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11551), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133579] = 3,
+    STATE(8052), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [133667] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11557), 5,
+    ACTIONS(11563), 5,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(11555), 9,
+    ACTIONS(11561), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -601233,29 +601153,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [133602] = 4,
-    ACTIONS(11563), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11559), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11561), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [133627] = 10,
-    ACTIONS(850), 1,
+  [133690] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601265,7 +601164,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token2,
     ACTIONS(11565), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601273,78 +601172,74 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8317), 3,
+    STATE(7876), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8318), 3,
+    STATE(7877), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133664] = 10,
-    ACTIONS(850), 1,
+  [133727] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11545), 1,
+    ACTIONS(11567), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7943), 3,
+    STATE(7763), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8228), 3,
+    STATE(8071), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [133701] = 10,
-    ACTIONS(850), 1,
+    STATE(8397), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [133760] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11567), 1,
+    ACTIONS(11569), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7806), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(7911), 3,
+    STATE(8205), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133738] = 4,
-    ACTIONS(11573), 1,
+    STATE(8360), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+    STATE(8516), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [133793] = 4,
+    ACTIONS(11575), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11569), 2,
+    ACTIONS(11571), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11571), 11,
+    ACTIONS(11573), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -601356,33 +601251,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [133763] = 8,
-    ACTIONS(758), 1,
+  [133818] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11575), 1,
+    ACTIONS(11545), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7756), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8154), 3,
+    STATE(8444), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8309), 3,
+    STATE(8447), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8622), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [133796] = 10,
-    ACTIONS(850), 1,
+  [133851] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601392,7 +601287,7 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token2,
     ACTIONS(11577), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601400,41 +601295,66 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7883), 3,
+    STATE(7999), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8639), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8408), 3,
+  [133888] = 8,
+    ACTIONS(760), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11461), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11579), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11463), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8572), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [133833] = 8,
-    ACTIONS(758), 1,
+    STATE(8573), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8598), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [133921] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11579), 1,
+    ACTIONS(11581), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7757), 3,
+    STATE(7750), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8175), 3,
+    STATE(8341), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8354), 3,
+    STATE(8494), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [133866] = 10,
-    ACTIONS(850), 1,
+  [133954] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601442,9 +601362,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11581), 1,
+    ACTIONS(11577), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601452,41 +601372,58 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7819), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8273), 3,
+    STATE(8639), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133903] = 8,
-    ACTIONS(758), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11583), 1,
-      aux_sym_preproc_if_token2,
+  [133991] = 4,
+    ACTIONS(11587), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7761), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8277), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8417), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [133936] = 10,
-    ACTIONS(850), 1,
+    ACTIONS(11583), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11585), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [134016] = 4,
+    ACTIONS(11593), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11589), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11591), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [134041] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601494,9 +601431,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11585), 1,
+    ACTIONS(11579), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601504,43 +601441,61 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8408), 3,
+    STATE(8572), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8431), 3,
+    STATE(8573), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [133973] = 10,
-    ACTIONS(850), 1,
+  [134078] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11431), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11427), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [134101] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11587), 1,
+    ACTIONS(11595), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7946), 3,
+    STATE(7760), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8387), 3,
+    STATE(8031), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134010] = 10,
-    ACTIONS(850), 1,
+    STATE(8393), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [134134] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601548,9 +601503,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11461), 1,
+    ACTIONS(11519), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601558,102 +601513,123 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8596), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8644), 3,
+    STATE(8078), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134047] = 8,
-    ACTIONS(758), 1,
+  [134171] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11589), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11597), 1,
       aux_sym_preproc_if_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7770), 3,
+    STATE(8448), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8199), 3,
+    STATE(8449), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8207), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [134080] = 10,
-    ACTIONS(850), 1,
+  [134208] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11591), 1,
+    ACTIONS(11599), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7986), 3,
+    STATE(8103), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8398), 3,
+    STATE(8243), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+    STATE(8548), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134117] = 8,
-    ACTIONS(758), 1,
+  [134241] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11593), 1,
+    ACTIONS(11597), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8158), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8169), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8660), 3,
+    STATE(8448), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134150] = 3,
+    STATE(8449), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8621), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [134274] = 4,
+    ACTIONS(11605), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11431), 5,
+    ACTIONS(11601), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11603), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [134299] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11425), 5,
       sym__integer_literal,
       aux_sym_end_select_statement_token1,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-    ACTIONS(11427), 9,
+    ACTIONS(11421), 9,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -601663,8 +601639,8 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-  [134173] = 10,
-    ACTIONS(850), 1,
+  [134322] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601672,9 +601648,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11463), 1,
+    ACTIONS(11607), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601682,118 +601658,61 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8259), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8646), 3,
+    STATE(8052), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134210] = 8,
-    ACTIONS(758), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11591), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11459), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7986), 3,
+    STATE(8171), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8320), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8398), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [134243] = 8,
-    ACTIONS(758), 1,
+  [134359] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11469), 1,
+    ACTIONS(11609), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7747), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(7764), 3,
+    STATE(7749), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8323), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [134276] = 8,
-    ACTIONS(758), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11595), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11459), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7722), 3,
+    STATE(8356), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(7742), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8287), 3,
+    STATE(8499), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [134309] = 10,
-    ACTIONS(850), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11597), 1,
-      aux_sym_preproc_if_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
+  [134392] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8387), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8405), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [134346] = 10,
-    ACTIONS(850), 1,
+    ACTIONS(11613), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11611), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [134415] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601801,9 +601720,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11599), 1,
+    ACTIONS(11615), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(902), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601811,16 +601730,16 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8543), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8548), 3,
+    STATE(7834), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134383] = 10,
-    ACTIONS(850), 1,
+    STATE(8498), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [134452] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601828,9 +601747,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11601), 1,
+    ACTIONS(11617), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601838,16 +601757,40 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7806), 3,
+    STATE(8259), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8655), 3,
+    STATE(8627), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134420] = 10,
-    ACTIONS(850), 1,
+  [134489] = 7,
+    ACTIONS(11621), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11623), 1,
+      aux_sym_module_statement_token1,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(5637), 2,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_bound_procedures_repeat1,
+    ACTIONS(11619), 4,
+      aux_sym_preproc_if_token2,
+      aux_sym_preproc_else_token1,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    ACTIONS(11626), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [134520] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601855,9 +601798,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11603), 1,
+    ACTIONS(11629), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601865,41 +601808,43 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7712), 3,
+    STATE(7706), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8317), 3,
+    STATE(7788), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134457] = 8,
-    ACTIONS(758), 1,
+  [134557] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11599), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11631), 1,
       aux_sym_preproc_if_token2,
+    STATE(902), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8224), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8543), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8548), 3,
+    STATE(7852), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134490] = 10,
-    ACTIONS(850), 1,
+  [134594] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601907,9 +601852,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11603), 1,
+    ACTIONS(11633), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601917,16 +601862,16 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7712), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8317), 3,
+    STATE(8259), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134527] = 10,
-    ACTIONS(850), 1,
+    STATE(8260), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [134631] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601934,9 +601879,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11605), 1,
+    ACTIONS(11631), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601944,16 +601889,16 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8408), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8438), 3,
+    STATE(7852), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134564] = 10,
-    ACTIONS(850), 1,
+  [134668] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
@@ -601961,9 +601906,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    ACTIONS(11565), 1,
+    ACTIONS(11635), 1,
       aux_sym_preproc_if_token2,
-    STATE(844), 1,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -601971,96 +601916,98 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8317), 3,
+    STATE(7788), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8318), 3,
+    STATE(8630), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134601] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11609), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11607), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [134624] = 8,
-    ACTIONS(758), 1,
+  [134705] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11611), 1,
+    ACTIONS(11451), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(11637), 1,
       aux_sym_preproc_if_token2,
+    STATE(902), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7772), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8236), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8248), 3,
+    STATE(8204), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [134657] = 8,
-    ACTIONS(758), 1,
+  [134742] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11613), 1,
+    ACTIONS(11639), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7868), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8200), 3,
+    STATE(7742), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8213), 3,
+    STATE(8368), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8562), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [134690] = 10,
-    ACTIONS(850), 1,
+  [134775] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11643), 5,
+      sym__integer_literal,
+      aux_sym_end_select_statement_token1,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+    ACTIONS(11641), 9,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+  [134798] = 10,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11445), 1,
-      aux_sym_preproc_if_token2,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
     ACTIONS(11451), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(11453), 1,
       aux_sym_end_program_statement_token2,
-    STATE(844), 1,
+    ACTIONS(11637), 1,
+      aux_sym_preproc_if_token2,
+    STATE(853), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -602068,210 +602015,122 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7827), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8228), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134727] = 10,
-    ACTIONS(850), 1,
+    STATE(8204), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [134835] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(11615), 1,
+    ACTIONS(11645), 1,
       aux_sym_preproc_if_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7851), 3,
+    STATE(7756), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8387), 3,
+    STATE(8307), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134764] = 4,
-    ACTIONS(11621), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11617), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11619), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [134789] = 7,
-    ACTIONS(11625), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11627), 1,
-      aux_sym_module_statement_token1,
-    STATE(3339), 1,
-      sym_procedure_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(5645), 2,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_bound_procedures_repeat1,
-    ACTIONS(11623), 4,
-      aux_sym_preproc_if_token2,
-      aux_sym_preproc_else_token1,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    ACTIONS(11630), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [134820] = 8,
-    ACTIONS(758), 1,
+    STATE(8473), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [134868] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11633), 1,
+    ACTIONS(11647), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8050), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8651), 3,
+    STATE(7838), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8654), 3,
+    STATE(8193), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134853] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11637), 5,
-      sym__integer_literal,
-      aux_sym_end_select_statement_token1,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-    ACTIONS(11635), 9,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-  [134876] = 8,
-    ACTIONS(758), 1,
+    STATE(8536), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [134901] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11639), 1,
+    ACTIONS(11565), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7754), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(7824), 3,
+    STATE(7876), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8275), 3,
+    STATE(7877), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8535), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [134909] = 8,
-    ACTIONS(758), 1,
+  [134934] = 8,
+    ACTIONS(760), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11457), 1,
+    ACTIONS(11461), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11641), 1,
+    ACTIONS(11487), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11459), 2,
+    ACTIONS(11463), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7927), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8127), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8580), 3,
+    STATE(8439), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [134942] = 4,
-    ACTIONS(11647), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11643), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11645), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
+    STATE(8441), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8623), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
   [134967] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5038), 2,
+    ACTIONS(11649), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5040), 11,
+    ACTIONS(11651), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602287,10 +602146,10 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11649), 2,
+    ACTIONS(11571), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11651), 11,
+    ACTIONS(11573), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602321,92 +602180,44 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135033] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
-      anon_sym_EQ,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10451), 1,
-      anon_sym_STAR,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(11659), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(5322), 1,
-      sym_character_length,
-    STATE(5327), 1,
-      sym_argument_list,
-    STATE(5334), 1,
-      sym_coarray_index,
-    STATE(6165), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11661), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [135075] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11663), 2,
-      aux_sym_preproc_if_token1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11665), 11,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      aux_sym_module_statement_token1,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-      aux_sym_end_type_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [135097] = 14,
-    ACTIONS(10155), 1,
+  [135033] = 14,
+    ACTIONS(10172), 1,
       aux_sym_select_case_statement_token3,
-    ACTIONS(11667), 1,
+    ACTIONS(11657), 1,
       aux_sym_do_loop_statement_token1,
-    ACTIONS(11669), 1,
+    ACTIONS(11659), 1,
       aux_sym__inline_if_statement_token1,
-    ACTIONS(11671), 1,
+    ACTIONS(11661), 1,
       aux_sym__inline_where_statement_token1,
-    ACTIONS(11673), 1,
+    ACTIONS(11663), 1,
       aux_sym__forall_control_expression_token1,
-    ACTIONS(11675), 1,
+    ACTIONS(11665), 1,
       aux_sym_select_case_statement_token1,
-    ACTIONS(11677), 1,
+    ACTIONS(11667), 1,
       aux_sym_select_type_statement_token1,
-    ACTIONS(11679), 1,
+    ACTIONS(11669), 1,
       aux_sym_select_rank_statement_token1,
-    ACTIONS(11681), 1,
+    ACTIONS(11671), 1,
       aux_sym_block_construct_token1,
-    ACTIONS(11683), 1,
+    ACTIONS(11673), 1,
       aux_sym_associate_statement_token1,
-    ACTIONS(11685), 1,
+    ACTIONS(11675), 1,
       aux_sym_coarray_team_statement_token1,
-    ACTIONS(11687), 1,
+    ACTIONS(11677), 1,
       aux_sym_coarray_critical_statement_token1,
-    STATE(7266), 1,
+    STATE(6499), 1,
       sym__forall_control_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [135141] = 3,
+  [135077] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11689), 2,
+    ACTIONS(5078), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11691), 11,
+    ACTIONS(5080), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602418,14 +602229,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135163] = 3,
+  [135099] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11693), 2,
+    ACTIONS(5052), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11695), 11,
+    ACTIONS(5054), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602437,14 +602248,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135185] = 3,
+  [135121] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11697), 2,
+    ACTIONS(5120), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11699), 11,
+    ACTIONS(5122), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602456,14 +602267,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135207] = 3,
+  [135143] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11509), 2,
+    ACTIONS(11679), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11511), 11,
+    ACTIONS(11681), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602475,14 +602286,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135229] = 3,
+  [135165] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11701), 2,
+    ACTIONS(11683), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11703), 11,
+    ACTIONS(11685), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602494,43 +602305,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135251] = 13,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
-      anon_sym_EQ,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10451), 1,
-      anon_sym_STAR,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(11705), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(5322), 1,
-      sym_character_length,
-    STATE(5327), 1,
-      sym_argument_list,
-    STATE(5334), 1,
-      sym_coarray_index,
-    STATE(6224), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11707), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [135293] = 3,
+  [135187] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5138), 2,
+    ACTIONS(5048), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5140), 11,
+    ACTIONS(5050), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602542,14 +602324,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135315] = 3,
+  [135209] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5032), 2,
+    ACTIONS(11535), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5034), 11,
+    ACTIONS(11537), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602561,14 +602343,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135337] = 3,
+  [135231] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5082), 2,
+    ACTIONS(5088), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5084), 11,
+    ACTIONS(5090), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602580,14 +602362,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135359] = 3,
+  [135253] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5054), 2,
+    ACTIONS(5070), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5056), 11,
+    ACTIONS(5072), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602599,14 +602381,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135381] = 3,
+  [135275] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5086), 2,
+    ACTIONS(5128), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5088), 11,
+    ACTIONS(5130), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602618,14 +602400,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135403] = 3,
+  [135297] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11709), 2,
+    ACTIONS(11687), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11711), 11,
+    ACTIONS(11689), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602637,14 +602419,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135425] = 3,
+  [135319] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5058), 2,
+    ACTIONS(5116), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5060), 11,
+    ACTIONS(5118), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602656,14 +602438,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135447] = 3,
+  [135341] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5094), 2,
+    ACTIONS(11691), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(5096), 11,
+    ACTIONS(11693), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602675,14 +602457,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135469] = 3,
+  [135363] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11713), 2,
+    ACTIONS(11695), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11715), 11,
+    ACTIONS(11697), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602694,14 +602476,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135491] = 3,
+  [135385] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11533), 2,
+    ACTIONS(11699), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11535), 11,
+    ACTIONS(11701), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602713,14 +602495,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135513] = 3,
+  [135407] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11527), 2,
+    ACTIONS(11703), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11529), 11,
+    ACTIONS(11705), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602732,14 +602514,14 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135535] = 3,
+  [135429] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11569), 2,
+    ACTIONS(11475), 2,
       aux_sym_preproc_if_token1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11571), 11,
+    ACTIONS(11477), 11,
       aux_sym_preproc_ifdef_token1,
       aux_sym_preproc_ifdef_token2,
       aux_sym_module_statement_token1,
@@ -602751,66 +602533,90 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135557] = 12,
+  [135451] = 13,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
+    ACTIONS(7515), 1,
       anon_sym_EQ,
-    ACTIONS(9630), 1,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(10451), 1,
+    ACTIONS(10461), 1,
       anon_sym_STAR,
-    ACTIONS(11717), 1,
+    ACTIONS(11707), 1,
       anon_sym_COMMA,
-    STATE(2550), 1,
+    ACTIONS(11709), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(5322), 1,
+    STATE(5323), 1,
       sym_character_length,
-    STATE(5327), 1,
+    STATE(5324), 1,
       sym_argument_list,
-    STATE(5334), 1,
+    STATE(5328), 1,
       sym_coarray_index,
-    STATE(6323), 1,
+    STATE(6190), 1,
       aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11707), 2,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(11711), 2,
       aux_sym_enumerator_statement_token1,
-  [135596] = 11,
+      aux_sym_end_enum_statement_token1,
+  [135493] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11601), 2,
+      aux_sym_preproc_if_token1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11603), 11,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      aux_sym_module_statement_token1,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+      aux_sym_end_type_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [135515] = 13,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
+    ACTIONS(7515), 1,
       anon_sym_EQ,
-    ACTIONS(9630), 1,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(10451), 1,
+    ACTIONS(10461), 1,
       anon_sym_STAR,
-    ACTIONS(11721), 1,
+    ACTIONS(11707), 1,
+      anon_sym_COMMA,
+    ACTIONS(11713), 1,
       aux_sym_end_program_statement_token1,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(5322), 1,
+    STATE(5323), 1,
       sym_character_length,
-    STATE(5327), 1,
+    STATE(5324), 1,
       sym_argument_list,
-    STATE(5334), 1,
+    STATE(5328), 1,
       sym_coarray_index,
+    STATE(6261), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11719), 3,
-      anon_sym_COMMA,
+    ACTIONS(11715), 2,
       aux_sym_enumerator_statement_token1,
       aux_sym_end_enum_statement_token1,
-  [135633] = 3,
-    ACTIONS(11725), 1,
+  [135557] = 3,
+    ACTIONS(11719), 1,
       aux_sym_select_case_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11723), 11,
+    ACTIONS(11717), 11,
       aux_sym_do_loop_statement_token1,
       aux_sym__inline_if_statement_token1,
       aux_sym__inline_where_statement_token1,
@@ -602822,6 +602628,59 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_associate_statement_token1,
       aux_sym_coarray_team_statement_token1,
       aux_sym_coarray_critical_statement_token1,
+  [135578] = 12,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7515), 1,
+      anon_sym_EQ,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10461), 1,
+      anon_sym_STAR,
+    ACTIONS(11721), 1,
+      anon_sym_COMMA,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(5323), 1,
+      sym_character_length,
+    STATE(5324), 1,
+      sym_argument_list,
+    STATE(5328), 1,
+      sym_coarray_index,
+    STATE(6418), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11715), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [135617] = 11,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7515), 1,
+      anon_sym_EQ,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10461), 1,
+      anon_sym_STAR,
+    ACTIONS(11725), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(5323), 1,
+      sym_character_length,
+    STATE(5324), 1,
+      sym_argument_list,
+    STATE(5328), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11723), 3,
+      anon_sym_COMMA,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
   [135654] = 7,
     ACTIONS(11727), 1,
       aux_sym_implicit_statement_token2,
@@ -602829,9 +602688,9 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym__intrinsic_type_token4,
     ACTIONS(11733), 1,
       aux_sym__intrinsic_type_token8,
-    STATE(6414), 1,
+    STATE(6386), 1,
       sym__intrinsic_type,
-    STATE(8536), 1,
+    STATE(8642), 1,
       sym_intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -602847,28 +602706,28 @@ static const uint16_t ts_small_parse_table[] = {
   [135683] = 12,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
+    ACTIONS(7515), 1,
       anon_sym_EQ,
-    ACTIONS(9630), 1,
+    ACTIONS(9596), 1,
       anon_sym_LBRACK,
-    ACTIONS(10451), 1,
+    ACTIONS(10461), 1,
       anon_sym_STAR,
-    ACTIONS(11717), 1,
+    ACTIONS(11721), 1,
       anon_sym_COMMA,
-    STATE(2550), 1,
+    STATE(2445), 1,
       sym__argument_list,
-    STATE(5322), 1,
+    STATE(5323), 1,
       sym_character_length,
-    STATE(5327), 1,
+    STATE(5324), 1,
       sym_argument_list,
-    STATE(5334), 1,
+    STATE(5328), 1,
       sym_coarray_index,
-    STATE(6381), 1,
+    STATE(6341), 1,
       aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11661), 2,
+    ACTIONS(11711), 2,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
   [135722] = 7,
@@ -602884,36 +602743,15 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7714), 3,
+    STATE(8345), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-    STATE(8644), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [135750] = 7,
-    ACTIONS(850), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11463), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11449), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8259), 3,
+    STATE(8433), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8646), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [135778] = 4,
+  [135750] = 4,
     ACTIONS(11743), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
@@ -602931,33 +602769,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [135800] = 7,
-    ACTIONS(1472), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11747), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11739), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7750), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(7951), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [135828] = 7,
-    ACTIONS(850), 1,
+  [135772] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11469), 1,
+    ACTIONS(11631), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -602965,59 +602782,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7747), 3,
+    STATE(7851), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(7764), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [135856] = 7,
-    ACTIONS(1472), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11749), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11739), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8050), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8651), 3,
+    STATE(7852), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [135884] = 4,
-    ACTIONS(11753), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11755), 3,
-      sym__integer_literal,
-      aux_sym_select_case_statement_token2,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11751), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [135906] = 7,
+  [135800] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11757), 1,
+    ACTIONS(11747), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603025,46 +602803,46 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7756), 3,
+    STATE(8449), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8309), 3,
+    STATE(8621), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [135934] = 7,
-    ACTIONS(10953), 1,
+  [135828] = 7,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11759), 1,
+    ACTIONS(11749), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(11761), 1,
+    ACTIONS(11751), 1,
       sym_preproc_comment,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5768), 2,
+    STATE(5745), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [135962] = 4,
-    ACTIONS(11765), 1,
+  [135856] = 4,
+    ACTIONS(11755), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11767), 3,
+    ACTIONS(11757), 3,
       sym__integer_literal,
-      aux_sym_select_case_statement_token2,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11763), 7,
+    ACTIONS(11753), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603072,12 +602850,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [135984] = 7,
+  [135878] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11769), 1,
+    ACTIONS(11759), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603085,43 +602863,46 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8236), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8248), 3,
+    STATE(8441), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136012] = 4,
-    ACTIONS(11773), 1,
-      sym_preproc_comment,
+    STATE(8623), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [135906] = 7,
+    ACTIONS(852), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11447), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11565), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11775), 3,
-      sym__integer_literal,
-      aux_sym_select_case_statement_token2,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11771), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136034] = 4,
-    ACTIONS(11779), 1,
+    ACTIONS(11449), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7876), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(7877), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [135934] = 4,
+    ACTIONS(11763), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11781), 3,
+    ACTIONS(11765), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11777), 7,
+    ACTIONS(11761), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603129,92 +602910,58 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [136056] = 4,
-    ACTIONS(11785), 1,
-      sym_preproc_comment,
+  [135956] = 6,
+    ACTIONS(11731), 1,
+      aux_sym__intrinsic_type_token4,
+    ACTIONS(11733), 1,
+      aux_sym__intrinsic_type_token8,
+    STATE(6386), 1,
+      sym__intrinsic_type,
+    STATE(8347), 1,
+      sym_intrinsic_type,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11787), 3,
-      sym__integer_literal,
-      aux_sym_select_case_statement_token2,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11783), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136078] = 7,
-    ACTIONS(1472), 1,
+    ACTIONS(11729), 7,
+      aux_sym__intrinsic_type_token1,
+      aux_sym__intrinsic_type_token2,
+      aux_sym__intrinsic_type_token3,
+      aux_sym__intrinsic_type_token6,
+      aux_sym__intrinsic_type_token7,
+      aux_sym__intrinsic_type_token9,
+      aux_sym__intrinsic_type_token10,
+  [135982] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11789), 1,
+    ACTIONS(11545), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11739), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8372), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8556), 3,
+    STATE(8444), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8447), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136106] = 4,
-    ACTIONS(11793), 1,
+  [136010] = 4,
+    ACTIONS(11769), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11795), 3,
+    ACTIONS(11771), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11791), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136128] = 4,
-    ACTIONS(11799), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11801), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11797), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136150] = 4,
-    ACTIONS(11805), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11807), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11803), 7,
+    ACTIONS(11767), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603222,33 +602969,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [136172] = 7,
-    ACTIONS(1472), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11809), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11739), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7757), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8354), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [136200] = 7,
-    ACTIONS(850), 1,
+  [136032] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11605), 1,
+    ACTIONS(11597), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603256,56 +602982,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8408), 3,
+    STATE(8448), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8438), 3,
+    STATE(8449), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136228] = 4,
-    ACTIONS(11813), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11815), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11811), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136250] = 4,
-    ACTIONS(11819), 1,
-      sym_preproc_comment,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11821), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11817), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136272] = 7,
+  [136060] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11823), 1,
+    ACTIONS(11773), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603313,20 +603003,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7761), 3,
+    STATE(8103), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8417), 3,
+    STATE(8243), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [136300] = 7,
+  [136088] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11825), 1,
+    ACTIONS(11775), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603334,25 +603024,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8567), 3,
+    STATE(7713), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8668), 3,
+    STATE(8191), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [136328] = 4,
-    ACTIONS(11829), 1,
+  [136116] = 4,
+    ACTIONS(11779), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11831), 3,
+    ACTIONS(11781), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11827), 7,
+    ACTIONS(11777), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603360,12 +603050,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [136350] = 7,
+  [136138] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11833), 1,
+    ACTIONS(11783), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603373,64 +603063,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7927), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8127), 3,
+    STATE(8118), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136378] = 9,
-    ACTIONS(11835), 1,
-      anon_sym_COMMA,
-    ACTIONS(11837), 1,
-      anon_sym_RPAREN,
-    ACTIONS(11839), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11841), 1,
-      sym_edit_descriptor,
-    ACTIONS(11843), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11845), 1,
-      sym__string_literal,
-    ACTIONS(11847), 1,
-      sym__string_literal_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(5711), 4,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-      aux_sym__transfer_items_repeat1,
-  [136410] = 7,
-    ACTIONS(1472), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11849), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11739), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8235), 3,
+    STATE(8319), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-    STATE(8259), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [136438] = 7,
-    ACTIONS(850), 1,
+  [136166] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11461), 1,
+    ACTIONS(11607), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603438,20 +603084,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8596), 3,
+    STATE(8052), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8644), 3,
+    STATE(8171), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136466] = 7,
+  [136194] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11851), 1,
+    ACTIONS(11785), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603459,20 +603105,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7749), 3,
+    STATE(7763), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(7860), 3,
+    STATE(8397), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [136494] = 7,
-    ACTIONS(850), 1,
+  [136222] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11581), 1,
+    ACTIONS(11511), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603480,43 +603126,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7819), 3,
+    STATE(8267), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8273), 3,
+    STATE(8268), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136522] = 9,
-    ACTIONS(11853), 1,
-      anon_sym_COMMA,
-    ACTIONS(11856), 1,
-      anon_sym_RPAREN,
-    ACTIONS(11858), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11861), 1,
-      sym_edit_descriptor,
-    ACTIONS(11864), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11867), 1,
-      sym__string_literal,
-    ACTIONS(11870), 1,
-      sym__string_literal_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(5711), 4,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-      aux_sym__transfer_items_repeat1,
-  [136554] = 7,
+  [136250] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11873), 1,
+    ACTIONS(11787), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603524,41 +603147,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7802), 3,
+    STATE(7749), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8294), 3,
+    STATE(8499), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [136582] = 7,
-    ACTIONS(1472), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11875), 1,
-      aux_sym_preproc_if_token2,
+  [136278] = 4,
+    ACTIONS(11791), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11739), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7986), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-    STATE(8320), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-  [136610] = 7,
-    ACTIONS(850), 1,
+    ACTIONS(11793), 3,
+      sym__integer_literal,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11789), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136300] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11479), 1,
+    ACTIONS(11465), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603566,20 +603186,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8283), 3,
+    STATE(8270), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8329), 3,
+    STATE(8272), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136638] = 7,
+  [136328] = 4,
+    ACTIONS(11797), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11799), 3,
+      sym__integer_literal,
+      aux_sym_select_case_statement_token2,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11795), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136350] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11877), 1,
+    ACTIONS(11801), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603587,46 +603225,43 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8158), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8169), 3,
+    STATE(7750), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136666] = 7,
-    ACTIONS(850), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(11499), 1,
-      aux_sym_preproc_if_token2,
+    STATE(8494), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136378] = 4,
+    ACTIONS(11805), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8228), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(8231), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [136694] = 4,
-    ACTIONS(11881), 1,
+    ACTIONS(11807), 3,
+      sym__integer_literal,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11803), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136400] = 4,
+    ACTIONS(11811), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11883), 3,
+    ACTIONS(11813), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11879), 7,
+    ACTIONS(11809), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603634,12 +603269,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [136716] = 7,
+  [136422] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11885), 1,
+    ACTIONS(11815), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603647,20 +603282,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8224), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8548), 3,
+    STATE(8573), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136744] = 7,
+    STATE(8598), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136450] = 4,
+    ACTIONS(11819), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11821), 3,
+      sym__integer_literal,
+      aux_sym_select_case_statement_token2,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11817), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136472] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11887), 1,
+    ACTIONS(11823), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603668,25 +603321,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8342), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(8682), 3,
+    STATE(8116), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136772] = 4,
-    ACTIONS(11891), 1,
+    STATE(8317), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136500] = 4,
+    ACTIONS(11827), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11893), 3,
+    ACTIONS(11829), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11889), 7,
+    ACTIONS(11825), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -603694,12 +603347,12 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [136794] = 7,
-    ACTIONS(850), 1,
+  [136522] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11455), 1,
+    ACTIONS(11527), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603707,20 +603360,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8566), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8567), 3,
+    STATE(8153), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136822] = 7,
+  [136550] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11895), 1,
+    ACTIONS(11831), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603728,82 +603381,83 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7764), 3,
+    STATE(7898), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8323), 3,
+    STATE(8658), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [136850] = 4,
-    ACTIONS(11899), 1,
-      sym_preproc_comment,
+  [136578] = 7,
+    ACTIONS(1472), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11737), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11833), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11901), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11897), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [136872] = 10,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(7517), 1,
-      anon_sym_EQ,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10451), 1,
-      anon_sym_STAR,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(5322), 1,
-      sym_character_length,
-    STATE(5327), 1,
-      sym_argument_list,
-    STATE(5334), 1,
-      sym_coarray_index,
+    ACTIONS(11739), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7756), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8473), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136606] = 7,
+    ACTIONS(1472), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11737), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11835), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11719), 3,
-      anon_sym_COMMA,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [136906] = 6,
-    ACTIONS(11731), 1,
-      aux_sym__intrinsic_type_token4,
-    ACTIONS(11733), 1,
-      aux_sym__intrinsic_type_token8,
-    STATE(6414), 1,
-      sym__intrinsic_type,
-    STATE(7910), 1,
-      sym_intrinsic_type,
+    ACTIONS(11739), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8268), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8656), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136634] = 7,
+    ACTIONS(1472), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11737), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11837), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11729), 7,
-      aux_sym__intrinsic_type_token1,
-      aux_sym__intrinsic_type_token2,
-      aux_sym__intrinsic_type_token3,
-      aux_sym__intrinsic_type_token6,
-      aux_sym__intrinsic_type_token7,
-      aux_sym__intrinsic_type_token9,
-      aux_sym__intrinsic_type_token10,
-  [136932] = 7,
-    ACTIONS(850), 1,
+    ACTIONS(11739), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7760), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8393), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136662] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11597), 1,
+    ACTIONS(11633), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603811,43 +603465,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8387), 3,
+    STATE(8259), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8405), 3,
+    STATE(8260), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [136960] = 9,
-    ACTIONS(11835), 1,
-      anon_sym_COMMA,
-    ACTIONS(11839), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11843), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11845), 1,
-      sym__string_literal,
-    ACTIONS(11847), 1,
-      sym__string_literal_kind,
-    ACTIONS(11903), 1,
-      anon_sym_RPAREN,
-    ACTIONS(11905), 1,
-      sym_edit_descriptor,
+  [136690] = 4,
+    ACTIONS(11841), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5706), 4,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-      aux_sym__transfer_items_repeat1,
-  [136992] = 7,
+    ACTIONS(11843), 3,
+      sym__integer_literal,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11839), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136712] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11907), 1,
+    ACTIONS(11845), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603855,41 +603504,80 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7754), 3,
+    STATE(8272), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8275), 3,
+    STATE(8655), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [137020] = 7,
-    ACTIONS(850), 1,
+  [136740] = 7,
+    ACTIONS(852), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11447), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11487), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11449), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8439), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8441), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [136768] = 4,
+    ACTIONS(11849), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11851), 3,
+      sym__integer_literal,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11847), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [136790] = 7,
+    ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11539), 1,
+    ACTIONS(11853), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7806), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-    STATE(7816), 3,
+    STATE(7757), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [137048] = 7,
+    STATE(8467), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136818] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11909), 1,
+    ACTIONS(11855), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603897,20 +603585,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8329), 3,
+    STATE(7761), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8492), 3,
+    STATE(8460), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [137076] = 7,
-    ACTIONS(850), 1,
+  [136846] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11565), 1,
+    ACTIONS(11579), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603918,41 +603606,41 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8317), 3,
+    STATE(8572), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8318), 3,
+    STATE(8573), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [137104] = 7,
-    ACTIONS(1472), 1,
+  [136874] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11737), 1,
+    ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11911), 1,
+    ACTIONS(11525), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11739), 2,
+    ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7738), 3,
-      sym_preproc_else_in_procedure_statements,
-      sym_preproc_elif_in_procedure_statements,
-      sym_preproc_elifdef_in_procedure_statements,
-    STATE(7755), 3,
+    STATE(8498), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+    STATE(8503), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [137132] = 7,
-    ACTIONS(850), 1,
+  [136902] = 7,
+    ACTIONS(852), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11447), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11599), 1,
+    ACTIONS(11553), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603960,20 +603648,20 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11449), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8543), 3,
+    STATE(7788), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-    STATE(8548), 3,
+    STATE(7881), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [137160] = 7,
+  [136930] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11913), 1,
+    ACTIONS(11857), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -603981,41 +603669,41 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8199), 3,
+    STATE(8447), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8207), 3,
+    STATE(8622), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [137188] = 7,
-    ACTIONS(850), 1,
+  [136958] = 7,
+    ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11447), 1,
+    ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11591), 1,
+    ACTIONS(11859), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11449), 2,
+    ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7986), 3,
+    STATE(8205), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8398), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [137216] = 7,
+    STATE(8360), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [136986] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11915), 1,
+    ACTIONS(11861), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -604023,20 +603711,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7742), 3,
+    STATE(7836), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8287), 3,
+    STATE(8531), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [137244] = 7,
+  [137014] = 4,
+    ACTIONS(11865), 1,
+      sym_preproc_comment,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11867), 3,
+      sym__integer_literal,
+      aux_sym_select_case_statement_token2,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11863), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [137036] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11917), 1,
+    ACTIONS(11869), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -604044,25 +603750,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8200), 3,
+    STATE(8145), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-    STATE(8213), 3,
+    STATE(8342), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-  [137272] = 4,
-    ACTIONS(11921), 1,
+  [137064] = 4,
+    ACTIONS(11873), 1,
       sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11923), 3,
+    ACTIONS(11875), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11919), 7,
+    ACTIONS(11871), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604070,12 +603776,33 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137294] = 7,
+  [137086] = 7,
     ACTIONS(1472), 1,
       aux_sym_preproc_elif_token1,
     ACTIONS(11737), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(11925), 1,
+    ACTIONS(11877), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11739), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7742), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8562), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [137114] = 7,
+    ACTIONS(1472), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11737), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11879), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -604083,23 +603810,70 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(11739), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8155), 3,
+    STATE(7877), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+    STATE(8535), 3,
       sym_preproc_else_in_procedure_statements,
       sym_preproc_elif_in_procedure_statements,
       sym_preproc_elifdef_in_procedure_statements,
-    STATE(8167), 3,
+  [137142] = 7,
+    ACTIONS(1472), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(11737), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(11881), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11739), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7838), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [137322] = 3,
+    STATE(8536), 3,
+      sym_preproc_else_in_procedure_statements,
+      sym_preproc_elif_in_procedure_statements,
+      sym_preproc_elifdef_in_procedure_statements,
+  [137170] = 10,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(7515), 1,
+      anon_sym_EQ,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10461), 1,
+      anon_sym_STAR,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(5323), 1,
+      sym_character_length,
+    STATE(5324), 1,
+      sym_argument_list,
+    STATE(5328), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11723), 3,
+      anon_sym_COMMA,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [137204] = 4,
+    ACTIONS(11885), 1,
+      sym_preproc_comment,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11929), 3,
+    ACTIONS(11887), 3,
       sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11927), 7,
+    ACTIONS(11883), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604107,15 +603881,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137341] = 3,
+  [137226] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11933), 3,
+    ACTIONS(11891), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11931), 7,
+    ACTIONS(11889), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604123,15 +603897,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137360] = 3,
+  [137245] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11937), 3,
+    ACTIONS(11895), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11935), 7,
+    ACTIONS(11893), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [137264] = 3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11899), 3,
+      sym__integer_literal,
+      aux_sym_select_case_statement_token2,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11897), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604139,38 +603929,38 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137379] = 10,
-    ACTIONS(2731), 1,
+  [137283] = 10,
+    ACTIONS(2727), 1,
       aux_sym_elseif_clause_token1,
-    ACTIONS(11939), 1,
+    ACTIONS(11901), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
+    ACTIONS(11903), 1,
       aux_sym_end_if_statement_token1,
-    ACTIONS(11943), 1,
+    ACTIONS(11905), 1,
       aux_sym_elseif_clause_token2,
-    ACTIONS(11945), 1,
+    ACTIONS(11907), 1,
       sym__integer_literal,
-    STATE(6226), 1,
+    STATE(6233), 1,
       sym_else_clause,
-    STATE(7061), 1,
+    STATE(6552), 1,
       sym_statement_label,
-    STATE(7632), 1,
+    STATE(7399), 1,
       sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6009), 2,
+    STATE(6016), 2,
       sym_elseif_clause,
       aux_sym__block_if_statement_repeat1,
-  [137412] = 3,
+  [137316] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11893), 3,
+    ACTIONS(11911), 3,
       sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11889), 7,
+    ACTIONS(11909), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604178,31 +603968,99 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137431] = 3,
+  [137335] = 10,
+    ACTIONS(2727), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11905), 1,
+      aux_sym_elseif_clause_token2,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6194), 1,
+      sym_else_clause,
+    STATE(6699), 1,
+      sym_statement_label,
+    STATE(7460), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11949), 3,
-      sym__integer_literal,
-      aux_sym_select_case_statement_token2,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11947), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
-      aux_sym_end_program_statement_token1,
-  [137450] = 3,
+    STATE(6016), 2,
+      sym_elseif_clause,
+      aux_sym__block_if_statement_repeat1,
+  [137368] = 8,
+    ACTIONS(11913), 1,
+      anon_sym_COMMA,
+    ACTIONS(11915), 1,
+      anon_sym_RPAREN,
+    ACTIONS(11917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11921), 1,
+      sym__string_literal,
+    ACTIONS(11923), 1,
+      sym__string_literal_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11919), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(5767), 3,
+      sym__transfer_item,
+      sym_string_literal,
+      aux_sym__transfer_items_repeat1,
+  [137397] = 8,
+    ACTIONS(11925), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11929), 1,
+      aux_sym_abstract_specifier_token1,
+    ACTIONS(11931), 1,
+      aux_sym_base_type_specifier_token1,
+    STATE(7668), 1,
+      sym_access_specifier,
+    STATE(7669), 1,
+      sym_base_type_specifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11927), 2,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+    STATE(7141), 3,
+      sym_language_binding,
+      sym_abstract_specifier,
+      sym__derived_type_qualifier,
+  [137426] = 6,
+    ACTIONS(10943), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(11933), 1,
+      aux_sym_preproc_if_token2,
+    STATE(3343), 1,
+      sym_procedure_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(5637), 2,
+      sym_procedure_statement,
+      aux_sym_preproc_if_in_bound_procedures_repeat1,
+    ACTIONS(8403), 5,
+      aux_sym_module_procedure_statement_token1,
+      aux_sym_procedure_kind_token1,
+      aux_sym_procedure_kind_token2,
+      aux_sym_procedure_kind_token3,
+      aux_sym_procedure_kind_token4,
+  [137451] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11953), 3,
+    ACTIONS(11745), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11951), 7,
+    ACTIONS(11741), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604210,51 +604068,120 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137469] = 3,
+  [137470] = 7,
+    ACTIONS(11935), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11957), 3,
-      sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
-      aux_sym_end_select_statement_token1,
-    ACTIONS(11955), 7,
-      aux_sym_preproc_include_token1,
-      aux_sym_preproc_def_token1,
-      aux_sym_preproc_if_token1,
-      aux_sym_preproc_ifdef_token1,
-      aux_sym_preproc_ifdef_token2,
-      sym_preproc_directive,
+    ACTIONS(11941), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(6029), 2,
+      sym__parameters,
+      sym_parameters,
+    STATE(6028), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [137497] = 8,
+    ACTIONS(11925), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11929), 1,
+      aux_sym_abstract_specifier_token1,
+    ACTIONS(11931), 1,
+      aux_sym_base_type_specifier_token1,
+    STATE(7668), 1,
+      sym_access_specifier,
+    STATE(7669), 1,
+      sym_base_type_specifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11927), 2,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+    STATE(7588), 3,
+      sym_language_binding,
+      sym_abstract_specifier,
+      sym__derived_type_qualifier,
+  [137526] = 10,
+    ACTIONS(2727), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(11901), 1,
       aux_sym_end_program_statement_token1,
-  [137488] = 7,
-    ACTIONS(11959), 1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11905), 1,
+      aux_sym_elseif_clause_token2,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6262), 1,
+      sym_else_clause,
+    STATE(6478), 1,
+      sym_statement_label,
+    STATE(7356), 1,
+      sym_end_if_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6016), 2,
+      sym_elseif_clause,
+      aux_sym__block_if_statement_repeat1,
+  [137559] = 8,
+    ACTIONS(11925), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11929), 1,
+      aux_sym_abstract_specifier_token1,
+    ACTIONS(11931), 1,
+      aux_sym_base_type_specifier_token1,
+    STATE(7668), 1,
+      sym_access_specifier,
+    STATE(7669), 1,
+      sym_base_type_specifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11927), 2,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+    STATE(7005), 3,
+      sym_language_binding,
+      sym_abstract_specifier,
+      sym__derived_type_qualifier,
+  [137588] = 7,
+    ACTIONS(11935), 1,
       anon_sym_LPAREN2,
-    ACTIONS(11961), 1,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
+    ACTIONS(11939), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11965), 2,
+    ACTIONS(11943), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(6023), 2,
+    STATE(6017), 2,
       sym__parameters,
       sym_parameters,
-    STATE(6025), 3,
+    STATE(6011), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [137515] = 3,
+  [137615] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11815), 3,
+    ACTIONS(11851), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11811), 7,
+    ACTIONS(11847), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604262,15 +604189,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137534] = 3,
+  [137634] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11775), 3,
+    ACTIONS(11947), 3,
       sym__integer_literal,
-      aux_sym_select_case_statement_token2,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11771), 7,
+    ACTIONS(11945), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604278,35 +604205,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137553] = 7,
-    ACTIONS(11959), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11967), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6011), 2,
-      sym__parameters,
-      sym_parameters,
-    STATE(6012), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [137580] = 3,
+  [137653] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11971), 3,
+    ACTIONS(11951), 3,
       sym__integer_literal,
       aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11969), 7,
+    ACTIONS(11949), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604314,61 +604221,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137599] = 10,
-    ACTIONS(2731), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11943), 1,
-      aux_sym_elseif_clause_token2,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(6107), 1,
-      sym_else_clause,
-    STATE(7043), 1,
-      sym_statement_label,
-    STATE(7590), 1,
-      sym_end_if_statement,
+  [137672] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6009), 2,
-      sym_elseif_clause,
-      aux_sym__block_if_statement_repeat1,
-  [137632] = 10,
-    ACTIONS(2731), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11943), 1,
-      aux_sym_elseif_clause_token2,
-    ACTIONS(11945), 1,
+    ACTIONS(11843), 3,
       sym__integer_literal,
-    STATE(6119), 1,
-      sym_else_clause,
-    STATE(6526), 1,
-      sym_statement_label,
-    STATE(7605), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6009), 2,
-      sym_elseif_clause,
-      aux_sym__block_if_statement_repeat1,
-  [137665] = 3,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11839), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [137691] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11975), 3,
+    ACTIONS(11955), 3,
       sym__integer_literal,
-      aux_sym_select_case_statement_token2,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11973), 7,
+    ACTIONS(11953), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604376,36 +604253,31 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137684] = 8,
-    ACTIONS(11977), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11981), 1,
-      aux_sym_abstract_specifier_token1,
-    ACTIONS(11983), 1,
-      aux_sym_base_type_specifier_token1,
-    STATE(7493), 1,
-      sym_access_specifier,
-    STATE(7494), 1,
-      sym_base_type_specifier,
+  [137710] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11979), 2,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-    STATE(6985), 3,
-      sym_language_binding,
-      sym_abstract_specifier,
-      sym__derived_type_qualifier,
-  [137713] = 3,
+    ACTIONS(11959), 3,
+      sym__integer_literal,
+      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_end_select_statement_token1,
+    ACTIONS(11957), 7,
+      aux_sym_preproc_include_token1,
+      aux_sym_preproc_def_token1,
+      aux_sym_preproc_if_token1,
+      aux_sym_preproc_ifdef_token1,
+      aux_sym_preproc_ifdef_token2,
+      sym_preproc_directive,
+      aux_sym_end_program_statement_token1,
+  [137729] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11987), 3,
+    ACTIONS(11963), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11985), 7,
+    ACTIONS(11961), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604413,77 +604285,57 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137732] = 10,
-    ACTIONS(2731), 1,
+  [137748] = 10,
+    ACTIONS(2727), 1,
       aux_sym_elseif_clause_token1,
-    ACTIONS(11939), 1,
+    ACTIONS(11901), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
+    ACTIONS(11903), 1,
       aux_sym_end_if_statement_token1,
-    ACTIONS(11943), 1,
+    ACTIONS(11905), 1,
       aux_sym_elseif_clause_token2,
-    ACTIONS(11945), 1,
+    ACTIONS(11907), 1,
       sym__integer_literal,
-    STATE(6301), 1,
+    STATE(6195), 1,
       sym_else_clause,
-    STATE(7246), 1,
+    STATE(6782), 1,
       sym_statement_label,
-    STATE(7701), 1,
+    STATE(7551), 1,
       sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6009), 2,
+    STATE(6016), 2,
       sym_elseif_clause,
       aux_sym__block_if_statement_repeat1,
-  [137765] = 6,
-    ACTIONS(10953), 1,
+  [137781] = 6,
+    ACTIONS(10943), 1,
       aux_sym_module_statement_token1,
-    ACTIONS(11989), 1,
+    ACTIONS(11933), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5645), 2,
+    STATE(5768), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [137790] = 7,
-    ACTIONS(11959), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11991), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6008), 2,
-      sym__parameters,
-      sym_parameters,
-    STATE(6010), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [137817] = 3,
+  [137806] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11831), 3,
+    ACTIONS(11967), 3,
       sym__integer_literal,
       aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11827), 7,
+    ACTIONS(11965), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604491,15 +604343,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137836] = 3,
+  [137825] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11995), 3,
+    ACTIONS(11971), 3,
       sym__integer_literal,
-      aux_sym_select_case_statement_token2,
+      aux_sym__standalone_type_qualifier_token13,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11993), 7,
+    ACTIONS(11969), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604507,55 +604359,36 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137855] = 8,
-    ACTIONS(11977), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11981), 1,
-      aux_sym_abstract_specifier_token1,
-    ACTIONS(11983), 1,
-      aux_sym_base_type_specifier_token1,
-    STATE(7493), 1,
-      sym_access_specifier,
-    STATE(7494), 1,
-      sym_base_type_specifier,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11979), 2,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-    STATE(6764), 3,
-      sym_language_binding,
-      sym_abstract_specifier,
-      sym__derived_type_qualifier,
-  [137884] = 6,
-    ACTIONS(10953), 1,
-      aux_sym_module_statement_token1,
-    ACTIONS(11997), 1,
-      aux_sym_preproc_if_token2,
-    STATE(3339), 1,
-      sym_procedure_kind,
+  [137844] = 8,
+    ACTIONS(11913), 1,
+      anon_sym_COMMA,
+    ACTIONS(11917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11921), 1,
+      sym__string_literal,
+    ACTIONS(11923), 1,
+      sym__string_literal_kind,
+    ACTIONS(11973), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5759), 2,
-      sym_procedure_statement,
-      aux_sym_preproc_if_in_bound_procedures_repeat1,
-    ACTIONS(8371), 5,
-      aux_sym_module_procedure_statement_token1,
-      aux_sym_procedure_kind_token1,
-      aux_sym_procedure_kind_token2,
-      aux_sym_procedure_kind_token3,
-      aux_sym_procedure_kind_token4,
-  [137909] = 3,
+    ACTIONS(11975), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(5743), 3,
+      sym__transfer_item,
+      sym_string_literal,
+      aux_sym__transfer_items_repeat1,
+  [137873] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12001), 3,
+    ACTIONS(11799), 3,
       sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(11999), 7,
+    ACTIONS(11795), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604563,15 +604396,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137928] = 3,
+  [137892] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12005), 3,
+    ACTIONS(11979), 3,
       sym__integer_literal,
-      aux_sym__standalone_type_qualifier_token13,
+      aux_sym_select_case_statement_token2,
       aux_sym_end_select_statement_token1,
-    ACTIONS(12003), 7,
+    ACTIONS(11977), 7,
       aux_sym_preproc_include_token1,
       aux_sym_preproc_def_token1,
       aux_sym_preproc_if_token1,
@@ -604579,55 +604412,75 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_preproc_ifdef_token2,
       sym_preproc_directive,
       aux_sym_end_program_statement_token1,
-  [137947] = 8,
-    ACTIONS(11977), 1,
+  [137911] = 7,
+    ACTIONS(11935), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11981), 1,
-      aux_sym_abstract_specifier_token1,
-    ACTIONS(11983), 1,
-      aux_sym_base_type_specifier_token1,
-    STATE(7493), 1,
-      sym_access_specifier,
-    STATE(7494), 1,
-      sym_base_type_specifier,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11979), 2,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-    STATE(7639), 3,
+    ACTIONS(11981), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(6023), 2,
+      sym__parameters,
+      sym_parameters,
+    STATE(6024), 3,
       sym_language_binding,
-      sym_abstract_specifier,
-      sym__derived_type_qualifier,
-  [137976] = 6,
-    ACTIONS(10953), 1,
-      aux_sym_module_statement_token1,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [137938] = 8,
+    ACTIONS(11983), 1,
+      anon_sym_COMMA,
+    ACTIONS(11986), 1,
+      anon_sym_RPAREN,
+    ACTIONS(11988), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11994), 1,
+      sym__string_literal,
     ACTIONS(11997), 1,
+      sym__string_literal_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11991), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(5767), 3,
+      sym__transfer_item,
+      sym_string_literal,
+      aux_sym__transfer_items_repeat1,
+  [137967] = 6,
+    ACTIONS(10943), 1,
+      aux_sym_module_statement_token1,
+    ACTIONS(12000), 1,
       aux_sym_preproc_if_token2,
-    STATE(3339), 1,
+    STATE(3343), 1,
       sym_procedure_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5645), 2,
+    STATE(5637), 2,
       sym_procedure_statement,
       aux_sym_preproc_if_in_bound_procedures_repeat1,
-    ACTIONS(8371), 5,
+    ACTIONS(8403), 5,
       aux_sym_module_procedure_statement_token1,
       aux_sym_procedure_kind_token1,
       aux_sym_procedure_kind_token2,
       aux_sym_procedure_kind_token3,
       aux_sym_procedure_kind_token4,
-  [138001] = 4,
-    ACTIONS(12009), 1,
+  [137992] = 4,
+    ACTIONS(12004), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3347), 1,
+    STATE(3349), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12007), 7,
+    ACTIONS(12002), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604635,34 +604488,69 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138021] = 7,
-    ACTIONS(12015), 1,
+  [138012] = 7,
+    ACTIONS(12010), 1,
+      aux_sym_concurrent_locality_token1,
+    ACTIONS(12012), 1,
+      aux_sym_concurrent_locality_token3,
+    ACTIONS(12014), 1,
+      aux_sym_concurrent_locality_token4,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12006), 2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_concurrent_locality_token2,
+    ACTIONS(12008), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(5780), 2,
+      sym_concurrent_locality,
+      aux_sym_concurrent_statement_repeat1,
+  [138038] = 4,
+    ACTIONS(12018), 1,
+      aux_sym_procedure_attributes_token3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12016), 3,
+      aux_sym_procedure_attributes_token2,
+      aux_sym_procedure_attributes_token4,
+      aux_sym_procedure_attributes_token5,
+    ACTIONS(12020), 5,
+      aux_sym_variable_attributes_token1,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
+      aux_sym_variable_attributes_token5,
+  [138058] = 7,
+    ACTIONS(12027), 1,
       aux_sym_concurrent_locality_token1,
-    ACTIONS(12017), 1,
+    ACTIONS(12030), 1,
       aux_sym_concurrent_locality_token3,
-    ACTIONS(12019), 1,
+    ACTIONS(12033), 1,
       aux_sym_concurrent_locality_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12011), 2,
+    ACTIONS(12022), 2,
       aux_sym_variable_attributes_token3,
       aux_sym_concurrent_locality_token2,
-    ACTIONS(12013), 2,
+    ACTIONS(12025), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5773), 2,
+    STATE(5772), 2,
       sym_concurrent_locality,
       aux_sym_concurrent_statement_repeat1,
-  [138047] = 4,
-    ACTIONS(12009), 1,
+  [138084] = 4,
+    ACTIONS(12038), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3819), 1,
+    STATE(3959), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12007), 7,
+    ACTIONS(12036), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604670,15 +604558,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138067] = 4,
-    ACTIONS(12023), 1,
+  [138104] = 4,
+    ACTIONS(12038), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3954), 1,
+    STATE(3967), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12021), 7,
+    ACTIONS(12036), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604686,53 +604574,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138087] = 7,
-    ACTIONS(12030), 1,
-      aux_sym_concurrent_locality_token1,
-    ACTIONS(12033), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(12036), 1,
-      aux_sym_concurrent_locality_token4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12025), 2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_concurrent_locality_token2,
-    ACTIONS(12028), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(5773), 2,
-      sym_concurrent_locality,
-      aux_sym_concurrent_statement_repeat1,
-  [138113] = 7,
-    ACTIONS(12015), 1,
-      aux_sym_concurrent_locality_token1,
-    ACTIONS(12017), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(12019), 1,
-      aux_sym_concurrent_locality_token4,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12011), 2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_concurrent_locality_token2,
-    ACTIONS(12039), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(5770), 2,
-      sym_concurrent_locality,
-      aux_sym_concurrent_statement_repeat1,
-  [138139] = 4,
-    ACTIONS(12023), 1,
+  [138124] = 4,
+    ACTIONS(12038), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3963), 1,
+    STATE(4045), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12021), 7,
+    ACTIONS(12036), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604740,15 +604590,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138159] = 4,
-    ACTIONS(12023), 1,
+  [138144] = 4,
+    ACTIONS(12004), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3962), 1,
+    STATE(3346), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12021), 7,
+    ACTIONS(12002), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604756,15 +604606,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138179] = 4,
-    ACTIONS(12009), 1,
+  [138164] = 4,
+    ACTIONS(12004), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3342), 1,
+    STATE(3344), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12007), 7,
+    ACTIONS(12002), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604772,15 +604622,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138199] = 4,
-    ACTIONS(12009), 1,
+  [138184] = 4,
+    ACTIONS(12038), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3348), 1,
+    STATE(3969), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12007), 7,
+    ACTIONS(12036), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604788,31 +604638,15 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138219] = 4,
-    ACTIONS(12043), 1,
-      aux_sym_procedure_attributes_token3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12041), 3,
-      aux_sym_procedure_attributes_token2,
-      aux_sym_procedure_attributes_token4,
-      aux_sym_procedure_attributes_token5,
-    ACTIONS(12045), 5,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-  [138239] = 4,
-    ACTIONS(12023), 1,
+  [138204] = 4,
+    ACTIONS(12004), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(4055), 1,
+    STATE(3338), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12021), 7,
+    ACTIONS(12002), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604820,55 +604654,34 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138259] = 8,
-    ACTIONS(11839), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11843), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11845), 1,
-      sym__string_literal,
-    ACTIONS(11847), 1,
-      sym__string_literal_kind,
-    ACTIONS(12047), 1,
-      sym_edit_descriptor,
-    STATE(8156), 1,
-      sym__transfer_items,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(5727), 3,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-  [138287] = 8,
-    ACTIONS(11839), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11843), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11845), 1,
-      sym__string_literal,
-    ACTIONS(11847), 1,
-      sym__string_literal_kind,
-    ACTIONS(12047), 1,
-      sym_edit_descriptor,
-    STATE(8366), 1,
-      sym__transfer_items,
+  [138224] = 7,
+    ACTIONS(12010), 1,
+      aux_sym_concurrent_locality_token1,
+    ACTIONS(12012), 1,
+      aux_sym_concurrent_locality_token3,
+    ACTIONS(12014), 1,
+      aux_sym_concurrent_locality_token4,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(5727), 3,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-  [138315] = 4,
-    ACTIONS(12009), 1,
+    ACTIONS(12006), 2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_concurrent_locality_token2,
+    ACTIONS(12040), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(5772), 2,
+      sym_concurrent_locality,
+      aux_sym_concurrent_statement_repeat1,
+  [138250] = 4,
+    ACTIONS(12004), 1,
       aux_sym_procedure_attribute_token2,
-    STATE(3343), 1,
+    STATE(3914), 1,
       sym_procedure_attribute,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12007), 7,
+    ACTIONS(12002), 7,
       aux_sym_private_statement_token1,
       aux_sym_public_statement_token1,
       aux_sym_procedure_attribute_token1,
@@ -604876,5090 +604689,5200 @@ static const uint16_t ts_small_parse_table[] = {
       aux_sym_procedure_attribute_token4,
       aux_sym_procedure_attribute_token5,
       aux_sym_procedure_attribute_token6,
-  [138335] = 6,
-    ACTIONS(4653), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12049), 1,
+  [138270] = 6,
+    ACTIONS(12042), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12051), 1,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8336), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [138358] = 6,
-    ACTIONS(1568), 1,
+    STATE(8600), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [138293] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12055), 1,
+    ACTIONS(12050), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8188), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138381] = 6,
+    STATE(8193), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138316] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12061), 1,
+    ACTIONS(12056), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7902), 3,
+    STATE(8334), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138404] = 6,
-    ACTIONS(1568), 1,
+  [138339] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12063), 1,
+    ACTIONS(11487), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7903), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138427] = 6,
-    ACTIONS(1568), 1,
+    STATE(8439), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138362] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12065), 1,
+    ACTIONS(12062), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7911), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138450] = 6,
+    STATE(8571), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138385] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12067), 1,
+    ACTIONS(12064), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8548), 3,
+    STATE(8353), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138473] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+  [138408] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12069), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12066), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7904), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138496] = 6,
+    STATE(8629), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [138431] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12071), 1,
+    ACTIONS(12068), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7905), 3,
+    STATE(7986), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138519] = 6,
+  [138454] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12073), 1,
+    ACTIONS(12070), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7820), 3,
+    STATE(7990), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138542] = 6,
-    ACTIONS(1568), 1,
+  [138477] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12075), 1,
+    ACTIONS(12072), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7906), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138565] = 6,
-    ACTIONS(1568), 1,
+    STATE(8580), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138500] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12077), 1,
+    ACTIONS(12074), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7907), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138588] = 6,
+    STATE(8624), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [138523] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12079), 1,
+    ACTIONS(12080), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7918), 3,
+    STATE(7994), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138611] = 6,
+  [138546] = 9,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12082), 1,
+      sym_preproc_comment,
+    ACTIONS(12084), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12086), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12088), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12090), 1,
+      aux_sym_type_statement_token3,
+    STATE(3775), 1,
+      sym__class_default,
+    STATE(8481), 1,
+      sym_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [138575] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12081), 1,
+    ACTIONS(12092), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7919), 3,
+    STATE(8367), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138634] = 6,
-    ACTIONS(1568), 1,
+  [138598] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12083), 1,
+    ACTIONS(12094), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7920), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138657] = 6,
-    ACTIONS(12085), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(12087), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
+    STATE(8548), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138621] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12096), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8054), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [138680] = 6,
+    STATE(8516), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138644] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12093), 1,
+    ACTIONS(12098), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7921), 3,
+    STATE(8004), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138703] = 6,
-    ACTIONS(1568), 1,
+  [138667] = 6,
+    ACTIONS(12100), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(12102), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12104), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12106), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8480), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [138690] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12095), 1,
+    ACTIONS(12104), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12108), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7816), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138726] = 6,
+    STATE(8495), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [138713] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12097), 1,
+    ACTIONS(12110), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7922), 3,
+    STATE(8010), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138749] = 6,
+  [138736] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12099), 1,
+    ACTIONS(12112), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7923), 3,
+    STATE(8028), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138772] = 6,
-    ACTIONS(884), 1,
+  [138759] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11461), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
+    ACTIONS(12114), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8596), 3,
+    STATE(8500), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [138795] = 6,
-    ACTIONS(1568), 1,
+  [138782] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12105), 1,
+    ACTIONS(12116), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7934), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138818] = 6,
-    ACTIONS(1568), 1,
+    STATE(8212), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [138805] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12107), 1,
+    ACTIONS(12118), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7914), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138841] = 6,
-    ACTIONS(1568), 1,
+    STATE(8590), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138828] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12109), 1,
+    ACTIONS(12120), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7935), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138864] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    STATE(8215), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [138851] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12111), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12122), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7936), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138887] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    STATE(8485), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [138874] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12113), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12124), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7937), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138910] = 6,
-    ACTIONS(1568), 1,
+    STATE(8484), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [138897] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12115), 1,
+    ACTIONS(12126), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8465), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138933] = 6,
-    ACTIONS(1568), 1,
+    STATE(8662), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [138920] = 6,
+    ACTIONS(12128), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(12130), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12132), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12134), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8468), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [138943] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12117), 1,
+    ACTIONS(12136), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7938), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [138956] = 6,
+    STATE(8554), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [138966] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12119), 1,
+    ACTIONS(12138), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7939), 3,
+    STATE(7782), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [138979] = 6,
+  [138989] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12121), 1,
+    ACTIONS(12140), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7943), 3,
+    STATE(8294), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139002] = 6,
-    ACTIONS(884), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+  [139012] = 6,
+    ACTIONS(12130), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12123), 1,
+    ACTIONS(12132), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12142), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12134), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8233), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139025] = 6,
+    STATE(8466), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [139035] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12125), 1,
+    ACTIONS(12144), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8318), 3,
+    STATE(8282), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139048] = 6,
+  [139058] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12127), 1,
+    ACTIONS(12146), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7946), 3,
+    STATE(7841), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139071] = 6,
+  [139081] = 6,
+    ACTIONS(4653), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12148), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12078), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8661), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [139104] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12129), 1,
+    ACTIONS(12150), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7954), 3,
+    STATE(7939), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139094] = 6,
-    ACTIONS(884), 1,
+  [139127] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12131), 1,
+    ACTIONS(12152), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8317), 3,
+    STATE(7843), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [139117] = 6,
-    ACTIONS(12087), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
+  [139150] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12133), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12091), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8362), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [139140] = 6,
-    ACTIONS(12087), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12135), 1,
+    ACTIONS(12154), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8368), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [139163] = 6,
+    STATE(7846), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139173] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12137), 1,
+    ACTIONS(12156), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8329), 3,
+    STATE(7847), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139186] = 6,
-    ACTIONS(4653), 1,
+  [139196] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12139), 1,
+    ACTIONS(12158), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8145), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [139209] = 6,
-    ACTIONS(12141), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(12143), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+    STATE(8478), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [139219] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12160), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7852), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [139232] = 6,
+    STATE(8660), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [139242] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12149), 1,
+    ACTIONS(12162), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8466), 3,
+    STATE(7853), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139255] = 6,
+  [139265] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12151), 1,
+    ACTIONS(12164), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8006), 3,
+    STATE(7718), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139278] = 6,
-    ACTIONS(884), 1,
+  [139288] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12153), 1,
+    ACTIONS(12166), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8408), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139301] = 6,
-    ACTIONS(884), 1,
+    STATE(7938), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139311] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12155), 1,
+    ACTIONS(12168), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8178), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139324] = 6,
-    ACTIONS(884), 1,
+    STATE(7854), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139334] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12157), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12103), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8639), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139347] = 6,
-    ACTIONS(12159), 1,
+    ACTIONS(12170), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
-      aux_sym_preproc_elif_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12165), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8359), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [139370] = 6,
+    STATE(7937), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139357] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12167), 1,
+    ACTIONS(12172), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8486), 3,
+    STATE(8253), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139393] = 9,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12169), 1,
-      sym_preproc_comment,
-    ACTIONS(12171), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
-      aux_sym_type_statement_token3,
-    STATE(3669), 1,
-      sym__class_default,
-    STATE(5867), 1,
-      sym_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [139422] = 6,
-    ACTIONS(12143), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+  [139380] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12179), 1,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12174), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8494), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [139445] = 6,
+    STATE(8573), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139403] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12181), 1,
+    ACTIONS(12176), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8473), 3,
+    STATE(7858), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139468] = 6,
+  [139426] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12183), 1,
+    ACTIONS(12178), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8531), 3,
+    STATE(7821), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139491] = 6,
-    ACTIONS(884), 1,
+  [139449] = 6,
+    ACTIONS(12130), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12132), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12180), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12134), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8611), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [139472] = 6,
+    ACTIONS(12130), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12185), 1,
+    ACTIONS(12132), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12182), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12134), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7722), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139514] = 6,
-    ACTIONS(12143), 1,
+    STATE(8610), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [139495] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+    ACTIONS(12104), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12187), 1,
+    ACTIONS(12184), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8515), 3,
+    STATE(8634), 3,
       sym_preproc_else_in_select_type,
       sym_preproc_elif_in_select_type,
       sym_preproc_elifdef_in_select_type,
-  [139537] = 6,
+  [139518] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12189), 1,
+    ACTIONS(12186), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8535), 3,
+    STATE(8038), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139560] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12191), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12165), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8390), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [139583] = 6,
-    ACTIONS(884), 1,
+  [139541] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12193), 1,
+    ACTIONS(12188), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7898), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [139606] = 6,
+    STATE(7815), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139564] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12195), 1,
+    ACTIONS(12190), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8341), 3,
+    STATE(7826), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139629] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+  [139587] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12197), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12192), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8475), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [139652] = 6,
-    ACTIONS(12143), 1,
+    STATE(8617), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [139610] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+    ACTIONS(12104), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12199), 1,
+    ACTIONS(12194), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8528), 3,
+    STATE(8603), 3,
       sym_preproc_else_in_select_type,
       sym_preproc_elif_in_select_type,
       sym_preproc_elifdef_in_select_type,
-  [139675] = 6,
-    ACTIONS(884), 1,
+  [139633] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12201), 1,
+    ACTIONS(12196), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7819), 3,
+    STATE(8614), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [139698] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
+  [139656] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12203), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12165), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8004), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [139721] = 6,
-    ACTIONS(12087), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12205), 1,
+    ACTIONS(12198), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8269), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [139744] = 6,
+    STATE(7873), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [139679] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12207), 1,
+    ACTIONS(12200), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8561), 3,
+    STATE(7878), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139767] = 6,
+  [139702] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12209), 1,
+    ACTIONS(12202), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8583), 3,
+    STATE(7814), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139790] = 6,
+  [139725] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12211), 1,
+    ACTIONS(12204), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8586), 3,
+    STATE(7708), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139813] = 6,
-    ACTIONS(1568), 1,
+  [139748] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12213), 1,
+    ACTIONS(11511), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8587), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [139836] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    STATE(8267), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [139771] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12215), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12206), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8479), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [139859] = 6,
+    STATE(8601), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [139794] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12217), 1,
+    ACTIONS(12208), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8641), 3,
+    STATE(7834), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139882] = 6,
+  [139817] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12219), 1,
+    ACTIONS(12210), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8584), 3,
+    STATE(8171), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [139905] = 6,
-    ACTIONS(884), 1,
+  [139840] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11599), 1,
+    ACTIONS(11597), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8543), 3,
+    STATE(8448), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [139928] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12221), 1,
-      aux_sym_preproc_if_token2,
+  [139863] = 9,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12212), 1,
+      sym_preproc_comment,
+    ACTIONS(12214), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12216), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12218), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12220), 1,
+      aux_sym_type_statement_token3,
+    STATE(3807), 1,
+      sym__class_default,
+    STATE(5835), 1,
+      sym_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12165), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7966), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [139951] = 6,
-    ACTIONS(12161), 1,
+  [139892] = 6,
+    ACTIONS(12130), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
+    ACTIONS(12132), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12223), 1,
+    ACTIONS(12222), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12165), 2,
+    ACTIONS(12134), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7967), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [139974] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    STATE(8635), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [139915] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12225), 1,
+    ACTIONS(12104), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12224), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8591), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [139997] = 6,
+    STATE(8607), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [139938] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12227), 1,
+    ACTIONS(12226), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7986), 3,
+    STATE(8405), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140020] = 6,
+  [139961] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12229), 1,
+    ACTIONS(12228), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8662), 3,
+    STATE(7879), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140043] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12231), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12165), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8103), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [140066] = 6,
+  [139984] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12233), 1,
+    ACTIONS(12230), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8603), 3,
+    STATE(8417), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140089] = 6,
+  [140007] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12235), 1,
+    ACTIONS(12232), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8612), 3,
+    STATE(8420), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140112] = 6,
-    ACTIONS(884), 1,
+  [140030] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12237), 1,
+    ACTIONS(11545), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8387), 3,
+    STATE(8444), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [140135] = 6,
-    ACTIONS(884), 1,
+  [140053] = 6,
+    ACTIONS(12130), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12132), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11455), 1,
+    ACTIONS(12234), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
-      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12134), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8566), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140158] = 6,
-    ACTIONS(4653), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    STATE(8596), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [140076] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12239), 1,
+    ACTIONS(12104), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12236), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8149), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140181] = 6,
-    ACTIONS(4653), 1,
+    STATE(8595), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [140099] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12241), 1,
+    ACTIONS(12238), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7856), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140204] = 6,
-    ACTIONS(884), 1,
+    STATE(8153), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140122] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12243), 1,
+    ACTIONS(12240), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8563), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140227] = 9,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
-      aux_sym_type_statement_token3,
-    ACTIONS(12245), 1,
-      sym_preproc_comment,
-    STATE(3669), 1,
-      sym__class_default,
-    STATE(5841), 1,
-      sym_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [140256] = 6,
-    ACTIONS(12143), 1,
+    STATE(8158), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140145] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+    ACTIONS(12046), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12247), 1,
+    ACTIONS(12242), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8554), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [140279] = 6,
-    ACTIONS(4653), 1,
+    STATE(8594), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [140168] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12249), 1,
+    ACTIONS(12244), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8194), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140302] = 6,
-    ACTIONS(4653), 1,
+    STATE(8438), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [140191] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12251), 1,
+    ACTIONS(12246), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8230), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140325] = 6,
-    ACTIONS(4653), 1,
+    STATE(8052), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [140214] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12253), 1,
+    ACTIONS(12248), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8206), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140348] = 6,
+    STATE(7881), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140237] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12255), 1,
+    ACTIONS(12250), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7764), 3,
+    STATE(8163), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140371] = 6,
-    ACTIONS(4653), 1,
+  [140260] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12257), 1,
+    ACTIONS(12252), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8214), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140394] = 6,
-    ACTIONS(4653), 1,
+    STATE(8574), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [140283] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12259), 1,
+    ACTIONS(12254), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8223), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [140417] = 6,
-    ACTIONS(884), 1,
+    STATE(8164), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140306] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12261), 1,
+    ACTIONS(12256), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8095), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140440] = 6,
+    STATE(7852), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140329] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12263), 1,
+    ACTIONS(12258), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8114), 3,
+    STATE(7885), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140463] = 6,
+  [140352] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12265), 1,
+    ACTIONS(12260), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8346), 3,
+    STATE(7886), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140486] = 6,
+  [140375] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12267), 1,
+    ACTIONS(12262), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8161), 3,
+    STATE(7890), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140509] = 6,
+  [140398] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12269), 1,
+    ACTIONS(12264), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8185), 3,
+    STATE(8340), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140532] = 6,
-    ACTIONS(884), 1,
+  [140421] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12271), 1,
+    ACTIONS(12266), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7864), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140555] = 6,
-    ACTIONS(884), 1,
+    STATE(8431), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140444] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12273), 1,
+    ACTIONS(12268), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8660), 3,
+    STATE(8341), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [140578] = 6,
+  [140467] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12275), 1,
+    ACTIONS(12270), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7956), 3,
+    STATE(7967), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140601] = 6,
-    ACTIONS(12087), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12277), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12091), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8525), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [140624] = 6,
+  [140490] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12279), 1,
+    ACTIONS(12272), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8640), 3,
+    STATE(8177), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140647] = 6,
-    ACTIONS(884), 1,
+  [140513] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12281), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12103), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8154), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140670] = 6,
-    ACTIONS(884), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(11469), 1,
+    ACTIONS(12274), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
-      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7747), 3,
+    STATE(7999), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [140693] = 6,
+  [140536] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12283), 1,
+    ACTIONS(12276), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8567), 3,
+    STATE(7877), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140716] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12285), 1,
-      aux_sym_preproc_if_token2,
+  [140559] = 5,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3405), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8273), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [140739] = 6,
+    ACTIONS(4345), 5,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_STAR,
+      anon_sym_SEMI,
+      anon_sym_LBRACK,
+  [140580] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12287), 1,
+    ACTIONS(12278), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8132), 3,
+    STATE(7777), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140762] = 6,
+  [140603] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12289), 1,
+    ACTIONS(12280), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8666), 3,
+    STATE(8178), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140785] = 6,
-    ACTIONS(884), 1,
+  [140626] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12291), 1,
+    ACTIONS(12282), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8175), 3,
+    STATE(8031), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [140808] = 6,
+  [140649] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12293), 1,
+    ACTIONS(12284), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8405), 3,
+    STATE(8039), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140831] = 6,
-    ACTIONS(1568), 1,
+  [140672] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12295), 1,
+    ACTIONS(12286), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8134), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [140854] = 6,
+    STATE(8307), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [140695] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12297), 1,
+    ACTIONS(12288), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7735), 3,
+    STATE(7902), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140877] = 6,
+  [140718] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12299), 1,
+    ACTIONS(12290), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7708), 3,
+    STATE(7936), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140900] = 6,
-    ACTIONS(884), 1,
+  [140741] = 7,
+    ACTIONS(11917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11921), 1,
+      sym__string_literal,
+    ACTIONS(11923), 1,
+      sym__string_literal_kind,
+    STATE(8247), 1,
+      sym__transfer_items,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12292), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(5763), 2,
+      sym__transfer_item,
+      sym_string_literal,
+  [140766] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12301), 1,
+    ACTIONS(12294), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8654), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [140923] = 6,
-    ACTIONS(884), 1,
+    STATE(7903), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [140789] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12303), 1,
+    ACTIONS(12296), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7806), 3,
+    STATE(8291), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [140946] = 6,
+  [140812] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12305), 1,
+    ACTIONS(12298), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8150), 3,
+    STATE(8078), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [140969] = 6,
-    ACTIONS(1568), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+  [140835] = 6,
+    ACTIONS(12102), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12307), 1,
+    ACTIONS(12104), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12300), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12106), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8151), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [140992] = 6,
+    STATE(8628), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [140858] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12309), 1,
+    ACTIONS(12302), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8159), 3,
+    STATE(8189), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141015] = 6,
-    ACTIONS(4653), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12311), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12053), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8643), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [141038] = 6,
+  [140881] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12313), 1,
+    ACTIONS(12304), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
     STATE(7709), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141061] = 6,
-    ACTIONS(4653), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12315), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12053), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(7828), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [141084] = 6,
+  [140904] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12317), 1,
+    ACTIONS(12306), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
     STATE(7715), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141107] = 6,
+  [140927] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12319), 1,
+    ACTIONS(12308), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8231), 3,
+    STATE(8501), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141130] = 6,
+  [140950] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12321), 1,
+    ACTIONS(12310), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7716), 3,
+    STATE(8022), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141153] = 6,
+  [140973] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12323), 1,
+    ACTIONS(12312), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7720), 3,
+    STATE(7716), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141176] = 6,
-    ACTIONS(12087), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
+  [140996] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12325), 1,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12314), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8425), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [141199] = 6,
-    ACTIONS(884), 1,
+    STATE(7904), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141019] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12327), 1,
+    ACTIONS(12316), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8418), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [141222] = 6,
-    ACTIONS(884), 1,
+    STATE(7922), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141042] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12329), 1,
+    ACTIONS(11579), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7770), 3,
+    STATE(8572), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [141245] = 6,
-    ACTIONS(12143), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+  [141065] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12331), 1,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12318), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8437), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [141268] = 6,
+    STATE(8015), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141088] = 6,
     ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12333), 1,
+    ACTIONS(12320), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7908), 3,
+    STATE(8333), 3,
       sym_preproc_else_in_module,
       sym_preproc_elif_in_module,
       sym_preproc_elifdef_in_module,
-  [141291] = 6,
-    ACTIONS(884), 1,
+  [141111] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11463), 1,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12322), 1,
       aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12060), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7720), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141134] = 6,
+    ACTIONS(886), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
+    ACTIONS(12324), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8646), 3,
+    STATE(8266), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [141314] = 6,
+  [141157] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12335), 1,
+    ACTIONS(12326), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8644), 3,
+    STATE(8204), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141337] = 6,
+  [141180] = 6,
+    ACTIONS(886), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12328), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12054), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8252), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141203] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12337), 1,
+    ACTIONS(12330), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8259), 3,
+    STATE(8451), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141360] = 6,
+  [141226] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12339), 1,
+    ACTIONS(12332), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8280), 3,
+    STATE(7790), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141383] = 6,
-    ACTIONS(884), 1,
+  [141249] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12341), 1,
+    ACTIONS(12334), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7868), 3,
+    STATE(8328), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [141406] = 6,
+  [141272] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12343), 1,
+    ACTIONS(12336), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7990), 3,
+    STATE(8570), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141429] = 6,
-    ACTIONS(884), 1,
+  [141295] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11479), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
+    ACTIONS(12338), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8283), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [141452] = 6,
-    ACTIONS(884), 1,
+    STATE(7783), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141318] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12345), 1,
+    ACTIONS(12340), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8228), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [141475] = 6,
-    ACTIONS(884), 1,
+    STATE(8578), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141341] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(11591), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
+    ACTIONS(12342), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8398), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [141498] = 6,
-    ACTIONS(12087), 1,
+    STATE(7905), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141364] = 6,
+    ACTIONS(1568), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
+    ACTIONS(12344), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12060), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7974), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141387] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12347), 1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12346), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7998), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [141521] = 6,
+    STATE(8237), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141410] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12349), 1,
+    ACTIONS(12348), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7996), 3,
+    STATE(7889), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141544] = 6,
-    ACTIONS(4653), 1,
+  [141433] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12351), 1,
+    ACTIONS(12350), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7717), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [141567] = 6,
+    STATE(8260), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141456] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12353), 1,
+    ACTIONS(12352), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7777), 3,
+    STATE(7906), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141590] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
+  [141479] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12355), 1,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12354), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12165), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8454), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [141613] = 6,
-    ACTIONS(884), 1,
+    STATE(8312), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [141502] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12357), 1,
+    ACTIONS(12356), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8552), 3,
+    STATE(8498), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [141636] = 6,
-    ACTIONS(1568), 1,
+  [141525] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12359), 1,
+    ACTIONS(12358), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8431), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [141659] = 6,
-    ACTIONS(1568), 1,
+    STATE(8509), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [141548] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12361), 1,
+    ACTIONS(12360), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7782), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [141682] = 6,
+    STATE(8303), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [141571] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12363), 1,
+    ACTIONS(12362), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7780), 3,
+    STATE(8645), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141705] = 6,
+  [141594] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12365), 1,
+    ACTIONS(12364), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7783), 3,
+    STATE(7789), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141728] = 6,
-    ACTIONS(1568), 1,
+  [141617] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12367), 1,
+    ACTIONS(11565), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7866), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [141751] = 6,
+    STATE(7876), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141640] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12369), 1,
+    ACTIONS(12366), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7789), 3,
+    STATE(8640), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141774] = 6,
-    ACTIONS(12143), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+  [141663] = 9,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12214), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12216), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12218), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12220), 1,
+      aux_sym_type_statement_token3,
+    ACTIONS(12368), 1,
+      sym_preproc_comment,
+    STATE(3807), 1,
+      sym__class_default,
+    STATE(5951), 1,
+      sym_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [141692] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12371), 1,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12370), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7731), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [141797] = 6,
-    ACTIONS(1568), 1,
+    STATE(8514), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [141715] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12373), 1,
+    ACTIONS(12372), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8655), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [141820] = 6,
+    STATE(8287), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141738] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12375), 1,
+    ACTIONS(12374), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7712), 3,
+    STATE(8639), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141843] = 6,
-    ACTIONS(12143), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12145), 1,
+  [141761] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12377), 1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12376), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12147), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7811), 3,
-      sym_preproc_else_in_select_type,
-      sym_preproc_elif_in_select_type,
-      sym_preproc_elifdef_in_select_type,
-  [141866] = 6,
-    ACTIONS(1568), 1,
+    STATE(7788), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141784] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12379), 1,
+    ACTIONS(12378), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7790), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [141889] = 6,
+    STATE(8281), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [141807] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12381), 1,
+    ACTIONS(12380), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7924), 3,
+    STATE(8589), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141912] = 9,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12383), 1,
-      sym_preproc_comment,
-    ACTIONS(12385), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12387), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12389), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12391), 1,
-      aux_sym_type_statement_token3,
-    STATE(3795), 1,
-      sym__class_default,
-    STATE(7964), 1,
-      sym_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [141941] = 6,
+  [141830] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12393), 1,
+    ACTIONS(12382), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7827), 3,
+    STATE(8613), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141964] = 6,
+  [141853] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12395), 1,
+    ACTIONS(12384), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7851), 3,
+    STATE(7822), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [141987] = 6,
+  [141876] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12397), 1,
+    ACTIONS(12386), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8111), 3,
+    STATE(7795), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142010] = 5,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3428), 1,
-      sym_argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4287), 5,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_STAR,
-      anon_sym_SEMI,
-      anon_sym_LBRACK,
-  [142031] = 6,
-    ACTIONS(4653), 1,
+  [141899] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12399), 1,
+    ACTIONS(12388), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7942), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [142054] = 6,
+    STATE(8636), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141922] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12401), 1,
+    ACTIONS(12390), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7794), 3,
+    STATE(8441), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142077] = 6,
+  [141945] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12403), 1,
+    ACTIONS(12392), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8449), 3,
+    STATE(7804), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142100] = 6,
-    ACTIONS(884), 1,
+  [141968] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12405), 1,
+    ACTIONS(12394), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8277), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142123] = 6,
+    STATE(7907), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [141991] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12407), 1,
+    ACTIONS(12396), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7809), 3,
+    STATE(7918), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142146] = 6,
+  [142014] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12409), 1,
+    ACTIONS(12398), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7814), 3,
+    STATE(7706), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142169] = 6,
-    ACTIONS(884), 1,
+  [142037] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12411), 1,
+    ACTIONS(12400), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8571), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142192] = 6,
+    STATE(7919), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142060] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12413), 1,
+    ACTIONS(12402), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7815), 3,
+    STATE(7810), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142215] = 6,
-    ACTIONS(884), 1,
+  [142083] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12415), 1,
+    ACTIONS(12404), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7772), 3,
+    STATE(8259), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [142238] = 6,
-    ACTIONS(884), 1,
+  [142106] = 6,
+    ACTIONS(12130), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12132), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12406), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12134), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8318), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [142129] = 6,
+    ACTIONS(4653), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12417), 1,
+    ACTIONS(12408), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8119), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142261] = 6,
+    STATE(8200), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [142152] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12419), 1,
+    ACTIONS(12410), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7821), 3,
+    STATE(8630), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142284] = 6,
-    ACTIONS(1568), 1,
+  [142175] = 6,
+    ACTIONS(12102), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12104), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12412), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12106), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8322), 3,
+      sym_preproc_else_in_select_type,
+      sym_preproc_elif_in_select_type,
+      sym_preproc_elifdef_in_select_type,
+  [142198] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12421), 1,
+    ACTIONS(12414), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7822), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [142307] = 6,
+    STATE(8512), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [142221] = 6,
     ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12423), 1,
+    ACTIONS(12416), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8023), 3,
+    STATE(8197), 3,
       sym_preproc_else_in_module,
       sym_preproc_elif_in_module,
       sym_preproc_elifdef_in_module,
-  [142330] = 6,
+  [142244] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12425), 1,
+    ACTIONS(12418), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7826), 3,
+    STATE(8447), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142353] = 6,
-    ACTIONS(12087), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12089), 1,
+  [142267] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12427), 1,
+    ACTIONS(12058), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12420), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12091), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7778), 3,
-      sym_preproc_else_in_select_case,
-      sym_preproc_elif_in_select_case,
-      sym_preproc_elifdef_in_select_case,
-  [142376] = 6,
-    ACTIONS(884), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    STATE(7820), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142290] = 6,
+    ACTIONS(12044), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12429), 1,
+    ACTIONS(12046), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12422), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12048), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8580), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142399] = 6,
+    STATE(8289), 3,
+      sym_preproc_else_in_select_rank,
+      sym_preproc_elif_in_select_rank,
+      sym_preproc_elifdef_in_select_rank,
+  [142313] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12431), 1,
+    ACTIONS(12424), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7841), 3,
+    STATE(8627), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142422] = 6,
-    ACTIONS(884), 1,
+  [142336] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12433), 1,
+    ACTIONS(12426), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7781), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142445] = 6,
-    ACTIONS(884), 1,
+    STATE(7921), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142359] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12435), 1,
+    ACTIONS(12428), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8284), 3,
+    STATE(8356), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [142468] = 6,
-    ACTIONS(884), 1,
+  [142382] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12437), 1,
+    ACTIONS(12430), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8481), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142491] = 6,
+    STATE(8160), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142405] = 7,
+    ACTIONS(11917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11921), 1,
+      sym__string_literal,
+    ACTIONS(11923), 1,
+      sym__string_literal_kind,
+    STATE(8497), 1,
+      sym__transfer_items,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12292), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(5763), 2,
+      sym__transfer_item,
+      sym_string_literal,
+  [142430] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12439), 1,
+    ACTIONS(12432), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7846), 3,
+    STATE(7809), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142514] = 6,
+  [142453] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12441), 1,
+    ACTIONS(12434), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7847), 3,
+    STATE(8362), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142537] = 6,
-    ACTIONS(884), 1,
+  [142476] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12443), 1,
+    ACTIONS(12436), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7710), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [142560] = 6,
+    STATE(7920), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142499] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12445), 1,
+    ACTIONS(12438), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7853), 3,
+    STATE(8272), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142583] = 6,
+  [142522] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12447), 1,
+    ACTIONS(12440), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7854), 3,
+    STATE(8358), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142606] = 6,
+  [142545] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12449), 1,
+    ACTIONS(12442), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7858), 3,
+    STATE(7935), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142629] = 6,
+  [142568] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12451), 1,
+    ACTIONS(12444), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7883), 3,
+    STATE(7824), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142652] = 6,
+  [142591] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12453), 1,
+    ACTIONS(12446), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8306), 3,
+    STATE(7923), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142675] = 6,
-    ACTIONS(4653), 1,
+  [142614] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12455), 1,
+    ACTIONS(12448), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7753), 3,
-      sym_preproc_else_in_module,
-      sym_preproc_elif_in_module,
-      sym_preproc_elifdef_in_module,
-  [142698] = 6,
-    ACTIONS(1568), 1,
+    STATE(8184), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [142637] = 6,
+    ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12457), 1,
+    ACTIONS(12450), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7873), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [142721] = 6,
+    STATE(8378), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [142660] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12459), 1,
+    ACTIONS(12452), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8086), 3,
+    STATE(8268), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142744] = 6,
+  [142683] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12461), 1,
+    ACTIONS(12454), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8438), 3,
+    STATE(8503), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142767] = 6,
-    ACTIONS(12161), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12163), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12463), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12165), 2,
-      aux_sym_preproc_elifdef_token1,
-      aux_sym_preproc_elifdef_token2,
-    STATE(8598), 3,
-      sym_preproc_else_in_select_rank,
-      sym_preproc_elif_in_select_rank,
-      sym_preproc_elifdef_in_select_rank,
-  [142790] = 6,
-    ACTIONS(1568), 1,
+  [142706] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12465), 1,
+    ACTIONS(12456), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7878), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [142813] = 6,
+    STATE(8274), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [142729] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12467), 1,
+    ACTIONS(12458), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7879), 3,
+    STATE(7794), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142836] = 6,
-    ACTIONS(1568), 1,
+  [142752] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
-      aux_sym_preproc_else_token1,
-    ACTIONS(12469), 1,
+    ACTIONS(11465), 1,
       aux_sym_preproc_if_token2,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8582), 3,
-      sym_preproc_else_in_statements,
-      sym_preproc_elif_in_statements,
-      sym_preproc_elifdef_in_statements,
-  [142859] = 6,
+    STATE(8270), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [142775] = 6,
     ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12471), 1,
+    ACTIONS(12460), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8549), 3,
+    STATE(8141), 3,
       sym_preproc_else_in_module,
       sym_preproc_elif_in_module,
       sym_preproc_elifdef_in_module,
-  [142882] = 6,
-    ACTIONS(884), 1,
+  [142798] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12473), 1,
+    ACTIONS(12462), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7824), 3,
+    STATE(8071), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [142905] = 6,
+  [142821] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12475), 1,
+    ACTIONS(12464), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8327), 3,
+    STATE(8449), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142928] = 6,
+  [142844] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12477), 1,
+    ACTIONS(12466), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7885), 3,
+    STATE(7934), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142951] = 6,
-    ACTIONS(884), 1,
+  [142867] = 6,
+    ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12479), 1,
+    ACTIONS(12468), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7848), 3,
+    STATE(8464), 3,
+      sym_preproc_else_in_statements,
+      sym_preproc_elif_in_statements,
+      sym_preproc_elifdef_in_statements,
+  [142890] = 6,
+    ACTIONS(886), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12470), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12054), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8368), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [142974] = 6,
+  [142913] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12481), 1,
+    ACTIONS(12472), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8328), 3,
+    STATE(8488), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [142997] = 6,
+  [142936] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12483), 1,
+    ACTIONS(12474), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7886), 3,
+    STATE(8427), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [143020] = 6,
+  [142959] = 6,
     ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12485), 1,
+    ACTIONS(12476), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7875), 3,
+    STATE(7744), 3,
       sym_preproc_else_in_module,
       sym_preproc_elif_in_module,
       sym_preproc_elifdef_in_module,
-  [143043] = 6,
+  [142982] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12487), 1,
+    ACTIONS(12478), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7890), 3,
+    STATE(8549), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [143066] = 6,
+  [143005] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12489), 1,
+    ACTIONS(12480), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8090), 3,
+    STATE(7844), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [143089] = 6,
+  [143028] = 6,
+    ACTIONS(886), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12052), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12482), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12054), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(7851), 3,
+      sym_preproc_else_in_specification_part,
+      sym_preproc_elif_in_specification_part,
+      sym_preproc_elifdef_in_specification_part,
+  [143051] = 6,
     ACTIONS(4653), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12051), 1,
+    ACTIONS(12076), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12491), 1,
+    ACTIONS(12484), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12053), 2,
+    ACTIONS(12078), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(7880), 3,
+    STATE(8379), 3,
       sym_preproc_else_in_module,
       sym_preproc_elif_in_module,
       sym_preproc_elifdef_in_module,
-  [143112] = 7,
-    ACTIONS(11839), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11843), 1,
-      aux_sym_hollerith_constant_token1,
-    ACTIONS(11845), 1,
-      sym__string_literal,
-    ACTIONS(11847), 1,
-      sym__string_literal_kind,
-    ACTIONS(12493), 1,
-      sym_edit_descriptor,
+  [143074] = 6,
+    ACTIONS(4653), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12076), 1,
+      aux_sym_preproc_else_token1,
+    ACTIONS(12486), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6033), 3,
-      sym__transfer_item,
-      sym_hollerith_constant,
-      sym_string_literal,
-  [143137] = 6,
-    ACTIONS(884), 1,
+    ACTIONS(12078), 2,
+      aux_sym_preproc_elifdef_token1,
+      aux_sym_preproc_elifdef_token2,
+    STATE(8373), 3,
+      sym_preproc_else_in_module,
+      sym_preproc_elif_in_module,
+      sym_preproc_elifdef_in_module,
+  [143097] = 6,
+    ACTIONS(886), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+    ACTIONS(12052), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12495), 1,
+    ACTIONS(12488), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12054), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8347), 3,
+    STATE(8644), 3,
       sym_preproc_else_in_specification_part,
       sym_preproc_elif_in_specification_part,
       sym_preproc_elifdef_in_specification_part,
-  [143160] = 6,
+  [143120] = 6,
     ACTIONS(1568), 1,
       aux_sym_preproc_elif_token1,
-    ACTIONS(12057), 1,
+    ACTIONS(12058), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12497), 1,
+    ACTIONS(12490), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12059), 2,
+    ACTIONS(12060), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8339), 3,
+    STATE(8344), 3,
       sym_preproc_else_in_statements,
       sym_preproc_elif_in_statements,
       sym_preproc_elifdef_in_statements,
-  [143183] = 6,
-    ACTIONS(884), 1,
-      aux_sym_preproc_elif_token1,
-    ACTIONS(12101), 1,
+  [143143] = 6,
+    ACTIONS(12130), 1,
       aux_sym_preproc_else_token1,
-    ACTIONS(12499), 1,
+    ACTIONS(12132), 1,
+      aux_sym_preproc_elif_token1,
+    ACTIONS(12492), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12103), 2,
+    ACTIONS(12134), 2,
       aux_sym_preproc_elifdef_token1,
       aux_sym_preproc_elifdef_token2,
-    STATE(8066), 3,
-      sym_preproc_else_in_specification_part,
-      sym_preproc_elif_in_specification_part,
-      sym_preproc_elifdef_in_specification_part,
-  [143206] = 3,
-    ACTIONS(12503), 1,
+    STATE(8599), 3,
+      sym_preproc_else_in_select_case,
+      sym_preproc_elif_in_select_case,
+      sym_preproc_elifdef_in_select_case,
+  [143166] = 8,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12214), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12216), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12218), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12220), 1,
+      aux_sym_type_statement_token3,
+    STATE(3807), 1,
+      sym__class_default,
+    STATE(5800), 1,
+      sym_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [143192] = 8,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12214), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12216), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12218), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12220), 1,
+      aux_sym_type_statement_token3,
+    STATE(3807), 1,
+      sym__class_default,
+    STATE(5799), 1,
+      sym_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [143218] = 7,
+    ACTIONS(2303), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(12494), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12496), 1,
+      aux_sym_end_where_statement_token1,
+    ACTIONS(12498), 1,
+      aux_sym_elsewhere_clause_token1,
+    STATE(7659), 1,
+      sym_end_where_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6057), 2,
+      sym_elsewhere_clause,
+      aux_sym__block_where_statement_repeat1,
+  [143242] = 5,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12500), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(6000), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [143262] = 3,
+    ACTIONS(12504), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12501), 6,
+    ACTIONS(12502), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143222] = 5,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
+  [143278] = 3,
+    ACTIONS(12508), 1,
+      aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12505), 2,
+    ACTIONS(12506), 6,
       sym__external_end_of_statement,
+      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-    STATE(5997), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [143242] = 5,
-    ACTIONS(12507), 1,
-      aux_sym_language_binding_token1,
+      aux_sym_concurrent_locality_token2,
+      aux_sym_concurrent_locality_token3,
+      aux_sym_concurrent_locality_token4,
+  [143294] = 5,
     ACTIONS(12510), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(12513), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12513), 2,
+    ACTIONS(12516), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5997), 3,
+    STATE(6000), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [143262] = 8,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
-      aux_sym_type_statement_token3,
-    STATE(3669), 1,
-      sym__class_default,
-    STATE(5822), 1,
-      sym_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [143288] = 8,
+  [143314] = 8,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
+    ACTIONS(12214), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
+    ACTIONS(12216), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
+    ACTIONS(12218), 1,
       aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
+    ACTIONS(12220), 1,
       aux_sym_type_statement_token3,
-    STATE(3669), 1,
+    STATE(3807), 1,
       sym__class_default,
-    STATE(5831), 1,
+    STATE(5840), 1,
       sym_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [143314] = 8,
+  [143340] = 8,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
+    ACTIONS(12214), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
+    ACTIONS(12216), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
+    ACTIONS(12218), 1,
       aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
+    ACTIONS(12220), 1,
       aux_sym_type_statement_token3,
-    STATE(3669), 1,
+    STATE(3807), 1,
       sym__class_default,
-    STATE(5835), 1,
+    STATE(5853), 1,
       sym_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [143340] = 6,
-    ACTIONS(11959), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11961), 1,
+  [143366] = 5,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    STATE(7487), 1,
-      sym_language_binding,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12515), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6391), 2,
-      sym__parameters,
-      sym_parameters,
-  [143362] = 3,
-    ACTIONS(12519), 1,
-      sym_edit_descriptor,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12517), 6,
-      sym__string_literal,
-      sym__string_literal_kind,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      aux_sym_hollerith_constant_token1,
-  [143378] = 8,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12385), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12387), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12389), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12391), 1,
-      aux_sym_type_statement_token3,
-    STATE(3795), 1,
-      sym__class_default,
-    STATE(7877), 1,
-      sym_type_statement,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [143404] = 3,
-    ACTIONS(12523), 1,
+    ACTIONS(12518), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+    STATE(6000), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [143386] = 3,
+    ACTIONS(12522), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12521), 6,
+    ACTIONS(12520), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143420] = 5,
-    ACTIONS(11961), 1,
+  [143402] = 5,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
+    ACTIONS(11939), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12525), 2,
+    ACTIONS(12524), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5997), 3,
+    STATE(6000), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [143440] = 3,
-    ACTIONS(12529), 1,
+  [143422] = 3,
+    ACTIONS(12528), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12527), 6,
+    ACTIONS(12526), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143456] = 3,
-    ACTIONS(12533), 1,
+  [143438] = 3,
+    ACTIONS(12532), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12531), 6,
+    ACTIONS(12530), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143472] = 5,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
+  [143454] = 3,
+    ACTIONS(12536), 1,
+      aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12535), 2,
+    ACTIONS(12534), 6,
       sym__external_end_of_statement,
+      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-    STATE(6005), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [143492] = 6,
-    ACTIONS(12537), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12541), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(12544), 1,
-      aux_sym_elseif_clause_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12539), 2,
-      sym__integer_literal,
-      aux_sym_end_if_statement_token1,
-    STATE(6009), 2,
-      sym_elseif_clause,
-      aux_sym__block_if_statement_repeat1,
-  [143514] = 5,
-    ACTIONS(11961), 1,
+      aux_sym_concurrent_locality_token2,
+      aux_sym_concurrent_locality_token3,
+      aux_sym_concurrent_locality_token4,
+  [143470] = 6,
+    ACTIONS(11935), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
+    STATE(7451), 1,
+      sym_language_binding,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12547), 2,
+    ACTIONS(12538), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5997), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [143534] = 5,
-    ACTIONS(11961), 1,
+    STATE(6447), 2,
+      sym__parameters,
+      sym_parameters,
+  [143492] = 6,
+    ACTIONS(11935), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
+    STATE(7529), 1,
+      sym_language_binding,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12549), 2,
+    ACTIONS(12540), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5996), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [143554] = 5,
-    ACTIONS(11961), 1,
+    STATE(6429), 2,
+      sym__parameters,
+      sym_parameters,
+  [143514] = 5,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
+    ACTIONS(11939), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12551), 2,
+    ACTIONS(12542), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5997), 3,
+    STATE(6000), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [143574] = 6,
-    ACTIONS(11959), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    STATE(7496), 1,
-      sym_language_binding,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12553), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6393), 2,
-      sym__parameters,
-      sym_parameters,
-  [143596] = 3,
-    ACTIONS(12557), 1,
+  [143534] = 3,
+    ACTIONS(12546), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12555), 6,
+    ACTIONS(12544), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143612] = 3,
-    ACTIONS(12561), 1,
-      aux_sym_concurrent_locality_token1,
+  [143550] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12559), 6,
-      sym__external_end_of_statement,
-      aux_sym_variable_attributes_token3,
-      anon_sym_SEMI,
-      aux_sym_concurrent_locality_token2,
-      aux_sym_concurrent_locality_token3,
-      aux_sym_concurrent_locality_token4,
-  [143628] = 8,
+    ACTIONS(11986), 7,
+      sym__string_literal,
+      sym__string_literal_kind,
+      sym_hollerith_constant,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      sym_edit_descriptor,
+  [143564] = 8,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
+    ACTIONS(12214), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
+    ACTIONS(12216), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
+    ACTIONS(12218), 1,
       aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
+    ACTIONS(12220), 1,
       aux_sym_type_statement_token3,
-    STATE(3669), 1,
+    STATE(3807), 1,
       sym__class_default,
-    STATE(5910), 1,
+    STATE(5893), 1,
       sym_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [143654] = 3,
-    ACTIONS(12565), 1,
-      aux_sym_concurrent_locality_token1,
+  [143590] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12548), 7,
+      sym__string_literal,
+      sym__string_literal_kind,
+      sym_hollerith_constant,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      sym_edit_descriptor,
+  [143604] = 6,
+    ACTIONS(12550), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12554), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(12557), 1,
+      aux_sym_elseif_clause_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12552), 2,
+      sym__integer_literal,
+      aux_sym_end_if_statement_token1,
+    STATE(6016), 2,
+      sym_elseif_clause,
+      aux_sym__block_if_statement_repeat1,
+  [143626] = 5,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12563), 6,
+    ACTIONS(12560), 2,
       sym__external_end_of_statement,
-      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-      aux_sym_concurrent_locality_token2,
-      aux_sym_concurrent_locality_token3,
-      aux_sym_concurrent_locality_token4,
-  [143670] = 8,
+    STATE(6005), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [143646] = 8,
     ACTIONS(10770), 1,
       aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
+    ACTIONS(12214), 1,
       aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
+    ACTIONS(12216), 1,
       aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
+    ACTIONS(12218), 1,
       aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
+    ACTIONS(12220), 1,
       aux_sym_type_statement_token3,
-    STATE(3669), 1,
+    STATE(3807), 1,
       sym__class_default,
-    STATE(5936), 1,
+    STATE(5860), 1,
       sym_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
+  [143672] = 7,
+    ACTIONS(2303), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(12494), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12496), 1,
+      aux_sym_end_where_statement_token1,
+    ACTIONS(12498), 1,
+      aux_sym_elsewhere_clause_token1,
+    STATE(7520), 1,
+      sym_end_where_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6057), 2,
+      sym_elsewhere_clause,
+      aux_sym__block_where_statement_repeat1,
   [143696] = 3,
-    ACTIONS(12569), 1,
+    ACTIONS(12564), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12567), 6,
+    ACTIONS(12562), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143712] = 3,
-    ACTIONS(7559), 1,
-      sym_edit_descriptor,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7561), 6,
+  [143712] = 6,
+    ACTIONS(11917), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(11921), 1,
       sym__string_literal,
+    ACTIONS(11923), 1,
       sym__string_literal_kind,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      aux_sym_hollerith_constant_token1,
-  [143728] = 3,
-    ACTIONS(7547), 1,
-      sym_edit_descriptor,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7549), 6,
-      sym__string_literal,
-      sym__string_literal_kind,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      aux_sym_hollerith_constant_token1,
-  [143744] = 5,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
-      aux_sym_function_result_token1,
+    ACTIONS(12566), 2,
+      sym_hollerith_constant,
+      sym_edit_descriptor,
+    STATE(6013), 2,
+      sym__transfer_item,
+      sym_string_literal,
+  [143734] = 3,
+    ACTIONS(12570), 1,
+      aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12571), 2,
+    ACTIONS(12568), 6,
       sym__external_end_of_statement,
+      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-    STATE(5997), 3,
-      sym_language_binding,
-      sym_function_result,
-      aux_sym_function_statement_repeat1,
-  [143764] = 5,
-    ACTIONS(11961), 1,
+      aux_sym_concurrent_locality_token2,
+      aux_sym_concurrent_locality_token3,
+      aux_sym_concurrent_locality_token4,
+  [143750] = 5,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
+    ACTIONS(11939), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12573), 2,
+    ACTIONS(12572), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(6022), 3,
+    STATE(6003), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [143784] = 7,
-    ACTIONS(2429), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(12575), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12577), 1,
-      aux_sym_end_where_statement_token1,
-    ACTIONS(12579), 1,
-      aux_sym_elsewhere_clause_token1,
-    STATE(7383), 1,
-      sym_end_where_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6043), 2,
-      sym_elsewhere_clause,
-      aux_sym__block_where_statement_repeat1,
-  [143808] = 5,
-    ACTIONS(11961), 1,
+  [143770] = 5,
+    ACTIONS(11937), 1,
       aux_sym_language_binding_token1,
-    ACTIONS(11963), 1,
+    ACTIONS(11939), 1,
       aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12581), 2,
+    ACTIONS(12574), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(5997), 3,
+    STATE(6000), 3,
       sym_language_binding,
       sym_function_result,
       aux_sym_function_statement_repeat1,
-  [143828] = 8,
-    ACTIONS(10770), 1,
-      aux_sym__class_default_token1,
-    ACTIONS(12171), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(12173), 1,
-      aux_sym_derived_type_token1,
-    ACTIONS(12175), 1,
-      aux_sym_type_statement_token2,
-    ACTIONS(12177), 1,
-      aux_sym_type_statement_token3,
-    STATE(3669), 1,
-      sym__class_default,
-    STATE(5933), 1,
-      sym_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [143854] = 3,
-    ACTIONS(12585), 1,
+  [143790] = 3,
+    ACTIONS(12578), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12583), 6,
+    ACTIONS(12576), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143870] = 3,
-    ACTIONS(12589), 1,
+  [143806] = 3,
+    ACTIONS(12582), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12587), 6,
+    ACTIONS(12580), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143886] = 7,
-    ACTIONS(2429), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(12575), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12577), 1,
-      aux_sym_end_where_statement_token1,
-    ACTIONS(12579), 1,
-      aux_sym_elsewhere_clause_token1,
-    STATE(7525), 1,
-      sym_end_where_statement,
+  [143822] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6043), 2,
-      sym_elsewhere_clause,
-      aux_sym__block_where_statement_repeat1,
-  [143910] = 3,
-    ACTIONS(12593), 1,
-      aux_sym_concurrent_locality_token1,
+    ACTIONS(7557), 7,
+      sym__string_literal,
+      sym__string_literal_kind,
+      sym_hollerith_constant,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_LPAREN2,
+      sym_edit_descriptor,
+  [143836] = 5,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12591), 6,
+    ACTIONS(12584), 2,
       sym__external_end_of_statement,
-      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-      aux_sym_concurrent_locality_token2,
-      aux_sym_concurrent_locality_token3,
-      aux_sym_concurrent_locality_token4,
-  [143926] = 3,
-    ACTIONS(12597), 1,
-      aux_sym_concurrent_locality_token1,
+    STATE(6000), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [143856] = 5,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    ACTIONS(11939), 1,
+      aux_sym_function_result_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12595), 6,
+    ACTIONS(12586), 2,
       sym__external_end_of_statement,
-      aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
-      aux_sym_concurrent_locality_token2,
-      aux_sym_concurrent_locality_token3,
-      aux_sym_concurrent_locality_token4,
-  [143942] = 3,
-    ACTIONS(12601), 1,
-      sym_edit_descriptor,
+    STATE(5997), 3,
+      sym_language_binding,
+      sym_function_result,
+      aux_sym_function_statement_repeat1,
+  [143876] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12599), 6,
+    ACTIONS(7549), 7,
       sym__string_literal,
       sym__string_literal_kind,
+      sym_hollerith_constant,
       anon_sym_COMMA,
       anon_sym_RPAREN,
       anon_sym_LPAREN2,
-      aux_sym_hollerith_constant_token1,
-  [143958] = 3,
-    ACTIONS(12603), 1,
       sym_edit_descriptor,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(11856), 6,
-      sym__string_literal,
-      sym__string_literal_kind,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_LPAREN2,
-      aux_sym_hollerith_constant_token1,
-  [143974] = 3,
-    ACTIONS(12607), 1,
+  [143890] = 3,
+    ACTIONS(12590), 1,
       aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12605), 6,
+    ACTIONS(12588), 6,
       sym__external_end_of_statement,
       aux_sym_variable_attributes_token3,
       anon_sym_SEMI,
       aux_sym_concurrent_locality_token2,
       aux_sym_concurrent_locality_token3,
       aux_sym_concurrent_locality_token4,
-  [143990] = 7,
-    ACTIONS(2429), 1,
+  [143906] = 8,
+    ACTIONS(10770), 1,
+      aux_sym__class_default_token1,
+    ACTIONS(12084), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(12086), 1,
+      aux_sym_derived_type_token1,
+    ACTIONS(12088), 1,
+      aux_sym_type_statement_token2,
+    ACTIONS(12090), 1,
+      aux_sym_type_statement_token3,
+    STATE(3775), 1,
+      sym__class_default,
+    STATE(8633), 1,
+      sym_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [143932] = 7,
+    ACTIONS(2303), 1,
       aux_sym_elseif_clause_token1,
-    ACTIONS(12575), 1,
+    ACTIONS(12494), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12577), 1,
+    ACTIONS(12496), 1,
       aux_sym_end_where_statement_token1,
-    ACTIONS(12579), 1,
+    ACTIONS(12498), 1,
       aux_sym_elsewhere_clause_token1,
-    STATE(7470), 1,
+    STATE(7415), 1,
       sym_end_where_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6043), 2,
+    STATE(6057), 2,
       sym_elsewhere_clause,
       aux_sym__block_where_statement_repeat1,
-  [144014] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(6732), 1,
-      sym_end_enum_statement,
+  [143956] = 3,
+    ACTIONS(12594), 1,
+      aux_sym_concurrent_locality_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144035] = 6,
-    ACTIONS(12609), 1,
+    ACTIONS(12592), 6,
+      sym__external_end_of_statement,
+      aux_sym_variable_attributes_token3,
+      anon_sym_SEMI,
+      aux_sym_concurrent_locality_token2,
+      aux_sym_concurrent_locality_token3,
+      aux_sym_concurrent_locality_token4,
+  [143972] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6607), 1,
+    STATE(7188), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144056] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    STATE(3188), 1,
-      sym_kind,
-    STATE(3194), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(7212), 2,
-      anon_sym_RPAREN,
-      anon_sym_COLON_COLON,
-  [144077] = 6,
-    ACTIONS(12609), 1,
+  [143993] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6664), 1,
+    STATE(7129), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6040), 2,
+    STATE(6039), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144098] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(6674), 1,
-      sym_end_enum_statement,
+  [144014] = 6,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(5276), 1,
+      sym__end_of_statement,
+    STATE(6589), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144119] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(6725), 1,
-      sym_end_enum_statement,
+    ACTIONS(12602), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [144035] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6036), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144140] = 6,
-    ACTIONS(12609), 1,
+    ACTIONS(12020), 6,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_variable_attributes_token1,
+      aux_sym_variable_attributes_token2,
+      aux_sym_variable_attributes_token3,
+      aux_sym_variable_attributes_token4,
+      aux_sym_variable_attributes_token5,
+  [144048] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6857), 1,
+    STATE(7113), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6064), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144161] = 6,
-    ACTIONS(12617), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12619), 1,
-      aux_sym_elseif_clause_token1,
-    ACTIONS(12622), 1,
-      aux_sym_end_where_statement_token1,
-    ACTIONS(12624), 1,
-      aux_sym_elsewhere_clause_token1,
+  [144069] = 6,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(5272), 1,
+      sym__end_of_statement,
+    STATE(6710), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6043), 2,
-      sym_elsewhere_clause,
-      aux_sym__block_where_statement_repeat1,
-  [144182] = 6,
-    ACTIONS(12609), 1,
+    ACTIONS(12604), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [144090] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6785), 1,
+    STATE(6620), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6045), 2,
+    STATE(6058), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144203] = 6,
-    ACTIONS(12609), 1,
+  [144111] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6792), 1,
+    STATE(7057), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6077), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144224] = 3,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4285), 2,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-    ACTIONS(4287), 4,
-      sym_preproc_comment,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-  [144239] = 6,
-    ACTIONS(12609), 1,
+  [144132] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6844), 1,
+    STATE(7240), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6048), 2,
+    STATE(6044), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144260] = 6,
-    ACTIONS(12609), 1,
+  [144153] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6850), 1,
+    STATE(7231), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144281] = 6,
-    ACTIONS(12627), 1,
-      anon_sym_COMMA,
-    ACTIONS(12629), 1,
-      anon_sym_EQ,
-    ACTIONS(12631), 1,
-      anon_sym_EQ_GT,
-    STATE(6348), 1,
-      aux_sym__declaration_targets_repeat1,
+  [144174] = 6,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(5283), 1,
+      sym__end_of_statement,
+    STATE(6963), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10816), 2,
+    ACTIONS(12606), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144302] = 6,
-    ACTIONS(12609), 1,
+  [144195] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6895), 1,
+    STATE(6559), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6051), 2,
+    STATE(6062), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144323] = 6,
-    ACTIONS(12609), 1,
+  [144216] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6903), 1,
+    STATE(7054), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6069), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144344] = 3,
+  [144237] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4289), 2,
+    ACTIONS(4321), 2,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-    ACTIONS(4291), 4,
+    ACTIONS(4323), 4,
       sym_preproc_comment,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-  [144359] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(6942), 1,
-      sym_end_enum_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6054), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144380] = 6,
-    ACTIONS(12609), 1,
+  [144252] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6950), 1,
+    STATE(7308), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144401] = 6,
-    ACTIONS(7519), 1,
+  [144273] = 6,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(5267), 1,
+    STATE(5277), 1,
       sym__end_of_statement,
-    STATE(6966), 1,
+    STATE(6847), 1,
       sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12633), 2,
+    ACTIONS(12608), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144422] = 6,
-    ACTIONS(12609), 1,
+  [144294] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6596), 1,
+    STATE(6917), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6037), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144443] = 6,
-    ACTIONS(12609), 1,
+  [144315] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6988), 1,
+    STATE(7175), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6035), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144464] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(7004), 1,
-      sym_end_enum_statement,
+  [144336] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6060), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144485] = 2,
+    ACTIONS(4343), 2,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+    ACTIONS(4345), 4,
+      sym_preproc_comment,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+  [144351] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12045), 6,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_variable_attributes_token1,
-      aux_sym_variable_attributes_token2,
-      aux_sym_variable_attributes_token3,
-      aux_sym_variable_attributes_token4,
-      aux_sym_variable_attributes_token5,
-  [144498] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(7010), 1,
-      sym_end_enum_statement,
+    ACTIONS(4347), 2,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+    ACTIONS(4349), 4,
+      sym_preproc_comment,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+  [144366] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144519] = 3,
+    ACTIONS(4389), 2,
+      aux_sym_implicit_statement_token3,
+      aux_sym_derived_type_token1,
+    ACTIONS(4391), 4,
+      sym_preproc_comment,
+      aux_sym_type_statement_token2,
+      aux_sym_type_statement_token3,
+      aux_sym__class_default_token1,
+  [144381] = 3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4293), 2,
+    ACTIONS(4343), 2,
       aux_sym_implicit_statement_token3,
       aux_sym_derived_type_token1,
-    ACTIONS(4295), 4,
+    ACTIONS(4345), 4,
       sym_preproc_comment,
       aux_sym_type_statement_token2,
       aux_sym_type_statement_token3,
       aux_sym__class_default_token1,
-  [144534] = 6,
-    ACTIONS(12609), 1,
+  [144396] = 6,
+    ACTIONS(12610), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12612), 1,
+      aux_sym_elseif_clause_token1,
+    ACTIONS(12615), 1,
+      aux_sym_end_where_statement_token1,
+    ACTIONS(12617), 1,
+      aux_sym_elsewhere_clause_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6057), 2,
+      sym_elsewhere_clause,
+      aux_sym__block_where_statement_repeat1,
+  [144417] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(7091), 1,
+    STATE(6642), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144555] = 6,
-    ACTIONS(7519), 1,
+  [144438] = 6,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(5290), 1,
+    STATE(5273), 1,
       sym__end_of_statement,
-    STATE(7289), 1,
+    STATE(6886), 1,
       sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12635), 2,
+    ACTIONS(12620), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144576] = 6,
-    ACTIONS(12609), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
-      aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
-      aux_sym_end_enum_statement_token1,
-    STATE(6958), 1,
-      sym_end_enum_statement,
+  [144459] = 6,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(5282), 1,
+      sym__end_of_statement,
+    STATE(6495), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [144597] = 6,
-    ACTIONS(7519), 1,
+    ACTIONS(12622), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [144480] = 6,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
+    STATE(3169), 1,
       sym__argument_list,
     STATE(5271), 1,
       sym__end_of_statement,
-    STATE(7033), 1,
+    STATE(7287), 1,
       sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12637), 2,
+    ACTIONS(12624), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144618] = 6,
-    ACTIONS(12609), 1,
+  [144501] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(7257), 1,
+    STATE(6520), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6070), 2,
+    STATE(6166), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144522] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(7202), 1,
+      sym_end_enum_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144639] = 6,
-    ACTIONS(7519), 1,
+  [144543] = 6,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(5285), 1,
+    STATE(667), 1,
       sym__end_of_statement,
-    STATE(6745), 1,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7223), 1,
       sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12639), 2,
+    ACTIONS(12626), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144660] = 3,
+  [144564] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(7295), 1,
+      sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4285), 2,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-    ACTIONS(4287), 4,
-      sym_preproc_comment,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-  [144675] = 6,
-    ACTIONS(7519), 1,
+    STATE(6049), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144585] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(6498), 1,
+      sym_end_enum_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6063), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144606] = 6,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    STATE(3170), 1,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    STATE(3184), 1,
       sym__argument_list,
-    STATE(5299), 1,
-      sym__end_of_statement,
-    STATE(6874), 1,
-      sym_argument_list,
+    STATE(3185), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12641), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [144696] = 6,
-    ACTIONS(12609), 1,
+    ACTIONS(7212), 2,
+      anon_sym_RPAREN,
+      anon_sym_COLON_COLON,
+  [144627] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(7280), 1,
+    STATE(6981), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144717] = 6,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(683), 1,
-      sym__end_of_statement,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(6862), 1,
-      sym_argument_list,
+  [144648] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(7067), 1,
+      sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12643), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [144738] = 6,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(5297), 1,
-      sym__end_of_statement,
-    STATE(7037), 1,
-      sym_argument_list,
+    STATE(6166), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144669] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(6810), 1,
+      sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12645), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [144759] = 6,
-    ACTIONS(12609), 1,
+    STATE(6166), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144690] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6522), 1,
+    STATE(6979), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6074), 2,
+    STATE(6051), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144780] = 6,
-    ACTIONS(12609), 1,
+  [144711] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6533), 1,
+    STATE(6991), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6068), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144801] = 3,
+  [144732] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(6929), 1,
+      sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4297), 2,
-      aux_sym_implicit_statement_token3,
-      aux_sym_derived_type_token1,
-    ACTIONS(4299), 4,
-      sym_preproc_comment,
-      aux_sym_type_statement_token2,
-      aux_sym_type_statement_token3,
-      aux_sym__class_default_token1,
-  [144816] = 6,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(5280), 1,
-      sym__end_of_statement,
-    STATE(7177), 1,
-      sym_argument_list,
+    STATE(6075), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144753] = 6,
+    ACTIONS(12630), 1,
+      anon_sym_COMMA,
+    ACTIONS(12632), 1,
+      anon_sym_EQ,
+    ACTIONS(12634), 1,
+      anon_sym_EQ_GT,
+    STATE(6407), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12647), 2,
+    ACTIONS(10778), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144837] = 6,
-    ACTIONS(12609), 1,
+  [144774] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6683), 1,
+    STATE(6944), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6062), 2,
+    STATE(6166), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144858] = 6,
-    ACTIONS(12609), 1,
+  [144795] = 6,
+    ACTIONS(12596), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12611), 1,
+    ACTIONS(12598), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12613), 1,
+    ACTIONS(12600), 1,
       aux_sym_end_enum_statement_token1,
-    STATE(6983), 1,
+    STATE(6791), 1,
       sym_end_enum_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6057), 2,
+    STATE(6070), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144879] = 5,
-    ACTIONS(12649), 1,
+  [144816] = 6,
+    ACTIONS(12596), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12598), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(12600), 1,
+      aux_sym_end_enum_statement_token1,
+    STATE(7046), 1,
+      sym_end_enum_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6166), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [144837] = 5,
+    ACTIONS(12636), 1,
       anon_sym_COMMA,
-    STATE(1143), 1,
-      sym__end_of_statement,
-    STATE(6159), 1,
-      aux_sym_private_statement_repeat1,
+    ACTIONS(12639), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6078), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12651), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [144897] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12641), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [144855] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4612), 1,
+    STATE(1131), 1,
       sym__end_of_statement,
-    STATE(6186), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6215), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12655), 2,
+    ACTIONS(12645), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144915] = 5,
-    ACTIONS(12649), 1,
+  [144873] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1481), 1,
+    STATE(1179), 1,
       sym__end_of_statement,
-    STATE(6102), 1,
+    STATE(6302), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12657), 2,
+    ACTIONS(12647), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144933] = 5,
+  [144891] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
     ACTIONS(12649), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8668), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [144911] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12651), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8669), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [144931] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1481), 1,
+    STATE(1545), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12657), 2,
+    ACTIONS(12653), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [144951] = 5,
-    ACTIONS(12659), 1,
+  [144949] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6920), 1,
+    STATE(6974), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6251), 2,
+    STATE(6087), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [144969] = 5,
-    ACTIONS(11657), 1,
+  [144967] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    ACTIONS(12663), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6164), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(1561), 1,
+      sym__end_of_statement,
+    STATE(6115), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12665), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [144987] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12659), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [144985] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1576), 1,
+    STATE(5663), 1,
       sym__end_of_statement,
-    STATE(6155), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12667), 2,
+    ACTIONS(12661), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145005] = 5,
-    ACTIONS(12653), 1,
+  [145003] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6916), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145021] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4614), 1,
+    STATE(1652), 1,
       sym__end_of_statement,
-    STATE(6213), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6105), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12669), 2,
+    ACTIONS(12663), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145023] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(1493), 1,
-      sym__end_of_statement,
-    STATE(6109), 1,
-      aux_sym_private_statement_repeat1,
+  [145039] = 3,
+    ACTIONS(12665), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12671), 2,
+    ACTIONS(4345), 4,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_EQ_GT,
       anon_sym_SEMI,
-  [145041] = 5,
-    ACTIONS(12649), 1,
+  [145053] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1580), 1,
+    STATE(1560), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6120), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12673), 2,
+    ACTIONS(12667), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145059] = 5,
-    ACTIONS(12649), 1,
+  [145071] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1493), 1,
+    STATE(4329), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6235), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12671), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145077] = 5,
-    ACTIONS(12653), 1,
+  [145089] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4331), 1,
+    STATE(4504), 1,
       sym__end_of_statement,
-    STATE(6222), 1,
+    STATE(6299), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12675), 2,
+    ACTIONS(12673), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145095] = 5,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(7702), 1,
-      sym_argument_list,
+  [145107] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6989), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12677), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [145113] = 5,
-    ACTIONS(12649), 1,
+    STATE(6116), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145125] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1446), 1,
+    STATE(5660), 1,
       sym__end_of_statement,
-    STATE(6098), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12679), 2,
+    ACTIONS(12675), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145131] = 5,
-    ACTIONS(12649), 1,
+  [145143] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1449), 1,
+    STATE(1652), 1,
       sym__end_of_statement,
-    STATE(6100), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12681), 2,
+    ACTIONS(12663), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145149] = 5,
-    ACTIONS(12649), 1,
+  [145161] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2885), 1,
+    STATE(2788), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12683), 2,
+    ACTIONS(12677), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145167] = 5,
-    ACTIONS(12649), 1,
+  [145179] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2902), 1,
+    STATE(2789), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12685), 2,
+    ACTIONS(12679), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145185] = 5,
-    ACTIONS(12649), 1,
+  [145197] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12681), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8615), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [145217] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12683), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8000), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [145237] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1467), 1,
+    STATE(1648), 1,
       sym__end_of_statement,
-    STATE(6105), 1,
+    STATE(6106), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12687), 2,
+    ACTIONS(12685), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145203] = 5,
-    ACTIONS(12653), 1,
+  [145255] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6945), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145273] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4530), 1,
+    STATE(1648), 1,
       sym__end_of_statement,
-    STATE(6172), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12689), 2,
+    ACTIONS(12685), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145221] = 5,
-    ACTIONS(12649), 1,
+  [145291] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7230), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145309] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1467), 1,
+    STATE(3104), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -609967,25 +609890,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12687), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145239] = 5,
-    ACTIONS(12649), 1,
+  [145327] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1468), 1,
+    STATE(1659), 1,
       sym__end_of_statement,
-    STATE(6106), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12691), 2,
+    ACTIONS(12689), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145257] = 5,
-    ACTIONS(12649), 1,
+  [145345] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1468), 1,
+    STATE(1644), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -609993,51 +609916,39 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12691), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145275] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(2816), 1,
-      sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+  [145363] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12693), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(7951), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12693), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [145293] = 5,
-    ACTIONS(12649), 1,
+  [145383] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1348), 1,
+    STATE(4347), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6143), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12695), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145311] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6858), 1,
-      sym_end_enumeration_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6111), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [145329] = 5,
-    ACTIONS(12653), 1,
+  [145401] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4353), 1,
+    STATE(4348), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -610045,25 +609956,25 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12697), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145347] = 5,
-    ACTIONS(12649), 1,
+  [145419] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1486), 1,
+    STATE(4352), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6146), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12699), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145365] = 5,
-    ACTIONS(12649), 1,
+  [145437] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1487), 1,
+    STATE(1535), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6149), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -610071,527 +609982,515 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12701), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145383] = 6,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(6456), 1,
-      sym_statement_label,
-    STATE(7612), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [145403] = 4,
+  [145455] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
     ACTIONS(12703), 1,
-      anon_sym_SLASH,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(7950), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12706), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-    STATE(6108), 2,
-      sym_variable_group,
-      aux_sym_namelist_statement_repeat1,
-  [145419] = 5,
-    ACTIONS(12649), 1,
+  [145475] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1439), 1,
+    STATE(1178), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6260), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12708), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [145437] = 5,
-    ACTIONS(12653), 1,
-      anon_sym_COMMA,
-    STATE(4547), 1,
-      sym__end_of_statement,
-    STATE(6211), 1,
-      aux_sym_procedure_statement_repeat2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12710), 2,
+    ACTIONS(12705), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145455] = 5,
-    ACTIONS(12659), 1,
+  [145493] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6959), 1,
+    STATE(6930), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6101), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [145473] = 5,
-    ACTIONS(12653), 1,
+  [145511] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4356), 1,
+    STATE(1535), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12712), 2,
+    ACTIONS(12701), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145491] = 6,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10346), 1,
-      anon_sym_COMMA,
-    ACTIONS(10348), 1,
-      anon_sym_RPAREN,
-    STATE(7029), 1,
-      aux_sym_allocate_statement_repeat1,
-    STATE(7515), 1,
-      sym_coarray_index,
+  [145529] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6978), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [145511] = 5,
-    ACTIONS(12649), 1,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145547] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7206), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145565] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5287), 1,
+    STATE(2787), 1,
       sym__end_of_statement,
-    STATE(6266), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12714), 2,
+    ACTIONS(12707), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145529] = 5,
-    ACTIONS(12653), 1,
+  [145583] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4337), 1,
+    STATE(1531), 1,
       sym__end_of_statement,
-    STATE(6141), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6151), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12716), 2,
+    ACTIONS(12709), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145547] = 2,
+  [145601] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1531), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5487), 5,
+    ACTIONS(12709), 2,
       sym__external_end_of_statement,
-      anon_sym_LPAREN2,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [145559] = 5,
-    ACTIONS(12649), 1,
+  [145619] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1394), 1,
+    STATE(2787), 1,
       sym__end_of_statement,
-    STATE(6168), 1,
+    STATE(6273), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12718), 2,
+    ACTIONS(12707), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145577] = 5,
-    ACTIONS(12653), 1,
+  [145637] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4342), 1,
+    STATE(3102), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6104), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12720), 2,
+    ACTIONS(12711), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145595] = 6,
-    ACTIONS(11939), 1,
+  [145655] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(7043), 1,
-      sym_statement_label,
-    STATE(7590), 1,
-      sym_end_if_statement,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7296), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [145615] = 5,
-    ACTIONS(12649), 1,
+    STATE(6296), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [145673] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1396), 1,
+    STATE(1476), 1,
       sym__end_of_statement,
-    STATE(6174), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12722), 2,
+    ACTIONS(12713), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145633] = 6,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    ACTIONS(10211), 1,
-      anon_sym_COMMA,
-    ACTIONS(10213), 1,
-      anon_sym_RPAREN,
-    STATE(7188), 1,
-      aux_sym_allocate_statement_repeat1,
-    STATE(7515), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [145653] = 2,
+  [145691] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12724), 5,
+    ACTIONS(12715), 5,
       anon_sym_RPAREN,
       anon_sym_LPAREN2,
       anon_sym_STAR,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
-  [145665] = 5,
-    ACTIONS(12649), 1,
+  [145703] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(3110), 1,
+    STATE(1306), 1,
       sym__end_of_statement,
-    STATE(6128), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12726), 2,
+    ACTIONS(12717), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145683] = 5,
-    ACTIONS(12649), 1,
+  [145721] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(2968), 1,
+    STATE(4552), 1,
       sym__end_of_statement,
-    STATE(6131), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12728), 2,
+    ACTIONS(12719), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145701] = 5,
-    ACTIONS(12649), 1,
+  [145739] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(3140), 1,
+    STATE(2790), 1,
       sym__end_of_statement,
-    STATE(6133), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12730), 2,
+    ACTIONS(12721), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145719] = 5,
-    ACTIONS(12649), 1,
+  [145757] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1504), 1,
+    STATE(4540), 1,
       sym__end_of_statement,
-    STATE(6088), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6132), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12732), 2,
+    ACTIONS(12723), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145737] = 5,
-    ACTIONS(12649), 1,
+  [145775] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1140), 1,
+    STATE(2790), 1,
       sym__end_of_statement,
-    STATE(6151), 1,
+    STATE(6274), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12734), 2,
+    ACTIONS(12721), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145755] = 5,
-    ACTIONS(12649), 1,
+  [145793] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(3140), 1,
+    STATE(1537), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12730), 2,
+    ACTIONS(12725), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145773] = 5,
-    ACTIONS(12649), 1,
+  [145811] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(3143), 1,
+    STATE(4620), 1,
       sym__end_of_statement,
-    STATE(6137), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12736), 2,
+    ACTIONS(12727), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145791] = 5,
-    ACTIONS(12649), 1,
+  [145829] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12729), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(7926), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [145849] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1141), 1,
+    STATE(1636), 1,
       sym__end_of_statement,
-    STATE(6152), 1,
+    STATE(6102), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12738), 2,
+    ACTIONS(12731), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145809] = 5,
-    ACTIONS(12649), 1,
+  [145867] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(3143), 1,
+    STATE(1655), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6095), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12736), 2,
+    ACTIONS(12733), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145827] = 4,
-    ACTIONS(12629), 1,
-      anon_sym_EQ,
-    ACTIONS(12631), 1,
-      anon_sym_EQ_GT,
+  [145885] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1139), 1,
+      sym__end_of_statement,
+    STATE(6203), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10828), 3,
+    ACTIONS(12735), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [145843] = 5,
-    ACTIONS(12649), 1,
+  [145903] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(3076), 1,
+    STATE(1136), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6208), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12740), 2,
+    ACTIONS(12737), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145861] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(7258), 1,
-      sym_end_enumeration_type_statement,
+  [145921] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6139), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [145879] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(5443), 5,
+      sym__external_end_of_statement,
+      anon_sym_LPAREN2,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_SEMI,
+  [145933] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(5665), 1,
+    STATE(4342), 1,
       sym__end_of_statement,
-    STATE(6145), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12742), 2,
+    ACTIONS(12739), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145897] = 5,
-    ACTIONS(12649), 1,
+  [145951] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5667), 1,
+    STATE(1199), 1,
       sym__end_of_statement,
-    STATE(6147), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12744), 2,
+    ACTIONS(12741), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145915] = 5,
-    ACTIONS(12649), 1,
+  [145969] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2973), 1,
+    STATE(1544), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6083), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12746), 2,
+    ACTIONS(12743), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145933] = 5,
-    ACTIONS(12649), 1,
+  [145987] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(5272), 1,
+    STATE(4341), 1,
       sym__end_of_statement,
-    STATE(6270), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6109), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12748), 2,
+    ACTIONS(12745), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145951] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(7281), 1,
-      sym_end_enumeration_type_statement,
+  [146005] = 5,
+    ACTIONS(12669), 1,
+      anon_sym_COMMA,
+    STATE(4331), 1,
+      sym__end_of_statement,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [145969] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12747), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [146023] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4346), 1,
+    STATE(4344), 1,
       sym__end_of_statement,
-    STATE(6169), 1,
+    STATE(6171), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12750), 2,
+    ACTIONS(12749), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [145987] = 5,
-    ACTIONS(12653), 1,
+  [146041] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4348), 1,
+    STATE(4345), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6173), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12752), 2,
+    ACTIONS(12751), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146005] = 5,
-    ACTIONS(12653), 1,
+  [146059] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4340), 1,
+    STATE(4356), 1,
       sym__end_of_statement,
-    STATE(6304), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12754), 2,
+    ACTIONS(12753), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146023] = 4,
-    ACTIONS(12756), 1,
+  [146077] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    STATE(1199), 1,
+      sym__end_of_statement,
+    STATE(6223), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9682), 3,
-      anon_sym_GT_GT_GT,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-  [146039] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12741), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [146095] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5669), 1,
+    STATE(1262), 1,
       sym__end_of_statement,
-    STATE(6149), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12759), 2,
+    ACTIONS(12755), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146057] = 5,
-    ACTIONS(12649), 1,
+  [146113] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5669), 1,
+    STATE(1516), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12759), 2,
+    ACTIONS(12757), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146075] = 5,
-    ACTIONS(12649), 1,
+  [146131] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5670), 1,
+    STATE(1180), 1,
       sym__end_of_statement,
-    STATE(6150), 1,
+    STATE(6162), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12761), 2,
+    ACTIONS(12759), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146093] = 5,
-    ACTIONS(12649), 1,
+  [146149] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5670), 1,
+    STATE(1515), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -610599,51 +610498,51 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12761), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146111] = 5,
-    ACTIONS(12649), 1,
+  [146167] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1133), 1,
+    STATE(1476), 1,
       sym__end_of_statement,
-    STATE(6158), 1,
+    STATE(6201), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12763), 2,
+    ACTIONS(12713), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146129] = 5,
-    ACTIONS(12649), 1,
+  [146185] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5666), 1,
+    STATE(5657), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12765), 2,
+    ACTIONS(12763), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146147] = 5,
-    ACTIONS(12649), 1,
+  [146203] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5651), 1,
+    STATE(1262), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6126), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12767), 2,
+    ACTIONS(12755), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146165] = 5,
-    ACTIONS(12649), 1,
+  [146221] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1133), 1,
+    STATE(5657), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6086), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -610651,1117 +610550,1000 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12763), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146183] = 5,
-    ACTIONS(12649), 1,
+  [146239] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1143), 1,
+    STATE(1540), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12651), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [146201] = 5,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(7507), 1,
-      sym_argument_list,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(10322), 2,
+    ACTIONS(12765), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146219] = 5,
-    ACTIONS(12659), 1,
+  [146257] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6523), 1,
+    STATE(7055), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6161), 2,
+    STATE(6266), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [146237] = 5,
-    ACTIONS(12649), 1,
+  [146275] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1359), 1,
+    STATE(5656), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12769), 2,
+    ACTIONS(12767), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146255] = 5,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(12771), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6221), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12773), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [146273] = 6,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(7246), 1,
-      sym_statement_label,
-    STATE(7701), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
   [146293] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1132), 1,
+    STATE(4612), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6175), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12775), 2,
+    ACTIONS(12769), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [146311] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1125), 1,
+    STATE(1594), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6289), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12777), 2,
+    ACTIONS(12771), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146329] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12779), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8599), 1,
-      sym_kind,
+  [146329] = 5,
+    ACTIONS(11707), 1,
+      anon_sym_COMMA,
+    ACTIONS(12773), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6264), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [146349] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12775), 2,
       aux_sym_enumerator_statement_token1,
-    STATE(6534), 1,
-      sym_end_enumeration_type_statement,
+      aux_sym_end_enum_statement_token1,
+  [146347] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1178), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146367] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12705), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [146365] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1466), 1,
+    STATE(1593), 1,
       sym__end_of_statement,
-    STATE(6268), 1,
+    STATE(6279), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12781), 2,
+    ACTIONS(12777), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146385] = 5,
-    ACTIONS(12653), 1,
+  [146383] = 5,
+    ACTIONS(12779), 1,
       anon_sym_COMMA,
-    STATE(4534), 1,
-      sym__end_of_statement,
-    STATE(6220), 1,
-      aux_sym_procedure_statement_repeat2,
+    ACTIONS(12781), 1,
+      anon_sym_EQ_GT,
+    STATE(6324), 1,
+      aux_sym_included_items_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12783), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146403] = 5,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(12785), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6246), 1,
-      aux_sym_enumerator_statement_repeat1,
+  [146401] = 4,
+    ACTIONS(4345), 1,
+      anon_sym_EQ,
+    ACTIONS(5762), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12787), 2,
+    ACTIONS(5760), 3,
+      anon_sym_LPAREN2,
+      anon_sym_STAR,
+      anon_sym_COLON_COLON,
+  [146417] = 5,
+    ACTIONS(12785), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12787), 1,
       aux_sym_enumerator_statement_token1,
+    ACTIONS(12790), 1,
       aux_sym_end_enum_statement_token1,
-  [146421] = 5,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(12789), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6246), 1,
-      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12791), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [146439] = 5,
-    ACTIONS(12653), 1,
+    STATE(6166), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [146435] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4616), 1,
+    STATE(4622), 1,
       sym__end_of_statement,
-    STATE(6178), 1,
+    STATE(6277), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12793), 2,
+    ACTIONS(12792), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146457] = 5,
-    ACTIONS(12649), 1,
+  [146453] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1405), 1,
+    STATE(4579), 1,
       sym__end_of_statement,
-    STATE(6215), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12795), 2,
+    ACTIONS(12794), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146475] = 5,
-    ACTIONS(12649), 1,
+  [146471] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1405), 1,
+    STATE(5656), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6094), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12795), 2,
+    ACTIONS(12767), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146493] = 5,
-    ACTIONS(12653), 1,
+  [146489] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4349), 1,
+    STATE(1218), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6140), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12797), 2,
+    ACTIONS(12796), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146511] = 5,
-    ACTIONS(12649), 1,
+  [146507] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1406), 1,
+    STATE(4336), 1,
       sym__end_of_statement,
-    STATE(6216), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12799), 2,
+    ACTIONS(12798), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146529] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6597), 1,
-      sym_end_enumeration_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6175), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146547] = 5,
-    ACTIONS(12653), 1,
+  [146525] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4617), 1,
+    STATE(4330), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6184), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12801), 2,
+    ACTIONS(12800), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146565] = 4,
-    ACTIONS(12803), 1,
-      anon_sym_SLASH,
+  [146543] = 5,
+    ACTIONS(12669), 1,
+      anon_sym_COMMA,
+    STATE(4328), 1,
+      sym__end_of_statement,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12805), 2,
+    ACTIONS(12802), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-    STATE(6108), 2,
-      sym_variable_group,
-      aux_sym_namelist_statement_repeat1,
-  [146581] = 5,
-    ACTIONS(12649), 1,
+  [146561] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1406), 1,
+    STATE(1474), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12799), 2,
+    ACTIONS(12804), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146599] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6608), 1,
-      sym_end_enumeration_type_statement,
+  [146579] = 5,
+    ACTIONS(12669), 1,
+      anon_sym_COMMA,
+    STATE(4512), 1,
+      sym__end_of_statement,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146617] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12806), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [146597] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4564), 1,
+    STATE(1541), 1,
       sym__end_of_statement,
-    STATE(6218), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12807), 2,
+    ACTIONS(12808), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146635] = 5,
-    ACTIONS(12653), 1,
+  [146615] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4350), 1,
+    STATE(4563), 1,
       sym__end_of_statement,
-    STATE(6195), 1,
+    STATE(6298), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12809), 2,
+    ACTIONS(12810), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146653] = 5,
-    ACTIONS(12653), 1,
+  [146633] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4566), 1,
+    STATE(4546), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12811), 2,
+    ACTIONS(12812), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146671] = 5,
-    ACTIONS(12649), 1,
+  [146651] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2883), 1,
+    STATE(3103), 1,
       sym__end_of_statement,
-    STATE(6252), 1,
+    STATE(6222), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12813), 2,
+    ACTIONS(12814), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146689] = 5,
-    ACTIONS(12649), 1,
+  [146669] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2884), 1,
+    STATE(1216), 1,
       sym__end_of_statement,
-    STATE(6254), 1,
+    STATE(6148), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12815), 2,
+    ACTIONS(12816), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146707] = 5,
-    ACTIONS(12649), 1,
+  [146687] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6621), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6221), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [146705] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1361), 1,
+    STATE(3104), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6270), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12817), 2,
+    ACTIONS(12687), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146725] = 5,
-    ACTIONS(12649), 1,
+  [146723] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1499), 1,
+    STATE(4332), 1,
       sym__end_of_statement,
-    STATE(6192), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6187), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12819), 2,
+    ACTIONS(12818), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146743] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6665), 1,
-      sym_end_enumeration_type_statement,
+  [146741] = 5,
+    ACTIONS(12669), 1,
+      anon_sym_COMMA,
+    STATE(4327), 1,
+      sym__end_of_statement,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6185), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146761] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12820), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [146759] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1503), 1,
+    STATE(4548), 1,
       sym__end_of_statement,
-    STATE(6199), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6288), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12821), 2,
+    ACTIONS(12822), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146779] = 5,
-    ACTIONS(12659), 1,
+  [146777] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6675), 1,
+    STATE(7112), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6409), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [146797] = 5,
-    ACTIONS(12653), 1,
+  [146795] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4508), 1,
+    STATE(4351), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12823), 2,
+    ACTIONS(12824), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146815] = 5,
-    ACTIONS(12649), 1,
+  [146813] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(2827), 1,
+    STATE(4349), 1,
       sym__end_of_statement,
-    STATE(6272), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6189), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12825), 2,
+    ACTIONS(12826), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146833] = 5,
-    ACTIONS(12649), 1,
+  [146831] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1312), 1,
+    STATE(4346), 1,
       sym__end_of_statement,
-    STATE(6198), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12827), 2,
+    ACTIONS(12828), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [146851] = 5,
-    ACTIONS(12649), 1,
+  [146849] = 5,
+    ACTIONS(11707), 1,
       anon_sym_COMMA,
-    STATE(1524), 1,
-      sym__end_of_statement,
-    STATE(6206), 1,
-      aux_sym_private_statement_repeat1,
+    ACTIONS(12830), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6078), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12829), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [146869] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12832), 2,
       aux_sym_enumerator_statement_token1,
-    STATE(6726), 1,
-      sym_end_enumeration_type_statement,
+      aux_sym_end_enum_statement_token1,
+  [146867] = 5,
+    ACTIONS(11707), 1,
+      anon_sym_COMMA,
+    ACTIONS(12834), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6078), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6193), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146887] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(1313), 1,
-      sym__end_of_statement,
-    STATE(6202), 1,
-      aux_sym_private_statement_repeat1,
+    ACTIONS(12836), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [146885] = 4,
+    ACTIONS(12632), 1,
+      anon_sym_EQ,
+    ACTIONS(12634), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12831), 2,
+    ACTIONS(10828), 3,
       sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [146905] = 5,
-    ACTIONS(12649), 1,
       anon_sym_COMMA,
-    STATE(1524), 1,
-      sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+      anon_sym_SEMI,
+  [146901] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12838), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(7942), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12829), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [146923] = 5,
-    ACTIONS(12659), 1,
+  [146921] = 6,
+    ACTIONS(11901), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6733), 1,
-      sym_end_enumeration_type_statement,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6552), 1,
+      sym_statement_label,
+    STATE(7399), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [146941] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(2828), 1,
-      sym__end_of_statement,
-    STATE(6101), 1,
-      aux_sym_private_statement_repeat1,
+  [146941] = 6,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6699), 1,
+      sym_statement_label,
+    STATE(7460), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12833), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [146959] = 5,
-    ACTIONS(12653), 1,
+  [146961] = 4,
+    ACTIONS(12840), 1,
       anon_sym_COMMA,
-    STATE(4352), 1,
-      sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6272), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12835), 2,
+    ACTIONS(8113), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
   [146977] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(1530), 1,
-      sym__end_of_statement,
-    STATE(6209), 1,
-      aux_sym_private_statement_repeat1,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7340), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12837), 2,
+    ACTIONS(10370), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [146995] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1315), 1,
+    STATE(2721), 1,
       sym__end_of_statement,
-    STATE(6207), 1,
+    STATE(6252), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12839), 2,
+    ACTIONS(12842), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [147013] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1315), 1,
+    STATE(5295), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12839), 2,
+    ACTIONS(12844), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [147031] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1530), 1,
+    STATE(2720), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6254), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12837), 2,
+    ACTIONS(12846), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [147049] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6786), 1,
-      sym_end_enumeration_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6204), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147067] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1316), 1,
+    STATE(1493), 1,
       sym__end_of_statement,
-    STATE(6208), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12841), 2,
+    ACTIONS(12848), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147085] = 5,
-    ACTIONS(12649), 1,
+  [147067] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1316), 1,
+    STATE(1376), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12841), 2,
+    ACTIONS(12850), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147103] = 5,
-    ACTIONS(12649), 1,
+  [147085] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5283), 1,
+    STATE(1131), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12843), 2,
+    ACTIONS(12645), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147121] = 5,
-    ACTIONS(12659), 1,
+  [147103] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6793), 1,
+    STATE(7056), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6267), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147139] = 5,
-    ACTIONS(12653), 1,
+  [147121] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4509), 1,
+    STATE(1149), 1,
       sym__end_of_statement,
-    STATE(6298), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6216), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12845), 2,
+    ACTIONS(12852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147157] = 5,
-    ACTIONS(12649), 1,
+  [147139] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1531), 1,
+    STATE(5296), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12847), 2,
+    ACTIONS(12854), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147175] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(1320), 1,
-      sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+  [147157] = 4,
+    ACTIONS(12856), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12849), 2,
+    ACTIONS(12859), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147193] = 5,
-    ACTIONS(12649), 1,
+    STATE(6207), 2,
+      sym_variable_group,
+      aux_sym_namelist_statement_repeat1,
+  [147173] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1321), 1,
+    STATE(1149), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12851), 2,
+    ACTIONS(12852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147211] = 5,
-    ACTIONS(12649), 1,
+  [147191] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1539), 1,
+    STATE(4523), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6168), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12853), 2,
+    ACTIONS(12861), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147229] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6845), 1,
-      sym_end_enumeration_type_statement,
+  [147209] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1375), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6212), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147247] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12863), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147227] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4615), 1,
+    STATE(1537), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6176), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12855), 2,
+    ACTIONS(12725), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147265] = 5,
-    ACTIONS(12659), 1,
+  [147245] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6851), 1,
+    STATE(6493), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6117), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147283] = 5,
-    ACTIONS(12653), 1,
+  [147263] = 5,
+    ACTIONS(11707), 1,
       anon_sym_COMMA,
-    STATE(4510), 1,
-      sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    ACTIONS(12865), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6191), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12857), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [147301] = 5,
-    ACTIONS(5507), 1,
-      sym__string_literal,
-    ACTIONS(5509), 1,
-      sym__string_literal_kind,
-    STATE(7442), 1,
-      sym_string_literal,
+    ACTIONS(12867), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [147281] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7126), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12859), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [147319] = 5,
-    ACTIONS(12649), 1,
+    STATE(6186), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [147299] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1422), 1,
+    STATE(1125), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12861), 2,
+    ACTIONS(12869), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147337] = 5,
-    ACTIONS(12649), 1,
+  [147317] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1424), 1,
+    STATE(1134), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12863), 2,
+    ACTIONS(12871), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147355] = 5,
-    ACTIONS(12659), 1,
+  [147335] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6896), 1,
+    STATE(7237), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6219), 2,
+    STATE(6103), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147373] = 5,
-    ACTIONS(12653), 1,
-      anon_sym_COMMA,
-    STATE(4542), 1,
-      sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12865), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [147391] = 5,
-    ACTIONS(12659), 1,
+  [147353] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6904), 1,
+    STATE(6558), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6249), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147409] = 5,
-    ACTIONS(12653), 1,
-      anon_sym_COMMA,
-    STATE(4611), 1,
-      sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+  [147371] = 4,
+    ACTIONS(12873), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12867), 2,
+    ACTIONS(12875), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147427] = 5,
-    ACTIONS(11657), 1,
-      anon_sym_COMMA,
-    ACTIONS(12869), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6246), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12871), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [147445] = 5,
-    ACTIONS(12653), 1,
+    STATE(6207), 2,
+      sym_variable_group,
+      aux_sym_namelist_statement_repeat1,
+  [147387] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4345), 1,
+    STATE(4513), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6127), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12873), 2,
+    ACTIONS(12877), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147463] = 5,
-    ACTIONS(12659), 1,
+  [147405] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(6943), 1,
+    STATE(6643), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6225), 2,
+    STATE(6409), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147481] = 5,
-    ACTIONS(11657), 1,
+  [147423] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    ACTIONS(12875), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6246), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12877), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [147499] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6951), 1,
-      sym_end_enumeration_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147517] = 6,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(6526), 1,
-      sym_statement_label,
-    STATE(7605), 1,
-      sym_end_if_statement,
+    STATE(3105), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [147537] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12879), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147441] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1617), 1,
+    STATE(1298), 1,
       sym__end_of_statement,
-    STATE(6082), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12879), 2,
+    ACTIONS(12881), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147555] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6984), 1,
-      sym_end_enumeration_type_statement,
+  [147459] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(5298), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6231), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147573] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12883), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147477] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4517), 1,
+    STATE(4601), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12881), 2,
+    ACTIONS(12885), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147591] = 3,
-    ACTIONS(12883), 1,
+  [147495] = 6,
+    ACTIONS(6702), 1,
       anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12887), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8665), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 4,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_EQ_GT,
-      anon_sym_SEMI,
-  [147605] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(6989), 1,
-      sym_end_enumeration_type_statement,
+  [147515] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12889), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8667), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147623] = 5,
-    ACTIONS(12649), 1,
+  [147535] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1631), 1,
+    STATE(2838), 1,
       sym__end_of_statement,
-    STATE(6259), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12885), 2,
+    ACTIONS(12891), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147641] = 5,
-    ACTIONS(12649), 1,
+  [147553] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1162), 1,
+    STATE(2838), 1,
       sym__end_of_statement,
-    STATE(6241), 1,
+    STATE(6096), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12887), 2,
+    ACTIONS(12891), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147659] = 5,
-    ACTIONS(12649), 1,
+  [147571] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1163), 1,
+    STATE(2839), 1,
       sym__end_of_statement,
-    STATE(6243), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12889), 2,
+    ACTIONS(12893), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147677] = 5,
-    ACTIONS(12653), 1,
-      anon_sym_COMMA,
-    STATE(4519), 1,
-      sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+  [147589] = 5,
+    ACTIONS(5507), 1,
+      sym__string_literal,
+    ACTIONS(5509), 1,
+      sym__string_literal_kind,
+    STATE(7697), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12891), 2,
+    ACTIONS(12895), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147695] = 5,
-    ACTIONS(12659), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
-      aux_sym_enumerator_statement_token1,
-    STATE(7005), 1,
-      sym_end_enumeration_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    STATE(6239), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [147713] = 5,
-    ACTIONS(12649), 1,
+  [147607] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1632), 1,
+    STATE(2839), 1,
       sym__end_of_statement,
-    STATE(6261), 1,
+    STATE(6097), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -611769,458 +611551,532 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12893), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147731] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(5294), 1,
-      sym__end_of_statement,
-    STATE(6289), 1,
-      aux_sym_private_statement_repeat1,
+  [147625] = 6,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6478), 1,
+      sym_statement_label,
+    STATE(7356), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12895), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [147749] = 5,
-    ACTIONS(12659), 1,
+  [147645] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(7011), 1,
+    STATE(7176), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6293), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147767] = 5,
-    ACTIONS(12649), 1,
+  [147663] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1181), 1,
+    STATE(4338), 1,
       sym__end_of_statement,
-    STATE(6244), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12897), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147785] = 5,
-    ACTIONS(12649), 1,
+  [147681] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1181), 1,
+    STATE(5655), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6153), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12897), 2,
+    ACTIONS(12899), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147803] = 5,
-    ACTIONS(12649), 1,
-      anon_sym_COMMA,
-    STATE(1186), 1,
-      sym__end_of_statement,
-    STATE(6245), 1,
-      aux_sym_private_statement_repeat1,
+  [147699] = 3,
+    ACTIONS(12901), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12899), 2,
+    ACTIONS(4345), 4,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_EQ_GT,
       anon_sym_SEMI,
-  [147821] = 5,
-    ACTIONS(12649), 1,
+  [147713] = 6,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(12903), 1,
+      anon_sym_RPAREN,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(8540), 1,
+      sym_kind,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [147733] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1186), 1,
+    STATE(5298), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6199), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12899), 2,
+    ACTIONS(12883), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147839] = 5,
-    ACTIONS(12649), 1,
+  [147751] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1189), 1,
+    STATE(4337), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6139), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12901), 2,
+    ACTIONS(12905), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147857] = 5,
-    ACTIONS(12649), 1,
+  [147769] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1158), 1,
+    STATE(1536), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6156), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12903), 2,
+    ACTIONS(12907), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147875] = 5,
-    ACTIONS(12905), 1,
+  [147787] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    ACTIONS(12908), 1,
-      aux_sym_end_program_statement_token1,
-    STATE(6246), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(1158), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12910), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [147893] = 6,
-    ACTIONS(6702), 1,
+    ACTIONS(12909), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147805] = 5,
+    ACTIONS(7517), 1,
       anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12912), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
+    STATE(3169), 1,
       sym__argument_list,
-    STATE(8469), 1,
-      sym_kind,
+    STATE(7475), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [147913] = 5,
-    ACTIONS(12653), 1,
+    ACTIONS(12911), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147823] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4518), 1,
+    STATE(5299), 1,
       sym__end_of_statement,
-    STATE(6235), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12914), 2,
+    ACTIONS(12913), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147931] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12916), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8470), 1,
-      sym_kind,
+  [147841] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1617), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [147951] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12915), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [147859] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2846), 1,
+    STATE(1463), 1,
       sym__end_of_statement,
-    STATE(6276), 1,
+    STATE(6174), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12918), 2,
+    ACTIONS(12917), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [147969] = 5,
-    ACTIONS(12659), 1,
+  [147877] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12661), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    STATE(7271), 1,
+    STATE(6811), 1,
       sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
+    STATE(6409), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [147987] = 5,
-    ACTIONS(12649), 1,
+  [147895] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2846), 1,
+    STATE(1533), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6131), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12918), 2,
+    ACTIONS(12919), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148005] = 5,
-    ACTIONS(12649), 1,
+  [147913] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6519), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [147931] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2854), 1,
+    STATE(1546), 1,
       sym__end_of_statement,
-    STATE(6277), 1,
+    STATE(6210), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12920), 2,
+    ACTIONS(12921), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148023] = 5,
-    ACTIONS(12649), 1,
+  [147949] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2854), 1,
+    STATE(2715), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6256), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12920), 2,
+    ACTIONS(12923), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148041] = 5,
-    ACTIONS(12653), 1,
+  [147967] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4514), 1,
+    STATE(2715), 1,
       sym__end_of_statement,
-    STATE(6229), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12922), 2,
+    ACTIONS(12923), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148059] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12924), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8482), 1,
-      sym_kind,
+  [147985] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(2679), 1,
+      sym__end_of_statement,
+    STATE(6300), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148079] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12925), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [148003] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1634), 1,
+    STATE(2679), 1,
       sym__end_of_statement,
-    STATE(6264), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12926), 2,
+    ACTIONS(12925), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148097] = 6,
+  [148021] = 6,
     ACTIONS(6702), 1,
       anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
+    ACTIONS(12628), 1,
       anon_sym_STAR,
-    ACTIONS(12928), 1,
+    ACTIONS(12927), 1,
       anon_sym_RPAREN,
-    STATE(3194), 1,
+    STATE(3184), 1,
       sym__argument_list,
-    STATE(8483), 1,
+    STATE(7954), 1,
       sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148117] = 5,
-    ACTIONS(12649), 1,
+  [148041] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1634), 1,
+    STATE(2703), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12926), 2,
+    ACTIONS(12929), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148135] = 5,
-    ACTIONS(12649), 1,
+  [148059] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1627), 1,
+    STATE(5662), 1,
       sym__end_of_statement,
-    STATE(6265), 1,
+    STATE(6158), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12930), 2,
+    ACTIONS(12931), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148153] = 5,
-    ACTIONS(12649), 1,
+  [148077] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1627), 1,
+    STATE(5299), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6206), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12930), 2,
+    ACTIONS(12913), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148171] = 5,
-    ACTIONS(12932), 1,
+  [148095] = 4,
+    ACTIONS(12840), 1,
       anon_sym_COMMA,
-    ACTIONS(12934), 1,
-      anon_sym_EQ_GT,
-    STATE(6446), 1,
-      aux_sym_included_items_repeat1,
+    STATE(6196), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12936), 2,
+    ACTIONS(8164), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-  [148189] = 5,
-    ACTIONS(12653), 1,
+  [148111] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4339), 1,
+    STATE(1176), 1,
       sym__end_of_statement,
-    STATE(6288), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12938), 2,
+    ACTIONS(12933), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148207] = 5,
-    ACTIONS(12649), 1,
+  [148129] = 5,
+    ACTIONS(11707), 1,
       anon_sym_COMMA,
-    STATE(1635), 1,
-      sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    ACTIONS(12935), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6078), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12940), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [148225] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12937), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [148147] = 6,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6465), 1,
+      sym_statement_label,
+    STATE(7331), 1,
+      sym_end_if_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [148167] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(1636), 1,
+    STATE(1532), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6291), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12942), 2,
+    ACTIONS(12939), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148243] = 5,
-    ACTIONS(12649), 1,
+  [148185] = 5,
+    ACTIONS(11707), 1,
+      anon_sym_COMMA,
+    ACTIONS(12941), 1,
+      aux_sym_end_program_statement_token1,
+    STATE(6078), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12943), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [148203] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5294), 1,
+    STATE(3105), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6271), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12895), 2,
+    ACTIONS(12879), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148261] = 5,
-    ACTIONS(12944), 1,
+  [148221] = 5,
+    ACTIONS(12655), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(12946), 1,
+    ACTIONS(12657), 1,
       aux_sym_enumerator_statement_token1,
-    ACTIONS(12949), 1,
-      aux_sym_end_enum_statement_token1,
+    STATE(7068), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6267), 2,
+    STATE(6409), 2,
       sym_enumerator_statement,
       aux_sym_enum_repeat1,
-  [148279] = 5,
-    ACTIONS(12649), 1,
+  [148239] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7045), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [148257] = 4,
+    ACTIONS(12945), 1,
       anon_sym_COMMA,
-    STATE(1576), 1,
-      sym__end_of_statement,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12667), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [148297] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(9594), 3,
+      anon_sym_GT_GT_GT,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+  [148273] = 6,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10244), 1,
       anon_sym_COMMA,
-    STATE(5295), 1,
+    ACTIONS(10246), 1,
+      anon_sym_RPAREN,
+    STATE(7216), 1,
+      aux_sym_allocate_statement_repeat1,
+    STATE(7411), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [148293] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(3110), 1,
       sym__end_of_statement,
-    STATE(6203), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12951), 2,
+    ACTIONS(12948), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148315] = 5,
-    ACTIONS(12649), 1,
+  [148311] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5295), 1,
+    STATE(3113), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12951), 2,
+    ACTIONS(12950), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148333] = 5,
-    ACTIONS(12649), 1,
+  [148329] = 4,
+    ACTIONS(12952), 1,
       anon_sym_COMMA,
-    STATE(1618), 1,
-      sym__end_of_statement,
-    STATE(6089), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6272), 1,
+      aux_sym_common_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12953), 2,
+    ACTIONS(8120), 3,
       sym__external_end_of_statement,
+      anon_sym_SLASH,
       anon_sym_SEMI,
-  [148351] = 5,
-    ACTIONS(12649), 1,
+  [148345] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2798), 1,
+    STATE(2779), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -612228,12 +612084,12 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12955), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148369] = 5,
-    ACTIONS(12649), 1,
+  [148363] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2740), 1,
+    STATE(2793), 1,
       sym__end_of_statement,
-    STATE(6282), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -612241,51 +612097,64 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12957), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148387] = 5,
-    ACTIONS(12649), 1,
+  [148381] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(2742), 1,
+    STATE(4610), 1,
       sym__end_of_statement,
-    STATE(6286), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6225), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(12959), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148405] = 5,
-    ACTIONS(12649), 1,
+  [148399] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(6792), 1,
+      sym_end_enumeration_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6247), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [148417] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(1580), 1,
+    STATE(4611), 1,
       sym__end_of_statement,
-    STATE(6181), 1,
-      aux_sym_private_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12673), 2,
+    ACTIONS(12961), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148423] = 5,
-    ACTIONS(12649), 1,
+  [148435] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2799), 1,
+    STATE(1618), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6245), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12961), 2,
+    ACTIONS(12963), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148441] = 5,
-    ACTIONS(12649), 1,
+  [148453] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2800), 1,
+    STATE(1618), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -612293,751 +612162,779 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(12963), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148459] = 4,
-    ACTIONS(12965), 1,
+  [148471] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(6279), 1,
-      aux_sym_common_statement_repeat1,
+    STATE(4642), 1,
+      sym__end_of_statement,
+    STATE(6178), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7991), 3,
+    ACTIONS(12965), 2,
       sym__external_end_of_statement,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-  [148475] = 4,
-    ACTIONS(12967), 1,
+  [148489] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(6279), 1,
-      aux_sym_common_statement_repeat1,
+    STATE(1546), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8191), 3,
+    ACTIONS(12921), 2,
       sym__external_end_of_statement,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-  [148491] = 4,
-    ACTIONS(4287), 1,
-      anon_sym_EQ,
-    ACTIONS(5712), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5710), 3,
-      anon_sym_LPAREN2,
-      anon_sym_STAR,
-      anon_sym_COLON_COLON,
   [148507] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2765), 1,
+    STATE(2843), 1,
       sym__end_of_statement,
-    STATE(6291), 1,
+    STATE(6118), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12970), 2,
+    ACTIONS(12967), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [148525] = 5,
-    ACTIONS(12649), 1,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2765), 1,
+    STATE(2844), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6128), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12970), 2,
+    ACTIONS(12969), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148543] = 3,
-    ACTIONS(12972), 1,
-      anon_sym_LPAREN2,
+  [148543] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1619), 1,
+      sym__end_of_statement,
+    STATE(6303), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 4,
+    ACTIONS(12971), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_EQ_GT,
       anon_sym_SEMI,
-  [148557] = 5,
-    ACTIONS(12649), 1,
+  [148561] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2766), 1,
+    STATE(1545), 1,
       sym__end_of_statement,
-    STATE(6292), 1,
+    STATE(6202), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12974), 2,
+    ACTIONS(12653), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148575] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12976), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8244), 1,
-      sym_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [148595] = 5,
-    ACTIONS(12649), 1,
+  [148579] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2766), 1,
+    STATE(5302), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6224), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12974), 2,
+    ACTIONS(12973), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148613] = 5,
-    ACTIONS(12653), 1,
+  [148597] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4354), 1,
+    STATE(5286), 1,
       sym__end_of_statement,
-    STATE(6305), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6244), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12978), 2,
+    ACTIONS(12975), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148631] = 5,
-    ACTIONS(12653), 1,
+  [148615] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4355), 1,
+    STATE(4519), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12980), 2,
+    ACTIONS(12977), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148649] = 5,
-    ACTIONS(12649), 1,
+  [148633] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(5306), 1,
+    STATE(1619), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12982), 2,
+    ACTIONS(12971), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148667] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12984), 1,
+  [148651] = 6,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    ACTIONS(10386), 1,
+      anon_sym_COMMA,
+    ACTIONS(10388), 1,
       anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8310), 1,
-      sym_kind,
+    STATE(6763), 1,
+      aux_sym_allocate_statement_repeat1,
+    STATE(7411), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148687] = 5,
-    ACTIONS(12649), 1,
+  [148671] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2735), 1,
+    STATE(1536), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12986), 2,
+    ACTIONS(12907), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148705] = 5,
-    ACTIONS(12649), 1,
+  [148689] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2741), 1,
+    STATE(1572), 1,
       sym__end_of_statement,
-    STATE(6355), 1,
+    STATE(6281), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12988), 2,
+    ACTIONS(12979), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148723] = 5,
-    ACTIONS(12653), 1,
-      anon_sym_COMMA,
-    STATE(4344), 1,
-      sym__end_of_statement,
-    STATE(6112), 1,
-      aux_sym_procedure_statement_repeat2,
+  [148707] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7189), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12990), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [148741] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12992), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8594), 1,
-      sym_kind,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [148725] = 6,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(11907), 1,
+      sym__integer_literal,
+    STATE(6782), 1,
+      sym_statement_label,
+    STATE(7551), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148761] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12994), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(7751), 1,
-      sym_kind,
+  [148745] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(1466), 1,
+      sym__end_of_statement,
+    STATE(6124), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148781] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(12996), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8595), 1,
-      sym_kind,
+    ACTIONS(12981), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [148763] = 5,
+    ACTIONS(12655), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(12657), 1,
+      aux_sym_enumerator_statement_token1,
+    STATE(7309), 1,
+      sym_end_enumeration_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [148801] = 5,
-    ACTIONS(12649), 1,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [148781] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2798), 1,
+    STATE(1490), 1,
       sym__end_of_statement,
-    STATE(6094), 1,
+    STATE(6370), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12955), 2,
+    ACTIONS(12983), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148819] = 5,
-    ACTIONS(12653), 1,
+  [148799] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4515), 1,
+    STATE(4550), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12998), 2,
+    ACTIONS(12985), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148837] = 5,
-    ACTIONS(12653), 1,
+  [148817] = 5,
+    ACTIONS(12669), 1,
       anon_sym_COMMA,
-    STATE(4327), 1,
+    STATE(4634), 1,
       sym__end_of_statement,
-    STATE(6118), 1,
+    STATE(6379), 1,
       aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13000), 2,
+    ACTIONS(12987), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148855] = 4,
-    ACTIONS(12965), 1,
+  [148835] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(6278), 1,
-      aux_sym_common_statement_repeat1,
+    STATE(2699), 1,
+      sym__end_of_statement,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8223), 3,
+    ACTIONS(12989), 2,
       sym__external_end_of_statement,
-      anon_sym_SLASH,
       anon_sym_SEMI,
-  [148871] = 6,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    ACTIONS(11945), 1,
-      sym__integer_literal,
-    STATE(7061), 1,
-      sym_statement_label,
-    STATE(7632), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [148891] = 5,
-    ACTIONS(12653), 1,
+  [148853] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4347), 1,
+    STATE(1474), 1,
       sym__end_of_statement,
-    STATE(6104), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6297), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13002), 2,
+    ACTIONS(12804), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148909] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(13004), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8351), 1,
-      sym_kind,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [148929] = 5,
-    ACTIONS(12653), 1,
+  [148871] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4351), 1,
+    STATE(1159), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13006), 2,
+    ACTIONS(12991), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148947] = 5,
-    ACTIONS(12653), 1,
+  [148889] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(4336), 1,
+    STATE(1616), 1,
       sym__end_of_statement,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13008), 2,
+    ACTIONS(12993), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148965] = 5,
-    ACTIONS(12649), 1,
+  [148907] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(2816), 1,
+    STATE(2905), 1,
       sym__end_of_statement,
-    STATE(6095), 1,
+    STATE(6230), 1,
       aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12693), 2,
+    ACTIONS(12995), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [148983] = 6,
-    ACTIONS(6702), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(13010), 1,
-      anon_sym_RPAREN,
-    STATE(3194), 1,
-      sym__argument_list,
-    STATE(8600), 1,
-      sym_kind,
+  [148925] = 5,
+    ACTIONS(12643), 1,
+      anon_sym_COMMA,
+    STATE(2906), 1,
+      sym__end_of_statement,
+    STATE(6228), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149003] = 4,
-    ACTIONS(13012), 1,
+    ACTIONS(12997), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [148943] = 5,
+    ACTIONS(12643), 1,
       anon_sym_COMMA,
-    STATE(6362), 1,
-      aux_sym_parameters_repeat1,
+    STATE(1159), 1,
+      sym__end_of_statement,
+    STATE(6242), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9534), 2,
+    ACTIONS(12991), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149018] = 4,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    STATE(7515), 1,
-      sym_coarray_index,
+  [148961] = 5,
+    ACTIONS(12999), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13001), 1,
+      aux_sym_kind_token1,
+    STATE(3186), 1,
+      sym_parenthesized_expression,
+    STATE(3188), 1,
+      sym__argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10352), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [149033] = 5,
-    ACTIONS(13014), 1,
+  [148978] = 5,
+    ACTIONS(13003), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13016), 1,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13018), 1,
+    ACTIONS(13007), 1,
       sym_preproc_arg,
-    STATE(7538), 1,
+    STATE(7427), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149050] = 4,
-    ACTIONS(12627), 1,
+  [148995] = 4,
+    ACTIONS(13009), 1,
       anon_sym_COMMA,
-    STATE(6351), 1,
-      aux_sym__declaration_targets_repeat1,
+    STATE(6309), 1,
+      aux_sym_implicit_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10842), 2,
+    ACTIONS(13012), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149065] = 2,
+  [149010] = 4,
+    ACTIONS(13014), 1,
+      anon_sym_COMMA,
+    STATE(6309), 1,
+      aux_sym_implicit_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13020), 4,
+    ACTIONS(13016), 2,
       sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [149076] = 4,
+  [149025] = 5,
+    ACTIONS(13001), 1,
+      aux_sym_kind_token1,
+    ACTIONS(13018), 1,
+      anon_sym_LPAREN2,
+    STATE(3186), 1,
+      sym_parenthesized_expression,
+    STATE(3188), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149042] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13020), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(13022), 1,
+      sym_preproc_arg,
+    STATE(7398), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149059] = 4,
+    ACTIONS(9620), 1,
       anon_sym_COMMA,
-    STATE(7633), 1,
-      sym_included_items,
+    STATE(6432), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
     ACTIONS(13024), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149091] = 4,
-    ACTIONS(13026), 1,
-      anon_sym_COMMA,
-    STATE(6366), 1,
-      aux_sym_use_statement_repeat1,
+  [149074] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13028), 2,
+    ACTIONS(13026), 4,
       sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [149106] = 2,
+  [149085] = 3,
+    ACTIONS(5511), 1,
+      aux_sym_end_program_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13030), 4,
-      aux_sym_procedure_attributes_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_procedure_attributes_token4,
-      aux_sym_procedure_attributes_token5,
-  [149117] = 5,
+    ACTIONS(5513), 3,
+      aux_sym_implicit_statement_token3,
+      aux_sym_end_select_statement_token1,
+      aux_sym_format_statement_token1,
+  [149098] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13028), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13030), 1,
+      sym_preproc_arg,
+    STATE(7635), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149115] = 4,
     ACTIONS(13032), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13034), 1,
-      sym__integer_literal,
-    STATE(6542), 1,
-      sym_statement_label,
-    STATE(7679), 1,
-      sym_statement_label_reference,
+      anon_sym_COMMA,
+    STATE(6367), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149134] = 5,
+    ACTIONS(13034), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149130] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
     ACTIONS(13036), 1,
-      anon_sym_LPAREN2,
+      aux_sym_preproc_def_token2,
     ACTIONS(13038), 1,
-      aux_sym_kind_token1,
-    STATE(3994), 1,
-      sym_parenthesized_expression,
-    STATE(4000), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
+      sym_preproc_arg,
+    STATE(7595), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149147] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13040), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13042), 1,
+      sym_preproc_arg,
+    STATE(7599), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149164] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13044), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13046), 1,
+      sym_preproc_arg,
+    STATE(7604), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149151] = 2,
+  [149181] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13040), 4,
-      sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_SEMI,
-  [149162] = 4,
-    ACTIONS(13026), 1,
+    ACTIONS(13048), 4,
+      aux_sym_procedure_attributes_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_procedure_attributes_token4,
+      aux_sym_procedure_attributes_token5,
+  [149192] = 4,
+    ACTIONS(13032), 1,
       anon_sym_COMMA,
-    STATE(6389), 1,
-      aux_sym_use_statement_repeat1,
+    STATE(6378), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13042), 2,
+    ACTIONS(13034), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149177] = 4,
-    ACTIONS(9620), 1,
-      anon_sym_COMMA,
-    STATE(6377), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+  [149207] = 5,
+    ACTIONS(13050), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13052), 1,
+      aux_sym_kind_token1,
+    STATE(3981), 1,
+      sym__argument_list,
+    STATE(3983), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13044), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [149192] = 4,
-    ACTIONS(11717), 1,
+  [149224] = 4,
+    ACTIONS(12779), 1,
       anon_sym_COMMA,
-    STATE(6363), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(6383), 1,
+      aux_sym_included_items_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12871), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [149207] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(13054), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149239] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13046), 1,
+    ACTIONS(13056), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13048), 1,
+    ACTIONS(13058), 1,
       sym_preproc_arg,
-    STATE(7328), 1,
+    STATE(7664), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149224] = 4,
-    ACTIONS(11717), 1,
+  [149256] = 4,
+    ACTIONS(11721), 1,
       anon_sym_COMMA,
-    STATE(6363), 1,
+    STATE(6334), 1,
       aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12877), 2,
+    ACTIONS(12836), 2,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
-  [149239] = 4,
-    ACTIONS(9620), 1,
-      anon_sym_COMMA,
-    STATE(6377), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+  [149271] = 4,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    STATE(7411), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13050), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [149254] = 3,
-    ACTIONS(13054), 1,
-      aux_sym_end_program_statement_token1,
+    ACTIONS(10390), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [149286] = 4,
+    ACTIONS(13060), 1,
+      anon_sym_COMMA,
+    STATE(6344), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13052), 3,
+    ACTIONS(13062), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149301] = 4,
+    ACTIONS(13064), 1,
       anon_sym_COMMA,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [149267] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13056), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13058), 1,
-      sym_preproc_arg,
-    STATE(7332), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+    STATE(6391), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149284] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(9638), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149316] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13060), 1,
+    ACTIONS(13066), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13062), 1,
+    ACTIONS(13068), 1,
       sym_preproc_arg,
-    STATE(7336), 1,
+    STATE(7593), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149301] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13064), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13066), 1,
-      sym_preproc_arg,
-    STATE(7340), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+  [149333] = 4,
+    ACTIONS(12630), 1,
+      anon_sym_COMMA,
+    STATE(6349), 1,
+      aux_sym__declaration_targets_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149318] = 4,
-    ACTIONS(13012), 1,
+    ACTIONS(10832), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149348] = 4,
+    ACTIONS(13032), 1,
       anon_sym_COMMA,
-    STATE(6401), 1,
-      aux_sym_parameters_repeat1,
+    STATE(6353), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9534), 2,
+    ACTIONS(13070), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149333] = 4,
-    ACTIONS(13068), 1,
+  [149363] = 4,
+    ACTIONS(13060), 1,
       anon_sym_COMMA,
-    STATE(6330), 1,
-      aux_sym_data_statement_repeat1,
+    STATE(6354), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13071), 2,
+    ACTIONS(13072), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149348] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13073), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13075), 1,
-      sym_preproc_arg,
-    STATE(7595), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+  [149378] = 4,
+    ACTIONS(13074), 1,
+      anon_sym_COMMA,
+    STATE(6334), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149365] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(12641), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [149393] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13077), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13079), 1,
       sym_preproc_arg,
-    STATE(7344), 1,
+    STATE(7591), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149382] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
+  [149410] = 4,
     ACTIONS(13081), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13083), 1,
-      sym_preproc_arg,
-    STATE(7410), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+      anon_sym_COMMA,
+    STATE(6419), 1,
+      aux_sym_equivalence_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149399] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
+    ACTIONS(13083), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149425] = 4,
     ACTIONS(13085), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13087), 1,
-      sym_preproc_arg,
-    STATE(7529), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+      anon_sym_COMMA,
+    STATE(6384), 1,
+      aux_sym_data_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149416] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13089), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13091), 1,
-      sym_preproc_arg,
-    STATE(7348), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+    ACTIONS(13087), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149440] = 4,
+    ACTIONS(9620), 1,
+      anon_sym_COMMA,
+    STATE(6432), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149433] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(13089), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149455] = 3,
+    STATE(7884), 1,
+      sym_binary_op,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13091), 3,
+      anon_sym_PLUS,
+      anon_sym_STAR,
+      aux_sym_binary_op_token1,
+  [149468] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13093), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13095), 1,
       sym_preproc_arg,
-    STATE(7351), 1,
+    STATE(7586), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149450] = 5,
-    ACTIONS(13016), 1,
+  [149485] = 4,
+    ACTIONS(11721), 1,
+      anon_sym_COMMA,
+    STATE(6334), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12832), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [149500] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13097), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13099), 1,
       sym_preproc_arg,
-    STATE(7355), 1,
+    STATE(7675), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149467] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
+  [149517] = 5,
     ACTIONS(13101), 1,
-      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN2,
     ACTIONS(13103), 1,
-      sym_preproc_arg,
-    STATE(7628), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+      sym__integer_literal,
+    STATE(7219), 1,
+      sym_statement_label,
+    STATE(7544), 1,
+      sym_statement_label_reference,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [149484] = 4,
-    ACTIONS(13026), 1,
+  [149534] = 4,
+    ACTIONS(13060), 1,
       anon_sym_COMMA,
-    STATE(6375), 1,
+    STATE(6360), 1,
       aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -613045,1296 +612942,1304 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(13105), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149499] = 4,
-    ACTIONS(13107), 1,
+  [149549] = 4,
+    ACTIONS(12779), 1,
       anon_sym_COMMA,
-    STATE(6441), 1,
-      aux_sym_data_statement_repeat1,
+    STATE(6324), 1,
+      aux_sym_included_items_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13109), 2,
+    ACTIONS(12783), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149514] = 2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(13111), 4,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
-      anon_sym_RBRACK,
-  [149525] = 5,
-    ACTIONS(13016), 1,
+  [149564] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13113), 1,
+    ACTIONS(13107), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13115), 1,
+    ACTIONS(13109), 1,
       sym_preproc_arg,
-    STATE(7359), 1,
+    STATE(7322), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149542] = 2,
-    ACTIONS(21), 2,
+  [149581] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13111), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13113), 1,
+      sym_preproc_arg,
+    STATE(7608), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7651), 4,
-      sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
-      anon_sym_SEMI,
-  [149553] = 4,
-    ACTIONS(13117), 1,
+  [149598] = 5,
+    ACTIONS(13115), 1,
       anon_sym_LPAREN2,
-    STATE(7859), 1,
+    ACTIONS(13117), 1,
+      aux_sym_kind_token1,
+    STATE(5358), 1,
+      sym__argument_list,
+    STATE(5380), 1,
       sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [149568] = 4,
-    ACTIONS(13119), 1,
+  [149615] = 4,
+    ACTIONS(12630), 1,
       anon_sym_COMMA,
-    STATE(7560), 1,
-      sym_included_items,
+    STATE(6427), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13121), 2,
+    ACTIONS(10852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149583] = 5,
-    ACTIONS(13016), 1,
+  [149630] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13119), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13121), 1,
+      sym_preproc_arg,
+    STATE(7583), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [149647] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13123), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13125), 1,
       sym_preproc_arg,
-    STATE(7574), 1,
+    STATE(7390), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149600] = 4,
-    ACTIONS(11717), 1,
+  [149664] = 4,
+    ACTIONS(13014), 1,
       anon_sym_COMMA,
-    STATE(6357), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(6442), 1,
+      aux_sym_implicit_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12665), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [149615] = 4,
-    ACTIONS(12627), 1,
+    ACTIONS(13127), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149679] = 4,
+    ACTIONS(13032), 1,
       anon_sym_COMMA,
-    STATE(6449), 1,
-      aux_sym__declaration_targets_repeat1,
+    STATE(6367), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10846), 2,
+    ACTIONS(13129), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149630] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13127), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13129), 1,
-      sym_preproc_arg,
-    STATE(7617), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [149647] = 2,
+  [149694] = 4,
+    ACTIONS(13060), 1,
+      anon_sym_COMMA,
+    STATE(6360), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13131), 4,
+    ACTIONS(13131), 2,
       sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [149658] = 4,
-    ACTIONS(12627), 1,
+  [149709] = 4,
+    ACTIONS(13032), 1,
       anon_sym_COMMA,
-    STATE(6449), 1,
-      aux_sym__declaration_targets_repeat1,
+    STATE(6365), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10838), 2,
+    ACTIONS(13129), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149673] = 5,
-    ACTIONS(13016), 1,
+  [149724] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13133), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13135), 1,
       sym_preproc_arg,
-    STATE(7362), 1,
+    STATE(7576), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149690] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
+  [149741] = 5,
     ACTIONS(13137), 1,
-      aux_sym_preproc_def_token2,
+      aux_sym_preproc_if_token2,
     ACTIONS(13139), 1,
-      sym_preproc_arg,
-    STATE(7366), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [149707] = 4,
-    ACTIONS(12627), 1,
-      anon_sym_COMMA,
-    STATE(6449), 1,
-      aux_sym__declaration_targets_repeat1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(1034), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10838), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [149722] = 4,
-    ACTIONS(13141), 1,
-      anon_sym_COMMA,
-    STATE(6355), 1,
-      aux_sym_private_statement_repeat1,
-    ACTIONS(21), 2,
+  [149758] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13143), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13145), 1,
+      sym_preproc_arg,
+    STATE(7571), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13144), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [149737] = 5,
-    ACTIONS(13016), 1,
+  [149775] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13146), 1,
+    ACTIONS(13147), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13148), 1,
+    ACTIONS(13149), 1,
       sym_preproc_arg,
-    STATE(7369), 1,
+    STATE(7564), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149754] = 4,
-    ACTIONS(11717), 1,
+  [149792] = 4,
+    ACTIONS(13151), 1,
       anon_sym_COMMA,
-    STATE(6363), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(6360), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12787), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [149769] = 2,
+    ACTIONS(13154), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149807] = 4,
+    ACTIONS(13032), 1,
+      anon_sym_COMMA,
+    STATE(6317), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13150), 4,
+    ACTIONS(13156), 2,
       sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [149780] = 5,
-    ACTIONS(13016), 1,
+  [149822] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13152), 1,
+    ACTIONS(13158), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13154), 1,
+    ACTIONS(13160), 1,
       sym_preproc_arg,
-    STATE(7575), 1,
+    STATE(7560), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149797] = 5,
-    ACTIONS(13016), 1,
+  [149839] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13156), 1,
+    ACTIONS(13162), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13158), 1,
+    ACTIONS(13164), 1,
       sym_preproc_arg,
-    STATE(7373), 1,
+    STATE(7557), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149814] = 5,
-    ACTIONS(13016), 1,
+  [149856] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13160), 1,
+    ACTIONS(13166), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13162), 1,
+    ACTIONS(13168), 1,
       sym_preproc_arg,
-    STATE(7598), 1,
+    STATE(7555), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149831] = 4,
-    ACTIONS(13012), 1,
+  [149873] = 4,
+    ACTIONS(13032), 1,
       anon_sym_COMMA,
-    STATE(6401), 1,
-      aux_sym_parameters_repeat1,
+    STATE(6367), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9636), 2,
+    ACTIONS(13156), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149846] = 4,
-    ACTIONS(13164), 1,
-      anon_sym_COMMA,
-    STATE(6363), 1,
-      aux_sym_enumerator_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(12910), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [149861] = 4,
-    ACTIONS(13026), 1,
+  [149888] = 4,
+    ACTIONS(13170), 1,
       anon_sym_COMMA,
-    STATE(6339), 1,
-      aux_sym_use_statement_repeat1,
+    STATE(6444), 1,
+      aux_sym_variable_modification_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13167), 2,
+    ACTIONS(13172), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149876] = 4,
-    ACTIONS(9626), 1,
-      anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(13169), 2,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-  [149891] = 4,
-    ACTIONS(13026), 1,
+  [149903] = 4,
+    ACTIONS(13174), 1,
       anon_sym_COMMA,
-    STATE(6375), 1,
-      aux_sym_use_statement_repeat1,
+    STATE(6367), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13171), 2,
+    ACTIONS(13177), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149906] = 4,
-    ACTIONS(13173), 1,
+  [149918] = 4,
+    ACTIONS(13170), 1,
       anon_sym_COMMA,
-    STATE(6424), 1,
+    STATE(6414), 1,
       aux_sym_variable_modification_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13175), 2,
+    ACTIONS(13179), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149921] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13177), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13179), 1,
-      sym_preproc_arg,
-    STATE(7377), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [149938] = 5,
-    ACTIONS(13016), 1,
+  [149933] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13181), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13183), 1,
       sym_preproc_arg,
-    STATE(7381), 1,
+    STATE(7553), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [149955] = 4,
-    ACTIONS(12932), 1,
+  [149950] = 4,
+    ACTIONS(13185), 1,
       anon_sym_COMMA,
-    STATE(6446), 1,
-      aux_sym_included_items_repeat1,
+    STATE(6370), 1,
+      aux_sym_private_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12936), 2,
+    ACTIONS(13188), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [149970] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13185), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13187), 1,
-      sym_preproc_arg,
-    STATE(7385), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [149987] = 4,
-    ACTIONS(9626), 1,
+  [149965] = 4,
+    ACTIONS(13060), 1,
       anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    STATE(6392), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13189), 2,
-      anon_sym_SLASH_RPAREN,
-      anon_sym_RBRACK,
-  [150002] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13191), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13193), 1,
-      sym_preproc_arg,
-    STATE(7534), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [150019] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13195), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13197), 1,
-      sym_preproc_arg,
-    STATE(7388), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [150036] = 4,
-    ACTIONS(13199), 1,
+    ACTIONS(13190), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [149980] = 4,
+    ACTIONS(13170), 1,
       anon_sym_COMMA,
-    STATE(6375), 1,
-      aux_sym_use_statement_repeat1,
+    STATE(6366), 1,
+      aux_sym_variable_modification_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13202), 2,
+    ACTIONS(13192), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150051] = 4,
-    ACTIONS(13204), 1,
+  [149995] = 4,
+    ACTIONS(13064), 1,
       anon_sym_COMMA,
-    STATE(6385), 1,
-      aux_sym_implicit_statement_repeat2,
+    STATE(6329), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13206), 2,
+    ACTIONS(9658), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150066] = 4,
-    ACTIONS(13208), 1,
+  [150010] = 4,
+    ACTIONS(13194), 1,
       anon_sym_COMMA,
-    STATE(6377), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    STATE(7640), 1,
+      sym_included_items,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9682), 2,
+    ACTIONS(13196), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150081] = 4,
-    ACTIONS(13211), 1,
+  [150025] = 5,
+    ACTIONS(10360), 1,
       anon_sym_COMMA,
-    STATE(6433), 1,
-      aux_sym_save_statement_repeat1,
+    ACTIONS(13198), 1,
+      anon_sym_SLASH,
+    STATE(7266), 1,
+      aux_sym_data_set_repeat1,
+    STATE(7312), 1,
+      sym_data_value,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13213), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150096] = 5,
-    ACTIONS(13016), 1,
+  [150042] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13215), 1,
+    ACTIONS(13200), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13217), 1,
+    ACTIONS(13202), 1,
       sym_preproc_arg,
-    STATE(7582), 1,
+    STATE(7611), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150113] = 4,
-    ACTIONS(12949), 1,
+  [150059] = 4,
+    ACTIONS(11721), 1,
+      anon_sym_COMMA,
+    STATE(6422), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12775), 2,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13219), 1,
       aux_sym_enumerator_statement_token1,
+  [150074] = 4,
+    ACTIONS(13032), 1,
+      anon_sym_COMMA,
+    STATE(6367), 1,
+      aux_sym_save_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6380), 2,
-      sym_enumerator_statement,
-      aux_sym_enum_repeat1,
-  [150128] = 4,
-    ACTIONS(11717), 1,
+    ACTIONS(13204), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [150089] = 4,
+    ACTIONS(13206), 1,
       anon_sym_COMMA,
-    STATE(6363), 1,
-      aux_sym_enumerator_statement_repeat1,
+    STATE(6379), 1,
+      aux_sym_procedure_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12791), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [150143] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(13209), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [150104] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13222), 1,
+    ACTIONS(13211), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13224), 1,
+    ACTIONS(13213), 1,
       sym_preproc_arg,
-    STATE(7392), 1,
+    STATE(7549), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150160] = 4,
-    ACTIONS(13226), 1,
-      anon_sym_COMMA,
-    STATE(6383), 1,
-      aux_sym_procedure_statement_repeat2,
+  [150121] = 3,
+    ACTIONS(12781), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13229), 2,
+    ACTIONS(13215), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [150175] = 4,
-    ACTIONS(13211), 1,
+  [150134] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13217), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13219), 1,
+      sym_preproc_arg,
+    STATE(7667), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [150151] = 4,
+    ACTIONS(13221), 1,
       anon_sym_COMMA,
-    STATE(6388), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6383), 1,
+      aux_sym_included_items_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13231), 2,
+    ACTIONS(13215), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150190] = 4,
-    ACTIONS(13204), 1,
+  [150166] = 4,
+    ACTIONS(13085), 1,
       anon_sym_COMMA,
-    STATE(6422), 1,
-      aux_sym_implicit_statement_repeat2,
+    STATE(6441), 1,
+      aux_sym_data_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13233), 2,
+    ACTIONS(13224), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150205] = 5,
-    ACTIONS(13016), 1,
+  [150181] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13235), 1,
+    ACTIONS(13226), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13237), 1,
+    ACTIONS(13228), 1,
       sym_preproc_arg,
-    STATE(7395), 1,
+    STATE(7543), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150222] = 4,
-    ACTIONS(13204), 1,
-      anon_sym_COMMA,
-    STATE(6431), 1,
-      aux_sym_implicit_statement_repeat2,
+  [150198] = 5,
+    ACTIONS(12628), 1,
+      anon_sym_STAR,
+    ACTIONS(13230), 1,
+      anon_sym_LPAREN2,
+    STATE(3184), 1,
+      sym__argument_list,
+    STATE(3185), 1,
+      sym_kind,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13233), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150237] = 4,
-    ACTIONS(13211), 1,
+  [150215] = 4,
+    ACTIONS(13064), 1,
       anon_sym_COMMA,
-    STATE(6399), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6391), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13239), 2,
+    ACTIONS(9630), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150252] = 4,
-    ACTIONS(13026), 1,
-      anon_sym_COMMA,
-    STATE(6375), 1,
-      aux_sym_use_statement_repeat1,
-    ACTIONS(21), 2,
+  [150230] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13233), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13235), 1,
+      sym_preproc_arg,
+    STATE(7617), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13241), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150267] = 3,
-    ACTIONS(12934), 1,
-      anon_sym_EQ_GT,
+  [150247] = 3,
+    ACTIONS(13239), 1,
+      aux_sym_end_program_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13243), 3,
-      sym__external_end_of_statement,
+    ACTIONS(13237), 3,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [150280] = 4,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    STATE(7365), 1,
-      sym_language_binding,
-    ACTIONS(21), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [150260] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13241), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13243), 1,
+      sym_preproc_arg,
+    STATE(7481), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13245), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150295] = 2,
+  [150277] = 4,
+    ACTIONS(13245), 1,
+      anon_sym_COMMA,
+    STATE(6391), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7617), 4,
+    ACTIONS(9634), 2,
       sym__external_end_of_statement,
-      aux_sym_language_binding_token1,
-      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [150306] = 4,
-    ACTIONS(11961), 1,
-      aux_sym_language_binding_token1,
-    STATE(7426), 1,
-      sym_language_binding,
+  [150292] = 4,
+    ACTIONS(13060), 1,
+      anon_sym_COMMA,
+    STATE(6360), 1,
+      aux_sym_use_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13247), 2,
+    ACTIONS(13248), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150321] = 5,
-    ACTIONS(13016), 1,
+  [150307] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13249), 1,
+    ACTIONS(13250), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13251), 1,
+    ACTIONS(13252), 1,
       sym_preproc_arg,
-    STATE(7398), 1,
+    STATE(7570), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150338] = 5,
-    ACTIONS(13016), 1,
+  [150324] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13254), 4,
+      sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_SEMI,
+  [150335] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13253), 1,
+    ACTIONS(13256), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13255), 1,
+    ACTIONS(13258), 1,
       sym_preproc_arg,
-    STATE(7642), 1,
+    STATE(7534), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150355] = 5,
-    ACTIONS(13016), 1,
+  [150352] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13260), 4,
+      sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_SEMI,
+  [150363] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13257), 1,
+    ACTIONS(13262), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13259), 1,
+    ACTIONS(13264), 1,
       sym_preproc_arg,
-    STATE(7401), 1,
+    STATE(7572), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150372] = 5,
-    ACTIONS(13016), 1,
+  [150380] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13266), 4,
+      sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
+      anon_sym_SEMI,
+  [150391] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13261), 1,
+    ACTIONS(13268), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13263), 1,
+    ACTIONS(13270), 1,
       sym_preproc_arg,
-    STATE(7500), 1,
+    STATE(7531), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150389] = 3,
-    STATE(8443), 1,
-      sym_binary_op,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(13265), 3,
-      anon_sym_PLUS,
-      anon_sym_STAR,
-      aux_sym_binary_op_token1,
-  [150402] = 4,
-    ACTIONS(13267), 1,
+  [150408] = 4,
+    ACTIONS(13064), 1,
       anon_sym_COMMA,
-    STATE(6399), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6410), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13270), 2,
+    ACTIONS(9670), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150417] = 5,
-    ACTIONS(13016), 1,
+  [150423] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13272), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13274), 1,
       sym_preproc_arg,
-    STATE(7404), 1,
+    STATE(7528), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150434] = 4,
-    ACTIONS(13276), 1,
+  [150440] = 4,
+    ACTIONS(12630), 1,
       anon_sym_COMMA,
-    STATE(6401), 1,
-      aux_sym_parameters_repeat1,
+    STATE(6427), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9640), 2,
+    ACTIONS(10852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150449] = 5,
-    ACTIONS(10290), 1,
+  [150455] = 4,
+    ACTIONS(13081), 1,
       anon_sym_COMMA,
-    ACTIONS(13279), 1,
-      anon_sym_SLASH,
-    STATE(6630), 1,
-      sym_data_value,
-    STATE(6659), 1,
-      aux_sym_data_set_repeat1,
+    STATE(6336), 1,
+      aux_sym_equivalence_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13276), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [150470] = 4,
+    ACTIONS(13064), 1,
+      anon_sym_COMMA,
+    STATE(6387), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9694), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [150485] = 4,
+    ACTIONS(13278), 1,
+      anon_sym_LPAREN2,
+    STATE(8306), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [150466] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(4345), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [150500] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13281), 1,
+    ACTIONS(13280), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13283), 1,
+    ACTIONS(13282), 1,
       sym_preproc_arg,
-    STATE(7407), 1,
+    STATE(7621), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150483] = 4,
-    ACTIONS(13211), 1,
+  [150517] = 4,
+    ACTIONS(12630), 1,
       anon_sym_COMMA,
-    STATE(6399), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6427), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13285), 2,
+    ACTIONS(10860), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150498] = 5,
-    ACTIONS(13016), 1,
+  [150532] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13287), 1,
+    ACTIONS(13284), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13289), 1,
+    ACTIONS(13286), 1,
       sym_preproc_arg,
-    STATE(7317), 1,
+    STATE(7579), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150515] = 4,
-    ACTIONS(13291), 1,
+  [150549] = 4,
+    ACTIONS(12790), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13288), 1,
+      aux_sym_enumerator_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6409), 2,
+      sym_enumerator_statement,
+      aux_sym_enum_repeat1,
+  [150564] = 4,
+    ACTIONS(13064), 1,
       anon_sym_COMMA,
-    STATE(6406), 1,
-      aux_sym_included_items_repeat1,
+    STATE(6391), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13243), 2,
+    ACTIONS(9694), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150530] = 5,
-    ACTIONS(13016), 1,
+  [150579] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13294), 1,
+    ACTIONS(13291), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13296), 1,
+    ACTIONS(13293), 1,
       sym_preproc_arg,
-    STATE(7411), 1,
+    STATE(7692), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150547] = 5,
-    ACTIONS(13016), 1,
+  [150596] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13298), 1,
+    ACTIONS(13295), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13300), 1,
+    ACTIONS(13297), 1,
       sym_preproc_arg,
-    STATE(7414), 1,
+    STATE(7638), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150564] = 3,
-    ACTIONS(5511), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5513), 3,
-      aux_sym_implicit_statement_token3,
-      aux_sym_end_select_statement_token1,
-      aux_sym_format_statement_token1,
-  [150577] = 5,
-    ACTIONS(13302), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(13304), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1055), 1,
-      sym_end_program_statement,
+  [150613] = 3,
+    ACTIONS(13301), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [150594] = 4,
-    ACTIONS(12627), 1,
+    ACTIONS(13299), 3,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-    STATE(6354), 1,
-      aux_sym__declaration_targets_repeat1,
+      anon_sym_SEMI,
+  [150626] = 4,
+    ACTIONS(13170), 1,
+      anon_sym_COMMA,
+    STATE(6444), 1,
+      aux_sym_variable_modification_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10842), 2,
+    ACTIONS(13303), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150609] = 4,
-    ACTIONS(13012), 1,
+  [150641] = 4,
+    ACTIONS(9686), 1,
       anon_sym_COMMA,
-    STATE(6401), 1,
-      aux_sym_parameters_repeat1,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9649), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150624] = 5,
-    ACTIONS(13308), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13310), 1,
-      aux_sym_kind_token1,
-    STATE(3192), 1,
-      sym_parenthesized_expression,
-    STATE(3193), 1,
-      sym__argument_list,
+    ACTIONS(13305), 2,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+  [150656] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [150641] = 5,
-    ACTIONS(12615), 1,
-      anon_sym_STAR,
-    ACTIONS(13312), 1,
-      anon_sym_LPAREN2,
-    STATE(3188), 1,
-      sym_kind,
-    STATE(3194), 1,
-      sym__argument_list,
-    ACTIONS(21), 2,
+    ACTIONS(12016), 4,
+      aux_sym_procedure_attributes_token2,
+      aux_sym_procedure_attributes_token3,
+      aux_sym_procedure_attributes_token4,
+      aux_sym_procedure_attributes_token5,
+  [150667] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13307), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13309), 1,
+      sym_preproc_arg,
+    STATE(7452), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150658] = 5,
-    ACTIONS(13304), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(13315), 1,
-      aux_sym_preproc_if_token2,
-    STATE(1061), 1,
-      sym_end_program_statement,
+  [150684] = 4,
+    ACTIONS(11721), 1,
+      anon_sym_COMMA,
+    STATE(6334), 1,
+      aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [150675] = 4,
-    ACTIONS(13317), 1,
+    ACTIONS(12937), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [150699] = 4,
+    ACTIONS(13311), 1,
       anon_sym_COMMA,
-    STATE(6423), 1,
+    STATE(6419), 1,
       aux_sym_equivalence_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13319), 2,
+    ACTIONS(13314), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150690] = 5,
-    ACTIONS(13016), 1,
+  [150714] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13321), 1,
+    ACTIONS(13316), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13323), 1,
+    ACTIONS(13318), 1,
       sym_preproc_arg,
-    STATE(7357), 1,
+    STATE(7656), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150707] = 3,
-    ACTIONS(13327), 1,
-      anon_sym_EQ_GT,
-    ACTIONS(21), 2,
+  [150731] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13320), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13322), 1,
+      sym_preproc_arg,
+    STATE(7540), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13325), 3,
-      sym__external_end_of_statement,
+  [150748] = 4,
+    ACTIONS(11721), 1,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [150720] = 4,
-    ACTIONS(11717), 1,
+    STATE(6334), 1,
+      aux_sym_enumerator_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(12943), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [150763] = 4,
+    ACTIONS(11721), 1,
       anon_sym_COMMA,
-    STATE(6321), 1,
+    STATE(6326), 1,
       aux_sym_enumerator_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12773), 2,
+    ACTIONS(12867), 2,
       aux_sym_end_program_statement_token1,
       aux_sym_enumerator_statement_token1,
-  [150735] = 4,
-    ACTIONS(13211), 1,
+  [150778] = 4,
+    ACTIONS(13324), 1,
       anon_sym_COMMA,
-    STATE(6399), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(7646), 1,
+      sym_included_items,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13213), 2,
+    ACTIONS(13326), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150750] = 5,
-    ACTIONS(13034), 1,
-      sym__integer_literal,
-    ACTIONS(13329), 1,
-      anon_sym_LPAREN2,
-    STATE(6542), 1,
-      sym_statement_label,
-    STATE(7476), 1,
-      sym_statement_label_reference,
-    ACTIONS(21), 2,
+  [150793] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13328), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13330), 1,
+      sym_preproc_arg,
+    STATE(7701), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [150810] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13332), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13334), 1,
+      sym_preproc_arg,
+    STATE(7628), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150767] = 4,
-    ACTIONS(13331), 1,
+  [150827] = 4,
+    ACTIONS(13336), 1,
       anon_sym_COMMA,
-    STATE(6422), 1,
-      aux_sym_implicit_statement_repeat2,
+    STATE(6427), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13334), 2,
+    ACTIONS(10867), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150782] = 4,
-    ACTIONS(13317), 1,
-      anon_sym_COMMA,
-    STATE(6434), 1,
-      aux_sym_equivalence_statement_repeat1,
+  [150842] = 5,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(13339), 1,
+      aux_sym_preproc_if_token2,
+    STATE(1000), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13336), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150797] = 4,
-    ACTIONS(13173), 1,
-      anon_sym_COMMA,
-    STATE(6428), 1,
-      aux_sym_variable_modification_repeat2,
+  [150859] = 4,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    STATE(7361), 1,
+      sym_language_binding,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13338), 2,
+    ACTIONS(13341), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150812] = 4,
-    ACTIONS(13173), 1,
+  [150874] = 5,
+    ACTIONS(13005), 1,
+      anon_sym_LPAREN,
+    ACTIONS(13343), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(13345), 1,
+      sym_preproc_arg,
+    STATE(7633), 1,
+      sym_preproc_params,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [150891] = 5,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(13339), 1,
+      aux_sym_preproc_if_token2,
+    STATE(1034), 1,
+      sym_end_program_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [150908] = 4,
+    ACTIONS(13347), 1,
       anon_sym_COMMA,
-    STATE(6428), 1,
-      aux_sym_variable_modification_repeat2,
+    STATE(6432), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13340), 2,
+    ACTIONS(9594), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150827] = 5,
-    ACTIONS(13016), 1,
+  [150923] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13342), 1,
+    ACTIONS(13350), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13344), 1,
+    ACTIONS(13352), 1,
       sym_preproc_arg,
-    STATE(7673), 1,
+    STATE(7404), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150844] = 5,
-    ACTIONS(13016), 1,
+  [150940] = 5,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    ACTIONS(13354), 1,
+      aux_sym_preproc_if_token2,
+    STATE(1000), 1,
+      sym_end_program_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [150957] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13346), 1,
+    ACTIONS(13356), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13348), 1,
+    ACTIONS(13358), 1,
       sym_preproc_arg,
-    STATE(7689), 1,
+    STATE(7624), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [150861] = 4,
-    ACTIONS(13350), 1,
-      anon_sym_COMMA,
-    STATE(6428), 1,
-      aux_sym_variable_modification_repeat2,
+  [150974] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13353), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [150876] = 5,
-    ACTIONS(13310), 1,
-      aux_sym_kind_token1,
-    ACTIONS(13355), 1,
-      anon_sym_LPAREN2,
-    STATE(3192), 1,
-      sym_parenthesized_expression,
-    STATE(3193), 1,
-      sym__argument_list,
+    ACTIONS(13360), 4,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_COLON,
+      anon_sym_RBRACK,
+  [150985] = 4,
+    ACTIONS(9686), 1,
+      anon_sym_COMMA,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [150893] = 4,
-    ACTIONS(13173), 1,
-      anon_sym_COMMA,
-    STATE(6425), 1,
-      aux_sym_variable_modification_repeat2,
+    ACTIONS(13362), 2,
+      anon_sym_SLASH_RPAREN,
+      anon_sym_RBRACK,
+  [151000] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13357), 2,
+    ACTIONS(7611), 4,
       sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [150908] = 4,
-    ACTIONS(13204), 1,
+  [151011] = 4,
+    ACTIONS(13014), 1,
       anon_sym_COMMA,
-    STATE(6422), 1,
+    STATE(6310), 1,
       aux_sym_implicit_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13359), 2,
+    ACTIONS(13364), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150923] = 2,
+  [151026] = 4,
+    ACTIONS(13366), 1,
+      anon_sym_COMMA,
+    STATE(7360), 1,
+      sym_included_items,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12041), 4,
-      aux_sym_procedure_attributes_token2,
-      aux_sym_procedure_attributes_token3,
-      aux_sym_procedure_attributes_token4,
-      aux_sym_procedure_attributes_token5,
-  [150934] = 4,
-    ACTIONS(13211), 1,
+    ACTIONS(13368), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151041] = 4,
+    ACTIONS(13370), 1,
       anon_sym_COMMA,
-    STATE(6399), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6441), 1,
+      aux_sym_data_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13361), 2,
+    ACTIONS(13373), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150949] = 4,
-    ACTIONS(13363), 1,
+  [151056] = 4,
+    ACTIONS(13014), 1,
       anon_sym_COMMA,
-    STATE(6434), 1,
-      aux_sym_equivalence_statement_repeat1,
+    STATE(6309), 1,
+      aux_sym_implicit_statement_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13366), 2,
+    ACTIONS(13364), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150964] = 4,
-    ACTIONS(13211), 1,
+  [151071] = 4,
+    ACTIONS(12630), 1,
       anon_sym_COMMA,
-    STATE(6404), 1,
-      aux_sym_save_statement_repeat1,
+    STATE(6402), 1,
+      aux_sym__declaration_targets_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13361), 2,
+    ACTIONS(10832), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [150979] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13368), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13370), 1,
-      sym_preproc_arg,
-    STATE(7650), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [150996] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
-    ACTIONS(13372), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13374), 1,
-      sym_preproc_arg,
-    STATE(7540), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151013] = 5,
-    ACTIONS(13376), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13378), 1,
-      aux_sym_kind_token1,
-    STATE(5369), 1,
-      sym_parenthesized_expression,
-    STATE(5370), 1,
-      sym__argument_list,
+  [151086] = 4,
+    ACTIONS(13375), 1,
+      anon_sym_COMMA,
+    STATE(6444), 1,
+      aux_sym_variable_modification_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151030] = 5,
-    ACTIONS(13016), 1,
+    ACTIONS(13378), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151101] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
     ACTIONS(13380), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(13382), 1,
       sym_preproc_arg,
-    STATE(7533), 1,
+    STATE(7642), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [151047] = 4,
-    ACTIONS(13012), 1,
-      anon_sym_COMMA,
-    STATE(6412), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9676), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151062] = 4,
-    ACTIONS(13107), 1,
-      anon_sym_COMMA,
-    STATE(6330), 1,
-      aux_sym_data_statement_repeat1,
+  [151118] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13384), 2,
+    ACTIONS(7599), 4,
       sym__external_end_of_statement,
+      aux_sym_language_binding_token1,
+      aux_sym_function_result_token1,
       anon_sym_SEMI,
-  [151077] = 5,
-    ACTIONS(13304), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    ACTIONS(13386), 1,
-      aux_sym_preproc_if_token2,
-    STATE(1055), 1,
-      sym_end_program_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151094] = 5,
-    ACTIONS(13302), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(13304), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1061), 1,
-      sym_end_program_statement,
+  [151129] = 4,
+    ACTIONS(11937), 1,
+      aux_sym_language_binding_token1,
+    STATE(7674), 1,
+      sym_language_binding,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151111] = 4,
-    ACTIONS(13388), 1,
-      anon_sym_COMMA,
-    STATE(7456), 1,
-      sym_included_items,
+    ACTIONS(13384), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151144] = 5,
+    ACTIONS(13103), 1,
+      sym__integer_literal,
+    ACTIONS(13386), 1,
+      anon_sym_LPAREN2,
+    STATE(7219), 1,
+      sym_statement_label,
+    STATE(7533), 1,
+      sym_statement_label_reference,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13390), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151126] = 5,
-    ACTIONS(13016), 1,
+  [151161] = 5,
+    ACTIONS(13005), 1,
       anon_sym_LPAREN,
-    ACTIONS(13392), 1,
+    ACTIONS(13388), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(13394), 1,
+    ACTIONS(13390), 1,
       sym_preproc_arg,
-    STATE(7321), 1,
+    STATE(7687), 1,
       sym_preproc_params,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [151143] = 4,
-    ACTIONS(12932), 1,
-      anon_sym_COMMA,
-    STATE(6406), 1,
-      aux_sym_included_items_repeat1,
+  [151178] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7455), 1,
+      sym_end_select_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [151192] = 3,
+    STATE(1177), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13396), 2,
+    ACTIONS(13392), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151158] = 5,
-    ACTIONS(13016), 1,
-      anon_sym_LPAREN,
+  [151204] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13396), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [151218] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
     ACTIONS(13398), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(13400), 1,
-      sym_preproc_arg,
-    STATE(7324), 1,
-      sym_preproc_params,
-    ACTIONS(3), 2,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151175] = 4,
-    ACTIONS(13012), 1,
+  [151232] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    STATE(6329), 1,
-      aux_sym_parameters_repeat1,
+    ACTIONS(13400), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9616), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151190] = 4,
+  [151246] = 4,
     ACTIONS(13402), 1,
       anon_sym_COMMA,
-    STATE(6449), 1,
-      aux_sym__declaration_targets_repeat1,
+    ACTIONS(13404), 1,
+      anon_sym_RBRACK,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10853), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151205] = 4,
-    ACTIONS(13211), 1,
+  [151260] = 4,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    STATE(6420), 1,
-      aux_sym_save_statement_repeat1,
+    ACTIONS(13406), 1,
+      anon_sym_RPAREN,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [151274] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13239), 2,
+    ACTIONS(13408), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151220] = 3,
-    STATE(179), 1,
+  [151284] = 3,
+    STATE(2261), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13405), 2,
+    ACTIONS(13410), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151232] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13409), 1,
-      anon_sym_RBRACK,
-    STATE(6458), 1,
-      aux_sym_coarray_index_repeat2,
+  [151296] = 3,
+    STATE(205), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151246] = 4,
-    ACTIONS(13411), 1,
-      anon_sym_COMMA,
+    ACTIONS(13412), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151308] = 4,
     ACTIONS(13414), 1,
+      anon_sym_COMMA,
+    ACTIONS(13416), 1,
       anon_sym_RPAREN,
-    STATE(6453), 1,
-      aux_sym_procedure_attributes_repeat1,
+    STATE(6854), 1,
+      aux_sym_implicit_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151260] = 4,
-    ACTIONS(13416), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13418), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5118), 1,
-      sym_end_module_procedure_statement,
+  [151322] = 3,
+    STATE(2784), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151274] = 3,
-    STATE(701), 1,
+    ACTIONS(13418), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151334] = 3,
+    STATE(557), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -614342,84 +614247,130 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(13420), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151286] = 4,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    STATE(7684), 1,
-      sym_end_if_statement,
+  [151346] = 4,
+    ACTIONS(13422), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13424), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(13426), 1,
+      aux_sym_select_case_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151300] = 2,
+  [151360] = 3,
+    STATE(547), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13422), 3,
+    ACTIONS(13428), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151310] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13424), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+  [151372] = 4,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    STATE(7351), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151324] = 4,
-    ACTIONS(13407), 1,
+  [151386] = 4,
+    ACTIONS(10877), 1,
       anon_sym_COMMA,
-    ACTIONS(13424), 1,
-      anon_sym_RBRACK,
-    STATE(6469), 1,
-      aux_sym_coarray_index_repeat2,
+    ACTIONS(13430), 1,
+      anon_sym_RPAREN,
+    STATE(6875), 1,
+      aux_sym_preproc_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151338] = 3,
-    STATE(749), 1,
-      sym__end_of_statement,
+  [151400] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13426), 2,
+    ACTIONS(13432), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151350] = 3,
-    STATE(758), 1,
+  [151410] = 4,
+    ACTIONS(195), 1,
+      sym__string_literal,
+    ACTIONS(197), 1,
+      sym__string_literal_kind,
+    STATE(5016), 1,
+      sym_string_literal,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [151424] = 3,
+    ACTIONS(4389), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4391), 2,
+      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN,
+  [151436] = 3,
+    ACTIONS(4347), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4349), 2,
+      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN,
+  [151448] = 3,
+    ACTIONS(4343), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4345), 2,
+      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN,
+  [151460] = 3,
+    ACTIONS(4321), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4323), 2,
+      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN,
+  [151472] = 3,
+    STATE(855), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13428), 2,
+    ACTIONS(8025), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151362] = 4,
-    ACTIONS(13430), 1,
-      anon_sym_COMMA,
-    ACTIONS(13432), 1,
-      anon_sym_RPAREN,
-    STATE(6545), 1,
-      aux_sym_parameter_statement_repeat1,
+  [151484] = 4,
+    ACTIONS(7515), 1,
+      anon_sym_EQ,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    STATE(5328), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151376] = 4,
+  [151498] = 4,
     ACTIONS(13434), 1,
       anon_sym_COMMA,
     ACTIONS(13436), 1,
-      anon_sym_RPAREN,
-    STATE(7284), 1,
-      aux_sym_implicit_statement_repeat3,
+      anon_sym_RBRACK,
+    STATE(6486), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151390] = 3,
-    STATE(5158), 1,
+  [151512] = 3,
+    STATE(751), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -614427,8 +614378,8 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(13438), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151402] = 3,
-    STATE(2307), 1,
+  [151524] = 3,
+    STATE(719), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -614436,3770 +614387,3836 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(13440), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151414] = 4,
-    ACTIONS(13416), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13418), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5159), 1,
-      sym_end_module_procedure_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151428] = 4,
-    ACTIONS(10758), 1,
+  [151536] = 4,
+    ACTIONS(11901), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7439), 1,
-      sym_end_select_statement,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    STATE(7331), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151442] = 4,
+  [151550] = 4,
     ACTIONS(13442), 1,
-      sym_preproc_comment,
+      aux_sym_end_program_statement_token1,
     ACTIONS(13444), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(8411), 1,
-      sym_rank_statement,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4946), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151456] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
+  [151564] = 4,
     ACTIONS(13446), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151470] = 4,
+      aux_sym_end_program_statement_token1,
     ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13450), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+      aux_sym_end_module_statement_token1,
+    STATE(851), 1,
+      sym_end_module_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151484] = 4,
+  [151578] = 4,
+    ACTIONS(13450), 1,
+      aux_sym_end_program_statement_token1,
     ACTIONS(13452), 1,
-      anon_sym_COMMA,
-    ACTIONS(13454), 1,
-      anon_sym_RPAREN,
-    STATE(6453), 1,
-      aux_sym_procedure_attributes_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151498] = 2,
+      aux_sym_end_submodule_statement_token1,
+    STATE(846), 1,
+      sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13243), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [151508] = 4,
-    ACTIONS(13456), 1,
+  [151592] = 4,
+    ACTIONS(13414), 1,
       anon_sym_COMMA,
-    ACTIONS(13458), 1,
+    ACTIONS(13454), 1,
       anon_sym_RPAREN,
-    STATE(7286), 1,
+    STATE(6460), 1,
       aux_sym_implicit_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151522] = 4,
-    ACTIONS(13460), 1,
-      aux_sym_included_items_token1,
-    ACTIONS(13462), 1,
-      aux_sym_implicit_statement_token2,
-    ACTIONS(13464), 1,
-      aux_sym__import_names_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151536] = 3,
-    STATE(5189), 1,
+  [151606] = 3,
+    STATE(888), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13466), 2,
+    ACTIONS(13456), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151548] = 4,
-    ACTIONS(13416), 1,
+  [151618] = 4,
+    ACTIONS(11451), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13418), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5190), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(887), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151562] = 3,
-    STATE(725), 1,
+  [151632] = 3,
+    STATE(884), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13468), 2,
+    ACTIONS(13458), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151574] = 4,
-    ACTIONS(13470), 1,
+  [151644] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(13473), 1,
-      anon_sym_COLON_COLON,
-    STATE(6478), 1,
-      aux_sym_derived_type_statement_repeat1,
+    ACTIONS(13460), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151588] = 4,
-    ACTIONS(7470), 1,
-      sym__integer_literal,
-    STATE(4019), 1,
-      sym_statement_label,
-    STATE(6546), 1,
-      sym_statement_label_reference,
+  [151658] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13460), 1,
+      anon_sym_RBRACK,
+    STATE(6518), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151602] = 3,
-    STATE(746), 1,
+  [151672] = 3,
+    STATE(745), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13475), 2,
+    ACTIONS(13462), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151614] = 3,
-    STATE(752), 1,
+  [151684] = 3,
+    STATE(755), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13477), 2,
+    ACTIONS(13464), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151626] = 3,
-    STATE(707), 1,
-      sym__end_of_statement,
+  [151696] = 4,
+    ACTIONS(13446), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13448), 1,
+      aux_sym_end_module_statement_token1,
+    STATE(883), 1,
+      sym_end_module_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13479), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151638] = 3,
-    STATE(966), 1,
+  [151710] = 3,
+    STATE(872), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13481), 2,
+    ACTIONS(13466), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151650] = 3,
-    STATE(714), 1,
-      sym__end_of_statement,
+  [151722] = 4,
+    ACTIONS(13450), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13452), 1,
+      aux_sym_end_submodule_statement_token1,
+    STATE(870), 1,
+      sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13483), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151662] = 3,
-    STATE(719), 1,
+  [151736] = 3,
+    STATE(1564), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13485), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151674] = 2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(13366), 3,
+    ACTIONS(13468), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151684] = 3,
-    STATE(2819), 1,
+  [151748] = 3,
+    STATE(1602), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13487), 2,
+    ACTIONS(13470), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151696] = 3,
-    STATE(2830), 1,
+  [151760] = 3,
+    STATE(5303), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13489), 2,
+    ACTIONS(13472), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151708] = 4,
-    ACTIONS(13491), 1,
-      anon_sym_COMMA,
-    ACTIONS(13493), 1,
-      anon_sym_RPAREN,
-    STATE(6562), 1,
-      aux_sym_keyword_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151722] = 4,
-    ACTIONS(13495), 1,
+  [151772] = 4,
+    ACTIONS(13474), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13497), 1,
+    ACTIONS(13476), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(1001), 1,
+    STATE(4602), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151736] = 4,
-    ACTIONS(13499), 1,
-      anon_sym_COMMA,
-    ACTIONS(13501), 1,
-      anon_sym_RPAREN,
-    STATE(7044), 1,
-      aux_sym_preproc_params_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [151750] = 4,
-    ACTIONS(13503), 1,
+  [151786] = 4,
+    ACTIONS(13478), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13505), 1,
+    ACTIONS(13480), 1,
       aux_sym_end_function_statement_token1,
-    STATE(1003), 1,
+    STATE(4603), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151764] = 3,
-    STATE(1521), 1,
+  [151800] = 3,
+    STATE(1555), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13507), 2,
+    ACTIONS(13482), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151776] = 3,
-    STATE(1012), 1,
+  [151812] = 3,
+    STATE(656), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13509), 2,
+    ACTIONS(13484), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151788] = 4,
-    ACTIONS(13495), 1,
+  [151824] = 4,
+    ACTIONS(11451), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13497), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(1013), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(862), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151802] = 2,
+  [151838] = 3,
+    STATE(863), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13511), 3,
+    ACTIONS(13486), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151812] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13513), 1,
-      anon_sym_RBRACK,
-    STATE(7295), 1,
-      aux_sym_coarray_index_repeat2,
+  [151850] = 3,
+    STATE(867), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151826] = 3,
-    STATE(1015), 1,
+    ACTIONS(13488), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151862] = 3,
+    STATE(1372), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13515), 2,
+    ACTIONS(13490), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151838] = 3,
-    STATE(662), 1,
+  [151874] = 4,
+    ACTIONS(13474), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13476), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4578), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [151888] = 3,
+    STATE(4585), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7629), 2,
+    ACTIONS(13492), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151850] = 4,
-    ACTIONS(13503), 1,
+  [151900] = 4,
+    ACTIONS(13478), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13505), 1,
+    ACTIONS(13480), 1,
       aux_sym_end_function_statement_token1,
-    STATE(1016), 1,
+    STATE(4586), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151864] = 2,
+  [151914] = 3,
+    STATE(4968), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13517), 3,
+    ACTIONS(13494), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [151874] = 3,
-    STATE(1022), 1,
+  [151926] = 3,
+    STATE(4575), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13519), 2,
+    ACTIONS(13496), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151886] = 4,
-    ACTIONS(13495), 1,
+  [151938] = 4,
+    ACTIONS(13442), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13497), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(1023), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(13444), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4969), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151900] = 3,
-    STATE(1024), 1,
+  [151952] = 3,
+    STATE(4625), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13521), 2,
+    ACTIONS(13498), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [151912] = 4,
-    ACTIONS(13503), 1,
+  [151964] = 4,
+    ACTIONS(13474), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13505), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(1025), 1,
-      sym_end_function_statement,
+    ACTIONS(13476), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4528), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151926] = 4,
-    ACTIONS(9875), 1,
-      anon_sym_RBRACK,
-    ACTIONS(13523), 1,
-      anon_sym_COMMA,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
+  [151978] = 3,
+    STATE(4618), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151940] = 4,
-    ACTIONS(13526), 1,
-      sym__string_literal,
-    ACTIONS(13528), 1,
-      sym__string_literal_kind,
-    STATE(4558), 1,
-      sym_string_literal,
+    ACTIONS(13500), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [151990] = 4,
+    ACTIONS(13478), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13480), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4617), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [151954] = 3,
-    STATE(3952), 1,
-      sym__end_of_statement,
+  [152004] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13530), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151966] = 3,
-    STATE(1126), 1,
-      sym__end_of_statement,
+    ACTIONS(13237), 3,
+      anon_sym_COMMA,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [152014] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13502), 1,
+      anon_sym_RPAREN,
+    STATE(6454), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13532), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151978] = 3,
-    STATE(967), 1,
-      sym__end_of_statement,
+  [152028] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13504), 1,
+      anon_sym_RPAREN,
+    STATE(6453), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13534), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [151990] = 3,
-    STATE(2510), 1,
-      sym__end_of_statement,
+  [152042] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13506), 1,
+      anon_sym_RPAREN,
+    STATE(6452), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13536), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [152002] = 4,
-    ACTIONS(13538), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [152016] = 3,
-    STATE(1445), 1,
-      sym__end_of_statement,
+  [152056] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13508), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13542), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [152028] = 3,
-    STATE(977), 1,
+  [152070] = 3,
+    STATE(2816), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13544), 2,
+    ACTIONS(13510), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152040] = 3,
-    ACTIONS(9879), 1,
-      anon_sym_COLON,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(9877), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-  [152052] = 3,
-    STATE(1391), 1,
+  [152082] = 3,
+    STATE(2817), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13546), 2,
+    ACTIONS(13512), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152064] = 4,
-    ACTIONS(195), 1,
-      sym__string_literal,
-    ACTIONS(197), 1,
-      sym__string_literal_kind,
-    STATE(5047), 1,
-      sym_string_literal,
+  [152094] = 4,
+    ACTIONS(9360), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9362), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(2819), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152078] = 3,
-    STATE(697), 1,
+  [152108] = 3,
+    STATE(2820), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7675), 2,
+    ACTIONS(13514), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152090] = 4,
-    ACTIONS(9336), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9338), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1149), 1,
-      sym_end_type_statement,
+  [152120] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13516), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152104] = 3,
-    STATE(2511), 1,
+  [152134] = 3,
+    STATE(2299), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13548), 2,
+    ACTIONS(13518), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152116] = 3,
-    STATE(1370), 1,
+  [152146] = 3,
+    STATE(732), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13550), 2,
+    ACTIONS(13520), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152128] = 3,
-    STATE(1152), 1,
+  [152158] = 3,
+    STATE(168), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13552), 2,
+    ACTIONS(13522), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152140] = 3,
-    STATE(1135), 1,
+  [152170] = 3,
+    STATE(1547), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13554), 2,
+    ACTIONS(13524), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152152] = 4,
-    ACTIONS(13556), 1,
+  [152182] = 4,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    ACTIONS(13558), 1,
-      anon_sym_RPAREN,
-    STATE(6908), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [152166] = 4,
-    ACTIONS(9881), 1,
+    ACTIONS(9546), 1,
       anon_sym_RPAREN,
-    ACTIONS(13560), 1,
-      anon_sym_COMMA,
-    STATE(6525), 1,
+    STATE(6456), 1,
       aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152180] = 4,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    STATE(7590), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [152194] = 4,
-    ACTIONS(9608), 1,
+  [152196] = 4,
+    ACTIONS(9642), 1,
       anon_sym_COMMA,
-    ACTIONS(9610), 1,
+    ACTIONS(9644), 1,
       anon_sym_RBRACK,
-    STATE(6540), 1,
+    STATE(6455), 1,
       aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152208] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9612), 1,
-      anon_sym_RPAREN,
-    STATE(6541), 1,
-      aux_sym__argument_list_repeat1,
+  [152210] = 3,
+    STATE(1547), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
+    ACTIONS(13524), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
   [152222] = 3,
-    STATE(2720), 1,
+    STATE(5058), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13563), 2,
+    ACTIONS(13526), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [152234] = 3,
-    ACTIONS(4289), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(4291), 2,
-      aux_sym_preproc_def_token2,
-      anon_sym_LPAREN,
-  [152246] = 3,
-    STATE(1142), 1,
+    STATE(122), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13565), 2,
+    ACTIONS(13528), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152258] = 4,
-    ACTIONS(9336), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9338), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1145), 1,
-      sym_end_type_statement,
+  [152246] = 4,
+    ACTIONS(13530), 1,
+      sym_preproc_comment,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5788), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152272] = 3,
-    STATE(1146), 1,
+  [152260] = 3,
+    STATE(558), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13567), 2,
+    ACTIONS(13534), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152284] = 3,
-    STATE(1148), 1,
+  [152272] = 3,
+    STATE(560), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13569), 2,
+    ACTIONS(13536), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152296] = 3,
-    ACTIONS(4293), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [152284] = 3,
+    STATE(4982), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4295), 2,
-      aux_sym_preproc_def_token2,
-      anon_sym_LPAREN,
-  [152308] = 3,
-    ACTIONS(4285), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(13538), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152296] = 4,
+    ACTIONS(13442), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13444), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4983), 1,
+      sym_end_module_procedure_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 2,
-      aux_sym_preproc_def_token2,
-      anon_sym_LPAREN,
-  [152320] = 3,
-    ACTIONS(9885), 1,
-      anon_sym_COLON,
+  [152310] = 3,
+    STATE(130), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9883), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [152332] = 3,
-    ACTIONS(4297), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(13540), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152322] = 3,
+    STATE(134), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4299), 2,
-      aux_sym_preproc_def_token2,
-      anon_sym_LPAREN,
-  [152344] = 3,
-    STATE(753), 1,
+    ACTIONS(13542), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152334] = 3,
+    STATE(703), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13571), 2,
+    ACTIONS(13544), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152356] = 4,
-    ACTIONS(13573), 1,
+  [152346] = 4,
+    ACTIONS(9871), 1,
+      anon_sym_RPAREN,
+    ACTIONS(13546), 1,
       anon_sym_COMMA,
-    ACTIONS(13575), 1,
-      anon_sym_RBRACK,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
+    STATE(6541), 1,
+      aux_sym_case_value_range_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152370] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(13577), 1,
-      anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
+  [152360] = 3,
+    STATE(672), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152384] = 2,
+    ACTIONS(13549), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152372] = 3,
+    STATE(739), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8771), 3,
+    ACTIONS(13551), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [152394] = 3,
-    STATE(1151), 1,
+  [152384] = 3,
+    STATE(700), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13579), 2,
+    ACTIONS(13553), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152406] = 3,
-    STATE(848), 1,
+  [152396] = 3,
+    STATE(753), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8233), 2,
+    ACTIONS(13555), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152418] = 4,
-    ACTIONS(13581), 1,
-      anon_sym_COMMA,
-    ACTIONS(13584), 1,
-      anon_sym_RPAREN,
-    STATE(6545), 1,
-      aux_sym_parameter_statement_repeat1,
+  [152408] = 4,
+    ACTIONS(13557), 1,
+      sym_preproc_comment,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5852), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152432] = 4,
-    ACTIONS(13491), 1,
-      anon_sym_COMMA,
-    ACTIONS(13586), 1,
-      anon_sym_RPAREN,
-    STATE(6551), 1,
-      aux_sym_keyword_statement_repeat1,
+  [152422] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7116), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152446] = 4,
-    ACTIONS(7470), 1,
-      sym__integer_literal,
-    STATE(4019), 1,
-      sym_statement_label,
-    STATE(7614), 1,
-      sym_statement_label_reference,
+  [152436] = 3,
+    STATE(746), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152460] = 2,
+    ACTIONS(13565), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152448] = 3,
+    STATE(149), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13588), 3,
+    ACTIONS(13567), 2,
       sym__external_end_of_statement,
-      anon_sym_LPAREN2,
       anon_sym_SEMI,
-  [152470] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13590), 1,
-      anon_sym_RBRACK,
-    STATE(6556), 1,
-      aux_sym_coarray_index_repeat2,
+  [152460] = 3,
+    STATE(2315), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152484] = 4,
-    ACTIONS(9626), 1,
-      anon_sym_COMMA,
-    ACTIONS(13592), 1,
-      anon_sym_GT_GT_GT,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(13569), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152472] = 3,
+    STATE(150), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152498] = 4,
-    ACTIONS(13491), 1,
-      anon_sym_COMMA,
-    ACTIONS(13594), 1,
-      anon_sym_RPAREN,
-    STATE(6560), 1,
-      aux_sym_keyword_statement_repeat1,
+    ACTIONS(13571), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152484] = 4,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    STATE(7356), 1,
+      sym_end_if_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152512] = 4,
-    ACTIONS(7517), 1,
-      anon_sym_EQ,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    STATE(5334), 1,
-      sym_coarray_index,
+  [152498] = 3,
+    STATE(716), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152526] = 4,
-    ACTIONS(13596), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13598), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4569), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(13573), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152510] = 3,
+    STATE(744), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152540] = 4,
-    ACTIONS(13448), 1,
+    ACTIONS(13575), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152522] = 4,
+    ACTIONS(13577), 1,
       anon_sym_COMMA,
-    ACTIONS(13600), 1,
+    ACTIONS(13579), 1,
       anon_sym_RPAREN,
-    STATE(6678), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(6626), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152554] = 4,
-    ACTIONS(13602), 1,
-      sym_preproc_comment,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5882), 1,
-      sym_case_statement,
+  [152536] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152568] = 4,
-    ACTIONS(13407), 1,
+    ACTIONS(13581), 3,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-    ACTIONS(13606), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+      anon_sym_SEMI,
+  [152546] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152582] = 4,
-    ACTIONS(13407), 1,
+    ACTIONS(13215), 3,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-    ACTIONS(13606), 1,
-      anon_sym_RBRACK,
-    STATE(6564), 1,
-      aux_sym_coarray_index_repeat2,
+      anon_sym_SEMI,
+  [152556] = 3,
+    STATE(2877), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152596] = 3,
-    STATE(654), 1,
+    ACTIONS(13583), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152568] = 3,
+    STATE(2878), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13608), 2,
+    ACTIONS(13585), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152608] = 3,
-    STATE(4502), 1,
+  [152580] = 3,
+    STATE(2871), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13610), 2,
+    ACTIONS(13587), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152620] = 4,
-    ACTIONS(13612), 1,
-      anon_sym_COMMA,
-    ACTIONS(13615), 1,
-      anon_sym_RPAREN,
-    STATE(6560), 1,
-      aux_sym_keyword_statement_repeat1,
+  [152592] = 3,
+    STATE(2883), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152634] = 4,
-    ACTIONS(13596), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13598), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4503), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(13589), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152604] = 3,
+    STATE(1629), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152648] = 4,
-    ACTIONS(13491), 1,
-      anon_sym_COMMA,
-    ACTIONS(13586), 1,
-      anon_sym_RPAREN,
-    STATE(6560), 1,
-      aux_sym_keyword_statement_repeat1,
+    ACTIONS(13591), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152616] = 3,
+    STATE(2476), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152662] = 2,
+    ACTIONS(13593), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152628] = 4,
+    ACTIONS(13595), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13597), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(1018), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13617), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [152672] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13619), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+  [152642] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7234), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152686] = 4,
-    ACTIONS(10440), 1,
+  [152656] = 4,
+    ACTIONS(9360), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9362), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(2886), 1,
+      sym_end_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [152670] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(13621), 1,
-      anon_sym_SLASH,
-    STATE(7310), 1,
-      aux_sym_data_value_repeat1,
+    ACTIONS(13599), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152700] = 3,
-    STATE(4523), 1,
+  [152684] = 3,
+    STATE(173), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13623), 2,
+    ACTIONS(13601), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152712] = 4,
-    ACTIONS(13596), 1,
+  [152696] = 4,
+    ACTIONS(13603), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13598), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4524), 1,
-      sym_end_module_procedure_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [152726] = 4,
-    ACTIONS(10440), 1,
-      anon_sym_COMMA,
-    ACTIONS(13625), 1,
-      anon_sym_SLASH,
-    STATE(7310), 1,
-      aux_sym_data_value_repeat1,
+    ACTIONS(13605), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(1027), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152740] = 3,
-    STATE(900), 1,
+  [152710] = 3,
+    STATE(1503), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13627), 2,
+    ACTIONS(13607), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152752] = 3,
-    STATE(901), 1,
+  [152722] = 3,
+    STATE(174), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13629), 2,
+    ACTIONS(13609), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152764] = 4,
-    ACTIONS(13631), 1,
+  [152734] = 4,
+    ACTIONS(13139), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13633), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4993), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(1000), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152778] = 3,
-    STATE(968), 1,
+  [152748] = 3,
+    STATE(1071), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13635), 2,
+    ACTIONS(13611), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152790] = 4,
-    ACTIONS(13637), 1,
-      anon_sym_COMMA,
-    ACTIONS(13639), 1,
-      anon_sym_RPAREN,
-    STATE(7313), 1,
-      aux_sym_concurrent_header_repeat1,
+  [152760] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7304), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152804] = 4,
-    ACTIONS(13641), 1,
+  [152774] = 4,
+    ACTIONS(13595), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13643), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4995), 1,
-      sym_end_function_statement,
+    ACTIONS(13597), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(1073), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152818] = 4,
-    ACTIONS(13556), 1,
-      anon_sym_COMMA,
-    ACTIONS(13645), 1,
-      anon_sym_RPAREN,
-    STATE(7315), 1,
-      aux_sym_parameters_repeat1,
+  [152788] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7358), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152832] = 3,
-    STATE(5015), 1,
+  [152802] = 3,
+    STATE(176), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13647), 2,
+    ACTIONS(13613), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152844] = 4,
-    ACTIONS(13631), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13633), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5016), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [152858] = 3,
-    STATE(5020), 1,
+  [152814] = 3,
+    STATE(978), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13649), 2,
+    ACTIONS(13615), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152870] = 4,
-    ACTIONS(13641), 1,
+  [152826] = 4,
+    ACTIONS(13617), 1,
+      aux_sym_included_items_token1,
+    ACTIONS(13619), 1,
+      aux_sym_implicit_statement_token2,
+    ACTIONS(13621), 1,
+      aux_sym__import_names_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [152840] = 4,
+    ACTIONS(13603), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13643), 1,
+    ACTIONS(13605), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5021), 1,
+    STATE(1082), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152884] = 3,
-    STATE(5040), 1,
+  [152854] = 3,
+    STATE(170), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13651), 2,
+    ACTIONS(13623), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [152866] = 3,
+    STATE(1090), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13625), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152896] = 4,
-    ACTIONS(13631), 1,
+  [152878] = 4,
+    ACTIONS(13595), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13633), 1,
+    ACTIONS(13597), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5042), 1,
+    STATE(1108), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152910] = 3,
-    STATE(5044), 1,
+  [152892] = 3,
+    STATE(1059), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13653), 2,
+    ACTIONS(13627), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152922] = 4,
-    ACTIONS(13641), 1,
+  [152904] = 4,
+    ACTIONS(13603), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13643), 1,
+    ACTIONS(13605), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5056), 1,
+    STATE(990), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152936] = 4,
-    ACTIONS(13655), 1,
-      sym__string_literal,
-    ACTIONS(13657), 1,
-      sym__string_literal_kind,
-    STATE(4954), 1,
-      sym_string_literal,
+  [152918] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7367), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [152950] = 3,
-    STATE(4268), 1,
-      sym__end_of_statement,
+  [152932] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7368), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13659), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [152962] = 3,
-    STATE(1660), 1,
+  [152946] = 3,
+    STATE(181), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13661), 2,
+    ACTIONS(13629), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152974] = 3,
-    STATE(5395), 1,
+  [152958] = 3,
+    STATE(5280), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13663), 2,
+    ACTIONS(13631), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [152986] = 3,
-    STATE(2581), 1,
-      sym__end_of_statement,
+  [152970] = 4,
+    ACTIONS(13633), 1,
+      sym__string_literal,
+    ACTIONS(13635), 1,
+      sym__string_literal_kind,
+    STATE(4503), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13665), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [152998] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13667), 1,
+  [152984] = 4,
+    ACTIONS(13637), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [153012] = 4,
-    ACTIONS(9748), 1,
-      anon_sym_RPAREN,
-    ACTIONS(13669), 1,
-      anon_sym_COMMA,
-    STATE(6590), 1,
-      aux_sym_case_value_range_list_repeat1,
+  [152998] = 3,
+    STATE(3949), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153026] = 2,
+    ACTIONS(13641), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153010] = 3,
+    STATE(1155), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13071), 3,
+    ACTIONS(13643), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
+  [153022] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7184), 1,
+      sym_format_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
   [153036] = 3,
-    STATE(1157), 1,
+    STATE(2614), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13672), 2,
+    ACTIONS(13645), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153048] = 4,
-    ACTIONS(9292), 1,
+    ACTIONS(13647), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9294), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1638), 1,
-      sym_end_type_statement,
+    ACTIONS(13649), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5161), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
   [153062] = 3,
-    STATE(2586), 1,
+    STATE(186), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13674), 2,
+    ACTIONS(13651), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153074] = 3,
-    STATE(1402), 1,
+    STATE(183), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13676), 2,
+    ACTIONS(13653), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153086] = 3,
-    STATE(1649), 1,
+  [153086] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13655), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [153100] = 3,
+    STATE(5162), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13678), 2,
+    ACTIONS(13657), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153098] = 3,
-    STATE(1656), 1,
+  [153112] = 3,
+    STATE(162), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13680), 2,
+    ACTIONS(13659), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153110] = 4,
-    ACTIONS(13682), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13684), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(851), 1,
-      sym_end_module_statement,
+  [153124] = 3,
+    ACTIONS(4343), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(4345), 2,
+      aux_sym_preproc_def_token2,
+      anon_sym_LPAREN,
+  [153136] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7063), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153124] = 3,
-    STATE(975), 1,
+  [153150] = 3,
+    STATE(1020), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13686), 2,
+    ACTIONS(13661), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153136] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13688), 1,
-      anon_sym_RPAREN,
-    STATE(7000), 1,
-      aux_sym__io_arguments_repeat1,
+  [153162] = 3,
+    STATE(2442), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153150] = 4,
-    ACTIONS(9653), 1,
-      anon_sym_COMMA,
-    ACTIONS(9655), 1,
-      anon_sym_RBRACK,
-    STATE(6612), 1,
-      aux_sym_coarray_index_repeat1,
+    ACTIONS(13663), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153174] = 3,
+    STATE(2896), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153164] = 4,
-    ACTIONS(13690), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13692), 1,
-      aux_sym_end_submodule_statement_token1,
-    STATE(853), 1,
-      sym_end_submodule_statement,
+    ACTIONS(13665), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153186] = 3,
+    STATE(4255), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153178] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9657), 1,
-      anon_sym_RPAREN,
-    STATE(6613), 1,
-      aux_sym__argument_list_repeat1,
+    ACTIONS(13667), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153198] = 4,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(1034), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153192] = 3,
-    STATE(1179), 1,
+  [153212] = 3,
+    STATE(1583), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13694), 2,
+    ACTIONS(13669), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153204] = 3,
-    STATE(1653), 1,
-      sym__end_of_statement,
+  [153224] = 4,
+    ACTIONS(13671), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13673), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(897), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13696), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153216] = 4,
-    ACTIONS(9292), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9294), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1655), 1,
-      sym_end_type_statement,
+  [153238] = 4,
+    ACTIONS(13675), 1,
+      sym__string_literal,
+    ACTIONS(13677), 1,
+      sym__string_literal_kind,
+    STATE(5026), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153230] = 3,
-    STATE(1658), 1,
+  [153252] = 3,
+    STATE(161), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13698), 2,
+    ACTIONS(13679), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153242] = 3,
-    STATE(1659), 1,
-      sym__end_of_statement,
+  [153264] = 4,
+    ACTIONS(13681), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13683), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5069), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13700), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153254] = 3,
-    STATE(2292), 1,
+  [153278] = 3,
+    STATE(5068), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13702), 2,
+    ACTIONS(13685), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153266] = 4,
-    ACTIONS(8771), 1,
-      anon_sym_COMMA,
-    ACTIONS(13704), 1,
+  [153290] = 4,
+    ACTIONS(9356), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13706), 1,
-      aux_sym_end_do_loop_statement_token1,
+    ACTIONS(9358), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1132), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153280] = 4,
-    ACTIONS(13708), 1,
+  [153304] = 4,
+    ACTIONS(13687), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13710), 1,
+    ACTIONS(13689), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(976), 1,
+    STATE(5067), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153294] = 4,
-    ACTIONS(13712), 1,
-      anon_sym_COMMA,
-    ACTIONS(13714), 1,
-      anon_sym_RBRACK,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
+  [153318] = 3,
+    STATE(5065), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153308] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(13716), 1,
-      anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
+    ACTIONS(13691), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153330] = 3,
+    STATE(2567), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153322] = 3,
-    STATE(1628), 1,
+    ACTIONS(13693), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153342] = 3,
+    STATE(1377), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13718), 2,
+    ACTIONS(13695), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153334] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13720), 1,
-      anon_sym_RBRACK,
-    STATE(6619), 1,
-      aux_sym_coarray_index_repeat2,
+  [153354] = 3,
+    STATE(1146), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153348] = 3,
-    STATE(647), 1,
+    ACTIONS(13697), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153366] = 3,
+    STATE(1140), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8239), 2,
+    ACTIONS(13699), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153360] = 4,
-    ACTIONS(13722), 1,
-      anon_sym_COMMA,
-    ACTIONS(13724), 1,
-      anon_sym_RPAREN,
-    STATE(6847), 1,
-      aux_sym__forall_control_expression_repeat1,
+  [153378] = 3,
+    STATE(121), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153374] = 4,
-    ACTIONS(13726), 1,
+    ACTIONS(13701), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153390] = 3,
+    ACTIONS(7613), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13728), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5151), 1,
-      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153388] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13730), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+    ACTIONS(7611), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [153402] = 4,
+    ACTIONS(13681), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13683), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5059), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153402] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13730), 1,
-      anon_sym_RBRACK,
-    STATE(6626), 1,
-      aux_sym_coarray_index_repeat2,
+  [153416] = 4,
+    ACTIONS(13687), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13689), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5037), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153416] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13732), 1,
+  [153430] = 4,
+    ACTIONS(9634), 1,
       anon_sym_RPAREN,
-    STATE(6470), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13703), 1,
+      anon_sym_COMMA,
+    STATE(6626), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153430] = 3,
-    STATE(566), 1,
+  [153444] = 3,
+    STATE(148), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13734), 2,
+    ACTIONS(13706), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153442] = 3,
-    STATE(5195), 1,
+  [153456] = 3,
+    STATE(5307), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13736), 2,
+    ACTIONS(13708), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153454] = 4,
-    ACTIONS(13726), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13728), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5199), 1,
-      sym_end_module_procedure_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
   [153468] = 3,
-    STATE(549), 1,
+    STATE(837), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13738), 2,
+    ACTIONS(13710), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153480] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(13740), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+    ACTIONS(13687), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13689), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5050), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
   [153494] = 3,
-    STATE(980), 1,
+    STATE(5049), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13742), 2,
+    ACTIONS(13712), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153506] = 3,
-    STATE(4943), 1,
-      sym__end_of_statement,
+  [153506] = 4,
+    ACTIONS(13681), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13683), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5045), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13744), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153518] = 4,
-    ACTIONS(13726), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13728), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4944), 1,
-      sym_end_module_procedure_statement,
+  [153520] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(6940), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153532] = 2,
+  [153534] = 4,
+    ACTIONS(9590), 1,
+      anon_sym_COMMA,
+    ACTIONS(9592), 1,
+      anon_sym_RBRACK,
+    STATE(6660), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13746), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [153542] = 3,
-    STATE(5374), 1,
+  [153548] = 3,
+    STATE(2785), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13748), 2,
+    ACTIONS(13714), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153554] = 3,
-    STATE(1654), 1,
-      sym__end_of_statement,
+  [153560] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9584), 1,
+      anon_sym_RPAREN,
+    STATE(6661), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13750), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153566] = 3,
-    STATE(1640), 1,
+  [153574] = 3,
+    STATE(985), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13752), 2,
+    ACTIONS(13716), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153578] = 4,
-    ACTIONS(13754), 1,
-      anon_sym_COMMA,
-    ACTIONS(13757), 1,
-      anon_sym_RPAREN,
-    STATE(6634), 1,
-      aux_sym__forall_control_expression_repeat1,
+  [153586] = 3,
+    STATE(2713), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153592] = 4,
-    ACTIONS(13759), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13761), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5135), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(13718), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153598] = 3,
+    STATE(984), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153606] = 4,
-    ACTIONS(13763), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13765), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(981), 1,
-      sym_end_function_statement,
+    ACTIONS(13720), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153610] = 3,
+    STATE(1150), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153620] = 4,
-    ACTIONS(13767), 1,
+    ACTIONS(13722), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153622] = 4,
+    ACTIONS(9356), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13769), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5137), 1,
-      sym_end_function_statement,
+    ACTIONS(9358), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1143), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153634] = 4,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    ACTIONS(13771), 1,
-      sym_preproc_comment,
-    STATE(5844), 1,
-      sym_case_statement,
+  [153636] = 3,
+    STATE(1142), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
+    ACTIONS(13724), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
   [153648] = 3,
-    STATE(5572), 1,
+    STATE(1141), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13773), 2,
+    ACTIONS(13726), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153660] = 3,
-    STATE(5563), 1,
-      sym__end_of_statement,
+  [153660] = 4,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(983), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13775), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153672] = 3,
-    STATE(5140), 1,
+  [153674] = 3,
+    STATE(2826), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13777), 2,
+    ACTIONS(13728), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153684] = 4,
-    ACTIONS(13759), 1,
+  [153686] = 4,
+    ACTIONS(13730), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13761), 1,
+    ACTIONS(13732), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5141), 1,
+    STATE(893), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153698] = 4,
-    ACTIONS(10758), 1,
+  [153700] = 4,
+    ACTIONS(9352), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7417), 1,
-      sym_end_select_statement,
+    ACTIONS(9354), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1454), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153712] = 3,
-    STATE(5143), 1,
+  [153714] = 3,
+    STATE(890), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13779), 2,
+    ACTIONS(13734), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153724] = 4,
-    ACTIONS(13767), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13769), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5144), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [153738] = 4,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7565), 1,
-      sym_end_select_statement,
+  [153726] = 3,
+    STATE(147), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153752] = 3,
-    STATE(5147), 1,
+    ACTIONS(13736), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [153738] = 3,
+    STATE(146), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13781), 2,
+    ACTIONS(13738), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153764] = 4,
-    ACTIONS(13759), 1,
+  [153750] = 4,
+    ACTIONS(13740), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13761), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5149), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(13742), 1,
+      aux_sym_end_submodule_statement_token1,
+    STATE(967), 1,
+      sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153778] = 3,
-    STATE(5153), 1,
+  [153764] = 3,
+    STATE(964), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13783), 2,
+    ACTIONS(13744), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153790] = 4,
-    ACTIONS(13767), 1,
+  [153776] = 4,
+    ACTIONS(13671), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13769), 1,
+    ACTIONS(13673), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5154), 1,
+    STATE(889), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153804] = 4,
-    ACTIONS(13448), 1,
+  [153790] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(13785), 1,
+    ACTIONS(13746), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
+    STATE(7074), 1,
       aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153818] = 4,
-    ACTIONS(13787), 1,
-      sym__string_literal,
-    ACTIONS(13789), 1,
-      sym__string_literal_kind,
-    STATE(5114), 1,
-      sym_string_literal,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [153832] = 3,
-    STATE(4264), 1,
+  [153804] = 3,
+    STATE(5279), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13791), 2,
+    ACTIONS(13748), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [153844] = 3,
-    STATE(1363), 1,
+  [153816] = 4,
+    ACTIONS(13750), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13752), 1,
+      aux_sym_end_module_statement_token1,
+    STATE(1050), 1,
+      sym_end_module_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [153830] = 3,
+    STATE(1051), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13793), 2,
+    ACTIONS(13754), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
+  [153842] = 4,
+    ACTIONS(13139), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13141), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(1060), 1,
+      sym_end_program_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
   [153856] = 3,
-    STATE(2634), 1,
+    STATE(1064), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13795), 2,
+    ACTIONS(13756), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153868] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13797), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+    ACTIONS(13758), 1,
+      anon_sym_COMMA,
+    ACTIONS(13760), 1,
+      anon_sym_RBRACK,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
   [153882] = 4,
-    ACTIONS(13448), 1,
+    ACTIONS(9544), 1,
       anon_sym_COMMA,
-    ACTIONS(13799), 1,
+    ACTIONS(13762), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153896] = 3,
-    STATE(1562), 1,
-      sym__end_of_statement,
+  [153896] = 4,
+    ACTIONS(13740), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13742), 1,
+      aux_sym_end_submodule_statement_token1,
+    STATE(1097), 1,
+      sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13801), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [153908] = 4,
-    ACTIONS(10548), 1,
-      anon_sym_SLASH,
-    ACTIONS(13803), 1,
+  [153910] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    STATE(6659), 1,
-      aux_sym_data_set_repeat1,
+    ACTIONS(13764), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [153922] = 4,
-    ACTIONS(9348), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9350), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1369), 1,
-      sym_end_type_statement,
+  [153924] = 3,
+    STATE(1138), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
+    ACTIONS(13766), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
   [153936] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13806), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13750), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13752), 1,
+      aux_sym_end_module_statement_token1,
+    STATE(992), 1,
+      sym_end_module_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
   [153950] = 3,
-    STATE(2636), 1,
+    STATE(1001), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13808), 2,
+    ACTIONS(8019), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153962] = 3,
-    STATE(1265), 1,
+    STATE(142), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13810), 2,
+    ACTIONS(13768), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153974] = 3,
-    STATE(1371), 1,
+    STATE(605), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13812), 2,
+    ACTIONS(13770), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153986] = 3,
-    STATE(1372), 1,
+    STATE(601), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13814), 2,
+    ACTIONS(13772), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [153998] = 4,
-    ACTIONS(13816), 1,
-      sym_preproc_comment,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5976), 1,
-      sym_rank_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154012] = 3,
-    STATE(760), 1,
-      sym__end_of_statement,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13774), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13820), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154024] = 4,
-    ACTIONS(13448), 1,
+  [154012] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(13822), 1,
+    ACTIONS(13776), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
+    STATE(7074), 1,
       aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154038] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9618), 1,
-      anon_sym_RPAREN,
-    STATE(6676), 1,
-      aux_sym__argument_list_repeat1,
+  [154026] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(6806), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154052] = 4,
-    ACTIONS(13434), 1,
+  [154040] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(13824), 1,
+    ACTIONS(13778), 1,
       anon_sym_RPAREN,
-    STATE(6463), 1,
-      aux_sym_implicit_statement_repeat3,
+    STATE(6523), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154066] = 3,
-    STATE(1646), 1,
+  [154054] = 3,
+    STATE(137), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13826), 2,
+    ACTIONS(13780), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154078] = 3,
-    STATE(1379), 1,
+  [154066] = 3,
+    STATE(136), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13828), 2,
+    ACTIONS(13782), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154090] = 4,
-    ACTIONS(9348), 1,
+  [154078] = 4,
+    ACTIONS(13730), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9350), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1380), 1,
-      sym_end_type_statement,
+    ACTIONS(13732), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(874), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154104] = 3,
-    STATE(1381), 1,
-      sym__end_of_statement,
+  [154092] = 4,
+    ACTIONS(13784), 1,
+      sym_preproc_comment,
+    ACTIONS(13786), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8490), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13830), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154116] = 3,
-    STATE(1382), 1,
+  [154106] = 3,
+    STATE(864), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13832), 2,
+    ACTIONS(13788), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154128] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(13834), 1,
-      anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154142] = 3,
-    STATE(558), 1,
+  [154118] = 3,
+    STATE(591), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13836), 2,
+    ACTIONS(13790), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154154] = 4,
-    ACTIONS(13448), 1,
+  [154130] = 4,
+    ACTIONS(13730), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13732), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(859), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154144] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(13838), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13792), 1,
+      anon_sym_RBRACK,
+    STATE(6705), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154168] = 3,
-    STATE(1385), 1,
+  [154158] = 3,
+    STATE(571), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13840), 2,
+    ACTIONS(13794), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154180] = 4,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7406), 1,
-      sym_end_select_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154194] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13842), 1,
-      anon_sym_RPAREN,
-    STATE(7125), 1,
-      aux_sym__io_arguments_repeat1,
+  [154170] = 3,
+    STATE(573), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154208] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13844), 1,
-      anon_sym_RPAREN,
-    STATE(7129), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13796), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154182] = 3,
+    STATE(854), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154222] = 3,
-    STATE(1556), 1,
+    ACTIONS(13798), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154194] = 3,
+    STATE(577), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13846), 2,
+    ACTIONS(13800), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154234] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(13848), 1,
-      anon_sym_RPAREN,
-    STATE(7133), 1,
-      aux_sym__io_arguments_repeat1,
+  [154206] = 3,
+    STATE(123), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154248] = 4,
-    ACTIONS(13850), 1,
+    ACTIONS(13802), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154218] = 4,
+    ACTIONS(13804), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13852), 1,
+    ACTIONS(13806), 1,
       aux_sym_end_module_procedure_statement_token1,
-    STATE(5063), 1,
+    STATE(4978), 1,
       sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154262] = 4,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(13854), 1,
-      sym_preproc_comment,
-    STATE(5843), 1,
-      sym_rank_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154276] = 4,
-    ACTIONS(10758), 1,
+  [154232] = 4,
+    ACTIONS(13808), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7368), 1,
-      sym_end_select_statement,
+    ACTIONS(13810), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4581), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154290] = 3,
-    STATE(5074), 1,
+  [154246] = 3,
+    STATE(4980), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13856), 2,
+    ACTIONS(13812), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154302] = 4,
-    ACTIONS(13850), 1,
+  [154258] = 4,
+    ACTIONS(13671), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13852), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5076), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(13673), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(850), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154316] = 4,
-    ACTIONS(13858), 1,
+  [154272] = 4,
+    ACTIONS(9649), 1,
       anon_sym_COMMA,
-    ACTIONS(13860), 1,
+    ACTIONS(13814), 1,
       anon_sym_RPAREN,
-    STATE(6573), 1,
-      aux_sym_concurrent_header_repeat1,
+    STATE(6541), 1,
+      aux_sym_case_value_range_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154286] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(6638), 1,
+      sym_format_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154300] = 4,
+    ACTIONS(13816), 1,
+      sym_preproc_comment,
+    ACTIONS(13818), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(8470), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154330] = 3,
-    STATE(682), 1,
+  [154314] = 3,
+    STATE(643), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13862), 2,
+    ACTIONS(13820), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154342] = 3,
-    STATE(5090), 1,
+  [154326] = 3,
+    STATE(171), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13864), 2,
+    ACTIONS(13822), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154354] = 4,
-    ACTIONS(13850), 1,
+  [154338] = 3,
+    STATE(153), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13824), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154350] = 3,
+    ACTIONS(7601), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13852), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5091), 1,
-      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154368] = 4,
-    ACTIONS(13866), 1,
+    ACTIONS(7599), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [154362] = 3,
+    ACTIONS(12873), 1,
+      anon_sym_SLASH,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    STATE(6219), 2,
+      sym_variable_group,
+      aux_sym_namelist_statement_repeat1,
+  [154374] = 4,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    STATE(7399), 1,
+      sym_end_if_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154388] = 4,
+    ACTIONS(13577), 1,
       anon_sym_COMMA,
-    ACTIONS(13869), 1,
+    ACTIONS(13826), 1,
       anon_sym_RPAREN,
-    STATE(6694), 1,
-      aux_sym_associate_statement_repeat1,
+    STATE(6555), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154382] = 3,
-    STATE(1414), 1,
-      sym__end_of_statement,
+  [154402] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13828), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13871), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154394] = 3,
-    STATE(1425), 1,
-      sym__end_of_statement,
+  [154416] = 4,
+    ACTIONS(10445), 1,
+      anon_sym_COMMA,
+    ACTIONS(13830), 1,
+      anon_sym_SLASH,
+    STATE(6815), 1,
+      aux_sym_data_value_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13873), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154406] = 3,
-    STATE(856), 1,
-      sym__end_of_statement,
+  [154430] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13875), 2,
+    ACTIONS(13832), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [154418] = 4,
-    ACTIONS(13877), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13879), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4756), 1,
-      sym_end_subroutine_statement,
+  [154440] = 4,
+    ACTIONS(10443), 1,
+      anon_sym_RPAREN,
+    ACTIONS(13834), 1,
+      anon_sym_COMMA,
+    STATE(6704), 1,
+      aux_sym_equivalence_set_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154432] = 4,
-    ACTIONS(13448), 1,
+  [154454] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(13881), 1,
-      anon_sym_RPAREN,
-    STATE(6964), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13837), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154446] = 4,
-    ACTIONS(13883), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13885), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4758), 1,
-      sym_end_function_statement,
+  [154468] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13837), 1,
+      anon_sym_RBRACK,
+    STATE(6724), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154460] = 3,
-    STATE(4761), 1,
-      sym__end_of_statement,
+  [154482] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13887), 2,
+    ACTIONS(13839), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [154472] = 4,
-    ACTIONS(13448), 1,
+  [154492] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(13889), 1,
-      anon_sym_RPAREN,
-    STATE(6991), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(13841), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154486] = 4,
-    ACTIONS(13877), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13879), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4762), 1,
-      sym_end_subroutine_statement,
+  [154506] = 4,
+    ACTIONS(13843), 1,
+      anon_sym_COMMA,
+    ACTIONS(13846), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154500] = 4,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7566), 1,
-      sym_end_select_statement,
+  [154520] = 3,
+    STATE(5268), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154514] = 3,
-    STATE(4764), 1,
+    ACTIONS(13848), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154532] = 3,
+    STATE(156), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13891), 2,
+    ACTIONS(13850), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154526] = 4,
-    ACTIONS(13883), 1,
+  [154544] = 4,
+    ACTIONS(13804), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13885), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4765), 1,
-      sym_end_function_statement,
+    ACTIONS(13806), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5120), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154540] = 3,
-    STATE(4766), 1,
+  [154558] = 3,
+    STATE(4517), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13893), 2,
+    ACTIONS(13852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154552] = 4,
-    ACTIONS(13877), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13879), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4767), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154566] = 3,
-    STATE(4768), 1,
+  [154570] = 3,
+    STATE(5121), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13895), 2,
+    ACTIONS(13854), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154578] = 4,
-    ACTIONS(13883), 1,
+  [154582] = 4,
+    ACTIONS(13808), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13885), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4769), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154592] = 4,
-    ACTIONS(7022), 1,
-      sym__string_literal,
-    ACTIONS(7024), 1,
-      sym__string_literal_kind,
-    STATE(4558), 1,
-      sym_string_literal,
+    ACTIONS(13810), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4520), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154606] = 4,
-    ACTIONS(10346), 1,
+  [154596] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(10348), 1,
+    ACTIONS(13856), 1,
       anon_sym_RPAREN,
-    STATE(7030), 1,
-      aux_sym_allocate_statement_repeat1,
+    STATE(6567), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154620] = 3,
-    STATE(4246), 1,
-      sym__end_of_statement,
+  [154610] = 4,
+    ACTIONS(13858), 1,
+      anon_sym_COMMA,
+    ACTIONS(13860), 1,
+      anon_sym_RPAREN,
+    STATE(6817), 1,
+      aux_sym_concurrent_header_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13897), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154632] = 3,
-    STATE(1391), 1,
+  [154624] = 3,
+    STATE(1016), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13546), 2,
+    ACTIONS(13862), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154644] = 3,
-    ACTIONS(13901), 1,
-      anon_sym_DASH,
+  [154636] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(6527), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13899), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [154656] = 3,
-    STATE(1936), 1,
+  [154650] = 3,
+    STATE(657), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13903), 2,
+    ACTIONS(13864), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154668] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(13905), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154682] = 4,
-    ACTIONS(13456), 1,
-      anon_sym_COMMA,
-    ACTIONS(13907), 1,
-      anon_sym_RPAREN,
-    STATE(6473), 1,
-      aux_sym_implicit_statement_repeat1,
+  [154662] = 3,
+    STATE(178), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154696] = 3,
-    STATE(1611), 1,
+    ACTIONS(13866), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [154674] = 3,
+    STATE(177), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13909), 2,
+    ACTIONS(13868), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154708] = 3,
-    ACTIONS(4285), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [154686] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7391), 1,
+      sym_end_select_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(4287), 2,
-      aux_sym_preproc_def_token2,
-      anon_sym_LPAREN,
-  [154720] = 4,
-    ACTIONS(9356), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9358), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1401), 1,
-      sym_end_type_statement,
+  [154700] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13870), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154734] = 4,
+  [154714] = 4,
     ACTIONS(10758), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(10764), 1,
       aux_sym_end_select_statement_token1,
-    STATE(7446), 1,
+    STATE(7408), 1,
       sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154748] = 3,
-    STATE(1969), 1,
+  [154728] = 3,
+    STATE(4289), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13911), 2,
+    ACTIONS(13872), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154760] = 3,
-    STATE(1179), 1,
+  [154740] = 3,
+    STATE(4193), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13694), 2,
+    ACTIONS(13874), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154772] = 3,
-    STATE(1403), 1,
+  [154752] = 3,
+    STATE(4596), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13913), 2,
+    ACTIONS(13876), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154784] = 3,
-    STATE(1404), 1,
-      sym__end_of_statement,
+  [154764] = 4,
+    ACTIONS(13808), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13810), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4608), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13915), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154796] = 3,
-    STATE(1583), 1,
-      sym__end_of_statement,
+  [154778] = 4,
+    ACTIONS(13647), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13649), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5150), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13917), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154808] = 3,
-    STATE(3103), 1,
+  [154792] = 3,
+    STATE(5155), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13919), 2,
+    ACTIONS(13878), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154820] = 2,
+  [154804] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13921), 3,
-      sym__external_end_of_statement,
+    ACTIONS(5443), 3,
+      anon_sym_RPAREN,
+      anon_sym_SLASH,
+      anon_sym_COLON,
+  [154814] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [154830] = 3,
-    STATE(1417), 1,
-      sym__end_of_statement,
+    ACTIONS(13880), 1,
+      anon_sym_RPAREN,
+    STATE(6654), 1,
+      aux_sym__io_arguments_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154828] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13882), 1,
+      anon_sym_RPAREN,
+    STATE(6663), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13923), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
   [154842] = 4,
-    ACTIONS(9356), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9358), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1418), 1,
-      sym_end_type_statement,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13884), 1,
+      anon_sym_RPAREN,
+    STATE(6670), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
   [154856] = 3,
-    STATE(1420), 1,
+    STATE(840), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13925), 2,
+    ACTIONS(13886), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
   [154868] = 3,
-    STATE(1421), 1,
+    STATE(845), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13927), 2,
+    ACTIONS(13888), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154880] = 3,
-    STATE(666), 1,
-      sym__end_of_statement,
+  [154880] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13890), 1,
+      anon_sym_RPAREN,
+    STATE(6671), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13929), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154892] = 4,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(857), 1,
-      sym_end_program_statement,
+  [154894] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13892), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154906] = 3,
-    STATE(1427), 1,
-      sym__end_of_statement,
+  [154908] = 4,
+    ACTIONS(13894), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13896), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5182), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13931), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154918] = 3,
-    STATE(859), 1,
+  [154922] = 3,
+    STATE(595), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13933), 2,
+    ACTIONS(13898), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154930] = 4,
-    ACTIONS(13682), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13684), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(860), 1,
-      sym_end_module_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [154944] = 3,
-    STATE(705), 1,
+  [154934] = 3,
+    STATE(599), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13935), 2,
+    ACTIONS(13900), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [154956] = 3,
-    STATE(862), 1,
-      sym__end_of_statement,
+  [154946] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13902), 1,
+      anon_sym_RBRACK,
+    STATE(6701), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13937), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154968] = 3,
-    STATE(5289), 1,
-      sym__end_of_statement,
+  [154960] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(13902), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13939), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [154980] = 4,
-    ACTIONS(13941), 1,
+  [154974] = 4,
+    ACTIONS(13904), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13943), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4904), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(13906), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5185), 1,
+      sym_end_function_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [154988] = 4,
+    ACTIONS(13908), 1,
+      anon_sym_COMMA,
+    ACTIONS(13910), 1,
+      anon_sym_RPAREN,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [154994] = 4,
-    ACTIONS(13690), 1,
+  [155002] = 4,
+    ACTIONS(13912), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13692), 1,
+    ACTIONS(13914), 1,
       aux_sym_end_submodule_statement_token1,
-    STATE(863), 1,
+    STATE(975), 1,
       sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155008] = 4,
-    ACTIONS(13448), 1,
+  [155016] = 4,
+    ACTIONS(13916), 1,
       anon_sym_COMMA,
-    ACTIONS(13945), 1,
+    ACTIONS(13918), 1,
       anon_sym_RPAREN,
-    STATE(7064), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155022] = 3,
-    STATE(5274), 1,
+  [155030] = 3,
+    STATE(5213), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13947), 2,
+    ACTIONS(13920), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155034] = 3,
-    STATE(1409), 1,
+  [155042] = 3,
+    STATE(151), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13949), 2,
+    ACTIONS(13922), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155046] = 2,
+  [155054] = 4,
+    ACTIONS(13894), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13896), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4935), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10871), 3,
-      sym__external_end_of_statement,
+  [155068] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [155056] = 3,
-    STATE(5564), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(13951), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155068] = 2,
+    ACTIONS(13924), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10871), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [155078] = 4,
-    ACTIONS(13953), 1,
+  [155082] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(13955), 1,
-      anon_sym_COLON_COLON,
-    STATE(6478), 1,
-      aux_sym_derived_type_statement_repeat1,
+    ACTIONS(13926), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155092] = 3,
-    STATE(4910), 1,
+  [155096] = 3,
+    STATE(5216), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13957), 2,
+    ACTIONS(13928), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155104] = 4,
-    ACTIONS(13941), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13943), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4911), 1,
-      sym_end_module_procedure_statement,
+  [155108] = 3,
+    STATE(724), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155118] = 4,
-    ACTIONS(13959), 1,
-      anon_sym_COMMA,
-    ACTIONS(13962), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+    ACTIONS(13930), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [155120] = 4,
+    ACTIONS(13904), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13906), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5217), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155132] = 3,
-    ACTIONS(13964), 1,
-      anon_sym_LPAREN2,
+  [155134] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(6936), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13966), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155144] = 3,
-    STATE(4918), 1,
+  [155148] = 3,
+    STATE(5233), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13968), 2,
+    ACTIONS(13932), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155156] = 4,
-    ACTIONS(13941), 1,
+  [155160] = 4,
+    ACTIONS(13894), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13943), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4920), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(13896), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5234), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155170] = 3,
-    ACTIONS(13970), 1,
-      anon_sym_COMMA,
+  [155174] = 3,
+    STATE(5235), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13972), 2,
+    ACTIONS(13934), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155182] = 3,
-    STATE(1475), 1,
-      sym__end_of_statement,
+  [155186] = 4,
+    ACTIONS(13904), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13906), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4936), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13974), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155194] = 3,
-    STATE(1488), 1,
-      sym__end_of_statement,
+  [155200] = 4,
+    ACTIONS(13936), 1,
+      aux_sym__standalone_type_qualifier_token7,
+    ACTIONS(13938), 1,
+      aux_sym__standalone_type_qualifier_token8,
+    ACTIONS(13940), 1,
+      aux_sym__standalone_type_qualifier_token9,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13976), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155206] = 4,
-    ACTIONS(13978), 1,
+  [155214] = 4,
+    ACTIONS(13942), 1,
       anon_sym_COMMA,
-    ACTIONS(13980), 1,
+    ACTIONS(13944), 1,
       anon_sym_RPAREN,
-    STATE(7106), 1,
-      aux_sym_associate_statement_repeat1,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155220] = 4,
-    ACTIONS(13982), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13984), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4548), 1,
-      sym_end_subroutine_statement,
+  [155228] = 4,
+    ACTIONS(13561), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(13563), 1,
+      aux_sym_format_statement_token1,
+    STATE(7154), 1,
+      sym_format_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155234] = 4,
-    ACTIONS(13986), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13988), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4577), 1,
-      sym_end_subroutine_statement,
+  [155242] = 4,
+    ACTIONS(13946), 1,
+      sym__string_literal,
+    ACTIONS(13948), 1,
+      sym__string_literal_kind,
+    STATE(5126), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155248] = 4,
-    ACTIONS(13990), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13992), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4559), 1,
-      sym_end_function_statement,
+  [155256] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(13950), 1,
+      anon_sym_RPAREN,
+    STATE(7253), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155262] = 4,
-    ACTIONS(13953), 1,
-      anon_sym_COMMA,
-    ACTIONS(13994), 1,
-      anon_sym_COLON_COLON,
-    STATE(7035), 1,
-      aux_sym_derived_type_statement_repeat1,
+  [155270] = 3,
+    STATE(4272), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155276] = 3,
-    STATE(4646), 1,
+    ACTIONS(13952), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [155282] = 3,
+    STATE(1643), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13996), 2,
+    ACTIONS(13954), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155288] = 4,
-    ACTIONS(13982), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13984), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4588), 1,
-      sym_end_subroutine_statement,
+  [155294] = 4,
+    ACTIONS(9649), 1,
+      anon_sym_COMMA,
+    ACTIONS(9651), 1,
+      anon_sym_RPAREN,
+    STATE(6691), 1,
+      aux_sym_case_value_range_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155302] = 3,
-    STATE(4620), 1,
+  [155308] = 3,
+    STATE(2462), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13998), 2,
+    ACTIONS(13956), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155314] = 4,
-    ACTIONS(14000), 1,
+  [155320] = 4,
+    ACTIONS(10758), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14002), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4579), 1,
-      sym_end_function_statement,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7454), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155328] = 4,
-    ACTIONS(13990), 1,
+  [155334] = 4,
+    ACTIONS(10758), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13992), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4500), 1,
-      sym_end_function_statement,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7457), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155342] = 3,
-    STATE(4633), 1,
+  [155348] = 3,
+    STATE(131), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14004), 2,
+    ACTIONS(13958), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155354] = 4,
-    ACTIONS(13982), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13984), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4506), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [155368] = 3,
-    STATE(4512), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [155360] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13960), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14006), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155380] = 4,
-    ACTIONS(13990), 1,
+  [155374] = 4,
+    ACTIONS(13804), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13992), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4521), 1,
-      sym_end_function_statement,
+    ACTIONS(13806), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5085), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155394] = 4,
-    ACTIONS(14008), 1,
-      sym__string_literal,
-    ACTIONS(14010), 1,
-      sym__string_literal_kind,
-    STATE(4926), 1,
-      sym_string_literal,
+  [155388] = 4,
+    ACTIONS(13962), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13964), 1,
+      aux_sym_end_module_statement_token1,
+    STATE(1087), 1,
+      sym_end_module_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155408] = 4,
-    ACTIONS(13452), 1,
-      anon_sym_COMMA,
-    ACTIONS(14012), 1,
-      anon_sym_RPAREN,
-    STATE(6471), 1,
-      aux_sym_procedure_attributes_repeat1,
+  [155402] = 3,
+    STATE(179), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155422] = 3,
-    STATE(4270), 1,
+    ACTIONS(13966), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [155414] = 3,
+    STATE(647), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14014), 2,
+    ACTIONS(13968), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155434] = 3,
-    STATE(1254), 1,
+  [155426] = 3,
+    STATE(651), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14016), 2,
+    ACTIONS(8035), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155446] = 3,
-    STATE(1798), 1,
+  [155438] = 4,
+    ACTIONS(13103), 1,
+      sym__integer_literal,
+    STATE(7219), 1,
+      sym_statement_label,
+    STATE(7458), 1,
+      sym_statement_label_reference,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155452] = 3,
+    STATE(1175), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14018), 2,
+    ACTIONS(13970), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155458] = 4,
-    ACTIONS(13540), 1,
+  [155464] = 4,
+    ACTIONS(11901), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(11903), 1,
+      aux_sym_end_if_statement_token1,
+    STATE(7460), 1,
+      sym_end_if_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155478] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13972), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155492] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14020), 1,
+    ACTIONS(13974), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [155472] = 3,
-    STATE(5360), 1,
+  [155506] = 3,
+    STATE(761), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14022), 2,
+    ACTIONS(13976), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155484] = 4,
-    ACTIONS(9276), 1,
+  [155518] = 3,
+    STATE(616), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(13978), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [155530] = 4,
+    ACTIONS(9296), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9278), 1,
+    ACTIONS(9298), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1263), 1,
+    STATE(1640), 1,
       sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155498] = 4,
-    ACTIONS(13452), 1,
+  [155544] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(14024), 1,
-      anon_sym_RPAREN,
-    STATE(6471), 1,
-      aux_sym_procedure_attributes_repeat1,
+    ACTIONS(13980), 1,
+      anon_sym_RBRACK,
+    STATE(6744), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155512] = 3,
-    STATE(1799), 1,
+  [155558] = 3,
+    STATE(2544), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14026), 2,
+    ACTIONS(13982), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155524] = 3,
-    STATE(1570), 1,
+  [155570] = 3,
+    STATE(1606), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14028), 2,
+    ACTIONS(13984), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155536] = 3,
-    STATE(1266), 1,
+  [155582] = 3,
+    STATE(1654), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14030), 2,
+    ACTIONS(13986), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155548] = 3,
-    STATE(1268), 1,
+  [155594] = 3,
+    STATE(1645), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14032), 2,
+    ACTIONS(13988), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155560] = 4,
-    ACTIONS(14034), 1,
-      anon_sym_COMMA,
-    ACTIONS(14037), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
-    ACTIONS(21), 2,
+  [155606] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13990), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [155574] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(14039), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
-    ACTIONS(21), 2,
+  [155620] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13992), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155634] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(13994), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [155588] = 3,
-    STATE(1370), 1,
+  [155648] = 3,
+    STATE(1395), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13550), 2,
+    ACTIONS(13996), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155600] = 3,
-    STATE(1277), 1,
+  [155660] = 4,
+    ACTIONS(13577), 1,
+      anon_sym_COMMA,
+    ACTIONS(13998), 1,
+      anon_sym_RPAREN,
+    STATE(6626), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155674] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14000), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155688] = 3,
+    STATE(654), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14041), 2,
+    ACTIONS(14002), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155612] = 4,
-    ACTIONS(9276), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9278), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1278), 1,
-      sym_end_type_statement,
+  [155700] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14004), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155714] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14006), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155728] = 4,
+    ACTIONS(9674), 1,
+      anon_sym_COMMA,
+    ACTIONS(9676), 1,
+      anon_sym_RBRACK,
+    STATE(6821), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155626] = 3,
-    STATE(1279), 1,
+  [155742] = 4,
+    ACTIONS(14008), 1,
+      anon_sym_COMMA,
+    ACTIONS(14010), 1,
+      anon_sym_RPAREN,
+    STATE(6717), 1,
+      aux_sym_concurrent_header_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155756] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9682), 1,
+      anon_sym_RPAREN,
+    STATE(6822), 1,
+      aux_sym__argument_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155770] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14012), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155784] = 3,
+    STATE(1189), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14043), 2,
+    ACTIONS(14014), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155638] = 3,
-    STATE(1282), 1,
+  [155796] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14016), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155810] = 3,
+    STATE(1632), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14045), 2,
+    ACTIONS(14018), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155650] = 4,
-    ACTIONS(14047), 1,
-      sym__string_literal,
-    ACTIONS(14049), 1,
-      sym__string_literal_kind,
-    STATE(5037), 1,
-      sym_string_literal,
+  [155822] = 4,
+    ACTIONS(9296), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9298), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1631), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155664] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14051), 1,
-      anon_sym_RPAREN,
-    STATE(7158), 1,
-      aux_sym__io_arguments_repeat1,
+  [155836] = 3,
+    STATE(1630), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155678] = 3,
-    STATE(1283), 1,
+    ACTIONS(14020), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [155848] = 3,
+    STATE(1634), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14053), 2,
+    ACTIONS(14022), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155690] = 3,
-    STATE(619), 1,
-      sym__end_of_statement,
+  [155860] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8343), 2,
+    ACTIONS(14024), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [155702] = 3,
-    ACTIONS(14055), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(21), 2,
+  [155870] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14026), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14057), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [155714] = 4,
-    ACTIONS(11451), 1,
+  [155884] = 4,
+    ACTIONS(14028), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
+    ACTIONS(14030), 1,
       aux_sym_end_program_statement_token2,
-    STATE(844), 1,
+    STATE(998), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155728] = 3,
-    STATE(3972), 1,
-      sym_access_specifier,
+  [155898] = 4,
+    ACTIONS(14032), 1,
+      anon_sym_COMMA,
+    ACTIONS(14035), 1,
+      anon_sym_SLASH,
+    STATE(6815), 1,
+      aux_sym_data_value_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11979), 2,
-      aux_sym_private_statement_token1,
-      aux_sym_public_statement_token1,
-  [155740] = 3,
-    STATE(5567), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [155912] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14037), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14059), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155752] = 4,
-    ACTIONS(14061), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14063), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5229), 1,
-      sym_end_module_procedure_statement,
+  [155926] = 4,
+    ACTIONS(14039), 1,
+      anon_sym_COMMA,
+    ACTIONS(14042), 1,
+      anon_sym_RPAREN,
+    STATE(6817), 1,
+      aux_sym_concurrent_header_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155766] = 3,
-    STATE(4260), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [155940] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14044), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14065), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155778] = 3,
-    STATE(2867), 1,
-      sym__end_of_statement,
+  [155954] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14067), 2,
+    ACTIONS(14046), 3,
       sym__external_end_of_statement,
+      anon_sym_LPAREN2,
       anon_sym_SEMI,
-  [155790] = 4,
-    ACTIONS(7470), 1,
-      sym__integer_literal,
-    STATE(4019), 1,
-      sym_statement_label,
-    STATE(7972), 1,
-      sym_statement_label_reference,
+  [155964] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14048), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [155978] = 4,
+    ACTIONS(14050), 1,
+      anon_sym_COMMA,
+    ACTIONS(14052), 1,
+      anon_sym_RBRACK,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155804] = 3,
-    STATE(1715), 1,
-      sym__end_of_statement,
+  [155992] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(14054), 1,
+      anon_sym_RPAREN,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14069), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155816] = 3,
-    STATE(847), 1,
-      sym__end_of_statement,
+  [156006] = 4,
+    ACTIONS(10877), 1,
+      anon_sym_COMMA,
+    ACTIONS(14056), 1,
+      anon_sym_RPAREN,
+    STATE(6875), 1,
+      aux_sym_preproc_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14071), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155828] = 4,
-    ACTIONS(13448), 1,
+  [156020] = 4,
+    ACTIONS(10406), 1,
       anon_sym_COMMA,
-    ACTIONS(14073), 1,
+    ACTIONS(14058), 1,
       anon_sym_RPAREN,
-    STATE(7180), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(6704), 1,
+      aux_sym_equivalence_set_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155842] = 3,
-    STATE(5045), 1,
+  [156034] = 3,
+    STATE(1660), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14075), 2,
+    ACTIONS(14060), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155854] = 4,
-    ACTIONS(14077), 1,
-      aux_sym__standalone_type_qualifier_token7,
-    ACTIONS(14079), 1,
-      aux_sym__standalone_type_qualifier_token8,
-    ACTIONS(14081), 1,
-      aux_sym__standalone_type_qualifier_token9,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [155868] = 4,
-    ACTIONS(14061), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14063), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5046), 1,
-      sym_end_module_procedure_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [155882] = 4,
-    ACTIONS(13540), 1,
+  [156046] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14083), 1,
+    ACTIONS(14062), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [155896] = 3,
-    STATE(4963), 1,
+  [156060] = 3,
+    STATE(667), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14085), 2,
+    ACTIONS(12626), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155908] = 4,
-    ACTIONS(14061), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14063), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5004), 1,
-      sym_end_module_procedure_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [155922] = 3,
-    STATE(5565), 1,
+  [156072] = 3,
+    STATE(2794), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14087), 2,
+    ACTIONS(14064), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [155934] = 4,
-    ACTIONS(10211), 1,
-      anon_sym_COMMA,
-    ACTIONS(10213), 1,
-      anon_sym_RPAREN,
-    STATE(7190), 1,
-      aux_sym_allocate_statement_repeat1,
+  [156084] = 4,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7194), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155948] = 3,
-    STATE(1037), 1,
-      sym__end_of_statement,
+  [156098] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14089), 2,
+    ACTIONS(14066), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [155960] = 3,
-    STATE(1038), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156108] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14068), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14091), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [155972] = 4,
-    ACTIONS(14093), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14095), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5065), 1,
-      sym_end_subroutine_statement,
+  [156122] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14070), 1,
+      anon_sym_RBRACK,
+    STATE(6849), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [155986] = 4,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(6899), 1,
-      sym_argument_list,
+  [156136] = 4,
+    ACTIONS(14072), 1,
+      anon_sym_COMMA,
+    ACTIONS(14074), 1,
+      anon_sym_RPAREN,
+    STATE(7261), 1,
+      aux_sym_procedure_attributes_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156000] = 4,
-    ACTIONS(14097), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14099), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(885), 1,
-      sym_end_subroutine_statement,
+  [156150] = 4,
+    ACTIONS(14072), 1,
+      anon_sym_COMMA,
+    ACTIONS(14076), 1,
+      anon_sym_RPAREN,
+    STATE(7261), 1,
+      aux_sym_procedure_attributes_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156014] = 4,
-    ACTIONS(14101), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14103), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5079), 1,
-      sym_end_function_statement,
+  [156164] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14078), 1,
+      anon_sym_RBRACK,
+    STATE(6708), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156028] = 3,
-    STATE(5165), 1,
+  [156178] = 3,
+    STATE(2244), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14105), 2,
+    ACTIONS(14080), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156040] = 4,
-    ACTIONS(14093), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14095), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5166), 1,
-      sym_end_subroutine_statement,
+  [156190] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14082), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156204] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14078), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156054] = 4,
-    ACTIONS(14107), 1,
+  [156218] = 4,
+    ACTIONS(14084), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14109), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(887), 1,
-      sym_end_function_statement,
+    ACTIONS(14086), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5089), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156068] = 3,
-    STATE(5170), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156232] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14088), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14111), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156080] = 4,
-    ACTIONS(14113), 1,
-      aux_sym_included_items_token1,
-    ACTIONS(14115), 1,
-      aux_sym_implicit_statement_token2,
-    ACTIONS(14117), 1,
-      aux_sym__import_names_token1,
+  [156246] = 4,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7475), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156094] = 4,
-    ACTIONS(14101), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14103), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5191), 1,
-      sym_end_function_statement,
+  [156260] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14090), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156274] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14092), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156288] = 4,
+    ACTIONS(14094), 1,
+      anon_sym_COMMA,
+    ACTIONS(14096), 1,
+      anon_sym_RPAREN,
+    STATE(6969), 1,
+      aux_sym__forall_control_expression_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156108] = 3,
-    STATE(5209), 1,
-      sym__end_of_statement,
+  [156302] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14119), 2,
+    ACTIONS(14098), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156120] = 4,
-    ACTIONS(14093), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14095), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5231), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
+  [156312] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14100), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [156134] = 3,
-    STATE(5233), 1,
+  [156326] = 3,
+    STATE(5278), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14121), 2,
+    ACTIONS(14102), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156146] = 4,
-    ACTIONS(14101), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14103), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5236), 1,
-      sym_end_function_statement,
+  [156338] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14104), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156352] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14106), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156160] = 3,
-    STATE(690), 1,
-      sym__end_of_statement,
+  [156366] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14106), 1,
+      anon_sym_RBRACK,
+    STATE(6865), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14123), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156172] = 4,
-    ACTIONS(7010), 1,
-      sym__string_literal,
-    ACTIONS(7012), 1,
-      sym__string_literal_kind,
-    STATE(4926), 1,
-      sym_string_literal,
+  [156380] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14108), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156394] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(14110), 1,
+      anon_sym_RPAREN,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156186] = 3,
-    STATE(1157), 1,
-      sym__end_of_statement,
+  [156408] = 4,
+    ACTIONS(14112), 1,
+      anon_sym_COMMA,
+    ACTIONS(14114), 1,
+      anon_sym_RBRACK,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13672), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156198] = 3,
-    STATE(2016), 1,
-      sym__end_of_statement,
+  [156422] = 4,
+    ACTIONS(14116), 1,
+      anon_sym_COMMA,
+    ACTIONS(14119), 1,
+      anon_sym_RPAREN,
+    STATE(6854), 1,
+      aux_sym_implicit_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14125), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156210] = 4,
-    ACTIONS(13540), 1,
+  [156436] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14127), 1,
+    ACTIONS(14121), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [156224] = 4,
-    ACTIONS(11451), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(849), 1,
-      sym_end_program_statement,
-    ACTIONS(21), 2,
+  [156450] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14123), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [156238] = 3,
-    STATE(1660), 1,
+  [156464] = 3,
+    STATE(5107), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13661), 2,
+    ACTIONS(14125), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156250] = 4,
-    ACTIONS(9284), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9286), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1185), 1,
-      sym_end_type_statement,
-    ACTIONS(21), 2,
+  [156476] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14127), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [156264] = 4,
-    ACTIONS(9250), 1,
+  [156490] = 4,
+    ACTIONS(14084), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9264), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1602), 1,
-      sym_end_type_statement,
+    ACTIONS(14086), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5108), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156278] = 3,
-    STATE(2017), 1,
-      sym__end_of_statement,
+  [156504] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14129), 2,
+    ACTIONS(14024), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156290] = 3,
-    STATE(1621), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156514] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14129), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14131), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156302] = 3,
-    STATE(1159), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156528] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14131), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14133), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156314] = 3,
-    STATE(1164), 1,
-      sym__end_of_statement,
+  [156542] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14135), 2,
+    ACTIONS(14133), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156326] = 3,
-    STATE(1402), 1,
-      sym__end_of_statement,
+  [156552] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13676), 2,
+    ACTIONS(13154), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156338] = 4,
-    ACTIONS(14137), 1,
+  [156562] = 4,
+    ACTIONS(13434), 1,
       anon_sym_COMMA,
-    ACTIONS(14139), 1,
-      anon_sym_RPAREN,
-    STATE(6634), 1,
-      aux_sym__forall_control_expression_repeat1,
+    ACTIONS(14135), 1,
+      anon_sym_RBRACK,
+    STATE(6709), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156352] = 3,
-    STATE(1165), 1,
-      sym__end_of_statement,
+  [156576] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14137), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14141), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156364] = 4,
-    ACTIONS(9284), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9286), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1172), 1,
-      sym_end_type_statement,
+  [156590] = 4,
+    ACTIONS(14139), 1,
+      anon_sym_COMMA,
+    ACTIONS(14142), 1,
+      anon_sym_RPAREN,
+    STATE(6867), 1,
+      aux_sym_implicit_statement_repeat3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156378] = 3,
-    STATE(1175), 1,
+  [156604] = 3,
+    STATE(2455), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14143), 2,
+    ACTIONS(14144), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156390] = 3,
-    STATE(1176), 1,
+  [156616] = 3,
+    STATE(5116), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14145), 2,
+    ACTIONS(14146), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156402] = 4,
-    ACTIONS(9340), 1,
+  [156628] = 4,
+    ACTIONS(14084), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9342), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2841), 1,
-      sym_end_type_statement,
+    ACTIONS(14086), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5117), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156416] = 3,
-    STATE(1180), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156642] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14148), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14147), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156428] = 3,
-    STATE(5099), 1,
+  [156656] = 3,
+    STATE(2450), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14149), 2,
+    ACTIONS(14150), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156440] = 3,
-    STATE(1763), 1,
-      sym__end_of_statement,
+  [156668] = 4,
+    ACTIONS(5507), 1,
+      sym__string_literal,
+    ACTIONS(5509), 1,
+      sym__string_literal_kind,
+    STATE(7545), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14151), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156452] = 3,
-    STATE(1150), 1,
-      sym__end_of_statement,
+  [156682] = 4,
+    ACTIONS(14152), 1,
+      anon_sym_COMMA,
+    ACTIONS(14155), 1,
+      anon_sym_RPAREN,
+    STATE(6874), 1,
+      aux_sym_preproc_params_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14153), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156464] = 3,
-    STATE(2786), 1,
-      sym__end_of_statement,
+  [156696] = 4,
+    ACTIONS(11027), 1,
+      anon_sym_RPAREN,
+    ACTIONS(14157), 1,
+      anon_sym_COMMA,
+    STATE(6875), 1,
+      aux_sym_preproc_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14155), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156476] = 3,
-    STATE(2791), 1,
+  [156710] = 3,
+    STATE(1650), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14157), 2,
+    ACTIONS(14160), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156488] = 3,
-    STATE(5277), 1,
+  [156722] = 3,
+    STATE(1646), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14159), 2,
+    ACTIONS(14162), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156500] = 2,
+  [156734] = 3,
+    STATE(1856), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14161), 3,
+    ACTIONS(14164), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156510] = 4,
-    ACTIONS(10476), 1,
-      anon_sym_RPAREN,
-    ACTIONS(14163), 1,
-      anon_sym_COMMA,
-    STATE(6861), 1,
-      aux_sym_equivalence_set_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [156524] = 3,
-    STATE(663), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [156746] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14166), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14166), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156536] = 4,
+  [156760] = 4,
     ACTIONS(14168), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(14170), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5107), 1,
-      sym_end_module_procedure_statement,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5047), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156550] = 3,
-    STATE(5385), 1,
+  [156774] = 3,
+    STATE(1844), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -618207,516 +618224,459 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14172), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156562] = 3,
-    STATE(1182), 1,
-      sym__end_of_statement,
+  [156786] = 4,
+    ACTIONS(14174), 1,
+      aux_sym_included_items_token1,
+    ACTIONS(14176), 1,
+      aux_sym_implicit_statement_token2,
+    ACTIONS(14178), 1,
+      aux_sym__import_names_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14174), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156574] = 3,
-    STATE(1184), 1,
-      sym__end_of_statement,
+  [156800] = 4,
+    ACTIONS(14180), 1,
+      anon_sym_COMMA,
+    ACTIONS(14182), 1,
+      anon_sym_RPAREN,
+    STATE(6948), 1,
+      aux_sym_associate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14176), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156586] = 3,
-    STATE(5560), 1,
+  [156814] = 3,
+    STATE(612), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14178), 2,
+    ACTIONS(14184), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156598] = 4,
-    ACTIONS(14180), 1,
+  [156826] = 4,
+    ACTIONS(14186), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14182), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5161), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(14188), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4996), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156612] = 4,
-    ACTIONS(14184), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14186), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5169), 1,
-      sym_end_function_statement,
+  [156840] = 3,
+    STATE(5270), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156626] = 3,
-    STATE(2286), 1,
+    ACTIONS(14190), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [156852] = 3,
+    STATE(2467), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14188), 2,
+    ACTIONS(14192), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156638] = 3,
-    ACTIONS(12803), 1,
-      anon_sym_SLASH,
+  [156864] = 4,
+    ACTIONS(14194), 1,
+      anon_sym_COMMA,
+    ACTIONS(14196), 1,
+      anon_sym_COLON_COLON,
+    STATE(7096), 1,
+      aux_sym_derived_type_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    STATE(6173), 2,
-      sym_variable_group,
-      aux_sym_namelist_statement_repeat1,
-  [156650] = 3,
-    STATE(5173), 1,
+  [156878] = 3,
+    STATE(5020), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14190), 2,
+    ACTIONS(14198), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156662] = 4,
-    ACTIONS(14180), 1,
+  [156890] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14200), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [156904] = 4,
+    ACTIONS(14168), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14182), 1,
+    ACTIONS(14170), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5174), 1,
+    STATE(5019), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156676] = 3,
-    STATE(5293), 1,
+  [156918] = 3,
+    STATE(2468), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14192), 2,
+    ACTIONS(14202), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156688] = 4,
-    ACTIONS(9678), 1,
-      anon_sym_COMMA,
-    ACTIONS(9680), 1,
-      anon_sym_RPAREN,
-    STATE(7187), 1,
-      aux_sym_case_value_range_list_repeat1,
+  [156930] = 4,
+    ACTIONS(13647), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(13649), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5010), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156702] = 3,
-    STATE(5178), 1,
+  [156944] = 3,
+    STATE(4999), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14194), 2,
+    ACTIONS(14204), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156714] = 3,
-    STATE(686), 1,
+  [156956] = 3,
+    STATE(2306), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14196), 2,
+    ACTIONS(14206), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156726] = 4,
-    ACTIONS(14184), 1,
-      aux_sym_end_program_statement_token1,
+  [156968] = 4,
     ACTIONS(14186), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14188), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5182), 1,
+    STATE(4942), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156740] = 2,
+  [156982] = 4,
+    ACTIONS(14208), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14210), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(1080), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14198), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [156750] = 3,
-    STATE(5201), 1,
+  [156996] = 3,
+    STATE(4988), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14200), 2,
+    ACTIONS(14212), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156762] = 4,
-    ACTIONS(14180), 1,
+  [157008] = 4,
+    ACTIONS(14168), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14182), 1,
+    ACTIONS(14170), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5204), 1,
+    STATE(4987), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156776] = 3,
-    STATE(5205), 1,
+  [157022] = 3,
+    STATE(4986), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14202), 2,
+    ACTIONS(14214), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156788] = 4,
-    ACTIONS(14184), 1,
-      aux_sym_end_program_statement_token1,
+  [157034] = 4,
     ACTIONS(14186), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14188), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5241), 1,
+    STATE(4985), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [156802] = 3,
-    STATE(649), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(8227), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156814] = 4,
-    ACTIONS(14204), 1,
-      sym__string_literal,
-    ACTIONS(14206), 1,
-      sym__string_literal_kind,
-    STATE(5050), 1,
-      sym_string_literal,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [156828] = 2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(14208), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [156838] = 3,
-    STATE(2707), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(14210), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156850] = 3,
-    STATE(2193), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(14212), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156862] = 4,
-    ACTIONS(13540), 1,
+  [157048] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14214), 1,
+    ACTIONS(14216), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [156876] = 3,
-    STATE(5569), 1,
+  [157062] = 3,
+    STATE(2305), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14216), 2,
+    ACTIONS(14218), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156888] = 2,
+  [157074] = 3,
+    STATE(1088), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13325), 3,
+    ACTIONS(14220), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [156898] = 3,
-    ACTIONS(7619), 1,
-      aux_sym_end_program_statement_token1,
+  [157086] = 4,
+    ACTIONS(14222), 1,
+      sym__string_literal,
+    ACTIONS(14224), 1,
+      sym__string_literal_kind,
+    STATE(5111), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7617), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [156910] = 4,
-    ACTIONS(9280), 1,
+  [157100] = 4,
+    ACTIONS(14226), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9282), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2719), 1,
-      sym_end_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [156924] = 3,
-    STATE(2194), 1,
-      sym__end_of_statement,
+    ACTIONS(14228), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(1039), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14218), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [156936] = 3,
-    STATE(2722), 1,
+  [157114] = 3,
+    STATE(4260), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14220), 2,
+    ACTIONS(14230), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156948] = 3,
-    STATE(2725), 1,
+  [157126] = 3,
+    STATE(1503), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14222), 2,
+    ACTIONS(13607), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156960] = 3,
-    STATE(133), 1,
+  [157138] = 3,
+    STATE(1041), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14224), 2,
+    ACTIONS(14232), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156972] = 4,
-    ACTIONS(13978), 1,
-      anon_sym_COMMA,
-    ACTIONS(14226), 1,
-      anon_sym_RPAREN,
-    STATE(7065), 1,
-      aux_sym_associate_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [156986] = 3,
-    STATE(691), 1,
+  [157150] = 3,
+    STATE(2404), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14228), 2,
+    ACTIONS(14234), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [156998] = 3,
-    STATE(1570), 1,
-      sym__end_of_statement,
+  [157162] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14028), 2,
+    ACTIONS(13299), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [157010] = 3,
-    STATE(2729), 1,
-      sym__end_of_statement,
+  [157172] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14230), 2,
+    ACTIONS(14236), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [157022] = 4,
-    ACTIONS(9280), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9282), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2730), 1,
-      sym_end_type_statement,
-    ACTIONS(21), 2,
+  [157182] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14238), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [157036] = 3,
-    STATE(2762), 1,
-      sym__end_of_statement,
+  [157196] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14232), 2,
+    ACTIONS(14240), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [157048] = 3,
-    STATE(2764), 1,
+  [157206] = 3,
+    STATE(2654), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14234), 2,
+    ACTIONS(14242), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157060] = 3,
-    STATE(2682), 1,
+  [157218] = 3,
+    STATE(2774), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14236), 2,
+    ACTIONS(14244), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157072] = 2,
+  [157230] = 3,
+    STATE(2775), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14238), 3,
+    ACTIONS(14246), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [157082] = 4,
-    ACTIONS(10440), 1,
+  [157242] = 4,
+    ACTIONS(14248), 1,
       anon_sym_COMMA,
-    ACTIONS(14240), 1,
-      anon_sym_SLASH,
-    STATE(7310), 1,
-      aux_sym_data_value_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157096] = 4,
-    ACTIONS(9640), 1,
+    ACTIONS(14251), 1,
       anon_sym_RPAREN,
-    ACTIONS(14242), 1,
-      anon_sym_COMMA,
-    STATE(6908), 1,
-      aux_sym_parameters_repeat1,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157110] = 2,
+  [157256] = 3,
+    STATE(1360), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13270), 3,
+    ACTIONS(14253), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [157120] = 4,
-    ACTIONS(9570), 1,
-      anon_sym_COMMA,
-    ACTIONS(9592), 1,
-      anon_sym_RBRACK,
-    STATE(6992), 1,
-      aux_sym_coarray_index_repeat1,
-    ACTIONS(21), 2,
+  [157268] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14255), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [157134] = 3,
-    ACTIONS(14245), 1,
-      anon_sym_COMMA,
+  [157282] = 3,
+    STATE(2653), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14247), 2,
+    ACTIONS(14257), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157146] = 3,
-    STATE(1052), 1,
-      sym__end_of_statement,
+  [157294] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14259), 1,
+      anon_sym_RPAREN,
+    STATE(6739), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14249), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157158] = 3,
-    STATE(2697), 1,
-      sym__end_of_statement,
+  [157308] = 4,
+    ACTIONS(10386), 1,
+      anon_sym_COMMA,
+    ACTIONS(10388), 1,
+      anon_sym_RPAREN,
+    STATE(6748), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14251), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157170] = 3,
-    STATE(2701), 1,
-      sym__end_of_statement,
+  [157322] = 4,
+    ACTIONS(6702), 1,
+      anon_sym_LPAREN2,
+    STATE(2445), 1,
+      sym__argument_list,
+    STATE(3405), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14253), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157182] = 4,
-    ACTIONS(14255), 1,
+  [157336] = 4,
+    ACTIONS(9284), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14257), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4791), 1,
-      sym_end_subroutine_statement,
+    ACTIONS(9286), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1371), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157196] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9598), 1,
-      anon_sym_RPAREN,
-    STATE(6995), 1,
-      aux_sym__argument_list_repeat1,
+  [157350] = 4,
+    ACTIONS(9344), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9346), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(2782), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157210] = 3,
-    STATE(667), 1,
+  [157364] = 3,
+    STATE(2640), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14259), 2,
+    ACTIONS(14261), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157222] = 3,
-    STATE(1066), 1,
+  [157376] = 3,
+    STATE(1280), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14261), 2,
+    ACTIONS(14263), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157234] = 4,
-    ACTIONS(14263), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14265), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4793), 1,
-      sym_end_function_statement,
+  [157388] = 3,
+    STATE(1378), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157248] = 3,
-    STATE(1600), 1,
+    ACTIONS(14265), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [157400] = 3,
+    STATE(1379), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -618724,8 +618684,8 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14267), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157260] = 3,
-    STATE(4796), 1,
+  [157412] = 3,
+    STATE(127), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -618733,8 +618693,8 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14269), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157272] = 3,
-    STATE(889), 1,
+  [157424] = 3,
+    STATE(125), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -618742,1108 +618702,1072 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14271), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157284] = 4,
-    ACTIONS(14255), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14257), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4797), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157298] = 4,
-    ACTIONS(13708), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13710), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(1067), 1,
-      sym_end_subroutine_statement,
+  [157436] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14273), 1,
+      anon_sym_RPAREN,
+    STATE(6752), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157312] = 3,
-    STATE(4799), 1,
+  [157450] = 3,
+    STATE(2783), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14273), 2,
+    ACTIONS(14275), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157324] = 4,
-    ACTIONS(14263), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14265), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4800), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157338] = 3,
-    STATE(4802), 1,
+  [157462] = 3,
+    STATE(2182), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14275), 2,
+    ACTIONS(14277), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157350] = 4,
-    ACTIONS(14255), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14257), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4803), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157364] = 3,
-    STATE(4804), 1,
+  [157474] = 3,
+    STATE(2881), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14277), 2,
+    ACTIONS(14279), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157376] = 4,
-    ACTIONS(14263), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14265), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4806), 1,
-      sym_end_function_statement,
+  [157486] = 4,
+    ACTIONS(14281), 1,
+      anon_sym_COMMA,
+    ACTIONS(14283), 1,
+      anon_sym_RPAREN,
+    STATE(6844), 1,
+      aux_sym__forall_control_expression_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157390] = 4,
-    ACTIONS(14097), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14099), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(890), 1,
-      sym_end_subroutine_statement,
+  [157500] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9618), 1,
+      anon_sym_RPAREN,
+    STATE(6952), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157404] = 3,
-    STATE(1080), 1,
-      sym__end_of_statement,
+  [157514] = 4,
+    ACTIONS(14028), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14030), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(973), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14279), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157416] = 3,
-    STATE(1562), 1,
+  [157528] = 3,
+    STATE(1629), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13801), 2,
+    ACTIONS(13591), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157428] = 3,
-    STATE(2467), 1,
+  [157540] = 3,
+    STATE(4267), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14281), 2,
+    ACTIONS(14285), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157440] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14283), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157454] = 4,
-    ACTIONS(14285), 1,
-      anon_sym_COMMA,
-    ACTIONS(14287), 1,
-      anon_sym_RPAREN,
-    STATE(6999), 1,
-      aux_sym__forall_control_expression_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157468] = 3,
-    STATE(837), 1,
+  [157552] = 3,
+    STATE(1388), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14289), 2,
+    ACTIONS(14287), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157480] = 4,
-    ACTIONS(13763), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13765), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(1083), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157494] = 4,
-    ACTIONS(9288), 1,
+  [157564] = 4,
+    ACTIONS(9284), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9290), 1,
+    ACTIONS(9286), 1,
       aux_sym_end_type_statement_token1,
-    STATE(1569), 1,
+    STATE(1389), 1,
       sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157508] = 3,
-    STATE(2905), 1,
+  [157578] = 3,
+    STATE(1390), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14291), 2,
+    ACTIONS(14289), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157520] = 3,
-    STATE(2478), 1,
+  [157590] = 3,
+    STATE(1400), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14293), 2,
+    ACTIONS(14291), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157532] = 3,
-    STATE(1571), 1,
+  [157602] = 3,
+    STATE(1395), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14295), 2,
+    ACTIONS(13996), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157544] = 3,
-    STATE(1572), 1,
-      sym__end_of_statement,
+  [157614] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14293), 1,
+      anon_sym_RPAREN,
+    STATE(6753), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14297), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157556] = 4,
-    ACTIONS(14299), 1,
+  [157628] = 4,
+    ACTIONS(14295), 1,
       anon_sym_COMMA,
-    ACTIONS(14301), 1,
+    ACTIONS(14298), 1,
       anon_sym_RPAREN,
-    STATE(7313), 1,
-      aux_sym_concurrent_header_repeat1,
+    STATE(6948), 1,
+      aux_sym_associate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157570] = 3,
-    STATE(2298), 1,
+  [157642] = 3,
+    STATE(681), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14303), 2,
+    ACTIONS(14300), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157582] = 3,
-    STATE(2776), 1,
-      sym__end_of_statement,
+  [157654] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9640), 1,
+      anon_sym_RPAREN,
+    STATE(6852), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14305), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157594] = 3,
-    STATE(1621), 1,
-      sym__end_of_statement,
+  [157668] = 4,
+    ACTIONS(9586), 1,
+      anon_sym_COMMA,
+    ACTIONS(9588), 1,
+      anon_sym_RBRACK,
+    STATE(6853), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14131), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157606] = 3,
-    STATE(1578), 1,
+  [157682] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(14302), 1,
+      anon_sym_RPAREN,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [157696] = 3,
+    STATE(2613), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14307), 2,
+    ACTIONS(14304), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157618] = 4,
-    ACTIONS(9288), 1,
+  [157708] = 4,
+    ACTIONS(10758), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9290), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1579), 1,
-      sym_end_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157632] = 3,
-    STATE(1581), 1,
-      sym__end_of_statement,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7489), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14309), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157644] = 3,
-    STATE(1582), 1,
+  [157722] = 3,
+    STATE(1450), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14311), 2,
+    ACTIONS(14306), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157656] = 4,
-    ACTIONS(14107), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14109), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(892), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [157670] = 4,
-    ACTIONS(9340), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9342), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2777), 1,
-      sym_end_type_statement,
+  [157734] = 4,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    ACTIONS(14308), 1,
+      sym_preproc_comment,
+    STATE(5956), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157684] = 4,
-    ACTIONS(6702), 1,
+  [157748] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    STATE(2550), 1,
-      sym__argument_list,
-    STATE(3428), 1,
-      sym_argument_list,
-    ACTIONS(21), 2,
+    ACTIONS(14310), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [157698] = 3,
-    STATE(1589), 1,
+  [157762] = 3,
+    STATE(2615), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14313), 2,
+    ACTIONS(14312), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157710] = 4,
-    ACTIONS(13556), 1,
+  [157774] = 3,
+    ACTIONS(14314), 1,
       anon_sym_COMMA,
-    ACTIONS(14315), 1,
-      anon_sym_RPAREN,
-    STATE(6908), 1,
-      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157724] = 2,
+    ACTIONS(14316), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [157786] = 4,
+    ACTIONS(14318), 1,
+      anon_sym_COMMA,
+    ACTIONS(14321), 1,
+      anon_sym_RPAREN,
+    STATE(6960), 1,
+      aux_sym_keyword_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13144), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [157734] = 3,
-    STATE(2778), 1,
+  [157800] = 3,
+    STATE(1522), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14317), 2,
+    ACTIONS(14323), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157746] = 3,
-    STATE(2907), 1,
+  [157812] = 3,
+    STATE(1519), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14319), 2,
+    ACTIONS(14325), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157758] = 3,
-    STATE(641), 1,
+  [157824] = 3,
+    STATE(5288), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14321), 2,
+    ACTIONS(14327), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157770] = 4,
-    ACTIONS(14323), 1,
+  [157836] = 4,
+    ACTIONS(10758), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14325), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(995), 1,
-      sym_end_program_statement,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7507), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157784] = 3,
-    STATE(1605), 1,
+  [157850] = 3,
+    STATE(554), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14327), 2,
+    ACTIONS(14329), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157796] = 3,
-    STATE(1607), 1,
-      sym__end_of_statement,
+  [157862] = 4,
+    ACTIONS(10758), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(10764), 1,
+      aux_sym_end_select_statement_token1,
+    STATE(7509), 1,
+      sym_end_select_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14329), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157808] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
+  [157876] = 4,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
     ACTIONS(14331), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+      sym_preproc_comment,
+    STATE(5948), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157822] = 4,
+  [157890] = 4,
     ACTIONS(14333), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(14335), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5071), 1,
-      sym_end_subroutine_statement,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5231), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157836] = 3,
-    STATE(5286), 1,
-      sym__end_of_statement,
+  [157904] = 4,
+    ACTIONS(14337), 1,
+      anon_sym_COMMA,
+    ACTIONS(14340), 1,
+      anon_sym_RPAREN,
+    STATE(6969), 1,
+      aux_sym__forall_control_expression_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14337), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [157848] = 4,
-    ACTIONS(14339), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14341), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5084), 1,
-      sym_end_function_statement,
+  [157918] = 3,
+    STATE(653), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157862] = 4,
-    ACTIONS(14168), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14170), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(5075), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(8146), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [157930] = 3,
+    STATE(2118), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157876] = 3,
-    STATE(1009), 1,
+    ACTIONS(14342), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [157942] = 3,
+    STATE(5567), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14343), 2,
+    ACTIONS(14344), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157888] = 3,
-    STATE(5188), 1,
+  [157954] = 3,
+    STATE(5354), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14345), 2,
+    ACTIONS(14346), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157900] = 4,
-    ACTIONS(14333), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14335), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5192), 1,
-      sym_end_subroutine_statement,
+  [157966] = 3,
+    STATE(2805), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157914] = 3,
-    STATE(5194), 1,
+    ACTIONS(14348), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [157978] = 3,
+    STATE(5559), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14347), 2,
+    ACTIONS(14350), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157926] = 4,
-    ACTIONS(14339), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14341), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5196), 1,
-      sym_end_function_statement,
+  [157990] = 3,
+    STATE(1029), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157940] = 3,
-    STATE(5227), 1,
+    ACTIONS(14352), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158002] = 3,
+    STATE(1494), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14349), 2,
+    ACTIONS(14354), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157952] = 4,
-    ACTIONS(14333), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14335), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4937), 1,
-      sym_end_subroutine_statement,
+  [158014] = 3,
+    STATE(1485), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157966] = 3,
-    STATE(4945), 1,
+    ACTIONS(14356), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158026] = 3,
+    STATE(2806), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14351), 2,
+    ACTIONS(14358), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [157978] = 4,
-    ACTIONS(14339), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14341), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4947), 1,
-      sym_end_function_statement,
+  [158038] = 3,
+    STATE(1123), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [157992] = 3,
-    STATE(3022), 1,
+    ACTIONS(14360), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158050] = 3,
+    STATE(1482), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14353), 2,
+    ACTIONS(14362), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158004] = 3,
-    STATE(2589), 1,
+  [158062] = 3,
+    STATE(1732), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14355), 2,
+    ACTIONS(14364), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158016] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14357), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158030] = 4,
+  [158074] = 4,
     ACTIONS(9344), 1,
       aux_sym_end_program_statement_token1,
     ACTIONS(9346), 1,
       aux_sym_end_type_statement_token1,
-    STATE(3093), 1,
+    STATE(2809), 1,
       sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158044] = 3,
-    STATE(2633), 1,
+  [158088] = 3,
+    STATE(5176), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14359), 2,
+    ACTIONS(14366), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158056] = 3,
-    STATE(3104), 1,
-      sym__end_of_statement,
+  [158100] = 4,
+    ACTIONS(9288), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9290), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1481), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14361), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158068] = 3,
-    STATE(3117), 1,
+  [158114] = 4,
+    ACTIONS(14333), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14335), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5165), 1,
+      sym_end_module_procedure_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158128] = 3,
+    STATE(1479), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14363), 2,
+    ACTIONS(14368), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158080] = 4,
-    ACTIONS(13953), 1,
-      anon_sym_COMMA,
-    ACTIONS(14365), 1,
-      anon_sym_COLON_COLON,
-    STATE(6750), 1,
-      aux_sym_derived_type_statement_repeat1,
+  [158140] = 3,
+    STATE(1643), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158094] = 3,
-    STATE(3043), 1,
+    ACTIONS(13954), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158152] = 3,
+    STATE(1471), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14367), 2,
+    ACTIONS(14370), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158106] = 4,
-    ACTIONS(9344), 1,
+  [158164] = 4,
+    ACTIONS(11451), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9346), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2976), 1,
-      sym_end_type_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158120] = 3,
-    STATE(2987), 1,
-      sym__end_of_statement,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(853), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14369), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158132] = 3,
-    STATE(3122), 1,
+  [158178] = 3,
+    STATE(1470), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14371), 2,
+    ACTIONS(14372), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158144] = 3,
-    STATE(3062), 1,
+  [158190] = 3,
+    STATE(1779), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14373), 2,
+    ACTIONS(14374), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158156] = 4,
-    ACTIONS(13448), 1,
+  [158202] = 4,
+    ACTIONS(13577), 1,
       anon_sym_COMMA,
-    ACTIONS(14375), 1,
+    ACTIONS(14376), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(6797), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158170] = 4,
-    ACTIONS(14377), 1,
-      anon_sym_COMMA,
-    ACTIONS(14379), 1,
-      anon_sym_RBRACK,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
+  [158216] = 4,
+    ACTIONS(9288), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9290), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1468), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158184] = 3,
-    STATE(3133), 1,
+  [158230] = 3,
+    STATE(5154), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14381), 2,
+    ACTIONS(14378), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158196] = 3,
-    STATE(3070), 1,
-      sym__end_of_statement,
+  [158242] = 4,
+    ACTIONS(14333), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14335), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5143), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14383), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158208] = 4,
-    ACTIONS(9596), 1,
+  [158256] = 4,
+    ACTIONS(14380), 1,
       anon_sym_COMMA,
-    ACTIONS(14385), 1,
+    ACTIONS(14382), 1,
       anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
+    STATE(6817), 1,
+      aux_sym_concurrent_header_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158222] = 3,
-    STATE(1611), 1,
-      sym__end_of_statement,
+  [158270] = 4,
+    ACTIONS(10445), 1,
+      anon_sym_COMMA,
+    ACTIONS(14384), 1,
+      anon_sym_SLASH,
+    STATE(6815), 1,
+      aux_sym_data_value_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13909), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158234] = 3,
-    STATE(1776), 1,
-      sym__end_of_statement,
+  [158284] = 4,
+    ACTIONS(10445), 1,
+      anon_sym_COMMA,
+    ACTIONS(14386), 1,
+      anon_sym_SLASH,
+    STATE(6815), 1,
+      aux_sym_data_value_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14387), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158246] = 4,
-    ACTIONS(13540), 1,
+  [158298] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14389), 1,
+    ACTIONS(14388), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [158260] = 4,
-    ACTIONS(14391), 1,
-      anon_sym_COMMA,
-    ACTIONS(14393), 1,
-      anon_sym_RPAREN,
-    STATE(6634), 1,
-      aux_sym__forall_control_expression_repeat1,
+  [158312] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158274] = 4,
-    ACTIONS(13448), 1,
+    ACTIONS(14390), 3,
+      sym__external_end_of_statement,
       anon_sym_COMMA,
-    ACTIONS(14395), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+      anon_sym_SEMI,
+  [158322] = 3,
+    STATE(1621), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158288] = 3,
-    STATE(2781), 1,
+    ACTIONS(14392), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158334] = 3,
+    STATE(1615), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14397), 2,
+    ACTIONS(14394), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158300] = 4,
-    ACTIONS(9352), 1,
+  [158346] = 4,
+    ACTIONS(9714), 1,
+      anon_sym_RBRACK,
+    ACTIONS(14396), 1,
+      anon_sym_COMMA,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158360] = 4,
+    ACTIONS(14194), 1,
+      anon_sym_COMMA,
+    ACTIONS(14399), 1,
+      anon_sym_COLON_COLON,
+    STATE(7282), 1,
+      aux_sym_derived_type_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158374] = 4,
+    ACTIONS(14401), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9354), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1620), 1,
-      sym_end_type_statement,
+    ACTIONS(14403), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4713), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158314] = 3,
+  [158388] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14405), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158402] = 3,
     STATE(1777), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14399), 2,
+    ACTIONS(14407), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158326] = 3,
-    STATE(1622), 1,
+  [158414] = 3,
+    STATE(5570), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14401), 2,
+    ACTIONS(14409), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158338] = 3,
-    STATE(1623), 1,
+  [158426] = 3,
+    STATE(1458), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14403), 2,
+    ACTIONS(14411), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158350] = 2,
+  [158438] = 4,
+    ACTIONS(14413), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14415), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4715), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9640), 3,
-      sym__external_end_of_statement,
+  [158452] = 4,
+    ACTIONS(14417), 1,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [158360] = 3,
-    STATE(895), 1,
-      sym__end_of_statement,
+    ACTIONS(14419), 1,
+      anon_sym_RPAREN,
+    STATE(6960), 1,
+      aux_sym_keyword_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14405), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158372] = 3,
-    STATE(1543), 1,
+  [158466] = 4,
+    ACTIONS(9686), 1,
+      anon_sym_COMMA,
+    ACTIONS(14421), 1,
+      anon_sym_GT_GT_GT,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158480] = 3,
+    STATE(871), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14407), 2,
+    ACTIONS(14423), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158384] = 4,
-    ACTIONS(9352), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9354), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1560), 1,
-      sym_end_type_statement,
+  [158492] = 3,
+    STATE(4731), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158398] = 3,
-    STATE(1566), 1,
+    ACTIONS(14425), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158504] = 3,
+    STATE(1715), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14409), 2,
+    ACTIONS(14427), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158410] = 3,
-    STATE(1340), 1,
+  [158516] = 4,
+    ACTIONS(14401), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14403), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4732), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158530] = 3,
+    STATE(3092), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14411), 2,
+    ACTIONS(14429), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158422] = 3,
-    STATE(2320), 1,
+  [158542] = 3,
+    STATE(2852), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14413), 2,
+    ACTIONS(14431), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158434] = 3,
-    STATE(1448), 1,
+  [158554] = 3,
+    STATE(4734), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14415), 2,
+    ACTIONS(14433), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158446] = 3,
-    STATE(2817), 1,
+  [158566] = 3,
+    STATE(4270), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14417), 2,
+    ACTIONS(14435), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158458] = 4,
-    ACTIONS(14419), 1,
+  [158578] = 4,
+    ACTIONS(14413), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14421), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(1010), 1,
-      sym_end_module_statement,
+    ACTIONS(14415), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4735), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158472] = 4,
-    ACTIONS(14097), 1,
+  [158592] = 4,
+    ACTIONS(11451), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14099), 1,
-      aux_sym_end_subroutine_statement_token1,
+    ACTIONS(11453), 1,
+      aux_sym_end_program_statement_token2,
     STATE(902), 1,
-      sym_end_subroutine_statement,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158486] = 3,
-    STATE(904), 1,
+  [158606] = 3,
+    STATE(4746), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14423), 2,
+    ACTIONS(14437), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158498] = 4,
-    ACTIONS(11451), 1,
+  [158618] = 4,
+    ACTIONS(14401), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11453), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(868), 1,
-      sym_end_program_statement,
+    ACTIONS(14403), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4747), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158512] = 2,
+  [158632] = 3,
+    STATE(4748), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14425), 3,
+    ACTIONS(14439), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [158522] = 4,
-    ACTIONS(14107), 1,
+  [158644] = 4,
+    ACTIONS(14413), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14109), 1,
+    ACTIONS(14415), 1,
       aux_sym_end_function_statement_token1,
-    STATE(855), 1,
+    STATE(4749), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158536] = 3,
-    STATE(869), 1,
+  [158658] = 3,
+    STATE(3091), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14427), 2,
+    ACTIONS(14441), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158548] = 3,
-    STATE(1473), 1,
+  [158670] = 3,
+    STATE(680), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14429), 2,
+    ACTIONS(7647), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158560] = 3,
-    STATE(1480), 1,
-      sym__end_of_statement,
+  [158682] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14431), 2,
+    ACTIONS(14443), 3,
       sym__external_end_of_statement,
+      anon_sym_LPAREN2,
       anon_sym_SEMI,
-  [158572] = 3,
-    STATE(2543), 1,
+  [158692] = 4,
+    ACTIONS(7004), 1,
+      sym__string_literal,
+    ACTIONS(7006), 1,
+      sym__string_literal_kind,
+    STATE(4503), 1,
+      sym_string_literal,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158706] = 4,
+    ACTIONS(14445), 1,
+      sym__string_literal,
+    ACTIONS(14447), 1,
+      sym__string_literal_kind,
+    STATE(5083), 1,
+      sym_string_literal,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158720] = 3,
+    STATE(4247), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14433), 2,
+    ACTIONS(14449), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158584] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14435), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158598] = 4,
-    ACTIONS(13456), 1,
-      anon_sym_COMMA,
-    ACTIONS(14437), 1,
-      anon_sym_RPAREN,
-    STATE(7261), 1,
-      aux_sym_implicit_statement_repeat1,
+  [158732] = 3,
+    STATE(1583), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158612] = 4,
-    ACTIONS(10887), 1,
+    ACTIONS(13669), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [158744] = 4,
+    ACTIONS(14451), 1,
       anon_sym_COMMA,
-    ACTIONS(14439), 1,
+    ACTIONS(14454), 1,
       anon_sym_RPAREN,
-    STATE(7135), 1,
-      aux_sym_preproc_argument_list_repeat1,
+    STATE(7035), 1,
+      aux_sym_parameter_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158626] = 3,
-    STATE(2546), 1,
+  [158758] = 3,
+    STATE(2007), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14441), 2,
+    ACTIONS(14456), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158638] = 4,
-    ACTIONS(14443), 1,
-      anon_sym_COMMA,
-    ACTIONS(14445), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+  [158770] = 3,
+    ACTIONS(9791), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158652] = 4,
-    ACTIONS(14447), 1,
+    ACTIONS(9789), 2,
       anon_sym_COMMA,
-    ACTIONS(14449), 1,
       anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+  [158782] = 4,
+    ACTIONS(9787), 1,
+      anon_sym_RPAREN,
+    ACTIONS(14458), 1,
+      anon_sym_COMMA,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158666] = 3,
-    STATE(870), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [158796] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14461), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14451), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158678] = 4,
-    ACTIONS(10887), 1,
-      anon_sym_COMMA,
-    ACTIONS(14453), 1,
-      anon_sym_RPAREN,
-    STATE(7135), 1,
-      aux_sym_preproc_argument_list_repeat1,
+  [158810] = 3,
+    ACTIONS(9745), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158692] = 3,
-    STATE(5296), 1,
-      sym__end_of_statement,
+    ACTIONS(9743), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+  [158822] = 4,
+    ACTIONS(13434), 1,
+      anon_sym_COMMA,
+    ACTIONS(14463), 1,
+      anon_sym_RBRACK,
+    STATE(6838), 1,
+      aux_sym_coarray_index_repeat2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14455), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [158704] = 3,
-    STATE(1019), 1,
+  [158836] = 3,
+    STATE(3065), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14457), 2,
+    ACTIONS(14465), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158716] = 4,
-    ACTIONS(13953), 1,
-      anon_sym_COMMA,
-    ACTIONS(14459), 1,
-      anon_sym_COLON_COLON,
-    STATE(6478), 1,
-      aux_sym_derived_type_statement_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158730] = 4,
-    ACTIONS(14461), 1,
+  [158848] = 4,
+    ACTIONS(13414), 1,
       anon_sym_COMMA,
-    ACTIONS(14463), 1,
+    ACTIONS(14467), 1,
       anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+    STATE(6854), 1,
+      aux_sym_implicit_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158744] = 3,
-    STATE(5275), 1,
+  [158862] = 3,
+    STATE(1458), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14465), 2,
+    ACTIONS(14411), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158756] = 3,
-    STATE(2660), 1,
+  [158874] = 3,
+    STATE(2955), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14467), 2,
+    ACTIONS(14469), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158768] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14469), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158782] = 3,
-    STATE(2658), 1,
+  [158886] = 3,
+    STATE(3058), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -619851,8 +619775,18 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14471), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158794] = 3,
-    STATE(1436), 1,
+  [158898] = 4,
+    ACTIONS(9280), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9282), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(3057), 1,
+      sym_end_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [158912] = 3,
+    STATE(3056), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -619860,38 +619794,38 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14473), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158806] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
+  [158924] = 4,
     ACTIONS(14475), 1,
-      anon_sym_RBRACK,
-    STATE(7072), 1,
-      aux_sym_coarray_index_repeat2,
+      anon_sym_COMMA,
+    ACTIONS(14477), 1,
+      anon_sym_RPAREN,
+    STATE(6867), 1,
+      aux_sym_implicit_statement_repeat3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158820] = 4,
-    ACTIONS(11939), 1,
+  [158938] = 4,
+    ACTIONS(9292), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    STATE(7612), 1,
-      sym_end_if_statement,
+    ACTIONS(9294), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1599), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158834] = 4,
-    ACTIONS(13499), 1,
+  [158952] = 4,
+    ACTIONS(9578), 1,
       anon_sym_COMMA,
-    ACTIONS(14477), 1,
-      anon_sym_RPAREN,
-    STATE(7140), 1,
-      aux_sym_preproc_params_repeat1,
+    ACTIONS(9582), 1,
+      anon_sym_RBRACK,
+    STATE(7303), 1,
+      aux_sym_coarray_index_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [158848] = 3,
-    STATE(601), 1,
+  [158966] = 3,
+    STATE(2000), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
@@ -619899,11343 +619833,11239 @@ static const uint16_t ts_small_parse_table[] = {
     ACTIONS(14479), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158860] = 3,
-    STATE(754), 1,
+  [158978] = 3,
+    STATE(1189), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14481), 2,
+    ACTIONS(14014), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158872] = 3,
-    STATE(4582), 1,
+  [158990] = 3,
+    STATE(1607), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14483), 2,
+    ACTIONS(14481), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158884] = 4,
-    ACTIONS(13556), 1,
-      anon_sym_COMMA,
-    ACTIONS(14485), 1,
-      anon_sym_RPAREN,
-    STATE(6524), 1,
-      aux_sym_parameters_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158898] = 3,
-    STATE(2142), 1,
+  [159002] = 3,
+    STATE(1611), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14487), 2,
+    ACTIONS(14483), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158910] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14489), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158924] = 3,
-    STATE(2144), 1,
+  [159014] = 3,
+    STATE(3054), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14491), 2,
+    ACTIONS(14485), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158936] = 4,
-    ACTIONS(13986), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13988), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4583), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158950] = 4,
-    ACTIONS(14493), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14495), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    ACTIONS(14497), 1,
-      aux_sym_select_case_statement_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [158964] = 3,
-    STATE(121), 1,
+  [159026] = 3,
+    STATE(3053), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14499), 2,
+    ACTIONS(14487), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158976] = 3,
-    STATE(616), 1,
+  [159038] = 3,
+    STATE(2481), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14501), 2,
+    ACTIONS(14489), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [158988] = 4,
-    ACTIONS(14503), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14505), 1,
-      aux_sym_end_submodule_statement_token1,
-    STATE(1020), 1,
-      sym_end_submodule_statement,
+  [159050] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(9664), 1,
+      anon_sym_RPAREN,
+    STATE(7315), 1,
+      aux_sym__argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159002] = 3,
-    STATE(4585), 1,
-      sym__end_of_statement,
+  [159064] = 4,
+    ACTIONS(14491), 1,
+      anon_sym_COMMA,
+    ACTIONS(14494), 1,
+      anon_sym_RPAREN,
+    STATE(7060), 1,
+      aux_sym_procedure_attributes_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14507), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [159014] = 4,
-    ACTIONS(14509), 1,
+  [159078] = 4,
+    ACTIONS(9280), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14511), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4962), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(9282), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(3050), 1,
+      sym_end_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [159092] = 4,
+    ACTIONS(13577), 1,
+      anon_sym_COMMA,
+    ACTIONS(14496), 1,
+      anon_sym_RPAREN,
+    STATE(6626), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159028] = 3,
-    STATE(2639), 1,
+  [159106] = 3,
+    STATE(3051), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14513), 2,
+    ACTIONS(14498), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159040] = 4,
-    ACTIONS(13540), 1,
+  [159118] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14515), 1,
+    ACTIONS(14500), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [159054] = 4,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    STATE(7605), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159068] = 3,
-    STATE(2409), 1,
+  [159132] = 3,
+    STATE(1623), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14517), 2,
+    ACTIONS(14502), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159080] = 4,
-    ACTIONS(14000), 1,
+  [159144] = 4,
+    ACTIONS(9292), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14002), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4586), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159094] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14519), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159108] = 4,
-    ACTIONS(13978), 1,
-      anon_sym_COMMA,
-    ACTIONS(14521), 1,
-      anon_sym_RPAREN,
-    STATE(6694), 1,
-      aux_sym_associate_statement_repeat1,
+    ACTIONS(9294), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1624), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159122] = 3,
-    STATE(4975), 1,
+  [159158] = 3,
+    STATE(1626), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14523), 2,
+    ACTIONS(14504), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159134] = 3,
-    STATE(1838), 1,
+  [159170] = 3,
+    STATE(1625), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14525), 2,
+    ACTIONS(14506), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159146] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14527), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159182] = 4,
+    ACTIONS(14508), 1,
+      anon_sym_COMMA,
+    ACTIONS(14510), 1,
+      anon_sym_RPAREN,
+    STATE(7299), 1,
+      aux_sym_parameter_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159160] = 3,
-    STATE(1839), 1,
+  [159196] = 3,
+    STATE(2477), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14529), 2,
+    ACTIONS(14512), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159172] = 3,
-    STATE(1039), 1,
+  [159208] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(9803), 3,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+      anon_sym_RBRACK,
+  [159218] = 3,
+    STATE(3046), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14531), 2,
+    ACTIONS(14514), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159184] = 3,
-    ACTIONS(7653), 1,
-      aux_sym_end_program_statement_token1,
+  [159230] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7651), 2,
-      aux_sym_enumerator_statement_token1,
-      aux_sym_end_enum_statement_token1,
-  [159196] = 4,
-    ACTIONS(13407), 1,
+    ACTIONS(14516), 3,
       anon_sym_COMMA,
-    ACTIONS(14533), 1,
+      anon_sym_RPAREN,
       anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+  [159240] = 4,
+    ACTIONS(14518), 1,
+      anon_sym_COMMA,
+    ACTIONS(14521), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159210] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(14533), 1,
-      anon_sym_RBRACK,
-    STATE(7120), 1,
-      aux_sym_coarray_index_repeat2,
+  [159254] = 4,
+    ACTIONS(14523), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14525), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5240), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159224] = 3,
-    STATE(2496), 1,
+  [159268] = 3,
+    STATE(5239), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14535), 2,
+    ACTIONS(14527), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159236] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14537), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159250] = 3,
-    STATE(599), 1,
+  [159280] = 3,
+    STATE(1614), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14539), 2,
+    ACTIONS(14529), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159262] = 3,
-    STATE(2498), 1,
-      sym__end_of_statement,
+  [159292] = 4,
+    ACTIONS(7470), 1,
+      sym__integer_literal,
+    STATE(4003), 1,
+      sym_statement_label,
+    STATE(7288), 1,
+      sym_statement_label_reference,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14541), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [159274] = 3,
-    STATE(602), 1,
+  [159306] = 4,
+    ACTIONS(14531), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14533), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5238), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [159320] = 3,
+    STATE(5237), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14543), 2,
+    ACTIONS(14535), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159286] = 4,
-    ACTIONS(14168), 1,
+  [159332] = 4,
+    ACTIONS(7470), 1,
+      sym__integer_literal,
+    STATE(4003), 1,
+      sym_statement_label,
+    STATE(7084), 1,
+      sym_statement_label_reference,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [159346] = 4,
+    ACTIONS(14523), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14170), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4977), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(14525), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5228), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159300] = 4,
-    ACTIONS(13448), 1,
+  [159360] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(14545), 1,
+    ACTIONS(14537), 1,
       anon_sym_RPAREN,
-    STATE(6651), 1,
+    STATE(6866), 1,
       aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159314] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14547), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159374] = 4,
+    ACTIONS(14417), 1,
+      anon_sym_COMMA,
+    ACTIONS(14539), 1,
+      anon_sym_RPAREN,
+    STATE(7298), 1,
+      aux_sym_keyword_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159328] = 3,
-    STATE(547), 1,
-      sym__end_of_statement,
+  [159388] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14549), 2,
+    ACTIONS(14541), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [159340] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14551), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159354] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14553), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159368] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14555), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159382] = 3,
-    STATE(554), 1,
+  [159398] = 3,
+    STATE(5227), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14557), 2,
+    ACTIONS(14543), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159394] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14559), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159408] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14561), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159410] = 3,
+    STATE(678), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
+    ACTIONS(7663), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
   [159422] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12724), 3,
+    ACTIONS(14545), 3,
       sym__external_end_of_statement,
-      anon_sym_LPAREN2,
+      anon_sym_COMMA,
       anon_sym_SEMI,
   [159432] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14563), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159446] = 3,
-    STATE(1515), 1,
-      sym__end_of_statement,
+    ACTIONS(14531), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14533), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5225), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14565), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [159458] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14567), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159446] = 4,
+    ACTIONS(14547), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14549), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4822), 1,
+      sym_end_module_procedure_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159472] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14569), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159460] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159486] = 3,
-    STATE(650), 1,
+    ACTIONS(14551), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+  [159470] = 3,
+    STATE(5224), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14571), 2,
+    ACTIONS(14553), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159498] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14573), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159482] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159512] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14575), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+    ACTIONS(14555), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+  [159492] = 4,
+    ACTIONS(14523), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14525), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5209), 1,
+      sym_end_function_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159526] = 4,
-    ACTIONS(13556), 1,
-      anon_sym_COMMA,
-    ACTIONS(14577), 1,
-      anon_sym_RPAREN,
-    STATE(7304), 1,
-      aux_sym_parameters_repeat1,
+  [159506] = 4,
+    ACTIONS(14531), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14533), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5207), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159540] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14579), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159520] = 4,
+    ACTIONS(14557), 1,
+      anon_sym_COMMA,
+    ACTIONS(14560), 1,
+      anon_sym_COLON_COLON,
+    STATE(7096), 1,
+      aux_sym_derived_type_statement_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159554] = 3,
-    STATE(680), 1,
+  [159534] = 3,
+    STATE(1442), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14581), 2,
+    ACTIONS(14562), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159566] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14583), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159580] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14585), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159594] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14587), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159608] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14589), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159622] = 3,
-    STATE(4985), 1,
+  [159546] = 3,
+    STATE(1433), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14591), 2,
+    ACTIONS(14564), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159634] = 4,
-    ACTIONS(13540), 1,
+  [159558] = 4,
+    ACTIONS(13639), 1,
       anon_sym_LPAREN2,
-    ACTIONS(14593), 1,
+    ACTIONS(14566), 1,
       aux_sym_preproc_include_token2,
-    STATE(7746), 1,
+    STATE(8463), 1,
       sym_preproc_argument_list,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [159648] = 4,
-    ACTIONS(13978), 1,
+  [159572] = 4,
+    ACTIONS(14568), 1,
       anon_sym_COMMA,
-    ACTIONS(14226), 1,
+    ACTIONS(14570), 1,
       anon_sym_RPAREN,
-    STATE(6694), 1,
-      aux_sym_associate_statement_repeat1,
+    STATE(6874), 1,
+      aux_sym_preproc_params_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159662] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14595), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159676] = 4,
-    ACTIONS(14509), 1,
+  [159586] = 4,
+    ACTIONS(8784), 1,
+      anon_sym_COMMA,
+    ACTIONS(14572), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14511), 1,
-      aux_sym_end_module_procedure_statement_token1,
-    STATE(4986), 1,
-      sym_end_module_procedure_statement,
+    ACTIONS(14574), 1,
+      aux_sym_end_do_loop_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159690] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14597), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159704] = 4,
-    ACTIONS(13448), 1,
+  [159600] = 4,
+    ACTIONS(10877), 1,
       anon_sym_COMMA,
-    ACTIONS(14599), 1,
+    ACTIONS(14576), 1,
       anon_sym_RPAREN,
-    STATE(6657), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(6875), 1,
+      aux_sym_preproc_argument_list_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159718] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14601), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159614] = 3,
+    STATE(1391), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159732] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14603), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+    ACTIONS(14578), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159626] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159746] = 4,
-    ACTIONS(13448), 1,
+    ACTIONS(14580), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+  [159636] = 4,
+    ACTIONS(14582), 1,
       anon_sym_COMMA,
-    ACTIONS(14605), 1,
+    ACTIONS(14584), 1,
       anon_sym_RPAREN,
-    STATE(6661), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(7264), 1,
+      aux_sym__forall_control_expression_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159760] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14607), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159774] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14609), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159788] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14611), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159802] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14613), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159816] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14615), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159650] = 3,
+    STATE(4884), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159830] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14617), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+    ACTIONS(14586), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159662] = 4,
+    ACTIONS(13577), 1,
+      anon_sym_COMMA,
+    ACTIONS(14588), 1,
+      anon_sym_RPAREN,
+    STATE(6626), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159844] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(14619), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+  [159676] = 4,
+    ACTIONS(14547), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14549), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(4885), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159858] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14621), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
+  [159690] = 3,
+    STATE(5368), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159872] = 4,
-    ACTIONS(13448), 1,
+    ACTIONS(14590), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159702] = 4,
+    ACTIONS(10244), 1,
       anon_sym_COMMA,
-    ACTIONS(14623), 1,
+    ACTIONS(10246), 1,
       anon_sym_RPAREN,
-    STATE(6668), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(7215), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159886] = 3,
-    STATE(129), 1,
+  [159716] = 3,
+    STATE(5571), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14625), 2,
+    ACTIONS(14592), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159898] = 3,
-    STATE(147), 1,
+  [159728] = 3,
+    STATE(1381), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14627), 2,
+    ACTIONS(14594), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [159910] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14629), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+  [159740] = 3,
+    STATE(1578), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159924] = 4,
-    ACTIONS(14323), 1,
+    ACTIONS(14596), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159752] = 4,
+    ACTIONS(9348), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14325), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1099), 1,
-      sym_end_program_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159938] = 4,
-    ACTIONS(14631), 1,
-      aux_sym__standalone_type_qualifier_token7,
-    ACTIONS(14633), 1,
-      aux_sym__standalone_type_qualifier_token8,
-    ACTIONS(14635), 1,
-      aux_sym__standalone_type_qualifier_token9,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [159952] = 4,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(7702), 1,
-      sym_argument_list,
+    ACTIONS(9350), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1340), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159966] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14637), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+  [159766] = 3,
+    STATE(1341), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159980] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6940), 1,
-      sym_format_statement,
+    ACTIONS(14598), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159778] = 3,
+    STATE(1469), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [159994] = 3,
-    STATE(5005), 1,
+    ACTIONS(14600), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159790] = 3,
+    STATE(4901), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14643), 2,
+    ACTIONS(14602), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160006] = 4,
-    ACTIONS(14509), 1,
+  [159802] = 4,
+    ACTIONS(14547), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14511), 1,
+    ACTIONS(14549), 1,
       aux_sym_end_module_procedure_statement_token1,
-    STATE(5006), 1,
+    STATE(4906), 1,
       sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160020] = 4,
-    ACTIONS(13448), 1,
+  [159816] = 4,
+    ACTIONS(14180), 1,
       anon_sym_COMMA,
-    ACTIONS(14645), 1,
+    ACTIONS(14604), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    STATE(7243), 1,
+      aux_sym_associate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160034] = 3,
-    STATE(586), 1,
+  [159830] = 3,
+    STATE(675), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14647), 2,
+    ACTIONS(14606), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160046] = 4,
-    ACTIONS(11075), 1,
-      anon_sym_RPAREN,
-    ACTIONS(14649), 1,
+  [159842] = 4,
+    ACTIONS(14180), 1,
       anon_sym_COMMA,
-    STATE(7135), 1,
-      aux_sym_preproc_argument_list_repeat1,
+    ACTIONS(14608), 1,
+      anon_sym_RPAREN,
+    STATE(6883), 1,
+      aux_sym_associate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160060] = 3,
-    STATE(594), 1,
+  [159856] = 3,
+    STATE(5563), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14652), 2,
+    ACTIONS(14610), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160072] = 3,
-    STATE(148), 1,
+  [159868] = 3,
+    STATE(5564), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14654), 2,
+    ACTIONS(14612), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160084] = 3,
-    STATE(622), 1,
+  [159880] = 3,
+    STATE(1528), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14656), 2,
+    ACTIONS(14614), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160096] = 3,
-    STATE(600), 1,
+  [159892] = 3,
+    STATE(1514), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14658), 2,
+    ACTIONS(14616), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [159904] = 3,
+    STATE(1349), 1,
+      sym__end_of_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(14618), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160108] = 4,
-    ACTIONS(14660), 1,
+  [159916] = 4,
+    ACTIONS(13394), 1,
       anon_sym_COMMA,
-    ACTIONS(14663), 1,
+    ACTIONS(14620), 1,
       anon_sym_RPAREN,
-    STATE(7140), 1,
-      aux_sym_preproc_params_repeat1,
+    STATE(7235), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160122] = 4,
-    ACTIONS(7519), 1,
-      anon_sym_LPAREN2,
-    STATE(3170), 1,
-      sym__argument_list,
-    STATE(6917), 1,
-      sym_argument_list,
+  [159930] = 4,
+    ACTIONS(14622), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14624), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4529), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160136] = 3,
-    STATE(683), 1,
+  [159944] = 3,
+    STATE(1350), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12643), 2,
+    ACTIONS(14626), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160148] = 4,
-    ACTIONS(13708), 1,
+  [159956] = 3,
+    ACTIONS(14628), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13710), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(1042), 1,
-      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160162] = 3,
-    STATE(2294), 1,
+    ACTIONS(14630), 2,
+      aux_sym_enumerator_statement_token1,
+      aux_sym_end_enum_statement_token1,
+  [159968] = 3,
+    STATE(3951), 1,
+      sym_access_specifier,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(11927), 2,
+      aux_sym_private_statement_token1,
+      aux_sym_public_statement_token1,
+  [159980] = 3,
+    STATE(2546), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14665), 2,
+    ACTIONS(14632), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160174] = 4,
-    ACTIONS(14323), 1,
+  [159992] = 4,
+    ACTIONS(14634), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14325), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(993), 1,
-      sym_end_program_statement,
+    ACTIONS(14636), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4539), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160188] = 3,
-    STATE(1521), 1,
+  [160006] = 3,
+    STATE(5385), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13507), 2,
+    ACTIONS(14638), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160200] = 3,
-    STATE(605), 1,
+  [160018] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14640), 1,
+      anon_sym_RPAREN,
+    STATE(7224), 1,
+      aux_sym__io_arguments_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160032] = 4,
+    ACTIONS(9348), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9350), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1355), 1,
+      sym_end_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160046] = 3,
+    STATE(4566), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14667), 2,
+    ACTIONS(14642), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160212] = 3,
-    STATE(569), 1,
+  [160058] = 3,
+    STATE(4524), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14669), 2,
+    ACTIONS(14644), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160224] = 3,
-    STATE(1101), 1,
+  [160070] = 4,
+    ACTIONS(14622), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14624), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4570), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160084] = 4,
+    ACTIONS(14646), 1,
+      aux_sym__standalone_type_qualifier_token7,
+    ACTIONS(14648), 1,
+      aux_sym__standalone_type_qualifier_token8,
+    ACTIONS(14650), 1,
+      aux_sym__standalone_type_qualifier_token9,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160098] = 4,
+    ACTIONS(14194), 1,
+      anon_sym_COMMA,
+    ACTIONS(14652), 1,
+      anon_sym_COLON_COLON,
+    STATE(6888), 1,
+      aux_sym_derived_type_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160112] = 3,
+    STATE(4595), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8349), 2,
+    ACTIONS(14654), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160236] = 4,
-    ACTIONS(13763), 1,
+  [160124] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10905), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+  [160134] = 4,
+    ACTIONS(14634), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13765), 1,
+    ACTIONS(14636), 1,
       aux_sym_end_function_statement_token1,
-    STATE(1045), 1,
+    STATE(4605), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160250] = 4,
-    ACTIONS(14671), 1,
-      sym_preproc_comment,
-    ACTIONS(14673), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(8094), 1,
-      sym_case_statement,
+  [160148] = 4,
+    ACTIONS(14028), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14030), 1,
+      aux_sym_end_program_statement_token2,
+    STATE(1093), 1,
+      sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160264] = 3,
-    STATE(4145), 1,
+  [160162] = 3,
+    STATE(4646), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14675), 2,
+    ACTIONS(14656), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160276] = 3,
-    STATE(4283), 1,
-      sym__end_of_statement,
+  [160174] = 4,
+    ACTIONS(14622), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14624), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4573), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14677), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [160288] = 3,
-    STATE(1060), 1,
+  [160188] = 3,
+    STATE(4564), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8263), 2,
+    ACTIONS(14658), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160300] = 3,
-    STATE(141), 1,
-      sym__end_of_statement,
+  [160200] = 4,
+    ACTIONS(14634), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14636), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4545), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14679), 2,
+  [160214] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10905), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [160312] = 3,
-    STATE(144), 1,
+  [160224] = 3,
+    STATE(1103), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14681), 2,
+    ACTIONS(14660), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160324] = 4,
-    ACTIONS(14683), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14685), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(1063), 1,
-      sym_end_module_statement,
-    ACTIONS(21), 2,
+  [160236] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14662), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [160338] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14687), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+  [160250] = 4,
+    ACTIONS(14664), 1,
+      sym__string_literal,
+    ACTIONS(14666), 1,
+      sym__string_literal_kind,
+    STATE(4821), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160352] = 4,
-    ACTIONS(14689), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14691), 1,
-      aux_sym_end_submodule_statement_token1,
-    STATE(1065), 1,
-      sym_end_submodule_statement,
+  [160264] = 3,
+    STATE(2808), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160366] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(7276), 1,
-      sym_format_statement,
+    ACTIONS(14668), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160276] = 3,
+    STATE(4257), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160380] = 3,
-    STATE(1070), 1,
+    ACTIONS(14670), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160288] = 3,
+    STATE(1314), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14693), 2,
+    ACTIONS(14672), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160392] = 4,
-    ACTIONS(13304), 1,
+  [160300] = 4,
+    ACTIONS(13962), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1071), 1,
-      sym_end_program_statement,
+    ACTIONS(13964), 1,
+      aux_sym_end_module_statement_token1,
+    STATE(1104), 1,
+      sym_end_module_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160406] = 3,
-    STATE(1073), 1,
+  [160314] = 3,
+    STATE(1798), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14695), 2,
+    ACTIONS(14674), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160418] = 3,
-    STATE(124), 1,
+  [160326] = 3,
+    STATE(2591), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14697), 2,
+    ACTIONS(14676), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160430] = 4,
-    ACTIONS(7470), 1,
-      sym__integer_literal,
-    STATE(4019), 1,
-      sym_statement_label,
-    STATE(6489), 1,
-      sym_statement_label_reference,
+  [160338] = 3,
+    STATE(1360), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160444] = 4,
-    ACTIONS(14683), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14685), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(1074), 1,
-      sym_end_module_statement,
+    ACTIONS(14253), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160350] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14678), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160364] = 3,
+    STATE(1106), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160458] = 3,
-    STATE(1076), 1,
+    ACTIONS(14680), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160376] = 3,
+    STATE(1600), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14699), 2,
+    ACTIONS(14682), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160470] = 4,
-    ACTIONS(14689), 1,
+  [160388] = 4,
+    ACTIONS(13912), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14691), 1,
+    ACTIONS(13914), 1,
       aux_sym_end_submodule_statement_token1,
-    STATE(1077), 1,
+    STATE(1107), 1,
       sym_end_submodule_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160484] = 3,
-    STATE(2893), 1,
+  [160402] = 3,
+    STATE(1048), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14701), 2,
+    ACTIONS(14684), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160496] = 4,
-    ACTIONS(13304), 1,
+  [160414] = 4,
+    ACTIONS(14686), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1093), 1,
-      sym_end_program_statement,
+    ACTIONS(14688), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4831), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160510] = 3,
-    STATE(1094), 1,
+  [160428] = 3,
+    STATE(4833), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14703), 2,
+    ACTIONS(14690), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160522] = 3,
-    STATE(1095), 1,
-      sym__end_of_statement,
+  [160440] = 4,
+    ACTIONS(14692), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14694), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4834), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14705), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [160534] = 3,
-    STATE(2866), 1,
-      sym__end_of_statement,
+  [160454] = 4,
+    ACTIONS(14226), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14228), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(1091), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14707), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [160546] = 3,
-    STATE(134), 1,
+  [160468] = 3,
+    STATE(2165), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14709), 2,
+    ACTIONS(14696), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160558] = 3,
-    STATE(135), 1,
-      sym__end_of_statement,
+  [160480] = 4,
+    ACTIONS(9250), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9264), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1282), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14711), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [160570] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6529), 1,
-      sym_format_statement,
+  [160494] = 4,
+    ACTIONS(14208), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14210), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(1077), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160584] = 3,
-    STATE(5300), 1,
+  [160508] = 3,
+    STATE(1797), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14713), 2,
+    ACTIONS(14698), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160596] = 3,
-    STATE(139), 1,
+  [160520] = 3,
+    STATE(1354), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14715), 2,
+    ACTIONS(14700), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160608] = 4,
-    ACTIONS(14717), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14719), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(5052), 1,
-      sym_end_subroutine_statement,
+  [160532] = 3,
+    STATE(1279), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160622] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14721), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(14702), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160544] = 3,
+    STATE(1277), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160636] = 3,
-    STATE(123), 1,
+    ACTIONS(14704), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160556] = 3,
+    STATE(4835), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14723), 2,
+    ACTIONS(14706), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160648] = 4,
-    ACTIONS(14725), 1,
+  [160568] = 4,
+    ACTIONS(14686), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14727), 1,
+    ACTIONS(14688), 1,
       aux_sym_end_function_statement_token1,
-    STATE(4970), 1,
+    STATE(4845), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160662] = 4,
-    ACTIONS(9686), 1,
-      anon_sym_COMMA,
-    ACTIONS(9688), 1,
-      anon_sym_RBRACK,
-    STATE(7248), 1,
-      aux_sym_coarray_index_repeat1,
+  [160582] = 4,
+    ACTIONS(14208), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14210), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(1003), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160676] = 3,
-    STATE(145), 1,
+  [160596] = 3,
+    STATE(184), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14729), 2,
+    ACTIONS(14708), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160688] = 3,
-    STATE(146), 1,
+  [160608] = 3,
+    STATE(4847), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14731), 2,
+    ACTIONS(14710), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160700] = 3,
-    STATE(4544), 1,
+  [160620] = 3,
+    STATE(1437), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14733), 2,
+    ACTIONS(14712), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160712] = 4,
-    ACTIONS(9678), 1,
-      anon_sym_COMMA,
-    ACTIONS(14735), 1,
-      anon_sym_RPAREN,
-    STATE(6590), 1,
-      aux_sym_case_value_range_list_repeat1,
+  [160632] = 3,
+    STATE(1002), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160726] = 4,
-    ACTIONS(14737), 1,
-      anon_sym_COMMA,
-    ACTIONS(14739), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+    ACTIONS(14714), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160644] = 3,
+    STATE(1377), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160740] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6604), 1,
-      sym_format_statement,
+    ACTIONS(13695), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160656] = 4,
+    ACTIONS(9352), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9354), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1432), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160754] = 4,
-    ACTIONS(14741), 1,
-      anon_sym_COMMA,
-    ACTIONS(14743), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+  [160670] = 3,
+    STATE(1245), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160768] = 3,
-    STATE(5122), 1,
+    ACTIONS(14716), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160682] = 4,
+    ACTIONS(9250), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9264), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1241), 1,
+      sym_end_type_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160696] = 3,
+    STATE(1234), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14745), 2,
+    ACTIONS(14718), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160780] = 3,
-    STATE(187), 1,
+  [160708] = 3,
+    STATE(1224), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14747), 2,
+    ACTIONS(14720), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160792] = 4,
-    ACTIONS(14717), 1,
+  [160720] = 4,
+    ACTIONS(7917), 1,
+      anon_sym_LPAREN2,
+    STATE(4039), 1,
+      sym_argument_list,
+    STATE(4051), 1,
+      sym__argument_list,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160734] = 4,
+    ACTIONS(14226), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14719), 1,
+    ACTIONS(14228), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5126), 1,
+    STATE(980), 1,
+      sym_end_subroutine_statement,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [160748] = 4,
+    ACTIONS(14692), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14694), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4849), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160806] = 3,
-    STATE(1507), 1,
+  [160762] = 3,
+    STATE(2263), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14749), 2,
+    ACTIONS(14722), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160818] = 4,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7492), 1,
-      sym_end_select_statement,
+  [160774] = 3,
+    STATE(664), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160832] = 3,
-    STATE(5129), 1,
+    ACTIONS(14724), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160786] = 3,
+    STATE(4850), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14751), 2,
+    ACTIONS(14726), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160844] = 3,
-    STATE(153), 1,
+  [160798] = 3,
+    STATE(1055), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14753), 2,
+    ACTIONS(14728), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160856] = 3,
-    STATE(154), 1,
+  [160810] = 3,
+    STATE(1023), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14755), 2,
+    ACTIONS(8275), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160868] = 4,
-    ACTIONS(5507), 1,
-      sym__string_literal,
-    ACTIONS(5509), 1,
-      sym__string_literal_kind,
-    STATE(7522), 1,
-      sym_string_literal,
+  [160822] = 3,
+    STATE(1203), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160882] = 4,
-    ACTIONS(14725), 1,
+    ACTIONS(14730), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160834] = 4,
+    ACTIONS(14686), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14727), 1,
+    ACTIONS(14688), 1,
       aux_sym_end_function_statement_token1,
-    STATE(5138), 1,
+    STATE(4854), 1,
       sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160896] = 4,
-    ACTIONS(10758), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7501), 1,
-      sym_end_select_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [160910] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6671), 1,
-      sym_format_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [160924] = 3,
-    STATE(5242), 1,
+  [160848] = 3,
+    STATE(1044), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14757), 2,
+    ACTIONS(14732), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160936] = 4,
-    ACTIONS(14717), 1,
+  [160860] = 4,
+    ACTIONS(14692), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14719), 1,
+    ACTIONS(14694), 1,
       aux_sym_end_subroutine_statement_token1,
-    STATE(5116), 1,
+    STATE(4862), 1,
       sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [160950] = 3,
-    STATE(4979), 1,
+  [160874] = 3,
+    STATE(1409), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14759), 2,
+    ACTIONS(14734), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160962] = 4,
-    ACTIONS(14725), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14727), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(5008), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [160976] = 3,
-    STATE(155), 1,
+  [160886] = 3,
+    STATE(999), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14761), 2,
+    ACTIONS(14736), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [160988] = 4,
-    ACTIONS(14763), 1,
-      anon_sym_COMMA,
-    ACTIONS(14765), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+  [160898] = 3,
+    STATE(1098), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161002] = 3,
-    STATE(159), 1,
+    ACTIONS(14738), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [160910] = 3,
+    STATE(2762), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14767), 2,
+    ACTIONS(14740), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161014] = 3,
-    STATE(160), 1,
+  [160922] = 3,
+    STATE(1407), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14769), 2,
+    ACTIONS(14742), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161026] = 3,
-    STATE(4271), 1,
+  [160934] = 3,
+    STATE(2707), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14771), 2,
+    ACTIONS(14744), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161038] = 3,
-    STATE(4591), 1,
+  [160946] = 3,
+    STATE(670), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14773), 2,
+    ACTIONS(14746), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161050] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6728), 1,
-      sym_format_statement,
+  [160958] = 4,
+    ACTIONS(14748), 1,
+      anon_sym_COMMA,
+    ACTIONS(14750), 1,
+      anon_sym_RPAREN,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161064] = 4,
-    ACTIONS(14775), 1,
-      sym__string_literal,
-    ACTIONS(14777), 1,
-      sym__string_literal_kind,
-    STATE(5238), 1,
-      sym_string_literal,
+  [160972] = 4,
+    ACTIONS(14752), 1,
+      anon_sym_COMMA,
+    ACTIONS(14754), 1,
+      anon_sym_RPAREN,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161078] = 4,
-    ACTIONS(10758), 1,
+  [160986] = 4,
+    ACTIONS(14756), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7503), 1,
-      sym_end_select_statement,
+    ACTIONS(14758), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5018), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161092] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(9690), 1,
-      anon_sym_RPAREN,
-    STATE(7285), 1,
-      aux_sym__argument_list_repeat1,
+  [161000] = 4,
+    ACTIONS(14760), 1,
+      aux_sym_included_items_token1,
+    ACTIONS(14762), 1,
+      aux_sym_implicit_statement_token2,
+    ACTIONS(14764), 1,
+      aux_sym__import_names_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161106] = 3,
-    STATE(161), 1,
+  [161014] = 3,
+    STATE(561), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14779), 2,
+    ACTIONS(14766), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161118] = 4,
-    ACTIONS(13986), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13988), 1,
-      aux_sym_end_subroutine_statement_token1,
-    STATE(4592), 1,
-      sym_end_subroutine_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161132] = 3,
-    STATE(4593), 1,
+  [161026] = 3,
+    STATE(4569), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14781), 2,
+    ACTIONS(7597), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161144] = 4,
-    ACTIONS(13304), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(1055), 1,
-      sym_end_program_statement,
+  [161038] = 4,
+    ACTIONS(14768), 1,
+      anon_sym_COMMA,
+    ACTIONS(14770), 1,
+      anon_sym_RPAREN,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [161052] = 4,
+    ACTIONS(14772), 1,
+      anon_sym_COMMA,
+    ACTIONS(14774), 1,
+      anon_sym_RPAREN,
+    STATE(6918), 1,
+      aux_sym_allocate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161158] = 3,
-    STATE(165), 1,
+  [161066] = 3,
+    STATE(5353), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14783), 2,
+    ACTIONS(14776), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161170] = 3,
-    STATE(166), 1,
+  [161078] = 3,
+    STATE(5558), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14785), 2,
+    ACTIONS(14778), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161182] = 3,
-    STATE(4251), 1,
-      sym__end_of_statement,
+  [161090] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14787), 2,
+    ACTIONS(8784), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [161194] = 3,
-    STATE(2858), 1,
-      sym__end_of_statement,
+  [161100] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14789), 2,
+    ACTIONS(14780), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [161206] = 3,
-    STATE(2503), 1,
+  [161110] = 3,
+    STATE(2764), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14791), 2,
+    ACTIONS(14782), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161218] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6789), 1,
-      sym_format_statement,
+  [161122] = 4,
+    ACTIONS(7517), 1,
+      anon_sym_LPAREN2,
+    STATE(3169), 1,
+      sym__argument_list,
+    STATE(7120), 1,
+      sym_argument_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161232] = 3,
-    STATE(1058), 1,
+  [161136] = 3,
+    STATE(696), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14793), 2,
+    ACTIONS(14784), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161244] = 3,
-    STATE(167), 1,
-      sym__end_of_statement,
+  [161148] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14786), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14795), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161256] = 4,
-    ACTIONS(9250), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(9264), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(1513), 1,
-      sym_end_type_statement,
+  [161162] = 4,
+    ACTIONS(13577), 1,
+      anon_sym_COMMA,
+    ACTIONS(14788), 1,
+      anon_sym_RPAREN,
+    STATE(7107), 1,
+      aux_sym_parameters_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161270] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14797), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161284] = 3,
-    STATE(171), 1,
-      sym__end_of_statement,
+  [161176] = 3,
+    ACTIONS(14790), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14799), 2,
+    ACTIONS(14792), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161296] = 3,
-    STATE(172), 1,
+  [161188] = 3,
+    STATE(5073), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14801), 2,
+    ACTIONS(14794), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161308] = 4,
-    ACTIONS(13556), 1,
+  [161200] = 4,
+    ACTIONS(14568), 1,
       anon_sym_COMMA,
-    ACTIONS(14803), 1,
+    ACTIONS(14796), 1,
       anon_sym_RPAREN,
-    STATE(6956), 1,
-      aux_sym_parameters_repeat1,
+    STATE(7100), 1,
+      aux_sym_preproc_params_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161322] = 4,
-    ACTIONS(14419), 1,
+  [161214] = 4,
+    ACTIONS(14756), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(14421), 1,
-      aux_sym_end_module_statement_token1,
-    STATE(1040), 1,
-      sym_end_module_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161336] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6846), 1,
-      sym_format_statement,
+    ACTIONS(14758), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5078), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161350] = 3,
-    STATE(208), 1,
+  [161228] = 3,
+    STATE(2731), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14805), 2,
+    ACTIONS(14798), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161362] = 4,
-    ACTIONS(7969), 1,
-      anon_sym_LPAREN2,
-    STATE(4040), 1,
-      sym__argument_list,
-    STATE(4053), 1,
-      sym_argument_list,
+  [161240] = 3,
+    STATE(2683), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161376] = 4,
-    ACTIONS(14807), 1,
-      aux_sym_included_items_token1,
-    ACTIONS(14809), 1,
-      aux_sym_implicit_statement_token2,
-    ACTIONS(14811), 1,
-      aux_sym__import_names_token1,
+    ACTIONS(14800), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161252] = 4,
+    ACTIONS(9276), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9278), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(2684), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161390] = 3,
-    STATE(175), 1,
+  [161266] = 3,
+    STATE(2694), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14813), 2,
+    ACTIONS(14802), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161402] = 3,
-    STATE(176), 1,
+  [161278] = 3,
+    STATE(1354), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14815), 2,
+    ACTIONS(14700), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161414] = 4,
-    ACTIONS(14000), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14002), 1,
-      aux_sym_end_function_statement_token1,
-    STATE(4594), 1,
-      sym_end_function_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161428] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(7001), 1,
-      sym_format_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161442] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6900), 1,
-      sym_format_statement,
+  [161290] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14804), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161456] = 4,
-    ACTIONS(13304), 1,
+  [161304] = 4,
+    ACTIONS(14028), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(13306), 1,
+    ACTIONS(14030), 1,
       aux_sym_end_program_statement_token2,
-    STATE(1061), 1,
+    STATE(986), 1,
       sym_end_program_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161470] = 3,
-    STATE(1363), 1,
+  [161318] = 3,
+    STATE(2711), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13793), 2,
+    ACTIONS(14806), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161482] = 4,
-    ACTIONS(11939), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(11941), 1,
-      aux_sym_end_if_statement_token1,
-    STATE(7632), 1,
-      sym_end_if_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161496] = 3,
-    STATE(180), 1,
+  [161330] = 3,
+    STATE(5230), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14817), 2,
+    ACTIONS(14808), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161508] = 4,
-    ACTIONS(14819), 1,
-      anon_sym_COMMA,
-    ACTIONS(14821), 1,
-      anon_sym_RBRACK,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
+  [161342] = 4,
+    ACTIONS(14756), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14758), 1,
+      aux_sym_end_module_procedure_statement_token1,
+    STATE(5232), 1,
+      sym_end_module_procedure_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161522] = 4,
-    ACTIONS(14639), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(14641), 1,
-      aux_sym_format_statement_token1,
-    STATE(6947), 1,
-      sym_format_statement,
+  [161356] = 3,
+    STATE(2712), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161536] = 4,
-    ACTIONS(14823), 1,
-      anon_sym_COMMA,
-    ACTIONS(14825), 1,
-      anon_sym_RPAREN,
-    STATE(6753), 1,
-      aux_sym_allocate_statement_repeat1,
+    ACTIONS(14810), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161368] = 3,
+    STATE(2313), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161550] = 4,
-    ACTIONS(9360), 1,
+    ACTIONS(14812), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161380] = 4,
+    ACTIONS(9276), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9362), 1,
+    ACTIONS(9278), 1,
       aux_sym_end_type_statement_token1,
-    STATE(2882), 1,
+    STATE(2717), 1,
       sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161564] = 3,
-    STATE(765), 1,
-      sym__end_of_statement,
+  [161394] = 4,
+    ACTIONS(14180), 1,
+      anon_sym_COMMA,
+    ACTIONS(14608), 1,
+      anon_sym_RPAREN,
+    STATE(6948), 1,
+      aux_sym_associate_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14827), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161576] = 3,
-    STATE(2462), 1,
+  [161408] = 3,
+    STATE(662), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14829), 2,
+    ACTIONS(14814), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161588] = 3,
-    STATE(1646), 1,
+  [161420] = 3,
+    STATE(1110), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13826), 2,
+    ACTIONS(14816), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161600] = 3,
-    STATE(183), 1,
+  [161432] = 3,
+    STATE(1089), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14831), 2,
+    ACTIONS(14818), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161612] = 3,
-    STATE(184), 1,
-      sym__end_of_statement,
-    ACTIONS(21), 2,
+  [161444] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14820), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14833), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161624] = 3,
-    STATE(2779), 1,
+  [161458] = 3,
+    STATE(2324), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14835), 2,
+    ACTIONS(14822), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161636] = 3,
-    STATE(2811), 1,
-      sym__end_of_statement,
+  [161470] = 4,
+    ACTIONS(14824), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14826), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5029), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14837), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161648] = 2,
+  [161484] = 3,
+    STATE(2724), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14839), 3,
+    ACTIONS(14828), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [161658] = 2,
+  [161496] = 4,
+    ACTIONS(14830), 1,
+      sym__string_literal,
+    ACTIONS(14832), 1,
+      sym__string_literal_kind,
+    STATE(5181), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13052), 3,
-      anon_sym_COMMA,
+  [161510] = 4,
+    ACTIONS(14834), 1,
       aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [161668] = 4,
-    ACTIONS(13456), 1,
-      anon_sym_COMMA,
-    ACTIONS(14841), 1,
-      anon_sym_RPAREN,
-    STATE(7286), 1,
-      aux_sym_implicit_statement_repeat1,
+    ACTIONS(14836), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5056), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161682] = 3,
-    ACTIONS(6752), 1,
-      anon_sym_COLON,
+  [161524] = 4,
+    ACTIONS(13394), 1,
+      anon_sym_COMMA,
+    ACTIONS(14838), 1,
+      anon_sym_RPAREN,
+    STATE(7074), 1,
+      aux_sym__io_arguments_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6748), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-  [161694] = 4,
-    ACTIONS(13034), 1,
-      sym__integer_literal,
-    STATE(6542), 1,
-      sym_statement_label,
-    STATE(7343), 1,
-      sym_statement_label_reference,
+  [161538] = 4,
+    ACTIONS(14840), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14842), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4938), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161708] = 3,
-    STATE(185), 1,
+  [161552] = 3,
+    STATE(5055), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14843), 2,
+    ACTIONS(14844), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161720] = 3,
-    STATE(186), 1,
-      sym__end_of_statement,
+  [161564] = 4,
+    ACTIONS(14846), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14848), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5054), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14845), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161732] = 3,
-    STATE(656), 1,
+  [161578] = 4,
+    ACTIONS(13577), 1,
+      anon_sym_COMMA,
+    ACTIONS(14850), 1,
+      anon_sym_RPAREN,
+    STATE(7062), 1,
+      aux_sym_parameters_repeat1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [161592] = 3,
+    STATE(4951), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14847), 2,
+    ACTIONS(14852), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161744] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14849), 1,
-      anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
+  [161604] = 3,
+    STATE(5053), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161758] = 3,
-    ACTIONS(6716), 1,
-      anon_sym_COLON,
+    ACTIONS(14854), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161616] = 4,
+    ACTIONS(14824), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14826), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4952), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6714), 2,
+  [161630] = 4,
+    ACTIONS(14072), 1,
       anon_sym_COMMA,
+    ACTIONS(14856), 1,
       anon_sym_RPAREN,
-  [161770] = 4,
-    ACTIONS(14503), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14505), 1,
-      aux_sym_end_submodule_statement_token1,
-    STATE(1046), 1,
-      sym_end_submodule_statement,
+    STATE(7060), 1,
+      aux_sym_procedure_attributes_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161784] = 4,
-    ACTIONS(9692), 1,
-      anon_sym_COMMA,
-    ACTIONS(9694), 1,
-      anon_sym_RBRACK,
-    STATE(7293), 1,
-      aux_sym_coarray_index_repeat1,
+  [161644] = 4,
+    ACTIONS(14834), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14836), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5044), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161798] = 3,
-    STATE(1516), 1,
+  [161658] = 3,
+    STATE(4954), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14851), 2,
+    ACTIONS(14858), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161810] = 4,
-    ACTIONS(9596), 1,
+  [161670] = 4,
+    ACTIONS(14860), 1,
       anon_sym_COMMA,
-    ACTIONS(9696), 1,
+    ACTIONS(14862), 1,
       anon_sym_RPAREN,
-    STATE(7294), 1,
-      aux_sym__argument_list_repeat1,
+    STATE(6969), 1,
+      aux_sym__forall_control_expression_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161824] = 4,
-    ACTIONS(13540), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(14853), 1,
-      aux_sym_preproc_include_token2,
-    STATE(7746), 1,
-      sym_preproc_argument_list,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [161838] = 4,
-    ACTIONS(10758), 1,
+  [161684] = 4,
+    ACTIONS(14840), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(10764), 1,
-      aux_sym_end_select_statement_token1,
-    STATE(7422), 1,
-      sym_end_select_statement,
+    ACTIONS(14842), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4955), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161852] = 4,
-    ACTIONS(13430), 1,
+  [161698] = 4,
+    ACTIONS(10585), 1,
+      anon_sym_SLASH,
+    ACTIONS(14864), 1,
       anon_sym_COMMA,
-    ACTIONS(14855), 1,
-      anon_sym_RPAREN,
-    STATE(6462), 1,
-      aux_sym_parameter_statement_repeat1,
+    STATE(7266), 1,
+      aux_sym_data_set_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161866] = 3,
-    STATE(1445), 1,
+  [161712] = 3,
+    STATE(4962), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13542), 2,
+    ACTIONS(14867), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161878] = 3,
-    STATE(2391), 1,
-      sym__end_of_statement,
+  [161724] = 4,
+    ACTIONS(14824), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14826), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(4963), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14857), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161890] = 3,
-    STATE(2832), 1,
+  [161738] = 3,
+    STATE(4964), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14859), 2,
+    ACTIONS(14869), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161902] = 4,
-    ACTIONS(9360), 1,
+  [161750] = 4,
+    ACTIONS(14840), 1,
       aux_sym_end_program_statement_token1,
-    ACTIONS(9362), 1,
-      aux_sym_end_type_statement_token1,
-    STATE(2839), 1,
-      sym_end_type_statement,
+    ACTIONS(14842), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(4965), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161916] = 3,
-    STATE(2845), 1,
+  [161764] = 3,
+    STATE(5043), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14861), 2,
+    ACTIONS(14871), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [161928] = 3,
-    STATE(2847), 1,
-      sym__end_of_statement,
+  [161776] = 4,
+    ACTIONS(14475), 1,
+      anon_sym_COMMA,
+    ACTIONS(14873), 1,
+      anon_sym_RPAREN,
+    STATE(7049), 1,
+      aux_sym_implicit_statement_repeat3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14863), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [161940] = 2,
+  [161790] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13202), 3,
+    ACTIONS(12715), 3,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
+      anon_sym_LPAREN2,
       anon_sym_SEMI,
-  [161950] = 2,
+  [161800] = 4,
+    ACTIONS(7026), 1,
+      sym__string_literal,
+    ACTIONS(7028), 1,
+      sym__string_literal_kind,
+    STATE(4821), 1,
+      sym_string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14865), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [161960] = 4,
-    ACTIONS(14867), 1,
-      anon_sym_COMMA,
-    ACTIONS(14870), 1,
-      anon_sym_RPAREN,
-    STATE(7284), 1,
-      aux_sym_implicit_statement_repeat3,
+  [161814] = 3,
+    ACTIONS(14877), 1,
+      anon_sym_DASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161974] = 4,
-    ACTIONS(9596), 1,
+    ACTIONS(14875), 2,
       anon_sym_COMMA,
-    ACTIONS(14872), 1,
       anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
+  [161826] = 3,
+    STATE(1175), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [161988] = 4,
-    ACTIONS(14874), 1,
+    ACTIONS(13970), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161838] = 4,
+    ACTIONS(13414), 1,
       anon_sym_COMMA,
-    ACTIONS(14877), 1,
+    ACTIONS(14879), 1,
       anon_sym_RPAREN,
-    STATE(7286), 1,
+    STATE(7043), 1,
       aux_sym_implicit_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162002] = 2,
+  [161852] = 3,
+    STATE(1912), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14879), 3,
+    ACTIONS(14881), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162012] = 2,
+  [161864] = 4,
+    ACTIONS(14846), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14848), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5041), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14881), 3,
-      sym__external_end_of_statement,
-      anon_sym_COMMA,
-      anon_sym_SEMI,
-  [162022] = 3,
-    STATE(5284), 1,
-      sym__end_of_statement,
+  [161878] = 4,
+    ACTIONS(7470), 1,
+      sym__integer_literal,
+    STATE(4003), 1,
+      sym_statement_label,
+    STATE(8023), 1,
+      sym_statement_label_reference,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14883), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [162034] = 2,
-    ACTIONS(21), 2,
+  [161892] = 4,
+    ACTIONS(13639), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(14883), 1,
+      aux_sym_preproc_include_token2,
+    STATE(8463), 1,
+      sym_preproc_argument_list,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14885), 3,
-      sym__external_end_of_statement,
+  [161906] = 4,
+    ACTIONS(14194), 1,
       anon_sym_COMMA,
-      anon_sym_SEMI,
-  [162044] = 4,
-    ACTIONS(13448), 1,
-      anon_sym_COMMA,
-    ACTIONS(14887), 1,
-      anon_sym_RPAREN,
-    STATE(7267), 1,
-      aux_sym__io_arguments_repeat1,
+    ACTIONS(14885), 1,
+      anon_sym_COLON_COLON,
+    STATE(7096), 1,
+      aux_sym_derived_type_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162058] = 2,
+  [161920] = 3,
+    STATE(5040), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14889), 3,
+    ACTIONS(14887), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162068] = 4,
-    ACTIONS(14891), 1,
-      anon_sym_COMMA,
-    ACTIONS(14893), 1,
-      anon_sym_RBRACK,
-    STATE(6506), 1,
-      aux_sym_coarray_index_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162082] = 4,
-    ACTIONS(9596), 1,
-      anon_sym_COMMA,
-    ACTIONS(14895), 1,
-      anon_sym_RPAREN,
-    STATE(6525), 1,
-      aux_sym__argument_list_repeat1,
+  [161932] = 3,
+    STATE(583), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162096] = 4,
-    ACTIONS(13407), 1,
-      anon_sym_COMMA,
-    ACTIONS(14897), 1,
-      anon_sym_RBRACK,
-    STATE(6787), 1,
-      aux_sym_coarray_index_repeat2,
+    ACTIONS(8315), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [161944] = 4,
+    ACTIONS(14834), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14836), 1,
+      aux_sym_end_function_statement_token1,
+    STATE(5025), 1,
+      sym_end_function_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162110] = 4,
-    ACTIONS(13407), 1,
+  [161958] = 4,
+    ACTIONS(14889), 1,
       anon_sym_COMMA,
-    ACTIONS(14897), 1,
-      anon_sym_RBRACK,
-    STATE(6788), 1,
-      aux_sym_coarray_index_repeat2,
+    ACTIONS(14891), 1,
+      anon_sym_RPAREN,
+    STATE(6997), 1,
+      aux_sym_concurrent_header_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162124] = 3,
-    STATE(2132), 1,
+  [161972] = 3,
+    STATE(5293), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14899), 2,
+    ACTIONS(14893), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162136] = 4,
-    ACTIONS(14901), 1,
+  [161984] = 4,
+    ACTIONS(14417), 1,
       anon_sym_COMMA,
-    ACTIONS(14904), 1,
+    ACTIONS(14895), 1,
       anon_sym_RPAREN,
-    STATE(7298), 1,
-      aux_sym__io_arguments_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162150] = 2,
+    STATE(7012), 1,
+      aux_sym_keyword_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14906), 3,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_RBRACK,
-  [162160] = 2,
+  [161998] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14908), 3,
+    ACTIONS(13177), 3,
       sym__external_end_of_statement,
       anon_sym_COMMA,
       anon_sym_SEMI,
-  [162170] = 4,
-    ACTIONS(10326), 1,
-      anon_sym_COMMA,
-    ACTIONS(14910), 1,
-      anon_sym_RPAREN,
-    STATE(6861), 1,
-      aux_sym_equivalence_set_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162184] = 3,
-    STATE(2793), 1,
-      sym__end_of_statement,
+  [162008] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14912), 2,
+    ACTIONS(13188), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162196] = 2,
+  [162018] = 4,
+    ACTIONS(9300), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9302), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1187), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9869), 3,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-      anon_sym_RBRACK,
-  [162206] = 4,
-    ACTIONS(13556), 1,
-      anon_sym_COMMA,
-    ACTIONS(14914), 1,
-      anon_sym_RPAREN,
-    STATE(6908), 1,
-      aux_sym_parameters_repeat1,
+  [162032] = 4,
+    ACTIONS(14846), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14848), 1,
+      aux_sym_end_subroutine_statement_token1,
+    STATE(5023), 1,
+      sym_end_subroutine_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162220] = 2,
+  [162046] = 3,
+    STATE(1916), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14916), 3,
+    ACTIONS(14897), 2,
       sym__external_end_of_statement,
-      anon_sym_LPAREN2,
       anon_sym_SEMI,
-  [162230] = 4,
-    ACTIONS(10887), 1,
-      anon_sym_COMMA,
-    ACTIONS(14918), 1,
-      anon_sym_RPAREN,
-    STATE(7135), 1,
-      aux_sym_preproc_argument_list_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162244] = 2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(5487), 3,
-      anon_sym_RPAREN,
-      anon_sym_SLASH,
-      anon_sym_COLON,
-  [162254] = 2,
+  [162058] = 3,
+    STATE(1469), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14920), 3,
+    ACTIONS(14600), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162264] = 3,
-    STATE(4531), 1,
+  [162070] = 3,
+    STATE(1164), 1,
       sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7579), 2,
+    ACTIONS(14899), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162276] = 4,
-    ACTIONS(14922), 1,
-      anon_sym_COMMA,
-    ACTIONS(14925), 1,
-      anon_sym_SLASH,
-    STATE(7310), 1,
-      aux_sym_data_value_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162290] = 2,
+  [162082] = 3,
+    STATE(1190), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14920), 3,
+    ACTIONS(14901), 2,
       sym__external_end_of_statement,
-      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162300] = 4,
-    ACTIONS(14927), 1,
-      anon_sym_COMMA,
-    ACTIONS(14929), 1,
-      anon_sym_RPAREN,
-    STATE(6944), 1,
-      aux_sym_concurrent_header_repeat1,
+  [162094] = 4,
+    ACTIONS(7470), 1,
+      sym__integer_literal,
+    STATE(4003), 1,
+      sym_statement_label,
+    STATE(7618), 1,
+      sym_statement_label_reference,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162314] = 4,
-    ACTIONS(14931), 1,
+  [162108] = 4,
+    ACTIONS(14417), 1,
       anon_sym_COMMA,
-    ACTIONS(14934), 1,
+    ACTIONS(14895), 1,
       anon_sym_RPAREN,
-    STATE(7313), 1,
-      aux_sym_concurrent_header_repeat1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162328] = 4,
-    ACTIONS(14323), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(14325), 1,
-      aux_sym_end_program_statement_token2,
-    STATE(964), 1,
-      sym_end_program_statement,
+    STATE(6960), 1,
+      aux_sym_keyword_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162342] = 4,
-    ACTIONS(13556), 1,
+  [162122] = 4,
+    ACTIONS(14508), 1,
       anon_sym_COMMA,
-    ACTIONS(14936), 1,
+    ACTIONS(14903), 1,
       anon_sym_RPAREN,
-    STATE(6908), 1,
-      aux_sym_parameters_repeat1,
+    STATE(7035), 1,
+      aux_sym_parameter_statement_repeat1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162356] = 3,
-    STATE(548), 1,
-      sym__end_of_statement,
+  [162136] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14938), 2,
+    ACTIONS(9634), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162368] = 3,
-    ACTIONS(14940), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14942), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162379] = 3,
-    ACTIONS(14944), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14946), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162390] = 2,
+  [162146] = 3,
+    ACTIONS(14905), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14948), 2,
+    ACTIONS(14907), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162399] = 2,
+  [162158] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14950), 2,
+    ACTIONS(13314), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162408] = 3,
-    ACTIONS(14952), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14954), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162419] = 3,
-    ACTIONS(14956), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14958), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162168] = 4,
+    ACTIONS(14909), 1,
+      anon_sym_COMMA,
+    ACTIONS(14911), 1,
+      anon_sym_RBRACK,
+    STATE(7004), 1,
+      aux_sym_coarray_index_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162430] = 2,
+  [162182] = 3,
+    STATE(1606), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6960), 2,
+    ACTIONS(13984), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162439] = 3,
-    ACTIONS(14960), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14962), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162450] = 3,
-    ACTIONS(14964), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14966), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162194] = 3,
+    ACTIONS(6764), 1,
+      anon_sym_COLON,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162461] = 2,
+    ACTIONS(6760), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+  [162206] = 3,
+    STATE(1163), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14968), 2,
+    ACTIONS(14913), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162470] = 3,
-    ACTIONS(14051), 1,
-      anon_sym_RPAREN,
-    ACTIONS(14970), 1,
-      anon_sym_COMMA,
+  [162218] = 4,
+    ACTIONS(9300), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(9302), 1,
+      aux_sym_end_type_statement_token1,
+    STATE(1172), 1,
+      sym_end_type_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162481] = 3,
-    ACTIONS(14972), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14974), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162492] = 3,
-    ACTIONS(14976), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14978), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162503] = 3,
-    ACTIONS(14980), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14982), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162514] = 2,
+  [162232] = 3,
+    STATE(1182), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14984), 2,
+    ACTIONS(14915), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162523] = 3,
-    ACTIONS(14986), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14988), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162534] = 3,
-    ACTIONS(14990), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(14992), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162545] = 2,
+  [162244] = 3,
+    STATE(1183), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14994), 2,
+    ACTIONS(14917), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162554] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6639), 1,
-      sym_selector,
+  [162256] = 3,
+    ACTIONS(6712), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162565] = 3,
-    ACTIONS(14998), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15000), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162576] = 3,
-    ACTIONS(15002), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15004), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162587] = 3,
-    ACTIONS(15006), 1,
-      aux_sym_language_binding_token1,
-    STATE(6798), 1,
-      sym_language_binding,
+    ACTIONS(6710), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [162268] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162598] = 2,
+    ACTIONS(13373), 3,
+      sym__external_end_of_statement,
+      anon_sym_COMMA,
+      anon_sym_SEMI,
+  [162278] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15008), 2,
+    ACTIONS(14919), 3,
       sym__external_end_of_statement,
+      anon_sym_COMMA,
       anon_sym_SEMI,
-  [162607] = 3,
-    ACTIONS(15010), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15012), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162618] = 3,
-    ACTIONS(15014), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15016), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162629] = 2,
+  [162288] = 3,
+    STATE(1167), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15008), 2,
+    ACTIONS(14921), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162638] = 2,
+  [162300] = 3,
+    STATE(1162), 1,
+      sym__end_of_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15018), 2,
+    ACTIONS(14923), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162647] = 3,
-    ACTIONS(15020), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15022), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162658] = 3,
-    ACTIONS(15024), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15026), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162312] = 4,
+    ACTIONS(9544), 1,
+      anon_sym_COMMA,
+    ACTIONS(14925), 1,
+      anon_sym_RPAREN,
+    STATE(7038), 1,
+      aux_sym__argument_list_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162669] = 3,
-    ACTIONS(14996), 1,
+  [162326] = 3,
+    ACTIONS(14927), 1,
       anon_sym_LPAREN2,
-    STATE(6640), 1,
+    STATE(7109), 1,
       sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162680] = 2,
+  [162337] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15028), 2,
+    ACTIONS(14929), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162689] = 3,
-    ACTIONS(15030), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15032), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162346] = 3,
+    ACTIONS(14931), 1,
+      aux_sym_concurrent_locality_token3,
+    ACTIONS(14933), 1,
+      aux_sym_type_statement_token1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162700] = 3,
-    ACTIONS(15034), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15036), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162357] = 3,
+    ACTIONS(14931), 1,
+      aux_sym_concurrent_locality_token3,
+    ACTIONS(14935), 1,
+      aux_sym_type_statement_token1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162711] = 3,
-    ACTIONS(15038), 1,
-      anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+  [162368] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5847), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162722] = 3,
-    ACTIONS(15040), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15042), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162379] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5782), 1,
+      sym_rank_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162733] = 3,
-    ACTIONS(15044), 1,
+  [162390] = 3,
+    ACTIONS(14937), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15046), 1,
+    ACTIONS(14939), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [162744] = 2,
+  [162401] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15048), 2,
+    ACTIONS(14941), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162753] = 3,
-    ACTIONS(15050), 1,
-      anon_sym_RPAREN,
-    ACTIONS(15052), 1,
-      aux_sym__standalone_type_qualifier_token8,
+  [162410] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162764] = 3,
-    ACTIONS(15054), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15056), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162775] = 3,
-    ACTIONS(15058), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15060), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162786] = 3,
-    ACTIONS(15062), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15064), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162797] = 2,
+    ACTIONS(14943), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162419] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7192), 2,
+    ACTIONS(14943), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162806] = 3,
-    ACTIONS(15066), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15068), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162817] = 3,
-    ACTIONS(15070), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15072), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162828] = 2,
+  [162428] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15074), 2,
+    ACTIONS(14943), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162837] = 3,
-    ACTIONS(15076), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15078), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162848] = 3,
-    ACTIONS(15080), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15082), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162859] = 2,
+  [162437] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15084), 2,
+    ACTIONS(14945), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162868] = 2,
+  [162446] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(7218), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15086), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [162877] = 3,
-    ACTIONS(15088), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15090), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162457] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162888] = 3,
-    ACTIONS(15092), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15094), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14947), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [162466] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(7217), 1,
+      sym_selector,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162899] = 2,
+  [162477] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15096), 2,
+    ACTIONS(14949), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162908] = 3,
-    ACTIONS(15098), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15100), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162919] = 3,
-    ACTIONS(15102), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15104), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162930] = 2,
+  [162486] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15106), 2,
+    ACTIONS(14951), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [162939] = 3,
-    ACTIONS(15108), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15110), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162950] = 3,
-    ACTIONS(15112), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15114), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162961] = 3,
-    ACTIONS(15116), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15118), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [162972] = 3,
-    ACTIONS(9670), 1,
+  [162495] = 3,
+    ACTIONS(9660), 1,
       aux_sym__intrinsic_type_token5,
-    ACTIONS(9672), 1,
+    ACTIONS(9662), 1,
       aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [162983] = 2,
+  [162506] = 3,
+    ACTIONS(7751), 1,
+      anon_sym_LPAREN2,
+    STATE(7213), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13869), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [162992] = 3,
-    ACTIONS(15120), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15122), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163003] = 3,
-    ACTIONS(15124), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15126), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163014] = 3,
-    ACTIONS(15128), 1,
-      aux_sym_implicit_range_token1,
-    STATE(7026), 1,
-      sym_implicit_range,
+  [162517] = 3,
+    ACTIONS(13278), 1,
+      anon_sym_LPAREN2,
+    STATE(8421), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163025] = 2,
+  [162528] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5859), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15130), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [163034] = 3,
-    ACTIONS(15132), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15134), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162539] = 3,
+    ACTIONS(14953), 1,
+      anon_sym_COMMA,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163045] = 3,
-    ACTIONS(15136), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15138), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162550] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5863), 1,
+      sym_rank_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163056] = 2,
+  [162561] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15140), 2,
+    ACTIONS(14955), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163065] = 2,
+  [162570] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15142), 2,
+    ACTIONS(14957), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163074] = 3,
-    ACTIONS(15144), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15146), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163085] = 3,
-    ACTIONS(15148), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15150), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163096] = 3,
-    ACTIONS(15152), 1,
-      anon_sym_LBRACK,
-    STATE(4050), 1,
-      sym_coarray_index,
+  [162579] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163107] = 3,
-    ACTIONS(15154), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15156), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163118] = 3,
-    ACTIONS(15158), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15160), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14959), 2,
+      aux_sym_use_statement_token2,
+      aux_sym_use_statement_token3,
+  [162588] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163129] = 2,
+    ACTIONS(14955), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162597] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15162), 2,
+    ACTIONS(14961), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163138] = 2,
+  [162606] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15164), 2,
+    ACTIONS(14963), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163147] = 3,
-    ACTIONS(15166), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15168), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162615] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163158] = 3,
-    ACTIONS(15170), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15172), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14955), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162624] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5834), 1,
+      sym_case_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163169] = 2,
+  [162635] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15174), 2,
+    ACTIONS(14965), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163178] = 3,
-    ACTIONS(15176), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15178), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163189] = 3,
-    ACTIONS(15180), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15182), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162644] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5833), 1,
+      sym_case_statement,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163200] = 2,
+  [162655] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15184), 2,
+    ACTIONS(14967), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163209] = 3,
-    ACTIONS(15186), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15188), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163220] = 3,
-    ACTIONS(15190), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15192), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162664] = 3,
+    ACTIONS(14969), 1,
+      anon_sym_COMMA,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163231] = 2,
+  [162675] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15194), 2,
+    ACTIONS(14971), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163240] = 3,
-    ACTIONS(15196), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15198), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163251] = 3,
-    ACTIONS(15200), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15202), 1,
-      sym_preproc_arg,
+  [162684] = 3,
+    ACTIONS(4343), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(4345), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163262] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5921), 1,
-      sym_case_statement,
+  [162695] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163273] = 3,
-    ACTIONS(15204), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15206), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14780), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [162704] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163284] = 3,
-    ACTIONS(15208), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15210), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(10463), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [162713] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163295] = 2,
+    ACTIONS(14973), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162722] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15212), 2,
+    ACTIONS(14975), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163304] = 3,
-    ACTIONS(15214), 1,
+  [162731] = 3,
+    ACTIONS(14977), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15216), 1,
+    ACTIONS(14979), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163315] = 3,
-    ACTIONS(15218), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15220), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162742] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163326] = 2,
+    ACTIONS(14981), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162751] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15222), 2,
+    ACTIONS(14983), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163335] = 3,
-    ACTIONS(15224), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15226), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [162760] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163346] = 3,
-    ACTIONS(15228), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15230), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14985), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162769] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163357] = 3,
-    ACTIONS(15232), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15234), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(14987), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162778] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163368] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5828), 1,
-      sym_rank_statement,
+    ACTIONS(14989), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162787] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163379] = 3,
-    ACTIONS(15236), 1,
+    ACTIONS(14991), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162796] = 3,
+    ACTIONS(14993), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15238), 1,
+    ACTIONS(14995), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163390] = 2,
+  [162807] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13584), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [163399] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5853), 1,
-      sym_rank_statement,
+    ACTIONS(14997), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162816] = 3,
+    ACTIONS(14999), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(15001), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163410] = 2,
+  [162827] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15240), 2,
+    ACTIONS(15003), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163419] = 2,
+  [162836] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8417), 2,
+    ACTIONS(15005), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163428] = 2,
+  [162845] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12677), 2,
+    ACTIONS(15007), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163437] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5854), 1,
-      sym_rank_statement,
+  [162854] = 3,
+    ACTIONS(14931), 1,
+      aux_sym_concurrent_locality_token3,
+    ACTIONS(15009), 1,
+      aux_sym_type_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163448] = 2,
+  [162865] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15242), 2,
+    ACTIONS(15011), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163457] = 2,
+  [162874] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15244), 2,
+    ACTIONS(6998), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163466] = 2,
+  [162883] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15246), 2,
+    ACTIONS(6992), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163475] = 2,
+  [162892] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15248), 2,
+    ACTIONS(15013), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163484] = 2,
+  [162901] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15250), 2,
+    ACTIONS(15015), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163493] = 2,
+  [162910] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15252), 2,
+    ACTIONS(15017), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163502] = 2,
+  [162919] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15254), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [163511] = 3,
-    ACTIONS(14996), 1,
+    ACTIONS(15017), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [162928] = 3,
+    ACTIONS(15019), 1,
       anon_sym_LPAREN2,
-    STATE(6890), 1,
-      sym_selector,
+    ACTIONS(15021), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163522] = 2,
+  [162939] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15248), 2,
+    ACTIONS(15017), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163531] = 2,
+  [162948] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15256), 2,
+    ACTIONS(15023), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163540] = 2,
+  [162957] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15258), 2,
+    ACTIONS(15025), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163549] = 2,
+  [162966] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(12677), 2,
+    ACTIONS(15017), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163558] = 2,
+  [162975] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15248), 2,
+    ACTIONS(15027), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163567] = 2,
+  [162984] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15260), 2,
+    ACTIONS(15029), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163576] = 2,
+  [162993] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15262), 2,
+    ACTIONS(15031), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163585] = 2,
+  [163002] = 3,
+    ACTIONS(14572), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(14574), 1,
+      aux_sym_end_do_loop_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15264), 2,
+  [163013] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6982), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163594] = 2,
+  [163022] = 3,
+    ACTIONS(13786), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(8672), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15266), 2,
-      aux_sym_defined_io_procedure_token3,
-      aux_sym_defined_io_procedure_token4,
-  [163603] = 3,
-    ACTIONS(15268), 1,
+  [163033] = 3,
+    ACTIONS(15033), 1,
+      anon_sym_COMMA,
+    ACTIONS(15035), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [163044] = 3,
+    ACTIONS(15037), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15270), 1,
+    ACTIONS(15039), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163614] = 2,
+  [163055] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15272), 2,
+    ACTIONS(15041), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163623] = 3,
-    ACTIONS(15274), 1,
-      anon_sym_RPAREN,
-    ACTIONS(15276), 1,
-      anon_sym_COLON,
+  [163064] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163634] = 2,
+    ACTIONS(15043), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163073] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15278), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [163643] = 2,
+    ACTIONS(9871), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [163082] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15280), 2,
+    ACTIONS(15045), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163652] = 2,
+  [163091] = 3,
+    ACTIONS(13818), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(8612), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15282), 2,
-      aux_sym__kind_token1,
-      aux_sym__kind_token2,
-  [163661] = 2,
+  [163102] = 3,
+    ACTIONS(13278), 1,
+      anon_sym_LPAREN2,
+    STATE(8306), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15284), 2,
-      anon_sym_RPAREN,
-      anon_sym_COLON,
-  [163670] = 2,
+  [163113] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14663), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [163679] = 2,
+    ACTIONS(15047), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [163122] = 3,
+    ACTIONS(15049), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15051), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [163133] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15286), 2,
+    ACTIONS(15053), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163688] = 3,
-    ACTIONS(15288), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15290), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [163142] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163699] = 2,
+    ACTIONS(15055), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+  [163151] = 3,
+    ACTIONS(15057), 1,
+      aux_sym_implicit_range_token1,
+    STATE(6482), 1,
+      sym_implicit_range,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13757), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [163708] = 3,
-    ACTIONS(4285), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(4287), 1,
-      aux_sym_preproc_include_token2,
+  [163162] = 3,
+    ACTIONS(15059), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15061), 1,
+      sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163719] = 3,
-    ACTIONS(15292), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15294), 1,
-      aux_sym_concurrent_locality_token3,
+  [163173] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163730] = 3,
-    ACTIONS(15296), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15298), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(21), 2,
+    ACTIONS(15063), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163182] = 3,
+    ACTIONS(15065), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15067), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [163741] = 2,
+  [163193] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6928), 2,
+    ACTIONS(11149), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163750] = 2,
+  [163202] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15300), 2,
+    ACTIONS(15069), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163759] = 2,
+  [163211] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10456), 2,
+    ACTIONS(15071), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163768] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6801), 1,
-      sym_selector,
+  [163220] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163779] = 2,
+    ACTIONS(15073), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163229] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15302), 2,
+    ACTIONS(15075), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163788] = 2,
+  [163238] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15304), 2,
+    ACTIONS(15077), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163797] = 2,
+  [163247] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(10491), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [163256] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15306), 2,
+    ACTIONS(15079), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163806] = 2,
+  [163265] = 3,
+    ACTIONS(15081), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15083), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [163276] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15308), 2,
+    ACTIONS(15085), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163815] = 2,
+  [163285] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15310), 2,
+    ACTIONS(15087), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163824] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5958), 1,
-      sym_case_statement,
+  [163294] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(7122), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163835] = 2,
+  [163305] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(7123), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(8523), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [163844] = 3,
-    ACTIONS(13117), 1,
+  [163316] = 3,
+    ACTIONS(14927), 1,
       anon_sym_LPAREN2,
-    STATE(7859), 1,
-      sym_parenthesized_expression,
+    STATE(7134), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163855] = 2,
+  [163327] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15312), 2,
+    ACTIONS(11149), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163864] = 2,
+  [163336] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15314), 2,
+    ACTIONS(6988), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163873] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5858), 1,
-      sym_rank_statement,
+  [163345] = 3,
+    ACTIONS(10184), 1,
+      aux_sym__intrinsic_type_token5,
+    ACTIONS(10186), 1,
+      aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163884] = 3,
-    ACTIONS(4285), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(4287), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [163895] = 2,
+  [163356] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15316), 2,
+    ACTIONS(15089), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163904] = 2,
-    ACTIONS(21), 2,
+  [163365] = 3,
+    ACTIONS(15091), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15093), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15318), 2,
-      aux_sym_implicit_statement_token3,
-      aux_sym_implicit_statement_token4,
-  [163913] = 2,
+  [163376] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15320), 2,
+    ACTIONS(15095), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163922] = 2,
+  [163385] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15322), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [163931] = 2,
-    ACTIONS(21), 2,
+    ACTIONS(15097), 2,
+      aux_sym__kind_token1,
+      aux_sym__kind_token2,
+  [163394] = 3,
+    ACTIONS(15099), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15101), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11715), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [163940] = 3,
-    ACTIONS(15324), 1,
-      anon_sym_LPAREN2,
-    STATE(6416), 1,
-      sym_equivalence_set,
+  [163405] = 3,
+    ACTIONS(15103), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15105), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [163416] = 3,
+    ACTIONS(15107), 1,
+      anon_sym_COMMA,
+    ACTIONS(15109), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163951] = 2,
+  [163427] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15326), 2,
+    ACTIONS(15111), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163960] = 2,
+  [163436] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15328), 2,
+    ACTIONS(11057), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163969] = 2,
+  [163445] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15330), 2,
+    ACTIONS(8559), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [163978] = 3,
-    ACTIONS(15332), 1,
-      aux_sym__intrinsic_type_token5,
-    ACTIONS(15334), 1,
-      aux_sym__intrinsic_type_token7,
+  [163454] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [163989] = 3,
-    ACTIONS(15336), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15338), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(15113), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163463] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164000] = 2,
+    ACTIONS(15113), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163472] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15340), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [164009] = 2,
+    ACTIONS(15113), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163481] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15342), 2,
+    ACTIONS(15113), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164018] = 2,
+  [163490] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15344), 2,
+    ACTIONS(15115), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164027] = 2,
+  [163499] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(5513), 2,
+    ACTIONS(15117), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164036] = 2,
+  [163508] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15346), 2,
+    ACTIONS(15117), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164045] = 2,
+  [163517] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15348), 2,
+    ACTIONS(9995), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164054] = 3,
-    ACTIONS(15350), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15352), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [163526] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164065] = 2,
+    ACTIONS(15117), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163535] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13206), 2,
+    ACTIONS(15119), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164074] = 2,
+  [163544] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15354), 2,
+    ACTIONS(15121), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164083] = 3,
-    ACTIONS(15356), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15358), 1,
-      aux_sym_concurrent_locality_token3,
+  [163553] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164094] = 3,
-    ACTIONS(15360), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15362), 1,
-      aux_sym_concurrent_locality_token3,
+    ACTIONS(15123), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163562] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164105] = 2,
+    ACTIONS(15125), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163571] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9999), 2,
+    ACTIONS(15127), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164114] = 2,
+  [163580] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9881), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164123] = 2,
+    ACTIONS(15129), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163589] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15364), 2,
+    ACTIONS(15131), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164132] = 2,
+  [163598] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15366), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-  [164141] = 2,
+    ACTIONS(11685), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163607] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5839), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15368), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-  [164150] = 2,
+  [163618] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15370), 2,
+    ACTIONS(15133), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164159] = 2,
+  [163627] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15372), 2,
+    ACTIONS(15135), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164168] = 3,
-    ACTIONS(15374), 1,
+  [163636] = 3,
+    ACTIONS(15137), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15376), 1,
+    ACTIONS(15139), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164179] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6780), 1,
-      sym_selector,
+  [163647] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5993), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164190] = 2,
+  [163658] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9534), 2,
+    ACTIONS(15141), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163667] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15143), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164199] = 3,
-    ACTIONS(15378), 1,
+  [163676] = 3,
+    ACTIONS(15145), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15380), 1,
+    ACTIONS(15147), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164210] = 2,
+  [163687] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15382), 2,
+    ACTIONS(15149), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164219] = 2,
+  [163696] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15384), 2,
+    ACTIONS(15151), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164228] = 2,
+  [163705] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15386), 2,
+    ACTIONS(15153), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164237] = 2,
+  [163714] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15388), 2,
+    ACTIONS(15155), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164246] = 2,
+  [163723] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15390), 2,
+    ACTIONS(11241), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164255] = 2,
+  [163732] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6972), 2,
+    ACTIONS(15157), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164264] = 2,
+  [163741] = 3,
+    ACTIONS(15159), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(15161), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15392), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [164273] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5837), 1,
-      sym_rank_statement,
+  [163752] = 3,
+    ACTIONS(15163), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(15165), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164284] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6748), 1,
-      sym_selector,
+  [163763] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164295] = 3,
-    ACTIONS(15394), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15396), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(15167), 2,
+      aux_sym__kind_token1,
+      aux_sym__kind_token2,
+  [163772] = 3,
+    ACTIONS(15169), 1,
+      anon_sym_COMMA,
+    STATE(6268), 1,
+      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164306] = 3,
-    ACTIONS(15398), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15400), 1,
-      aux_sym_concurrent_locality_token3,
+  [163783] = 3,
+    ACTIONS(15171), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15173), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164317] = 2,
+  [163794] = 3,
+    ACTIONS(15175), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15177), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [163805] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15402), 2,
+    ACTIONS(15179), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164326] = 2,
+  [163814] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15404), 2,
+    ACTIONS(15181), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164335] = 2,
+  [163823] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15406), 2,
+    ACTIONS(15183), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164344] = 2,
+  [163832] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10464), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164353] = 3,
-    ACTIONS(13117), 1,
-      anon_sym_LPAREN2,
-    STATE(7857), 1,
-      sym_parenthesized_expression,
+    ACTIONS(15185), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163841] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164364] = 2,
+    ACTIONS(15187), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163850] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15408), 2,
-      aux_sym_end_program_statement_token1,
-      aux_sym_enumerator_statement_token1,
-  [164373] = 2,
+    ACTIONS(15189), 2,
+      anon_sym_RPAREN,
+      anon_sym_COLON,
+  [163859] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15410), 2,
+    ACTIONS(15191), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164382] = 3,
-    ACTIONS(15128), 1,
-      aux_sym_implicit_range_token1,
-    STATE(7652), 1,
-      sym_implicit_range,
+  [163868] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164393] = 2,
+    ACTIONS(15193), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163877] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15412), 2,
-      aux_sym_implicit_statement_token3,
-      aux_sym_implicit_statement_token4,
-  [164402] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6587), 1,
-      sym_selector,
+    ACTIONS(15195), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163886] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164413] = 2,
+    ACTIONS(15197), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [163895] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10017), 2,
+    ACTIONS(15199), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164422] = 2,
+  [163904] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13921), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164431] = 3,
-    ACTIONS(7767), 1,
-      anon_sym_LPAREN2,
-    STATE(7400), 1,
-      sym_parenthesized_expression,
-    ACTIONS(21), 2,
+    ACTIONS(15201), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [163913] = 3,
+    ACTIONS(15203), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15205), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164442] = 2,
+  [163924] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15414), 2,
+    ACTIONS(11213), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164451] = 3,
-    ACTIONS(15416), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15418), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [163933] = 3,
+    ACTIONS(14620), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15207), 1,
+      anon_sym_COMMA,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164462] = 2,
+  [163944] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15420), 2,
+    ACTIONS(15209), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164471] = 2,
+  [163953] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15422), 2,
+    ACTIONS(15211), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164480] = 3,
-    ACTIONS(15424), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15426), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [163962] = 3,
+    ACTIONS(5511), 1,
+      aux_sym_end_program_statement_token1,
+    ACTIONS(5513), 1,
+      aux_sym_end_if_statement_token1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164491] = 2,
+  [163973] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15428), 2,
+    ACTIONS(15213), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164500] = 3,
-    ACTIONS(15430), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15432), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [164511] = 2,
+  [163982] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(6968), 2,
+    ACTIONS(8483), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164520] = 3,
-    ACTIONS(15434), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15436), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [163991] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164531] = 3,
-    ACTIONS(15438), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15440), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(15215), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164000] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164542] = 2,
+    ACTIONS(15217), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164009] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15442), 2,
-      aux_sym__kind_token1,
-      aux_sym__kind_token2,
-  [164551] = 2,
+    ACTIONS(15219), 2,
+      aux_sym_defined_io_procedure_token3,
+      aux_sym_defined_io_procedure_token4,
+  [164018] = 3,
+    ACTIONS(15221), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(15223), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13414), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164560] = 2,
+  [164029] = 3,
+    ACTIONS(15225), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(15227), 1,
+      aux_sym_concurrent_locality_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10456), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164569] = 3,
-    ACTIONS(15444), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15446), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [164040] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164580] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6867), 1,
-      sym_selector,
+    ACTIONS(15229), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164049] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164591] = 3,
-    ACTIONS(15448), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15450), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+    ACTIONS(15231), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164058] = 3,
+    ACTIONS(9596), 1,
+      anon_sym_LBRACK,
+    STATE(3421), 1,
+      sym_coarray_index,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164602] = 3,
-    ACTIONS(15452), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15454), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [164069] = 3,
+    ACTIONS(15057), 1,
+      aux_sym_implicit_range_token1,
+    STATE(7277), 1,
+      sym_implicit_range,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164613] = 2,
+  [164080] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15456), 2,
+    ACTIONS(15233), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164622] = 3,
-    ACTIONS(15458), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15460), 1,
-      sym_preproc_arg,
-    ACTIONS(3), 2,
+  [164089] = 2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164633] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6631), 1,
-      sym_selector,
+    ACTIONS(15235), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164098] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164644] = 2,
+    ACTIONS(15237), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [164107] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10352), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [164653] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5798), 1,
-      sym_case_statement,
-    ACTIONS(21), 2,
+    ACTIONS(15239), 2,
+      aux_sym_defined_io_procedure_token3,
+      aux_sym_defined_io_procedure_token4,
+  [164116] = 3,
+    ACTIONS(15241), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15243), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164664] = 2,
+  [164127] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9971), 2,
+    ACTIONS(15245), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164673] = 2,
+  [164136] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15462), 2,
+    ACTIONS(15247), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164682] = 2,
+  [164145] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5807), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15464), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [164691] = 2,
+  [164156] = 3,
+    ACTIONS(13532), 1,
+      aux_sym__standalone_type_qualifier_token13,
+    STATE(5808), 1,
+      sym_rank_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15466), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [164700] = 2,
+  [164167] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15468), 2,
+    ACTIONS(15249), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164709] = 2,
+  [164176] = 3,
+    ACTIONS(15251), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15253), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164187] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15456), 2,
+    ACTIONS(15255), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164718] = 2,
+  [164196] = 3,
+    ACTIONS(4321), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(4323), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164207] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(7016), 2,
+    ACTIONS(15257), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164727] = 2,
+  [164216] = 3,
+    ACTIONS(15259), 1,
+      anon_sym_LPAREN2,
+    STATE(8541), 1,
+      sym__statement_function_arg_list,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15470), 2,
+  [164227] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15261), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164736] = 3,
-    ACTIONS(15472), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(15474), 1,
-      sym_preproc_arg,
+  [164236] = 3,
+    ACTIONS(4343), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(4345), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164747] = 2,
+  [164247] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5810), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11249), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [164756] = 2,
+  [164258] = 3,
+    ACTIONS(13559), 1,
+      aux_sym_select_case_statement_token2,
+    STATE(5814), 1,
+      sym_case_statement,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15476), 2,
-      aux_sym_defined_io_procedure_token3,
-      aux_sym_defined_io_procedure_token4,
-  [164765] = 2,
+  [164269] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15478), 2,
+    ACTIONS(15263), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164774] = 2,
+  [164278] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(10991), 2,
+    ACTIONS(15265), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164783] = 2,
+  [164287] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15480), 2,
+    ACTIONS(15267), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164792] = 2,
+  [164296] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15482), 2,
+    ACTIONS(15269), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164801] = 3,
-    ACTIONS(15128), 1,
-      aux_sym_implicit_range_token1,
-    STATE(6718), 1,
-      sym_implicit_range,
+  [164305] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(6952), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164314] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164812] = 2,
+    ACTIONS(15271), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [164323] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11039), 2,
+    ACTIONS(15273), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164821] = 3,
-    ACTIONS(15484), 1,
-      anon_sym_COMMA,
-    ACTIONS(15486), 1,
-      anon_sym_RPAREN,
+  [164332] = 3,
+    ACTIONS(13278), 1,
+      anon_sym_LPAREN2,
+    STATE(8127), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164832] = 2,
+  [164343] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15488), 2,
+    ACTIONS(15275), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164841] = 2,
+  [164352] = 3,
+    ACTIONS(4347), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(4349), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164363] = 3,
+    ACTIONS(4389), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(4391), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164374] = 3,
+    ACTIONS(15277), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15279), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164385] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15490), 2,
+    ACTIONS(15281), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164850] = 2,
-    ACTIONS(21), 2,
+  [164394] = 3,
+    ACTIONS(15283), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15285), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15492), 2,
-      aux_sym__kind_token1,
-      aux_sym__kind_token2,
-  [164859] = 3,
-    ACTIONS(15494), 1,
+  [164405] = 3,
+    ACTIONS(15287), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15289), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164416] = 3,
+    ACTIONS(15291), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15496), 1,
+    ACTIONS(15293), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164870] = 2,
+  [164427] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15456), 2,
+    ACTIONS(15295), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164879] = 3,
-    ACTIONS(13444), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(8142), 1,
-      sym_rank_statement,
+  [164436] = 3,
+    ACTIONS(15297), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15299), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164447] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(7111), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164890] = 2,
+  [164458] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15498), 2,
+    ACTIONS(5513), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164899] = 2,
+  [164467] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15500), 2,
+    ACTIONS(15301), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164908] = 2,
+  [164476] = 3,
+    ACTIONS(14537), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15303), 1,
+      anon_sym_COMMA,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164487] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15502), 2,
+    ACTIONS(15305), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164917] = 3,
-    ACTIONS(15504), 1,
+  [164496] = 3,
+    ACTIONS(15307), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15506), 1,
+    ACTIONS(15309), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164928] = 3,
-    ACTIONS(15508), 1,
+  [164507] = 3,
+    ACTIONS(15311), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15510), 1,
+    ACTIONS(15313), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164939] = 3,
-    ACTIONS(14996), 1,
-      anon_sym_LPAREN2,
-    STATE(6815), 1,
-      sym_selector,
+  [164518] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [164950] = 3,
-    ACTIONS(10180), 1,
-      aux_sym__intrinsic_type_token5,
-    ACTIONS(10182), 1,
-      aux_sym__intrinsic_type_token7,
-    ACTIONS(21), 2,
+    ACTIONS(14521), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [164527] = 3,
+    ACTIONS(15315), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15317), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164961] = 2,
+  [164538] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15512), 2,
+    ACTIONS(15319), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164970] = 2,
+  [164547] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15514), 2,
+    ACTIONS(9937), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164979] = 2,
+  [164556] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15516), 2,
+    ACTIONS(15321), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [164988] = 3,
-    ACTIONS(15518), 1,
-      anon_sym_COMMA,
-    ACTIONS(15520), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [164565] = 3,
+    ACTIONS(15323), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15325), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164576] = 3,
+    ACTIONS(15327), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15329), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [164999] = 3,
-    ACTIONS(15522), 1,
+  [164587] = 3,
+    ACTIONS(15331), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15524), 1,
+    ACTIONS(15333), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165010] = 2,
+  [164598] = 3,
+    ACTIONS(15335), 1,
+      anon_sym_LPAREN2,
+    STATE(7302), 1,
+      sym_equivalence_set,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15526), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165019] = 2,
+  [164609] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15222), 2,
+    ACTIONS(15337), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165028] = 3,
-    ACTIONS(14673), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(7791), 1,
-      sym_case_statement,
-    ACTIONS(21), 2,
+  [164618] = 3,
+    ACTIONS(15339), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15341), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165039] = 3,
-    ACTIONS(13688), 1,
-      anon_sym_RPAREN,
-    ACTIONS(15528), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
+  [164629] = 3,
+    ACTIONS(15343), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15345), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165050] = 2,
-    ACTIONS(21), 2,
+  [164640] = 3,
+    ACTIONS(15347), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15349), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15530), 2,
-      aux_sym_use_statement_token2,
-      aux_sym_use_statement_token3,
-  [165059] = 3,
-    ACTIONS(15532), 1,
+  [164651] = 3,
+    ACTIONS(15351), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15534), 1,
+    ACTIONS(15353), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165070] = 3,
-    ACTIONS(15536), 1,
-      anon_sym_LPAREN2,
-    STATE(8564), 1,
-      sym__statement_function_arg_list,
-    ACTIONS(21), 2,
+  [164662] = 3,
+    ACTIONS(15355), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15357), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164673] = 3,
+    ACTIONS(15359), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15361), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165081] = 2,
+  [164684] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15538), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165090] = 3,
-    ACTIONS(4293), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(4295), 1,
-      aux_sym_preproc_include_token2,
+    ACTIONS(14042), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [164693] = 3,
+    ACTIONS(15363), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15365), 1,
+      sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165101] = 3,
-    ACTIONS(15540), 1,
+  [164704] = 3,
+    ACTIONS(15367), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15542), 1,
+    ACTIONS(15369), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165112] = 2,
+  [164715] = 3,
+    ACTIONS(15371), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15373), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164726] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15544), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165121] = 2,
+    ACTIONS(15375), 2,
+      aux_sym__kind_token1,
+      aux_sym__kind_token2,
+  [164735] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15546), 2,
+    ACTIONS(15377), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165130] = 3,
-    ACTIONS(15548), 1,
+  [164744] = 3,
+    ACTIONS(15379), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15550), 1,
+    ACTIONS(15381), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165141] = 2,
+  [164755] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15552), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165150] = 2,
+    ACTIONS(14494), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [164764] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15554), 2,
+    ACTIONS(15383), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165159] = 3,
-    ACTIONS(15556), 1,
+  [164773] = 3,
+    ACTIONS(15385), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15387), 1,
+      aux_sym__standalone_type_qualifier_token8,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164784] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15389), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [164793] = 3,
+    ACTIONS(15391), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15558), 1,
+    ACTIONS(15393), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165170] = 3,
-    ACTIONS(13117), 1,
-      anon_sym_LPAREN2,
-    STATE(8034), 1,
-      sym_parenthesized_expression,
-    ACTIONS(21), 2,
+  [164804] = 3,
+    ACTIONS(15395), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15397), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165181] = 2,
-    ACTIONS(21), 2,
+  [164815] = 3,
+    ACTIONS(15399), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15401), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15456), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165190] = 3,
-    ACTIONS(10192), 1,
-      anon_sym_LPAREN2,
-    STATE(2851), 1,
-      sym__io_arguments,
-    ACTIONS(21), 2,
+  [164826] = 3,
+    ACTIONS(15403), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15405), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164837] = 3,
+    ACTIONS(15407), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15409), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165201] = 2,
+  [164848] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15560), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165210] = 2,
+    ACTIONS(15411), 2,
+      aux_sym_implicit_statement_token3,
+      aux_sym_implicit_statement_token4,
+  [164857] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15562), 2,
+    ACTIONS(13127), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165219] = 3,
-    ACTIONS(15564), 1,
+  [164866] = 3,
+    ACTIONS(15413), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15415), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164877] = 3,
+    ACTIONS(15417), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15566), 1,
+    ACTIONS(15419), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165230] = 2,
+  [164888] = 3,
+    ACTIONS(15057), 1,
+      aux_sym_implicit_range_token1,
+    STATE(7625), 1,
+      sym_implicit_range,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15568), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165239] = 2,
+  [164899] = 3,
+    ACTIONS(15421), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15423), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164910] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15570), 2,
+    ACTIONS(9694), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165248] = 3,
-    ACTIONS(7767), 1,
+  [164919] = 3,
+    ACTIONS(7751), 1,
       anon_sym_LPAREN2,
-    STATE(7316), 1,
+    STATE(7539), 1,
       sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165259] = 2,
-    ACTIONS(21), 2,
+  [164930] = 3,
+    ACTIONS(15425), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15427), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15572), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165268] = 3,
-    ACTIONS(15574), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(15576), 1,
-      aux_sym_concurrent_locality_token3,
+  [164941] = 3,
+    ACTIONS(15429), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15431), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164952] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165279] = 3,
-    ACTIONS(13704), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(13706), 1,
-      aux_sym_end_do_loop_statement_token1,
+    ACTIONS(15433), 2,
+      aux_sym__kind_token1,
+      aux_sym__kind_token2,
+  [164961] = 3,
+    ACTIONS(15435), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15437), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164972] = 3,
+    ACTIONS(15439), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15441), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [164983] = 3,
+    ACTIONS(15443), 1,
+      anon_sym_COMMA,
+    ACTIONS(15445), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165290] = 2,
+  [164994] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15578), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165299] = 2,
+    ACTIONS(15447), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+  [165003] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15580), 2,
+    ACTIONS(10019), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165308] = 2,
-    ACTIONS(21), 2,
+  [165012] = 3,
+    ACTIONS(15449), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15451), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15582), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [165317] = 2,
-    ACTIONS(21), 2,
+  [165023] = 3,
+    ACTIONS(15453), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15455), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13615), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [165326] = 3,
-    ACTIONS(15584), 1,
+  [165034] = 3,
+    ACTIONS(15457), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15586), 1,
+    ACTIONS(15459), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165337] = 3,
-    ACTIONS(15588), 1,
-      anon_sym_RPAREN,
-    ACTIONS(15590), 1,
-      aux_sym__standalone_type_qualifier_token8,
-    ACTIONS(21), 2,
+  [165045] = 3,
+    ACTIONS(15461), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15463), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165056] = 3,
+    ACTIONS(15465), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15467), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165348] = 3,
-    ACTIONS(15592), 1,
+  [165067] = 3,
+    ACTIONS(15469), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15594), 1,
+    ACTIONS(15471), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165359] = 2,
+  [165078] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11129), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165368] = 2,
+    ACTIONS(9714), 2,
+      anon_sym_COMMA,
+      anon_sym_RBRACK,
+  [165087] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15596), 2,
+    ACTIONS(12911), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165377] = 2,
-    ACTIONS(21), 2,
+  [165096] = 3,
+    ACTIONS(15473), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15475), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15598), 2,
-      aux_sym__kind_token1,
-      aux_sym__kind_token2,
-  [165386] = 3,
-    ACTIONS(15600), 1,
-      anon_sym_LPAREN2,
-    STATE(768), 1,
-      sym_parenthesized_expression,
-    ACTIONS(21), 2,
+  [165107] = 3,
+    ACTIONS(15477), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15479), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165397] = 2,
+  [165118] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15222), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165406] = 2,
+    ACTIONS(9787), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [165127] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15526), 2,
+    ACTIONS(12911), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165415] = 3,
-    ACTIONS(15602), 1,
-      anon_sym_COMMA,
-    ACTIONS(15604), 1,
-      anon_sym_RPAREN,
+  [165136] = 3,
+    ACTIONS(15481), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15483), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165147] = 3,
+    ACTIONS(15485), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15487), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165158] = 3,
+    ACTIONS(15489), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15491), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165169] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165426] = 3,
-    ACTIONS(4297), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(4299), 1,
-      aux_sym_preproc_include_token2,
+    ACTIONS(14454), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [165178] = 3,
+    ACTIONS(15493), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15495), 1,
+      sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165437] = 2,
+  [165189] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15606), 2,
+    ACTIONS(15497), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165446] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5907), 1,
-      sym_case_statement,
-    ACTIONS(21), 2,
+  [165198] = 3,
+    ACTIONS(15499), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15501), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165457] = 3,
-    ACTIONS(15608), 1,
+  [165209] = 3,
+    ACTIONS(15503), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15610), 1,
+    ACTIONS(15505), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165468] = 2,
+  [165220] = 3,
+    ACTIONS(15507), 1,
+      anon_sym_LBRACK,
+    STATE(4036), 1,
+      sym_coarray_index,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15612), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [165477] = 2,
-    ACTIONS(21), 2,
+  [165231] = 3,
+    ACTIONS(15509), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15511), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11023), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165486] = 2,
-    ACTIONS(21), 2,
+  [165242] = 3,
+    ACTIONS(15513), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15515), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15614), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165495] = 2,
-    ACTIONS(21), 2,
+  [165253] = 3,
+    ACTIONS(15517), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15519), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15616), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165504] = 2,
-    ACTIONS(21), 2,
+  [165264] = 3,
+    ACTIONS(15521), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15523), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15618), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165513] = 2,
+  [165275] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15526), 2,
+    ACTIONS(15525), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165522] = 2,
+  [165284] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15620), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165531] = 2,
+    ACTIONS(15527), 2,
+      aux_sym__kind_token1,
+      aux_sym__kind_token2,
+  [165293] = 3,
+    ACTIONS(15529), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15531), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165304] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11047), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165540] = 2,
+    ACTIONS(14321), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [165313] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15526), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165549] = 3,
-    ACTIONS(14996), 1,
+    ACTIONS(15533), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+  [165322] = 3,
+    ACTIONS(15535), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15537), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165333] = 3,
+    ACTIONS(15539), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15541), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165344] = 3,
+    ACTIONS(15543), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15545), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165355] = 3,
+    ACTIONS(14927), 1,
       anon_sym_LPAREN2,
-    STATE(6864), 1,
+    STATE(7009), 1,
       sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165560] = 2,
+  [165366] = 3,
+    ACTIONS(15547), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15549), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165377] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15622), 2,
+    ACTIONS(14119), 2,
       anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-  [165569] = 2,
+      anon_sym_RPAREN,
+  [165386] = 3,
+    ACTIONS(15551), 1,
+      aux_sym__intrinsic_type_token5,
+    ACTIONS(15553), 1,
+      aux_sym__intrinsic_type_token7,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15624), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165578] = 3,
-    ACTIONS(15626), 1,
+  [165397] = 3,
+    ACTIONS(15555), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15628), 1,
+    ACTIONS(15557), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165589] = 3,
-    ACTIONS(15630), 1,
+  [165408] = 3,
+    ACTIONS(15559), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15632), 1,
+    ACTIONS(15561), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165600] = 2,
+  [165419] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15634), 2,
+    ACTIONS(15563), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165609] = 2,
+  [165428] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15636), 2,
+    ACTIONS(15565), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165618] = 2,
+  [165437] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14870), 2,
+    ACTIONS(15567), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-  [165627] = 3,
-    ACTIONS(9630), 1,
-      anon_sym_LBRACK,
-    STATE(3422), 1,
-      sym_coarray_index,
-    ACTIONS(21), 2,
+  [165446] = 3,
+    ACTIONS(15569), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15571), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165638] = 2,
-    ACTIONS(21), 2,
+  [165457] = 3,
+    ACTIONS(15573), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15575), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(13233), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165647] = 2,
-    ACTIONS(21), 2,
+  [165468] = 3,
+    ACTIONS(15577), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15579), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15638), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [165656] = 2,
+  [165479] = 3,
+    ACTIONS(15581), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15583), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165490] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15640), 2,
+    ACTIONS(13364), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165665] = 3,
-    ACTIONS(15642), 1,
+  [165499] = 3,
+    ACTIONS(15585), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15644), 1,
+    ACTIONS(15587), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165676] = 2,
-    ACTIONS(21), 2,
+  [165510] = 3,
+    ACTIONS(15589), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15591), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15646), 2,
-      anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [165685] = 2,
+  [165521] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14877), 2,
+    ACTIONS(14142), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-  [165694] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5818), 1,
-      sym_case_statement,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [165705] = 2,
+  [165530] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15648), 2,
+    ACTIONS(15593), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165714] = 3,
-    ACTIONS(15324), 1,
+  [165539] = 3,
+    ACTIONS(15335), 1,
       anon_sym_LPAREN2,
-    STATE(6486), 1,
+    STATE(6403), 1,
       sym_equivalence_set,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165725] = 3,
-    ACTIONS(13604), 1,
-      aux_sym_select_case_statement_token2,
-    STATE(5819), 1,
-      sym_case_statement,
-    ACTIONS(21), 2,
+  [165550] = 3,
+    ACTIONS(15595), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15597), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165736] = 2,
+  [165561] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15650), 2,
+    ACTIONS(15599), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165745] = 2,
+  [165570] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15652), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-  [165754] = 2,
-    ACTIONS(21), 2,
+    ACTIONS(15601), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [165579] = 3,
+    ACTIONS(15603), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15605), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9875), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-  [165763] = 2,
+  [165590] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15654), 2,
+    ACTIONS(15607), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165772] = 3,
-    ACTIONS(15656), 1,
-      anon_sym_COMMA,
-    ACTIONS(15658), 1,
-      anon_sym_RPAREN,
+  [165599] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165783] = 3,
-    ACTIONS(14887), 1,
-      anon_sym_RPAREN,
-    ACTIONS(15660), 1,
-      anon_sym_COMMA,
+    ACTIONS(15609), 2,
+      aux_sym_implicit_statement_token3,
+      aux_sym_implicit_statement_token4,
+  [165608] = 3,
+    ACTIONS(15611), 1,
+      anon_sym_LPAREN2,
+    STATE(770), 1,
+      sym_parenthesized_expression,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165794] = 2,
+  [165619] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15662), 2,
+    ACTIONS(15613), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165803] = 3,
-    ACTIONS(13818), 1,
-      aux_sym__standalone_type_qualifier_token13,
-    STATE(5925), 1,
-      sym_rank_statement,
-    ACTIONS(21), 2,
+  [165628] = 3,
+    ACTIONS(15615), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15617), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165814] = 2,
+  [165639] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14904), 2,
+    ACTIONS(14155), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-  [165823] = 2,
+  [165648] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(6975), 1,
+      sym_selector,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15664), 2,
-      anon_sym_COMMA,
-      anon_sym_RBRACK,
-  [165832] = 2,
+  [165659] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15619), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [165668] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15666), 2,
+    ACTIONS(15621), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165841] = 3,
-    ACTIONS(15668), 1,
+  [165677] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(6973), 1,
+      sym_selector,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165688] = 3,
+    ACTIONS(15623), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15625), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165699] = 3,
+    ACTIONS(15627), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15670), 1,
+    ACTIONS(15629), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165852] = 2,
+  [165710] = 3,
+    ACTIONS(14927), 1,
+      anon_sym_LPAREN2,
+    STATE(6972), 1,
+      sym_selector,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165721] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15672), 2,
-      aux_sym__kind_token1,
-      aux_sym__kind_token2,
-  [165861] = 2,
+    ACTIONS(15631), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [165730] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(9748), 2,
+    ACTIONS(15633), 2,
       anon_sym_COMMA,
-      anon_sym_RPAREN,
-  [165870] = 2,
+      anon_sym_COLON_COLON,
+  [165739] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15674), 2,
+    ACTIONS(15635), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165879] = 3,
-    ACTIONS(15676), 1,
-      anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+  [165748] = 3,
+    ACTIONS(10211), 1,
+      anon_sym_LPAREN2,
+    STATE(2818), 1,
+      sym__io_arguments,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165759] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [165890] = 3,
-    ACTIONS(15678), 1,
+    ACTIONS(14340), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [165768] = 3,
+    ACTIONS(15637), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15680), 1,
+    ACTIONS(15639), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165901] = 2,
+  [165779] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15641), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [165788] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15682), 2,
+    ACTIONS(15643), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165910] = 3,
-    ACTIONS(15684), 1,
+  [165797] = 3,
+    ACTIONS(15645), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15647), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165808] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15649), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+  [165817] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(15651), 2,
+      anon_sym_COMMA,
+      anon_sym_COLON_COLON,
+  [165826] = 3,
+    ACTIONS(15653), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15686), 1,
+    ACTIONS(15655), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165921] = 2,
+  [165837] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15688), 2,
+    ACTIONS(11089), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165930] = 2,
+  [165846] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15690), 2,
+    ACTIONS(11093), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165939] = 2,
+  [165855] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15692), 2,
+    ACTIONS(15657), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165948] = 2,
+  [165864] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15694), 2,
+    ACTIONS(15659), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165957] = 2,
+  [165873] = 3,
+    ACTIONS(15661), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15663), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165884] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15688), 2,
+    ACTIONS(15665), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165966] = 3,
-    ACTIONS(15696), 1,
+  [165893] = 3,
+    ACTIONS(15667), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15669), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165904] = 3,
+    ACTIONS(15671), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15698), 1,
+    ACTIONS(15673), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [165977] = 2,
+  [165915] = 3,
+    ACTIONS(15675), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15677), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [165926] = 3,
+    ACTIONS(13950), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15679), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15688), 2,
+  [165937] = 2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+    ACTIONS(7192), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [165986] = 2,
+  [165946] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15700), 2,
-      anon_sym_COMMA,
-      anon_sym_COLON_COLON,
-  [165995] = 2,
+    ACTIONS(15681), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [165955] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15702), 2,
+    ACTIONS(15683), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166004] = 3,
-    ACTIONS(15704), 1,
+  [165964] = 3,
+    ACTIONS(15685), 1,
       anon_sym_COMMA,
-    STATE(6143), 1,
-      aux_sym_cuda_kernel_argument_list_repeat1,
+    ACTIONS(15687), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166015] = 2,
+  [165975] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15706), 2,
+    ACTIONS(15689), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166024] = 3,
-    ACTIONS(4289), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(4291), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [166035] = 2,
+  [165984] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15708), 2,
+    ACTIONS(15691), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166044] = 3,
-    ACTIONS(15710), 1,
+  [165993] = 3,
+    ACTIONS(15693), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15712), 1,
+    ACTIONS(15695), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166055] = 3,
-    ACTIONS(5511), 1,
-      aux_sym_end_program_statement_token1,
-    ACTIONS(5513), 1,
-      aux_sym_end_if_statement_token1,
+  [166004] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166066] = 2,
+    ACTIONS(15697), 2,
+      sym__external_end_of_statement,
+      anon_sym_SEMI,
+  [166013] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15714), 2,
+    ACTIONS(15691), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166075] = 2,
+  [166022] = 3,
+    ACTIONS(15699), 1,
+      aux_sym_language_binding_token1,
+    STATE(7130), 1,
+      sym_language_binding,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166033] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15716), 2,
+    ACTIONS(15691), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166084] = 2,
+  [166042] = 3,
+    ACTIONS(15701), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15703), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166053] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15008), 2,
+    ACTIONS(10463), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166093] = 2,
+  [166062] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15718), 2,
+    ACTIONS(15705), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166102] = 2,
+  [166071] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15720), 2,
+    ACTIONS(15707), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166111] = 2,
+  [166080] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(14934), 2,
+    ACTIONS(14298), 2,
       anon_sym_COMMA,
       anon_sym_RPAREN,
-  [166120] = 2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-    ACTIONS(15722), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [166129] = 2,
+  [166089] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(11023), 2,
+    ACTIONS(15709), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166138] = 3,
-    ACTIONS(15724), 1,
+  [166098] = 3,
+    ACTIONS(15711), 1,
       aux_sym_preproc_def_token2,
-    ACTIONS(15726), 1,
+    ACTIONS(15713), 1,
       sym_preproc_arg,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166149] = 2,
+  [166109] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15008), 2,
+    ACTIONS(15691), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166158] = 2,
+  [166118] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15728), 2,
-      sym__external_end_of_statement,
-      anon_sym_SEMI,
-  [166167] = 2,
+    ACTIONS(10390), 2,
+      anon_sym_COMMA,
+      anon_sym_RPAREN,
+  [166127] = 3,
+    ACTIONS(15715), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(15717), 1,
+      sym_preproc_arg,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166138] = 3,
+    ACTIONS(15719), 1,
+      anon_sym_RPAREN,
+    ACTIONS(15721), 1,
+      aux_sym__standalone_type_qualifier_token8,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166149] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-    ACTIONS(15730), 2,
+    ACTIONS(15723), 2,
       sym__external_end_of_statement,
       anon_sym_SEMI,
-  [166176] = 3,
-    ACTIONS(15732), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(15734), 1,
-      aux_sym_type_statement_token1,
+  [166158] = 2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166187] = 3,
-    ACTIONS(15732), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(15736), 1,
-      aux_sym_type_statement_token1,
-    ACTIONS(21), 2,
+    ACTIONS(15725), 2,
+      aux_sym_end_program_statement_token1,
+      aux_sym_enumerator_statement_token1,
+  [166167] = 2,
+    ACTIONS(15727), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166198] = 3,
-    ACTIONS(15732), 1,
-      aux_sym_concurrent_locality_token3,
-    ACTIONS(15738), 1,
-      aux_sym_type_statement_token1,
+  [166175] = 2,
+    ACTIONS(15729), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166209] = 2,
-    ACTIONS(15740), 1,
+  [166183] = 2,
+    ACTIONS(15719), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166217] = 2,
-    ACTIONS(15742), 1,
+  [166191] = 2,
+    ACTIONS(15731), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166225] = 2,
-    ACTIONS(15744), 1,
+  [166199] = 2,
+    ACTIONS(15733), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166233] = 2,
-    ACTIONS(15746), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [166207] = 2,
+    ACTIONS(15735), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166241] = 2,
-    ACTIONS(15748), 1,
-      aux_sym_preproc_if_token2,
+  [166215] = 2,
+    ACTIONS(15737), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166249] = 2,
-    ACTIONS(15750), 1,
+  [166223] = 2,
+    ACTIONS(15739), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166257] = 2,
-    ACTIONS(15752), 1,
+  [166231] = 2,
+    ACTIONS(15741), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166265] = 2,
-    ACTIONS(15754), 1,
-      aux_sym_preproc_if_token2,
+  [166239] = 2,
+    ACTIONS(15743), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166273] = 2,
-    ACTIONS(15756), 1,
+  [166247] = 2,
+    ACTIONS(15745), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166281] = 2,
-    ACTIONS(15758), 1,
+  [166255] = 2,
+    ACTIONS(15747), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166289] = 2,
-    ACTIONS(15760), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [166263] = 2,
+    ACTIONS(15749), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166297] = 2,
-    ACTIONS(15762), 1,
+  [166271] = 2,
+    ACTIONS(15751), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166305] = 2,
-    ACTIONS(15764), 1,
+  [166279] = 2,
+    ACTIONS(15753), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166313] = 2,
-    ACTIONS(7561), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [166287] = 2,
+    ACTIONS(15755), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166321] = 2,
-    ACTIONS(15766), 1,
+  [166295] = 2,
+    ACTIONS(15757), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166329] = 2,
-    ACTIONS(15768), 1,
-      anon_sym_LF,
+  [166303] = 2,
+    ACTIONS(15759), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166337] = 2,
-    ACTIONS(15770), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [166345] = 2,
-    ACTIONS(15772), 1,
+  [166311] = 2,
+    ACTIONS(15761), 1,
       aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166353] = 2,
-    ACTIONS(15774), 1,
+  [166319] = 2,
+    ACTIONS(15763), 1,
       sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166361] = 2,
-    ACTIONS(14469), 1,
+  [166327] = 2,
+    ACTIONS(14255), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166369] = 2,
-    ACTIONS(15776), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [166335] = 2,
+    ACTIONS(15765), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166377] = 2,
-    ACTIONS(15778), 1,
-      anon_sym_RPAREN,
+  [166343] = 2,
+    ACTIONS(15767), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166385] = 2,
-    ACTIONS(15780), 1,
+  [166351] = 2,
+    ACTIONS(15769), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166393] = 2,
-    ACTIONS(15782), 1,
-      anon_sym_RPAREN,
+  [166359] = 2,
+    ACTIONS(15771), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166401] = 2,
-    ACTIONS(15784), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [166367] = 2,
+    ACTIONS(15773), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166409] = 2,
-    ACTIONS(15786), 1,
-      aux_sym_preproc_if_token2,
+  [166375] = 2,
+    ACTIONS(15775), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166417] = 2,
-    ACTIONS(15788), 1,
+  [166383] = 2,
+    ACTIONS(15777), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166425] = 2,
-    ACTIONS(15790), 1,
-      aux_sym__inline_where_statement_token1,
+  [166391] = 2,
+    ACTIONS(15779), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166433] = 2,
-    ACTIONS(15792), 1,
+  [166399] = 2,
+    ACTIONS(15781), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166441] = 2,
-    ACTIONS(15794), 1,
-      aux_sym_preproc_if_token2,
+  [166407] = 2,
+    ACTIONS(15783), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166449] = 2,
-    ACTIONS(15796), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [166415] = 2,
+    ACTIONS(15785), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166457] = 2,
-    ACTIONS(15798), 1,
-      aux_sym_preproc_if_token2,
+  [166423] = 2,
+    ACTIONS(15787), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166465] = 2,
-    ACTIONS(15800), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [166431] = 2,
+    ACTIONS(14310), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166473] = 2,
-    ACTIONS(15802), 1,
-      aux_sym_preproc_if_token2,
+  [166439] = 2,
+    ACTIONS(15789), 1,
+      ts_builtin_sym_end,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166481] = 2,
-    ACTIONS(15804), 1,
+  [166447] = 2,
+    ACTIONS(15791), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166489] = 2,
-    ACTIONS(15806), 1,
+  [166455] = 2,
+    ACTIONS(15793), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166497] = 2,
-    ACTIONS(15808), 1,
+  [166463] = 2,
+    ACTIONS(15795), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166505] = 2,
-    ACTIONS(15810), 1,
-      anon_sym_COLON,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [166513] = 2,
-    ACTIONS(15812), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [166521] = 2,
-    ACTIONS(15814), 1,
+  [166471] = 2,
+    ACTIONS(15797), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166529] = 2,
-    ACTIONS(11055), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [166537] = 2,
-    ACTIONS(15816), 1,
+  [166479] = 2,
+    ACTIONS(15799), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166545] = 2,
-    ACTIONS(15818), 1,
+  [166487] = 2,
+    ACTIONS(15801), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166553] = 2,
-    ACTIONS(15820), 1,
+  [166495] = 2,
+    ACTIONS(15803), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166561] = 2,
-    ACTIONS(15822), 1,
+  [166503] = 2,
+    ACTIONS(15805), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166569] = 2,
-    ACTIONS(15824), 1,
-      anon_sym_RPAREN,
+  [166511] = 2,
+    ACTIONS(10188), 1,
+      aux_sym_coarray_statement_token10,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166577] = 2,
-    ACTIONS(15826), 1,
+  [166519] = 2,
+    ACTIONS(15807), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166585] = 2,
-    ACTIONS(15828), 1,
+  [166527] = 2,
+    ACTIONS(15809), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166593] = 2,
-    ACTIONS(15830), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [166535] = 2,
+    ACTIONS(15811), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166601] = 2,
-    ACTIONS(15832), 1,
-      aux_sym_preproc_if_token2,
+  [166543] = 2,
+    ACTIONS(15813), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166609] = 2,
-    ACTIONS(15834), 1,
-      aux_sym_preproc_if_token2,
+  [166551] = 2,
+    ACTIONS(10166), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166617] = 2,
-    ACTIONS(15836), 1,
+  [166559] = 2,
+    ACTIONS(14238), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166567] = 2,
+    ACTIONS(15815), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166575] = 2,
+    ACTIONS(15817), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166625] = 2,
-    ACTIONS(15838), 1,
+  [166583] = 2,
+    ACTIONS(15819), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166633] = 2,
-    ACTIONS(15840), 1,
+  [166591] = 2,
+    ACTIONS(15821), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166641] = 2,
-    ACTIONS(15842), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [166599] = 2,
+    ACTIONS(15823), 1,
+      sym__string_literal,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166649] = 2,
-    ACTIONS(15844), 1,
+  [166607] = 2,
+    ACTIONS(15825), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166657] = 2,
-    ACTIONS(15846), 1,
-      anon_sym_SLASH,
+  [166615] = 2,
+    ACTIONS(15827), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166665] = 2,
-    ACTIONS(15848), 1,
+  [166623] = 2,
+    ACTIONS(15829), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [166631] = 2,
+    ACTIONS(15831), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166673] = 2,
-    ACTIONS(15850), 1,
-      aux_sym_preproc_if_token2,
+  [166639] = 2,
+    ACTIONS(15833), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166681] = 2,
-    ACTIONS(15852), 1,
+  [166647] = 2,
+    ACTIONS(15835), 1,
       sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166689] = 2,
-    ACTIONS(14489), 1,
+  [166655] = 2,
+    ACTIONS(14216), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166697] = 2,
-    ACTIONS(15854), 1,
+  [166663] = 2,
+    ACTIONS(15837), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166705] = 2,
-    ACTIONS(15856), 1,
-      aux_sym_preproc_if_token2,
+  [166671] = 2,
+    ACTIONS(15839), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166713] = 2,
-    ACTIONS(15858), 1,
+  [166679] = 2,
+    ACTIONS(15841), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166721] = 2,
-    ACTIONS(15860), 1,
-      aux_sym_preproc_if_token2,
+  [166687] = 2,
+    ACTIONS(15843), 1,
+      anon_sym_DOT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166729] = 2,
-    ACTIONS(15862), 1,
+  [166695] = 2,
+    ACTIONS(15845), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166737] = 2,
-    ACTIONS(15864), 1,
+  [166703] = 2,
+    ACTIONS(15847), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166745] = 2,
-    ACTIONS(15866), 1,
+  [166711] = 2,
+    ACTIONS(15849), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166753] = 2,
-    ACTIONS(15868), 1,
+  [166719] = 2,
+    ACTIONS(15851), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166761] = 2,
-    ACTIONS(15870), 1,
+  [166727] = 2,
+    ACTIONS(15853), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166769] = 2,
-    ACTIONS(15872), 1,
+  [166735] = 2,
+    ACTIONS(15855), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166777] = 2,
-    ACTIONS(15874), 1,
+  [166743] = 2,
+    ACTIONS(15857), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166785] = 2,
-    ACTIONS(15876), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [166751] = 2,
+    ACTIONS(15859), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166793] = 2,
-    ACTIONS(15878), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [166759] = 2,
+    ACTIONS(15861), 1,
+      aux_sym_user_defined_operator_token1,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166801] = 2,
-    ACTIONS(15880), 1,
+  [166767] = 2,
+    ACTIONS(15863), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166809] = 2,
-    ACTIONS(15882), 1,
+  [166775] = 2,
+    ACTIONS(15865), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166817] = 2,
-    ACTIONS(15884), 1,
+  [166783] = 2,
+    ACTIONS(15867), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166825] = 2,
-    ACTIONS(15886), 1,
+  [166791] = 2,
+    ACTIONS(15869), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166833] = 2,
-    ACTIONS(15888), 1,
-      aux_sym_preproc_if_token2,
+  [166799] = 2,
+    ACTIONS(15871), 1,
+      anon_sym_RBRACK,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166841] = 2,
-    ACTIONS(15890), 1,
+  [166807] = 2,
+    ACTIONS(15873), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166849] = 2,
-    ACTIONS(15892), 1,
-      anon_sym_SLASH_RPAREN,
+  [166815] = 2,
+    ACTIONS(15875), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166857] = 2,
-    ACTIONS(15894), 1,
+  [166823] = 2,
+    ACTIONS(15877), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166865] = 2,
-    ACTIONS(15896), 1,
-      anon_sym_SLASH_RPAREN,
+  [166831] = 2,
+    ACTIONS(15879), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166873] = 2,
-    ACTIONS(15898), 1,
+  [166839] = 2,
+    ACTIONS(15881), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166881] = 2,
-    ACTIONS(15900), 1,
+  [166847] = 2,
+    ACTIONS(15883), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166889] = 2,
-    ACTIONS(15902), 1,
+  [166855] = 2,
+    ACTIONS(15885), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166897] = 2,
-    ACTIONS(15904), 1,
-      anon_sym_COLON_COLON,
+  [166863] = 2,
+    ACTIONS(15887), 1,
+      aux_sym_implicit_statement_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166905] = 2,
-    ACTIONS(15906), 1,
-      sym__string_literal,
+  [166871] = 2,
+    ACTIONS(15889), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166913] = 2,
-    ACTIONS(15908), 1,
+  [166879] = 2,
+    ACTIONS(15891), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166921] = 2,
-    ACTIONS(14127), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [166887] = 2,
+    ACTIONS(15893), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166929] = 2,
-    ACTIONS(15910), 1,
-      aux_sym_preproc_if_token2,
+  [166895] = 2,
+    ACTIONS(15895), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166937] = 2,
-    ACTIONS(15912), 1,
-      anon_sym_RBRACK,
+  [166903] = 2,
+    ACTIONS(15897), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166945] = 2,
-    ACTIONS(14515), 1,
+  [166911] = 2,
+    ACTIONS(14200), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166953] = 2,
-    ACTIONS(15914), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [166919] = 2,
+    ACTIONS(8345), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166961] = 2,
-    ACTIONS(15916), 1,
-      anon_sym_RPAREN,
+  [166927] = 2,
+    ACTIONS(15899), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166969] = 2,
-    ACTIONS(15918), 1,
+  [166935] = 2,
+    ACTIONS(15901), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166977] = 2,
-    ACTIONS(15920), 1,
+  [166943] = 2,
+    ACTIONS(15903), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [166985] = 2,
-    ACTIONS(15922), 1,
+  [166951] = 2,
+    ACTIONS(15905), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [166993] = 2,
-    ACTIONS(15924), 1,
-      aux_sym_interface_statement_token1,
+  [166959] = 2,
+    ACTIONS(15907), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167001] = 2,
-    ACTIONS(15926), 1,
+  [166967] = 2,
+    ACTIONS(15909), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167009] = 2,
-    ACTIONS(15928), 1,
-      aux_sym_preproc_if_token2,
+  [166975] = 2,
+    ACTIONS(15911), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167017] = 2,
-    ACTIONS(15930), 1,
+  [166983] = 2,
+    ACTIONS(15913), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167025] = 2,
-    ACTIONS(15932), 1,
+  [166991] = 2,
+    ACTIONS(15915), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167033] = 2,
-    ACTIONS(15934), 1,
+  [166999] = 2,
+    ACTIONS(15917), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167041] = 2,
-    ACTIONS(15936), 1,
+  [167007] = 2,
+    ACTIONS(15919), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167049] = 2,
-    ACTIONS(15938), 1,
-      aux_sym_preproc_if_token2,
+  [167015] = 2,
+    ACTIONS(15921), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167057] = 2,
-    ACTIONS(15940), 1,
-      anon_sym_LPAREN2,
+  [167023] = 2,
+    ACTIONS(15923), 1,
+      aux_sym_select_case_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167065] = 2,
-    ACTIONS(15942), 1,
-      aux_sym_interface_statement_token1,
+  [167031] = 2,
+    ACTIONS(15925), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167073] = 2,
-    ACTIONS(15944), 1,
+  [167039] = 2,
+    ACTIONS(15927), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167081] = 2,
-    ACTIONS(15946), 1,
+  [167047] = 2,
+    ACTIONS(15929), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167089] = 2,
-    ACTIONS(15948), 1,
-      aux_sym_preproc_if_token2,
+  [167055] = 2,
+    ACTIONS(15931), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167097] = 2,
-    ACTIONS(15950), 1,
-      aux_sym_preproc_if_token2,
+  [167063] = 2,
+    ACTIONS(10226), 1,
+      aux_sym__inline_where_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167105] = 2,
-    ACTIONS(15952), 1,
-      aux_sym_preproc_if_token2,
+  [167071] = 2,
+    ACTIONS(15933), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167113] = 2,
-    ACTIONS(15954), 1,
-      aux_sym_preproc_if_token2,
+  [167079] = 2,
+    ACTIONS(15935), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167121] = 2,
-    ACTIONS(15956), 1,
+  [167087] = 2,
+    ACTIONS(15937), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167129] = 2,
-    ACTIONS(15958), 1,
+  [167095] = 2,
+    ACTIONS(15939), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167137] = 2,
-    ACTIONS(15960), 1,
+  [167103] = 2,
+    ACTIONS(15941), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167145] = 2,
-    ACTIONS(15962), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [167111] = 2,
+    ACTIONS(15943), 1,
+      anon_sym_EQ,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167153] = 2,
-    ACTIONS(15964), 1,
+  [167119] = 2,
+    ACTIONS(15945), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167161] = 2,
-    ACTIONS(15966), 1,
+  [167127] = 2,
+    ACTIONS(15947), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167169] = 2,
-    ACTIONS(15968), 1,
+  [167135] = 2,
+    ACTIONS(15949), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167177] = 2,
-    ACTIONS(15970), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [167143] = 2,
+    ACTIONS(15951), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167185] = 2,
-    ACTIONS(15972), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [167151] = 2,
+    ACTIONS(15953), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167193] = 2,
-    ACTIONS(15974), 1,
+  [167159] = 2,
+    ACTIONS(15955), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167201] = 2,
-    ACTIONS(14527), 1,
+  [167167] = 2,
+    ACTIONS(14166), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167209] = 2,
-    ACTIONS(15976), 1,
-      aux_sym_preproc_if_token2,
+  [167175] = 2,
+    ACTIONS(15957), 1,
+      anon_sym_SLASH_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167217] = 2,
-    ACTIONS(15978), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [167183] = 2,
+    ACTIONS(11081), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167225] = 2,
-    ACTIONS(15980), 1,
+  [167191] = 2,
+    ACTIONS(15959), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167233] = 2,
-    ACTIONS(15982), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [167199] = 2,
+    ACTIONS(15961), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167241] = 2,
-    ACTIONS(15984), 1,
+  [167207] = 2,
+    ACTIONS(15963), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167249] = 2,
-    ACTIONS(15986), 1,
+  [167215] = 2,
+    ACTIONS(15965), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167257] = 2,
-    ACTIONS(15988), 1,
+  [167223] = 2,
+    ACTIONS(15967), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167265] = 2,
-    ACTIONS(15990), 1,
-      anon_sym_RBRACK,
+  [167231] = 2,
+    ACTIONS(15969), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167273] = 2,
-    ACTIONS(15992), 1,
+  [167239] = 2,
+    ACTIONS(15971), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167281] = 2,
-    ACTIONS(15994), 1,
+  [167247] = 2,
+    ACTIONS(15973), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167289] = 2,
-    ACTIONS(15996), 1,
+  [167255] = 2,
+    ACTIONS(15975), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167297] = 2,
-    ACTIONS(15998), 1,
+  [167263] = 2,
+    ACTIONS(15977), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167305] = 2,
-    ACTIONS(16000), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [167313] = 2,
-    ACTIONS(16002), 1,
+  [167271] = 2,
+    ACTIONS(15979), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167321] = 2,
-    ACTIONS(16004), 1,
+  [167279] = 2,
+    ACTIONS(15981), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167329] = 2,
-    ACTIONS(16006), 1,
-      aux_sym_preproc_if_token2,
+  [167287] = 2,
+    ACTIONS(15983), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167337] = 2,
-    ACTIONS(16008), 1,
+  [167295] = 2,
+    ACTIONS(15985), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167345] = 2,
-    ACTIONS(16010), 1,
+  [167303] = 2,
+    ACTIONS(15987), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167353] = 2,
-    ACTIONS(16012), 1,
-      anon_sym_LPAREN2,
+  [167311] = 2,
+    ACTIONS(15989), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167361] = 2,
-    ACTIONS(16014), 1,
+  [167319] = 2,
+    ACTIONS(15991), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167369] = 2,
-    ACTIONS(16016), 1,
+  [167327] = 2,
+    ACTIONS(15993), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167377] = 2,
-    ACTIONS(16018), 1,
+  [167335] = 2,
+    ACTIONS(15995), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167385] = 2,
-    ACTIONS(16020), 1,
+  [167343] = 2,
+    ACTIONS(15997), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167393] = 2,
-    ACTIONS(16022), 1,
+  [167351] = 2,
+    ACTIONS(15999), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167401] = 2,
-    ACTIONS(16024), 1,
-      anon_sym_RPAREN,
+  [167359] = 2,
+    ACTIONS(16001), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167409] = 2,
-    ACTIONS(16026), 1,
+  [167367] = 2,
+    ACTIONS(16003), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167417] = 2,
-    ACTIONS(16028), 1,
-      aux_sym__block_if_statement_token1,
+  [167375] = 2,
+    ACTIONS(16005), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167425] = 2,
-    ACTIONS(16030), 1,
+  [167383] = 2,
+    ACTIONS(13354), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167433] = 2,
-    ACTIONS(16032), 1,
-      aux_sym__block_if_statement_token1,
+  [167391] = 2,
+    ACTIONS(16007), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167441] = 2,
-    ACTIONS(16034), 1,
+  [167399] = 2,
+    ACTIONS(16009), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167449] = 2,
-    ACTIONS(16036), 1,
-      anon_sym_EQ,
+  [167407] = 2,
+    ACTIONS(16011), 1,
+      aux_sym_stop_statement_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167457] = 2,
-    ACTIONS(14537), 1,
+  [167415] = 2,
+    ACTIONS(16013), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [167423] = 2,
+    ACTIONS(14148), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167465] = 2,
-    ACTIONS(16038), 1,
+  [167431] = 2,
+    ACTIONS(16015), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167473] = 2,
-    ACTIONS(16040), 1,
+  [167439] = 2,
+    ACTIONS(16017), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167481] = 2,
-    ACTIONS(16042), 1,
+  [167447] = 2,
+    ACTIONS(16019), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167489] = 2,
-    ACTIONS(16044), 1,
-      aux_sym_preproc_if_token2,
+  [167455] = 2,
+    ACTIONS(16021), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167497] = 2,
-    ACTIONS(16046), 1,
+  [167463] = 2,
+    ACTIONS(16023), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167505] = 2,
-    ACTIONS(16048), 1,
+  [167471] = 2,
+    ACTIONS(16025), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167513] = 2,
-    ACTIONS(16050), 1,
+  [167479] = 2,
+    ACTIONS(16027), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167521] = 2,
-    ACTIONS(16052), 1,
-      anon_sym_RPAREN,
+  [167487] = 2,
+    ACTIONS(16029), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167529] = 2,
-    ACTIONS(16054), 1,
+  [167495] = 2,
+    ACTIONS(16031), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167537] = 2,
-    ACTIONS(16056), 1,
+  [167503] = 2,
+    ACTIONS(16033), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167545] = 2,
-    ACTIONS(16058), 1,
+  [167511] = 2,
+    ACTIONS(16035), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167553] = 2,
-    ACTIONS(16060), 1,
-      aux_sym_preproc_if_token2,
+  [167519] = 2,
+    ACTIONS(16037), 1,
+      aux_sym_keyword_statement_token5,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167561] = 2,
-    ACTIONS(16062), 1,
+  [167527] = 2,
+    ACTIONS(16039), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167569] = 2,
-    ACTIONS(16064), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [167535] = 2,
+    ACTIONS(16041), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167577] = 2,
-    ACTIONS(16066), 1,
+  [167543] = 2,
+    ACTIONS(16043), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167585] = 2,
-    ACTIONS(16068), 1,
+  [167551] = 2,
+    ACTIONS(16045), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167593] = 2,
-    ACTIONS(16070), 1,
+  [167559] = 2,
+    ACTIONS(16047), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167601] = 2,
-    ACTIONS(16072), 1,
+  [167567] = 2,
+    ACTIONS(16049), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167609] = 2,
-    ACTIONS(16074), 1,
+  [167575] = 2,
+    ACTIONS(16051), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167617] = 2,
-    ACTIONS(16076), 1,
+  [167583] = 2,
+    ACTIONS(13339), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167625] = 2,
-    ACTIONS(16078), 1,
-      aux_sym_preproc_if_token2,
+  [167591] = 2,
+    ACTIONS(16053), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167633] = 2,
-    ACTIONS(13327), 1,
-      anon_sym_EQ_GT,
+  [167599] = 2,
+    ACTIONS(16055), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167641] = 2,
-    ACTIONS(16080), 1,
+  [167607] = 2,
+    ACTIONS(16057), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167649] = 2,
-    ACTIONS(16082), 1,
+  [167615] = 2,
+    ACTIONS(16059), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167657] = 2,
-    ACTIONS(16084), 1,
-      anon_sym_EQ,
+  [167623] = 2,
+    ACTIONS(16061), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167665] = 2,
-    ACTIONS(16086), 1,
+  [167631] = 2,
+    ACTIONS(16063), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167673] = 2,
-    ACTIONS(16088), 1,
+  [167639] = 2,
+    ACTIONS(16065), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167681] = 2,
-    ACTIONS(16090), 1,
+  [167647] = 2,
+    ACTIONS(16067), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167689] = 2,
-    ACTIONS(16092), 1,
-      aux_sym__inline_if_statement_token1,
+  [167655] = 2,
+    ACTIONS(16069), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167697] = 2,
-    ACTIONS(16094), 1,
+  [167663] = 2,
+    ACTIONS(16071), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167705] = 2,
-    ACTIONS(14547), 1,
+  [167671] = 2,
+    ACTIONS(14131), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167713] = 2,
-    ACTIONS(16096), 1,
-      anon_sym_EQ,
+  [167679] = 2,
+    ACTIONS(16073), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167721] = 2,
-    ACTIONS(16098), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [167687] = 2,
+    ACTIONS(16075), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167729] = 2,
-    ACTIONS(16100), 1,
+  [167695] = 2,
+    ACTIONS(16077), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167737] = 2,
-    ACTIONS(16102), 1,
+  [167703] = 2,
+    ACTIONS(16079), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167745] = 2,
-    ACTIONS(16104), 1,
+  [167711] = 2,
+    ACTIONS(16081), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167753] = 2,
-    ACTIONS(16106), 1,
+  [167719] = 2,
+    ACTIONS(16083), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167761] = 2,
-    ACTIONS(16108), 1,
+  [167727] = 2,
+    ACTIONS(16085), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167769] = 2,
-    ACTIONS(16110), 1,
+  [167735] = 2,
+    ACTIONS(16087), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167777] = 2,
-    ACTIONS(16112), 1,
+  [167743] = 2,
+    ACTIONS(16089), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167785] = 2,
-    ACTIONS(16114), 1,
+  [167751] = 2,
+    ACTIONS(16091), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167793] = 2,
-    ACTIONS(16116), 1,
+  [167759] = 2,
+    ACTIONS(16093), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167801] = 2,
-    ACTIONS(16118), 1,
+  [167767] = 2,
+    ACTIONS(16095), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167809] = 2,
-    ACTIONS(16120), 1,
+  [167775] = 2,
+    ACTIONS(16097), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167817] = 2,
-    ACTIONS(16122), 1,
+  [167783] = 2,
+    ACTIONS(16099), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167825] = 2,
-    ACTIONS(16124), 1,
+  [167791] = 2,
+    ACTIONS(16101), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167833] = 2,
-    ACTIONS(14551), 1,
+  [167799] = 2,
+    ACTIONS(14129), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167841] = 2,
-    ACTIONS(16126), 1,
-      anon_sym_LPAREN2,
+  [167807] = 2,
+    ACTIONS(16103), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167849] = 2,
-    ACTIONS(16128), 1,
-      aux_sym_preproc_if_token2,
+  [167815] = 2,
+    ACTIONS(16105), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167857] = 2,
-    ACTIONS(16130), 1,
+  [167823] = 2,
+    ACTIONS(16107), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167865] = 2,
-    ACTIONS(16132), 1,
+  [167831] = 2,
+    ACTIONS(16109), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167873] = 2,
-    ACTIONS(16134), 1,
-      aux_sym_preproc_if_token2,
+  [167839] = 2,
+    ACTIONS(16111), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167881] = 2,
-    ACTIONS(16136), 1,
+  [167847] = 2,
+    ACTIONS(16113), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167889] = 2,
-    ACTIONS(16138), 1,
+  [167855] = 2,
+    ACTIONS(16115), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167897] = 2,
-    ACTIONS(16140), 1,
+  [167863] = 2,
+    ACTIONS(16117), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167905] = 2,
-    ACTIONS(16142), 1,
+  [167871] = 2,
+    ACTIONS(16119), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167913] = 2,
-    ACTIONS(16144), 1,
+  [167879] = 2,
+    ACTIONS(16121), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167921] = 2,
-    ACTIONS(16146), 1,
+  [167887] = 2,
+    ACTIONS(16123), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167929] = 2,
-    ACTIONS(16148), 1,
+  [167895] = 2,
+    ACTIONS(16125), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167937] = 2,
-    ACTIONS(16150), 1,
+  [167903] = 2,
+    ACTIONS(16127), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167945] = 2,
-    ACTIONS(16152), 1,
+  [167911] = 2,
+    ACTIONS(16129), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167953] = 2,
-    ACTIONS(16154), 1,
-      aux_sym_preproc_if_token2,
+  [167919] = 2,
+    ACTIONS(16131), 1,
+      aux_sym_implicit_range_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167961] = 2,
-    ACTIONS(14553), 1,
+  [167927] = 2,
+    ACTIONS(14127), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167969] = 2,
-    ACTIONS(10162), 1,
-      anon_sym_COLON,
+  [167935] = 2,
+    ACTIONS(16133), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167977] = 2,
-    ACTIONS(16156), 1,
-      aux_sym_preproc_if_token2,
+  [167943] = 2,
+    ACTIONS(16135), 1,
+      anon_sym_RBRACK,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [167985] = 2,
-    ACTIONS(16158), 1,
+  [167951] = 2,
+    ACTIONS(16137), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [167993] = 2,
-    ACTIONS(16160), 1,
+  [167959] = 2,
+    ACTIONS(16139), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168001] = 2,
-    ACTIONS(16162), 1,
+  [167967] = 2,
+    ACTIONS(16141), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168009] = 2,
-    ACTIONS(16164), 1,
+  [167975] = 2,
+    ACTIONS(16143), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168017] = 2,
-    ACTIONS(16166), 1,
+  [167983] = 2,
+    ACTIONS(16145), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168025] = 2,
-    ACTIONS(16168), 1,
+  [167991] = 2,
+    ACTIONS(16147), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168033] = 2,
-    ACTIONS(16170), 1,
+  [167999] = 2,
+    ACTIONS(16149), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168041] = 2,
-    ACTIONS(16172), 1,
+  [168007] = 2,
+    ACTIONS(16151), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168049] = 2,
-    ACTIONS(16174), 1,
+  [168015] = 2,
+    ACTIONS(16153), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168057] = 2,
-    ACTIONS(16176), 1,
+  [168023] = 2,
+    ACTIONS(16155), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168065] = 2,
-    ACTIONS(16178), 1,
+  [168031] = 2,
+    ACTIONS(16157), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168073] = 2,
-    ACTIONS(16180), 1,
+  [168039] = 2,
+    ACTIONS(16159), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168081] = 2,
-    ACTIONS(16182), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [168047] = 2,
+    ACTIONS(16161), 1,
+      anon_sym_SLASH_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168089] = 2,
-    ACTIONS(14555), 1,
+  [168055] = 2,
+    ACTIONS(14123), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168097] = 2,
-    ACTIONS(16184), 1,
-      aux_sym_preproc_if_token2,
+  [168063] = 2,
+    ACTIONS(16163), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168105] = 2,
-    ACTIONS(16186), 1,
-      aux_sym_preproc_if_token2,
+  [168071] = 2,
+    ACTIONS(16165), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168113] = 2,
-    ACTIONS(16188), 1,
+  [168079] = 2,
+    ACTIONS(16167), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168121] = 2,
-    ACTIONS(16190), 1,
+  [168087] = 2,
+    ACTIONS(16169), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168129] = 2,
-    ACTIONS(16192), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168137] = 2,
-    ACTIONS(16194), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168145] = 2,
-    ACTIONS(16196), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168153] = 2,
-    ACTIONS(14559), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168161] = 2,
-    ACTIONS(16198), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168169] = 2,
-    ACTIONS(16200), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168177] = 2,
-    ACTIONS(16202), 1,
+  [168095] = 2,
+    ACTIONS(16171), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168185] = 2,
-    ACTIONS(16204), 1,
+  [168103] = 2,
+    ACTIONS(16173), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168193] = 2,
-    ACTIONS(16206), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168201] = 2,
-    ACTIONS(16208), 1,
+  [168111] = 2,
+    ACTIONS(16175), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168209] = 2,
-    ACTIONS(16210), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168217] = 2,
-    ACTIONS(14561), 1,
+  [168119] = 2,
+    ACTIONS(14121), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168225] = 2,
-    ACTIONS(16212), 1,
+  [168127] = 2,
+    ACTIONS(16177), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168233] = 2,
-    ACTIONS(16214), 1,
-      aux_sym_preproc_if_token2,
+  [168135] = 2,
+    ACTIONS(16179), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168241] = 2,
-    ACTIONS(16216), 1,
+  [168143] = 2,
+    ACTIONS(16181), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168249] = 2,
-    ACTIONS(16218), 1,
+  [168151] = 2,
+    ACTIONS(16183), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168257] = 2,
-    ACTIONS(16220), 1,
-      aux_sym_preproc_if_token2,
+  [168159] = 2,
+    ACTIONS(16185), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168265] = 2,
-    ACTIONS(16222), 1,
+  [168167] = 2,
+    ACTIONS(16187), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168273] = 2,
-    ACTIONS(16224), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168281] = 2,
-    ACTIONS(14563), 1,
+  [168175] = 2,
+    ACTIONS(14405), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168289] = 2,
-    ACTIONS(16226), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168297] = 2,
-    ACTIONS(16228), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168305] = 2,
-    ACTIONS(16230), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168313] = 2,
-    ACTIONS(16232), 1,
-      aux_sym_preproc_def_token2,
+  [168183] = 2,
+    ACTIONS(14108), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168321] = 2,
-    ACTIONS(16234), 1,
+  [168191] = 2,
+    ACTIONS(16189), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168329] = 2,
-    ACTIONS(16236), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168337] = 2,
-    ACTIONS(16238), 1,
-      anon_sym_COMMA,
+  [168199] = 2,
+    ACTIONS(16191), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168345] = 2,
-    ACTIONS(14567), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168353] = 2,
-    ACTIONS(16240), 1,
+  [168207] = 2,
+    ACTIONS(16193), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168361] = 2,
-    ACTIONS(16242), 1,
-      aux_sym_interface_statement_token1,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168369] = 2,
-    ACTIONS(16244), 1,
+  [168215] = 2,
+    ACTIONS(16195), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168377] = 2,
-    ACTIONS(16246), 1,
-      aux_sym_preproc_def_token2,
+  [168223] = 2,
+    ACTIONS(14388), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168385] = 2,
-    ACTIONS(16248), 1,
-      anon_sym_COMMA,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168393] = 2,
-    ACTIONS(16250), 1,
+  [168231] = 2,
+    ACTIONS(16197), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168401] = 2,
-    ACTIONS(16252), 1,
-      aux_sym_preproc_if_token2,
+  [168239] = 2,
+    ACTIONS(16199), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168409] = 2,
-    ACTIONS(14569), 1,
+  [168247] = 2,
+    ACTIONS(14104), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168417] = 2,
-    ACTIONS(16254), 1,
+  [168255] = 2,
+    ACTIONS(16201), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168425] = 2,
-    ACTIONS(16256), 1,
+  [168263] = 2,
+    ACTIONS(16203), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168433] = 2,
-    ACTIONS(16258), 1,
+  [168271] = 2,
+    ACTIONS(16205), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168441] = 2,
-    ACTIONS(16260), 1,
+  [168279] = 2,
+    ACTIONS(16207), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168449] = 2,
-    ACTIONS(16262), 1,
-      aux_sym_preproc_if_token2,
+  [168287] = 2,
+    ACTIONS(16209), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168457] = 2,
-    ACTIONS(16264), 1,
+  [168295] = 2,
+    ACTIONS(16211), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168465] = 2,
-    ACTIONS(16266), 1,
-      anon_sym_RPAREN,
+  [168303] = 2,
+    ACTIONS(16213), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168473] = 2,
-    ACTIONS(14573), 1,
+  [168311] = 2,
+    ACTIONS(14100), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168481] = 2,
-    ACTIONS(16268), 1,
+  [168319] = 2,
+    ACTIONS(16215), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168489] = 2,
-    ACTIONS(16270), 1,
-      aux_sym_preproc_if_token2,
+  [168327] = 2,
+    ACTIONS(16217), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168497] = 2,
-    ACTIONS(16272), 1,
+  [168335] = 2,
+    ACTIONS(16219), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168505] = 2,
-    ACTIONS(16274), 1,
+  [168343] = 2,
+    ACTIONS(16221), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168513] = 2,
-    ACTIONS(16276), 1,
+  [168351] = 2,
+    ACTIONS(16223), 1,
       anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168521] = 2,
-    ACTIONS(16278), 1,
+  [168359] = 2,
+    ACTIONS(16225), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168529] = 2,
-    ACTIONS(16280), 1,
-      aux_sym_preproc_if_token2,
+  [168367] = 2,
+    ACTIONS(16227), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168537] = 2,
-    ACTIONS(14575), 1,
+  [168375] = 2,
+    ACTIONS(14092), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168545] = 2,
-    ACTIONS(16282), 1,
-      aux_sym_preproc_if_token2,
+  [168383] = 2,
+    ACTIONS(16229), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168553] = 2,
-    ACTIONS(16284), 1,
-      sym__string_literal,
+  [168391] = 2,
+    ACTIONS(16231), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168561] = 2,
-    ACTIONS(16286), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168569] = 2,
-    ACTIONS(16288), 1,
+  [168399] = 2,
+    ACTIONS(16233), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168577] = 2,
-    ACTIONS(13905), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168585] = 2,
-    ACTIONS(16290), 1,
+  [168407] = 2,
+    ACTIONS(16235), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168593] = 2,
-    ACTIONS(16292), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168601] = 2,
-    ACTIONS(14579), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168609] = 2,
-    ACTIONS(16294), 1,
+  [168415] = 2,
+    ACTIONS(16237), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168617] = 2,
-    ACTIONS(16296), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168625] = 2,
-    ACTIONS(16298), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168633] = 2,
-    ACTIONS(16300), 1,
+  [168423] = 2,
+    ACTIONS(16239), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168641] = 2,
-    ACTIONS(16302), 1,
-      aux_sym_implicit_statement_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168649] = 2,
-    ACTIONS(16304), 1,
-      aux_sym_preproc_def_token2,
+  [168431] = 2,
+    ACTIONS(14461), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168657] = 2,
-    ACTIONS(16306), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168665] = 2,
-    ACTIONS(14583), 1,
+  [168439] = 2,
+    ACTIONS(14090), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168673] = 2,
-    ACTIONS(16308), 1,
+  [168447] = 2,
+    ACTIONS(16241), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168681] = 2,
-    ACTIONS(16310), 1,
-      aux_sym_preproc_if_token2,
+  [168455] = 2,
+    ACTIONS(16243), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168689] = 2,
-    ACTIONS(16312), 1,
+  [168463] = 2,
+    ACTIONS(16245), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168697] = 2,
-    ACTIONS(16314), 1,
+  [168471] = 2,
+    ACTIONS(16247), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168705] = 2,
-    ACTIONS(16316), 1,
-      aux_sym_interface_statement_token1,
+  [168479] = 2,
+    ACTIONS(16249), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168713] = 2,
-    ACTIONS(16318), 1,
+  [168487] = 2,
+    ACTIONS(16251), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168721] = 2,
-    ACTIONS(16320), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [168495] = 2,
+    ACTIONS(16253), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168729] = 2,
-    ACTIONS(14585), 1,
+  [168503] = 2,
+    ACTIONS(14088), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168737] = 2,
-    ACTIONS(16322), 1,
+  [168511] = 2,
+    ACTIONS(16255), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168745] = 2,
-    ACTIONS(16324), 1,
+  [168519] = 2,
+    ACTIONS(16257), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168753] = 2,
-    ACTIONS(16326), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [168527] = 2,
+    ACTIONS(16259), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168761] = 2,
-    ACTIONS(16328), 1,
+  [168535] = 2,
+    ACTIONS(16261), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168769] = 2,
-    ACTIONS(16330), 1,
-      aux_sym_preproc_if_token2,
+  [168543] = 2,
+    ACTIONS(16263), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168777] = 2,
-    ACTIONS(16332), 1,
+  [168551] = 2,
+    ACTIONS(16265), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168785] = 2,
-    ACTIONS(16334), 1,
+  [168559] = 2,
+    ACTIONS(16267), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168793] = 2,
-    ACTIONS(14587), 1,
+  [168567] = 2,
+    ACTIONS(14082), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168801] = 2,
-    ACTIONS(16336), 1,
-      sym__string_literal,
+  [168575] = 2,
+    ACTIONS(16269), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168809] = 2,
-    ACTIONS(16338), 1,
-      aux_sym_preproc_if_token2,
+  [168583] = 2,
+    ACTIONS(16271), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168817] = 2,
-    ACTIONS(16340), 1,
+  [168591] = 2,
+    ACTIONS(16273), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168825] = 2,
-    ACTIONS(16342), 1,
+  [168599] = 2,
+    ACTIONS(16275), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168833] = 2,
-    ACTIONS(16344), 1,
-      aux_sym__block_if_statement_token1,
+  [168607] = 2,
+    ACTIONS(16277), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168841] = 2,
-    ACTIONS(16346), 1,
+  [168615] = 2,
+    ACTIONS(16279), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168849] = 2,
-    ACTIONS(13538), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168857] = 2,
-    ACTIONS(14589), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168865] = 2,
-    ACTIONS(16348), 1,
-      sym__string_literal,
+  [168623] = 2,
+    ACTIONS(16281), 1,
+      anon_sym_STAR,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168873] = 2,
-    ACTIONS(14214), 1,
+  [168631] = 2,
+    ACTIONS(14068), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168881] = 2,
-    ACTIONS(16350), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168889] = 2,
-    ACTIONS(16352), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168897] = 2,
-    ACTIONS(12934), 1,
-      anon_sym_EQ_GT,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168905] = 2,
-    ACTIONS(16354), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168913] = 2,
-    ACTIONS(16356), 1,
+  [168639] = 2,
+    ACTIONS(16283), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168921] = 2,
-    ACTIONS(14593), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168929] = 2,
-    ACTIONS(16358), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [168937] = 2,
-    ACTIONS(16360), 1,
+  [168647] = 2,
+    ACTIONS(16285), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168945] = 2,
-    ACTIONS(16362), 1,
+  [168655] = 2,
+    ACTIONS(16287), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168953] = 2,
-    ACTIONS(16364), 1,
+  [168663] = 2,
+    ACTIONS(16289), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168961] = 2,
-    ACTIONS(16366), 1,
-      aux_sym_preproc_if_token2,
+  [168671] = 2,
+    ACTIONS(16291), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168969] = 2,
-    ACTIONS(16368), 1,
+  [168679] = 2,
+    ACTIONS(16293), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168977] = 2,
-    ACTIONS(16370), 1,
-      aux_sym_interface_statement_token1,
+  [168687] = 2,
+    ACTIONS(16295), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [168985] = 2,
-    ACTIONS(14595), 1,
+  [168695] = 2,
+    ACTIONS(14062), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [168993] = 2,
-    ACTIONS(16372), 1,
+  [168703] = 2,
+    ACTIONS(16297), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169001] = 2,
-    ACTIONS(16374), 1,
-      aux_sym_enum_statement_token1,
+  [168711] = 2,
+    ACTIONS(16299), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169009] = 2,
-    ACTIONS(16376), 1,
+  [168719] = 2,
+    ACTIONS(16301), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169017] = 2,
-    ACTIONS(16378), 1,
+  [168727] = 2,
+    ACTIONS(16303), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169025] = 2,
-    ACTIONS(16380), 1,
-      aux_sym_preproc_if_token2,
+  [168735] = 2,
+    ACTIONS(16305), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169033] = 2,
-    ACTIONS(16382), 1,
+  [168743] = 2,
+    ACTIONS(16307), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169041] = 2,
-    ACTIONS(16384), 1,
+  [168751] = 2,
+    ACTIONS(16309), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169049] = 2,
-    ACTIONS(14597), 1,
+  [168759] = 2,
+    ACTIONS(14048), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169057] = 2,
-    ACTIONS(16386), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [168767] = 2,
+    ACTIONS(16311), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169065] = 2,
-    ACTIONS(16388), 1,
+  [168775] = 2,
+    ACTIONS(16313), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169073] = 2,
-    ACTIONS(16390), 1,
+  [168783] = 2,
+    ACTIONS(16315), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169081] = 2,
-    ACTIONS(16392), 1,
+  [168791] = 2,
+    ACTIONS(16317), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169089] = 2,
-    ACTIONS(16394), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [168799] = 2,
+    ACTIONS(16319), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169097] = 2,
-    ACTIONS(16396), 1,
+  [168807] = 2,
+    ACTIONS(16321), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169105] = 2,
-    ACTIONS(16398), 1,
-      aux_sym_preproc_if_token2,
+  [168815] = 2,
+    ACTIONS(16323), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169113] = 2,
-    ACTIONS(14601), 1,
+  [168823] = 2,
+    ACTIONS(14044), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169121] = 2,
-    ACTIONS(16400), 1,
+  [168831] = 2,
+    ACTIONS(16325), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169129] = 2,
-    ACTIONS(16402), 1,
+  [168839] = 2,
+    ACTIONS(16327), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169137] = 2,
-    ACTIONS(16404), 1,
+  [168847] = 2,
+    ACTIONS(16329), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169145] = 2,
-    ACTIONS(16406), 1,
+  [168855] = 2,
+    ACTIONS(16331), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169153] = 2,
-    ACTIONS(16408), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [168863] = 2,
+    ACTIONS(16333), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169161] = 2,
-    ACTIONS(16410), 1,
+  [168871] = 2,
+    ACTIONS(16335), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169169] = 2,
-    ACTIONS(16412), 1,
-      aux_sym_preproc_if_token2,
+  [168879] = 2,
+    ACTIONS(16337), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169177] = 2,
-    ACTIONS(14603), 1,
+  [168887] = 2,
+    ACTIONS(14037), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169185] = 2,
-    ACTIONS(16414), 1,
-      aux_sym_preproc_if_token2,
+  [168895] = 2,
+    ACTIONS(16339), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169193] = 2,
-    ACTIONS(16416), 1,
-      aux_sym_enumeration_type_statement_token1,
+  [168903] = 2,
+    ACTIONS(16341), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169201] = 2,
-    ACTIONS(16418), 1,
+  [168911] = 2,
+    ACTIONS(16343), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169209] = 2,
-    ACTIONS(16420), 1,
+  [168919] = 2,
+    ACTIONS(16345), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169217] = 2,
-    ACTIONS(16422), 1,
-      anon_sym_LF,
+  [168927] = 2,
+    ACTIONS(16347), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169225] = 2,
-    ACTIONS(16424), 1,
+  [168935] = 2,
+    ACTIONS(16349), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169233] = 2,
-    ACTIONS(16426), 1,
+  [168943] = 2,
+    ACTIONS(16351), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169241] = 2,
-    ACTIONS(14607), 1,
+  [168951] = 2,
+    ACTIONS(14026), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169249] = 2,
-    ACTIONS(16428), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [168959] = 2,
+    ACTIONS(16353), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169257] = 2,
-    ACTIONS(16430), 1,
-      aux_sym_preproc_if_token2,
+  [168967] = 2,
+    ACTIONS(10129), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169265] = 2,
-    ACTIONS(16432), 1,
+  [168975] = 2,
+    ACTIONS(16355), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169273] = 2,
-    ACTIONS(16434), 1,
+  [168983] = 2,
+    ACTIONS(16357), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169281] = 2,
-    ACTIONS(16436), 1,
+  [168991] = 2,
+    ACTIONS(16359), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169289] = 2,
-    ACTIONS(16438), 1,
+  [168999] = 2,
+    ACTIONS(16361), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169297] = 2,
-    ACTIONS(16440), 1,
-      anon_sym_LF,
+  [169007] = 2,
+    ACTIONS(16363), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169305] = 2,
-    ACTIONS(14609), 1,
+  [169015] = 2,
+    ACTIONS(14016), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169313] = 2,
-    ACTIONS(16442), 1,
+  [169023] = 2,
+    ACTIONS(16365), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169321] = 2,
-    ACTIONS(16444), 1,
+  [169031] = 2,
+    ACTIONS(16367), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169329] = 2,
-    ACTIONS(16446), 1,
+  [169039] = 2,
+    ACTIONS(16369), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169337] = 2,
-    ACTIONS(16448), 1,
+  [169047] = 2,
+    ACTIONS(16371), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169345] = 2,
-    ACTIONS(16450), 1,
-      aux_sym_preproc_if_token2,
+  [169055] = 2,
+    ACTIONS(15385), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169353] = 2,
-    ACTIONS(16452), 1,
+  [169063] = 2,
+    ACTIONS(16373), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169361] = 2,
-    ACTIONS(16454), 1,
+  [169071] = 2,
+    ACTIONS(16375), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169369] = 2,
-    ACTIONS(14611), 1,
+  [169079] = 2,
+    ACTIONS(14012), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169377] = 2,
-    ACTIONS(16456), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [169087] = 2,
+    ACTIONS(16377), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169385] = 2,
-    ACTIONS(16458), 1,
+  [169095] = 2,
+    ACTIONS(16379), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169393] = 2,
-    ACTIONS(16460), 1,
+  [169103] = 2,
+    ACTIONS(16381), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169401] = 2,
-    ACTIONS(16462), 1,
+  [169111] = 2,
+    ACTIONS(16383), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169409] = 2,
-    ACTIONS(16464), 1,
-      anon_sym_SLASH,
+  [169119] = 2,
+    ACTIONS(16385), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169417] = 2,
-    ACTIONS(16466), 1,
+  [169127] = 2,
+    ACTIONS(16387), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169425] = 2,
-    ACTIONS(16468), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [169135] = 2,
+    ACTIONS(16389), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169433] = 2,
-    ACTIONS(14613), 1,
+  [169143] = 2,
+    ACTIONS(14006), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169441] = 2,
-    ACTIONS(16470), 1,
+  [169151] = 2,
+    ACTIONS(16391), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169449] = 2,
-    ACTIONS(16472), 1,
-      aux_sym_preproc_if_token2,
+  [169159] = 2,
+    ACTIONS(16393), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169457] = 2,
-    ACTIONS(16474), 1,
+  [169167] = 2,
+    ACTIONS(16395), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169465] = 2,
-    ACTIONS(16476), 1,
+  [169175] = 2,
+    ACTIONS(16397), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169473] = 2,
-    ACTIONS(16478), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [169183] = 2,
+    ACTIONS(16399), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169481] = 2,
-    ACTIONS(16480), 1,
+  [169191] = 2,
+    ACTIONS(16401), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169489] = 2,
-    ACTIONS(13302), 1,
-      aux_sym_preproc_if_token2,
+  [169199] = 2,
+    ACTIONS(16403), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169497] = 2,
-    ACTIONS(14615), 1,
+  [169207] = 2,
+    ACTIONS(14004), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169505] = 2,
-    ACTIONS(16482), 1,
-      anon_sym_RPAREN,
+  [169215] = 2,
+    ACTIONS(16405), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169513] = 2,
-    ACTIONS(16484), 1,
-      aux_sym_preproc_if_token2,
+  [169223] = 2,
+    ACTIONS(16407), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169521] = 2,
-    ACTIONS(16486), 1,
+  [169231] = 2,
+    ACTIONS(16409), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169529] = 2,
-    ACTIONS(16488), 1,
+  [169239] = 2,
+    ACTIONS(16411), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169537] = 2,
-    ACTIONS(16490), 1,
+  [169247] = 2,
+    ACTIONS(16413), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169545] = 2,
-    ACTIONS(16492), 1,
+  [169255] = 2,
+    ACTIONS(16415), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169553] = 2,
-    ACTIONS(16494), 1,
-      anon_sym_LF,
+  [169263] = 2,
+    ACTIONS(14500), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169561] = 2,
-    ACTIONS(14617), 1,
+  [169271] = 2,
+    ACTIONS(14000), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169569] = 2,
-    ACTIONS(16496), 1,
-      aux_sym_preproc_if_token2,
+  [169279] = 2,
+    ACTIONS(16417), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169577] = 2,
-    ACTIONS(16498), 1,
-      aux_sym_preproc_if_token2,
+  [169287] = 2,
+    ACTIONS(16419), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169585] = 2,
-    ACTIONS(16500), 1,
+  [169295] = 2,
+    ACTIONS(16421), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169593] = 2,
-    ACTIONS(16502), 1,
+  [169303] = 2,
+    ACTIONS(16423), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169601] = 2,
-    ACTIONS(16504), 1,
-      aux_sym_preproc_if_token2,
+  [169311] = 2,
+    ACTIONS(16425), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169609] = 2,
-    ACTIONS(16506), 1,
+  [169319] = 2,
+    ACTIONS(16427), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169617] = 2,
-    ACTIONS(16508), 1,
+  [169327] = 2,
+    ACTIONS(16429), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169625] = 2,
-    ACTIONS(14621), 1,
+  [169335] = 2,
+    ACTIONS(13994), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169633] = 2,
-    ACTIONS(16510), 1,
+  [169343] = 2,
+    ACTIONS(16431), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169641] = 2,
-    ACTIONS(16512), 1,
-      anon_sym_LPAREN2,
+  [169351] = 2,
+    ACTIONS(16433), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169649] = 2,
-    ACTIONS(16514), 1,
+  [169359] = 2,
+    ACTIONS(16435), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169367] = 2,
+    ACTIONS(16437), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169657] = 2,
-    ACTIONS(16516), 1,
+  [169375] = 2,
+    ACTIONS(16439), 1,
+      anon_sym_EQ,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169383] = 2,
+    ACTIONS(16441), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169665] = 2,
-    ACTIONS(16518), 1,
+  [169391] = 2,
+    ACTIONS(16443), 1,
+      aux_sym_stop_statement_token3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169399] = 2,
+    ACTIONS(13992), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169407] = 2,
+    ACTIONS(16445), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169673] = 2,
-    ACTIONS(16520), 1,
+  [169415] = 2,
+    ACTIONS(16447), 1,
+      anon_sym_EQ,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169423] = 2,
+    ACTIONS(16449), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169681] = 2,
-    ACTIONS(16522), 1,
-      anon_sym__,
+  [169431] = 2,
+    ACTIONS(16451), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169439] = 2,
+    ACTIONS(16453), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169689] = 2,
-    ACTIONS(16524), 1,
+  [169447] = 2,
+    ACTIONS(16455), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169455] = 2,
+    ACTIONS(16457), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169697] = 2,
-    ACTIONS(16526), 1,
+  [169463] = 2,
+    ACTIONS(13990), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169471] = 2,
+    ACTIONS(16459), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169705] = 2,
-    ACTIONS(16528), 1,
+  [169479] = 2,
+    ACTIONS(16461), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169487] = 2,
+    ACTIONS(16463), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169495] = 2,
+    ACTIONS(16465), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169503] = 2,
+    ACTIONS(16467), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169713] = 2,
-    ACTIONS(16530), 1,
-      anon_sym_EQ_GT,
+  [169511] = 2,
+    ACTIONS(16469), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169519] = 2,
+    ACTIONS(16471), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169721] = 2,
-    ACTIONS(16532), 1,
+  [169527] = 2,
+    ACTIONS(13974), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169535] = 2,
+    ACTIONS(16473), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169729] = 2,
-    ACTIONS(16534), 1,
+  [169543] = 2,
+    ACTIONS(16475), 1,
+      aux_sym__block_if_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169551] = 2,
+    ACTIONS(16477), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169559] = 2,
+    ACTIONS(16479), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169567] = 2,
+    ACTIONS(16481), 1,
+      sym__string_literal,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169575] = 2,
+    ACTIONS(16483), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169583] = 2,
+    ACTIONS(14566), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169591] = 2,
+    ACTIONS(13972), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169599] = 2,
+    ACTIONS(16485), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169737] = 2,
-    ACTIONS(16536), 1,
-      anon_sym_COLON,
+  [169607] = 2,
+    ACTIONS(10178), 1,
+      aux_sym__inline_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169745] = 2,
-    ACTIONS(16538), 1,
-      aux_sym_preproc_if_token2,
+  [169615] = 2,
+    ACTIONS(16487), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169623] = 2,
+    ACTIONS(16489), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169631] = 2,
+    ACTIONS(16491), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169753] = 2,
-    ACTIONS(16540), 1,
-      aux_sym_preproc_if_token2,
+  [169639] = 2,
+    ACTIONS(16493), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169647] = 2,
+    ACTIONS(16495), 1,
+      anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169761] = 2,
-    ACTIONS(16542), 1,
+  [169655] = 2,
+    ACTIONS(16497), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169769] = 2,
-    ACTIONS(16544), 1,
-      aux_sym_preproc_if_token2,
+  [169663] = 2,
+    ACTIONS(16499), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169671] = 2,
+    ACTIONS(16501), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169777] = 2,
-    ACTIONS(16546), 1,
+  [169679] = 2,
+    ACTIONS(13137), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169785] = 2,
-    ACTIONS(10172), 1,
-      anon_sym_COLON,
+  [169687] = 2,
+    ACTIONS(16503), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169793] = 2,
-    ACTIONS(16548), 1,
+  [169695] = 2,
+    ACTIONS(16505), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169801] = 2,
-    ACTIONS(16550), 1,
+  [169703] = 2,
+    ACTIONS(16507), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169809] = 2,
-    ACTIONS(16552), 1,
-      anon_sym_RPAREN,
+  [169711] = 2,
+    ACTIONS(16509), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169719] = 2,
+    ACTIONS(16511), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169817] = 2,
-    ACTIONS(16554), 1,
-      anon_sym_RPAREN,
+  [169727] = 2,
+    ACTIONS(16513), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169825] = 2,
-    ACTIONS(16556), 1,
+  [169735] = 2,
+    ACTIONS(13960), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169743] = 2,
+    ACTIONS(16515), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169833] = 2,
-    ACTIONS(16558), 1,
+  [169751] = 2,
+    ACTIONS(16517), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169841] = 2,
-    ACTIONS(16560), 1,
-      aux_sym_preproc_if_token2,
+  [169759] = 2,
+    ACTIONS(16519), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169849] = 2,
-    ACTIONS(16562), 1,
+  [169767] = 2,
+    ACTIONS(16521), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169857] = 2,
-    ACTIONS(16564), 1,
-      anon_sym_RPAREN,
+  [169775] = 2,
+    ACTIONS(16523), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169865] = 2,
-    ACTIONS(16566), 1,
+  [169783] = 2,
+    ACTIONS(16525), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169873] = 2,
-    ACTIONS(16568), 1,
+  [169791] = 2,
+    ACTIONS(16527), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169881] = 2,
-    ACTIONS(10198), 1,
-      aux_sym__inline_where_statement_token1,
+  [169799] = 2,
+    ACTIONS(16529), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169889] = 2,
-    ACTIONS(16570), 1,
-      anon_sym_LPAREN2,
+  [169807] = 2,
+    ACTIONS(16531), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169897] = 2,
-    ACTIONS(16572), 1,
+  [169815] = 2,
+    ACTIONS(16533), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169905] = 2,
-    ACTIONS(16574), 1,
+  [169823] = 2,
+    ACTIONS(13339), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169913] = 2,
-    ACTIONS(16576), 1,
+  [169831] = 2,
+    ACTIONS(16535), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169921] = 2,
-    ACTIONS(16578), 1,
+  [169839] = 2,
+    ACTIONS(16537), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169847] = 2,
+    ACTIONS(16539), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169855] = 2,
+    ACTIONS(16541), 1,
+      anon_sym_LPAREN2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169863] = 2,
+    ACTIONS(16543), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169929] = 2,
-    ACTIONS(16580), 1,
+  [169871] = 2,
+    ACTIONS(16545), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169937] = 2,
-    ACTIONS(16582), 1,
-      anon_sym_SLASH,
+  [169879] = 2,
+    ACTIONS(16547), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169945] = 2,
-    ACTIONS(16584), 1,
+  [169887] = 2,
+    ACTIONS(16549), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169953] = 2,
-    ACTIONS(16586), 1,
+  [169895] = 2,
+    ACTIONS(16551), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169961] = 2,
-    ACTIONS(16588), 1,
-      aux_sym_preproc_if_token2,
+  [169903] = 2,
+    ACTIONS(16553), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169911] = 2,
+    ACTIONS(16555), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169919] = 2,
+    ACTIONS(16557), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169969] = 2,
-    ACTIONS(16590), 1,
+  [169927] = 2,
+    ACTIONS(16559), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [169935] = 2,
+    ACTIONS(16561), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [169977] = 2,
-    ACTIONS(16592), 1,
+  [169943] = 2,
+    ACTIONS(16563), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169985] = 2,
-    ACTIONS(16594), 1,
+  [169951] = 2,
+    ACTIONS(16565), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [169993] = 2,
-    ACTIONS(16596), 1,
+  [169959] = 2,
+    ACTIONS(16567), 1,
       anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170001] = 2,
-    ACTIONS(16598), 1,
+  [169967] = 2,
+    ACTIONS(16569), 1,
       aux_sym_operator_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170009] = 2,
-    ACTIONS(16600), 1,
-      ts_builtin_sym_end,
+  [169975] = 2,
+    ACTIONS(16571), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170017] = 2,
-    ACTIONS(16602), 1,
+  [169983] = 2,
+    ACTIONS(16573), 1,
       anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170025] = 2,
-    ACTIONS(16604), 1,
+  [169991] = 2,
+    ACTIONS(16575), 1,
       anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170033] = 2,
-    ACTIONS(16606), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [169999] = 2,
+    ACTIONS(16577), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170041] = 2,
-    ACTIONS(16608), 1,
+  [170007] = 2,
+    ACTIONS(16579), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170049] = 2,
-    ACTIONS(11035), 1,
+  [170015] = 2,
+    ACTIONS(10995), 1,
       aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170057] = 2,
-    ACTIONS(16610), 1,
-      aux_sym_stop_statement_token3,
+  [170023] = 2,
+    ACTIONS(16581), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170065] = 2,
-    ACTIONS(16612), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [170031] = 2,
+    ACTIONS(16583), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170073] = 2,
-    ACTIONS(16614), 1,
-      anon_sym_RPAREN,
+  [170039] = 2,
+    ACTIONS(16585), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170081] = 2,
-    ACTIONS(16616), 1,
+  [170047] = 2,
+    ACTIONS(16587), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170089] = 2,
-    ACTIONS(16618), 1,
+  [170055] = 2,
+    ACTIONS(16589), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170097] = 2,
-    ACTIONS(10137), 1,
+  [170063] = 2,
+    ACTIONS(10158), 1,
       anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170105] = 2,
-    ACTIONS(16620), 1,
+  [170071] = 2,
+    ACTIONS(16591), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170113] = 2,
-    ACTIONS(16622), 1,
+  [170079] = 2,
+    ACTIONS(16593), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170121] = 2,
-    ACTIONS(16624), 1,
+  [170087] = 2,
+    ACTIONS(16595), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170129] = 2,
-    ACTIONS(16626), 1,
-      anon_sym_LPAREN2,
+  [170095] = 2,
+    ACTIONS(16597), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170137] = 2,
-    ACTIONS(10174), 1,
-      aux_sym_coarray_statement_token10,
+  [170103] = 2,
+    ACTIONS(16599), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170145] = 2,
-    ACTIONS(16628), 1,
+  [170111] = 2,
+    ACTIONS(16601), 1,
       anon_sym_STAR,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170153] = 2,
-    ACTIONS(16630), 1,
-      aux_sym_preproc_if_token2,
+  [170119] = 2,
+    ACTIONS(16603), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170161] = 2,
-    ACTIONS(16632), 1,
+  [170127] = 2,
+    ACTIONS(16605), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170169] = 2,
-    ACTIONS(16634), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [170135] = 2,
+    ACTIONS(16607), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170177] = 2,
-    ACTIONS(16636), 1,
-      aux_sym_preproc_if_token2,
+  [170143] = 2,
+    ACTIONS(10035), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170185] = 2,
-    ACTIONS(16638), 1,
+  [170151] = 2,
+    ACTIONS(16609), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170193] = 2,
-    ACTIONS(16640), 1,
-      anon_sym__,
+  [170159] = 2,
+    ACTIONS(16611), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170201] = 2,
-    ACTIONS(16642), 1,
+  [170167] = 2,
+    ACTIONS(16613), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170209] = 2,
-    ACTIONS(16644), 1,
+  [170175] = 2,
+    ACTIONS(16615), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170217] = 2,
-    ACTIONS(16646), 1,
+  [170183] = 2,
+    ACTIONS(16617), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170225] = 2,
-    ACTIONS(16648), 1,
+  [170191] = 2,
+    ACTIONS(16619), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170233] = 2,
-    ACTIONS(16650), 1,
-      aux_sym_preproc_if_token2,
+  [170199] = 2,
+    ACTIONS(16621), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170241] = 2,
-    ACTIONS(16652), 1,
+  [170207] = 2,
+    ACTIONS(16623), 1,
       anon_sym_STAR,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170249] = 2,
-    ACTIONS(16654), 1,
-      anon_sym_EQ,
+  [170215] = 2,
+    ACTIONS(16625), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170257] = 2,
-    ACTIONS(16656), 1,
+  [170223] = 2,
+    ACTIONS(16627), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170265] = 2,
-    ACTIONS(16658), 1,
+  [170231] = 2,
+    ACTIONS(16629), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170273] = 2,
-    ACTIONS(16660), 1,
+  [170239] = 2,
+    ACTIONS(16631), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170281] = 2,
-    ACTIONS(16662), 1,
-      anon_sym_LPAREN2,
+  [170247] = 2,
+    ACTIONS(16633), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170289] = 2,
-    ACTIONS(16664), 1,
+  [170255] = 2,
+    ACTIONS(16635), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170297] = 2,
-    ACTIONS(13302), 1,
+  [170263] = 2,
+    ACTIONS(16637), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170305] = 2,
-    ACTIONS(16666), 1,
+  [170271] = 2,
+    ACTIONS(16639), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170313] = 2,
-    ACTIONS(16668), 1,
+  [170279] = 2,
+    ACTIONS(16641), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170321] = 2,
-    ACTIONS(16670), 1,
+  [170287] = 2,
+    ACTIONS(16643), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170329] = 2,
-    ACTIONS(16672), 1,
+  [170295] = 2,
+    ACTIONS(16645), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170337] = 2,
-    ACTIONS(16674), 1,
+  [170303] = 2,
+    ACTIONS(16647), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170345] = 2,
-    ACTIONS(16676), 1,
+  [170311] = 2,
+    ACTIONS(16649), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170353] = 2,
-    ACTIONS(16678), 1,
+  [170319] = 2,
+    ACTIONS(16651), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170361] = 2,
-    ACTIONS(16680), 1,
+  [170327] = 2,
+    ACTIONS(16653), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170369] = 2,
-    ACTIONS(16682), 1,
+  [170335] = 2,
+    ACTIONS(16655), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170377] = 2,
-    ACTIONS(16684), 1,
+  [170343] = 2,
+    ACTIONS(16657), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170385] = 2,
-    ACTIONS(16686), 1,
+  [170351] = 2,
+    ACTIONS(16659), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170393] = 2,
-    ACTIONS(16688), 1,
+  [170359] = 2,
+    ACTIONS(13137), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170401] = 2,
-    ACTIONS(16690), 1,
+  [170367] = 2,
+    ACTIONS(16661), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170409] = 2,
-    ACTIONS(16692), 1,
+  [170375] = 2,
+    ACTIONS(16663), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170417] = 2,
-    ACTIONS(15050), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [170383] = 2,
+    ACTIONS(16665), 1,
+      aux_sym_operator_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170425] = 2,
-    ACTIONS(16694), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [170391] = 2,
+    ACTIONS(16667), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170433] = 2,
-    ACTIONS(16696), 1,
-      anon_sym_RPAREN,
+  [170399] = 2,
+    ACTIONS(16669), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170441] = 2,
-    ACTIONS(16698), 1,
+  [170407] = 2,
+    ACTIONS(16671), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170449] = 2,
-    ACTIONS(16700), 1,
+  [170415] = 2,
+    ACTIONS(16673), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170457] = 2,
-    ACTIONS(16702), 1,
+  [170423] = 2,
+    ACTIONS(16675), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170465] = 2,
-    ACTIONS(16704), 1,
-      sym__string_literal,
+  [170431] = 2,
+    ACTIONS(16677), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170473] = 2,
-    ACTIONS(16706), 1,
+  [170439] = 2,
+    ACTIONS(16679), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170481] = 2,
-    ACTIONS(14283), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [170447] = 2,
+    ACTIONS(16681), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170489] = 2,
-    ACTIONS(16708), 1,
-      anon_sym_COMMA,
+  [170455] = 2,
+    ACTIONS(16683), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170497] = 2,
-    ACTIONS(16710), 1,
-      anon_sym_LPAREN2,
+  [170463] = 2,
+    ACTIONS(16685), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170505] = 2,
-    ACTIONS(16712), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [170471] = 2,
+    ACTIONS(16687), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170513] = 2,
-    ACTIONS(16714), 1,
-      anon_sym_RPAREN,
+  [170479] = 2,
+    ACTIONS(16689), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170521] = 2,
-    ACTIONS(16716), 1,
+  [170487] = 2,
+    ACTIONS(16691), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170529] = 2,
-    ACTIONS(16718), 1,
-      anon_sym_LPAREN2,
+  [170495] = 2,
+    ACTIONS(16693), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170537] = 2,
-    ACTIONS(16720), 1,
-      aux_sym_interface_statement_token1,
+  [170503] = 2,
+    ACTIONS(16695), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170545] = 2,
-    ACTIONS(16722), 1,
-      aux_sym_preproc_if_token2,
+  [170511] = 2,
+    ACTIONS(16697), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170553] = 2,
-    ACTIONS(16724), 1,
+  [170519] = 2,
+    ACTIONS(16699), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170561] = 2,
-    ACTIONS(16726), 1,
-      aux_sym_keyword_statement_token5,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [170569] = 2,
-    ACTIONS(16728), 1,
+  [170527] = 2,
+    ACTIONS(16701), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170577] = 2,
-    ACTIONS(16730), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
+  [170535] = 2,
+    ACTIONS(16703), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170585] = 2,
-    ACTIONS(16732), 1,
+  [170543] = 2,
+    ACTIONS(16705), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170593] = 2,
-    ACTIONS(13315), 1,
+  [170551] = 2,
+    ACTIONS(16707), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170601] = 2,
-    ACTIONS(16734), 1,
-      aux_sym_preproc_if_token2,
+  [170559] = 2,
+    ACTIONS(16709), 1,
+      anon_sym_COMMA,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170609] = 2,
-    ACTIONS(16736), 1,
-      aux_sym_interface_statement_token1,
+  [170567] = 2,
+    ACTIONS(10248), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170617] = 2,
-    ACTIONS(16738), 1,
-      anon_sym_LPAREN2,
+  [170575] = 2,
+    ACTIONS(13137), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170625] = 2,
-    ACTIONS(16740), 1,
+  [170583] = 2,
+    ACTIONS(16711), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170633] = 2,
-    ACTIONS(16742), 1,
+  [170591] = 2,
+    ACTIONS(16713), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [170599] = 2,
+    ACTIONS(16715), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170641] = 2,
-    ACTIONS(16744), 1,
+  [170607] = 2,
+    ACTIONS(16717), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170649] = 2,
-    ACTIONS(16746), 1,
+  [170615] = 2,
+    ACTIONS(16719), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170657] = 2,
-    ACTIONS(16748), 1,
+  [170623] = 2,
+    ACTIONS(16721), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170665] = 2,
-    ACTIONS(16750), 1,
+  [170631] = 2,
+    ACTIONS(16723), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170673] = 2,
-    ACTIONS(16752), 1,
+  [170639] = 2,
+    ACTIONS(16725), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170681] = 2,
-    ACTIONS(8297), 1,
+  [170647] = 2,
+    ACTIONS(8015), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170689] = 2,
-    ACTIONS(16754), 1,
+  [170655] = 2,
+    ACTIONS(16727), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170697] = 2,
-    ACTIONS(16756), 1,
-      aux_sym_user_defined_operator_token1,
+  [170663] = 2,
+    ACTIONS(16729), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170705] = 2,
-    ACTIONS(16758), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [170671] = 2,
+    ACTIONS(16731), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170713] = 2,
-    ACTIONS(16760), 1,
-      aux_sym_preproc_if_token2,
+  [170679] = 2,
+    ACTIONS(16733), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170721] = 2,
-    ACTIONS(16762), 1,
+  [170687] = 2,
+    ACTIONS(16735), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170729] = 2,
-    ACTIONS(16764), 1,
+  [170695] = 2,
+    ACTIONS(16737), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170737] = 2,
-    ACTIONS(16766), 1,
-      anon_sym_RPAREN,
+  [170703] = 2,
+    ACTIONS(16739), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170745] = 2,
-    ACTIONS(16768), 1,
+  [170711] = 2,
+    ACTIONS(16741), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170753] = 2,
-    ACTIONS(16770), 1,
+  [170719] = 2,
+    ACTIONS(16743), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170761] = 2,
-    ACTIONS(16772), 1,
+  [170727] = 2,
+    ACTIONS(13354), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170769] = 2,
-    ACTIONS(13315), 1,
+  [170735] = 2,
+    ACTIONS(16745), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170777] = 2,
-    ACTIONS(16774), 1,
+  [170743] = 2,
+    ACTIONS(16747), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170785] = 2,
-    ACTIONS(11205), 1,
-      aux_sym_preproc_include_token2,
+  [170751] = 2,
+    ACTIONS(16749), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170793] = 2,
-    ACTIONS(10141), 1,
+  [170759] = 2,
+    ACTIONS(10137), 1,
       anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170801] = 2,
-    ACTIONS(16776), 1,
+  [170767] = 2,
+    ACTIONS(16751), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170809] = 2,
-    ACTIONS(16778), 1,
-      anon_sym_COLON,
+  [170775] = 2,
+    ACTIONS(16753), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170817] = 2,
-    ACTIONS(16780), 1,
+  [170783] = 2,
+    ACTIONS(16755), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170825] = 2,
-    ACTIONS(16782), 1,
+  [170791] = 2,
+    ACTIONS(16757), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170833] = 2,
-    ACTIONS(16784), 1,
-      aux_sym_preproc_if_token2,
+  [170799] = 2,
+    ACTIONS(10306), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170841] = 2,
-    ACTIONS(16786), 1,
-      aux_sym_select_case_statement_token1,
+  [170807] = 2,
+    ACTIONS(16759), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170849] = 2,
-    ACTIONS(16788), 1,
-      anon_sym_EQ_GT,
-    ACTIONS(21), 2,
+  [170815] = 2,
+    ACTIONS(14662), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170857] = 2,
-    ACTIONS(16790), 1,
+  [170823] = 2,
+    ACTIONS(16761), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170865] = 2,
-    ACTIONS(10075), 1,
-      anon_sym_RPAREN,
+  [170831] = 2,
+    ACTIONS(16763), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170873] = 2,
-    ACTIONS(16792), 1,
+  [170839] = 2,
+    ACTIONS(16765), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170881] = 2,
-    ACTIONS(16794), 1,
+  [170847] = 2,
+    ACTIONS(16767), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170889] = 2,
-    ACTIONS(13315), 1,
+  [170855] = 2,
+    ACTIONS(16769), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170897] = 2,
-    ACTIONS(16796), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [170863] = 2,
+    ACTIONS(14678), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170905] = 2,
-    ACTIONS(16798), 1,
+  [170871] = 2,
+    ACTIONS(16771), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170913] = 2,
-    ACTIONS(16800), 1,
+  [170879] = 2,
+    ACTIONS(16773), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170921] = 2,
-    ACTIONS(16802), 1,
+  [170887] = 2,
+    ACTIONS(16775), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170929] = 2,
-    ACTIONS(16804), 1,
+  [170895] = 2,
+    ACTIONS(16777), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170937] = 2,
-    ACTIONS(16806), 1,
+  [170903] = 2,
+    ACTIONS(16779), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170945] = 2,
-    ACTIONS(16808), 1,
+  [170911] = 2,
+    ACTIONS(16781), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170953] = 2,
-    ACTIONS(16810), 1,
+  [170919] = 2,
+    ACTIONS(16783), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170961] = 2,
-    ACTIONS(16812), 1,
+  [170927] = 2,
+    ACTIONS(16785), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [170969] = 2,
-    ACTIONS(16814), 1,
+  [170935] = 2,
+    ACTIONS(16787), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170977] = 2,
-    ACTIONS(16816), 1,
+  [170943] = 2,
+    ACTIONS(16789), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170985] = 2,
-    ACTIONS(16818), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [170951] = 2,
+    ACTIONS(16791), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [170993] = 2,
-    ACTIONS(16820), 1,
+  [170959] = 2,
+    ACTIONS(16793), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171001] = 2,
-    ACTIONS(16822), 1,
+  [170967] = 2,
+    ACTIONS(16795), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171009] = 2,
-    ACTIONS(16824), 1,
-      aux_sym_preproc_if_token2,
+  [170975] = 2,
+    ACTIONS(16797), 1,
+      aux_sym__block_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171017] = 2,
-    ACTIONS(16826), 1,
+  [170983] = 2,
+    ACTIONS(16799), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171025] = 2,
-    ACTIONS(14879), 1,
-      anon_sym_EQ_GT,
+  [170991] = 2,
+    ACTIONS(16801), 1,
+      aux_sym__inline_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171033] = 2,
-    ACTIONS(16828), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [170999] = 2,
+    ACTIONS(16803), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171041] = 2,
-    ACTIONS(16830), 1,
-      anon_sym_RPAREN,
+  [171007] = 2,
+    ACTIONS(16805), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171049] = 2,
-    ACTIONS(14881), 1,
-      anon_sym_EQ_GT,
+  [171015] = 2,
+    ACTIONS(16807), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171057] = 2,
-    ACTIONS(16832), 1,
+  [171023] = 2,
+    ACTIONS(16809), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171065] = 2,
-    ACTIONS(14885), 1,
-      anon_sym_EQ_GT,
+  [171031] = 2,
+    ACTIONS(16811), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171073] = 2,
-    ACTIONS(16834), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [171039] = 2,
+    ACTIONS(16813), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171081] = 2,
-    ACTIONS(16836), 1,
-      aux_sym_preproc_if_token2,
+  [171047] = 2,
+    ACTIONS(13301), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171089] = 2,
-    ACTIONS(16838), 1,
-      aux_sym_preproc_if_token2,
+  [171055] = 2,
+    ACTIONS(16815), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171097] = 2,
-    ACTIONS(16840), 1,
+  [171063] = 2,
+    ACTIONS(16817), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171105] = 2,
-    ACTIONS(16842), 1,
+  [171071] = 2,
+    ACTIONS(16819), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171113] = 2,
-    ACTIONS(16844), 1,
+  [171079] = 2,
+    ACTIONS(16821), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171121] = 2,
-    ACTIONS(16846), 1,
+  [171087] = 2,
+    ACTIONS(16823), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171129] = 2,
-    ACTIONS(16848), 1,
-      aux_sym_implicit_statement_token3,
-    ACTIONS(21), 2,
+  [171095] = 2,
+    ACTIONS(16825), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171137] = 2,
-    ACTIONS(16850), 1,
+  [171103] = 2,
+    ACTIONS(16827), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171145] = 2,
-    ACTIONS(16852), 1,
-      aux_sym_preproc_if_token2,
+  [171111] = 2,
+    ACTIONS(16829), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171153] = 2,
-    ACTIONS(16854), 1,
+  [171119] = 2,
+    ACTIONS(16831), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171161] = 2,
-    ACTIONS(16856), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [171127] = 2,
+    ACTIONS(16833), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171169] = 2,
-    ACTIONS(16858), 1,
-      anon_sym_RPAREN,
+  [171135] = 2,
+    ACTIONS(16835), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171177] = 2,
-    ACTIONS(16860), 1,
-      aux_sym_preproc_if_token2,
+  [171143] = 2,
+    ACTIONS(16837), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171185] = 2,
-    ACTIONS(16862), 1,
+  [171151] = 2,
+    ACTIONS(16839), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171193] = 2,
-    ACTIONS(16864), 1,
+  [171159] = 2,
+    ACTIONS(16841), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171201] = 2,
-    ACTIONS(16866), 1,
-      anon_sym_EQ,
+  [171167] = 2,
+    ACTIONS(16843), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171209] = 2,
-    ACTIONS(16868), 1,
+  [171175] = 2,
+    ACTIONS(16845), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171217] = 2,
-    ACTIONS(16870), 1,
+  [171183] = 2,
+    ACTIONS(16847), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171225] = 2,
-    ACTIONS(16872), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [171191] = 2,
+    ACTIONS(16849), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171233] = 2,
-    ACTIONS(16874), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [171199] = 2,
+    ACTIONS(16851), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171241] = 2,
-    ACTIONS(16876), 1,
+  [171207] = 2,
+    ACTIONS(16853), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171249] = 2,
-    ACTIONS(16878), 1,
-      aux_sym_preproc_if_token2,
+  [171215] = 2,
+    ACTIONS(16855), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171257] = 2,
-    ACTIONS(16880), 1,
+  [171223] = 2,
+    ACTIONS(16857), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171265] = 2,
-    ACTIONS(16882), 1,
+  [171231] = 2,
+    ACTIONS(10850), 1,
+      aux_sym_module_procedure_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171239] = 2,
+    ACTIONS(16859), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171247] = 2,
+    ACTIONS(16861), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171255] = 2,
+    ACTIONS(16863), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171273] = 2,
-    ACTIONS(16884), 1,
+  [171263] = 2,
+    ACTIONS(16865), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171281] = 2,
-    ACTIONS(16886), 1,
+  [171271] = 2,
+    ACTIONS(16867), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171289] = 2,
-    ACTIONS(16888), 1,
+  [171279] = 2,
+    ACTIONS(16869), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171297] = 2,
-    ACTIONS(16890), 1,
+  [171287] = 2,
+    ACTIONS(16871), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171305] = 2,
-    ACTIONS(16892), 1,
-      aux_sym_preproc_if_token2,
+  [171295] = 2,
+    ACTIONS(10176), 1,
+      aux_sym_do_loop_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171303] = 2,
+    ACTIONS(16873), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171313] = 2,
-    ACTIONS(16894), 1,
+  [171311] = 2,
+    ACTIONS(16875), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171321] = 2,
-    ACTIONS(16896), 1,
-      aux_sym_preproc_if_token2,
+  [171319] = 2,
+    ACTIONS(16877), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171329] = 2,
-    ACTIONS(16898), 1,
+  [171327] = 2,
+    ACTIONS(16879), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171337] = 2,
-    ACTIONS(16900), 1,
+  [171335] = 2,
+    ACTIONS(16881), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171345] = 2,
-    ACTIONS(16902), 1,
+  [171343] = 2,
+    ACTIONS(16883), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171351] = 2,
+    ACTIONS(16885), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171353] = 2,
-    ACTIONS(16904), 1,
-      aux_sym_implicit_statement_token3,
+  [171359] = 2,
+    ACTIONS(16887), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171361] = 2,
-    ACTIONS(16906), 1,
-      anon_sym_LPAREN2,
+  [171367] = 2,
+    ACTIONS(16889), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171375] = 2,
+    ACTIONS(16891), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171369] = 2,
-    ACTIONS(16908), 1,
-      anon_sym_RPAREN,
+  [171383] = 2,
+    ACTIONS(16893), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171377] = 2,
-    ACTIONS(16910), 1,
+  [171391] = 2,
+    ACTIONS(16895), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171385] = 2,
-    ACTIONS(16912), 1,
+  [171399] = 2,
+    ACTIONS(16897), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171393] = 2,
-    ACTIONS(16914), 1,
+  [171407] = 2,
+    ACTIONS(16899), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171401] = 2,
-    ACTIONS(16916), 1,
+  [171415] = 2,
+    ACTIONS(16901), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171409] = 2,
-    ACTIONS(16918), 1,
+  [171423] = 2,
+    ACTIONS(16903), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171417] = 2,
-    ACTIONS(16920), 1,
-      aux_sym_implicit_range_token1,
-    ACTIONS(21), 2,
+  [171431] = 2,
+    ACTIONS(16905), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171425] = 2,
-    ACTIONS(16922), 1,
+  [171439] = 2,
+    ACTIONS(16907), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171433] = 2,
-    ACTIONS(16924), 1,
+  [171447] = 2,
+    ACTIONS(16909), 1,
+      anon_sym__,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171455] = 2,
+    ACTIONS(16911), 1,
+      aux_sym_implicit_statement_token3,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171463] = 2,
+    ACTIONS(16913), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171441] = 2,
-    ACTIONS(13386), 1,
+  [171471] = 2,
+    ACTIONS(16915), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171449] = 2,
-    ACTIONS(16926), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [171479] = 2,
+    ACTIONS(16917), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171457] = 2,
-    ACTIONS(16928), 1,
+  [171487] = 2,
+    ACTIONS(16919), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171465] = 2,
-    ACTIONS(16930), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [171495] = 2,
+    ACTIONS(16921), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171473] = 2,
-    ACTIONS(16932), 1,
+  [171503] = 2,
+    ACTIONS(16923), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171481] = 2,
-    ACTIONS(16934), 1,
-      anon_sym__,
+  [171511] = 2,
+    ACTIONS(16925), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171489] = 2,
-    ACTIONS(16936), 1,
-      anon_sym_RPAREN,
+  [171519] = 2,
+    ACTIONS(16927), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171497] = 2,
-    ACTIONS(10143), 1,
+  [171527] = 2,
+    ACTIONS(10156), 1,
       anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171505] = 2,
-    ACTIONS(16938), 1,
+  [171535] = 2,
+    ACTIONS(16929), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171513] = 2,
-    ACTIONS(16940), 1,
+  [171543] = 2,
+    ACTIONS(16931), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171521] = 2,
-    ACTIONS(16942), 1,
-      sym__string_literal,
+  [171551] = 2,
+    ACTIONS(16933), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171529] = 2,
-    ACTIONS(13797), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [171559] = 2,
+    ACTIONS(16935), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171537] = 2,
-    ACTIONS(16944), 1,
+  [171567] = 2,
+    ACTIONS(16937), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171545] = 2,
-    ACTIONS(16946), 1,
+  [171575] = 2,
+    ACTIONS(16939), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171553] = 2,
-    ACTIONS(10861), 1,
-      aux_sym_module_procedure_statement_token1,
+  [171583] = 2,
+    ACTIONS(16941), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171561] = 2,
-    ACTIONS(16948), 1,
+  [171591] = 2,
+    ACTIONS(16943), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171599] = 2,
+    ACTIONS(16945), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171607] = 2,
+    ACTIONS(16947), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171569] = 2,
-    ACTIONS(16950), 1,
-      sym__string_literal,
+  [171615] = 2,
+    ACTIONS(16949), 1,
+      anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171577] = 2,
-    ACTIONS(14020), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [171623] = 2,
+    ACTIONS(16951), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171585] = 2,
-    ACTIONS(16952), 1,
+  [171631] = 2,
+    ACTIONS(16953), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171593] = 2,
-    ACTIONS(16954), 1,
-      aux_sym_preproc_def_token2,
+  [171639] = 2,
+    ACTIONS(16955), 1,
+      anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171601] = 2,
-    ACTIONS(16956), 1,
+  [171647] = 2,
+    ACTIONS(16957), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171609] = 2,
-    ACTIONS(16958), 1,
-      anon_sym_RPAREN,
+  [171655] = 2,
+    ACTIONS(10135), 1,
+      anon_sym_COLON,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171663] = 2,
+    ACTIONS(16959), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171671] = 2,
+    ACTIONS(16961), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171679] = 2,
+    ACTIONS(13339), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171687] = 2,
+    ACTIONS(16963), 1,
+      aux_sym_interface_statement_token1,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171695] = 2,
+    ACTIONS(16965), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171617] = 2,
-    ACTIONS(16960), 1,
+  [171703] = 2,
+    ACTIONS(16967), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171711] = 2,
+    ACTIONS(16969), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171719] = 2,
+    ACTIONS(16971), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171727] = 2,
+    ACTIONS(16973), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171625] = 2,
-    ACTIONS(16962), 1,
+  [171735] = 2,
+    ACTIONS(16975), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171743] = 2,
+    ACTIONS(16977), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171751] = 2,
+    ACTIONS(16979), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171633] = 2,
-    ACTIONS(16964), 1,
+  [171759] = 2,
+    ACTIONS(16981), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171641] = 2,
-    ACTIONS(16966), 1,
+  [171767] = 2,
+    ACTIONS(16983), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171649] = 2,
-    ACTIONS(16968), 1,
+  [171775] = 2,
+    ACTIONS(16985), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171657] = 2,
-    ACTIONS(16970), 1,
+  [171783] = 2,
+    ACTIONS(16987), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171665] = 2,
-    ACTIONS(16972), 1,
-      aux_sym_preproc_if_token2,
+  [171791] = 2,
+    ACTIONS(16989), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171673] = 2,
-    ACTIONS(16974), 1,
-      anon_sym_RPAREN,
+  [171799] = 2,
+    ACTIONS(16991), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171681] = 2,
-    ACTIONS(16976), 1,
-      aux_sym_preproc_if_token2,
+  [171807] = 2,
+    ACTIONS(13655), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [171815] = 2,
+    ACTIONS(16993), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171689] = 2,
-    ACTIONS(16978), 1,
-      aux_sym_interface_statement_token1,
+  [171823] = 2,
+    ACTIONS(16995), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171697] = 2,
-    ACTIONS(16980), 1,
-      anon_sym_RPAREN,
+  [171831] = 2,
+    ACTIONS(16997), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171705] = 2,
-    ACTIONS(16982), 1,
+  [171839] = 2,
+    ACTIONS(16999), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171713] = 2,
-    ACTIONS(16984), 1,
+  [171847] = 2,
+    ACTIONS(17001), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171721] = 2,
-    ACTIONS(16986), 1,
+  [171855] = 2,
+    ACTIONS(17003), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171729] = 2,
-    ACTIONS(16988), 1,
+  [171863] = 2,
+    ACTIONS(17005), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171737] = 2,
-    ACTIONS(16990), 1,
+  [171871] = 2,
+    ACTIONS(17007), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171745] = 2,
-    ACTIONS(16992), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [171879] = 2,
+    ACTIONS(13637), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171753] = 2,
-    ACTIONS(16994), 1,
+  [171887] = 2,
+    ACTIONS(17009), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171761] = 2,
-    ACTIONS(16996), 1,
-      sym__string_literal,
+  [171895] = 2,
+    ACTIONS(17011), 1,
+      aux_sym__block_if_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171769] = 2,
-    ACTIONS(14357), 1,
-      aux_sym_preproc_include_token2,
+  [171903] = 2,
+    ACTIONS(17013), 1,
+      anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171777] = 2,
-    ACTIONS(16998), 1,
-      anon_sym_EQ,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171785] = 2,
-    ACTIONS(17000), 1,
+  [171911] = 2,
+    ACTIONS(17015), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171793] = 2,
-    ACTIONS(17002), 1,
+  [171919] = 2,
+    ACTIONS(17017), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171801] = 2,
-    ACTIONS(17004), 1,
-      aux_sym_preproc_if_token2,
+  [171927] = 2,
+    ACTIONS(17019), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171809] = 2,
-    ACTIONS(17006), 1,
+  [171935] = 2,
+    ACTIONS(17021), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171817] = 2,
-    ACTIONS(13302), 1,
+  [171943] = 2,
+    ACTIONS(17023), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171825] = 2,
-    ACTIONS(17008), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171833] = 2,
-    ACTIONS(17010), 1,
+  [171951] = 2,
+    ACTIONS(17025), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171841] = 2,
-    ACTIONS(17012), 1,
-      aux_sym_interface_statement_token1,
+  [171959] = 2,
+    ACTIONS(17027), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171849] = 2,
-    ACTIONS(17014), 1,
+  [171967] = 2,
+    ACTIONS(17029), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171857] = 2,
-    ACTIONS(17016), 1,
-      aux_sym_interface_statement_token1,
+  [171975] = 2,
+    ACTIONS(17031), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171865] = 2,
-    ACTIONS(17018), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171873] = 2,
-    ACTIONS(17020), 1,
-      anon_sym_DOT,
+  [171983] = 2,
+    ACTIONS(17033), 1,
+      anon_sym_SLASH_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171881] = 2,
-    ACTIONS(17022), 1,
-      anon_sym_LPAREN2,
+  [171991] = 2,
+    ACTIONS(17035), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171889] = 2,
-    ACTIONS(17024), 1,
+  [171999] = 2,
+    ACTIONS(17037), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171897] = 2,
-    ACTIONS(17026), 1,
-      aux_sym_preproc_if_token2,
+  [172007] = 2,
+    ACTIONS(17039), 1,
+      anon_sym_RBRACK,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171905] = 2,
-    ACTIONS(17028), 1,
+  [172015] = 2,
+    ACTIONS(17041), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171913] = 2,
-    ACTIONS(17030), 1,
-      anon_sym_LPAREN2,
+  [172023] = 2,
+    ACTIONS(17043), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171921] = 2,
-    ACTIONS(17032), 1,
-      anon_sym_RPAREN,
+  [172031] = 2,
+    ACTIONS(17045), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171929] = 2,
-    ACTIONS(17034), 1,
-      sym__string_literal,
+  [172039] = 2,
+    ACTIONS(17047), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171937] = 2,
-    ACTIONS(14797), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171945] = 2,
-    ACTIONS(17036), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171953] = 2,
-    ACTIONS(17038), 1,
+  [172047] = 2,
+    ACTIONS(17049), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [171961] = 2,
-    ACTIONS(17040), 1,
+  [172055] = 2,
+    ACTIONS(17051), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171969] = 2,
-    ACTIONS(17042), 1,
+  [172063] = 2,
+    ACTIONS(17053), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171977] = 2,
-    ACTIONS(17044), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [171985] = 2,
-    ACTIONS(17046), 1,
+  [172071] = 2,
+    ACTIONS(17055), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [171993] = 2,
-    ACTIONS(17048), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172001] = 2,
-    ACTIONS(17050), 1,
+  [172079] = 2,
+    ACTIONS(17057), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172009] = 2,
-    ACTIONS(17052), 1,
-      aux_sym_preproc_if_token2,
+  [172087] = 2,
+    ACTIONS(17059), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172017] = 2,
-    ACTIONS(17054), 1,
-      aux_sym_preproc_def_token2,
+  [172095] = 2,
+    ACTIONS(11033), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172025] = 2,
-    ACTIONS(17056), 1,
+  [172103] = 2,
+    ACTIONS(17061), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172033] = 2,
-    ACTIONS(17058), 1,
-      anon_sym_RPAREN,
+  [172111] = 2,
+    ACTIONS(17063), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172041] = 2,
-    ACTIONS(17060), 1,
+  [172119] = 2,
+    ACTIONS(17065), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172049] = 2,
-    ACTIONS(17062), 1,
-      aux_sym_preproc_if_token2,
+  [172127] = 2,
+    ACTIONS(17067), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172057] = 2,
-    ACTIONS(17064), 1,
+  [172135] = 2,
+    ACTIONS(17069), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172065] = 2,
-    ACTIONS(17066), 1,
+  [172143] = 2,
+    ACTIONS(17071), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172073] = 2,
-    ACTIONS(17068), 1,
-      anon_sym_COLON,
-    ACTIONS(21), 2,
+  [172151] = 2,
+    ACTIONS(17073), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [172159] = 2,
+    ACTIONS(17075), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172081] = 2,
-    ACTIONS(17070), 1,
+  [172167] = 2,
+    ACTIONS(17077), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [172175] = 2,
+    ACTIONS(17079), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172089] = 2,
-    ACTIONS(17072), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [172183] = 2,
+    ACTIONS(17081), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172097] = 2,
-    ACTIONS(17074), 1,
+  [172191] = 2,
+    ACTIONS(17083), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172105] = 2,
-    ACTIONS(17076), 1,
-      anon_sym_COLON,
+  [172199] = 2,
+    ACTIONS(17085), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172113] = 2,
-    ACTIONS(17078), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172121] = 2,
-    ACTIONS(17080), 1,
+  [172207] = 2,
+    ACTIONS(17087), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172129] = 2,
-    ACTIONS(17082), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [172215] = 2,
+    ACTIONS(17089), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172137] = 2,
-    ACTIONS(17084), 1,
+  [172223] = 2,
+    ACTIONS(17091), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172145] = 2,
-    ACTIONS(17086), 1,
-      anon_sym_LPAREN2,
+  [172231] = 2,
+    ACTIONS(10967), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [172239] = 2,
+    ACTIONS(17093), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172153] = 2,
-    ACTIONS(17088), 1,
+  [172247] = 2,
+    ACTIONS(17095), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172161] = 2,
-    ACTIONS(17090), 1,
-      anon_sym_SLASH_RPAREN,
+  [172255] = 2,
+    ACTIONS(17097), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172169] = 2,
-    ACTIONS(17092), 1,
+  [172263] = 2,
+    ACTIONS(17099), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172177] = 2,
-    ACTIONS(17094), 1,
-      anon_sym_RBRACK,
+  [172271] = 2,
+    ACTIONS(17101), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172185] = 2,
-    ACTIONS(17096), 1,
-      anon_sym_RPAREN,
+  [172279] = 2,
+    ACTIONS(17103), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172193] = 2,
-    ACTIONS(17098), 1,
+  [172287] = 2,
+    ACTIONS(17105), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172201] = 2,
-    ACTIONS(17100), 1,
+  [172295] = 2,
+    ACTIONS(17107), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172209] = 2,
-    ACTIONS(17102), 1,
+  [172303] = 2,
+    ACTIONS(17109), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172217] = 2,
-    ACTIONS(17104), 1,
-      anon_sym_STAR,
+  [172311] = 2,
+    ACTIONS(17111), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172225] = 2,
-    ACTIONS(17106), 1,
+  [172319] = 2,
+    ACTIONS(17113), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172233] = 2,
-    ACTIONS(17108), 1,
-      anon_sym_LPAREN2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172241] = 2,
-    ACTIONS(17110), 1,
-      anon_sym_RPAREN,
+  [172327] = 2,
+    ACTIONS(17115), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172249] = 2,
-    ACTIONS(17112), 1,
-      anon_sym_RPAREN,
+  [172335] = 2,
+    ACTIONS(17117), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172257] = 2,
-    ACTIONS(17114), 1,
-      anon_sym_RPAREN,
+  [172343] = 2,
+    ACTIONS(17119), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172265] = 2,
-    ACTIONS(17116), 1,
+  [172351] = 2,
+    ACTIONS(17121), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172273] = 2,
-    ACTIONS(17118), 1,
-      aux_sym_interface_statement_token1,
+  [172359] = 2,
+    ACTIONS(17123), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172281] = 2,
-    ACTIONS(17120), 1,
+  [172367] = 2,
+    ACTIONS(17125), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172289] = 2,
-    ACTIONS(17122), 1,
+  [172375] = 2,
+    ACTIONS(17127), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172297] = 2,
-    ACTIONS(17124), 1,
-      anon_sym_RPAREN,
+  [172383] = 2,
+    ACTIONS(17129), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172305] = 2,
-    ACTIONS(17126), 1,
-      anon_sym_RPAREN,
+  [172391] = 2,
+    ACTIONS(17131), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172313] = 2,
-    ACTIONS(17128), 1,
-      anon_sym_RPAREN,
+  [172399] = 2,
+    ACTIONS(17133), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172321] = 2,
-    ACTIONS(17130), 1,
-      anon_sym_RPAREN,
+  [172407] = 2,
+    ACTIONS(17135), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172329] = 2,
-    ACTIONS(17132), 1,
+  [172415] = 2,
+    ACTIONS(17137), 1,
       aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172337] = 2,
-    ACTIONS(17134), 1,
+  [172423] = 2,
+    ACTIONS(17139), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172345] = 2,
-    ACTIONS(17136), 1,
+  [172431] = 2,
+    ACTIONS(17141), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172353] = 2,
-    ACTIONS(17138), 1,
+  [172439] = 2,
+    ACTIONS(17143), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172361] = 2,
-    ACTIONS(17140), 1,
+  [172447] = 2,
+    ACTIONS(17145), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172369] = 2,
-    ACTIONS(17142), 1,
-      aux_sym_preproc_if_token2,
+  [172455] = 2,
+    ACTIONS(17147), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172377] = 2,
-    ACTIONS(17144), 1,
-      anon_sym_EQ,
+  [172463] = 2,
+    ACTIONS(17149), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172385] = 2,
-    ACTIONS(17146), 1,
+  [172471] = 2,
+    ACTIONS(17151), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172393] = 2,
-    ACTIONS(17148), 1,
+  [172479] = 2,
+    ACTIONS(17153), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172401] = 2,
-    ACTIONS(17150), 1,
+  [172487] = 2,
+    ACTIONS(17155), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172409] = 2,
-    ACTIONS(17152), 1,
+  [172495] = 2,
+    ACTIONS(17157), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172417] = 2,
-    ACTIONS(17154), 1,
+  [172503] = 2,
+    ACTIONS(17159), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172425] = 2,
-    ACTIONS(17156), 1,
-      anon_sym_RPAREN,
+  [172511] = 2,
+    ACTIONS(17161), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172433] = 2,
-    ACTIONS(17158), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [172519] = 2,
+    ACTIONS(17163), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172441] = 2,
-    ACTIONS(17160), 1,
+  [172527] = 2,
+    ACTIONS(17165), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172449] = 2,
-    ACTIONS(17162), 1,
+  [172535] = 2,
+    ACTIONS(17167), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172457] = 2,
-    ACTIONS(17164), 1,
+  [172543] = 2,
+    ACTIONS(17169), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172465] = 2,
-    ACTIONS(17166), 1,
-      aux_sym_stop_statement_token3,
+  [172551] = 2,
+    ACTIONS(17171), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172473] = 2,
-    ACTIONS(17168), 1,
+  [172559] = 2,
+    ACTIONS(17173), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172481] = 2,
-    ACTIONS(10366), 1,
-      anon_sym_LPAREN2,
+  [172567] = 2,
+    ACTIONS(12781), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172489] = 2,
-    ACTIONS(17170), 1,
-      aux_sym_coarray_statement_token5,
+  [172575] = 2,
+    ACTIONS(17175), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172497] = 2,
-    ACTIONS(17172), 1,
-      aux_sym_preproc_if_token2,
+  [172583] = 2,
+    ACTIONS(17177), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172505] = 2,
-    ACTIONS(17174), 1,
-      anon_sym_LF,
+  [172591] = 2,
+    ACTIONS(17179), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172513] = 2,
-    ACTIONS(17176), 1,
+  [172599] = 2,
+    ACTIONS(17181), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172521] = 2,
-    ACTIONS(13386), 1,
+  [172607] = 2,
+    ACTIONS(17183), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172529] = 2,
-    ACTIONS(17178), 1,
-      aux_sym_preproc_def_token2,
+  [172615] = 2,
+    ACTIONS(17185), 1,
+      anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172537] = 2,
-    ACTIONS(17180), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172545] = 2,
-    ACTIONS(15588), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172553] = 2,
-    ACTIONS(17182), 1,
+  [172623] = 2,
+    ACTIONS(17187), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172561] = 2,
-    ACTIONS(17184), 1,
-      aux_sym_preproc_if_token2,
+  [172631] = 2,
+    ACTIONS(17189), 1,
+      anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172569] = 2,
-    ACTIONS(17186), 1,
+  [172639] = 2,
+    ACTIONS(17191), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172577] = 2,
-    ACTIONS(17188), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172585] = 2,
-    ACTIONS(17190), 1,
-      anon_sym_SLASH,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172593] = 2,
-    ACTIONS(17192), 1,
-      anon_sym__,
+  [172647] = 2,
+    ACTIONS(10164), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172601] = 2,
-    ACTIONS(17194), 1,
+  [172655] = 2,
+    ACTIONS(17193), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172609] = 2,
-    ACTIONS(17196), 1,
-      sym__string_literal,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172617] = 2,
-    ACTIONS(14389), 1,
-      aux_sym_preproc_include_token2,
+  [172663] = 2,
+    ACTIONS(17195), 1,
+      aux_sym_preproc_def_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172625] = 2,
-    ACTIONS(17198), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172633] = 2,
-    ACTIONS(17200), 1,
-      anon_sym_RPAREN,
+  [172671] = 2,
+    ACTIONS(17197), 1,
+      aux_sym_enum_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172641] = 2,
-    ACTIONS(17202), 1,
+  [172679] = 2,
+    ACTIONS(17199), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172649] = 2,
-    ACTIONS(17204), 1,
+  [172687] = 2,
+    ACTIONS(17201), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172657] = 2,
-    ACTIONS(17206), 1,
-      aux_sym_type_statement_token1,
+  [172695] = 2,
+    ACTIONS(17203), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172665] = 2,
-    ACTIONS(17208), 1,
+  [172703] = 2,
+    ACTIONS(17205), 1,
       anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172673] = 2,
-    ACTIONS(17210), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172681] = 2,
-    ACTIONS(17212), 1,
+  [172711] = 2,
+    ACTIONS(17207), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172689] = 2,
-    ACTIONS(17214), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172697] = 2,
-    ACTIONS(17216), 1,
-      aux_sym_interface_statement_token1,
+  [172719] = 2,
+    ACTIONS(17209), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172705] = 2,
-    ACTIONS(17218), 1,
-      anon_sym_RPAREN,
+  [172727] = 2,
+    ACTIONS(17211), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172713] = 2,
-    ACTIONS(17220), 1,
+  [172735] = 2,
+    ACTIONS(17213), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172721] = 2,
-    ACTIONS(17222), 1,
+  [172743] = 2,
+    ACTIONS(17215), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172729] = 2,
-    ACTIONS(17224), 1,
-      anon_sym_LPAREN2,
+  [172751] = 2,
+    ACTIONS(14545), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172737] = 2,
-    ACTIONS(17226), 1,
-      anon_sym__,
+  [172759] = 2,
+    ACTIONS(14551), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172745] = 2,
-    ACTIONS(17228), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172753] = 2,
-    ACTIONS(17230), 1,
-      anon_sym_LPAREN2,
+  [172767] = 2,
+    ACTIONS(14555), 1,
+      anon_sym_EQ_GT,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172761] = 2,
-    ACTIONS(17232), 1,
+  [172775] = 2,
+    ACTIONS(17217), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172769] = 2,
-    ACTIONS(17234), 1,
-      anon_sym_LPAREN2,
+  [172783] = 2,
+    ACTIONS(13354), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172777] = 2,
-    ACTIONS(17236), 1,
+  [172791] = 2,
+    ACTIONS(17219), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172785] = 2,
-    ACTIONS(17238), 1,
+  [172799] = 2,
+    ACTIONS(17221), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172793] = 2,
-    ACTIONS(17240), 1,
-      anon_sym_RPAREN,
+  [172807] = 2,
+    ACTIONS(17223), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172801] = 2,
-    ACTIONS(17242), 1,
+  [172815] = 2,
+    ACTIONS(17225), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172809] = 2,
-    ACTIONS(17244), 1,
+  [172823] = 2,
+    ACTIONS(17227), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172817] = 2,
-    ACTIONS(17246), 1,
-      anon_sym_LPAREN2,
+  [172831] = 2,
+    ACTIONS(17229), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172825] = 2,
-    ACTIONS(17248), 1,
+  [172839] = 2,
+    ACTIONS(17231), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172833] = 2,
-    ACTIONS(17250), 1,
-      sym__string_literal,
+  [172847] = 2,
+    ACTIONS(17233), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172841] = 2,
-    ACTIONS(17252), 1,
-      aux_sym_preproc_if_token2,
+  [172855] = 2,
+    ACTIONS(17235), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172849] = 2,
-    ACTIONS(17254), 1,
-      anon_sym_LPAREN2,
+  [172863] = 2,
+    ACTIONS(17237), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172857] = 2,
-    ACTIONS(17256), 1,
+  [172871] = 2,
+    ACTIONS(17239), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172865] = 2,
-    ACTIONS(17258), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172873] = 2,
-    ACTIONS(17260), 1,
+  [172879] = 2,
+    ACTIONS(17241), 1,
       anon_sym_LF,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172881] = 2,
-    ACTIONS(17262), 1,
+  [172887] = 2,
+    ACTIONS(17243), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172889] = 2,
-    ACTIONS(17264), 1,
+  [172895] = 2,
+    ACTIONS(17245), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172897] = 2,
-    ACTIONS(17266), 1,
-      anon_sym_EQ,
+  [172903] = 2,
+    ACTIONS(17247), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172905] = 2,
-    ACTIONS(17268), 1,
+  [172911] = 2,
+    ACTIONS(17249), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172913] = 2,
-    ACTIONS(17270), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172921] = 2,
-    ACTIONS(10188), 1,
-      aux_sym__inline_if_statement_token1,
+  [172919] = 2,
+    ACTIONS(17251), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172929] = 2,
-    ACTIONS(17272), 1,
-      anon_sym_RPAREN,
+  [172927] = 2,
+    ACTIONS(17253), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172937] = 2,
-    ACTIONS(17274), 1,
-      aux_sym_operator_token2,
+  [172935] = 2,
+    ACTIONS(14820), 1,
+      aux_sym_preproc_include_token2,
     ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [172945] = 2,
-    ACTIONS(17276), 1,
+  [172943] = 2,
+    ACTIONS(17255), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172953] = 2,
-    ACTIONS(17278), 1,
+  [172951] = 2,
+    ACTIONS(17257), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172961] = 2,
-    ACTIONS(17280), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172969] = 2,
-    ACTIONS(17282), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172977] = 2,
-    ACTIONS(17284), 1,
+  [172959] = 2,
+    ACTIONS(17259), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [172985] = 2,
-    ACTIONS(17286), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [172993] = 2,
-    ACTIONS(17288), 1,
+  [172967] = 2,
+    ACTIONS(17261), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173001] = 2,
-    ACTIONS(17290), 1,
+  [172975] = 2,
+    ACTIONS(17263), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173009] = 2,
-    ACTIONS(17292), 1,
+  [172983] = 2,
+    ACTIONS(17265), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173017] = 2,
-    ACTIONS(17294), 1,
-      anon_sym_COMMA,
+  [172991] = 2,
+    ACTIONS(17267), 1,
+      aux_sym_interface_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173025] = 2,
-    ACTIONS(17296), 1,
+  [172999] = 2,
+    ACTIONS(17269), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173033] = 2,
-    ACTIONS(17298), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [173041] = 2,
-    ACTIONS(17300), 1,
-      aux_sym_preproc_if_token2,
+  [173007] = 2,
+    ACTIONS(17271), 1,
+      aux_sym_enumeration_type_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173049] = 2,
-    ACTIONS(17302), 1,
-      aux_sym_preproc_if_token2,
+  [173015] = 2,
+    ACTIONS(17273), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173057] = 2,
-    ACTIONS(17304), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [173065] = 2,
-    ACTIONS(17306), 1,
+  [173023] = 2,
+    ACTIONS(17275), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173073] = 2,
-    ACTIONS(17308), 1,
-      anon_sym_EQ,
+  [173031] = 2,
+    ACTIONS(17277), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173081] = 2,
-    ACTIONS(10131), 1,
-      anon_sym_COLON,
+  [173039] = 2,
+    ACTIONS(17279), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173089] = 2,
-    ACTIONS(17310), 1,
-      aux_sym_preproc_if_token2,
+  [173047] = 2,
+    ACTIONS(17281), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173097] = 2,
-    ACTIONS(17312), 1,
-      aux_sym_preproc_if_token2,
+  [173055] = 2,
+    ACTIONS(17283), 1,
+      aux_sym_coarray_statement_token5,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173105] = 2,
-    ACTIONS(17314), 1,
-      aux_sym_preproc_if_token2,
+  [173063] = 2,
+    ACTIONS(17285), 1,
+      aux_sym_type_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173113] = 2,
-    ACTIONS(17316), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [173121] = 2,
-    ACTIONS(17318), 1,
-      aux_sym_preproc_if_token2,
+  [173071] = 2,
+    ACTIONS(17287), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173129] = 2,
-    ACTIONS(17320), 1,
+  [173079] = 2,
+    ACTIONS(17289), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173137] = 2,
-    ACTIONS(17322), 1,
+  [173087] = 2,
+    ACTIONS(17291), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173145] = 2,
-    ACTIONS(17324), 1,
+  [173095] = 2,
+    ACTIONS(17293), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173153] = 2,
-    ACTIONS(17326), 1,
+  [173103] = 2,
+    ACTIONS(17295), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173161] = 2,
-    ACTIONS(17328), 1,
+  [173111] = 2,
+    ACTIONS(17297), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173169] = 2,
-    ACTIONS(17330), 1,
-      anon_sym_RPAREN,
+  [173119] = 2,
+    ACTIONS(17299), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173177] = 2,
-    ACTIONS(17332), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [173127] = 2,
+    ACTIONS(7549), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [173185] = 2,
-    ACTIONS(17334), 1,
-      anon_sym_LPAREN2,
+  [173135] = 2,
+    ACTIONS(17301), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173193] = 2,
-    ACTIONS(17336), 1,
+  [173143] = 2,
+    ACTIONS(17303), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173201] = 2,
-    ACTIONS(17338), 1,
+  [173151] = 2,
+    ACTIONS(17305), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173209] = 2,
-    ACTIONS(17340), 1,
-      anon_sym_STAR,
+  [173159] = 2,
+    ACTIONS(17307), 1,
+      anon_sym_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173217] = 2,
-    ACTIONS(17342), 1,
+  [173167] = 2,
+    ACTIONS(17309), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173225] = 2,
-    ACTIONS(17344), 1,
-      aux_sym_preproc_if_token2,
-    ACTIONS(21), 2,
+  [173175] = 2,
+    ACTIONS(17311), 1,
+      anon_sym_LF,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [173233] = 2,
-    ACTIONS(17346), 1,
+  [173183] = 2,
+    ACTIONS(17313), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173241] = 2,
-    ACTIONS(17348), 1,
-      anon_sym_COLON_COLON,
+  [173191] = 2,
+    ACTIONS(17315), 1,
+      sym__string_literal,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173249] = 2,
-    ACTIONS(17350), 1,
+  [173199] = 2,
+    ACTIONS(17317), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173257] = 2,
-    ACTIONS(17352), 1,
-      aux_sym_preproc_if_token2,
+  [173207] = 2,
+    ACTIONS(17319), 1,
+      aux_sym__inline_where_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173265] = 2,
-    ACTIONS(17354), 1,
-      anon_sym_LPAREN2,
+  [173215] = 2,
+    ACTIONS(17321), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173273] = 2,
-    ACTIONS(17356), 1,
-      aux_sym_preproc_if_token2,
+  [173223] = 2,
+    ACTIONS(17323), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173281] = 2,
-    ACTIONS(13386), 1,
+  [173231] = 2,
+    ACTIONS(17325), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173289] = 2,
-    ACTIONS(17358), 1,
+  [173239] = 2,
+    ACTIONS(17327), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173297] = 2,
-    ACTIONS(17360), 1,
-      anon_sym_RPAREN,
+  [173247] = 2,
+    ACTIONS(17329), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173305] = 2,
-    ACTIONS(17362), 1,
-      anon_sym_RPAREN,
+  [173255] = 2,
+    ACTIONS(17331), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173313] = 2,
-    ACTIONS(17364), 1,
-      anon_sym_RPAREN,
-    ACTIONS(21), 2,
+  [173263] = 2,
+    ACTIONS(14883), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
       anon_sym_AMP,
       sym_comment,
-  [173321] = 2,
-    ACTIONS(17366), 1,
-      anon_sym_RPAREN,
+  [173271] = 2,
+    ACTIONS(7557), 1,
+      aux_sym_preproc_include_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [173279] = 2,
+    ACTIONS(17333), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173329] = 2,
-    ACTIONS(17368), 1,
+  [173287] = 2,
+    ACTIONS(17335), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173337] = 2,
-    ACTIONS(17370), 1,
-      anon_sym_RPAREN,
+  [173295] = 2,
+    ACTIONS(17337), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173345] = 2,
-    ACTIONS(17372), 1,
+  [173303] = 2,
+    ACTIONS(17339), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [173311] = 2,
+    ACTIONS(17341), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173353] = 2,
-    ACTIONS(17374), 1,
-      anon_sym_RPAREN,
+  [173319] = 2,
+    ACTIONS(17343), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173361] = 2,
-    ACTIONS(17376), 1,
-      anon_sym_RPAREN,
+  [173327] = 2,
+    ACTIONS(17345), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173369] = 2,
-    ACTIONS(17378), 1,
-      anon_sym_COMMA,
+  [173335] = 2,
+    ACTIONS(17347), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173377] = 2,
-    ACTIONS(17380), 1,
+  [173343] = 2,
+    ACTIONS(17349), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173385] = 2,
-    ACTIONS(17382), 1,
+  [173351] = 2,
+    ACTIONS(17351), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173393] = 2,
-    ACTIONS(17384), 1,
+  [173359] = 2,
+    ACTIONS(17353), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173401] = 2,
-    ACTIONS(17386), 1,
+  [173367] = 2,
+    ACTIONS(17355), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173409] = 2,
-    ACTIONS(17388), 1,
+  [173375] = 2,
+    ACTIONS(17357), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173417] = 2,
-    ACTIONS(17390), 1,
-      anon_sym_LF,
-    ACTIONS(3), 2,
+  [173383] = 2,
+    ACTIONS(17359), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173425] = 2,
-    ACTIONS(17392), 1,
+  [173391] = 2,
+    ACTIONS(17361), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173433] = 2,
-    ACTIONS(17394), 1,
+  [173399] = 2,
+    ACTIONS(17363), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173441] = 2,
-    ACTIONS(8323), 1,
-      anon_sym_LPAREN2,
+  [173407] = 2,
+    ACTIONS(17365), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173449] = 2,
-    ACTIONS(10149), 1,
-      anon_sym_COLON,
+  [173415] = 2,
+    ACTIONS(17367), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173457] = 2,
-    ACTIONS(17396), 1,
+  [173423] = 2,
+    ACTIONS(17369), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173465] = 2,
-    ACTIONS(17398), 1,
-      anon_sym_EQ,
+  [173431] = 2,
+    ACTIONS(17371), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173473] = 2,
-    ACTIONS(17400), 1,
-      anon_sym_RPAREN,
+  [173439] = 2,
+    ACTIONS(17373), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173481] = 2,
-    ACTIONS(17402), 1,
-      aux_sym_preproc_if_token2,
+  [173447] = 2,
+    ACTIONS(17375), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173489] = 2,
-    ACTIONS(17404), 1,
+  [173455] = 2,
+    ACTIONS(17377), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173497] = 2,
-    ACTIONS(17406), 1,
-      aux_sym_interface_statement_token1,
+  [173463] = 2,
+    ACTIONS(17379), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173505] = 2,
-    ACTIONS(17408), 1,
-      sym__string_literal,
+  [173471] = 2,
+    ACTIONS(17381), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173513] = 2,
-    ACTIONS(17410), 1,
-      aux_sym_preproc_if_token2,
+  [173479] = 2,
+    ACTIONS(17383), 1,
+      aux_sym_implicit_statement_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173521] = 2,
-    ACTIONS(17412), 1,
+  [173487] = 2,
+    ACTIONS(17385), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173529] = 2,
-    ACTIONS(13667), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [173495] = 2,
+    ACTIONS(17387), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173537] = 2,
-    ACTIONS(10176), 1,
-      aux_sym_do_loop_statement_token1,
+  [173503] = 2,
+    ACTIONS(17389), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173545] = 2,
-    ACTIONS(17414), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [173511] = 2,
+    ACTIONS(17391), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173553] = 2,
-    ACTIONS(17416), 1,
+  [173519] = 2,
+    ACTIONS(17393), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173561] = 2,
-    ACTIONS(17418), 1,
-      aux_sym_preproc_if_token2,
+  [173527] = 2,
+    ACTIONS(17395), 1,
+      anon_sym_EQ,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173569] = 2,
-    ACTIONS(17420), 1,
-      aux_sym_preproc_if_token2,
+  [173535] = 2,
+    ACTIONS(17397), 1,
+      anon_sym_COLON_COLON,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173577] = 2,
-    ACTIONS(17422), 1,
-      sym__string_literal,
+  [173543] = 2,
+    ACTIONS(17399), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173585] = 2,
-    ACTIONS(14435), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [173551] = 2,
+    ACTIONS(17401), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173593] = 2,
-    ACTIONS(17424), 1,
-      sym__string_literal,
+  [173559] = 2,
+    ACTIONS(17403), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173601] = 2,
-    ACTIONS(14853), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [173567] = 2,
+    ACTIONS(17405), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173609] = 2,
-    ACTIONS(17426), 1,
+  [173575] = 2,
+    ACTIONS(17407), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173617] = 2,
-    ACTIONS(17428), 1,
+  [173583] = 2,
+    ACTIONS(17409), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173625] = 2,
-    ACTIONS(17430), 1,
+  [173591] = 2,
+    ACTIONS(17411), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173633] = 2,
-    ACTIONS(17432), 1,
-      anon_sym_RPAREN,
+  [173599] = 2,
+    ACTIONS(17413), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173641] = 2,
-    ACTIONS(10215), 1,
-      anon_sym_COLON_COLON,
+  [173607] = 2,
+    ACTIONS(17415), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173649] = 2,
-    ACTIONS(17434), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
+  [173615] = 2,
+    ACTIONS(17417), 1,
+      aux_sym_preproc_if_token2,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173657] = 2,
-    ACTIONS(17436), 1,
+  [173623] = 2,
+    ACTIONS(17419), 1,
       aux_sym_stop_statement_token3,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173665] = 2,
-    ACTIONS(14083), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [173631] = 2,
+    ACTIONS(17421), 1,
+      anon_sym_EQ,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173673] = 2,
-    ACTIONS(17438), 1,
+  [173639] = 2,
+    ACTIONS(17423), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173681] = 2,
-    ACTIONS(17440), 1,
+  [173647] = 2,
+    ACTIONS(17425), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173689] = 2,
-    ACTIONS(17442), 1,
-      aux_sym_preproc_if_token2,
+  [173655] = 2,
+    ACTIONS(17427), 1,
+      anon_sym__,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173697] = 2,
-    ACTIONS(17444), 1,
-      aux_sym_preproc_if_token2,
+  [173663] = 2,
+    ACTIONS(17429), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173705] = 2,
-    ACTIONS(17446), 1,
-      aux_sym_preproc_if_token2,
+  [173671] = 2,
+    ACTIONS(17431), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173713] = 2,
-    ACTIONS(17448), 1,
+  [173679] = 2,
+    ACTIONS(17433), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173721] = 2,
-    ACTIONS(17450), 1,
-      aux_sym_interface_statement_token1,
+  [173687] = 2,
+    ACTIONS(17435), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173729] = 2,
-    ACTIONS(17452), 1,
+  [173695] = 2,
+    ACTIONS(17437), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173737] = 2,
-    ACTIONS(17454), 1,
-      anon_sym_RPAREN,
+  [173703] = 2,
+    ACTIONS(17439), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173745] = 2,
-    ACTIONS(17456), 1,
+  [173711] = 2,
+    ACTIONS(17441), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173753] = 2,
-    ACTIONS(17458), 1,
+  [173719] = 2,
+    ACTIONS(17443), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173761] = 2,
-    ACTIONS(17460), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [173769] = 2,
-    ACTIONS(17462), 1,
+  [173727] = 2,
+    ACTIONS(17445), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173777] = 2,
-    ACTIONS(17464), 1,
+  [173735] = 2,
+    ACTIONS(17447), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173785] = 2,
-    ACTIONS(17466), 1,
-      anon_sym_EQ,
+  [173743] = 2,
+    ACTIONS(17449), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173793] = 2,
-    ACTIONS(17468), 1,
+  [173751] = 2,
+    ACTIONS(17451), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173801] = 2,
-    ACTIONS(17470), 1,
+  [173759] = 2,
+    ACTIONS(17453), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173809] = 2,
-    ACTIONS(17472), 1,
-      anon_sym_LPAREN2,
+  [173767] = 2,
+    ACTIONS(17455), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173817] = 2,
-    ACTIONS(17474), 1,
+  [173775] = 2,
+    ACTIONS(17457), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173825] = 2,
-    ACTIONS(17476), 1,
+  [173783] = 2,
+    ACTIONS(17459), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173833] = 2,
-    ACTIONS(17478), 1,
+  [173791] = 2,
+    ACTIONS(17461), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173841] = 2,
-    ACTIONS(17480), 1,
+  [173799] = 2,
+    ACTIONS(17463), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173849] = 2,
-    ACTIONS(17482), 1,
-      anon_sym_COLON_COLON,
+  [173807] = 2,
+    ACTIONS(17465), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173857] = 2,
-    ACTIONS(17484), 1,
+  [173815] = 2,
+    ACTIONS(17467), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173865] = 2,
-    ACTIONS(17486), 1,
-      aux_sym_preproc_def_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [173873] = 2,
-    ACTIONS(17488), 1,
+  [173823] = 2,
+    ACTIONS(17469), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173881] = 2,
-    ACTIONS(17490), 1,
-      aux_sym_preproc_if_token2,
+  [173831] = 2,
+    ACTIONS(17471), 1,
+      anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173889] = 2,
-    ACTIONS(17492), 1,
+  [173839] = 2,
+    ACTIONS(17473), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173897] = 2,
-    ACTIONS(17494), 1,
-      aux_sym_preproc_if_token2,
+  [173847] = 2,
+    ACTIONS(17475), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173905] = 2,
-    ACTIONS(17496), 1,
-      aux_sym_preproc_if_token2,
+  [173855] = 2,
+    ACTIONS(17477), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [173863] = 2,
+    ACTIONS(17479), 1,
+      anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173913] = 2,
-    ACTIONS(17498), 1,
+  [173871] = 2,
+    ACTIONS(17481), 1,
       anon_sym_RPAREN,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173921] = 2,
-    ACTIONS(11015), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
+  [173879] = 2,
+    ACTIONS(17483), 1,
+      anon_sym_RPAREN,
+    ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173929] = 2,
-    ACTIONS(17500), 1,
+  [173887] = 2,
+    ACTIONS(17485), 1,
       aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173937] = 2,
-    ACTIONS(17502), 1,
-      anon_sym_LPAREN2,
+  [173895] = 2,
+    ACTIONS(17487), 1,
+      aux_sym_preproc_def_token2,
+    ACTIONS(3), 2,
+      anon_sym_AMP,
+      sym_comment,
+  [173903] = 2,
+    ACTIONS(17489), 1,
+      aux_sym_preproc_if_token2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173945] = 2,
-    ACTIONS(17504), 1,
+  [173911] = 2,
+    ACTIONS(17491), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173953] = 2,
-    ACTIONS(17506), 1,
+  [173919] = 2,
+    ACTIONS(17493), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173961] = 2,
-    ACTIONS(17508), 1,
+  [173927] = 2,
+    ACTIONS(17495), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173969] = 2,
-    ACTIONS(17510), 1,
+  [173935] = 2,
+    ACTIONS(17497), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173977] = 2,
-    ACTIONS(17512), 1,
+  [173943] = 2,
+    ACTIONS(17499), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173985] = 2,
-    ACTIONS(17514), 1,
+  [173951] = 2,
+    ACTIONS(17501), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [173993] = 2,
-    ACTIONS(17516), 1,
+  [173959] = 2,
+    ACTIONS(17503), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [174001] = 2,
-    ACTIONS(17518), 1,
+  [173967] = 2,
+    ACTIONS(17505), 1,
       anon_sym_LPAREN2,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [174009] = 2,
-    ACTIONS(17520), 1,
+  [173975] = 2,
+    ACTIONS(17507), 1,
       aux_sym_type_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [174017] = 2,
-    ACTIONS(17522), 1,
-      aux_sym_preproc_if_token2,
+  [173983] = 2,
+    ACTIONS(17509), 1,
+      anon_sym_STAR,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [174025] = 2,
-    ACTIONS(17524), 1,
+  [173991] = 2,
+    ACTIONS(17511), 1,
       aux_sym_type_statement_token1,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
-  [174033] = 2,
-    ACTIONS(7549), 1,
-      aux_sym_preproc_include_token2,
-    ACTIONS(3), 2,
-      anon_sym_AMP,
-      sym_comment,
-  [174041] = 2,
-    ACTIONS(17526), 1,
-      aux_sym_preproc_if_token2,
+  [173999] = 2,
+    ACTIONS(17513), 1,
+      anon_sym_SLASH,
     ACTIONS(21), 2,
       anon_sym_AMP,
       sym_comment,
@@ -631243,116 +631073,116 @@ static const uint16_t ts_small_parse_table[] = {
 
 static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(3404)] = 0,
-  [SMALL_STATE(3405)] = 91,
-  [SMALL_STATE(3406)] = 182,
-  [SMALL_STATE(3407)] = 253,
-  [SMALL_STATE(3408)] = 344,
-  [SMALL_STATE(3409)] = 435,
-  [SMALL_STATE(3410)] = 506,
+  [SMALL_STATE(3405)] = 87,
+  [SMALL_STATE(3406)] = 158,
+  [SMALL_STATE(3407)] = 249,
+  [SMALL_STATE(3408)] = 340,
+  [SMALL_STATE(3409)] = 431,
+  [SMALL_STATE(3410)] = 526,
   [SMALL_STATE(3411)] = 597,
   [SMALL_STATE(3412)] = 688,
   [SMALL_STATE(3413)] = 779,
   [SMALL_STATE(3414)] = 870,
   [SMALL_STATE(3415)] = 961,
-  [SMALL_STATE(3416)] = 1050,
-  [SMALL_STATE(3417)] = 1145,
-  [SMALL_STATE(3418)] = 1232,
-  [SMALL_STATE(3419)] = 1327,
-  [SMALL_STATE(3420)] = 1398,
-  [SMALL_STATE(3421)] = 1489,
-  [SMALL_STATE(3422)] = 1560,
-  [SMALL_STATE(3423)] = 1631,
-  [SMALL_STATE(3424)] = 1726,
-  [SMALL_STATE(3425)] = 1817,
-  [SMALL_STATE(3426)] = 1904,
-  [SMALL_STATE(3427)] = 1995,
-  [SMALL_STATE(3428)] = 2066,
-  [SMALL_STATE(3429)] = 2137,
-  [SMALL_STATE(3430)] = 2224,
-  [SMALL_STATE(3431)] = 2319,
-  [SMALL_STATE(3432)] = 2410,
-  [SMALL_STATE(3433)] = 2501,
-  [SMALL_STATE(3434)] = 2572,
-  [SMALL_STATE(3435)] = 2663,
-  [SMALL_STATE(3436)] = 2754,
+  [SMALL_STATE(3416)] = 1056,
+  [SMALL_STATE(3417)] = 1151,
+  [SMALL_STATE(3418)] = 1222,
+  [SMALL_STATE(3419)] = 1313,
+  [SMALL_STATE(3420)] = 1400,
+  [SMALL_STATE(3421)] = 1471,
+  [SMALL_STATE(3422)] = 1542,
+  [SMALL_STATE(3423)] = 1613,
+  [SMALL_STATE(3424)] = 1704,
+  [SMALL_STATE(3425)] = 1791,
+  [SMALL_STATE(3426)] = 1882,
+  [SMALL_STATE(3427)] = 1973,
+  [SMALL_STATE(3428)] = 2044,
+  [SMALL_STATE(3429)] = 2135,
+  [SMALL_STATE(3430)] = 2226,
+  [SMALL_STATE(3431)] = 2297,
+  [SMALL_STATE(3432)] = 2388,
+  [SMALL_STATE(3433)] = 2459,
+  [SMALL_STATE(3434)] = 2554,
+  [SMALL_STATE(3435)] = 2643,
+  [SMALL_STATE(3436)] = 2734,
   [SMALL_STATE(3437)] = 2825,
-  [SMALL_STATE(3438)] = 2911,
-  [SMALL_STATE(3439)] = 2997,
-  [SMALL_STATE(3440)] = 3083,
-  [SMALL_STATE(3441)] = 3169,
-  [SMALL_STATE(3442)] = 3255,
-  [SMALL_STATE(3443)] = 3343,
-  [SMALL_STATE(3444)] = 3429,
-  [SMALL_STATE(3445)] = 3515,
-  [SMALL_STATE(3446)] = 3601,
-  [SMALL_STATE(3447)] = 3689,
-  [SMALL_STATE(3448)] = 3781,
-  [SMALL_STATE(3449)] = 3873,
-  [SMALL_STATE(3450)] = 3959,
-  [SMALL_STATE(3451)] = 4045,
-  [SMALL_STATE(3452)] = 4119,
+  [SMALL_STATE(3438)] = 2899,
+  [SMALL_STATE(3439)] = 2985,
+  [SMALL_STATE(3440)] = 3071,
+  [SMALL_STATE(3441)] = 3157,
+  [SMALL_STATE(3442)] = 3243,
+  [SMALL_STATE(3443)] = 3329,
+  [SMALL_STATE(3444)] = 3415,
+  [SMALL_STATE(3445)] = 3507,
+  [SMALL_STATE(3446)] = 3593,
+  [SMALL_STATE(3447)] = 3679,
+  [SMALL_STATE(3448)] = 3771,
+  [SMALL_STATE(3449)] = 3857,
+  [SMALL_STATE(3450)] = 3945,
+  [SMALL_STATE(3451)] = 4031,
+  [SMALL_STATE(3452)] = 4117,
   [SMALL_STATE(3453)] = 4205,
   [SMALL_STATE(3454)] = 4291,
-  [SMALL_STATE(3455)] = 4376,
-  [SMALL_STATE(3456)] = 4449,
+  [SMALL_STATE(3455)] = 4362,
+  [SMALL_STATE(3456)] = 4447,
   [SMALL_STATE(3457)] = 4520,
   [SMALL_STATE(3458)] = 4602,
-  [SMALL_STATE(3459)] = 4688,
-  [SMALL_STATE(3460)] = 4760,
-  [SMALL_STATE(3461)] = 4846,
-  [SMALL_STATE(3462)] = 4928,
-  [SMALL_STATE(3463)] = 4996,
-  [SMALL_STATE(3464)] = 5080,
-  [SMALL_STATE(3465)] = 5166,
-  [SMALL_STATE(3466)] = 5234,
-  [SMALL_STATE(3467)] = 5302,
-  [SMALL_STATE(3468)] = 5384,
-  [SMALL_STATE(3469)] = 5466,
-  [SMALL_STATE(3470)] = 5552,
-  [SMALL_STATE(3471)] = 5638,
-  [SMALL_STATE(3472)] = 5720,
-  [SMALL_STATE(3473)] = 5802,
-  [SMALL_STATE(3474)] = 5888,
-  [SMALL_STATE(3475)] = 5956,
-  [SMALL_STATE(3476)] = 6042,
-  [SMALL_STATE(3477)] = 6110,
-  [SMALL_STATE(3478)] = 6192,
-  [SMALL_STATE(3479)] = 6274,
-  [SMALL_STATE(3480)] = 6360,
-  [SMALL_STATE(3481)] = 6446,
-  [SMALL_STATE(3482)] = 6528,
-  [SMALL_STATE(3483)] = 6610,
-  [SMALL_STATE(3484)] = 6692,
-  [SMALL_STATE(3485)] = 6774,
-  [SMALL_STATE(3486)] = 6856,
-  [SMALL_STATE(3487)] = 6924,
-  [SMALL_STATE(3488)] = 7006,
-  [SMALL_STATE(3489)] = 7088,
-  [SMALL_STATE(3490)] = 7174,
-  [SMALL_STATE(3491)] = 7256,
-  [SMALL_STATE(3492)] = 7338,
-  [SMALL_STATE(3493)] = 7420,
-  [SMALL_STATE(3494)] = 7502,
-  [SMALL_STATE(3495)] = 7584,
-  [SMALL_STATE(3496)] = 7666,
-  [SMALL_STATE(3497)] = 7748,
-  [SMALL_STATE(3498)] = 7830,
-  [SMALL_STATE(3499)] = 7912,
-  [SMALL_STATE(3500)] = 7994,
-  [SMALL_STATE(3501)] = 8076,
-  [SMALL_STATE(3502)] = 8158,
-  [SMALL_STATE(3503)] = 8226,
-  [SMALL_STATE(3504)] = 8312,
-  [SMALL_STATE(3505)] = 8380,
-  [SMALL_STATE(3506)] = 8462,
-  [SMALL_STATE(3507)] = 8548,
-  [SMALL_STATE(3508)] = 8616,
-  [SMALL_STATE(3509)] = 8702,
-  [SMALL_STATE(3510)] = 8784,
-  [SMALL_STATE(3511)] = 8866,
-  [SMALL_STATE(3512)] = 8952,
+  [SMALL_STATE(3459)] = 4684,
+  [SMALL_STATE(3460)] = 4766,
+  [SMALL_STATE(3461)] = 4848,
+  [SMALL_STATE(3462)] = 4934,
+  [SMALL_STATE(3463)] = 5016,
+  [SMALL_STATE(3464)] = 5098,
+  [SMALL_STATE(3465)] = 5180,
+  [SMALL_STATE(3466)] = 5248,
+  [SMALL_STATE(3467)] = 5316,
+  [SMALL_STATE(3468)] = 5398,
+  [SMALL_STATE(3469)] = 5480,
+  [SMALL_STATE(3470)] = 5548,
+  [SMALL_STATE(3471)] = 5616,
+  [SMALL_STATE(3472)] = 5702,
+  [SMALL_STATE(3473)] = 5784,
+  [SMALL_STATE(3474)] = 5866,
+  [SMALL_STATE(3475)] = 5950,
+  [SMALL_STATE(3476)] = 6036,
+  [SMALL_STATE(3477)] = 6122,
+  [SMALL_STATE(3478)] = 6208,
+  [SMALL_STATE(3479)] = 6294,
+  [SMALL_STATE(3480)] = 6376,
+  [SMALL_STATE(3481)] = 6444,
+  [SMALL_STATE(3482)] = 6512,
+  [SMALL_STATE(3483)] = 6598,
+  [SMALL_STATE(3484)] = 6670,
+  [SMALL_STATE(3485)] = 6752,
+  [SMALL_STATE(3486)] = 6834,
+  [SMALL_STATE(3487)] = 6916,
+  [SMALL_STATE(3488)] = 6998,
+  [SMALL_STATE(3489)] = 7080,
+  [SMALL_STATE(3490)] = 7162,
+  [SMALL_STATE(3491)] = 7244,
+  [SMALL_STATE(3492)] = 7330,
+  [SMALL_STATE(3493)] = 7416,
+  [SMALL_STATE(3494)] = 7498,
+  [SMALL_STATE(3495)] = 7580,
+  [SMALL_STATE(3496)] = 7662,
+  [SMALL_STATE(3497)] = 7744,
+  [SMALL_STATE(3498)] = 7826,
+  [SMALL_STATE(3499)] = 7894,
+  [SMALL_STATE(3500)] = 7962,
+  [SMALL_STATE(3501)] = 8048,
+  [SMALL_STATE(3502)] = 8130,
+  [SMALL_STATE(3503)] = 8212,
+  [SMALL_STATE(3504)] = 8298,
+  [SMALL_STATE(3505)] = 8384,
+  [SMALL_STATE(3506)] = 8470,
+  [SMALL_STATE(3507)] = 8538,
+  [SMALL_STATE(3508)] = 8620,
+  [SMALL_STATE(3509)] = 8706,
+  [SMALL_STATE(3510)] = 8792,
+  [SMALL_STATE(3511)] = 8874,
+  [SMALL_STATE(3512)] = 8956,
   [SMALL_STATE(3513)] = 9038,
-  [SMALL_STATE(3514)] = 9124,
+  [SMALL_STATE(3514)] = 9120,
   [SMALL_STATE(3515)] = 9206,
   [SMALL_STATE(3516)] = 9289,
   [SMALL_STATE(3517)] = 9372,
@@ -631375,15 +631205,15 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(3534)] = 10783,
   [SMALL_STATE(3535)] = 10866,
   [SMALL_STATE(3536)] = 10949,
-  [SMALL_STATE(3537)] = 11032,
-  [SMALL_STATE(3538)] = 11115,
+  [SMALL_STATE(3537)] = 11016,
+  [SMALL_STATE(3538)] = 11099,
   [SMALL_STATE(3539)] = 11182,
   [SMALL_STATE(3540)] = 11265,
   [SMALL_STATE(3541)] = 11348,
-  [SMALL_STATE(3542)] = 11431,
-  [SMALL_STATE(3543)] = 11514,
-  [SMALL_STATE(3544)] = 11597,
-  [SMALL_STATE(3545)] = 11680,
+  [SMALL_STATE(3542)] = 11415,
+  [SMALL_STATE(3543)] = 11498,
+  [SMALL_STATE(3544)] = 11581,
+  [SMALL_STATE(3545)] = 11664,
   [SMALL_STATE(3546)] = 11747,
   [SMALL_STATE(3547)] = 11830,
   [SMALL_STATE(3548)] = 11913,
@@ -631401,52 +631231,52 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(3560)] = 12909,
   [SMALL_STATE(3561)] = 12992,
   [SMALL_STATE(3562)] = 13075,
-  [SMALL_STATE(3563)] = 13158,
-  [SMALL_STATE(3564)] = 13241,
-  [SMALL_STATE(3565)] = 13324,
-  [SMALL_STATE(3566)] = 13407,
-  [SMALL_STATE(3567)] = 13490,
-  [SMALL_STATE(3568)] = 13573,
-  [SMALL_STATE(3569)] = 13656,
-  [SMALL_STATE(3570)] = 13739,
-  [SMALL_STATE(3571)] = 13822,
-  [SMALL_STATE(3572)] = 13905,
-  [SMALL_STATE(3573)] = 13988,
-  [SMALL_STATE(3574)] = 14071,
-  [SMALL_STATE(3575)] = 14154,
-  [SMALL_STATE(3576)] = 14237,
-  [SMALL_STATE(3577)] = 14320,
-  [SMALL_STATE(3578)] = 14403,
-  [SMALL_STATE(3579)] = 14486,
-  [SMALL_STATE(3580)] = 14569,
-  [SMALL_STATE(3581)] = 14652,
-  [SMALL_STATE(3582)] = 14735,
-  [SMALL_STATE(3583)] = 14818,
-  [SMALL_STATE(3584)] = 14901,
-  [SMALL_STATE(3585)] = 14984,
-  [SMALL_STATE(3586)] = 15067,
-  [SMALL_STATE(3587)] = 15150,
-  [SMALL_STATE(3588)] = 15233,
-  [SMALL_STATE(3589)] = 15316,
-  [SMALL_STATE(3590)] = 15399,
-  [SMALL_STATE(3591)] = 15482,
-  [SMALL_STATE(3592)] = 15549,
-  [SMALL_STATE(3593)] = 15632,
-  [SMALL_STATE(3594)] = 15715,
-  [SMALL_STATE(3595)] = 15798,
-  [SMALL_STATE(3596)] = 15881,
-  [SMALL_STATE(3597)] = 15964,
-  [SMALL_STATE(3598)] = 16047,
-  [SMALL_STATE(3599)] = 16130,
-  [SMALL_STATE(3600)] = 16213,
-  [SMALL_STATE(3601)] = 16296,
-  [SMALL_STATE(3602)] = 16379,
-  [SMALL_STATE(3603)] = 16450,
-  [SMALL_STATE(3604)] = 16533,
-  [SMALL_STATE(3605)] = 16616,
-  [SMALL_STATE(3606)] = 16683,
-  [SMALL_STATE(3607)] = 16766,
-  [SMALL_STATE(3608)] = 16849,
+  [SMALL_STATE(3563)] = 13142,
+  [SMALL_STATE(3564)] = 13225,
+  [SMALL_STATE(3565)] = 13296,
+  [SMALL_STATE(3566)] = 13379,
+  [SMALL_STATE(3567)] = 13462,
+  [SMALL_STATE(3568)] = 13545,
+  [SMALL_STATE(3569)] = 13628,
+  [SMALL_STATE(3570)] = 13711,
+  [SMALL_STATE(3571)] = 13794,
+  [SMALL_STATE(3572)] = 13877,
+  [SMALL_STATE(3573)] = 13960,
+  [SMALL_STATE(3574)] = 14043,
+  [SMALL_STATE(3575)] = 14126,
+  [SMALL_STATE(3576)] = 14209,
+  [SMALL_STATE(3577)] = 14292,
+  [SMALL_STATE(3578)] = 14375,
+  [SMALL_STATE(3579)] = 14458,
+  [SMALL_STATE(3580)] = 14541,
+  [SMALL_STATE(3581)] = 14624,
+  [SMALL_STATE(3582)] = 14707,
+  [SMALL_STATE(3583)] = 14790,
+  [SMALL_STATE(3584)] = 14873,
+  [SMALL_STATE(3585)] = 14956,
+  [SMALL_STATE(3586)] = 15039,
+  [SMALL_STATE(3587)] = 15122,
+  [SMALL_STATE(3588)] = 15205,
+  [SMALL_STATE(3589)] = 15288,
+  [SMALL_STATE(3590)] = 15363,
+  [SMALL_STATE(3591)] = 15446,
+  [SMALL_STATE(3592)] = 15529,
+  [SMALL_STATE(3593)] = 15612,
+  [SMALL_STATE(3594)] = 15679,
+  [SMALL_STATE(3595)] = 15762,
+  [SMALL_STATE(3596)] = 15845,
+  [SMALL_STATE(3597)] = 15928,
+  [SMALL_STATE(3598)] = 16011,
+  [SMALL_STATE(3599)] = 16094,
+  [SMALL_STATE(3600)] = 16177,
+  [SMALL_STATE(3601)] = 16260,
+  [SMALL_STATE(3602)] = 16343,
+  [SMALL_STATE(3603)] = 16426,
+  [SMALL_STATE(3604)] = 16509,
+  [SMALL_STATE(3605)] = 16592,
+  [SMALL_STATE(3606)] = 16675,
+  [SMALL_STATE(3607)] = 16758,
+  [SMALL_STATE(3608)] = 16841,
   [SMALL_STATE(3609)] = 16924,
   [SMALL_STATE(3610)] = 17007,
   [SMALL_STATE(3611)] = 17090,
@@ -631471,444 +631301,444 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(3630)] = 18664,
   [SMALL_STATE(3631)] = 18744,
   [SMALL_STATE(3632)] = 18824,
-  [SMALL_STATE(3633)] = 18894,
-  [SMALL_STATE(3634)] = 18974,
-  [SMALL_STATE(3635)] = 19054,
-  [SMALL_STATE(3636)] = 19134,
-  [SMALL_STATE(3637)] = 19214,
-  [SMALL_STATE(3638)] = 19334,
-  [SMALL_STATE(3639)] = 19414,
-  [SMALL_STATE(3640)] = 19494,
-  [SMALL_STATE(3641)] = 19574,
-  [SMALL_STATE(3642)] = 19640,
-  [SMALL_STATE(3643)] = 19720,
-  [SMALL_STATE(3644)] = 19800,
-  [SMALL_STATE(3645)] = 19880,
-  [SMALL_STATE(3646)] = 19960,
-  [SMALL_STATE(3647)] = 20040,
-  [SMALL_STATE(3648)] = 20120,
-  [SMALL_STATE(3649)] = 20200,
-  [SMALL_STATE(3650)] = 20280,
-  [SMALL_STATE(3651)] = 20360,
-  [SMALL_STATE(3652)] = 20440,
-  [SMALL_STATE(3653)] = 20520,
-  [SMALL_STATE(3654)] = 20600,
-  [SMALL_STATE(3655)] = 20680,
-  [SMALL_STATE(3656)] = 20760,
-  [SMALL_STATE(3657)] = 20840,
-  [SMALL_STATE(3658)] = 20960,
-  [SMALL_STATE(3659)] = 21040,
-  [SMALL_STATE(3660)] = 21106,
-  [SMALL_STATE(3661)] = 21186,
-  [SMALL_STATE(3662)] = 21266,
-  [SMALL_STATE(3663)] = 21346,
-  [SMALL_STATE(3664)] = 21426,
-  [SMALL_STATE(3665)] = 21506,
-  [SMALL_STATE(3666)] = 21586,
-  [SMALL_STATE(3667)] = 21666,
-  [SMALL_STATE(3668)] = 21746,
-  [SMALL_STATE(3669)] = 21826,
-  [SMALL_STATE(3670)] = 21906,
-  [SMALL_STATE(3671)] = 21986,
-  [SMALL_STATE(3672)] = 22066,
-  [SMALL_STATE(3673)] = 22132,
-  [SMALL_STATE(3674)] = 22212,
-  [SMALL_STATE(3675)] = 22278,
-  [SMALL_STATE(3676)] = 22358,
-  [SMALL_STATE(3677)] = 22438,
-  [SMALL_STATE(3678)] = 22518,
-  [SMALL_STATE(3679)] = 22598,
-  [SMALL_STATE(3680)] = 22678,
-  [SMALL_STATE(3681)] = 22758,
-  [SMALL_STATE(3682)] = 22878,
-  [SMALL_STATE(3683)] = 22958,
-  [SMALL_STATE(3684)] = 23028,
-  [SMALL_STATE(3685)] = 23108,
-  [SMALL_STATE(3686)] = 23188,
-  [SMALL_STATE(3687)] = 23268,
-  [SMALL_STATE(3688)] = 23340,
-  [SMALL_STATE(3689)] = 23420,
-  [SMALL_STATE(3690)] = 23500,
-  [SMALL_STATE(3691)] = 23580,
-  [SMALL_STATE(3692)] = 23660,
-  [SMALL_STATE(3693)] = 23740,
-  [SMALL_STATE(3694)] = 23820,
-  [SMALL_STATE(3695)] = 23900,
-  [SMALL_STATE(3696)] = 23980,
-  [SMALL_STATE(3697)] = 24060,
-  [SMALL_STATE(3698)] = 24140,
-  [SMALL_STATE(3699)] = 24220,
-  [SMALL_STATE(3700)] = 24300,
-  [SMALL_STATE(3701)] = 24380,
-  [SMALL_STATE(3702)] = 24460,
-  [SMALL_STATE(3703)] = 24540,
-  [SMALL_STATE(3704)] = 24608,
-  [SMALL_STATE(3705)] = 24688,
-  [SMALL_STATE(3706)] = 24754,
-  [SMALL_STATE(3707)] = 24820,
-  [SMALL_STATE(3708)] = 24900,
-  [SMALL_STATE(3709)] = 24980,
-  [SMALL_STATE(3710)] = 25060,
-  [SMALL_STATE(3711)] = 25140,
-  [SMALL_STATE(3712)] = 25206,
-  [SMALL_STATE(3713)] = 25272,
-  [SMALL_STATE(3714)] = 25352,
-  [SMALL_STATE(3715)] = 25432,
-  [SMALL_STATE(3716)] = 25502,
-  [SMALL_STATE(3717)] = 25622,
-  [SMALL_STATE(3718)] = 25702,
-  [SMALL_STATE(3719)] = 25782,
-  [SMALL_STATE(3720)] = 25848,
-  [SMALL_STATE(3721)] = 25914,
-  [SMALL_STATE(3722)] = 25980,
-  [SMALL_STATE(3723)] = 26060,
-  [SMALL_STATE(3724)] = 26140,
-  [SMALL_STATE(3725)] = 26220,
-  [SMALL_STATE(3726)] = 26300,
-  [SMALL_STATE(3727)] = 26380,
-  [SMALL_STATE(3728)] = 26460,
-  [SMALL_STATE(3729)] = 26530,
-  [SMALL_STATE(3730)] = 26610,
-  [SMALL_STATE(3731)] = 26690,
-  [SMALL_STATE(3732)] = 26770,
-  [SMALL_STATE(3733)] = 26850,
-  [SMALL_STATE(3734)] = 26930,
-  [SMALL_STATE(3735)] = 27010,
-  [SMALL_STATE(3736)] = 27080,
-  [SMALL_STATE(3737)] = 27160,
-  [SMALL_STATE(3738)] = 27240,
-  [SMALL_STATE(3739)] = 27320,
-  [SMALL_STATE(3740)] = 27400,
-  [SMALL_STATE(3741)] = 27482,
-  [SMALL_STATE(3742)] = 27562,
-  [SMALL_STATE(3743)] = 27642,
-  [SMALL_STATE(3744)] = 27722,
-  [SMALL_STATE(3745)] = 27792,
-  [SMALL_STATE(3746)] = 27872,
-  [SMALL_STATE(3747)] = 27952,
-  [SMALL_STATE(3748)] = 28018,
-  [SMALL_STATE(3749)] = 28098,
-  [SMALL_STATE(3750)] = 28178,
-  [SMALL_STATE(3751)] = 28258,
-  [SMALL_STATE(3752)] = 28338,
-  [SMALL_STATE(3753)] = 28418,
-  [SMALL_STATE(3754)] = 28498,
-  [SMALL_STATE(3755)] = 28618,
-  [SMALL_STATE(3756)] = 28684,
-  [SMALL_STATE(3757)] = 28764,
-  [SMALL_STATE(3758)] = 28844,
-  [SMALL_STATE(3759)] = 28924,
-  [SMALL_STATE(3760)] = 29004,
-  [SMALL_STATE(3761)] = 29084,
-  [SMALL_STATE(3762)] = 29164,
-  [SMALL_STATE(3763)] = 29244,
-  [SMALL_STATE(3764)] = 29324,
-  [SMALL_STATE(3765)] = 29404,
-  [SMALL_STATE(3766)] = 29484,
-  [SMALL_STATE(3767)] = 29564,
-  [SMALL_STATE(3768)] = 29644,
-  [SMALL_STATE(3769)] = 29724,
-  [SMALL_STATE(3770)] = 29804,
-  [SMALL_STATE(3771)] = 29884,
-  [SMALL_STATE(3772)] = 29964,
-  [SMALL_STATE(3773)] = 30044,
-  [SMALL_STATE(3774)] = 30124,
-  [SMALL_STATE(3775)] = 30204,
-  [SMALL_STATE(3776)] = 30284,
-  [SMALL_STATE(3777)] = 30404,
-  [SMALL_STATE(3778)] = 30484,
-  [SMALL_STATE(3779)] = 30564,
-  [SMALL_STATE(3780)] = 30644,
-  [SMALL_STATE(3781)] = 30724,
-  [SMALL_STATE(3782)] = 30804,
-  [SMALL_STATE(3783)] = 30884,
-  [SMALL_STATE(3784)] = 31004,
-  [SMALL_STATE(3785)] = 31084,
-  [SMALL_STATE(3786)] = 31164,
-  [SMALL_STATE(3787)] = 31244,
-  [SMALL_STATE(3788)] = 31324,
-  [SMALL_STATE(3789)] = 31404,
-  [SMALL_STATE(3790)] = 31470,
-  [SMALL_STATE(3791)] = 31550,
-  [SMALL_STATE(3792)] = 31632,
-  [SMALL_STATE(3793)] = 31712,
-  [SMALL_STATE(3794)] = 31778,
-  [SMALL_STATE(3795)] = 31858,
-  [SMALL_STATE(3796)] = 31938,
-  [SMALL_STATE(3797)] = 32018,
-  [SMALL_STATE(3798)] = 32098,
-  [SMALL_STATE(3799)] = 32164,
-  [SMALL_STATE(3800)] = 32230,
-  [SMALL_STATE(3801)] = 32350,
-  [SMALL_STATE(3802)] = 32432,
-  [SMALL_STATE(3803)] = 32512,
-  [SMALL_STATE(3804)] = 32592,
-  [SMALL_STATE(3805)] = 32660,
-  [SMALL_STATE(3806)] = 32780,
-  [SMALL_STATE(3807)] = 32860,
-  [SMALL_STATE(3808)] = 32926,
-  [SMALL_STATE(3809)] = 33006,
-  [SMALL_STATE(3810)] = 33086,
-  [SMALL_STATE(3811)] = 33166,
-  [SMALL_STATE(3812)] = 33246,
-  [SMALL_STATE(3813)] = 33326,
-  [SMALL_STATE(3814)] = 33406,
-  [SMALL_STATE(3815)] = 33486,
+  [SMALL_STATE(3633)] = 18904,
+  [SMALL_STATE(3634)] = 18970,
+  [SMALL_STATE(3635)] = 19050,
+  [SMALL_STATE(3636)] = 19130,
+  [SMALL_STATE(3637)] = 19210,
+  [SMALL_STATE(3638)] = 19290,
+  [SMALL_STATE(3639)] = 19370,
+  [SMALL_STATE(3640)] = 19450,
+  [SMALL_STATE(3641)] = 19530,
+  [SMALL_STATE(3642)] = 19596,
+  [SMALL_STATE(3643)] = 19676,
+  [SMALL_STATE(3644)] = 19756,
+  [SMALL_STATE(3645)] = 19836,
+  [SMALL_STATE(3646)] = 19916,
+  [SMALL_STATE(3647)] = 19996,
+  [SMALL_STATE(3648)] = 20076,
+  [SMALL_STATE(3649)] = 20156,
+  [SMALL_STATE(3650)] = 20236,
+  [SMALL_STATE(3651)] = 20318,
+  [SMALL_STATE(3652)] = 20398,
+  [SMALL_STATE(3653)] = 20478,
+  [SMALL_STATE(3654)] = 20544,
+  [SMALL_STATE(3655)] = 20624,
+  [SMALL_STATE(3656)] = 20704,
+  [SMALL_STATE(3657)] = 20784,
+  [SMALL_STATE(3658)] = 20864,
+  [SMALL_STATE(3659)] = 20944,
+  [SMALL_STATE(3660)] = 21024,
+  [SMALL_STATE(3661)] = 21104,
+  [SMALL_STATE(3662)] = 21184,
+  [SMALL_STATE(3663)] = 21264,
+  [SMALL_STATE(3664)] = 21344,
+  [SMALL_STATE(3665)] = 21464,
+  [SMALL_STATE(3666)] = 21544,
+  [SMALL_STATE(3667)] = 21624,
+  [SMALL_STATE(3668)] = 21704,
+  [SMALL_STATE(3669)] = 21784,
+  [SMALL_STATE(3670)] = 21864,
+  [SMALL_STATE(3671)] = 21944,
+  [SMALL_STATE(3672)] = 22024,
+  [SMALL_STATE(3673)] = 22104,
+  [SMALL_STATE(3674)] = 22184,
+  [SMALL_STATE(3675)] = 22264,
+  [SMALL_STATE(3676)] = 22332,
+  [SMALL_STATE(3677)] = 22412,
+  [SMALL_STATE(3678)] = 22492,
+  [SMALL_STATE(3679)] = 22572,
+  [SMALL_STATE(3680)] = 22652,
+  [SMALL_STATE(3681)] = 22732,
+  [SMALL_STATE(3682)] = 22812,
+  [SMALL_STATE(3683)] = 22892,
+  [SMALL_STATE(3684)] = 22972,
+  [SMALL_STATE(3685)] = 23052,
+  [SMALL_STATE(3686)] = 23132,
+  [SMALL_STATE(3687)] = 23198,
+  [SMALL_STATE(3688)] = 23278,
+  [SMALL_STATE(3689)] = 23344,
+  [SMALL_STATE(3690)] = 23424,
+  [SMALL_STATE(3691)] = 23504,
+  [SMALL_STATE(3692)] = 23584,
+  [SMALL_STATE(3693)] = 23664,
+  [SMALL_STATE(3694)] = 23734,
+  [SMALL_STATE(3695)] = 23804,
+  [SMALL_STATE(3696)] = 23874,
+  [SMALL_STATE(3697)] = 23954,
+  [SMALL_STATE(3698)] = 24074,
+  [SMALL_STATE(3699)] = 24154,
+  [SMALL_STATE(3700)] = 24234,
+  [SMALL_STATE(3701)] = 24314,
+  [SMALL_STATE(3702)] = 24394,
+  [SMALL_STATE(3703)] = 24474,
+  [SMALL_STATE(3704)] = 24554,
+  [SMALL_STATE(3705)] = 24634,
+  [SMALL_STATE(3706)] = 24714,
+  [SMALL_STATE(3707)] = 24794,
+  [SMALL_STATE(3708)] = 24874,
+  [SMALL_STATE(3709)] = 24954,
+  [SMALL_STATE(3710)] = 25034,
+  [SMALL_STATE(3711)] = 25114,
+  [SMALL_STATE(3712)] = 25194,
+  [SMALL_STATE(3713)] = 25274,
+  [SMALL_STATE(3714)] = 25356,
+  [SMALL_STATE(3715)] = 25436,
+  [SMALL_STATE(3716)] = 25516,
+  [SMALL_STATE(3717)] = 25596,
+  [SMALL_STATE(3718)] = 25676,
+  [SMALL_STATE(3719)] = 25756,
+  [SMALL_STATE(3720)] = 25836,
+  [SMALL_STATE(3721)] = 25916,
+  [SMALL_STATE(3722)] = 25996,
+  [SMALL_STATE(3723)] = 26076,
+  [SMALL_STATE(3724)] = 26156,
+  [SMALL_STATE(3725)] = 26236,
+  [SMALL_STATE(3726)] = 26316,
+  [SMALL_STATE(3727)] = 26396,
+  [SMALL_STATE(3728)] = 26466,
+  [SMALL_STATE(3729)] = 26546,
+  [SMALL_STATE(3730)] = 26612,
+  [SMALL_STATE(3731)] = 26682,
+  [SMALL_STATE(3732)] = 26762,
+  [SMALL_STATE(3733)] = 26828,
+  [SMALL_STATE(3734)] = 26894,
+  [SMALL_STATE(3735)] = 26960,
+  [SMALL_STATE(3736)] = 27030,
+  [SMALL_STATE(3737)] = 27110,
+  [SMALL_STATE(3738)] = 27190,
+  [SMALL_STATE(3739)] = 27310,
+  [SMALL_STATE(3740)] = 27390,
+  [SMALL_STATE(3741)] = 27470,
+  [SMALL_STATE(3742)] = 27550,
+  [SMALL_STATE(3743)] = 27630,
+  [SMALL_STATE(3744)] = 27710,
+  [SMALL_STATE(3745)] = 27776,
+  [SMALL_STATE(3746)] = 27842,
+  [SMALL_STATE(3747)] = 27922,
+  [SMALL_STATE(3748)] = 28042,
+  [SMALL_STATE(3749)] = 28122,
+  [SMALL_STATE(3750)] = 28202,
+  [SMALL_STATE(3751)] = 28282,
+  [SMALL_STATE(3752)] = 28362,
+  [SMALL_STATE(3753)] = 28442,
+  [SMALL_STATE(3754)] = 28522,
+  [SMALL_STATE(3755)] = 28602,
+  [SMALL_STATE(3756)] = 28682,
+  [SMALL_STATE(3757)] = 28762,
+  [SMALL_STATE(3758)] = 28828,
+  [SMALL_STATE(3759)] = 28900,
+  [SMALL_STATE(3760)] = 28980,
+  [SMALL_STATE(3761)] = 29060,
+  [SMALL_STATE(3762)] = 29140,
+  [SMALL_STATE(3763)] = 29220,
+  [SMALL_STATE(3764)] = 29300,
+  [SMALL_STATE(3765)] = 29380,
+  [SMALL_STATE(3766)] = 29460,
+  [SMALL_STATE(3767)] = 29540,
+  [SMALL_STATE(3768)] = 29620,
+  [SMALL_STATE(3769)] = 29700,
+  [SMALL_STATE(3770)] = 29780,
+  [SMALL_STATE(3771)] = 29846,
+  [SMALL_STATE(3772)] = 29926,
+  [SMALL_STATE(3773)] = 29992,
+  [SMALL_STATE(3774)] = 30072,
+  [SMALL_STATE(3775)] = 30152,
+  [SMALL_STATE(3776)] = 30232,
+  [SMALL_STATE(3777)] = 30312,
+  [SMALL_STATE(3778)] = 30378,
+  [SMALL_STATE(3779)] = 30458,
+  [SMALL_STATE(3780)] = 30538,
+  [SMALL_STATE(3781)] = 30618,
+  [SMALL_STATE(3782)] = 30698,
+  [SMALL_STATE(3783)] = 30778,
+  [SMALL_STATE(3784)] = 30898,
+  [SMALL_STATE(3785)] = 30978,
+  [SMALL_STATE(3786)] = 31044,
+  [SMALL_STATE(3787)] = 31124,
+  [SMALL_STATE(3788)] = 31244,
+  [SMALL_STATE(3789)] = 31310,
+  [SMALL_STATE(3790)] = 31390,
+  [SMALL_STATE(3791)] = 31456,
+  [SMALL_STATE(3792)] = 31576,
+  [SMALL_STATE(3793)] = 31656,
+  [SMALL_STATE(3794)] = 31736,
+  [SMALL_STATE(3795)] = 31816,
+  [SMALL_STATE(3796)] = 31896,
+  [SMALL_STATE(3797)] = 31976,
+  [SMALL_STATE(3798)] = 32056,
+  [SMALL_STATE(3799)] = 32136,
+  [SMALL_STATE(3800)] = 32216,
+  [SMALL_STATE(3801)] = 32296,
+  [SMALL_STATE(3802)] = 32376,
+  [SMALL_STATE(3803)] = 32456,
+  [SMALL_STATE(3804)] = 32536,
+  [SMALL_STATE(3805)] = 32616,
+  [SMALL_STATE(3806)] = 32736,
+  [SMALL_STATE(3807)] = 32816,
+  [SMALL_STATE(3808)] = 32896,
+  [SMALL_STATE(3809)] = 32976,
+  [SMALL_STATE(3810)] = 33056,
+  [SMALL_STATE(3811)] = 33136,
+  [SMALL_STATE(3812)] = 33216,
+  [SMALL_STATE(3813)] = 33284,
+  [SMALL_STATE(3814)] = 33364,
+  [SMALL_STATE(3815)] = 33446,
   [SMALL_STATE(3816)] = 33566,
   [SMALL_STATE(3817)] = 33646,
-  [SMALL_STATE(3818)] = 33723,
-  [SMALL_STATE(3819)] = 33838,
-  [SMALL_STATE(3820)] = 33903,
-  [SMALL_STATE(3821)] = 34018,
-  [SMALL_STATE(3822)] = 34133,
-  [SMALL_STATE(3823)] = 34210,
-  [SMALL_STATE(3824)] = 34327,
-  [SMALL_STATE(3825)] = 34444,
-  [SMALL_STATE(3826)] = 34561,
-  [SMALL_STATE(3827)] = 34626,
-  [SMALL_STATE(3828)] = 34743,
-  [SMALL_STATE(3829)] = 34860,
-  [SMALL_STATE(3830)] = 34977,
-  [SMALL_STATE(3831)] = 35092,
-  [SMALL_STATE(3832)] = 35207,
-  [SMALL_STATE(3833)] = 35324,
-  [SMALL_STATE(3834)] = 35401,
-  [SMALL_STATE(3835)] = 35478,
-  [SMALL_STATE(3836)] = 35555,
-  [SMALL_STATE(3837)] = 35672,
-  [SMALL_STATE(3838)] = 35787,
-  [SMALL_STATE(3839)] = 35904,
-  [SMALL_STATE(3840)] = 36021,
-  [SMALL_STATE(3841)] = 36138,
-  [SMALL_STATE(3842)] = 36215,
-  [SMALL_STATE(3843)] = 36292,
-  [SMALL_STATE(3844)] = 36409,
-  [SMALL_STATE(3845)] = 36524,
-  [SMALL_STATE(3846)] = 36601,
-  [SMALL_STATE(3847)] = 36718,
-  [SMALL_STATE(3848)] = 36795,
-  [SMALL_STATE(3849)] = 36872,
-  [SMALL_STATE(3850)] = 36989,
-  [SMALL_STATE(3851)] = 37106,
-  [SMALL_STATE(3852)] = 37171,
-  [SMALL_STATE(3853)] = 37236,
-  [SMALL_STATE(3854)] = 37351,
-  [SMALL_STATE(3855)] = 37468,
-  [SMALL_STATE(3856)] = 37545,
-  [SMALL_STATE(3857)] = 37660,
-  [SMALL_STATE(3858)] = 37737,
-  [SMALL_STATE(3859)] = 37852,
-  [SMALL_STATE(3860)] = 37967,
-  [SMALL_STATE(3861)] = 38082,
-  [SMALL_STATE(3862)] = 38159,
-  [SMALL_STATE(3863)] = 38276,
-  [SMALL_STATE(3864)] = 38393,
-  [SMALL_STATE(3865)] = 38458,
-  [SMALL_STATE(3866)] = 38523,
-  [SMALL_STATE(3867)] = 38588,
-  [SMALL_STATE(3868)] = 38705,
-  [SMALL_STATE(3869)] = 38822,
-  [SMALL_STATE(3870)] = 38939,
-  [SMALL_STATE(3871)] = 39056,
-  [SMALL_STATE(3872)] = 39173,
-  [SMALL_STATE(3873)] = 39290,
-  [SMALL_STATE(3874)] = 39407,
-  [SMALL_STATE(3875)] = 39524,
-  [SMALL_STATE(3876)] = 39641,
-  [SMALL_STATE(3877)] = 39758,
-  [SMALL_STATE(3878)] = 39835,
-  [SMALL_STATE(3879)] = 39912,
-  [SMALL_STATE(3880)] = 39989,
-  [SMALL_STATE(3881)] = 40106,
-  [SMALL_STATE(3882)] = 40223,
-  [SMALL_STATE(3883)] = 40338,
-  [SMALL_STATE(3884)] = 40415,
-  [SMALL_STATE(3885)] = 40532,
-  [SMALL_STATE(3886)] = 40647,
-  [SMALL_STATE(3887)] = 40724,
-  [SMALL_STATE(3888)] = 40841,
-  [SMALL_STATE(3889)] = 40958,
-  [SMALL_STATE(3890)] = 41075,
-  [SMALL_STATE(3891)] = 41190,
-  [SMALL_STATE(3892)] = 41307,
-  [SMALL_STATE(3893)] = 41422,
-  [SMALL_STATE(3894)] = 41537,
-  [SMALL_STATE(3895)] = 41604,
-  [SMALL_STATE(3896)] = 41719,
-  [SMALL_STATE(3897)] = 41836,
-  [SMALL_STATE(3898)] = 41953,
-  [SMALL_STATE(3899)] = 42070,
-  [SMALL_STATE(3900)] = 42187,
-  [SMALL_STATE(3901)] = 42304,
-  [SMALL_STATE(3902)] = 42381,
-  [SMALL_STATE(3903)] = 42498,
-  [SMALL_STATE(3904)] = 42615,
-  [SMALL_STATE(3905)] = 42732,
-  [SMALL_STATE(3906)] = 42849,
-  [SMALL_STATE(3907)] = 42966,
-  [SMALL_STATE(3908)] = 43081,
-  [SMALL_STATE(3909)] = 43196,
-  [SMALL_STATE(3910)] = 43313,
-  [SMALL_STATE(3911)] = 43428,
-  [SMALL_STATE(3912)] = 43545,
-  [SMALL_STATE(3913)] = 43660,
-  [SMALL_STATE(3914)] = 43777,
-  [SMALL_STATE(3915)] = 43854,
-  [SMALL_STATE(3916)] = 43971,
-  [SMALL_STATE(3917)] = 44048,
-  [SMALL_STATE(3918)] = 44125,
-  [SMALL_STATE(3919)] = 44202,
-  [SMALL_STATE(3920)] = 44317,
-  [SMALL_STATE(3921)] = 44396,
-  [SMALL_STATE(3922)] = 44475,
-  [SMALL_STATE(3923)] = 44592,
-  [SMALL_STATE(3924)] = 44707,
-  [SMALL_STATE(3925)] = 44824,
-  [SMALL_STATE(3926)] = 44939,
-  [SMALL_STATE(3927)] = 45016,
-  [SMALL_STATE(3928)] = 45133,
-  [SMALL_STATE(3929)] = 45250,
-  [SMALL_STATE(3930)] = 45367,
-  [SMALL_STATE(3931)] = 45484,
-  [SMALL_STATE(3932)] = 45601,
-  [SMALL_STATE(3933)] = 45666,
-  [SMALL_STATE(3934)] = 45743,
-  [SMALL_STATE(3935)] = 45860,
-  [SMALL_STATE(3936)] = 45975,
-  [SMALL_STATE(3937)] = 46092,
-  [SMALL_STATE(3938)] = 46209,
-  [SMALL_STATE(3939)] = 46326,
-  [SMALL_STATE(3940)] = 46443,
-  [SMALL_STATE(3941)] = 46558,
-  [SMALL_STATE(3942)] = 46635,
-  [SMALL_STATE(3943)] = 46750,
-  [SMALL_STATE(3944)] = 46867,
+  [SMALL_STATE(3818)] = 33763,
+  [SMALL_STATE(3819)] = 33880,
+  [SMALL_STATE(3820)] = 33997,
+  [SMALL_STATE(3821)] = 34074,
+  [SMALL_STATE(3822)] = 34191,
+  [SMALL_STATE(3823)] = 34308,
+  [SMALL_STATE(3824)] = 34425,
+  [SMALL_STATE(3825)] = 34490,
+  [SMALL_STATE(3826)] = 34607,
+  [SMALL_STATE(3827)] = 34724,
+  [SMALL_STATE(3828)] = 34801,
+  [SMALL_STATE(3829)] = 34918,
+  [SMALL_STATE(3830)] = 34995,
+  [SMALL_STATE(3831)] = 35072,
+  [SMALL_STATE(3832)] = 35189,
+  [SMALL_STATE(3833)] = 35306,
+  [SMALL_STATE(3834)] = 35385,
+  [SMALL_STATE(3835)] = 35462,
+  [SMALL_STATE(3836)] = 35579,
+  [SMALL_STATE(3837)] = 35696,
+  [SMALL_STATE(3838)] = 35813,
+  [SMALL_STATE(3839)] = 35930,
+  [SMALL_STATE(3840)] = 36007,
+  [SMALL_STATE(3841)] = 36122,
+  [SMALL_STATE(3842)] = 36237,
+  [SMALL_STATE(3843)] = 36354,
+  [SMALL_STATE(3844)] = 36471,
+  [SMALL_STATE(3845)] = 36548,
+  [SMALL_STATE(3846)] = 36663,
+  [SMALL_STATE(3847)] = 36740,
+  [SMALL_STATE(3848)] = 36817,
+  [SMALL_STATE(3849)] = 36932,
+  [SMALL_STATE(3850)] = 37047,
+  [SMALL_STATE(3851)] = 37164,
+  [SMALL_STATE(3852)] = 37281,
+  [SMALL_STATE(3853)] = 37398,
+  [SMALL_STATE(3854)] = 37515,
+  [SMALL_STATE(3855)] = 37592,
+  [SMALL_STATE(3856)] = 37669,
+  [SMALL_STATE(3857)] = 37786,
+  [SMALL_STATE(3858)] = 37863,
+  [SMALL_STATE(3859)] = 37980,
+  [SMALL_STATE(3860)] = 38097,
+  [SMALL_STATE(3861)] = 38214,
+  [SMALL_STATE(3862)] = 38331,
+  [SMALL_STATE(3863)] = 38448,
+  [SMALL_STATE(3864)] = 38565,
+  [SMALL_STATE(3865)] = 38642,
+  [SMALL_STATE(3866)] = 38759,
+  [SMALL_STATE(3867)] = 38874,
+  [SMALL_STATE(3868)] = 38951,
+  [SMALL_STATE(3869)] = 39068,
+  [SMALL_STATE(3870)] = 39185,
+  [SMALL_STATE(3871)] = 39300,
+  [SMALL_STATE(3872)] = 39365,
+  [SMALL_STATE(3873)] = 39480,
+  [SMALL_STATE(3874)] = 39597,
+  [SMALL_STATE(3875)] = 39714,
+  [SMALL_STATE(3876)] = 39831,
+  [SMALL_STATE(3877)] = 39948,
+  [SMALL_STATE(3878)] = 40065,
+  [SMALL_STATE(3879)] = 40142,
+  [SMALL_STATE(3880)] = 40219,
+  [SMALL_STATE(3881)] = 40334,
+  [SMALL_STATE(3882)] = 40449,
+  [SMALL_STATE(3883)] = 40528,
+  [SMALL_STATE(3884)] = 40593,
+  [SMALL_STATE(3885)] = 40710,
+  [SMALL_STATE(3886)] = 40827,
+  [SMALL_STATE(3887)] = 40904,
+  [SMALL_STATE(3888)] = 40969,
+  [SMALL_STATE(3889)] = 41084,
+  [SMALL_STATE(3890)] = 41201,
+  [SMALL_STATE(3891)] = 41278,
+  [SMALL_STATE(3892)] = 41395,
+  [SMALL_STATE(3893)] = 41510,
+  [SMALL_STATE(3894)] = 41587,
+  [SMALL_STATE(3895)] = 41704,
+  [SMALL_STATE(3896)] = 41781,
+  [SMALL_STATE(3897)] = 41898,
+  [SMALL_STATE(3898)] = 42013,
+  [SMALL_STATE(3899)] = 42130,
+  [SMALL_STATE(3900)] = 42207,
+  [SMALL_STATE(3901)] = 42324,
+  [SMALL_STATE(3902)] = 42439,
+  [SMALL_STATE(3903)] = 42516,
+  [SMALL_STATE(3904)] = 42633,
+  [SMALL_STATE(3905)] = 42748,
+  [SMALL_STATE(3906)] = 42863,
+  [SMALL_STATE(3907)] = 42980,
+  [SMALL_STATE(3908)] = 43097,
+  [SMALL_STATE(3909)] = 43214,
+  [SMALL_STATE(3910)] = 43329,
+  [SMALL_STATE(3911)] = 43444,
+  [SMALL_STATE(3912)] = 43561,
+  [SMALL_STATE(3913)] = 43626,
+  [SMALL_STATE(3914)] = 43703,
+  [SMALL_STATE(3915)] = 43768,
+  [SMALL_STATE(3916)] = 43885,
+  [SMALL_STATE(3917)] = 44000,
+  [SMALL_STATE(3918)] = 44117,
+  [SMALL_STATE(3919)] = 44232,
+  [SMALL_STATE(3920)] = 44347,
+  [SMALL_STATE(3921)] = 44464,
+  [SMALL_STATE(3922)] = 44541,
+  [SMALL_STATE(3923)] = 44618,
+  [SMALL_STATE(3924)] = 44735,
+  [SMALL_STATE(3925)] = 44850,
+  [SMALL_STATE(3926)] = 44967,
+  [SMALL_STATE(3927)] = 45082,
+  [SMALL_STATE(3928)] = 45199,
+  [SMALL_STATE(3929)] = 45264,
+  [SMALL_STATE(3930)] = 45381,
+  [SMALL_STATE(3931)] = 45458,
+  [SMALL_STATE(3932)] = 45575,
+  [SMALL_STATE(3933)] = 45692,
+  [SMALL_STATE(3934)] = 45809,
+  [SMALL_STATE(3935)] = 45924,
+  [SMALL_STATE(3936)] = 46039,
+  [SMALL_STATE(3937)] = 46154,
+  [SMALL_STATE(3938)] = 46271,
+  [SMALL_STATE(3939)] = 46348,
+  [SMALL_STATE(3940)] = 46463,
+  [SMALL_STATE(3941)] = 46580,
+  [SMALL_STATE(3942)] = 46645,
+  [SMALL_STATE(3943)] = 46760,
+  [SMALL_STATE(3944)] = 46827,
   [SMALL_STATE(3945)] = 46944,
   [SMALL_STATE(3946)] = 47061,
   [SMALL_STATE(3947)] = 47125,
-  [SMALL_STATE(3948)] = 47191,
-  [SMALL_STATE(3949)] = 47301,
-  [SMALL_STATE(3950)] = 47377,
-  [SMALL_STATE(3951)] = 47453,
-  [SMALL_STATE(3952)] = 47529,
-  [SMALL_STATE(3953)] = 47639,
-  [SMALL_STATE(3954)] = 47707,
-  [SMALL_STATE(3955)] = 47775,
-  [SMALL_STATE(3956)] = 47843,
-  [SMALL_STATE(3957)] = 47911,
-  [SMALL_STATE(3958)] = 47987,
+  [SMALL_STATE(3948)] = 47201,
+  [SMALL_STATE(3949)] = 47265,
+  [SMALL_STATE(3950)] = 47375,
+  [SMALL_STATE(3951)] = 47451,
+  [SMALL_STATE(3952)] = 47527,
+  [SMALL_STATE(3953)] = 47595,
+  [SMALL_STATE(3954)] = 47663,
+  [SMALL_STATE(3955)] = 47731,
+  [SMALL_STATE(3956)] = 47841,
+  [SMALL_STATE(3957)] = 47917,
+  [SMALL_STATE(3958)] = 47985,
   [SMALL_STATE(3959)] = 48051,
-  [SMALL_STATE(3960)] = 48115,
-  [SMALL_STATE(3961)] = 48179,
-  [SMALL_STATE(3962)] = 48255,
-  [SMALL_STATE(3963)] = 48323,
-  [SMALL_STATE(3964)] = 48391,
-  [SMALL_STATE(3965)] = 48503,
-  [SMALL_STATE(3966)] = 48579,
-  [SMALL_STATE(3967)] = 48689,
-  [SMALL_STATE(3968)] = 48765,
-  [SMALL_STATE(3969)] = 48829,
+  [SMALL_STATE(3960)] = 48119,
+  [SMALL_STATE(3961)] = 48229,
+  [SMALL_STATE(3962)] = 48293,
+  [SMALL_STATE(3963)] = 48405,
+  [SMALL_STATE(3964)] = 48473,
+  [SMALL_STATE(3965)] = 48549,
+  [SMALL_STATE(3966)] = 48625,
+  [SMALL_STATE(3967)] = 48701,
+  [SMALL_STATE(3968)] = 48769,
+  [SMALL_STATE(3969)] = 48837,
   [SMALL_STATE(3970)] = 48905,
-  [SMALL_STATE(3971)] = 48973,
-  [SMALL_STATE(3972)] = 49041,
-  [SMALL_STATE(3973)] = 49117,
+  [SMALL_STATE(3971)] = 48969,
+  [SMALL_STATE(3972)] = 49045,
+  [SMALL_STATE(3973)] = 49121,
   [SMALL_STATE(3974)] = 49185,
   [SMALL_STATE(3975)] = 49249,
-  [SMALL_STATE(3976)] = 49312,
-  [SMALL_STATE(3977)] = 49375,
+  [SMALL_STATE(3976)] = 49322,
+  [SMALL_STATE(3977)] = 49385,
   [SMALL_STATE(3978)] = 49448,
-  [SMALL_STATE(3979)] = 49521,
-  [SMALL_STATE(3980)] = 49594,
-  [SMALL_STATE(3981)] = 49667,
-  [SMALL_STATE(3982)] = 49740,
-  [SMALL_STATE(3983)] = 49813,
-  [SMALL_STATE(3984)] = 49876,
-  [SMALL_STATE(3985)] = 49939,
-  [SMALL_STATE(3986)] = 50002,
-  [SMALL_STATE(3987)] = 50065,
-  [SMALL_STATE(3988)] = 50128,
-  [SMALL_STATE(3989)] = 50191,
-  [SMALL_STATE(3990)] = 50264,
+  [SMALL_STATE(3979)] = 49511,
+  [SMALL_STATE(3980)] = 49574,
+  [SMALL_STATE(3981)] = 49637,
+  [SMALL_STATE(3982)] = 49700,
+  [SMALL_STATE(3983)] = 49773,
+  [SMALL_STATE(3984)] = 49836,
+  [SMALL_STATE(3985)] = 49899,
+  [SMALL_STATE(3986)] = 49972,
+  [SMALL_STATE(3987)] = 50045,
+  [SMALL_STATE(3988)] = 50118,
+  [SMALL_STATE(3989)] = 50181,
+  [SMALL_STATE(3990)] = 50254,
   [SMALL_STATE(3991)] = 50327,
   [SMALL_STATE(3992)] = 50390,
   [SMALL_STATE(3993)] = 50453,
-  [SMALL_STATE(3994)] = 50516,
-  [SMALL_STATE(3995)] = 50579,
-  [SMALL_STATE(3996)] = 50642,
-  [SMALL_STATE(3997)] = 50715,
-  [SMALL_STATE(3998)] = 50778,
-  [SMALL_STATE(3999)] = 50841,
-  [SMALL_STATE(4000)] = 50904,
-  [SMALL_STATE(4001)] = 50967,
-  [SMALL_STATE(4002)] = 51030,
-  [SMALL_STATE(4003)] = 51103,
-  [SMALL_STATE(4004)] = 51176,
-  [SMALL_STATE(4005)] = 51249,
-  [SMALL_STATE(4006)] = 51312,
-  [SMALL_STATE(4007)] = 51375,
-  [SMALL_STATE(4008)] = 51448,
-  [SMALL_STATE(4009)] = 51511,
-  [SMALL_STATE(4010)] = 51584,
-  [SMALL_STATE(4011)] = 51647,
-  [SMALL_STATE(4012)] = 51720,
-  [SMALL_STATE(4013)] = 51793,
-  [SMALL_STATE(4014)] = 51856,
-  [SMALL_STATE(4015)] = 51919,
-  [SMALL_STATE(4016)] = 51992,
-  [SMALL_STATE(4017)] = 52065,
-  [SMALL_STATE(4018)] = 52138,
-  [SMALL_STATE(4019)] = 52211,
-  [SMALL_STATE(4020)] = 52274,
-  [SMALL_STATE(4021)] = 52337,
-  [SMALL_STATE(4022)] = 52400,
-  [SMALL_STATE(4023)] = 52473,
-  [SMALL_STATE(4024)] = 52546,
-  [SMALL_STATE(4025)] = 52619,
-  [SMALL_STATE(4026)] = 52682,
-  [SMALL_STATE(4027)] = 52755,
-  [SMALL_STATE(4028)] = 52818,
-  [SMALL_STATE(4029)] = 52881,
-  [SMALL_STATE(4030)] = 52954,
-  [SMALL_STATE(4031)] = 53017,
-  [SMALL_STATE(4032)] = 53090,
-  [SMALL_STATE(4033)] = 53155,
-  [SMALL_STATE(4034)] = 53228,
-  [SMALL_STATE(4035)] = 53301,
-  [SMALL_STATE(4036)] = 53374,
-  [SMALL_STATE(4037)] = 53447,
-  [SMALL_STATE(4038)] = 53520,
-  [SMALL_STATE(4039)] = 53593,
-  [SMALL_STATE(4040)] = 53656,
-  [SMALL_STATE(4041)] = 53719,
-  [SMALL_STATE(4042)] = 53792,
-  [SMALL_STATE(4043)] = 53855,
-  [SMALL_STATE(4044)] = 53918,
-  [SMALL_STATE(4045)] = 53981,
-  [SMALL_STATE(4046)] = 54054,
-  [SMALL_STATE(4047)] = 54127,
-  [SMALL_STATE(4048)] = 54200,
-  [SMALL_STATE(4049)] = 54263,
-  [SMALL_STATE(4050)] = 54336,
-  [SMALL_STATE(4051)] = 54399,
-  [SMALL_STATE(4052)] = 54472,
-  [SMALL_STATE(4053)] = 54535,
-  [SMALL_STATE(4054)] = 54598,
-  [SMALL_STATE(4055)] = 54671,
-  [SMALL_STATE(4056)] = 54734,
-  [SMALL_STATE(4057)] = 54797,
-  [SMALL_STATE(4058)] = 54870,
-  [SMALL_STATE(4059)] = 54933,
-  [SMALL_STATE(4060)] = 55006,
-  [SMALL_STATE(4061)] = 55071,
-  [SMALL_STATE(4062)] = 55144,
-  [SMALL_STATE(4063)] = 55207,
-  [SMALL_STATE(4064)] = 55280,
-  [SMALL_STATE(4065)] = 55353,
-  [SMALL_STATE(4066)] = 55426,
-  [SMALL_STATE(4067)] = 55499,
-  [SMALL_STATE(4068)] = 55572,
-  [SMALL_STATE(4069)] = 55635,
-  [SMALL_STATE(4070)] = 55708,
+  [SMALL_STATE(3994)] = 50526,
+  [SMALL_STATE(3995)] = 50589,
+  [SMALL_STATE(3996)] = 50662,
+  [SMALL_STATE(3997)] = 50725,
+  [SMALL_STATE(3998)] = 50798,
+  [SMALL_STATE(3999)] = 50871,
+  [SMALL_STATE(4000)] = 50934,
+  [SMALL_STATE(4001)] = 51007,
+  [SMALL_STATE(4002)] = 51072,
+  [SMALL_STATE(4003)] = 51145,
+  [SMALL_STATE(4004)] = 51208,
+  [SMALL_STATE(4005)] = 51271,
+  [SMALL_STATE(4006)] = 51344,
+  [SMALL_STATE(4007)] = 51417,
+  [SMALL_STATE(4008)] = 51490,
+  [SMALL_STATE(4009)] = 51553,
+  [SMALL_STATE(4010)] = 51616,
+  [SMALL_STATE(4011)] = 51689,
+  [SMALL_STATE(4012)] = 51752,
+  [SMALL_STATE(4013)] = 51815,
+  [SMALL_STATE(4014)] = 51878,
+  [SMALL_STATE(4015)] = 51951,
+  [SMALL_STATE(4016)] = 52014,
+  [SMALL_STATE(4017)] = 52087,
+  [SMALL_STATE(4018)] = 52150,
+  [SMALL_STATE(4019)] = 52223,
+  [SMALL_STATE(4020)] = 52296,
+  [SMALL_STATE(4021)] = 52369,
+  [SMALL_STATE(4022)] = 52442,
+  [SMALL_STATE(4023)] = 52515,
+  [SMALL_STATE(4024)] = 52588,
+  [SMALL_STATE(4025)] = 52661,
+  [SMALL_STATE(4026)] = 52734,
+  [SMALL_STATE(4027)] = 52797,
+  [SMALL_STATE(4028)] = 52860,
+  [SMALL_STATE(4029)] = 52933,
+  [SMALL_STATE(4030)] = 52996,
+  [SMALL_STATE(4031)] = 53069,
+  [SMALL_STATE(4032)] = 53132,
+  [SMALL_STATE(4033)] = 53205,
+  [SMALL_STATE(4034)] = 53278,
+  [SMALL_STATE(4035)] = 53351,
+  [SMALL_STATE(4036)] = 53424,
+  [SMALL_STATE(4037)] = 53487,
+  [SMALL_STATE(4038)] = 53560,
+  [SMALL_STATE(4039)] = 53623,
+  [SMALL_STATE(4040)] = 53686,
+  [SMALL_STATE(4041)] = 53759,
+  [SMALL_STATE(4042)] = 53822,
+  [SMALL_STATE(4043)] = 53885,
+  [SMALL_STATE(4044)] = 53948,
+  [SMALL_STATE(4045)] = 54021,
+  [SMALL_STATE(4046)] = 54084,
+  [SMALL_STATE(4047)] = 54157,
+  [SMALL_STATE(4048)] = 54220,
+  [SMALL_STATE(4049)] = 54293,
+  [SMALL_STATE(4050)] = 54366,
+  [SMALL_STATE(4051)] = 54429,
+  [SMALL_STATE(4052)] = 54492,
+  [SMALL_STATE(4053)] = 54565,
+  [SMALL_STATE(4054)] = 54628,
+  [SMALL_STATE(4055)] = 54701,
+  [SMALL_STATE(4056)] = 54766,
+  [SMALL_STATE(4057)] = 54839,
+  [SMALL_STATE(4058)] = 54902,
+  [SMALL_STATE(4059)] = 54965,
+  [SMALL_STATE(4060)] = 55028,
+  [SMALL_STATE(4061)] = 55091,
+  [SMALL_STATE(4062)] = 55164,
+  [SMALL_STATE(4063)] = 55237,
+  [SMALL_STATE(4064)] = 55300,
+  [SMALL_STATE(4065)] = 55373,
+  [SMALL_STATE(4066)] = 55436,
+  [SMALL_STATE(4067)] = 55509,
+  [SMALL_STATE(4068)] = 55582,
+  [SMALL_STATE(4069)] = 55645,
+  [SMALL_STATE(4070)] = 55718,
   [SMALL_STATE(4071)] = 55781,
   [SMALL_STATE(4072)] = 55844,
   [SMALL_STATE(4073)] = 55907,
@@ -631939,122 +631769,122 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(4098)] = 57650,
   [SMALL_STATE(4099)] = 57720,
   [SMALL_STATE(4100)] = 57790,
-  [SMALL_STATE(4101)] = 57852,
-  [SMALL_STATE(4102)] = 57922,
-  [SMALL_STATE(4103)] = 57992,
-  [SMALL_STATE(4104)] = 58062,
-  [SMALL_STATE(4105)] = 58124,
-  [SMALL_STATE(4106)] = 58186,
-  [SMALL_STATE(4107)] = 58248,
-  [SMALL_STATE(4108)] = 58310,
-  [SMALL_STATE(4109)] = 58380,
-  [SMALL_STATE(4110)] = 58450,
-  [SMALL_STATE(4111)] = 58520,
-  [SMALL_STATE(4112)] = 58590,
-  [SMALL_STATE(4113)] = 58660,
-  [SMALL_STATE(4114)] = 58730,
-  [SMALL_STATE(4115)] = 58800,
-  [SMALL_STATE(4116)] = 58870,
-  [SMALL_STATE(4117)] = 58940,
-  [SMALL_STATE(4118)] = 59010,
-  [SMALL_STATE(4119)] = 59080,
-  [SMALL_STATE(4120)] = 59150,
-  [SMALL_STATE(4121)] = 59220,
-  [SMALL_STATE(4122)] = 59290,
-  [SMALL_STATE(4123)] = 59360,
-  [SMALL_STATE(4124)] = 59430,
-  [SMALL_STATE(4125)] = 59500,
-  [SMALL_STATE(4126)] = 59570,
-  [SMALL_STATE(4127)] = 59640,
-  [SMALL_STATE(4128)] = 59710,
-  [SMALL_STATE(4129)] = 59780,
-  [SMALL_STATE(4130)] = 59850,
-  [SMALL_STATE(4131)] = 59920,
-  [SMALL_STATE(4132)] = 59990,
-  [SMALL_STATE(4133)] = 60060,
-  [SMALL_STATE(4134)] = 60130,
-  [SMALL_STATE(4135)] = 60200,
-  [SMALL_STATE(4136)] = 60270,
-  [SMALL_STATE(4137)] = 60340,
-  [SMALL_STATE(4138)] = 60410,
-  [SMALL_STATE(4139)] = 60480,
-  [SMALL_STATE(4140)] = 60550,
-  [SMALL_STATE(4141)] = 60620,
-  [SMALL_STATE(4142)] = 60690,
-  [SMALL_STATE(4143)] = 60760,
-  [SMALL_STATE(4144)] = 60830,
-  [SMALL_STATE(4145)] = 60900,
-  [SMALL_STATE(4146)] = 61006,
-  [SMALL_STATE(4147)] = 61112,
-  [SMALL_STATE(4148)] = 61218,
-  [SMALL_STATE(4149)] = 61288,
-  [SMALL_STATE(4150)] = 61358,
-  [SMALL_STATE(4151)] = 61428,
-  [SMALL_STATE(4152)] = 61498,
-  [SMALL_STATE(4153)] = 61568,
-  [SMALL_STATE(4154)] = 61638,
-  [SMALL_STATE(4155)] = 61708,
-  [SMALL_STATE(4156)] = 61778,
-  [SMALL_STATE(4157)] = 61848,
-  [SMALL_STATE(4158)] = 61918,
-  [SMALL_STATE(4159)] = 61988,
-  [SMALL_STATE(4160)] = 62058,
-  [SMALL_STATE(4161)] = 62128,
-  [SMALL_STATE(4162)] = 62198,
-  [SMALL_STATE(4163)] = 62268,
-  [SMALL_STATE(4164)] = 62338,
-  [SMALL_STATE(4165)] = 62408,
-  [SMALL_STATE(4166)] = 62478,
-  [SMALL_STATE(4167)] = 62548,
-  [SMALL_STATE(4168)] = 62618,
-  [SMALL_STATE(4169)] = 62688,
-  [SMALL_STATE(4170)] = 62758,
-  [SMALL_STATE(4171)] = 62828,
-  [SMALL_STATE(4172)] = 62898,
-  [SMALL_STATE(4173)] = 62968,
-  [SMALL_STATE(4174)] = 63038,
-  [SMALL_STATE(4175)] = 63108,
-  [SMALL_STATE(4176)] = 63178,
-  [SMALL_STATE(4177)] = 63248,
-  [SMALL_STATE(4178)] = 63318,
-  [SMALL_STATE(4179)] = 63388,
-  [SMALL_STATE(4180)] = 63458,
-  [SMALL_STATE(4181)] = 63528,
-  [SMALL_STATE(4182)] = 63598,
-  [SMALL_STATE(4183)] = 63668,
-  [SMALL_STATE(4184)] = 63738,
-  [SMALL_STATE(4185)] = 63808,
-  [SMALL_STATE(4186)] = 63878,
-  [SMALL_STATE(4187)] = 63948,
-  [SMALL_STATE(4188)] = 64018,
-  [SMALL_STATE(4189)] = 64088,
-  [SMALL_STATE(4190)] = 64158,
-  [SMALL_STATE(4191)] = 64228,
-  [SMALL_STATE(4192)] = 64298,
-  [SMALL_STATE(4193)] = 64368,
-  [SMALL_STATE(4194)] = 64438,
-  [SMALL_STATE(4195)] = 64508,
-  [SMALL_STATE(4196)] = 64578,
-  [SMALL_STATE(4197)] = 64648,
-  [SMALL_STATE(4198)] = 64718,
-  [SMALL_STATE(4199)] = 64788,
-  [SMALL_STATE(4200)] = 64858,
-  [SMALL_STATE(4201)] = 64928,
-  [SMALL_STATE(4202)] = 64998,
-  [SMALL_STATE(4203)] = 65068,
-  [SMALL_STATE(4204)] = 65138,
-  [SMALL_STATE(4205)] = 65208,
-  [SMALL_STATE(4206)] = 65278,
-  [SMALL_STATE(4207)] = 65348,
-  [SMALL_STATE(4208)] = 65418,
-  [SMALL_STATE(4209)] = 65488,
-  [SMALL_STATE(4210)] = 65558,
-  [SMALL_STATE(4211)] = 65628,
-  [SMALL_STATE(4212)] = 65698,
-  [SMALL_STATE(4213)] = 65768,
-  [SMALL_STATE(4214)] = 65838,
-  [SMALL_STATE(4215)] = 65908,
-  [SMALL_STATE(4216)] = 65978,
+  [SMALL_STATE(4101)] = 57860,
+  [SMALL_STATE(4102)] = 57930,
+  [SMALL_STATE(4103)] = 58000,
+  [SMALL_STATE(4104)] = 58070,
+  [SMALL_STATE(4105)] = 58140,
+  [SMALL_STATE(4106)] = 58210,
+  [SMALL_STATE(4107)] = 58280,
+  [SMALL_STATE(4108)] = 58350,
+  [SMALL_STATE(4109)] = 58420,
+  [SMALL_STATE(4110)] = 58490,
+  [SMALL_STATE(4111)] = 58560,
+  [SMALL_STATE(4112)] = 58630,
+  [SMALL_STATE(4113)] = 58700,
+  [SMALL_STATE(4114)] = 58770,
+  [SMALL_STATE(4115)] = 58840,
+  [SMALL_STATE(4116)] = 58910,
+  [SMALL_STATE(4117)] = 58980,
+  [SMALL_STATE(4118)] = 59050,
+  [SMALL_STATE(4119)] = 59120,
+  [SMALL_STATE(4120)] = 59190,
+  [SMALL_STATE(4121)] = 59260,
+  [SMALL_STATE(4122)] = 59330,
+  [SMALL_STATE(4123)] = 59400,
+  [SMALL_STATE(4124)] = 59470,
+  [SMALL_STATE(4125)] = 59540,
+  [SMALL_STATE(4126)] = 59610,
+  [SMALL_STATE(4127)] = 59680,
+  [SMALL_STATE(4128)] = 59750,
+  [SMALL_STATE(4129)] = 59820,
+  [SMALL_STATE(4130)] = 59890,
+  [SMALL_STATE(4131)] = 59960,
+  [SMALL_STATE(4132)] = 60030,
+  [SMALL_STATE(4133)] = 60100,
+  [SMALL_STATE(4134)] = 60170,
+  [SMALL_STATE(4135)] = 60240,
+  [SMALL_STATE(4136)] = 60310,
+  [SMALL_STATE(4137)] = 60380,
+  [SMALL_STATE(4138)] = 60450,
+  [SMALL_STATE(4139)] = 60520,
+  [SMALL_STATE(4140)] = 60590,
+  [SMALL_STATE(4141)] = 60660,
+  [SMALL_STATE(4142)] = 60730,
+  [SMALL_STATE(4143)] = 60800,
+  [SMALL_STATE(4144)] = 60870,
+  [SMALL_STATE(4145)] = 60940,
+  [SMALL_STATE(4146)] = 61010,
+  [SMALL_STATE(4147)] = 61080,
+  [SMALL_STATE(4148)] = 61150,
+  [SMALL_STATE(4149)] = 61220,
+  [SMALL_STATE(4150)] = 61290,
+  [SMALL_STATE(4151)] = 61360,
+  [SMALL_STATE(4152)] = 61430,
+  [SMALL_STATE(4153)] = 61500,
+  [SMALL_STATE(4154)] = 61570,
+  [SMALL_STATE(4155)] = 61640,
+  [SMALL_STATE(4156)] = 61710,
+  [SMALL_STATE(4157)] = 61780,
+  [SMALL_STATE(4158)] = 61850,
+  [SMALL_STATE(4159)] = 61920,
+  [SMALL_STATE(4160)] = 61990,
+  [SMALL_STATE(4161)] = 62060,
+  [SMALL_STATE(4162)] = 62130,
+  [SMALL_STATE(4163)] = 62200,
+  [SMALL_STATE(4164)] = 62270,
+  [SMALL_STATE(4165)] = 62340,
+  [SMALL_STATE(4166)] = 62402,
+  [SMALL_STATE(4167)] = 62472,
+  [SMALL_STATE(4168)] = 62542,
+  [SMALL_STATE(4169)] = 62612,
+  [SMALL_STATE(4170)] = 62682,
+  [SMALL_STATE(4171)] = 62752,
+  [SMALL_STATE(4172)] = 62822,
+  [SMALL_STATE(4173)] = 62892,
+  [SMALL_STATE(4174)] = 62962,
+  [SMALL_STATE(4175)] = 63032,
+  [SMALL_STATE(4176)] = 63102,
+  [SMALL_STATE(4177)] = 63172,
+  [SMALL_STATE(4178)] = 63242,
+  [SMALL_STATE(4179)] = 63312,
+  [SMALL_STATE(4180)] = 63382,
+  [SMALL_STATE(4181)] = 63452,
+  [SMALL_STATE(4182)] = 63522,
+  [SMALL_STATE(4183)] = 63592,
+  [SMALL_STATE(4184)] = 63654,
+  [SMALL_STATE(4185)] = 63724,
+  [SMALL_STATE(4186)] = 63794,
+  [SMALL_STATE(4187)] = 63864,
+  [SMALL_STATE(4188)] = 63934,
+  [SMALL_STATE(4189)] = 64004,
+  [SMALL_STATE(4190)] = 64074,
+  [SMALL_STATE(4191)] = 64144,
+  [SMALL_STATE(4192)] = 64214,
+  [SMALL_STATE(4193)] = 64284,
+  [SMALL_STATE(4194)] = 64390,
+  [SMALL_STATE(4195)] = 64452,
+  [SMALL_STATE(4196)] = 64522,
+  [SMALL_STATE(4197)] = 64592,
+  [SMALL_STATE(4198)] = 64654,
+  [SMALL_STATE(4199)] = 64760,
+  [SMALL_STATE(4200)] = 64830,
+  [SMALL_STATE(4201)] = 64900,
+  [SMALL_STATE(4202)] = 64970,
+  [SMALL_STATE(4203)] = 65040,
+  [SMALL_STATE(4204)] = 65110,
+  [SMALL_STATE(4205)] = 65180,
+  [SMALL_STATE(4206)] = 65250,
+  [SMALL_STATE(4207)] = 65320,
+  [SMALL_STATE(4208)] = 65390,
+  [SMALL_STATE(4209)] = 65496,
+  [SMALL_STATE(4210)] = 65566,
+  [SMALL_STATE(4211)] = 65636,
+  [SMALL_STATE(4212)] = 65706,
+  [SMALL_STATE(4213)] = 65776,
+  [SMALL_STATE(4214)] = 65846,
+  [SMALL_STATE(4215)] = 65916,
+  [SMALL_STATE(4216)] = 65986,
   [SMALL_STATE(4217)] = 66048,
   [SMALL_STATE(4218)] = 66118,
   [SMALL_STATE(4219)] = 66188,
@@ -632069,41 +631899,41 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(4228)] = 66818,
   [SMALL_STATE(4229)] = 66888,
   [SMALL_STATE(4230)] = 66958,
-  [SMALL_STATE(4231)] = 67045,
-  [SMALL_STATE(4232)] = 67130,
-  [SMALL_STATE(4233)] = 67219,
-  [SMALL_STATE(4234)] = 67300,
-  [SMALL_STATE(4235)] = 67373,
-  [SMALL_STATE(4236)] = 67464,
-  [SMALL_STATE(4237)] = 67557,
-  [SMALL_STATE(4238)] = 67654,
-  [SMALL_STATE(4239)] = 67725,
-  [SMALL_STATE(4240)] = 67810,
-  [SMALL_STATE(4241)] = 67887,
-  [SMALL_STATE(4242)] = 67962,
-  [SMALL_STATE(4243)] = 68043,
+  [SMALL_STATE(4231)] = 67043,
+  [SMALL_STATE(4232)] = 67140,
+  [SMALL_STATE(4233)] = 67233,
+  [SMALL_STATE(4234)] = 67318,
+  [SMALL_STATE(4235)] = 67391,
+  [SMALL_STATE(4236)] = 67472,
+  [SMALL_STATE(4237)] = 67543,
+  [SMALL_STATE(4238)] = 67632,
+  [SMALL_STATE(4239)] = 67729,
+  [SMALL_STATE(4240)] = 67816,
+  [SMALL_STATE(4241)] = 67893,
+  [SMALL_STATE(4242)] = 67984,
+  [SMALL_STATE(4243)] = 68059,
   [SMALL_STATE(4244)] = 68140,
   [SMALL_STATE(4245)] = 68200,
-  [SMALL_STATE(4246)] = 68306,
-  [SMALL_STATE(4247)] = 68412,
+  [SMALL_STATE(4246)] = 68260,
+  [SMALL_STATE(4247)] = 68366,
   [SMALL_STATE(4248)] = 68472,
-  [SMALL_STATE(4249)] = 68532,
+  [SMALL_STATE(4249)] = 68578,
   [SMALL_STATE(4250)] = 68638,
   [SMALL_STATE(4251)] = 68743,
-  [SMALL_STATE(4252)] = 68848,
-  [SMALL_STATE(4253)] = 68953,
-  [SMALL_STATE(4254)] = 69058,
-  [SMALL_STATE(4255)] = 69163,
-  [SMALL_STATE(4256)] = 69268,
-  [SMALL_STATE(4257)] = 69373,
-  [SMALL_STATE(4258)] = 69478,
-  [SMALL_STATE(4259)] = 69583,
-  [SMALL_STATE(4260)] = 69646,
-  [SMALL_STATE(4261)] = 69751,
-  [SMALL_STATE(4262)] = 69856,
-  [SMALL_STATE(4263)] = 69921,
-  [SMALL_STATE(4264)] = 70026,
-  [SMALL_STATE(4265)] = 70131,
+  [SMALL_STATE(4252)] = 68808,
+  [SMALL_STATE(4253)] = 68913,
+  [SMALL_STATE(4254)] = 69018,
+  [SMALL_STATE(4255)] = 69123,
+  [SMALL_STATE(4256)] = 69228,
+  [SMALL_STATE(4257)] = 69333,
+  [SMALL_STATE(4258)] = 69438,
+  [SMALL_STATE(4259)] = 69543,
+  [SMALL_STATE(4260)] = 69648,
+  [SMALL_STATE(4261)] = 69753,
+  [SMALL_STATE(4262)] = 69858,
+  [SMALL_STATE(4263)] = 69963,
+  [SMALL_STATE(4264)] = 70068,
+  [SMALL_STATE(4265)] = 70173,
   [SMALL_STATE(4266)] = 70236,
   [SMALL_STATE(4267)] = 70341,
   [SMALL_STATE(4268)] = 70446,
@@ -632142,9 +631972,9 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(4301)] = 73741,
   [SMALL_STATE(4302)] = 73844,
   [SMALL_STATE(4303)] = 73947,
-  [SMALL_STATE(4304)] = 74040,
-  [SMALL_STATE(4305)] = 74143,
-  [SMALL_STATE(4306)] = 74246,
+  [SMALL_STATE(4304)] = 74050,
+  [SMALL_STATE(4305)] = 74153,
+  [SMALL_STATE(4306)] = 74256,
   [SMALL_STATE(4307)] = 74349,
   [SMALL_STATE(4308)] = 74452,
   [SMALL_STATE(4309)] = 74555,
@@ -632167,612 +631997,612 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(4326)] = 76250,
   [SMALL_STATE(4327)] = 76337,
   [SMALL_STATE(4328)] = 76384,
-  [SMALL_STATE(4329)] = 76451,
-  [SMALL_STATE(4330)] = 76524,
-  [SMALL_STATE(4331)] = 76595,
-  [SMALL_STATE(4332)] = 76642,
-  [SMALL_STATE(4333)] = 76717,
-  [SMALL_STATE(4334)] = 76784,
-  [SMALL_STATE(4335)] = 76843,
-  [SMALL_STATE(4336)] = 76920,
-  [SMALL_STATE(4337)] = 76967,
-  [SMALL_STATE(4338)] = 77014,
-  [SMALL_STATE(4339)] = 77071,
-  [SMALL_STATE(4340)] = 77118,
-  [SMALL_STATE(4341)] = 77165,
-  [SMALL_STATE(4342)] = 77242,
-  [SMALL_STATE(4343)] = 77289,
-  [SMALL_STATE(4344)] = 77350,
-  [SMALL_STATE(4345)] = 77397,
-  [SMALL_STATE(4346)] = 77444,
-  [SMALL_STATE(4347)] = 77491,
-  [SMALL_STATE(4348)] = 77538,
-  [SMALL_STATE(4349)] = 77585,
-  [SMALL_STATE(4350)] = 77632,
-  [SMALL_STATE(4351)] = 77679,
-  [SMALL_STATE(4352)] = 77726,
-  [SMALL_STATE(4353)] = 77773,
-  [SMALL_STATE(4354)] = 77820,
-  [SMALL_STATE(4355)] = 77867,
-  [SMALL_STATE(4356)] = 77914,
-  [SMALL_STATE(4357)] = 77961,
-  [SMALL_STATE(4358)] = 78024,
+  [SMALL_STATE(4329)] = 76431,
+  [SMALL_STATE(4330)] = 76478,
+  [SMALL_STATE(4331)] = 76525,
+  [SMALL_STATE(4332)] = 76572,
+  [SMALL_STATE(4333)] = 76619,
+  [SMALL_STATE(4334)] = 76682,
+  [SMALL_STATE(4335)] = 76759,
+  [SMALL_STATE(4336)] = 76820,
+  [SMALL_STATE(4337)] = 76867,
+  [SMALL_STATE(4338)] = 76914,
+  [SMALL_STATE(4339)] = 76961,
+  [SMALL_STATE(4340)] = 77028,
+  [SMALL_STATE(4341)] = 77101,
+  [SMALL_STATE(4342)] = 77148,
+  [SMALL_STATE(4343)] = 77195,
+  [SMALL_STATE(4344)] = 77266,
+  [SMALL_STATE(4345)] = 77313,
+  [SMALL_STATE(4346)] = 77360,
+  [SMALL_STATE(4347)] = 77407,
+  [SMALL_STATE(4348)] = 77454,
+  [SMALL_STATE(4349)] = 77501,
+  [SMALL_STATE(4350)] = 77548,
+  [SMALL_STATE(4351)] = 77619,
+  [SMALL_STATE(4352)] = 77666,
+  [SMALL_STATE(4353)] = 77713,
+  [SMALL_STATE(4354)] = 77788,
+  [SMALL_STATE(4355)] = 77845,
+  [SMALL_STATE(4356)] = 77922,
+  [SMALL_STATE(4357)] = 77969,
+  [SMALL_STATE(4358)] = 78036,
   [SMALL_STATE(4359)] = 78095,
-  [SMALL_STATE(4360)] = 78145,
-  [SMALL_STATE(4361)] = 78195,
-  [SMALL_STATE(4362)] = 78247,
+  [SMALL_STATE(4360)] = 78147,
+  [SMALL_STATE(4361)] = 78199,
+  [SMALL_STATE(4362)] = 78249,
   [SMALL_STATE(4363)] = 78299,
-  [SMALL_STATE(4364)] = 78348,
-  [SMALL_STATE(4365)] = 78421,
-  [SMALL_STATE(4366)] = 78486,
-  [SMALL_STATE(4367)] = 78543,
-  [SMALL_STATE(4368)] = 78592,
-  [SMALL_STATE(4369)] = 78667,
-  [SMALL_STATE(4370)] = 78736,
-  [SMALL_STATE(4371)] = 78791,
-  [SMALL_STATE(4372)] = 78876,
-  [SMALL_STATE(4373)] = 78961,
-  [SMALL_STATE(4374)] = 79034,
-  [SMALL_STATE(4375)] = 79099,
-  [SMALL_STATE(4376)] = 79156,
-  [SMALL_STATE(4377)] = 79231,
-  [SMALL_STATE(4378)] = 79316,
-  [SMALL_STATE(4379)] = 79401,
-  [SMALL_STATE(4380)] = 79450,
-  [SMALL_STATE(4381)] = 79519,
-  [SMALL_STATE(4382)] = 79604,
-  [SMALL_STATE(4383)] = 79687,
-  [SMALL_STATE(4384)] = 79770,
-  [SMALL_STATE(4385)] = 79819,
-  [SMALL_STATE(4386)] = 79864,
-  [SMALL_STATE(4387)] = 79947,
-  [SMALL_STATE(4388)] = 79996,
-  [SMALL_STATE(4389)] = 80045,
-  [SMALL_STATE(4390)] = 80130,
-  [SMALL_STATE(4391)] = 80205,
-  [SMALL_STATE(4392)] = 80290,
-  [SMALL_STATE(4393)] = 80375,
-  [SMALL_STATE(4394)] = 80450,
-  [SMALL_STATE(4395)] = 80531,
-  [SMALL_STATE(4396)] = 80582,
-  [SMALL_STATE(4397)] = 80667,
-  [SMALL_STATE(4398)] = 80752,
-  [SMALL_STATE(4399)] = 80801,
-  [SMALL_STATE(4400)] = 80858,
-  [SMALL_STATE(4401)] = 80907,
-  [SMALL_STATE(4402)] = 80968,
-  [SMALL_STATE(4403)] = 81017,
-  [SMALL_STATE(4404)] = 81102,
-  [SMALL_STATE(4405)] = 81187,
-  [SMALL_STATE(4406)] = 81246,
-  [SMALL_STATE(4407)] = 81323,
-  [SMALL_STATE(4408)] = 81402,
-  [SMALL_STATE(4409)] = 81457,
-  [SMALL_STATE(4410)] = 81540,
-  [SMALL_STATE(4411)] = 81609,
-  [SMALL_STATE(4412)] = 81670,
-  [SMALL_STATE(4413)] = 81755,
-  [SMALL_STATE(4414)] = 81814,
-  [SMALL_STATE(4415)] = 81879,
-  [SMALL_STATE(4416)] = 81950,
-  [SMALL_STATE(4417)] = 82019,
-  [SMALL_STATE(4418)] = 82074,
-  [SMALL_STATE(4419)] = 82143,
-  [SMALL_STATE(4420)] = 82228,
-  [SMALL_STATE(4421)] = 82293,
-  [SMALL_STATE(4422)] = 82368,
-  [SMALL_STATE(4423)] = 82453,
-  [SMALL_STATE(4424)] = 82538,
-  [SMALL_STATE(4425)] = 82599,
-  [SMALL_STATE(4426)] = 82658,
-  [SMALL_STATE(4427)] = 82723,
-  [SMALL_STATE(4428)] = 82794,
-  [SMALL_STATE(4429)] = 82863,
-  [SMALL_STATE(4430)] = 82936,
-  [SMALL_STATE(4431)] = 83007,
+  [SMALL_STATE(4364)] = 78368,
+  [SMALL_STATE(4365)] = 78453,
+  [SMALL_STATE(4366)] = 78508,
+  [SMALL_STATE(4367)] = 78585,
+  [SMALL_STATE(4368)] = 78670,
+  [SMALL_STATE(4369)] = 78755,
+  [SMALL_STATE(4370)] = 78840,
+  [SMALL_STATE(4371)] = 78925,
+  [SMALL_STATE(4372)] = 79004,
+  [SMALL_STATE(4373)] = 79073,
+  [SMALL_STATE(4374)] = 79148,
+  [SMALL_STATE(4375)] = 79217,
+  [SMALL_STATE(4376)] = 79292,
+  [SMALL_STATE(4377)] = 79347,
+  [SMALL_STATE(4378)] = 79402,
+  [SMALL_STATE(4379)] = 79487,
+  [SMALL_STATE(4380)] = 79556,
+  [SMALL_STATE(4381)] = 79639,
+  [SMALL_STATE(4382)] = 79688,
+  [SMALL_STATE(4383)] = 79737,
+  [SMALL_STATE(4384)] = 79782,
+  [SMALL_STATE(4385)] = 79831,
+  [SMALL_STATE(4386)] = 79916,
+  [SMALL_STATE(4387)] = 80001,
+  [SMALL_STATE(4388)] = 80050,
+  [SMALL_STATE(4389)] = 80135,
+  [SMALL_STATE(4390)] = 80210,
+  [SMALL_STATE(4391)] = 80261,
+  [SMALL_STATE(4392)] = 80310,
+  [SMALL_STATE(4393)] = 80367,
+  [SMALL_STATE(4394)] = 80424,
+  [SMALL_STATE(4395)] = 80489,
+  [SMALL_STATE(4396)] = 80564,
+  [SMALL_STATE(4397)] = 80613,
+  [SMALL_STATE(4398)] = 80698,
+  [SMALL_STATE(4399)] = 80783,
+  [SMALL_STATE(4400)] = 80832,
+  [SMALL_STATE(4401)] = 80917,
+  [SMALL_STATE(4402)] = 80988,
+  [SMALL_STATE(4403)] = 81053,
+  [SMALL_STATE(4404)] = 81126,
+  [SMALL_STATE(4405)] = 81211,
+  [SMALL_STATE(4406)] = 81284,
+  [SMALL_STATE(4407)] = 81353,
+  [SMALL_STATE(4408)] = 81438,
+  [SMALL_STATE(4409)] = 81523,
+  [SMALL_STATE(4410)] = 81594,
+  [SMALL_STATE(4411)] = 81659,
+  [SMALL_STATE(4412)] = 81720,
+  [SMALL_STATE(4413)] = 81785,
+  [SMALL_STATE(4414)] = 81844,
+  [SMALL_STATE(4415)] = 81903,
+  [SMALL_STATE(4416)] = 81964,
+  [SMALL_STATE(4417)] = 82049,
+  [SMALL_STATE(4418)] = 82114,
+  [SMALL_STATE(4419)] = 82185,
+  [SMALL_STATE(4420)] = 82244,
+  [SMALL_STATE(4421)] = 82305,
+  [SMALL_STATE(4422)] = 82374,
+  [SMALL_STATE(4423)] = 82447,
+  [SMALL_STATE(4424)] = 82512,
+  [SMALL_STATE(4425)] = 82569,
+  [SMALL_STATE(4426)] = 82650,
+  [SMALL_STATE(4427)] = 82733,
+  [SMALL_STATE(4428)] = 82816,
+  [SMALL_STATE(4429)] = 82865,
+  [SMALL_STATE(4430)] = 82914,
+  [SMALL_STATE(4431)] = 82989,
   [SMALL_STATE(4432)] = 83072,
   [SMALL_STATE(4433)] = 83157,
-  [SMALL_STATE(4434)] = 83237,
-  [SMALL_STATE(4435)] = 83283,
-  [SMALL_STATE(4436)] = 83329,
-  [SMALL_STATE(4437)] = 83375,
-  [SMALL_STATE(4438)] = 83421,
-  [SMALL_STATE(4439)] = 83467,
-  [SMALL_STATE(4440)] = 83547,
-  [SMALL_STATE(4441)] = 83627,
-  [SMALL_STATE(4442)] = 83707,
-  [SMALL_STATE(4443)] = 83753,
-  [SMALL_STATE(4444)] = 83833,
-  [SMALL_STATE(4445)] = 83915,
-  [SMALL_STATE(4446)] = 83995,
-  [SMALL_STATE(4447)] = 84041,
-  [SMALL_STATE(4448)] = 84085,
-  [SMALL_STATE(4449)] = 84131,
-  [SMALL_STATE(4450)] = 84177,
-  [SMALL_STATE(4451)] = 84223,
-  [SMALL_STATE(4452)] = 84269,
-  [SMALL_STATE(4453)] = 84315,
-  [SMALL_STATE(4454)] = 84361,
-  [SMALL_STATE(4455)] = 84407,
-  [SMALL_STATE(4456)] = 84453,
-  [SMALL_STATE(4457)] = 84499,
-  [SMALL_STATE(4458)] = 84545,
-  [SMALL_STATE(4459)] = 84599,
-  [SMALL_STATE(4460)] = 84645,
-  [SMALL_STATE(4461)] = 84705,
-  [SMALL_STATE(4462)] = 84763,
-  [SMALL_STATE(4463)] = 84841,
-  [SMALL_STATE(4464)] = 84919,
-  [SMALL_STATE(4465)] = 84983,
-  [SMALL_STATE(4466)] = 85065,
-  [SMALL_STATE(4467)] = 85111,
-  [SMALL_STATE(4468)] = 85181,
-  [SMALL_STATE(4469)] = 85227,
-  [SMALL_STATE(4470)] = 85281,
-  [SMALL_STATE(4471)] = 85353,
-  [SMALL_STATE(4472)] = 85417,
-  [SMALL_STATE(4473)] = 85495,
-  [SMALL_STATE(4474)] = 85569,
-  [SMALL_STATE(4475)] = 85651,
-  [SMALL_STATE(4476)] = 85731,
-  [SMALL_STATE(4477)] = 85813,
-  [SMALL_STATE(4478)] = 85891,
-  [SMALL_STATE(4479)] = 85971,
-  [SMALL_STATE(4480)] = 86051,
-  [SMALL_STATE(4481)] = 86131,
-  [SMALL_STATE(4482)] = 86211,
+  [SMALL_STATE(4434)] = 83203,
+  [SMALL_STATE(4435)] = 83281,
+  [SMALL_STATE(4436)] = 83361,
+  [SMALL_STATE(4437)] = 83441,
+  [SMALL_STATE(4438)] = 83521,
+  [SMALL_STATE(4439)] = 83567,
+  [SMALL_STATE(4440)] = 83647,
+  [SMALL_STATE(4441)] = 83693,
+  [SMALL_STATE(4442)] = 83747,
+  [SMALL_STATE(4443)] = 83827,
+  [SMALL_STATE(4444)] = 83873,
+  [SMALL_STATE(4445)] = 83953,
+  [SMALL_STATE(4446)] = 84035,
+  [SMALL_STATE(4447)] = 84113,
+  [SMALL_STATE(4448)] = 84193,
+  [SMALL_STATE(4449)] = 84239,
+  [SMALL_STATE(4450)] = 84307,
+  [SMALL_STATE(4451)] = 84389,
+  [SMALL_STATE(4452)] = 84435,
+  [SMALL_STATE(4453)] = 84517,
+  [SMALL_STATE(4454)] = 84563,
+  [SMALL_STATE(4455)] = 84643,
+  [SMALL_STATE(4456)] = 84723,
+  [SMALL_STATE(4457)] = 84779,
+  [SMALL_STATE(4458)] = 84857,
+  [SMALL_STATE(4459)] = 84901,
+  [SMALL_STATE(4460)] = 84979,
+  [SMALL_STATE(4461)] = 85061,
+  [SMALL_STATE(4462)] = 85139,
+  [SMALL_STATE(4463)] = 85185,
+  [SMALL_STATE(4464)] = 85265,
+  [SMALL_STATE(4465)] = 85345,
+  [SMALL_STATE(4466)] = 85391,
+  [SMALL_STATE(4467)] = 85437,
+  [SMALL_STATE(4468)] = 85483,
+  [SMALL_STATE(4469)] = 85537,
+  [SMALL_STATE(4470)] = 85583,
+  [SMALL_STATE(4471)] = 85657,
+  [SMALL_STATE(4472)] = 85739,
+  [SMALL_STATE(4473)] = 85785,
+  [SMALL_STATE(4474)] = 85829,
+  [SMALL_STATE(4475)] = 85875,
+  [SMALL_STATE(4476)] = 85919,
+  [SMALL_STATE(4477)] = 85963,
+  [SMALL_STATE(4478)] = 86007,
+  [SMALL_STATE(4479)] = 86051,
+  [SMALL_STATE(4480)] = 86097,
+  [SMALL_STATE(4481)] = 86143,
+  [SMALL_STATE(4482)] = 86223,
   [SMALL_STATE(4483)] = 86291,
-  [SMALL_STATE(4484)] = 86347,
-  [SMALL_STATE(4485)] = 86399,
-  [SMALL_STATE(4486)] = 86467,
-  [SMALL_STATE(4487)] = 86513,
-  [SMALL_STATE(4488)] = 86559,
-  [SMALL_STATE(4489)] = 86605,
-  [SMALL_STATE(4490)] = 86683,
-  [SMALL_STATE(4491)] = 86727,
-  [SMALL_STATE(4492)] = 86771,
-  [SMALL_STATE(4493)] = 86815,
-  [SMALL_STATE(4494)] = 86859,
-  [SMALL_STATE(4495)] = 86903,
-  [SMALL_STATE(4496)] = 86985,
-  [SMALL_STATE(4497)] = 87031,
-  [SMALL_STATE(4498)] = 87105,
-  [SMALL_STATE(4499)] = 87185,
+  [SMALL_STATE(4484)] = 86337,
+  [SMALL_STATE(4485)] = 86407,
+  [SMALL_STATE(4486)] = 86453,
+  [SMALL_STATE(4487)] = 86499,
+  [SMALL_STATE(4488)] = 86545,
+  [SMALL_STATE(4489)] = 86625,
+  [SMALL_STATE(4490)] = 86689,
+  [SMALL_STATE(4491)] = 86735,
+  [SMALL_STATE(4492)] = 86781,
+  [SMALL_STATE(4493)] = 86855,
+  [SMALL_STATE(4494)] = 86907,
+  [SMALL_STATE(4495)] = 86965,
+  [SMALL_STATE(4496)] = 87025,
+  [SMALL_STATE(4497)] = 87089,
+  [SMALL_STATE(4498)] = 87161,
+  [SMALL_STATE(4499)] = 87207,
   [SMALL_STATE(4500)] = 87253,
-  [SMALL_STATE(4501)] = 87296,
-  [SMALL_STATE(4502)] = 87339,
-  [SMALL_STATE(4503)] = 87382,
-  [SMALL_STATE(4504)] = 87425,
-  [SMALL_STATE(4505)] = 87468,
-  [SMALL_STATE(4506)] = 87511,
-  [SMALL_STATE(4507)] = 87554,
-  [SMALL_STATE(4508)] = 87597,
-  [SMALL_STATE(4509)] = 87640,
-  [SMALL_STATE(4510)] = 87683,
-  [SMALL_STATE(4511)] = 87726,
-  [SMALL_STATE(4512)] = 87803,
-  [SMALL_STATE(4513)] = 87846,
-  [SMALL_STATE(4514)] = 87891,
-  [SMALL_STATE(4515)] = 87934,
-  [SMALL_STATE(4516)] = 87977,
-  [SMALL_STATE(4517)] = 88020,
-  [SMALL_STATE(4518)] = 88063,
-  [SMALL_STATE(4519)] = 88106,
-  [SMALL_STATE(4520)] = 88149,
-  [SMALL_STATE(4521)] = 88192,
-  [SMALL_STATE(4522)] = 88235,
-  [SMALL_STATE(4523)] = 88278,
-  [SMALL_STATE(4524)] = 88321,
-  [SMALL_STATE(4525)] = 88364,
-  [SMALL_STATE(4526)] = 88407,
-  [SMALL_STATE(4527)] = 88450,
-  [SMALL_STATE(4528)] = 88493,
-  [SMALL_STATE(4529)] = 88536,
-  [SMALL_STATE(4530)] = 88579,
-  [SMALL_STATE(4531)] = 88622,
-  [SMALL_STATE(4532)] = 88665,
-  [SMALL_STATE(4533)] = 88708,
-  [SMALL_STATE(4534)] = 88751,
-  [SMALL_STATE(4535)] = 88794,
-  [SMALL_STATE(4536)] = 88837,
-  [SMALL_STATE(4537)] = 88880,
-  [SMALL_STATE(4538)] = 88923,
-  [SMALL_STATE(4539)] = 88966,
-  [SMALL_STATE(4540)] = 89009,
-  [SMALL_STATE(4541)] = 89052,
-  [SMALL_STATE(4542)] = 89095,
-  [SMALL_STATE(4543)] = 89138,
-  [SMALL_STATE(4544)] = 89181,
-  [SMALL_STATE(4545)] = 89224,
-  [SMALL_STATE(4546)] = 89267,
-  [SMALL_STATE(4547)] = 89310,
-  [SMALL_STATE(4548)] = 89353,
-  [SMALL_STATE(4549)] = 89396,
-  [SMALL_STATE(4550)] = 89439,
-  [SMALL_STATE(4551)] = 89496,
-  [SMALL_STATE(4552)] = 89539,
-  [SMALL_STATE(4553)] = 89582,
-  [SMALL_STATE(4554)] = 89625,
-  [SMALL_STATE(4555)] = 89668,
-  [SMALL_STATE(4556)] = 89711,
-  [SMALL_STATE(4557)] = 89754,
-  [SMALL_STATE(4558)] = 89797,
-  [SMALL_STATE(4559)] = 89840,
-  [SMALL_STATE(4560)] = 89883,
-  [SMALL_STATE(4561)] = 89926,
-  [SMALL_STATE(4562)] = 89969,
-  [SMALL_STATE(4563)] = 90012,
-  [SMALL_STATE(4564)] = 90055,
-  [SMALL_STATE(4565)] = 90098,
-  [SMALL_STATE(4566)] = 90141,
-  [SMALL_STATE(4567)] = 90184,
-  [SMALL_STATE(4568)] = 90227,
-  [SMALL_STATE(4569)] = 90270,
-  [SMALL_STATE(4570)] = 90313,
-  [SMALL_STATE(4571)] = 90356,
-  [SMALL_STATE(4572)] = 90399,
-  [SMALL_STATE(4573)] = 90476,
-  [SMALL_STATE(4574)] = 90519,
-  [SMALL_STATE(4575)] = 90562,
-  [SMALL_STATE(4576)] = 90639,
-  [SMALL_STATE(4577)] = 90682,
-  [SMALL_STATE(4578)] = 90725,
-  [SMALL_STATE(4579)] = 90768,
-  [SMALL_STATE(4580)] = 90811,
-  [SMALL_STATE(4581)] = 90888,
-  [SMALL_STATE(4582)] = 90931,
-  [SMALL_STATE(4583)] = 90974,
-  [SMALL_STATE(4584)] = 91017,
-  [SMALL_STATE(4585)] = 91060,
-  [SMALL_STATE(4586)] = 91103,
-  [SMALL_STATE(4587)] = 91146,
-  [SMALL_STATE(4588)] = 91189,
-  [SMALL_STATE(4589)] = 91232,
-  [SMALL_STATE(4590)] = 91287,
-  [SMALL_STATE(4591)] = 91366,
-  [SMALL_STATE(4592)] = 91409,
-  [SMALL_STATE(4593)] = 91452,
-  [SMALL_STATE(4594)] = 91495,
-  [SMALL_STATE(4595)] = 91538,
-  [SMALL_STATE(4596)] = 91615,
-  [SMALL_STATE(4597)] = 91658,
-  [SMALL_STATE(4598)] = 91735,
-  [SMALL_STATE(4599)] = 91778,
-  [SMALL_STATE(4600)] = 91821,
-  [SMALL_STATE(4601)] = 91894,
-  [SMALL_STATE(4602)] = 91971,
-  [SMALL_STATE(4603)] = 92048,
-  [SMALL_STATE(4604)] = 92125,
-  [SMALL_STATE(4605)] = 92184,
-  [SMALL_STATE(4606)] = 92237,
-  [SMALL_STATE(4607)] = 92294,
-  [SMALL_STATE(4608)] = 92351,
-  [SMALL_STATE(4609)] = 92430,
-  [SMALL_STATE(4610)] = 92507,
-  [SMALL_STATE(4611)] = 92550,
-  [SMALL_STATE(4612)] = 92593,
-  [SMALL_STATE(4613)] = 92636,
-  [SMALL_STATE(4614)] = 92679,
-  [SMALL_STATE(4615)] = 92722,
-  [SMALL_STATE(4616)] = 92765,
-  [SMALL_STATE(4617)] = 92808,
-  [SMALL_STATE(4618)] = 92851,
-  [SMALL_STATE(4619)] = 92918,
-  [SMALL_STATE(4620)] = 92993,
-  [SMALL_STATE(4621)] = 93036,
-  [SMALL_STATE(4622)] = 93079,
-  [SMALL_STATE(4623)] = 93150,
-  [SMALL_STATE(4624)] = 93193,
-  [SMALL_STATE(4625)] = 93236,
-  [SMALL_STATE(4626)] = 93293,
-  [SMALL_STATE(4627)] = 93372,
-  [SMALL_STATE(4628)] = 93449,
-  [SMALL_STATE(4629)] = 93526,
-  [SMALL_STATE(4630)] = 93603,
-  [SMALL_STATE(4631)] = 93680,
-  [SMALL_STATE(4632)] = 93743,
-  [SMALL_STATE(4633)] = 93786,
-  [SMALL_STATE(4634)] = 93829,
-  [SMALL_STATE(4635)] = 93906,
+  [SMALL_STATE(4501)] = 87330,
+  [SMALL_STATE(4502)] = 87397,
+  [SMALL_STATE(4503)] = 87440,
+  [SMALL_STATE(4504)] = 87483,
+  [SMALL_STATE(4505)] = 87526,
+  [SMALL_STATE(4506)] = 87569,
+  [SMALL_STATE(4507)] = 87612,
+  [SMALL_STATE(4508)] = 87655,
+  [SMALL_STATE(4509)] = 87698,
+  [SMALL_STATE(4510)] = 87775,
+  [SMALL_STATE(4511)] = 87818,
+  [SMALL_STATE(4512)] = 87861,
+  [SMALL_STATE(4513)] = 87904,
+  [SMALL_STATE(4514)] = 87947,
+  [SMALL_STATE(4515)] = 87990,
+  [SMALL_STATE(4516)] = 88033,
+  [SMALL_STATE(4517)] = 88076,
+  [SMALL_STATE(4518)] = 88119,
+  [SMALL_STATE(4519)] = 88162,
+  [SMALL_STATE(4520)] = 88205,
+  [SMALL_STATE(4521)] = 88248,
+  [SMALL_STATE(4522)] = 88291,
+  [SMALL_STATE(4523)] = 88334,
+  [SMALL_STATE(4524)] = 88377,
+  [SMALL_STATE(4525)] = 88420,
+  [SMALL_STATE(4526)] = 88479,
+  [SMALL_STATE(4527)] = 88536,
+  [SMALL_STATE(4528)] = 88579,
+  [SMALL_STATE(4529)] = 88622,
+  [SMALL_STATE(4530)] = 88665,
+  [SMALL_STATE(4531)] = 88708,
+  [SMALL_STATE(4532)] = 88771,
+  [SMALL_STATE(4533)] = 88848,
+  [SMALL_STATE(4534)] = 88925,
+  [SMALL_STATE(4535)] = 88992,
+  [SMALL_STATE(4536)] = 89067,
+  [SMALL_STATE(4537)] = 89138,
+  [SMALL_STATE(4538)] = 89201,
+  [SMALL_STATE(4539)] = 89256,
+  [SMALL_STATE(4540)] = 89299,
+  [SMALL_STATE(4541)] = 89342,
+  [SMALL_STATE(4542)] = 89415,
+  [SMALL_STATE(4543)] = 89492,
+  [SMALL_STATE(4544)] = 89535,
+  [SMALL_STATE(4545)] = 89578,
+  [SMALL_STATE(4546)] = 89621,
+  [SMALL_STATE(4547)] = 89664,
+  [SMALL_STATE(4548)] = 89707,
+  [SMALL_STATE(4549)] = 89750,
+  [SMALL_STATE(4550)] = 89793,
+  [SMALL_STATE(4551)] = 89836,
+  [SMALL_STATE(4552)] = 89879,
+  [SMALL_STATE(4553)] = 89922,
+  [SMALL_STATE(4554)] = 89965,
+  [SMALL_STATE(4555)] = 90008,
+  [SMALL_STATE(4556)] = 90051,
+  [SMALL_STATE(4557)] = 90094,
+  [SMALL_STATE(4558)] = 90137,
+  [SMALL_STATE(4559)] = 90180,
+  [SMALL_STATE(4560)] = 90223,
+  [SMALL_STATE(4561)] = 90276,
+  [SMALL_STATE(4562)] = 90319,
+  [SMALL_STATE(4563)] = 90362,
+  [SMALL_STATE(4564)] = 90405,
+  [SMALL_STATE(4565)] = 90448,
+  [SMALL_STATE(4566)] = 90491,
+  [SMALL_STATE(4567)] = 90534,
+  [SMALL_STATE(4568)] = 90577,
+  [SMALL_STATE(4569)] = 90620,
+  [SMALL_STATE(4570)] = 90663,
+  [SMALL_STATE(4571)] = 90706,
+  [SMALL_STATE(4572)] = 90749,
+  [SMALL_STATE(4573)] = 90792,
+  [SMALL_STATE(4574)] = 90835,
+  [SMALL_STATE(4575)] = 90878,
+  [SMALL_STATE(4576)] = 90921,
+  [SMALL_STATE(4577)] = 90964,
+  [SMALL_STATE(4578)] = 91007,
+  [SMALL_STATE(4579)] = 91050,
+  [SMALL_STATE(4580)] = 91093,
+  [SMALL_STATE(4581)] = 91136,
+  [SMALL_STATE(4582)] = 91179,
+  [SMALL_STATE(4583)] = 91256,
+  [SMALL_STATE(4584)] = 91299,
+  [SMALL_STATE(4585)] = 91342,
+  [SMALL_STATE(4586)] = 91385,
+  [SMALL_STATE(4587)] = 91428,
+  [SMALL_STATE(4588)] = 91507,
+  [SMALL_STATE(4589)] = 91584,
+  [SMALL_STATE(4590)] = 91627,
+  [SMALL_STATE(4591)] = 91670,
+  [SMALL_STATE(4592)] = 91739,
+  [SMALL_STATE(4593)] = 91782,
+  [SMALL_STATE(4594)] = 91859,
+  [SMALL_STATE(4595)] = 91902,
+  [SMALL_STATE(4596)] = 91945,
+  [SMALL_STATE(4597)] = 91988,
+  [SMALL_STATE(4598)] = 92031,
+  [SMALL_STATE(4599)] = 92074,
+  [SMALL_STATE(4600)] = 92117,
+  [SMALL_STATE(4601)] = 92160,
+  [SMALL_STATE(4602)] = 92203,
+  [SMALL_STATE(4603)] = 92246,
+  [SMALL_STATE(4604)] = 92289,
+  [SMALL_STATE(4605)] = 92332,
+  [SMALL_STATE(4606)] = 92375,
+  [SMALL_STATE(4607)] = 92452,
+  [SMALL_STATE(4608)] = 92495,
+  [SMALL_STATE(4609)] = 92538,
+  [SMALL_STATE(4610)] = 92595,
+  [SMALL_STATE(4611)] = 92638,
+  [SMALL_STATE(4612)] = 92681,
+  [SMALL_STATE(4613)] = 92724,
+  [SMALL_STATE(4614)] = 92803,
+  [SMALL_STATE(4615)] = 92846,
+  [SMALL_STATE(4616)] = 92889,
+  [SMALL_STATE(4617)] = 92946,
+  [SMALL_STATE(4618)] = 92989,
+  [SMALL_STATE(4619)] = 93032,
+  [SMALL_STATE(4620)] = 93075,
+  [SMALL_STATE(4621)] = 93118,
+  [SMALL_STATE(4622)] = 93161,
+  [SMALL_STATE(4623)] = 93204,
+  [SMALL_STATE(4624)] = 93249,
+  [SMALL_STATE(4625)] = 93292,
+  [SMALL_STATE(4626)] = 93335,
+  [SMALL_STATE(4627)] = 93412,
+  [SMALL_STATE(4628)] = 93489,
+  [SMALL_STATE(4629)] = 93532,
+  [SMALL_STATE(4630)] = 93609,
+  [SMALL_STATE(4631)] = 93686,
+  [SMALL_STATE(4632)] = 93763,
+  [SMALL_STATE(4633)] = 93840,
+  [SMALL_STATE(4634)] = 93883,
+  [SMALL_STATE(4635)] = 93926,
   [SMALL_STATE(4636)] = 93969,
   [SMALL_STATE(4637)] = 94046,
-  [SMALL_STATE(4638)] = 94123,
-  [SMALL_STATE(4639)] = 94192,
-  [SMALL_STATE(4640)] = 94269,
-  [SMALL_STATE(4641)] = 94346,
-  [SMALL_STATE(4642)] = 94423,
-  [SMALL_STATE(4643)] = 94490,
-  [SMALL_STATE(4644)] = 94533,
-  [SMALL_STATE(4645)] = 94610,
+  [SMALL_STATE(4638)] = 94125,
+  [SMALL_STATE(4639)] = 94202,
+  [SMALL_STATE(4640)] = 94279,
+  [SMALL_STATE(4641)] = 94356,
+  [SMALL_STATE(4642)] = 94433,
+  [SMALL_STATE(4643)] = 94476,
+  [SMALL_STATE(4644)] = 94553,
+  [SMALL_STATE(4645)] = 94596,
   [SMALL_STATE(4646)] = 94653,
   [SMALL_STATE(4647)] = 94696,
-  [SMALL_STATE(4648)] = 94772,
-  [SMALL_STATE(4649)] = 94818,
-  [SMALL_STATE(4650)] = 94894,
-  [SMALL_STATE(4651)] = 94940,
-  [SMALL_STATE(4652)] = 94986,
-  [SMALL_STATE(4653)] = 95032,
-  [SMALL_STATE(4654)] = 95078,
-  [SMALL_STATE(4655)] = 95154,
-  [SMALL_STATE(4656)] = 95202,
-  [SMALL_STATE(4657)] = 95278,
-  [SMALL_STATE(4658)] = 95324,
-  [SMALL_STATE(4659)] = 95370,
-  [SMALL_STATE(4660)] = 95446,
-  [SMALL_STATE(4661)] = 95488,
-  [SMALL_STATE(4662)] = 95534,
-  [SMALL_STATE(4663)] = 95580,
-  [SMALL_STATE(4664)] = 95656,
-  [SMALL_STATE(4665)] = 95732,
-  [SMALL_STATE(4666)] = 95774,
-  [SMALL_STATE(4667)] = 95850,
-  [SMALL_STATE(4668)] = 95926,
-  [SMALL_STATE(4669)] = 96002,
-  [SMALL_STATE(4670)] = 96078,
-  [SMALL_STATE(4671)] = 96154,
-  [SMALL_STATE(4672)] = 96230,
-  [SMALL_STATE(4673)] = 96306,
-  [SMALL_STATE(4674)] = 96348,
-  [SMALL_STATE(4675)] = 96396,
-  [SMALL_STATE(4676)] = 96472,
-  [SMALL_STATE(4677)] = 96548,
-  [SMALL_STATE(4678)] = 96590,
-  [SMALL_STATE(4679)] = 96636,
-  [SMALL_STATE(4680)] = 96712,
-  [SMALL_STATE(4681)] = 96788,
-  [SMALL_STATE(4682)] = 96864,
-  [SMALL_STATE(4683)] = 96906,
-  [SMALL_STATE(4684)] = 96952,
-  [SMALL_STATE(4685)] = 97028,
-  [SMALL_STATE(4686)] = 97104,
+  [SMALL_STATE(4648)] = 94742,
+  [SMALL_STATE(4649)] = 94784,
+  [SMALL_STATE(4650)] = 94826,
+  [SMALL_STATE(4651)] = 94868,
+  [SMALL_STATE(4652)] = 94910,
+  [SMALL_STATE(4653)] = 94986,
+  [SMALL_STATE(4654)] = 95062,
+  [SMALL_STATE(4655)] = 95138,
+  [SMALL_STATE(4656)] = 95214,
+  [SMALL_STATE(4657)] = 95290,
+  [SMALL_STATE(4658)] = 95336,
+  [SMALL_STATE(4659)] = 95412,
+  [SMALL_STATE(4660)] = 95458,
+  [SMALL_STATE(4661)] = 95534,
+  [SMALL_STATE(4662)] = 95610,
+  [SMALL_STATE(4663)] = 95656,
+  [SMALL_STATE(4664)] = 95732,
+  [SMALL_STATE(4665)] = 95778,
+  [SMALL_STATE(4666)] = 95854,
+  [SMALL_STATE(4667)] = 95902,
+  [SMALL_STATE(4668)] = 95978,
+  [SMALL_STATE(4669)] = 96054,
+  [SMALL_STATE(4670)] = 96100,
+  [SMALL_STATE(4671)] = 96176,
+  [SMALL_STATE(4672)] = 96252,
+  [SMALL_STATE(4673)] = 96298,
+  [SMALL_STATE(4674)] = 96344,
+  [SMALL_STATE(4675)] = 96390,
+  [SMALL_STATE(4676)] = 96466,
+  [SMALL_STATE(4677)] = 96542,
+  [SMALL_STATE(4678)] = 96618,
+  [SMALL_STATE(4679)] = 96660,
+  [SMALL_STATE(4680)] = 96706,
+  [SMALL_STATE(4681)] = 96782,
+  [SMALL_STATE(4682)] = 96858,
+  [SMALL_STATE(4683)] = 96934,
+  [SMALL_STATE(4684)] = 96980,
+  [SMALL_STATE(4685)] = 97056,
+  [SMALL_STATE(4686)] = 97132,
   [SMALL_STATE(4687)] = 97180,
-  [SMALL_STATE(4688)] = 97253,
-  [SMALL_STATE(4689)] = 97296,
-  [SMALL_STATE(4690)] = 97341,
-  [SMALL_STATE(4691)] = 97414,
-  [SMALL_STATE(4692)] = 97487,
-  [SMALL_STATE(4693)] = 97528,
-  [SMALL_STATE(4694)] = 97573,
-  [SMALL_STATE(4695)] = 97616,
-  [SMALL_STATE(4696)] = 97689,
-  [SMALL_STATE(4697)] = 97734,
-  [SMALL_STATE(4698)] = 97779,
-  [SMALL_STATE(4699)] = 97826,
-  [SMALL_STATE(4700)] = 97871,
-  [SMALL_STATE(4701)] = 97918,
-  [SMALL_STATE(4702)] = 97963,
-  [SMALL_STATE(4703)] = 98010,
+  [SMALL_STATE(4688)] = 97223,
+  [SMALL_STATE(4689)] = 97270,
+  [SMALL_STATE(4690)] = 97343,
+  [SMALL_STATE(4691)] = 97388,
+  [SMALL_STATE(4692)] = 97433,
+  [SMALL_STATE(4693)] = 97474,
+  [SMALL_STATE(4694)] = 97519,
+  [SMALL_STATE(4695)] = 97566,
+  [SMALL_STATE(4696)] = 97639,
+  [SMALL_STATE(4697)] = 97684,
+  [SMALL_STATE(4698)] = 97729,
+  [SMALL_STATE(4699)] = 97804,
+  [SMALL_STATE(4700)] = 97849,
+  [SMALL_STATE(4701)] = 97922,
+  [SMALL_STATE(4702)] = 97995,
+  [SMALL_STATE(4703)] = 98042,
   [SMALL_STATE(4704)] = 98085,
-  [SMALL_STATE(4705)] = 98125,
-  [SMALL_STATE(4706)] = 98165,
-  [SMALL_STATE(4707)] = 98207,
-  [SMALL_STATE(4708)] = 98247,
-  [SMALL_STATE(4709)] = 98287,
-  [SMALL_STATE(4710)] = 98331,
-  [SMALL_STATE(4711)] = 98371,
-  [SMALL_STATE(4712)] = 98411,
-  [SMALL_STATE(4713)] = 98451,
-  [SMALL_STATE(4714)] = 98491,
-  [SMALL_STATE(4715)] = 98531,
-  [SMALL_STATE(4716)] = 98573,
-  [SMALL_STATE(4717)] = 98613,
-  [SMALL_STATE(4718)] = 98653,
-  [SMALL_STATE(4719)] = 98695,
-  [SMALL_STATE(4720)] = 98735,
-  [SMALL_STATE(4721)] = 98777,
-  [SMALL_STATE(4722)] = 98819,
-  [SMALL_STATE(4723)] = 98861,
-  [SMALL_STATE(4724)] = 98903,
-  [SMALL_STATE(4725)] = 98947,
-  [SMALL_STATE(4726)] = 98987,
-  [SMALL_STATE(4727)] = 99029,
-  [SMALL_STATE(4728)] = 99069,
-  [SMALL_STATE(4729)] = 99109,
-  [SMALL_STATE(4730)] = 99151,
-  [SMALL_STATE(4731)] = 99191,
-  [SMALL_STATE(4732)] = 99231,
-  [SMALL_STATE(4733)] = 99271,
-  [SMALL_STATE(4734)] = 99319,
-  [SMALL_STATE(4735)] = 99361,
+  [SMALL_STATE(4705)] = 98127,
+  [SMALL_STATE(4706)] = 98169,
+  [SMALL_STATE(4707)] = 98211,
+  [SMALL_STATE(4708)] = 98253,
+  [SMALL_STATE(4709)] = 98293,
+  [SMALL_STATE(4710)] = 98339,
+  [SMALL_STATE(4711)] = 98381,
+  [SMALL_STATE(4712)] = 98427,
+  [SMALL_STATE(4713)] = 98467,
+  [SMALL_STATE(4714)] = 98507,
+  [SMALL_STATE(4715)] = 98547,
+  [SMALL_STATE(4716)] = 98587,
+  [SMALL_STATE(4717)] = 98629,
+  [SMALL_STATE(4718)] = 98669,
+  [SMALL_STATE(4719)] = 98709,
+  [SMALL_STATE(4720)] = 98751,
+  [SMALL_STATE(4721)] = 98793,
+  [SMALL_STATE(4722)] = 98833,
+  [SMALL_STATE(4723)] = 98873,
+  [SMALL_STATE(4724)] = 98913,
+  [SMALL_STATE(4725)] = 98953,
+  [SMALL_STATE(4726)] = 98995,
+  [SMALL_STATE(4727)] = 99035,
+  [SMALL_STATE(4728)] = 99079,
+  [SMALL_STATE(4729)] = 99121,
+  [SMALL_STATE(4730)] = 99163,
+  [SMALL_STATE(4731)] = 99203,
+  [SMALL_STATE(4732)] = 99243,
+  [SMALL_STATE(4733)] = 99283,
+  [SMALL_STATE(4734)] = 99323,
+  [SMALL_STATE(4735)] = 99363,
   [SMALL_STATE(4736)] = 99403,
-  [SMALL_STATE(4737)] = 99447,
-  [SMALL_STATE(4738)] = 99489,
-  [SMALL_STATE(4739)] = 99531,
-  [SMALL_STATE(4740)] = 99573,
-  [SMALL_STATE(4741)] = 99613,
-  [SMALL_STATE(4742)] = 99655,
-  [SMALL_STATE(4743)] = 99701,
-  [SMALL_STATE(4744)] = 99743,
-  [SMALL_STATE(4745)] = 99785,
-  [SMALL_STATE(4746)] = 99827,
-  [SMALL_STATE(4747)] = 99869,
-  [SMALL_STATE(4748)] = 99911,
-  [SMALL_STATE(4749)] = 99953,
-  [SMALL_STATE(4750)] = 99995,
-  [SMALL_STATE(4751)] = 100039,
-  [SMALL_STATE(4752)] = 100081,
-  [SMALL_STATE(4753)] = 100123,
-  [SMALL_STATE(4754)] = 100163,
-  [SMALL_STATE(4755)] = 100203,
-  [SMALL_STATE(4756)] = 100243,
-  [SMALL_STATE(4757)] = 100283,
-  [SMALL_STATE(4758)] = 100323,
-  [SMALL_STATE(4759)] = 100363,
-  [SMALL_STATE(4760)] = 100405,
-  [SMALL_STATE(4761)] = 100445,
-  [SMALL_STATE(4762)] = 100485,
-  [SMALL_STATE(4763)] = 100525,
-  [SMALL_STATE(4764)] = 100565,
-  [SMALL_STATE(4765)] = 100605,
-  [SMALL_STATE(4766)] = 100645,
-  [SMALL_STATE(4767)] = 100685,
-  [SMALL_STATE(4768)] = 100725,
-  [SMALL_STATE(4769)] = 100765,
-  [SMALL_STATE(4770)] = 100805,
-  [SMALL_STATE(4771)] = 100845,
+  [SMALL_STATE(4737)] = 99443,
+  [SMALL_STATE(4738)] = 99483,
+  [SMALL_STATE(4739)] = 99523,
+  [SMALL_STATE(4740)] = 99563,
+  [SMALL_STATE(4741)] = 99603,
+  [SMALL_STATE(4742)] = 99643,
+  [SMALL_STATE(4743)] = 99683,
+  [SMALL_STATE(4744)] = 99725,
+  [SMALL_STATE(4745)] = 99767,
+  [SMALL_STATE(4746)] = 99809,
+  [SMALL_STATE(4747)] = 99849,
+  [SMALL_STATE(4748)] = 99889,
+  [SMALL_STATE(4749)] = 99929,
+  [SMALL_STATE(4750)] = 99969,
+  [SMALL_STATE(4751)] = 100013,
+  [SMALL_STATE(4752)] = 100055,
+  [SMALL_STATE(4753)] = 100095,
+  [SMALL_STATE(4754)] = 100135,
+  [SMALL_STATE(4755)] = 100177,
+  [SMALL_STATE(4756)] = 100219,
+  [SMALL_STATE(4757)] = 100261,
+  [SMALL_STATE(4758)] = 100303,
+  [SMALL_STATE(4759)] = 100345,
+  [SMALL_STATE(4760)] = 100387,
+  [SMALL_STATE(4761)] = 100427,
+  [SMALL_STATE(4762)] = 100467,
+  [SMALL_STATE(4763)] = 100509,
+  [SMALL_STATE(4764)] = 100551,
+  [SMALL_STATE(4765)] = 100591,
+  [SMALL_STATE(4766)] = 100635,
+  [SMALL_STATE(4767)] = 100675,
+  [SMALL_STATE(4768)] = 100717,
+  [SMALL_STATE(4769)] = 100761,
+  [SMALL_STATE(4770)] = 100809,
+  [SMALL_STATE(4771)] = 100851,
   [SMALL_STATE(4772)] = 100891,
   [SMALL_STATE(4773)] = 100933,
-  [SMALL_STATE(4774)] = 100973,
+  [SMALL_STATE(4774)] = 100977,
   [SMALL_STATE(4775)] = 101017,
   [SMALL_STATE(4776)] = 101059,
-  [SMALL_STATE(4777)] = 101100,
-  [SMALL_STATE(4778)] = 101141,
-  [SMALL_STATE(4779)] = 101180,
-  [SMALL_STATE(4780)] = 101219,
-  [SMALL_STATE(4781)] = 101258,
-  [SMALL_STATE(4782)] = 101297,
-  [SMALL_STATE(4783)] = 101336,
-  [SMALL_STATE(4784)] = 101375,
-  [SMALL_STATE(4785)] = 101414,
-  [SMALL_STATE(4786)] = 101457,
-  [SMALL_STATE(4787)] = 101496,
-  [SMALL_STATE(4788)] = 101537,
-  [SMALL_STATE(4789)] = 101576,
-  [SMALL_STATE(4790)] = 101615,
-  [SMALL_STATE(4791)] = 101654,
-  [SMALL_STATE(4792)] = 101693,
-  [SMALL_STATE(4793)] = 101732,
-  [SMALL_STATE(4794)] = 101771,
-  [SMALL_STATE(4795)] = 101810,
-  [SMALL_STATE(4796)] = 101849,
-  [SMALL_STATE(4797)] = 101888,
-  [SMALL_STATE(4798)] = 101927,
-  [SMALL_STATE(4799)] = 101966,
-  [SMALL_STATE(4800)] = 102005,
-  [SMALL_STATE(4801)] = 102044,
-  [SMALL_STATE(4802)] = 102083,
-  [SMALL_STATE(4803)] = 102122,
-  [SMALL_STATE(4804)] = 102161,
-  [SMALL_STATE(4805)] = 102200,
-  [SMALL_STATE(4806)] = 102239,
-  [SMALL_STATE(4807)] = 102278,
-  [SMALL_STATE(4808)] = 102317,
-  [SMALL_STATE(4809)] = 102358,
-  [SMALL_STATE(4810)] = 102399,
-  [SMALL_STATE(4811)] = 102438,
-  [SMALL_STATE(4812)] = 102479,
-  [SMALL_STATE(4813)] = 102520,
-  [SMALL_STATE(4814)] = 102561,
-  [SMALL_STATE(4815)] = 102600,
-  [SMALL_STATE(4816)] = 102641,
-  [SMALL_STATE(4817)] = 102682,
-  [SMALL_STATE(4818)] = 102723,
-  [SMALL_STATE(4819)] = 102764,
-  [SMALL_STATE(4820)] = 102805,
-  [SMALL_STATE(4821)] = 102844,
-  [SMALL_STATE(4822)] = 102885,
-  [SMALL_STATE(4823)] = 102926,
-  [SMALL_STATE(4824)] = 102967,
-  [SMALL_STATE(4825)] = 103014,
-  [SMALL_STATE(4826)] = 103055,
-  [SMALL_STATE(4827)] = 103096,
-  [SMALL_STATE(4828)] = 103137,
-  [SMALL_STATE(4829)] = 103176,
-  [SMALL_STATE(4830)] = 103217,
-  [SMALL_STATE(4831)] = 103258,
-  [SMALL_STATE(4832)] = 103299,
-  [SMALL_STATE(4833)] = 103340,
-  [SMALL_STATE(4834)] = 103381,
-  [SMALL_STATE(4835)] = 103420,
-  [SMALL_STATE(4836)] = 103461,
-  [SMALL_STATE(4837)] = 103502,
-  [SMALL_STATE(4838)] = 103543,
-  [SMALL_STATE(4839)] = 103584,
-  [SMALL_STATE(4840)] = 103625,
-  [SMALL_STATE(4841)] = 103664,
-  [SMALL_STATE(4842)] = 103705,
-  [SMALL_STATE(4843)] = 103750,
-  [SMALL_STATE(4844)] = 103791,
-  [SMALL_STATE(4845)] = 103832,
-  [SMALL_STATE(4846)] = 103873,
-  [SMALL_STATE(4847)] = 103914,
-  [SMALL_STATE(4848)] = 103955,
-  [SMALL_STATE(4849)] = 103996,
-  [SMALL_STATE(4850)] = 104037,
-  [SMALL_STATE(4851)] = 104078,
-  [SMALL_STATE(4852)] = 104119,
-  [SMALL_STATE(4853)] = 104164,
-  [SMALL_STATE(4854)] = 104205,
-  [SMALL_STATE(4855)] = 104246,
-  [SMALL_STATE(4856)] = 104285,
-  [SMALL_STATE(4857)] = 104324,
-  [SMALL_STATE(4858)] = 104363,
-  [SMALL_STATE(4859)] = 104406,
-  [SMALL_STATE(4860)] = 104445,
-  [SMALL_STATE(4861)] = 104486,
-  [SMALL_STATE(4862)] = 104527,
-  [SMALL_STATE(4863)] = 104566,
-  [SMALL_STATE(4864)] = 104605,
-  [SMALL_STATE(4865)] = 104644,
-  [SMALL_STATE(4866)] = 104685,
-  [SMALL_STATE(4867)] = 104730,
-  [SMALL_STATE(4868)] = 104771,
-  [SMALL_STATE(4869)] = 104812,
-  [SMALL_STATE(4870)] = 104853,
-  [SMALL_STATE(4871)] = 104894,
-  [SMALL_STATE(4872)] = 104935,
-  [SMALL_STATE(4873)] = 104976,
-  [SMALL_STATE(4874)] = 105017,
-  [SMALL_STATE(4875)] = 105056,
-  [SMALL_STATE(4876)] = 105097,
-  [SMALL_STATE(4877)] = 105138,
-  [SMALL_STATE(4878)] = 105177,
-  [SMALL_STATE(4879)] = 105218,
-  [SMALL_STATE(4880)] = 105259,
-  [SMALL_STATE(4881)] = 105300,
-  [SMALL_STATE(4882)] = 105341,
-  [SMALL_STATE(4883)] = 105382,
-  [SMALL_STATE(4884)] = 105423,
-  [SMALL_STATE(4885)] = 105490,
-  [SMALL_STATE(4886)] = 105529,
-  [SMALL_STATE(4887)] = 105568,
-  [SMALL_STATE(4888)] = 105609,
-  [SMALL_STATE(4889)] = 105650,
-  [SMALL_STATE(4890)] = 105689,
-  [SMALL_STATE(4891)] = 105728,
-  [SMALL_STATE(4892)] = 105769,
-  [SMALL_STATE(4893)] = 105810,
-  [SMALL_STATE(4894)] = 105851,
-  [SMALL_STATE(4895)] = 105892,
-  [SMALL_STATE(4896)] = 105933,
-  [SMALL_STATE(4897)] = 105972,
-  [SMALL_STATE(4898)] = 106013,
-  [SMALL_STATE(4899)] = 106054,
-  [SMALL_STATE(4900)] = 106095,
-  [SMALL_STATE(4901)] = 106136,
-  [SMALL_STATE(4902)] = 106179,
-  [SMALL_STATE(4903)] = 106218,
-  [SMALL_STATE(4904)] = 106257,
-  [SMALL_STATE(4905)] = 106296,
-  [SMALL_STATE(4906)] = 106363,
-  [SMALL_STATE(4907)] = 106402,
-  [SMALL_STATE(4908)] = 106441,
-  [SMALL_STATE(4909)] = 106480,
-  [SMALL_STATE(4910)] = 106519,
-  [SMALL_STATE(4911)] = 106558,
-  [SMALL_STATE(4912)] = 106597,
-  [SMALL_STATE(4913)] = 106636,
-  [SMALL_STATE(4914)] = 106675,
-  [SMALL_STATE(4915)] = 106714,
-  [SMALL_STATE(4916)] = 106753,
-  [SMALL_STATE(4917)] = 106794,
-  [SMALL_STATE(4918)] = 106835,
-  [SMALL_STATE(4919)] = 106874,
-  [SMALL_STATE(4920)] = 106915,
-  [SMALL_STATE(4921)] = 106954,
-  [SMALL_STATE(4922)] = 106995,
+  [SMALL_STATE(4777)] = 101104,
+  [SMALL_STATE(4778)] = 101145,
+  [SMALL_STATE(4779)] = 101186,
+  [SMALL_STATE(4780)] = 101227,
+  [SMALL_STATE(4781)] = 101268,
+  [SMALL_STATE(4782)] = 101309,
+  [SMALL_STATE(4783)] = 101350,
+  [SMALL_STATE(4784)] = 101391,
+  [SMALL_STATE(4785)] = 101430,
+  [SMALL_STATE(4786)] = 101471,
+  [SMALL_STATE(4787)] = 101510,
+  [SMALL_STATE(4788)] = 101551,
+  [SMALL_STATE(4789)] = 101590,
+  [SMALL_STATE(4790)] = 101629,
+  [SMALL_STATE(4791)] = 101670,
+  [SMALL_STATE(4792)] = 101711,
+  [SMALL_STATE(4793)] = 101752,
+  [SMALL_STATE(4794)] = 101791,
+  [SMALL_STATE(4795)] = 101832,
+  [SMALL_STATE(4796)] = 101873,
+  [SMALL_STATE(4797)] = 101940,
+  [SMALL_STATE(4798)] = 101979,
+  [SMALL_STATE(4799)] = 102020,
+  [SMALL_STATE(4800)] = 102059,
+  [SMALL_STATE(4801)] = 102100,
+  [SMALL_STATE(4802)] = 102141,
+  [SMALL_STATE(4803)] = 102182,
+  [SMALL_STATE(4804)] = 102223,
+  [SMALL_STATE(4805)] = 102264,
+  [SMALL_STATE(4806)] = 102305,
+  [SMALL_STATE(4807)] = 102346,
+  [SMALL_STATE(4808)] = 102387,
+  [SMALL_STATE(4809)] = 102428,
+  [SMALL_STATE(4810)] = 102469,
+  [SMALL_STATE(4811)] = 102510,
+  [SMALL_STATE(4812)] = 102551,
+  [SMALL_STATE(4813)] = 102592,
+  [SMALL_STATE(4814)] = 102659,
+  [SMALL_STATE(4815)] = 102700,
+  [SMALL_STATE(4816)] = 102741,
+  [SMALL_STATE(4817)] = 102782,
+  [SMALL_STATE(4818)] = 102823,
+  [SMALL_STATE(4819)] = 102864,
+  [SMALL_STATE(4820)] = 102903,
+  [SMALL_STATE(4821)] = 102944,
+  [SMALL_STATE(4822)] = 102983,
+  [SMALL_STATE(4823)] = 103022,
+  [SMALL_STATE(4824)] = 103063,
+  [SMALL_STATE(4825)] = 103102,
+  [SMALL_STATE(4826)] = 103143,
+  [SMALL_STATE(4827)] = 103184,
+  [SMALL_STATE(4828)] = 103223,
+  [SMALL_STATE(4829)] = 103264,
+  [SMALL_STATE(4830)] = 103303,
+  [SMALL_STATE(4831)] = 103342,
+  [SMALL_STATE(4832)] = 103381,
+  [SMALL_STATE(4833)] = 103422,
+  [SMALL_STATE(4834)] = 103461,
+  [SMALL_STATE(4835)] = 103500,
+  [SMALL_STATE(4836)] = 103539,
+  [SMALL_STATE(4837)] = 103578,
+  [SMALL_STATE(4838)] = 103617,
+  [SMALL_STATE(4839)] = 103658,
+  [SMALL_STATE(4840)] = 103699,
+  [SMALL_STATE(4841)] = 103738,
+  [SMALL_STATE(4842)] = 103777,
+  [SMALL_STATE(4843)] = 103816,
+  [SMALL_STATE(4844)] = 103857,
+  [SMALL_STATE(4845)] = 103898,
+  [SMALL_STATE(4846)] = 103937,
+  [SMALL_STATE(4847)] = 103978,
+  [SMALL_STATE(4848)] = 104017,
+  [SMALL_STATE(4849)] = 104056,
+  [SMALL_STATE(4850)] = 104095,
+  [SMALL_STATE(4851)] = 104134,
+  [SMALL_STATE(4852)] = 104173,
+  [SMALL_STATE(4853)] = 104214,
+  [SMALL_STATE(4854)] = 104261,
+  [SMALL_STATE(4855)] = 104300,
+  [SMALL_STATE(4856)] = 104339,
+  [SMALL_STATE(4857)] = 104380,
+  [SMALL_STATE(4858)] = 104421,
+  [SMALL_STATE(4859)] = 104460,
+  [SMALL_STATE(4860)] = 104501,
+  [SMALL_STATE(4861)] = 104542,
+  [SMALL_STATE(4862)] = 104581,
+  [SMALL_STATE(4863)] = 104620,
+  [SMALL_STATE(4864)] = 104659,
+  [SMALL_STATE(4865)] = 104700,
+  [SMALL_STATE(4866)] = 104739,
+  [SMALL_STATE(4867)] = 104780,
+  [SMALL_STATE(4868)] = 104819,
+  [SMALL_STATE(4869)] = 104858,
+  [SMALL_STATE(4870)] = 104897,
+  [SMALL_STATE(4871)] = 104938,
+  [SMALL_STATE(4872)] = 104977,
+  [SMALL_STATE(4873)] = 105016,
+  [SMALL_STATE(4874)] = 105055,
+  [SMALL_STATE(4875)] = 105094,
+  [SMALL_STATE(4876)] = 105135,
+  [SMALL_STATE(4877)] = 105174,
+  [SMALL_STATE(4878)] = 105213,
+  [SMALL_STATE(4879)] = 105254,
+  [SMALL_STATE(4880)] = 105299,
+  [SMALL_STATE(4881)] = 105338,
+  [SMALL_STATE(4882)] = 105381,
+  [SMALL_STATE(4883)] = 105420,
+  [SMALL_STATE(4884)] = 105459,
+  [SMALL_STATE(4885)] = 105498,
+  [SMALL_STATE(4886)] = 105537,
+  [SMALL_STATE(4887)] = 105580,
+  [SMALL_STATE(4888)] = 105619,
+  [SMALL_STATE(4889)] = 105658,
+  [SMALL_STATE(4890)] = 105697,
+  [SMALL_STATE(4891)] = 105736,
+  [SMALL_STATE(4892)] = 105777,
+  [SMALL_STATE(4893)] = 105816,
+  [SMALL_STATE(4894)] = 105859,
+  [SMALL_STATE(4895)] = 105898,
+  [SMALL_STATE(4896)] = 105939,
+  [SMALL_STATE(4897)] = 105978,
+  [SMALL_STATE(4898)] = 106021,
+  [SMALL_STATE(4899)] = 106060,
+  [SMALL_STATE(4900)] = 106103,
+  [SMALL_STATE(4901)] = 106142,
+  [SMALL_STATE(4902)] = 106181,
+  [SMALL_STATE(4903)] = 106222,
+  [SMALL_STATE(4904)] = 106263,
+  [SMALL_STATE(4905)] = 106304,
+  [SMALL_STATE(4906)] = 106345,
+  [SMALL_STATE(4907)] = 106384,
+  [SMALL_STATE(4908)] = 106423,
+  [SMALL_STATE(4909)] = 106462,
+  [SMALL_STATE(4910)] = 106503,
+  [SMALL_STATE(4911)] = 106544,
+  [SMALL_STATE(4912)] = 106589,
+  [SMALL_STATE(4913)] = 106628,
+  [SMALL_STATE(4914)] = 106669,
+  [SMALL_STATE(4915)] = 106710,
+  [SMALL_STATE(4916)] = 106751,
+  [SMALL_STATE(4917)] = 106790,
+  [SMALL_STATE(4918)] = 106831,
+  [SMALL_STATE(4919)] = 106870,
+  [SMALL_STATE(4920)] = 106911,
+  [SMALL_STATE(4921)] = 106952,
+  [SMALL_STATE(4922)] = 106993,
   [SMALL_STATE(4923)] = 107034,
-  [SMALL_STATE(4924)] = 107073,
-  [SMALL_STATE(4925)] = 107112,
-  [SMALL_STATE(4926)] = 107151,
-  [SMALL_STATE(4927)] = 107190,
-  [SMALL_STATE(4928)] = 107233,
-  [SMALL_STATE(4929)] = 107276,
-  [SMALL_STATE(4930)] = 107317,
+  [SMALL_STATE(4924)] = 107075,
+  [SMALL_STATE(4925)] = 107114,
+  [SMALL_STATE(4926)] = 107155,
+  [SMALL_STATE(4927)] = 107196,
+  [SMALL_STATE(4928)] = 107237,
+  [SMALL_STATE(4929)] = 107278,
+  [SMALL_STATE(4930)] = 107319,
   [SMALL_STATE(4931)] = 107358,
-  [SMALL_STATE(4932)] = 107399,
-  [SMALL_STATE(4933)] = 107440,
-  [SMALL_STATE(4934)] = 107481,
+  [SMALL_STATE(4932)] = 107397,
+  [SMALL_STATE(4933)] = 107438,
+  [SMALL_STATE(4934)] = 107479,
   [SMALL_STATE(4935)] = 107520,
   [SMALL_STATE(4936)] = 107558,
   [SMALL_STATE(4937)] = 107596,
@@ -632787,298 +632617,298 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(4946)] = 107938,
   [SMALL_STATE(4947)] = 107976,
   [SMALL_STATE(4948)] = 108014,
-  [SMALL_STATE(4949)] = 108052,
-  [SMALL_STATE(4950)] = 108090,
-  [SMALL_STATE(4951)] = 108128,
-  [SMALL_STATE(4952)] = 108166,
-  [SMALL_STATE(4953)] = 108204,
-  [SMALL_STATE(4954)] = 108242,
-  [SMALL_STATE(4955)] = 108280,
-  [SMALL_STATE(4956)] = 108318,
-  [SMALL_STATE(4957)] = 108356,
-  [SMALL_STATE(4958)] = 108400,
-  [SMALL_STATE(4959)] = 108438,
-  [SMALL_STATE(4960)] = 108484,
-  [SMALL_STATE(4961)] = 108548,
-  [SMALL_STATE(4962)] = 108586,
-  [SMALL_STATE(4963)] = 108624,
-  [SMALL_STATE(4964)] = 108662,
-  [SMALL_STATE(4965)] = 108700,
-  [SMALL_STATE(4966)] = 108738,
-  [SMALL_STATE(4967)] = 108776,
-  [SMALL_STATE(4968)] = 108814,
-  [SMALL_STATE(4969)] = 108852,
-  [SMALL_STATE(4970)] = 108890,
-  [SMALL_STATE(4971)] = 108928,
-  [SMALL_STATE(4972)] = 108966,
-  [SMALL_STATE(4973)] = 109004,
-  [SMALL_STATE(4974)] = 109042,
-  [SMALL_STATE(4975)] = 109080,
-  [SMALL_STATE(4976)] = 109118,
-  [SMALL_STATE(4977)] = 109158,
-  [SMALL_STATE(4978)] = 109196,
-  [SMALL_STATE(4979)] = 109234,
-  [SMALL_STATE(4980)] = 109272,
-  [SMALL_STATE(4981)] = 109310,
-  [SMALL_STATE(4982)] = 109348,
-  [SMALL_STATE(4983)] = 109386,
-  [SMALL_STATE(4984)] = 109424,
-  [SMALL_STATE(4985)] = 109462,
-  [SMALL_STATE(4986)] = 109500,
-  [SMALL_STATE(4987)] = 109538,
-  [SMALL_STATE(4988)] = 109576,
-  [SMALL_STATE(4989)] = 109614,
-  [SMALL_STATE(4990)] = 109652,
-  [SMALL_STATE(4991)] = 109690,
-  [SMALL_STATE(4992)] = 109728,
-  [SMALL_STATE(4993)] = 109766,
-  [SMALL_STATE(4994)] = 109804,
-  [SMALL_STATE(4995)] = 109842,
-  [SMALL_STATE(4996)] = 109880,
-  [SMALL_STATE(4997)] = 109918,
-  [SMALL_STATE(4998)] = 109982,
-  [SMALL_STATE(4999)] = 110020,
-  [SMALL_STATE(5000)] = 110058,
-  [SMALL_STATE(5001)] = 110096,
-  [SMALL_STATE(5002)] = 110134,
-  [SMALL_STATE(5003)] = 110172,
-  [SMALL_STATE(5004)] = 110210,
-  [SMALL_STATE(5005)] = 110248,
-  [SMALL_STATE(5006)] = 110286,
-  [SMALL_STATE(5007)] = 110324,
-  [SMALL_STATE(5008)] = 110362,
-  [SMALL_STATE(5009)] = 110400,
-  [SMALL_STATE(5010)] = 110438,
-  [SMALL_STATE(5011)] = 110476,
-  [SMALL_STATE(5012)] = 110514,
-  [SMALL_STATE(5013)] = 110552,
-  [SMALL_STATE(5014)] = 110590,
-  [SMALL_STATE(5015)] = 110628,
-  [SMALL_STATE(5016)] = 110666,
-  [SMALL_STATE(5017)] = 110704,
-  [SMALL_STATE(5018)] = 110742,
-  [SMALL_STATE(5019)] = 110780,
-  [SMALL_STATE(5020)] = 110818,
-  [SMALL_STATE(5021)] = 110856,
-  [SMALL_STATE(5022)] = 110894,
-  [SMALL_STATE(5023)] = 110932,
-  [SMALL_STATE(5024)] = 110970,
-  [SMALL_STATE(5025)] = 111008,
-  [SMALL_STATE(5026)] = 111046,
-  [SMALL_STATE(5027)] = 111084,
-  [SMALL_STATE(5028)] = 111122,
-  [SMALL_STATE(5029)] = 111160,
-  [SMALL_STATE(5030)] = 111198,
-  [SMALL_STATE(5031)] = 111236,
-  [SMALL_STATE(5032)] = 111276,
-  [SMALL_STATE(5033)] = 111314,
-  [SMALL_STATE(5034)] = 111352,
-  [SMALL_STATE(5035)] = 111392,
-  [SMALL_STATE(5036)] = 111444,
-  [SMALL_STATE(5037)] = 111482,
-  [SMALL_STATE(5038)] = 111520,
-  [SMALL_STATE(5039)] = 111558,
-  [SMALL_STATE(5040)] = 111596,
-  [SMALL_STATE(5041)] = 111634,
-  [SMALL_STATE(5042)] = 111672,
-  [SMALL_STATE(5043)] = 111710,
-  [SMALL_STATE(5044)] = 111748,
-  [SMALL_STATE(5045)] = 111786,
-  [SMALL_STATE(5046)] = 111824,
-  [SMALL_STATE(5047)] = 111862,
-  [SMALL_STATE(5048)] = 111900,
-  [SMALL_STATE(5049)] = 111938,
-  [SMALL_STATE(5050)] = 111976,
-  [SMALL_STATE(5051)] = 112014,
-  [SMALL_STATE(5052)] = 112052,
-  [SMALL_STATE(5053)] = 112090,
-  [SMALL_STATE(5054)] = 112130,
-  [SMALL_STATE(5055)] = 112170,
-  [SMALL_STATE(5056)] = 112208,
-  [SMALL_STATE(5057)] = 112246,
-  [SMALL_STATE(5058)] = 112284,
-  [SMALL_STATE(5059)] = 112322,
-  [SMALL_STATE(5060)] = 112360,
-  [SMALL_STATE(5061)] = 112398,
-  [SMALL_STATE(5062)] = 112436,
-  [SMALL_STATE(5063)] = 112474,
-  [SMALL_STATE(5064)] = 112512,
-  [SMALL_STATE(5065)] = 112550,
-  [SMALL_STATE(5066)] = 112588,
-  [SMALL_STATE(5067)] = 112626,
-  [SMALL_STATE(5068)] = 112664,
-  [SMALL_STATE(5069)] = 112702,
-  [SMALL_STATE(5070)] = 112740,
-  [SMALL_STATE(5071)] = 112778,
-  [SMALL_STATE(5072)] = 112816,
-  [SMALL_STATE(5073)] = 112854,
-  [SMALL_STATE(5074)] = 112892,
-  [SMALL_STATE(5075)] = 112930,
-  [SMALL_STATE(5076)] = 112968,
-  [SMALL_STATE(5077)] = 113006,
-  [SMALL_STATE(5078)] = 113044,
-  [SMALL_STATE(5079)] = 113082,
-  [SMALL_STATE(5080)] = 113120,
-  [SMALL_STATE(5081)] = 113158,
-  [SMALL_STATE(5082)] = 113196,
-  [SMALL_STATE(5083)] = 113234,
-  [SMALL_STATE(5084)] = 113272,
-  [SMALL_STATE(5085)] = 113310,
-  [SMALL_STATE(5086)] = 113348,
-  [SMALL_STATE(5087)] = 113386,
-  [SMALL_STATE(5088)] = 113424,
-  [SMALL_STATE(5089)] = 113462,
-  [SMALL_STATE(5090)] = 113500,
-  [SMALL_STATE(5091)] = 113538,
-  [SMALL_STATE(5092)] = 113576,
-  [SMALL_STATE(5093)] = 113616,
-  [SMALL_STATE(5094)] = 113654,
-  [SMALL_STATE(5095)] = 113692,
-  [SMALL_STATE(5096)] = 113756,
-  [SMALL_STATE(5097)] = 113820,
-  [SMALL_STATE(5098)] = 113858,
-  [SMALL_STATE(5099)] = 113922,
-  [SMALL_STATE(5100)] = 113960,
-  [SMALL_STATE(5101)] = 113998,
-  [SMALL_STATE(5102)] = 114036,
-  [SMALL_STATE(5103)] = 114074,
-  [SMALL_STATE(5104)] = 114112,
-  [SMALL_STATE(5105)] = 114150,
-  [SMALL_STATE(5106)] = 114188,
-  [SMALL_STATE(5107)] = 114226,
-  [SMALL_STATE(5108)] = 114264,
-  [SMALL_STATE(5109)] = 114304,
-  [SMALL_STATE(5110)] = 114342,
-  [SMALL_STATE(5111)] = 114382,
-  [SMALL_STATE(5112)] = 114422,
-  [SMALL_STATE(5113)] = 114460,
-  [SMALL_STATE(5114)] = 114498,
-  [SMALL_STATE(5115)] = 114536,
-  [SMALL_STATE(5116)] = 114574,
-  [SMALL_STATE(5117)] = 114612,
-  [SMALL_STATE(5118)] = 114650,
-  [SMALL_STATE(5119)] = 114688,
-  [SMALL_STATE(5120)] = 114726,
-  [SMALL_STATE(5121)] = 114764,
-  [SMALL_STATE(5122)] = 114802,
-  [SMALL_STATE(5123)] = 114840,
-  [SMALL_STATE(5124)] = 114878,
-  [SMALL_STATE(5125)] = 114916,
-  [SMALL_STATE(5126)] = 114954,
-  [SMALL_STATE(5127)] = 114992,
-  [SMALL_STATE(5128)] = 115030,
-  [SMALL_STATE(5129)] = 115068,
-  [SMALL_STATE(5130)] = 115106,
-  [SMALL_STATE(5131)] = 115144,
-  [SMALL_STATE(5132)] = 115182,
-  [SMALL_STATE(5133)] = 115222,
-  [SMALL_STATE(5134)] = 115260,
-  [SMALL_STATE(5135)] = 115298,
-  [SMALL_STATE(5136)] = 115336,
-  [SMALL_STATE(5137)] = 115374,
-  [SMALL_STATE(5138)] = 115412,
-  [SMALL_STATE(5139)] = 115450,
-  [SMALL_STATE(5140)] = 115488,
-  [SMALL_STATE(5141)] = 115526,
-  [SMALL_STATE(5142)] = 115564,
-  [SMALL_STATE(5143)] = 115602,
-  [SMALL_STATE(5144)] = 115640,
-  [SMALL_STATE(5145)] = 115678,
-  [SMALL_STATE(5146)] = 115718,
-  [SMALL_STATE(5147)] = 115756,
-  [SMALL_STATE(5148)] = 115794,
-  [SMALL_STATE(5149)] = 115832,
-  [SMALL_STATE(5150)] = 115870,
-  [SMALL_STATE(5151)] = 115934,
-  [SMALL_STATE(5152)] = 115972,
-  [SMALL_STATE(5153)] = 116010,
-  [SMALL_STATE(5154)] = 116048,
-  [SMALL_STATE(5155)] = 116086,
-  [SMALL_STATE(5156)] = 116150,
-  [SMALL_STATE(5157)] = 116188,
-  [SMALL_STATE(5158)] = 116226,
-  [SMALL_STATE(5159)] = 116264,
-  [SMALL_STATE(5160)] = 116302,
-  [SMALL_STATE(5161)] = 116366,
-  [SMALL_STATE(5162)] = 116404,
-  [SMALL_STATE(5163)] = 116442,
-  [SMALL_STATE(5164)] = 116506,
-  [SMALL_STATE(5165)] = 116570,
-  [SMALL_STATE(5166)] = 116608,
-  [SMALL_STATE(5167)] = 116646,
-  [SMALL_STATE(5168)] = 116686,
-  [SMALL_STATE(5169)] = 116724,
-  [SMALL_STATE(5170)] = 116762,
-  [SMALL_STATE(5171)] = 116800,
-  [SMALL_STATE(5172)] = 116838,
-  [SMALL_STATE(5173)] = 116876,
-  [SMALL_STATE(5174)] = 116914,
-  [SMALL_STATE(5175)] = 116952,
-  [SMALL_STATE(5176)] = 117016,
-  [SMALL_STATE(5177)] = 117054,
-  [SMALL_STATE(5178)] = 117092,
-  [SMALL_STATE(5179)] = 117130,
-  [SMALL_STATE(5180)] = 117168,
-  [SMALL_STATE(5181)] = 117206,
-  [SMALL_STATE(5182)] = 117244,
-  [SMALL_STATE(5183)] = 117282,
-  [SMALL_STATE(5184)] = 117320,
-  [SMALL_STATE(5185)] = 117358,
-  [SMALL_STATE(5186)] = 117396,
-  [SMALL_STATE(5187)] = 117434,
-  [SMALL_STATE(5188)] = 117472,
-  [SMALL_STATE(5189)] = 117510,
-  [SMALL_STATE(5190)] = 117548,
-  [SMALL_STATE(5191)] = 117586,
-  [SMALL_STATE(5192)] = 117624,
-  [SMALL_STATE(5193)] = 117662,
-  [SMALL_STATE(5194)] = 117700,
-  [SMALL_STATE(5195)] = 117738,
-  [SMALL_STATE(5196)] = 117776,
-  [SMALL_STATE(5197)] = 117814,
-  [SMALL_STATE(5198)] = 117852,
-  [SMALL_STATE(5199)] = 117890,
-  [SMALL_STATE(5200)] = 117928,
-  [SMALL_STATE(5201)] = 117966,
-  [SMALL_STATE(5202)] = 118004,
-  [SMALL_STATE(5203)] = 118042,
-  [SMALL_STATE(5204)] = 118106,
-  [SMALL_STATE(5205)] = 118144,
-  [SMALL_STATE(5206)] = 118182,
-  [SMALL_STATE(5207)] = 118220,
-  [SMALL_STATE(5208)] = 118284,
-  [SMALL_STATE(5209)] = 118348,
-  [SMALL_STATE(5210)] = 118386,
-  [SMALL_STATE(5211)] = 118424,
-  [SMALL_STATE(5212)] = 118462,
-  [SMALL_STATE(5213)] = 118500,
-  [SMALL_STATE(5214)] = 118538,
-  [SMALL_STATE(5215)] = 118576,
-  [SMALL_STATE(5216)] = 118614,
-  [SMALL_STATE(5217)] = 118652,
-  [SMALL_STATE(5218)] = 118690,
-  [SMALL_STATE(5219)] = 118728,
-  [SMALL_STATE(5220)] = 118766,
-  [SMALL_STATE(5221)] = 118804,
-  [SMALL_STATE(5222)] = 118842,
-  [SMALL_STATE(5223)] = 118880,
-  [SMALL_STATE(5224)] = 118918,
-  [SMALL_STATE(5225)] = 118956,
-  [SMALL_STATE(5226)] = 118994,
-  [SMALL_STATE(5227)] = 119032,
-  [SMALL_STATE(5228)] = 119070,
-  [SMALL_STATE(5229)] = 119108,
-  [SMALL_STATE(5230)] = 119146,
-  [SMALL_STATE(5231)] = 119186,
-  [SMALL_STATE(5232)] = 119224,
-  [SMALL_STATE(5233)] = 119262,
-  [SMALL_STATE(5234)] = 119300,
-  [SMALL_STATE(5235)] = 119338,
-  [SMALL_STATE(5236)] = 119378,
-  [SMALL_STATE(5237)] = 119416,
-  [SMALL_STATE(5238)] = 119454,
-  [SMALL_STATE(5239)] = 119492,
-  [SMALL_STATE(5240)] = 119536,
+  [SMALL_STATE(4949)] = 108054,
+  [SMALL_STATE(4950)] = 108094,
+  [SMALL_STATE(4951)] = 108132,
+  [SMALL_STATE(4952)] = 108170,
+  [SMALL_STATE(4953)] = 108208,
+  [SMALL_STATE(4954)] = 108246,
+  [SMALL_STATE(4955)] = 108284,
+  [SMALL_STATE(4956)] = 108322,
+  [SMALL_STATE(4957)] = 108360,
+  [SMALL_STATE(4958)] = 108398,
+  [SMALL_STATE(4959)] = 108442,
+  [SMALL_STATE(4960)] = 108488,
+  [SMALL_STATE(4961)] = 108526,
+  [SMALL_STATE(4962)] = 108564,
+  [SMALL_STATE(4963)] = 108602,
+  [SMALL_STATE(4964)] = 108640,
+  [SMALL_STATE(4965)] = 108678,
+  [SMALL_STATE(4966)] = 108716,
+  [SMALL_STATE(4967)] = 108754,
+  [SMALL_STATE(4968)] = 108792,
+  [SMALL_STATE(4969)] = 108830,
+  [SMALL_STATE(4970)] = 108868,
+  [SMALL_STATE(4971)] = 108906,
+  [SMALL_STATE(4972)] = 108946,
+  [SMALL_STATE(4973)] = 108984,
+  [SMALL_STATE(4974)] = 109022,
+  [SMALL_STATE(4975)] = 109060,
+  [SMALL_STATE(4976)] = 109098,
+  [SMALL_STATE(4977)] = 109136,
+  [SMALL_STATE(4978)] = 109174,
+  [SMALL_STATE(4979)] = 109212,
+  [SMALL_STATE(4980)] = 109250,
+  [SMALL_STATE(4981)] = 109288,
+  [SMALL_STATE(4982)] = 109326,
+  [SMALL_STATE(4983)] = 109364,
+  [SMALL_STATE(4984)] = 109402,
+  [SMALL_STATE(4985)] = 109442,
+  [SMALL_STATE(4986)] = 109480,
+  [SMALL_STATE(4987)] = 109518,
+  [SMALL_STATE(4988)] = 109556,
+  [SMALL_STATE(4989)] = 109594,
+  [SMALL_STATE(4990)] = 109658,
+  [SMALL_STATE(4991)] = 109722,
+  [SMALL_STATE(4992)] = 109786,
+  [SMALL_STATE(4993)] = 109824,
+  [SMALL_STATE(4994)] = 109862,
+  [SMALL_STATE(4995)] = 109900,
+  [SMALL_STATE(4996)] = 109938,
+  [SMALL_STATE(4997)] = 109976,
+  [SMALL_STATE(4998)] = 110040,
+  [SMALL_STATE(4999)] = 110078,
+  [SMALL_STATE(5000)] = 110116,
+  [SMALL_STATE(5001)] = 110154,
+  [SMALL_STATE(5002)] = 110192,
+  [SMALL_STATE(5003)] = 110230,
+  [SMALL_STATE(5004)] = 110268,
+  [SMALL_STATE(5005)] = 110308,
+  [SMALL_STATE(5006)] = 110346,
+  [SMALL_STATE(5007)] = 110398,
+  [SMALL_STATE(5008)] = 110436,
+  [SMALL_STATE(5009)] = 110474,
+  [SMALL_STATE(5010)] = 110512,
+  [SMALL_STATE(5011)] = 110550,
+  [SMALL_STATE(5012)] = 110588,
+  [SMALL_STATE(5013)] = 110626,
+  [SMALL_STATE(5014)] = 110664,
+  [SMALL_STATE(5015)] = 110702,
+  [SMALL_STATE(5016)] = 110740,
+  [SMALL_STATE(5017)] = 110778,
+  [SMALL_STATE(5018)] = 110818,
+  [SMALL_STATE(5019)] = 110856,
+  [SMALL_STATE(5020)] = 110894,
+  [SMALL_STATE(5021)] = 110932,
+  [SMALL_STATE(5022)] = 110970,
+  [SMALL_STATE(5023)] = 111008,
+  [SMALL_STATE(5024)] = 111046,
+  [SMALL_STATE(5025)] = 111084,
+  [SMALL_STATE(5026)] = 111122,
+  [SMALL_STATE(5027)] = 111160,
+  [SMALL_STATE(5028)] = 111200,
+  [SMALL_STATE(5029)] = 111238,
+  [SMALL_STATE(5030)] = 111276,
+  [SMALL_STATE(5031)] = 111314,
+  [SMALL_STATE(5032)] = 111352,
+  [SMALL_STATE(5033)] = 111390,
+  [SMALL_STATE(5034)] = 111428,
+  [SMALL_STATE(5035)] = 111492,
+  [SMALL_STATE(5036)] = 111556,
+  [SMALL_STATE(5037)] = 111594,
+  [SMALL_STATE(5038)] = 111632,
+  [SMALL_STATE(5039)] = 111670,
+  [SMALL_STATE(5040)] = 111708,
+  [SMALL_STATE(5041)] = 111746,
+  [SMALL_STATE(5042)] = 111784,
+  [SMALL_STATE(5043)] = 111822,
+  [SMALL_STATE(5044)] = 111860,
+  [SMALL_STATE(5045)] = 111898,
+  [SMALL_STATE(5046)] = 111936,
+  [SMALL_STATE(5047)] = 111974,
+  [SMALL_STATE(5048)] = 112012,
+  [SMALL_STATE(5049)] = 112050,
+  [SMALL_STATE(5050)] = 112088,
+  [SMALL_STATE(5051)] = 112126,
+  [SMALL_STATE(5052)] = 112164,
+  [SMALL_STATE(5053)] = 112204,
+  [SMALL_STATE(5054)] = 112242,
+  [SMALL_STATE(5055)] = 112280,
+  [SMALL_STATE(5056)] = 112318,
+  [SMALL_STATE(5057)] = 112356,
+  [SMALL_STATE(5058)] = 112394,
+  [SMALL_STATE(5059)] = 112432,
+  [SMALL_STATE(5060)] = 112470,
+  [SMALL_STATE(5061)] = 112510,
+  [SMALL_STATE(5062)] = 112574,
+  [SMALL_STATE(5063)] = 112612,
+  [SMALL_STATE(5064)] = 112650,
+  [SMALL_STATE(5065)] = 112688,
+  [SMALL_STATE(5066)] = 112726,
+  [SMALL_STATE(5067)] = 112764,
+  [SMALL_STATE(5068)] = 112802,
+  [SMALL_STATE(5069)] = 112840,
+  [SMALL_STATE(5070)] = 112878,
+  [SMALL_STATE(5071)] = 112916,
+  [SMALL_STATE(5072)] = 112956,
+  [SMALL_STATE(5073)] = 112994,
+  [SMALL_STATE(5074)] = 113032,
+  [SMALL_STATE(5075)] = 113070,
+  [SMALL_STATE(5076)] = 113134,
+  [SMALL_STATE(5077)] = 113172,
+  [SMALL_STATE(5078)] = 113210,
+  [SMALL_STATE(5079)] = 113248,
+  [SMALL_STATE(5080)] = 113288,
+  [SMALL_STATE(5081)] = 113332,
+  [SMALL_STATE(5082)] = 113370,
+  [SMALL_STATE(5083)] = 113408,
+  [SMALL_STATE(5084)] = 113446,
+  [SMALL_STATE(5085)] = 113484,
+  [SMALL_STATE(5086)] = 113522,
+  [SMALL_STATE(5087)] = 113560,
+  [SMALL_STATE(5088)] = 113598,
+  [SMALL_STATE(5089)] = 113662,
+  [SMALL_STATE(5090)] = 113700,
+  [SMALL_STATE(5091)] = 113738,
+  [SMALL_STATE(5092)] = 113776,
+  [SMALL_STATE(5093)] = 113814,
+  [SMALL_STATE(5094)] = 113878,
+  [SMALL_STATE(5095)] = 113916,
+  [SMALL_STATE(5096)] = 113954,
+  [SMALL_STATE(5097)] = 113992,
+  [SMALL_STATE(5098)] = 114030,
+  [SMALL_STATE(5099)] = 114068,
+  [SMALL_STATE(5100)] = 114106,
+  [SMALL_STATE(5101)] = 114144,
+  [SMALL_STATE(5102)] = 114182,
+  [SMALL_STATE(5103)] = 114220,
+  [SMALL_STATE(5104)] = 114258,
+  [SMALL_STATE(5105)] = 114296,
+  [SMALL_STATE(5106)] = 114334,
+  [SMALL_STATE(5107)] = 114372,
+  [SMALL_STATE(5108)] = 114410,
+  [SMALL_STATE(5109)] = 114448,
+  [SMALL_STATE(5110)] = 114486,
+  [SMALL_STATE(5111)] = 114524,
+  [SMALL_STATE(5112)] = 114562,
+  [SMALL_STATE(5113)] = 114600,
+  [SMALL_STATE(5114)] = 114638,
+  [SMALL_STATE(5115)] = 114676,
+  [SMALL_STATE(5116)] = 114714,
+  [SMALL_STATE(5117)] = 114752,
+  [SMALL_STATE(5118)] = 114790,
+  [SMALL_STATE(5119)] = 114828,
+  [SMALL_STATE(5120)] = 114866,
+  [SMALL_STATE(5121)] = 114904,
+  [SMALL_STATE(5122)] = 114942,
+  [SMALL_STATE(5123)] = 114980,
+  [SMALL_STATE(5124)] = 115018,
+  [SMALL_STATE(5125)] = 115056,
+  [SMALL_STATE(5126)] = 115094,
+  [SMALL_STATE(5127)] = 115132,
+  [SMALL_STATE(5128)] = 115196,
+  [SMALL_STATE(5129)] = 115236,
+  [SMALL_STATE(5130)] = 115300,
+  [SMALL_STATE(5131)] = 115338,
+  [SMALL_STATE(5132)] = 115376,
+  [SMALL_STATE(5133)] = 115414,
+  [SMALL_STATE(5134)] = 115452,
+  [SMALL_STATE(5135)] = 115490,
+  [SMALL_STATE(5136)] = 115528,
+  [SMALL_STATE(5137)] = 115566,
+  [SMALL_STATE(5138)] = 115604,
+  [SMALL_STATE(5139)] = 115642,
+  [SMALL_STATE(5140)] = 115680,
+  [SMALL_STATE(5141)] = 115718,
+  [SMALL_STATE(5142)] = 115756,
+  [SMALL_STATE(5143)] = 115820,
+  [SMALL_STATE(5144)] = 115858,
+  [SMALL_STATE(5145)] = 115896,
+  [SMALL_STATE(5146)] = 115934,
+  [SMALL_STATE(5147)] = 115972,
+  [SMALL_STATE(5148)] = 116010,
+  [SMALL_STATE(5149)] = 116048,
+  [SMALL_STATE(5150)] = 116086,
+  [SMALL_STATE(5151)] = 116124,
+  [SMALL_STATE(5152)] = 116162,
+  [SMALL_STATE(5153)] = 116200,
+  [SMALL_STATE(5154)] = 116238,
+  [SMALL_STATE(5155)] = 116276,
+  [SMALL_STATE(5156)] = 116314,
+  [SMALL_STATE(5157)] = 116352,
+  [SMALL_STATE(5158)] = 116390,
+  [SMALL_STATE(5159)] = 116428,
+  [SMALL_STATE(5160)] = 116466,
+  [SMALL_STATE(5161)] = 116504,
+  [SMALL_STATE(5162)] = 116542,
+  [SMALL_STATE(5163)] = 116580,
+  [SMALL_STATE(5164)] = 116618,
+  [SMALL_STATE(5165)] = 116656,
+  [SMALL_STATE(5166)] = 116694,
+  [SMALL_STATE(5167)] = 116732,
+  [SMALL_STATE(5168)] = 116770,
+  [SMALL_STATE(5169)] = 116808,
+  [SMALL_STATE(5170)] = 116846,
+  [SMALL_STATE(5171)] = 116886,
+  [SMALL_STATE(5172)] = 116924,
+  [SMALL_STATE(5173)] = 116962,
+  [SMALL_STATE(5174)] = 117000,
+  [SMALL_STATE(5175)] = 117038,
+  [SMALL_STATE(5176)] = 117076,
+  [SMALL_STATE(5177)] = 117114,
+  [SMALL_STATE(5178)] = 117152,
+  [SMALL_STATE(5179)] = 117190,
+  [SMALL_STATE(5180)] = 117228,
+  [SMALL_STATE(5181)] = 117266,
+  [SMALL_STATE(5182)] = 117304,
+  [SMALL_STATE(5183)] = 117342,
+  [SMALL_STATE(5184)] = 117380,
+  [SMALL_STATE(5185)] = 117418,
+  [SMALL_STATE(5186)] = 117456,
+  [SMALL_STATE(5187)] = 117494,
+  [SMALL_STATE(5188)] = 117532,
+  [SMALL_STATE(5189)] = 117570,
+  [SMALL_STATE(5190)] = 117608,
+  [SMALL_STATE(5191)] = 117646,
+  [SMALL_STATE(5192)] = 117684,
+  [SMALL_STATE(5193)] = 117722,
+  [SMALL_STATE(5194)] = 117760,
+  [SMALL_STATE(5195)] = 117798,
+  [SMALL_STATE(5196)] = 117836,
+  [SMALL_STATE(5197)] = 117874,
+  [SMALL_STATE(5198)] = 117912,
+  [SMALL_STATE(5199)] = 117950,
+  [SMALL_STATE(5200)] = 117988,
+  [SMALL_STATE(5201)] = 118026,
+  [SMALL_STATE(5202)] = 118064,
+  [SMALL_STATE(5203)] = 118102,
+  [SMALL_STATE(5204)] = 118140,
+  [SMALL_STATE(5205)] = 118178,
+  [SMALL_STATE(5206)] = 118216,
+  [SMALL_STATE(5207)] = 118254,
+  [SMALL_STATE(5208)] = 118292,
+  [SMALL_STATE(5209)] = 118330,
+  [SMALL_STATE(5210)] = 118368,
+  [SMALL_STATE(5211)] = 118406,
+  [SMALL_STATE(5212)] = 118444,
+  [SMALL_STATE(5213)] = 118482,
+  [SMALL_STATE(5214)] = 118520,
+  [SMALL_STATE(5215)] = 118558,
+  [SMALL_STATE(5216)] = 118596,
+  [SMALL_STATE(5217)] = 118634,
+  [SMALL_STATE(5218)] = 118672,
+  [SMALL_STATE(5219)] = 118710,
+  [SMALL_STATE(5220)] = 118774,
+  [SMALL_STATE(5221)] = 118814,
+  [SMALL_STATE(5222)] = 118854,
+  [SMALL_STATE(5223)] = 118892,
+  [SMALL_STATE(5224)] = 118930,
+  [SMALL_STATE(5225)] = 118968,
+  [SMALL_STATE(5226)] = 119006,
+  [SMALL_STATE(5227)] = 119044,
+  [SMALL_STATE(5228)] = 119082,
+  [SMALL_STATE(5229)] = 119120,
+  [SMALL_STATE(5230)] = 119158,
+  [SMALL_STATE(5231)] = 119196,
+  [SMALL_STATE(5232)] = 119234,
+  [SMALL_STATE(5233)] = 119272,
+  [SMALL_STATE(5234)] = 119310,
+  [SMALL_STATE(5235)] = 119348,
+  [SMALL_STATE(5236)] = 119386,
+  [SMALL_STATE(5237)] = 119424,
+  [SMALL_STATE(5238)] = 119462,
+  [SMALL_STATE(5239)] = 119500,
+  [SMALL_STATE(5240)] = 119538,
   [SMALL_STATE(5241)] = 119576,
   [SMALL_STATE(5242)] = 119614,
   [SMALL_STATE(5243)] = 119652,
@@ -633092,18 +632922,18 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(5251)] = 119964,
   [SMALL_STATE(5252)] = 120003,
   [SMALL_STATE(5253)] = 120042,
-  [SMALL_STATE(5254)] = 120083,
-  [SMALL_STATE(5255)] = 120122,
-  [SMALL_STATE(5256)] = 120161,
+  [SMALL_STATE(5254)] = 120081,
+  [SMALL_STATE(5255)] = 120120,
+  [SMALL_STATE(5256)] = 120163,
   [SMALL_STATE(5257)] = 120202,
-  [SMALL_STATE(5258)] = 120241,
-  [SMALL_STATE(5259)] = 120280,
-  [SMALL_STATE(5260)] = 120319,
-  [SMALL_STATE(5261)] = 120358,
-  [SMALL_STATE(5262)] = 120397,
-  [SMALL_STATE(5263)] = 120436,
-  [SMALL_STATE(5264)] = 120475,
-  [SMALL_STATE(5265)] = 120516,
+  [SMALL_STATE(5258)] = 120243,
+  [SMALL_STATE(5259)] = 120282,
+  [SMALL_STATE(5260)] = 120321,
+  [SMALL_STATE(5261)] = 120360,
+  [SMALL_STATE(5262)] = 120399,
+  [SMALL_STATE(5263)] = 120440,
+  [SMALL_STATE(5264)] = 120479,
+  [SMALL_STATE(5265)] = 120520,
   [SMALL_STATE(5266)] = 120559,
   [SMALL_STATE(5267)] = 120595,
   [SMALL_STATE(5268)] = 120631,
@@ -633148,41 +632978,41 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(5307)] = 122035,
   [SMALL_STATE(5308)] = 122071,
   [SMALL_STATE(5309)] = 122107,
-  [SMALL_STATE(5310)] = 122160,
-  [SMALL_STATE(5311)] = 122215,
-  [SMALL_STATE(5312)] = 122270,
+  [SMALL_STATE(5310)] = 122162,
+  [SMALL_STATE(5311)] = 122219,
+  [SMALL_STATE(5312)] = 122274,
   [SMALL_STATE(5313)] = 122327,
   [SMALL_STATE(5314)] = 122365,
   [SMALL_STATE(5315)] = 122429,
   [SMALL_STATE(5316)] = 122493,
   [SMALL_STATE(5317)] = 122557,
   [SMALL_STATE(5318)] = 122621,
-  [SMALL_STATE(5319)] = 122662,
+  [SMALL_STATE(5319)] = 122658,
   [SMALL_STATE(5320)] = 122699,
   [SMALL_STATE(5321)] = 122734,
-  [SMALL_STATE(5322)] = 122786,
-  [SMALL_STATE(5323)] = 122818,
-  [SMALL_STATE(5324)] = 122874,
-  [SMALL_STATE(5325)] = 122906,
-  [SMALL_STATE(5326)] = 122938,
-  [SMALL_STATE(5327)] = 122978,
+  [SMALL_STATE(5322)] = 122774,
+  [SMALL_STATE(5323)] = 122806,
+  [SMALL_STATE(5324)] = 122838,
+  [SMALL_STATE(5325)] = 122870,
+  [SMALL_STATE(5326)] = 122902,
+  [SMALL_STATE(5327)] = 122954,
   [SMALL_STATE(5328)] = 123010,
-  [SMALL_STATE(5329)] = 123059,
+  [SMALL_STATE(5329)] = 123041,
   [SMALL_STATE(5330)] = 123090,
-  [SMALL_STATE(5331)] = 123121,
-  [SMALL_STATE(5332)] = 123152,
-  [SMALL_STATE(5333)] = 123201,
+  [SMALL_STATE(5331)] = 123139,
+  [SMALL_STATE(5332)] = 123188,
+  [SMALL_STATE(5333)] = 123219,
   [SMALL_STATE(5334)] = 123250,
   [SMALL_STATE(5335)] = 123281,
-  [SMALL_STATE(5336)] = 123316,
+  [SMALL_STATE(5336)] = 123312,
   [SMALL_STATE(5337)] = 123347,
   [SMALL_STATE(5338)] = 123381,
   [SMALL_STATE(5339)] = 123413,
   [SMALL_STATE(5340)] = 123447,
   [SMALL_STATE(5341)] = 123481,
   [SMALL_STATE(5342)] = 123515,
-  [SMALL_STATE(5343)] = 123549,
-  [SMALL_STATE(5344)] = 123583,
+  [SMALL_STATE(5343)] = 123547,
+  [SMALL_STATE(5344)] = 123581,
   [SMALL_STATE(5345)] = 123615,
   [SMALL_STATE(5346)] = 123649,
   [SMALL_STATE(5347)] = 123681,
@@ -633191,178 +633021,178 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(5350)] = 123783,
   [SMALL_STATE(5351)] = 123812,
   [SMALL_STATE(5352)] = 123841,
-  [SMALL_STATE(5353)] = 123870,
-  [SMALL_STATE(5354)] = 123919,
-  [SMALL_STATE(5355)] = 123968,
-  [SMALL_STATE(5356)] = 124023,
-  [SMALL_STATE(5357)] = 124052,
-  [SMALL_STATE(5358)] = 124081,
+  [SMALL_STATE(5353)] = 123890,
+  [SMALL_STATE(5354)] = 123939,
+  [SMALL_STATE(5355)] = 123988,
+  [SMALL_STATE(5356)] = 124043,
+  [SMALL_STATE(5357)] = 124072,
+  [SMALL_STATE(5358)] = 124101,
   [SMALL_STATE(5359)] = 124130,
-  [SMALL_STATE(5360)] = 124179,
-  [SMALL_STATE(5361)] = 124228,
-  [SMALL_STATE(5362)] = 124257,
-  [SMALL_STATE(5363)] = 124286,
-  [SMALL_STATE(5364)] = 124315,
-  [SMALL_STATE(5365)] = 124344,
-  [SMALL_STATE(5366)] = 124373,
-  [SMALL_STATE(5367)] = 124402,
-  [SMALL_STATE(5368)] = 124451,
-  [SMALL_STATE(5369)] = 124480,
-  [SMALL_STATE(5370)] = 124509,
-  [SMALL_STATE(5371)] = 124538,
-  [SMALL_STATE(5372)] = 124587,
-  [SMALL_STATE(5373)] = 124616,
-  [SMALL_STATE(5374)] = 124645,
-  [SMALL_STATE(5375)] = 124694,
-  [SMALL_STATE(5376)] = 124723,
-  [SMALL_STATE(5377)] = 124752,
-  [SMALL_STATE(5378)] = 124781,
-  [SMALL_STATE(5379)] = 124810,
-  [SMALL_STATE(5380)] = 124865,
-  [SMALL_STATE(5381)] = 124894,
-  [SMALL_STATE(5382)] = 124923,
-  [SMALL_STATE(5383)] = 124952,
-  [SMALL_STATE(5384)] = 124981,
-  [SMALL_STATE(5385)] = 125010,
-  [SMALL_STATE(5386)] = 125059,
-  [SMALL_STATE(5387)] = 125108,
-  [SMALL_STATE(5388)] = 125137,
-  [SMALL_STATE(5389)] = 125182,
-  [SMALL_STATE(5390)] = 125211,
-  [SMALL_STATE(5391)] = 125240,
-  [SMALL_STATE(5392)] = 125269,
-  [SMALL_STATE(5393)] = 125298,
-  [SMALL_STATE(5394)] = 125327,
-  [SMALL_STATE(5395)] = 125372,
-  [SMALL_STATE(5396)] = 125421,
-  [SMALL_STATE(5397)] = 125466,
+  [SMALL_STATE(5360)] = 124159,
+  [SMALL_STATE(5361)] = 124188,
+  [SMALL_STATE(5362)] = 124217,
+  [SMALL_STATE(5363)] = 124246,
+  [SMALL_STATE(5364)] = 124275,
+  [SMALL_STATE(5365)] = 124304,
+  [SMALL_STATE(5366)] = 124333,
+  [SMALL_STATE(5367)] = 124362,
+  [SMALL_STATE(5368)] = 124391,
+  [SMALL_STATE(5369)] = 124440,
+  [SMALL_STATE(5370)] = 124469,
+  [SMALL_STATE(5371)] = 124498,
+  [SMALL_STATE(5372)] = 124527,
+  [SMALL_STATE(5373)] = 124556,
+  [SMALL_STATE(5374)] = 124585,
+  [SMALL_STATE(5375)] = 124614,
+  [SMALL_STATE(5376)] = 124663,
+  [SMALL_STATE(5377)] = 124708,
+  [SMALL_STATE(5378)] = 124737,
+  [SMALL_STATE(5379)] = 124782,
+  [SMALL_STATE(5380)] = 124811,
+  [SMALL_STATE(5381)] = 124840,
+  [SMALL_STATE(5382)] = 124869,
+  [SMALL_STATE(5383)] = 124924,
+  [SMALL_STATE(5384)] = 124953,
+  [SMALL_STATE(5385)] = 125002,
+  [SMALL_STATE(5386)] = 125051,
+  [SMALL_STATE(5387)] = 125080,
+  [SMALL_STATE(5388)] = 125129,
+  [SMALL_STATE(5389)] = 125158,
+  [SMALL_STATE(5390)] = 125187,
+  [SMALL_STATE(5391)] = 125236,
+  [SMALL_STATE(5392)] = 125285,
+  [SMALL_STATE(5393)] = 125314,
+  [SMALL_STATE(5394)] = 125359,
+  [SMALL_STATE(5395)] = 125414,
+  [SMALL_STATE(5396)] = 125443,
+  [SMALL_STATE(5397)] = 125472,
   [SMALL_STATE(5398)] = 125521,
   [SMALL_STATE(5399)] = 125550,
-  [SMALL_STATE(5400)] = 125598,
+  [SMALL_STATE(5400)] = 125578,
   [SMALL_STATE(5401)] = 125626,
-  [SMALL_STATE(5402)] = 125660,
-  [SMALL_STATE(5403)] = 125708,
-  [SMALL_STATE(5404)] = 125756,
-  [SMALL_STATE(5405)] = 125794,
-  [SMALL_STATE(5406)] = 125822,
-  [SMALL_STATE(5407)] = 125870,
-  [SMALL_STATE(5408)] = 125918,
-  [SMALL_STATE(5409)] = 125946,
-  [SMALL_STATE(5410)] = 125994,
-  [SMALL_STATE(5411)] = 126022,
-  [SMALL_STATE(5412)] = 126070,
-  [SMALL_STATE(5413)] = 126118,
-  [SMALL_STATE(5414)] = 126150,
-  [SMALL_STATE(5415)] = 126178,
-  [SMALL_STATE(5416)] = 126206,
-  [SMALL_STATE(5417)] = 126234,
-  [SMALL_STATE(5418)] = 126262,
-  [SMALL_STATE(5419)] = 126290,
-  [SMALL_STATE(5420)] = 126318,
-  [SMALL_STATE(5421)] = 126346,
-  [SMALL_STATE(5422)] = 126374,
-  [SMALL_STATE(5423)] = 126402,
-  [SMALL_STATE(5424)] = 126450,
-  [SMALL_STATE(5425)] = 126478,
-  [SMALL_STATE(5426)] = 126506,
-  [SMALL_STATE(5427)] = 126534,
-  [SMALL_STATE(5428)] = 126582,
-  [SMALL_STATE(5429)] = 126610,
-  [SMALL_STATE(5430)] = 126660,
-  [SMALL_STATE(5431)] = 126708,
-  [SMALL_STATE(5432)] = 126736,
-  [SMALL_STATE(5433)] = 126784,
-  [SMALL_STATE(5434)] = 126832,
-  [SMALL_STATE(5435)] = 126880,
-  [SMALL_STATE(5436)] = 126928,
-  [SMALL_STATE(5437)] = 126976,
-  [SMALL_STATE(5438)] = 127024,
-  [SMALL_STATE(5439)] = 127052,
-  [SMALL_STATE(5440)] = 127100,
-  [SMALL_STATE(5441)] = 127142,
-  [SMALL_STATE(5442)] = 127190,
-  [SMALL_STATE(5443)] = 127230,
-  [SMALL_STATE(5444)] = 127274,
-  [SMALL_STATE(5445)] = 127322,
-  [SMALL_STATE(5446)] = 127370,
-  [SMALL_STATE(5447)] = 127418,
-  [SMALL_STATE(5448)] = 127466,
-  [SMALL_STATE(5449)] = 127494,
-  [SMALL_STATE(5450)] = 127522,
-  [SMALL_STATE(5451)] = 127570,
-  [SMALL_STATE(5452)] = 127616,
-  [SMALL_STATE(5453)] = 127664,
-  [SMALL_STATE(5454)] = 127712,
-  [SMALL_STATE(5455)] = 127760,
-  [SMALL_STATE(5456)] = 127808,
-  [SMALL_STATE(5457)] = 127856,
-  [SMALL_STATE(5458)] = 127904,
-  [SMALL_STATE(5459)] = 127952,
-  [SMALL_STATE(5460)] = 128000,
-  [SMALL_STATE(5461)] = 128048,
-  [SMALL_STATE(5462)] = 128096,
-  [SMALL_STATE(5463)] = 128144,
-  [SMALL_STATE(5464)] = 128192,
-  [SMALL_STATE(5465)] = 128240,
-  [SMALL_STATE(5466)] = 128288,
-  [SMALL_STATE(5467)] = 128336,
-  [SMALL_STATE(5468)] = 128384,
-  [SMALL_STATE(5469)] = 128432,
-  [SMALL_STATE(5470)] = 128460,
-  [SMALL_STATE(5471)] = 128488,
-  [SMALL_STATE(5472)] = 128518,
-  [SMALL_STATE(5473)] = 128546,
-  [SMALL_STATE(5474)] = 128594,
-  [SMALL_STATE(5475)] = 128642,
-  [SMALL_STATE(5476)] = 128688,
-  [SMALL_STATE(5477)] = 128734,
-  [SMALL_STATE(5478)] = 128778,
+  [SMALL_STATE(5402)] = 125654,
+  [SMALL_STATE(5403)] = 125702,
+  [SMALL_STATE(5404)] = 125730,
+  [SMALL_STATE(5405)] = 125762,
+  [SMALL_STATE(5406)] = 125810,
+  [SMALL_STATE(5407)] = 125844,
+  [SMALL_STATE(5408)] = 125882,
+  [SMALL_STATE(5409)] = 125924,
+  [SMALL_STATE(5410)] = 125972,
+  [SMALL_STATE(5411)] = 126020,
+  [SMALL_STATE(5412)] = 126064,
+  [SMALL_STATE(5413)] = 126112,
+  [SMALL_STATE(5414)] = 126140,
+  [SMALL_STATE(5415)] = 126186,
+  [SMALL_STATE(5416)] = 126232,
+  [SMALL_STATE(5417)] = 126280,
+  [SMALL_STATE(5418)] = 126308,
+  [SMALL_STATE(5419)] = 126338,
+  [SMALL_STATE(5420)] = 126388,
+  [SMALL_STATE(5421)] = 126416,
+  [SMALL_STATE(5422)] = 126444,
+  [SMALL_STATE(5423)] = 126492,
+  [SMALL_STATE(5424)] = 126540,
+  [SMALL_STATE(5425)] = 126588,
+  [SMALL_STATE(5426)] = 126636,
+  [SMALL_STATE(5427)] = 126684,
+  [SMALL_STATE(5428)] = 126712,
+  [SMALL_STATE(5429)] = 126740,
+  [SMALL_STATE(5430)] = 126788,
+  [SMALL_STATE(5431)] = 126816,
+  [SMALL_STATE(5432)] = 126864,
+  [SMALL_STATE(5433)] = 126912,
+  [SMALL_STATE(5434)] = 126960,
+  [SMALL_STATE(5435)] = 127008,
+  [SMALL_STATE(5436)] = 127036,
+  [SMALL_STATE(5437)] = 127064,
+  [SMALL_STATE(5438)] = 127092,
+  [SMALL_STATE(5439)] = 127120,
+  [SMALL_STATE(5440)] = 127168,
+  [SMALL_STATE(5441)] = 127216,
+  [SMALL_STATE(5442)] = 127244,
+  [SMALL_STATE(5443)] = 127272,
+  [SMALL_STATE(5444)] = 127320,
+  [SMALL_STATE(5445)] = 127368,
+  [SMALL_STATE(5446)] = 127416,
+  [SMALL_STATE(5447)] = 127444,
+  [SMALL_STATE(5448)] = 127492,
+  [SMALL_STATE(5449)] = 127520,
+  [SMALL_STATE(5450)] = 127548,
+  [SMALL_STATE(5451)] = 127576,
+  [SMALL_STATE(5452)] = 127624,
+  [SMALL_STATE(5453)] = 127672,
+  [SMALL_STATE(5454)] = 127720,
+  [SMALL_STATE(5455)] = 127748,
+  [SMALL_STATE(5456)] = 127796,
+  [SMALL_STATE(5457)] = 127844,
+  [SMALL_STATE(5458)] = 127892,
+  [SMALL_STATE(5459)] = 127920,
+  [SMALL_STATE(5460)] = 127948,
+  [SMALL_STATE(5461)] = 127996,
+  [SMALL_STATE(5462)] = 128044,
+  [SMALL_STATE(5463)] = 128092,
+  [SMALL_STATE(5464)] = 128140,
+  [SMALL_STATE(5465)] = 128188,
+  [SMALL_STATE(5466)] = 128236,
+  [SMALL_STATE(5467)] = 128284,
+  [SMALL_STATE(5468)] = 128332,
+  [SMALL_STATE(5469)] = 128380,
+  [SMALL_STATE(5470)] = 128428,
+  [SMALL_STATE(5471)] = 128476,
+  [SMALL_STATE(5472)] = 128524,
+  [SMALL_STATE(5473)] = 128572,
+  [SMALL_STATE(5474)] = 128620,
+  [SMALL_STATE(5475)] = 128668,
+  [SMALL_STATE(5476)] = 128696,
+  [SMALL_STATE(5477)] = 128744,
+  [SMALL_STATE(5478)] = 128772,
   [SMALL_STATE(5479)] = 128820,
-  [SMALL_STATE(5480)] = 128858,
-  [SMALL_STATE(5481)] = 128892,
-  [SMALL_STATE(5482)] = 128940,
-  [SMALL_STATE(5483)] = 128972,
+  [SMALL_STATE(5480)] = 128848,
+  [SMALL_STATE(5481)] = 128876,
+  [SMALL_STATE(5482)] = 128904,
+  [SMALL_STATE(5483)] = 128952,
   [SMALL_STATE(5484)] = 129000,
-  [SMALL_STATE(5485)] = 129028,
-  [SMALL_STATE(5486)] = 129076,
-  [SMALL_STATE(5487)] = 129124,
-  [SMALL_STATE(5488)] = 129172,
-  [SMALL_STATE(5489)] = 129220,
-  [SMALL_STATE(5490)] = 129248,
-  [SMALL_STATE(5491)] = 129296,
-  [SMALL_STATE(5492)] = 129344,
-  [SMALL_STATE(5493)] = 129374,
-  [SMALL_STATE(5494)] = 129410,
-  [SMALL_STATE(5495)] = 129438,
-  [SMALL_STATE(5496)] = 129486,
-  [SMALL_STATE(5497)] = 129514,
-  [SMALL_STATE(5498)] = 129562,
-  [SMALL_STATE(5499)] = 129590,
+  [SMALL_STATE(5485)] = 129048,
+  [SMALL_STATE(5486)] = 129096,
+  [SMALL_STATE(5487)] = 129128,
+  [SMALL_STATE(5488)] = 129162,
+  [SMALL_STATE(5489)] = 129198,
+  [SMALL_STATE(5490)] = 129236,
+  [SMALL_STATE(5491)] = 129276,
+  [SMALL_STATE(5492)] = 129318,
+  [SMALL_STATE(5493)] = 129362,
+  [SMALL_STATE(5494)] = 129408,
+  [SMALL_STATE(5495)] = 129436,
+  [SMALL_STATE(5496)] = 129466,
+  [SMALL_STATE(5497)] = 129494,
+  [SMALL_STATE(5498)] = 129522,
+  [SMALL_STATE(5499)] = 129570,
   [SMALL_STATE(5500)] = 129618,
   [SMALL_STATE(5501)] = 129646,
   [SMALL_STATE(5502)] = 129691,
   [SMALL_STATE(5503)] = 129736,
   [SMALL_STATE(5504)] = 129781,
-  [SMALL_STATE(5505)] = 129826,
-  [SMALL_STATE(5506)] = 129871,
-  [SMALL_STATE(5507)] = 129916,
-  [SMALL_STATE(5508)] = 129961,
-  [SMALL_STATE(5509)] = 130006,
-  [SMALL_STATE(5510)] = 130051,
-  [SMALL_STATE(5511)] = 130096,
+  [SMALL_STATE(5505)] = 129824,
+  [SMALL_STATE(5506)] = 129869,
+  [SMALL_STATE(5507)] = 129914,
+  [SMALL_STATE(5508)] = 129959,
+  [SMALL_STATE(5509)] = 130004,
+  [SMALL_STATE(5510)] = 130049,
+  [SMALL_STATE(5511)] = 130094,
   [SMALL_STATE(5512)] = 130139,
-  [SMALL_STATE(5513)] = 130180,
-  [SMALL_STATE(5514)] = 130225,
-  [SMALL_STATE(5515)] = 130274,
-  [SMALL_STATE(5516)] = 130319,
+  [SMALL_STATE(5513)] = 130184,
+  [SMALL_STATE(5514)] = 130229,
+  [SMALL_STATE(5515)] = 130270,
+  [SMALL_STATE(5516)] = 130315,
   [SMALL_STATE(5517)] = 130360,
   [SMALL_STATE(5518)] = 130405,
-  [SMALL_STATE(5519)] = 130450,
-  [SMALL_STATE(5520)] = 130493,
-  [SMALL_STATE(5521)] = 130538,
-  [SMALL_STATE(5522)] = 130583,
-  [SMALL_STATE(5523)] = 130628,
-  [SMALL_STATE(5524)] = 130673,
+  [SMALL_STATE(5519)] = 130454,
+  [SMALL_STATE(5520)] = 130499,
+  [SMALL_STATE(5521)] = 130544,
+  [SMALL_STATE(5522)] = 130589,
+  [SMALL_STATE(5523)] = 130634,
+  [SMALL_STATE(5524)] = 130677,
   [SMALL_STATE(5525)] = 130722,
   [SMALL_STATE(5526)] = 130767,
   [SMALL_STATE(5527)] = 130812,
@@ -633371,8 +633201,8 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(5530)] = 130947,
   [SMALL_STATE(5531)] = 130992,
   [SMALL_STATE(5532)] = 131037,
-  [SMALL_STATE(5533)] = 131082,
-  [SMALL_STATE(5534)] = 131127,
+  [SMALL_STATE(5533)] = 131078,
+  [SMALL_STATE(5534)] = 131123,
   [SMALL_STATE(5535)] = 131172,
   [SMALL_STATE(5536)] = 131217,
   [SMALL_STATE(5537)] = 131262,
@@ -633397,11501 +633227,11396 @@ static const uint32_t ts_small_parse_table_map[] = {
   [SMALL_STATE(5556)] = 131947,
   [SMALL_STATE(5557)] = 131972,
   [SMALL_STATE(5558)] = 131997,
-  [SMALL_STATE(5559)] = 132023,
-  [SMALL_STATE(5560)] = 132049,
-  [SMALL_STATE(5561)] = 132083,
-  [SMALL_STATE(5562)] = 132109,
-  [SMALL_STATE(5563)] = 132135,
-  [SMALL_STATE(5564)] = 132169,
-  [SMALL_STATE(5565)] = 132203,
+  [SMALL_STATE(5559)] = 132031,
+  [SMALL_STATE(5560)] = 132065,
+  [SMALL_STATE(5561)] = 132091,
+  [SMALL_STATE(5562)] = 132117,
+  [SMALL_STATE(5563)] = 132143,
+  [SMALL_STATE(5564)] = 132177,
+  [SMALL_STATE(5565)] = 132211,
   [SMALL_STATE(5566)] = 132237,
   [SMALL_STATE(5567)] = 132263,
   [SMALL_STATE(5568)] = 132297,
   [SMALL_STATE(5569)] = 132323,
-  [SMALL_STATE(5570)] = 132357,
+  [SMALL_STATE(5570)] = 132349,
   [SMALL_STATE(5571)] = 132383,
-  [SMALL_STATE(5572)] = 132409,
+  [SMALL_STATE(5572)] = 132417,
   [SMALL_STATE(5573)] = 132443,
   [SMALL_STATE(5574)] = 132480,
-  [SMALL_STATE(5575)] = 132513,
-  [SMALL_STATE(5576)] = 132546,
-  [SMALL_STATE(5577)] = 132579,
-  [SMALL_STATE(5578)] = 132602,
-  [SMALL_STATE(5579)] = 132639,
-  [SMALL_STATE(5580)] = 132676,
-  [SMALL_STATE(5581)] = 132709,
-  [SMALL_STATE(5582)] = 132746,
-  [SMALL_STATE(5583)] = 132783,
-  [SMALL_STATE(5584)] = 132816,
-  [SMALL_STATE(5585)] = 132853,
-  [SMALL_STATE(5586)] = 132886,
-  [SMALL_STATE(5587)] = 132923,
-  [SMALL_STATE(5588)] = 132956,
-  [SMALL_STATE(5589)] = 132989,
-  [SMALL_STATE(5590)] = 133012,
-  [SMALL_STATE(5591)] = 133045,
-  [SMALL_STATE(5592)] = 133070,
-  [SMALL_STATE(5593)] = 133095,
-  [SMALL_STATE(5594)] = 133132,
-  [SMALL_STATE(5595)] = 133165,
-  [SMALL_STATE(5596)] = 133190,
-  [SMALL_STATE(5597)] = 133227,
-  [SMALL_STATE(5598)] = 133252,
-  [SMALL_STATE(5599)] = 133277,
-  [SMALL_STATE(5600)] = 133310,
-  [SMALL_STATE(5601)] = 133333,
-  [SMALL_STATE(5602)] = 133358,
-  [SMALL_STATE(5603)] = 133395,
-  [SMALL_STATE(5604)] = 133420,
-  [SMALL_STATE(5605)] = 133457,
-  [SMALL_STATE(5606)] = 133480,
-  [SMALL_STATE(5607)] = 133517,
-  [SMALL_STATE(5608)] = 133554,
-  [SMALL_STATE(5609)] = 133579,
-  [SMALL_STATE(5610)] = 133602,
-  [SMALL_STATE(5611)] = 133627,
-  [SMALL_STATE(5612)] = 133664,
-  [SMALL_STATE(5613)] = 133701,
-  [SMALL_STATE(5614)] = 133738,
-  [SMALL_STATE(5615)] = 133763,
-  [SMALL_STATE(5616)] = 133796,
-  [SMALL_STATE(5617)] = 133833,
-  [SMALL_STATE(5618)] = 133866,
-  [SMALL_STATE(5619)] = 133903,
-  [SMALL_STATE(5620)] = 133936,
-  [SMALL_STATE(5621)] = 133973,
-  [SMALL_STATE(5622)] = 134010,
-  [SMALL_STATE(5623)] = 134047,
-  [SMALL_STATE(5624)] = 134080,
-  [SMALL_STATE(5625)] = 134117,
-  [SMALL_STATE(5626)] = 134150,
-  [SMALL_STATE(5627)] = 134173,
-  [SMALL_STATE(5628)] = 134210,
-  [SMALL_STATE(5629)] = 134243,
-  [SMALL_STATE(5630)] = 134276,
-  [SMALL_STATE(5631)] = 134309,
-  [SMALL_STATE(5632)] = 134346,
-  [SMALL_STATE(5633)] = 134383,
-  [SMALL_STATE(5634)] = 134420,
-  [SMALL_STATE(5635)] = 134457,
-  [SMALL_STATE(5636)] = 134490,
-  [SMALL_STATE(5637)] = 134527,
-  [SMALL_STATE(5638)] = 134564,
-  [SMALL_STATE(5639)] = 134601,
-  [SMALL_STATE(5640)] = 134624,
-  [SMALL_STATE(5641)] = 134657,
-  [SMALL_STATE(5642)] = 134690,
-  [SMALL_STATE(5643)] = 134727,
-  [SMALL_STATE(5644)] = 134764,
-  [SMALL_STATE(5645)] = 134789,
-  [SMALL_STATE(5646)] = 134820,
-  [SMALL_STATE(5647)] = 134853,
-  [SMALL_STATE(5648)] = 134876,
-  [SMALL_STATE(5649)] = 134909,
-  [SMALL_STATE(5650)] = 134942,
+  [SMALL_STATE(5575)] = 132503,
+  [SMALL_STATE(5576)] = 132536,
+  [SMALL_STATE(5577)] = 132573,
+  [SMALL_STATE(5578)] = 132598,
+  [SMALL_STATE(5579)] = 132631,
+  [SMALL_STATE(5580)] = 132656,
+  [SMALL_STATE(5581)] = 132681,
+  [SMALL_STATE(5582)] = 132718,
+  [SMALL_STATE(5583)] = 132751,
+  [SMALL_STATE(5584)] = 132776,
+  [SMALL_STATE(5585)] = 132801,
+  [SMALL_STATE(5586)] = 132834,
+  [SMALL_STATE(5587)] = 132867,
+  [SMALL_STATE(5588)] = 132900,
+  [SMALL_STATE(5589)] = 132933,
+  [SMALL_STATE(5590)] = 132966,
+  [SMALL_STATE(5591)] = 133003,
+  [SMALL_STATE(5592)] = 133028,
+  [SMALL_STATE(5593)] = 133065,
+  [SMALL_STATE(5594)] = 133102,
+  [SMALL_STATE(5595)] = 133135,
+  [SMALL_STATE(5596)] = 133172,
+  [SMALL_STATE(5597)] = 133209,
+  [SMALL_STATE(5598)] = 133234,
+  [SMALL_STATE(5599)] = 133267,
+  [SMALL_STATE(5600)] = 133292,
+  [SMALL_STATE(5601)] = 133315,
+  [SMALL_STATE(5602)] = 133352,
+  [SMALL_STATE(5603)] = 133389,
+  [SMALL_STATE(5604)] = 133426,
+  [SMALL_STATE(5605)] = 133463,
+  [SMALL_STATE(5606)] = 133486,
+  [SMALL_STATE(5607)] = 133523,
+  [SMALL_STATE(5608)] = 133560,
+  [SMALL_STATE(5609)] = 133597,
+  [SMALL_STATE(5610)] = 133630,
+  [SMALL_STATE(5611)] = 133667,
+  [SMALL_STATE(5612)] = 133690,
+  [SMALL_STATE(5613)] = 133727,
+  [SMALL_STATE(5614)] = 133760,
+  [SMALL_STATE(5615)] = 133793,
+  [SMALL_STATE(5616)] = 133818,
+  [SMALL_STATE(5617)] = 133851,
+  [SMALL_STATE(5618)] = 133888,
+  [SMALL_STATE(5619)] = 133921,
+  [SMALL_STATE(5620)] = 133954,
+  [SMALL_STATE(5621)] = 133991,
+  [SMALL_STATE(5622)] = 134016,
+  [SMALL_STATE(5623)] = 134041,
+  [SMALL_STATE(5624)] = 134078,
+  [SMALL_STATE(5625)] = 134101,
+  [SMALL_STATE(5626)] = 134134,
+  [SMALL_STATE(5627)] = 134171,
+  [SMALL_STATE(5628)] = 134208,
+  [SMALL_STATE(5629)] = 134241,
+  [SMALL_STATE(5630)] = 134274,
+  [SMALL_STATE(5631)] = 134299,
+  [SMALL_STATE(5632)] = 134322,
+  [SMALL_STATE(5633)] = 134359,
+  [SMALL_STATE(5634)] = 134392,
+  [SMALL_STATE(5635)] = 134415,
+  [SMALL_STATE(5636)] = 134452,
+  [SMALL_STATE(5637)] = 134489,
+  [SMALL_STATE(5638)] = 134520,
+  [SMALL_STATE(5639)] = 134557,
+  [SMALL_STATE(5640)] = 134594,
+  [SMALL_STATE(5641)] = 134631,
+  [SMALL_STATE(5642)] = 134668,
+  [SMALL_STATE(5643)] = 134705,
+  [SMALL_STATE(5644)] = 134742,
+  [SMALL_STATE(5645)] = 134775,
+  [SMALL_STATE(5646)] = 134798,
+  [SMALL_STATE(5647)] = 134835,
+  [SMALL_STATE(5648)] = 134868,
+  [SMALL_STATE(5649)] = 134901,
+  [SMALL_STATE(5650)] = 134934,
   [SMALL_STATE(5651)] = 134967,
   [SMALL_STATE(5652)] = 134989,
   [SMALL_STATE(5653)] = 135011,
   [SMALL_STATE(5654)] = 135033,
-  [SMALL_STATE(5655)] = 135075,
-  [SMALL_STATE(5656)] = 135097,
-  [SMALL_STATE(5657)] = 135141,
-  [SMALL_STATE(5658)] = 135163,
-  [SMALL_STATE(5659)] = 135185,
-  [SMALL_STATE(5660)] = 135207,
-  [SMALL_STATE(5661)] = 135229,
-  [SMALL_STATE(5662)] = 135251,
-  [SMALL_STATE(5663)] = 135293,
-  [SMALL_STATE(5664)] = 135315,
-  [SMALL_STATE(5665)] = 135337,
-  [SMALL_STATE(5666)] = 135359,
-  [SMALL_STATE(5667)] = 135381,
-  [SMALL_STATE(5668)] = 135403,
-  [SMALL_STATE(5669)] = 135425,
-  [SMALL_STATE(5670)] = 135447,
-  [SMALL_STATE(5671)] = 135469,
-  [SMALL_STATE(5672)] = 135491,
-  [SMALL_STATE(5673)] = 135513,
-  [SMALL_STATE(5674)] = 135535,
+  [SMALL_STATE(5655)] = 135077,
+  [SMALL_STATE(5656)] = 135099,
+  [SMALL_STATE(5657)] = 135121,
+  [SMALL_STATE(5658)] = 135143,
+  [SMALL_STATE(5659)] = 135165,
+  [SMALL_STATE(5660)] = 135187,
+  [SMALL_STATE(5661)] = 135209,
+  [SMALL_STATE(5662)] = 135231,
+  [SMALL_STATE(5663)] = 135253,
+  [SMALL_STATE(5664)] = 135275,
+  [SMALL_STATE(5665)] = 135297,
+  [SMALL_STATE(5666)] = 135319,
+  [SMALL_STATE(5667)] = 135341,
+  [SMALL_STATE(5668)] = 135363,
+  [SMALL_STATE(5669)] = 135385,
+  [SMALL_STATE(5670)] = 135407,
+  [SMALL_STATE(5671)] = 135429,
+  [SMALL_STATE(5672)] = 135451,
+  [SMALL_STATE(5673)] = 135493,
+  [SMALL_STATE(5674)] = 135515,
   [SMALL_STATE(5675)] = 135557,
-  [SMALL_STATE(5676)] = 135596,
-  [SMALL_STATE(5677)] = 135633,
+  [SMALL_STATE(5676)] = 135578,
+  [SMALL_STATE(5677)] = 135617,
   [SMALL_STATE(5678)] = 135654,
   [SMALL_STATE(5679)] = 135683,
   [SMALL_STATE(5680)] = 135722,
   [SMALL_STATE(5681)] = 135750,
-  [SMALL_STATE(5682)] = 135778,
+  [SMALL_STATE(5682)] = 135772,
   [SMALL_STATE(5683)] = 135800,
   [SMALL_STATE(5684)] = 135828,
   [SMALL_STATE(5685)] = 135856,
-  [SMALL_STATE(5686)] = 135884,
+  [SMALL_STATE(5686)] = 135878,
   [SMALL_STATE(5687)] = 135906,
   [SMALL_STATE(5688)] = 135934,
-  [SMALL_STATE(5689)] = 135962,
-  [SMALL_STATE(5690)] = 135984,
-  [SMALL_STATE(5691)] = 136012,
-  [SMALL_STATE(5692)] = 136034,
-  [SMALL_STATE(5693)] = 136056,
-  [SMALL_STATE(5694)] = 136078,
-  [SMALL_STATE(5695)] = 136106,
-  [SMALL_STATE(5696)] = 136128,
-  [SMALL_STATE(5697)] = 136150,
-  [SMALL_STATE(5698)] = 136172,
-  [SMALL_STATE(5699)] = 136200,
-  [SMALL_STATE(5700)] = 136228,
-  [SMALL_STATE(5701)] = 136250,
-  [SMALL_STATE(5702)] = 136272,
-  [SMALL_STATE(5703)] = 136300,
-  [SMALL_STATE(5704)] = 136328,
-  [SMALL_STATE(5705)] = 136350,
-  [SMALL_STATE(5706)] = 136378,
-  [SMALL_STATE(5707)] = 136410,
-  [SMALL_STATE(5708)] = 136438,
-  [SMALL_STATE(5709)] = 136466,
-  [SMALL_STATE(5710)] = 136494,
+  [SMALL_STATE(5689)] = 135956,
+  [SMALL_STATE(5690)] = 135982,
+  [SMALL_STATE(5691)] = 136010,
+  [SMALL_STATE(5692)] = 136032,
+  [SMALL_STATE(5693)] = 136060,
+  [SMALL_STATE(5694)] = 136088,
+  [SMALL_STATE(5695)] = 136116,
+  [SMALL_STATE(5696)] = 136138,
+  [SMALL_STATE(5697)] = 136166,
+  [SMALL_STATE(5698)] = 136194,
+  [SMALL_STATE(5699)] = 136222,
+  [SMALL_STATE(5700)] = 136250,
+  [SMALL_STATE(5701)] = 136278,
+  [SMALL_STATE(5702)] = 136300,
+  [SMALL_STATE(5703)] = 136328,
+  [SMALL_STATE(5704)] = 136350,
+  [SMALL_STATE(5705)] = 136378,
+  [SMALL_STATE(5706)] = 136400,
+  [SMALL_STATE(5707)] = 136422,
+  [SMALL_STATE(5708)] = 136450,
+  [SMALL_STATE(5709)] = 136472,
+  [SMALL_STATE(5710)] = 136500,
   [SMALL_STATE(5711)] = 136522,
-  [SMALL_STATE(5712)] = 136554,
-  [SMALL_STATE(5713)] = 136582,
-  [SMALL_STATE(5714)] = 136610,
-  [SMALL_STATE(5715)] = 136638,
-  [SMALL_STATE(5716)] = 136666,
-  [SMALL_STATE(5717)] = 136694,
-  [SMALL_STATE(5718)] = 136716,
-  [SMALL_STATE(5719)] = 136744,
-  [SMALL_STATE(5720)] = 136772,
-  [SMALL_STATE(5721)] = 136794,
-  [SMALL_STATE(5722)] = 136822,
-  [SMALL_STATE(5723)] = 136850,
-  [SMALL_STATE(5724)] = 136872,
-  [SMALL_STATE(5725)] = 136906,
-  [SMALL_STATE(5726)] = 136932,
-  [SMALL_STATE(5727)] = 136960,
-  [SMALL_STATE(5728)] = 136992,
-  [SMALL_STATE(5729)] = 137020,
-  [SMALL_STATE(5730)] = 137048,
-  [SMALL_STATE(5731)] = 137076,
-  [SMALL_STATE(5732)] = 137104,
-  [SMALL_STATE(5733)] = 137132,
-  [SMALL_STATE(5734)] = 137160,
-  [SMALL_STATE(5735)] = 137188,
-  [SMALL_STATE(5736)] = 137216,
-  [SMALL_STATE(5737)] = 137244,
-  [SMALL_STATE(5738)] = 137272,
-  [SMALL_STATE(5739)] = 137294,
-  [SMALL_STATE(5740)] = 137322,
-  [SMALL_STATE(5741)] = 137341,
-  [SMALL_STATE(5742)] = 137360,
-  [SMALL_STATE(5743)] = 137379,
-  [SMALL_STATE(5744)] = 137412,
-  [SMALL_STATE(5745)] = 137431,
-  [SMALL_STATE(5746)] = 137450,
-  [SMALL_STATE(5747)] = 137469,
-  [SMALL_STATE(5748)] = 137488,
-  [SMALL_STATE(5749)] = 137515,
-  [SMALL_STATE(5750)] = 137534,
-  [SMALL_STATE(5751)] = 137553,
-  [SMALL_STATE(5752)] = 137580,
-  [SMALL_STATE(5753)] = 137599,
-  [SMALL_STATE(5754)] = 137632,
-  [SMALL_STATE(5755)] = 137665,
-  [SMALL_STATE(5756)] = 137684,
-  [SMALL_STATE(5757)] = 137713,
-  [SMALL_STATE(5758)] = 137732,
-  [SMALL_STATE(5759)] = 137765,
-  [SMALL_STATE(5760)] = 137790,
-  [SMALL_STATE(5761)] = 137817,
-  [SMALL_STATE(5762)] = 137836,
-  [SMALL_STATE(5763)] = 137855,
-  [SMALL_STATE(5764)] = 137884,
-  [SMALL_STATE(5765)] = 137909,
-  [SMALL_STATE(5766)] = 137928,
-  [SMALL_STATE(5767)] = 137947,
-  [SMALL_STATE(5768)] = 137976,
-  [SMALL_STATE(5769)] = 138001,
-  [SMALL_STATE(5770)] = 138021,
-  [SMALL_STATE(5771)] = 138047,
-  [SMALL_STATE(5772)] = 138067,
-  [SMALL_STATE(5773)] = 138087,
-  [SMALL_STATE(5774)] = 138113,
-  [SMALL_STATE(5775)] = 138139,
-  [SMALL_STATE(5776)] = 138159,
-  [SMALL_STATE(5777)] = 138179,
-  [SMALL_STATE(5778)] = 138199,
-  [SMALL_STATE(5779)] = 138219,
-  [SMALL_STATE(5780)] = 138239,
-  [SMALL_STATE(5781)] = 138259,
-  [SMALL_STATE(5782)] = 138287,
-  [SMALL_STATE(5783)] = 138315,
-  [SMALL_STATE(5784)] = 138335,
-  [SMALL_STATE(5785)] = 138358,
-  [SMALL_STATE(5786)] = 138381,
-  [SMALL_STATE(5787)] = 138404,
-  [SMALL_STATE(5788)] = 138427,
-  [SMALL_STATE(5789)] = 138450,
-  [SMALL_STATE(5790)] = 138473,
-  [SMALL_STATE(5791)] = 138496,
-  [SMALL_STATE(5792)] = 138519,
-  [SMALL_STATE(5793)] = 138542,
-  [SMALL_STATE(5794)] = 138565,
-  [SMALL_STATE(5795)] = 138588,
-  [SMALL_STATE(5796)] = 138611,
-  [SMALL_STATE(5797)] = 138634,
-  [SMALL_STATE(5798)] = 138657,
-  [SMALL_STATE(5799)] = 138680,
-  [SMALL_STATE(5800)] = 138703,
-  [SMALL_STATE(5801)] = 138726,
-  [SMALL_STATE(5802)] = 138749,
-  [SMALL_STATE(5803)] = 138772,
-  [SMALL_STATE(5804)] = 138795,
-  [SMALL_STATE(5805)] = 138818,
-  [SMALL_STATE(5806)] = 138841,
-  [SMALL_STATE(5807)] = 138864,
-  [SMALL_STATE(5808)] = 138887,
-  [SMALL_STATE(5809)] = 138910,
-  [SMALL_STATE(5810)] = 138933,
-  [SMALL_STATE(5811)] = 138956,
-  [SMALL_STATE(5812)] = 138979,
-  [SMALL_STATE(5813)] = 139002,
-  [SMALL_STATE(5814)] = 139025,
-  [SMALL_STATE(5815)] = 139048,
-  [SMALL_STATE(5816)] = 139071,
-  [SMALL_STATE(5817)] = 139094,
-  [SMALL_STATE(5818)] = 139117,
-  [SMALL_STATE(5819)] = 139140,
-  [SMALL_STATE(5820)] = 139163,
-  [SMALL_STATE(5821)] = 139186,
-  [SMALL_STATE(5822)] = 139209,
-  [SMALL_STATE(5823)] = 139232,
-  [SMALL_STATE(5824)] = 139255,
-  [SMALL_STATE(5825)] = 139278,
-  [SMALL_STATE(5826)] = 139301,
-  [SMALL_STATE(5827)] = 139324,
-  [SMALL_STATE(5828)] = 139347,
-  [SMALL_STATE(5829)] = 139370,
-  [SMALL_STATE(5830)] = 139393,
-  [SMALL_STATE(5831)] = 139422,
-  [SMALL_STATE(5832)] = 139445,
-  [SMALL_STATE(5833)] = 139468,
-  [SMALL_STATE(5834)] = 139491,
-  [SMALL_STATE(5835)] = 139514,
-  [SMALL_STATE(5836)] = 139537,
-  [SMALL_STATE(5837)] = 139560,
-  [SMALL_STATE(5838)] = 139583,
-  [SMALL_STATE(5839)] = 139606,
-  [SMALL_STATE(5840)] = 139629,
-  [SMALL_STATE(5841)] = 139652,
-  [SMALL_STATE(5842)] = 139675,
-  [SMALL_STATE(5843)] = 139698,
-  [SMALL_STATE(5844)] = 139721,
-  [SMALL_STATE(5845)] = 139744,
-  [SMALL_STATE(5846)] = 139767,
-  [SMALL_STATE(5847)] = 139790,
-  [SMALL_STATE(5848)] = 139813,
-  [SMALL_STATE(5849)] = 139836,
-  [SMALL_STATE(5850)] = 139859,
-  [SMALL_STATE(5851)] = 139882,
-  [SMALL_STATE(5852)] = 139905,
-  [SMALL_STATE(5853)] = 139928,
-  [SMALL_STATE(5854)] = 139951,
-  [SMALL_STATE(5855)] = 139974,
-  [SMALL_STATE(5856)] = 139997,
-  [SMALL_STATE(5857)] = 140020,
-  [SMALL_STATE(5858)] = 140043,
-  [SMALL_STATE(5859)] = 140066,
-  [SMALL_STATE(5860)] = 140089,
-  [SMALL_STATE(5861)] = 140112,
-  [SMALL_STATE(5862)] = 140135,
-  [SMALL_STATE(5863)] = 140158,
-  [SMALL_STATE(5864)] = 140181,
-  [SMALL_STATE(5865)] = 140204,
-  [SMALL_STATE(5866)] = 140227,
-  [SMALL_STATE(5867)] = 140256,
-  [SMALL_STATE(5868)] = 140279,
-  [SMALL_STATE(5869)] = 140302,
-  [SMALL_STATE(5870)] = 140325,
-  [SMALL_STATE(5871)] = 140348,
-  [SMALL_STATE(5872)] = 140371,
-  [SMALL_STATE(5873)] = 140394,
-  [SMALL_STATE(5874)] = 140417,
-  [SMALL_STATE(5875)] = 140440,
-  [SMALL_STATE(5876)] = 140463,
-  [SMALL_STATE(5877)] = 140486,
-  [SMALL_STATE(5878)] = 140509,
-  [SMALL_STATE(5879)] = 140532,
-  [SMALL_STATE(5880)] = 140555,
-  [SMALL_STATE(5881)] = 140578,
-  [SMALL_STATE(5882)] = 140601,
-  [SMALL_STATE(5883)] = 140624,
-  [SMALL_STATE(5884)] = 140647,
-  [SMALL_STATE(5885)] = 140670,
-  [SMALL_STATE(5886)] = 140693,
-  [SMALL_STATE(5887)] = 140716,
-  [SMALL_STATE(5888)] = 140739,
-  [SMALL_STATE(5889)] = 140762,
-  [SMALL_STATE(5890)] = 140785,
-  [SMALL_STATE(5891)] = 140808,
-  [SMALL_STATE(5892)] = 140831,
-  [SMALL_STATE(5893)] = 140854,
-  [SMALL_STATE(5894)] = 140877,
-  [SMALL_STATE(5895)] = 140900,
-  [SMALL_STATE(5896)] = 140923,
-  [SMALL_STATE(5897)] = 140946,
-  [SMALL_STATE(5898)] = 140969,
-  [SMALL_STATE(5899)] = 140992,
-  [SMALL_STATE(5900)] = 141015,
-  [SMALL_STATE(5901)] = 141038,
-  [SMALL_STATE(5902)] = 141061,
-  [SMALL_STATE(5903)] = 141084,
-  [SMALL_STATE(5904)] = 141107,
-  [SMALL_STATE(5905)] = 141130,
-  [SMALL_STATE(5906)] = 141153,
-  [SMALL_STATE(5907)] = 141176,
-  [SMALL_STATE(5908)] = 141199,
-  [SMALL_STATE(5909)] = 141222,
-  [SMALL_STATE(5910)] = 141245,
-  [SMALL_STATE(5911)] = 141268,
-  [SMALL_STATE(5912)] = 141291,
-  [SMALL_STATE(5913)] = 141314,
-  [SMALL_STATE(5914)] = 141337,
-  [SMALL_STATE(5915)] = 141360,
-  [SMALL_STATE(5916)] = 141383,
-  [SMALL_STATE(5917)] = 141406,
-  [SMALL_STATE(5918)] = 141429,
-  [SMALL_STATE(5919)] = 141452,
-  [SMALL_STATE(5920)] = 141475,
-  [SMALL_STATE(5921)] = 141498,
-  [SMALL_STATE(5922)] = 141521,
-  [SMALL_STATE(5923)] = 141544,
-  [SMALL_STATE(5924)] = 141567,
-  [SMALL_STATE(5925)] = 141590,
-  [SMALL_STATE(5926)] = 141613,
-  [SMALL_STATE(5927)] = 141636,
-  [SMALL_STATE(5928)] = 141659,
-  [SMALL_STATE(5929)] = 141682,
-  [SMALL_STATE(5930)] = 141705,
-  [SMALL_STATE(5931)] = 141728,
-  [SMALL_STATE(5932)] = 141751,
-  [SMALL_STATE(5933)] = 141774,
-  [SMALL_STATE(5934)] = 141797,
-  [SMALL_STATE(5935)] = 141820,
-  [SMALL_STATE(5936)] = 141843,
-  [SMALL_STATE(5937)] = 141866,
-  [SMALL_STATE(5938)] = 141889,
-  [SMALL_STATE(5939)] = 141912,
-  [SMALL_STATE(5940)] = 141941,
-  [SMALL_STATE(5941)] = 141964,
-  [SMALL_STATE(5942)] = 141987,
-  [SMALL_STATE(5943)] = 142010,
-  [SMALL_STATE(5944)] = 142031,
-  [SMALL_STATE(5945)] = 142054,
-  [SMALL_STATE(5946)] = 142077,
-  [SMALL_STATE(5947)] = 142100,
-  [SMALL_STATE(5948)] = 142123,
-  [SMALL_STATE(5949)] = 142146,
-  [SMALL_STATE(5950)] = 142169,
-  [SMALL_STATE(5951)] = 142192,
-  [SMALL_STATE(5952)] = 142215,
-  [SMALL_STATE(5953)] = 142238,
-  [SMALL_STATE(5954)] = 142261,
-  [SMALL_STATE(5955)] = 142284,
-  [SMALL_STATE(5956)] = 142307,
-  [SMALL_STATE(5957)] = 142330,
-  [SMALL_STATE(5958)] = 142353,
-  [SMALL_STATE(5959)] = 142376,
-  [SMALL_STATE(5960)] = 142399,
-  [SMALL_STATE(5961)] = 142422,
-  [SMALL_STATE(5962)] = 142445,
-  [SMALL_STATE(5963)] = 142468,
-  [SMALL_STATE(5964)] = 142491,
-  [SMALL_STATE(5965)] = 142514,
-  [SMALL_STATE(5966)] = 142537,
-  [SMALL_STATE(5967)] = 142560,
-  [SMALL_STATE(5968)] = 142583,
-  [SMALL_STATE(5969)] = 142606,
-  [SMALL_STATE(5970)] = 142629,
-  [SMALL_STATE(5971)] = 142652,
-  [SMALL_STATE(5972)] = 142675,
-  [SMALL_STATE(5973)] = 142698,
-  [SMALL_STATE(5974)] = 142721,
-  [SMALL_STATE(5975)] = 142744,
-  [SMALL_STATE(5976)] = 142767,
-  [SMALL_STATE(5977)] = 142790,
-  [SMALL_STATE(5978)] = 142813,
-  [SMALL_STATE(5979)] = 142836,
-  [SMALL_STATE(5980)] = 142859,
-  [SMALL_STATE(5981)] = 142882,
-  [SMALL_STATE(5982)] = 142905,
-  [SMALL_STATE(5983)] = 142928,
-  [SMALL_STATE(5984)] = 142951,
-  [SMALL_STATE(5985)] = 142974,
-  [SMALL_STATE(5986)] = 142997,
-  [SMALL_STATE(5987)] = 143020,
-  [SMALL_STATE(5988)] = 143043,
-  [SMALL_STATE(5989)] = 143066,
-  [SMALL_STATE(5990)] = 143089,
-  [SMALL_STATE(5991)] = 143112,
-  [SMALL_STATE(5992)] = 143137,
-  [SMALL_STATE(5993)] = 143160,
-  [SMALL_STATE(5994)] = 143183,
-  [SMALL_STATE(5995)] = 143206,
-  [SMALL_STATE(5996)] = 143222,
+  [SMALL_STATE(5712)] = 136550,
+  [SMALL_STATE(5713)] = 136578,
+  [SMALL_STATE(5714)] = 136606,
+  [SMALL_STATE(5715)] = 136634,
+  [SMALL_STATE(5716)] = 136662,
+  [SMALL_STATE(5717)] = 136690,
+  [SMALL_STATE(5718)] = 136712,
+  [SMALL_STATE(5719)] = 136740,
+  [SMALL_STATE(5720)] = 136768,
+  [SMALL_STATE(5721)] = 136790,
+  [SMALL_STATE(5722)] = 136818,
+  [SMALL_STATE(5723)] = 136846,
+  [SMALL_STATE(5724)] = 136874,
+  [SMALL_STATE(5725)] = 136902,
+  [SMALL_STATE(5726)] = 136930,
+  [SMALL_STATE(5727)] = 136958,
+  [SMALL_STATE(5728)] = 136986,
+  [SMALL_STATE(5729)] = 137014,
+  [SMALL_STATE(5730)] = 137036,
+  [SMALL_STATE(5731)] = 137064,
+  [SMALL_STATE(5732)] = 137086,
+  [SMALL_STATE(5733)] = 137114,
+  [SMALL_STATE(5734)] = 137142,
+  [SMALL_STATE(5735)] = 137170,
+  [SMALL_STATE(5736)] = 137204,
+  [SMALL_STATE(5737)] = 137226,
+  [SMALL_STATE(5738)] = 137245,
+  [SMALL_STATE(5739)] = 137264,
+  [SMALL_STATE(5740)] = 137283,
+  [SMALL_STATE(5741)] = 137316,
+  [SMALL_STATE(5742)] = 137335,
+  [SMALL_STATE(5743)] = 137368,
+  [SMALL_STATE(5744)] = 137397,
+  [SMALL_STATE(5745)] = 137426,
+  [SMALL_STATE(5746)] = 137451,
+  [SMALL_STATE(5747)] = 137470,
+  [SMALL_STATE(5748)] = 137497,
+  [SMALL_STATE(5749)] = 137526,
+  [SMALL_STATE(5750)] = 137559,
+  [SMALL_STATE(5751)] = 137588,
+  [SMALL_STATE(5752)] = 137615,
+  [SMALL_STATE(5753)] = 137634,
+  [SMALL_STATE(5754)] = 137653,
+  [SMALL_STATE(5755)] = 137672,
+  [SMALL_STATE(5756)] = 137691,
+  [SMALL_STATE(5757)] = 137710,
+  [SMALL_STATE(5758)] = 137729,
+  [SMALL_STATE(5759)] = 137748,
+  [SMALL_STATE(5760)] = 137781,
+  [SMALL_STATE(5761)] = 137806,
+  [SMALL_STATE(5762)] = 137825,
+  [SMALL_STATE(5763)] = 137844,
+  [SMALL_STATE(5764)] = 137873,
+  [SMALL_STATE(5765)] = 137892,
+  [SMALL_STATE(5766)] = 137911,
+  [SMALL_STATE(5767)] = 137938,
+  [SMALL_STATE(5768)] = 137967,
+  [SMALL_STATE(5769)] = 137992,
+  [SMALL_STATE(5770)] = 138012,
+  [SMALL_STATE(5771)] = 138038,
+  [SMALL_STATE(5772)] = 138058,
+  [SMALL_STATE(5773)] = 138084,
+  [SMALL_STATE(5774)] = 138104,
+  [SMALL_STATE(5775)] = 138124,
+  [SMALL_STATE(5776)] = 138144,
+  [SMALL_STATE(5777)] = 138164,
+  [SMALL_STATE(5778)] = 138184,
+  [SMALL_STATE(5779)] = 138204,
+  [SMALL_STATE(5780)] = 138224,
+  [SMALL_STATE(5781)] = 138250,
+  [SMALL_STATE(5782)] = 138270,
+  [SMALL_STATE(5783)] = 138293,
+  [SMALL_STATE(5784)] = 138316,
+  [SMALL_STATE(5785)] = 138339,
+  [SMALL_STATE(5786)] = 138362,
+  [SMALL_STATE(5787)] = 138385,
+  [SMALL_STATE(5788)] = 138408,
+  [SMALL_STATE(5789)] = 138431,
+  [SMALL_STATE(5790)] = 138454,
+  [SMALL_STATE(5791)] = 138477,
+  [SMALL_STATE(5792)] = 138500,
+  [SMALL_STATE(5793)] = 138523,
+  [SMALL_STATE(5794)] = 138546,
+  [SMALL_STATE(5795)] = 138575,
+  [SMALL_STATE(5796)] = 138598,
+  [SMALL_STATE(5797)] = 138621,
+  [SMALL_STATE(5798)] = 138644,
+  [SMALL_STATE(5799)] = 138667,
+  [SMALL_STATE(5800)] = 138690,
+  [SMALL_STATE(5801)] = 138713,
+  [SMALL_STATE(5802)] = 138736,
+  [SMALL_STATE(5803)] = 138759,
+  [SMALL_STATE(5804)] = 138782,
+  [SMALL_STATE(5805)] = 138805,
+  [SMALL_STATE(5806)] = 138828,
+  [SMALL_STATE(5807)] = 138851,
+  [SMALL_STATE(5808)] = 138874,
+  [SMALL_STATE(5809)] = 138897,
+  [SMALL_STATE(5810)] = 138920,
+  [SMALL_STATE(5811)] = 138943,
+  [SMALL_STATE(5812)] = 138966,
+  [SMALL_STATE(5813)] = 138989,
+  [SMALL_STATE(5814)] = 139012,
+  [SMALL_STATE(5815)] = 139035,
+  [SMALL_STATE(5816)] = 139058,
+  [SMALL_STATE(5817)] = 139081,
+  [SMALL_STATE(5818)] = 139104,
+  [SMALL_STATE(5819)] = 139127,
+  [SMALL_STATE(5820)] = 139150,
+  [SMALL_STATE(5821)] = 139173,
+  [SMALL_STATE(5822)] = 139196,
+  [SMALL_STATE(5823)] = 139219,
+  [SMALL_STATE(5824)] = 139242,
+  [SMALL_STATE(5825)] = 139265,
+  [SMALL_STATE(5826)] = 139288,
+  [SMALL_STATE(5827)] = 139311,
+  [SMALL_STATE(5828)] = 139334,
+  [SMALL_STATE(5829)] = 139357,
+  [SMALL_STATE(5830)] = 139380,
+  [SMALL_STATE(5831)] = 139403,
+  [SMALL_STATE(5832)] = 139426,
+  [SMALL_STATE(5833)] = 139449,
+  [SMALL_STATE(5834)] = 139472,
+  [SMALL_STATE(5835)] = 139495,
+  [SMALL_STATE(5836)] = 139518,
+  [SMALL_STATE(5837)] = 139541,
+  [SMALL_STATE(5838)] = 139564,
+  [SMALL_STATE(5839)] = 139587,
+  [SMALL_STATE(5840)] = 139610,
+  [SMALL_STATE(5841)] = 139633,
+  [SMALL_STATE(5842)] = 139656,
+  [SMALL_STATE(5843)] = 139679,
+  [SMALL_STATE(5844)] = 139702,
+  [SMALL_STATE(5845)] = 139725,
+  [SMALL_STATE(5846)] = 139748,
+  [SMALL_STATE(5847)] = 139771,
+  [SMALL_STATE(5848)] = 139794,
+  [SMALL_STATE(5849)] = 139817,
+  [SMALL_STATE(5850)] = 139840,
+  [SMALL_STATE(5851)] = 139863,
+  [SMALL_STATE(5852)] = 139892,
+  [SMALL_STATE(5853)] = 139915,
+  [SMALL_STATE(5854)] = 139938,
+  [SMALL_STATE(5855)] = 139961,
+  [SMALL_STATE(5856)] = 139984,
+  [SMALL_STATE(5857)] = 140007,
+  [SMALL_STATE(5858)] = 140030,
+  [SMALL_STATE(5859)] = 140053,
+  [SMALL_STATE(5860)] = 140076,
+  [SMALL_STATE(5861)] = 140099,
+  [SMALL_STATE(5862)] = 140122,
+  [SMALL_STATE(5863)] = 140145,
+  [SMALL_STATE(5864)] = 140168,
+  [SMALL_STATE(5865)] = 140191,
+  [SMALL_STATE(5866)] = 140214,
+  [SMALL_STATE(5867)] = 140237,
+  [SMALL_STATE(5868)] = 140260,
+  [SMALL_STATE(5869)] = 140283,
+  [SMALL_STATE(5870)] = 140306,
+  [SMALL_STATE(5871)] = 140329,
+  [SMALL_STATE(5872)] = 140352,
+  [SMALL_STATE(5873)] = 140375,
+  [SMALL_STATE(5874)] = 140398,
+  [SMALL_STATE(5875)] = 140421,
+  [SMALL_STATE(5876)] = 140444,
+  [SMALL_STATE(5877)] = 140467,
+  [SMALL_STATE(5878)] = 140490,
+  [SMALL_STATE(5879)] = 140513,
+  [SMALL_STATE(5880)] = 140536,
+  [SMALL_STATE(5881)] = 140559,
+  [SMALL_STATE(5882)] = 140580,
+  [SMALL_STATE(5883)] = 140603,
+  [SMALL_STATE(5884)] = 140626,
+  [SMALL_STATE(5885)] = 140649,
+  [SMALL_STATE(5886)] = 140672,
+  [SMALL_STATE(5887)] = 140695,
+  [SMALL_STATE(5888)] = 140718,
+  [SMALL_STATE(5889)] = 140741,
+  [SMALL_STATE(5890)] = 140766,
+  [SMALL_STATE(5891)] = 140789,
+  [SMALL_STATE(5892)] = 140812,
+  [SMALL_STATE(5893)] = 140835,
+  [SMALL_STATE(5894)] = 140858,
+  [SMALL_STATE(5895)] = 140881,
+  [SMALL_STATE(5896)] = 140904,
+  [SMALL_STATE(5897)] = 140927,
+  [SMALL_STATE(5898)] = 140950,
+  [SMALL_STATE(5899)] = 140973,
+  [SMALL_STATE(5900)] = 140996,
+  [SMALL_STATE(5901)] = 141019,
+  [SMALL_STATE(5902)] = 141042,
+  [SMALL_STATE(5903)] = 141065,
+  [SMALL_STATE(5904)] = 141088,
+  [SMALL_STATE(5905)] = 141111,
+  [SMALL_STATE(5906)] = 141134,
+  [SMALL_STATE(5907)] = 141157,
+  [SMALL_STATE(5908)] = 141180,
+  [SMALL_STATE(5909)] = 141203,
+  [SMALL_STATE(5910)] = 141226,
+  [SMALL_STATE(5911)] = 141249,
+  [SMALL_STATE(5912)] = 141272,
+  [SMALL_STATE(5913)] = 141295,
+  [SMALL_STATE(5914)] = 141318,
+  [SMALL_STATE(5915)] = 141341,
+  [SMALL_STATE(5916)] = 141364,
+  [SMALL_STATE(5917)] = 141387,
+  [SMALL_STATE(5918)] = 141410,
+  [SMALL_STATE(5919)] = 141433,
+  [SMALL_STATE(5920)] = 141456,
+  [SMALL_STATE(5921)] = 141479,
+  [SMALL_STATE(5922)] = 141502,
+  [SMALL_STATE(5923)] = 141525,
+  [SMALL_STATE(5924)] = 141548,
+  [SMALL_STATE(5925)] = 141571,
+  [SMALL_STATE(5926)] = 141594,
+  [SMALL_STATE(5927)] = 141617,
+  [SMALL_STATE(5928)] = 141640,
+  [SMALL_STATE(5929)] = 141663,
+  [SMALL_STATE(5930)] = 141692,
+  [SMALL_STATE(5931)] = 141715,
+  [SMALL_STATE(5932)] = 141738,
+  [SMALL_STATE(5933)] = 141761,
+  [SMALL_STATE(5934)] = 141784,
+  [SMALL_STATE(5935)] = 141807,
+  [SMALL_STATE(5936)] = 141830,
+  [SMALL_STATE(5937)] = 141853,
+  [SMALL_STATE(5938)] = 141876,
+  [SMALL_STATE(5939)] = 141899,
+  [SMALL_STATE(5940)] = 141922,
+  [SMALL_STATE(5941)] = 141945,
+  [SMALL_STATE(5942)] = 141968,
+  [SMALL_STATE(5943)] = 141991,
+  [SMALL_STATE(5944)] = 142014,
+  [SMALL_STATE(5945)] = 142037,
+  [SMALL_STATE(5946)] = 142060,
+  [SMALL_STATE(5947)] = 142083,
+  [SMALL_STATE(5948)] = 142106,
+  [SMALL_STATE(5949)] = 142129,
+  [SMALL_STATE(5950)] = 142152,
+  [SMALL_STATE(5951)] = 142175,
+  [SMALL_STATE(5952)] = 142198,
+  [SMALL_STATE(5953)] = 142221,
+  [SMALL_STATE(5954)] = 142244,
+  [SMALL_STATE(5955)] = 142267,
+  [SMALL_STATE(5956)] = 142290,
+  [SMALL_STATE(5957)] = 142313,
+  [SMALL_STATE(5958)] = 142336,
+  [SMALL_STATE(5959)] = 142359,
+  [SMALL_STATE(5960)] = 142382,
+  [SMALL_STATE(5961)] = 142405,
+  [SMALL_STATE(5962)] = 142430,
+  [SMALL_STATE(5963)] = 142453,
+  [SMALL_STATE(5964)] = 142476,
+  [SMALL_STATE(5965)] = 142499,
+  [SMALL_STATE(5966)] = 142522,
+  [SMALL_STATE(5967)] = 142545,
+  [SMALL_STATE(5968)] = 142568,
+  [SMALL_STATE(5969)] = 142591,
+  [SMALL_STATE(5970)] = 142614,
+  [SMALL_STATE(5971)] = 142637,
+  [SMALL_STATE(5972)] = 142660,
+  [SMALL_STATE(5973)] = 142683,
+  [SMALL_STATE(5974)] = 142706,
+  [SMALL_STATE(5975)] = 142729,
+  [SMALL_STATE(5976)] = 142752,
+  [SMALL_STATE(5977)] = 142775,
+  [SMALL_STATE(5978)] = 142798,
+  [SMALL_STATE(5979)] = 142821,
+  [SMALL_STATE(5980)] = 142844,
+  [SMALL_STATE(5981)] = 142867,
+  [SMALL_STATE(5982)] = 142890,
+  [SMALL_STATE(5983)] = 142913,
+  [SMALL_STATE(5984)] = 142936,
+  [SMALL_STATE(5985)] = 142959,
+  [SMALL_STATE(5986)] = 142982,
+  [SMALL_STATE(5987)] = 143005,
+  [SMALL_STATE(5988)] = 143028,
+  [SMALL_STATE(5989)] = 143051,
+  [SMALL_STATE(5990)] = 143074,
+  [SMALL_STATE(5991)] = 143097,
+  [SMALL_STATE(5992)] = 143120,
+  [SMALL_STATE(5993)] = 143143,
+  [SMALL_STATE(5994)] = 143166,
+  [SMALL_STATE(5995)] = 143192,
+  [SMALL_STATE(5996)] = 143218,
   [SMALL_STATE(5997)] = 143242,
   [SMALL_STATE(5998)] = 143262,
-  [SMALL_STATE(5999)] = 143288,
-  [SMALL_STATE(6000)] = 143314,
-  [SMALL_STATE(6001)] = 143340,
-  [SMALL_STATE(6002)] = 143362,
-  [SMALL_STATE(6003)] = 143378,
-  [SMALL_STATE(6004)] = 143404,
-  [SMALL_STATE(6005)] = 143420,
-  [SMALL_STATE(6006)] = 143440,
-  [SMALL_STATE(6007)] = 143456,
-  [SMALL_STATE(6008)] = 143472,
-  [SMALL_STATE(6009)] = 143492,
-  [SMALL_STATE(6010)] = 143514,
-  [SMALL_STATE(6011)] = 143534,
-  [SMALL_STATE(6012)] = 143554,
-  [SMALL_STATE(6013)] = 143574,
-  [SMALL_STATE(6014)] = 143596,
-  [SMALL_STATE(6015)] = 143612,
-  [SMALL_STATE(6016)] = 143628,
-  [SMALL_STATE(6017)] = 143654,
-  [SMALL_STATE(6018)] = 143670,
-  [SMALL_STATE(6019)] = 143696,
-  [SMALL_STATE(6020)] = 143712,
-  [SMALL_STATE(6021)] = 143728,
-  [SMALL_STATE(6022)] = 143744,
-  [SMALL_STATE(6023)] = 143764,
-  [SMALL_STATE(6024)] = 143784,
-  [SMALL_STATE(6025)] = 143808,
-  [SMALL_STATE(6026)] = 143828,
-  [SMALL_STATE(6027)] = 143854,
-  [SMALL_STATE(6028)] = 143870,
-  [SMALL_STATE(6029)] = 143886,
-  [SMALL_STATE(6030)] = 143910,
-  [SMALL_STATE(6031)] = 143926,
-  [SMALL_STATE(6032)] = 143942,
-  [SMALL_STATE(6033)] = 143958,
-  [SMALL_STATE(6034)] = 143974,
-  [SMALL_STATE(6035)] = 143990,
-  [SMALL_STATE(6036)] = 144014,
-  [SMALL_STATE(6037)] = 144035,
-  [SMALL_STATE(6038)] = 144056,
-  [SMALL_STATE(6039)] = 144077,
-  [SMALL_STATE(6040)] = 144098,
-  [SMALL_STATE(6041)] = 144119,
-  [SMALL_STATE(6042)] = 144140,
-  [SMALL_STATE(6043)] = 144161,
-  [SMALL_STATE(6044)] = 144182,
-  [SMALL_STATE(6045)] = 144203,
-  [SMALL_STATE(6046)] = 144224,
-  [SMALL_STATE(6047)] = 144239,
-  [SMALL_STATE(6048)] = 144260,
-  [SMALL_STATE(6049)] = 144281,
-  [SMALL_STATE(6050)] = 144302,
-  [SMALL_STATE(6051)] = 144323,
-  [SMALL_STATE(6052)] = 144344,
-  [SMALL_STATE(6053)] = 144359,
-  [SMALL_STATE(6054)] = 144380,
-  [SMALL_STATE(6055)] = 144401,
-  [SMALL_STATE(6056)] = 144422,
-  [SMALL_STATE(6057)] = 144443,
-  [SMALL_STATE(6058)] = 144464,
-  [SMALL_STATE(6059)] = 144485,
-  [SMALL_STATE(6060)] = 144498,
-  [SMALL_STATE(6061)] = 144519,
-  [SMALL_STATE(6062)] = 144534,
-  [SMALL_STATE(6063)] = 144555,
-  [SMALL_STATE(6064)] = 144576,
-  [SMALL_STATE(6065)] = 144597,
-  [SMALL_STATE(6066)] = 144618,
-  [SMALL_STATE(6067)] = 144639,
-  [SMALL_STATE(6068)] = 144660,
-  [SMALL_STATE(6069)] = 144675,
-  [SMALL_STATE(6070)] = 144696,
-  [SMALL_STATE(6071)] = 144717,
-  [SMALL_STATE(6072)] = 144738,
-  [SMALL_STATE(6073)] = 144759,
-  [SMALL_STATE(6074)] = 144780,
-  [SMALL_STATE(6075)] = 144801,
-  [SMALL_STATE(6076)] = 144816,
-  [SMALL_STATE(6077)] = 144837,
-  [SMALL_STATE(6078)] = 144858,
-  [SMALL_STATE(6079)] = 144879,
-  [SMALL_STATE(6080)] = 144897,
-  [SMALL_STATE(6081)] = 144915,
-  [SMALL_STATE(6082)] = 144933,
-  [SMALL_STATE(6083)] = 144951,
-  [SMALL_STATE(6084)] = 144969,
-  [SMALL_STATE(6085)] = 144987,
-  [SMALL_STATE(6086)] = 145005,
-  [SMALL_STATE(6087)] = 145023,
-  [SMALL_STATE(6088)] = 145041,
-  [SMALL_STATE(6089)] = 145059,
-  [SMALL_STATE(6090)] = 145077,
-  [SMALL_STATE(6091)] = 145095,
-  [SMALL_STATE(6092)] = 145113,
-  [SMALL_STATE(6093)] = 145131,
-  [SMALL_STATE(6094)] = 145149,
-  [SMALL_STATE(6095)] = 145167,
-  [SMALL_STATE(6096)] = 145185,
-  [SMALL_STATE(6097)] = 145203,
-  [SMALL_STATE(6098)] = 145221,
-  [SMALL_STATE(6099)] = 145239,
-  [SMALL_STATE(6100)] = 145257,
-  [SMALL_STATE(6101)] = 145275,
-  [SMALL_STATE(6102)] = 145293,
-  [SMALL_STATE(6103)] = 145311,
-  [SMALL_STATE(6104)] = 145329,
-  [SMALL_STATE(6105)] = 145347,
-  [SMALL_STATE(6106)] = 145365,
-  [SMALL_STATE(6107)] = 145383,
-  [SMALL_STATE(6108)] = 145403,
-  [SMALL_STATE(6109)] = 145419,
-  [SMALL_STATE(6110)] = 145437,
-  [SMALL_STATE(6111)] = 145455,
-  [SMALL_STATE(6112)] = 145473,
-  [SMALL_STATE(6113)] = 145491,
-  [SMALL_STATE(6114)] = 145511,
-  [SMALL_STATE(6115)] = 145529,
-  [SMALL_STATE(6116)] = 145547,
-  [SMALL_STATE(6117)] = 145559,
-  [SMALL_STATE(6118)] = 145577,
-  [SMALL_STATE(6119)] = 145595,
-  [SMALL_STATE(6120)] = 145615,
-  [SMALL_STATE(6121)] = 145633,
-  [SMALL_STATE(6122)] = 145653,
-  [SMALL_STATE(6123)] = 145665,
-  [SMALL_STATE(6124)] = 145683,
-  [SMALL_STATE(6125)] = 145701,
-  [SMALL_STATE(6126)] = 145719,
-  [SMALL_STATE(6127)] = 145737,
-  [SMALL_STATE(6128)] = 145755,
-  [SMALL_STATE(6129)] = 145773,
-  [SMALL_STATE(6130)] = 145791,
-  [SMALL_STATE(6131)] = 145809,
-  [SMALL_STATE(6132)] = 145827,
-  [SMALL_STATE(6133)] = 145843,
-  [SMALL_STATE(6134)] = 145861,
-  [SMALL_STATE(6135)] = 145879,
-  [SMALL_STATE(6136)] = 145897,
-  [SMALL_STATE(6137)] = 145915,
-  [SMALL_STATE(6138)] = 145933,
-  [SMALL_STATE(6139)] = 145951,
-  [SMALL_STATE(6140)] = 145969,
-  [SMALL_STATE(6141)] = 145987,
-  [SMALL_STATE(6142)] = 146005,
-  [SMALL_STATE(6143)] = 146023,
-  [SMALL_STATE(6144)] = 146039,
-  [SMALL_STATE(6145)] = 146057,
-  [SMALL_STATE(6146)] = 146075,
-  [SMALL_STATE(6147)] = 146093,
-  [SMALL_STATE(6148)] = 146111,
-  [SMALL_STATE(6149)] = 146129,
-  [SMALL_STATE(6150)] = 146147,
-  [SMALL_STATE(6151)] = 146165,
-  [SMALL_STATE(6152)] = 146183,
-  [SMALL_STATE(6153)] = 146201,
-  [SMALL_STATE(6154)] = 146219,
-  [SMALL_STATE(6155)] = 146237,
-  [SMALL_STATE(6156)] = 146255,
-  [SMALL_STATE(6157)] = 146273,
-  [SMALL_STATE(6158)] = 146293,
-  [SMALL_STATE(6159)] = 146311,
-  [SMALL_STATE(6160)] = 146329,
-  [SMALL_STATE(6161)] = 146349,
-  [SMALL_STATE(6162)] = 146367,
-  [SMALL_STATE(6163)] = 146385,
-  [SMALL_STATE(6164)] = 146403,
-  [SMALL_STATE(6165)] = 146421,
-  [SMALL_STATE(6166)] = 146439,
-  [SMALL_STATE(6167)] = 146457,
-  [SMALL_STATE(6168)] = 146475,
-  [SMALL_STATE(6169)] = 146493,
-  [SMALL_STATE(6170)] = 146511,
-  [SMALL_STATE(6171)] = 146529,
-  [SMALL_STATE(6172)] = 146547,
-  [SMALL_STATE(6173)] = 146565,
-  [SMALL_STATE(6174)] = 146581,
-  [SMALL_STATE(6175)] = 146599,
-  [SMALL_STATE(6176)] = 146617,
-  [SMALL_STATE(6177)] = 146635,
-  [SMALL_STATE(6178)] = 146653,
-  [SMALL_STATE(6179)] = 146671,
-  [SMALL_STATE(6180)] = 146689,
-  [SMALL_STATE(6181)] = 146707,
-  [SMALL_STATE(6182)] = 146725,
-  [SMALL_STATE(6183)] = 146743,
-  [SMALL_STATE(6184)] = 146761,
-  [SMALL_STATE(6185)] = 146779,
-  [SMALL_STATE(6186)] = 146797,
-  [SMALL_STATE(6187)] = 146815,
-  [SMALL_STATE(6188)] = 146833,
-  [SMALL_STATE(6189)] = 146851,
-  [SMALL_STATE(6190)] = 146869,
-  [SMALL_STATE(6191)] = 146887,
-  [SMALL_STATE(6192)] = 146905,
-  [SMALL_STATE(6193)] = 146923,
-  [SMALL_STATE(6194)] = 146941,
-  [SMALL_STATE(6195)] = 146959,
-  [SMALL_STATE(6196)] = 146977,
-  [SMALL_STATE(6197)] = 146995,
-  [SMALL_STATE(6198)] = 147013,
-  [SMALL_STATE(6199)] = 147031,
-  [SMALL_STATE(6200)] = 147049,
-  [SMALL_STATE(6201)] = 147067,
-  [SMALL_STATE(6202)] = 147085,
-  [SMALL_STATE(6203)] = 147103,
-  [SMALL_STATE(6204)] = 147121,
-  [SMALL_STATE(6205)] = 147139,
-  [SMALL_STATE(6206)] = 147157,
-  [SMALL_STATE(6207)] = 147175,
-  [SMALL_STATE(6208)] = 147193,
-  [SMALL_STATE(6209)] = 147211,
-  [SMALL_STATE(6210)] = 147229,
-  [SMALL_STATE(6211)] = 147247,
-  [SMALL_STATE(6212)] = 147265,
-  [SMALL_STATE(6213)] = 147283,
-  [SMALL_STATE(6214)] = 147301,
-  [SMALL_STATE(6215)] = 147319,
-  [SMALL_STATE(6216)] = 147337,
-  [SMALL_STATE(6217)] = 147355,
-  [SMALL_STATE(6218)] = 147373,
-  [SMALL_STATE(6219)] = 147391,
-  [SMALL_STATE(6220)] = 147409,
-  [SMALL_STATE(6221)] = 147427,
-  [SMALL_STATE(6222)] = 147445,
-  [SMALL_STATE(6223)] = 147463,
-  [SMALL_STATE(6224)] = 147481,
-  [SMALL_STATE(6225)] = 147499,
-  [SMALL_STATE(6226)] = 147517,
-  [SMALL_STATE(6227)] = 147537,
-  [SMALL_STATE(6228)] = 147555,
-  [SMALL_STATE(6229)] = 147573,
-  [SMALL_STATE(6230)] = 147591,
-  [SMALL_STATE(6231)] = 147605,
-  [SMALL_STATE(6232)] = 147623,
-  [SMALL_STATE(6233)] = 147641,
-  [SMALL_STATE(6234)] = 147659,
-  [SMALL_STATE(6235)] = 147677,
-  [SMALL_STATE(6236)] = 147695,
-  [SMALL_STATE(6237)] = 147713,
-  [SMALL_STATE(6238)] = 147731,
-  [SMALL_STATE(6239)] = 147749,
-  [SMALL_STATE(6240)] = 147767,
-  [SMALL_STATE(6241)] = 147785,
-  [SMALL_STATE(6242)] = 147803,
-  [SMALL_STATE(6243)] = 147821,
-  [SMALL_STATE(6244)] = 147839,
-  [SMALL_STATE(6245)] = 147857,
-  [SMALL_STATE(6246)] = 147875,
-  [SMALL_STATE(6247)] = 147893,
-  [SMALL_STATE(6248)] = 147913,
-  [SMALL_STATE(6249)] = 147931,
-  [SMALL_STATE(6250)] = 147951,
-  [SMALL_STATE(6251)] = 147969,
-  [SMALL_STATE(6252)] = 147987,
-  [SMALL_STATE(6253)] = 148005,
-  [SMALL_STATE(6254)] = 148023,
-  [SMALL_STATE(6255)] = 148041,
-  [SMALL_STATE(6256)] = 148059,
-  [SMALL_STATE(6257)] = 148079,
-  [SMALL_STATE(6258)] = 148097,
-  [SMALL_STATE(6259)] = 148117,
-  [SMALL_STATE(6260)] = 148135,
-  [SMALL_STATE(6261)] = 148153,
-  [SMALL_STATE(6262)] = 148171,
-  [SMALL_STATE(6263)] = 148189,
-  [SMALL_STATE(6264)] = 148207,
-  [SMALL_STATE(6265)] = 148225,
-  [SMALL_STATE(6266)] = 148243,
-  [SMALL_STATE(6267)] = 148261,
-  [SMALL_STATE(6268)] = 148279,
-  [SMALL_STATE(6269)] = 148297,
-  [SMALL_STATE(6270)] = 148315,
-  [SMALL_STATE(6271)] = 148333,
-  [SMALL_STATE(6272)] = 148351,
-  [SMALL_STATE(6273)] = 148369,
-  [SMALL_STATE(6274)] = 148387,
-  [SMALL_STATE(6275)] = 148405,
-  [SMALL_STATE(6276)] = 148423,
-  [SMALL_STATE(6277)] = 148441,
-  [SMALL_STATE(6278)] = 148459,
-  [SMALL_STATE(6279)] = 148475,
-  [SMALL_STATE(6280)] = 148491,
-  [SMALL_STATE(6281)] = 148507,
-  [SMALL_STATE(6282)] = 148525,
-  [SMALL_STATE(6283)] = 148543,
-  [SMALL_STATE(6284)] = 148557,
-  [SMALL_STATE(6285)] = 148575,
-  [SMALL_STATE(6286)] = 148595,
-  [SMALL_STATE(6287)] = 148613,
-  [SMALL_STATE(6288)] = 148631,
-  [SMALL_STATE(6289)] = 148649,
-  [SMALL_STATE(6290)] = 148667,
-  [SMALL_STATE(6291)] = 148687,
-  [SMALL_STATE(6292)] = 148705,
-  [SMALL_STATE(6293)] = 148723,
-  [SMALL_STATE(6294)] = 148741,
-  [SMALL_STATE(6295)] = 148761,
-  [SMALL_STATE(6296)] = 148781,
-  [SMALL_STATE(6297)] = 148801,
-  [SMALL_STATE(6298)] = 148819,
-  [SMALL_STATE(6299)] = 148837,
-  [SMALL_STATE(6300)] = 148855,
-  [SMALL_STATE(6301)] = 148871,
-  [SMALL_STATE(6302)] = 148891,
-  [SMALL_STATE(6303)] = 148909,
-  [SMALL_STATE(6304)] = 148929,
-  [SMALL_STATE(6305)] = 148947,
-  [SMALL_STATE(6306)] = 148965,
-  [SMALL_STATE(6307)] = 148983,
-  [SMALL_STATE(6308)] = 149003,
-  [SMALL_STATE(6309)] = 149018,
-  [SMALL_STATE(6310)] = 149033,
-  [SMALL_STATE(6311)] = 149050,
-  [SMALL_STATE(6312)] = 149065,
-  [SMALL_STATE(6313)] = 149076,
-  [SMALL_STATE(6314)] = 149091,
-  [SMALL_STATE(6315)] = 149106,
-  [SMALL_STATE(6316)] = 149117,
-  [SMALL_STATE(6317)] = 149134,
-  [SMALL_STATE(6318)] = 149151,
-  [SMALL_STATE(6319)] = 149162,
-  [SMALL_STATE(6320)] = 149177,
-  [SMALL_STATE(6321)] = 149192,
-  [SMALL_STATE(6322)] = 149207,
-  [SMALL_STATE(6323)] = 149224,
-  [SMALL_STATE(6324)] = 149239,
-  [SMALL_STATE(6325)] = 149254,
-  [SMALL_STATE(6326)] = 149267,
-  [SMALL_STATE(6327)] = 149284,
-  [SMALL_STATE(6328)] = 149301,
-  [SMALL_STATE(6329)] = 149318,
-  [SMALL_STATE(6330)] = 149333,
-  [SMALL_STATE(6331)] = 149348,
-  [SMALL_STATE(6332)] = 149365,
-  [SMALL_STATE(6333)] = 149382,
-  [SMALL_STATE(6334)] = 149399,
-  [SMALL_STATE(6335)] = 149416,
-  [SMALL_STATE(6336)] = 149433,
-  [SMALL_STATE(6337)] = 149450,
-  [SMALL_STATE(6338)] = 149467,
-  [SMALL_STATE(6339)] = 149484,
-  [SMALL_STATE(6340)] = 149499,
-  [SMALL_STATE(6341)] = 149514,
-  [SMALL_STATE(6342)] = 149525,
-  [SMALL_STATE(6343)] = 149542,
-  [SMALL_STATE(6344)] = 149553,
-  [SMALL_STATE(6345)] = 149568,
-  [SMALL_STATE(6346)] = 149583,
-  [SMALL_STATE(6347)] = 149600,
-  [SMALL_STATE(6348)] = 149615,
-  [SMALL_STATE(6349)] = 149630,
-  [SMALL_STATE(6350)] = 149647,
-  [SMALL_STATE(6351)] = 149658,
-  [SMALL_STATE(6352)] = 149673,
-  [SMALL_STATE(6353)] = 149690,
-  [SMALL_STATE(6354)] = 149707,
-  [SMALL_STATE(6355)] = 149722,
-  [SMALL_STATE(6356)] = 149737,
-  [SMALL_STATE(6357)] = 149754,
-  [SMALL_STATE(6358)] = 149769,
-  [SMALL_STATE(6359)] = 149780,
-  [SMALL_STATE(6360)] = 149797,
-  [SMALL_STATE(6361)] = 149814,
-  [SMALL_STATE(6362)] = 149831,
-  [SMALL_STATE(6363)] = 149846,
-  [SMALL_STATE(6364)] = 149861,
-  [SMALL_STATE(6365)] = 149876,
-  [SMALL_STATE(6366)] = 149891,
-  [SMALL_STATE(6367)] = 149906,
-  [SMALL_STATE(6368)] = 149921,
-  [SMALL_STATE(6369)] = 149938,
-  [SMALL_STATE(6370)] = 149955,
-  [SMALL_STATE(6371)] = 149970,
-  [SMALL_STATE(6372)] = 149987,
-  [SMALL_STATE(6373)] = 150002,
-  [SMALL_STATE(6374)] = 150019,
-  [SMALL_STATE(6375)] = 150036,
-  [SMALL_STATE(6376)] = 150051,
-  [SMALL_STATE(6377)] = 150066,
-  [SMALL_STATE(6378)] = 150081,
-  [SMALL_STATE(6379)] = 150096,
-  [SMALL_STATE(6380)] = 150113,
-  [SMALL_STATE(6381)] = 150128,
-  [SMALL_STATE(6382)] = 150143,
-  [SMALL_STATE(6383)] = 150160,
-  [SMALL_STATE(6384)] = 150175,
-  [SMALL_STATE(6385)] = 150190,
-  [SMALL_STATE(6386)] = 150205,
-  [SMALL_STATE(6387)] = 150222,
-  [SMALL_STATE(6388)] = 150237,
-  [SMALL_STATE(6389)] = 150252,
-  [SMALL_STATE(6390)] = 150267,
-  [SMALL_STATE(6391)] = 150280,
-  [SMALL_STATE(6392)] = 150295,
-  [SMALL_STATE(6393)] = 150306,
-  [SMALL_STATE(6394)] = 150321,
-  [SMALL_STATE(6395)] = 150338,
-  [SMALL_STATE(6396)] = 150355,
-  [SMALL_STATE(6397)] = 150372,
-  [SMALL_STATE(6398)] = 150389,
-  [SMALL_STATE(6399)] = 150402,
-  [SMALL_STATE(6400)] = 150417,
-  [SMALL_STATE(6401)] = 150434,
-  [SMALL_STATE(6402)] = 150449,
-  [SMALL_STATE(6403)] = 150466,
-  [SMALL_STATE(6404)] = 150483,
-  [SMALL_STATE(6405)] = 150498,
-  [SMALL_STATE(6406)] = 150515,
-  [SMALL_STATE(6407)] = 150530,
-  [SMALL_STATE(6408)] = 150547,
-  [SMALL_STATE(6409)] = 150564,
-  [SMALL_STATE(6410)] = 150577,
-  [SMALL_STATE(6411)] = 150594,
-  [SMALL_STATE(6412)] = 150609,
-  [SMALL_STATE(6413)] = 150624,
-  [SMALL_STATE(6414)] = 150641,
-  [SMALL_STATE(6415)] = 150658,
-  [SMALL_STATE(6416)] = 150675,
-  [SMALL_STATE(6417)] = 150690,
-  [SMALL_STATE(6418)] = 150707,
-  [SMALL_STATE(6419)] = 150720,
-  [SMALL_STATE(6420)] = 150735,
-  [SMALL_STATE(6421)] = 150750,
-  [SMALL_STATE(6422)] = 150767,
-  [SMALL_STATE(6423)] = 150782,
-  [SMALL_STATE(6424)] = 150797,
-  [SMALL_STATE(6425)] = 150812,
-  [SMALL_STATE(6426)] = 150827,
-  [SMALL_STATE(6427)] = 150844,
-  [SMALL_STATE(6428)] = 150861,
-  [SMALL_STATE(6429)] = 150876,
-  [SMALL_STATE(6430)] = 150893,
-  [SMALL_STATE(6431)] = 150908,
-  [SMALL_STATE(6432)] = 150923,
-  [SMALL_STATE(6433)] = 150934,
-  [SMALL_STATE(6434)] = 150949,
-  [SMALL_STATE(6435)] = 150964,
-  [SMALL_STATE(6436)] = 150979,
-  [SMALL_STATE(6437)] = 150996,
-  [SMALL_STATE(6438)] = 151013,
-  [SMALL_STATE(6439)] = 151030,
-  [SMALL_STATE(6440)] = 151047,
-  [SMALL_STATE(6441)] = 151062,
-  [SMALL_STATE(6442)] = 151077,
-  [SMALL_STATE(6443)] = 151094,
-  [SMALL_STATE(6444)] = 151111,
-  [SMALL_STATE(6445)] = 151126,
-  [SMALL_STATE(6446)] = 151143,
-  [SMALL_STATE(6447)] = 151158,
-  [SMALL_STATE(6448)] = 151175,
-  [SMALL_STATE(6449)] = 151190,
-  [SMALL_STATE(6450)] = 151205,
-  [SMALL_STATE(6451)] = 151220,
-  [SMALL_STATE(6452)] = 151232,
-  [SMALL_STATE(6453)] = 151246,
-  [SMALL_STATE(6454)] = 151260,
-  [SMALL_STATE(6455)] = 151274,
-  [SMALL_STATE(6456)] = 151286,
-  [SMALL_STATE(6457)] = 151300,
-  [SMALL_STATE(6458)] = 151310,
-  [SMALL_STATE(6459)] = 151324,
-  [SMALL_STATE(6460)] = 151338,
-  [SMALL_STATE(6461)] = 151350,
-  [SMALL_STATE(6462)] = 151362,
-  [SMALL_STATE(6463)] = 151376,
-  [SMALL_STATE(6464)] = 151390,
-  [SMALL_STATE(6465)] = 151402,
-  [SMALL_STATE(6466)] = 151414,
-  [SMALL_STATE(6467)] = 151428,
-  [SMALL_STATE(6468)] = 151442,
-  [SMALL_STATE(6469)] = 151456,
-  [SMALL_STATE(6470)] = 151470,
-  [SMALL_STATE(6471)] = 151484,
-  [SMALL_STATE(6472)] = 151498,
-  [SMALL_STATE(6473)] = 151508,
-  [SMALL_STATE(6474)] = 151522,
-  [SMALL_STATE(6475)] = 151536,
-  [SMALL_STATE(6476)] = 151548,
-  [SMALL_STATE(6477)] = 151562,
-  [SMALL_STATE(6478)] = 151574,
-  [SMALL_STATE(6479)] = 151588,
-  [SMALL_STATE(6480)] = 151602,
-  [SMALL_STATE(6481)] = 151614,
-  [SMALL_STATE(6482)] = 151626,
-  [SMALL_STATE(6483)] = 151638,
-  [SMALL_STATE(6484)] = 151650,
-  [SMALL_STATE(6485)] = 151662,
-  [SMALL_STATE(6486)] = 151674,
-  [SMALL_STATE(6487)] = 151684,
-  [SMALL_STATE(6488)] = 151696,
-  [SMALL_STATE(6489)] = 151708,
-  [SMALL_STATE(6490)] = 151722,
-  [SMALL_STATE(6491)] = 151736,
-  [SMALL_STATE(6492)] = 151750,
-  [SMALL_STATE(6493)] = 151764,
-  [SMALL_STATE(6494)] = 151776,
-  [SMALL_STATE(6495)] = 151788,
-  [SMALL_STATE(6496)] = 151802,
-  [SMALL_STATE(6497)] = 151812,
-  [SMALL_STATE(6498)] = 151826,
-  [SMALL_STATE(6499)] = 151838,
-  [SMALL_STATE(6500)] = 151850,
-  [SMALL_STATE(6501)] = 151864,
-  [SMALL_STATE(6502)] = 151874,
-  [SMALL_STATE(6503)] = 151886,
-  [SMALL_STATE(6504)] = 151900,
-  [SMALL_STATE(6505)] = 151912,
-  [SMALL_STATE(6506)] = 151926,
-  [SMALL_STATE(6507)] = 151940,
-  [SMALL_STATE(6508)] = 151954,
-  [SMALL_STATE(6509)] = 151966,
-  [SMALL_STATE(6510)] = 151978,
-  [SMALL_STATE(6511)] = 151990,
-  [SMALL_STATE(6512)] = 152002,
-  [SMALL_STATE(6513)] = 152016,
-  [SMALL_STATE(6514)] = 152028,
-  [SMALL_STATE(6515)] = 152040,
-  [SMALL_STATE(6516)] = 152052,
-  [SMALL_STATE(6517)] = 152064,
-  [SMALL_STATE(6518)] = 152078,
-  [SMALL_STATE(6519)] = 152090,
-  [SMALL_STATE(6520)] = 152104,
-  [SMALL_STATE(6521)] = 152116,
-  [SMALL_STATE(6522)] = 152128,
-  [SMALL_STATE(6523)] = 152140,
-  [SMALL_STATE(6524)] = 152152,
-  [SMALL_STATE(6525)] = 152166,
-  [SMALL_STATE(6526)] = 152180,
-  [SMALL_STATE(6527)] = 152194,
-  [SMALL_STATE(6528)] = 152208,
-  [SMALL_STATE(6529)] = 152222,
-  [SMALL_STATE(6530)] = 152234,
-  [SMALL_STATE(6531)] = 152246,
-  [SMALL_STATE(6532)] = 152258,
-  [SMALL_STATE(6533)] = 152272,
-  [SMALL_STATE(6534)] = 152284,
-  [SMALL_STATE(6535)] = 152296,
-  [SMALL_STATE(6536)] = 152308,
-  [SMALL_STATE(6537)] = 152320,
-  [SMALL_STATE(6538)] = 152332,
-  [SMALL_STATE(6539)] = 152344,
-  [SMALL_STATE(6540)] = 152356,
-  [SMALL_STATE(6541)] = 152370,
-  [SMALL_STATE(6542)] = 152384,
-  [SMALL_STATE(6543)] = 152394,
-  [SMALL_STATE(6544)] = 152406,
-  [SMALL_STATE(6545)] = 152418,
-  [SMALL_STATE(6546)] = 152432,
-  [SMALL_STATE(6547)] = 152446,
-  [SMALL_STATE(6548)] = 152460,
-  [SMALL_STATE(6549)] = 152470,
-  [SMALL_STATE(6550)] = 152484,
-  [SMALL_STATE(6551)] = 152498,
-  [SMALL_STATE(6552)] = 152512,
-  [SMALL_STATE(6553)] = 152526,
-  [SMALL_STATE(6554)] = 152540,
-  [SMALL_STATE(6555)] = 152554,
-  [SMALL_STATE(6556)] = 152568,
-  [SMALL_STATE(6557)] = 152582,
-  [SMALL_STATE(6558)] = 152596,
-  [SMALL_STATE(6559)] = 152608,
-  [SMALL_STATE(6560)] = 152620,
-  [SMALL_STATE(6561)] = 152634,
-  [SMALL_STATE(6562)] = 152648,
-  [SMALL_STATE(6563)] = 152662,
-  [SMALL_STATE(6564)] = 152672,
-  [SMALL_STATE(6565)] = 152686,
-  [SMALL_STATE(6566)] = 152700,
-  [SMALL_STATE(6567)] = 152712,
-  [SMALL_STATE(6568)] = 152726,
-  [SMALL_STATE(6569)] = 152740,
-  [SMALL_STATE(6570)] = 152752,
-  [SMALL_STATE(6571)] = 152764,
-  [SMALL_STATE(6572)] = 152778,
-  [SMALL_STATE(6573)] = 152790,
-  [SMALL_STATE(6574)] = 152804,
-  [SMALL_STATE(6575)] = 152818,
-  [SMALL_STATE(6576)] = 152832,
-  [SMALL_STATE(6577)] = 152844,
-  [SMALL_STATE(6578)] = 152858,
-  [SMALL_STATE(6579)] = 152870,
-  [SMALL_STATE(6580)] = 152884,
-  [SMALL_STATE(6581)] = 152896,
-  [SMALL_STATE(6582)] = 152910,
-  [SMALL_STATE(6583)] = 152922,
-  [SMALL_STATE(6584)] = 152936,
-  [SMALL_STATE(6585)] = 152950,
-  [SMALL_STATE(6586)] = 152962,
-  [SMALL_STATE(6587)] = 152974,
-  [SMALL_STATE(6588)] = 152986,
-  [SMALL_STATE(6589)] = 152998,
-  [SMALL_STATE(6590)] = 153012,
-  [SMALL_STATE(6591)] = 153026,
-  [SMALL_STATE(6592)] = 153036,
-  [SMALL_STATE(6593)] = 153048,
-  [SMALL_STATE(6594)] = 153062,
-  [SMALL_STATE(6595)] = 153074,
-  [SMALL_STATE(6596)] = 153086,
-  [SMALL_STATE(6597)] = 153098,
-  [SMALL_STATE(6598)] = 153110,
-  [SMALL_STATE(6599)] = 153124,
-  [SMALL_STATE(6600)] = 153136,
-  [SMALL_STATE(6601)] = 153150,
-  [SMALL_STATE(6602)] = 153164,
-  [SMALL_STATE(6603)] = 153178,
-  [SMALL_STATE(6604)] = 153192,
-  [SMALL_STATE(6605)] = 153204,
-  [SMALL_STATE(6606)] = 153216,
-  [SMALL_STATE(6607)] = 153230,
-  [SMALL_STATE(6608)] = 153242,
-  [SMALL_STATE(6609)] = 153254,
-  [SMALL_STATE(6610)] = 153266,
-  [SMALL_STATE(6611)] = 153280,
-  [SMALL_STATE(6612)] = 153294,
-  [SMALL_STATE(6613)] = 153308,
-  [SMALL_STATE(6614)] = 153322,
-  [SMALL_STATE(6615)] = 153334,
-  [SMALL_STATE(6616)] = 153348,
-  [SMALL_STATE(6617)] = 153360,
-  [SMALL_STATE(6618)] = 153374,
-  [SMALL_STATE(6619)] = 153388,
-  [SMALL_STATE(6620)] = 153402,
-  [SMALL_STATE(6621)] = 153416,
-  [SMALL_STATE(6622)] = 153430,
-  [SMALL_STATE(6623)] = 153442,
-  [SMALL_STATE(6624)] = 153454,
-  [SMALL_STATE(6625)] = 153468,
-  [SMALL_STATE(6626)] = 153480,
-  [SMALL_STATE(6627)] = 153494,
-  [SMALL_STATE(6628)] = 153506,
-  [SMALL_STATE(6629)] = 153518,
-  [SMALL_STATE(6630)] = 153532,
-  [SMALL_STATE(6631)] = 153542,
-  [SMALL_STATE(6632)] = 153554,
-  [SMALL_STATE(6633)] = 153566,
-  [SMALL_STATE(6634)] = 153578,
-  [SMALL_STATE(6635)] = 153592,
-  [SMALL_STATE(6636)] = 153606,
-  [SMALL_STATE(6637)] = 153620,
-  [SMALL_STATE(6638)] = 153634,
-  [SMALL_STATE(6639)] = 153648,
-  [SMALL_STATE(6640)] = 153660,
-  [SMALL_STATE(6641)] = 153672,
-  [SMALL_STATE(6642)] = 153684,
-  [SMALL_STATE(6643)] = 153698,
-  [SMALL_STATE(6644)] = 153712,
-  [SMALL_STATE(6645)] = 153724,
-  [SMALL_STATE(6646)] = 153738,
-  [SMALL_STATE(6647)] = 153752,
-  [SMALL_STATE(6648)] = 153764,
-  [SMALL_STATE(6649)] = 153778,
-  [SMALL_STATE(6650)] = 153790,
-  [SMALL_STATE(6651)] = 153804,
-  [SMALL_STATE(6652)] = 153818,
-  [SMALL_STATE(6653)] = 153832,
-  [SMALL_STATE(6654)] = 153844,
-  [SMALL_STATE(6655)] = 153856,
-  [SMALL_STATE(6656)] = 153868,
-  [SMALL_STATE(6657)] = 153882,
-  [SMALL_STATE(6658)] = 153896,
-  [SMALL_STATE(6659)] = 153908,
-  [SMALL_STATE(6660)] = 153922,
-  [SMALL_STATE(6661)] = 153936,
-  [SMALL_STATE(6662)] = 153950,
-  [SMALL_STATE(6663)] = 153962,
-  [SMALL_STATE(6664)] = 153974,
-  [SMALL_STATE(6665)] = 153986,
-  [SMALL_STATE(6666)] = 153998,
-  [SMALL_STATE(6667)] = 154012,
-  [SMALL_STATE(6668)] = 154024,
-  [SMALL_STATE(6669)] = 154038,
-  [SMALL_STATE(6670)] = 154052,
-  [SMALL_STATE(6671)] = 154066,
-  [SMALL_STATE(6672)] = 154078,
-  [SMALL_STATE(6673)] = 154090,
-  [SMALL_STATE(6674)] = 154104,
-  [SMALL_STATE(6675)] = 154116,
-  [SMALL_STATE(6676)] = 154128,
-  [SMALL_STATE(6677)] = 154142,
-  [SMALL_STATE(6678)] = 154154,
-  [SMALL_STATE(6679)] = 154168,
-  [SMALL_STATE(6680)] = 154180,
-  [SMALL_STATE(6681)] = 154194,
-  [SMALL_STATE(6682)] = 154208,
-  [SMALL_STATE(6683)] = 154222,
-  [SMALL_STATE(6684)] = 154234,
-  [SMALL_STATE(6685)] = 154248,
-  [SMALL_STATE(6686)] = 154262,
-  [SMALL_STATE(6687)] = 154276,
-  [SMALL_STATE(6688)] = 154290,
-  [SMALL_STATE(6689)] = 154302,
-  [SMALL_STATE(6690)] = 154316,
-  [SMALL_STATE(6691)] = 154330,
-  [SMALL_STATE(6692)] = 154342,
-  [SMALL_STATE(6693)] = 154354,
-  [SMALL_STATE(6694)] = 154368,
-  [SMALL_STATE(6695)] = 154382,
-  [SMALL_STATE(6696)] = 154394,
-  [SMALL_STATE(6697)] = 154406,
-  [SMALL_STATE(6698)] = 154418,
-  [SMALL_STATE(6699)] = 154432,
-  [SMALL_STATE(6700)] = 154446,
-  [SMALL_STATE(6701)] = 154460,
-  [SMALL_STATE(6702)] = 154472,
-  [SMALL_STATE(6703)] = 154486,
-  [SMALL_STATE(6704)] = 154500,
-  [SMALL_STATE(6705)] = 154514,
-  [SMALL_STATE(6706)] = 154526,
-  [SMALL_STATE(6707)] = 154540,
-  [SMALL_STATE(6708)] = 154552,
-  [SMALL_STATE(6709)] = 154566,
-  [SMALL_STATE(6710)] = 154578,
-  [SMALL_STATE(6711)] = 154592,
-  [SMALL_STATE(6712)] = 154606,
-  [SMALL_STATE(6713)] = 154620,
-  [SMALL_STATE(6714)] = 154632,
-  [SMALL_STATE(6715)] = 154644,
-  [SMALL_STATE(6716)] = 154656,
-  [SMALL_STATE(6717)] = 154668,
-  [SMALL_STATE(6718)] = 154682,
-  [SMALL_STATE(6719)] = 154696,
-  [SMALL_STATE(6720)] = 154708,
-  [SMALL_STATE(6721)] = 154720,
-  [SMALL_STATE(6722)] = 154734,
-  [SMALL_STATE(6723)] = 154748,
-  [SMALL_STATE(6724)] = 154760,
-  [SMALL_STATE(6725)] = 154772,
-  [SMALL_STATE(6726)] = 154784,
-  [SMALL_STATE(6727)] = 154796,
-  [SMALL_STATE(6728)] = 154808,
-  [SMALL_STATE(6729)] = 154820,
-  [SMALL_STATE(6730)] = 154830,
-  [SMALL_STATE(6731)] = 154842,
-  [SMALL_STATE(6732)] = 154856,
-  [SMALL_STATE(6733)] = 154868,
-  [SMALL_STATE(6734)] = 154880,
-  [SMALL_STATE(6735)] = 154892,
-  [SMALL_STATE(6736)] = 154906,
-  [SMALL_STATE(6737)] = 154918,
-  [SMALL_STATE(6738)] = 154930,
-  [SMALL_STATE(6739)] = 154944,
-  [SMALL_STATE(6740)] = 154956,
-  [SMALL_STATE(6741)] = 154968,
-  [SMALL_STATE(6742)] = 154980,
-  [SMALL_STATE(6743)] = 154994,
-  [SMALL_STATE(6744)] = 155008,
-  [SMALL_STATE(6745)] = 155022,
-  [SMALL_STATE(6746)] = 155034,
-  [SMALL_STATE(6747)] = 155046,
-  [SMALL_STATE(6748)] = 155056,
-  [SMALL_STATE(6749)] = 155068,
-  [SMALL_STATE(6750)] = 155078,
-  [SMALL_STATE(6751)] = 155092,
-  [SMALL_STATE(6752)] = 155104,
-  [SMALL_STATE(6753)] = 155118,
-  [SMALL_STATE(6754)] = 155132,
-  [SMALL_STATE(6755)] = 155144,
-  [SMALL_STATE(6756)] = 155156,
-  [SMALL_STATE(6757)] = 155170,
-  [SMALL_STATE(6758)] = 155182,
-  [SMALL_STATE(6759)] = 155194,
-  [SMALL_STATE(6760)] = 155206,
-  [SMALL_STATE(6761)] = 155220,
-  [SMALL_STATE(6762)] = 155234,
-  [SMALL_STATE(6763)] = 155248,
-  [SMALL_STATE(6764)] = 155262,
-  [SMALL_STATE(6765)] = 155276,
-  [SMALL_STATE(6766)] = 155288,
-  [SMALL_STATE(6767)] = 155302,
-  [SMALL_STATE(6768)] = 155314,
-  [SMALL_STATE(6769)] = 155328,
-  [SMALL_STATE(6770)] = 155342,
-  [SMALL_STATE(6771)] = 155354,
-  [SMALL_STATE(6772)] = 155368,
-  [SMALL_STATE(6773)] = 155380,
-  [SMALL_STATE(6774)] = 155394,
-  [SMALL_STATE(6775)] = 155408,
-  [SMALL_STATE(6776)] = 155422,
-  [SMALL_STATE(6777)] = 155434,
-  [SMALL_STATE(6778)] = 155446,
-  [SMALL_STATE(6779)] = 155458,
-  [SMALL_STATE(6780)] = 155472,
-  [SMALL_STATE(6781)] = 155484,
-  [SMALL_STATE(6782)] = 155498,
-  [SMALL_STATE(6783)] = 155512,
-  [SMALL_STATE(6784)] = 155524,
-  [SMALL_STATE(6785)] = 155536,
-  [SMALL_STATE(6786)] = 155548,
-  [SMALL_STATE(6787)] = 155560,
-  [SMALL_STATE(6788)] = 155574,
-  [SMALL_STATE(6789)] = 155588,
-  [SMALL_STATE(6790)] = 155600,
-  [SMALL_STATE(6791)] = 155612,
-  [SMALL_STATE(6792)] = 155626,
-  [SMALL_STATE(6793)] = 155638,
-  [SMALL_STATE(6794)] = 155650,
-  [SMALL_STATE(6795)] = 155664,
-  [SMALL_STATE(6796)] = 155678,
-  [SMALL_STATE(6797)] = 155690,
-  [SMALL_STATE(6798)] = 155702,
-  [SMALL_STATE(6799)] = 155714,
-  [SMALL_STATE(6800)] = 155728,
-  [SMALL_STATE(6801)] = 155740,
-  [SMALL_STATE(6802)] = 155752,
-  [SMALL_STATE(6803)] = 155766,
-  [SMALL_STATE(6804)] = 155778,
-  [SMALL_STATE(6805)] = 155790,
-  [SMALL_STATE(6806)] = 155804,
-  [SMALL_STATE(6807)] = 155816,
-  [SMALL_STATE(6808)] = 155828,
-  [SMALL_STATE(6809)] = 155842,
-  [SMALL_STATE(6810)] = 155854,
-  [SMALL_STATE(6811)] = 155868,
-  [SMALL_STATE(6812)] = 155882,
-  [SMALL_STATE(6813)] = 155896,
-  [SMALL_STATE(6814)] = 155908,
-  [SMALL_STATE(6815)] = 155922,
-  [SMALL_STATE(6816)] = 155934,
-  [SMALL_STATE(6817)] = 155948,
-  [SMALL_STATE(6818)] = 155960,
-  [SMALL_STATE(6819)] = 155972,
-  [SMALL_STATE(6820)] = 155986,
-  [SMALL_STATE(6821)] = 156000,
-  [SMALL_STATE(6822)] = 156014,
-  [SMALL_STATE(6823)] = 156028,
-  [SMALL_STATE(6824)] = 156040,
-  [SMALL_STATE(6825)] = 156054,
-  [SMALL_STATE(6826)] = 156068,
-  [SMALL_STATE(6827)] = 156080,
-  [SMALL_STATE(6828)] = 156094,
-  [SMALL_STATE(6829)] = 156108,
-  [SMALL_STATE(6830)] = 156120,
-  [SMALL_STATE(6831)] = 156134,
-  [SMALL_STATE(6832)] = 156146,
-  [SMALL_STATE(6833)] = 156160,
-  [SMALL_STATE(6834)] = 156172,
-  [SMALL_STATE(6835)] = 156186,
-  [SMALL_STATE(6836)] = 156198,
-  [SMALL_STATE(6837)] = 156210,
-  [SMALL_STATE(6838)] = 156224,
-  [SMALL_STATE(6839)] = 156238,
-  [SMALL_STATE(6840)] = 156250,
-  [SMALL_STATE(6841)] = 156264,
-  [SMALL_STATE(6842)] = 156278,
-  [SMALL_STATE(6843)] = 156290,
-  [SMALL_STATE(6844)] = 156302,
-  [SMALL_STATE(6845)] = 156314,
-  [SMALL_STATE(6846)] = 156326,
-  [SMALL_STATE(6847)] = 156338,
-  [SMALL_STATE(6848)] = 156352,
-  [SMALL_STATE(6849)] = 156364,
-  [SMALL_STATE(6850)] = 156378,
-  [SMALL_STATE(6851)] = 156390,
-  [SMALL_STATE(6852)] = 156402,
-  [SMALL_STATE(6853)] = 156416,
-  [SMALL_STATE(6854)] = 156428,
-  [SMALL_STATE(6855)] = 156440,
-  [SMALL_STATE(6856)] = 156452,
+  [SMALL_STATE(5999)] = 143278,
+  [SMALL_STATE(6000)] = 143294,
+  [SMALL_STATE(6001)] = 143314,
+  [SMALL_STATE(6002)] = 143340,
+  [SMALL_STATE(6003)] = 143366,
+  [SMALL_STATE(6004)] = 143386,
+  [SMALL_STATE(6005)] = 143402,
+  [SMALL_STATE(6006)] = 143422,
+  [SMALL_STATE(6007)] = 143438,
+  [SMALL_STATE(6008)] = 143454,
+  [SMALL_STATE(6009)] = 143470,
+  [SMALL_STATE(6010)] = 143492,
+  [SMALL_STATE(6011)] = 143514,
+  [SMALL_STATE(6012)] = 143534,
+  [SMALL_STATE(6013)] = 143550,
+  [SMALL_STATE(6014)] = 143564,
+  [SMALL_STATE(6015)] = 143590,
+  [SMALL_STATE(6016)] = 143604,
+  [SMALL_STATE(6017)] = 143626,
+  [SMALL_STATE(6018)] = 143646,
+  [SMALL_STATE(6019)] = 143672,
+  [SMALL_STATE(6020)] = 143696,
+  [SMALL_STATE(6021)] = 143712,
+  [SMALL_STATE(6022)] = 143734,
+  [SMALL_STATE(6023)] = 143750,
+  [SMALL_STATE(6024)] = 143770,
+  [SMALL_STATE(6025)] = 143790,
+  [SMALL_STATE(6026)] = 143806,
+  [SMALL_STATE(6027)] = 143822,
+  [SMALL_STATE(6028)] = 143836,
+  [SMALL_STATE(6029)] = 143856,
+  [SMALL_STATE(6030)] = 143876,
+  [SMALL_STATE(6031)] = 143890,
+  [SMALL_STATE(6032)] = 143906,
+  [SMALL_STATE(6033)] = 143932,
+  [SMALL_STATE(6034)] = 143956,
+  [SMALL_STATE(6035)] = 143972,
+  [SMALL_STATE(6036)] = 143993,
+  [SMALL_STATE(6037)] = 144014,
+  [SMALL_STATE(6038)] = 144035,
+  [SMALL_STATE(6039)] = 144048,
+  [SMALL_STATE(6040)] = 144069,
+  [SMALL_STATE(6041)] = 144090,
+  [SMALL_STATE(6042)] = 144111,
+  [SMALL_STATE(6043)] = 144132,
+  [SMALL_STATE(6044)] = 144153,
+  [SMALL_STATE(6045)] = 144174,
+  [SMALL_STATE(6046)] = 144195,
+  [SMALL_STATE(6047)] = 144216,
+  [SMALL_STATE(6048)] = 144237,
+  [SMALL_STATE(6049)] = 144252,
+  [SMALL_STATE(6050)] = 144273,
+  [SMALL_STATE(6051)] = 144294,
+  [SMALL_STATE(6052)] = 144315,
+  [SMALL_STATE(6053)] = 144336,
+  [SMALL_STATE(6054)] = 144351,
+  [SMALL_STATE(6055)] = 144366,
+  [SMALL_STATE(6056)] = 144381,
+  [SMALL_STATE(6057)] = 144396,
+  [SMALL_STATE(6058)] = 144417,
+  [SMALL_STATE(6059)] = 144438,
+  [SMALL_STATE(6060)] = 144459,
+  [SMALL_STATE(6061)] = 144480,
+  [SMALL_STATE(6062)] = 144501,
+  [SMALL_STATE(6063)] = 144522,
+  [SMALL_STATE(6064)] = 144543,
+  [SMALL_STATE(6065)] = 144564,
+  [SMALL_STATE(6066)] = 144585,
+  [SMALL_STATE(6067)] = 144606,
+  [SMALL_STATE(6068)] = 144627,
+  [SMALL_STATE(6069)] = 144648,
+  [SMALL_STATE(6070)] = 144669,
+  [SMALL_STATE(6071)] = 144690,
+  [SMALL_STATE(6072)] = 144711,
+  [SMALL_STATE(6073)] = 144732,
+  [SMALL_STATE(6074)] = 144753,
+  [SMALL_STATE(6075)] = 144774,
+  [SMALL_STATE(6076)] = 144795,
+  [SMALL_STATE(6077)] = 144816,
+  [SMALL_STATE(6078)] = 144837,
+  [SMALL_STATE(6079)] = 144855,
+  [SMALL_STATE(6080)] = 144873,
+  [SMALL_STATE(6081)] = 144891,
+  [SMALL_STATE(6082)] = 144911,
+  [SMALL_STATE(6083)] = 144931,
+  [SMALL_STATE(6084)] = 144949,
+  [SMALL_STATE(6085)] = 144967,
+  [SMALL_STATE(6086)] = 144985,
+  [SMALL_STATE(6087)] = 145003,
+  [SMALL_STATE(6088)] = 145021,
+  [SMALL_STATE(6089)] = 145039,
+  [SMALL_STATE(6090)] = 145053,
+  [SMALL_STATE(6091)] = 145071,
+  [SMALL_STATE(6092)] = 145089,
+  [SMALL_STATE(6093)] = 145107,
+  [SMALL_STATE(6094)] = 145125,
+  [SMALL_STATE(6095)] = 145143,
+  [SMALL_STATE(6096)] = 145161,
+  [SMALL_STATE(6097)] = 145179,
+  [SMALL_STATE(6098)] = 145197,
+  [SMALL_STATE(6099)] = 145217,
+  [SMALL_STATE(6100)] = 145237,
+  [SMALL_STATE(6101)] = 145255,
+  [SMALL_STATE(6102)] = 145273,
+  [SMALL_STATE(6103)] = 145291,
+  [SMALL_STATE(6104)] = 145309,
+  [SMALL_STATE(6105)] = 145327,
+  [SMALL_STATE(6106)] = 145345,
+  [SMALL_STATE(6107)] = 145363,
+  [SMALL_STATE(6108)] = 145383,
+  [SMALL_STATE(6109)] = 145401,
+  [SMALL_STATE(6110)] = 145419,
+  [SMALL_STATE(6111)] = 145437,
+  [SMALL_STATE(6112)] = 145455,
+  [SMALL_STATE(6113)] = 145475,
+  [SMALL_STATE(6114)] = 145493,
+  [SMALL_STATE(6115)] = 145511,
+  [SMALL_STATE(6116)] = 145529,
+  [SMALL_STATE(6117)] = 145547,
+  [SMALL_STATE(6118)] = 145565,
+  [SMALL_STATE(6119)] = 145583,
+  [SMALL_STATE(6120)] = 145601,
+  [SMALL_STATE(6121)] = 145619,
+  [SMALL_STATE(6122)] = 145637,
+  [SMALL_STATE(6123)] = 145655,
+  [SMALL_STATE(6124)] = 145673,
+  [SMALL_STATE(6125)] = 145691,
+  [SMALL_STATE(6126)] = 145703,
+  [SMALL_STATE(6127)] = 145721,
+  [SMALL_STATE(6128)] = 145739,
+  [SMALL_STATE(6129)] = 145757,
+  [SMALL_STATE(6130)] = 145775,
+  [SMALL_STATE(6131)] = 145793,
+  [SMALL_STATE(6132)] = 145811,
+  [SMALL_STATE(6133)] = 145829,
+  [SMALL_STATE(6134)] = 145849,
+  [SMALL_STATE(6135)] = 145867,
+  [SMALL_STATE(6136)] = 145885,
+  [SMALL_STATE(6137)] = 145903,
+  [SMALL_STATE(6138)] = 145921,
+  [SMALL_STATE(6139)] = 145933,
+  [SMALL_STATE(6140)] = 145951,
+  [SMALL_STATE(6141)] = 145969,
+  [SMALL_STATE(6142)] = 145987,
+  [SMALL_STATE(6143)] = 146005,
+  [SMALL_STATE(6144)] = 146023,
+  [SMALL_STATE(6145)] = 146041,
+  [SMALL_STATE(6146)] = 146059,
+  [SMALL_STATE(6147)] = 146077,
+  [SMALL_STATE(6148)] = 146095,
+  [SMALL_STATE(6149)] = 146113,
+  [SMALL_STATE(6150)] = 146131,
+  [SMALL_STATE(6151)] = 146149,
+  [SMALL_STATE(6152)] = 146167,
+  [SMALL_STATE(6153)] = 146185,
+  [SMALL_STATE(6154)] = 146203,
+  [SMALL_STATE(6155)] = 146221,
+  [SMALL_STATE(6156)] = 146239,
+  [SMALL_STATE(6157)] = 146257,
+  [SMALL_STATE(6158)] = 146275,
+  [SMALL_STATE(6159)] = 146293,
+  [SMALL_STATE(6160)] = 146311,
+  [SMALL_STATE(6161)] = 146329,
+  [SMALL_STATE(6162)] = 146347,
+  [SMALL_STATE(6163)] = 146365,
+  [SMALL_STATE(6164)] = 146383,
+  [SMALL_STATE(6165)] = 146401,
+  [SMALL_STATE(6166)] = 146417,
+  [SMALL_STATE(6167)] = 146435,
+  [SMALL_STATE(6168)] = 146453,
+  [SMALL_STATE(6169)] = 146471,
+  [SMALL_STATE(6170)] = 146489,
+  [SMALL_STATE(6171)] = 146507,
+  [SMALL_STATE(6172)] = 146525,
+  [SMALL_STATE(6173)] = 146543,
+  [SMALL_STATE(6174)] = 146561,
+  [SMALL_STATE(6175)] = 146579,
+  [SMALL_STATE(6176)] = 146597,
+  [SMALL_STATE(6177)] = 146615,
+  [SMALL_STATE(6178)] = 146633,
+  [SMALL_STATE(6179)] = 146651,
+  [SMALL_STATE(6180)] = 146669,
+  [SMALL_STATE(6181)] = 146687,
+  [SMALL_STATE(6182)] = 146705,
+  [SMALL_STATE(6183)] = 146723,
+  [SMALL_STATE(6184)] = 146741,
+  [SMALL_STATE(6185)] = 146759,
+  [SMALL_STATE(6186)] = 146777,
+  [SMALL_STATE(6187)] = 146795,
+  [SMALL_STATE(6188)] = 146813,
+  [SMALL_STATE(6189)] = 146831,
+  [SMALL_STATE(6190)] = 146849,
+  [SMALL_STATE(6191)] = 146867,
+  [SMALL_STATE(6192)] = 146885,
+  [SMALL_STATE(6193)] = 146901,
+  [SMALL_STATE(6194)] = 146921,
+  [SMALL_STATE(6195)] = 146941,
+  [SMALL_STATE(6196)] = 146961,
+  [SMALL_STATE(6197)] = 146977,
+  [SMALL_STATE(6198)] = 146995,
+  [SMALL_STATE(6199)] = 147013,
+  [SMALL_STATE(6200)] = 147031,
+  [SMALL_STATE(6201)] = 147049,
+  [SMALL_STATE(6202)] = 147067,
+  [SMALL_STATE(6203)] = 147085,
+  [SMALL_STATE(6204)] = 147103,
+  [SMALL_STATE(6205)] = 147121,
+  [SMALL_STATE(6206)] = 147139,
+  [SMALL_STATE(6207)] = 147157,
+  [SMALL_STATE(6208)] = 147173,
+  [SMALL_STATE(6209)] = 147191,
+  [SMALL_STATE(6210)] = 147209,
+  [SMALL_STATE(6211)] = 147227,
+  [SMALL_STATE(6212)] = 147245,
+  [SMALL_STATE(6213)] = 147263,
+  [SMALL_STATE(6214)] = 147281,
+  [SMALL_STATE(6215)] = 147299,
+  [SMALL_STATE(6216)] = 147317,
+  [SMALL_STATE(6217)] = 147335,
+  [SMALL_STATE(6218)] = 147353,
+  [SMALL_STATE(6219)] = 147371,
+  [SMALL_STATE(6220)] = 147387,
+  [SMALL_STATE(6221)] = 147405,
+  [SMALL_STATE(6222)] = 147423,
+  [SMALL_STATE(6223)] = 147441,
+  [SMALL_STATE(6224)] = 147459,
+  [SMALL_STATE(6225)] = 147477,
+  [SMALL_STATE(6226)] = 147495,
+  [SMALL_STATE(6227)] = 147515,
+  [SMALL_STATE(6228)] = 147535,
+  [SMALL_STATE(6229)] = 147553,
+  [SMALL_STATE(6230)] = 147571,
+  [SMALL_STATE(6231)] = 147589,
+  [SMALL_STATE(6232)] = 147607,
+  [SMALL_STATE(6233)] = 147625,
+  [SMALL_STATE(6234)] = 147645,
+  [SMALL_STATE(6235)] = 147663,
+  [SMALL_STATE(6236)] = 147681,
+  [SMALL_STATE(6237)] = 147699,
+  [SMALL_STATE(6238)] = 147713,
+  [SMALL_STATE(6239)] = 147733,
+  [SMALL_STATE(6240)] = 147751,
+  [SMALL_STATE(6241)] = 147769,
+  [SMALL_STATE(6242)] = 147787,
+  [SMALL_STATE(6243)] = 147805,
+  [SMALL_STATE(6244)] = 147823,
+  [SMALL_STATE(6245)] = 147841,
+  [SMALL_STATE(6246)] = 147859,
+  [SMALL_STATE(6247)] = 147877,
+  [SMALL_STATE(6248)] = 147895,
+  [SMALL_STATE(6249)] = 147913,
+  [SMALL_STATE(6250)] = 147931,
+  [SMALL_STATE(6251)] = 147949,
+  [SMALL_STATE(6252)] = 147967,
+  [SMALL_STATE(6253)] = 147985,
+  [SMALL_STATE(6254)] = 148003,
+  [SMALL_STATE(6255)] = 148021,
+  [SMALL_STATE(6256)] = 148041,
+  [SMALL_STATE(6257)] = 148059,
+  [SMALL_STATE(6258)] = 148077,
+  [SMALL_STATE(6259)] = 148095,
+  [SMALL_STATE(6260)] = 148111,
+  [SMALL_STATE(6261)] = 148129,
+  [SMALL_STATE(6262)] = 148147,
+  [SMALL_STATE(6263)] = 148167,
+  [SMALL_STATE(6264)] = 148185,
+  [SMALL_STATE(6265)] = 148203,
+  [SMALL_STATE(6266)] = 148221,
+  [SMALL_STATE(6267)] = 148239,
+  [SMALL_STATE(6268)] = 148257,
+  [SMALL_STATE(6269)] = 148273,
+  [SMALL_STATE(6270)] = 148293,
+  [SMALL_STATE(6271)] = 148311,
+  [SMALL_STATE(6272)] = 148329,
+  [SMALL_STATE(6273)] = 148345,
+  [SMALL_STATE(6274)] = 148363,
+  [SMALL_STATE(6275)] = 148381,
+  [SMALL_STATE(6276)] = 148399,
+  [SMALL_STATE(6277)] = 148417,
+  [SMALL_STATE(6278)] = 148435,
+  [SMALL_STATE(6279)] = 148453,
+  [SMALL_STATE(6280)] = 148471,
+  [SMALL_STATE(6281)] = 148489,
+  [SMALL_STATE(6282)] = 148507,
+  [SMALL_STATE(6283)] = 148525,
+  [SMALL_STATE(6284)] = 148543,
+  [SMALL_STATE(6285)] = 148561,
+  [SMALL_STATE(6286)] = 148579,
+  [SMALL_STATE(6287)] = 148597,
+  [SMALL_STATE(6288)] = 148615,
+  [SMALL_STATE(6289)] = 148633,
+  [SMALL_STATE(6290)] = 148651,
+  [SMALL_STATE(6291)] = 148671,
+  [SMALL_STATE(6292)] = 148689,
+  [SMALL_STATE(6293)] = 148707,
+  [SMALL_STATE(6294)] = 148725,
+  [SMALL_STATE(6295)] = 148745,
+  [SMALL_STATE(6296)] = 148763,
+  [SMALL_STATE(6297)] = 148781,
+  [SMALL_STATE(6298)] = 148799,
+  [SMALL_STATE(6299)] = 148817,
+  [SMALL_STATE(6300)] = 148835,
+  [SMALL_STATE(6301)] = 148853,
+  [SMALL_STATE(6302)] = 148871,
+  [SMALL_STATE(6303)] = 148889,
+  [SMALL_STATE(6304)] = 148907,
+  [SMALL_STATE(6305)] = 148925,
+  [SMALL_STATE(6306)] = 148943,
+  [SMALL_STATE(6307)] = 148961,
+  [SMALL_STATE(6308)] = 148978,
+  [SMALL_STATE(6309)] = 148995,
+  [SMALL_STATE(6310)] = 149010,
+  [SMALL_STATE(6311)] = 149025,
+  [SMALL_STATE(6312)] = 149042,
+  [SMALL_STATE(6313)] = 149059,
+  [SMALL_STATE(6314)] = 149074,
+  [SMALL_STATE(6315)] = 149085,
+  [SMALL_STATE(6316)] = 149098,
+  [SMALL_STATE(6317)] = 149115,
+  [SMALL_STATE(6318)] = 149130,
+  [SMALL_STATE(6319)] = 149147,
+  [SMALL_STATE(6320)] = 149164,
+  [SMALL_STATE(6321)] = 149181,
+  [SMALL_STATE(6322)] = 149192,
+  [SMALL_STATE(6323)] = 149207,
+  [SMALL_STATE(6324)] = 149224,
+  [SMALL_STATE(6325)] = 149239,
+  [SMALL_STATE(6326)] = 149256,
+  [SMALL_STATE(6327)] = 149271,
+  [SMALL_STATE(6328)] = 149286,
+  [SMALL_STATE(6329)] = 149301,
+  [SMALL_STATE(6330)] = 149316,
+  [SMALL_STATE(6331)] = 149333,
+  [SMALL_STATE(6332)] = 149348,
+  [SMALL_STATE(6333)] = 149363,
+  [SMALL_STATE(6334)] = 149378,
+  [SMALL_STATE(6335)] = 149393,
+  [SMALL_STATE(6336)] = 149410,
+  [SMALL_STATE(6337)] = 149425,
+  [SMALL_STATE(6338)] = 149440,
+  [SMALL_STATE(6339)] = 149455,
+  [SMALL_STATE(6340)] = 149468,
+  [SMALL_STATE(6341)] = 149485,
+  [SMALL_STATE(6342)] = 149500,
+  [SMALL_STATE(6343)] = 149517,
+  [SMALL_STATE(6344)] = 149534,
+  [SMALL_STATE(6345)] = 149549,
+  [SMALL_STATE(6346)] = 149564,
+  [SMALL_STATE(6347)] = 149581,
+  [SMALL_STATE(6348)] = 149598,
+  [SMALL_STATE(6349)] = 149615,
+  [SMALL_STATE(6350)] = 149630,
+  [SMALL_STATE(6351)] = 149647,
+  [SMALL_STATE(6352)] = 149664,
+  [SMALL_STATE(6353)] = 149679,
+  [SMALL_STATE(6354)] = 149694,
+  [SMALL_STATE(6355)] = 149709,
+  [SMALL_STATE(6356)] = 149724,
+  [SMALL_STATE(6357)] = 149741,
+  [SMALL_STATE(6358)] = 149758,
+  [SMALL_STATE(6359)] = 149775,
+  [SMALL_STATE(6360)] = 149792,
+  [SMALL_STATE(6361)] = 149807,
+  [SMALL_STATE(6362)] = 149822,
+  [SMALL_STATE(6363)] = 149839,
+  [SMALL_STATE(6364)] = 149856,
+  [SMALL_STATE(6365)] = 149873,
+  [SMALL_STATE(6366)] = 149888,
+  [SMALL_STATE(6367)] = 149903,
+  [SMALL_STATE(6368)] = 149918,
+  [SMALL_STATE(6369)] = 149933,
+  [SMALL_STATE(6370)] = 149950,
+  [SMALL_STATE(6371)] = 149965,
+  [SMALL_STATE(6372)] = 149980,
+  [SMALL_STATE(6373)] = 149995,
+  [SMALL_STATE(6374)] = 150010,
+  [SMALL_STATE(6375)] = 150025,
+  [SMALL_STATE(6376)] = 150042,
+  [SMALL_STATE(6377)] = 150059,
+  [SMALL_STATE(6378)] = 150074,
+  [SMALL_STATE(6379)] = 150089,
+  [SMALL_STATE(6380)] = 150104,
+  [SMALL_STATE(6381)] = 150121,
+  [SMALL_STATE(6382)] = 150134,
+  [SMALL_STATE(6383)] = 150151,
+  [SMALL_STATE(6384)] = 150166,
+  [SMALL_STATE(6385)] = 150181,
+  [SMALL_STATE(6386)] = 150198,
+  [SMALL_STATE(6387)] = 150215,
+  [SMALL_STATE(6388)] = 150230,
+  [SMALL_STATE(6389)] = 150247,
+  [SMALL_STATE(6390)] = 150260,
+  [SMALL_STATE(6391)] = 150277,
+  [SMALL_STATE(6392)] = 150292,
+  [SMALL_STATE(6393)] = 150307,
+  [SMALL_STATE(6394)] = 150324,
+  [SMALL_STATE(6395)] = 150335,
+  [SMALL_STATE(6396)] = 150352,
+  [SMALL_STATE(6397)] = 150363,
+  [SMALL_STATE(6398)] = 150380,
+  [SMALL_STATE(6399)] = 150391,
+  [SMALL_STATE(6400)] = 150408,
+  [SMALL_STATE(6401)] = 150423,
+  [SMALL_STATE(6402)] = 150440,
+  [SMALL_STATE(6403)] = 150455,
+  [SMALL_STATE(6404)] = 150470,
+  [SMALL_STATE(6405)] = 150485,
+  [SMALL_STATE(6406)] = 150500,
+  [SMALL_STATE(6407)] = 150517,
+  [SMALL_STATE(6408)] = 150532,
+  [SMALL_STATE(6409)] = 150549,
+  [SMALL_STATE(6410)] = 150564,
+  [SMALL_STATE(6411)] = 150579,
+  [SMALL_STATE(6412)] = 150596,
+  [SMALL_STATE(6413)] = 150613,
+  [SMALL_STATE(6414)] = 150626,
+  [SMALL_STATE(6415)] = 150641,
+  [SMALL_STATE(6416)] = 150656,
+  [SMALL_STATE(6417)] = 150667,
+  [SMALL_STATE(6418)] = 150684,
+  [SMALL_STATE(6419)] = 150699,
+  [SMALL_STATE(6420)] = 150714,
+  [SMALL_STATE(6421)] = 150731,
+  [SMALL_STATE(6422)] = 150748,
+  [SMALL_STATE(6423)] = 150763,
+  [SMALL_STATE(6424)] = 150778,
+  [SMALL_STATE(6425)] = 150793,
+  [SMALL_STATE(6426)] = 150810,
+  [SMALL_STATE(6427)] = 150827,
+  [SMALL_STATE(6428)] = 150842,
+  [SMALL_STATE(6429)] = 150859,
+  [SMALL_STATE(6430)] = 150874,
+  [SMALL_STATE(6431)] = 150891,
+  [SMALL_STATE(6432)] = 150908,
+  [SMALL_STATE(6433)] = 150923,
+  [SMALL_STATE(6434)] = 150940,
+  [SMALL_STATE(6435)] = 150957,
+  [SMALL_STATE(6436)] = 150974,
+  [SMALL_STATE(6437)] = 150985,
+  [SMALL_STATE(6438)] = 151000,
+  [SMALL_STATE(6439)] = 151011,
+  [SMALL_STATE(6440)] = 151026,
+  [SMALL_STATE(6441)] = 151041,
+  [SMALL_STATE(6442)] = 151056,
+  [SMALL_STATE(6443)] = 151071,
+  [SMALL_STATE(6444)] = 151086,
+  [SMALL_STATE(6445)] = 151101,
+  [SMALL_STATE(6446)] = 151118,
+  [SMALL_STATE(6447)] = 151129,
+  [SMALL_STATE(6448)] = 151144,
+  [SMALL_STATE(6449)] = 151161,
+  [SMALL_STATE(6450)] = 151178,
+  [SMALL_STATE(6451)] = 151192,
+  [SMALL_STATE(6452)] = 151204,
+  [SMALL_STATE(6453)] = 151218,
+  [SMALL_STATE(6454)] = 151232,
+  [SMALL_STATE(6455)] = 151246,
+  [SMALL_STATE(6456)] = 151260,
+  [SMALL_STATE(6457)] = 151274,
+  [SMALL_STATE(6458)] = 151284,
+  [SMALL_STATE(6459)] = 151296,
+  [SMALL_STATE(6460)] = 151308,
+  [SMALL_STATE(6461)] = 151322,
+  [SMALL_STATE(6462)] = 151334,
+  [SMALL_STATE(6463)] = 151346,
+  [SMALL_STATE(6464)] = 151360,
+  [SMALL_STATE(6465)] = 151372,
+  [SMALL_STATE(6466)] = 151386,
+  [SMALL_STATE(6467)] = 151400,
+  [SMALL_STATE(6468)] = 151410,
+  [SMALL_STATE(6469)] = 151424,
+  [SMALL_STATE(6470)] = 151436,
+  [SMALL_STATE(6471)] = 151448,
+  [SMALL_STATE(6472)] = 151460,
+  [SMALL_STATE(6473)] = 151472,
+  [SMALL_STATE(6474)] = 151484,
+  [SMALL_STATE(6475)] = 151498,
+  [SMALL_STATE(6476)] = 151512,
+  [SMALL_STATE(6477)] = 151524,
+  [SMALL_STATE(6478)] = 151536,
+  [SMALL_STATE(6479)] = 151550,
+  [SMALL_STATE(6480)] = 151564,
+  [SMALL_STATE(6481)] = 151578,
+  [SMALL_STATE(6482)] = 151592,
+  [SMALL_STATE(6483)] = 151606,
+  [SMALL_STATE(6484)] = 151618,
+  [SMALL_STATE(6485)] = 151632,
+  [SMALL_STATE(6486)] = 151644,
+  [SMALL_STATE(6487)] = 151658,
+  [SMALL_STATE(6488)] = 151672,
+  [SMALL_STATE(6489)] = 151684,
+  [SMALL_STATE(6490)] = 151696,
+  [SMALL_STATE(6491)] = 151710,
+  [SMALL_STATE(6492)] = 151722,
+  [SMALL_STATE(6493)] = 151736,
+  [SMALL_STATE(6494)] = 151748,
+  [SMALL_STATE(6495)] = 151760,
+  [SMALL_STATE(6496)] = 151772,
+  [SMALL_STATE(6497)] = 151786,
+  [SMALL_STATE(6498)] = 151800,
+  [SMALL_STATE(6499)] = 151812,
+  [SMALL_STATE(6500)] = 151824,
+  [SMALL_STATE(6501)] = 151838,
+  [SMALL_STATE(6502)] = 151850,
+  [SMALL_STATE(6503)] = 151862,
+  [SMALL_STATE(6504)] = 151874,
+  [SMALL_STATE(6505)] = 151888,
+  [SMALL_STATE(6506)] = 151900,
+  [SMALL_STATE(6507)] = 151914,
+  [SMALL_STATE(6508)] = 151926,
+  [SMALL_STATE(6509)] = 151938,
+  [SMALL_STATE(6510)] = 151952,
+  [SMALL_STATE(6511)] = 151964,
+  [SMALL_STATE(6512)] = 151978,
+  [SMALL_STATE(6513)] = 151990,
+  [SMALL_STATE(6514)] = 152004,
+  [SMALL_STATE(6515)] = 152014,
+  [SMALL_STATE(6516)] = 152028,
+  [SMALL_STATE(6517)] = 152042,
+  [SMALL_STATE(6518)] = 152056,
+  [SMALL_STATE(6519)] = 152070,
+  [SMALL_STATE(6520)] = 152082,
+  [SMALL_STATE(6521)] = 152094,
+  [SMALL_STATE(6522)] = 152108,
+  [SMALL_STATE(6523)] = 152120,
+  [SMALL_STATE(6524)] = 152134,
+  [SMALL_STATE(6525)] = 152146,
+  [SMALL_STATE(6526)] = 152158,
+  [SMALL_STATE(6527)] = 152170,
+  [SMALL_STATE(6528)] = 152182,
+  [SMALL_STATE(6529)] = 152196,
+  [SMALL_STATE(6530)] = 152210,
+  [SMALL_STATE(6531)] = 152222,
+  [SMALL_STATE(6532)] = 152234,
+  [SMALL_STATE(6533)] = 152246,
+  [SMALL_STATE(6534)] = 152260,
+  [SMALL_STATE(6535)] = 152272,
+  [SMALL_STATE(6536)] = 152284,
+  [SMALL_STATE(6537)] = 152296,
+  [SMALL_STATE(6538)] = 152310,
+  [SMALL_STATE(6539)] = 152322,
+  [SMALL_STATE(6540)] = 152334,
+  [SMALL_STATE(6541)] = 152346,
+  [SMALL_STATE(6542)] = 152360,
+  [SMALL_STATE(6543)] = 152372,
+  [SMALL_STATE(6544)] = 152384,
+  [SMALL_STATE(6545)] = 152396,
+  [SMALL_STATE(6546)] = 152408,
+  [SMALL_STATE(6547)] = 152422,
+  [SMALL_STATE(6548)] = 152436,
+  [SMALL_STATE(6549)] = 152448,
+  [SMALL_STATE(6550)] = 152460,
+  [SMALL_STATE(6551)] = 152472,
+  [SMALL_STATE(6552)] = 152484,
+  [SMALL_STATE(6553)] = 152498,
+  [SMALL_STATE(6554)] = 152510,
+  [SMALL_STATE(6555)] = 152522,
+  [SMALL_STATE(6556)] = 152536,
+  [SMALL_STATE(6557)] = 152546,
+  [SMALL_STATE(6558)] = 152556,
+  [SMALL_STATE(6559)] = 152568,
+  [SMALL_STATE(6560)] = 152580,
+  [SMALL_STATE(6561)] = 152592,
+  [SMALL_STATE(6562)] = 152604,
+  [SMALL_STATE(6563)] = 152616,
+  [SMALL_STATE(6564)] = 152628,
+  [SMALL_STATE(6565)] = 152642,
+  [SMALL_STATE(6566)] = 152656,
+  [SMALL_STATE(6567)] = 152670,
+  [SMALL_STATE(6568)] = 152684,
+  [SMALL_STATE(6569)] = 152696,
+  [SMALL_STATE(6570)] = 152710,
+  [SMALL_STATE(6571)] = 152722,
+  [SMALL_STATE(6572)] = 152734,
+  [SMALL_STATE(6573)] = 152748,
+  [SMALL_STATE(6574)] = 152760,
+  [SMALL_STATE(6575)] = 152774,
+  [SMALL_STATE(6576)] = 152788,
+  [SMALL_STATE(6577)] = 152802,
+  [SMALL_STATE(6578)] = 152814,
+  [SMALL_STATE(6579)] = 152826,
+  [SMALL_STATE(6580)] = 152840,
+  [SMALL_STATE(6581)] = 152854,
+  [SMALL_STATE(6582)] = 152866,
+  [SMALL_STATE(6583)] = 152878,
+  [SMALL_STATE(6584)] = 152892,
+  [SMALL_STATE(6585)] = 152904,
+  [SMALL_STATE(6586)] = 152918,
+  [SMALL_STATE(6587)] = 152932,
+  [SMALL_STATE(6588)] = 152946,
+  [SMALL_STATE(6589)] = 152958,
+  [SMALL_STATE(6590)] = 152970,
+  [SMALL_STATE(6591)] = 152984,
+  [SMALL_STATE(6592)] = 152998,
+  [SMALL_STATE(6593)] = 153010,
+  [SMALL_STATE(6594)] = 153022,
+  [SMALL_STATE(6595)] = 153036,
+  [SMALL_STATE(6596)] = 153048,
+  [SMALL_STATE(6597)] = 153062,
+  [SMALL_STATE(6598)] = 153074,
+  [SMALL_STATE(6599)] = 153086,
+  [SMALL_STATE(6600)] = 153100,
+  [SMALL_STATE(6601)] = 153112,
+  [SMALL_STATE(6602)] = 153124,
+  [SMALL_STATE(6603)] = 153136,
+  [SMALL_STATE(6604)] = 153150,
+  [SMALL_STATE(6605)] = 153162,
+  [SMALL_STATE(6606)] = 153174,
+  [SMALL_STATE(6607)] = 153186,
+  [SMALL_STATE(6608)] = 153198,
+  [SMALL_STATE(6609)] = 153212,
+  [SMALL_STATE(6610)] = 153224,
+  [SMALL_STATE(6611)] = 153238,
+  [SMALL_STATE(6612)] = 153252,
+  [SMALL_STATE(6613)] = 153264,
+  [SMALL_STATE(6614)] = 153278,
+  [SMALL_STATE(6615)] = 153290,
+  [SMALL_STATE(6616)] = 153304,
+  [SMALL_STATE(6617)] = 153318,
+  [SMALL_STATE(6618)] = 153330,
+  [SMALL_STATE(6619)] = 153342,
+  [SMALL_STATE(6620)] = 153354,
+  [SMALL_STATE(6621)] = 153366,
+  [SMALL_STATE(6622)] = 153378,
+  [SMALL_STATE(6623)] = 153390,
+  [SMALL_STATE(6624)] = 153402,
+  [SMALL_STATE(6625)] = 153416,
+  [SMALL_STATE(6626)] = 153430,
+  [SMALL_STATE(6627)] = 153444,
+  [SMALL_STATE(6628)] = 153456,
+  [SMALL_STATE(6629)] = 153468,
+  [SMALL_STATE(6630)] = 153480,
+  [SMALL_STATE(6631)] = 153494,
+  [SMALL_STATE(6632)] = 153506,
+  [SMALL_STATE(6633)] = 153520,
+  [SMALL_STATE(6634)] = 153534,
+  [SMALL_STATE(6635)] = 153548,
+  [SMALL_STATE(6636)] = 153560,
+  [SMALL_STATE(6637)] = 153574,
+  [SMALL_STATE(6638)] = 153586,
+  [SMALL_STATE(6639)] = 153598,
+  [SMALL_STATE(6640)] = 153610,
+  [SMALL_STATE(6641)] = 153622,
+  [SMALL_STATE(6642)] = 153636,
+  [SMALL_STATE(6643)] = 153648,
+  [SMALL_STATE(6644)] = 153660,
+  [SMALL_STATE(6645)] = 153674,
+  [SMALL_STATE(6646)] = 153686,
+  [SMALL_STATE(6647)] = 153700,
+  [SMALL_STATE(6648)] = 153714,
+  [SMALL_STATE(6649)] = 153726,
+  [SMALL_STATE(6650)] = 153738,
+  [SMALL_STATE(6651)] = 153750,
+  [SMALL_STATE(6652)] = 153764,
+  [SMALL_STATE(6653)] = 153776,
+  [SMALL_STATE(6654)] = 153790,
+  [SMALL_STATE(6655)] = 153804,
+  [SMALL_STATE(6656)] = 153816,
+  [SMALL_STATE(6657)] = 153830,
+  [SMALL_STATE(6658)] = 153842,
+  [SMALL_STATE(6659)] = 153856,
+  [SMALL_STATE(6660)] = 153868,
+  [SMALL_STATE(6661)] = 153882,
+  [SMALL_STATE(6662)] = 153896,
+  [SMALL_STATE(6663)] = 153910,
+  [SMALL_STATE(6664)] = 153924,
+  [SMALL_STATE(6665)] = 153936,
+  [SMALL_STATE(6666)] = 153950,
+  [SMALL_STATE(6667)] = 153962,
+  [SMALL_STATE(6668)] = 153974,
+  [SMALL_STATE(6669)] = 153986,
+  [SMALL_STATE(6670)] = 153998,
+  [SMALL_STATE(6671)] = 154012,
+  [SMALL_STATE(6672)] = 154026,
+  [SMALL_STATE(6673)] = 154040,
+  [SMALL_STATE(6674)] = 154054,
+  [SMALL_STATE(6675)] = 154066,
+  [SMALL_STATE(6676)] = 154078,
+  [SMALL_STATE(6677)] = 154092,
+  [SMALL_STATE(6678)] = 154106,
+  [SMALL_STATE(6679)] = 154118,
+  [SMALL_STATE(6680)] = 154130,
+  [SMALL_STATE(6681)] = 154144,
+  [SMALL_STATE(6682)] = 154158,
+  [SMALL_STATE(6683)] = 154170,
+  [SMALL_STATE(6684)] = 154182,
+  [SMALL_STATE(6685)] = 154194,
+  [SMALL_STATE(6686)] = 154206,
+  [SMALL_STATE(6687)] = 154218,
+  [SMALL_STATE(6688)] = 154232,
+  [SMALL_STATE(6689)] = 154246,
+  [SMALL_STATE(6690)] = 154258,
+  [SMALL_STATE(6691)] = 154272,
+  [SMALL_STATE(6692)] = 154286,
+  [SMALL_STATE(6693)] = 154300,
+  [SMALL_STATE(6694)] = 154314,
+  [SMALL_STATE(6695)] = 154326,
+  [SMALL_STATE(6696)] = 154338,
+  [SMALL_STATE(6697)] = 154350,
+  [SMALL_STATE(6698)] = 154362,
+  [SMALL_STATE(6699)] = 154374,
+  [SMALL_STATE(6700)] = 154388,
+  [SMALL_STATE(6701)] = 154402,
+  [SMALL_STATE(6702)] = 154416,
+  [SMALL_STATE(6703)] = 154430,
+  [SMALL_STATE(6704)] = 154440,
+  [SMALL_STATE(6705)] = 154454,
+  [SMALL_STATE(6706)] = 154468,
+  [SMALL_STATE(6707)] = 154482,
+  [SMALL_STATE(6708)] = 154492,
+  [SMALL_STATE(6709)] = 154506,
+  [SMALL_STATE(6710)] = 154520,
+  [SMALL_STATE(6711)] = 154532,
+  [SMALL_STATE(6712)] = 154544,
+  [SMALL_STATE(6713)] = 154558,
+  [SMALL_STATE(6714)] = 154570,
+  [SMALL_STATE(6715)] = 154582,
+  [SMALL_STATE(6716)] = 154596,
+  [SMALL_STATE(6717)] = 154610,
+  [SMALL_STATE(6718)] = 154624,
+  [SMALL_STATE(6719)] = 154636,
+  [SMALL_STATE(6720)] = 154650,
+  [SMALL_STATE(6721)] = 154662,
+  [SMALL_STATE(6722)] = 154674,
+  [SMALL_STATE(6723)] = 154686,
+  [SMALL_STATE(6724)] = 154700,
+  [SMALL_STATE(6725)] = 154714,
+  [SMALL_STATE(6726)] = 154728,
+  [SMALL_STATE(6727)] = 154740,
+  [SMALL_STATE(6728)] = 154752,
+  [SMALL_STATE(6729)] = 154764,
+  [SMALL_STATE(6730)] = 154778,
+  [SMALL_STATE(6731)] = 154792,
+  [SMALL_STATE(6732)] = 154804,
+  [SMALL_STATE(6733)] = 154814,
+  [SMALL_STATE(6734)] = 154828,
+  [SMALL_STATE(6735)] = 154842,
+  [SMALL_STATE(6736)] = 154856,
+  [SMALL_STATE(6737)] = 154868,
+  [SMALL_STATE(6738)] = 154880,
+  [SMALL_STATE(6739)] = 154894,
+  [SMALL_STATE(6740)] = 154908,
+  [SMALL_STATE(6741)] = 154922,
+  [SMALL_STATE(6742)] = 154934,
+  [SMALL_STATE(6743)] = 154946,
+  [SMALL_STATE(6744)] = 154960,
+  [SMALL_STATE(6745)] = 154974,
+  [SMALL_STATE(6746)] = 154988,
+  [SMALL_STATE(6747)] = 155002,
+  [SMALL_STATE(6748)] = 155016,
+  [SMALL_STATE(6749)] = 155030,
+  [SMALL_STATE(6750)] = 155042,
+  [SMALL_STATE(6751)] = 155054,
+  [SMALL_STATE(6752)] = 155068,
+  [SMALL_STATE(6753)] = 155082,
+  [SMALL_STATE(6754)] = 155096,
+  [SMALL_STATE(6755)] = 155108,
+  [SMALL_STATE(6756)] = 155120,
+  [SMALL_STATE(6757)] = 155134,
+  [SMALL_STATE(6758)] = 155148,
+  [SMALL_STATE(6759)] = 155160,
+  [SMALL_STATE(6760)] = 155174,
+  [SMALL_STATE(6761)] = 155186,
+  [SMALL_STATE(6762)] = 155200,
+  [SMALL_STATE(6763)] = 155214,
+  [SMALL_STATE(6764)] = 155228,
+  [SMALL_STATE(6765)] = 155242,
+  [SMALL_STATE(6766)] = 155256,
+  [SMALL_STATE(6767)] = 155270,
+  [SMALL_STATE(6768)] = 155282,
+  [SMALL_STATE(6769)] = 155294,
+  [SMALL_STATE(6770)] = 155308,
+  [SMALL_STATE(6771)] = 155320,
+  [SMALL_STATE(6772)] = 155334,
+  [SMALL_STATE(6773)] = 155348,
+  [SMALL_STATE(6774)] = 155360,
+  [SMALL_STATE(6775)] = 155374,
+  [SMALL_STATE(6776)] = 155388,
+  [SMALL_STATE(6777)] = 155402,
+  [SMALL_STATE(6778)] = 155414,
+  [SMALL_STATE(6779)] = 155426,
+  [SMALL_STATE(6780)] = 155438,
+  [SMALL_STATE(6781)] = 155452,
+  [SMALL_STATE(6782)] = 155464,
+  [SMALL_STATE(6783)] = 155478,
+  [SMALL_STATE(6784)] = 155492,
+  [SMALL_STATE(6785)] = 155506,
+  [SMALL_STATE(6786)] = 155518,
+  [SMALL_STATE(6787)] = 155530,
+  [SMALL_STATE(6788)] = 155544,
+  [SMALL_STATE(6789)] = 155558,
+  [SMALL_STATE(6790)] = 155570,
+  [SMALL_STATE(6791)] = 155582,
+  [SMALL_STATE(6792)] = 155594,
+  [SMALL_STATE(6793)] = 155606,
+  [SMALL_STATE(6794)] = 155620,
+  [SMALL_STATE(6795)] = 155634,
+  [SMALL_STATE(6796)] = 155648,
+  [SMALL_STATE(6797)] = 155660,
+  [SMALL_STATE(6798)] = 155674,
+  [SMALL_STATE(6799)] = 155688,
+  [SMALL_STATE(6800)] = 155700,
+  [SMALL_STATE(6801)] = 155714,
+  [SMALL_STATE(6802)] = 155728,
+  [SMALL_STATE(6803)] = 155742,
+  [SMALL_STATE(6804)] = 155756,
+  [SMALL_STATE(6805)] = 155770,
+  [SMALL_STATE(6806)] = 155784,
+  [SMALL_STATE(6807)] = 155796,
+  [SMALL_STATE(6808)] = 155810,
+  [SMALL_STATE(6809)] = 155822,
+  [SMALL_STATE(6810)] = 155836,
+  [SMALL_STATE(6811)] = 155848,
+  [SMALL_STATE(6812)] = 155860,
+  [SMALL_STATE(6813)] = 155870,
+  [SMALL_STATE(6814)] = 155884,
+  [SMALL_STATE(6815)] = 155898,
+  [SMALL_STATE(6816)] = 155912,
+  [SMALL_STATE(6817)] = 155926,
+  [SMALL_STATE(6818)] = 155940,
+  [SMALL_STATE(6819)] = 155954,
+  [SMALL_STATE(6820)] = 155964,
+  [SMALL_STATE(6821)] = 155978,
+  [SMALL_STATE(6822)] = 155992,
+  [SMALL_STATE(6823)] = 156006,
+  [SMALL_STATE(6824)] = 156020,
+  [SMALL_STATE(6825)] = 156034,
+  [SMALL_STATE(6826)] = 156046,
+  [SMALL_STATE(6827)] = 156060,
+  [SMALL_STATE(6828)] = 156072,
+  [SMALL_STATE(6829)] = 156084,
+  [SMALL_STATE(6830)] = 156098,
+  [SMALL_STATE(6831)] = 156108,
+  [SMALL_STATE(6832)] = 156122,
+  [SMALL_STATE(6833)] = 156136,
+  [SMALL_STATE(6834)] = 156150,
+  [SMALL_STATE(6835)] = 156164,
+  [SMALL_STATE(6836)] = 156178,
+  [SMALL_STATE(6837)] = 156190,
+  [SMALL_STATE(6838)] = 156204,
+  [SMALL_STATE(6839)] = 156218,
+  [SMALL_STATE(6840)] = 156232,
+  [SMALL_STATE(6841)] = 156246,
+  [SMALL_STATE(6842)] = 156260,
+  [SMALL_STATE(6843)] = 156274,
+  [SMALL_STATE(6844)] = 156288,
+  [SMALL_STATE(6845)] = 156302,
+  [SMALL_STATE(6846)] = 156312,
+  [SMALL_STATE(6847)] = 156326,
+  [SMALL_STATE(6848)] = 156338,
+  [SMALL_STATE(6849)] = 156352,
+  [SMALL_STATE(6850)] = 156366,
+  [SMALL_STATE(6851)] = 156380,
+  [SMALL_STATE(6852)] = 156394,
+  [SMALL_STATE(6853)] = 156408,
+  [SMALL_STATE(6854)] = 156422,
+  [SMALL_STATE(6855)] = 156436,
+  [SMALL_STATE(6856)] = 156450,
   [SMALL_STATE(6857)] = 156464,
   [SMALL_STATE(6858)] = 156476,
-  [SMALL_STATE(6859)] = 156488,
-  [SMALL_STATE(6860)] = 156500,
-  [SMALL_STATE(6861)] = 156510,
-  [SMALL_STATE(6862)] = 156524,
-  [SMALL_STATE(6863)] = 156536,
-  [SMALL_STATE(6864)] = 156550,
+  [SMALL_STATE(6859)] = 156490,
+  [SMALL_STATE(6860)] = 156504,
+  [SMALL_STATE(6861)] = 156514,
+  [SMALL_STATE(6862)] = 156528,
+  [SMALL_STATE(6863)] = 156542,
+  [SMALL_STATE(6864)] = 156552,
   [SMALL_STATE(6865)] = 156562,
-  [SMALL_STATE(6866)] = 156574,
-  [SMALL_STATE(6867)] = 156586,
-  [SMALL_STATE(6868)] = 156598,
-  [SMALL_STATE(6869)] = 156612,
-  [SMALL_STATE(6870)] = 156626,
-  [SMALL_STATE(6871)] = 156638,
-  [SMALL_STATE(6872)] = 156650,
-  [SMALL_STATE(6873)] = 156662,
-  [SMALL_STATE(6874)] = 156676,
-  [SMALL_STATE(6875)] = 156688,
-  [SMALL_STATE(6876)] = 156702,
-  [SMALL_STATE(6877)] = 156714,
-  [SMALL_STATE(6878)] = 156726,
-  [SMALL_STATE(6879)] = 156740,
-  [SMALL_STATE(6880)] = 156750,
-  [SMALL_STATE(6881)] = 156762,
-  [SMALL_STATE(6882)] = 156776,
-  [SMALL_STATE(6883)] = 156788,
-  [SMALL_STATE(6884)] = 156802,
-  [SMALL_STATE(6885)] = 156814,
-  [SMALL_STATE(6886)] = 156828,
-  [SMALL_STATE(6887)] = 156838,
-  [SMALL_STATE(6888)] = 156850,
-  [SMALL_STATE(6889)] = 156862,
-  [SMALL_STATE(6890)] = 156876,
-  [SMALL_STATE(6891)] = 156888,
-  [SMALL_STATE(6892)] = 156898,
-  [SMALL_STATE(6893)] = 156910,
-  [SMALL_STATE(6894)] = 156924,
-  [SMALL_STATE(6895)] = 156936,
-  [SMALL_STATE(6896)] = 156948,
-  [SMALL_STATE(6897)] = 156960,
-  [SMALL_STATE(6898)] = 156972,
-  [SMALL_STATE(6899)] = 156986,
-  [SMALL_STATE(6900)] = 156998,
-  [SMALL_STATE(6901)] = 157010,
-  [SMALL_STATE(6902)] = 157022,
-  [SMALL_STATE(6903)] = 157036,
-  [SMALL_STATE(6904)] = 157048,
-  [SMALL_STATE(6905)] = 157060,
-  [SMALL_STATE(6906)] = 157072,
-  [SMALL_STATE(6907)] = 157082,
-  [SMALL_STATE(6908)] = 157096,
-  [SMALL_STATE(6909)] = 157110,
-  [SMALL_STATE(6910)] = 157120,
-  [SMALL_STATE(6911)] = 157134,
-  [SMALL_STATE(6912)] = 157146,
-  [SMALL_STATE(6913)] = 157158,
-  [SMALL_STATE(6914)] = 157170,
-  [SMALL_STATE(6915)] = 157182,
-  [SMALL_STATE(6916)] = 157196,
-  [SMALL_STATE(6917)] = 157210,
-  [SMALL_STATE(6918)] = 157222,
-  [SMALL_STATE(6919)] = 157234,
-  [SMALL_STATE(6920)] = 157248,
-  [SMALL_STATE(6921)] = 157260,
-  [SMALL_STATE(6922)] = 157272,
-  [SMALL_STATE(6923)] = 157284,
-  [SMALL_STATE(6924)] = 157298,
-  [SMALL_STATE(6925)] = 157312,
-  [SMALL_STATE(6926)] = 157324,
-  [SMALL_STATE(6927)] = 157338,
-  [SMALL_STATE(6928)] = 157350,
-  [SMALL_STATE(6929)] = 157364,
-  [SMALL_STATE(6930)] = 157376,
-  [SMALL_STATE(6931)] = 157390,
-  [SMALL_STATE(6932)] = 157404,
-  [SMALL_STATE(6933)] = 157416,
-  [SMALL_STATE(6934)] = 157428,
-  [SMALL_STATE(6935)] = 157440,
-  [SMALL_STATE(6936)] = 157454,
-  [SMALL_STATE(6937)] = 157468,
-  [SMALL_STATE(6938)] = 157480,
-  [SMALL_STATE(6939)] = 157494,
-  [SMALL_STATE(6940)] = 157508,
-  [SMALL_STATE(6941)] = 157520,
-  [SMALL_STATE(6942)] = 157532,
-  [SMALL_STATE(6943)] = 157544,
-  [SMALL_STATE(6944)] = 157556,
-  [SMALL_STATE(6945)] = 157570,
-  [SMALL_STATE(6946)] = 157582,
-  [SMALL_STATE(6947)] = 157594,
-  [SMALL_STATE(6948)] = 157606,
-  [SMALL_STATE(6949)] = 157618,
-  [SMALL_STATE(6950)] = 157632,
-  [SMALL_STATE(6951)] = 157644,
-  [SMALL_STATE(6952)] = 157656,
-  [SMALL_STATE(6953)] = 157670,
-  [SMALL_STATE(6954)] = 157684,
-  [SMALL_STATE(6955)] = 157698,
-  [SMALL_STATE(6956)] = 157710,
-  [SMALL_STATE(6957)] = 157724,
-  [SMALL_STATE(6958)] = 157734,
-  [SMALL_STATE(6959)] = 157746,
-  [SMALL_STATE(6960)] = 157758,
-  [SMALL_STATE(6961)] = 157770,
-  [SMALL_STATE(6962)] = 157784,
-  [SMALL_STATE(6963)] = 157796,
-  [SMALL_STATE(6964)] = 157808,
-  [SMALL_STATE(6965)] = 157822,
-  [SMALL_STATE(6966)] = 157836,
-  [SMALL_STATE(6967)] = 157848,
-  [SMALL_STATE(6968)] = 157862,
-  [SMALL_STATE(6969)] = 157876,
-  [SMALL_STATE(6970)] = 157888,
-  [SMALL_STATE(6971)] = 157900,
-  [SMALL_STATE(6972)] = 157914,
-  [SMALL_STATE(6973)] = 157926,
-  [SMALL_STATE(6974)] = 157940,
-  [SMALL_STATE(6975)] = 157952,
-  [SMALL_STATE(6976)] = 157966,
-  [SMALL_STATE(6977)] = 157978,
-  [SMALL_STATE(6978)] = 157992,
-  [SMALL_STATE(6979)] = 158004,
-  [SMALL_STATE(6980)] = 158016,
-  [SMALL_STATE(6981)] = 158030,
-  [SMALL_STATE(6982)] = 158044,
-  [SMALL_STATE(6983)] = 158056,
-  [SMALL_STATE(6984)] = 158068,
-  [SMALL_STATE(6985)] = 158080,
-  [SMALL_STATE(6986)] = 158094,
-  [SMALL_STATE(6987)] = 158106,
-  [SMALL_STATE(6988)] = 158120,
-  [SMALL_STATE(6989)] = 158132,
-  [SMALL_STATE(6990)] = 158144,
-  [SMALL_STATE(6991)] = 158156,
-  [SMALL_STATE(6992)] = 158170,
-  [SMALL_STATE(6993)] = 158184,
-  [SMALL_STATE(6994)] = 158196,
-  [SMALL_STATE(6995)] = 158208,
-  [SMALL_STATE(6996)] = 158222,
-  [SMALL_STATE(6997)] = 158234,
-  [SMALL_STATE(6998)] = 158246,
-  [SMALL_STATE(6999)] = 158260,
-  [SMALL_STATE(7000)] = 158274,
-  [SMALL_STATE(7001)] = 158288,
-  [SMALL_STATE(7002)] = 158300,
-  [SMALL_STATE(7003)] = 158314,
-  [SMALL_STATE(7004)] = 158326,
-  [SMALL_STATE(7005)] = 158338,
-  [SMALL_STATE(7006)] = 158350,
-  [SMALL_STATE(7007)] = 158360,
-  [SMALL_STATE(7008)] = 158372,
-  [SMALL_STATE(7009)] = 158384,
-  [SMALL_STATE(7010)] = 158398,
-  [SMALL_STATE(7011)] = 158410,
-  [SMALL_STATE(7012)] = 158422,
-  [SMALL_STATE(7013)] = 158434,
-  [SMALL_STATE(7014)] = 158446,
-  [SMALL_STATE(7015)] = 158458,
-  [SMALL_STATE(7016)] = 158472,
-  [SMALL_STATE(7017)] = 158486,
-  [SMALL_STATE(7018)] = 158498,
-  [SMALL_STATE(7019)] = 158512,
-  [SMALL_STATE(7020)] = 158522,
-  [SMALL_STATE(7021)] = 158536,
-  [SMALL_STATE(7022)] = 158548,
-  [SMALL_STATE(7023)] = 158560,
-  [SMALL_STATE(7024)] = 158572,
-  [SMALL_STATE(7025)] = 158584,
-  [SMALL_STATE(7026)] = 158598,
-  [SMALL_STATE(7027)] = 158612,
-  [SMALL_STATE(7028)] = 158626,
-  [SMALL_STATE(7029)] = 158638,
-  [SMALL_STATE(7030)] = 158652,
-  [SMALL_STATE(7031)] = 158666,
-  [SMALL_STATE(7032)] = 158678,
-  [SMALL_STATE(7033)] = 158692,
-  [SMALL_STATE(7034)] = 158704,
-  [SMALL_STATE(7035)] = 158716,
-  [SMALL_STATE(7036)] = 158730,
-  [SMALL_STATE(7037)] = 158744,
-  [SMALL_STATE(7038)] = 158756,
-  [SMALL_STATE(7039)] = 158768,
-  [SMALL_STATE(7040)] = 158782,
-  [SMALL_STATE(7041)] = 158794,
-  [SMALL_STATE(7042)] = 158806,
-  [SMALL_STATE(7043)] = 158820,
-  [SMALL_STATE(7044)] = 158834,
-  [SMALL_STATE(7045)] = 158848,
-  [SMALL_STATE(7046)] = 158860,
-  [SMALL_STATE(7047)] = 158872,
-  [SMALL_STATE(7048)] = 158884,
-  [SMALL_STATE(7049)] = 158898,
-  [SMALL_STATE(7050)] = 158910,
-  [SMALL_STATE(7051)] = 158924,
-  [SMALL_STATE(7052)] = 158936,
-  [SMALL_STATE(7053)] = 158950,
-  [SMALL_STATE(7054)] = 158964,
-  [SMALL_STATE(7055)] = 158976,
-  [SMALL_STATE(7056)] = 158988,
-  [SMALL_STATE(7057)] = 159002,
-  [SMALL_STATE(7058)] = 159014,
-  [SMALL_STATE(7059)] = 159028,
-  [SMALL_STATE(7060)] = 159040,
-  [SMALL_STATE(7061)] = 159054,
-  [SMALL_STATE(7062)] = 159068,
-  [SMALL_STATE(7063)] = 159080,
-  [SMALL_STATE(7064)] = 159094,
-  [SMALL_STATE(7065)] = 159108,
-  [SMALL_STATE(7066)] = 159122,
-  [SMALL_STATE(7067)] = 159134,
-  [SMALL_STATE(7068)] = 159146,
-  [SMALL_STATE(7069)] = 159160,
-  [SMALL_STATE(7070)] = 159172,
-  [SMALL_STATE(7071)] = 159184,
-  [SMALL_STATE(7072)] = 159196,
-  [SMALL_STATE(7073)] = 159210,
-  [SMALL_STATE(7074)] = 159224,
-  [SMALL_STATE(7075)] = 159236,
-  [SMALL_STATE(7076)] = 159250,
-  [SMALL_STATE(7077)] = 159262,
-  [SMALL_STATE(7078)] = 159274,
-  [SMALL_STATE(7079)] = 159286,
-  [SMALL_STATE(7080)] = 159300,
-  [SMALL_STATE(7081)] = 159314,
-  [SMALL_STATE(7082)] = 159328,
-  [SMALL_STATE(7083)] = 159340,
-  [SMALL_STATE(7084)] = 159354,
-  [SMALL_STATE(7085)] = 159368,
-  [SMALL_STATE(7086)] = 159382,
-  [SMALL_STATE(7087)] = 159394,
-  [SMALL_STATE(7088)] = 159408,
-  [SMALL_STATE(7089)] = 159422,
-  [SMALL_STATE(7090)] = 159432,
-  [SMALL_STATE(7091)] = 159446,
-  [SMALL_STATE(7092)] = 159458,
-  [SMALL_STATE(7093)] = 159472,
-  [SMALL_STATE(7094)] = 159486,
-  [SMALL_STATE(7095)] = 159498,
-  [SMALL_STATE(7096)] = 159512,
-  [SMALL_STATE(7097)] = 159526,
-  [SMALL_STATE(7098)] = 159540,
-  [SMALL_STATE(7099)] = 159554,
-  [SMALL_STATE(7100)] = 159566,
-  [SMALL_STATE(7101)] = 159580,
-  [SMALL_STATE(7102)] = 159594,
-  [SMALL_STATE(7103)] = 159608,
-  [SMALL_STATE(7104)] = 159622,
-  [SMALL_STATE(7105)] = 159634,
-  [SMALL_STATE(7106)] = 159648,
+  [SMALL_STATE(6866)] = 156576,
+  [SMALL_STATE(6867)] = 156590,
+  [SMALL_STATE(6868)] = 156604,
+  [SMALL_STATE(6869)] = 156616,
+  [SMALL_STATE(6870)] = 156628,
+  [SMALL_STATE(6871)] = 156642,
+  [SMALL_STATE(6872)] = 156656,
+  [SMALL_STATE(6873)] = 156668,
+  [SMALL_STATE(6874)] = 156682,
+  [SMALL_STATE(6875)] = 156696,
+  [SMALL_STATE(6876)] = 156710,
+  [SMALL_STATE(6877)] = 156722,
+  [SMALL_STATE(6878)] = 156734,
+  [SMALL_STATE(6879)] = 156746,
+  [SMALL_STATE(6880)] = 156760,
+  [SMALL_STATE(6881)] = 156774,
+  [SMALL_STATE(6882)] = 156786,
+  [SMALL_STATE(6883)] = 156800,
+  [SMALL_STATE(6884)] = 156814,
+  [SMALL_STATE(6885)] = 156826,
+  [SMALL_STATE(6886)] = 156840,
+  [SMALL_STATE(6887)] = 156852,
+  [SMALL_STATE(6888)] = 156864,
+  [SMALL_STATE(6889)] = 156878,
+  [SMALL_STATE(6890)] = 156890,
+  [SMALL_STATE(6891)] = 156904,
+  [SMALL_STATE(6892)] = 156918,
+  [SMALL_STATE(6893)] = 156930,
+  [SMALL_STATE(6894)] = 156944,
+  [SMALL_STATE(6895)] = 156956,
+  [SMALL_STATE(6896)] = 156968,
+  [SMALL_STATE(6897)] = 156982,
+  [SMALL_STATE(6898)] = 156996,
+  [SMALL_STATE(6899)] = 157008,
+  [SMALL_STATE(6900)] = 157022,
+  [SMALL_STATE(6901)] = 157034,
+  [SMALL_STATE(6902)] = 157048,
+  [SMALL_STATE(6903)] = 157062,
+  [SMALL_STATE(6904)] = 157074,
+  [SMALL_STATE(6905)] = 157086,
+  [SMALL_STATE(6906)] = 157100,
+  [SMALL_STATE(6907)] = 157114,
+  [SMALL_STATE(6908)] = 157126,
+  [SMALL_STATE(6909)] = 157138,
+  [SMALL_STATE(6910)] = 157150,
+  [SMALL_STATE(6911)] = 157162,
+  [SMALL_STATE(6912)] = 157172,
+  [SMALL_STATE(6913)] = 157182,
+  [SMALL_STATE(6914)] = 157196,
+  [SMALL_STATE(6915)] = 157206,
+  [SMALL_STATE(6916)] = 157218,
+  [SMALL_STATE(6917)] = 157230,
+  [SMALL_STATE(6918)] = 157242,
+  [SMALL_STATE(6919)] = 157256,
+  [SMALL_STATE(6920)] = 157268,
+  [SMALL_STATE(6921)] = 157282,
+  [SMALL_STATE(6922)] = 157294,
+  [SMALL_STATE(6923)] = 157308,
+  [SMALL_STATE(6924)] = 157322,
+  [SMALL_STATE(6925)] = 157336,
+  [SMALL_STATE(6926)] = 157350,
+  [SMALL_STATE(6927)] = 157364,
+  [SMALL_STATE(6928)] = 157376,
+  [SMALL_STATE(6929)] = 157388,
+  [SMALL_STATE(6930)] = 157400,
+  [SMALL_STATE(6931)] = 157412,
+  [SMALL_STATE(6932)] = 157424,
+  [SMALL_STATE(6933)] = 157436,
+  [SMALL_STATE(6934)] = 157450,
+  [SMALL_STATE(6935)] = 157462,
+  [SMALL_STATE(6936)] = 157474,
+  [SMALL_STATE(6937)] = 157486,
+  [SMALL_STATE(6938)] = 157500,
+  [SMALL_STATE(6939)] = 157514,
+  [SMALL_STATE(6940)] = 157528,
+  [SMALL_STATE(6941)] = 157540,
+  [SMALL_STATE(6942)] = 157552,
+  [SMALL_STATE(6943)] = 157564,
+  [SMALL_STATE(6944)] = 157578,
+  [SMALL_STATE(6945)] = 157590,
+  [SMALL_STATE(6946)] = 157602,
+  [SMALL_STATE(6947)] = 157614,
+  [SMALL_STATE(6948)] = 157628,
+  [SMALL_STATE(6949)] = 157642,
+  [SMALL_STATE(6950)] = 157654,
+  [SMALL_STATE(6951)] = 157668,
+  [SMALL_STATE(6952)] = 157682,
+  [SMALL_STATE(6953)] = 157696,
+  [SMALL_STATE(6954)] = 157708,
+  [SMALL_STATE(6955)] = 157722,
+  [SMALL_STATE(6956)] = 157734,
+  [SMALL_STATE(6957)] = 157748,
+  [SMALL_STATE(6958)] = 157762,
+  [SMALL_STATE(6959)] = 157774,
+  [SMALL_STATE(6960)] = 157786,
+  [SMALL_STATE(6961)] = 157800,
+  [SMALL_STATE(6962)] = 157812,
+  [SMALL_STATE(6963)] = 157824,
+  [SMALL_STATE(6964)] = 157836,
+  [SMALL_STATE(6965)] = 157850,
+  [SMALL_STATE(6966)] = 157862,
+  [SMALL_STATE(6967)] = 157876,
+  [SMALL_STATE(6968)] = 157890,
+  [SMALL_STATE(6969)] = 157904,
+  [SMALL_STATE(6970)] = 157918,
+  [SMALL_STATE(6971)] = 157930,
+  [SMALL_STATE(6972)] = 157942,
+  [SMALL_STATE(6973)] = 157954,
+  [SMALL_STATE(6974)] = 157966,
+  [SMALL_STATE(6975)] = 157978,
+  [SMALL_STATE(6976)] = 157990,
+  [SMALL_STATE(6977)] = 158002,
+  [SMALL_STATE(6978)] = 158014,
+  [SMALL_STATE(6979)] = 158026,
+  [SMALL_STATE(6980)] = 158038,
+  [SMALL_STATE(6981)] = 158050,
+  [SMALL_STATE(6982)] = 158062,
+  [SMALL_STATE(6983)] = 158074,
+  [SMALL_STATE(6984)] = 158088,
+  [SMALL_STATE(6985)] = 158100,
+  [SMALL_STATE(6986)] = 158114,
+  [SMALL_STATE(6987)] = 158128,
+  [SMALL_STATE(6988)] = 158140,
+  [SMALL_STATE(6989)] = 158152,
+  [SMALL_STATE(6990)] = 158164,
+  [SMALL_STATE(6991)] = 158178,
+  [SMALL_STATE(6992)] = 158190,
+  [SMALL_STATE(6993)] = 158202,
+  [SMALL_STATE(6994)] = 158216,
+  [SMALL_STATE(6995)] = 158230,
+  [SMALL_STATE(6996)] = 158242,
+  [SMALL_STATE(6997)] = 158256,
+  [SMALL_STATE(6998)] = 158270,
+  [SMALL_STATE(6999)] = 158284,
+  [SMALL_STATE(7000)] = 158298,
+  [SMALL_STATE(7001)] = 158312,
+  [SMALL_STATE(7002)] = 158322,
+  [SMALL_STATE(7003)] = 158334,
+  [SMALL_STATE(7004)] = 158346,
+  [SMALL_STATE(7005)] = 158360,
+  [SMALL_STATE(7006)] = 158374,
+  [SMALL_STATE(7007)] = 158388,
+  [SMALL_STATE(7008)] = 158402,
+  [SMALL_STATE(7009)] = 158414,
+  [SMALL_STATE(7010)] = 158426,
+  [SMALL_STATE(7011)] = 158438,
+  [SMALL_STATE(7012)] = 158452,
+  [SMALL_STATE(7013)] = 158466,
+  [SMALL_STATE(7014)] = 158480,
+  [SMALL_STATE(7015)] = 158492,
+  [SMALL_STATE(7016)] = 158504,
+  [SMALL_STATE(7017)] = 158516,
+  [SMALL_STATE(7018)] = 158530,
+  [SMALL_STATE(7019)] = 158542,
+  [SMALL_STATE(7020)] = 158554,
+  [SMALL_STATE(7021)] = 158566,
+  [SMALL_STATE(7022)] = 158578,
+  [SMALL_STATE(7023)] = 158592,
+  [SMALL_STATE(7024)] = 158606,
+  [SMALL_STATE(7025)] = 158618,
+  [SMALL_STATE(7026)] = 158632,
+  [SMALL_STATE(7027)] = 158644,
+  [SMALL_STATE(7028)] = 158658,
+  [SMALL_STATE(7029)] = 158670,
+  [SMALL_STATE(7030)] = 158682,
+  [SMALL_STATE(7031)] = 158692,
+  [SMALL_STATE(7032)] = 158706,
+  [SMALL_STATE(7033)] = 158720,
+  [SMALL_STATE(7034)] = 158732,
+  [SMALL_STATE(7035)] = 158744,
+  [SMALL_STATE(7036)] = 158758,
+  [SMALL_STATE(7037)] = 158770,
+  [SMALL_STATE(7038)] = 158782,
+  [SMALL_STATE(7039)] = 158796,
+  [SMALL_STATE(7040)] = 158810,
+  [SMALL_STATE(7041)] = 158822,
+  [SMALL_STATE(7042)] = 158836,
+  [SMALL_STATE(7043)] = 158848,
+  [SMALL_STATE(7044)] = 158862,
+  [SMALL_STATE(7045)] = 158874,
+  [SMALL_STATE(7046)] = 158886,
+  [SMALL_STATE(7047)] = 158898,
+  [SMALL_STATE(7048)] = 158912,
+  [SMALL_STATE(7049)] = 158924,
+  [SMALL_STATE(7050)] = 158938,
+  [SMALL_STATE(7051)] = 158952,
+  [SMALL_STATE(7052)] = 158966,
+  [SMALL_STATE(7053)] = 158978,
+  [SMALL_STATE(7054)] = 158990,
+  [SMALL_STATE(7055)] = 159002,
+  [SMALL_STATE(7056)] = 159014,
+  [SMALL_STATE(7057)] = 159026,
+  [SMALL_STATE(7058)] = 159038,
+  [SMALL_STATE(7059)] = 159050,
+  [SMALL_STATE(7060)] = 159064,
+  [SMALL_STATE(7061)] = 159078,
+  [SMALL_STATE(7062)] = 159092,
+  [SMALL_STATE(7063)] = 159106,
+  [SMALL_STATE(7064)] = 159118,
+  [SMALL_STATE(7065)] = 159132,
+  [SMALL_STATE(7066)] = 159144,
+  [SMALL_STATE(7067)] = 159158,
+  [SMALL_STATE(7068)] = 159170,
+  [SMALL_STATE(7069)] = 159182,
+  [SMALL_STATE(7070)] = 159196,
+  [SMALL_STATE(7071)] = 159208,
+  [SMALL_STATE(7072)] = 159218,
+  [SMALL_STATE(7073)] = 159230,
+  [SMALL_STATE(7074)] = 159240,
+  [SMALL_STATE(7075)] = 159254,
+  [SMALL_STATE(7076)] = 159268,
+  [SMALL_STATE(7077)] = 159280,
+  [SMALL_STATE(7078)] = 159292,
+  [SMALL_STATE(7079)] = 159306,
+  [SMALL_STATE(7080)] = 159320,
+  [SMALL_STATE(7081)] = 159332,
+  [SMALL_STATE(7082)] = 159346,
+  [SMALL_STATE(7083)] = 159360,
+  [SMALL_STATE(7084)] = 159374,
+  [SMALL_STATE(7085)] = 159388,
+  [SMALL_STATE(7086)] = 159398,
+  [SMALL_STATE(7087)] = 159410,
+  [SMALL_STATE(7088)] = 159422,
+  [SMALL_STATE(7089)] = 159432,
+  [SMALL_STATE(7090)] = 159446,
+  [SMALL_STATE(7091)] = 159460,
+  [SMALL_STATE(7092)] = 159470,
+  [SMALL_STATE(7093)] = 159482,
+  [SMALL_STATE(7094)] = 159492,
+  [SMALL_STATE(7095)] = 159506,
+  [SMALL_STATE(7096)] = 159520,
+  [SMALL_STATE(7097)] = 159534,
+  [SMALL_STATE(7098)] = 159546,
+  [SMALL_STATE(7099)] = 159558,
+  [SMALL_STATE(7100)] = 159572,
+  [SMALL_STATE(7101)] = 159586,
+  [SMALL_STATE(7102)] = 159600,
+  [SMALL_STATE(7103)] = 159614,
+  [SMALL_STATE(7104)] = 159626,
+  [SMALL_STATE(7105)] = 159636,
+  [SMALL_STATE(7106)] = 159650,
   [SMALL_STATE(7107)] = 159662,
   [SMALL_STATE(7108)] = 159676,
   [SMALL_STATE(7109)] = 159690,
-  [SMALL_STATE(7110)] = 159704,
-  [SMALL_STATE(7111)] = 159718,
-  [SMALL_STATE(7112)] = 159732,
-  [SMALL_STATE(7113)] = 159746,
-  [SMALL_STATE(7114)] = 159760,
-  [SMALL_STATE(7115)] = 159774,
-  [SMALL_STATE(7116)] = 159788,
-  [SMALL_STATE(7117)] = 159802,
-  [SMALL_STATE(7118)] = 159816,
-  [SMALL_STATE(7119)] = 159830,
-  [SMALL_STATE(7120)] = 159844,
-  [SMALL_STATE(7121)] = 159858,
-  [SMALL_STATE(7122)] = 159872,
-  [SMALL_STATE(7123)] = 159886,
-  [SMALL_STATE(7124)] = 159898,
-  [SMALL_STATE(7125)] = 159910,
-  [SMALL_STATE(7126)] = 159924,
-  [SMALL_STATE(7127)] = 159938,
-  [SMALL_STATE(7128)] = 159952,
-  [SMALL_STATE(7129)] = 159966,
-  [SMALL_STATE(7130)] = 159980,
-  [SMALL_STATE(7131)] = 159994,
-  [SMALL_STATE(7132)] = 160006,
-  [SMALL_STATE(7133)] = 160020,
-  [SMALL_STATE(7134)] = 160034,
-  [SMALL_STATE(7135)] = 160046,
-  [SMALL_STATE(7136)] = 160060,
-  [SMALL_STATE(7137)] = 160072,
-  [SMALL_STATE(7138)] = 160084,
-  [SMALL_STATE(7139)] = 160096,
-  [SMALL_STATE(7140)] = 160108,
-  [SMALL_STATE(7141)] = 160122,
-  [SMALL_STATE(7142)] = 160136,
-  [SMALL_STATE(7143)] = 160148,
-  [SMALL_STATE(7144)] = 160162,
-  [SMALL_STATE(7145)] = 160174,
-  [SMALL_STATE(7146)] = 160188,
-  [SMALL_STATE(7147)] = 160200,
-  [SMALL_STATE(7148)] = 160212,
-  [SMALL_STATE(7149)] = 160224,
-  [SMALL_STATE(7150)] = 160236,
-  [SMALL_STATE(7151)] = 160250,
-  [SMALL_STATE(7152)] = 160264,
-  [SMALL_STATE(7153)] = 160276,
-  [SMALL_STATE(7154)] = 160288,
-  [SMALL_STATE(7155)] = 160300,
-  [SMALL_STATE(7156)] = 160312,
-  [SMALL_STATE(7157)] = 160324,
-  [SMALL_STATE(7158)] = 160338,
-  [SMALL_STATE(7159)] = 160352,
-  [SMALL_STATE(7160)] = 160366,
-  [SMALL_STATE(7161)] = 160380,
-  [SMALL_STATE(7162)] = 160392,
-  [SMALL_STATE(7163)] = 160406,
-  [SMALL_STATE(7164)] = 160418,
-  [SMALL_STATE(7165)] = 160430,
-  [SMALL_STATE(7166)] = 160444,
-  [SMALL_STATE(7167)] = 160458,
-  [SMALL_STATE(7168)] = 160470,
-  [SMALL_STATE(7169)] = 160484,
-  [SMALL_STATE(7170)] = 160496,
-  [SMALL_STATE(7171)] = 160510,
-  [SMALL_STATE(7172)] = 160522,
-  [SMALL_STATE(7173)] = 160534,
-  [SMALL_STATE(7174)] = 160546,
-  [SMALL_STATE(7175)] = 160558,
-  [SMALL_STATE(7176)] = 160570,
-  [SMALL_STATE(7177)] = 160584,
-  [SMALL_STATE(7178)] = 160596,
-  [SMALL_STATE(7179)] = 160608,
-  [SMALL_STATE(7180)] = 160622,
-  [SMALL_STATE(7181)] = 160636,
-  [SMALL_STATE(7182)] = 160648,
-  [SMALL_STATE(7183)] = 160662,
-  [SMALL_STATE(7184)] = 160676,
-  [SMALL_STATE(7185)] = 160688,
-  [SMALL_STATE(7186)] = 160700,
-  [SMALL_STATE(7187)] = 160712,
-  [SMALL_STATE(7188)] = 160726,
-  [SMALL_STATE(7189)] = 160740,
-  [SMALL_STATE(7190)] = 160754,
-  [SMALL_STATE(7191)] = 160768,
-  [SMALL_STATE(7192)] = 160780,
-  [SMALL_STATE(7193)] = 160792,
-  [SMALL_STATE(7194)] = 160806,
-  [SMALL_STATE(7195)] = 160818,
-  [SMALL_STATE(7196)] = 160832,
-  [SMALL_STATE(7197)] = 160844,
-  [SMALL_STATE(7198)] = 160856,
-  [SMALL_STATE(7199)] = 160868,
-  [SMALL_STATE(7200)] = 160882,
-  [SMALL_STATE(7201)] = 160896,
-  [SMALL_STATE(7202)] = 160910,
-  [SMALL_STATE(7203)] = 160924,
-  [SMALL_STATE(7204)] = 160936,
-  [SMALL_STATE(7205)] = 160950,
-  [SMALL_STATE(7206)] = 160962,
-  [SMALL_STATE(7207)] = 160976,
-  [SMALL_STATE(7208)] = 160988,
-  [SMALL_STATE(7209)] = 161002,
-  [SMALL_STATE(7210)] = 161014,
-  [SMALL_STATE(7211)] = 161026,
-  [SMALL_STATE(7212)] = 161038,
-  [SMALL_STATE(7213)] = 161050,
-  [SMALL_STATE(7214)] = 161064,
-  [SMALL_STATE(7215)] = 161078,
-  [SMALL_STATE(7216)] = 161092,
-  [SMALL_STATE(7217)] = 161106,
-  [SMALL_STATE(7218)] = 161118,
-  [SMALL_STATE(7219)] = 161132,
-  [SMALL_STATE(7220)] = 161144,
-  [SMALL_STATE(7221)] = 161158,
-  [SMALL_STATE(7222)] = 161170,
-  [SMALL_STATE(7223)] = 161182,
-  [SMALL_STATE(7224)] = 161194,
-  [SMALL_STATE(7225)] = 161206,
-  [SMALL_STATE(7226)] = 161218,
-  [SMALL_STATE(7227)] = 161232,
-  [SMALL_STATE(7228)] = 161244,
-  [SMALL_STATE(7229)] = 161256,
-  [SMALL_STATE(7230)] = 161270,
-  [SMALL_STATE(7231)] = 161284,
-  [SMALL_STATE(7232)] = 161296,
-  [SMALL_STATE(7233)] = 161308,
-  [SMALL_STATE(7234)] = 161322,
-  [SMALL_STATE(7235)] = 161336,
-  [SMALL_STATE(7236)] = 161350,
-  [SMALL_STATE(7237)] = 161362,
-  [SMALL_STATE(7238)] = 161376,
-  [SMALL_STATE(7239)] = 161390,
-  [SMALL_STATE(7240)] = 161402,
-  [SMALL_STATE(7241)] = 161414,
-  [SMALL_STATE(7242)] = 161428,
-  [SMALL_STATE(7243)] = 161442,
-  [SMALL_STATE(7244)] = 161456,
-  [SMALL_STATE(7245)] = 161470,
-  [SMALL_STATE(7246)] = 161482,
-  [SMALL_STATE(7247)] = 161496,
-  [SMALL_STATE(7248)] = 161508,
-  [SMALL_STATE(7249)] = 161522,
-  [SMALL_STATE(7250)] = 161536,
-  [SMALL_STATE(7251)] = 161550,
-  [SMALL_STATE(7252)] = 161564,
-  [SMALL_STATE(7253)] = 161576,
-  [SMALL_STATE(7254)] = 161588,
-  [SMALL_STATE(7255)] = 161600,
-  [SMALL_STATE(7256)] = 161612,
-  [SMALL_STATE(7257)] = 161624,
-  [SMALL_STATE(7258)] = 161636,
-  [SMALL_STATE(7259)] = 161648,
-  [SMALL_STATE(7260)] = 161658,
-  [SMALL_STATE(7261)] = 161668,
-  [SMALL_STATE(7262)] = 161682,
-  [SMALL_STATE(7263)] = 161694,
-  [SMALL_STATE(7264)] = 161708,
-  [SMALL_STATE(7265)] = 161720,
-  [SMALL_STATE(7266)] = 161732,
-  [SMALL_STATE(7267)] = 161744,
-  [SMALL_STATE(7268)] = 161758,
-  [SMALL_STATE(7269)] = 161770,
-  [SMALL_STATE(7270)] = 161784,
-  [SMALL_STATE(7271)] = 161798,
-  [SMALL_STATE(7272)] = 161810,
-  [SMALL_STATE(7273)] = 161824,
-  [SMALL_STATE(7274)] = 161838,
-  [SMALL_STATE(7275)] = 161852,
-  [SMALL_STATE(7276)] = 161866,
-  [SMALL_STATE(7277)] = 161878,
-  [SMALL_STATE(7278)] = 161890,
-  [SMALL_STATE(7279)] = 161902,
-  [SMALL_STATE(7280)] = 161916,
-  [SMALL_STATE(7281)] = 161928,
-  [SMALL_STATE(7282)] = 161940,
-  [SMALL_STATE(7283)] = 161950,
-  [SMALL_STATE(7284)] = 161960,
-  [SMALL_STATE(7285)] = 161974,
-  [SMALL_STATE(7286)] = 161988,
-  [SMALL_STATE(7287)] = 162002,
-  [SMALL_STATE(7288)] = 162012,
-  [SMALL_STATE(7289)] = 162022,
-  [SMALL_STATE(7290)] = 162034,
-  [SMALL_STATE(7291)] = 162044,
-  [SMALL_STATE(7292)] = 162058,
-  [SMALL_STATE(7293)] = 162068,
-  [SMALL_STATE(7294)] = 162082,
-  [SMALL_STATE(7295)] = 162096,
-  [SMALL_STATE(7296)] = 162110,
-  [SMALL_STATE(7297)] = 162124,
-  [SMALL_STATE(7298)] = 162136,
-  [SMALL_STATE(7299)] = 162150,
-  [SMALL_STATE(7300)] = 162160,
-  [SMALL_STATE(7301)] = 162170,
-  [SMALL_STATE(7302)] = 162184,
-  [SMALL_STATE(7303)] = 162196,
-  [SMALL_STATE(7304)] = 162206,
-  [SMALL_STATE(7305)] = 162220,
-  [SMALL_STATE(7306)] = 162230,
-  [SMALL_STATE(7307)] = 162244,
-  [SMALL_STATE(7308)] = 162254,
-  [SMALL_STATE(7309)] = 162264,
-  [SMALL_STATE(7310)] = 162276,
-  [SMALL_STATE(7311)] = 162290,
-  [SMALL_STATE(7312)] = 162300,
-  [SMALL_STATE(7313)] = 162314,
-  [SMALL_STATE(7314)] = 162328,
-  [SMALL_STATE(7315)] = 162342,
-  [SMALL_STATE(7316)] = 162356,
-  [SMALL_STATE(7317)] = 162368,
-  [SMALL_STATE(7318)] = 162379,
-  [SMALL_STATE(7319)] = 162390,
-  [SMALL_STATE(7320)] = 162399,
-  [SMALL_STATE(7321)] = 162408,
-  [SMALL_STATE(7322)] = 162419,
-  [SMALL_STATE(7323)] = 162430,
-  [SMALL_STATE(7324)] = 162439,
-  [SMALL_STATE(7325)] = 162450,
-  [SMALL_STATE(7326)] = 162461,
-  [SMALL_STATE(7327)] = 162470,
-  [SMALL_STATE(7328)] = 162481,
-  [SMALL_STATE(7329)] = 162492,
-  [SMALL_STATE(7330)] = 162503,
-  [SMALL_STATE(7331)] = 162514,
-  [SMALL_STATE(7332)] = 162523,
-  [SMALL_STATE(7333)] = 162534,
-  [SMALL_STATE(7334)] = 162545,
-  [SMALL_STATE(7335)] = 162554,
-  [SMALL_STATE(7336)] = 162565,
-  [SMALL_STATE(7337)] = 162576,
-  [SMALL_STATE(7338)] = 162587,
-  [SMALL_STATE(7339)] = 162598,
-  [SMALL_STATE(7340)] = 162607,
-  [SMALL_STATE(7341)] = 162618,
-  [SMALL_STATE(7342)] = 162629,
-  [SMALL_STATE(7343)] = 162638,
-  [SMALL_STATE(7344)] = 162647,
-  [SMALL_STATE(7345)] = 162658,
-  [SMALL_STATE(7346)] = 162669,
-  [SMALL_STATE(7347)] = 162680,
-  [SMALL_STATE(7348)] = 162689,
-  [SMALL_STATE(7349)] = 162700,
-  [SMALL_STATE(7350)] = 162711,
-  [SMALL_STATE(7351)] = 162722,
-  [SMALL_STATE(7352)] = 162733,
-  [SMALL_STATE(7353)] = 162744,
-  [SMALL_STATE(7354)] = 162753,
-  [SMALL_STATE(7355)] = 162764,
-  [SMALL_STATE(7356)] = 162775,
-  [SMALL_STATE(7357)] = 162786,
-  [SMALL_STATE(7358)] = 162797,
-  [SMALL_STATE(7359)] = 162806,
-  [SMALL_STATE(7360)] = 162817,
-  [SMALL_STATE(7361)] = 162828,
-  [SMALL_STATE(7362)] = 162837,
-  [SMALL_STATE(7363)] = 162848,
-  [SMALL_STATE(7364)] = 162859,
-  [SMALL_STATE(7365)] = 162868,
-  [SMALL_STATE(7366)] = 162877,
-  [SMALL_STATE(7367)] = 162888,
-  [SMALL_STATE(7368)] = 162899,
-  [SMALL_STATE(7369)] = 162908,
-  [SMALL_STATE(7370)] = 162919,
-  [SMALL_STATE(7371)] = 162930,
-  [SMALL_STATE(7372)] = 162939,
-  [SMALL_STATE(7373)] = 162950,
-  [SMALL_STATE(7374)] = 162961,
-  [SMALL_STATE(7375)] = 162972,
-  [SMALL_STATE(7376)] = 162983,
-  [SMALL_STATE(7377)] = 162992,
-  [SMALL_STATE(7378)] = 163003,
-  [SMALL_STATE(7379)] = 163014,
-  [SMALL_STATE(7380)] = 163025,
-  [SMALL_STATE(7381)] = 163034,
-  [SMALL_STATE(7382)] = 163045,
-  [SMALL_STATE(7383)] = 163056,
-  [SMALL_STATE(7384)] = 163065,
-  [SMALL_STATE(7385)] = 163074,
-  [SMALL_STATE(7386)] = 163085,
-  [SMALL_STATE(7387)] = 163096,
-  [SMALL_STATE(7388)] = 163107,
-  [SMALL_STATE(7389)] = 163118,
-  [SMALL_STATE(7390)] = 163129,
-  [SMALL_STATE(7391)] = 163138,
-  [SMALL_STATE(7392)] = 163147,
-  [SMALL_STATE(7393)] = 163158,
-  [SMALL_STATE(7394)] = 163169,
-  [SMALL_STATE(7395)] = 163178,
-  [SMALL_STATE(7396)] = 163189,
-  [SMALL_STATE(7397)] = 163200,
-  [SMALL_STATE(7398)] = 163209,
-  [SMALL_STATE(7399)] = 163220,
-  [SMALL_STATE(7400)] = 163231,
-  [SMALL_STATE(7401)] = 163240,
-  [SMALL_STATE(7402)] = 163251,
-  [SMALL_STATE(7403)] = 163262,
-  [SMALL_STATE(7404)] = 163273,
-  [SMALL_STATE(7405)] = 163284,
-  [SMALL_STATE(7406)] = 163295,
-  [SMALL_STATE(7407)] = 163304,
-  [SMALL_STATE(7408)] = 163315,
-  [SMALL_STATE(7409)] = 163326,
-  [SMALL_STATE(7410)] = 163335,
-  [SMALL_STATE(7411)] = 163346,
-  [SMALL_STATE(7412)] = 163357,
-  [SMALL_STATE(7413)] = 163368,
-  [SMALL_STATE(7414)] = 163379,
-  [SMALL_STATE(7415)] = 163390,
-  [SMALL_STATE(7416)] = 163399,
-  [SMALL_STATE(7417)] = 163410,
-  [SMALL_STATE(7418)] = 163419,
-  [SMALL_STATE(7419)] = 163428,
-  [SMALL_STATE(7420)] = 163437,
-  [SMALL_STATE(7421)] = 163448,
-  [SMALL_STATE(7422)] = 163457,
-  [SMALL_STATE(7423)] = 163466,
-  [SMALL_STATE(7424)] = 163475,
-  [SMALL_STATE(7425)] = 163484,
-  [SMALL_STATE(7426)] = 163493,
-  [SMALL_STATE(7427)] = 163502,
-  [SMALL_STATE(7428)] = 163511,
-  [SMALL_STATE(7429)] = 163522,
-  [SMALL_STATE(7430)] = 163531,
-  [SMALL_STATE(7431)] = 163540,
-  [SMALL_STATE(7432)] = 163549,
-  [SMALL_STATE(7433)] = 163558,
-  [SMALL_STATE(7434)] = 163567,
-  [SMALL_STATE(7435)] = 163576,
-  [SMALL_STATE(7436)] = 163585,
-  [SMALL_STATE(7437)] = 163594,
-  [SMALL_STATE(7438)] = 163603,
-  [SMALL_STATE(7439)] = 163614,
-  [SMALL_STATE(7440)] = 163623,
-  [SMALL_STATE(7441)] = 163634,
-  [SMALL_STATE(7442)] = 163643,
-  [SMALL_STATE(7443)] = 163652,
-  [SMALL_STATE(7444)] = 163661,
-  [SMALL_STATE(7445)] = 163670,
-  [SMALL_STATE(7446)] = 163679,
-  [SMALL_STATE(7447)] = 163688,
-  [SMALL_STATE(7448)] = 163699,
-  [SMALL_STATE(7449)] = 163708,
-  [SMALL_STATE(7450)] = 163719,
-  [SMALL_STATE(7451)] = 163730,
-  [SMALL_STATE(7452)] = 163741,
-  [SMALL_STATE(7453)] = 163750,
-  [SMALL_STATE(7454)] = 163759,
-  [SMALL_STATE(7455)] = 163768,
-  [SMALL_STATE(7456)] = 163779,
-  [SMALL_STATE(7457)] = 163788,
-  [SMALL_STATE(7458)] = 163797,
-  [SMALL_STATE(7459)] = 163806,
-  [SMALL_STATE(7460)] = 163815,
-  [SMALL_STATE(7461)] = 163824,
-  [SMALL_STATE(7462)] = 163835,
-  [SMALL_STATE(7463)] = 163844,
-  [SMALL_STATE(7464)] = 163855,
-  [SMALL_STATE(7465)] = 163864,
-  [SMALL_STATE(7466)] = 163873,
-  [SMALL_STATE(7467)] = 163884,
-  [SMALL_STATE(7468)] = 163895,
-  [SMALL_STATE(7469)] = 163904,
-  [SMALL_STATE(7470)] = 163913,
-  [SMALL_STATE(7471)] = 163922,
-  [SMALL_STATE(7472)] = 163931,
-  [SMALL_STATE(7473)] = 163940,
-  [SMALL_STATE(7474)] = 163951,
-  [SMALL_STATE(7475)] = 163960,
-  [SMALL_STATE(7476)] = 163969,
-  [SMALL_STATE(7477)] = 163978,
-  [SMALL_STATE(7478)] = 163989,
-  [SMALL_STATE(7479)] = 164000,
-  [SMALL_STATE(7480)] = 164009,
-  [SMALL_STATE(7481)] = 164018,
-  [SMALL_STATE(7482)] = 164027,
-  [SMALL_STATE(7483)] = 164036,
-  [SMALL_STATE(7484)] = 164045,
-  [SMALL_STATE(7485)] = 164054,
-  [SMALL_STATE(7486)] = 164065,
-  [SMALL_STATE(7487)] = 164074,
-  [SMALL_STATE(7488)] = 164083,
-  [SMALL_STATE(7489)] = 164094,
-  [SMALL_STATE(7490)] = 164105,
-  [SMALL_STATE(7491)] = 164114,
-  [SMALL_STATE(7492)] = 164123,
-  [SMALL_STATE(7493)] = 164132,
-  [SMALL_STATE(7494)] = 164141,
-  [SMALL_STATE(7495)] = 164150,
-  [SMALL_STATE(7496)] = 164159,
-  [SMALL_STATE(7497)] = 164168,
-  [SMALL_STATE(7498)] = 164179,
-  [SMALL_STATE(7499)] = 164190,
-  [SMALL_STATE(7500)] = 164199,
-  [SMALL_STATE(7501)] = 164210,
-  [SMALL_STATE(7502)] = 164219,
-  [SMALL_STATE(7503)] = 164228,
-  [SMALL_STATE(7504)] = 164237,
-  [SMALL_STATE(7505)] = 164246,
-  [SMALL_STATE(7506)] = 164255,
-  [SMALL_STATE(7507)] = 164264,
-  [SMALL_STATE(7508)] = 164273,
-  [SMALL_STATE(7509)] = 164284,
-  [SMALL_STATE(7510)] = 164295,
-  [SMALL_STATE(7511)] = 164306,
-  [SMALL_STATE(7512)] = 164317,
-  [SMALL_STATE(7513)] = 164326,
-  [SMALL_STATE(7514)] = 164335,
-  [SMALL_STATE(7515)] = 164344,
-  [SMALL_STATE(7516)] = 164353,
-  [SMALL_STATE(7517)] = 164364,
-  [SMALL_STATE(7518)] = 164373,
-  [SMALL_STATE(7519)] = 164382,
-  [SMALL_STATE(7520)] = 164393,
-  [SMALL_STATE(7521)] = 164402,
-  [SMALL_STATE(7522)] = 164413,
-  [SMALL_STATE(7523)] = 164422,
-  [SMALL_STATE(7524)] = 164431,
-  [SMALL_STATE(7525)] = 164442,
-  [SMALL_STATE(7526)] = 164451,
-  [SMALL_STATE(7527)] = 164462,
-  [SMALL_STATE(7528)] = 164471,
-  [SMALL_STATE(7529)] = 164480,
-  [SMALL_STATE(7530)] = 164491,
-  [SMALL_STATE(7531)] = 164500,
-  [SMALL_STATE(7532)] = 164511,
-  [SMALL_STATE(7533)] = 164520,
-  [SMALL_STATE(7534)] = 164531,
-  [SMALL_STATE(7535)] = 164542,
-  [SMALL_STATE(7536)] = 164551,
-  [SMALL_STATE(7537)] = 164560,
-  [SMALL_STATE(7538)] = 164569,
-  [SMALL_STATE(7539)] = 164580,
-  [SMALL_STATE(7540)] = 164591,
-  [SMALL_STATE(7541)] = 164602,
-  [SMALL_STATE(7542)] = 164613,
-  [SMALL_STATE(7543)] = 164622,
-  [SMALL_STATE(7544)] = 164633,
-  [SMALL_STATE(7545)] = 164644,
-  [SMALL_STATE(7546)] = 164653,
-  [SMALL_STATE(7547)] = 164664,
-  [SMALL_STATE(7548)] = 164673,
-  [SMALL_STATE(7549)] = 164682,
-  [SMALL_STATE(7550)] = 164691,
-  [SMALL_STATE(7551)] = 164700,
-  [SMALL_STATE(7552)] = 164709,
-  [SMALL_STATE(7553)] = 164718,
-  [SMALL_STATE(7554)] = 164727,
-  [SMALL_STATE(7555)] = 164736,
-  [SMALL_STATE(7556)] = 164747,
-  [SMALL_STATE(7557)] = 164756,
-  [SMALL_STATE(7558)] = 164765,
-  [SMALL_STATE(7559)] = 164774,
-  [SMALL_STATE(7560)] = 164783,
-  [SMALL_STATE(7561)] = 164792,
-  [SMALL_STATE(7562)] = 164801,
-  [SMALL_STATE(7563)] = 164812,
-  [SMALL_STATE(7564)] = 164821,
-  [SMALL_STATE(7565)] = 164832,
-  [SMALL_STATE(7566)] = 164841,
-  [SMALL_STATE(7567)] = 164850,
-  [SMALL_STATE(7568)] = 164859,
-  [SMALL_STATE(7569)] = 164870,
-  [SMALL_STATE(7570)] = 164879,
-  [SMALL_STATE(7571)] = 164890,
-  [SMALL_STATE(7572)] = 164899,
-  [SMALL_STATE(7573)] = 164908,
-  [SMALL_STATE(7574)] = 164917,
-  [SMALL_STATE(7575)] = 164928,
-  [SMALL_STATE(7576)] = 164939,
-  [SMALL_STATE(7577)] = 164950,
-  [SMALL_STATE(7578)] = 164961,
-  [SMALL_STATE(7579)] = 164970,
-  [SMALL_STATE(7580)] = 164979,
-  [SMALL_STATE(7581)] = 164988,
-  [SMALL_STATE(7582)] = 164999,
-  [SMALL_STATE(7583)] = 165010,
-  [SMALL_STATE(7584)] = 165019,
-  [SMALL_STATE(7585)] = 165028,
-  [SMALL_STATE(7586)] = 165039,
-  [SMALL_STATE(7587)] = 165050,
-  [SMALL_STATE(7588)] = 165059,
-  [SMALL_STATE(7589)] = 165070,
-  [SMALL_STATE(7590)] = 165081,
-  [SMALL_STATE(7591)] = 165090,
-  [SMALL_STATE(7592)] = 165101,
-  [SMALL_STATE(7593)] = 165112,
-  [SMALL_STATE(7594)] = 165121,
-  [SMALL_STATE(7595)] = 165130,
-  [SMALL_STATE(7596)] = 165141,
-  [SMALL_STATE(7597)] = 165150,
-  [SMALL_STATE(7598)] = 165159,
-  [SMALL_STATE(7599)] = 165170,
-  [SMALL_STATE(7600)] = 165181,
-  [SMALL_STATE(7601)] = 165190,
-  [SMALL_STATE(7602)] = 165201,
-  [SMALL_STATE(7603)] = 165210,
-  [SMALL_STATE(7604)] = 165219,
-  [SMALL_STATE(7605)] = 165230,
-  [SMALL_STATE(7606)] = 165239,
-  [SMALL_STATE(7607)] = 165248,
-  [SMALL_STATE(7608)] = 165259,
-  [SMALL_STATE(7609)] = 165268,
-  [SMALL_STATE(7610)] = 165279,
-  [SMALL_STATE(7611)] = 165290,
-  [SMALL_STATE(7612)] = 165299,
-  [SMALL_STATE(7613)] = 165308,
-  [SMALL_STATE(7614)] = 165317,
-  [SMALL_STATE(7615)] = 165326,
-  [SMALL_STATE(7616)] = 165337,
-  [SMALL_STATE(7617)] = 165348,
-  [SMALL_STATE(7618)] = 165359,
-  [SMALL_STATE(7619)] = 165368,
-  [SMALL_STATE(7620)] = 165377,
-  [SMALL_STATE(7621)] = 165386,
-  [SMALL_STATE(7622)] = 165397,
-  [SMALL_STATE(7623)] = 165406,
-  [SMALL_STATE(7624)] = 165415,
-  [SMALL_STATE(7625)] = 165426,
-  [SMALL_STATE(7626)] = 165437,
-  [SMALL_STATE(7627)] = 165446,
-  [SMALL_STATE(7628)] = 165457,
-  [SMALL_STATE(7629)] = 165468,
-  [SMALL_STATE(7630)] = 165477,
-  [SMALL_STATE(7631)] = 165486,
-  [SMALL_STATE(7632)] = 165495,
-  [SMALL_STATE(7633)] = 165504,
-  [SMALL_STATE(7634)] = 165513,
-  [SMALL_STATE(7635)] = 165522,
-  [SMALL_STATE(7636)] = 165531,
-  [SMALL_STATE(7637)] = 165540,
-  [SMALL_STATE(7638)] = 165549,
-  [SMALL_STATE(7639)] = 165560,
-  [SMALL_STATE(7640)] = 165569,
-  [SMALL_STATE(7641)] = 165578,
-  [SMALL_STATE(7642)] = 165589,
-  [SMALL_STATE(7643)] = 165600,
-  [SMALL_STATE(7644)] = 165609,
-  [SMALL_STATE(7645)] = 165618,
-  [SMALL_STATE(7646)] = 165627,
-  [SMALL_STATE(7647)] = 165638,
-  [SMALL_STATE(7648)] = 165647,
-  [SMALL_STATE(7649)] = 165656,
-  [SMALL_STATE(7650)] = 165665,
-  [SMALL_STATE(7651)] = 165676,
-  [SMALL_STATE(7652)] = 165685,
-  [SMALL_STATE(7653)] = 165694,
-  [SMALL_STATE(7654)] = 165705,
-  [SMALL_STATE(7655)] = 165714,
-  [SMALL_STATE(7656)] = 165725,
-  [SMALL_STATE(7657)] = 165736,
-  [SMALL_STATE(7658)] = 165745,
-  [SMALL_STATE(7659)] = 165754,
-  [SMALL_STATE(7660)] = 165763,
-  [SMALL_STATE(7661)] = 165772,
-  [SMALL_STATE(7662)] = 165783,
-  [SMALL_STATE(7663)] = 165794,
-  [SMALL_STATE(7664)] = 165803,
-  [SMALL_STATE(7665)] = 165814,
-  [SMALL_STATE(7666)] = 165823,
-  [SMALL_STATE(7667)] = 165832,
-  [SMALL_STATE(7668)] = 165841,
-  [SMALL_STATE(7669)] = 165852,
-  [SMALL_STATE(7670)] = 165861,
-  [SMALL_STATE(7671)] = 165870,
-  [SMALL_STATE(7672)] = 165879,
-  [SMALL_STATE(7673)] = 165890,
-  [SMALL_STATE(7674)] = 165901,
-  [SMALL_STATE(7675)] = 165910,
-  [SMALL_STATE(7676)] = 165921,
-  [SMALL_STATE(7677)] = 165930,
-  [SMALL_STATE(7678)] = 165939,
-  [SMALL_STATE(7679)] = 165948,
-  [SMALL_STATE(7680)] = 165957,
-  [SMALL_STATE(7681)] = 165966,
-  [SMALL_STATE(7682)] = 165977,
-  [SMALL_STATE(7683)] = 165986,
-  [SMALL_STATE(7684)] = 165995,
-  [SMALL_STATE(7685)] = 166004,
-  [SMALL_STATE(7686)] = 166015,
-  [SMALL_STATE(7687)] = 166024,
-  [SMALL_STATE(7688)] = 166035,
-  [SMALL_STATE(7689)] = 166044,
-  [SMALL_STATE(7690)] = 166055,
-  [SMALL_STATE(7691)] = 166066,
-  [SMALL_STATE(7692)] = 166075,
-  [SMALL_STATE(7693)] = 166084,
-  [SMALL_STATE(7694)] = 166093,
-  [SMALL_STATE(7695)] = 166102,
-  [SMALL_STATE(7696)] = 166111,
-  [SMALL_STATE(7697)] = 166120,
-  [SMALL_STATE(7698)] = 166129,
-  [SMALL_STATE(7699)] = 166138,
-  [SMALL_STATE(7700)] = 166149,
-  [SMALL_STATE(7701)] = 166158,
-  [SMALL_STATE(7702)] = 166167,
-  [SMALL_STATE(7703)] = 166176,
-  [SMALL_STATE(7704)] = 166187,
-  [SMALL_STATE(7705)] = 166198,
-  [SMALL_STATE(7706)] = 166209,
-  [SMALL_STATE(7707)] = 166217,
-  [SMALL_STATE(7708)] = 166225,
-  [SMALL_STATE(7709)] = 166233,
-  [SMALL_STATE(7710)] = 166241,
-  [SMALL_STATE(7711)] = 166249,
-  [SMALL_STATE(7712)] = 166257,
-  [SMALL_STATE(7713)] = 166265,
-  [SMALL_STATE(7714)] = 166273,
-  [SMALL_STATE(7715)] = 166281,
-  [SMALL_STATE(7716)] = 166289,
-  [SMALL_STATE(7717)] = 166297,
-  [SMALL_STATE(7718)] = 166305,
-  [SMALL_STATE(7719)] = 166313,
-  [SMALL_STATE(7720)] = 166321,
-  [SMALL_STATE(7721)] = 166329,
-  [SMALL_STATE(7722)] = 166337,
-  [SMALL_STATE(7723)] = 166345,
-  [SMALL_STATE(7724)] = 166353,
-  [SMALL_STATE(7725)] = 166361,
-  [SMALL_STATE(7726)] = 166369,
-  [SMALL_STATE(7727)] = 166377,
-  [SMALL_STATE(7728)] = 166385,
-  [SMALL_STATE(7729)] = 166393,
-  [SMALL_STATE(7730)] = 166401,
-  [SMALL_STATE(7731)] = 166409,
-  [SMALL_STATE(7732)] = 166417,
-  [SMALL_STATE(7733)] = 166425,
-  [SMALL_STATE(7734)] = 166433,
-  [SMALL_STATE(7735)] = 166441,
-  [SMALL_STATE(7736)] = 166449,
-  [SMALL_STATE(7737)] = 166457,
-  [SMALL_STATE(7738)] = 166465,
-  [SMALL_STATE(7739)] = 166473,
-  [SMALL_STATE(7740)] = 166481,
-  [SMALL_STATE(7741)] = 166489,
-  [SMALL_STATE(7742)] = 166497,
-  [SMALL_STATE(7743)] = 166505,
-  [SMALL_STATE(7744)] = 166513,
-  [SMALL_STATE(7745)] = 166521,
-  [SMALL_STATE(7746)] = 166529,
-  [SMALL_STATE(7747)] = 166537,
-  [SMALL_STATE(7748)] = 166545,
-  [SMALL_STATE(7749)] = 166553,
-  [SMALL_STATE(7750)] = 166561,
-  [SMALL_STATE(7751)] = 166569,
-  [SMALL_STATE(7752)] = 166577,
-  [SMALL_STATE(7753)] = 166585,
-  [SMALL_STATE(7754)] = 166593,
-  [SMALL_STATE(7755)] = 166601,
-  [SMALL_STATE(7756)] = 166609,
-  [SMALL_STATE(7757)] = 166617,
-  [SMALL_STATE(7758)] = 166625,
-  [SMALL_STATE(7759)] = 166633,
-  [SMALL_STATE(7760)] = 166641,
-  [SMALL_STATE(7761)] = 166649,
-  [SMALL_STATE(7762)] = 166657,
-  [SMALL_STATE(7763)] = 166665,
-  [SMALL_STATE(7764)] = 166673,
-  [SMALL_STATE(7765)] = 166681,
-  [SMALL_STATE(7766)] = 166689,
-  [SMALL_STATE(7767)] = 166697,
-  [SMALL_STATE(7768)] = 166705,
-  [SMALL_STATE(7769)] = 166713,
-  [SMALL_STATE(7770)] = 166721,
-  [SMALL_STATE(7771)] = 166729,
-  [SMALL_STATE(7772)] = 166737,
-  [SMALL_STATE(7773)] = 166745,
-  [SMALL_STATE(7774)] = 166753,
-  [SMALL_STATE(7775)] = 166761,
-  [SMALL_STATE(7776)] = 166769,
-  [SMALL_STATE(7777)] = 166777,
-  [SMALL_STATE(7778)] = 166785,
-  [SMALL_STATE(7779)] = 166793,
-  [SMALL_STATE(7780)] = 166801,
-  [SMALL_STATE(7781)] = 166809,
-  [SMALL_STATE(7782)] = 166817,
-  [SMALL_STATE(7783)] = 166825,
-  [SMALL_STATE(7784)] = 166833,
-  [SMALL_STATE(7785)] = 166841,
-  [SMALL_STATE(7786)] = 166849,
-  [SMALL_STATE(7787)] = 166857,
-  [SMALL_STATE(7788)] = 166865,
-  [SMALL_STATE(7789)] = 166873,
-  [SMALL_STATE(7790)] = 166881,
-  [SMALL_STATE(7791)] = 166889,
-  [SMALL_STATE(7792)] = 166897,
-  [SMALL_STATE(7793)] = 166905,
-  [SMALL_STATE(7794)] = 166913,
-  [SMALL_STATE(7795)] = 166921,
-  [SMALL_STATE(7796)] = 166929,
-  [SMALL_STATE(7797)] = 166937,
-  [SMALL_STATE(7798)] = 166945,
-  [SMALL_STATE(7799)] = 166953,
-  [SMALL_STATE(7800)] = 166961,
-  [SMALL_STATE(7801)] = 166969,
-  [SMALL_STATE(7802)] = 166977,
-  [SMALL_STATE(7803)] = 166985,
-  [SMALL_STATE(7804)] = 166993,
-  [SMALL_STATE(7805)] = 167001,
-  [SMALL_STATE(7806)] = 167009,
-  [SMALL_STATE(7807)] = 167017,
-  [SMALL_STATE(7808)] = 167025,
-  [SMALL_STATE(7809)] = 167033,
-  [SMALL_STATE(7810)] = 167041,
-  [SMALL_STATE(7811)] = 167049,
-  [SMALL_STATE(7812)] = 167057,
-  [SMALL_STATE(7813)] = 167065,
-  [SMALL_STATE(7814)] = 167073,
-  [SMALL_STATE(7815)] = 167081,
-  [SMALL_STATE(7816)] = 167089,
-  [SMALL_STATE(7817)] = 167097,
-  [SMALL_STATE(7818)] = 167105,
-  [SMALL_STATE(7819)] = 167113,
-  [SMALL_STATE(7820)] = 167121,
-  [SMALL_STATE(7821)] = 167129,
-  [SMALL_STATE(7822)] = 167137,
-  [SMALL_STATE(7823)] = 167145,
-  [SMALL_STATE(7824)] = 167153,
-  [SMALL_STATE(7825)] = 167161,
-  [SMALL_STATE(7826)] = 167169,
-  [SMALL_STATE(7827)] = 167177,
-  [SMALL_STATE(7828)] = 167185,
-  [SMALL_STATE(7829)] = 167193,
-  [SMALL_STATE(7830)] = 167201,
-  [SMALL_STATE(7831)] = 167209,
-  [SMALL_STATE(7832)] = 167217,
-  [SMALL_STATE(7833)] = 167225,
-  [SMALL_STATE(7834)] = 167233,
-  [SMALL_STATE(7835)] = 167241,
-  [SMALL_STATE(7836)] = 167249,
-  [SMALL_STATE(7837)] = 167257,
-  [SMALL_STATE(7838)] = 167265,
-  [SMALL_STATE(7839)] = 167273,
-  [SMALL_STATE(7840)] = 167281,
-  [SMALL_STATE(7841)] = 167289,
-  [SMALL_STATE(7842)] = 167297,
-  [SMALL_STATE(7843)] = 167305,
-  [SMALL_STATE(7844)] = 167313,
-  [SMALL_STATE(7845)] = 167321,
-  [SMALL_STATE(7846)] = 167329,
-  [SMALL_STATE(7847)] = 167337,
-  [SMALL_STATE(7848)] = 167345,
-  [SMALL_STATE(7849)] = 167353,
-  [SMALL_STATE(7850)] = 167361,
-  [SMALL_STATE(7851)] = 167369,
-  [SMALL_STATE(7852)] = 167377,
-  [SMALL_STATE(7853)] = 167385,
-  [SMALL_STATE(7854)] = 167393,
-  [SMALL_STATE(7855)] = 167401,
-  [SMALL_STATE(7856)] = 167409,
-  [SMALL_STATE(7857)] = 167417,
-  [SMALL_STATE(7858)] = 167425,
-  [SMALL_STATE(7859)] = 167433,
-  [SMALL_STATE(7860)] = 167441,
-  [SMALL_STATE(7861)] = 167449,
-  [SMALL_STATE(7862)] = 167457,
-  [SMALL_STATE(7863)] = 167465,
-  [SMALL_STATE(7864)] = 167473,
-  [SMALL_STATE(7865)] = 167481,
-  [SMALL_STATE(7866)] = 167489,
-  [SMALL_STATE(7867)] = 167497,
-  [SMALL_STATE(7868)] = 167505,
-  [SMALL_STATE(7869)] = 167513,
-  [SMALL_STATE(7870)] = 167521,
-  [SMALL_STATE(7871)] = 167529,
-  [SMALL_STATE(7872)] = 167537,
-  [SMALL_STATE(7873)] = 167545,
-  [SMALL_STATE(7874)] = 167553,
-  [SMALL_STATE(7875)] = 167561,
-  [SMALL_STATE(7876)] = 167569,
-  [SMALL_STATE(7877)] = 167577,
-  [SMALL_STATE(7878)] = 167585,
-  [SMALL_STATE(7879)] = 167593,
-  [SMALL_STATE(7880)] = 167601,
-  [SMALL_STATE(7881)] = 167609,
-  [SMALL_STATE(7882)] = 167617,
-  [SMALL_STATE(7883)] = 167625,
-  [SMALL_STATE(7884)] = 167633,
-  [SMALL_STATE(7885)] = 167641,
-  [SMALL_STATE(7886)] = 167649,
-  [SMALL_STATE(7887)] = 167657,
-  [SMALL_STATE(7888)] = 167665,
-  [SMALL_STATE(7889)] = 167673,
-  [SMALL_STATE(7890)] = 167681,
-  [SMALL_STATE(7891)] = 167689,
-  [SMALL_STATE(7892)] = 167697,
-  [SMALL_STATE(7893)] = 167705,
-  [SMALL_STATE(7894)] = 167713,
-  [SMALL_STATE(7895)] = 167721,
-  [SMALL_STATE(7896)] = 167729,
-  [SMALL_STATE(7897)] = 167737,
-  [SMALL_STATE(7898)] = 167745,
-  [SMALL_STATE(7899)] = 167753,
-  [SMALL_STATE(7900)] = 167761,
-  [SMALL_STATE(7901)] = 167769,
-  [SMALL_STATE(7902)] = 167777,
-  [SMALL_STATE(7903)] = 167785,
-  [SMALL_STATE(7904)] = 167793,
-  [SMALL_STATE(7905)] = 167801,
-  [SMALL_STATE(7906)] = 167809,
-  [SMALL_STATE(7907)] = 167817,
-  [SMALL_STATE(7908)] = 167825,
-  [SMALL_STATE(7909)] = 167833,
-  [SMALL_STATE(7910)] = 167841,
-  [SMALL_STATE(7911)] = 167849,
-  [SMALL_STATE(7912)] = 167857,
-  [SMALL_STATE(7913)] = 167865,
-  [SMALL_STATE(7914)] = 167873,
-  [SMALL_STATE(7915)] = 167881,
-  [SMALL_STATE(7916)] = 167889,
-  [SMALL_STATE(7917)] = 167897,
-  [SMALL_STATE(7918)] = 167905,
-  [SMALL_STATE(7919)] = 167913,
-  [SMALL_STATE(7920)] = 167921,
-  [SMALL_STATE(7921)] = 167929,
-  [SMALL_STATE(7922)] = 167937,
-  [SMALL_STATE(7923)] = 167945,
-  [SMALL_STATE(7924)] = 167953,
-  [SMALL_STATE(7925)] = 167961,
-  [SMALL_STATE(7926)] = 167969,
-  [SMALL_STATE(7927)] = 167977,
-  [SMALL_STATE(7928)] = 167985,
-  [SMALL_STATE(7929)] = 167993,
-  [SMALL_STATE(7930)] = 168001,
-  [SMALL_STATE(7931)] = 168009,
-  [SMALL_STATE(7932)] = 168017,
-  [SMALL_STATE(7933)] = 168025,
-  [SMALL_STATE(7934)] = 168033,
-  [SMALL_STATE(7935)] = 168041,
-  [SMALL_STATE(7936)] = 168049,
-  [SMALL_STATE(7937)] = 168057,
-  [SMALL_STATE(7938)] = 168065,
-  [SMALL_STATE(7939)] = 168073,
-  [SMALL_STATE(7940)] = 168081,
-  [SMALL_STATE(7941)] = 168089,
-  [SMALL_STATE(7942)] = 168097,
-  [SMALL_STATE(7943)] = 168105,
-  [SMALL_STATE(7944)] = 168113,
-  [SMALL_STATE(7945)] = 168121,
-  [SMALL_STATE(7946)] = 168129,
-  [SMALL_STATE(7947)] = 168137,
-  [SMALL_STATE(7948)] = 168145,
-  [SMALL_STATE(7949)] = 168153,
-  [SMALL_STATE(7950)] = 168161,
-  [SMALL_STATE(7951)] = 168169,
-  [SMALL_STATE(7952)] = 168177,
-  [SMALL_STATE(7953)] = 168185,
-  [SMALL_STATE(7954)] = 168193,
-  [SMALL_STATE(7955)] = 168201,
-  [SMALL_STATE(7956)] = 168209,
-  [SMALL_STATE(7957)] = 168217,
-  [SMALL_STATE(7958)] = 168225,
-  [SMALL_STATE(7959)] = 168233,
-  [SMALL_STATE(7960)] = 168241,
-  [SMALL_STATE(7961)] = 168249,
-  [SMALL_STATE(7962)] = 168257,
-  [SMALL_STATE(7963)] = 168265,
-  [SMALL_STATE(7964)] = 168273,
-  [SMALL_STATE(7965)] = 168281,
-  [SMALL_STATE(7966)] = 168289,
-  [SMALL_STATE(7967)] = 168297,
-  [SMALL_STATE(7968)] = 168305,
-  [SMALL_STATE(7969)] = 168313,
-  [SMALL_STATE(7970)] = 168321,
-  [SMALL_STATE(7971)] = 168329,
-  [SMALL_STATE(7972)] = 168337,
-  [SMALL_STATE(7973)] = 168345,
-  [SMALL_STATE(7974)] = 168353,
-  [SMALL_STATE(7975)] = 168361,
-  [SMALL_STATE(7976)] = 168369,
-  [SMALL_STATE(7977)] = 168377,
-  [SMALL_STATE(7978)] = 168385,
-  [SMALL_STATE(7979)] = 168393,
-  [SMALL_STATE(7980)] = 168401,
-  [SMALL_STATE(7981)] = 168409,
-  [SMALL_STATE(7982)] = 168417,
-  [SMALL_STATE(7983)] = 168425,
-  [SMALL_STATE(7984)] = 168433,
-  [SMALL_STATE(7985)] = 168441,
-  [SMALL_STATE(7986)] = 168449,
-  [SMALL_STATE(7987)] = 168457,
-  [SMALL_STATE(7988)] = 168465,
-  [SMALL_STATE(7989)] = 168473,
-  [SMALL_STATE(7990)] = 168481,
-  [SMALL_STATE(7991)] = 168489,
-  [SMALL_STATE(7992)] = 168497,
-  [SMALL_STATE(7993)] = 168505,
-  [SMALL_STATE(7994)] = 168513,
-  [SMALL_STATE(7995)] = 168521,
-  [SMALL_STATE(7996)] = 168529,
-  [SMALL_STATE(7997)] = 168537,
-  [SMALL_STATE(7998)] = 168545,
-  [SMALL_STATE(7999)] = 168553,
-  [SMALL_STATE(8000)] = 168561,
-  [SMALL_STATE(8001)] = 168569,
-  [SMALL_STATE(8002)] = 168577,
-  [SMALL_STATE(8003)] = 168585,
-  [SMALL_STATE(8004)] = 168593,
-  [SMALL_STATE(8005)] = 168601,
-  [SMALL_STATE(8006)] = 168609,
-  [SMALL_STATE(8007)] = 168617,
-  [SMALL_STATE(8008)] = 168625,
-  [SMALL_STATE(8009)] = 168633,
-  [SMALL_STATE(8010)] = 168641,
-  [SMALL_STATE(8011)] = 168649,
-  [SMALL_STATE(8012)] = 168657,
-  [SMALL_STATE(8013)] = 168665,
-  [SMALL_STATE(8014)] = 168673,
-  [SMALL_STATE(8015)] = 168681,
-  [SMALL_STATE(8016)] = 168689,
-  [SMALL_STATE(8017)] = 168697,
-  [SMALL_STATE(8018)] = 168705,
-  [SMALL_STATE(8019)] = 168713,
-  [SMALL_STATE(8020)] = 168721,
-  [SMALL_STATE(8021)] = 168729,
-  [SMALL_STATE(8022)] = 168737,
-  [SMALL_STATE(8023)] = 168745,
-  [SMALL_STATE(8024)] = 168753,
-  [SMALL_STATE(8025)] = 168761,
-  [SMALL_STATE(8026)] = 168769,
-  [SMALL_STATE(8027)] = 168777,
-  [SMALL_STATE(8028)] = 168785,
-  [SMALL_STATE(8029)] = 168793,
-  [SMALL_STATE(8030)] = 168801,
-  [SMALL_STATE(8031)] = 168809,
-  [SMALL_STATE(8032)] = 168817,
-  [SMALL_STATE(8033)] = 168825,
-  [SMALL_STATE(8034)] = 168833,
-  [SMALL_STATE(8035)] = 168841,
-  [SMALL_STATE(8036)] = 168849,
-  [SMALL_STATE(8037)] = 168857,
-  [SMALL_STATE(8038)] = 168865,
-  [SMALL_STATE(8039)] = 168873,
-  [SMALL_STATE(8040)] = 168881,
-  [SMALL_STATE(8041)] = 168889,
-  [SMALL_STATE(8042)] = 168897,
-  [SMALL_STATE(8043)] = 168905,
-  [SMALL_STATE(8044)] = 168913,
-  [SMALL_STATE(8045)] = 168921,
-  [SMALL_STATE(8046)] = 168929,
-  [SMALL_STATE(8047)] = 168937,
-  [SMALL_STATE(8048)] = 168945,
-  [SMALL_STATE(8049)] = 168953,
-  [SMALL_STATE(8050)] = 168961,
-  [SMALL_STATE(8051)] = 168969,
-  [SMALL_STATE(8052)] = 168977,
-  [SMALL_STATE(8053)] = 168985,
-  [SMALL_STATE(8054)] = 168993,
-  [SMALL_STATE(8055)] = 169001,
-  [SMALL_STATE(8056)] = 169009,
-  [SMALL_STATE(8057)] = 169017,
-  [SMALL_STATE(8058)] = 169025,
-  [SMALL_STATE(8059)] = 169033,
-  [SMALL_STATE(8060)] = 169041,
-  [SMALL_STATE(8061)] = 169049,
-  [SMALL_STATE(8062)] = 169057,
-  [SMALL_STATE(8063)] = 169065,
-  [SMALL_STATE(8064)] = 169073,
-  [SMALL_STATE(8065)] = 169081,
-  [SMALL_STATE(8066)] = 169089,
-  [SMALL_STATE(8067)] = 169097,
-  [SMALL_STATE(8068)] = 169105,
-  [SMALL_STATE(8069)] = 169113,
-  [SMALL_STATE(8070)] = 169121,
-  [SMALL_STATE(8071)] = 169129,
-  [SMALL_STATE(8072)] = 169137,
-  [SMALL_STATE(8073)] = 169145,
-  [SMALL_STATE(8074)] = 169153,
-  [SMALL_STATE(8075)] = 169161,
-  [SMALL_STATE(8076)] = 169169,
-  [SMALL_STATE(8077)] = 169177,
-  [SMALL_STATE(8078)] = 169185,
-  [SMALL_STATE(8079)] = 169193,
-  [SMALL_STATE(8080)] = 169201,
-  [SMALL_STATE(8081)] = 169209,
-  [SMALL_STATE(8082)] = 169217,
-  [SMALL_STATE(8083)] = 169225,
-  [SMALL_STATE(8084)] = 169233,
-  [SMALL_STATE(8085)] = 169241,
-  [SMALL_STATE(8086)] = 169249,
-  [SMALL_STATE(8087)] = 169257,
-  [SMALL_STATE(8088)] = 169265,
-  [SMALL_STATE(8089)] = 169273,
-  [SMALL_STATE(8090)] = 169281,
-  [SMALL_STATE(8091)] = 169289,
-  [SMALL_STATE(8092)] = 169297,
-  [SMALL_STATE(8093)] = 169305,
-  [SMALL_STATE(8094)] = 169313,
-  [SMALL_STATE(8095)] = 169321,
-  [SMALL_STATE(8096)] = 169329,
-  [SMALL_STATE(8097)] = 169337,
-  [SMALL_STATE(8098)] = 169345,
-  [SMALL_STATE(8099)] = 169353,
-  [SMALL_STATE(8100)] = 169361,
-  [SMALL_STATE(8101)] = 169369,
-  [SMALL_STATE(8102)] = 169377,
-  [SMALL_STATE(8103)] = 169385,
-  [SMALL_STATE(8104)] = 169393,
-  [SMALL_STATE(8105)] = 169401,
-  [SMALL_STATE(8106)] = 169409,
-  [SMALL_STATE(8107)] = 169417,
-  [SMALL_STATE(8108)] = 169425,
-  [SMALL_STATE(8109)] = 169433,
-  [SMALL_STATE(8110)] = 169441,
-  [SMALL_STATE(8111)] = 169449,
-  [SMALL_STATE(8112)] = 169457,
-  [SMALL_STATE(8113)] = 169465,
-  [SMALL_STATE(8114)] = 169473,
-  [SMALL_STATE(8115)] = 169481,
-  [SMALL_STATE(8116)] = 169489,
-  [SMALL_STATE(8117)] = 169497,
-  [SMALL_STATE(8118)] = 169505,
-  [SMALL_STATE(8119)] = 169513,
-  [SMALL_STATE(8120)] = 169521,
-  [SMALL_STATE(8121)] = 169529,
-  [SMALL_STATE(8122)] = 169537,
-  [SMALL_STATE(8123)] = 169545,
-  [SMALL_STATE(8124)] = 169553,
-  [SMALL_STATE(8125)] = 169561,
-  [SMALL_STATE(8126)] = 169569,
-  [SMALL_STATE(8127)] = 169577,
-  [SMALL_STATE(8128)] = 169585,
-  [SMALL_STATE(8129)] = 169593,
-  [SMALL_STATE(8130)] = 169601,
-  [SMALL_STATE(8131)] = 169609,
-  [SMALL_STATE(8132)] = 169617,
-  [SMALL_STATE(8133)] = 169625,
-  [SMALL_STATE(8134)] = 169633,
-  [SMALL_STATE(8135)] = 169641,
-  [SMALL_STATE(8136)] = 169649,
-  [SMALL_STATE(8137)] = 169657,
-  [SMALL_STATE(8138)] = 169665,
-  [SMALL_STATE(8139)] = 169673,
-  [SMALL_STATE(8140)] = 169681,
-  [SMALL_STATE(8141)] = 169689,
-  [SMALL_STATE(8142)] = 169697,
-  [SMALL_STATE(8143)] = 169705,
-  [SMALL_STATE(8144)] = 169713,
-  [SMALL_STATE(8145)] = 169721,
-  [SMALL_STATE(8146)] = 169729,
-  [SMALL_STATE(8147)] = 169737,
-  [SMALL_STATE(8148)] = 169745,
-  [SMALL_STATE(8149)] = 169753,
-  [SMALL_STATE(8150)] = 169761,
-  [SMALL_STATE(8151)] = 169769,
-  [SMALL_STATE(8152)] = 169777,
-  [SMALL_STATE(8153)] = 169785,
-  [SMALL_STATE(8154)] = 169793,
-  [SMALL_STATE(8155)] = 169801,
-  [SMALL_STATE(8156)] = 169809,
-  [SMALL_STATE(8157)] = 169817,
-  [SMALL_STATE(8158)] = 169825,
-  [SMALL_STATE(8159)] = 169833,
-  [SMALL_STATE(8160)] = 169841,
-  [SMALL_STATE(8161)] = 169849,
-  [SMALL_STATE(8162)] = 169857,
-  [SMALL_STATE(8163)] = 169865,
-  [SMALL_STATE(8164)] = 169873,
-  [SMALL_STATE(8165)] = 169881,
-  [SMALL_STATE(8166)] = 169889,
-  [SMALL_STATE(8167)] = 169897,
-  [SMALL_STATE(8168)] = 169905,
-  [SMALL_STATE(8169)] = 169913,
-  [SMALL_STATE(8170)] = 169921,
-  [SMALL_STATE(8171)] = 169929,
-  [SMALL_STATE(8172)] = 169937,
-  [SMALL_STATE(8173)] = 169945,
-  [SMALL_STATE(8174)] = 169953,
-  [SMALL_STATE(8175)] = 169961,
-  [SMALL_STATE(8176)] = 169969,
-  [SMALL_STATE(8177)] = 169977,
-  [SMALL_STATE(8178)] = 169985,
-  [SMALL_STATE(8179)] = 169993,
-  [SMALL_STATE(8180)] = 170001,
-  [SMALL_STATE(8181)] = 170009,
-  [SMALL_STATE(8182)] = 170017,
-  [SMALL_STATE(8183)] = 170025,
-  [SMALL_STATE(8184)] = 170033,
-  [SMALL_STATE(8185)] = 170041,
-  [SMALL_STATE(8186)] = 170049,
-  [SMALL_STATE(8187)] = 170057,
-  [SMALL_STATE(8188)] = 170065,
-  [SMALL_STATE(8189)] = 170073,
-  [SMALL_STATE(8190)] = 170081,
-  [SMALL_STATE(8191)] = 170089,
-  [SMALL_STATE(8192)] = 170097,
-  [SMALL_STATE(8193)] = 170105,
-  [SMALL_STATE(8194)] = 170113,
-  [SMALL_STATE(8195)] = 170121,
-  [SMALL_STATE(8196)] = 170129,
-  [SMALL_STATE(8197)] = 170137,
-  [SMALL_STATE(8198)] = 170145,
-  [SMALL_STATE(8199)] = 170153,
-  [SMALL_STATE(8200)] = 170161,
-  [SMALL_STATE(8201)] = 170169,
-  [SMALL_STATE(8202)] = 170177,
-  [SMALL_STATE(8203)] = 170185,
-  [SMALL_STATE(8204)] = 170193,
-  [SMALL_STATE(8205)] = 170201,
-  [SMALL_STATE(8206)] = 170209,
-  [SMALL_STATE(8207)] = 170217,
-  [SMALL_STATE(8208)] = 170225,
-  [SMALL_STATE(8209)] = 170233,
-  [SMALL_STATE(8210)] = 170241,
-  [SMALL_STATE(8211)] = 170249,
-  [SMALL_STATE(8212)] = 170257,
-  [SMALL_STATE(8213)] = 170265,
-  [SMALL_STATE(8214)] = 170273,
-  [SMALL_STATE(8215)] = 170281,
-  [SMALL_STATE(8216)] = 170289,
-  [SMALL_STATE(8217)] = 170297,
-  [SMALL_STATE(8218)] = 170305,
-  [SMALL_STATE(8219)] = 170313,
-  [SMALL_STATE(8220)] = 170321,
-  [SMALL_STATE(8221)] = 170329,
-  [SMALL_STATE(8222)] = 170337,
-  [SMALL_STATE(8223)] = 170345,
-  [SMALL_STATE(8224)] = 170353,
-  [SMALL_STATE(8225)] = 170361,
-  [SMALL_STATE(8226)] = 170369,
-  [SMALL_STATE(8227)] = 170377,
-  [SMALL_STATE(8228)] = 170385,
-  [SMALL_STATE(8229)] = 170393,
-  [SMALL_STATE(8230)] = 170401,
-  [SMALL_STATE(8231)] = 170409,
-  [SMALL_STATE(8232)] = 170417,
-  [SMALL_STATE(8233)] = 170425,
-  [SMALL_STATE(8234)] = 170433,
-  [SMALL_STATE(8235)] = 170441,
-  [SMALL_STATE(8236)] = 170449,
-  [SMALL_STATE(8237)] = 170457,
-  [SMALL_STATE(8238)] = 170465,
-  [SMALL_STATE(8239)] = 170473,
-  [SMALL_STATE(8240)] = 170481,
-  [SMALL_STATE(8241)] = 170489,
-  [SMALL_STATE(8242)] = 170497,
-  [SMALL_STATE(8243)] = 170505,
-  [SMALL_STATE(8244)] = 170513,
-  [SMALL_STATE(8245)] = 170521,
-  [SMALL_STATE(8246)] = 170529,
-  [SMALL_STATE(8247)] = 170537,
-  [SMALL_STATE(8248)] = 170545,
-  [SMALL_STATE(8249)] = 170553,
-  [SMALL_STATE(8250)] = 170561,
-  [SMALL_STATE(8251)] = 170569,
-  [SMALL_STATE(8252)] = 170577,
-  [SMALL_STATE(8253)] = 170585,
-  [SMALL_STATE(8254)] = 170593,
-  [SMALL_STATE(8255)] = 170601,
-  [SMALL_STATE(8256)] = 170609,
-  [SMALL_STATE(8257)] = 170617,
-  [SMALL_STATE(8258)] = 170625,
-  [SMALL_STATE(8259)] = 170633,
-  [SMALL_STATE(8260)] = 170641,
-  [SMALL_STATE(8261)] = 170649,
-  [SMALL_STATE(8262)] = 170657,
-  [SMALL_STATE(8263)] = 170665,
-  [SMALL_STATE(8264)] = 170673,
-  [SMALL_STATE(8265)] = 170681,
-  [SMALL_STATE(8266)] = 170689,
-  [SMALL_STATE(8267)] = 170697,
-  [SMALL_STATE(8268)] = 170705,
-  [SMALL_STATE(8269)] = 170713,
-  [SMALL_STATE(8270)] = 170721,
-  [SMALL_STATE(8271)] = 170729,
-  [SMALL_STATE(8272)] = 170737,
-  [SMALL_STATE(8273)] = 170745,
-  [SMALL_STATE(8274)] = 170753,
-  [SMALL_STATE(8275)] = 170761,
-  [SMALL_STATE(8276)] = 170769,
-  [SMALL_STATE(8277)] = 170777,
-  [SMALL_STATE(8278)] = 170785,
-  [SMALL_STATE(8279)] = 170793,
-  [SMALL_STATE(8280)] = 170801,
-  [SMALL_STATE(8281)] = 170809,
-  [SMALL_STATE(8282)] = 170817,
-  [SMALL_STATE(8283)] = 170825,
-  [SMALL_STATE(8284)] = 170833,
-  [SMALL_STATE(8285)] = 170841,
-  [SMALL_STATE(8286)] = 170849,
-  [SMALL_STATE(8287)] = 170857,
-  [SMALL_STATE(8288)] = 170865,
-  [SMALL_STATE(8289)] = 170873,
-  [SMALL_STATE(8290)] = 170881,
-  [SMALL_STATE(8291)] = 170889,
-  [SMALL_STATE(8292)] = 170897,
-  [SMALL_STATE(8293)] = 170905,
-  [SMALL_STATE(8294)] = 170913,
-  [SMALL_STATE(8295)] = 170921,
-  [SMALL_STATE(8296)] = 170929,
-  [SMALL_STATE(8297)] = 170937,
-  [SMALL_STATE(8298)] = 170945,
-  [SMALL_STATE(8299)] = 170953,
-  [SMALL_STATE(8300)] = 170961,
-  [SMALL_STATE(8301)] = 170969,
-  [SMALL_STATE(8302)] = 170977,
-  [SMALL_STATE(8303)] = 170985,
-  [SMALL_STATE(8304)] = 170993,
-  [SMALL_STATE(8305)] = 171001,
-  [SMALL_STATE(8306)] = 171009,
-  [SMALL_STATE(8307)] = 171017,
-  [SMALL_STATE(8308)] = 171025,
-  [SMALL_STATE(8309)] = 171033,
-  [SMALL_STATE(8310)] = 171041,
-  [SMALL_STATE(8311)] = 171049,
-  [SMALL_STATE(8312)] = 171057,
-  [SMALL_STATE(8313)] = 171065,
-  [SMALL_STATE(8314)] = 171073,
-  [SMALL_STATE(8315)] = 171081,
-  [SMALL_STATE(8316)] = 171089,
-  [SMALL_STATE(8317)] = 171097,
-  [SMALL_STATE(8318)] = 171105,
-  [SMALL_STATE(8319)] = 171113,
-  [SMALL_STATE(8320)] = 171121,
-  [SMALL_STATE(8321)] = 171129,
-  [SMALL_STATE(8322)] = 171137,
-  [SMALL_STATE(8323)] = 171145,
-  [SMALL_STATE(8324)] = 171153,
-  [SMALL_STATE(8325)] = 171161,
-  [SMALL_STATE(8326)] = 171169,
-  [SMALL_STATE(8327)] = 171177,
-  [SMALL_STATE(8328)] = 171185,
-  [SMALL_STATE(8329)] = 171193,
-  [SMALL_STATE(8330)] = 171201,
-  [SMALL_STATE(8331)] = 171209,
-  [SMALL_STATE(8332)] = 171217,
-  [SMALL_STATE(8333)] = 171225,
-  [SMALL_STATE(8334)] = 171233,
-  [SMALL_STATE(8335)] = 171241,
-  [SMALL_STATE(8336)] = 171249,
-  [SMALL_STATE(8337)] = 171257,
-  [SMALL_STATE(8338)] = 171265,
-  [SMALL_STATE(8339)] = 171273,
-  [SMALL_STATE(8340)] = 171281,
-  [SMALL_STATE(8341)] = 171289,
-  [SMALL_STATE(8342)] = 171297,
-  [SMALL_STATE(8343)] = 171305,
-  [SMALL_STATE(8344)] = 171313,
-  [SMALL_STATE(8345)] = 171321,
-  [SMALL_STATE(8346)] = 171329,
-  [SMALL_STATE(8347)] = 171337,
-  [SMALL_STATE(8348)] = 171345,
-  [SMALL_STATE(8349)] = 171353,
-  [SMALL_STATE(8350)] = 171361,
-  [SMALL_STATE(8351)] = 171369,
-  [SMALL_STATE(8352)] = 171377,
-  [SMALL_STATE(8353)] = 171385,
-  [SMALL_STATE(8354)] = 171393,
-  [SMALL_STATE(8355)] = 171401,
-  [SMALL_STATE(8356)] = 171409,
-  [SMALL_STATE(8357)] = 171417,
-  [SMALL_STATE(8358)] = 171425,
-  [SMALL_STATE(8359)] = 171433,
-  [SMALL_STATE(8360)] = 171441,
-  [SMALL_STATE(8361)] = 171449,
-  [SMALL_STATE(8362)] = 171457,
-  [SMALL_STATE(8363)] = 171465,
-  [SMALL_STATE(8364)] = 171473,
-  [SMALL_STATE(8365)] = 171481,
-  [SMALL_STATE(8366)] = 171489,
-  [SMALL_STATE(8367)] = 171497,
-  [SMALL_STATE(8368)] = 171505,
-  [SMALL_STATE(8369)] = 171513,
-  [SMALL_STATE(8370)] = 171521,
-  [SMALL_STATE(8371)] = 171529,
-  [SMALL_STATE(8372)] = 171537,
-  [SMALL_STATE(8373)] = 171545,
-  [SMALL_STATE(8374)] = 171553,
-  [SMALL_STATE(8375)] = 171561,
-  [SMALL_STATE(8376)] = 171569,
-  [SMALL_STATE(8377)] = 171577,
-  [SMALL_STATE(8378)] = 171585,
-  [SMALL_STATE(8379)] = 171593,
-  [SMALL_STATE(8380)] = 171601,
-  [SMALL_STATE(8381)] = 171609,
-  [SMALL_STATE(8382)] = 171617,
-  [SMALL_STATE(8383)] = 171625,
-  [SMALL_STATE(8384)] = 171633,
-  [SMALL_STATE(8385)] = 171641,
-  [SMALL_STATE(8386)] = 171649,
-  [SMALL_STATE(8387)] = 171657,
-  [SMALL_STATE(8388)] = 171665,
-  [SMALL_STATE(8389)] = 171673,
-  [SMALL_STATE(8390)] = 171681,
-  [SMALL_STATE(8391)] = 171689,
-  [SMALL_STATE(8392)] = 171697,
-  [SMALL_STATE(8393)] = 171705,
-  [SMALL_STATE(8394)] = 171713,
-  [SMALL_STATE(8395)] = 171721,
-  [SMALL_STATE(8396)] = 171729,
-  [SMALL_STATE(8397)] = 171737,
-  [SMALL_STATE(8398)] = 171745,
-  [SMALL_STATE(8399)] = 171753,
-  [SMALL_STATE(8400)] = 171761,
-  [SMALL_STATE(8401)] = 171769,
-  [SMALL_STATE(8402)] = 171777,
-  [SMALL_STATE(8403)] = 171785,
-  [SMALL_STATE(8404)] = 171793,
-  [SMALL_STATE(8405)] = 171801,
-  [SMALL_STATE(8406)] = 171809,
-  [SMALL_STATE(8407)] = 171817,
-  [SMALL_STATE(8408)] = 171825,
-  [SMALL_STATE(8409)] = 171833,
-  [SMALL_STATE(8410)] = 171841,
-  [SMALL_STATE(8411)] = 171849,
-  [SMALL_STATE(8412)] = 171857,
-  [SMALL_STATE(8413)] = 171865,
-  [SMALL_STATE(8414)] = 171873,
-  [SMALL_STATE(8415)] = 171881,
-  [SMALL_STATE(8416)] = 171889,
-  [SMALL_STATE(8417)] = 171897,
-  [SMALL_STATE(8418)] = 171905,
-  [SMALL_STATE(8419)] = 171913,
-  [SMALL_STATE(8420)] = 171921,
-  [SMALL_STATE(8421)] = 171929,
-  [SMALL_STATE(8422)] = 171937,
-  [SMALL_STATE(8423)] = 171945,
-  [SMALL_STATE(8424)] = 171953,
-  [SMALL_STATE(8425)] = 171961,
-  [SMALL_STATE(8426)] = 171969,
-  [SMALL_STATE(8427)] = 171977,
-  [SMALL_STATE(8428)] = 171985,
-  [SMALL_STATE(8429)] = 171993,
-  [SMALL_STATE(8430)] = 172001,
-  [SMALL_STATE(8431)] = 172009,
-  [SMALL_STATE(8432)] = 172017,
-  [SMALL_STATE(8433)] = 172025,
-  [SMALL_STATE(8434)] = 172033,
-  [SMALL_STATE(8435)] = 172041,
-  [SMALL_STATE(8436)] = 172049,
-  [SMALL_STATE(8437)] = 172057,
-  [SMALL_STATE(8438)] = 172065,
-  [SMALL_STATE(8439)] = 172073,
-  [SMALL_STATE(8440)] = 172081,
-  [SMALL_STATE(8441)] = 172089,
-  [SMALL_STATE(8442)] = 172097,
-  [SMALL_STATE(8443)] = 172105,
-  [SMALL_STATE(8444)] = 172113,
-  [SMALL_STATE(8445)] = 172121,
-  [SMALL_STATE(8446)] = 172129,
-  [SMALL_STATE(8447)] = 172137,
-  [SMALL_STATE(8448)] = 172145,
-  [SMALL_STATE(8449)] = 172153,
-  [SMALL_STATE(8450)] = 172161,
-  [SMALL_STATE(8451)] = 172169,
-  [SMALL_STATE(8452)] = 172177,
-  [SMALL_STATE(8453)] = 172185,
-  [SMALL_STATE(8454)] = 172193,
-  [SMALL_STATE(8455)] = 172201,
-  [SMALL_STATE(8456)] = 172209,
-  [SMALL_STATE(8457)] = 172217,
-  [SMALL_STATE(8458)] = 172225,
-  [SMALL_STATE(8459)] = 172233,
-  [SMALL_STATE(8460)] = 172241,
-  [SMALL_STATE(8461)] = 172249,
-  [SMALL_STATE(8462)] = 172257,
-  [SMALL_STATE(8463)] = 172265,
-  [SMALL_STATE(8464)] = 172273,
-  [SMALL_STATE(8465)] = 172281,
-  [SMALL_STATE(8466)] = 172289,
-  [SMALL_STATE(8467)] = 172297,
-  [SMALL_STATE(8468)] = 172305,
-  [SMALL_STATE(8469)] = 172313,
-  [SMALL_STATE(8470)] = 172321,
-  [SMALL_STATE(8471)] = 172329,
-  [SMALL_STATE(8472)] = 172337,
-  [SMALL_STATE(8473)] = 172345,
-  [SMALL_STATE(8474)] = 172353,
-  [SMALL_STATE(8475)] = 172361,
-  [SMALL_STATE(8476)] = 172369,
-  [SMALL_STATE(8477)] = 172377,
-  [SMALL_STATE(8478)] = 172385,
-  [SMALL_STATE(8479)] = 172393,
-  [SMALL_STATE(8480)] = 172401,
-  [SMALL_STATE(8481)] = 172409,
-  [SMALL_STATE(8482)] = 172417,
-  [SMALL_STATE(8483)] = 172425,
-  [SMALL_STATE(8484)] = 172433,
-  [SMALL_STATE(8485)] = 172441,
-  [SMALL_STATE(8486)] = 172449,
-  [SMALL_STATE(8487)] = 172457,
-  [SMALL_STATE(8488)] = 172465,
-  [SMALL_STATE(8489)] = 172473,
-  [SMALL_STATE(8490)] = 172481,
-  [SMALL_STATE(8491)] = 172489,
-  [SMALL_STATE(8492)] = 172497,
-  [SMALL_STATE(8493)] = 172505,
-  [SMALL_STATE(8494)] = 172513,
-  [SMALL_STATE(8495)] = 172521,
-  [SMALL_STATE(8496)] = 172529,
-  [SMALL_STATE(8497)] = 172537,
-  [SMALL_STATE(8498)] = 172545,
-  [SMALL_STATE(8499)] = 172553,
-  [SMALL_STATE(8500)] = 172561,
-  [SMALL_STATE(8501)] = 172569,
-  [SMALL_STATE(8502)] = 172577,
-  [SMALL_STATE(8503)] = 172585,
-  [SMALL_STATE(8504)] = 172593,
-  [SMALL_STATE(8505)] = 172601,
-  [SMALL_STATE(8506)] = 172609,
-  [SMALL_STATE(8507)] = 172617,
-  [SMALL_STATE(8508)] = 172625,
-  [SMALL_STATE(8509)] = 172633,
-  [SMALL_STATE(8510)] = 172641,
-  [SMALL_STATE(8511)] = 172649,
-  [SMALL_STATE(8512)] = 172657,
-  [SMALL_STATE(8513)] = 172665,
-  [SMALL_STATE(8514)] = 172673,
-  [SMALL_STATE(8515)] = 172681,
-  [SMALL_STATE(8516)] = 172689,
-  [SMALL_STATE(8517)] = 172697,
-  [SMALL_STATE(8518)] = 172705,
-  [SMALL_STATE(8519)] = 172713,
-  [SMALL_STATE(8520)] = 172721,
-  [SMALL_STATE(8521)] = 172729,
-  [SMALL_STATE(8522)] = 172737,
-  [SMALL_STATE(8523)] = 172745,
-  [SMALL_STATE(8524)] = 172753,
-  [SMALL_STATE(8525)] = 172761,
-  [SMALL_STATE(8526)] = 172769,
-  [SMALL_STATE(8527)] = 172777,
-  [SMALL_STATE(8528)] = 172785,
-  [SMALL_STATE(8529)] = 172793,
-  [SMALL_STATE(8530)] = 172801,
-  [SMALL_STATE(8531)] = 172809,
-  [SMALL_STATE(8532)] = 172817,
-  [SMALL_STATE(8533)] = 172825,
-  [SMALL_STATE(8534)] = 172833,
-  [SMALL_STATE(8535)] = 172841,
-  [SMALL_STATE(8536)] = 172849,
-  [SMALL_STATE(8537)] = 172857,
-  [SMALL_STATE(8538)] = 172865,
-  [SMALL_STATE(8539)] = 172873,
-  [SMALL_STATE(8540)] = 172881,
-  [SMALL_STATE(8541)] = 172889,
-  [SMALL_STATE(8542)] = 172897,
-  [SMALL_STATE(8543)] = 172905,
-  [SMALL_STATE(8544)] = 172913,
-  [SMALL_STATE(8545)] = 172921,
-  [SMALL_STATE(8546)] = 172929,
-  [SMALL_STATE(8547)] = 172937,
-  [SMALL_STATE(8548)] = 172945,
-  [SMALL_STATE(8549)] = 172953,
-  [SMALL_STATE(8550)] = 172961,
-  [SMALL_STATE(8551)] = 172969,
-  [SMALL_STATE(8552)] = 172977,
-  [SMALL_STATE(8553)] = 172985,
-  [SMALL_STATE(8554)] = 172993,
-  [SMALL_STATE(8555)] = 173001,
-  [SMALL_STATE(8556)] = 173009,
-  [SMALL_STATE(8557)] = 173017,
-  [SMALL_STATE(8558)] = 173025,
-  [SMALL_STATE(8559)] = 173033,
-  [SMALL_STATE(8560)] = 173041,
-  [SMALL_STATE(8561)] = 173049,
-  [SMALL_STATE(8562)] = 173057,
-  [SMALL_STATE(8563)] = 173065,
-  [SMALL_STATE(8564)] = 173073,
-  [SMALL_STATE(8565)] = 173081,
-  [SMALL_STATE(8566)] = 173089,
-  [SMALL_STATE(8567)] = 173097,
-  [SMALL_STATE(8568)] = 173105,
-  [SMALL_STATE(8569)] = 173113,
-  [SMALL_STATE(8570)] = 173121,
-  [SMALL_STATE(8571)] = 173129,
-  [SMALL_STATE(8572)] = 173137,
-  [SMALL_STATE(8573)] = 173145,
-  [SMALL_STATE(8574)] = 173153,
-  [SMALL_STATE(8575)] = 173161,
-  [SMALL_STATE(8576)] = 173169,
-  [SMALL_STATE(8577)] = 173177,
-  [SMALL_STATE(8578)] = 173185,
-  [SMALL_STATE(8579)] = 173193,
-  [SMALL_STATE(8580)] = 173201,
-  [SMALL_STATE(8581)] = 173209,
-  [SMALL_STATE(8582)] = 173217,
-  [SMALL_STATE(8583)] = 173225,
-  [SMALL_STATE(8584)] = 173233,
-  [SMALL_STATE(8585)] = 173241,
-  [SMALL_STATE(8586)] = 173249,
-  [SMALL_STATE(8587)] = 173257,
-  [SMALL_STATE(8588)] = 173265,
-  [SMALL_STATE(8589)] = 173273,
-  [SMALL_STATE(8590)] = 173281,
-  [SMALL_STATE(8591)] = 173289,
-  [SMALL_STATE(8592)] = 173297,
-  [SMALL_STATE(8593)] = 173305,
-  [SMALL_STATE(8594)] = 173313,
-  [SMALL_STATE(8595)] = 173321,
-  [SMALL_STATE(8596)] = 173329,
-  [SMALL_STATE(8597)] = 173337,
-  [SMALL_STATE(8598)] = 173345,
-  [SMALL_STATE(8599)] = 173353,
-  [SMALL_STATE(8600)] = 173361,
-  [SMALL_STATE(8601)] = 173369,
-  [SMALL_STATE(8602)] = 173377,
-  [SMALL_STATE(8603)] = 173385,
-  [SMALL_STATE(8604)] = 173393,
-  [SMALL_STATE(8605)] = 173401,
-  [SMALL_STATE(8606)] = 173409,
-  [SMALL_STATE(8607)] = 173417,
-  [SMALL_STATE(8608)] = 173425,
-  [SMALL_STATE(8609)] = 173433,
-  [SMALL_STATE(8610)] = 173441,
-  [SMALL_STATE(8611)] = 173449,
-  [SMALL_STATE(8612)] = 173457,
-  [SMALL_STATE(8613)] = 173465,
-  [SMALL_STATE(8614)] = 173473,
-  [SMALL_STATE(8615)] = 173481,
-  [SMALL_STATE(8616)] = 173489,
-  [SMALL_STATE(8617)] = 173497,
-  [SMALL_STATE(8618)] = 173505,
-  [SMALL_STATE(8619)] = 173513,
-  [SMALL_STATE(8620)] = 173521,
-  [SMALL_STATE(8621)] = 173529,
-  [SMALL_STATE(8622)] = 173537,
-  [SMALL_STATE(8623)] = 173545,
-  [SMALL_STATE(8624)] = 173553,
-  [SMALL_STATE(8625)] = 173561,
-  [SMALL_STATE(8626)] = 173569,
-  [SMALL_STATE(8627)] = 173577,
-  [SMALL_STATE(8628)] = 173585,
-  [SMALL_STATE(8629)] = 173593,
-  [SMALL_STATE(8630)] = 173601,
-  [SMALL_STATE(8631)] = 173609,
-  [SMALL_STATE(8632)] = 173617,
-  [SMALL_STATE(8633)] = 173625,
-  [SMALL_STATE(8634)] = 173633,
-  [SMALL_STATE(8635)] = 173641,
-  [SMALL_STATE(8636)] = 173649,
-  [SMALL_STATE(8637)] = 173657,
-  [SMALL_STATE(8638)] = 173665,
-  [SMALL_STATE(8639)] = 173673,
-  [SMALL_STATE(8640)] = 173681,
-  [SMALL_STATE(8641)] = 173689,
-  [SMALL_STATE(8642)] = 173697,
-  [SMALL_STATE(8643)] = 173705,
-  [SMALL_STATE(8644)] = 173713,
-  [SMALL_STATE(8645)] = 173721,
-  [SMALL_STATE(8646)] = 173729,
-  [SMALL_STATE(8647)] = 173737,
-  [SMALL_STATE(8648)] = 173745,
-  [SMALL_STATE(8649)] = 173753,
-  [SMALL_STATE(8650)] = 173761,
-  [SMALL_STATE(8651)] = 173769,
-  [SMALL_STATE(8652)] = 173777,
-  [SMALL_STATE(8653)] = 173785,
-  [SMALL_STATE(8654)] = 173793,
-  [SMALL_STATE(8655)] = 173801,
-  [SMALL_STATE(8656)] = 173809,
-  [SMALL_STATE(8657)] = 173817,
-  [SMALL_STATE(8658)] = 173825,
-  [SMALL_STATE(8659)] = 173833,
-  [SMALL_STATE(8660)] = 173841,
-  [SMALL_STATE(8661)] = 173849,
-  [SMALL_STATE(8662)] = 173857,
-  [SMALL_STATE(8663)] = 173865,
-  [SMALL_STATE(8664)] = 173873,
-  [SMALL_STATE(8665)] = 173881,
-  [SMALL_STATE(8666)] = 173889,
-  [SMALL_STATE(8667)] = 173897,
-  [SMALL_STATE(8668)] = 173905,
-  [SMALL_STATE(8669)] = 173913,
-  [SMALL_STATE(8670)] = 173921,
-  [SMALL_STATE(8671)] = 173929,
-  [SMALL_STATE(8672)] = 173937,
-  [SMALL_STATE(8673)] = 173945,
-  [SMALL_STATE(8674)] = 173953,
-  [SMALL_STATE(8675)] = 173961,
-  [SMALL_STATE(8676)] = 173969,
-  [SMALL_STATE(8677)] = 173977,
-  [SMALL_STATE(8678)] = 173985,
-  [SMALL_STATE(8679)] = 173993,
-  [SMALL_STATE(8680)] = 174001,
-  [SMALL_STATE(8681)] = 174009,
-  [SMALL_STATE(8682)] = 174017,
-  [SMALL_STATE(8683)] = 174025,
-  [SMALL_STATE(8684)] = 174033,
-  [SMALL_STATE(8685)] = 174041,
+  [SMALL_STATE(7110)] = 159702,
+  [SMALL_STATE(7111)] = 159716,
+  [SMALL_STATE(7112)] = 159728,
+  [SMALL_STATE(7113)] = 159740,
+  [SMALL_STATE(7114)] = 159752,
+  [SMALL_STATE(7115)] = 159766,
+  [SMALL_STATE(7116)] = 159778,
+  [SMALL_STATE(7117)] = 159790,
+  [SMALL_STATE(7118)] = 159802,
+  [SMALL_STATE(7119)] = 159816,
+  [SMALL_STATE(7120)] = 159830,
+  [SMALL_STATE(7121)] = 159842,
+  [SMALL_STATE(7122)] = 159856,
+  [SMALL_STATE(7123)] = 159868,
+  [SMALL_STATE(7124)] = 159880,
+  [SMALL_STATE(7125)] = 159892,
+  [SMALL_STATE(7126)] = 159904,
+  [SMALL_STATE(7127)] = 159916,
+  [SMALL_STATE(7128)] = 159930,
+  [SMALL_STATE(7129)] = 159944,
+  [SMALL_STATE(7130)] = 159956,
+  [SMALL_STATE(7131)] = 159968,
+  [SMALL_STATE(7132)] = 159980,
+  [SMALL_STATE(7133)] = 159992,
+  [SMALL_STATE(7134)] = 160006,
+  [SMALL_STATE(7135)] = 160018,
+  [SMALL_STATE(7136)] = 160032,
+  [SMALL_STATE(7137)] = 160046,
+  [SMALL_STATE(7138)] = 160058,
+  [SMALL_STATE(7139)] = 160070,
+  [SMALL_STATE(7140)] = 160084,
+  [SMALL_STATE(7141)] = 160098,
+  [SMALL_STATE(7142)] = 160112,
+  [SMALL_STATE(7143)] = 160124,
+  [SMALL_STATE(7144)] = 160134,
+  [SMALL_STATE(7145)] = 160148,
+  [SMALL_STATE(7146)] = 160162,
+  [SMALL_STATE(7147)] = 160174,
+  [SMALL_STATE(7148)] = 160188,
+  [SMALL_STATE(7149)] = 160200,
+  [SMALL_STATE(7150)] = 160214,
+  [SMALL_STATE(7151)] = 160224,
+  [SMALL_STATE(7152)] = 160236,
+  [SMALL_STATE(7153)] = 160250,
+  [SMALL_STATE(7154)] = 160264,
+  [SMALL_STATE(7155)] = 160276,
+  [SMALL_STATE(7156)] = 160288,
+  [SMALL_STATE(7157)] = 160300,
+  [SMALL_STATE(7158)] = 160314,
+  [SMALL_STATE(7159)] = 160326,
+  [SMALL_STATE(7160)] = 160338,
+  [SMALL_STATE(7161)] = 160350,
+  [SMALL_STATE(7162)] = 160364,
+  [SMALL_STATE(7163)] = 160376,
+  [SMALL_STATE(7164)] = 160388,
+  [SMALL_STATE(7165)] = 160402,
+  [SMALL_STATE(7166)] = 160414,
+  [SMALL_STATE(7167)] = 160428,
+  [SMALL_STATE(7168)] = 160440,
+  [SMALL_STATE(7169)] = 160454,
+  [SMALL_STATE(7170)] = 160468,
+  [SMALL_STATE(7171)] = 160480,
+  [SMALL_STATE(7172)] = 160494,
+  [SMALL_STATE(7173)] = 160508,
+  [SMALL_STATE(7174)] = 160520,
+  [SMALL_STATE(7175)] = 160532,
+  [SMALL_STATE(7176)] = 160544,
+  [SMALL_STATE(7177)] = 160556,
+  [SMALL_STATE(7178)] = 160568,
+  [SMALL_STATE(7179)] = 160582,
+  [SMALL_STATE(7180)] = 160596,
+  [SMALL_STATE(7181)] = 160608,
+  [SMALL_STATE(7182)] = 160620,
+  [SMALL_STATE(7183)] = 160632,
+  [SMALL_STATE(7184)] = 160644,
+  [SMALL_STATE(7185)] = 160656,
+  [SMALL_STATE(7186)] = 160670,
+  [SMALL_STATE(7187)] = 160682,
+  [SMALL_STATE(7188)] = 160696,
+  [SMALL_STATE(7189)] = 160708,
+  [SMALL_STATE(7190)] = 160720,
+  [SMALL_STATE(7191)] = 160734,
+  [SMALL_STATE(7192)] = 160748,
+  [SMALL_STATE(7193)] = 160762,
+  [SMALL_STATE(7194)] = 160774,
+  [SMALL_STATE(7195)] = 160786,
+  [SMALL_STATE(7196)] = 160798,
+  [SMALL_STATE(7197)] = 160810,
+  [SMALL_STATE(7198)] = 160822,
+  [SMALL_STATE(7199)] = 160834,
+  [SMALL_STATE(7200)] = 160848,
+  [SMALL_STATE(7201)] = 160860,
+  [SMALL_STATE(7202)] = 160874,
+  [SMALL_STATE(7203)] = 160886,
+  [SMALL_STATE(7204)] = 160898,
+  [SMALL_STATE(7205)] = 160910,
+  [SMALL_STATE(7206)] = 160922,
+  [SMALL_STATE(7207)] = 160934,
+  [SMALL_STATE(7208)] = 160946,
+  [SMALL_STATE(7209)] = 160958,
+  [SMALL_STATE(7210)] = 160972,
+  [SMALL_STATE(7211)] = 160986,
+  [SMALL_STATE(7212)] = 161000,
+  [SMALL_STATE(7213)] = 161014,
+  [SMALL_STATE(7214)] = 161026,
+  [SMALL_STATE(7215)] = 161038,
+  [SMALL_STATE(7216)] = 161052,
+  [SMALL_STATE(7217)] = 161066,
+  [SMALL_STATE(7218)] = 161078,
+  [SMALL_STATE(7219)] = 161090,
+  [SMALL_STATE(7220)] = 161100,
+  [SMALL_STATE(7221)] = 161110,
+  [SMALL_STATE(7222)] = 161122,
+  [SMALL_STATE(7223)] = 161136,
+  [SMALL_STATE(7224)] = 161148,
+  [SMALL_STATE(7225)] = 161162,
+  [SMALL_STATE(7226)] = 161176,
+  [SMALL_STATE(7227)] = 161188,
+  [SMALL_STATE(7228)] = 161200,
+  [SMALL_STATE(7229)] = 161214,
+  [SMALL_STATE(7230)] = 161228,
+  [SMALL_STATE(7231)] = 161240,
+  [SMALL_STATE(7232)] = 161252,
+  [SMALL_STATE(7233)] = 161266,
+  [SMALL_STATE(7234)] = 161278,
+  [SMALL_STATE(7235)] = 161290,
+  [SMALL_STATE(7236)] = 161304,
+  [SMALL_STATE(7237)] = 161318,
+  [SMALL_STATE(7238)] = 161330,
+  [SMALL_STATE(7239)] = 161342,
+  [SMALL_STATE(7240)] = 161356,
+  [SMALL_STATE(7241)] = 161368,
+  [SMALL_STATE(7242)] = 161380,
+  [SMALL_STATE(7243)] = 161394,
+  [SMALL_STATE(7244)] = 161408,
+  [SMALL_STATE(7245)] = 161420,
+  [SMALL_STATE(7246)] = 161432,
+  [SMALL_STATE(7247)] = 161444,
+  [SMALL_STATE(7248)] = 161458,
+  [SMALL_STATE(7249)] = 161470,
+  [SMALL_STATE(7250)] = 161484,
+  [SMALL_STATE(7251)] = 161496,
+  [SMALL_STATE(7252)] = 161510,
+  [SMALL_STATE(7253)] = 161524,
+  [SMALL_STATE(7254)] = 161538,
+  [SMALL_STATE(7255)] = 161552,
+  [SMALL_STATE(7256)] = 161564,
+  [SMALL_STATE(7257)] = 161578,
+  [SMALL_STATE(7258)] = 161592,
+  [SMALL_STATE(7259)] = 161604,
+  [SMALL_STATE(7260)] = 161616,
+  [SMALL_STATE(7261)] = 161630,
+  [SMALL_STATE(7262)] = 161644,
+  [SMALL_STATE(7263)] = 161658,
+  [SMALL_STATE(7264)] = 161670,
+  [SMALL_STATE(7265)] = 161684,
+  [SMALL_STATE(7266)] = 161698,
+  [SMALL_STATE(7267)] = 161712,
+  [SMALL_STATE(7268)] = 161724,
+  [SMALL_STATE(7269)] = 161738,
+  [SMALL_STATE(7270)] = 161750,
+  [SMALL_STATE(7271)] = 161764,
+  [SMALL_STATE(7272)] = 161776,
+  [SMALL_STATE(7273)] = 161790,
+  [SMALL_STATE(7274)] = 161800,
+  [SMALL_STATE(7275)] = 161814,
+  [SMALL_STATE(7276)] = 161826,
+  [SMALL_STATE(7277)] = 161838,
+  [SMALL_STATE(7278)] = 161852,
+  [SMALL_STATE(7279)] = 161864,
+  [SMALL_STATE(7280)] = 161878,
+  [SMALL_STATE(7281)] = 161892,
+  [SMALL_STATE(7282)] = 161906,
+  [SMALL_STATE(7283)] = 161920,
+  [SMALL_STATE(7284)] = 161932,
+  [SMALL_STATE(7285)] = 161944,
+  [SMALL_STATE(7286)] = 161958,
+  [SMALL_STATE(7287)] = 161972,
+  [SMALL_STATE(7288)] = 161984,
+  [SMALL_STATE(7289)] = 161998,
+  [SMALL_STATE(7290)] = 162008,
+  [SMALL_STATE(7291)] = 162018,
+  [SMALL_STATE(7292)] = 162032,
+  [SMALL_STATE(7293)] = 162046,
+  [SMALL_STATE(7294)] = 162058,
+  [SMALL_STATE(7295)] = 162070,
+  [SMALL_STATE(7296)] = 162082,
+  [SMALL_STATE(7297)] = 162094,
+  [SMALL_STATE(7298)] = 162108,
+  [SMALL_STATE(7299)] = 162122,
+  [SMALL_STATE(7300)] = 162136,
+  [SMALL_STATE(7301)] = 162146,
+  [SMALL_STATE(7302)] = 162158,
+  [SMALL_STATE(7303)] = 162168,
+  [SMALL_STATE(7304)] = 162182,
+  [SMALL_STATE(7305)] = 162194,
+  [SMALL_STATE(7306)] = 162206,
+  [SMALL_STATE(7307)] = 162218,
+  [SMALL_STATE(7308)] = 162232,
+  [SMALL_STATE(7309)] = 162244,
+  [SMALL_STATE(7310)] = 162256,
+  [SMALL_STATE(7311)] = 162268,
+  [SMALL_STATE(7312)] = 162278,
+  [SMALL_STATE(7313)] = 162288,
+  [SMALL_STATE(7314)] = 162300,
+  [SMALL_STATE(7315)] = 162312,
+  [SMALL_STATE(7316)] = 162326,
+  [SMALL_STATE(7317)] = 162337,
+  [SMALL_STATE(7318)] = 162346,
+  [SMALL_STATE(7319)] = 162357,
+  [SMALL_STATE(7320)] = 162368,
+  [SMALL_STATE(7321)] = 162379,
+  [SMALL_STATE(7322)] = 162390,
+  [SMALL_STATE(7323)] = 162401,
+  [SMALL_STATE(7324)] = 162410,
+  [SMALL_STATE(7325)] = 162419,
+  [SMALL_STATE(7326)] = 162428,
+  [SMALL_STATE(7327)] = 162437,
+  [SMALL_STATE(7328)] = 162446,
+  [SMALL_STATE(7329)] = 162457,
+  [SMALL_STATE(7330)] = 162466,
+  [SMALL_STATE(7331)] = 162477,
+  [SMALL_STATE(7332)] = 162486,
+  [SMALL_STATE(7333)] = 162495,
+  [SMALL_STATE(7334)] = 162506,
+  [SMALL_STATE(7335)] = 162517,
+  [SMALL_STATE(7336)] = 162528,
+  [SMALL_STATE(7337)] = 162539,
+  [SMALL_STATE(7338)] = 162550,
+  [SMALL_STATE(7339)] = 162561,
+  [SMALL_STATE(7340)] = 162570,
+  [SMALL_STATE(7341)] = 162579,
+  [SMALL_STATE(7342)] = 162588,
+  [SMALL_STATE(7343)] = 162597,
+  [SMALL_STATE(7344)] = 162606,
+  [SMALL_STATE(7345)] = 162615,
+  [SMALL_STATE(7346)] = 162624,
+  [SMALL_STATE(7347)] = 162635,
+  [SMALL_STATE(7348)] = 162644,
+  [SMALL_STATE(7349)] = 162655,
+  [SMALL_STATE(7350)] = 162664,
+  [SMALL_STATE(7351)] = 162675,
+  [SMALL_STATE(7352)] = 162684,
+  [SMALL_STATE(7353)] = 162695,
+  [SMALL_STATE(7354)] = 162704,
+  [SMALL_STATE(7355)] = 162713,
+  [SMALL_STATE(7356)] = 162722,
+  [SMALL_STATE(7357)] = 162731,
+  [SMALL_STATE(7358)] = 162742,
+  [SMALL_STATE(7359)] = 162751,
+  [SMALL_STATE(7360)] = 162760,
+  [SMALL_STATE(7361)] = 162769,
+  [SMALL_STATE(7362)] = 162778,
+  [SMALL_STATE(7363)] = 162787,
+  [SMALL_STATE(7364)] = 162796,
+  [SMALL_STATE(7365)] = 162807,
+  [SMALL_STATE(7366)] = 162816,
+  [SMALL_STATE(7367)] = 162827,
+  [SMALL_STATE(7368)] = 162836,
+  [SMALL_STATE(7369)] = 162845,
+  [SMALL_STATE(7370)] = 162854,
+  [SMALL_STATE(7371)] = 162865,
+  [SMALL_STATE(7372)] = 162874,
+  [SMALL_STATE(7373)] = 162883,
+  [SMALL_STATE(7374)] = 162892,
+  [SMALL_STATE(7375)] = 162901,
+  [SMALL_STATE(7376)] = 162910,
+  [SMALL_STATE(7377)] = 162919,
+  [SMALL_STATE(7378)] = 162928,
+  [SMALL_STATE(7379)] = 162939,
+  [SMALL_STATE(7380)] = 162948,
+  [SMALL_STATE(7381)] = 162957,
+  [SMALL_STATE(7382)] = 162966,
+  [SMALL_STATE(7383)] = 162975,
+  [SMALL_STATE(7384)] = 162984,
+  [SMALL_STATE(7385)] = 162993,
+  [SMALL_STATE(7386)] = 163002,
+  [SMALL_STATE(7387)] = 163013,
+  [SMALL_STATE(7388)] = 163022,
+  [SMALL_STATE(7389)] = 163033,
+  [SMALL_STATE(7390)] = 163044,
+  [SMALL_STATE(7391)] = 163055,
+  [SMALL_STATE(7392)] = 163064,
+  [SMALL_STATE(7393)] = 163073,
+  [SMALL_STATE(7394)] = 163082,
+  [SMALL_STATE(7395)] = 163091,
+  [SMALL_STATE(7396)] = 163102,
+  [SMALL_STATE(7397)] = 163113,
+  [SMALL_STATE(7398)] = 163122,
+  [SMALL_STATE(7399)] = 163133,
+  [SMALL_STATE(7400)] = 163142,
+  [SMALL_STATE(7401)] = 163151,
+  [SMALL_STATE(7402)] = 163162,
+  [SMALL_STATE(7403)] = 163173,
+  [SMALL_STATE(7404)] = 163182,
+  [SMALL_STATE(7405)] = 163193,
+  [SMALL_STATE(7406)] = 163202,
+  [SMALL_STATE(7407)] = 163211,
+  [SMALL_STATE(7408)] = 163220,
+  [SMALL_STATE(7409)] = 163229,
+  [SMALL_STATE(7410)] = 163238,
+  [SMALL_STATE(7411)] = 163247,
+  [SMALL_STATE(7412)] = 163256,
+  [SMALL_STATE(7413)] = 163265,
+  [SMALL_STATE(7414)] = 163276,
+  [SMALL_STATE(7415)] = 163285,
+  [SMALL_STATE(7416)] = 163294,
+  [SMALL_STATE(7417)] = 163305,
+  [SMALL_STATE(7418)] = 163316,
+  [SMALL_STATE(7419)] = 163327,
+  [SMALL_STATE(7420)] = 163336,
+  [SMALL_STATE(7421)] = 163345,
+  [SMALL_STATE(7422)] = 163356,
+  [SMALL_STATE(7423)] = 163365,
+  [SMALL_STATE(7424)] = 163376,
+  [SMALL_STATE(7425)] = 163385,
+  [SMALL_STATE(7426)] = 163394,
+  [SMALL_STATE(7427)] = 163405,
+  [SMALL_STATE(7428)] = 163416,
+  [SMALL_STATE(7429)] = 163427,
+  [SMALL_STATE(7430)] = 163436,
+  [SMALL_STATE(7431)] = 163445,
+  [SMALL_STATE(7432)] = 163454,
+  [SMALL_STATE(7433)] = 163463,
+  [SMALL_STATE(7434)] = 163472,
+  [SMALL_STATE(7435)] = 163481,
+  [SMALL_STATE(7436)] = 163490,
+  [SMALL_STATE(7437)] = 163499,
+  [SMALL_STATE(7438)] = 163508,
+  [SMALL_STATE(7439)] = 163517,
+  [SMALL_STATE(7440)] = 163526,
+  [SMALL_STATE(7441)] = 163535,
+  [SMALL_STATE(7442)] = 163544,
+  [SMALL_STATE(7443)] = 163553,
+  [SMALL_STATE(7444)] = 163562,
+  [SMALL_STATE(7445)] = 163571,
+  [SMALL_STATE(7446)] = 163580,
+  [SMALL_STATE(7447)] = 163589,
+  [SMALL_STATE(7448)] = 163598,
+  [SMALL_STATE(7449)] = 163607,
+  [SMALL_STATE(7450)] = 163618,
+  [SMALL_STATE(7451)] = 163627,
+  [SMALL_STATE(7452)] = 163636,
+  [SMALL_STATE(7453)] = 163647,
+  [SMALL_STATE(7454)] = 163658,
+  [SMALL_STATE(7455)] = 163667,
+  [SMALL_STATE(7456)] = 163676,
+  [SMALL_STATE(7457)] = 163687,
+  [SMALL_STATE(7458)] = 163696,
+  [SMALL_STATE(7459)] = 163705,
+  [SMALL_STATE(7460)] = 163714,
+  [SMALL_STATE(7461)] = 163723,
+  [SMALL_STATE(7462)] = 163732,
+  [SMALL_STATE(7463)] = 163741,
+  [SMALL_STATE(7464)] = 163752,
+  [SMALL_STATE(7465)] = 163763,
+  [SMALL_STATE(7466)] = 163772,
+  [SMALL_STATE(7467)] = 163783,
+  [SMALL_STATE(7468)] = 163794,
+  [SMALL_STATE(7469)] = 163805,
+  [SMALL_STATE(7470)] = 163814,
+  [SMALL_STATE(7471)] = 163823,
+  [SMALL_STATE(7472)] = 163832,
+  [SMALL_STATE(7473)] = 163841,
+  [SMALL_STATE(7474)] = 163850,
+  [SMALL_STATE(7475)] = 163859,
+  [SMALL_STATE(7476)] = 163868,
+  [SMALL_STATE(7477)] = 163877,
+  [SMALL_STATE(7478)] = 163886,
+  [SMALL_STATE(7479)] = 163895,
+  [SMALL_STATE(7480)] = 163904,
+  [SMALL_STATE(7481)] = 163913,
+  [SMALL_STATE(7482)] = 163924,
+  [SMALL_STATE(7483)] = 163933,
+  [SMALL_STATE(7484)] = 163944,
+  [SMALL_STATE(7485)] = 163953,
+  [SMALL_STATE(7486)] = 163962,
+  [SMALL_STATE(7487)] = 163973,
+  [SMALL_STATE(7488)] = 163982,
+  [SMALL_STATE(7489)] = 163991,
+  [SMALL_STATE(7490)] = 164000,
+  [SMALL_STATE(7491)] = 164009,
+  [SMALL_STATE(7492)] = 164018,
+  [SMALL_STATE(7493)] = 164029,
+  [SMALL_STATE(7494)] = 164040,
+  [SMALL_STATE(7495)] = 164049,
+  [SMALL_STATE(7496)] = 164058,
+  [SMALL_STATE(7497)] = 164069,
+  [SMALL_STATE(7498)] = 164080,
+  [SMALL_STATE(7499)] = 164089,
+  [SMALL_STATE(7500)] = 164098,
+  [SMALL_STATE(7501)] = 164107,
+  [SMALL_STATE(7502)] = 164116,
+  [SMALL_STATE(7503)] = 164127,
+  [SMALL_STATE(7504)] = 164136,
+  [SMALL_STATE(7505)] = 164145,
+  [SMALL_STATE(7506)] = 164156,
+  [SMALL_STATE(7507)] = 164167,
+  [SMALL_STATE(7508)] = 164176,
+  [SMALL_STATE(7509)] = 164187,
+  [SMALL_STATE(7510)] = 164196,
+  [SMALL_STATE(7511)] = 164207,
+  [SMALL_STATE(7512)] = 164216,
+  [SMALL_STATE(7513)] = 164227,
+  [SMALL_STATE(7514)] = 164236,
+  [SMALL_STATE(7515)] = 164247,
+  [SMALL_STATE(7516)] = 164258,
+  [SMALL_STATE(7517)] = 164269,
+  [SMALL_STATE(7518)] = 164278,
+  [SMALL_STATE(7519)] = 164287,
+  [SMALL_STATE(7520)] = 164296,
+  [SMALL_STATE(7521)] = 164305,
+  [SMALL_STATE(7522)] = 164314,
+  [SMALL_STATE(7523)] = 164323,
+  [SMALL_STATE(7524)] = 164332,
+  [SMALL_STATE(7525)] = 164343,
+  [SMALL_STATE(7526)] = 164352,
+  [SMALL_STATE(7527)] = 164363,
+  [SMALL_STATE(7528)] = 164374,
+  [SMALL_STATE(7529)] = 164385,
+  [SMALL_STATE(7530)] = 164394,
+  [SMALL_STATE(7531)] = 164405,
+  [SMALL_STATE(7532)] = 164416,
+  [SMALL_STATE(7533)] = 164427,
+  [SMALL_STATE(7534)] = 164436,
+  [SMALL_STATE(7535)] = 164447,
+  [SMALL_STATE(7536)] = 164458,
+  [SMALL_STATE(7537)] = 164467,
+  [SMALL_STATE(7538)] = 164476,
+  [SMALL_STATE(7539)] = 164487,
+  [SMALL_STATE(7540)] = 164496,
+  [SMALL_STATE(7541)] = 164507,
+  [SMALL_STATE(7542)] = 164518,
+  [SMALL_STATE(7543)] = 164527,
+  [SMALL_STATE(7544)] = 164538,
+  [SMALL_STATE(7545)] = 164547,
+  [SMALL_STATE(7546)] = 164556,
+  [SMALL_STATE(7547)] = 164565,
+  [SMALL_STATE(7548)] = 164576,
+  [SMALL_STATE(7549)] = 164587,
+  [SMALL_STATE(7550)] = 164598,
+  [SMALL_STATE(7551)] = 164609,
+  [SMALL_STATE(7552)] = 164618,
+  [SMALL_STATE(7553)] = 164629,
+  [SMALL_STATE(7554)] = 164640,
+  [SMALL_STATE(7555)] = 164651,
+  [SMALL_STATE(7556)] = 164662,
+  [SMALL_STATE(7557)] = 164673,
+  [SMALL_STATE(7558)] = 164684,
+  [SMALL_STATE(7559)] = 164693,
+  [SMALL_STATE(7560)] = 164704,
+  [SMALL_STATE(7561)] = 164715,
+  [SMALL_STATE(7562)] = 164726,
+  [SMALL_STATE(7563)] = 164735,
+  [SMALL_STATE(7564)] = 164744,
+  [SMALL_STATE(7565)] = 164755,
+  [SMALL_STATE(7566)] = 164764,
+  [SMALL_STATE(7567)] = 164773,
+  [SMALL_STATE(7568)] = 164784,
+  [SMALL_STATE(7569)] = 164793,
+  [SMALL_STATE(7570)] = 164804,
+  [SMALL_STATE(7571)] = 164815,
+  [SMALL_STATE(7572)] = 164826,
+  [SMALL_STATE(7573)] = 164837,
+  [SMALL_STATE(7574)] = 164848,
+  [SMALL_STATE(7575)] = 164857,
+  [SMALL_STATE(7576)] = 164866,
+  [SMALL_STATE(7577)] = 164877,
+  [SMALL_STATE(7578)] = 164888,
+  [SMALL_STATE(7579)] = 164899,
+  [SMALL_STATE(7580)] = 164910,
+  [SMALL_STATE(7581)] = 164919,
+  [SMALL_STATE(7582)] = 164930,
+  [SMALL_STATE(7583)] = 164941,
+  [SMALL_STATE(7584)] = 164952,
+  [SMALL_STATE(7585)] = 164961,
+  [SMALL_STATE(7586)] = 164972,
+  [SMALL_STATE(7587)] = 164983,
+  [SMALL_STATE(7588)] = 164994,
+  [SMALL_STATE(7589)] = 165003,
+  [SMALL_STATE(7590)] = 165012,
+  [SMALL_STATE(7591)] = 165023,
+  [SMALL_STATE(7592)] = 165034,
+  [SMALL_STATE(7593)] = 165045,
+  [SMALL_STATE(7594)] = 165056,
+  [SMALL_STATE(7595)] = 165067,
+  [SMALL_STATE(7596)] = 165078,
+  [SMALL_STATE(7597)] = 165087,
+  [SMALL_STATE(7598)] = 165096,
+  [SMALL_STATE(7599)] = 165107,
+  [SMALL_STATE(7600)] = 165118,
+  [SMALL_STATE(7601)] = 165127,
+  [SMALL_STATE(7602)] = 165136,
+  [SMALL_STATE(7603)] = 165147,
+  [SMALL_STATE(7604)] = 165158,
+  [SMALL_STATE(7605)] = 165169,
+  [SMALL_STATE(7606)] = 165178,
+  [SMALL_STATE(7607)] = 165189,
+  [SMALL_STATE(7608)] = 165198,
+  [SMALL_STATE(7609)] = 165209,
+  [SMALL_STATE(7610)] = 165220,
+  [SMALL_STATE(7611)] = 165231,
+  [SMALL_STATE(7612)] = 165242,
+  [SMALL_STATE(7613)] = 165253,
+  [SMALL_STATE(7614)] = 165264,
+  [SMALL_STATE(7615)] = 165275,
+  [SMALL_STATE(7616)] = 165284,
+  [SMALL_STATE(7617)] = 165293,
+  [SMALL_STATE(7618)] = 165304,
+  [SMALL_STATE(7619)] = 165313,
+  [SMALL_STATE(7620)] = 165322,
+  [SMALL_STATE(7621)] = 165333,
+  [SMALL_STATE(7622)] = 165344,
+  [SMALL_STATE(7623)] = 165355,
+  [SMALL_STATE(7624)] = 165366,
+  [SMALL_STATE(7625)] = 165377,
+  [SMALL_STATE(7626)] = 165386,
+  [SMALL_STATE(7627)] = 165397,
+  [SMALL_STATE(7628)] = 165408,
+  [SMALL_STATE(7629)] = 165419,
+  [SMALL_STATE(7630)] = 165428,
+  [SMALL_STATE(7631)] = 165437,
+  [SMALL_STATE(7632)] = 165446,
+  [SMALL_STATE(7633)] = 165457,
+  [SMALL_STATE(7634)] = 165468,
+  [SMALL_STATE(7635)] = 165479,
+  [SMALL_STATE(7636)] = 165490,
+  [SMALL_STATE(7637)] = 165499,
+  [SMALL_STATE(7638)] = 165510,
+  [SMALL_STATE(7639)] = 165521,
+  [SMALL_STATE(7640)] = 165530,
+  [SMALL_STATE(7641)] = 165539,
+  [SMALL_STATE(7642)] = 165550,
+  [SMALL_STATE(7643)] = 165561,
+  [SMALL_STATE(7644)] = 165570,
+  [SMALL_STATE(7645)] = 165579,
+  [SMALL_STATE(7646)] = 165590,
+  [SMALL_STATE(7647)] = 165599,
+  [SMALL_STATE(7648)] = 165608,
+  [SMALL_STATE(7649)] = 165619,
+  [SMALL_STATE(7650)] = 165628,
+  [SMALL_STATE(7651)] = 165639,
+  [SMALL_STATE(7652)] = 165648,
+  [SMALL_STATE(7653)] = 165659,
+  [SMALL_STATE(7654)] = 165668,
+  [SMALL_STATE(7655)] = 165677,
+  [SMALL_STATE(7656)] = 165688,
+  [SMALL_STATE(7657)] = 165699,
+  [SMALL_STATE(7658)] = 165710,
+  [SMALL_STATE(7659)] = 165721,
+  [SMALL_STATE(7660)] = 165730,
+  [SMALL_STATE(7661)] = 165739,
+  [SMALL_STATE(7662)] = 165748,
+  [SMALL_STATE(7663)] = 165759,
+  [SMALL_STATE(7664)] = 165768,
+  [SMALL_STATE(7665)] = 165779,
+  [SMALL_STATE(7666)] = 165788,
+  [SMALL_STATE(7667)] = 165797,
+  [SMALL_STATE(7668)] = 165808,
+  [SMALL_STATE(7669)] = 165817,
+  [SMALL_STATE(7670)] = 165826,
+  [SMALL_STATE(7671)] = 165837,
+  [SMALL_STATE(7672)] = 165846,
+  [SMALL_STATE(7673)] = 165855,
+  [SMALL_STATE(7674)] = 165864,
+  [SMALL_STATE(7675)] = 165873,
+  [SMALL_STATE(7676)] = 165884,
+  [SMALL_STATE(7677)] = 165893,
+  [SMALL_STATE(7678)] = 165904,
+  [SMALL_STATE(7679)] = 165915,
+  [SMALL_STATE(7680)] = 165926,
+  [SMALL_STATE(7681)] = 165937,
+  [SMALL_STATE(7682)] = 165946,
+  [SMALL_STATE(7683)] = 165955,
+  [SMALL_STATE(7684)] = 165964,
+  [SMALL_STATE(7685)] = 165975,
+  [SMALL_STATE(7686)] = 165984,
+  [SMALL_STATE(7687)] = 165993,
+  [SMALL_STATE(7688)] = 166004,
+  [SMALL_STATE(7689)] = 166013,
+  [SMALL_STATE(7690)] = 166022,
+  [SMALL_STATE(7691)] = 166033,
+  [SMALL_STATE(7692)] = 166042,
+  [SMALL_STATE(7693)] = 166053,
+  [SMALL_STATE(7694)] = 166062,
+  [SMALL_STATE(7695)] = 166071,
+  [SMALL_STATE(7696)] = 166080,
+  [SMALL_STATE(7697)] = 166089,
+  [SMALL_STATE(7698)] = 166098,
+  [SMALL_STATE(7699)] = 166109,
+  [SMALL_STATE(7700)] = 166118,
+  [SMALL_STATE(7701)] = 166127,
+  [SMALL_STATE(7702)] = 166138,
+  [SMALL_STATE(7703)] = 166149,
+  [SMALL_STATE(7704)] = 166158,
+  [SMALL_STATE(7705)] = 166167,
+  [SMALL_STATE(7706)] = 166175,
+  [SMALL_STATE(7707)] = 166183,
+  [SMALL_STATE(7708)] = 166191,
+  [SMALL_STATE(7709)] = 166199,
+  [SMALL_STATE(7710)] = 166207,
+  [SMALL_STATE(7711)] = 166215,
+  [SMALL_STATE(7712)] = 166223,
+  [SMALL_STATE(7713)] = 166231,
+  [SMALL_STATE(7714)] = 166239,
+  [SMALL_STATE(7715)] = 166247,
+  [SMALL_STATE(7716)] = 166255,
+  [SMALL_STATE(7717)] = 166263,
+  [SMALL_STATE(7718)] = 166271,
+  [SMALL_STATE(7719)] = 166279,
+  [SMALL_STATE(7720)] = 166287,
+  [SMALL_STATE(7721)] = 166295,
+  [SMALL_STATE(7722)] = 166303,
+  [SMALL_STATE(7723)] = 166311,
+  [SMALL_STATE(7724)] = 166319,
+  [SMALL_STATE(7725)] = 166327,
+  [SMALL_STATE(7726)] = 166335,
+  [SMALL_STATE(7727)] = 166343,
+  [SMALL_STATE(7728)] = 166351,
+  [SMALL_STATE(7729)] = 166359,
+  [SMALL_STATE(7730)] = 166367,
+  [SMALL_STATE(7731)] = 166375,
+  [SMALL_STATE(7732)] = 166383,
+  [SMALL_STATE(7733)] = 166391,
+  [SMALL_STATE(7734)] = 166399,
+  [SMALL_STATE(7735)] = 166407,
+  [SMALL_STATE(7736)] = 166415,
+  [SMALL_STATE(7737)] = 166423,
+  [SMALL_STATE(7738)] = 166431,
+  [SMALL_STATE(7739)] = 166439,
+  [SMALL_STATE(7740)] = 166447,
+  [SMALL_STATE(7741)] = 166455,
+  [SMALL_STATE(7742)] = 166463,
+  [SMALL_STATE(7743)] = 166471,
+  [SMALL_STATE(7744)] = 166479,
+  [SMALL_STATE(7745)] = 166487,
+  [SMALL_STATE(7746)] = 166495,
+  [SMALL_STATE(7747)] = 166503,
+  [SMALL_STATE(7748)] = 166511,
+  [SMALL_STATE(7749)] = 166519,
+  [SMALL_STATE(7750)] = 166527,
+  [SMALL_STATE(7751)] = 166535,
+  [SMALL_STATE(7752)] = 166543,
+  [SMALL_STATE(7753)] = 166551,
+  [SMALL_STATE(7754)] = 166559,
+  [SMALL_STATE(7755)] = 166567,
+  [SMALL_STATE(7756)] = 166575,
+  [SMALL_STATE(7757)] = 166583,
+  [SMALL_STATE(7758)] = 166591,
+  [SMALL_STATE(7759)] = 166599,
+  [SMALL_STATE(7760)] = 166607,
+  [SMALL_STATE(7761)] = 166615,
+  [SMALL_STATE(7762)] = 166623,
+  [SMALL_STATE(7763)] = 166631,
+  [SMALL_STATE(7764)] = 166639,
+  [SMALL_STATE(7765)] = 166647,
+  [SMALL_STATE(7766)] = 166655,
+  [SMALL_STATE(7767)] = 166663,
+  [SMALL_STATE(7768)] = 166671,
+  [SMALL_STATE(7769)] = 166679,
+  [SMALL_STATE(7770)] = 166687,
+  [SMALL_STATE(7771)] = 166695,
+  [SMALL_STATE(7772)] = 166703,
+  [SMALL_STATE(7773)] = 166711,
+  [SMALL_STATE(7774)] = 166719,
+  [SMALL_STATE(7775)] = 166727,
+  [SMALL_STATE(7776)] = 166735,
+  [SMALL_STATE(7777)] = 166743,
+  [SMALL_STATE(7778)] = 166751,
+  [SMALL_STATE(7779)] = 166759,
+  [SMALL_STATE(7780)] = 166767,
+  [SMALL_STATE(7781)] = 166775,
+  [SMALL_STATE(7782)] = 166783,
+  [SMALL_STATE(7783)] = 166791,
+  [SMALL_STATE(7784)] = 166799,
+  [SMALL_STATE(7785)] = 166807,
+  [SMALL_STATE(7786)] = 166815,
+  [SMALL_STATE(7787)] = 166823,
+  [SMALL_STATE(7788)] = 166831,
+  [SMALL_STATE(7789)] = 166839,
+  [SMALL_STATE(7790)] = 166847,
+  [SMALL_STATE(7791)] = 166855,
+  [SMALL_STATE(7792)] = 166863,
+  [SMALL_STATE(7793)] = 166871,
+  [SMALL_STATE(7794)] = 166879,
+  [SMALL_STATE(7795)] = 166887,
+  [SMALL_STATE(7796)] = 166895,
+  [SMALL_STATE(7797)] = 166903,
+  [SMALL_STATE(7798)] = 166911,
+  [SMALL_STATE(7799)] = 166919,
+  [SMALL_STATE(7800)] = 166927,
+  [SMALL_STATE(7801)] = 166935,
+  [SMALL_STATE(7802)] = 166943,
+  [SMALL_STATE(7803)] = 166951,
+  [SMALL_STATE(7804)] = 166959,
+  [SMALL_STATE(7805)] = 166967,
+  [SMALL_STATE(7806)] = 166975,
+  [SMALL_STATE(7807)] = 166983,
+  [SMALL_STATE(7808)] = 166991,
+  [SMALL_STATE(7809)] = 166999,
+  [SMALL_STATE(7810)] = 167007,
+  [SMALL_STATE(7811)] = 167015,
+  [SMALL_STATE(7812)] = 167023,
+  [SMALL_STATE(7813)] = 167031,
+  [SMALL_STATE(7814)] = 167039,
+  [SMALL_STATE(7815)] = 167047,
+  [SMALL_STATE(7816)] = 167055,
+  [SMALL_STATE(7817)] = 167063,
+  [SMALL_STATE(7818)] = 167071,
+  [SMALL_STATE(7819)] = 167079,
+  [SMALL_STATE(7820)] = 167087,
+  [SMALL_STATE(7821)] = 167095,
+  [SMALL_STATE(7822)] = 167103,
+  [SMALL_STATE(7823)] = 167111,
+  [SMALL_STATE(7824)] = 167119,
+  [SMALL_STATE(7825)] = 167127,
+  [SMALL_STATE(7826)] = 167135,
+  [SMALL_STATE(7827)] = 167143,
+  [SMALL_STATE(7828)] = 167151,
+  [SMALL_STATE(7829)] = 167159,
+  [SMALL_STATE(7830)] = 167167,
+  [SMALL_STATE(7831)] = 167175,
+  [SMALL_STATE(7832)] = 167183,
+  [SMALL_STATE(7833)] = 167191,
+  [SMALL_STATE(7834)] = 167199,
+  [SMALL_STATE(7835)] = 167207,
+  [SMALL_STATE(7836)] = 167215,
+  [SMALL_STATE(7837)] = 167223,
+  [SMALL_STATE(7838)] = 167231,
+  [SMALL_STATE(7839)] = 167239,
+  [SMALL_STATE(7840)] = 167247,
+  [SMALL_STATE(7841)] = 167255,
+  [SMALL_STATE(7842)] = 167263,
+  [SMALL_STATE(7843)] = 167271,
+  [SMALL_STATE(7844)] = 167279,
+  [SMALL_STATE(7845)] = 167287,
+  [SMALL_STATE(7846)] = 167295,
+  [SMALL_STATE(7847)] = 167303,
+  [SMALL_STATE(7848)] = 167311,
+  [SMALL_STATE(7849)] = 167319,
+  [SMALL_STATE(7850)] = 167327,
+  [SMALL_STATE(7851)] = 167335,
+  [SMALL_STATE(7852)] = 167343,
+  [SMALL_STATE(7853)] = 167351,
+  [SMALL_STATE(7854)] = 167359,
+  [SMALL_STATE(7855)] = 167367,
+  [SMALL_STATE(7856)] = 167375,
+  [SMALL_STATE(7857)] = 167383,
+  [SMALL_STATE(7858)] = 167391,
+  [SMALL_STATE(7859)] = 167399,
+  [SMALL_STATE(7860)] = 167407,
+  [SMALL_STATE(7861)] = 167415,
+  [SMALL_STATE(7862)] = 167423,
+  [SMALL_STATE(7863)] = 167431,
+  [SMALL_STATE(7864)] = 167439,
+  [SMALL_STATE(7865)] = 167447,
+  [SMALL_STATE(7866)] = 167455,
+  [SMALL_STATE(7867)] = 167463,
+  [SMALL_STATE(7868)] = 167471,
+  [SMALL_STATE(7869)] = 167479,
+  [SMALL_STATE(7870)] = 167487,
+  [SMALL_STATE(7871)] = 167495,
+  [SMALL_STATE(7872)] = 167503,
+  [SMALL_STATE(7873)] = 167511,
+  [SMALL_STATE(7874)] = 167519,
+  [SMALL_STATE(7875)] = 167527,
+  [SMALL_STATE(7876)] = 167535,
+  [SMALL_STATE(7877)] = 167543,
+  [SMALL_STATE(7878)] = 167551,
+  [SMALL_STATE(7879)] = 167559,
+  [SMALL_STATE(7880)] = 167567,
+  [SMALL_STATE(7881)] = 167575,
+  [SMALL_STATE(7882)] = 167583,
+  [SMALL_STATE(7883)] = 167591,
+  [SMALL_STATE(7884)] = 167599,
+  [SMALL_STATE(7885)] = 167607,
+  [SMALL_STATE(7886)] = 167615,
+  [SMALL_STATE(7887)] = 167623,
+  [SMALL_STATE(7888)] = 167631,
+  [SMALL_STATE(7889)] = 167639,
+  [SMALL_STATE(7890)] = 167647,
+  [SMALL_STATE(7891)] = 167655,
+  [SMALL_STATE(7892)] = 167663,
+  [SMALL_STATE(7893)] = 167671,
+  [SMALL_STATE(7894)] = 167679,
+  [SMALL_STATE(7895)] = 167687,
+  [SMALL_STATE(7896)] = 167695,
+  [SMALL_STATE(7897)] = 167703,
+  [SMALL_STATE(7898)] = 167711,
+  [SMALL_STATE(7899)] = 167719,
+  [SMALL_STATE(7900)] = 167727,
+  [SMALL_STATE(7901)] = 167735,
+  [SMALL_STATE(7902)] = 167743,
+  [SMALL_STATE(7903)] = 167751,
+  [SMALL_STATE(7904)] = 167759,
+  [SMALL_STATE(7905)] = 167767,
+  [SMALL_STATE(7906)] = 167775,
+  [SMALL_STATE(7907)] = 167783,
+  [SMALL_STATE(7908)] = 167791,
+  [SMALL_STATE(7909)] = 167799,
+  [SMALL_STATE(7910)] = 167807,
+  [SMALL_STATE(7911)] = 167815,
+  [SMALL_STATE(7912)] = 167823,
+  [SMALL_STATE(7913)] = 167831,
+  [SMALL_STATE(7914)] = 167839,
+  [SMALL_STATE(7915)] = 167847,
+  [SMALL_STATE(7916)] = 167855,
+  [SMALL_STATE(7917)] = 167863,
+  [SMALL_STATE(7918)] = 167871,
+  [SMALL_STATE(7919)] = 167879,
+  [SMALL_STATE(7920)] = 167887,
+  [SMALL_STATE(7921)] = 167895,
+  [SMALL_STATE(7922)] = 167903,
+  [SMALL_STATE(7923)] = 167911,
+  [SMALL_STATE(7924)] = 167919,
+  [SMALL_STATE(7925)] = 167927,
+  [SMALL_STATE(7926)] = 167935,
+  [SMALL_STATE(7927)] = 167943,
+  [SMALL_STATE(7928)] = 167951,
+  [SMALL_STATE(7929)] = 167959,
+  [SMALL_STATE(7930)] = 167967,
+  [SMALL_STATE(7931)] = 167975,
+  [SMALL_STATE(7932)] = 167983,
+  [SMALL_STATE(7933)] = 167991,
+  [SMALL_STATE(7934)] = 167999,
+  [SMALL_STATE(7935)] = 168007,
+  [SMALL_STATE(7936)] = 168015,
+  [SMALL_STATE(7937)] = 168023,
+  [SMALL_STATE(7938)] = 168031,
+  [SMALL_STATE(7939)] = 168039,
+  [SMALL_STATE(7940)] = 168047,
+  [SMALL_STATE(7941)] = 168055,
+  [SMALL_STATE(7942)] = 168063,
+  [SMALL_STATE(7943)] = 168071,
+  [SMALL_STATE(7944)] = 168079,
+  [SMALL_STATE(7945)] = 168087,
+  [SMALL_STATE(7946)] = 168095,
+  [SMALL_STATE(7947)] = 168103,
+  [SMALL_STATE(7948)] = 168111,
+  [SMALL_STATE(7949)] = 168119,
+  [SMALL_STATE(7950)] = 168127,
+  [SMALL_STATE(7951)] = 168135,
+  [SMALL_STATE(7952)] = 168143,
+  [SMALL_STATE(7953)] = 168151,
+  [SMALL_STATE(7954)] = 168159,
+  [SMALL_STATE(7955)] = 168167,
+  [SMALL_STATE(7956)] = 168175,
+  [SMALL_STATE(7957)] = 168183,
+  [SMALL_STATE(7958)] = 168191,
+  [SMALL_STATE(7959)] = 168199,
+  [SMALL_STATE(7960)] = 168207,
+  [SMALL_STATE(7961)] = 168215,
+  [SMALL_STATE(7962)] = 168223,
+  [SMALL_STATE(7963)] = 168231,
+  [SMALL_STATE(7964)] = 168239,
+  [SMALL_STATE(7965)] = 168247,
+  [SMALL_STATE(7966)] = 168255,
+  [SMALL_STATE(7967)] = 168263,
+  [SMALL_STATE(7968)] = 168271,
+  [SMALL_STATE(7969)] = 168279,
+  [SMALL_STATE(7970)] = 168287,
+  [SMALL_STATE(7971)] = 168295,
+  [SMALL_STATE(7972)] = 168303,
+  [SMALL_STATE(7973)] = 168311,
+  [SMALL_STATE(7974)] = 168319,
+  [SMALL_STATE(7975)] = 168327,
+  [SMALL_STATE(7976)] = 168335,
+  [SMALL_STATE(7977)] = 168343,
+  [SMALL_STATE(7978)] = 168351,
+  [SMALL_STATE(7979)] = 168359,
+  [SMALL_STATE(7980)] = 168367,
+  [SMALL_STATE(7981)] = 168375,
+  [SMALL_STATE(7982)] = 168383,
+  [SMALL_STATE(7983)] = 168391,
+  [SMALL_STATE(7984)] = 168399,
+  [SMALL_STATE(7985)] = 168407,
+  [SMALL_STATE(7986)] = 168415,
+  [SMALL_STATE(7987)] = 168423,
+  [SMALL_STATE(7988)] = 168431,
+  [SMALL_STATE(7989)] = 168439,
+  [SMALL_STATE(7990)] = 168447,
+  [SMALL_STATE(7991)] = 168455,
+  [SMALL_STATE(7992)] = 168463,
+  [SMALL_STATE(7993)] = 168471,
+  [SMALL_STATE(7994)] = 168479,
+  [SMALL_STATE(7995)] = 168487,
+  [SMALL_STATE(7996)] = 168495,
+  [SMALL_STATE(7997)] = 168503,
+  [SMALL_STATE(7998)] = 168511,
+  [SMALL_STATE(7999)] = 168519,
+  [SMALL_STATE(8000)] = 168527,
+  [SMALL_STATE(8001)] = 168535,
+  [SMALL_STATE(8002)] = 168543,
+  [SMALL_STATE(8003)] = 168551,
+  [SMALL_STATE(8004)] = 168559,
+  [SMALL_STATE(8005)] = 168567,
+  [SMALL_STATE(8006)] = 168575,
+  [SMALL_STATE(8007)] = 168583,
+  [SMALL_STATE(8008)] = 168591,
+  [SMALL_STATE(8009)] = 168599,
+  [SMALL_STATE(8010)] = 168607,
+  [SMALL_STATE(8011)] = 168615,
+  [SMALL_STATE(8012)] = 168623,
+  [SMALL_STATE(8013)] = 168631,
+  [SMALL_STATE(8014)] = 168639,
+  [SMALL_STATE(8015)] = 168647,
+  [SMALL_STATE(8016)] = 168655,
+  [SMALL_STATE(8017)] = 168663,
+  [SMALL_STATE(8018)] = 168671,
+  [SMALL_STATE(8019)] = 168679,
+  [SMALL_STATE(8020)] = 168687,
+  [SMALL_STATE(8021)] = 168695,
+  [SMALL_STATE(8022)] = 168703,
+  [SMALL_STATE(8023)] = 168711,
+  [SMALL_STATE(8024)] = 168719,
+  [SMALL_STATE(8025)] = 168727,
+  [SMALL_STATE(8026)] = 168735,
+  [SMALL_STATE(8027)] = 168743,
+  [SMALL_STATE(8028)] = 168751,
+  [SMALL_STATE(8029)] = 168759,
+  [SMALL_STATE(8030)] = 168767,
+  [SMALL_STATE(8031)] = 168775,
+  [SMALL_STATE(8032)] = 168783,
+  [SMALL_STATE(8033)] = 168791,
+  [SMALL_STATE(8034)] = 168799,
+  [SMALL_STATE(8035)] = 168807,
+  [SMALL_STATE(8036)] = 168815,
+  [SMALL_STATE(8037)] = 168823,
+  [SMALL_STATE(8038)] = 168831,
+  [SMALL_STATE(8039)] = 168839,
+  [SMALL_STATE(8040)] = 168847,
+  [SMALL_STATE(8041)] = 168855,
+  [SMALL_STATE(8042)] = 168863,
+  [SMALL_STATE(8043)] = 168871,
+  [SMALL_STATE(8044)] = 168879,
+  [SMALL_STATE(8045)] = 168887,
+  [SMALL_STATE(8046)] = 168895,
+  [SMALL_STATE(8047)] = 168903,
+  [SMALL_STATE(8048)] = 168911,
+  [SMALL_STATE(8049)] = 168919,
+  [SMALL_STATE(8050)] = 168927,
+  [SMALL_STATE(8051)] = 168935,
+  [SMALL_STATE(8052)] = 168943,
+  [SMALL_STATE(8053)] = 168951,
+  [SMALL_STATE(8054)] = 168959,
+  [SMALL_STATE(8055)] = 168967,
+  [SMALL_STATE(8056)] = 168975,
+  [SMALL_STATE(8057)] = 168983,
+  [SMALL_STATE(8058)] = 168991,
+  [SMALL_STATE(8059)] = 168999,
+  [SMALL_STATE(8060)] = 169007,
+  [SMALL_STATE(8061)] = 169015,
+  [SMALL_STATE(8062)] = 169023,
+  [SMALL_STATE(8063)] = 169031,
+  [SMALL_STATE(8064)] = 169039,
+  [SMALL_STATE(8065)] = 169047,
+  [SMALL_STATE(8066)] = 169055,
+  [SMALL_STATE(8067)] = 169063,
+  [SMALL_STATE(8068)] = 169071,
+  [SMALL_STATE(8069)] = 169079,
+  [SMALL_STATE(8070)] = 169087,
+  [SMALL_STATE(8071)] = 169095,
+  [SMALL_STATE(8072)] = 169103,
+  [SMALL_STATE(8073)] = 169111,
+  [SMALL_STATE(8074)] = 169119,
+  [SMALL_STATE(8075)] = 169127,
+  [SMALL_STATE(8076)] = 169135,
+  [SMALL_STATE(8077)] = 169143,
+  [SMALL_STATE(8078)] = 169151,
+  [SMALL_STATE(8079)] = 169159,
+  [SMALL_STATE(8080)] = 169167,
+  [SMALL_STATE(8081)] = 169175,
+  [SMALL_STATE(8082)] = 169183,
+  [SMALL_STATE(8083)] = 169191,
+  [SMALL_STATE(8084)] = 169199,
+  [SMALL_STATE(8085)] = 169207,
+  [SMALL_STATE(8086)] = 169215,
+  [SMALL_STATE(8087)] = 169223,
+  [SMALL_STATE(8088)] = 169231,
+  [SMALL_STATE(8089)] = 169239,
+  [SMALL_STATE(8090)] = 169247,
+  [SMALL_STATE(8091)] = 169255,
+  [SMALL_STATE(8092)] = 169263,
+  [SMALL_STATE(8093)] = 169271,
+  [SMALL_STATE(8094)] = 169279,
+  [SMALL_STATE(8095)] = 169287,
+  [SMALL_STATE(8096)] = 169295,
+  [SMALL_STATE(8097)] = 169303,
+  [SMALL_STATE(8098)] = 169311,
+  [SMALL_STATE(8099)] = 169319,
+  [SMALL_STATE(8100)] = 169327,
+  [SMALL_STATE(8101)] = 169335,
+  [SMALL_STATE(8102)] = 169343,
+  [SMALL_STATE(8103)] = 169351,
+  [SMALL_STATE(8104)] = 169359,
+  [SMALL_STATE(8105)] = 169367,
+  [SMALL_STATE(8106)] = 169375,
+  [SMALL_STATE(8107)] = 169383,
+  [SMALL_STATE(8108)] = 169391,
+  [SMALL_STATE(8109)] = 169399,
+  [SMALL_STATE(8110)] = 169407,
+  [SMALL_STATE(8111)] = 169415,
+  [SMALL_STATE(8112)] = 169423,
+  [SMALL_STATE(8113)] = 169431,
+  [SMALL_STATE(8114)] = 169439,
+  [SMALL_STATE(8115)] = 169447,
+  [SMALL_STATE(8116)] = 169455,
+  [SMALL_STATE(8117)] = 169463,
+  [SMALL_STATE(8118)] = 169471,
+  [SMALL_STATE(8119)] = 169479,
+  [SMALL_STATE(8120)] = 169487,
+  [SMALL_STATE(8121)] = 169495,
+  [SMALL_STATE(8122)] = 169503,
+  [SMALL_STATE(8123)] = 169511,
+  [SMALL_STATE(8124)] = 169519,
+  [SMALL_STATE(8125)] = 169527,
+  [SMALL_STATE(8126)] = 169535,
+  [SMALL_STATE(8127)] = 169543,
+  [SMALL_STATE(8128)] = 169551,
+  [SMALL_STATE(8129)] = 169559,
+  [SMALL_STATE(8130)] = 169567,
+  [SMALL_STATE(8131)] = 169575,
+  [SMALL_STATE(8132)] = 169583,
+  [SMALL_STATE(8133)] = 169591,
+  [SMALL_STATE(8134)] = 169599,
+  [SMALL_STATE(8135)] = 169607,
+  [SMALL_STATE(8136)] = 169615,
+  [SMALL_STATE(8137)] = 169623,
+  [SMALL_STATE(8138)] = 169631,
+  [SMALL_STATE(8139)] = 169639,
+  [SMALL_STATE(8140)] = 169647,
+  [SMALL_STATE(8141)] = 169655,
+  [SMALL_STATE(8142)] = 169663,
+  [SMALL_STATE(8143)] = 169671,
+  [SMALL_STATE(8144)] = 169679,
+  [SMALL_STATE(8145)] = 169687,
+  [SMALL_STATE(8146)] = 169695,
+  [SMALL_STATE(8147)] = 169703,
+  [SMALL_STATE(8148)] = 169711,
+  [SMALL_STATE(8149)] = 169719,
+  [SMALL_STATE(8150)] = 169727,
+  [SMALL_STATE(8151)] = 169735,
+  [SMALL_STATE(8152)] = 169743,
+  [SMALL_STATE(8153)] = 169751,
+  [SMALL_STATE(8154)] = 169759,
+  [SMALL_STATE(8155)] = 169767,
+  [SMALL_STATE(8156)] = 169775,
+  [SMALL_STATE(8157)] = 169783,
+  [SMALL_STATE(8158)] = 169791,
+  [SMALL_STATE(8159)] = 169799,
+  [SMALL_STATE(8160)] = 169807,
+  [SMALL_STATE(8161)] = 169815,
+  [SMALL_STATE(8162)] = 169823,
+  [SMALL_STATE(8163)] = 169831,
+  [SMALL_STATE(8164)] = 169839,
+  [SMALL_STATE(8165)] = 169847,
+  [SMALL_STATE(8166)] = 169855,
+  [SMALL_STATE(8167)] = 169863,
+  [SMALL_STATE(8168)] = 169871,
+  [SMALL_STATE(8169)] = 169879,
+  [SMALL_STATE(8170)] = 169887,
+  [SMALL_STATE(8171)] = 169895,
+  [SMALL_STATE(8172)] = 169903,
+  [SMALL_STATE(8173)] = 169911,
+  [SMALL_STATE(8174)] = 169919,
+  [SMALL_STATE(8175)] = 169927,
+  [SMALL_STATE(8176)] = 169935,
+  [SMALL_STATE(8177)] = 169943,
+  [SMALL_STATE(8178)] = 169951,
+  [SMALL_STATE(8179)] = 169959,
+  [SMALL_STATE(8180)] = 169967,
+  [SMALL_STATE(8181)] = 169975,
+  [SMALL_STATE(8182)] = 169983,
+  [SMALL_STATE(8183)] = 169991,
+  [SMALL_STATE(8184)] = 169999,
+  [SMALL_STATE(8185)] = 170007,
+  [SMALL_STATE(8186)] = 170015,
+  [SMALL_STATE(8187)] = 170023,
+  [SMALL_STATE(8188)] = 170031,
+  [SMALL_STATE(8189)] = 170039,
+  [SMALL_STATE(8190)] = 170047,
+  [SMALL_STATE(8191)] = 170055,
+  [SMALL_STATE(8192)] = 170063,
+  [SMALL_STATE(8193)] = 170071,
+  [SMALL_STATE(8194)] = 170079,
+  [SMALL_STATE(8195)] = 170087,
+  [SMALL_STATE(8196)] = 170095,
+  [SMALL_STATE(8197)] = 170103,
+  [SMALL_STATE(8198)] = 170111,
+  [SMALL_STATE(8199)] = 170119,
+  [SMALL_STATE(8200)] = 170127,
+  [SMALL_STATE(8201)] = 170135,
+  [SMALL_STATE(8202)] = 170143,
+  [SMALL_STATE(8203)] = 170151,
+  [SMALL_STATE(8204)] = 170159,
+  [SMALL_STATE(8205)] = 170167,
+  [SMALL_STATE(8206)] = 170175,
+  [SMALL_STATE(8207)] = 170183,
+  [SMALL_STATE(8208)] = 170191,
+  [SMALL_STATE(8209)] = 170199,
+  [SMALL_STATE(8210)] = 170207,
+  [SMALL_STATE(8211)] = 170215,
+  [SMALL_STATE(8212)] = 170223,
+  [SMALL_STATE(8213)] = 170231,
+  [SMALL_STATE(8214)] = 170239,
+  [SMALL_STATE(8215)] = 170247,
+  [SMALL_STATE(8216)] = 170255,
+  [SMALL_STATE(8217)] = 170263,
+  [SMALL_STATE(8218)] = 170271,
+  [SMALL_STATE(8219)] = 170279,
+  [SMALL_STATE(8220)] = 170287,
+  [SMALL_STATE(8221)] = 170295,
+  [SMALL_STATE(8222)] = 170303,
+  [SMALL_STATE(8223)] = 170311,
+  [SMALL_STATE(8224)] = 170319,
+  [SMALL_STATE(8225)] = 170327,
+  [SMALL_STATE(8226)] = 170335,
+  [SMALL_STATE(8227)] = 170343,
+  [SMALL_STATE(8228)] = 170351,
+  [SMALL_STATE(8229)] = 170359,
+  [SMALL_STATE(8230)] = 170367,
+  [SMALL_STATE(8231)] = 170375,
+  [SMALL_STATE(8232)] = 170383,
+  [SMALL_STATE(8233)] = 170391,
+  [SMALL_STATE(8234)] = 170399,
+  [SMALL_STATE(8235)] = 170407,
+  [SMALL_STATE(8236)] = 170415,
+  [SMALL_STATE(8237)] = 170423,
+  [SMALL_STATE(8238)] = 170431,
+  [SMALL_STATE(8239)] = 170439,
+  [SMALL_STATE(8240)] = 170447,
+  [SMALL_STATE(8241)] = 170455,
+  [SMALL_STATE(8242)] = 170463,
+  [SMALL_STATE(8243)] = 170471,
+  [SMALL_STATE(8244)] = 170479,
+  [SMALL_STATE(8245)] = 170487,
+  [SMALL_STATE(8246)] = 170495,
+  [SMALL_STATE(8247)] = 170503,
+  [SMALL_STATE(8248)] = 170511,
+  [SMALL_STATE(8249)] = 170519,
+  [SMALL_STATE(8250)] = 170527,
+  [SMALL_STATE(8251)] = 170535,
+  [SMALL_STATE(8252)] = 170543,
+  [SMALL_STATE(8253)] = 170551,
+  [SMALL_STATE(8254)] = 170559,
+  [SMALL_STATE(8255)] = 170567,
+  [SMALL_STATE(8256)] = 170575,
+  [SMALL_STATE(8257)] = 170583,
+  [SMALL_STATE(8258)] = 170591,
+  [SMALL_STATE(8259)] = 170599,
+  [SMALL_STATE(8260)] = 170607,
+  [SMALL_STATE(8261)] = 170615,
+  [SMALL_STATE(8262)] = 170623,
+  [SMALL_STATE(8263)] = 170631,
+  [SMALL_STATE(8264)] = 170639,
+  [SMALL_STATE(8265)] = 170647,
+  [SMALL_STATE(8266)] = 170655,
+  [SMALL_STATE(8267)] = 170663,
+  [SMALL_STATE(8268)] = 170671,
+  [SMALL_STATE(8269)] = 170679,
+  [SMALL_STATE(8270)] = 170687,
+  [SMALL_STATE(8271)] = 170695,
+  [SMALL_STATE(8272)] = 170703,
+  [SMALL_STATE(8273)] = 170711,
+  [SMALL_STATE(8274)] = 170719,
+  [SMALL_STATE(8275)] = 170727,
+  [SMALL_STATE(8276)] = 170735,
+  [SMALL_STATE(8277)] = 170743,
+  [SMALL_STATE(8278)] = 170751,
+  [SMALL_STATE(8279)] = 170759,
+  [SMALL_STATE(8280)] = 170767,
+  [SMALL_STATE(8281)] = 170775,
+  [SMALL_STATE(8282)] = 170783,
+  [SMALL_STATE(8283)] = 170791,
+  [SMALL_STATE(8284)] = 170799,
+  [SMALL_STATE(8285)] = 170807,
+  [SMALL_STATE(8286)] = 170815,
+  [SMALL_STATE(8287)] = 170823,
+  [SMALL_STATE(8288)] = 170831,
+  [SMALL_STATE(8289)] = 170839,
+  [SMALL_STATE(8290)] = 170847,
+  [SMALL_STATE(8291)] = 170855,
+  [SMALL_STATE(8292)] = 170863,
+  [SMALL_STATE(8293)] = 170871,
+  [SMALL_STATE(8294)] = 170879,
+  [SMALL_STATE(8295)] = 170887,
+  [SMALL_STATE(8296)] = 170895,
+  [SMALL_STATE(8297)] = 170903,
+  [SMALL_STATE(8298)] = 170911,
+  [SMALL_STATE(8299)] = 170919,
+  [SMALL_STATE(8300)] = 170927,
+  [SMALL_STATE(8301)] = 170935,
+  [SMALL_STATE(8302)] = 170943,
+  [SMALL_STATE(8303)] = 170951,
+  [SMALL_STATE(8304)] = 170959,
+  [SMALL_STATE(8305)] = 170967,
+  [SMALL_STATE(8306)] = 170975,
+  [SMALL_STATE(8307)] = 170983,
+  [SMALL_STATE(8308)] = 170991,
+  [SMALL_STATE(8309)] = 170999,
+  [SMALL_STATE(8310)] = 171007,
+  [SMALL_STATE(8311)] = 171015,
+  [SMALL_STATE(8312)] = 171023,
+  [SMALL_STATE(8313)] = 171031,
+  [SMALL_STATE(8314)] = 171039,
+  [SMALL_STATE(8315)] = 171047,
+  [SMALL_STATE(8316)] = 171055,
+  [SMALL_STATE(8317)] = 171063,
+  [SMALL_STATE(8318)] = 171071,
+  [SMALL_STATE(8319)] = 171079,
+  [SMALL_STATE(8320)] = 171087,
+  [SMALL_STATE(8321)] = 171095,
+  [SMALL_STATE(8322)] = 171103,
+  [SMALL_STATE(8323)] = 171111,
+  [SMALL_STATE(8324)] = 171119,
+  [SMALL_STATE(8325)] = 171127,
+  [SMALL_STATE(8326)] = 171135,
+  [SMALL_STATE(8327)] = 171143,
+  [SMALL_STATE(8328)] = 171151,
+  [SMALL_STATE(8329)] = 171159,
+  [SMALL_STATE(8330)] = 171167,
+  [SMALL_STATE(8331)] = 171175,
+  [SMALL_STATE(8332)] = 171183,
+  [SMALL_STATE(8333)] = 171191,
+  [SMALL_STATE(8334)] = 171199,
+  [SMALL_STATE(8335)] = 171207,
+  [SMALL_STATE(8336)] = 171215,
+  [SMALL_STATE(8337)] = 171223,
+  [SMALL_STATE(8338)] = 171231,
+  [SMALL_STATE(8339)] = 171239,
+  [SMALL_STATE(8340)] = 171247,
+  [SMALL_STATE(8341)] = 171255,
+  [SMALL_STATE(8342)] = 171263,
+  [SMALL_STATE(8343)] = 171271,
+  [SMALL_STATE(8344)] = 171279,
+  [SMALL_STATE(8345)] = 171287,
+  [SMALL_STATE(8346)] = 171295,
+  [SMALL_STATE(8347)] = 171303,
+  [SMALL_STATE(8348)] = 171311,
+  [SMALL_STATE(8349)] = 171319,
+  [SMALL_STATE(8350)] = 171327,
+  [SMALL_STATE(8351)] = 171335,
+  [SMALL_STATE(8352)] = 171343,
+  [SMALL_STATE(8353)] = 171351,
+  [SMALL_STATE(8354)] = 171359,
+  [SMALL_STATE(8355)] = 171367,
+  [SMALL_STATE(8356)] = 171375,
+  [SMALL_STATE(8357)] = 171383,
+  [SMALL_STATE(8358)] = 171391,
+  [SMALL_STATE(8359)] = 171399,
+  [SMALL_STATE(8360)] = 171407,
+  [SMALL_STATE(8361)] = 171415,
+  [SMALL_STATE(8362)] = 171423,
+  [SMALL_STATE(8363)] = 171431,
+  [SMALL_STATE(8364)] = 171439,
+  [SMALL_STATE(8365)] = 171447,
+  [SMALL_STATE(8366)] = 171455,
+  [SMALL_STATE(8367)] = 171463,
+  [SMALL_STATE(8368)] = 171471,
+  [SMALL_STATE(8369)] = 171479,
+  [SMALL_STATE(8370)] = 171487,
+  [SMALL_STATE(8371)] = 171495,
+  [SMALL_STATE(8372)] = 171503,
+  [SMALL_STATE(8373)] = 171511,
+  [SMALL_STATE(8374)] = 171519,
+  [SMALL_STATE(8375)] = 171527,
+  [SMALL_STATE(8376)] = 171535,
+  [SMALL_STATE(8377)] = 171543,
+  [SMALL_STATE(8378)] = 171551,
+  [SMALL_STATE(8379)] = 171559,
+  [SMALL_STATE(8380)] = 171567,
+  [SMALL_STATE(8381)] = 171575,
+  [SMALL_STATE(8382)] = 171583,
+  [SMALL_STATE(8383)] = 171591,
+  [SMALL_STATE(8384)] = 171599,
+  [SMALL_STATE(8385)] = 171607,
+  [SMALL_STATE(8386)] = 171615,
+  [SMALL_STATE(8387)] = 171623,
+  [SMALL_STATE(8388)] = 171631,
+  [SMALL_STATE(8389)] = 171639,
+  [SMALL_STATE(8390)] = 171647,
+  [SMALL_STATE(8391)] = 171655,
+  [SMALL_STATE(8392)] = 171663,
+  [SMALL_STATE(8393)] = 171671,
+  [SMALL_STATE(8394)] = 171679,
+  [SMALL_STATE(8395)] = 171687,
+  [SMALL_STATE(8396)] = 171695,
+  [SMALL_STATE(8397)] = 171703,
+  [SMALL_STATE(8398)] = 171711,
+  [SMALL_STATE(8399)] = 171719,
+  [SMALL_STATE(8400)] = 171727,
+  [SMALL_STATE(8401)] = 171735,
+  [SMALL_STATE(8402)] = 171743,
+  [SMALL_STATE(8403)] = 171751,
+  [SMALL_STATE(8404)] = 171759,
+  [SMALL_STATE(8405)] = 171767,
+  [SMALL_STATE(8406)] = 171775,
+  [SMALL_STATE(8407)] = 171783,
+  [SMALL_STATE(8408)] = 171791,
+  [SMALL_STATE(8409)] = 171799,
+  [SMALL_STATE(8410)] = 171807,
+  [SMALL_STATE(8411)] = 171815,
+  [SMALL_STATE(8412)] = 171823,
+  [SMALL_STATE(8413)] = 171831,
+  [SMALL_STATE(8414)] = 171839,
+  [SMALL_STATE(8415)] = 171847,
+  [SMALL_STATE(8416)] = 171855,
+  [SMALL_STATE(8417)] = 171863,
+  [SMALL_STATE(8418)] = 171871,
+  [SMALL_STATE(8419)] = 171879,
+  [SMALL_STATE(8420)] = 171887,
+  [SMALL_STATE(8421)] = 171895,
+  [SMALL_STATE(8422)] = 171903,
+  [SMALL_STATE(8423)] = 171911,
+  [SMALL_STATE(8424)] = 171919,
+  [SMALL_STATE(8425)] = 171927,
+  [SMALL_STATE(8426)] = 171935,
+  [SMALL_STATE(8427)] = 171943,
+  [SMALL_STATE(8428)] = 171951,
+  [SMALL_STATE(8429)] = 171959,
+  [SMALL_STATE(8430)] = 171967,
+  [SMALL_STATE(8431)] = 171975,
+  [SMALL_STATE(8432)] = 171983,
+  [SMALL_STATE(8433)] = 171991,
+  [SMALL_STATE(8434)] = 171999,
+  [SMALL_STATE(8435)] = 172007,
+  [SMALL_STATE(8436)] = 172015,
+  [SMALL_STATE(8437)] = 172023,
+  [SMALL_STATE(8438)] = 172031,
+  [SMALL_STATE(8439)] = 172039,
+  [SMALL_STATE(8440)] = 172047,
+  [SMALL_STATE(8441)] = 172055,
+  [SMALL_STATE(8442)] = 172063,
+  [SMALL_STATE(8443)] = 172071,
+  [SMALL_STATE(8444)] = 172079,
+  [SMALL_STATE(8445)] = 172087,
+  [SMALL_STATE(8446)] = 172095,
+  [SMALL_STATE(8447)] = 172103,
+  [SMALL_STATE(8448)] = 172111,
+  [SMALL_STATE(8449)] = 172119,
+  [SMALL_STATE(8450)] = 172127,
+  [SMALL_STATE(8451)] = 172135,
+  [SMALL_STATE(8452)] = 172143,
+  [SMALL_STATE(8453)] = 172151,
+  [SMALL_STATE(8454)] = 172159,
+  [SMALL_STATE(8455)] = 172167,
+  [SMALL_STATE(8456)] = 172175,
+  [SMALL_STATE(8457)] = 172183,
+  [SMALL_STATE(8458)] = 172191,
+  [SMALL_STATE(8459)] = 172199,
+  [SMALL_STATE(8460)] = 172207,
+  [SMALL_STATE(8461)] = 172215,
+  [SMALL_STATE(8462)] = 172223,
+  [SMALL_STATE(8463)] = 172231,
+  [SMALL_STATE(8464)] = 172239,
+  [SMALL_STATE(8465)] = 172247,
+  [SMALL_STATE(8466)] = 172255,
+  [SMALL_STATE(8467)] = 172263,
+  [SMALL_STATE(8468)] = 172271,
+  [SMALL_STATE(8469)] = 172279,
+  [SMALL_STATE(8470)] = 172287,
+  [SMALL_STATE(8471)] = 172295,
+  [SMALL_STATE(8472)] = 172303,
+  [SMALL_STATE(8473)] = 172311,
+  [SMALL_STATE(8474)] = 172319,
+  [SMALL_STATE(8475)] = 172327,
+  [SMALL_STATE(8476)] = 172335,
+  [SMALL_STATE(8477)] = 172343,
+  [SMALL_STATE(8478)] = 172351,
+  [SMALL_STATE(8479)] = 172359,
+  [SMALL_STATE(8480)] = 172367,
+  [SMALL_STATE(8481)] = 172375,
+  [SMALL_STATE(8482)] = 172383,
+  [SMALL_STATE(8483)] = 172391,
+  [SMALL_STATE(8484)] = 172399,
+  [SMALL_STATE(8485)] = 172407,
+  [SMALL_STATE(8486)] = 172415,
+  [SMALL_STATE(8487)] = 172423,
+  [SMALL_STATE(8488)] = 172431,
+  [SMALL_STATE(8489)] = 172439,
+  [SMALL_STATE(8490)] = 172447,
+  [SMALL_STATE(8491)] = 172455,
+  [SMALL_STATE(8492)] = 172463,
+  [SMALL_STATE(8493)] = 172471,
+  [SMALL_STATE(8494)] = 172479,
+  [SMALL_STATE(8495)] = 172487,
+  [SMALL_STATE(8496)] = 172495,
+  [SMALL_STATE(8497)] = 172503,
+  [SMALL_STATE(8498)] = 172511,
+  [SMALL_STATE(8499)] = 172519,
+  [SMALL_STATE(8500)] = 172527,
+  [SMALL_STATE(8501)] = 172535,
+  [SMALL_STATE(8502)] = 172543,
+  [SMALL_STATE(8503)] = 172551,
+  [SMALL_STATE(8504)] = 172559,
+  [SMALL_STATE(8505)] = 172567,
+  [SMALL_STATE(8506)] = 172575,
+  [SMALL_STATE(8507)] = 172583,
+  [SMALL_STATE(8508)] = 172591,
+  [SMALL_STATE(8509)] = 172599,
+  [SMALL_STATE(8510)] = 172607,
+  [SMALL_STATE(8511)] = 172615,
+  [SMALL_STATE(8512)] = 172623,
+  [SMALL_STATE(8513)] = 172631,
+  [SMALL_STATE(8514)] = 172639,
+  [SMALL_STATE(8515)] = 172647,
+  [SMALL_STATE(8516)] = 172655,
+  [SMALL_STATE(8517)] = 172663,
+  [SMALL_STATE(8518)] = 172671,
+  [SMALL_STATE(8519)] = 172679,
+  [SMALL_STATE(8520)] = 172687,
+  [SMALL_STATE(8521)] = 172695,
+  [SMALL_STATE(8522)] = 172703,
+  [SMALL_STATE(8523)] = 172711,
+  [SMALL_STATE(8524)] = 172719,
+  [SMALL_STATE(8525)] = 172727,
+  [SMALL_STATE(8526)] = 172735,
+  [SMALL_STATE(8527)] = 172743,
+  [SMALL_STATE(8528)] = 172751,
+  [SMALL_STATE(8529)] = 172759,
+  [SMALL_STATE(8530)] = 172767,
+  [SMALL_STATE(8531)] = 172775,
+  [SMALL_STATE(8532)] = 172783,
+  [SMALL_STATE(8533)] = 172791,
+  [SMALL_STATE(8534)] = 172799,
+  [SMALL_STATE(8535)] = 172807,
+  [SMALL_STATE(8536)] = 172815,
+  [SMALL_STATE(8537)] = 172823,
+  [SMALL_STATE(8538)] = 172831,
+  [SMALL_STATE(8539)] = 172839,
+  [SMALL_STATE(8540)] = 172847,
+  [SMALL_STATE(8541)] = 172855,
+  [SMALL_STATE(8542)] = 172863,
+  [SMALL_STATE(8543)] = 172871,
+  [SMALL_STATE(8544)] = 172879,
+  [SMALL_STATE(8545)] = 172887,
+  [SMALL_STATE(8546)] = 172895,
+  [SMALL_STATE(8547)] = 172903,
+  [SMALL_STATE(8548)] = 172911,
+  [SMALL_STATE(8549)] = 172919,
+  [SMALL_STATE(8550)] = 172927,
+  [SMALL_STATE(8551)] = 172935,
+  [SMALL_STATE(8552)] = 172943,
+  [SMALL_STATE(8553)] = 172951,
+  [SMALL_STATE(8554)] = 172959,
+  [SMALL_STATE(8555)] = 172967,
+  [SMALL_STATE(8556)] = 172975,
+  [SMALL_STATE(8557)] = 172983,
+  [SMALL_STATE(8558)] = 172991,
+  [SMALL_STATE(8559)] = 172999,
+  [SMALL_STATE(8560)] = 173007,
+  [SMALL_STATE(8561)] = 173015,
+  [SMALL_STATE(8562)] = 173023,
+  [SMALL_STATE(8563)] = 173031,
+  [SMALL_STATE(8564)] = 173039,
+  [SMALL_STATE(8565)] = 173047,
+  [SMALL_STATE(8566)] = 173055,
+  [SMALL_STATE(8567)] = 173063,
+  [SMALL_STATE(8568)] = 173071,
+  [SMALL_STATE(8569)] = 173079,
+  [SMALL_STATE(8570)] = 173087,
+  [SMALL_STATE(8571)] = 173095,
+  [SMALL_STATE(8572)] = 173103,
+  [SMALL_STATE(8573)] = 173111,
+  [SMALL_STATE(8574)] = 173119,
+  [SMALL_STATE(8575)] = 173127,
+  [SMALL_STATE(8576)] = 173135,
+  [SMALL_STATE(8577)] = 173143,
+  [SMALL_STATE(8578)] = 173151,
+  [SMALL_STATE(8579)] = 173159,
+  [SMALL_STATE(8580)] = 173167,
+  [SMALL_STATE(8581)] = 173175,
+  [SMALL_STATE(8582)] = 173183,
+  [SMALL_STATE(8583)] = 173191,
+  [SMALL_STATE(8584)] = 173199,
+  [SMALL_STATE(8585)] = 173207,
+  [SMALL_STATE(8586)] = 173215,
+  [SMALL_STATE(8587)] = 173223,
+  [SMALL_STATE(8588)] = 173231,
+  [SMALL_STATE(8589)] = 173239,
+  [SMALL_STATE(8590)] = 173247,
+  [SMALL_STATE(8591)] = 173255,
+  [SMALL_STATE(8592)] = 173263,
+  [SMALL_STATE(8593)] = 173271,
+  [SMALL_STATE(8594)] = 173279,
+  [SMALL_STATE(8595)] = 173287,
+  [SMALL_STATE(8596)] = 173295,
+  [SMALL_STATE(8597)] = 173303,
+  [SMALL_STATE(8598)] = 173311,
+  [SMALL_STATE(8599)] = 173319,
+  [SMALL_STATE(8600)] = 173327,
+  [SMALL_STATE(8601)] = 173335,
+  [SMALL_STATE(8602)] = 173343,
+  [SMALL_STATE(8603)] = 173351,
+  [SMALL_STATE(8604)] = 173359,
+  [SMALL_STATE(8605)] = 173367,
+  [SMALL_STATE(8606)] = 173375,
+  [SMALL_STATE(8607)] = 173383,
+  [SMALL_STATE(8608)] = 173391,
+  [SMALL_STATE(8609)] = 173399,
+  [SMALL_STATE(8610)] = 173407,
+  [SMALL_STATE(8611)] = 173415,
+  [SMALL_STATE(8612)] = 173423,
+  [SMALL_STATE(8613)] = 173431,
+  [SMALL_STATE(8614)] = 173439,
+  [SMALL_STATE(8615)] = 173447,
+  [SMALL_STATE(8616)] = 173455,
+  [SMALL_STATE(8617)] = 173463,
+  [SMALL_STATE(8618)] = 173471,
+  [SMALL_STATE(8619)] = 173479,
+  [SMALL_STATE(8620)] = 173487,
+  [SMALL_STATE(8621)] = 173495,
+  [SMALL_STATE(8622)] = 173503,
+  [SMALL_STATE(8623)] = 173511,
+  [SMALL_STATE(8624)] = 173519,
+  [SMALL_STATE(8625)] = 173527,
+  [SMALL_STATE(8626)] = 173535,
+  [SMALL_STATE(8627)] = 173543,
+  [SMALL_STATE(8628)] = 173551,
+  [SMALL_STATE(8629)] = 173559,
+  [SMALL_STATE(8630)] = 173567,
+  [SMALL_STATE(8631)] = 173575,
+  [SMALL_STATE(8632)] = 173583,
+  [SMALL_STATE(8633)] = 173591,
+  [SMALL_STATE(8634)] = 173599,
+  [SMALL_STATE(8635)] = 173607,
+  [SMALL_STATE(8636)] = 173615,
+  [SMALL_STATE(8637)] = 173623,
+  [SMALL_STATE(8638)] = 173631,
+  [SMALL_STATE(8639)] = 173639,
+  [SMALL_STATE(8640)] = 173647,
+  [SMALL_STATE(8641)] = 173655,
+  [SMALL_STATE(8642)] = 173663,
+  [SMALL_STATE(8643)] = 173671,
+  [SMALL_STATE(8644)] = 173679,
+  [SMALL_STATE(8645)] = 173687,
+  [SMALL_STATE(8646)] = 173695,
+  [SMALL_STATE(8647)] = 173703,
+  [SMALL_STATE(8648)] = 173711,
+  [SMALL_STATE(8649)] = 173719,
+  [SMALL_STATE(8650)] = 173727,
+  [SMALL_STATE(8651)] = 173735,
+  [SMALL_STATE(8652)] = 173743,
+  [SMALL_STATE(8653)] = 173751,
+  [SMALL_STATE(8654)] = 173759,
+  [SMALL_STATE(8655)] = 173767,
+  [SMALL_STATE(8656)] = 173775,
+  [SMALL_STATE(8657)] = 173783,
+  [SMALL_STATE(8658)] = 173791,
+  [SMALL_STATE(8659)] = 173799,
+  [SMALL_STATE(8660)] = 173807,
+  [SMALL_STATE(8661)] = 173815,
+  [SMALL_STATE(8662)] = 173823,
+  [SMALL_STATE(8663)] = 173831,
+  [SMALL_STATE(8664)] = 173839,
+  [SMALL_STATE(8665)] = 173847,
+  [SMALL_STATE(8666)] = 173855,
+  [SMALL_STATE(8667)] = 173863,
+  [SMALL_STATE(8668)] = 173871,
+  [SMALL_STATE(8669)] = 173879,
+  [SMALL_STATE(8670)] = 173887,
+  [SMALL_STATE(8671)] = 173895,
+  [SMALL_STATE(8672)] = 173903,
+  [SMALL_STATE(8673)] = 173911,
+  [SMALL_STATE(8674)] = 173919,
+  [SMALL_STATE(8675)] = 173927,
+  [SMALL_STATE(8676)] = 173935,
+  [SMALL_STATE(8677)] = 173943,
+  [SMALL_STATE(8678)] = 173951,
+  [SMALL_STATE(8679)] = 173959,
+  [SMALL_STATE(8680)] = 173967,
+  [SMALL_STATE(8681)] = 173975,
+  [SMALL_STATE(8682)] = 173983,
+  [SMALL_STATE(8683)] = 173991,
+  [SMALL_STATE(8684)] = 173999,
 };
 
 static const TSParseActionEntry ts_parse_actions[] = {
   [0] = {.entry = {.count = 0, .reusable = false}},
   [1] = {.entry = {.count = 1, .reusable = false}}, RECOVER(),
   [3] = {.entry = {.count = 1, .reusable = false}}, SHIFT_EXTRA(),
-  [5] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_translation_unit, 0, 0, 0),
-  [7] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3581),
+  [5] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_translation_unit, 0),
+  [7] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3627),
   [9] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4101),
-  [11] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3246),
-  [13] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4115),
-  [15] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7438),
-  [17] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2999),
-  [19] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3092),
+  [11] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3267),
+  [13] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4106),
+  [15] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7423),
+  [17] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3149),
+  [19] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3141),
   [21] = {.entry = {.count = 1, .reusable = true}}, SHIFT_EXTRA(),
-  [23] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4057),
-  [25] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3118),
-  [27] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3647),
-  [29] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3215),
-  [31] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8521),
-  [33] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3399),
+  [23] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4010),
+  [25] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3096),
+  [27] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3704),
+  [29] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3212),
+  [31] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8425),
+  [33] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3395),
   [35] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1661),
-  [37] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4709),
-  [39] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4012),
-  [41] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3953),
-  [43] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4018),
-  [45] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8394),
-  [47] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8459),
-  [49] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2718),
-  [51] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7472),
-  [53] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3961),
+  [37] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4727),
+  [39] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4018),
+  [41] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3957),
+  [43] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4048),
+  [45] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8359),
+  [47] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8343),
+  [49] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2765),
+  [51] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7448),
+  [53] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3965),
   [55] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5678),
-  [57] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3801),
-  [59] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2644),
+  [57] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3814),
+  [59] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2650),
   [61] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1724),
-  [63] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1725),
-  [65] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6871),
-  [67] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3463),
-  [69] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3518),
-  [71] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3379),
-  [73] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3427),
-  [75] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1726),
-  [77] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3181),
-  [79] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4398),
-  [81] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3179),
-  [83] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8340),
-  [85] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8526),
-  [87] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7646),
+  [63] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1721),
+  [65] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6698),
+  [67] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3474),
+  [69] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3601),
+  [71] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3369),
+  [73] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3420),
+  [75] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1739),
+  [77] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3180),
+  [79] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4396),
+  [81] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3182),
+  [83] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8211),
+  [85] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8199),
+  [87] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7496),
   [89] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2670),
-  [91] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8578),
-  [93] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2683),
-  [95] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4702),
-  [97] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3203),
-  [99] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5357),
-  [101] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7473),
-  [103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(614),
-  [105] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4722),
+  [91] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8150),
+  [93] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2745),
+  [95] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4688),
+  [97] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3208),
+  [99] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5383),
+  [101] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7641),
+  [103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(615),
+  [105] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4758),
   [107] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1663),
-  [109] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2991),
-  [111] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7358),
-  [113] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3165),
-  [115] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8250),
-  [117] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6421),
-  [119] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7199),
+  [109] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2973),
+  [111] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7681),
+  [113] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3171),
+  [115] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7874),
+  [117] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6448),
+  [119] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6873),
   [121] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1666),
   [123] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3335),
-  [125] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4750),
-  [127] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7621),
-  [129] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8672),
-  [131] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4674),
-  [133] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7509),
-  [135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7498),
-  [137] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7455),
-  [139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4683),
-  [141] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7849),
-  [143] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4871),
-  [145] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2675),
-  [147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7601),
-  [149] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8196),
-  [151] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4774),
-  [153] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8241),
-  [155] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8349),
-  [157] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2714),
-  [159] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6214),
-  [161] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7812),
+  [125] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4773),
+  [127] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7648),
+  [129] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7845),
+  [131] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4686),
+  [133] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7652),
+  [135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7655),
+  [137] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7658),
+  [139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4657),
+  [141] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7818),
+  [143] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4805),
+  [145] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2676),
+  [147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7662),
+  [149] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7811),
+  [151] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4768),
+  [153] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7806),
+  [155] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7792),
+  [157] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2742),
+  [159] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6231),
+  [161] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7786),
   [163] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3172),
-  [165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2997),
-  [167] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8267),
-  [169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1830),
-  [171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1831),
-  [173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3459),
-  [175] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3703),
-  [177] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4513),
-  [179] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4752),
-  [181] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4688),
-  [183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4698),
-  [185] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8197),
+  [165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2980),
+  [167] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7779),
+  [169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1786),
+  [171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1788),
+  [173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3483),
+  [175] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3675),
+  [177] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4623),
+  [179] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4759),
+  [181] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4703),
+  [183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4702),
+  [185] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7748),
   [187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4706),
-  [189] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4458),
-  [191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1662),
-  [193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4736),
-  [195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3357),
-  [197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8204),
-  [199] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3517),
-  [201] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4175),
-  [203] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3295),
-  [205] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 2, 0, 15),
-  [207] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4134),
+  [189] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4441),
+  [191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1664),
+  [193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4765),
+  [195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3352),
+  [197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8641),
+  [199] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3558),
+  [201] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4222),
+  [203] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3325),
+  [205] = {.entry = {.count = 1, .reusable = false}}, SHIFT(959),
+  [207] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4089),
   [209] = {.entry = {.count = 1, .reusable = false}}, SHIFT(47),
-  [211] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3221),
-  [213] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4108),
-  [215] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7675),
-  [217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(11),
-  [219] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3068),
-  [221] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3816),
-  [223] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1735),
-  [225] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1736),
-  [227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(234),
-  [229] = {.entry = {.count = 1, .reusable = false}}, SHIFT(820),
-  [231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(15),
-  [233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(228),
-  [235] = {.entry = {.count = 1, .reusable = false}}, SHIFT(918),
-  [237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(18),
-  [239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(237),
-  [241] = {.entry = {.count = 1, .reusable = false}}, SHIFT(814),
+  [211] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3235),
+  [213] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4202),
+  [215] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7468),
+  [217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(25),
+  [219] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3150),
+  [221] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3690),
+  [223] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1720),
+  [225] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1726),
+  [227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(225),
+  [229] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 2, .production_id = 15),
+  [231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(17),
+  [233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(239),
+  [235] = {.entry = {.count = 1, .reusable = false}}, SHIFT(834),
+  [237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(10),
+  [239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(231),
+  [241] = {.entry = {.count = 1, .reusable = false}}, SHIFT(929),
   [243] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8),
-  [245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(232),
-  [247] = {.entry = {.count = 1, .reusable = false}}, SHIFT(945),
-  [249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(13),
-  [251] = {.entry = {.count = 1, .reusable = false}}, SHIFT(948),
-  [253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(24),
-  [255] = {.entry = {.count = 1, .reusable = false}}, SHIFT(835),
-  [257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(227),
-  [259] = {.entry = {.count = 1, .reusable = false}}, SHIFT(955),
-  [261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(233),
-  [263] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 3, 0, 68),
-  [265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(239),
-  [267] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, 0, 15),
-  [269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(225),
-  [271] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 4, 0, 131),
-  [273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(229),
-  [275] = {.entry = {.count = 1, .reusable = false}}, SHIFT(953),
-  [277] = {.entry = {.count = 1, .reusable = false}}, SHIFT(821),
-  [279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(230),
-  [281] = {.entry = {.count = 1, .reusable = false}}, SHIFT(822),
-  [283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(231),
-  [285] = {.entry = {.count = 1, .reusable = false}}, SHIFT(827),
-  [287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(235),
-  [289] = {.entry = {.count = 1, .reusable = false}}, SHIFT(922),
-  [291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(238),
-  [293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(923),
-  [295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(226),
-  [297] = {.entry = {.count = 1, .reusable = false}}, SHIFT(932),
-  [299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(240),
-  [301] = {.entry = {.count = 1, .reusable = false}}, SHIFT(834),
-  [303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(236),
-  [305] = {.entry = {.count = 1, .reusable = false}}, SHIFT(934),
-  [307] = {.entry = {.count = 1, .reusable = false}}, SHIFT(836),
-  [309] = {.entry = {.count = 1, .reusable = false}}, SHIFT(951),
-  [311] = {.entry = {.count = 1, .reusable = false}}, SHIFT(952),
-  [313] = {.entry = {.count = 1, .reusable = false}}, SHIFT(961),
-  [315] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3309),
-  [317] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 2, 0, 15),
-  [319] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4158),
-  [321] = {.entry = {.count = 1, .reusable = false}}, SHIFT(49),
-  [323] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3219),
-  [325] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4080),
-  [327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(37),
-  [329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(575),
-  [331] = {.entry = {.count = 1, .reusable = false}}, SHIFT(959),
-  [333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(826),
-  [335] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 4, 0, 68),
-  [337] = {.entry = {.count = 1, .reusable = false}}, SHIFT(829),
-  [339] = {.entry = {.count = 1, .reusable = false}}, SHIFT(831),
-  [341] = {.entry = {.count = 1, .reusable = false}}, SHIFT(937),
-  [343] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 4, 0, 15),
-  [345] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 3, 0, 68),
-  [347] = {.entry = {.count = 1, .reusable = false}}, SHIFT(925),
-  [349] = {.entry = {.count = 1, .reusable = false}}, SHIFT(931),
-  [351] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 3, 0, 15),
-  [353] = {.entry = {.count = 1, .reusable = false}}, SHIFT(912),
-  [355] = {.entry = {.count = 1, .reusable = false}}, SHIFT(935),
-  [357] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 5, 0, 131),
-  [359] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 4, 0, 131),
-  [361] = {.entry = {.count = 1, .reusable = false}}, SHIFT(910),
-  [363] = {.entry = {.count = 1, .reusable = false}}, SHIFT(942),
-  [365] = {.entry = {.count = 1, .reusable = false}}, SHIFT(824),
-  [367] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3517),
-  [370] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4175),
-  [373] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3309),
-  [376] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0),
-  [378] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4158),
-  [381] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7675),
-  [384] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2999),
-  [387] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3092),
-  [390] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4057),
-  [393] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3068),
-  [396] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3816),
-  [399] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3215),
-  [402] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8521),
-  [405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3399),
-  [408] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1661),
-  [411] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4709),
-  [414] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4012),
-  [417] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [420] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4018),
-  [423] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8394),
-  [426] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8459),
-  [429] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2718),
-  [432] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7472),
-  [435] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3961),
-  [438] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(5678),
-  [441] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3801),
-  [444] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2644),
-  [447] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1724),
-  [450] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1725),
-  [453] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(6871),
-  [456] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3463),
-  [459] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3518),
-  [462] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3379),
-  [465] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3427),
-  [468] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1726),
-  [471] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3181),
-  [474] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4398),
-  [477] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3179),
-  [480] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8340),
-  [483] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [486] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7646),
-  [489] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2670),
-  [492] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8578),
-  [495] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2683),
-  [498] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4702),
-  [501] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [504] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(5357),
-  [507] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7473),
-  [510] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(575),
-  [513] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4722),
-  [516] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1663),
-  [519] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2991),
-  [522] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7358),
-  [525] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3165),
-  [528] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8250),
-  [531] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(6421),
-  [534] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [537] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1666),
-  [540] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3335),
-  [543] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4750),
-  [546] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7621),
-  [549] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8672),
-  [552] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4674),
-  [555] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7509),
-  [558] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7498),
-  [561] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7455),
-  [564] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4683),
-  [567] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7849),
-  [570] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4871),
-  [573] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2675),
-  [576] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7601),
-  [579] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8196),
-  [582] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4774),
-  [585] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8241),
-  [588] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8349),
-  [591] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2714),
-  [594] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(6214),
-  [597] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7812),
-  [600] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3172),
-  [603] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(2997),
-  [606] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8267),
-  [609] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1830),
-  [612] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1831),
-  [615] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3459),
-  [618] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3703),
-  [621] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4513),
-  [624] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4752),
-  [627] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4688),
-  [630] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4698),
-  [633] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8197),
-  [636] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4706),
-  [639] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4458),
-  [642] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(1662),
-  [645] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4736),
-  [648] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3357),
-  [651] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(8204),
-  [654] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3547),
-  [656] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4192),
-  [658] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3302),
-  [660] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 1, 0, 0),
-  [662] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4149),
-  [664] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7615),
-  [666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(48),
-  [668] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3126),
-  [670] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3730),
-  [672] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1747),
-  [674] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1748),
-  [676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(560),
-  [678] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 2, 0, 0),
-  [680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(562),
-  [682] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3313),
-  [684] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 1, 0, 0),
-  [686] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4164),
-  [688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(52),
-  [690] = {.entry = {.count = 1, .reusable = true}}, SHIFT(620),
-  [692] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0),
-  [694] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3581),
-  [697] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4101),
-  [700] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3246),
-  [703] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4115),
-  [706] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7438),
-  [709] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3118),
-  [712] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3647),
-  [715] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(614),
-  [718] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_translation_unit, 1, 0, 0),
-  [720] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 2, 0, 0),
-  [722] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3547),
-  [725] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4192),
-  [728] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3313),
-  [731] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(4164),
-  [734] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(7615),
-  [737] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3126),
-  [740] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(3730),
-  [743] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2, 0, 0), SHIFT_REPEAT(620),
-  [746] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 3, 0, 0),
-  [748] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3549),
-  [750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4194),
-  [752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3236),
-  [754] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4170),
-  [756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(199),
-  [758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3235),
-  [760] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4129),
-  [762] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7641),
-  [764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(65),
-  [766] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3204),
-  [768] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8215),
-  [770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3791),
-  [772] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1749),
-  [774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1750),
-  [776] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3174),
-  [778] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3851),
-  [780] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4693),
-  [782] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3852),
-  [784] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8604),
-  [786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(219),
-  [788] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1335),
-  [790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(68),
-  [792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(213),
-  [794] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1226),
-  [796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(70),
-  [798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(215),
-  [800] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1256),
-  [802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(62),
-  [804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(217),
-  [806] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1199),
-  [808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(216),
-  [810] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1271),
-  [812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(218),
-  [814] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1272),
-  [816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(220),
-  [818] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1284),
-  [820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(221),
-  [822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(224),
-  [824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(223),
-  [826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(222),
-  [828] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1302),
-  [830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(210),
-  [832] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1216),
-  [834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(211),
-  [836] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1300),
-  [838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(212),
-  [840] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1308),
-  [842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(214),
-  [844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1311),
-  [846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(209),
-  [848] = {.entry = {.count = 1, .reusable = false}}, SHIFT(197),
-  [850] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3217),
-  [852] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4079),
-  [854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(79),
-  [856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(277),
-  [858] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1238),
-  [860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(78),
-  [862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(251),
-  [864] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1326),
-  [866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(265),
-  [868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(262),
-  [870] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1213),
-  [872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(245),
-  [874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(276),
-  [876] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1212),
-  [878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(273),
-  [880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(249),
-  [882] = {.entry = {.count = 1, .reusable = false}}, SHIFT(198),
-  [884] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3220),
-  [886] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4081),
-  [888] = {.entry = {.count = 1, .reusable = true}}, SHIFT(96),
-  [890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(315),
-  [892] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1257),
-  [894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(107),
-  [896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(435),
-  [898] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1336),
-  [900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(115),
-  [902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(304),
-  [904] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1240),
-  [906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(101),
+  [245] = {.entry = {.count = 1, .reusable = false}}, SHIFT(836),
+  [247] = {.entry = {.count = 1, .reusable = true}}, SHIFT(20),
+  [249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(227),
+  [251] = {.entry = {.count = 1, .reusable = false}}, SHIFT(921),
+  [253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(15),
+  [255] = {.entry = {.count = 1, .reusable = false}}, SHIFT(927),
+  [257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(238),
+  [259] = {.entry = {.count = 1, .reusable = false}}, SHIFT(936),
+  [261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(228),
+  [263] = {.entry = {.count = 1, .reusable = false}}, SHIFT(816),
+  [265] = {.entry = {.count = 1, .reusable = false}}, SHIFT(814),
+  [267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(229),
+  [269] = {.entry = {.count = 1, .reusable = false}}, SHIFT(949),
+  [271] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 4, .production_id = 131),
+  [273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(232),
+  [275] = {.entry = {.count = 1, .reusable = false}}, SHIFT(831),
+  [277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(226),
+  [279] = {.entry = {.count = 1, .reusable = false}}, SHIFT(928),
+  [281] = {.entry = {.count = 1, .reusable = false}}, SHIFT(958),
+  [283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(230),
+  [285] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, .production_id = 15),
+  [287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(236),
+  [289] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 3, .production_id = 68),
+  [291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(235),
+  [293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(941),
+  [295] = {.entry = {.count = 1, .reusable = false}}, SHIFT(820),
+  [297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(233),
+  [299] = {.entry = {.count = 1, .reusable = false}}, SHIFT(823),
+  [301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(237),
+  [303] = {.entry = {.count = 1, .reusable = false}}, SHIFT(951),
+  [305] = {.entry = {.count = 1, .reusable = false}}, SHIFT(917),
+  [307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(234),
+  [309] = {.entry = {.count = 1, .reusable = false}}, SHIFT(832),
+  [311] = {.entry = {.count = 1, .reusable = false}}, SHIFT(910),
+  [313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(240),
+  [315] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3275),
+  [317] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 2, .production_id = 15),
+  [319] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4223),
+  [321] = {.entry = {.count = 1, .reusable = false}}, SHIFT(48),
+  [323] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3223),
+  [325] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4195),
+  [327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(36),
+  [329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(610),
+  [331] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 3, .production_id = 68),
+  [333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(961),
+  [335] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 5, .production_id = 131),
+  [337] = {.entry = {.count = 1, .reusable = false}}, SHIFT(938),
+  [339] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 4, .production_id = 15),
+  [341] = {.entry = {.count = 1, .reusable = false}}, SHIFT(956),
+  [343] = {.entry = {.count = 1, .reusable = false}}, SHIFT(950),
+  [345] = {.entry = {.count = 1, .reusable = false}}, SHIFT(925),
+  [347] = {.entry = {.count = 1, .reusable = false}}, SHIFT(824),
+  [349] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef, 3, .production_id = 15),
+  [351] = {.entry = {.count = 1, .reusable = false}}, SHIFT(818),
+  [353] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 4, .production_id = 131),
+  [355] = {.entry = {.count = 1, .reusable = false}}, SHIFT(911),
+  [357] = {.entry = {.count = 1, .reusable = false}}, SHIFT(945),
+  [359] = {.entry = {.count = 1, .reusable = false}}, SHIFT(822),
+  [361] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif, 4, .production_id = 68),
+  [363] = {.entry = {.count = 1, .reusable = false}}, SHIFT(962),
+  [365] = {.entry = {.count = 1, .reusable = false}}, SHIFT(833),
+  [367] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3558),
+  [370] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4222),
+  [373] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3275),
+  [376] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2),
+  [378] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4223),
+  [381] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7468),
+  [384] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3149),
+  [387] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3141),
+  [390] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4010),
+  [393] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3150),
+  [396] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3690),
+  [399] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3212),
+  [402] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8425),
+  [405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3395),
+  [408] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1661),
+  [411] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4727),
+  [414] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4018),
+  [417] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3957),
+  [420] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4048),
+  [423] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8359),
+  [426] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8343),
+  [429] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2765),
+  [432] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7448),
+  [435] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3965),
+  [438] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(5678),
+  [441] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3814),
+  [444] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2650),
+  [447] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1724),
+  [450] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1721),
+  [453] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(6698),
+  [456] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3474),
+  [459] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3601),
+  [462] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3369),
+  [465] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3420),
+  [468] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1739),
+  [471] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3180),
+  [474] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4396),
+  [477] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3182),
+  [480] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8211),
+  [483] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8199),
+  [486] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7496),
+  [489] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2670),
+  [492] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8150),
+  [495] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2745),
+  [498] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4688),
+  [501] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3208),
+  [504] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(5383),
+  [507] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7641),
+  [510] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(610),
+  [513] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4758),
+  [516] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1663),
+  [519] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2973),
+  [522] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7681),
+  [525] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3171),
+  [528] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7874),
+  [531] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(6448),
+  [534] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(6873),
+  [537] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1666),
+  [540] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3335),
+  [543] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4773),
+  [546] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7648),
+  [549] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7845),
+  [552] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4686),
+  [555] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7652),
+  [558] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7655),
+  [561] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7658),
+  [564] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4657),
+  [567] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7818),
+  [570] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4805),
+  [573] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2676),
+  [576] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7662),
+  [579] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7811),
+  [582] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4768),
+  [585] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7806),
+  [588] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7792),
+  [591] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2742),
+  [594] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(6231),
+  [597] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7786),
+  [600] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3172),
+  [603] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2980),
+  [606] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7779),
+  [609] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1786),
+  [612] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1788),
+  [615] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3483),
+  [618] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3675),
+  [621] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4623),
+  [624] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4759),
+  [627] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4703),
+  [630] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4702),
+  [633] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7748),
+  [636] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4706),
+  [639] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4441),
+  [642] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(1664),
+  [645] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4765),
+  [648] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3352),
+  [651] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(8641),
+  [654] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3531),
+  [656] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4088),
+  [658] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3316),
+  [660] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 1),
+  [662] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4124),
+  [664] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7678),
+  [666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(49),
+  [668] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2976),
+  [670] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3684),
+  [672] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1758),
+  [674] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1757),
+  [676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(549),
+  [678] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3263),
+  [680] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 1),
+  [682] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4119),
+  [684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(54),
+  [686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(609),
+  [688] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 2),
+  [690] = {.entry = {.count = 1, .reusable = true}}, SHIFT(545),
+  [692] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3531),
+  [695] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4088),
+  [698] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3263),
+  [701] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4119),
+  [704] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7678),
+  [707] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(2976),
+  [710] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3684),
+  [713] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(609),
+  [716] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 3),
+  [718] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2),
+  [720] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3627),
+  [723] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4101),
+  [726] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3267),
+  [729] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(4106),
+  [732] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(7423),
+  [735] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3096),
+  [738] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(3704),
+  [741] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_translation_unit_repeat1, 2), SHIFT_REPEAT(615),
+  [744] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else, 2),
+  [746] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_translation_unit, 1),
+  [748] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3528),
+  [750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4122),
+  [752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3254),
+  [754] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1254),
+  [756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4140),
+  [758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(198),
+  [760] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3232),
+  [762] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4155),
+  [764] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7670),
+  [766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(62),
+  [768] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3207),
+  [770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8046),
+  [772] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3650),
+  [774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1755),
+  [776] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1754),
+  [778] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3173),
+  [780] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3928),
+  [782] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4699),
+  [784] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3912),
+  [786] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8604),
+  [788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(210),
+  [790] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1309),
+  [792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(68),
+  [794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(209),
+  [796] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1328),
+  [798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(66),
+  [800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(222),
+  [802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(69),
+  [804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(211),
+  [806] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1303),
+  [808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(224),
+  [810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(213),
+  [812] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1207),
+  [814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(219),
+  [816] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1223),
+  [818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(215),
+  [820] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1325),
+  [822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(212),
+  [824] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1331),
+  [826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(221),
+  [828] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1297),
+  [830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(214),
+  [832] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1317),
+  [834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(220),
+  [836] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1220),
+  [838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(216),
+  [840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(217),
+  [842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(218),
+  [844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1332),
+  [846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(223),
+  [848] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1329),
+  [850] = {.entry = {.count = 1, .reusable = false}}, SHIFT(197),
+  [852] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3226),
+  [854] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4156),
+  [856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(78),
+  [858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(277),
+  [860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(76),
+  [862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(262),
+  [864] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1247),
+  [866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(272),
+  [868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(267),
+  [870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(257),
+  [872] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1250),
+  [874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(263),
+  [876] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1318),
+  [878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(271),
+  [880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(255),
+  [882] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1239),
+  [884] = {.entry = {.count = 1, .reusable = false}}, SHIFT(199),
+  [886] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3216),
+  [888] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4205),
+  [890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(91),
+  [892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(471),
+  [894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(97),
+  [896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(310),
+  [898] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1271),
+  [900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(89),
+  [902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(307),
+  [904] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1307),
+  [906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(118),
   [908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(306),
-  [910] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1314),
-  [912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(117),
-  [914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(308),
-  [916] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1225),
-  [918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(335),
-  [920] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1242),
-  [922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(307),
-  [924] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 4, 0, 68),
-  [926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(333),
-  [928] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1247),
-  [930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(316),
-  [932] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1250),
-  [934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(320),
-  [936] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, 0, 15),
-  [938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(334),
-  [940] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1252),
-  [942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(321),
+  [910] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1249),
+  [912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(87),
+  [914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(419),
+  [916] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1258),
+  [918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(316),
+  [920] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1255),
+  [922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(304),
+  [924] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1281),
+  [926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(395),
+  [928] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1206),
+  [930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(393),
+  [932] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1311),
+  [934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(365),
+  [936] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1253),
+  [938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(429),
+  [940] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1316),
+  [942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(335),
   [944] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1236),
-  [946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(332),
-  [948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(311),
-  [950] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1261),
-  [952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(325),
-  [954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(336),
-  [956] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1273),
-  [958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(464),
-  [960] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1274),
-  [962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(314),
-  [964] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 131),
-  [966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(350),
-  [968] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1330),
-  [970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(341),
-  [972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(351),
-  [974] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1332),
-  [976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(342),
-  [978] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1259),
-  [980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(346),
-  [982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1228),
-  [984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(305),
-  [986] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1292),
-  [988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(331),
-  [990] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1298),
-  [992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(352),
-  [994] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1304),
-  [996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(356),
-  [998] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1307),
-  [1000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(357),
-  [1002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1323),
-  [1004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(361),
-  [1006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1329),
-  [1008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(309),
-  [1010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1318),
-  [1012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(337),
-  [1014] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3536),
-  [1016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4186),
-  [1018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3298),
-  [1020] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4140),
-  [1022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7526),
-  [1024] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3152),
-  [1026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3778),
-  [1028] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1745),
-  [1030] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1746),
-  [1032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(478),
-  [1034] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2966),
-  [1036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3676),
-  [1038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(508),
-  [1040] = {.entry = {.count = 1, .reusable = true}}, SHIFT(479),
-  [1042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3568),
-  [1044] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4216),
-  [1046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3305),
-  [1048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4153),
-  [1050] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7374),
-  [1052] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3132),
-  [1054] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3723),
-  [1056] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1758),
-  [1058] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1759),
-  [1060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(503),
-  [1062] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3098),
-  [1064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3645),
-  [1066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(477),
-  [1068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3049),
-  [1070] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3753),
-  [1072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(534),
-  [1074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(536),
-  [1076] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3532),
-  [1078] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4184),
-  [1080] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3254),
-  [1082] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4139),
-  [1084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7485),
-  [1086] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3148),
-  [1088] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3640),
-  [1090] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1741),
-  [1092] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1742),
-  [1094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(531),
-  [1096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(480),
-  [1098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(525),
-  [1100] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3050),
-  [1102] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3643),
-  [1104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(532),
-  [1106] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3031),
-  [1108] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3689),
-  [1110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(483),
-  [1112] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3035),
-  [1114] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3691),
-  [1116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(484),
-  [1118] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3006),
-  [1120] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3666),
-  [1122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(535),
-  [1124] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3081),
-  [1126] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3693),
-  [1128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(537),
-  [1130] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3100),
-  [1132] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3700),
-  [1134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(538),
-  [1136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(539),
-  [1138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(475),
-  [1140] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2984),
-  [1142] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3772),
-  [1144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(476),
-  [1146] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2970),
-  [1148] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3727),
-  [1150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(485),
-  [1152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(486),
-  [1154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(474),
-  [1156] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2989),
-  [1158] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3738),
-  [1160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(489),
-  [1162] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2992),
-  [1164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3741),
-  [1166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(490),
-  [1168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(472),
-  [1170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(481),
-  [1172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(482),
-  [1174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(530),
-  [1176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(533),
-  [1178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(473),
-  [1180] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3026),
-  [1182] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3756),
-  [1184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(492),
-  [1186] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3041),
-  [1188] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3763),
-  [1190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(495),
-  [1192] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3047),
-  [1194] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3764),
-  [1196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(496),
-  [1198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(487),
-  [1200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(488),
-  [1202] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3105),
-  [1204] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3780),
-  [1206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(497),
-  [1208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(498),
-  [1210] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3114),
-  [1212] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3785),
-  [1214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(501),
-  [1216] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3120),
-  [1218] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3786),
-  [1220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(502),
-  [1222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(493),
-  [1224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(494),
-  [1226] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3144),
-  [1228] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3803),
-  [1230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(504),
-  [1232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(505),
-  [1234] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2955),
-  [1236] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3810),
-  [1238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(540),
-  [1240] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2958),
-  [1242] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3814),
-  [1244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(509),
-  [1246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(499),
-  [1248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(500),
-  [1250] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2972),
-  [1252] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3639),
-  [1254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(510),
-  [1256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(511),
-  [1258] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2980),
-  [1260] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3646),
-  [1262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(514),
-  [1264] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2983),
-  [1266] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3649),
-  [1268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(515),
-  [1270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(506),
-  [1272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(507),
-  [1274] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3000),
-  [1276] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3660),
-  [1278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(518),
-  [1280] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3002),
-  [1282] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3661),
-  [1284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(519),
-  [1286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(512),
-  [1288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(513),
-  [1290] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3014),
-  [1292] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3673),
-  [1294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(522),
-  [1296] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3017),
-  [1298] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3675),
-  [1300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(523),
-  [1302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(516),
-  [1304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(517),
-  [1306] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3033),
-  [1308] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3692),
-  [1310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(528),
-  [1312] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3036),
-  [1314] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3695),
-  [1316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(529),
-  [1318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(520),
-  [1320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(521),
-  [1322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(526),
-  [1324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(527),
-  [1326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(491),
-  [1328] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3515),
-  [1330] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4133),
-  [1332] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3294),
-  [1334] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4144),
-  [1336] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7330),
-  [1338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(596),
-  [1340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(609),
-  [1342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(577),
-  [1344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(572),
-  [1346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(615),
-  [1348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(587),
-  [1350] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3560),
-  [1352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4208),
-  [1354] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3322),
-  [1356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4179),
-  [1358] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7345),
+  [946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(430),
+  [948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(460),
+  [950] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1214),
+  [952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(452),
+  [954] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1287),
+  [956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(457),
+  [958] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1204),
+  [960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(326),
+  [962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(423),
+  [964] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1229),
+  [966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(328),
+  [968] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1221),
+  [970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(305),
+  [972] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1323),
+  [974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(456),
+  [976] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 4, .production_id = 68),
+  [978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(416),
+  [980] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1266),
+  [982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(387),
+  [984] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 131),
+  [986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(324),
+  [988] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, .production_id = 15),
+  [990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(417),
+  [992] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1275),
+  [994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(461),
+  [996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(322),
+  [998] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1263),
+  [1000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(383),
+  [1002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1290),
+  [1004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(368),
+  [1006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1217),
+  [1008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(315),
+  [1010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1240),
+  [1012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(372),
+  [1014] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3560),
+  [1016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4219),
+  [1018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3332),
+  [1020] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4188),
+  [1022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7613),
+  [1024] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2963),
+  [1026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3796),
+  [1028] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1763),
+  [1030] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1760),
+  [1032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(519),
+  [1034] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3583),
+  [1036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4218),
+  [1038] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3260),
+  [1040] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4136),
+  [1042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7547),
+  [1044] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3061),
+  [1046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3685),
+  [1048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1741),
+  [1050] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1738),
+  [1052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(507),
+  [1054] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3037),
+  [1056] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3774),
+  [1058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(480),
+  [1060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3538),
+  [1062] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4130),
+  [1064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3302),
+  [1066] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4104),
+  [1068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7577),
+  [1070] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2972),
+  [1072] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3634),
+  [1074] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1712),
+  [1076] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1711),
+  [1078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(498),
+  [1080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(497),
+  [1082] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3024),
+  [1084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3766),
+  [1086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(496),
+  [1088] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3018),
+  [1090] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3736),
+  [1092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(479),
+  [1094] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3159),
+  [1096] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3771),
+  [1098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(494),
+  [1100] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2995),
+  [1102] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3669),
+  [1104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(489),
+  [1106] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2998),
+  [1108] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3691),
+  [1110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(474),
+  [1112] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3079),
+  [1114] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3705),
+  [1116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(483),
+  [1118] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3100),
+  [1120] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3654),
+  [1122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(508),
+  [1124] = {.entry = {.count = 1, .reusable = true}}, SHIFT(491),
+  [1126] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3156),
+  [1128] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3717),
+  [1130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(505),
+  [1132] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3088),
+  [1134] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3682),
+  [1136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(484),
+  [1138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(529),
+  [1140] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2997),
+  [1142] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3711),
+  [1144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(538),
+  [1146] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2994),
+  [1148] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3707),
+  [1150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(540),
+  [1152] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3025),
+  [1154] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3762),
+  [1156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(475),
+  [1158] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2978),
+  [1160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3731),
+  [1162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(513),
+  [1164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(477),
+  [1166] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2982),
+  [1168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3643),
+  [1170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(516),
+  [1172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3049),
+  [1174] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3806),
+  [1176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(476),
+  [1178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(511),
+  [1180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(502),
+  [1182] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3064),
+  [1184] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3710),
+  [1186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(472),
+  [1188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(492),
+  [1190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(490),
+  [1192] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3089),
+  [1194] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3637),
+  [1196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(520),
+  [1198] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3131),
+  [1200] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3649),
+  [1202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(473),
+  [1204] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3132),
+  [1206] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3662),
+  [1208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(503),
+  [1210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(526),
+  [1212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(536),
+  [1214] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3042),
+  [1216] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3651),
+  [1218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(485),
+  [1220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(537),
+  [1222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(539),
+  [1224] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3144),
+  [1226] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3789),
+  [1228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(527),
+  [1230] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3137),
+  [1232] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3668),
+  [1234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(533),
+  [1236] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3140),
+  [1238] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3676),
+  [1240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(530),
+  [1242] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3157),
+  [1244] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3721),
+  [1246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(506),
+  [1248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(481),
+  [1250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(504),
+  [1252] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3074),
+  [1254] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3813),
+  [1256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(528),
+  [1258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(482),
+  [1260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(525),
+  [1262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(531),
+  [1264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(487),
+  [1266] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3136),
+  [1268] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3659),
+  [1270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(488),
+  [1272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(478),
+  [1274] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2984),
+  [1276] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3801),
+  [1278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(522),
+  [1280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(524),
+  [1282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(486),
+  [1284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(499),
+  [1286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(509),
+  [1288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(510),
+  [1290] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3095),
+  [1292] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3678),
+  [1294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(501),
+  [1296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(523),
+  [1298] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3066),
+  [1300] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3671),
+  [1302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(521),
+  [1304] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2965),
+  [1306] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3677),
+  [1308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(518),
+  [1310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(512),
+  [1312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(493),
+  [1314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(515),
+  [1316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(500),
+  [1318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(535),
+  [1320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(495),
+  [1322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(514),
+  [1324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(534),
+  [1326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(517),
+  [1328] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3603),
+  [1330] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4087),
+  [1332] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3240),
+  [1334] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4135),
+  [1336] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7603),
+  [1338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(606),
+  [1340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(581),
+  [1342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(598),
+  [1344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(603),
+  [1346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(600),
+  [1348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(619),
+  [1350] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3575),
+  [1352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4102),
+  [1354] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3241),
+  [1356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4226),
+  [1358] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7606),
   [1360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(203),
-  [1362] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1755),
-  [1364] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1756),
-  [1366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(629),
-  [1368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(204),
-  [1370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(632),
-  [1372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(202),
+  [1362] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1749),
+  [1364] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1748),
+  [1366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(627),
+  [1368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(200),
+  [1370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(630),
+  [1372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(201),
   [1374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(639),
-  [1376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(638),
-  [1378] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 3, 0, 0),
-  [1380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(636),
-  [1382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(634),
-  [1384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(635),
-  [1386] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3525),
-  [1388] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4180),
-  [1390] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3304),
-  [1392] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4151),
-  [1394] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7604),
-  [1396] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4726),
-  [1398] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1737),
-  [1400] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1738),
-  [1402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(672),
-  [1404] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3879),
-  [1406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(673),
-  [1408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(694),
-  [1410] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3559),
-  [1412] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4207),
-  [1414] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7341),
-  [1416] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3205),
-  [1418] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3206),
-  [1420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(561),
+  [1376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(623),
+  [1378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(633),
+  [1380] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 3),
+  [1382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(624),
+  [1384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(625),
+  [1386] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3618),
+  [1388] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4167),
+  [1390] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3305),
+  [1392] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4098),
+  [1394] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7364),
+  [1396] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4775),
+  [1398] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1727),
+  [1400] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1729),
+  [1402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(658),
+  [1404] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3867),
+  [1406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(674),
+  [1408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(697),
+  [1410] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3580),
+  [1412] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4083),
+  [1414] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7609),
+  [1416] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3206),
+  [1418] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3202),
+  [1420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(568),
   [1422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1665),
-  [1424] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1301),
-  [1426] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1218),
-  [1428] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1208),
-  [1430] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1198),
-  [1432] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1285),
-  [1434] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1294),
-  [1436] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3550),
-  [1438] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4196),
-  [1440] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3318),
-  [1442] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4173),
-  [1444] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7668),
-  [1446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(524),
-  [1448] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1194),
-  [1450] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1235),
+  [1424] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1228),
+  [1426] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1310),
+  [1428] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1319),
+  [1430] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1295),
+  [1432] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1213),
+  [1434] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1327),
+  [1436] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3572),
+  [1438] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4074),
+  [1440] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3250),
+  [1442] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1197),
+  [1444] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4114),
+  [1446] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7657),
+  [1448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(532),
+  [1450] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1120),
   [1452] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1119),
-  [1454] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1115),
-  [1456] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1114),
-  [1458] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1243),
-  [1460] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1116),
-  [1462] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1195),
-  [1464] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1197),
-  [1466] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1193),
-  [1468] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1995),
-  [1470] = {.entry = {.count = 1, .reusable = false}}, SHIFT(610),
-  [1472] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3225),
-  [1474] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4077),
-  [1476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(279),
-  [1478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(280),
-  [1480] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 2, 0, 15),
-  [1482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(268),
-  [1484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(269),
-  [1486] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2036),
-  [1488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(255),
-  [1490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(256),
-  [1492] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1976),
-  [1494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(246),
-  [1496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(248),
-  [1498] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1988),
-  [1500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(263),
-  [1502] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1977),
-  [1504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(266),
-  [1506] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2008),
-  [1508] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1994),
-  [1510] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2057),
-  [1512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(258),
-  [1514] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2058),
-  [1516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(260),
-  [1518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(264),
-  [1520] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2073),
-  [1522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(261),
-  [1524] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1931),
-  [1526] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1979),
-  [1528] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2074),
-  [1530] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2001),
-  [1532] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2023),
-  [1534] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 3, 0, 68),
-  [1536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(271),
-  [1538] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, 0, 15),
-  [1540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(272),
-  [1542] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, 0, 131),
-  [1544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(274),
-  [1546] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, 0, 68),
-  [1548] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, 0, 15),
-  [1550] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, 0, 131),
-  [1552] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1987),
-  [1554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(253),
-  [1556] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2028),
-  [1558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(247),
-  [1560] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2031),
-  [1562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(252),
-  [1564] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1714),
-  [1566] = {.entry = {.count = 1, .reusable = false}}, SHIFT(579),
-  [1568] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3224),
-  [1570] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4123),
-  [1572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(372),
-  [1574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(373),
-  [1576] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2097),
-  [1578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(339),
-  [1580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(340),
-  [1582] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2019),
-  [1584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(393),
-  [1586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(394),
-  [1588] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 2, 0, 15),
-  [1590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(329),
-  [1592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(330),
-  [1594] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2311),
-  [1596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(408),
-  [1598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(409),
-  [1600] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2325),
-  [1602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(354),
-  [1604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(355),
-  [1606] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1668),
-  [1608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(379),
-  [1610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(380),
-  [1612] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2022),
-  [1614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(312),
-  [1616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(313),
-  [1618] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1871),
-  [1620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(386),
-  [1622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(387),
-  [1624] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2076),
-  [1626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(416),
-  [1628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(417),
-  [1630] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2366),
-  [1632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(365),
-  [1634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(366),
-  [1636] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2303),
-  [1638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(318),
-  [1640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(319),
-  [1642] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1699),
-  [1644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(423),
-  [1646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(424),
-  [1648] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2117),
-  [1650] = {.entry = {.count = 1, .reusable = true}}, SHIFT(430),
-  [1652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(431),
-  [1654] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1870),
-  [1656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(400),
-  [1658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(401),
-  [1660] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2442),
-  [1662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(437),
-  [1664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(438),
-  [1666] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1933),
-  [1668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(444),
-  [1670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(445),
-  [1672] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2173),
-  [1674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(451),
-  [1676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(452),
-  [1678] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1835),
-  [1680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(458),
-  [1682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(459),
-  [1684] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2195),
-  [1686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(466),
-  [1688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(467),
-  [1690] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2128),
-  [1692] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2206),
-  [1694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1972),
-  [1696] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1214),
-  [1698] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2004),
-  [1700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(406),
-  [1702] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2015),
-  [1704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(303),
-  [1706] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2322),
-  [1708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(322),
-  [1710] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2323),
-  [1712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(324),
-  [1714] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1267),
-  [1716] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2353),
-  [1718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(326),
-  [1720] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2354),
-  [1722] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1275),
-  [1724] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2371),
-  [1726] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2040),
-  [1728] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 3, 0, 68),
-  [1730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(349),
-  [1732] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 3, 0, 15),
-  [1734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(471),
-  [1736] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1269),
-  [1738] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 68),
-  [1740] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, 0, 15),
-  [1742] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2143),
-  [1744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(343),
-  [1746] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2145),
-  [1748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(345),
-  [1750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1237),
-  [1752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2282),
+  [1454] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1233),
+  [1456] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1192),
+  [1458] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1118),
+  [1460] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1196),
+  [1462] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1116),
+  [1464] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1285),
+  [1466] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1194),
+  [1468] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2019),
+  [1470] = {.entry = {.count = 1, .reusable = false}}, SHIFT(592),
+  [1472] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3233),
+  [1474] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4143),
+  [1476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(274),
+  [1478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(270),
+  [1480] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 2, .production_id = 15),
+  [1482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(273),
+  [1484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(260),
+  [1486] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2022),
+  [1488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(253),
+  [1490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(275),
+  [1492] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1970),
+  [1494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(278),
+  [1496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(279),
+  [1498] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, .production_id = 68),
+  [1500] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1941),
+  [1502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(269),
+  [1504] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2055),
+  [1506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(252),
+  [1508] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, .production_id = 131),
+  [1510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(264),
+  [1512] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2051),
+  [1514] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2017),
+  [1516] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2052),
+  [1518] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2040),
+  [1520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(250),
+  [1522] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1944),
+  [1524] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1958),
+  [1526] = {.entry = {.count = 1, .reusable = true}}, SHIFT(251),
+  [1528] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, .production_id = 15),
+  [1530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(280),
+  [1532] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, .production_id = 15),
+  [1534] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2039),
+  [1536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(247),
+  [1538] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, .production_id = 131),
+  [1540] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1921),
+  [1542] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2020),
+  [1544] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1918),
+  [1546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(254),
+  [1548] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1957),
+  [1550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(258),
+  [1552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(266),
+  [1554] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_procedure_statements, 3, .production_id = 68),
+  [1556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(245),
+  [1558] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1938),
+  [1560] = {.entry = {.count = 1, .reusable = true}}, SHIFT(265),
+  [1562] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2074),
+  [1564] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2293),
+  [1566] = {.entry = {.count = 1, .reusable = false}}, SHIFT(580),
+  [1568] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3228),
+  [1570] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4221),
+  [1572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(390),
+  [1574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(389),
+  [1576] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1699),
+  [1578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(465),
+  [1580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(455),
+  [1582] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2388),
+  [1584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(345),
+  [1586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(343),
+  [1588] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1895),
+  [1590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(428),
+  [1592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(433),
+  [1594] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1984),
+  [1596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(403),
+  [1598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(401),
+  [1600] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2124),
+  [1602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(459),
+  [1604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(302),
+  [1606] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1923),
+  [1608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(408),
+  [1610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(410),
+  [1612] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1867),
+  [1614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(394),
+  [1616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(396),
+  [1618] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2210),
+  [1620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(317),
+  [1622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(313),
+  [1624] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2212),
+  [1626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(432),
+  [1628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(431),
+  [1630] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 2, .production_id = 15),
+  [1632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(362),
+  [1634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(364),
+  [1636] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2338),
+  [1638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(381),
+  [1640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(377),
+  [1642] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2047),
+  [1644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(319),
+  [1646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(309),
+  [1648] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2083),
+  [1650] = {.entry = {.count = 1, .reusable = true}}, SHIFT(444),
+  [1652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(445),
+  [1654] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1722),
+  [1656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(325),
+  [1658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(339),
+  [1660] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1774),
+  [1662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(359),
+  [1664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(357),
+  [1666] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2317),
+  [1668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(332),
+  [1670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(331),
+  [1672] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2189),
+  [1674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(441),
+  [1676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(442),
+  [1678] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1673),
+  [1680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(370),
+  [1682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(371),
+  [1684] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2568),
+  [1686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(420),
+  [1688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(418),
+  [1690] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2276),
+  [1692] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2081),
+  [1694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2125),
+  [1696] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1264),
+  [1698] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2056),
+  [1700] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2045),
+  [1702] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1994),
+  [1704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(348),
+  [1706] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2178),
+  [1708] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2352),
+  [1710] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1336),
+  [1712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(344),
+  [1714] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2377),
+  [1716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(308),
+  [1718] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2380),
+  [1720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(314),
+  [1722] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2195),
+  [1724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(303),
+  [1726] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 6, .production_id = 131),
+  [1728] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1698),
+  [1730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(356),
+  [1732] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1284),
+  [1734] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 4, .production_id = 15),
+  [1736] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 4, .production_id = 68),
+  [1738] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 4, .production_id = 131),
+  [1740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(351),
+  [1742] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2387),
+  [1744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(318),
+  [1746] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2369),
+  [1748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(321),
+  [1750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2307),
+  [1752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1703),
   [1754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(347),
-  [1756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2283),
-  [1758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1253),
-  [1760] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2290),
-  [1762] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 4, 0, 131),
-  [1764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(363),
-  [1766] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 4, 0, 68),
-  [1768] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 6, 0, 131),
-  [1770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2331),
-  [1772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(358),
-  [1774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2332),
-  [1776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(360),
-  [1778] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1328),
-  [1780] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2340),
-  [1782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(362),
-  [1784] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2341),
-  [1786] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1201),
-  [1788] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2348),
-  [1790] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 5, 0, 131),
-  [1792] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2372),
-  [1794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(367),
-  [1796] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2373),
-  [1798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(369),
-  [1800] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2377),
-  [1802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(370),
-  [1804] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2378),
-  [1806] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2381),
-  [1808] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1723),
-  [1810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(374),
-  [1812] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1727),
-  [1814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(376),
-  [1816] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1753),
-  [1818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(377),
-  [1820] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1761),
-  [1822] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1729),
-  [1824] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1669),
-  [1826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(381),
-  [1828] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1670),
-  [1830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(383),
-  [1832] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1671),
-  [1834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(384),
-  [1836] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1672),
-  [1838] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1673),
-  [1840] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1878),
-  [1842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(388),
-  [1844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1902),
-  [1846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(390),
-  [1848] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1883),
-  [1850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(391),
-  [1852] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1884),
-  [1854] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1888),
-  [1856] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2027),
-  [1858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(395),
-  [1860] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2032),
-  [1862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(397),
-  [1864] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2041),
-  [1866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(398),
-  [1868] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2044),
-  [1870] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2054),
-  [1872] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1864),
-  [1874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(402),
-  [1876] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1867),
-  [1878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(404),
-  [1880] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1881),
-  [1882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(405),
-  [1884] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1872),
-  [1886] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1873),
-  [1888] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1996),
-  [1890] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2319),
-  [1892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(410),
-  [1894] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2324),
-  [1896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(412),
-  [1898] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2330),
-  [1900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(413),
-  [1902] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2335),
-  [1904] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2342),
-  [1906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(327),
-  [1908] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2079),
-  [1910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(418),
-  [1912] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2080),
-  [1914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(420),
-  [1916] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2084),
-  [1918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(421),
-  [1920] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2085),
-  [1922] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2090),
-  [1924] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1700),
-  [1926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(425),
-  [1928] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1701),
-  [1930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(427),
-  [1932] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1702),
-  [1934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(428),
-  [1936] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1703),
-  [1938] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1704),
-  [1940] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2120),
-  [1942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(432),
-  [1944] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2121),
-  [1946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(434),
-  [1948] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2124),
-  [1950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(301),
-  [1952] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2125),
-  [1954] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2465),
-  [1956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(439),
-  [1958] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2471),
-  [1960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(441),
-  [1962] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2499),
-  [1964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(442),
-  [1966] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2500),
-  [1968] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2509),
-  [1970] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1938),
-  [1972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(446),
-  [1974] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1940),
-  [1976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(448),
-  [1978] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1966),
-  [1980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(449),
-  [1982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1967),
-  [1984] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1973),
-  [1986] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2176),
-  [1988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(453),
-  [1990] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2177),
-  [1992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(455),
-  [1994] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2180),
-  [1996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(456),
-  [1998] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2181),
-  [2000] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2184),
-  [2002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1801),
-  [2004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(460),
-  [2006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1802),
-  [2008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(462),
-  [2010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1803),
-  [2012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(463),
-  [2014] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1804),
-  [2016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1805),
-  [2018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2198),
-  [2020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(468),
-  [2022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2199),
-  [2024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(470),
-  [2026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2202),
-  [2028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(302),
-  [2030] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2203),
-  [2032] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 4, 0, 15),
-  [2034] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3558),
-  [2036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4206),
-  [2038] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3301),
-  [2040] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4074),
-  [2042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7337),
-  [2044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(631),
-  [2046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3557),
-  [2048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4205),
-  [2050] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3237),
-  [2052] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4113),
-  [2054] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7333),
-  [2056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(633),
-  [2058] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3573),
-  [2060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4221),
-  [2062] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3308),
-  [2064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4156),
-  [2066] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7393),
-  [2068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(626),
-  [2070] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3550),
-  [2073] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4196),
-  [2076] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3318),
-  [2079] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0),
-  [2081] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4173),
-  [2084] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7668),
-  [2087] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(2999),
-  [2090] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3092),
-  [2093] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3204),
-  [2096] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(1661),
-  [2099] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4709),
-  [2102] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [2105] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3205),
-  [2108] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3206),
-  [2111] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(524),
-  [2114] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4722),
-  [2117] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(1663),
-  [2120] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(2991),
-  [2123] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7358),
-  [2126] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3165),
-  [2129] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8250),
-  [2132] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(6421),
-  [2135] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [2138] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3335),
-  [2141] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4750),
-  [2144] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7621),
-  [2147] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8672),
-  [2150] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4674),
-  [2153] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7509),
-  [2156] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7498),
-  [2159] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7455),
-  [2162] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4683),
-  [2165] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7849),
-  [2168] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4871),
-  [2171] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(2675),
-  [2174] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7601),
-  [2177] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8196),
-  [2180] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4774),
-  [2183] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(2714),
-  [2186] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(6214),
-  [2189] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7812),
-  [2192] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3172),
-  [2195] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(2997),
-  [2198] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8267),
-  [2201] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(1830),
-  [2204] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(1831),
-  [2207] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3459),
-  [2210] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3703),
-  [2213] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4513),
-  [2216] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4752),
-  [2219] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4688),
-  [2222] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4698),
-  [2225] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8197),
-  [2228] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4706),
-  [2231] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4458),
-  [2234] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(1665),
-  [2237] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4736),
-  [2240] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3357),
-  [2243] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(8204),
-  [2246] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(3571),
-  [2249] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(4219),
-  [2252] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(3326),
-  [2255] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(4187),
-  [2258] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(7386),
-  [2261] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(3204),
-  [2264] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 195),
-  [2266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(563),
-  [2268] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 8, 0, 195), SHIFT(1665),
-  [2271] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(3571),
-  [2274] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(4219),
-  [2277] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(3326),
-  [2280] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(4187),
-  [2283] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(7386),
-  [2286] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(3204),
-  [2289] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 8, 0, 196),
-  [2291] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 8, 0, 196), SHIFT(1665),
-  [2294] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(3571),
-  [2297] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(4219),
-  [2300] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(3326),
-  [2303] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(4187),
-  [2306] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(7386),
-  [2309] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(3204),
-  [2312] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 183),
-  [2314] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, 0, 183), SHIFT(1665),
-  [2317] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(3571),
-  [2320] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(4219),
-  [2323] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(3326),
-  [2326] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(4187),
-  [2329] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(7386),
-  [2332] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(3204),
-  [2335] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 2, 0, 0),
-  [2337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(559),
-  [2339] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 2, 0, 0), SHIFT(1665),
-  [2342] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(3571),
-  [2345] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(4219),
-  [2348] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(3326),
-  [2351] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(4187),
-  [2354] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(7386),
-  [2357] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(3204),
-  [2360] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 4, 0, 0),
-  [2362] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 4, 0, 0), SHIFT(1665),
-  [2365] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(3571),
-  [2368] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(4219),
-  [2371] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(3326),
-  [2374] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(4187),
-  [2377] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(7386),
-  [2380] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(3204),
-  [2383] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 195),
-  [2385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(550),
-  [2387] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, 0, 195), SHIFT(1665),
-  [2390] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(3571),
-  [2393] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(4219),
-  [2396] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(3326),
-  [2399] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(4187),
-  [2402] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(7386),
-  [2405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(3204),
-  [2408] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 195),
-  [2410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(541),
-  [2412] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, 0, 195), SHIFT(1665),
-  [2415] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3551),
-  [2417] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4198),
-  [2419] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3320),
-  [2421] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4176),
-  [2423] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7681),
-  [2425] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4720),
-  [2427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(567),
-  [2429] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7733),
-  [2431] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3877),
-  [2433] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3513),
-  [2435] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(3571),
-  [2438] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(4219),
-  [2441] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(3326),
-  [2444] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(4187),
-  [2447] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(7386),
-  [2450] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(3204),
-  [2453] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 184),
-  [2455] = {.entry = {.count = 1, .reusable = true}}, SHIFT(564),
-  [2457] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, 0, 184), SHIFT(1665),
-  [2460] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(3571),
-  [2463] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(4219),
-  [2466] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(3326),
-  [2469] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(4187),
-  [2472] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(7386),
-  [2475] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(3204),
-  [2478] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, 0, 196),
-  [2480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(555),
-  [2482] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, 0, 196), SHIFT(1665),
-  [2485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(644),
-  [2487] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(3571),
-  [2490] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(4219),
-  [2493] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(3326),
-  [2496] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(4187),
-  [2499] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(7386),
-  [2502] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(3204),
-  [2505] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 196),
-  [2507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(542),
-  [2509] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, 0, 196), SHIFT(1665),
-  [2512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(553),
-  [2514] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(3571),
-  [2517] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(4219),
-  [2520] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(3326),
-  [2523] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(4187),
-  [2526] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(7386),
-  [2529] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(3204),
-  [2532] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 183),
-  [2534] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, 0, 183), SHIFT(1665),
-  [2537] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(3571),
-  [2540] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(4219),
-  [2543] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(3326),
-  [2546] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(4187),
-  [2549] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(7386),
-  [2552] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(3204),
-  [2555] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 3, 0, 0),
-  [2557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(545),
-  [2559] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 3, 0, 0), SHIFT(1665),
-  [2562] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3561),
-  [2564] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4209),
-  [2566] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3323),
-  [2568] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4181),
-  [2570] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7349),
-  [2572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(643),
-  [2574] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3559),
-  [2577] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4207),
-  [2580] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3236),
-  [2583] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4170),
-  [2586] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7341),
-  [2589] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(561),
-  [2592] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3571),
-  [2595] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4219),
-  [2598] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3326),
-  [2601] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4187),
-  [2604] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7386),
-  [2607] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(563),
-  [2610] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(3571),
-  [2613] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(4219),
-  [2616] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(3326),
-  [2619] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(4187),
-  [2622] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(7386),
-  [2625] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(3204),
-  [2628] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, 0, 184),
-  [2630] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, 0, 184), SHIFT(1665),
-  [2633] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(3571),
-  [2636] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(4219),
-  [2639] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(3326),
-  [2642] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(4187),
-  [2645] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(7386),
-  [2648] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(3204),
-  [2651] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 183),
-  [2653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(543),
-  [2655] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 5, 0, 183), SHIFT(1665),
-  [2658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(557),
-  [2660] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(3571),
-  [2663] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(4219),
-  [2666] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(3326),
-  [2669] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(4187),
-  [2672] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(7386),
-  [2675] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(3204),
-  [2678] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 5, 0, 184),
-  [2680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(551),
-  [2682] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 5, 0, 184), SHIFT(1665),
-  [2685] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3578),
-  [2687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4227),
-  [2689] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3331),
-  [2691] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4197),
-  [2693] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7408),
-  [2695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(580),
-  [2697] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3578),
-  [2700] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4227),
-  [2703] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3331),
-  [2706] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4197),
-  [2709] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7408),
-  [2712] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(570),
-  [2715] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3563),
-  [2717] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4211),
-  [2719] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3324),
-  [2721] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4183),
-  [2723] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7356),
-  [2725] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4723),
-  [2727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(718),
-  [2729] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3160),
-  [2731] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3740),
-  [2733] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4724),
-  [2735] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3626),
-  [2737] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4172),
-  [2739] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3282),
-  [2741] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4093),
-  [2743] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7478),
-  [2745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(657),
-  [2747] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144),
-  [2749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(570),
-  [2751] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0),
-  [2753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(588),
-  [2755] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144),
-  [2757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(597),
-  [2759] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3569),
-  [2761] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4217),
-  [2763] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 1, 0, 0),
-  [2765] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7378),
-  [2767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(627),
-  [2769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(623),
-  [2771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(595),
-  [2773] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0),
-  [2775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(603),
-  [2777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(571),
-  [2779] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 144),
-  [2781] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0),
-  [2783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(604),
-  [2785] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 7, 0, 0),
-  [2787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(608),
-  [2789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(607),
-  [2791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(617),
+  [1756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2326),
+  [1758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2328),
+  [1760] = {.entry = {.count = 1, .reusable = true}}, SHIFT(334),
+  [1762] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2029),
+  [1764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(312),
+  [1766] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2119),
+  [1768] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2335),
+  [1770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2123),
+  [1772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(337),
+  [1774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2336),
+  [1776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(342),
+  [1778] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1690),
+  [1780] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1911),
+  [1782] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1766),
+  [1784] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1770),
+  [1786] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 5, .production_id = 131),
+  [1788] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1771),
+  [1790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(349),
+  [1792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(358),
+  [1794] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_statements, 3, .production_id = 68),
+  [1796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(329),
+  [1798] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1687),
+  [1800] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1772),
+  [1802] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1706),
+  [1804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(350),
+  [1806] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1773),
+  [1808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(355),
+  [1810] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2366),
+  [1812] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_statements, 3, .production_id = 15),
+  [1814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(327),
+  [1816] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2142),
+  [1818] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2359),
+  [1820] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2354),
+  [1822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(361),
+  [1824] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1335),
+  [1826] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1682),
+  [1828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(378),
+  [1830] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1681),
+  [1832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(380),
+  [1834] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1256),
+  [1836] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2200),
+  [1838] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2202),
+  [1840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(363),
+  [1842] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2346),
+  [1844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1667),
+  [1846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(382),
+  [1848] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1680),
+  [1850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(366),
+  [1852] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1676),
+  [1854] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1219),
+  [1856] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2343),
+  [1858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(373),
+  [1860] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1974),
+  [1862] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1977),
+  [1864] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1978),
+  [1866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(385),
+  [1868] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2253),
+  [1870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(374),
+  [1872] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2255),
+  [1874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(376),
+  [1876] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1869),
+  [1878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(398),
+  [1880] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1871),
+  [1882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(400),
+  [1884] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1878),
+  [1886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(402),
+  [1888] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1880),
+  [1890] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1981),
+  [1892] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1887),
+  [1894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(386),
+  [1896] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1982),
+  [1898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(397),
+  [1900] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2517),
+  [1902] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2536),
+  [1904] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1929),
+  [1906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(411),
+  [1908] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1931),
+  [1910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(413),
+  [1912] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2539),
+  [1914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(405),
+  [1916] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1943),
+  [1918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(414),
+  [1920] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1946),
+  [1922] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1953),
+  [1924] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 68),
+  [1926] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, .production_id = 15),
+  [1928] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2556),
+  [1930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(406),
+  [1932] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2558),
+  [1934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(415),
+  [1936] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2234),
+  [1938] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2226),
+  [1940] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1870),
+  [1942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(435),
+  [1944] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2224),
+  [1946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(422),
+  [1948] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1868),
+  [1950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(437),
+  [1952] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2218),
+  [1954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(424),
+  [1956] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2216),
+  [1958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(427),
+  [1960] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1900),
+  [1962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(438),
+  [1964] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1898),
+  [1966] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1896),
+  [1968] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1693),
+  [1970] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2245),
+  [1972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(301),
+  [1974] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2246),
+  [1976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(463),
+  [1978] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2087),
+  [1980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(446),
+  [1982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2089),
+  [1984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(448),
+  [1986] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2092),
+  [1988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(449),
+  [1990] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2099),
+  [1992] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2103),
+  [1994] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1694),
+  [1996] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2312),
+  [1998] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1695),
+  [2000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(439),
+  [2002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1696),
+  [2004] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1242),
+  [2006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2130),
+  [2008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(467),
+  [2010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(469),
+  [2012] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1200),
+  [2014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(341),
+  [2016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2277),
+  [2018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(451),
+  [2020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(450),
+  [2022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1697),
+  [2024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(454),
+  [2026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2140),
+  [2028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(470),
+  [2030] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2149),
+  [2032] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2157),
+  [2034] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3592),
+  [2036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4080),
+  [2038] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3307),
+  [2040] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4163),
+  [2042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7614),
+  [2044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(638),
+  [2046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3594),
+  [2048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4189),
+  [2050] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3299),
+  [2052] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4149),
+  [2054] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7556),
+  [2056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(634),
+  [2058] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3582),
+  [2060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4109),
+  [2062] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3248),
+  [2064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4215),
+  [2066] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7620),
+  [2068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(635),
+  [2070] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3572),
+  [2073] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4074),
+  [2076] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3250),
+  [2079] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2),
+  [2081] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4114),
+  [2084] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7657),
+  [2087] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3149),
+  [2090] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3141),
+  [2093] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3207),
+  [2096] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(1661),
+  [2099] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4727),
+  [2102] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3208),
+  [2105] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3206),
+  [2108] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3202),
+  [2111] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(532),
+  [2114] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4758),
+  [2117] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(1663),
+  [2120] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(2973),
+  [2123] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7681),
+  [2126] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3171),
+  [2129] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7874),
+  [2132] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(6448),
+  [2135] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(6873),
+  [2138] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3335),
+  [2141] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4773),
+  [2144] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7648),
+  [2147] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7845),
+  [2150] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4686),
+  [2153] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7652),
+  [2156] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7655),
+  [2159] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7658),
+  [2162] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4657),
+  [2165] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7818),
+  [2168] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4805),
+  [2171] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(2676),
+  [2174] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7662),
+  [2177] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7811),
+  [2180] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4768),
+  [2183] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(2742),
+  [2186] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(6231),
+  [2189] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7786),
+  [2192] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3172),
+  [2195] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(2980),
+  [2198] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7779),
+  [2201] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(1786),
+  [2204] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(1788),
+  [2207] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3483),
+  [2210] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3675),
+  [2213] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4623),
+  [2216] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4759),
+  [2219] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4703),
+  [2222] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4702),
+  [2225] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7748),
+  [2228] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4706),
+  [2231] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4441),
+  [2234] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(1665),
+  [2237] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4765),
+  [2240] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3352),
+  [2243] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(8641),
+  [2246] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(3578),
+  [2249] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(4225),
+  [2252] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(3284),
+  [2255] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(4078),
+  [2258] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(7561),
+  [2261] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 3), SHIFT(3207),
+  [2264] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 3),
+  [2266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(542),
+  [2268] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 3), SHIFT(1665),
+  [2271] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3578),
+  [2274] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4225),
+  [2277] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3284),
+  [2280] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4078),
+  [2283] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7561),
+  [2286] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(542),
+  [2289] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3614),
+  [2291] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4180),
+  [2293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3243),
+  [2295] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4084),
+  [2297] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7645),
+  [2299] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4754),
+  [2301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(644),
+  [2303] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8585),
+  [2305] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3899),
+  [2307] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3475),
+  [2309] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(3578),
+  [2312] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(4225),
+  [2315] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(3284),
+  [2318] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(4078),
+  [2321] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(7561),
+  [2324] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(3207),
+  [2327] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 183),
+  [2329] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, .production_id = 183), SHIFT(1665),
+  [2332] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3571),
+  [2334] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4115),
+  [2336] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3238),
+  [2338] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4199),
+  [2340] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7602),
+  [2342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(649),
+  [2344] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(3578),
+  [2347] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(4225),
+  [2350] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(3284),
+  [2353] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(4078),
+  [2356] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(7561),
+  [2359] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(3207),
+  [2362] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 184),
+  [2364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(552),
+  [2366] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 5, .production_id = 184), SHIFT(1665),
+  [2369] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(3578),
+  [2372] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(4225),
+  [2375] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(3284),
+  [2378] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(4078),
+  [2381] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(7561),
+  [2384] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(3207),
+  [2387] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 195),
+  [2389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(567),
+  [2391] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, .production_id = 195), SHIFT(1665),
+  [2394] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(3578),
+  [2397] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(4225),
+  [2400] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(3284),
+  [2403] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(4078),
+  [2406] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(7561),
+  [2409] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(3207),
+  [2412] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 5, .production_id = 183),
+  [2414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(559),
+  [2416] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 5, .production_id = 183), SHIFT(1665),
+  [2419] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(3578),
+  [2422] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(4225),
+  [2425] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(3284),
+  [2428] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(4078),
+  [2431] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(7561),
+  [2434] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(3207),
+  [2437] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 184),
+  [2439] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, .production_id = 184), SHIFT(1665),
+  [2442] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(3578),
+  [2445] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(4225),
+  [2448] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(3284),
+  [2451] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(4078),
+  [2454] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(7561),
+  [2457] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(3207),
+  [2460] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 196),
+  [2462] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 8, .production_id = 196), SHIFT(1665),
+  [2465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(555),
+  [2467] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(3578),
+  [2470] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(4225),
+  [2473] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(3284),
+  [2476] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(4078),
+  [2479] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(7561),
+  [2482] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 4), SHIFT(3207),
+  [2485] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 4),
+  [2487] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 4), SHIFT(1665),
+  [2490] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(3578),
+  [2493] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(4225),
+  [2496] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(3284),
+  [2499] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(4078),
+  [2502] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(7561),
+  [2505] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(3207),
+  [2508] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 184),
+  [2510] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, .production_id = 184), SHIFT(1665),
+  [2513] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(3578),
+  [2516] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(4225),
+  [2519] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(3284),
+  [2522] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(4078),
+  [2525] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(7561),
+  [2528] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(3207),
+  [2531] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 7, .production_id = 196),
+  [2533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(553),
+  [2535] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 7, .production_id = 196), SHIFT(1665),
+  [2538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(556),
+  [2540] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(3578),
+  [2543] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(4225),
+  [2546] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(3284),
+  [2549] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(4078),
+  [2552] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(7561),
+  [2555] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(3207),
+  [2558] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 183),
+  [2560] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, .production_id = 183), SHIFT(1665),
+  [2563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(544),
+  [2565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(551),
+  [2567] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(3578),
+  [2570] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(4225),
+  [2573] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(3284),
+  [2576] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(4078),
+  [2579] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(7561),
+  [2582] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(3207),
+  [2585] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 196),
+  [2587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(563),
+  [2589] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, .production_id = 196), SHIFT(1665),
+  [2592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(543),
+  [2594] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(3578),
+  [2597] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(4225),
+  [2600] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(3284),
+  [2603] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(4078),
+  [2606] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(7561),
+  [2609] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 2), SHIFT(3207),
+  [2612] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 2),
+  [2614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(541),
+  [2616] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 2), SHIFT(1665),
+  [2619] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(3578),
+  [2622] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(4225),
+  [2625] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(3284),
+  [2628] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(4078),
+  [2631] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(7561),
+  [2634] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(3207),
+  [2637] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 6, .production_id = 195),
+  [2639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(548),
+  [2641] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 6, .production_id = 195), SHIFT(1665),
+  [2644] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(3578),
+  [2647] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(4225),
+  [2650] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(3284),
+  [2653] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(4078),
+  [2656] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(7561),
+  [2659] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(3207),
+  [2662] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_statement, 8, .production_id = 195),
+  [2664] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_type_statement, 8, .production_id = 195), SHIFT(1665),
+  [2667] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3580),
+  [2670] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4083),
+  [2673] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3254),
+  [2676] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4140),
+  [2679] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7609),
+  [2682] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(568),
+  [2685] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3615),
+  [2687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4162),
+  [2689] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3311),
+  [2691] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 7),
+  [2693] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4171),
+  [2695] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7532),
+  [2697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(608),
+  [2699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(618),
+  [2701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(604),
+  [2703] = {.entry = {.count = 1, .reusable = true}}, SHIFT(611),
+  [2705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(602),
+  [2707] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 6),
+  [2709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(569),
+  [2711] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3604),
+  [2713] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4177),
+  [2715] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3279),
+  [2717] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4090),
+  [2719] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7594),
+  [2721] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4743),
+  [2723] = {.entry = {.count = 1, .reusable = true}}, SHIFT(708),
+  [2725] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3160),
+  [2727] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3713),
+  [2729] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4750),
+  [2731] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3542),
+  [2733] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4132),
+  [2735] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 1),
+  [2737] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7573),
+  [2739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(637),
+  [2741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(636),
+  [2743] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3545),
+  [2745] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4169),
+  [2747] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3262),
+  [2749] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4123),
+  [2751] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7612),
+  [2753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(687),
+  [2755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(578),
+  [2757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(582),
+  [2759] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 5),
+  [2761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(594),
+  [2763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(596),
+  [2765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(572),
+  [2767] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144),
+  [2769] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 5),
+  [2771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(576),
+  [2773] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 6),
+  [2775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(620),
+  [2777] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 1),
+  [2779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(629),
+  [2781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(628),
+  [2783] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144),
+  [2785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(607),
+  [2787] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144),
+  [2789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(588),
+  [2791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(590),
   [2793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(621),
-  [2795] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144),
-  [2797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(573),
-  [2799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(576),
-  [2801] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0),
-  [2803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(589),
-  [2805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(618),
-  [2807] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144),
-  [2809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(585),
-  [2811] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0),
-  [2813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(611),
-  [2815] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 1, 0, 0),
-  [2817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(625),
-  [2819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(624),
-  [2821] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144),
-  [2823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(606),
-  [2825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(584),
-  [2827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(592),
-  [2829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(613),
-  [2831] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 2, 0, 0),
-  [2833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(675),
-  [2835] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 2, 0, 0),
-  [2837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(628),
-  [2839] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3573),
-  [2842] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4221),
-  [2845] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3308),
-  [2848] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4156),
-  [2851] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7393),
-  [2854] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(2999),
-  [2857] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3092),
-  [2860] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3204),
-  [2863] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(1661),
-  [2866] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4709),
-  [2869] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0),
-  [2871] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [2874] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3205),
-  [2877] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3206),
-  [2880] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(626),
-  [2883] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4722),
-  [2886] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(1663),
-  [2889] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(2991),
-  [2892] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7358),
-  [2895] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3165),
-  [2898] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8250),
-  [2901] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(6421),
-  [2904] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [2907] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3335),
-  [2910] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4750),
-  [2913] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7621),
-  [2916] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8672),
-  [2919] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4674),
-  [2922] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7509),
-  [2925] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7498),
-  [2928] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7455),
-  [2931] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4683),
-  [2934] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7849),
-  [2937] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4871),
-  [2940] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(2675),
-  [2943] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7601),
-  [2946] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8196),
-  [2949] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4774),
-  [2952] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(2714),
-  [2955] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(6214),
-  [2958] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7812),
-  [2961] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3172),
-  [2964] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(2997),
-  [2967] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8267),
-  [2970] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(1830),
-  [2973] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(1831),
-  [2976] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3459),
-  [2979] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3703),
-  [2982] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4513),
-  [2985] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4752),
-  [2988] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4688),
-  [2991] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4698),
-  [2994] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8197),
-  [2997] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4706),
-  [3000] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4458),
-  [3003] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(1665),
-  [3006] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4736),
-  [3009] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3357),
-  [3012] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(8204),
-  [3015] = {.entry = {.count = 1, .reusable = true}}, SHIFT(637),
-  [3017] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 3, 0, 0),
-  [3019] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3549),
-  [3022] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4194),
-  [3025] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0),
-  [3027] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7641),
-  [3030] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0),
-  [3032] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3204),
-  [3035] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3399),
-  [3038] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [3041] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [3044] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8394),
-  [3047] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8215),
-  [3050] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2718),
-  [3053] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3961),
-  [3056] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(5678),
-  [3059] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3791),
-  [3062] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2644),
-  [3065] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1749),
-  [3068] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1750),
-  [3071] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(6871),
-  [3074] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3463),
-  [3077] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3518),
-  [3080] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3379),
-  [3083] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3427),
-  [3086] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3894),
-  [3089] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3851),
-  [3092] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4693),
-  [3095] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3852),
-  [3098] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8604),
-  [3101] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [3104] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7646),
-  [3107] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2670),
-  [3110] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8578),
-  [3113] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2683),
-  [3116] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4702),
-  [3119] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7473),
-  [3122] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [3125] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2949),
-  [3128] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3208),
-  [3131] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8241),
-  [3134] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8349),
-  [3137] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(6409),
-  [3140] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3558),
-  [3143] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4206),
-  [3146] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3301),
-  [3149] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4074),
-  [3152] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7337),
-  [3155] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(631),
-  [3158] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3557),
-  [3161] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4205),
-  [3164] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(3237),
-  [3167] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(4113),
-  [3170] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(7333),
-  [3173] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0), SHIFT_REPEAT(633),
-  [3176] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 4, 0, 0),
-  [3178] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 3, 0, 0),
-  [3180] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, 0, 0), SHIFT(3204),
-  [3183] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, 0, 0),
-  [3185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(652),
-  [3187] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 2, 0, 0), SHIFT(3204),
-  [3190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(648),
-  [3192] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 2, 0, 0),
-  [3194] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3561),
-  [3197] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4209),
-  [3200] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3323),
-  [3203] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4181),
-  [3206] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7349),
-  [3209] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(643),
-  [3212] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3551),
-  [3215] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4198),
-  [3218] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3320),
-  [3221] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4176),
-  [3224] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7681),
-  [3227] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(644),
-  [3230] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 6, 0, 140), SHIFT(3204),
-  [3233] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 6, 0, 140),
-  [3235] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, 0, 140), SHIFT(3204),
-  [3238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(653),
-  [3240] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, 0, 140),
-  [3242] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, 0, 0), SHIFT(3204),
-  [3245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(640),
-  [3247] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, 0, 0),
-  [3249] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, 0, 140), SHIFT(3204),
-  [3252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(651),
-  [3254] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, 0, 140),
-  [3256] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, 0, 140), SHIFT(3204),
-  [3259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(645),
-  [3261] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, 0, 140),
-  [3263] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, 0, 0), SHIFT(3204),
-  [3266] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, 0, 0),
-  [3268] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(3628),
-  [3271] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(4223),
-  [3274] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(3329),
-  [3277] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(4193),
-  [3280] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(7399),
-  [3283] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(3204),
-  [3286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(698),
-  [3288] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 6, 0, 0), SHIFT(1665),
-  [3291] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3628),
-  [3294] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4223),
-  [3297] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3329),
-  [3300] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4193),
-  [3303] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7399),
-  [3306] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(655),
-  [3309] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3544),
-  [3311] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4190),
-  [3313] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3314),
-  [3315] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4165),
-  [3317] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7592),
-  [3319] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4772),
-  [3321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(664),
-  [3323] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3917),
-  [3325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1664),
-  [3327] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3626),
-  [3330] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4172),
-  [3333] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3282),
-  [3336] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4093),
-  [3339] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7478),
-  [3342] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(657),
-  [3345] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3572),
-  [3347] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4220),
-  [3349] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3327),
-  [3351] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4189),
-  [3353] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7389),
-  [3355] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4759),
-  [3357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(704),
-  [3359] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3901),
-  [3361] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3528),
-  [3363] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4182),
-  [3365] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3310),
-  [3367] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4160),
-  [3369] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7372),
-  [3371] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4735),
-  [3373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(731),
-  [3375] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3817),
-  [3377] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3532),
-  [3380] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4184),
-  [3383] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3300),
-  [3386] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4142),
-  [3389] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7485),
-  [3392] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0),
-  [3394] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0),
-  [3396] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3204),
-  [3399] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3399),
-  [3402] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [3405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [3408] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8394),
-  [3411] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8215),
-  [3414] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(2718),
-  [3417] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3961),
-  [3420] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(5678),
-  [3423] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3791),
-  [3426] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(2644),
-  [3429] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1741),
-  [3432] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1742),
-  [3435] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(6871),
-  [3438] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3463),
-  [3441] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3518),
-  [3444] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3379),
-  [3447] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3427),
-  [3450] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3894),
-  [3453] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3851),
-  [3456] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4693),
-  [3459] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3852),
-  [3462] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8604),
-  [3465] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [3468] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7646),
-  [3471] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(2670),
-  [3474] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8578),
-  [3477] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(2683),
-  [3480] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4702),
-  [3483] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7473),
-  [3486] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [3489] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(2949),
-  [3492] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3208),
-  [3495] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8241),
-  [3498] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(8349),
-  [3501] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(6409),
-  [3504] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(3628),
-  [3507] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(4223),
-  [3510] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(3329),
-  [3513] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(4193),
-  [3516] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(7399),
-  [3519] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(3204),
-  [3522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(655),
-  [3524] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 4, 0, 144), SHIFT(1665),
-  [3527] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3521),
-  [3529] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4178),
-  [3531] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3297),
-  [3533] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4137),
-  [3535] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7497),
-  [3537] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4721),
-  [3539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(678),
-  [3541] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3835),
-  [3543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(659),
-  [3545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(748),
-  [3547] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3564),
-  [3549] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4212),
-  [3551] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3325),
-  [3553] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4185),
-  [3555] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7360),
-  [3557] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4729),
-  [3559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(721),
-  [3561] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3458),
-  [3563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(658),
-  [3565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(665),
-  [3567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(687),
-  [3569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(738),
-  [3571] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3515),
-  [3574] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4133),
-  [3577] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3275),
-  [3580] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4075),
-  [3583] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7330),
-  [3586] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1724),
-  [3589] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1725),
-  [3592] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3553),
-  [3594] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4201),
-  [3596] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7318),
-  [3598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(745),
-  [3600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(685),
-  [3602] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3569),
-  [3605] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4217),
-  [3608] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3322),
-  [3611] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4179),
-  [3614] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7378),
-  [3617] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(675),
-  [3620] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3536),
-  [3623] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4186),
-  [3626] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3307),
-  [3629] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4155),
-  [3632] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7526),
-  [3635] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1745),
-  [3638] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1746),
-  [3641] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(3628),
-  [3644] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(4223),
-  [3647] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(3329),
-  [3650] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(4193),
-  [3653] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(7399),
-  [3656] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(3204),
-  [3659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(661),
-  [3661] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 3, 0, 144), SHIFT(1665),
-  [3664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(681),
-  [3666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(699),
-  [3668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(684),
-  [3670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(692),
-  [3672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(670),
-  [3674] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(3628),
-  [3677] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(4223),
-  [3680] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(3329),
-  [3683] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(4193),
-  [3686] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(7399),
-  [3689] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(3204),
-  [3692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(669),
-  [3694] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 5, 0, 0), SHIFT(1665),
-  [3697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(693),
-  [3699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(695),
-  [3701] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(3628),
-  [3704] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(4223),
-  [3707] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(3329),
-  [3710] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(4193),
-  [3713] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(7399),
-  [3716] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(3204),
-  [3719] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 5, 0, 144), SHIFT(1665),
-  [3722] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3568),
-  [3725] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4216),
-  [3728] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(3312),
-  [3731] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(4162),
-  [3734] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(7374),
-  [3737] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1758),
-  [3740] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2, 0, 0), SHIFT_REPEAT(1759),
-  [3743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(676),
-  [3745] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(3628),
-  [3748] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(4223),
-  [3751] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(3329),
-  [3754] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(4193),
-  [3757] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(7399),
-  [3760] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(3204),
-  [3763] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 7, 0, 0), SHIFT(1665),
-  [3766] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3579),
-  [3768] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4228),
-  [3770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3316),
-  [3772] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4199),
-  [3774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7412),
-  [3776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(717),
-  [3778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(751),
-  [3780] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 7, 0, 194), SHIFT(3204),
-  [3783] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 7, 0, 194), SHIFT(3203),
-  [3786] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 7, 0, 194),
-  [3788] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 7, 0, 194), SHIFT(1665),
-  [3791] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3572),
-  [3794] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4220),
-  [3797] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3327),
-  [3800] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4189),
-  [3803] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7389),
-  [3806] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(704),
-  [3809] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(3576),
-  [3812] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(4224),
-  [3815] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(3330),
-  [3818] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(4195),
-  [3821] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(7402),
-  [3824] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(3204),
-  [3827] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(3206),
-  [3830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(716),
-  [3832] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 4, 0, 144), SHIFT(1665),
-  [3835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(740),
-  [3837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(712),
-  [3839] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 4, 0, 144),
-  [3841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(747),
-  [3843] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3576),
-  [3846] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4224),
-  [3849] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3330),
-  [3852] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4195),
-  [3855] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7402),
-  [3858] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(712),
-  [3861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(741),
-  [3863] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 5, 0, 144),
-  [3865] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3579),
-  [3868] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4228),
-  [3871] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3316),
-  [3874] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4199),
-  [3877] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7412),
-  [3880] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(717),
-  [3883] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3563),
-  [3886] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4211),
-  [3889] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3324),
-  [3892] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4183),
-  [3895] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7356),
-  [3898] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(718),
-  [3901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(742),
-  [3903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(750),
-  [3905] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3564),
-  [3908] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4212),
-  [3911] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3325),
-  [3914] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4185),
-  [3917] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7360),
-  [3920] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(721),
-  [3923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(700),
-  [3925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(706),
-  [3927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(713),
-  [3929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(709),
-  [3931] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 4, 0, 182), SHIFT(3204),
-  [3934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(757),
-  [3936] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 4, 0, 182), SHIFT(3203),
-  [3939] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 4, 0, 182),
-  [3941] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 4, 0, 182), SHIFT(1665),
-  [3944] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(3576),
-  [3947] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(4224),
-  [3950] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(3330),
-  [3953] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(4195),
-  [3956] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(7402),
-  [3959] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(3204),
-  [3962] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(3206),
-  [3965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(710),
-  [3967] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 3, 0, 144), SHIFT(1665),
-  [3970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(715),
-  [3972] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3528),
-  [3975] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4182),
-  [3978] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3310),
-  [3981] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4160),
-  [3984] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7372),
-  [3987] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(731),
-  [3990] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 194), SHIFT(3204),
-  [3993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(755),
-  [3995] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 194), SHIFT(3203),
-  [3998] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 194),
-  [4000] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 5, 0, 194), SHIFT(1665),
-  [4003] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(3576),
-  [4006] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(4224),
-  [4009] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(3330),
-  [4012] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(4195),
-  [4015] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(7402),
-  [4018] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(3204),
-  [4021] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(3206),
-  [4024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(734),
-  [4026] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 5, 0, 0), SHIFT(1665),
-  [4029] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 6, 0, 0),
-  [4031] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3521),
-  [4034] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4178),
-  [4037] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3297),
-  [4040] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4137),
-  [4043] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7497),
-  [4046] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(738),
-  [4049] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 7, 0, 0),
-  [4051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(735),
-  [4053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(708),
-  [4055] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3553),
-  [4058] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4201),
-  [4061] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3304),
-  [4064] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4151),
-  [4067] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7318),
-  [4070] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(745),
-  [4073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(736),
-  [4075] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3544),
-  [4078] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4190),
-  [4081] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3314),
-  [4084] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4165),
-  [4087] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7592),
-  [4090] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(748),
-  [4093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(703),
-  [4095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(737),
-  [4097] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 182), SHIFT(3204),
-  [4100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(756),
-  [4102] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 182), SHIFT(3203),
-  [4105] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 5, 0, 182),
-  [4107] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 5, 0, 182), SHIFT(1665),
-  [4110] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 194), SHIFT(3204),
-  [4113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(702),
-  [4115] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 194), SHIFT(3203),
-  [4118] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 194),
-  [4120] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 6, 0, 194), SHIFT(1665),
-  [4123] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 182), SHIFT(3204),
-  [4126] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 182), SHIFT(3203),
-  [4129] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 6, 0, 182),
-  [4131] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 6, 0, 182), SHIFT(1665),
-  [4134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(724),
-  [4136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(729),
-  [4138] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(3576),
-  [4141] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(4224),
-  [4144] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(3330),
-  [4147] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(4195),
-  [4150] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(7402),
-  [4153] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(3204),
-  [4156] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(3206),
-  [4159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(739),
-  [4161] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 6, 0, 0), SHIFT(1665),
-  [4164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3574),
-  [4166] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4222),
-  [4168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3328),
-  [4170] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4191),
-  [4172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7396),
-  [4174] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 4, 0, 139), SHIFT(3204),
-  [4177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(763),
-  [4179] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 4, 0, 139), SHIFT(3203),
-  [4182] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 4, 0, 139), SHIFT(1665),
-  [4185] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3560),
-  [4188] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4208),
-  [4191] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7345),
-  [4194] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1755),
-  [4197] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1756),
-  [4200] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3574),
-  [4203] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4222),
-  [4206] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(3328),
-  [4209] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(4191),
-  [4212] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(7396),
-  [4215] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0), SHIFT_REPEAT(763),
-  [4218] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 3, 0, 139), SHIFT(3204),
-  [4221] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 3, 0, 139), SHIFT(3203),
-  [4224] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 3, 0, 139), SHIFT(1665),
-  [4227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(761),
-  [4229] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 2, 0, 139), SHIFT(3204),
-  [4232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(764),
-  [4234] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 2, 0, 139), SHIFT(3203),
-  [4237] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 2, 0, 139), SHIFT(1665),
-  [4240] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3525),
-  [4243] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4180),
-  [4246] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7604),
-  [4249] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1737),
-  [4252] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(1738),
-  [4255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(556),
-  [4257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4484),
-  [4259] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4689),
-  [4261] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7654),
-  [4263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(674),
-  [4265] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4701),
-  [4267] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3749),
-  [4269] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4718),
-  [4271] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3944),
-  [4273] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4734),
-  [4275] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3920),
-  [4277] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 3, 0, 15),
-  [4279] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 3, 0, 15),
-  [4281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(880),
-  [4283] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 3, 0, 15),
-  [4285] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 0),
-  [4287] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0),
-  [4289] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 2),
-  [4291] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 2),
-  [4293] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 3),
-  [4295] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 3),
-  [4297] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 5),
-  [4299] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 5),
-  [4301] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 3, 0, 15),
-  [4303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(854),
-  [4305] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 4, 0, 68),
-  [4307] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 4, 0, 68),
-  [4309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(864),
-  [4311] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 4, 0, 68),
-  [4313] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 4, 0, 68),
-  [4315] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, 0, 15),
-  [4317] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 4, 0, 15),
-  [4319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(865),
-  [4321] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, 0, 15),
-  [4323] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 4, 0, 15),
-  [4325] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 4, 0, 69),
-  [4327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(866),
-  [4329] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 4, 0, 69),
-  [4331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(867),
-  [4333] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 4, 0, 15),
-  [4335] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 5, 0, 99),
-  [4337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(871),
-  [4339] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 5, 0, 99),
-  [4341] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 5, 0, 68),
-  [4343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(872),
-  [4345] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 5, 0, 68),
-  [4347] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 5, 0, 68),
-  [4349] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 5, 0, 68),
-  [4351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(873),
-  [4353] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 5, 0, 68),
-  [4355] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, 0, 100),
-  [4357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(906),
-  [4359] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, 0, 100),
-  [4361] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, 0, 15),
-  [4363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(875),
-  [4365] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, 0, 15),
-  [4367] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, 0, 130),
-  [4369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(876),
-  [4371] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, 0, 130),
-  [4373] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, 0, 68),
-  [4375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(877),
-  [4377] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, 0, 68),
-  [4379] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, 0, 132),
-  [4381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(878),
-  [4383] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, 0, 132),
-  [4385] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, 0, 156),
-  [4387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(879),
-  [4389] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, 0, 156),
-  [4391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(881),
-  [4393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(893),
-  [4395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(894),
-  [4397] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 3, 0, 89),
-  [4399] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 3, 0, 89),
-  [4401] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_def, 3, 0, 15),
-  [4403] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_def, 3, 0, 15),
-  [4405] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_def, 4, 0, 67),
-  [4407] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_def, 4, 0, 67),
-  [4409] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_function_def, 4, 0, 35),
-  [4411] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_function_def, 4, 0, 35),
-  [4413] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_function_def, 5, 0, 98),
-  [4415] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_function_def, 5, 0, 98),
-  [4417] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 1, 0, 0),
-  [4419] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 1, 0, 0),
-  [4421] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 2, 0, 0),
-  [4423] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 2, 0, 0),
-  [4425] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 2, 0, 0),
-  [4427] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 2, 0, 0),
-  [4429] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 2, 0, 0),
-  [4431] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 2, 0, 0),
-  [4433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 2, 0, 0),
-  [4435] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 2, 0, 0),
-  [4437] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 3, 0, 0),
-  [4439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 3, 0, 0),
-  [4441] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 3, 0, 0),
-  [4443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 3, 0, 0),
-  [4445] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 2, 0, 45),
-  [4447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 2, 0, 45),
-  [4449] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 3, 0, 0),
-  [4451] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 3, 0, 0),
-  [4453] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 2, 0, 46),
-  [4455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 2, 0, 46),
-  [4457] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 3, 0, 0),
-  [4459] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 3, 0, 0),
-  [4461] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 6, 0, 0),
-  [4463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 6, 0, 0),
-  [4465] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 4, 0, 0),
-  [4467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 4, 0, 0),
-  [4469] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 4, 0, 0),
-  [4471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 4, 0, 0),
-  [4473] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 3, 0, 85),
-  [4475] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 3, 0, 85),
-  [4477] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 3, 0, 45),
-  [4479] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 3, 0, 45),
-  [4481] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 4, 0, 0),
-  [4483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 4, 0, 0),
-  [4485] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 3, 0, 86),
-  [4487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 3, 0, 86),
-  [4489] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 3, 0, 46),
-  [4491] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 3, 0, 46),
-  [4493] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 4, 0, 0),
-  [4495] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 4, 0, 0),
-  [4497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 15),
-  [4499] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 15),
-  [4501] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 15),
-  [4503] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, 0, 69),
-  [4505] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, 0, 69),
-  [4507] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 5, 0, 0),
-  [4509] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 5, 0, 0),
-  [4511] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 4, 0, 85),
-  [4513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 4, 0, 85),
-  [4515] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 4, 0, 86),
-  [4517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 4, 0, 86),
-  [4519] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, 0, 99),
-  [4521] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, 0, 99),
-  [4523] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 68),
-  [4525] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 68),
-  [4527] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 68),
-  [4529] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call, 3, 0, 34),
-  [4531] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call, 3, 0, 34),
-  [4533] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, 0, 15),
-  [4535] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, 0, 15),
-  [4537] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, 0, 130),
-  [4539] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, 0, 130),
-  [4541] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, 0, 68),
-  [4543] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, 0, 68),
-  [4545] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 7, 0, 132),
-  [4547] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 7, 0, 132),
-  [4549] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 8, 0, 156),
-  [4551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 8, 0, 156),
-  [4553] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 3, 0, 0),
-  [4555] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 3, 0, 0),
-  [4557] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 3, 0, 0),
-  [4559] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 3, 0, 0),
-  [4561] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 2, 0, 88),
-  [4563] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 2, 0, 88),
-  [4565] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 4, 0, 0),
-  [4567] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 4, 0, 0),
-  [4569] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 2, 0, 89),
-  [4571] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 2, 0, 89),
-  [4573] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 4, 0, 0),
-  [4575] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 4, 0, 0),
-  [4577] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 3, 0, 122),
-  [4579] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 3, 0, 122),
-  [4581] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 3, 0, 88),
-  [4583] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 3, 0, 88),
-  [4585] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 5, 0, 0),
-  [4587] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 5, 0, 0),
-  [4589] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 3, 0, 123),
-  [4591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 3, 0, 123),
-  [4593] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 5, 0, 0),
-  [4595] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 5, 0, 0),
-  [4597] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 4, 0, 122),
-  [4599] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 4, 0, 122),
-  [4601] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface, 2, 0, 0),
-  [4603] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface, 2, 0, 0),
-  [4605] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 2, 0, 47),
-  [4607] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 2, 0, 47),
-  [4609] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface, 3, 0, 0),
-  [4611] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface, 3, 0, 0),
-  [4613] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 3, 0, 87),
-  [4615] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 3, 0, 87),
-  [4617] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 3, 0, 47),
-  [4619] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 3, 0, 47),
-  [4621] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 4, 0, 87),
-  [4623] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 4, 0, 87),
-  [4625] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 6, 0, 0),
-  [4627] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 6, 0, 0),
-  [4629] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call, 2, 0, 10),
-  [4631] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call, 2, 0, 10),
-  [4633] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 4, 0, 123),
-  [4635] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 4, 0, 123),
-  [4637] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_include, 3, 0, 32),
-  [4639] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_include, 3, 0, 32),
-  [4641] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, 0, 100),
-  [4643] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, 0, 100),
-  [4645] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3554),
-  [4647] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4202),
-  [4649] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2693),
-  [4651] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1118),
-  [4653] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3230),
-  [4655] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4109),
-  [4657] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7322),
-  [4659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(954),
-  [4661] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3186),
-  [4663] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3187),
-  [4665] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3894),
-  [4667] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2949),
-  [4669] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3208),
-  [4671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6409),
-  [4673] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 2, 0, 15),
-  [4675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(916),
-  [4677] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2727),
-  [4679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(947),
-  [4681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1102),
-  [4683] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2716),
-  [4685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(971),
-  [4687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2706),
-  [4689] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 3, 0, 68),
-  [4691] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 3, 0, 15),
-  [4693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1069),
-  [4695] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 4, 0, 68),
-  [4697] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 5, 0, 131),
-  [4699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(996),
-  [4701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1084),
-  [4703] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1088),
-  [4705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1090),
-  [4707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1091),
-  [4709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(998),
-  [4711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1028),
-  [4713] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1105),
-  [4715] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2723),
-  [4717] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1097),
-  [4719] = {.entry = {.count = 1, .reusable = true}}, SHIFT(970),
-  [4721] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1106),
-  [4723] = {.entry = {.count = 1, .reusable = true}}, SHIFT(979),
-  [4725] = {.entry = {.count = 1, .reusable = true}}, SHIFT(999),
-  [4727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(997),
-  [4729] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2726),
-  [4731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1026),
-  [4733] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2745),
-  [4735] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1031),
-  [4737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(969),
-  [4739] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 4, 0, 131),
-  [4741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1050),
-  [4743] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 4, 0, 15),
-  [4745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1108),
-  [4747] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 3, 0, 15),
-  [4749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(965),
-  [4751] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2739),
-  [4753] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2680),
-  [4755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(985),
-  [4757] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2702),
-  [4759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1004),
-  [4761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1005),
-  [4763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1109),
-  [4765] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2703),
-  [4767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1017),
-  [4769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1030),
-  [4771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1027),
-  [4773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1035),
-  [4775] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2737),
-  [4777] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 4, 0, 68),
-  [4779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1068),
-  [4781] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3595),
-  [4783] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4148),
-  [4785] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3243),
-  [4787] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4167),
-  [4789] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7543),
-  [4791] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3470),
-  [4793] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3770),
-  [4795] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3195),
-  [4797] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3196),
-  [4799] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3529),
-  [4801] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4157),
-  [4803] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3296),
-  [4805] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4136),
-  [4807] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7531),
-  [4809] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3479),
-  [4811] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3777),
-  [4813] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3183),
-  [4815] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3184),
-  [4817] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3503),
-  [4819] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3787),
-  [4821] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3511),
-  [4823] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3811),
-  [4825] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3475),
-  [4827] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3762),
-  [4829] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3480),
-  [4831] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3767),
-  [4833] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3595),
-  [4836] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4148),
-  [4839] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3243),
-  [4842] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4167),
-  [4845] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7543),
-  [4848] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3204),
-  [4851] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0),
-  [4853] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3399),
-  [4856] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3203),
-  [4859] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [4862] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8394),
-  [4865] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8215),
-  [4868] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2718),
-  [4871] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3961),
-  [4874] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(5678),
-  [4877] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3791),
-  [4880] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2644),
-  [4883] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3195),
-  [4886] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3196),
-  [4889] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(6871),
-  [4892] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3463),
-  [4895] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3518),
-  [4898] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3379),
-  [4901] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3427),
-  [4904] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3894),
-  [4907] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3851),
-  [4910] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4693),
-  [4913] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3852),
-  [4916] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8604),
-  [4919] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [4922] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7646),
-  [4925] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2670),
-  [4928] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8578),
-  [4931] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2683),
-  [4934] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4702),
-  [4937] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7473),
-  [4940] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [4943] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(2949),
-  [4946] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3208),
-  [4949] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8241),
-  [4952] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(8349),
-  [4955] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(6409),
-  [4958] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3529),
-  [4961] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4157),
-  [4964] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3296),
-  [4967] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4136),
-  [4970] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7531),
-  [4973] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3183),
-  [4976] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3184),
-  [4979] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3554),
-  [4982] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4202),
-  [4985] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7322),
-  [4988] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3186),
-  [4991] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3187),
-  [4994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1130),
-  [4996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1129),
-  [4998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1121),
-  [5000] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 15),
-  [5002] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 15),
-  [5004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1138),
-  [5006] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 15),
-  [5008] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3565),
-  [5010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4213),
-  [5012] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 1, 0, 0),
-  [5014] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7363),
-  [5016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1156),
-  [5018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3190),
-  [5020] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3191),
-  [5022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1123),
-  [5024] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 68),
-  [5026] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 68),
-  [5028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1144),
-  [5030] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 68),
-  [5032] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 2, 0, 0),
-  [5034] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 2, 0, 0),
-  [5036] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 2, 0, 0),
-  [5038] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 5, 0, 0),
-  [5040] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 5, 0, 0),
-  [5042] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__specification_part, 2, 0, 0),
-  [5044] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__specification_part, 2, 0, 0),
-  [5046] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 2, 0, 0),
-  [5048] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 2, 0, 0),
-  [5050] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 3, 0, 91),
-  [5052] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 3, 0, 91),
-  [5054] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 5, 0, 0),
-  [5056] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 5, 0, 0),
-  [5058] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 4, 0, 0),
-  [5060] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 4, 0, 0),
-  [5062] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumeration_type, 3, 0, 0),
-  [5064] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type, 3, 0, 0),
-  [5066] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 15),
-  [5068] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 15),
-  [5070] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 15),
-  [5072] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1, 0, 0), REDUCE(aux_sym_program_repeat1, 1, 0, 0),
-  [5075] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1, 0, 0),
-  [5077] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1, 0, 0), REDUCE(aux_sym_program_repeat1, 1, 0, 0),
-  [5080] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 1, 0, 0),
-  [5082] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 3, 0, 0),
-  [5084] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 3, 0, 0),
-  [5086] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 3, 0, 0),
-  [5088] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 3, 0, 0),
-  [5090] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 3, 0, 50),
-  [5092] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 3, 0, 50),
-  [5094] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 4, 0, 0),
-  [5096] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 4, 0, 0),
-  [5098] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 68),
-  [5100] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 68),
-  [5102] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 68),
-  [5104] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 4, 0, 0),
-  [5106] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 4, 0, 0),
-  [5108] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum, 4, 0, 0),
-  [5110] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum, 4, 0, 0),
-  [5112] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 2, 0, 50),
-  [5114] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 2, 0, 50),
-  [5116] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumeration_type, 4, 0, 0),
-  [5118] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type, 4, 0, 0),
-  [5120] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 3, 0, 0),
-  [5122] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 3, 0, 0),
-  [5124] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__specification_part, 3, 0, 0),
-  [5126] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__specification_part, 3, 0, 0),
-  [5128] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 4, 0, 91),
-  [5130] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 4, 0, 91),
-  [5132] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum, 3, 0, 0),
-  [5134] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum, 3, 0, 0),
-  [5136] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 3, 0, 0),
-  [5138] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 2, 0, 0),
-  [5140] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 2, 0, 0),
-  [5142] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3565),
-  [5145] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(4213),
-  [5148] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(7363),
-  [5151] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3190),
-  [5154] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2, 0, 0), SHIFT_REPEAT(3191),
-  [5157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1333),
-  [5159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1258),
-  [5161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1293),
-  [5163] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1334),
-  [5165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1291),
-  [5167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1224),
-  [5169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1347),
-  [5171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1545),
-  [5173] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 156),
-  [5175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1586),
-  [5177] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 156),
-  [5179] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1339),
-  [5181] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 158),
-  [5183] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1345),
-  [5185] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 158),
-  [5187] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1346),
-  [5189] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 175),
-  [5191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1352),
-  [5193] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 175),
-  [5195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1438),
-  [5197] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 177),
-  [5199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1443),
-  [5201] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 177),
-  [5203] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 191),
-  [5205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1452),
-  [5207] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 191),
-  [5209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1551),
-  [5211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1528),
-  [5213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1477),
-  [5215] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, 0, 69),
-  [5217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1552),
-  [5219] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, 0, 69),
-  [5221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1554),
-  [5223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1520),
-  [5225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1478),
-  [5227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1561),
-  [5229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1529),
-  [5231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1565),
-  [5233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1558),
-  [5235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1573),
-  [5237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1575),
-  [5239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1574),
-  [5241] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 132),
-  [5243] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1461),
-  [5245] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 132),
-  [5247] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1484),
-  [5249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1505),
-  [5251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1534),
-  [5253] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 130),
-  [5255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1341),
-  [5257] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 130),
-  [5259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1533),
-  [5261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1350),
-  [5263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1342),
-  [5265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1354),
-  [5267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1498),
-  [5269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1500),
-  [5271] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 100),
-  [5273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1410),
-  [5275] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 100),
-  [5277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1411),
-  [5279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1440),
-  [5281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1485),
-  [5283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1489),
-  [5285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1364),
-  [5287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1517),
-  [5289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1522),
-  [5291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1457),
-  [5293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1474),
-  [5295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1536),
-  [5297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1428),
-  [5299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1431),
-  [5301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1550),
-  [5303] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 5, 0, 99),
-  [5305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1442),
-  [5307] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 5, 0, 99),
-  [5309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1447),
-  [5311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1453),
-  [5313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1458),
-  [5315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1540),
-  [5317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1464),
-  [5319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1469),
-  [5321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1366),
-  [5323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1470),
-  [5325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1472),
-  [5327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1479),
-  [5329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1626),
-  [5331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1557),
-  [5333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1593),
-  [5335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1490),
-  [5337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1492),
-  [5339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1494),
-  [5341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1360),
-  [5343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1496),
-  [5345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1501),
-  [5347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1502),
-  [5349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1508),
-  [5351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1509),
-  [5353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1510),
-  [5355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1587),
-  [5357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1511),
-  [5359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1454),
-  [5361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1512),
-  [5363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1476),
-  [5365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1523),
-  [5367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1525),
-  [5369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1526),
-  [5371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1546),
-  [5373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1548),
-  [5375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1535),
-  [5377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1491),
-  [5379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1497),
-  [5381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1459),
-  [5383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1555),
-  [5385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1559),
-  [5387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1518),
-  [5389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1564),
-  [5391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1567),
-  [5393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1444),
-  [5395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1527),
-  [5397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1592),
-  [5399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1585),
-  [5401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1588),
-  [5403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1357),
-  [5405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1613),
-  [5407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1541),
-  [5409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1519),
-  [5411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1549),
-  [5413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1358),
-  [5415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1590),
-  [5417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1553),
-  [5419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1584),
-  [5421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1441),
-  [5423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1462),
-  [5425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1547),
-  [5427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1456),
-  [5429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1601),
-  [5431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1495),
-  [5433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 130),
-  [5435] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, 0, 130),
-  [5437] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program_statement, 2, 0, 12),
-  [5439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program_statement, 2, 0, 12),
-  [5441] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 158),
-  [5443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 158),
-  [5445] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 15),
-  [5447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, 0, 15),
-  [5449] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 175),
-  [5451] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 175),
-  [5453] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 10, 0, 191),
-  [5455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 10, 0, 191),
-  [5457] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 99),
-  [5459] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, 0, 99),
-  [5461] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 100),
-  [5463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, 0, 100),
-  [5465] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 69),
-  [5467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, 0, 69),
-  [5469] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 68),
-  [5471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, 0, 68),
-  [5473] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 9, 0, 177),
-  [5475] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 9, 0, 177),
-  [5477] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 132),
-  [5479] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, 0, 132),
-  [5481] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 156),
-  [5483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, 0, 156),
-  [5485] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__name, 1, 0, 13),
-  [5487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__name, 1, 0, 13),
-  [5489] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2711),
-  [5491] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6729),
-  [5493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4491),
-  [5495] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4490),
-  [5497] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4492),
-  [5499] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4493),
-  [5501] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4494),
-  [5503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4860),
-  [5505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4700),
-  [5507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4770),
+  [2795] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 5, .production_id = 144),
+  [2797] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3615),
+  [2800] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4162),
+  [2803] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3311),
+  [2806] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4171),
+  [2809] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7532),
+  [2812] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(608),
+  [2815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(579),
+  [2817] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144),
+  [2819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(593),
+  [2821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(570),
+  [2823] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144),
+  [2825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(597),
+  [2827] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_rank_statement, 7),
+  [2829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(614),
+  [2831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(684),
+  [2833] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_specification_part, 4),
+  [2835] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3528),
+  [2838] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4122),
+  [2841] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2),
+  [2843] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7670),
+  [2846] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2),
+  [2848] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3207),
+  [2851] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3395),
+  [2854] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3208),
+  [2857] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3957),
+  [2860] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(8359),
+  [2863] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(8046),
+  [2866] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(2765),
+  [2869] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3965),
+  [2872] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(5678),
+  [2875] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3650),
+  [2878] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(2650),
+  [2881] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1755),
+  [2884] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1754),
+  [2887] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(6698),
+  [2890] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3474),
+  [2893] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3601),
+  [2896] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3369),
+  [2899] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3420),
+  [2902] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3943),
+  [2905] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3928),
+  [2908] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4699),
+  [2911] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3912),
+  [2914] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(8604),
+  [2917] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(8199),
+  [2920] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7496),
+  [2923] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(2670),
+  [2926] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(8150),
+  [2929] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(2745),
+  [2932] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4688),
+  [2935] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7641),
+  [2938] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(6873),
+  [2941] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(2937),
+  [2944] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3211),
+  [2947] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7806),
+  [2950] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7792),
+  [2953] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(6315),
+  [2956] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 2),
+  [2958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(631),
+  [2960] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_procedure_statements, 3),
+  [2962] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 3),
+  [2964] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3594),
+  [2967] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4189),
+  [2970] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3299),
+  [2973] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4149),
+  [2976] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7556),
+  [2979] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3149),
+  [2982] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3141),
+  [2985] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3207),
+  [2988] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(1661),
+  [2991] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4727),
+  [2994] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2),
+  [2996] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3208),
+  [2999] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3206),
+  [3002] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3202),
+  [3005] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(634),
+  [3008] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4758),
+  [3011] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(1663),
+  [3014] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(2973),
+  [3017] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7681),
+  [3020] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3171),
+  [3023] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7874),
+  [3026] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(6448),
+  [3029] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(6873),
+  [3032] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3335),
+  [3035] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4773),
+  [3038] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7648),
+  [3041] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7845),
+  [3044] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4686),
+  [3047] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7652),
+  [3050] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7655),
+  [3053] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7658),
+  [3056] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4657),
+  [3059] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7818),
+  [3062] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4805),
+  [3065] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(2676),
+  [3068] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7662),
+  [3071] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7811),
+  [3074] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4768),
+  [3077] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(2742),
+  [3080] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(6231),
+  [3083] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7786),
+  [3086] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3172),
+  [3089] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(2980),
+  [3092] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7779),
+  [3095] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(1786),
+  [3098] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(1788),
+  [3101] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3483),
+  [3104] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3675),
+  [3107] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4623),
+  [3110] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4759),
+  [3113] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4703),
+  [3116] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4702),
+  [3119] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7748),
+  [3122] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4706),
+  [3125] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4441),
+  [3128] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(1665),
+  [3131] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4765),
+  [3134] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3352),
+  [3137] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(8641),
+  [3140] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3582),
+  [3143] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4109),
+  [3146] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3248),
+  [3149] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4215),
+  [3152] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7620),
+  [3155] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(635),
+  [3158] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_statements, 2),
+  [3160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(632),
+  [3162] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3592),
+  [3165] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4080),
+  [3168] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(3307),
+  [3171] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(4163),
+  [3174] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(7614),
+  [3177] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2), SHIFT_REPEAT(638),
+  [3180] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 2), SHIFT(3207),
+  [3183] = {.entry = {.count = 1, .reusable = true}}, SHIFT(645),
+  [3185] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 2),
+  [3187] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5), SHIFT(3207),
+  [3190] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5),
+  [3192] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, .production_id = 140), SHIFT(3207),
+  [3195] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 5, .production_id = 140),
+  [3197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(652),
+  [3199] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3614),
+  [3202] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4180),
+  [3205] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3243),
+  [3208] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4084),
+  [3211] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7645),
+  [3214] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(644),
+  [3217] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3), SHIFT(3207),
+  [3220] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3),
+  [3222] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4), SHIFT(3207),
+  [3225] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4),
+  [3227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(641),
+  [3229] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, .production_id = 140), SHIFT(3207),
+  [3232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(650),
+  [3234] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 3, .production_id = 140),
+  [3236] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3571),
+  [3239] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4115),
+  [3242] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3238),
+  [3245] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4199),
+  [3248] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7602),
+  [3251] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(649),
+  [3254] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, .production_id = 140), SHIFT(3207),
+  [3257] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 4, .production_id = 140),
+  [3259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(642),
+  [3261] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elsewhere_clause, 6, .production_id = 140), SHIFT(3207),
+  [3264] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elsewhere_clause, 6, .production_id = 140),
+  [3266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(646),
+  [3268] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(3599),
+  [3271] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(4192),
+  [3274] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(3294),
+  [3277] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(4093),
+  [3280] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(7552),
+  [3283] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(3207),
+  [3286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(691),
+  [3288] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 4, .production_id = 144), SHIFT(1665),
+  [3291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(688),
+  [3293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3549),
+  [3295] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4079),
+  [3297] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3256),
+  [3299] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4117),
+  [3301] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7698),
+  [3303] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4770),
+  [3305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(694),
+  [3307] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3913),
+  [3309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1662),
+  [3311] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3588),
+  [3313] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4227),
+  [3315] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3288),
+  [3317] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4112),
+  [3319] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7559),
+  [3321] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4729),
+  [3323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(661),
+  [3325] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3864),
+  [3327] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3623),
+  [3329] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4203),
+  [3331] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7634),
+  [3333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(741),
+  [3335] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3565),
+  [3337] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4152),
+  [3339] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3328),
+  [3341] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4200),
+  [3343] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7357),
+  [3345] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4755),
+  [3347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(706),
+  [3349] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3857),
+  [3351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(659),
+  [3353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(715),
+  [3355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(671),
+  [3357] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(3599),
+  [3360] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(4192),
+  [3363] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(3294),
+  [3366] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(4093),
+  [3369] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(7552),
+  [3372] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(3207),
+  [3375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(655),
+  [3377] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 3, .production_id = 144), SHIFT(1665),
+  [3380] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3540),
+  [3382] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4145),
+  [3384] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3282),
+  [3386] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4174),
+  [3388] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7592),
+  [3390] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4720),
+  [3392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(679),
+  [3394] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3491),
+  [3396] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3557),
+  [3398] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4107),
+  [3400] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3270),
+  [3402] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4213),
+  [3404] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7456),
+  [3406] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4705),
+  [3408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(722),
+  [3410] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3878),
+  [3412] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(3599),
+  [3415] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(4192),
+  [3418] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(3294),
+  [3421] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(4093),
+  [3424] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(7552),
+  [3427] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 6), SHIFT(3207),
+  [3430] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 6), SHIFT(1665),
+  [3433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(665),
+  [3435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(677),
+  [3437] = {.entry = {.count = 1, .reusable = true}}, SHIFT(717),
+  [3439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(686),
+  [3441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(692),
+  [3443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(698),
+  [3445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(685),
+  [3447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(718),
+  [3449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(673),
+  [3451] = {.entry = {.count = 1, .reusable = true}}, SHIFT(682),
+  [3453] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3538),
+  [3456] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4130),
+  [3459] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3265),
+  [3462] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4158),
+  [3465] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7577),
+  [3468] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2),
+  [3470] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_program_repeat1, 2),
+  [3472] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3207),
+  [3475] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3395),
+  [3478] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3208),
+  [3481] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3957),
+  [3484] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(8359),
+  [3487] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(8046),
+  [3490] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(2765),
+  [3493] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3965),
+  [3496] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(5678),
+  [3499] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3650),
+  [3502] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(2650),
+  [3505] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1712),
+  [3508] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1711),
+  [3511] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(6698),
+  [3514] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3474),
+  [3517] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3601),
+  [3520] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3369),
+  [3523] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3420),
+  [3526] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3943),
+  [3529] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3928),
+  [3532] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4699),
+  [3535] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3912),
+  [3538] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(8604),
+  [3541] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(8199),
+  [3544] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7496),
+  [3547] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(2670),
+  [3550] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(8150),
+  [3553] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(2745),
+  [3556] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4688),
+  [3559] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7641),
+  [3562] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(6873),
+  [3565] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(2937),
+  [3568] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3211),
+  [3571] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7806),
+  [3574] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7792),
+  [3577] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(6315),
+  [3580] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3542),
+  [3583] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4132),
+  [3586] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3241),
+  [3589] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4226),
+  [3592] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7573),
+  [3595] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(684),
+  [3598] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3545),
+  [3601] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4169),
+  [3604] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3262),
+  [3607] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4123),
+  [3610] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7612),
+  [3613] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(687),
+  [3616] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3599),
+  [3619] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4192),
+  [3622] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3294),
+  [3625] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4093),
+  [3628] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7552),
+  [3631] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(688),
+  [3634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(669),
+  [3636] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3603),
+  [3639] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4087),
+  [3642] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3237),
+  [3645] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4081),
+  [3648] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7603),
+  [3651] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1724),
+  [3654] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1721),
+  [3657] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(3599),
+  [3660] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(4192),
+  [3663] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(3294),
+  [3666] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(4093),
+  [3669] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(7552),
+  [3672] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(3207),
+  [3675] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 5, .production_id = 144), SHIFT(1665),
+  [3678] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(3599),
+  [3681] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(4192),
+  [3684] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(3294),
+  [3687] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(4093),
+  [3690] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(7552),
+  [3693] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 7), SHIFT(3207),
+  [3696] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 7), SHIFT(1665),
+  [3699] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3583),
+  [3702] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4218),
+  [3705] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3276),
+  [3708] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4172),
+  [3711] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7547),
+  [3714] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1741),
+  [3717] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1738),
+  [3720] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3560),
+  [3723] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4219),
+  [3726] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(3300),
+  [3729] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(4150),
+  [3732] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(7613),
+  [3735] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1763),
+  [3738] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 2), SHIFT_REPEAT(1760),
+  [3741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(676),
+  [3743] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(3599),
+  [3746] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(4192),
+  [3749] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(3294),
+  [3752] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(4093),
+  [3755] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(7552),
+  [3758] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_case_statement, 5), SHIFT(3207),
+  [3761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(666),
+  [3763] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_case_statement, 5), SHIFT(1665),
+  [3766] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3616),
+  [3768] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4125),
+  [3770] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3274),
+  [3772] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4182),
+  [3774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7530),
+  [3776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(721),
+  [3778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(742),
+  [3780] = {.entry = {.count = 1, .reusable = true}}, SHIFT(737),
+  [3782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(729),
+  [3784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(759),
+  [3786] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3565),
+  [3789] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4152),
+  [3792] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3328),
+  [3795] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4200),
+  [3798] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7357),
+  [3801] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(706),
+  [3804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(748),
+  [3806] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3604),
+  [3809] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4177),
+  [3812] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3279),
+  [3815] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4090),
+  [3818] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7594),
+  [3821] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(708),
+  [3824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(740),
+  [3826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(702),
+  [3828] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3610),
+  [3831] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4181),
+  [3834] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3295),
+  [3837] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4127),
+  [3840] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7548),
+  [3843] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(714),
+  [3846] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3588),
+  [3849] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4227),
+  [3852] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3288),
+  [3855] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4112),
+  [3858] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7559),
+  [3861] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(715),
+  [3864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(711),
+  [3866] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3549),
+  [3869] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4079),
+  [3872] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3256),
+  [3875] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4117),
+  [3878] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7698),
+  [3881] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(717),
+  [3884] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3540),
+  [3887] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4145),
+  [3890] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3282),
+  [3893] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4174),
+  [3896] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7592),
+  [3899] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(718),
+  [3902] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 194), SHIFT(3207),
+  [3905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(760),
+  [3907] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 194), SHIFT(3208),
+  [3910] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 194),
+  [3912] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 6, .production_id = 194), SHIFT(1665),
+  [3915] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3557),
+  [3918] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4107),
+  [3921] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3270),
+  [3924] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4213),
+  [3927] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7456),
+  [3930] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(722),
+  [3933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(714),
+  [3935] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 4, .production_id = 144),
+  [3937] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(3610),
+  [3940] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(4181),
+  [3943] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(3295),
+  [3946] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(4127),
+  [3949] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(7548),
+  [3952] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(3207),
+  [3955] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(3202),
+  [3958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(747),
+  [3960] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 4, .production_id = 144), SHIFT(1665),
+  [3963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(738),
+  [3965] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 182), SHIFT(3207),
+  [3968] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 182), SHIFT(3208),
+  [3971] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 6, .production_id = 182),
+  [3973] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 6, .production_id = 182), SHIFT(1665),
+  [3976] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 194), SHIFT(3207),
+  [3979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(726),
+  [3981] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 194), SHIFT(3208),
+  [3984] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 194),
+  [3986] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 5, .production_id = 194), SHIFT(1665),
+  [3989] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 182), SHIFT(3207),
+  [3992] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 182), SHIFT(3208),
+  [3995] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 5, .production_id = 182),
+  [3997] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 5, .production_id = 182), SHIFT(1665),
+  [4000] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(3610),
+  [4003] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(4181),
+  [4006] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(3295),
+  [4009] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(4127),
+  [4012] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(7548),
+  [4015] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(3207),
+  [4018] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 6), SHIFT(3202),
+  [4021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(752),
+  [4023] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 6), SHIFT(1665),
+  [4026] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 4, .production_id = 182), SHIFT(3207),
+  [4029] = {.entry = {.count = 1, .reusable = true}}, SHIFT(730),
+  [4031] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 4, .production_id = 182), SHIFT(3208),
+  [4034] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 4, .production_id = 182),
+  [4036] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 4, .production_id = 182), SHIFT(1665),
+  [4039] = {.entry = {.count = 1, .reusable = true}}, SHIFT(756),
+  [4041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(749),
+  [4043] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 6),
+  [4045] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3616),
+  [4048] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4125),
+  [4051] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3274),
+  [4054] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4182),
+  [4057] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7530),
+  [4060] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(737),
+  [4063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(731),
+  [4065] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3623),
+  [4068] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4203),
+  [4071] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3305),
+  [4074] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4098),
+  [4077] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7634),
+  [4080] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(741),
+  [4083] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(3610),
+  [4086] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(4181),
+  [4089] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(3295),
+  [4092] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(4127),
+  [4095] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(7548),
+  [4098] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(3207),
+  [4101] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 5), SHIFT(3202),
+  [4104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(736),
+  [4106] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 5), SHIFT(1665),
+  [4109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(710),
+  [4111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(712),
+  [4113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(727),
+  [4115] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 5, .production_id = 144),
+  [4117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(757),
+  [4119] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_rank_statement, 7),
+  [4121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(720),
+  [4123] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(3610),
+  [4126] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(4181),
+  [4129] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(3295),
+  [4132] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(4127),
+  [4135] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(7548),
+  [4138] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(3207),
+  [4141] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(3202),
+  [4144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(723),
+  [4146] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_rank_statement, 3, .production_id = 144), SHIFT(1665),
+  [4149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(704),
+  [4151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(750),
+  [4153] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 7, .production_id = 194), SHIFT(3207),
+  [4156] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_elseif_clause, 7, .production_id = 194), SHIFT(3208),
+  [4159] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_elseif_clause, 7, .production_id = 194),
+  [4161] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_elseif_clause, 7, .production_id = 194), SHIFT(1665),
+  [4164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3595),
+  [4166] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4168),
+  [4168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3293),
+  [4170] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4157),
+  [4172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7554),
+  [4174] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 3, .production_id = 139), SHIFT(3207),
+  [4177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(765),
+  [4179] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 3, .production_id = 139), SHIFT(3208),
+  [4182] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 3, .production_id = 139), SHIFT(1665),
+  [4185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(764),
+  [4187] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 2, .production_id = 139), SHIFT(3207),
+  [4190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(762),
+  [4192] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 2, .production_id = 139), SHIFT(3208),
+  [4195] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 2, .production_id = 139), SHIFT(1665),
+  [4198] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3595),
+  [4201] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4168),
+  [4204] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(3293),
+  [4207] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(4157),
+  [4210] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(7554),
+  [4213] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2), SHIFT_REPEAT(764),
+  [4216] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 4, .production_id = 139), SHIFT(3207),
+  [4219] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_else_clause, 4, .production_id = 139), SHIFT(3208),
+  [4222] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_else_clause, 4, .production_id = 139), SHIFT(1665),
+  [4225] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3575),
+  [4228] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4102),
+  [4231] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7606),
+  [4234] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1749),
+  [4237] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1748),
+  [4240] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3618),
+  [4243] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4167),
+  [4246] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7364),
+  [4249] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1727),
+  [4252] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(1729),
+  [4255] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4696),
+  [4257] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7403),
+  [4259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4493),
+  [4261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(564),
+  [4263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(689),
+  [4265] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4710),
+  [4267] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3882),
+  [4269] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4744),
+  [4271] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3895),
+  [4273] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4691),
+  [4275] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3811),
+  [4277] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 5, .production_id = 68),
+  [4279] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 5, .production_id = 68),
+  [4281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(844),
+  [4283] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 5, .production_id = 68),
+  [4285] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, .production_id = 130),
+  [4287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(865),
+  [4289] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, .production_id = 130),
+  [4291] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, .production_id = 15),
+  [4293] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 4, .production_id = 15),
+  [4295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(868),
+  [4297] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, .production_id = 15),
+  [4299] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, .production_id = 156),
+  [4301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(841),
+  [4303] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, .production_id = 156),
+  [4305] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, .production_id = 68),
+  [4307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(849),
+  [4309] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, .production_id = 68),
+  [4311] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 4, .production_id = 69),
+  [4313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(858),
+  [4315] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 4, .production_id = 69),
+  [4317] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 4, .production_id = 15),
+  [4319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(873),
+  [4321] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, .production_id = 5),
+  [4323] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, .production_id = 5),
+  [4325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(906),
+  [4327] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 5, .production_id = 68),
+  [4329] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 4, .production_id = 68),
+  [4331] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 4, .production_id = 68),
+  [4333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(842),
+  [4335] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 4, .production_id = 68),
+  [4337] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 4, .production_id = 68),
+  [4339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(860),
+  [4341] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 4, .production_id = 15),
+  [4343] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1),
+  [4345] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1),
+  [4347] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, .production_id = 3),
+  [4349] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, .production_id = 3),
+  [4351] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 5, .production_id = 99),
+  [4353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(886),
+  [4355] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 5, .production_id = 99),
+  [4357] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 132),
+  [4359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(843),
+  [4361] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 132),
+  [4363] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 100),
+  [4365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(896),
+  [4367] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 100),
+  [4369] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 5, .production_id = 68),
+  [4371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(898),
+  [4373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(879),
+  [4375] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 15),
+  [4377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(882),
+  [4379] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 15),
+  [4381] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 3, .production_id = 15),
+  [4383] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 3, .production_id = 15),
+  [4385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(866),
+  [4387] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 3, .production_id = 15),
+  [4389] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_identifier, 1, .production_id = 2),
+  [4391] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_identifier, 1, .production_id = 2),
+  [4393] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 3, .production_id = 15),
+  [4395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(905),
+  [4397] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 3, .production_id = 88),
+  [4399] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 3, .production_id = 88),
+  [4401] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 1),
+  [4403] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 1),
+  [4405] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 3, .production_id = 87),
+  [4407] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 3, .production_id = 87),
+  [4409] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 3, .production_id = 47),
+  [4411] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 3, .production_id = 47),
+  [4413] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 8, .production_id = 156),
+  [4415] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 8, .production_id = 156),
+  [4417] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 7, .production_id = 132),
+  [4419] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 7, .production_id = 132),
+  [4421] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 68),
+  [4423] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 68),
+  [4425] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 4, .production_id = 87),
+  [4427] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 4, .production_id = 87),
+  [4429] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 3),
+  [4431] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 3),
+  [4433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 2, .production_id = 46),
+  [4435] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 2, .production_id = 46),
+  [4437] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface, 2),
+  [4439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface, 2),
+  [4441] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, .production_id = 68),
+  [4443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, .production_id = 68),
+  [4445] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 6),
+  [4447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 6),
+  [4449] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 3),
+  [4451] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 3),
+  [4453] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 2, .production_id = 45),
+  [4455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 2, .production_id = 45),
+  [4457] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 3),
+  [4459] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 3),
+  [4461] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 4, .production_id = 123),
+  [4463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 4, .production_id = 123),
+  [4465] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 3),
+  [4467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 3),
+  [4469] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call, 2, .production_id = 10),
+  [4471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call, 2, .production_id = 10),
+  [4473] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_interface_statement, 2, .production_id = 47),
+  [4475] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_interface_statement, 2, .production_id = 47),
+  [4477] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 69),
+  [4479] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 5, .production_id = 69),
+  [4481] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 6),
+  [4483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 6),
+  [4485] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface, 3),
+  [4487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface, 3),
+  [4489] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 5),
+  [4491] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 5),
+  [4493] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 4, .production_id = 85),
+  [4495] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 4, .production_id = 85),
+  [4497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 4, .production_id = 122),
+  [4499] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 4, .production_id = 122),
+  [4501] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 7, .production_id = 130),
+  [4503] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 7, .production_id = 130),
+  [4505] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 4, .production_id = 86),
+  [4507] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 4, .production_id = 86),
+  [4509] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 15),
+  [4511] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 15),
+  [4513] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_function_def, 5, .production_id = 98),
+  [4515] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_function_def, 5, .production_id = 98),
+  [4517] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 4),
+  [4519] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 4),
+  [4521] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 3, .production_id = 46),
+  [4523] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 3, .production_id = 46),
+  [4525] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 15),
+  [4527] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 4),
+  [4529] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 4),
+  [4531] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 2, .production_id = 88),
+  [4533] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 2, .production_id = 88),
+  [4535] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_include, 3, .production_id = 32),
+  [4537] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_include, 3, .production_id = 32),
+  [4539] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_def, 3, .production_id = 15),
+  [4541] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_def, 3, .production_id = 15),
+  [4543] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call, 3, .production_id = 34),
+  [4545] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call, 3, .production_id = 34),
+  [4547] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule, 2),
+  [4549] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule, 2),
+  [4551] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_submodule_statement, 3, .production_id = 86),
+  [4553] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_submodule_statement, 3, .production_id = 86),
+  [4555] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 15),
+  [4557] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 15),
+  [4559] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 4),
+  [4561] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 4),
+  [4563] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 3, .production_id = 45),
+  [4565] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 3, .production_id = 45),
+  [4567] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_statement, 3, .production_id = 85),
+  [4569] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_statement, 3, .production_id = 85),
+  [4571] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if, 6, .production_id = 99),
+  [4573] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 6, .production_id = 99),
+  [4575] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 4),
+  [4577] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 4),
+  [4579] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 4),
+  [4581] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 4),
+  [4583] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 5),
+  [4585] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 5),
+  [4587] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 3, .production_id = 89),
+  [4589] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 3, .production_id = 89),
+  [4591] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 3, .production_id = 123),
+  [4593] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 3, .production_id = 123),
+  [4595] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_def, 4, .production_id = 67),
+  [4597] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_def, 4, .production_id = 67),
+  [4599] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 5),
+  [4601] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 5),
+  [4603] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_subroutine_statement, 3, .production_id = 122),
+  [4605] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_subroutine_statement, 3, .production_id = 122),
+  [4607] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_function_def, 4, .production_id = 35),
+  [4609] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_function_def, 4, .production_id = 35),
+  [4611] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 100),
+  [4613] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 6, .production_id = 100),
+  [4615] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 4),
+  [4617] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 4),
+  [4619] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 68),
+  [4621] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_function_statement, 2, .production_id = 89),
+  [4623] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_function_statement, 2, .production_id = 89),
+  [4625] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_subroutine, 3),
+  [4627] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine, 3),
+  [4629] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module, 2),
+  [4631] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module, 2),
+  [4633] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program, 2),
+  [4635] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program, 2),
+  [4637] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_function, 3),
+  [4639] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function, 3),
+  [4641] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_program_statement, 2),
+  [4643] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_program_statement, 2),
+  [4645] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3624),
+  [4647] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4204),
+  [4649] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 2, .production_id = 15),
+  [4651] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1114),
+  [4653] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3234),
+  [4655] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4097),
+  [4657] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7632),
+  [4659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(939),
+  [4661] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3195),
+  [4663] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3194),
+  [4665] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3943),
+  [4667] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2937),
+  [4669] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3211),
+  [4671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6315),
+  [4673] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2751),
+  [4675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(914),
+  [4677] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2744),
+  [4679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(930),
+  [4681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(974),
+  [4683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1021),
+  [4685] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2704),
+  [4687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2692),
+  [4689] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2688),
+  [4691] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2693),
+  [4693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(971),
+  [4695] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2757),
+  [4697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(977),
+  [4699] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef, 3, .production_id = 15),
+  [4701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1065),
+  [4703] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2727),
+  [4705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1045),
+  [4707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1052),
+  [4709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(979),
+  [4711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1069),
+  [4713] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1033),
+  [4715] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1086),
+  [4717] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1058),
+  [4719] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 4, .production_id = 15),
+  [4721] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2760),
+  [4723] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2701),
+  [4725] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 4, .production_id = 68),
+  [4727] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 3, .production_id = 68),
+  [4729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1030),
+  [4731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(988),
+  [4733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1017),
+  [4735] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_module, 3, .production_id = 15),
+  [4737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1084),
+  [4739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1053),
+  [4741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1068),
+  [4743] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 4, .production_id = 131),
+  [4745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1061),
+  [4747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1078),
+  [4749] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2756),
+  [4751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1056),
+  [4753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1006),
+  [4755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1062),
+  [4757] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if, 4, .production_id = 68),
+  [4759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(995),
+  [4761] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2691),
+  [4763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(997),
+  [4765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1043),
+  [4767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1008),
+  [4769] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_module, 5, .production_id = 131),
+  [4771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1011),
+  [4773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1095),
+  [4775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1012),
+  [4777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1063),
+  [4779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1025),
+  [4781] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3535),
+  [4783] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4217),
+  [4785] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3327),
+  [4787] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4207),
+  [4789] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7413),
+  [4791] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3508),
+  [4793] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3720),
+  [4795] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3189),
+  [4797] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3187),
+  [4799] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3519),
+  [4801] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4131),
+  [4803] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3253),
+  [4805] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4092),
+  [4807] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7426),
+  [4809] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3478),
+  [4811] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3660),
+  [4813] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3190),
+  [4815] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3196),
+  [4817] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3505),
+  [4819] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3714),
+  [4821] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3514),
+  [4823] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3718),
+  [4825] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3503),
+  [4827] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3743),
+  [4829] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3476),
+  [4831] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3722),
+  [4833] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3535),
+  [4836] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4217),
+  [4839] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3327),
+  [4842] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4207),
+  [4845] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7413),
+  [4848] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3207),
+  [4851] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2),
+  [4853] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3395),
+  [4856] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3208),
+  [4859] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3957),
+  [4862] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(8359),
+  [4865] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(8046),
+  [4868] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(2765),
+  [4871] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3965),
+  [4874] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(5678),
+  [4877] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3650),
+  [4880] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(2650),
+  [4883] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3189),
+  [4886] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3187),
+  [4889] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(6698),
+  [4892] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3474),
+  [4895] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3601),
+  [4898] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3369),
+  [4901] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3420),
+  [4904] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3943),
+  [4907] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3928),
+  [4910] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4699),
+  [4913] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3912),
+  [4916] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(8604),
+  [4919] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(8199),
+  [4922] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7496),
+  [4925] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(2670),
+  [4928] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(8150),
+  [4931] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(2745),
+  [4934] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4688),
+  [4937] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7641),
+  [4940] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(6873),
+  [4943] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(2937),
+  [4946] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3211),
+  [4949] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7806),
+  [4952] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7792),
+  [4955] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(6315),
+  [4958] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3519),
+  [4961] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4131),
+  [4964] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3253),
+  [4967] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(4092),
+  [4970] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(7426),
+  [4973] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3190),
+  [4976] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_module_repeat1, 2), SHIFT_REPEAT(3196),
+  [4979] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3624),
+  [4982] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4204),
+  [4985] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7632),
+  [4988] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3195),
+  [4991] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3194),
+  [4994] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3622),
+  [4996] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4139),
+  [4998] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 1),
+  [5000] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7590),
+  [5002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1153),
+  [5004] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3192),
+  [5006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3183),
+  [5008] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 68),
+  [5010] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 68),
+  [5012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1121),
+  [5014] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 68),
+  [5016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1154),
+  [5018] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 15),
+  [5020] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 15),
+  [5022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1122),
+  [5024] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 15),
+  [5026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1144),
+  [5028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1145),
+  [5030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1130),
+  [5032] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 68),
+  [5034] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 68),
+  [5036] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 68),
+  [5038] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 15),
+  [5040] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 15),
+  [5042] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 15),
+  [5044] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__specification_part, 3),
+  [5046] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__specification_part, 3),
+  [5048] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 5),
+  [5050] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 5),
+  [5052] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 4),
+  [5054] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 4),
+  [5056] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 3),
+  [5058] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 3),
+  [5060] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1), REDUCE(aux_sym_program_repeat1, 1),
+  [5063] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1),
+  [5065] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 1), REDUCE(aux_sym_program_repeat1, 1),
+  [5068] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_program_repeat1, 1),
+  [5070] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 5),
+  [5072] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 5),
+  [5074] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 2, .production_id = 50),
+  [5076] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 2, .production_id = 50),
+  [5078] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 3),
+  [5080] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 3),
+  [5082] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 3),
+  [5084] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 4, .production_id = 91),
+  [5086] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 4, .production_id = 91),
+  [5088] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 3),
+  [5090] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 3),
+  [5092] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumeration_type, 3),
+  [5094] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type, 3),
+  [5096] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumeration_type, 4),
+  [5098] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type, 4),
+  [5100] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum, 4),
+  [5102] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum, 4),
+  [5104] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 4),
+  [5106] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 4),
+  [5108] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum, 3),
+  [5110] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum, 3),
+  [5112] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_definition, 2),
+  [5114] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_definition, 2),
+  [5116] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 2),
+  [5118] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 2),
+  [5120] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_public_statement, 4),
+  [5122] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_public_statement, 4),
+  [5124] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 3, .production_id = 50),
+  [5126] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 3, .production_id = 50),
+  [5128] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_private_statement, 2),
+  [5130] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_private_statement, 2),
+  [5132] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_type_statement, 3, .production_id = 91),
+  [5134] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_type_statement, 3, .production_id = 91),
+  [5136] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_module, 2),
+  [5138] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__specification_part, 2),
+  [5140] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__specification_part, 2),
+  [5142] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3622),
+  [5145] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(4139),
+  [5148] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(7590),
+  [5151] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3192),
+  [5154] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_module_repeat1, 2), SHIFT_REPEAT(3183),
+  [5157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1259),
+  [5159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1300),
+  [5161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1232),
+  [5163] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1201),
+  [5165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1244),
+  [5167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1260),
+  [5169] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 5, .production_id = 99),
+  [5171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1431),
+  [5173] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 5, .production_id = 99),
+  [5175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1539),
+  [5177] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 156),
+  [5179] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1521),
+  [5181] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 156),
+  [5183] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1441),
+  [5185] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 130),
+  [5187] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1426),
+  [5189] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 130),
+  [5191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1591),
+  [5193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1446),
+  [5195] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 100),
+  [5197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1438),
+  [5199] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 100),
+  [5201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1579),
+  [5203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1449),
+  [5205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1604),
+  [5207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1382),
+  [5209] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 177),
+  [5211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1392),
+  [5213] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 177),
+  [5215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1511),
+  [5217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1500),
+  [5219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1507),
+  [5221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1435),
+  [5223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1506),
+  [5225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1505),
+  [5227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1603),
+  [5229] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 191),
+  [5231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1601),
+  [5233] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 191),
+  [5235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1386),
+  [5237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1384),
+  [5239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1434),
+  [5241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1608),
+  [5243] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 132),
+  [5245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1501),
+  [5247] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 132),
+  [5249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1440),
+  [5251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1383),
+  [5253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1445),
+  [5255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1486),
+  [5257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1343),
+  [5259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1451),
+  [5261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1504),
+  [5263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1475),
+  [5265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1509),
+  [5267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1429),
+  [5269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1428),
+  [5271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1510),
+  [5273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1411),
+  [5275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1430),
+  [5277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1444),
+  [5279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1368),
+  [5281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1520),
+  [5283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1406),
+  [5285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1443),
+  [5287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1452),
+  [5289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1453),
+  [5291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1590),
+  [5293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1523),
+  [5295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1589),
+  [5297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1508),
+  [5299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1525),
+  [5301] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 175),
+  [5303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1573),
+  [5305] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 175),
+  [5307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1393),
+  [5309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1464),
+  [5311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1358),
+  [5313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1425),
+  [5315] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 158),
+  [5317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1414),
+  [5319] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 158),
+  [5321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1530),
+  [5323] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, .production_id = 69),
+  [5325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1364),
+  [5327] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 4, .production_id = 69),
+  [5329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1410),
+  [5331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1586),
+  [5333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1394),
+  [5335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1542),
+  [5337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1367),
+  [5339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1465),
+  [5341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1365),
+  [5343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1543),
+  [5345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1478),
+  [5347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1404),
+  [5349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1556),
+  [5351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1362),
+  [5353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1574),
+  [5355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1408),
+  [5357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1496),
+  [5359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1495),
+  [5361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1396),
+  [5363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1380),
+  [5365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1565),
+  [5367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1492),
+  [5369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1348),
+  [5371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1605),
+  [5373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1363),
+  [5375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1491),
+  [5377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1403),
+  [5379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1554),
+  [5381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1402),
+  [5383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1401),
+  [5385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1352),
+  [5387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1587),
+  [5389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1418),
+  [5391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1422),
+  [5393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1613),
+  [5395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1346),
+  [5397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1610),
+  [5399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1612),
+  [5401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1447),
+  [5403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1399),
+  [5405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1345),
+  [5407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1398),
+  [5409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1609),
+  [5411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1502),
+  [5413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1370),
+  [5415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1534),
+  [5417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1489),
+  [5419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1557),
+  [5421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1385),
+  [5423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1488),
+  [5425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1483),
+  [5427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1448),
+  [5429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1484),
+  [5431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1566),
+  [5433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 10, .production_id = 191),
+  [5435] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 10, .production_id = 191),
+  [5437] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 69),
+  [5439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 5, .production_id = 69),
+  [5441] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__name, 1, .production_id = 13),
+  [5443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__name, 1, .production_id = 13),
+  [5445] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 100),
+  [5447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 6, .production_id = 100),
+  [5449] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_program_statement, 2, .production_id = 12),
+  [5451] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_program_statement, 2, .production_id = 12),
+  [5453] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 99),
+  [5455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 6, .production_id = 99),
+  [5457] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 9, .production_id = 177),
+  [5459] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 9, .production_id = 177),
+  [5461] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 68),
+  [5463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 68),
+  [5465] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 175),
+  [5467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 9, .production_id = 175),
+  [5469] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 15),
+  [5471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 15),
+  [5473] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 130),
+  [5475] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 7, .production_id = 130),
+  [5477] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 158),
+  [5479] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 8, .production_id = 158),
+  [5481] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 132),
+  [5483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_specification_part, 7, .production_id = 132),
+  [5485] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 156),
+  [5487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_specification_part, 8, .production_id = 156),
+  [5489] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2733),
+  [5491] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7220),
+  [5493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4475),
+  [5495] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4473),
+  [5497] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4476),
+  [5499] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4477),
+  [5501] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4478),
+  [5503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4909),
+  [5505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4694),
+  [5507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4723),
   [5509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8304),
-  [5511] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_statement_label, 1, 0, 1),
-  [5513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_label, 1, 0, 1),
-  [5515] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_number_literal, 1, 0, 0),
-  [5517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_number_literal, 1, 0, 0),
-  [5519] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7620),
-  [5521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8187),
-  [5523] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(3102),
-  [5526] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(2982),
-  [5529] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 1, 0, 0),
-  [5531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2954),
-  [5533] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(8267),
-  [5536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1832),
-  [5538] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(1833),
-  [5541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4657),
-  [5543] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4715),
-  [5545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4648),
-  [5547] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(2999),
-  [5550] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(3092),
-  [5553] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(1831),
-  [5556] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 175),
-  [5558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1744),
-  [5560] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 175),
-  [5562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1728),
-  [5564] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 3, 0, 15),
-  [5566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1730),
-  [5568] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 4, 0, 68),
-  [5570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1732),
-  [5572] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 4, 0, 15),
-  [5574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1740),
-  [5576] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 5, 0, 68),
-  [5578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1751),
-  [5580] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 15),
-  [5582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1757),
-  [5584] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 68),
-  [5586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1684),
-  [5588] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 15),
-  [5590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1685),
-  [5592] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 68),
-  [5594] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 100),
-  [5596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1743),
-  [5598] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 100),
-  [5600] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 5, 0, 99),
-  [5602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1739),
-  [5604] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 5, 0, 99),
-  [5606] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 130),
-  [5608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1752),
-  [5610] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 130),
-  [5612] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 132),
-  [5614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1754),
-  [5616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 132),
-  [5618] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 4, 0, 69),
-  [5620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1733),
-  [5622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 4, 0, 69),
-  [5624] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 156),
-  [5626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1760),
-  [5628] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 156),
-  [5630] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 158),
-  [5632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1762),
-  [5634] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 158),
-  [5636] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1797),
-  [5638] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 15),
-  [5640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 68),
-  [5642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1765),
-  [5644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1766),
-  [5646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1767),
-  [5648] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1768),
-  [5650] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1769),
-  [5652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1770),
-  [5654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1771),
-  [5656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1772),
-  [5658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1778),
-  [5660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1780),
-  [5662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1781),
-  [5664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1782),
-  [5666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1784),
-  [5668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1786),
-  [5670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1788),
-  [5672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1789),
-  [5674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1790),
-  [5676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1791),
-  [5678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1792),
-  [5680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1793),
-  [5682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1794),
-  [5684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1795),
-  [5686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1796),
-  [5688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1810),
-  [5690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2, 0, 0),
-  [5692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1774),
-  [5694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8242),
-  [5696] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8135),
-  [5698] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6230),
-  [5700] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 1, 0, 0),
-  [5702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3505),
-  [5704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1514),
-  [5706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3509),
-  [5708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1538),
-  [5710] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 1, 0, 0),
-  [5712] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__intrinsic_type, 1, 0, 0), REDUCE(sym_identifier, 1, 0, 0),
-  [5715] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__intrinsic_type, 1, 0, 0), REDUCE(sym_identifier, 1, 0, 0),
-  [5718] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 1, 0, 0),
-  [5720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1783),
-  [5722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1779),
-  [5724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1785),
-  [5726] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 69),
-  [5728] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, 0, 69),
-  [5730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1787),
-  [5732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3477),
-  [5734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1155),
-  [5736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3478),
-  [5738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1122),
-  [5740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3481),
-  [5742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1629),
-  [5744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3482),
-  [5746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1630),
-  [5748] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 99),
-  [5750] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, 0, 99),
-  [5752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3483),
-  [5754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1386),
-  [5756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3484),
-  [5758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1387),
-  [5760] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 100),
-  [5762] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, 0, 100),
-  [5764] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 9, 0, 175),
-  [5766] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 9, 0, 175),
-  [5768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3457),
-  [5770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1430),
-  [5772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3514),
-  [5774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1432),
-  [5776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3490),
-  [5778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1309),
-  [5780] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3491),
-  [5782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1310),
-  [5784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3492),
-  [5786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1187),
-  [5788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3493),
-  [5790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1188),
-  [5792] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 130),
-  [5794] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, 0, 130),
-  [5796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1773),
-  [5798] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 132),
-  [5800] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, 0, 132),
-  [5802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3496),
-  [5804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1609),
-  [5806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3497),
-  [5808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1610),
-  [5810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3500),
-  [5812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1482),
-  [5814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3501),
-  [5816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1483),
-  [5818] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 156),
-  [5820] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, 0, 156),
-  [5822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1775),
-  [5824] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 8, 0, 158),
-  [5826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 8, 0, 158),
-  [5828] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 3, 0, 0),
-  [5830] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 3, 0, 0),
-  [5832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1846),
-  [5834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3067),
-  [5836] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8610),
-  [5838] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4771),
-  [5840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3159),
-  [5842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3602),
-  [5844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1841),
-  [5846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1842),
-  [5848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1843),
-  [5850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1844),
-  [5852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1845),
-  [5854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1847),
-  [5856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1848),
-  [5858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1836),
-  [5860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1849),
-  [5862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1850),
-  [5864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1851),
-  [5866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1852),
-  [5868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1853),
-  [5870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1854),
-  [5872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1840),
-  [5874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2038),
-  [5876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1939),
-  [5878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1910),
-  [5880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2064),
-  [5882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1941),
-  [5884] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1981),
-  [5886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2061),
-  [5888] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1929),
-  [5890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2051),
-  [5892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1942),
-  [5894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1978),
-  [5896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2049),
-  [5898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1944),
-  [5900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1904),
-  [5902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1932),
-  [5904] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1935),
-  [5906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1970),
-  [5908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1982),
-  [5910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3166),
-  [5912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3125),
-  [5914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6341),
-  [5916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2672),
-  [5918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3127),
-  [5920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2918),
-  [5922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6916),
-  [5924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4005),
-  [5926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6528),
-  [5928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2037),
-  [5930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2587),
-  [5932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7216),
-  [5934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1997),
-  [5936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2007),
-  [5938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3211),
-  [5940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7272),
-  [5942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4025),
-  [5944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6603),
-  [5946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2009),
-  [5948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2012),
-  [5950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2013),
-  [5952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2026),
-  [5954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4247),
-  [5956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6669),
-  [5958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2033),
-  [5960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1964),
-  [5962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2047),
-  [5964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2050),
-  [5966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2060),
-  [5968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2062),
-  [5970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1985),
-  [5972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2327),
-  [5974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2151),
-  [5976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2133),
-  [5978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2134),
-  [5980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2135),
-  [5982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2136),
-  [5984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2137),
-  [5986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2138),
-  [5988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2197),
-  [5990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2200),
-  [5992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2201),
-  [5994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2204),
-  [5996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2205),
-  [5998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2208),
-  [6000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2209),
-  [6002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2211),
-  [6004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2140),
-  [6006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2141),
-  [6008] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 15),
-  [6010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2220),
-  [6012] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 15),
-  [6014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2150),
-  [6016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2161),
-  [6018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2358),
-  [6020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2154),
-  [6022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2156),
-  [6024] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 130),
-  [6026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2221),
-  [6028] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 130),
-  [6030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2160),
-  [6032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2115),
-  [6034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2139),
-  [6036] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 15),
-  [6038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2103),
-  [6040] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 15),
-  [6042] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2078),
-  [6044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2081),
-  [6046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2083),
-  [6048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2086),
-  [6050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2088),
-  [6052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2092),
-  [6054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2094),
-  [6056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2096),
-  [6058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2111),
-  [6060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2162),
-  [6062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2164),
-  [6064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2152),
-  [6066] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 158),
-  [6068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2249),
-  [6070] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 158),
-  [6072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2356),
-  [6074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2167),
-  [6076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2168),
-  [6078] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, 0, 69),
-  [6080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2288),
-  [6082] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, 0, 69),
-  [6084] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 3, 0, 15),
-  [6086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2289),
-  [6088] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 3, 0, 15),
-  [6090] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, 0, 68),
-  [6092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2308),
-  [6094] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, 0, 68),
-  [6096] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 68),
-  [6098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2250),
-  [6100] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 68),
-  [6102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2360),
-  [6104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2169),
-  [6106] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, 0, 99),
-  [6108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2295),
-  [6110] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, 0, 99),
-  [6112] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 100),
-  [6114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2297),
-  [6116] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 100),
-  [6118] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 4, 0, 68),
-  [6120] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2299),
-  [6122] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 4, 0, 68),
-  [6124] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, 0, 15),
-  [6126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2301),
-  [6128] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, 0, 15),
-  [6130] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 156),
-  [6132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2098),
-  [6134] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 156),
-  [6136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2364),
-  [6138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2304),
-  [6140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2153),
-  [6142] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 132),
-  [6144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2306),
-  [6146] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 132),
-  [6148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2309),
-  [6150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2343),
-  [6152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2075),
-  [6154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2312),
-  [6156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2261),
-  [6158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2313),
-  [6160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2314),
-  [6162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2315),
-  [6164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2087),
-  [6166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2147),
-  [6168] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 175),
-  [6170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2317),
-  [6172] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 175),
-  [6174] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 68),
-  [6176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2318),
-  [6178] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 68),
-  [6180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2359),
-  [6182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7491),
-  [6184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2365),
-  [6186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2296),
-  [6188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2253),
-  [6190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2100),
-  [6192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2149),
-  [6194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2263),
-  [6196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2389),
-  [6198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2316),
-  [6200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2102),
-  [6202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2146),
-  [6204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2264),
-  [6206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2155),
-  [6208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2163),
-  [6210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2281),
-  [6212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2246),
-  [6214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2189),
-  [6216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2158),
-  [6218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2333),
-  [6220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2369),
-  [6222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2370),
-  [6224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2265),
-  [6226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2222),
-  [6228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2165),
-  [6230] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3351),
-  [6232] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3354),
-  [6234] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4928),
-  [6236] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4696),
-  [6238] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3352),
-  [6240] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3355),
-  [6242] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4854),
-  [6244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2245),
-  [6246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2166),
-  [6248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2387),
-  [6250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2385),
-  [6252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2262),
-  [6254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2287),
-  [6256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2386),
-  [6258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2188),
-  [6260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2190),
-  [6262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2388),
-  [6264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2234),
-  [6266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2247),
-  [6268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2363),
-  [6270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2338),
-  [6272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2107),
+  [5511] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_statement_label, 1, .production_id = 1),
+  [5513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_label, 1, .production_id = 1),
+  [5515] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_number_literal, 1),
+  [5517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_number_literal, 1),
+  [5519] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7562),
+  [5521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7860),
+  [5523] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1), SHIFT(2964),
+  [5526] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(2960),
+  [5529] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 1),
+  [5531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2968),
+  [5533] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1), SHIFT(7779),
+  [5536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1781),
+  [5538] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(1780),
+  [5541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4669),
+  [5543] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4716),
+  [5545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4672),
+  [5547] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_identifier, 1), SHIFT(3149),
+  [5550] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(3141),
+  [5553] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(1788),
+  [5556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1734),
+  [5558] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 5, .production_id = 68),
+  [5560] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 100),
+  [5562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1731),
+  [5564] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 100),
+  [5566] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 156),
+  [5568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1689),
+  [5570] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 156),
+  [5572] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 175),
+  [5574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1762),
+  [5576] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 175),
+  [5578] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 158),
+  [5580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1723),
+  [5582] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 158),
+  [5584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1683),
+  [5586] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 68),
+  [5588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1700),
+  [5590] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 3, .production_id = 15),
+  [5592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1684),
+  [5594] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 15),
+  [5596] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 132),
+  [5598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1710),
+  [5600] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 132),
+  [5602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1725),
+  [5604] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 68),
+  [5606] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 130),
+  [5608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1717),
+  [5610] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 130),
+  [5612] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 5, .production_id = 99),
+  [5614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1740),
+  [5616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 5, .production_id = 99),
+  [5618] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 4, .production_id = 69),
+  [5620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1753),
+  [5622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 4, .production_id = 69),
+  [5624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1730),
+  [5626] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 15),
+  [5628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1759),
+  [5630] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 4, .production_id = 15),
+  [5632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1761),
+  [5634] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 4, .production_id = 68),
+  [5636] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 68),
+  [5638] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 15),
+  [5640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1803),
+  [5642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1805),
+  [5644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1768),
+  [5646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1806),
+  [5648] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 156),
+  [5650] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 8, .production_id = 156),
+  [5652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1810),
+  [5654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1821),
+  [5656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1827),
+  [5658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1793),
+  [5660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1791),
+  [5662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1790),
+  [5664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1787),
+  [5666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1783),
+  [5668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1785),
+  [5670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1782),
+  [5672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1802),
+  [5674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1800),
+  [5676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1784),
+  [5678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1807),
+  [5680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1823),
+  [5682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1795),
+  [5684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1824),
+  [5686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1794),
+  [5688] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 132),
+  [5690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 7, .production_id = 132),
+  [5692] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8354),
+  [5694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8415),
+  [5696] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6089),
+  [5698] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 1),
+  [5700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3458),
+  [5702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1527),
+  [5704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3507),
+  [5706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1526),
+  [5708] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 2),
+  [5710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1826),
+  [5712] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 130),
+  [5714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 7, .production_id = 130),
+  [5716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3487),
+  [5718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1151),
+  [5720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3510),
+  [5722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1356),
+  [5724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1776),
+  [5726] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 8, .production_id = 158),
+  [5728] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 8, .production_id = 158),
+  [5730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3511),
+  [5732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1361),
+  [5734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3488),
+  [5736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1148),
+  [5738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3501),
+  [5740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1653),
+  [5742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3502),
+  [5744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1641),
+  [5746] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 100),
+  [5748] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 6, .production_id = 100),
+  [5750] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 3),
+  [5752] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_specification_part_repeat1, 3),
+  [5754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1829),
+  [5756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3473),
+  [5758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1580),
+  [5760] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 1),
+  [5762] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__intrinsic_type, 1), REDUCE(sym_identifier, 1),
+  [5765] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__intrinsic_type, 1), REDUCE(sym_identifier, 1),
+  [5768] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 1),
+  [5770] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 99),
+  [5772] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 6, .production_id = 99),
+  [5774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3472),
+  [5776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1339),
+  [5778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1832),
+  [5780] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1831),
+  [5782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1828),
+  [5784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1825),
+  [5786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3485),
+  [5788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1457),
+  [5790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3484),
+  [5792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1456),
+  [5794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1820),
+  [5796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1819),
+  [5798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1809),
+  [5800] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 69),
+  [5802] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_statements, 5, .production_id = 69),
+  [5804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3486),
+  [5806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1184),
+  [5808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3490),
+  [5810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1185),
+  [5812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3462),
+  [5814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1209),
+  [5816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3464),
+  [5818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1208),
+  [5820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3512),
+  [5822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1570),
+  [5824] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_statements, 9, .production_id = 175),
+  [5826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_statements, 9, .production_id = 175),
+  [5828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3513),
+  [5830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1571),
+  [5832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1854),
+  [5834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1858),
+  [5836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1838),
+  [5838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1839),
+  [5840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1840),
+  [5842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1837),
+  [5844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1860),
+  [5846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1841),
+  [5848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1842),
+  [5850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1843),
+  [5852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3151),
+  [5854] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7799),
+  [5856] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4711),
+  [5858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3146),
+  [5860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3564),
+  [5862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1836),
+  [5864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1859),
+  [5866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1857),
+  [5868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1851),
+  [5870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1848),
+  [5872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1846),
+  [5874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4249),
+  [5876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2974),
+  [5878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6436),
+  [5880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2671),
+  [5882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2990),
+  [5884] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2915),
+  [5886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6938),
+  [5888] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2048),
+  [5890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4065),
+  [5892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6636),
+  [5894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3209),
+  [5896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6528),
+  [5898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3978),
+  [5900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6804),
+  [5902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1967),
+  [5904] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1972),
+  [5906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1951),
+  [5908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2002),
+  [5910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1949),
+  [5912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2523),
+  [5914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7059),
+  [5916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1968),
+  [5918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1963),
+  [5920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1961),
+  [5922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1935),
+  [5924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2063),
+  [5926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1932),
+  [5928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1950),
+  [5930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3165),
+  [5932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6950),
+  [5934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1948),
+  [5936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2069),
+  [5938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2021),
+  [5940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1913),
+  [5942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2071),
+  [5944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2018),
+  [5946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1920),
+  [5948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1939),
+  [5950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1936),
+  [5952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2057),
+  [5954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1905),
+  [5956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1998),
+  [5958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2016),
+  [5960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2064),
+  [5962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2011),
+  [5964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2068),
+  [5966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2009),
+  [5968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2049),
+  [5970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1928),
+  [5972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2221),
+  [5974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7600),
+  [5976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2129),
+  [5978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2339),
+  [5980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2128),
+  [5982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2132),
+  [5984] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 130),
+  [5986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2384),
+  [5988] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 130),
+  [5990] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 132),
+  [5992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2386),
+  [5994] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 132),
+  [5996] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, .production_id = 68),
+  [5998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2392),
+  [6000] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, .production_id = 68),
+  [6002] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 15),
+  [6004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2390),
+  [6006] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 15),
+  [6008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2375),
+  [6010] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 100),
+  [6012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2363),
+  [6014] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 100),
+  [6016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2333),
+  [6018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2331),
+  [6020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2385),
+  [6022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2320),
+  [6024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2076),
+  [6026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2319),
+  [6028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2301),
+  [6030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2298),
+  [6032] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, .production_id = 15),
+  [6034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2370),
+  [6036] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, .production_id = 15),
+  [6038] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 156),
+  [6040] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2382),
+  [6042] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 156),
+  [6044] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 4, .production_id = 68),
+  [6046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2365),
+  [6048] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 4, .production_id = 68),
+  [6050] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 158),
+  [6052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2379),
+  [6054] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 158),
+  [6056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2389),
+  [6058] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 68),
+  [6060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2378),
+  [6062] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 68),
+  [6064] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 15),
+  [6066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2376),
+  [6068] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 15),
+  [6070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2358),
+  [6072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2111),
+  [6074] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, .production_id = 99),
+  [6076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2360),
+  [6078] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 5, .production_id = 99),
+  [6080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2353),
+  [6082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2127),
+  [6084] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 175),
+  [6086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2373),
+  [6088] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 175),
+  [6090] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 68),
+  [6092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2372),
+  [6094] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 68),
+  [6096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2194),
+  [6098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2196),
+  [6100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2199),
+  [6102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2334),
+  [6104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2295),
+  [6106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2219),
+  [6108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2154),
+  [6110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2300),
+  [6112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2260),
+  [6114] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 3, .production_id = 15),
+  [6116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2309),
+  [6118] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 3, .production_id = 15),
+  [6120] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, .production_id = 69),
+  [6122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2308),
+  [6124] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 4, .production_id = 69),
+  [6126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2332),
+  [6128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2330),
+  [6130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2272),
+  [6132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2271),
+  [6134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2325),
+  [6136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2323),
+  [6138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2269),
+  [6140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2266),
+  [6142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2318),
+  [6144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2316),
+  [6146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2265),
+  [6148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2310),
+  [6150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2303),
+  [6152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2296),
+  [6154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2294),
+  [6156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2284),
+  [6158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2280),
+  [6160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2270),
+  [6162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2268),
+  [6164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2223),
+  [6166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2356),
+  [6168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2264),
+  [6170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2148),
+  [6172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2220),
+  [6174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2088),
+  [6176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2078),
+  [6178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2201),
+  [6180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2357),
+  [6182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2273),
+  [6184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2084),
+  [6186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2362),
+  [6188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2077),
+  [6190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2146),
+  [6192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2198),
+  [6194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2091),
+  [6196] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3353),
+  [6198] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3356),
+  [6200] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4881),
+  [6202] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4690),
+  [6204] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3354),
+  [6206] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3355),
+  [6208] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4934),
+  [6210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2117),
+  [6212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2116),
+  [6214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2172),
+  [6216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2106),
+  [6218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2131),
+  [6220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2102),
+  [6222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2169),
+  [6224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2186),
+  [6226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2101),
+  [6228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2327),
+  [6230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2185),
+  [6232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2164),
+  [6234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2100),
+  [6236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2097),
+  [6238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2096),
+  [6240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2153),
+  [6242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2151),
+  [6244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2160),
+  [6246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2347),
+  [6248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2114),
+  [6250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2136),
+  [6252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2098),
+  [6254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2171),
+  [6256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2079),
+  [6258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2163),
+  [6260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2134),
+  [6262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2162),
+  [6264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2080),
+  [6266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2350),
+  [6268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2155),
+  [6270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2082),
+  [6272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2095),
   [6274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2108),
-  [6276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2390),
-  [6278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2329),
-  [6280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2192),
-  [6282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2148),
-  [6284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2361),
-  [6286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2170),
-  [6288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2196),
-  [6290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2310),
-  [6292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2584),
-  [6294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2397),
-  [6296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2497),
-  [6298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2599),
-  [6300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2551),
-  [6302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2632),
-  [6304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2518),
-  [6306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2574),
-  [6308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2588),
-  [6310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2539),
-  [6312] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 156),
-  [6314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 156),
-  [6316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2640),
-  [6318] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 8, 0, 158),
-  [6320] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 8, 0, 158),
-  [6322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2593),
-  [6324] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 15),
-  [6326] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 15),
-  [6328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2519),
-  [6330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2625),
-  [6332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2638),
-  [6334] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 9, 0, 175),
-  [6336] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 9, 0, 175),
-  [6338] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 68),
-  [6340] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, 0, 68),
-  [6342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2439),
-  [6344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2485),
-  [6346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2515),
-  [6348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2393),
-  [6350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2535),
-  [6352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2585),
-  [6354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2590),
-  [6356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2596),
-  [6358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2602),
-  [6360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2611),
-  [6362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2615),
-  [6364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2619),
-  [6366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2623),
-  [6368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2628),
-  [6370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2637),
-  [6372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2641),
-  [6374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2395),
-  [6376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2396),
-  [6378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2398),
-  [6380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2414),
-  [6382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2416),
-  [6384] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 3, 0, 0),
-  [6386] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 3, 0, 0),
-  [6388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2464),
-  [6390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2466),
-  [6392] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 100),
-  [6394] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, 0, 100),
-  [6396] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 132),
-  [6398] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, 0, 132),
-  [6400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2469),
-  [6402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2413),
-  [6404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2415),
-  [6406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2417),
-  [6408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2419),
-  [6410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2420),
-  [6412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2422),
-  [6414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2424),
-  [6416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2433),
-  [6418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2434),
-  [6420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2436),
-  [6422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2438),
-  [6424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2440),
-  [6426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2441),
-  [6428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2443),
-  [6430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2444),
-  [6432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2445),
-  [6434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2501),
-  [6436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2507),
-  [6438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2508),
-  [6440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2514),
-  [6442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2516),
-  [6444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2520),
-  [6446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2523),
-  [6448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2526),
-  [6450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2533),
-  [6452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2534),
-  [6454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2537),
-  [6456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2540),
-  [6458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2545),
-  [6460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2547),
-  [6462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2552),
-  [6464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2553),
-  [6466] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 130),
-  [6468] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, 0, 130),
-  [6470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2591),
-  [6472] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2592),
-  [6474] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2594),
-  [6476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2597),
-  [6478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2600),
-  [6480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2604),
-  [6482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2608),
-  [6484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2609),
-  [6486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2494),
-  [6488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2472),
-  [6490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2524),
-  [6492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2479),
-  [6494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2480),
-  [6496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2482),
-  [6498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2484),
-  [6500] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 69),
-  [6502] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, 0, 69),
-  [6504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2492),
-  [6506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2493),
-  [6508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2495),
-  [6510] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2, 0, 0),
-  [6512] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 99),
-  [6514] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, 0, 99),
-  [6516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2536),
-  [6518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2502),
-  [6520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2517),
-  [6522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2613),
-  [6524] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2513),
-  [6526] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2525),
-  [6528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2527),
-  [6530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2565),
-  [6532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2573),
-  [6534] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2530),
-  [6536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2529),
-  [6538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2531),
-  [6540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2538),
-  [6542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2541),
-  [6544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2542),
-  [6546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2544),
-  [6548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2549),
-  [6550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2548),
-  [6552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2568),
-  [6554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2579),
-  [6556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2554),
-  [6558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2556),
-  [6560] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2558),
-  [6562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2563),
-  [6564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2567),
-  [6566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2561),
-  [6568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2582),
-  [6570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2566),
-  [6572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2569),
-  [6574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2571),
-  [6576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2575),
-  [6578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2577),
-  [6580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2576),
-  [6582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2601),
-  [6584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2603),
-  [6586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2463),
-  [6588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2394),
-  [6590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2598),
-  [6592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2605),
-  [6594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2607),
-  [6596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2610),
-  [6598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2521),
-  [6600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2612),
-  [6602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2614),
-  [6604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2616),
-  [6606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2560),
-  [6608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2618),
-  [6610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2620),
-  [6612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2622),
-  [6614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2624),
-  [6616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2626),
-  [6618] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2627),
-  [6620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2629),
-  [6622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2630),
-  [6624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2631),
-  [6626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2651),
-  [6628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2650),
-  [6630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2643),
-  [6632] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 4, 0, 0),
-  [6634] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 4, 0, 0),
-  [6636] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2646),
-  [6638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2648),
-  [6640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2653),
-  [6642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2659),
-  [6644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2662),
-  [6646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2667),
-  [6648] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2652),
-  [6650] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 6, 0, 0),
-  [6652] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 6, 0, 0),
-  [6654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2645),
-  [6656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2661),
-  [6658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2664),
-  [6660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2647),
-  [6662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2649),
-  [6664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2655),
-  [6666] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 5, 0, 0),
-  [6668] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 5, 0, 0),
-  [6670] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_argument_list, 1, 0, 0),
-  [6672] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_argument_list, 1, 0, 0),
-  [6674] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 4, 1, 0),
-  [6676] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 4, 1, 0),
-  [6678] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 3, 1, 0),
-  [6680] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 3, 1, 0),
-  [6682] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 2, 1, 0),
-  [6684] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 2, 1, 0),
-  [6686] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 7, 0, 0),
-  [6688] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 7, 0, 0),
-  [6690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 3, 0, 0),
-  [6692] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 3, 0, 0),
-  [6694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4103),
-  [6696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4063),
-  [6698] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 1, 0, 0),
-  [6700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7523),
-  [6702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1897),
-  [6704] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 1, 0, 0),
-  [6706] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 1, 0, 0),
-  [6708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3130),
-  [6710] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3116),
-  [6712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6729),
-  [6714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 2, 0, 0),
-  [6716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3099),
-  [6718] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 15),
-  [6720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2897),
-  [6722] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 15),
-  [6724] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 4, 0, 15),
-  [6726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2788),
-  [6728] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 4, 0, 15),
-  [6730] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 4, 0, 69),
-  [6732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2877),
-  [6734] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 4, 0, 69),
-  [6736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4016),
-  [6738] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 3, 0, 15),
-  [6740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2810),
-  [6742] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 3, 0, 15),
-  [6744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7659),
-  [6746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2734),
-  [6748] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 2, 0, 0),
-  [6750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6515),
-  [6752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3073),
-  [6754] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, 0, 175),
-  [6756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2795),
-  [6758] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, 0, 175),
-  [6760] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 100),
-  [6762] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2822),
-  [6764] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 100),
-  [6766] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 4, 0, 68),
-  [6768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2840),
-  [6770] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 4, 0, 68),
-  [6772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2842),
-  [6774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2772),
-  [6776] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, 0, 130),
-  [6778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2886),
-  [6780] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, 0, 130),
-  [6782] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, 0, 68),
-  [6784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2887),
-  [6786] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, 0, 68),
-  [6788] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 132),
-  [6790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2888),
-  [6792] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 132),
-  [6794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2901),
-  [6796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7537),
-  [6798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2863),
-  [6800] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3102),
-  [6802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2982),
-  [6804] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 2, 0, 0),
-  [6806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1833),
-  [6808] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2756),
-  [6810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7454),
-  [6812] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 5, 0, 99),
-  [6814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2812),
-  [6816] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 5, 0, 99),
-  [6818] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 5, 0, 68),
-  [6820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2815),
-  [6822] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 5, 0, 68),
-  [6824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2870),
-  [6826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2871),
-  [6828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2872),
-  [6830] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 15),
-  [6832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2873),
-  [6834] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 15),
-  [6836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2904),
-  [6838] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 1, 0, 0),
-  [6840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7262),
-  [6842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3151),
-  [6844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2890),
-  [6846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2892),
-  [6848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2895),
-  [6850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2823),
-  [6852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2835),
-  [6854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7299),
-  [6856] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, 0, 156),
-  [6858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2843),
-  [6860] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, 0, 156),
-  [6862] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, 0, 68),
-  [6864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2852),
-  [6866] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, 0, 68),
-  [6868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2820),
-  [6870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2833),
-  [6872] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 158),
-  [6874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2794),
-  [6876] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 158),
-  [6878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2903),
-  [6880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2857),
-  [6882] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 69),
-  [6884] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, 0, 69),
-  [6886] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 8, 0, 158),
-  [6888] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 8, 0, 158),
-  [6890] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 9, 0, 175),
-  [6892] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 9, 0, 175),
-  [6894] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, 0, 99),
-  [6896] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, 0, 99),
-  [6898] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, 0, 156),
-  [6900] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, 0, 156),
-  [6902] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 100),
-  [6904] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, 0, 100),
-  [6906] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_statement, 2, 0, 0),
-  [6908] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_statement, 2, 0, 0),
-  [6910] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameterized_read_statement, 2, 0, 0),
-  [6912] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, 0, 68),
-  [6914] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, 0, 68),
-  [6916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7183),
-  [6918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8637),
-  [6920] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 2, 0, 0),
-  [6922] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule_statement, 5, 0, 101),
-  [6924] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule_statement, 5, 0, 101),
-  [6926] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_open_statement, 2, 0, 0),
-  [6928] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 3, 0, 0),
-  [6930] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_inquire_statement, 2, 0, 0),
-  [6932] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, 0, 130),
-  [6934] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, 0, 130),
-  [6936] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 132),
-  [6938] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 132),
-  [6940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6910),
-  [6942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7270),
-  [6944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6527),
-  [6946] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 15),
-  [6948] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, 0, 15),
-  [6950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6601),
-  [6952] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule_statement, 7, 0, 159),
-  [6954] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule_statement, 7, 0, 159),
-  [6956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3720),
-  [6958] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 7, 0, 0),
-  [6960] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 7, 0, 0),
-  [6962] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_parenthesized_expression, 3, 0, 0),
-  [6964] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parenthesized_expression, 3, 0, 0),
-  [6966] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 6, 0, 0),
-  [6968] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 6, 0, 0),
-  [6970] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 5, 0, 0),
-  [6972] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 5, 0, 0),
-  [6974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3018),
-  [6976] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4105),
-  [6978] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4104),
-  [6980] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4100),
-  [6982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4106),
-  [6984] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4107),
-  [6986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3027),
-  [6988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4293),
-  [6990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8513),
-  [6992] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3128),
-  [6994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3037),
-  [6996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3040),
-  [6998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1834),
-  [7000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1800),
-  [7002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4697),
-  [7004] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4819),
-  [7006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4877),
-  [7008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4699),
-  [7010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3538),
-  [7012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8442),
-  [7014] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 4, 0, 0),
-  [7016] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 4, 0, 0),
-  [7018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2979),
-  [7020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3003),
-  [7022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3376),
-  [7024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8426),
-  [7026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4714),
-  [7028] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 1, 0, 6),
-  [7030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3075),
-  [7032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2981),
-  [7034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3045),
-  [7036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3729),
-  [7038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4533),
-  [7040] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3802),
-  [7042] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4552),
-  [7044] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3771),
-  [7046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1044),
-  [7048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3731),
-  [7050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4568),
-  [7052] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3642),
-  [7054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5228),
-  [7056] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3651),
-  [7058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5058),
-  [7060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3652),
-  [7062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5077),
-  [7064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3815),
-  [7066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(884),
-  [7068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3742),
-  [7070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4992),
-  [7072] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3743),
-  [7074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4994),
-  [7076] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3662),
-  [7078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5133),
-  [7080] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3664),
-  [7082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5162),
-  [7084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3733),
-  [7086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1041),
-  [7088] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3677),
-  [7090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4790),
-  [7092] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3679),
-  [7094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4792),
-  [7096] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3757),
-  [7098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5146),
-  [7100] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3694),
-  [7102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1000),
-  [7104] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3697),
-  [7106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5070),
-  [7108] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3698),
-  [7110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1002),
-  [7112] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3699),
-  [7114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5083),
-  [7116] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3765),
-  [7118] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5134),
-  [7120] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3768),
-  [7122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5136),
-  [7124] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3714),
-  [7126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4961),
-  [7128] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3690),
-  [7130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4578),
-  [7132] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3748),
-  [7134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(843),
-  [7136] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3708),
-  [7138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5051),
-  [7140] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3663),
-  [7142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5117),
-  [7144] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3718),
-  [7146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4965),
-  [7148] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3781),
-  [7150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5062),
-  [7152] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3788),
-  [7154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4755),
-  [7156] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3813),
-  [7158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1029),
-  [7160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3790),
-  [7162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4757),
-  [7164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3769),
-  [7166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1054),
-  [7168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3658),
-  [7170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5068),
-  [7172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3806),
-  [7174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4903),
-  [7176] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3688),
-  [7178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4576),
-  [7180] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3636),
-  [7182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(886),
-  [7184] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 1, 0, 112),
-  [7186] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_import_statement, 1, 0, 0),
-  [7188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6827),
-  [7190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4118),
-  [7192] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 1, 0, 0),
-  [7194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7238),
-  [7196] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_import_statement, 1, 0, 0),
-  [7198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4112),
-  [7200] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_attributes, 4, 0, 0),
-  [7202] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attributes, 4, 0, 0),
-  [7204] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_attributes, 4, 0, 0),
-  [7206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4607),
-  [7208] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__callable_interface_qualifers, 1, 0, 6),
-  [7210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3460),
-  [7212] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_intrinsic_type, 1, 0, 0),
-  [7214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1885),
-  [7216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6413),
-  [7218] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_intrinsic_type, 1, 0, 0),
-  [7220] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 1, 0, 4),
-  [7222] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 1, 0, 4),
-  [7224] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 2, 0, 18),
-  [7226] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 2, 0, 18),
-  [7228] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 2, 0, 0),
-  [7230] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 2, 0, 0),
-  [7232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3467),
-  [7234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2874),
-  [7236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3468),
-  [7238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2780),
-  [7240] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_parenthesized_expression, 3, 0, 0), REDUCE(sym__argument_list, 3, 1, 0),
-  [7243] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_parenthesized_expression, 3, 0, 0), REDUCE(sym__argument_list, 3, 1, 0),
-  [7246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3494),
-  [7248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2731),
-  [7250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3495),
-  [7252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2733),
-  [7254] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_intrinsic_type, 2, 0, 26),
-  [7256] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_intrinsic_type, 2, 0, 26),
-  [7258] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2, 0, 56),
-  [7260] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2, 0, 56),
-  [7262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3498),
-  [7264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3074),
-  [7266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3499),
-  [7268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3142),
-  [7270] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2, 0, 0),
-  [7272] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2, 0, 0),
-  [7274] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2, 0, 57),
-  [7276] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2, 0, 57),
-  [7278] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 1, 0, 0),
-  [7280] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 1, 0, 0),
-  [7282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3510),
-  [7284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2875),
-  [7286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3485),
-  [7288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2876),
-  [7290] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, 1, 107),
-  [7292] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, 1, 107),
-  [7294] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 0, 71),
-  [7296] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 0, 71),
-  [7298] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 1, 72),
-  [7300] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 1, 72),
-  [7302] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 0, 74),
-  [7304] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 0, 74),
-  [7306] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 1, 75),
-  [7308] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 1, 75),
-  [7310] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 0, 76),
-  [7312] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 0, 76),
-  [7314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, 0, 106),
-  [7316] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, 0, 106),
-  [7318] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, 0, 109),
-  [7320] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, 0, 109),
-  [7322] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, 1, 110),
-  [7324] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, 1, 110),
-  [7326] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, 0, 0),
-  [7328] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, 0, 0),
-  [7330] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2862),
-  [7332] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1, 0, 0),
-  [7334] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2861),
-  [7336] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1, 0, 0), SHIFT(2861),
-  [7339] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1, 0, 0), SHIFT(2864),
-  [7342] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2865),
-  [7344] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2869),
-  [7346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3281),
-  [7348] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4002),
-  [7350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3249),
-  [7352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5361),
-  [7354] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5350),
-  [7356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5362),
-  [7358] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5363),
-  [7360] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5364),
-  [7362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5345),
-  [7364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5405),
+  [6276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2104),
+  [6278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2121),
+  [6280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2086),
+  [6282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2126),
+  [6284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2093),
+  [6286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2085),
+  [6288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2090),
+  [6290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2110),
+  [6292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2522),
+  [6294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2551),
+  [6296] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 132),
+  [6298] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 132),
+  [6300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2407),
+  [6302] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 130),
+  [6304] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 7, .production_id = 130),
+  [6306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2413),
+  [6308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2423),
+  [6310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2429),
+  [6312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2399),
+  [6314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2431),
+  [6316] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 100),
+  [6318] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 6, .production_id = 100),
+  [6320] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 99),
+  [6322] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 6, .production_id = 99),
+  [6324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2453),
+  [6326] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 156),
+  [6328] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 156),
+  [6330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2454),
+  [6332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2435),
+  [6334] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 8, .production_id = 158),
+  [6336] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 8, .production_id = 158),
+  [6338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2463),
+  [6340] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 15),
+  [6342] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 7, .production_id = 15),
+  [6344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2440),
+  [6346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2441),
+  [6348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2409),
+  [6350] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 9, .production_id = 175),
+  [6352] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 9, .production_id = 175),
+  [6354] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 68),
+  [6356] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_procedure_statements, 8, .production_id = 68),
+  [6358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2470),
+  [6360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2473),
+  [6362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2474),
+  [6364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2479),
+  [6366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2521),
+  [6368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2483),
+  [6370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2548),
+  [6372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2415),
+  [6374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2553),
+  [6376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2417),
+  [6378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2535),
+  [6380] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 69),
+  [6382] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_procedure_statements, 5, .production_id = 69),
+  [6384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2554),
+  [6386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2605),
+  [6388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2557),
+  [6390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2559),
+  [6392] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 2),
+  [6394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2560),
+  [6396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2498),
+  [6398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2581),
+  [6400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2499),
+  [6402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2598),
+  [6404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2443),
+  [6406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2616),
+  [6408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2500),
+  [6410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2619),
+  [6412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2625),
+  [6414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2541),
+  [6416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2589),
+  [6418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2629),
+  [6420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2628),
+  [6422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2501),
+  [6424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2515),
+  [6426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2549),
+  [6428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2550),
+  [6430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2580),
+  [6432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2587),
+  [6434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2597),
+  [6436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2612),
+  [6438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2611),
+  [6440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2610),
+  [6442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2608),
+  [6444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2607),
+  [6446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2606),
+  [6448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2604),
+  [6450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2602),
+  [6452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2601),
+  [6454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2600),
+  [6456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2599),
+  [6458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2596),
+  [6460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2595),
+  [6462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2594),
+  [6464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2593),
+  [6466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2592),
+  [6468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2642),
+  [6470] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_subroutine_repeat1, 3),
+  [6472] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_subroutine_repeat1, 3),
+  [6474] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2540),
+  [6476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2538),
+  [6478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2394),
+  [6480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2582),
+  [6482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2623),
+  [6484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2578),
+  [6486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2621),
+  [6488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2576),
+  [6490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2574),
+  [6492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2572),
+  [6494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2570),
+  [6496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2569),
+  [6498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2617),
+  [6500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2489),
+  [6502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2534),
+  [6504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2486),
+  [6506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2484),
+  [6508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2503),
+  [6510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2496),
+  [6512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2603),
+  [6514] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2525),
+  [6516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2524),
+  [6518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2465),
+  [6520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2520),
+  [6522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2518),
+  [6524] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2588),
+  [6526] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2460),
+  [6528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2514),
+  [6530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2513),
+  [6532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2577),
+  [6534] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2509),
+  [6536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2507),
+  [6538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2471),
+  [6540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2505),
+  [6542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2458),
+  [6544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2422),
+  [6546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2420),
+  [6548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2414),
+  [6550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2547),
+  [6552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2397),
+  [6554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2494),
+  [6556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2482),
+  [6558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2402),
+  [6560] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2475),
+  [6562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2472),
+  [6564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2464),
+  [6566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2459),
+  [6568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2457),
+  [6570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2449),
+  [6572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2480),
+  [6574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2447),
+  [6576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2452),
+  [6578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2478),
+  [6580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2446),
+  [6582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2469),
+  [6584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2438),
+  [6586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2437),
+  [6588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2411),
+  [6590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2432),
+  [6592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2461),
+  [6594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2428),
+  [6596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2427),
+  [6598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2424),
+  [6600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2421),
+  [6602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2456),
+  [6604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2405),
+  [6606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2406),
+  [6608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2403),
+  [6610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2396),
+  [6612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2448),
+  [6614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2444),
+  [6616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2430),
+  [6618] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2401),
+  [6620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2412),
+  [6622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2466),
+  [6624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2393),
+  [6626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2648),
+  [6628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2649),
+  [6630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2651),
+  [6632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2652),
+  [6634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2656),
+  [6636] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2658),
+  [6638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2668),
+  [6640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_argument_list, 1),
+  [6642] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_argument_list, 1),
+  [6644] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 4, .dynamic_precedence = 1),
+  [6646] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 4, .dynamic_precedence = 1),
+  [6648] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 7),
+  [6650] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 7),
+  [6652] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 4),
+  [6654] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 4),
+  [6656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2662),
+  [6658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2663),
+  [6660] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 3),
+  [6662] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 3),
+  [6664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2666),
+  [6666] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 5),
+  [6668] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 5),
+  [6670] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 2, .dynamic_precedence = 1),
+  [6672] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 2, .dynamic_precedence = 1),
+  [6674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2667),
+  [6676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2643),
+  [6678] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__argument_list, 3, .dynamic_precedence = 1),
+  [6680] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__argument_list, 3, .dynamic_precedence = 1),
+  [6682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2660),
+  [6684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2661),
+  [6686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2644),
+  [6688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2646),
+  [6690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_index, 6),
+  [6692] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_index, 6),
+  [6694] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4086),
+  [6696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4052),
+  [6698] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 1),
+  [6700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7353),
+  [6702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1872),
+  [6704] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 1),
+  [6706] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 1),
+  [6708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3139),
+  [6710] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 2),
+  [6712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3013),
+  [6714] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3084),
+  [6716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7220),
+  [6718] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 5, .production_id = 99),
+  [6720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2823),
+  [6722] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 5, .production_id = 99),
+  [6724] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 5, .production_id = 68),
+  [6726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2828),
+  [6728] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 5, .production_id = 68),
+  [6730] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 4, .production_id = 69),
+  [6732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2876),
+  [6734] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 4, .production_id = 69),
+  [6736] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 100),
+  [6738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2830),
+  [6740] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 100),
+  [6742] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 15),
+  [6744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2833),
+  [6746] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 15),
+  [6748] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 4, .production_id = 15),
+  [6750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2882),
+  [6752] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 4, .production_id = 15),
+  [6754] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 4, .production_id = 68),
+  [6756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2892),
+  [6758] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 4, .production_id = 68),
+  [6760] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 2),
+  [6762] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7040),
+  [6764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3014),
+  [6766] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 1),
+  [6768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7305),
+  [6770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3142),
+  [6772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7596),
+  [6774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2697),
+  [6776] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 130),
+  [6778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2800),
+  [6780] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 130),
+  [6782] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 68),
+  [6784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2798),
+  [6786] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 68),
+  [6788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2845),
+  [6790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2846),
+  [6792] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 132),
+  [6794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2847),
+  [6796] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 132),
+  [6798] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 15),
+  [6800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2848),
+  [6802] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 15),
+  [6804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2796),
+  [6806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2795),
+  [6808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7354),
+  [6810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2832),
+  [6812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7073),
+  [6814] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 156),
+  [6816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2853),
+  [6818] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 156),
+  [6820] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 68),
+  [6822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2855),
+  [6824] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 68),
+  [6826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2850),
+  [6828] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2964),
+  [6830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2960),
+  [6832] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 2),
+  [6834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1780),
+  [6836] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 158),
+  [6838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2856),
+  [6840] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 158),
+  [6842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2824),
+  [6844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2732),
+  [6846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7693),
+  [6848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2791),
+  [6850] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 3, .production_id = 15),
+  [6852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2776),
+  [6854] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 3, .production_id = 15),
+  [6856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4024),
+  [6858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2792),
+  [6860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2868),
+  [6862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2797),
+  [6864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2807),
+  [6866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2825),
+  [6868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2803),
+  [6870] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 175),
+  [6872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2885),
+  [6874] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 175),
+  [6876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2801),
+  [6878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2773),
+  [6880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2831),
+  [6882] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule_statement, 7, .production_id = 159),
+  [6884] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule_statement, 7, .production_id = 159),
+  [6886] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 9, .production_id = 175),
+  [6888] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 9, .production_id = 175),
+  [6890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7051),
+  [6892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8108),
+  [6894] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 2),
+  [6896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6634),
+  [6898] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 156),
+  [6900] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 156),
+  [6902] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 68),
+  [6904] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 8, .production_id = 68),
+  [6906] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 15),
+  [6908] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 15),
+  [6910] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 132),
+  [6912] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 7, .production_id = 132),
+  [6914] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 8, .production_id = 158),
+  [6916] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 8, .production_id = 158),
+  [6918] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 130),
+  [6920] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 7, .production_id = 130),
+  [6922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6802),
+  [6924] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 69),
+  [6926] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 5, .production_id = 69),
+  [6928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6529),
+  [6930] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameterized_read_statement, 2),
+  [6932] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_open_statement, 2),
+  [6934] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_inquire_statement, 2),
+  [6936] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 99),
+  [6938] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_module, 6, .production_id = 99),
+  [6940] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 100),
+  [6942] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_module, 6, .production_id = 100),
+  [6944] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_statement, 2),
+  [6946] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_statement, 2),
+  [6948] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_submodule_statement, 5, .production_id = 101),
+  [6950] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_submodule_statement, 5, .production_id = 101),
+  [6952] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 3),
+  [6954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6951),
+  [6956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3123),
+  [6958] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4216),
+  [6960] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4165),
+  [6962] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4183),
+  [6964] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4197),
+  [6966] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4194),
+  [6968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3126),
+  [6970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3733),
+  [6972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4293),
+  [6974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8513),
+  [6976] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_parenthesized_expression, 3),
+  [6978] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parenthesized_expression, 3),
+  [6980] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 6),
+  [6982] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 6),
+  [6984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4753),
+  [6986] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 7),
+  [6988] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 7),
+  [6990] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 5),
+  [6992] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 5),
+  [6994] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 1, .production_id = 6),
+  [6996] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__forall_control_expression, 4),
+  [6998] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__forall_control_expression, 4),
+  [7000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2986),
+  [7002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2981),
+  [7004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3385),
+  [7006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8426),
+  [7008] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2979),
+  [7010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3077),
+  [7012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3062),
+  [7014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1778),
+  [7016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1775),
+  [7018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4693),
+  [7020] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4919),
+  [7022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4890),
+  [7024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4697),
+  [7026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3541),
+  [7028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8442),
+  [7030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3010),
+  [7032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2966),
+  [7034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3152),
+  [7036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3782),
+  [7038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4530),
+  [7040] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3751),
+  [7042] = {.entry = {.count = 1, .reusable = true}}, SHIFT(899),
+  [7044] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3673),
+  [7046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4600),
+  [7048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3652),
+  [7050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1037),
+  [7052] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3728),
+  [7054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5014),
+  [7056] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3748),
+  [7058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5011),
+  [7060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3795),
+  [7062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4527),
+  [7064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3701),
+  [7066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1019),
+  [7068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3703),
+  [7070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5180),
+  [7072] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3706),
+  [7074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1015),
+  [7076] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3719),
+  [7078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5184),
+  [7080] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3680),
+  [7082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5082),
+  [7084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3780),
+  [7086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1081),
+  [7088] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3760),
+  [7090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5208),
+  [7092] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3761),
+  [7094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5206),
+  [7096] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3665),
+  [7098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5036),
+  [7100] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3810),
+  [7102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5087),
+  [7104] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3792),
+  [7106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5051),
+  [7108] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3769),
+  [7110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5046),
+  [7112] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3742),
+  [7114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(875),
+  [7116] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3808),
+  [7118] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4855),
+  [7120] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3786),
+  [7122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4861),
+  [7124] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3778),
+  [7126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4863),
+  [7128] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3658),
+  [7130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5242),
+  [7132] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3800),
+  [7134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4594),
+  [7136] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3781),
+  [7138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1101),
+  [7140] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3794),
+  [7142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4607),
+  [7144] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3661),
+  [7146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5024),
+  [7148] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3648),
+  [7150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5022),
+  [7152] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3674),
+  [7154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5038),
+  [7156] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3679),
+  [7158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4712),
+  [7160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3687),
+  [7162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4714),
+  [7164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3763),
+  [7166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4944),
+  [7168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3655),
+  [7170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(904),
+  [7172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3712),
+  [7174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4937),
+  [7176] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3715),
+  [7178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4972),
+  [7180] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3756),
+  [7182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(970),
+  [7184] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 1, .production_id = 112),
+  [7186] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_import_statement, 1),
+  [7188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6882),
+  [7190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4129),
+  [7192] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 1),
+  [7194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6579),
+  [7196] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_import_statement, 1),
+  [7198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4214),
+  [7200] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_attributes, 4),
+  [7202] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attributes, 4),
+  [7204] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_attributes, 4),
+  [7206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4616),
+  [7208] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__callable_interface_qualifers, 1, .production_id = 6),
+  [7210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3492),
+  [7212] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_intrinsic_type, 1),
+  [7214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1864),
+  [7216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6311),
+  [7218] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_intrinsic_type, 1),
+  [7220] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 2),
+  [7222] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 2),
+  [7224] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 2, .production_id = 18),
+  [7226] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 2, .production_id = 18),
+  [7228] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__intrinsic_type, 1, .production_id = 4),
+  [7230] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__intrinsic_type, 1, .production_id = 4),
+  [7232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3494),
+  [7234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3101),
+  [7236] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 1),
+  [7238] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 1),
+  [7240] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_intrinsic_type, 2, .production_id = 26),
+  [7242] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_intrinsic_type, 2, .production_id = 26),
+  [7244] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2),
+  [7246] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2),
+  [7248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3496),
+  [7250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2893),
+  [7252] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2, .production_id = 57),
+  [7254] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2, .production_id = 57),
+  [7256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3497),
+  [7258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2891),
+  [7260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3468),
+  [7262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2884),
+  [7264] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_kind, 2, .production_id = 56),
+  [7266] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_kind, 2, .production_id = 56),
+  [7268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3489),
+  [7270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3099),
+  [7272] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_parenthesized_expression, 3), REDUCE(sym__argument_list, 3, .dynamic_precedence = 1),
+  [7275] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_parenthesized_expression, 3), REDUCE(sym__argument_list, 3, .dynamic_precedence = 1),
+  [7278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3457),
+  [7280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2723),
+  [7282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3479),
+  [7284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2725),
+  [7286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3467),
+  [7288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2880),
+  [7290] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, .production_id = 109),
+  [7292] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, .production_id = 109),
+  [7294] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4),
+  [7296] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4),
+  [7298] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, .dynamic_precedence = 1, .production_id = 72),
+  [7300] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, .dynamic_precedence = 1, .production_id = 72),
+  [7302] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, .production_id = 71),
+  [7304] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, .production_id = 71),
+  [7306] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, .production_id = 76),
+  [7308] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, .production_id = 76),
+  [7310] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, .dynamic_precedence = 1, .production_id = 75),
+  [7312] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, .dynamic_precedence = 1, .production_id = 75),
+  [7314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 4, .production_id = 74),
+  [7316] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 4, .production_id = 74),
+  [7318] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2879),
+  [7320] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1),
+  [7322] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2887),
+  [7324] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1), SHIFT(2887),
+  [7327] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym_procedure_qualifier, 1), SHIFT(2874),
+  [7330] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2873),
+  [7332] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2872),
+  [7334] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, .production_id = 106),
+  [7336] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, .production_id = 106),
+  [7338] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, .dynamic_precedence = 1, .production_id = 107),
+  [7340] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, .dynamic_precedence = 1, .production_id = 107),
+  [7342] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type, 5, .dynamic_precedence = 1, .production_id = 110),
+  [7344] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type, 5, .dynamic_precedence = 1, .production_id = 110),
+  [7346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3287),
+  [7348] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4033),
+  [7350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3257),
+  [7352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5377),
+  [7354] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5351),
+  [7356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5386),
+  [7358] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5379),
+  [7360] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5359),
+  [7362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5339),
+  [7364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5428),
   [7366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8245),
-  [7368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3277),
-  [7370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3261),
-  [7372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3251),
-  [7374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3264),
-  [7376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3266),
-  [7378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3293),
-  [7380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8278),
-  [7382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3278),
-  [7384] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3980),
-  [7386] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5390),
-  [7388] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5389),
-  [7390] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5391),
-  [7392] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5392),
-  [7394] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5393),
-  [7396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5337),
-  [7398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5421),
-  [7400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8337),
-  [7402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3279),
-  [7404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5483),
-  [7406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3263),
-  [7408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3303),
-  [7410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3280),
-  [7412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3239),
-  [7414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3241),
-  [7416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3252),
-  [7418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3244),
-  [7420] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3333),
-  [7422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3916),
-  [7424] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3234),
-  [7426] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5943),
-  [7428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3256),
-  [7430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5469),
-  [7432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3247),
-  [7434] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 3, 0, 0),
-  [7436] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 3, 0, 0),
-  [7438] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 7, 0, 0),
-  [7440] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 7, 0, 0),
-  [7442] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 4, 0, 0),
-  [7444] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 4, 0, 0),
-  [7446] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 6, 0, 0),
-  [7448] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 6, 0, 0),
-  [7450] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 8, 0, 0),
-  [7452] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 8, 0, 0),
-  [7454] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 5, 0, 0),
-  [7456] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 5, 0, 0),
-  [7458] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__type_spec, 2, 0, 0),
-  [7460] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__type_spec, 2, 0, 0),
-  [7462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3434),
-  [7464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(688),
-  [7466] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7524),
-  [7468] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8524),
-  [7470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4058),
-  [7472] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_user_defined_operator, 3, 0, 0),
-  [7474] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_user_defined_operator, 3, 0, 0),
-  [7476] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0),
-  [7478] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(8394),
-  [7481] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(8215),
-  [7484] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(3427),
-  [7487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0),
-  [7489] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(7646),
-  [7492] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(3338),
-  [7495] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(8578),
-  [7498] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2, 0, 0), SHIFT_REPEAT(6954),
-  [7501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5777),
-  [7503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4152),
-  [7505] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8608),
-  [7507] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8609),
-  [7509] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6283),
-  [7511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3405),
-  [7513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5771),
-  [7515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3431),
-  [7517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__variable_declarator, 1, 0, 0),
-  [7519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1879),
-  [7521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3451),
-  [7523] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__variable_declarator, 1, 0, 0),
-  [7525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2889),
-  [7527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3408),
-  [7529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3414),
-  [7531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3404),
-  [7533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3412),
-  [7535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5769),
-  [7537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4132),
-  [7539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3407),
-  [7541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3413),
-  [7543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3411),
-  [7545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3424),
-  [7547] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_string_literal, 3, 0, 31),
-  [7549] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_string_literal, 3, 0, 31),
-  [7551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5783),
-  [7553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3432),
-  [7555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5778),
-  [7557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3410),
-  [7559] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_string_literal, 1, 0, 0),
-  [7561] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_string_literal, 1, 0, 0),
-  [7563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1604),
-  [7565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1033),
-  [7567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1036),
-  [7569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1021),
-  [7571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1190),
-  [7573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1178),
-  [7575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2684),
-  [7577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2696),
-  [7579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4531),
-  [7581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3471),
-  [7583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5302),
-  [7585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3472),
-  [7587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5303),
-  [7589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1597),
-  [7591] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2808),
-  [7593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2818),
-  [7595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2994),
-  [7597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3111),
-  [7599] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1460),
-  [7601] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1465),
-  [7603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8519),
-  [7605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2880),
-  [7607] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_abstract_specifier, 1, 0, 0),
-  [7609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(897),
-  [7611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(899),
-  [7613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3487),
-  [7615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5663),
-  [7617] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_language_binding, 4, 0, 0),
-  [7619] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_language_binding, 4, 0, 0),
-  [7621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1047),
-  [7623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3488),
-  [7625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5664),
-  [7627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3420),
-  [7629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(662),
-  [7631] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1633),
-  [7633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1652),
-  [7635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1383),
-  [7637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1397),
-  [7639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1407),
-  [7641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2844),
-  [7643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4643),
-  [7645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1450),
-  [7647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1471),
-  [7649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1408),
-  [7651] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_language_binding, 6, 0, 0),
-  [7653] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_language_binding, 6, 0, 0),
-  [7655] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 4, 0, 0),
-  [7657] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 4, 0, 0),
-  [7659] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 2, 0, 0),
-  [7661] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 2, 0, 0),
-  [7663] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 3, 0, 0),
-  [7665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4550),
-  [7667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3512),
-  [7669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3058),
-  [7671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8267),
-  [7673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3508),
-  [7675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(697),
-  [7677] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 5, 0, 111),
-  [7679] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 5, 0, 111),
-  [7681] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 2, 0, 19),
-  [7683] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 2, 0, 19),
-  [7685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3489),
-  [7687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6280),
-  [7689] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3473),
-  [7691] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 4, 0, 77),
-  [7693] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 4, 0, 77),
-  [7695] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 1, 0, 7),
-  [7697] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat1, 1, 0, 7),
-  [7699] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(4022),
-  [7702] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(3474),
-  [7705] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(3462),
-  [7708] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(3504),
-  [7711] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(3502),
-  [7714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0),
-  [7716] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(3486),
-  [7719] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4022),
-  [7721] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3474),
-  [7723] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3462),
-  [7725] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3504),
-  [7727] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3502),
-  [7729] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_common_statement, 2, 0, 0),
-  [7731] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3486),
-  [7733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4625),
-  [7735] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3464),
-  [7737] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 1, 0, 0),
-  [7739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8457),
-  [7741] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 1, 0, 0),
-  [7743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3456),
-  [7745] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 2, 0, 0),
-  [7747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8581),
-  [7749] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 2, 0, 0),
-  [7751] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 1, 0, 121),
-  [7753] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_boolean_literal, 1, 0, 0),
-  [7755] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_boolean_literal, 1, 0, 0),
-  [7757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7620),
-  [7759] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_declarator, 2, 0, 0),
-  [7761] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_sized_declarator, 2, 0, 0),
-  [7763] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_declarator, 2, 0, 39),
-  [7765] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_sized_declarator, 2, 0, 39),
-  [7767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3121),
-  [7769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(646),
-  [7771] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3792),
-  [7773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1062),
-  [7775] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3812),
-  [7777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(850),
-  [7779] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 5, 0, 0),
-  [7781] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 5, 0, 0),
-  [7783] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3809),
-  [7785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1064),
-  [7787] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3630),
-  [7789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(852),
-  [7791] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3631),
-  [7793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(994),
-  [7795] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 2, 0, 148),
-  [7797] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 4, 0, 0),
-  [7799] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 4, 0, 0),
-  [7801] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3644),
-  [7803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1043),
-  [7805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(642),
-  [7807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8638),
-  [7809] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7687),
-  [7811] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7467),
-  [7813] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7591),
-  [7815] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7449),
-  [7817] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7625),
-  [7819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7719),
-  [7821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8140),
-  [7823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8377),
-  [7825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6474),
-  [7827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4110),
-  [7829] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3629),
-  [7831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2717),
-  [7833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7795),
-  [7835] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3710),
-  [7837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1619),
-  [7839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8039),
-  [7841] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3751),
-  [7843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1637),
-  [7845] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3655),
-  [7847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1173),
-  [7849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8240),
-  [7851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8036),
-  [7853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8401),
-  [7855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8507),
-  [7857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8628),
-  [7859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7725),
-  [7861] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_declarator, 2, 0, 19),
-  [7863] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_declarator, 2, 0, 19),
-  [7865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7766),
-  [7867] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3682),
-  [7869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1544),
-  [7871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7798),
-  [7873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7830),
-  [7875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7862),
-  [7877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7893),
-  [7879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7909),
-  [7881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7925),
-  [7883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7941),
-  [7885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7949),
-  [7887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7957),
-  [7889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7965),
-  [7891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7973),
-  [7893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7981),
-  [7895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7989),
-  [7897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7997),
-  [7899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8005),
-  [7901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8013),
-  [7903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8021),
-  [7905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8029),
-  [7907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8037),
-  [7909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8045),
-  [7911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8053),
-  [7913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8061),
-  [7915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8069),
-  [7917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8077),
-  [7919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8085),
-  [7921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8093),
-  [7923] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3766),
-  [7925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2838),
-  [7927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8109),
-  [7929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8117),
-  [7931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8125),
-  [7933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8133),
-  [7935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3707),
-  [7937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8630),
-  [7939] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3775),
-  [7941] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1368),
-  [7943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8621),
-  [7945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3656),
-  [7947] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3713),
-  [7949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1147),
-  [7951] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3702),
-  [7953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3090),
-  [7955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8422),
-  [7957] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3782),
-  [7959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2881),
-  [7961] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3685),
-  [7963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1568),
-  [7965] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3797),
-  [7967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1400),
-  [7969] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1891),
-  [7971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6317),
-  [7973] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8371),
-  [7975] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3635),
-  [7977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1262),
-  [7979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8002),
-  [7981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8101),
-  [7983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2728),
-  [7985] = {.entry = {.count = 1, .reusable = true}}, SHIFT(861),
-  [7987] = {.entry = {.count = 1, .reusable = true}}, SHIFT(963),
-  [7989] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3847),
-  [7991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_group, 5, 0, 0),
-  [7993] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_group, 5, 0, 0),
-  [7995] = {.entry = {.count = 1, .reusable = true}}, SHIFT(720),
-  [7997] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1276),
-  [7999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(891),
-  [8001] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3562),
-  [8003] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4210),
-  [8005] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3311),
-  [8007] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4930),
-  [8009] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4161),
-  [8011] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4256),
-  [8013] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3218),
-  [8015] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4130),
-  [8017] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7352),
-  [8019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3823),
-  [8021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5344),
-  [8023] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4012),
-  [8025] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4018),
-  [8027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8656),
-  [8029] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8166),
-  [8031] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5329),
-  [8033] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7477),
-  [8035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5330),
-  [8037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8632),
-  [8039] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5357),
-  [8041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6711),
-  [8043] = {.entry = {.count = 1, .reusable = true}}, SHIFT(723),
-  [8045] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_kind, 1, 0, 0),
-  [8047] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_kind, 1, 0, 0),
-  [8049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4968),
-  [8051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1018),
-  [8053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(544),
-  [8055] = {.entry = {.count = 1, .reusable = true}}, SHIFT(546),
-  [8057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5109),
-  [8059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5168),
-  [8061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(552),
-  [8063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1174),
-  [8065] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 2, 0, 15),
-  [8067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3888),
-  [8069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5094),
-  [8071] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_kind, 2, 0, 0),
-  [8073] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_kind, 2, 0, 0),
-  [8075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5171),
-  [8077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5157),
-  [8079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5177),
-  [8081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(759),
-  [8083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(711),
-  [8085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(590),
-  [8087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(722),
-  [8089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(744),
-  [8091] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_array_literal, 1, 0, 8),
-  [8093] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_array_literal, 1, 0, 8),
-  [8095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4795),
-  [8097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(730),
-  [8099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4798),
-  [8101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(743),
-  [8103] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4827),
-  [8105] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3832),
-  [8107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1506),
-  [8109] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2, 0, 0),
-  [8111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1577),
-  [8113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4581),
-  [8115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4584),
-  [8117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1011),
-  [8119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5185),
-  [8121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1014),
-  [8123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5193),
-  [8125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3153),
-  [8127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7870),
-  [8129] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implied_do_loop_expression, 5, 0, 0),
-  [8131] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_implied_do_loop_expression, 5, 0, 0),
-  [8133] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_complex_literal, 5, 0, 0),
-  [8135] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_complex_literal, 5, 0, 0),
-  [8137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5119),
-  [8139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1542),
-  [8141] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_number_literal, 2, 0, 9),
-  [8143] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_number_literal, 2, 0, 9),
-  [8145] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implied_do_loop_expression, 6, 0, 0),
-  [8147] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_implied_do_loop_expression, 6, 0, 0),
-  [8149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1128),
-  [8151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4984),
-  [8153] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(5771),
-  [8156] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_procedure_statement_repeat1, 2, 0, 0),
-  [8158] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2, 0, 0),
-  [8160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4496),
-  [8162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3828),
-  [8164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(727),
-  [8166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5128),
-  [8168] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_member_expression, 3, 0, 63),
-  [8170] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_member_expression, 3, 0, 63),
-  [8172] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_nil_literal, 1, 0, 0),
-  [8174] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_nil_literal, 1, 0, 0),
-  [8176] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_boolean_literal, 2, 0, 9),
-  [8178] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_boolean_literal, 2, 0, 9),
-  [8180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(689),
-  [8182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(565),
-  [8184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(568),
-  [8186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(733),
-  [8188] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3847),
-  [8191] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2, 0, 0),
-  [8193] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat1, 2, 0, 0),
-  [8195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4574),
-  [8197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4501),
-  [8199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(732),
-  [8201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(974),
-  [8203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(574),
-  [8205] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 1, 0, 0),
-  [8207] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 1, 0, 0),
-  [8209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(581),
-  [8211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(578),
-  [8213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(582),
-  [8215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(766),
-  [8217] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6344),
-  [8219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5009),
-  [8221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5019),
-  [8223] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_group, 4, 0, 0),
-  [8225] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_group, 4, 0, 0),
-  [8227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(649),
-  [8229] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_expression, 2, 0, 0),
-  [8231] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_expression, 2, 0, 0),
-  [8233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(848),
-  [8235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(583),
-  [8237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1647),
-  [8239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(647),
-  [8241] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4812),
-  [8243] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3869),
-  [8245] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_conditional_expression, 5, 0, 129),
-  [8247] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_conditional_expression, 5, 0, 129),
-  [8249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5187),
-  [8251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(679),
-  [8253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(591),
-  [8255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(593),
-  [8257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5139),
-  [8259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2775),
-  [8261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5142),
-  [8263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1060),
-  [8265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(978),
-  [8267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(598),
-  [8269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1376),
-  [8271] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4851),
-  [8273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3899),
-  [8275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(728),
-  [8277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5073),
-  [8279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2824),
-  [8281] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4883),
-  [8283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3887),
-  [8285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(612),
-  [8287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4760),
-  [8289] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__array_constructor_legacy, 3, 0, 43),
-  [8291] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__array_constructor_legacy, 3, 0, 43),
-  [8293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4763),
-  [8295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5756),
-  [8297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3381),
-  [8299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4017),
-  [8301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1072),
-  [8303] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__array_constructor_f2003, 3, 0, 43),
-  [8305] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__array_constructor_f2003, 3, 0, 43),
-  [8307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(726),
-  [8309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1415),
-  [8311] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__kind, 2, 0, 26),
-  [8313] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__kind, 2, 0, 26),
-  [8315] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_null_literal, 3, 0, 0),
-  [8317] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_null_literal, 3, 0, 0),
-  [8319] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4738),
-  [8321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3929),
-  [8323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3377),
-  [8325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4599),
-  [8327] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attribute, 1, 0, 0),
-  [8329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4143),
-  [8331] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attribute, 1, 0, 0),
-  [8333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4888),
-  [8335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3863),
-  [8337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4909),
-  [8339] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__expression, 1, 0, 0),
-  [8341] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0),
-  [8343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(619),
-  [8345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1075),
-  [8347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(858),
-  [8349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1101),
-  [8351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(888),
-  [8353] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 1, 0, 44),
-  [8355] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3584),
-  [8357] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4163),
-  [8359] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3248),
-  [8361] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4225),
-  [8363] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7510),
-  [8365] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8645),
-  [8367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5346),
-  [8369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3374),
-  [8371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3641),
-  [8373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3161),
-  [8375] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8052),
-  [8377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3362),
-  [8379] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8617),
-  [8381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3387),
-  [8383] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4932),
-  [8385] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4836),
-  [8387] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4437),
-  [8389] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4438),
-  [8391] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8391),
-  [8393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3400),
-  [8395] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8247),
-  [8397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3364),
-  [8399] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4837),
-  [8401] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 2, 0, 165),
-  [8403] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 1, 0, 41),
-  [8405] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4449),
-  [8407] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7813),
-  [8409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3395),
-  [8411] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4451),
-  [8413] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4891),
-  [8415] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 2, 0, 81),
-  [8417] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 3, 0, 148),
-  [8419] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4453),
-  [8421] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7723),
-  [8423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3383),
-  [8425] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 2, 0, 78),
-  [8427] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4865),
-  [8429] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 2, 0, 138),
-  [8431] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 3, 0, 68),
-  [8433] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4917),
-  [8435] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8464),
-  [8437] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3398),
-  [8439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 2, 0, 84),
-  [8441] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7804),
-  [8443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3359),
-  [8445] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8256),
-  [8447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3370),
-  [8449] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 2, 0, 113),
-  [8451] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4892),
-  [8453] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attribute, 4, 0, 0),
-  [8455] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attribute, 4, 0, 0),
-  [8457] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4823),
-  [8459] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4816),
-  [8461] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4817),
-  [8463] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4847),
-  [8465] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4822),
-  [8467] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4826),
-  [8469] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4867),
-  [8471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 1, 0, 80),
-  [8473] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 1, 0, 114),
-  [8475] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 1, 0, 42),
-  [8477] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4830),
-  [8479] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4880),
-  [8481] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8410),
-  [8483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3392),
-  [8485] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4844),
-  [8487] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8412),
-  [8489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3369),
-  [8491] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 2, 0, 145),
-  [8493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4811),
-  [8495] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 3, 0, 15),
-  [8497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, 0, 131),
-  [8499] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, 0, 131),
-  [8501] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4868),
-  [8503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4869),
-  [8505] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 1, 0, 146),
-  [8507] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, 0, 68),
-  [8509] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 4, 0, 15),
-  [8511] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4873),
-  [8513] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4876),
-  [8515] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4881),
-  [8517] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8018),
-  [8519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3396),
-  [8521] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4898),
-  [8523] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 2, 0, 121),
-  [8525] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 1, 0, 59),
-  [8527] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 2, 0, 94),
-  [8529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5763),
-  [8531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4015),
-  [8533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6800),
-  [8535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3996),
-  [8537] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4846),
-  [8539] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8517),
-  [8541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3372),
-  [8543] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enumeration_type_statement, 3, 0, 2),
-  [8545] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4777),
-  [8547] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4739),
-  [8549] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4775),
-  [8551] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4900),
-  [8553] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4835),
-  [8555] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4744),
-  [8557] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4746),
-  [8559] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4748),
-  [8561] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4931),
-  [8563] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4809),
-  [8565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4082),
-  [8567] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_internal_procedures, 3, 0, 0),
-  [8569] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_internal_procedures, 3, 0, 0),
-  [8571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6507),
-  [8573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4004),
-  [8575] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7743),
-  [8577] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_internal_procedures, 2, 0, 0),
-  [8579] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_internal_procedures, 2, 0, 0),
-  [8581] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 1, 0, 0), SHIFT(5772),
-  [8584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4033),
-  [8586] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 1, 0, 0),
-  [8588] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 1, 0, 0),
-  [8590] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 3, 0, 0), SHIFT(5780),
-  [8593] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 3, 0, 0),
-  [8595] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 3, 0, 0),
-  [8597] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, 0, 127), SHIFT_REPEAT(4550),
-  [8600] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, 0, 127),
-  [8602] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, 0, 127),
-  [8604] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, 0, 0), SHIFT(5780),
-  [8607] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 6, 0, 0),
-  [8609] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, 0, 0),
-  [8611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7587),
-  [8613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4095),
-  [8615] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, 0, 70), SHIFT(5780),
-  [8618] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 6, 0, 70),
-  [8620] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, 0, 70),
-  [8622] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 5, 0, 0), SHIFT(5780),
-  [8625] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 5, 0, 0),
-  [8627] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 5, 0, 0),
-  [8629] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3584),
-  [8632] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4163),
-  [8635] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3248),
-  [8638] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4225),
-  [8641] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(7510),
-  [8644] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0),
-  [8646] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5346),
-  [8649] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0),
-  [8651] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4012),
-  [8654] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3641),
-  [8657] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4018),
-  [8660] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8656),
-  [8663] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8166),
-  [8666] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3161),
-  [8669] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5329),
-  [8672] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(7477),
-  [8675] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5330),
-  [8678] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8632),
-  [8681] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5357),
-  [8684] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3562),
-  [8687] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4210),
-  [8690] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3311),
-  [8693] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0),
-  [8695] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4161),
-  [8698] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7352),
-  [8701] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0),
-  [8703] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(5344),
-  [8706] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4012),
-  [8709] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4018),
-  [8712] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(8656),
-  [8715] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(8166),
-  [8718] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(5329),
-  [8721] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7477),
-  [8724] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(5330),
-  [8727] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(8632),
-  [8730] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(5357),
-  [8733] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6507),
-  [8736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6491),
-  [8738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7555),
-  [8740] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, 0, 0), SHIFT(5780),
-  [8743] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 4, 0, 0),
-  [8745] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, 0, 0),
-  [8747] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(5780),
-  [8750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3989),
-  [8752] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 7, 0, 70), SHIFT(5780),
-  [8755] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 7, 0, 70),
-  [8757] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 7, 0, 70),
-  [8759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4138),
-  [8761] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, 0, 124),
-  [8763] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, 0, 124),
-  [8765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4098),
-  [8767] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_declared_type, 4, 0, 71),
-  [8769] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_declared_type, 4, 0, 71),
-  [8771] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_label_reference, 1, 0, 14),
-  [8773] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_statement_label_reference, 1, 0, 14),
-  [8775] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_type_qualifier, 1, 0, 0),
-  [8777] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_qualifier, 1, 0, 0),
-  [8779] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 3, 0, 0), SHIFT(5775),
-  [8782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4032),
-  [8784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7445),
-  [8786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4090),
-  [8788] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__class_default, 1, 0, 0),
-  [8790] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__class_default, 1, 0, 0),
-  [8792] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2774),
-  [8794] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2879),
-  [8796] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2906),
-  [8798] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2773),
-  [8800] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2782),
-  [8802] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__class_default, 2, 0, 0),
-  [8804] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__class_default, 2, 0, 0),
-  [8806] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1351),
-  [8808] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1349),
-  [8810] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1353),
-  [8812] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1355),
-  [8814] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1356),
-  [8816] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, 0, 70), SHIFT(5776),
-  [8819] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 4, 0, 70),
-  [8821] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, 0, 70),
-  [8823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6312),
-  [8825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4124),
-  [8827] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_type_qualifier, 1, 0, 52),
-  [8829] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_qualifier, 1, 0, 52),
-  [8831] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_access_specifier, 1, 0, 0),
-  [8833] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_access_specifier, 1, 0, 0),
-  [8835] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1694),
-  [8837] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1698),
-  [8839] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1695),
-  [8841] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1696),
-  [8843] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1697),
-  [8845] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1131),
-  [8847] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1153),
-  [8849] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1134),
-  [8851] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1136),
-  [8853] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1137),
-  [8855] = {.entry = {.count = 1, .reusable = false}}, SHIFT(816),
-  [8857] = {.entry = {.count = 1, .reusable = false}}, SHIFT(815),
-  [8859] = {.entry = {.count = 1, .reusable = false}}, SHIFT(817),
-  [8861] = {.entry = {.count = 1, .reusable = false}}, SHIFT(818),
-  [8863] = {.entry = {.count = 1, .reusable = false}}, SHIFT(819),
-  [8865] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6052),
-  [8867] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6046),
-  [8869] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6061),
-  [8871] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6068),
-  [8873] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6075),
-  [8875] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6530),
-  [8877] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6720),
-  [8879] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6535),
-  [8881] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6536),
-  [8883] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6538),
-  [8885] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2678),
-  [8887] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2671),
-  [8889] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2673),
-  [8891] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2674),
-  [8893] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2676),
-  [8895] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4447),
-  [8897] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4673),
-  [8899] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4660),
-  [8901] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4677),
-  [8903] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4682),
-  [8905] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4665),
-  [8907] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6711),
-  [8910] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_logical_expression, 3, 0, 62),
-  [8912] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_logical_expression, 3, 0, 62),
-  [8914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1894),
-  [8916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3038),
-  [8918] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3039),
-  [8920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4125),
-  [8922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3042),
-  [8924] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3042),
-  [8926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3053),
-  [8928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3056),
-  [8930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3060),
-  [8932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3046),
-  [8934] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concatenation_expression, 3, 0, 62),
-  [8936] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concatenation_expression, 3, 0, 62),
-  [8938] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_math_expression, 3, 0, 62),
-  [8940] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_math_expression, 3, 0, 62),
-  [8942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3055),
-  [8944] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_pointer_association, 3, 0, 64),
-  [8946] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_pointer_association, 3, 0, 64),
-  [8948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2894),
-  [8950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2923),
-  [8952] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unary_expression, 2, 0, 11),
-  [8954] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_unary_expression, 2, 0, 11),
-  [8956] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_logical_expression, 2, 0, 0),
-  [8958] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_logical_expression, 2, 0, 0),
-  [8960] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_relational_expression, 3, 0, 62),
-  [8962] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_relational_expression, 3, 0, 62),
-  [8964] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_assignment, 3, 0, 64),
-  [8966] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_assignment, 3, 0, 64),
-  [8968] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3570),
-  [8971] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4218),
-  [8974] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3319),
-  [8977] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4174),
-  [8980] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7382),
-  [8983] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6774),
-  [8986] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3570),
-  [8988] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4218),
-  [8990] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3319),
-  [8992] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4174),
-  [8994] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7382),
-  [8996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6774),
-  [8998] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3566),
-  [9000] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4214),
-  [9002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3315),
-  [9004] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4166),
-  [9006] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7367),
-  [9008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6584),
-  [9010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3556),
-  [9012] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4204),
-  [9014] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3306),
-  [9016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4154),
-  [9018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7329),
-  [9020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7214),
-  [9022] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 2, 0, 15),
-  [9024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4322),
-  [9026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3232),
-  [9028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4111),
-  [9030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4291),
-  [9032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3173),
-  [9034] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3577),
-  [9037] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4226),
-  [9040] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3321),
-  [9043] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4177),
-  [9046] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7405),
-  [9049] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6885),
-  [9052] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3556),
-  [9055] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4204),
-  [9058] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3306),
-  [9061] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4154),
-  [9064] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7329),
-  [9067] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7214),
-  [9070] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 1, 0, 0),
-  [9072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4278),
-  [9074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6834),
-  [9076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4455),
-  [9078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4273),
-  [9080] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3566),
-  [9083] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4214),
-  [9086] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3315),
-  [9089] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4166),
-  [9092] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7367),
-  [9095] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6584),
-  [9098] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_call_expression, 2, 0, 0),
-  [9100] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_call_expression, 2, 0, 0),
-  [9102] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3555),
-  [9104] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4203),
-  [9106] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3299),
-  [9108] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4141),
-  [9110] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7325),
-  [9112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6794),
-  [9114] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3540),
-  [9117] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4188),
-  [9120] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3258),
-  [9123] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4229),
-  [9126] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7568),
-  [9129] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6517),
-  [9132] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0),
-  [9134] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0),
-  [9136] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0), SHIFT_REPEAT(1894),
-  [9139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3567),
-  [9141] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4215),
-  [9143] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3317),
-  [9145] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4171),
-  [9147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7370),
-  [9149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6652),
-  [9151] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3567),
-  [9154] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4215),
-  [9157] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3317),
-  [9160] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4171),
-  [9163] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7370),
-  [9166] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6652),
-  [9169] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3555),
-  [9172] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4203),
-  [9175] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3299),
-  [9178] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4141),
-  [9181] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(7325),
-  [9184] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6794),
-  [9187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3540),
-  [9189] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4188),
-  [9191] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3258),
-  [9193] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4229),
-  [9195] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7568),
-  [9197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6517),
-  [9199] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3577),
-  [9201] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4226),
-  [9203] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3321),
-  [9205] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4177),
-  [9207] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7405),
-  [9209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6885),
-  [9211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4487),
-  [9213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4468),
-  [9215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4459),
-  [9217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4486),
-  [9219] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 2, 0, 0),
-  [9221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4435),
-  [9223] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, 0, 131),
-  [9225] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(6834),
-  [9228] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, 0, 68),
-  [9230] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 4, 0, 15),
-  [9232] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 3, 0, 0),
-  [9234] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 3, 0, 68),
-  [9236] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, 0, 131),
-  [9238] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 3, 0, 15),
-  [9240] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3612),
-  [9242] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4168),
-  [9244] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3257),
-  [9246] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4076),
-  [9248] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7541),
-  [9250] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3548),
-  [9252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3953),
-  [9254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5671),
+  [7368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3245),
+  [7370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3273),
+  [7372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5421),
+  [7374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3324),
+  [7376] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3989),
+  [7378] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5363),
+  [7380] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5364),
+  [7382] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5362),
+  [7384] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5360),
+  [7386] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5357),
+  [7388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5344),
+  [7390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5448),
+  [7392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8337),
+  [7394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3331),
+  [7396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5458),
+  [7398] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3333),
+  [7400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3844),
+  [7402] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3218),
+  [7404] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5881),
+  [7406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3277),
+  [7408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3251),
+  [7410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3286),
+  [7412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3290),
+  [7414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3249),
+  [7416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3269),
+  [7418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3298),
+  [7420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8446),
+  [7422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3272),
+  [7424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3330),
+  [7426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3306),
+  [7428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3315),
+  [7430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3271),
+  [7432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3291),
+  [7434] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 6),
+  [7436] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 6),
+  [7438] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 8),
+  [7440] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 8),
+  [7442] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 4),
+  [7444] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 4),
+  [7446] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 3),
+  [7448] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 3),
+  [7450] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 5),
+  [7452] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 5),
+  [7454] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_arguments, 7),
+  [7456] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__io_arguments, 7),
+  [7458] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__type_spec, 2),
+  [7460] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__type_spec, 2),
+  [7462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3408),
+  [7464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(660),
+  [7466] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7581),
+  [7468] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8042),
+  [7470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4041),
+  [7472] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2),
+  [7474] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(8359),
+  [7477] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(8046),
+  [7480] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(3420),
+  [7483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat1, 2),
+  [7485] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(7496),
+  [7488] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(3347),
+  [7491] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(8150),
+  [7494] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 2), SHIFT_REPEAT(6924),
+  [7497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_user_defined_operator, 3),
+  [7499] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_user_defined_operator, 3),
+  [7501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5781),
+  [7503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8608),
+  [7505] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8609),
+  [7507] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6237),
+  [7509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3413),
+  [7511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3429),
+  [7513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3428),
+  [7515] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__variable_declarator, 1),
+  [7517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1882),
+  [7519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3437),
+  [7521] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__variable_declarator, 1),
+  [7523] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2907),
+  [7525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3418),
+  [7527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5777),
+  [7529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4077),
+  [7531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3406),
+  [7533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3436),
+  [7535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3425),
+  [7537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3414),
+  [7539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5769),
+  [7541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4147),
+  [7543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3435),
+  [7545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3412),
+  [7547] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_string_literal, 3, .production_id = 31),
+  [7549] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_string_literal, 3, .production_id = 31),
+  [7551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5779),
+  [7553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3426),
+  [7555] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_string_literal, 1),
+  [7557] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_string_literal, 1),
+  [7559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5776),
+  [7561] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3423),
+  [7563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7719),
+  [7565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2862),
+  [7567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3080),
+  [7569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3090),
+  [7571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2827),
+  [7573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3460),
+  [7575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5304),
+  [7577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1581),
+  [7579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3495),
+  [7581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5664),
+  [7583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3493),
+  [7585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5666),
+  [7587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2901),
+  [7589] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_abstract_specifier, 1),
+  [7591] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3459),
+  [7593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5306),
+  [7595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1638),
+  [7597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4569),
+  [7599] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_language_binding, 6),
+  [7601] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_language_binding, 6),
+  [7603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1513),
+  [7605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2750),
+  [7607] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2870),
+  [7609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1057),
+  [7611] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_language_binding, 4),
+  [7613] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_language_binding, 4),
+  [7615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1518),
+  [7617] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1427),
+  [7619] = {.entry = {.count = 1, .reusable = true}}, SHIFT(839),
+  [7621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1420),
+  [7623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1109),
+  [7625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1096),
+  [7627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1171),
+  [7629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1181),
+  [7631] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1595),
+  [7633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1620),
+  [7635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(857),
+  [7637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4543),
+  [7639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(981),
+  [7641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1529),
+  [7643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1559),
+  [7645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3407),
+  [7647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(680),
+  [7649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1649),
+  [7651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1562),
+  [7653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2685),
+  [7655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2991),
+  [7657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7779),
+  [7659] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 2),
+  [7661] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 2),
+  [7663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(678),
+  [7665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4609),
+  [7667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3509),
+  [7669] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 4),
+  [7671] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 4),
+  [7673] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6165),
+  [7675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3482),
+  [7677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3461),
+  [7679] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 4, .production_id = 77),
+  [7681] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 4, .production_id = 77),
+  [7683] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 2, .production_id = 19),
+  [7685] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 2, .production_id = 19),
+  [7687] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_modification_repeat1, 1, .production_id = 7),
+  [7689] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat1, 1, .production_id = 7),
+  [7691] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__standalone_type_qualifier, 5, .production_id = 111),
+  [7693] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__standalone_type_qualifier, 5, .production_id = 111),
+  [7695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3471),
+  [7697] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 3),
+  [7699] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 1),
+  [7701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8682),
+  [7703] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 1),
+  [7705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3454),
+  [7707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4645),
+  [7709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3477),
+  [7711] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3975),
+  [7714] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3469),
+  [7717] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3470),
+  [7720] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3498),
+  [7723] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3466),
+  [7726] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 2),
+  [7728] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2), SHIFT_REPEAT(3465),
+  [7731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3975),
+  [7733] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3469),
+  [7735] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3470),
+  [7737] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3498),
+  [7739] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3466),
+  [7741] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_common_statement, 2),
+  [7743] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3465),
+  [7745] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 2),
+  [7747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8012),
+  [7749] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 2),
+  [7751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3108),
+  [7753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(640),
+  [7755] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3640),
+  [7757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(989),
+  [7759] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3635),
+  [7761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(996),
+  [7763] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 4),
+  [7765] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 4),
+  [7767] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_character_length, 5),
+  [7769] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_character_length, 5),
+  [7771] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_boolean_literal, 1),
+  [7773] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_boolean_literal, 1),
+  [7775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7562),
+  [7777] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 1, .production_id = 121),
+  [7779] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_declarator, 2),
+  [7781] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_sized_declarator, 2),
+  [7783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(648),
+  [7785] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3779),
+  [7787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(987),
+  [7789] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 2, .production_id = 148),
+  [7791] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3700),
+  [7793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(852),
+  [7795] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_declarator, 2, .production_id = 39),
+  [7797] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_sized_declarator, 2, .production_id = 39),
+  [7799] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3683),
+  [7801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(847),
+  [7803] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3776),
+  [7805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(972),
+  [7807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3737),
+  [7809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8419),
+  [7811] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7527),
+  [7813] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7352),
+  [7815] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7526),
+  [7817] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7514),
+  [7819] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7510),
+  [7821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8593),
+  [7823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8140),
+  [7825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7754),
+  [7827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3639),
+  [7829] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3749),
+  [7831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3048),
+  [7833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7798),
+  [7835] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3784),
+  [7837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1628),
+  [7839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7766),
+  [7841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8410),
+  [7843] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3689),
+  [7845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1598),
+  [7847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8045),
+  [7849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8013),
+  [7851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8053),
+  [7853] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3629),
+  [7855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1467),
+  [7857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7988),
+  [7859] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3740),
+  [7861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2888),
+  [7863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7725),
+  [7865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8061),
+  [7867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7949),
+  [7869] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3699),
+  [7871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1351),
+  [7873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8286),
+  [7875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8292),
+  [7877] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3672),
+  [7879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1186),
+  [7881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7956),
+  [7883] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_declarator, 2, .production_id = 19),
+  [7885] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_declarator, 2, .production_id = 19),
+  [7887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7997),
+  [7889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8592),
+  [7891] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3755),
+  [7893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1304),
+  [7895] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3645),
+  [7897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1135),
+  [7899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7989),
+  [7901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7830),
+  [7903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7981),
+  [7905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7738),
+  [7907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8069),
+  [7909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7973),
+  [7911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7957),
+  [7913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8092),
+  [7915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8077),
+  [7917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1865),
+  [7919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6323),
+  [7921] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3670),
+  [7923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2718),
+  [7925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7965),
+  [7927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8085),
+  [7929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8093),
+  [7931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8037),
+  [7933] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3759),
+  [7935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1412),
+  [7937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8101),
+  [7939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8151),
+  [7941] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7212),
+  [7943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4103),
+  [7945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7962),
+  [7947] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8005),
+  [7949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8029),
+  [7951] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7941),
+  [7953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8109),
+  [7955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8117),
+  [7957] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3723),
+  [7959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2810),
+  [7961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7862),
+  [7963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8125),
+  [7965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8133),
+  [7967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8551),
+  [7969] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3793),
+  [7971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1357),
+  [7973] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7893),
+  [7975] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8021),
+  [7977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7909),
+  [7979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7925),
+  [7981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8132),
+  [7983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1477),
+  [7985] = {.entry = {.count = 1, .reusable = true}}, SHIFT(587),
+  [7987] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implied_do_loop_expression, 6),
+  [7989] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_implied_do_loop_expression, 6),
+  [7991] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1054),
+  [7993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(575),
+  [7995] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1049),
+  [7997] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_kind, 1),
+  [7999] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_kind, 1),
+  [8001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(574),
+  [8003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(566),
+  [8005] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1152),
+  [8007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(562),
+  [8009] = {.entry = {.count = 1, .reusable = true}}, SHIFT(586),
+  [8011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5039),
+  [8013] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5750),
+  [8015] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3360),
+  [8017] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4044),
+  [8019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1001),
+  [8021] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_conditional_expression, 5, .production_id = 129),
+  [8023] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_conditional_expression, 5, .production_id = 129),
+  [8025] = {.entry = {.count = 1, .reusable = true}}, SHIFT(855),
+  [8027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(585),
+  [8029] = {.entry = {.count = 1, .reusable = true}}, SHIFT(565),
+  [8031] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5177),
+  [8033] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5042),
+  [8035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(651),
+  [8037] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3563),
+  [8039] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4151),
+  [8041] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3266),
+  [8043] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4474),
+  [8045] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4228),
+  [8047] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4263),
+  [8049] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3230),
+  [8051] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4134),
+  [8053] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7598),
+  [8055] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3908),
+  [8057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5346),
+  [8059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4018),
+  [8061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4048),
+  [8063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8310),
+  [8065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8166),
+  [8067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5333),
+  [8069] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7626),
+  [8071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5332),
+  [8073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8632),
+  [8075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5383),
+  [8077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7031),
+  [8079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5048),
+  [8081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(589),
+  [8083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2695),
+  [8085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1188),
+  [8087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4516),
+  [8089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5057),
+  [8091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7975),
+  [8093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4730),
+  [8095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5122),
+  [8097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(881),
+  [8099] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_boolean_literal, 2, .production_id = 9),
+  [8101] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_boolean_literal, 2, .production_id = 9),
+  [8103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4733),
+  [8105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_expression, 2),
+  [8107] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_coarray_expression, 2),
+  [8109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1622),
+  [8111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3846),
+  [8113] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_group, 5),
+  [8115] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_group, 5),
+  [8117] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2), SHIFT_REPEAT(3846),
+  [8120] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2),
+  [8122] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat1, 2),
+  [8124] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 2),
+  [8126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(754),
+  [8128] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4814),
+  [8130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3825),
+  [8132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(728),
+  [8134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1387),
+  [8136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(885),
+  [8138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1079),
+  [8140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(663),
+  [8142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5212),
+  [8144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1067),
+  [8146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(653),
+  [8148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4953),
+  [8150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(763),
+  [8152] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6405),
+  [8154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4950),
+  [8156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5215),
+  [8158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2786),
+  [8160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(701),
+  [8162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(734),
+  [8164] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_group, 4),
+  [8166] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_group, 4),
+  [8168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5072),
+  [8170] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__expression, 1),
+  [8172] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__expression, 1),
+  [8174] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat2, 1),
+  [8176] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_common_statement_repeat2, 1),
+  [8178] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__kind, 2, .production_id = 26),
+  [8180] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__kind, 2, .production_id = 26),
+  [8182] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_nil_literal, 1),
+  [8184] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_nil_literal, 1),
+  [8186] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_member_expression, 3, .production_id = 63),
+  [8188] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_member_expression, 3, .production_id = 63),
+  [8190] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2), SHIFT_REPEAT(5781),
+  [8193] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_procedure_statement_repeat1, 2),
+  [8195] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2),
+  [8197] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4891),
+  [8199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3917),
+  [8201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(705),
+  [8203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2821),
+  [8205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(707),
+  [8207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(894),
+  [8209] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_array_literal, 1, .production_id = 8),
+  [8211] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_array_literal, 1, .production_id = 8),
+  [8213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(613),
+  [8215] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 2, .production_id = 15),
+  [8217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3869),
+  [8219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5172),
+  [8221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3055),
+  [8223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(709),
+  [8225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(891),
+  [8227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(713),
+  [8229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(617),
+  [8231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1246),
+  [8233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1066),
+  [8235] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_number_literal, 2, .production_id = 9),
+  [8237] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_number_literal, 2, .production_id = 9),
+  [8239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1439),
+  [8241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5226),
+  [8243] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5223),
+  [8245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4967),
+  [8247] = {.entry = {.count = 1, .reusable = true}}, SHIFT(758),
+  [8249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(735),
+  [8251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5015),
+  [8253] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_complex_literal, 5),
+  [8255] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_complex_literal, 5),
+  [8257] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_kind, 2),
+  [8259] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_kind, 2),
+  [8261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(725),
+  [8263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1105),
+  [8265] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implied_do_loop_expression, 5),
+  [8267] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_implied_do_loop_expression, 5),
+  [8269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4851),
+  [8271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1102),
+  [8273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(982),
+  [8275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1023),
+  [8277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4590),
+  [8279] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4815),
+  [8281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3831),
+  [8283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1633),
+  [8285] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_null_literal, 3),
+  [8287] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_null_literal, 3),
+  [8289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4848),
+  [8291] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4866),
+  [8293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3900),
+  [8295] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__array_constructor_f2003, 3, .production_id = 43),
+  [8297] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__array_constructor_f2003, 3, .production_id = 43),
+  [8299] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__array_constructor_legacy, 3, .production_id = 43),
+  [8301] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__array_constructor_legacy, 3, .production_id = 43),
+  [8303] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4787),
+  [8305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3817),
+  [8307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5021),
+  [8309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1342),
+  [8311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4583),
+  [8313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4565),
+  [8315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(583),
+  [8317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(743),
+  [8319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4572),
+  [8321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(546),
+  [8323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(550),
+  [8325] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4791),
+  [8327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3931),
+  [8329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(622),
+  [8331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4883),
+  [8333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(699),
+  [8335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5106),
+  [8337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(584),
+  [8339] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attribute, 1),
+  [8341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4170),
+  [8343] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attribute, 1),
+  [8345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3396),
+  [8347] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4762),
+  [8349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3852),
+  [8351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(733),
+  [8353] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4903),
+  [8355] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4860),
+  [8357] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4808),
+  [8359] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4806),
+  [8361] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4811),
+  [8363] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4790),
+  [8365] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 2, .production_id = 138),
+  [8367] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4927),
+  [8369] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 2, .production_id = 78),
+  [8371] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4928),
+  [8373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7131),
+  [8375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4023),
+  [8377] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 2, .production_id = 94),
+  [8379] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4922),
+  [8381] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4920),
+  [8383] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4802),
+  [8385] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 2, .production_id = 113),
+  [8387] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3600),
+  [8389] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4138),
+  [8391] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3258),
+  [8393] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4148),
+  [8395] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7508),
+  [8397] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8036),
+  [8399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5342),
+  [8401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3392),
+  [8403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3641),
+  [8405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3161),
+  [8407] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8269),
+  [8409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3403),
+  [8411] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4465),
+  [8413] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, .production_id = 131),
+  [8415] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7856),
+  [8417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3365),
+  [8419] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enumeration_type_statement, 3, .production_id = 2),
+  [8421] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7943),
+  [8423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3361),
+  [8425] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4772),
+  [8427] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4818),
+  [8429] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4767),
+  [8431] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 2, .production_id = 145),
+  [8433] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 1, .production_id = 114),
+  [8435] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4816),
+  [8437] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 1, .production_id = 41),
+  [8439] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4756),
+  [8441] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4826),
+  [8443] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4844),
+  [8445] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4745),
+  [8447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 1, .production_id = 146),
+  [8449] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 3, .production_id = 68),
+  [8451] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8506),
+  [8453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3391),
+  [8455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 1, .production_id = 42),
+  [8457] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4704),
+  [8459] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 3, .production_id = 15),
+  [8461] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7727),
+  [8463] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3371),
+  [8465] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attribute, 4),
+  [8467] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attribute, 4),
+  [8469] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8311),
+  [8471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3399),
+  [8473] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 4, .production_id = 15),
+  [8475] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4917),
+  [8477] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, .production_id = 68),
+  [8479] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, .production_id = 131),
+  [8481] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 1, .production_id = 44),
+  [8483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 2, .production_id = 121),
+  [8485] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8395),
+  [8487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3359),
+  [8489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5744),
+  [8491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4067),
+  [8493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4487),
+  [8495] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4838),
+  [8497] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4843),
+  [8499] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 2, .production_id = 165),
+  [8501] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4777),
+  [8503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8408),
+  [8505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3397),
+  [8507] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4480),
+  [8509] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8143),
+  [8511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3394),
+  [8513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 1, .production_id = 80),
+  [8515] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4864),
+  [8517] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7733),
+  [8519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3377),
+  [8521] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4913),
+  [8523] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4448),
+  [8525] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8450),
+  [8527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3368),
+  [8529] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4451),
+  [8531] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 1, .production_id = 59),
+  [8533] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4878),
+  [8535] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4875),
+  [8537] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 2, .production_id = 84),
+  [8539] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 2, .production_id = 81),
+  [8541] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4780),
+  [8543] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8558),
+  [8545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3389),
+  [8547] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8074),
+  [8549] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3387),
+  [8551] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4902),
+  [8553] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4778),
+  [8555] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4783),
+  [8557] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4782),
+  [8559] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 3, .production_id = 148),
+  [8561] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4795),
+  [8563] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4932),
+  [8565] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8579),
+  [8567] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_internal_procedures, 2),
+  [8569] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_internal_procedures, 2),
+  [8571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6590),
+  [8573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7228),
+  [8575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7402),
+  [8577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4056),
+  [8579] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, .production_id = 127), SHIFT_REPEAT(4609),
+  [8582] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, .production_id = 127),
+  [8584] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, .production_id = 127),
+  [8586] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 4), SHIFT(5775),
+  [8589] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 4),
+  [8591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 4),
+  [8593] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat1, 2), SHIFT_REPEAT(5775),
+  [8596] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_internal_procedures, 3),
+  [8598] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_internal_procedures, 3),
+  [8600] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 1), SHIFT(5773),
+  [8603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4037),
+  [8605] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 1),
+  [8607] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 1),
+  [8609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4175),
+  [8611] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 3), SHIFT(5775),
+  [8614] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 3),
+  [8616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 3),
+  [8618] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3563),
+  [8621] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4151),
+  [8624] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3266),
+  [8627] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2),
+  [8629] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4228),
+  [8632] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7598),
+  [8635] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2),
+  [8637] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(5346),
+  [8640] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4018),
+  [8643] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4048),
+  [8646] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(8310),
+  [8649] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(8166),
+  [8652] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(5333),
+  [8655] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7626),
+  [8658] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(5332),
+  [8661] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(8632),
+  [8664] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(5383),
+  [8667] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(6590),
+  [8670] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(3600),
+  [8673] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(4138),
+  [8676] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(3258),
+  [8679] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(4148),
+  [8682] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(7508),
+  [8685] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2),
+  [8687] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(5342),
+  [8690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2),
+  [8692] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(4018),
+  [8695] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(3641),
+  [8698] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(4048),
+  [8701] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(8310),
+  [8704] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(8166),
+  [8707] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(3161),
+  [8710] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(5333),
+  [8713] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(7626),
+  [8716] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(5332),
+  [8719] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(8632),
+  [8722] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_interface_repeat1, 2), SHIFT_REPEAT(5383),
+  [8725] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 7, .production_id = 70), SHIFT(5775),
+  [8728] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 7, .production_id = 70),
+  [8730] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 7, .production_id = 70),
+  [8732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7341),
+  [8734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4212),
+  [8736] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 5), SHIFT(5775),
+  [8739] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 5),
+  [8741] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 5),
+  [8743] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 6), SHIFT(5775),
+  [8746] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 6),
+  [8748] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 6),
+  [8750] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, .production_id = 70), SHIFT(5775),
+  [8753] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 6, .production_id = 70),
+  [8755] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 6, .production_id = 70),
+  [8757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3998),
+  [8759] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_declared_type, 4, .production_id = 71),
+  [8761] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_declared_type, 4, .production_id = 71),
+  [8763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4137),
+  [8765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4196),
+  [8767] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, .production_id = 70), SHIFT(5778),
+  [8770] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_declaration, 4, .production_id = 70),
+  [8772] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_declaration, 4, .production_id = 70),
+  [8774] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2841),
+  [8776] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2812),
+  [8778] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2840),
+  [8780] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2837),
+  [8782] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2836),
+  [8784] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_label_reference, 1, .production_id = 14),
+  [8786] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_statement_label_reference, 1, .production_id = 14),
+  [8788] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1550),
+  [8790] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1551),
+  [8792] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1549),
+  [8794] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1548),
+  [8796] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1524),
+  [8798] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__class_default, 2),
+  [8800] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__class_default, 2),
+  [8802] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_access_specifier, 1),
+  [8804] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_access_specifier, 1),
+  [8806] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__class_default, 1),
+  [8808] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__class_default, 1),
+  [8810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4161),
+  [8812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4055),
+  [8814] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, .production_id = 124),
+  [8816] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_variable_declaration_repeat1, 2, .production_id = 124),
+  [8818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7651),
+  [8820] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_type_qualifier, 1, .production_id = 52),
+  [8822] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_qualifier, 1, .production_id = 52),
+  [8824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4076),
+  [8826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_type_qualifier, 1),
+  [8828] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_type_qualifier, 1),
+  [8830] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_procedure_declaration, 3), SHIFT(5774),
+  [8833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6314),
+  [8835] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6469),
+  [8837] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6602),
+  [8839] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6470),
+  [8841] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6471),
+  [8843] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6472),
+  [8845] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1719),
+  [8847] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1704),
+  [8849] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1718),
+  [8851] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1714),
+  [8853] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1713),
+  [8855] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1124),
+  [8857] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1129),
+  [8859] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1128),
+  [8861] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1127),
+  [8863] = {.entry = {.count = 1, .reusable = false}}, SHIFT(1126),
+  [8865] = {.entry = {.count = 1, .reusable = false}}, SHIFT(835),
+  [8867] = {.entry = {.count = 1, .reusable = false}}, SHIFT(829),
+  [8869] = {.entry = {.count = 1, .reusable = false}}, SHIFT(826),
+  [8871] = {.entry = {.count = 1, .reusable = false}}, SHIFT(825),
+  [8873] = {.entry = {.count = 1, .reusable = false}}, SHIFT(821),
+  [8875] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6055),
+  [8877] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6056),
+  [8879] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6054),
+  [8881] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6053),
+  [8883] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6048),
+  [8885] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2672),
+  [8887] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2673),
+  [8889] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2677),
+  [8891] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2678),
+  [8893] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2675),
+  [8895] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4649),
+  [8897] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4650),
+  [8899] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4651),
+  [8901] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4648),
+  [8903] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4678),
+  [8905] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4458),
+  [8907] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7031),
+  [8910] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_logical_expression, 3, .production_id = 62),
+  [8912] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_logical_expression, 3, .production_id = 62),
+  [8914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1861),
+  [8916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3129),
+  [8918] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3134),
+  [8920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4224),
+  [8922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3145),
+  [8924] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3145),
+  [8926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3030),
+  [8928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2989),
+  [8930] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_pointer_association, 3, .production_id = 64),
+  [8932] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_pointer_association, 3, .production_id = 64),
+  [8934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3158),
+  [8936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3154),
+  [8938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3087),
+  [8940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2811),
+  [8942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2929),
+  [8944] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_logical_expression, 2),
+  [8946] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_logical_expression, 2),
+  [8948] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_math_expression, 3, .production_id = 62),
+  [8950] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_math_expression, 3, .production_id = 62),
+  [8952] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concatenation_expression, 3, .production_id = 62),
+  [8954] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concatenation_expression, 3, .production_id = 62),
+  [8956] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unary_expression, 2, .production_id = 11),
+  [8958] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_unary_expression, 2, .production_id = 11),
+  [8960] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_assignment, 3, .production_id = 64),
+  [8962] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_assignment, 3, .production_id = 64),
+  [8964] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_relational_expression, 3, .production_id = 62),
+  [8966] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_relational_expression, 3, .production_id = 62),
+  [8968] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3550),
+  [8970] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4146),
+  [8972] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3244),
+  [8974] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4211),
+  [8976] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7569),
+  [8978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7153),
+  [8980] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3550),
+  [8983] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4146),
+  [8986] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3244),
+  [8989] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4211),
+  [8992] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7569),
+  [8995] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7153),
+  [8998] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 2, .production_id = 15),
+  [9000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4322),
+  [9002] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3217),
+  [9004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4110),
+  [9006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4273),
+  [9008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3174),
+  [9010] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2),
+  [9012] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_call_expression_repeat1, 2),
+  [9014] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2), SHIFT_REPEAT(1861),
+  [9017] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3596),
+  [9019] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4094),
+  [9021] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3252),
+  [9023] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4111),
+  [9025] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7582),
+  [9027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6905),
+  [9029] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3553),
+  [9032] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4176),
+  [9035] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3301),
+  [9038] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4144),
+  [9041] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7622),
+  [9044] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(6611),
+  [9047] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3553),
+  [9049] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4176),
+  [9051] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3301),
+  [9053] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4144),
+  [9055] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7622),
+  [9057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6611),
+  [9059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4433),
+  [9061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4276),
+  [9063] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3611),
+  [9065] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4184),
+  [9067] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3242),
+  [9069] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4118),
+  [9071] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7541),
+  [9073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7251),
+  [9075] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3606),
+  [9078] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4179),
+  [9081] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3239),
+  [9084] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4187),
+  [9087] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7627),
+  [9090] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7032),
+  [9093] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3577),
+  [9095] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4100),
+  [9097] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3264),
+  [9099] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4133),
+  [9101] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7679),
+  [9103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6468),
+  [9105] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3577),
+  [9108] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4100),
+  [9111] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3264),
+  [9114] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4133),
+  [9117] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7679),
+  [9120] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(6468),
+  [9123] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3606),
+  [9125] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4179),
+  [9127] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3239),
+  [9129] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4187),
+  [9131] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7627),
+  [9133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7032),
+  [9135] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 1),
+  [9137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4292),
+  [9139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7274),
+  [9141] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3605),
+  [9144] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4126),
+  [9147] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3255),
+  [9150] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4120),
+  [9153] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7585),
+  [9156] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(6765),
+  [9159] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_call_expression, 2),
+  [9161] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_call_expression, 2),
+  [9163] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3596),
+  [9166] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4094),
+  [9169] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3252),
+  [9172] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4111),
+  [9175] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7582),
+  [9178] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(6905),
+  [9181] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3605),
+  [9183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4126),
+  [9185] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3255),
+  [9187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4120),
+  [9189] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7585),
+  [9191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6765),
+  [9193] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3611),
+  [9196] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4184),
+  [9199] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(3242),
+  [9202] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(4118),
+  [9205] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7541),
+  [9208] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7251),
+  [9211] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 3, .production_id = 15),
+  [9213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4440),
+  [9215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4438),
+  [9217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4485),
+  [9219] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 4, .production_id = 15),
+  [9221] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, .production_id = 68),
+  [9223] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, .production_id = 131),
+  [9225] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_internal_procedures_repeat1, 2), SHIFT_REPEAT(7274),
+  [9228] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, .production_id = 131),
+  [9230] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 3, .production_id = 68),
+  [9232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4490),
+  [9234] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 3),
+  [9236] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_else_in_internal_procedures, 2),
+  [9238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4499),
+  [9240] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3521),
+  [9242] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4160),
+  [9244] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3314),
+  [9246] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4113),
+  [9248] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7677),
+  [9250] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3566),
+  [9252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3957),
+  [9254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5659),
   [9256] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8265),
-  [9258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3367),
-  [9260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3368),
-  [9262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6741),
-  [9264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3686),
-  [9266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3851),
-  [9268] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7577),
-  [9270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3852),
-  [9272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8526),
-  [9274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7199),
-  [9276] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3622),
-  [9278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3634),
-  [9280] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3519),
-  [9282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3668),
-  [9284] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3527),
-  [9286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3654),
-  [9288] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3603),
-  [9290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3684),
-  [9292] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3526),
-  [9294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3750),
-  [9296] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0),
-  [9298] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0),
-  [9300] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5346),
-  [9303] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4012),
-  [9306] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3641),
-  [9309] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(4018),
-  [9312] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8656),
-  [9315] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8166),
-  [9318] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(3173),
-  [9321] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5329),
-  [9324] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(7477),
-  [9327] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5330),
-  [9330] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(8632),
-  [9333] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2, 0, 0), SHIFT_REPEAT(5357),
-  [9336] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3588),
-  [9338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3704),
-  [9340] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3575),
-  [9342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3745),
-  [9344] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3593),
-  [9346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3701),
-  [9348] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3582),
-  [9350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3774),
-  [9352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3524),
-  [9354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3709),
-  [9356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3607),
-  [9358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3796),
-  [9360] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3600),
-  [9362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3759),
-  [9364] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 1, 0, 0),
-  [9366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4325),
-  [9368] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3612),
-  [9371] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(4168),
-  [9374] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3257),
-  [9377] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(4076),
-  [9380] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(7541),
-  [9383] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0),
-  [9385] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [9388] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0),
-  [9390] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(8265),
-  [9393] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3367),
-  [9396] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3368),
-  [9399] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(6741),
-  [9402] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3851),
-  [9405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(7577),
-  [9408] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(3852),
-  [9411] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(8604),
-  [9414] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [9417] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 0), SHIFT_REPEAT(7199),
-  [9420] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 2, 0, 0),
-  [9422] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 3, 0, 0),
-  [9424] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, 0, 187),
-  [9426] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, 0, 187),
-  [9428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3082),
-  [9430] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3083),
-  [9432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4085),
-  [9434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3088),
-  [9436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3089),
-  [9438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3084),
-  [9440] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3084),
-  [9442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3086),
-  [9444] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, 0, 167),
-  [9446] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, 0, 167),
-  [9448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3085),
-  [9450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3087),
-  [9452] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 5, 0, 97),
-  [9454] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 5, 0, 97),
-  [9456] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, 0, 198),
-  [9458] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, 0, 198),
-  [9460] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 3, 0, 30),
-  [9462] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 3, 0, 30),
-  [9464] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, 0, 169),
-  [9466] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, 0, 169),
-  [9468] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, 0, 199),
-  [9470] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, 0, 199),
-  [9472] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, 0, 186),
-  [9474] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, 0, 186),
-  [9476] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, 0, 185),
-  [9478] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, 0, 185),
-  [9480] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 9, 0, 204),
-  [9482] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 9, 0, 204),
-  [9484] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 5, 0, 149),
-  [9486] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 5, 0, 149),
-  [9488] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 9, 0, 205),
-  [9490] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 9, 0, 205),
-  [9492] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 10, 0, 206),
-  [9494] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 10, 0, 206),
-  [9496] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 10, 0, 207),
-  [9498] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 10, 0, 207),
-  [9500] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, 0, 188),
-  [9502] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, 0, 188),
-  [9504] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 11, 0, 208),
-  [9506] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 11, 0, 208),
-  [9508] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, 0, 168),
-  [9510] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, 0, 168),
-  [9512] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 4, 0, 65),
-  [9514] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 4, 0, 65),
-  [9516] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 4, 0, 66),
-  [9518] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 4, 0, 66),
-  [9520] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, 0, 197),
-  [9522] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, 0, 197),
-  [9524] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0), SHIFT_REPEAT(1892),
-  [9527] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0), SHIFT_REPEAT(1897),
-  [9530] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 2, 0, 0),
-  [9532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4120),
-  [9534] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 2, 0, 0),
-  [9536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3048),
-  [9538] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3059),
-  [9540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4114),
-  [9542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3054),
-  [9544] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3054),
-  [9546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3112),
-  [9548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2988),
-  [9550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3007),
-  [9552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3009),
-  [9554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3005),
-  [9556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1892),
-  [9558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3063),
-  [9560] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3061),
-  [9562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3065),
-  [9564] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3065),
-  [9566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3107),
-  [9568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3108),
-  [9570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2750),
-  [9572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3155),
-  [9574] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3157),
-  [9576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3158),
-  [9578] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3158),
-  [9580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2698),
-  [9582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3146),
-  [9584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3071),
-  [9586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3032),
-  [9588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3034),
-  [9590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2993),
-  [9592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3169),
-  [9594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2927),
-  [9596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2010),
-  [9598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3168),
-  [9600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2677),
-  [9602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3066),
-  [9604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3091),
-  [9606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3115),
-  [9608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2757),
-  [9610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3975),
-  [9612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4020),
-  [9614] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 1, 0, 0),
-  [9616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 1, 0, 0),
+  [9258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3370),
+  [9260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3364),
+  [9262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6655),
+  [9264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3764),
+  [9266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3928),
+  [9268] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7421),
+  [9270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3912),
+  [9272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8199),
+  [9274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6873),
+  [9276] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3590),
+  [9278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3666),
+  [9280] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3525),
+  [9282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3752),
+  [9284] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3555),
+  [9286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3726),
+  [9288] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3543),
+  [9290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3716),
+  [9292] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3537),
+  [9294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3630),
+  [9296] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3529),
+  [9298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3767),
+  [9300] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3559),
+  [9302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3692),
+  [9304] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2),
+  [9306] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2),
+  [9308] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(5342),
+  [9311] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(4018),
+  [9314] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(3641),
+  [9317] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(4048),
+  [9320] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(8310),
+  [9323] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(8166),
+  [9326] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(3174),
+  [9329] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(5333),
+  [9332] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(7626),
+  [9335] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(5332),
+  [9338] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(8632),
+  [9341] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_interface_repeat1, 2), SHIFT_REPEAT(5383),
+  [9344] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3613),
+  [9346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3632),
+  [9348] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3619),
+  [9350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3797),
+  [9352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3598),
+  [9354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3638),
+  [9356] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3570),
+  [9358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3681),
+  [9360] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3546),
+  [9362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3709),
+  [9364] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 1),
+  [9366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4326),
+  [9368] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3521),
+  [9371] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(4160),
+  [9374] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3314),
+  [9377] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(4113),
+  [9380] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(7677),
+  [9383] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2),
+  [9385] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3957),
+  [9388] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2),
+  [9390] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(8265),
+  [9393] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3370),
+  [9396] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3364),
+  [9399] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(6655),
+  [9402] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3928),
+  [9405] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(7421),
+  [9408] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(3912),
+  [9411] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(8604),
+  [9414] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(8199),
+  [9417] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2), SHIFT_REPEAT(6873),
+  [9420] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 3),
+  [9422] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_interface, 2),
+  [9424] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 9, .production_id = 205),
+  [9426] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 9, .production_id = 205),
+  [9428] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, .production_id = 199),
+  [9430] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, .production_id = 199),
+  [9432] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 3, .production_id = 30),
+  [9434] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 3, .production_id = 30),
+  [9436] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, .production_id = 198),
+  [9438] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, .production_id = 198),
+  [9440] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, .production_id = 185),
+  [9442] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, .production_id = 185),
+  [9444] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 9, .production_id = 204),
+  [9446] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 9, .production_id = 204),
+  [9448] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3122),
+  [9450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4166),
+  [9452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3115),
+  [9454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3124),
+  [9456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3121),
+  [9458] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3121),
+  [9460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3119),
+  [9462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3118),
+  [9464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3117),
+  [9466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3116),
+  [9468] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 8, .production_id = 197),
+  [9470] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 8, .production_id = 197),
+  [9472] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 4, .production_id = 65),
+  [9474] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 4, .production_id = 65),
+  [9476] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 4, .production_id = 66),
+  [9478] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 4, .production_id = 66),
+  [9480] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 5, .production_id = 149),
+  [9482] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 5, .production_id = 149),
+  [9484] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 5, .production_id = 97),
+  [9486] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 5, .production_id = 97),
+  [9488] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, .production_id = 186),
+  [9490] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, .production_id = 186),
+  [9492] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, .production_id = 187),
+  [9494] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, .production_id = 187),
+  [9496] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 11, .production_id = 208),
+  [9498] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 11, .production_id = 208),
+  [9500] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, .production_id = 167),
+  [9502] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, .production_id = 167),
+  [9504] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, .production_id = 168),
+  [9506] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, .production_id = 168),
+  [9508] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 10, .production_id = 207),
+  [9510] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 10, .production_id = 207),
+  [9512] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 10, .production_id = 206),
+  [9514] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 10, .production_id = 206),
+  [9516] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 6, .production_id = 169),
+  [9518] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 6, .production_id = 169),
+  [9520] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_statement, 7, .production_id = 188),
+  [9522] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_statement, 7, .production_id = 188),
+  [9524] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2), SHIFT_REPEAT(1866),
+  [9527] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2), SHIFT_REPEAT(1872),
+  [9530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1866),
+  [9532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3006),
+  [9534] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3008),
+  [9536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3009),
+  [9538] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3009),
+  [9540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3028),
+  [9542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3041),
+  [9544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1904),
+  [9546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3210),
+  [9548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2674),
+  [9550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3015),
+  [9552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3016),
+  [9554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3019),
+  [9556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2916),
+  [9558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4095),
+  [9560] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2962),
+  [9562] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2961),
+  [9564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2959),
+  [9566] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2959),
+  [9568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2958),
+  [9570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2957),
+  [9572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2956),
+  [9574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3020),
+  [9576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3045),
+  [9578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2728),
+  [9580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2696),
+  [9582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2516),
+  [9584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4057),
+  [9586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2748),
+  [9588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3168),
+  [9590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2758),
+  [9592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4058),
+  [9594] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2),
+  [9596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2777),
+  [9598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2910),
+  [9600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3026),
+  [9602] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3027),
+  [9604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3029),
+  [9606] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3029),
+  [9608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3034),
+  [9610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3035),
+  [9612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3031),
+  [9614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3032),
+  [9616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3033),
   [9618] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4244),
-  [9620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3079),
-  [9622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_input_item_list, 1, 0, 0),
-  [9624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2914),
-  [9626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3149),
-  [9628] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 2, 0, 6),
-  [9630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2837),
-  [9632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2908),
-  [9634] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 3, 0, 0),
-  [9636] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 3, 0, 0),
-  [9638] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0),
-  [9640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0),
-  [9642] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_output_item_list, 1, 0, 0),
-  [9644] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0), SHIFT_REPEAT(4120),
-  [9647] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 5, 0, 0),
-  [9649] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 5, 0, 0),
-  [9651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3185),
-  [9653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2760),
-  [9655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4807),
-  [9657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3995),
-  [9659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2919),
-  [9661] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2, 0, 0), SHIFT_REPEAT(1879),
-  [9664] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 2, 0, 20),
-  [9666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3030),
-  [9668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5384),
-  [9670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3182),
-  [9672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3180),
-  [9674] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 4, 0, 0),
-  [9676] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 4, 0, 0),
-  [9678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2789),
-  [9680] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_case_value_range_list, 1, 0, 0),
-  [9682] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2, 0, 0),
-  [9684] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 1, 0, 0),
-  [9686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2747),
-  [9688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2635),
-  [9690] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2583),
-  [9692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2754),
-  [9694] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3968),
-  [9696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3212),
-  [9698] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4062),
-  [9700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2975),
-  [9702] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_loop_control_expression, 5, 0, 0),
-  [9704] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 130),
-  [9706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4596),
-  [9708] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 130),
-  [9710] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 68),
-  [9712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4598),
-  [9714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 68),
-  [9716] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 132),
-  [9718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4610),
-  [9720] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 132),
-  [9722] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 4, 0, 68),
-  [9724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4621),
-  [9726] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 4, 0, 68),
-  [9728] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, 0, 15),
-  [9730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4624),
-  [9732] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, 0, 15),
-  [9734] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_multiple_subscript, 2, 0, 0),
-  [9736] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, 0, 69),
-  [9738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4645),
-  [9740] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, 0, 69),
-  [9742] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_control, 5, 0, 181),
-  [9744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3015),
-  [9746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6548),
-  [9748] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_case_value_range_list_repeat1, 2, 0, 0),
-  [9750] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 156),
-  [9752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4507),
-  [9754] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 156),
-  [9756] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, 0, 99),
-  [9758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4504),
-  [9760] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, 0, 99),
-  [9762] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, 0, 68),
-  [9764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4505),
-  [9766] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, 0, 68),
-  [9768] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 100),
-  [9770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4516),
-  [9772] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 100),
-  [9774] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 15),
-  [9776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4520),
-  [9778] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 15),
-  [9780] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 130),
-  [9782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4526),
-  [9784] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 130),
-  [9786] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 68),
-  [9788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4528),
-  [9790] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 68),
-  [9792] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 132),
-  [9794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4532),
-  [9796] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 132),
-  [9798] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 3, 0, 15),
-  [9800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4613),
-  [9802] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 3, 0, 15),
-  [9804] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 156),
-  [9806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4543),
-  [9808] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 156),
-  [9810] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 5, 0, 99),
-  [9812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4560),
-  [9814] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 5, 0, 99),
-  [9816] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(1879),
-  [9819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(668),
-  [9821] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 5, 0, 68),
-  [9823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4567),
-  [9825] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 5, 0, 68),
-  [9827] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3141),
-  [9829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4119),
-  [9831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2960),
-  [9833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3139),
-  [9835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2959),
-  [9837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2943),
-  [9839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3175),
-  [9841] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 100),
-  [9843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4522),
-  [9845] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 100),
-  [9847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3150),
-  [9849] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3150),
-  [9851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3156),
-  [9853] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 15),
-  [9855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4529),
-  [9857] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 15),
-  [9859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3154),
-  [9861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2956),
-  [9863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3591),
-  [9865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2935),
-  [9867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4805),
-  [9869] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_argument, 3, 0, 102),
-  [9871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8488),
-  [9873] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 3, 0, 0),
-  [9875] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat1, 2, 0, 0),
-  [9877] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 3, 0, 0),
-  [9879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3064),
-  [9881] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__argument_list_repeat1, 2, 0, 0),
-  [9883] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 3, 0, 0),
-  [9885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2965),
-  [9887] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 4, 0, 68),
-  [9889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4525),
-  [9891] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 4, 0, 68),
-  [9893] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 4, 0, 15),
-  [9895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4556),
-  [9897] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 4, 0, 15),
-  [9899] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 4, 0, 69),
-  [9901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4561),
-  [9903] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 4, 0, 69),
-  [9905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2898),
-  [9907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2921),
-  [9909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2944),
-  [9911] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 3, 0, 15),
-  [9913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4551),
-  [9915] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 3, 0, 15),
-  [9917] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_triplet_spec, 5, 0, 0),
-  [9919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3072),
-  [9921] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 3, 0, 170),
-  [9923] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 3, 0, 170),
-  [9925] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 3, 0, 150),
-  [9927] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 3, 0, 150),
-  [9929] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 5, 0, 0),
-  [9931] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 5, 0, 0),
-  [9933] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 99),
-  [9935] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, 0, 99),
-  [9937] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 8, 0, 156),
-  [9939] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 8, 0, 156),
-  [9941] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_control, 7, 0, 203),
-  [9943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6091),
-  [9945] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 100),
-  [9947] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 100),
-  [9949] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 15),
-  [9951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, 0, 15),
-  [9953] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 100),
-  [9955] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 100),
-  [9957] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 4, 0, 170),
-  [9959] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 4, 0, 170),
-  [9961] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 6, 0, 0),
-  [9963] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 6, 0, 0),
-  [9965] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 130),
-  [9967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 130),
-  [9969] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_import_statement, 2, 0, 0),
-  [9971] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_import_statement, 2, 0, 0),
-  [9973] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 68),
-  [9975] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, 0, 68),
-  [9977] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 15),
-  [9979] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, 0, 15),
-  [9981] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 3, 0, 0),
-  [9983] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 3, 0, 0),
-  [9985] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 7, 0, 132),
-  [9987] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 7, 0, 132),
-  [9989] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 8, 0, 156),
-  [9991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 8, 0, 156),
-  [9993] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 4, 0, 0),
-  [9995] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 4, 0, 0),
-  [9997] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 2, 0, 40),
-  [9999] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 2, 0, 40),
-  [10001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8648),
-  [10003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3976),
-  [10005] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7387),
-  [10007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3687),
-  [10009] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8605),
-  [10011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7237),
-  [10013] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4071),
-  [10015] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_include_statement, 2, 0, 21),
-  [10017] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_include_statement, 2, 0, 21),
-  [10019] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 99),
-  [10021] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, 0, 99),
-  [10023] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 69),
-  [10025] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, 0, 69),
-  [10027] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 2, 0, 150),
-  [10029] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 2, 0, 150),
-  [10031] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 4, 0, 0),
-  [10033] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 4, 0, 0),
-  [10035] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 8, 0, 0),
-  [10037] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_function, 4, 0, 0),
-  [10039] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_loop_control_expression, 7, 0, 0),
-  [10041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3028),
-  [10043] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 130),
-  [10045] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 130),
-  [10047] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 68),
-  [10049] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, 0, 68),
-  [10051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3012),
-  [10053] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3101),
-  [10055] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3113),
-  [10057] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3113),
-  [10059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2967),
-  [10061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2969),
-  [10063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2971),
-  [10065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2977),
-  [10067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2986),
-  [10069] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_assignment, 3, 0, 0),
-  [10071] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 5, 0, 0),
-  [10073] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 5, 0, 0),
-  [10075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7475),
-  [10077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2957),
-  [10079] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_association, 3, 0, 117),
-  [10081] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 7, 0, 132),
-  [10083] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 7, 0, 132),
-  [10085] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3119),
-  [10087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3135),
-  [10089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2925),
-  [10091] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 5, 0, 0),
-  [10093] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 5, 0, 0),
-  [10095] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 7, 0, 0),
-  [10097] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 7, 0, 0),
-  [10099] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 3, 0, 0),
-  [10101] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 3, 0, 0),
-  [10103] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_triplet_spec, 7, 0, 0),
-  [10105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assignment_statement, 3, 0, 64),
-  [10107] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_pointer_association_statement, 3, 0, 0),
-  [10109] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 4, 0, 0),
-  [10111] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 4, 0, 0),
-  [10113] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 6, 0, 0),
-  [10115] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 2, 0, 0),
-  [10117] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 2, 0, 0),
-  [10119] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 6, 0, 0),
-  [10121] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 69),
-  [10123] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, 0, 69),
-  [10125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6014),
-  [10127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7567),
-  [10129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4126),
-  [10131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2926),
-  [10133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3057),
-  [10135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2915),
-  [10137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2912),
-  [10139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6007),
-  [10141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2910),
-  [10143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2929),
-  [10145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2964),
-  [10147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6034),
-  [10149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2922),
-  [10151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7544),
-  [10153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7335),
-  [10155] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7346),
-  [10157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2932),
-  [10159] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0), SHIFT_REPEAT(4126),
-  [10162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2920),
-  [10164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3008),
-  [10166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(205),
-  [10168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6019),
-  [10170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2974),
-  [10172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2911),
-  [10174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7128),
-  [10176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7667),
-  [10178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3918),
-  [10180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3864),
-  [10182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3866),
-  [10184] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2746),
-  [10186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7535),
-  [10188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3848),
-  [10190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7141),
-  [10192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2712),
-  [10194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7800),
-  [10196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3845),
-  [10198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3861),
-  [10200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3941),
-  [10202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2848),
-  [10204] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1, 0, 0), SHIFT(3078),
-  [10207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3841),
-  [10209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3506),
-  [10211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2836),
-  [10213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7513),
-  [10215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2928),
-  [10217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3857),
-  [10219] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statements, 1, 0, 0),
-  [10221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4902),
-  [10223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4906),
-  [10225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4908),
-  [10227] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(4092),
-  [10230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5677),
-  [10232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4912),
-  [10234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4913),
-  [10236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4914),
-  [10238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4915),
-  [10240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4922),
-  [10242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4923),
-  [10244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4924),
-  [10246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3004),
-  [10248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4925),
-  [10250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7419),
-  [10252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3833),
-  [10254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4907),
-  [10256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5010),
-  [10258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5027),
-  [10260] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_expressions, 1, 0, 0),
-  [10262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5033),
-  [10264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5043),
-  [10266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5048),
-  [10268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5080),
-  [10270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5112),
-  [10272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5089),
-  [10274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5078),
-  [10276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5172),
-  [10278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5176),
-  [10280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5180),
-  [10282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8453),
-  [10284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4936),
-  [10286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4938),
-  [10288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5131),
-  [10290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3052),
-  [10292] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3069),
-  [10294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4940),
-  [10296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4941),
-  [10298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4958),
-  [10300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4946),
-  [10302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4948),
-  [10304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4952),
-  [10306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4953),
-  [10308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5113),
-  [10310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5121),
-  [10312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4978),
-  [10314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4981),
-  [10316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4983),
-  [10318] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 1, 0, 0),
-  [10320] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_call_expression_repeat1, 1, 0, 0),
-  [10322] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 3, 0, 20),
-  [10324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5130),
-  [10326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2985),
-  [10328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7300),
-  [10330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4998),
-  [10332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4999),
-  [10334] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5002),
-  [10336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5003),
-  [10338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5011),
-  [10340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5013),
-  [10342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5018),
-  [10344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5059),
-  [10346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2783),
-  [10348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7571),
-  [10350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4939),
-  [10352] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, 0, 118),
-  [10354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4951),
-  [10356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4955),
-  [10358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4942),
-  [10360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5066),
-  [10362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5069),
-  [10364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5072),
-  [10366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5782),
-  [10368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5081),
-  [10370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5082),
-  [10372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5087),
-  [10374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5088),
-  [10376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5097),
-  [10378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4966),
-  [10380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4967),
-  [10382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5100),
-  [10384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5101),
-  [10386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5039),
-  [10388] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 2, 0, 15),
-  [10390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5321),
-  [10392] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3216),
-  [10394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4116),
-  [10396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5163),
-  [10398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5104),
-  [10400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5115),
-  [10402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5148),
-  [10404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5152),
-  [10406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5156),
-  [10408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5202),
-  [10410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5179),
-  [10412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5181),
-  [10414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5184),
-  [10416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5186),
-  [10418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5247),
-  [10420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5175),
-  [10422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5214),
-  [10424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5216),
-  [10426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5219),
-  [10428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5024),
-  [10430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5232),
-  [10432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5225),
-  [10434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5057),
-  [10436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5022),
-  [10438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5086),
-  [10440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3095),
-  [10442] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(6563),
-  [10445] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3051),
-  [10447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5258),
-  [10449] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, 0, 131),
-  [10451] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5313),
-  [10453] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(3425),
-  [10456] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unit_identifier, 1, 0, 0),
-  [10458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5261),
-  [10460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5259),
-  [10462] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_allocation, 2, 0, 39),
-  [10464] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_allocation, 2, 0, 19),
-  [10466] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3109),
-  [10468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5255),
-  [10470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5252),
-  [10472] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 3, 0, 68),
-  [10474] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 3, 0, 15),
-  [10476] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_equivalence_set_repeat1, 2, 0, 0),
-  [10478] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, 0, 131),
-  [10480] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, 0, 68),
-  [10482] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 4, 0, 15),
-  [10484] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(3429),
-  [10487] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(3417),
-  [10490] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0), SHIFT(6906),
-  [10493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3020),
-  [10495] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 132),
-  [10497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5276),
-  [10499] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 132),
-  [10501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7532),
-  [10503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2916),
-  [10505] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3147),
-  [10507] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 3, 0, 15),
-  [10509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5266),
-  [10511] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 3, 0, 15),
-  [10513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2909),
-  [10515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7323),
-  [10517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3021),
-  [10519] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 130),
-  [10521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5305),
-  [10523] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 130),
-  [10525] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 68),
-  [10527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5268),
-  [10529] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 68),
-  [10531] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 4, 0, 162),
-  [10533] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0), REDUCE(aux_sym_data_value_repeat1, 4, 0, 162),
-  [10536] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 156),
-  [10538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5279),
-  [10540] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 156),
-  [10542] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 4, 0, 68),
-  [10544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5270),
-  [10546] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 4, 0, 68),
-  [10548] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_set_repeat1, 2, 0, 0),
-  [10550] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0), REDUCE(aux_sym_data_set_repeat1, 2, 0, 0),
-  [10553] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 100),
-  [10555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5298),
-  [10557] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 100),
-  [10559] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, 0, 15),
-  [10561] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5304),
-  [10563] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, 0, 15),
-  [10565] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 15),
-  [10567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5301),
-  [10569] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 15),
-  [10571] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 5, 0, 99),
-  [10573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5307),
-  [10575] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 5, 0, 99),
-  [10577] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 5, 0, 68),
-  [10579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5308),
-  [10581] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 5, 0, 68),
-  [10583] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, 0, 69),
-  [10585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5291),
-  [10587] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, 0, 69),
-  [10589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4013),
-  [10591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2, 0, 0),
-  [10593] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1, 0, 0), REDUCE(aux_sym_data_value_repeat1, 2, 0, 0),
-  [10596] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2996),
-  [10598] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, 0, 190),
-  [10600] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, 0, 190),
-  [10602] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 68),
-  [10604] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 68),
-  [10606] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 3, 0, 0),
-  [10608] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 3, 0, 0),
-  [10610] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, 0, 178),
-  [10612] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, 0, 178),
-  [10614] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 6, 0, 153),
-  [10616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 6, 0, 153),
-  [10618] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 7, 0, 132),
-  [10620] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 7, 0, 132),
-  [10622] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 8, 0, 156),
-  [10624] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 8, 0, 156),
-  [10626] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, 0, 171),
-  [10628] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, 0, 171),
-  [10630] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, 0, 160),
-  [10632] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, 0, 160),
-  [10634] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, 0, 161),
-  [10636] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, 0, 161),
-  [10638] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 9, 0, 200),
-  [10640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 9, 0, 200),
-  [10642] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 51),
-  [10644] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, 0, 51),
-  [10646] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 6, 0, 134),
-  [10648] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 6, 0, 134),
-  [10650] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 69),
-  [10652] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, 0, 69),
-  [10654] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 5, 0, 108),
-  [10656] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 5, 0, 108),
-  [10658] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 4, 0, 73),
-  [10660] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 4, 0, 73),
-  [10662] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 5, 0, 0),
-  [10664] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 5, 0, 0),
-  [10666] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 100),
-  [10668] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 100),
-  [10670] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 4, 0, 0),
-  [10672] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 4, 0, 0),
-  [10674] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, 0, 189),
-  [10676] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, 0, 189),
-  [10678] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 15),
-  [10680] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, 0, 15),
-  [10682] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 130),
-  [10684] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, 0, 130),
-  [10686] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 99),
-  [10688] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, 0, 99),
-  [10690] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(5357),
-  [10693] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22),
-  [10695] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(8656),
-  [10698] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(8166),
-  [10701] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(5329),
-  [10704] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(7477),
-  [10707] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(5330),
-  [10710] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, 0, 22), SHIFT_REPEAT(8632),
-  [10713] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4041),
-  [10715] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3978),
-  [10717] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0),
-  [10719] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0),
-  [10721] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(3953),
-  [10724] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(8265),
-  [10727] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(3851),
-  [10730] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(7577),
-  [10733] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(3852),
-  [10736] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(8604),
-  [10739] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2, 0, 0), SHIFT_REPEAT(8526),
-  [10742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5338),
+  [9620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3072),
+  [9622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_input_item_list, 1),
+  [9624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2913),
+  [9626] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 3),
+  [9628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4116),
+  [9630] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 3),
+  [9632] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_parameters_repeat1, 2),
+  [9634] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2),
+  [9636] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 5),
+  [9638] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 5),
+  [9640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3162),
+  [9642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2752),
+  [9644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3946),
+  [9646] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2), SHIFT_REPEAT(4116),
+  [9649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2780),
+  [9651] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_case_value_range_list, 1),
+  [9653] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 2), SHIFT_REPEAT(1882),
+  [9656] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 4),
+  [9658] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 4),
+  [9660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3179),
+  [9662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3181),
+  [9664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2543),
+  [9666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5389),
+  [9668] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 1),
+  [9670] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 1),
+  [9672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3193),
+  [9674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2766),
+  [9676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4871),
+  [9678] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 2, .production_id = 20),
+  [9680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3109),
+  [9682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3979),
+  [9684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2928),
+  [9686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2975),
+  [9688] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 1),
+  [9690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 2, .production_id = 6),
+  [9692] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 2),
+  [9694] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 2),
+  [9696] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_output_item_list, 1),
+  [9698] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3977),
+  [9700] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 3, .production_id = 15),
+  [9702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4559),
+  [9704] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 3, .production_id = 15),
+  [9706] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_multiple_subscript, 2),
+  [9708] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 4, .production_id = 68),
+  [9710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4508),
+  [9712] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 4, .production_id = 68),
+  [9714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat1, 2),
+  [9716] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 4, .production_id = 15),
+  [9718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4514),
+  [9720] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 4, .production_id = 15),
+  [9722] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(1882),
+  [9725] = {.entry = {.count = 1, .reusable = true}}, SHIFT(668),
+  [9727] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_triplet_spec, 5),
+  [9729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3085),
+  [9731] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 4, .production_id = 69),
+  [9733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4521),
+  [9735] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 4, .production_id = 69),
+  [9737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3093),
+  [9739] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_loop_control_expression, 5),
+  [9741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7030),
+  [9743] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 3),
+  [9745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2971),
+  [9747] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, .production_id = 15),
+  [9749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4507),
+  [9751] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, .production_id = 15),
+  [9753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3073),
+  [9755] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3071),
+  [9757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4085),
+  [9759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3069),
+  [9761] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3069),
+  [9763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3040),
+  [9765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3039),
+  [9767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2934),
+  [9769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4872),
+  [9771] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 4, .production_id = 68),
+  [9773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4505),
+  [9775] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 4, .production_id = 68),
+  [9777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2953),
+  [9779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3175),
+  [9781] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 156),
+  [9783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4635),
+  [9785] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 156),
+  [9787] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__argument_list_repeat1, 2),
+  [9789] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 3),
+  [9791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2970),
+  [9793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3068),
+  [9795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3067),
+  [9797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3060),
+  [9799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2804),
+  [9801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2909),
+  [9803] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_argument, 3, .production_id = 102),
+  [9805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2942),
+  [9807] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 132),
+  [9809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4624),
+  [9811] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 132),
+  [9813] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_control, 5, .production_id = 181),
+  [9815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3011),
+  [9817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8637),
+  [9819] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 3),
+  [9821] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 68),
+  [9823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4619),
+  [9825] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 68),
+  [9827] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 132),
+  [9829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4604),
+  [9831] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 132),
+  [9833] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 156),
+  [9835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4511),
+  [9837] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 156),
+  [9839] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, .production_id = 69),
+  [9841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4510),
+  [9843] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 4, .production_id = 69),
+  [9845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3593),
+  [9847] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 130),
+  [9849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4615),
+  [9851] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 130),
+  [9853] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 3, .production_id = 15),
+  [9855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4628),
+  [9857] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 3, .production_id = 15),
+  [9859] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, .production_id = 99),
+  [9861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4556),
+  [9863] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, .production_id = 99),
+  [9865] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, .production_id = 68),
+  [9867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4557),
+  [9869] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 5, .production_id = 68),
+  [9871] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_case_value_range_list_repeat1, 2),
+  [9873] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 5, .production_id = 99),
+  [9875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4555),
+  [9877] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 5, .production_id = 99),
+  [9879] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 5, .production_id = 68),
+  [9881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4554),
+  [9883] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 5, .production_id = 68),
+  [9885] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 100),
+  [9887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4567),
+  [9889] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 100),
+  [9891] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 15),
+  [9893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4577),
+  [9895] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 15),
+  [9897] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 68),
+  [9899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4576),
+  [9901] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 68),
+  [9903] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 130),
+  [9905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4621),
+  [9907] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 130),
+  [9909] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 100),
+  [9911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4547),
+  [9913] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 100),
+  [9915] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 15),
+  [9917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4506),
+  [9919] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 15),
+  [9921] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 5),
+  [9923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3107),
+  [9925] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2983),
+  [9927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3043),
+  [9929] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3043),
+  [9931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3098),
+  [9933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3094),
+  [9935] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_include_statement, 2, .production_id = 21),
+  [9937] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_include_statement, 2, .production_id = 21),
+  [9939] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 15),
+  [9941] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 15),
+  [9943] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_loop_control_expression, 7),
+  [9945] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 69),
+  [9947] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 5, .production_id = 69),
+  [9949] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 8, .production_id = 156),
+  [9951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 8, .production_id = 156),
+  [9953] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 3, .production_id = 170),
+  [9955] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 3, .production_id = 170),
+  [9957] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 3, .production_id = 150),
+  [9959] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 3, .production_id = 150),
+  [9961] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 5),
+  [9963] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 5),
+  [9965] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 69),
+  [9967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 5, .production_id = 69),
+  [9969] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 4),
+  [9971] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 4),
+  [9973] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assignment_statement, 3, .production_id = 64),
+  [9975] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_pointer_association_statement, 3),
+  [9977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3155),
+  [9979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3127),
+  [9981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3125),
+  [9983] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_statement_function, 4),
+  [9985] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 2),
+  [9987] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 2),
+  [9989] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 100),
+  [9991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 6, .production_id = 100),
+  [9993] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_import_statement, 2),
+  [9995] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_import_statement, 2),
+  [9997] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 3),
+  [9999] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 3),
+  [10001] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 99),
+  [10003] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 6, .production_id = 99),
+  [10005] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 99),
+  [10007] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 6, .production_id = 99),
+  [10009] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 100),
+  [10011] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 100),
+  [10013] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_interface_statement, 3),
+  [10015] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_interface_statement, 3),
+  [10017] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__import_names, 2, .production_id = 40),
+  [10019] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__import_names, 2, .production_id = 40),
+  [10021] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 68),
+  [10023] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 68),
+  [10025] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 15),
+  [10027] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 6, .production_id = 15),
+  [10029] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 4),
+  [10031] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 4),
+  [10033] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_triplet_spec, 7),
+  [10035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7365),
+  [10037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3075),
+  [10039] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 5),
+  [10041] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_assignment, 3),
+  [10043] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 4, .production_id = 170),
+  [10045] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 4, .production_id = 170),
+  [10047] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_end_module_procedure_statement, 2, .production_id = 150),
+  [10049] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_module_procedure_statement, 2, .production_id = 150),
+  [10051] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_interface, 7, .production_id = 132),
+  [10053] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_interface, 7, .production_id = 132),
+  [10055] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_association, 3, .production_id = 117),
+  [10057] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_module_procedure, 6),
+  [10059] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure, 6),
+  [10061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8648),
+  [10063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4015),
+  [10065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7610),
+  [10067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3758),
+  [10069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8605),
+  [10071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7190),
+  [10073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4050),
+  [10075] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3002),
+  [10077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3052),
+  [10079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2911),
+  [10081] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 130),
+  [10083] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 130),
+  [10085] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 68),
+  [10087] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 7, .production_id = 68),
+  [10089] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 130),
+  [10091] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_interface, 7, .production_id = 130),
+  [10093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6243),
+  [10095] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 7, .production_id = 132),
+  [10097] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_internal_procedures, 7, .production_id = 132),
+  [10099] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 4),
+  [10101] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 4),
+  [10103] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__coarray_extent_specifier, 5),
+  [10105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__extent_specifier, 5),
+  [10107] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 7),
+  [10109] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 7),
+  [10111] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_internal_procedures, 8, .production_id = 156),
+  [10113] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_internal_procedures, 8, .production_id = 156),
+  [10115] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_control, 7, .production_id = 203),
+  [10117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3081),
+  [10119] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_stop_statement, 6),
+  [10121] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 8),
+  [10123] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 6),
+  [10125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4229),
+  [10127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2985),
+  [10129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2908),
+  [10131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2932),
+  [10133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(207),
+  [10135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2923),
+  [10137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2924),
+  [10139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5999),
+  [10141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6008),
+  [10143] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2), SHIFT_REPEAT(4229),
+  [10146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3003),
+  [10148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7425),
+  [10150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6022),
+  [10152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2914),
+  [10154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3106),
+  [10156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2930),
+  [10158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2922),
+  [10160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3128),
+  [10162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6007),
+  [10164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2927),
+  [10166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2918),
+  [10168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7316),
+  [10170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7623),
+  [10172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7535),
+  [10174] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2729),
+  [10176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7444),
+  [10178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3827),
+  [10180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7584),
+  [10182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3834),
+  [10184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3824),
+  [10186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3941),
+  [10188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6841),
+  [10190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4908),
+  [10192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3921),
+  [10194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6829),
+  [10196] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statements, 1),
+  [10198] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1), SHIFT(4121),
+  [10201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5675),
+  [10203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7914),
+  [10205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4916),
+  [10207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3504),
+  [10209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4912),
+  [10211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2738),
+  [10213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4907),
+  [10215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3890),
+  [10217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3830),
+  [10219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4900),
+  [10221] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_identifier, 1), SHIFT(3133),
+  [10224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4898),
+  [10226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3839),
+  [10228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3893),
+  [10230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4896),
+  [10232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4887),
+  [10234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2778),
+  [10236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7601),
+  [10238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4784),
+  [10240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4882),
+  [10242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4869),
+  [10244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2813),
+  [10246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7409),
+  [10248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2919),
+  [10250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4824),
+  [10252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3143),
+  [10254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3922),
+  [10256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5110),
+  [10258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5159),
+  [10260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5166),
+  [10262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5168),
+  [10264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5178),
+  [10266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5193),
+  [10268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5156),
+  [10270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5137),
+  [10272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5013),
+  [10274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5211),
+  [10276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5070),
+  [10278] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__io_expressions, 1),
+  [10280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5214),
+  [10282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5201),
+  [10284] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 2, .production_id = 15),
+  [10286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5326),
+  [10288] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3224),
+  [10290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4201),
+  [10292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4990),
+  [10294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5200),
+  [10296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5125),
+  [10298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5136),
+  [10300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5139),
+  [10302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5140),
+  [10304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5196),
+  [10306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5889),
+  [10308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5157),
+  [10310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5158),
+  [10312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5160),
+  [10314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5164),
+  [10316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5179),
+  [10318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5186),
+  [10320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5167),
+  [10322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5263),
+  [10324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5129),
+  [10326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5241),
+  [10328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4943),
+  [10330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5163),
+  [10332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4939),
+  [10334] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4940),
+  [10336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4941),
+  [10338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5124),
+  [10340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5001),
+  [10342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4998),
+  [10344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4995),
+  [10346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5123),
+  [10348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5119),
+  [10350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5118),
+  [10352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5114),
+  [10354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4994),
+  [10356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5236),
+  [10358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5112),
+  [10360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3082),
+  [10362] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3078),
+  [10364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5109),
+  [10366] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_call_expression_repeat1, 1),
+  [10368] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_call_expression_repeat1, 1),
+  [10370] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 3, .production_id = 20),
+  [10372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5105),
+  [10374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5104),
+  [10376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5102),
+  [10378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5175),
+  [10380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5066),
+  [10382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5064),
+  [10384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5063),
+  [10386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2898),
+  [10388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7495),
+  [10390] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, .production_id = 118),
+  [10392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5009),
+  [10394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5002),
+  [10396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5030),
+  [10398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4973),
+  [10400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5173),
+  [10402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5012),
+  [10404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5115),
+  [10406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2969),
+  [10408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6830),
+  [10410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5132),
+  [10412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5138),
+  [10414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5005),
+  [10416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5003),
+  [10418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8445),
+  [10420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4981),
+  [10422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4979),
+  [10424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4977),
+  [10426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4976),
+  [10428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5222),
+  [10430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4966),
+  [10432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4961),
+  [10434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4960),
+  [10436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5218),
+  [10438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4970),
+  [10440] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1), SHIFT(3424),
+  [10443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_equivalence_set_repeat1, 2),
+  [10445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3007),
+  [10447] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1), SHIFT(7001),
+  [10450] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3005),
+  [10452] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1), SHIFT(3419),
+  [10455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 3, .production_id = 15),
+  [10457] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 3, .production_id = 68),
+  [10459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5259),
+  [10461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5313),
+  [10463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unit_identifier, 1),
+  [10465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5246),
+  [10467] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3130),
+  [10469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5244),
+  [10471] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 4, .production_id = 15),
+  [10473] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3004),
+  [10475] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1), SHIFT(6703),
+  [10478] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, .production_id = 131),
+  [10480] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, .production_id = 131),
+  [10482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5251),
+  [10484] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym__expression, 1), SHIFT(3404),
+  [10487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5249),
+  [10489] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, .production_id = 68),
+  [10491] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_allocation, 2, .production_id = 19),
+  [10493] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_sized_allocation, 2, .production_id = 39),
+  [10495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2954),
+  [10497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 15),
+  [10499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5267),
+  [10501] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 15),
+  [10503] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 100),
+  [10505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5287),
+  [10507] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 100),
+  [10509] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 5, .production_id = 68),
+  [10511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5275),
+  [10513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 5, .production_id = 68),
+  [10515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7420),
+  [10517] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 132),
+  [10519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5291),
+  [10521] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 132),
+  [10523] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 4, .production_id = 68),
+  [10525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5305),
+  [10527] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 4, .production_id = 68),
+  [10529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7387),
+  [10531] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, .production_id = 15),
+  [10533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5289),
+  [10535] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, .production_id = 15),
+  [10537] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, .production_id = 69),
+  [10539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5281),
+  [10541] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 4, .production_id = 69),
+  [10543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2920),
+  [10545] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 5, .production_id = 99),
+  [10547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5294),
+  [10549] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 5, .production_id = 99),
+  [10551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2),
+  [10553] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3153),
+  [10555] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1), REDUCE(aux_sym_data_value_repeat1, 2),
+  [10558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2917),
+  [10560] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 4, .production_id = 162),
+  [10562] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1), REDUCE(aux_sym_data_value_repeat1, 4, .production_id = 162),
+  [10565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3980),
+  [10567] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 68),
+  [10569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5266),
+  [10571] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 68),
+  [10573] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 130),
+  [10575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5269),
+  [10577] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 130),
+  [10579] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 156),
+  [10581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5308),
+  [10583] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 156),
+  [10585] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_set_repeat1, 2),
+  [10587] = {.entry = {.count = 2, .reusable = false}}, REDUCE(sym__expression, 1), REDUCE(aux_sym_data_set_repeat1, 2),
+  [10590] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 3, .production_id = 15),
+  [10592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5297),
+  [10594] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 3, .production_id = 15),
+  [10596] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3086),
+  [10598] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 68),
+  [10600] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 68),
+  [10602] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 15),
+  [10604] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 15),
+  [10606] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, .production_id = 178),
+  [10608] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, .production_id = 178),
+  [10610] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 130),
+  [10612] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 7, .production_id = 130),
+  [10614] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 6, .production_id = 153),
+  [10616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 6, .production_id = 153),
+  [10618] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 4),
+  [10620] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 4),
+  [10622] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, .production_id = 161),
+  [10624] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, .production_id = 161),
+  [10626] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 5),
+  [10628] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 5),
+  [10630] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, .production_id = 171),
+  [10632] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, .production_id = 171),
+  [10634] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 6, .production_id = 134),
+  [10636] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 6, .production_id = 134),
+  [10638] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 7, .production_id = 160),
+  [10640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 7, .production_id = 160),
+  [10642] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, .production_id = 51),
+  [10644] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_definition_repeat1, 2, .production_id = 51),
+  [10646] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, .production_id = 189),
+  [10648] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, .production_id = 189),
+  [10650] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 69),
+  [10652] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 5, .production_id = 69),
+  [10654] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 8, .production_id = 190),
+  [10656] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 8, .production_id = 190),
+  [10658] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 3),
+  [10660] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 3),
+  [10662] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 100),
+  [10664] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 6, .production_id = 100),
+  [10666] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 4, .production_id = 73),
+  [10668] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 4, .production_id = 73),
+  [10670] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_derived_type, 7, .production_id = 132),
+  [10672] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_derived_type, 7, .production_id = 132),
+  [10674] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 5, .production_id = 108),
+  [10676] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 5, .production_id = 108),
+  [10678] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 99),
+  [10680] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 6, .production_id = 99),
+  [10682] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_statement, 9, .production_id = 200),
+  [10684] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_statement, 9, .production_id = 200),
+  [10686] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_derived_type, 8, .production_id = 156),
+  [10688] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_derived_type, 8, .production_id = 156),
+  [10690] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3997),
+  [10692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3995),
+  [10694] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5338),
+  [10696] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2),
+  [10698] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2),
+  [10700] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(3957),
+  [10703] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(8265),
+  [10706] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(3928),
+  [10709] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(7421),
+  [10712] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(3912),
+  [10715] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(8604),
+  [10718] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_derived_type_repeat1, 2), SHIFT_REPEAT(8199),
+  [10721] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(5383),
+  [10724] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22),
+  [10726] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(8310),
+  [10729] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(8166),
+  [10732] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(5333),
+  [10735] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(7626),
+  [10738] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(5332),
+  [10741] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 2, .production_id = 22), SHIFT_REPEAT(8632),
   [10744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8198),
   [10746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5320),
-  [10748] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3552),
-  [10750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4200),
-  [10752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3271),
+  [10748] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3621),
+  [10750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4190),
+  [10752] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3310),
   [10754] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4099),
-  [10756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7699),
-  [10758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8285),
-  [10760] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8512),
-  [10762] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7705),
-  [10764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3878),
-  [10766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8532),
-  [10768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8588),
-  [10770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4048),
-  [10772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6438),
+  [10756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7637),
+  [10758] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7812),
+  [10760] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8567),
+  [10762] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7370),
+  [10764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3855),
+  [10766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8525),
+  [10768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8507),
+  [10770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4031),
+  [10772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6348),
   [10774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8210),
-  [10776] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 1, 0, 0),
-  [10778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5333),
-  [10780] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3552),
-  [10783] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4200),
-  [10786] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3271),
-  [10789] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4099),
-  [10792] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7699),
-  [10795] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0),
-  [10797] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8512),
-  [10800] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7705),
-  [10803] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0),
-  [10805] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8532),
-  [10808] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8588),
-  [10811] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4048),
-  [10814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3535),
-  [10816] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 1, 0, 23),
-  [10818] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 1, 0, 23),
-  [10820] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3016),
-  [10822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3013),
-  [10824] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 2, 0, 0),
-  [10826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 3, 0, 0),
-  [10828] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 30),
-  [10830] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 30),
-  [10832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7669),
-  [10834] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_qualifier, 1, 0, 0),
-  [10836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4007),
-  [10838] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 2, 0, 55),
-  [10840] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 2, 0, 55),
-  [10842] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 1, 0, 24),
-  [10844] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 1, 0, 24),
-  [10846] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 2, 0, 54),
-  [10848] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 2, 0, 54),
-  [10850] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 93), SHIFT_REPEAT(3535),
-  [10853] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 93),
-  [10855] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 93),
-  [10857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4003),
-  [10859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7443),
-  [10861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3659),
-  [10863] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__preproc_expression, 1, 0, 0),
-  [10865] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3233),
-  [10867] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__preproc_expression, 1, 0, 0),
-  [10869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3223),
-  [10871] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 61),
-  [10873] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 61),
-  [10875] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3270),
-  [10877] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4097),
-  [10879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7511),
-  [10881] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3272),
-  [10883] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4102),
-  [10885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7609),
-  [10887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3250),
-  [10889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5408),
-  [10891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3283),
-  [10893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3284),
-  [10895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3285),
-  [10897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3286),
-  [10899] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3287),
-  [10901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3288),
-  [10903] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3289),
-  [10905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3290),
-  [10907] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3290),
-  [10909] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3291),
-  [10911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3291),
-  [10913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3292),
-  [10915] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attributes, 5, 0, 0),
-  [10917] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attributes, 5, 0, 0),
-  [10919] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attributes, 4, 0, 0),
-  [10921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8670),
-  [10923] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 1, 0, 6),
-  [10925] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3259),
-  [10928] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(4169),
-  [10931] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0),
-  [10933] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(8374),
-  [10936] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3641),
-  [10939] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3385),
-  [10942] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3388),
-  [10945] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2, 0, 0),
-  [10947] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3259),
-  [10949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4169),
-  [10951] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_procedures, 2, 0, 0),
-  [10953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8374),
-  [10955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3385),
-  [10957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3388),
-  [10959] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_procedures, 2, 0, 0),
-  [10961] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_procedures, 1, 0, 0),
-  [10963] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_procedures, 1, 0, 0),
-  [10965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5416),
-  [10967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(429),
-  [10969] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8511),
-  [10971] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3274),
-  [10973] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3265),
-  [10975] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3240),
-  [10977] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3238),
-  [10979] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3242),
-  [10981] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3245),
-  [10983] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3253),
-  [10985] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3260),
-  [10987] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3273),
-  [10989] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3332),
-  [10991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 5, 0, 126),
-  [10993] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 5, 0, 126),
-  [10995] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_binary_expression, 3, 0, 62),
-  [10997] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_binary_expression, 3, 0, 62),
-  [10999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(310),
-  [11001] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8413),
-  [11003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7413),
-  [11005] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8082),
-  [11007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(278),
-  [11009] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8325),
-  [11011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(76),
-  [11013] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8562),
-  [11015] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 3, 0, 0),
-  [11017] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 3, 0, 0),
-  [11019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(938),
-  [11021] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8092),
-  [11023] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 2, 0, 25),
-  [11025] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 2, 0, 25),
-  [11027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3945),
-  [11029] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8333),
-  [11031] = {.entry = {.count = 1, .reusable = true}}, SHIFT(25),
-  [11033] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7748),
-  [11035] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 4, 0, 0),
-  [11037] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 4, 0, 0),
-  [11039] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 4, 0, 92),
-  [11041] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 4, 0, 92),
-  [11043] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_defined, 4, 0, 0),
-  [11045] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_defined, 4, 0, 0),
-  [11047] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 6, 0, 152),
-  [11049] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 6, 0, 152),
-  [11051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4277),
-  [11053] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8334),
-  [11055] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call_expression, 2, 0, 33),
-  [11057] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call_expression, 2, 0, 33),
-  [11059] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_unary_expression, 2, 0, 11),
-  [11061] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_unary_expression, 2, 0, 11),
-  [11063] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_defined, 2, 0, 0),
-  [11065] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_defined, 2, 0, 0),
-  [11067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(14),
-  [11069] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8176),
-  [11071] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_parenthesized_expression, 3, 0, 0),
-  [11073] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_parenthesized_expression, 3, 0, 0),
-  [11075] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_argument_list_repeat1, 2, 0, 0),
-  [11077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(950),
-  [11079] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8203),
-  [11081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(317),
-  [11083] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8208),
-  [11085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(61),
-  [11087] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8216),
-  [11089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3825),
-  [11091] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8218),
-  [11093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(97),
-  [11095] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7823),
-  [11097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(254),
-  [11099] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8225),
-  [11101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5545),
-  [11103] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8493),
-  [11105] = {.entry = {.count = 1, .reusable = true}}, SHIFT(17),
-  [11107] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8271),
-  [11109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(338),
-  [11111] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8290),
-  [11113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(71),
-  [11115] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8293),
-  [11117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3840),
-  [11119] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8295),
-  [11121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(106),
-  [11123] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7744),
-  [11125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(275),
-  [11127] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8300),
-  [11129] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 3, 0, 53),
-  [11131] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 3, 0, 53),
-  [11133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(20),
-  [11135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8324),
-  [11137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(353),
-  [11139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8332),
-  [11141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3827),
-  [11143] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8335),
-  [11145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(114),
-  [11147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8102),
-  [11149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(23),
-  [11151] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8355),
-  [11153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5150),
-  [11155] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7760),
-  [11157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(364),
-  [11159] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8361),
-  [11161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3868),
-  [11163] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8363),
-  [11165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(371),
-  [11167] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8383),
-  [11169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3898),
-  [11171] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8384),
-  [11173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7403),
-  [11175] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7721),
-  [11177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(378),
-  [11179] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8403),
-  [11181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3928),
-  [11183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8404),
-  [11185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(385),
-  [11187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8423),
-  [11189] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3943),
-  [11191] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8424),
-  [11193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(392),
-  [11195] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8440),
-  [11197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(399),
-  [11199] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8456),
-  [11201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(407),
-  [11203] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8472),
-  [11205] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 2, 0, 0),
-  [11207] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 2, 0, 0),
-  [11209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(415),
-  [11211] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8487),
-  [11213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(422),
-  [11215] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8502),
-  [11217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(436),
-  [11219] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8520),
-  [11221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(443),
-  [11223] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8527),
-  [11225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(450),
-  [11227] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8533),
-  [11229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(457),
-  [11231] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8539),
-  [11233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(465),
-  [11235] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8544),
-  [11237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(67),
-  [11239] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8124),
-  [11241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(109),
-  [11243] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8163),
-  [11245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6026),
-  [11247] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8607),
-  [11249] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 5, 0, 125),
-  [11251] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 5, 0, 125),
-  [11253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5160),
-  [11255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(941),
-  [11257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7664),
-  [11259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(12),
-  [11261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3896),
-  [11263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5546),
-  [11265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(328),
-  [11267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7653),
-  [11269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(348),
-  [11271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5999),
-  [11273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5608),
-  [11275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5688),
-  [11277] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3229),
-  [11279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4131),
-  [11281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5537),
-  [11283] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3552),
-  [11286] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4200),
-  [11289] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3270),
-  [11292] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4097),
-  [11295] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7699),
-  [11298] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0),
-  [11300] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7511),
-  [11303] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_case_statement_repeat1, 2, 0, 0),
-  [11305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7416),
-  [11307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5428),
-  [11309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(64),
-  [11311] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3552),
-  [11314] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4200),
-  [11317] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3272),
-  [11320] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4102),
-  [11323] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7699),
-  [11326] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0),
-  [11328] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7609),
-  [11331] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2, 0, 0),
-  [11333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(267),
-  [11335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(77),
-  [11337] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 2, 0, 15),
-  [11339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5547),
-  [11341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(75),
-  [11343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(41),
-  [11345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(103),
-  [11347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3849),
-  [11349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5470),
-  [11351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5541),
-  [11353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(34),
-  [11355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7627),
-  [11357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(915),
-  [11359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4282),
-  [11361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5203),
-  [11363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4289),
-  [11365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(95),
-  [11367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(270),
-  [11369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(66),
-  [11371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6016),
-  [11373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(10),
-  [11375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5601),
-  [11377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5603),
-  [11379] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, 0, 131),
-  [11381] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, 0, 131),
-  [11383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5597),
-  [11385] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, 0, 68),
-  [11387] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 4, 0, 15),
-  [11389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5610),
-  [11391] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 3, 0, 68),
-  [11393] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 3, 0, 15),
-  [11395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5614),
-  [11397] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, 0, 15),
-  [11399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5639),
-  [11401] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, 0, 15),
-  [11403] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 156),
-  [11405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5577),
-  [11407] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 156),
-  [11409] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 4, 0, 15),
-  [11411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5589),
-  [11413] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 4, 0, 15),
-  [11415] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, 0, 100),
-  [11417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5647),
-  [11419] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, 0, 100),
-  [11421] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 6, 0, 130),
-  [11423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5600),
-  [11425] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 6, 0, 130),
-  [11427] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 6, 0, 68),
-  [11429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5605),
-  [11431] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 6, 0, 68),
-  [11433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 132),
-  [11435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5609),
-  [11437] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 132),
-  [11439] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 5, 0, 68),
-  [11441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5626),
-  [11443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 5, 0, 68),
-  [11445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1116),
+  [10776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3534),
+  [10778] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 1, .production_id = 23),
+  [10780] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 1, .production_id = 23),
+  [10782] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3120),
+  [10784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3112),
+  [10786] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 1),
+  [10788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5330),
+  [10790] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(3621),
+  [10793] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(4190),
+  [10796] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(3310),
+  [10799] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(4099),
+  [10802] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(7637),
+  [10805] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2),
+  [10807] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(8567),
+  [10810] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(7370),
+  [10813] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2),
+  [10815] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(8525),
+  [10818] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(8507),
+  [10821] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_type_statement_repeat1, 2), SHIFT_REPEAT(4031),
+  [10824] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 2),
+  [10826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_derived_type, 3),
+  [10828] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 30),
+  [10830] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 30),
+  [10832] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 1, .production_id = 24),
+  [10834] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 1, .production_id = 24),
+  [10836] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_qualifier, 1),
+  [10838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4020),
+  [10840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7616),
+  [10842] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__preproc_expression, 1),
+  [10844] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3219),
+  [10846] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__preproc_expression, 1),
+  [10848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3220),
+  [10850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3772),
+  [10852] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 2, .production_id = 55),
+  [10854] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 2, .production_id = 55),
+  [10856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7465),
+  [10858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4007),
+  [10860] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__declaration_targets, 2, .production_id = 54),
+  [10862] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__declaration_targets, 2, .production_id = 54),
+  [10864] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 93), SHIFT_REPEAT(3534),
+  [10867] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 93),
+  [10869] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 93),
+  [10871] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3313),
+  [10873] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4105),
+  [10875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7366),
+  [10877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3292),
+  [10879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5401),
+  [10881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3309),
+  [10883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3308),
+  [10885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3304),
+  [10887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3296),
+  [10889] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3289),
+  [10891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3285),
+  [10893] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3283),
+  [10895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3281),
+  [10897] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3281),
+  [10899] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3280),
+  [10901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3280),
+  [10903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3236),
+  [10905] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 61),
+  [10907] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 61),
+  [10909] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3297),
+  [10911] = {.entry = {.count = 1, .reusable = false}}, SHIFT(4186),
+  [10913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7378),
+  [10915] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(3268),
+  [10918] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(4128),
+  [10921] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2),
+  [10923] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(8338),
+  [10926] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(3641),
+  [10929] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(3366),
+  [10932] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2), SHIFT_REPEAT(3367),
+  [10935] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_procedures_repeat1, 2),
+  [10937] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3268),
+  [10939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4128),
+  [10941] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_procedures, 2),
+  [10943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8338),
+  [10945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3366),
+  [10947] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3367),
+  [10949] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_procedures, 2),
+  [10951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__callable_interface_qualifers, 1, .production_id = 6),
+  [10953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5497),
+  [10955] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attributes, 5),
+  [10957] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_procedure_attributes, 5),
+  [10959] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_derived_type_procedures, 1),
+  [10961] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_derived_type_procedures, 1),
+  [10963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8186),
+  [10965] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_procedure_attributes, 4),
+  [10967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_call_expression, 2, .production_id = 33),
+  [10969] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_call_expression, 2, .production_id = 33),
+  [10971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(95),
+  [10973] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8309),
+  [10975] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3318),
+  [10977] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3319),
+  [10979] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3320),
+  [10981] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3322),
+  [10983] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3323),
+  [10985] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3321),
+  [10987] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3278),
+  [10989] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3261),
+  [10991] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3329),
+  [10993] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3326),
+  [10995] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 3),
+  [10997] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 3),
+  [10999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(466),
+  [11001] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8502),
+  [11003] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_defined, 4),
+  [11005] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_defined, 4),
+  [11007] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_binary_expression, 3, .production_id = 62),
+  [11009] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_binary_expression, 3, .production_id = 62),
+  [11011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3832),
+  [11013] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8295),
+  [11015] = {.entry = {.count = 1, .reusable = true}}, SHIFT(369),
+  [11017] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8403),
+  [11019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(458),
+  [11021] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8487),
+  [11023] = {.entry = {.count = 1, .reusable = true}}, SHIFT(256),
+  [11025] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8233),
+  [11027] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_argument_list_repeat1, 2),
+  [11029] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_parenthesized_expression, 3),
+  [11031] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_parenthesized_expression, 3),
+  [11033] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 2),
+  [11035] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 2),
+  [11037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5142),
+  [11039] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8314),
+  [11041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(384),
+  [11043] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8533),
+  [11045] = {.entry = {.count = 1, .reusable = true}}, SHIFT(443),
+  [11047] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8472),
+  [11049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3915),
+  [11051] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8424),
+  [11053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5547),
+  [11055] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7778),
+  [11057] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 3, .production_id = 53),
+  [11059] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 3, .production_id = 53),
+  [11061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3911),
+  [11063] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8335),
+  [11065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(392),
+  [11067] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8423),
+  [11069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(24),
+  [11071] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8324),
+  [11073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(434),
+  [11075] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8511),
+  [11077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7516),
+  [11079] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8157),
+  [11081] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_argument_list, 4),
+  [11083] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_argument_list, 4),
+  [11085] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_unary_expression, 2, .production_id = 11),
+  [11087] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_unary_expression, 2, .production_id = 11),
+  [11089] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 5, .production_id = 126),
+  [11091] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 5, .production_id = 126),
+  [11093] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 5, .production_id = 125),
+  [11095] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 5, .production_id = 125),
+  [11097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(346),
+  [11099] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8544),
+  [11101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3927),
+  [11103] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7745),
+  [11105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_defined, 2),
+  [11107] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_defined, 2),
+  [11109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(333),
+  [11111] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8332),
+  [11113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(22),
+  [11115] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8422),
+  [11117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(391),
+  [11119] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8290),
+  [11121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5994),
+  [11123] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8165),
+  [11125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(336),
+  [11127] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8383),
+  [11129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4277),
+  [11131] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8352),
+  [11133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3826),
+  [11135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8384),
+  [11137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(21),
+  [11139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8176),
+  [11141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7506),
+  [11143] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8172),
+  [11145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(261),
+  [11147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8300),
+  [11149] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 2, .production_id = 25),
+  [11151] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 2, .production_id = 25),
+  [11153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(9),
+  [11155] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8355),
+  [11157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(404),
+  [11159] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8527),
+  [11161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(65),
+  [11163] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7755),
+  [11165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(340),
+  [11167] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8188),
+  [11169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(932),
+  [11171] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8203),
+  [11173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3850),
+  [11175] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8404),
+  [11177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(407),
+  [11179] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8440),
+  [11181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(440),
+  [11183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8208),
+  [11185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(63),
+  [11187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8216),
+  [11189] = {.entry = {.count = 1, .reusable = true}}, SHIFT(916),
+  [11191] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8389),
+  [11193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(92),
+  [11195] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8581),
+  [11197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(88),
+  [11199] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7827),
+  [11201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3929),
+  [11203] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8218),
+  [11205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(425),
+  [11207] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8456),
+  [11209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(117),
+  [11211] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8175),
+  [11213] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 6, .production_id = 152),
+  [11215] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 6, .production_id = 152),
+  [11217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(246),
+  [11219] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8225),
+  [11221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(323),
+  [11223] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8361),
+  [11225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(360),
+  [11227] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8539),
+  [11229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(74),
+  [11231] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8399),
+  [11233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3903),
+  [11235] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8363),
+  [11237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(71),
+  [11239] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8293),
+  [11241] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_declaration, 4, .production_id = 92),
+  [11243] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_variable_declaration, 4, .production_id = 92),
+  [11245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(421),
+  [11247] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8520),
+  [11249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(23),
+  [11251] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8271),
+  [11253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5542),
+  [11255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6018),
+  [11257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(330),
+  [11259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5577),
+  [11261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5684),
+  [11263] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3227),
+  [11265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4142),
+  [11267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5548),
+  [11269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(18),
+  [11271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3865),
+  [11273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(354),
+  [11275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(944),
+  [11277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7336),
+  [11279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7348),
+  [11281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(93),
+  [11283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(79),
+  [11285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4991),
+  [11287] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(3621),
+  [11290] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(4190),
+  [11293] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(3297),
+  [11296] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(4186),
+  [11299] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(7637),
+  [11302] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2),
+  [11304] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2), SHIFT_REPEAT(7378),
+  [11307] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_rank_statement_repeat1, 2),
+  [11309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6002),
+  [11311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5541),
+  [11313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(276),
+  [11315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5420),
+  [11317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(249),
+  [11319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(935),
+  [11321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(13),
+  [11323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(75),
+  [11325] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 2, .production_id = 15),
+  [11327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5545),
+  [11329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(61),
+  [11331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4281),
+  [11333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4285),
+  [11335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(38),
+  [11337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3877),
+  [11339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(113),
+  [11341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(70),
+  [11343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5093),
+  [11345] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(3621),
+  [11348] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(4190),
+  [11351] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(3313),
+  [11354] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(4105),
+  [11357] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(7637),
+  [11360] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_select_case_statement_repeat1, 2),
+  [11362] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_select_case_statement_repeat1, 2), SHIFT_REPEAT(7366),
+  [11365] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_select_case_statement_repeat1, 2),
+  [11367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7320),
+  [11369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5500),
+  [11371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7338),
+  [11373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(27),
+  [11375] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 4, .production_id = 15),
+  [11377] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 3, .production_id = 15),
+  [11379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5615),
+  [11381] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, .production_id = 131),
+  [11383] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 3, .production_id = 68),
+  [11385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5599),
+  [11387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5579),
+  [11389] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, .production_id = 131),
+  [11391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5580),
+  [11393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5630),
+  [11395] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, .production_id = 68),
+  [11397] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 156),
+  [11399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5611),
+  [11401] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 156),
+  [11403] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 4, .production_id = 15),
+  [11405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5631),
+  [11407] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 4, .production_id = 15),
+  [11409] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 5, .production_id = 68),
+  [11411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5624),
+  [11413] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 5, .production_id = 68),
+  [11415] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 132),
+  [11417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5634),
+  [11419] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 132),
+  [11421] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, .production_id = 15),
+  [11423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5645),
+  [11425] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, .production_id = 15),
+  [11427] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 6, .production_id = 68),
+  [11429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5574),
+  [11431] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 6, .production_id = 68),
+  [11433] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, .production_id = 100),
+  [11435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5600),
+  [11437] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 5, .production_id = 100),
+  [11439] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 6, .production_id = 130),
+  [11441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5605),
+  [11443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 6, .production_id = 130),
+  [11445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1196),
   [11447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(197),
-  [11449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4079),
-  [11451] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3583),
-  [11453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3816),
-  [11455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 131),
-  [11457] = {.entry = {.count = 1, .reusable = true}}, SHIFT(199),
-  [11459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4129),
-  [11461] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 68),
-  [11463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, 0, 15),
-  [11465] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 8, 0, 156),
-  [11467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 8, 0, 156),
-  [11469] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, 0, 15),
-  [11471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1194),
-  [11473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1208),
-  [11475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1192),
-  [11477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1284),
-  [11479] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, 0, 15),
-  [11481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1300),
-  [11483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1301),
-  [11485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1308),
-  [11487] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, 0, 69),
-  [11489] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, 0, 69),
-  [11491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5652),
-  [11493] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 130),
-  [11495] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 130),
-  [11497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5653),
-  [11499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1243),
-  [11501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1229),
-  [11503] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 156),
-  [11505] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 156),
-  [11507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5668),
-  [11509] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 68),
-  [11511] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 68),
-  [11513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5655),
-  [11515] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, 0, 99),
-  [11517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, 0, 99),
-  [11519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5657),
-  [11521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1239),
-  [11523] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 130),
-  [11525] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 130),
-  [11527] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, 0, 15),
-  [11529] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, 0, 15),
-  [11531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5674),
-  [11533] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, 0, 68),
-  [11535] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, 0, 68),
-  [11537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5660),
-  [11539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1326),
-  [11541] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 68),
-  [11543] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, 0, 68),
-  [11545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1193),
-  [11547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1120),
-  [11549] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 3, 0, 15),
-  [11551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 3, 0, 15),
-  [11553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5673),
-  [11555] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 7, 0, 132),
-  [11557] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 7, 0, 132),
-  [11559] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 4, 0, 68),
-  [11561] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 4, 0, 68),
-  [11563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5672),
-  [11565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1235),
-  [11567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1197),
-  [11569] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 15),
-  [11571] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 15),
-  [11573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5661),
-  [11575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1218),
-  [11577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1195),
-  [11579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1219),
-  [11581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1223),
-  [11583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1230),
-  [11585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1119),
-  [11587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1196),
-  [11589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1294),
-  [11591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 4, 0, 68),
-  [11593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1285),
-  [11595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1216),
-  [11597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1270),
-  [11599] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, 0, 131),
-  [11601] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1115),
-  [11603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1114),
-  [11605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1212),
-  [11607] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 15),
-  [11609] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 15),
-  [11611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1299),
-  [11613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1295),
-  [11615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1117),
-  [11617] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 132),
-  [11619] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 132),
-  [11621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5659),
-  [11623] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2, 0, 0),
-  [11625] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2, 0, 0),
-  [11627] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(8374),
-  [11630] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2, 0, 0), SHIFT_REPEAT(3641),
-  [11633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1199),
-  [11635] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 100),
-  [11637] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, 0, 100),
-  [11639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1198),
-  [11641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1272),
-  [11643] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 100),
-  [11645] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 100),
-  [11647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5658),
-  [11649] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 69),
-  [11651] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, 0, 69),
-  [11653] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 130),
-  [11655] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 130),
-  [11657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3794),
-  [11659] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 2, 0, 30),
-  [11661] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 2, 0, 30),
-  [11663] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 68),
-  [11665] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, 0, 68),
-  [11667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3391),
-  [11669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7516),
-  [11671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7607),
-  [11673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8606),
-  [11675] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7053),
-  [11677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7521),
-  [11679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7576),
-  [11681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7236),
-  [11683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8448),
-  [11685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8491),
-  [11687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6071),
-  [11689] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 99),
-  [11691] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, 0, 99),
-  [11693] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 100),
-  [11695] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 100),
-  [11697] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 7, 0, 132),
-  [11699] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 7, 0, 132),
-  [11701] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 15),
-  [11703] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, 0, 15),
-  [11705] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, 0, 65),
-  [11707] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, 0, 65),
-  [11709] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 8, 0, 156),
-  [11711] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 8, 0, 156),
-  [11713] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_contains_statement, 1, 0, 0),
-  [11715] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_contains_statement, 1, 0, 0),
-  [11717] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3696),
-  [11719] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 30),
-  [11721] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 30),
-  [11723] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_label_start_expression, 2, 0, 29),
-  [11725] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_block_label_start_expression, 2, 0, 29),
-  [11727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6754),
-  [11729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3181),
-  [11731] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7375),
-  [11733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3179),
-  [11735] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, 0, 68),
-  [11737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(610),
-  [11739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4077),
-  [11741] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 132),
-  [11743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5755),
-  [11745] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 132),
-  [11747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2074),
-  [11749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1977),
-  [11751] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 6, 0, 130),
-  [11753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5745),
-  [11755] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 6, 0, 130),
-  [11757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2001),
-  [11759] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 1, 0, 0),
-  [11761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5764),
-  [11763] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 5, 0, 68),
-  [11765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5761),
-  [11767] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 5, 0, 68),
-  [11769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2025),
-  [11771] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, 0, 15),
-  [11773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5762),
-  [11775] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, 0, 15),
-  [11777] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 156),
-  [11779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5741),
-  [11781] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 156),
-  [11783] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, 0, 100),
-  [11785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5757),
-  [11787] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, 0, 100),
-  [11789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2031),
-  [11791] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 4, 0, 15),
-  [11793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5750),
-  [11795] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 4, 0, 15),
-  [11797] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 5, 0, 68),
-  [11799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5744),
-  [11801] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 5, 0, 68),
-  [11803] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 156),
-  [11805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5747),
-  [11807] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 156),
-  [11809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2002),
-  [11811] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, 0, 15),
-  [11813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5752),
-  [11815] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, 0, 15),
-  [11817] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, 0, 100),
-  [11819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5766),
-  [11821] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, 0, 100),
-  [11823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2006),
-  [11825] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, 0, 131),
-  [11827] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 6, 0, 68),
-  [11829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5746),
-  [11831] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 6, 0, 68),
-  [11833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2058),
-  [11835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5991),
-  [11837] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_items, 2, 0, 0),
-  [11839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5781),
-  [11841] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5711),
-  [11843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6002),
-  [11845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6020),
-  [11847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8365),
-  [11849] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 5, 0, 15),
-  [11851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1994),
-  [11853] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(5991),
-  [11856] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0),
-  [11858] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(5781),
-  [11861] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(5711),
-  [11864] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(6002),
-  [11867] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(6020),
-  [11870] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0), SHIFT_REPEAT(8365),
-  [11873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2066),
-  [11875] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, 0, 68),
-  [11877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1931),
-  [11879] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 6, 0, 130),
-  [11881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5765),
-  [11883] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 6, 0, 130),
-  [11885] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, 0, 131),
-  [11887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2008),
-  [11889] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 6, 0, 68),
-  [11891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5740),
-  [11893] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 6, 0, 68),
-  [11895] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, 0, 15),
-  [11897] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 132),
-  [11899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5742),
-  [11901] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 132),
-  [11903] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_items, 1, 0, 0),
-  [11905] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5706),
-  [11907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2023),
-  [11909] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, 0, 15),
-  [11911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1948),
-  [11913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1979),
-  [11915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1988),
-  [11917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1999),
-  [11919] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 4, 0, 15),
-  [11921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5749),
-  [11923] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 4, 0, 15),
-  [11925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2073),
-  [11927] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 68),
-  [11929] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 68),
-  [11931] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 8, 0, 156),
-  [11933] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 8, 0, 156),
-  [11935] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 7, 0, 132),
-  [11937] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 7, 0, 132),
-  [11939] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8545),
-  [11941] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3855),
-  [11943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7599),
-  [11945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7690),
-  [11947] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 130),
-  [11949] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 130),
-  [11951] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 68),
-  [11953] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, 0, 68),
-  [11955] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 8, 0, 156),
-  [11957] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 8, 0, 156),
-  [11959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4061),
-  [11961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8602),
-  [11963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8146),
-  [11965] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, 0, 49),
-  [11967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 2, 0, 15),
-  [11969] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 15),
-  [11971] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 15),
-  [11973] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 7, 0, 132),
-  [11975] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 7, 0, 132),
-  [11977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8394),
-  [11979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4073),
-  [11981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7683),
-  [11983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8246),
-  [11985] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 100),
-  [11987] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 100),
-  [11989] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 3, 0, 0),
-  [11991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 2, 0, 15),
-  [11993] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 15),
-  [11995] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, 0, 15),
-  [11997] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 2, 0, 0),
-  [11999] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 130),
-  [12001] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, 0, 130),
-  [12003] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 100),
-  [12005] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, 0, 100),
-  [12007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3932),
-  [12009] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3804),
-  [12011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8257),
-  [12013] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_statement, 2, 0, 0),
-  [12015] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8257),
-  [12017] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8350),
-  [12019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8353),
-  [12021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4072),
-  [12023] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3947),
-  [12025] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8257),
-  [12028] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2, 0, 0),
-  [12030] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8257),
-  [12033] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8350),
-  [12036] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8353),
-  [12039] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_statement, 1, 0, 0),
-  [12041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6775),
-  [12043] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6782),
-  [12045] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8516),
-  [12047] = {.entry = {.count = 1, .reusable = false}}, SHIFT(5727),
-  [12049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2710),
-  [12051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1118),
-  [12053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4109),
-  [12055] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2352),
-  [12057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(579),
-  [12059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4123),
-  [12061] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2177),
-  [12063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2180),
-  [12065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1881),
-  [12067] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, 0, 131),
-  [12069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2181),
-  [12071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2184),
-  [12073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2371),
-  [12075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2185),
-  [12077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2187),
-  [12079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1802),
-  [12081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1803),
-  [12083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1804),
-  [12085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5691),
-  [12087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7151),
-  [12089] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3226),
-  [12091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4083),
-  [12093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1805),
-  [12095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1996),
-  [12097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1764),
-  [12099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1806),
-  [12101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(198),
-  [12103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4081),
-  [12105] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2199),
-  [12107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1872),
-  [12109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2202),
-  [12111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2203),
-  [12113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2206),
-  [12115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2041),
-  [12117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2207),
-  [12119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2210),
-  [12121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1873),
-  [12123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1324),
-  [12125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1972),
-  [12127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1877),
-  [12129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1866),
-  [12131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1236),
-  [12133] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 4, 0, 68),
-  [12135] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 4, 0, 15),
-  [12137] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 3, 0, 15),
-  [12139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2737),
-  [12141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5568),
-  [12143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5939),
-  [12145] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3227),
-  [12147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4086),
-  [12149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2044),
-  [12151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2375),
-  [12153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1225),
-  [12155] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1288),
-  [12157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1330),
-  [12159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5696),
-  [12161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6468),
-  [12163] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3228),
-  [12165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4087),
-  [12167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2373),
-  [12169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6000),
-  [12171] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8681),
-  [12173] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7703),
-  [12175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8673),
-  [12177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8674),
-  [12179] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 4, 0, 68),
-  [12181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2054),
-  [12183] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2377),
-  [12185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1298),
-  [12187] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 4, 0, 15),
-  [12189] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2378),
-  [12191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5700),
-  [12193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1307),
-  [12195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1889),
-  [12197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2055),
-  [12199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5561),
-  [12201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1214),
-  [12203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5738),
-  [12205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5695),
-  [12207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2324),
-  [12209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2330),
-  [12211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2381),
-  [12213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2382),
-  [12215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2069),
-  [12217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2384),
-  [12219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2335),
-  [12221] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 4, 0, 68),
-  [12223] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 4, 0, 15),
-  [12225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2342),
-  [12227] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 4, 0, 68),
-  [12229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2354),
-  [12231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5720),
-  [12233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2344),
-  [12235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2351),
-  [12237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1269),
-  [12239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2679),
-  [12241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2739),
-  [12243] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, 0, 68),
-  [12245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6018),
-  [12247] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 3, 0, 15),
-  [12249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2753),
-  [12251] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 3, 0, 15),
-  [12253] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, 0, 131),
-  [12255] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 4, 0, 15),
-  [12257] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, 0, 68),
-  [12259] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 5, 0, 15),
-  [12261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1275),
-  [12263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1727),
-  [12265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1890),
-  [12267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2290),
-  [12269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2291),
-  [12271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1304),
-  [12273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1332),
-  [12275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2332),
-  [12277] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 3, 0, 15),
-  [12279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2353),
-  [12281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1323),
-  [12283] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, 0, 131),
-  [12285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2011),
-  [12287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1753),
-  [12289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2080),
-  [12291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1328),
-  [12293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2043),
-  [12295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1761),
-  [12297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2145),
-  [12299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2084),
-  [12301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1250),
-  [12303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1274),
-  [12305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1729),
-  [12307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1731),
-  [12309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1734),
-  [12311] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, 0, 131),
-  [12313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2085),
-  [12315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2749),
-  [12317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2090),
-  [12319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2040),
-  [12321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2091),
-  [12323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2095),
-  [12325] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 5, 0, 131),
-  [12327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1247),
-  [12329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1259),
-  [12331] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 5, 0, 131),
-  [12333] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 4, 0, 68),
-  [12335] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, 0, 68),
-  [12337] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 5, 0, 15),
-  [12339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2302),
-  [12341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1237),
-  [12343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2340),
-  [12345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1242),
-  [12347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5689),
-  [12349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2341),
-  [12351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2680),
-  [12353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1701),
-  [12355] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 5, 0, 131),
-  [12357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1217),
-  [12359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1670),
-  [12361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1702),
-  [12363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2346),
-  [12365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1703),
-  [12367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2282),
-  [12369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1704),
-  [12371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5571),
-  [12373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1671),
-  [12375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1672),
-  [12377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5558),
-  [12379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1705),
-  [12381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2283),
-  [12383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6003),
-  [12385] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8683),
-  [12387] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7704),
-  [12389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8677),
-  [12391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8678),
-  [12393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1673),
-  [12395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1674),
-  [12397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1675),
-  [12399] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 4, 0, 15),
-  [12401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1706),
-  [12403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2032),
-  [12405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1201),
-  [12407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2121),
-  [12409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2124),
-  [12411] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 6, 0, 15),
-  [12413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2125),
-  [12415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1253),
-  [12417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1281),
-  [12419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2128),
-  [12421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2129),
-  [12423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2706),
-  [12425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2131),
-  [12427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5704),
-  [12429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1318),
-  [12431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2471),
-  [12433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1289),
-  [12435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1203),
-  [12437] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, 0, 131),
-  [12439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2499),
-  [12441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2500),
-  [12443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1252),
-  [12445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2509),
-  [12447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2512),
-  [12449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2522),
-  [12451] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1867),
-  [12453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1902),
-  [12455] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2703),
-  [12457] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1940),
-  [12459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2348),
-  [12461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2015),
-  [12463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 3, 0, 15),
-  [12465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1966),
-  [12467] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1967),
-  [12469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2323),
-  [12471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2716),
-  [12473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1261),
-  [12475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1883),
-  [12477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1973),
-  [12479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1267),
-  [12481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1884),
-  [12483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1974),
-  [12485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2723),
-  [12487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1983),
-  [12489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2349),
-  [12491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2726),
-  [12493] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6033),
-  [12495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1205),
-  [12497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1888),
-  [12499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1233),
-  [12501] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 5, 0, 0),
-  [12503] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 5, 0, 0),
-  [12505] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, 0, 35),
-  [12507] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8602),
-  [12510] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(8146),
-  [12513] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2, 0, 0),
-  [12515] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 2, 0, 15),
-  [12517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_hollerith_constant, 1, 0, 0),
-  [12519] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_hollerith_constant, 1, 0, 0),
-  [12521] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 5, 0, 0),
-  [12523] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 5, 0, 0),
-  [12525] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 4, 0, 35),
-  [12527] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 4, 0, 0),
-  [12529] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 4, 0, 0),
-  [12531] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 9, 0, 202),
-  [12533] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 9, 0, 202),
-  [12535] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 3, 0, 35),
-  [12537] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__block_if_statement_repeat1, 2, 0, 0),
-  [12539] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__block_if_statement_repeat1, 2, 0, 0),
-  [12541] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__block_if_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7891),
-  [12544] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__block_if_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7599),
-  [12547] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 3, 0, 15),
-  [12549] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, 0, 35),
-  [12551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, 0, 15),
-  [12553] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, 0, 49),
-  [12555] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 8, 0, 193),
-  [12557] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 8, 0, 193),
-  [12559] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 6, 0, 0),
-  [12561] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 6, 0, 0),
-  [12563] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 7, 0, 0),
-  [12565] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 7, 0, 0),
-  [12567] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 6, 0, 164),
-  [12569] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 6, 0, 164),
-  [12571] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 5, 0, 90),
-  [12573] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, 0, 90),
-  [12575] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8165),
-  [12577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3877),
-  [12579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3513),
-  [12581] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, 0, 49),
-  [12583] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 7, 0, 163),
-  [12585] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 7, 0, 163),
-  [12587] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 6, 0, 163),
-  [12589] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 6, 0, 163),
-  [12591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 4, 0, 0),
-  [12593] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 4, 0, 0),
-  [12595] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 4, 0, 137),
-  [12597] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 4, 0, 137),
-  [12599] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_item, 3, 0, 0),
-  [12601] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym__transfer_item, 3, 0, 0),
-  [12603] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__transfer_items_repeat1, 2, 0, 0),
-  [12605] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 7, 0, 180),
-  [12607] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 7, 0, 180),
-  [12609] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8055),
-  [12611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3580),
-  [12613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7495),
-  [12615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6429),
-  [12617] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__block_where_statement_repeat1, 2, 0, 0),
-  [12619] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__block_where_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7733),
-  [12622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__block_where_statement_repeat1, 2, 0, 0),
-  [12624] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__block_where_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3513),
-  [12627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3533),
-  [12629] = {.entry = {.count = 1, .reusable = false}}, SHIFT(2990),
-  [12631] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2998),
-  [12633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5267),
-  [12635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5290),
-  [12637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5271),
-  [12639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5285),
-  [12641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5299),
-  [12643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(683),
-  [12645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5297),
-  [12647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5280),
-  [12649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3461),
-  [12651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1143),
-  [12653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3435),
-  [12655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4612),
-  [12657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1481),
-  [12659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8079),
-  [12661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3587),
-  [12663] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 2, 0, 61),
-  [12665] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 2, 0, 61),
-  [12667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1576),
-  [12669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4614),
-  [12671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1493),
-  [12673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1580),
-  [12675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4331),
-  [12677] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_statement, 2, 0, 0),
-  [12679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1446),
-  [12681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1449),
-  [12683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2885),
-  [12685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2902),
-  [12687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1467),
-  [12689] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4530),
-  [12691] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1468),
-  [12693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2816),
-  [12695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1348),
-  [12697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4353),
-  [12699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1486),
-  [12701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1487),
-  [12703] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_namelist_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3981),
-  [12706] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_namelist_statement_repeat1, 2, 0, 0),
-  [12708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1439),
-  [12710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4547),
-  [12712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4356),
-  [12714] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5287),
-  [12716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4337),
-  [12718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1394),
-  [12720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4342),
-  [12722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1396),
-  [12724] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__type_name, 1, 0, 17),
-  [12726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3110),
-  [12728] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2968),
-  [12730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3140),
-  [12732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1504),
-  [12734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1140),
-  [12736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3143),
-  [12738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1141),
-  [12740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3076),
-  [12742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5665),
-  [12744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5667),
-  [12746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2973),
-  [12748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5272),
-  [12750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4346),
-  [12752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4348),
-  [12754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4340),
-  [12756] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2, 0, 0), SHIFT_REPEAT(3149),
-  [12759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5669),
-  [12761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5670),
-  [12763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1133),
-  [12765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5666),
-  [12767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5651),
-  [12769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1359),
-  [12771] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, 0, 95),
-  [12773] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, 0, 95),
-  [12775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1132),
-  [12777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1125),
-  [12779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5376),
-  [12781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1466),
-  [12783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4534),
-  [12785] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, 0, 96),
-  [12787] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, 0, 96),
-  [12789] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, 0, 66),
-  [12791] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, 0, 66),
-  [12793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4616),
-  [12795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1405),
-  [12797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4349),
-  [12799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1406),
-  [12801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4617),
-  [12803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3981),
-  [12805] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_namelist_statement, 2, 0, 0),
-  [12807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4564),
-  [12809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4350),
-  [12811] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4566),
-  [12813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2883),
-  [12815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2884),
-  [12817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1361),
-  [12819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1499),
-  [12821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1503),
-  [12823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4508),
-  [12825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2827),
-  [12827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1312),
-  [12829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1524),
-  [12831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1313),
-  [12833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2828),
-  [12835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4352),
-  [12837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1530),
-  [12839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1315),
-  [12841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1316),
-  [12843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5283),
-  [12845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4509),
-  [12847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1531),
-  [12849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1320),
-  [12851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1321),
-  [12853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1539),
-  [12855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4615),
-  [12857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4510),
-  [12859] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_file_position_statement, 1, 0, 0),
-  [12861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1422),
-  [12863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1424),
-  [12865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4542),
-  [12867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4611),
-  [12869] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 4, 0, 128),
-  [12871] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 4, 0, 128),
-  [12873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4345),
-  [12875] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 4, 0, 97),
-  [12877] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 4, 0, 97),
-  [12879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1617),
-  [12881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4517),
-  [12883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7557),
-  [12885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1631),
-  [12887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1162),
-  [12889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1163),
-  [12891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4519),
-  [12893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1632),
-  [12895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5294),
-  [12897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1181),
-  [12899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1186),
-  [12901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1189),
-  [12903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1158),
-  [12905] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 93), SHIFT_REPEAT(3794),
-  [12908] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 93),
-  [12910] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 93),
-  [12912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4027),
-  [12914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4518),
-  [12916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3984),
-  [12918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2846),
-  [12920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2854),
-  [12922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4514),
-  [12924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3992),
-  [12926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1634),
-  [12928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3999),
-  [12930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1627),
-  [12932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3454),
-  [12934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4128),
-  [12936] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 4, 0, 0),
-  [12938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4339),
-  [12940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1635),
-  [12942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1636),
-  [12944] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enum_repeat1, 2, 0, 0),
-  [12946] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2, 0, 0), SHIFT_REPEAT(3580),
-  [12949] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2, 0, 0),
-  [12951] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5295),
-  [12953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1618),
-  [12955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2798),
-  [12957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2740),
-  [12959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2742),
-  [12961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2799),
-  [12963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2800),
-  [12965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3883),
-  [12967] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3883),
-  [12970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2765),
-  [12972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7437),
-  [12974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2766),
-  [12976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3198),
-  [12978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4354),
-  [12980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4355),
-  [12982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5306),
-  [12984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3199),
-  [12986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2735),
-  [12988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2741),
-  [12990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4344),
-  [12992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5373),
-  [12994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3200),
-  [12996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5398),
-  [12998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4515),
-  [13000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4327),
-  [13002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4347),
-  [13004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3201),
-  [13006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4351),
-  [13008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4336),
-  [13010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5377),
-  [13012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4127),
-  [13014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2805),
-  [13016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3969),
-  [13018] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8364),
-  [13020] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameters, 2, 0, 0),
-  [13022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3965),
-  [13024] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, 0, 103),
-  [13026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4026),
-  [13028] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, 0, 36),
-  [13030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7536),
-  [13032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6479),
-  [13034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7482),
-  [13036] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1880),
-  [13038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3988),
-  [13040] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameters, 3, 0, 0),
-  [13042] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 7, 0, 103),
-  [13044] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_input_item_list, 2, 0, 0),
-  [13046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5123),
-  [13048] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7945),
-  [13050] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_output_item_list, 2, 0, 0),
-  [13052] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 61),
-  [13054] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 61),
-  [13056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4989),
-  [13058] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7953),
-  [13060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2233),
-  [13062] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7961),
-  [13064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2240),
-  [13066] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7969),
-  [13068] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(2942),
-  [13071] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_statement_repeat1, 2, 0, 0),
-  [13073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5281),
-  [13075] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8444),
-  [13077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1818),
-  [13079] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7977),
-  [13081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2470),
-  [13083] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8268),
-  [13085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2089),
-  [13087] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8062),
-  [13089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1393),
-  [13091] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7985),
-  [13093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1953),
-  [13095] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7993),
-  [13097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4537),
-  [13099] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8001),
-  [13101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1082),
-  [13103] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7771),
-  [13105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, 0, 16),
-  [13107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2942),
-  [13109] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_statement, 2, 0, 0),
-  [13111] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assumed_size, 1, 0, 0),
-  [13113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2401),
-  [13115] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8009),
-  [13117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3078),
-  [13119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3967),
-  [13121] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 3, 0, 36),
-  [13123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1375),
-  [13125] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7974),
-  [13127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2787),
-  [13129] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8496),
-  [13131] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameters, 4, 0, 0),
-  [13133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2408),
-  [13135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8017),
-  [13137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3129),
-  [13139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8025),
-  [13141] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_private_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(3461),
-  [13144] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_private_statement_repeat1, 2, 0, 0),
-  [13146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5212),
-  [13148] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8033),
-  [13150] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_result, 4, 0, 0),
-  [13152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4971),
-  [13154] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8650),
-  [13156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5223),
-  [13158] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8041),
-  [13160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2423),
-  [13162] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7732),
-  [13164] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, 0, 93), SHIFT_REPEAT(3696),
-  [13167] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 4, 0, 16),
-  [13169] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 2, 0, 0),
-  [13171] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 6, 0, 36),
-  [13173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3834),
-  [13175] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 3, 0, 65),
-  [13177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1426),
-  [13179] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8049),
-  [13181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2256),
-  [13183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8057),
-  [13185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4780),
-  [13187] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8065),
-  [13189] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 3, 0, 6),
-  [13191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1008),
-  [13193] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7850),
-  [13195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1825),
-  [13197] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8073),
-  [13199] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_use_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4026),
-  [13202] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_use_statement_repeat1, 2, 0, 0),
-  [13204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5725),
-  [13206] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 5, 0, 0),
-  [13208] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2, 0, 0), SHIFT_REPEAT(3079),
-  [13211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4047),
-  [13213] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 4, 0, 0),
-  [13215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4563),
-  [13217] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7779),
-  [13219] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2, 0, 0), SHIFT_REPEAT(3587),
-  [13222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2428),
-  [13224] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8081),
-  [13226] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, 0, 93), SHIFT_REPEAT(3435),
-  [13229] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, 0, 93),
-  [13231] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 2, 0, 0),
-  [13233] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 6, 0, 0),
-  [13235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2268),
-  [13237] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8089),
-  [13239] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 3, 0, 0),
-  [13241] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 8, 0, 103),
-  [13243] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_included_items_repeat1, 2, 0, 0),
-  [13245] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, 0, 35),
-  [13247] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, 0, 90),
-  [13249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2666),
-  [13251] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8097),
-  [13253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1644),
-  [13255] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8074),
-  [13257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2275),
-  [13259] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8105),
-  [13261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1595),
-  [13263] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8427),
-  [13265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8439),
-  [13267] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4047),
-  [13270] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 2, 0, 0),
-  [13272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2448),
-  [13274] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8113),
-  [13276] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0), SHIFT_REPEAT(4127),
-  [13279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3069),
-  [13281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5049),
-  [13283] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8121),
-  [13285] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 6, 0, 0),
-  [13287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2617),
-  [13289] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7834),
-  [13291] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_included_items_repeat1, 2, 0, 0), SHIFT_REPEAT(3454),
-  [13294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1857),
-  [13296] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8129),
-  [13298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2457),
-  [13300] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8137),
-  [13302] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 3, 0, 0),
-  [13304] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3597),
-  [13306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3730),
-  [13308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1887),
-  [13310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3189),
-  [13312] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_intrinsic_type, 1, 0, 0), SHIFT(1897),
-  [13315] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 4, 0, 0),
-  [13317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7655),
-  [13319] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_statement, 2, 0, 0),
-  [13321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(838),
-  [13323] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8429),
-  [13325] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_method_name, 1, 0, 48),
-  [13327] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binding_name, 1, 0, 0),
-  [13329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7165),
-  [13331] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 2, 0, 0), SHIFT_REPEAT(5725),
-  [13334] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 2, 0, 0),
-  [13336] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_statement, 3, 0, 0),
-  [13338] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 4, 0, 97),
-  [13340] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 3, 0, 66),
-  [13342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1718),
-  [13344] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7835),
-  [13346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1915),
-  [13348] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7867),
-  [13350] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, 0, 93), SHIFT_REPEAT(3834),
-  [13353] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, 0, 93),
-  [13355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1882),
-  [13357] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 2, 0, 30),
-  [13359] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 7, 0, 0),
-  [13361] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 5, 0, 0),
-  [13363] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_equivalence_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7655),
-  [13366] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_equivalence_statement_repeat1, 2, 0, 0),
-  [13368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1167),
-  [13370] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7803),
-  [13372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1615),
-  [13374] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8538),
-  [13376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1886),
-  [13378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5368),
-  [13380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5551),
-  [13382] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7897),
-  [13384] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_statement, 3, 0, 0),
-  [13386] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 2, 0, 0),
-  [13388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3951),
-  [13390] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 2, 0, 16),
-  [13392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2559),
-  [13394] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7913),
-  [13396] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 5, 0, 0),
-  [13398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2688),
-  [13400] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7929),
-  [13402] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, 0, 93), SHIFT_REPEAT(3533),
-  [13405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(179),
-  [13407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8601),
-  [13409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3958),
-  [13411] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_attributes_repeat1, 2, 0, 0), SHIFT_REPEAT(6315),
-  [13414] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_attributes_repeat1, 2, 0, 0),
-  [13416] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3520),
-  [13418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3645),
-  [13420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(701),
-  [13422] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 6, 0, 0),
-  [13424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3946),
-  [13426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(749),
-  [13428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(758),
-  [13430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4011),
-  [13432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7431),
-  [13434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7469),
-  [13436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7647),
-  [13438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5158),
-  [13440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2307),
-  [13442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7570),
-  [13444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7489),
-  [13446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3960),
-  [13448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4023),
-  [13450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3269),
-  [13452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6315),
-  [13454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5356),
-  [13456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7519),
-  [13458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6387),
-  [13460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8281),
-  [13462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7490),
-  [13464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7499),
-  [13466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5189),
-  [13468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(725),
-  [13470] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, 0, 105), SHIFT_REPEAT(5767),
-  [13473] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, 0, 105),
-  [13475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(746),
-  [13477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(752),
-  [13479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(707),
-  [13481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(966),
-  [13483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(714),
-  [13485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(719),
-  [13487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2819),
-  [13489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2830),
-  [13491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6547),
-  [13493] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2952),
-  [13495] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3530),
-  [13497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3689),
-  [13499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4034),
-  [13501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7588),
-  [13503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3531),
-  [13505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3691),
-  [13507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1521),
-  [13509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1012),
-  [13511] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 6, 0, 179),
-  [13513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2532),
-  [13515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1015),
-  [13517] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_set, 2, 0, 0),
-  [13519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1022),
-  [13521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1024),
-  [13523] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat1, 2, 0, 0), SHIFT_REPEAT(2899),
-  [13526] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4554),
-  [13528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8458),
-  [13530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3952),
-  [13532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1126),
-  [13534] = {.entry = {.count = 1, .reusable = true}}, SHIFT(967),
-  [13536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2510),
-  [13538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2804),
-  [13540] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3222),
-  [13542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1445),
-  [13544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(977),
-  [13546] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1391),
-  [13548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2511),
-  [13550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1370),
-  [13552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1152),
-  [13554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1135),
-  [13556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4117),
-  [13558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6017),
-  [13560] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__argument_list_repeat1, 2, 0, 0), SHIFT_REPEAT(2010),
-  [13563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2720),
-  [13565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1142),
-  [13567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1146),
-  [13569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1148),
-  [13571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(753),
-  [13573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2758),
-  [13575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4021),
-  [13577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3985),
-  [13579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1151),
-  [13581] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameter_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4011),
-  [13584] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_parameter_statement_repeat1, 2, 0, 0),
-  [13586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2933),
-  [13588] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_cuda_kernel_argument_list, 3, 0, 0),
-  [13590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4001),
-  [13592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7305),
-  [13594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2939),
-  [13596] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3537),
-  [13598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3727),
-  [13600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7644),
-  [13602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7656),
-  [13604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7450),
-  [13606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3998),
-  [13608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(654),
-  [13610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4502),
-  [13612] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_keyword_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(6547),
-  [13615] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_keyword_statement_repeat1, 2, 0, 0),
-  [13617] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 3, 0, 0),
-  [13619] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3987),
-  [13621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7308),
-  [13623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4523),
-  [13625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7311),
-  [13627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(900),
-  [13629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(901),
-  [13631] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3541),
-  [13633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3738),
-  [13635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(968),
-  [13637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2951),
-  [13639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5995),
-  [13641] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3586),
-  [13643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3741),
-  [13645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6030),
-  [13647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5015),
-  [13649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5020),
-  [13651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5040),
-  [13653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5044),
-  [13655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4950),
-  [13657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8474),
-  [13659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4268),
-  [13661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1660),
-  [13663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5395),
-  [13665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2581),
-  [13667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4562),
-  [13669] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_case_value_range_list_repeat1, 2, 0, 0), SHIFT_REPEAT(2789),
-  [13672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1157),
-  [13674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2586),
-  [13676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1402),
-  [13678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1649),
-  [13680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1656),
-  [13682] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3615),
-  [13684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3762),
-  [13686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(975),
-  [13688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3255),
-  [13690] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3621),
-  [13692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3767),
-  [13694] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1179),
-  [13696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1653),
-  [13698] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1658),
-  [13700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1659),
-  [13702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2292),
-  [13704] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8622),
-  [13706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7654),
-  [13708] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3522),
-  [13710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3666),
-  [13712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2761),
-  [13714] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4810),
-  [13716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4043),
-  [13718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1628),
-  [13720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4814),
-  [13722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2938),
-  [13724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2924),
-  [13726] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3542),
-  [13728] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3756),
-  [13730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4820),
-  [13732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3262),
-  [13734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(566),
-  [13736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5195),
-  [13738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(549),
-  [13740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4828),
-  [13742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(980),
-  [13744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4943),
-  [13746] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_set, 3, 0, 0),
-  [13748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5374),
-  [13750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1654),
-  [13752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1640),
-  [13754] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__forall_control_expression_repeat1, 2, 0, 0), SHIFT_REPEAT(4051),
-  [13757] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__forall_control_expression_repeat1, 2, 0, 0),
-  [13759] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3610),
-  [13761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3763),
-  [13763] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3585),
-  [13765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3676),
-  [13767] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3543),
-  [13769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3764),
-  [13771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7546),
-  [13773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5572),
-  [13775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5563),
-  [13777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5140),
-  [13779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5143),
-  [13781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5147),
-  [13783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5153),
-  [13785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7693),
-  [13787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4982),
-  [13789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8489),
-  [13791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4264),
-  [13793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1363),
-  [13795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2634),
-  [13797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5278),
-  [13799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7700),
-  [13801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1562),
-  [13803] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_set_repeat1, 2, 0, 0), SHIFT_REPEAT(3052),
-  [13806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7339),
-  [13808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2636),
-  [13810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1265),
-  [13812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1371),
-  [13814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1372),
-  [13816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7420),
-  [13818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7451),
-  [13820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(760),
-  [13822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7342),
-  [13824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7486),
-  [13826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1646),
-  [13828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1379),
-  [13830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1381),
-  [13832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1382),
-  [13834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4248),
-  [13836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(558),
-  [13838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7423),
-  [13840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1385),
-  [13842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7424),
-  [13844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7429),
-  [13846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1556),
-  [13848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7433),
-  [13850] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3592),
-  [13852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3780),
-  [13854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7508),
-  [13856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5074),
-  [13858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2948),
-  [13860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6006),
-  [13862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(682),
-  [13864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5090),
-  [13866] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_associate_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(4038),
-  [13869] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_associate_statement_repeat1, 2, 0, 0),
-  [13871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1414),
-  [13873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1425),
-  [13875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(856),
-  [13877] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3599),
-  [13879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3785),
-  [13881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7572),
-  [13883] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3604),
-  [13885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3786),
-  [13887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4761),
-  [13889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7518),
-  [13891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4764),
-  [13893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4766),
-  [13895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4768),
-  [13897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4246),
-  [13899] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_range, 1, 0, 0),
-  [13901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8357),
-  [13903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1936),
-  [13905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2077),
-  [13907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6376),
-  [13909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1611),
-  [13911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1969),
-  [13913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1403),
-  [13915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1404),
-  [13917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1583),
-  [13919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3103),
-  [13921] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_format_identifier, 1, 0, 0),
-  [13923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1417),
-  [13925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1420),
-  [13927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1421),
-  [13929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(666),
-  [13931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1427),
-  [13933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(859),
-  [13935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(705),
-  [13937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(862),
-  [13939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5289),
-  [13941] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3611),
-  [13943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3803),
-  [13945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7611),
-  [13947] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5274),
-  [13949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1409),
-  [13951] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5564),
-  [13953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5767),
-  [13955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4069),
-  [13957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4910),
-  [13959] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, 0, 120), SHIFT_REPEAT(2913),
-  [13962] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, 0, 120),
-  [13964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7520),
-  [13966] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 2, 0, 0),
-  [13968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4918),
-  [13970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2936),
-  [13972] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__simple_read_statement, 2, 0, 0),
-  [13974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1475),
-  [13976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1488),
-  [13978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4038),
-  [13980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7099),
-  [13982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3616),
-  [13984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3810),
-  [13986] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3613),
-  [13988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3640),
-  [13990] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3618),
-  [13992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3814),
-  [13994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4036),
-  [13996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4646),
-  [13998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4620),
-  [14000] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3534),
-  [14002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3643),
-  [14004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4633),
-  [14006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4512),
-  [14008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4834),
-  [14010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8504),
-  [14012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5372),
-  [14014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4270),
-  [14016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1254),
-  [14018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1798),
-  [14020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(905),
-  [14022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5360),
-  [14024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3176),
-  [14026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1799),
-  [14028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1570),
-  [14030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1266),
-  [14032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1268),
-  [14034] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 2, 0, 0), SHIFT_REPEAT(8601),
-  [14037] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 2, 0, 0),
-  [14039] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2595),
-  [14041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1277),
-  [14043] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1279),
-  [14045] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1282),
-  [14047] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5106),
-  [14049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8386),
-  [14051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7471),
-  [14053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1283),
-  [14055] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum_statement, 3, 0, 0),
-  [14057] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum_statement, 3, 0, 0),
-  [14059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5567),
-  [14061] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3594),
-  [14063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3639),
-  [14065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4260),
-  [14067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2867),
-  [14069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1715),
-  [14071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(847),
-  [14073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7504),
-  [14075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5045),
-  [14077] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7616),
-  [14079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8498),
-  [14081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8509),
-  [14083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1374),
-  [14085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4963),
-  [14087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5565),
-  [14089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1037),
-  [14091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1038),
-  [14093] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3598),
-  [14095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3646),
-  [14097] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3619),
-  [14099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3772),
-  [14101] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3601),
-  [14103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3649),
-  [14105] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5165),
-  [14107] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3624),
-  [14109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3778),
-  [14111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5170),
-  [14113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8183),
-  [14115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4545),
-  [14117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4546),
-  [14119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5209),
-  [14121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5233),
-  [14123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(690),
-  [14125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2016),
-  [14127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2578),
-  [14129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2017),
-  [14131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1621),
-  [14133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1159),
-  [14135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1164),
-  [14137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2940),
-  [14139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2917),
-  [14141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1165),
-  [14143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1175),
-  [14145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1176),
-  [14147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1180),
-  [14149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5099),
-  [14151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1763),
-  [14153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1150),
-  [14155] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2786),
-  [14157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2791),
-  [14159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5277),
-  [14161] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_set, 6, 0, 0),
-  [14163] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_equivalence_set_repeat1, 2, 0, 0), SHIFT_REPEAT(2985),
-  [14166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(663),
-  [14168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3546),
-  [14170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3723),
-  [14172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5385),
-  [14174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1182),
-  [14176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1184),
-  [14178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5560),
-  [14180] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3623),
-  [14182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3660),
-  [14184] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3625),
-  [14186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3661),
-  [14188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2286),
-  [14190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5173),
-  [14192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5293),
-  [14194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5178),
-  [14196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(686),
-  [14198] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, 0, 30),
-  [14200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5201),
-  [14202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5205),
-  [14204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5023),
-  [14206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8522),
-  [14208] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binding, 3, 0, 0),
-  [14210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2707),
-  [14212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2193),
-  [14214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1643),
-  [14216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5569),
-  [14218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2194),
-  [14220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2722),
-  [14222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2725),
-  [14224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(133),
-  [14226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6691),
-  [14228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(691),
-  [14230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2729),
-  [14232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2762),
-  [14234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2764),
-  [14236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2682),
-  [14238] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 5, 0, 162),
-  [14240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6496),
-  [14242] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2, 0, 0), SHIFT_REPEAT(4117),
-  [14245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2941),
-  [14247] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_print_statement, 2, 0, 0),
-  [14249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1052),
-  [14251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2697),
-  [14253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2701),
-  [14255] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3539),
-  [14257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3673),
-  [14259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(667),
-  [14261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1066),
-  [14263] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3589),
-  [14265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3675),
-  [14267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1600),
-  [14269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4796),
-  [14271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(889),
-  [14273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4799),
-  [14275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4802),
-  [14277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4804),
-  [14279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1080),
-  [14281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2467),
-  [14283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2468),
-  [14285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2931),
-  [14287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7553),
-  [14289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(837),
-  [14291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2905),
-  [14293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2478),
-  [14295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1571),
-  [14297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1572),
-  [14299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2953),
-  [14301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6027),
-  [14303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2298),
-  [14305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2776),
-  [14307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1578),
-  [14309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1581),
-  [14311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1582),
-  [14313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1589),
-  [14315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7843),
-  [14317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2778),
-  [14319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2907),
-  [14321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(641),
-  [14323] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3523),
-  [14325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3647),
-  [14327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1605),
-  [14329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1607),
-  [14331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7573),
-  [14333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3614),
-  [14335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3692),
-  [14337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5286),
-  [14339] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3516),
-  [14341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3695),
-  [14343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1009),
-  [14345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5188),
-  [14347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5194),
-  [14349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5227),
-  [14351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4945),
-  [14353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3022),
-  [14355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2589),
-  [14357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1594),
-  [14359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2633),
-  [14361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3104),
-  [14363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3117),
-  [14365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4037),
-  [14367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3043),
-  [14369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2987),
-  [14371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3122),
-  [14373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3062),
-  [14375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7580),
-  [14377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2751),
-  [14379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3164),
-  [14381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3133),
-  [14383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3070),
-  [14385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3167),
-  [14387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1776),
-  [14389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1614),
-  [14391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2950),
-  [14393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7506),
-  [14395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3267),
-  [14397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2781),
-  [14399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1777),
-  [14401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1622),
-  [14403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1623),
-  [14405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(895),
-  [14407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1543),
-  [14409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1566),
-  [14411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1340),
-  [14413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2320),
-  [14415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1448),
-  [14417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2817),
-  [14419] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3627),
-  [14421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3787),
-  [14423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(904),
-  [14425] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, 0, 30),
-  [14427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(869),
-  [14429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1473),
-  [14431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1480),
-  [14433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2543),
-  [14435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4969),
-  [14437] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7259),
-  [14439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5414),
-  [14441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2546),
-  [14443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2797),
-  [14445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7584),
-  [14447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2803),
-  [14449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7622),
-  [14451] = {.entry = {.count = 1, .reusable = true}}, SHIFT(870),
-  [14453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8186),
-  [14455] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5296),
-  [14457] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1019),
-  [14459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4054),
-  [14461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2806),
-  [14463] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7409),
-  [14465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5275),
-  [14467] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2660),
-  [14469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2421),
-  [14471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2658),
-  [14473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1436),
-  [14475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3171),
-  [14477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7447),
-  [14479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(601),
-  [14481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(754),
-  [14483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4582),
-  [14485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6015),
-  [14487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2142),
-  [14489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1081),
-  [14491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2144),
-  [14493] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7638),
-  [14495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7539),
-  [14497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7428),
-  [14499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(121),
-  [14501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(616),
-  [14503] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3596),
-  [14505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3811),
-  [14507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4585),
-  [14509] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3590),
-  [14511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3753),
-  [14513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2639),
-  [14515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1166),
-  [14517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2409),
-  [14519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7434),
-  [14521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6734),
-  [14523] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4975),
-  [14525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1838),
-  [14527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1717),
-  [14529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1839),
-  [14531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1039),
-  [14533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3162),
-  [14535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2496),
-  [14537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1914),
-  [14539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(599),
-  [14541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2498),
-  [14543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(602),
-  [14545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7542),
-  [14547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5557),
-  [14549] = {.entry = {.count = 1, .reusable = true}}, SHIFT(547),
-  [14551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2557),
-  [14553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2687),
-  [14555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5102),
-  [14557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(554),
-  [14559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4988),
-  [14561] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2232),
-  [14563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2239),
-  [14565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1515),
-  [14567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1817),
-  [14569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1377),
-  [14571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(650),
-  [14573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1952),
-  [14575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4536),
-  [14577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6318),
-  [14579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2400),
-  [14581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(680),
-  [14583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2407),
-  [14585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3124),
-  [14587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5211),
-  [14589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5222),
-  [14591] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4985),
-  [14593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1423),
-  [14595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2255),
-  [14597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4779),
-  [14599] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7552),
-  [14601] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1824),
-  [14603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2427),
-  [14605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7569),
-  [14607] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2267),
-  [14609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2665),
-  [14611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2274),
-  [14613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2447),
-  [14615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5029),
-  [14617] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1856),
-  [14619] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3163),
-  [14621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2456),
-  [14623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7600),
-  [14625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(129),
-  [14627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(147),
-  [14629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7676),
-  [14631] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7354),
-  [14633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8232),
-  [14635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8234),
-  [14637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7680),
-  [14639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3920),
-  [14641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8490),
-  [14643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5005),
-  [14645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7682),
-  [14647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(586),
-  [14649] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_argument_list_repeat1, 2, 0, 0), SHIFT_REPEAT(3250),
-  [14652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(594),
-  [14654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(148),
-  [14656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(622),
-  [14658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(600),
-  [14660] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_params_repeat1, 2, 0, 0), SHIFT_REPEAT(4034),
-  [14663] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_params_repeat1, 2, 0, 0),
-  [14665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2294),
-  [14667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(605),
-  [14669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(569),
-  [14671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7585),
-  [14673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7488),
-  [14675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4145),
-  [14677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4283),
-  [14679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(141),
-  [14681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(144),
-  [14683] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3617),
-  [14685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3770),
-  [14687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7436),
-  [14689] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3620),
-  [14691] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3777),
-  [14693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1070),
-  [14695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1073),
-  [14697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(124),
-  [14699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1076),
-  [14701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2893),
-  [14703] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1094),
-  [14705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1095),
-  [14707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2866),
-  [14709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(134),
-  [14711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(135),
-  [14713] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5300),
-  [14715] = {.entry = {.count = 1, .reusable = true}}, SHIFT(139),
-  [14717] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3606),
-  [14719] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3693),
-  [14721] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7480),
-  [14723] = {.entry = {.count = 1, .reusable = true}}, SHIFT(123),
-  [14725] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3609),
-  [14727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3700),
-  [14729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(145),
-  [14731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(146),
-  [14733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4544),
-  [14735] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_case_value_range_list, 2, 0, 0),
-  [14737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2891),
-  [14739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7583),
-  [14741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2785),
-  [14743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7623),
-  [14745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5122),
-  [14747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(187),
-  [14749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1507),
-  [14751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5129),
-  [14753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(153),
-  [14755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(154),
-  [14757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5242),
-  [14759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4979),
-  [14761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(155),
-  [14763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2792),
-  [14765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7634),
-  [14767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(159),
-  [14769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(160),
-  [14771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4271),
-  [14773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4591),
-  [14775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5197),
-  [14777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8406),
-  [14779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(161),
-  [14781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4593),
-  [14783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(165),
-  [14785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(166),
-  [14787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4251),
-  [14789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2858),
-  [14791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2503),
-  [14793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1058),
-  [14795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(167),
-  [14797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2784),
-  [14799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(171),
-  [14801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(172),
-  [14803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8252),
-  [14805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(208),
-  [14807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8147),
-  [14809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4731),
-  [14811] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4732),
-  [14813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(175),
-  [14815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(176),
-  [14817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(180),
-  [14819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2695),
-  [14821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2474),
-  [14823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2825),
-  [14825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7637),
-  [14827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(765),
-  [14829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2462),
-  [14831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(183),
-  [14833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(184),
-  [14835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2779),
-  [14837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2811),
-  [14839] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 5, 0, 0),
-  [14841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6457),
-  [14843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(185),
-  [14845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(186),
-  [14847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(656),
-  [14849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3268),
-  [14851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1516),
-  [14853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1107),
-  [14855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7435),
-  [14857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2391),
-  [14859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2832),
-  [14861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2845),
-  [14863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2847),
-  [14865] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_alias, 3, 0, 133),
-  [14867] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat3, 2, 0, 0), SHIFT_REPEAT(7469),
-  [14870] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat3, 2, 0, 0),
-  [14872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2580),
-  [14874] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat1, 2, 0, 0), SHIFT_REPEAT(7519),
-  [14877] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat1, 2, 0, 0),
-  [14879] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assignment, 4, 0, 0),
-  [14881] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_operator, 4, 0, 0),
-  [14883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5284),
-  [14885] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_defined_io_procedure, 4, 0, 0),
-  [14887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3276),
-  [14889] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 4, 0, 0),
-  [14891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2755),
-  [14893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3959),
-  [14895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3213),
-  [14897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2490),
-  [14899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2132),
-  [14901] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__io_arguments_repeat1, 2, 0, 0), SHIFT_REPEAT(4023),
-  [14904] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__io_arguments_repeat1, 2, 0, 0),
-  [14906] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assumed_shape, 1, 0, 0),
-  [14908] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_set, 5, 0, 0),
-  [14910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6860),
-  [14912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2793),
-  [14914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6350),
-  [14916] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_cuda_kernel_argument_list, 4, 0, 0),
-  [14918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5419),
-  [14920] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 4, 0, 135),
-  [14922] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2, 0, 136), SHIFT_REPEAT(3095),
-  [14925] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2, 0, 136),
-  [14927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2947),
-  [14929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6028),
-  [14931] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_header_repeat1, 2, 0, 0), SHIFT_REPEAT(3982),
-  [14934] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_concurrent_header_repeat1, 2, 0, 0),
-  [14936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6004),
-  [14938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(548),
-  [14940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2528),
-  [14942] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7876),
-  [14944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2555),
-  [14946] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7912),
-  [14948] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 4, 0, 0),
-  [14950] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 2, 0, 42),
-  [14952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2570),
-  [14954] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7916),
-  [14956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2686),
-  [14958] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7928),
-  [14960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2691),
-  [14962] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7932),
-  [14964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4980),
-  [14966] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7944),
-  [14968] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_open_statement, 3, 0, 0),
-  [14970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4070),
-  [14972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5226),
-  [14974] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7947),
-  [14976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4987),
-  [14978] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7952),
-  [14980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1367),
-  [14982] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7726),
-  [14984] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 4, 0, 0),
-  [14986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5014),
-  [14988] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7955),
-  [14990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2231),
-  [14992] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7960),
-  [14994] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_where_statement, 1, 0, 0),
-  [14996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2945),
-  [14998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2236),
-  [15000] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7963),
-  [15002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2238),
-  [15004] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7968),
-  [15006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8631),
-  [15008] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 8, 0, 119),
-  [15010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2243),
-  [15012] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7971),
-  [15014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1816),
-  [15016] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7976),
-  [15018] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_arithmetic_if_statement, 7, 0, 0),
-  [15020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1821),
-  [15022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7979),
-  [15024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1362),
-  [15026] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7984),
-  [15028] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 3, 0, 0),
-  [15030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1412),
-  [15032] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7987),
-  [15034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1951),
-  [15036] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7992),
-  [15038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2934),
-  [15040] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1956),
-  [15042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7995),
-  [15044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4535),
-  [15046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8000),
-  [15048] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 4, 0, 148),
-  [15050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4008),
-  [15052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8497),
-  [15054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4540),
-  [15056] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8003),
-  [15058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2399),
-  [15060] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8008),
-  [15062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(840),
-  [15064] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8484),
-  [15066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2404),
-  [15068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8011),
-  [15070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2406),
-  [15072] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8016),
-  [15074] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 5, 0, 116),
-  [15076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2411),
-  [15078] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8019),
-  [15080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3123),
-  [15082] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8024),
-  [15084] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 3, 0, 81),
-  [15086] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, 0, 35),
-  [15088] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3136),
-  [15090] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8027),
-  [15092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5210),
-  [15094] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8032),
-  [15096] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, 0, 116),
-  [15098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5217),
-  [15100] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8035),
-  [15102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5221),
-  [15104] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8040),
-  [15106] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 5, 0, 0),
-  [15108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2454),
-  [15110] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8243),
-  [15112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5234),
-  [15114] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8043),
-  [15116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1419),
-  [15118] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8048),
-  [15120] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1435),
-  [15122] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8051),
-  [15124] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2254),
-  [15126] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8056),
-  [15128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6715),
-  [15130] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 3, 0, 0),
-  [15132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2259),
-  [15134] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8059),
-  [15136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4778),
-  [15138] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8064),
-  [15140] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 5, 0, 0),
-  [15142] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 2, 0, 114),
-  [15144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4783),
-  [15146] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8067),
-  [15148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1823),
-  [15150] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8072),
-  [15152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2896),
-  [15154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1828),
-  [15156] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8075),
-  [15158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2426),
-  [15160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8080),
-  [15162] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_forall_statement, 1, 0, 0),
-  [15164] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 4, 0, 0),
-  [15166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2431),
-  [15168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8083),
-  [15170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2266),
-  [15172] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8088),
-  [15174] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, 0, 154),
-  [15176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2271),
-  [15178] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8091),
-  [15180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2663),
-  [15182] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8096),
-  [15184] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_inquire_statement, 3, 0, 0),
-  [15186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2656),
-  [15188] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8099),
-  [15190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2273),
-  [15192] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8104),
-  [15194] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_while_statement, 2, 0, 0),
-  [15196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2278),
-  [15198] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8107),
-  [15200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2446),
-  [15202] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8112),
-  [15204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2451),
-  [15206] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8115),
-  [15208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5028),
-  [15210] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8120),
-  [15212] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, 0, 115),
-  [15214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5064),
-  [15216] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8123),
-  [15218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1855),
-  [15220] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8128),
-  [15222] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, 0, 166),
-  [15224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2489),
-  [15226] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8303),
-  [15228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1860),
-  [15230] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8131),
-  [15232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2455),
-  [15234] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8136),
-  [15236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2460),
-  [15238] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8139),
-  [15240] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 6, 0, 0),
-  [15242] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 2, 0, 112),
-  [15244] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, 0, 141),
-  [15246] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 9, 0, 147),
-  [15248] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 9, 0, 166),
-  [15250] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 5, 0, 0),
-  [15252] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 5, 0, 90),
-  [15254] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 3, 0, 0),
-  [15256] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 3, 0, 121),
-  [15258] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_statement, 5, 0, 0),
-  [15260] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, 0, 83),
-  [15262] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_statement, 4, 0, 0),
-  [15264] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 5, 0, 0),
-  [15266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8468),
-  [15268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(992),
-  [15270] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8523),
-  [15272] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, 0, 142),
-  [15274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4049),
-  [15276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3949),
-  [15278] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 5, 0, 0),
-  [15280] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_file_position_statement, 2, 0, 0),
-  [15282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5420),
-  [15284] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_name, 1, 0, 0),
-  [15286] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 7, 0, 143),
-  [15288] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 4, 0, 0),
-  [15290] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 4, 0, 0),
-  [15292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2767),
-  [15294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3773),
-  [15296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2768),
-  [15298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3784),
-  [15300] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_format_statement, 4, 0, 82),
-  [15302] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 3, 0, 16),
-  [15304] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, 0, 142),
-  [15306] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_label_statement, 4, 0, 0),
-  [15308] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure_statement, 3, 0, 71),
-  [15310] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_print_statement, 4, 0, 0),
-  [15312] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_read_statement, 1, 0, 0),
-  [15314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 6, 0, 0),
-  [15316] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 6, 0, 0),
-  [15318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7645),
-  [15320] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 6, 0, 0),
-  [15322] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 4, 0, 0),
-  [15324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2978),
-  [15326] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 8, 0, 0),
-  [15328] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_selector, 3, 0, 0),
-  [15330] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 2, 0, 0),
-  [15332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5336),
-  [15334] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5331),
-  [15336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2191),
-  [15338] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8007),
-  [15340] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 4, 0, 0),
-  [15342] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 4, 0, 0),
-  [15344] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, 0, 155),
-  [15346] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 2, 0, 146),
-  [15348] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 3, 0, 78),
-  [15350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1338),
-  [15352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8409),
-  [15354] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, 0, 15),
-  [15356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2769),
-  [15358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3633),
-  [15360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2770),
-  [15362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3638),
-  [15364] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 8, 0, 172),
-  [15366] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__derived_type_qualifier, 1, 0, 37),
-  [15368] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__derived_type_qualifier, 1, 0, 38),
-  [15370] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enum_statement, 1, 0, 28),
-  [15372] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, 0, 49),
-  [15374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2606),
-  [15376] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7799),
-  [15378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1603),
-  [15380] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8446),
-  [15382] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 8, 0, 173),
-  [15384] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 4, 0, 0),
-  [15386] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 8, 0, 174),
-  [15388] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 3, 0, 0),
-  [15390] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 6, 0, 0),
-  [15392] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 4, 0, 20),
-  [15394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4549),
-  [15396] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8258),
-  [15398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2694),
-  [15400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3758),
-  [15402] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 3, 0, 0),
-  [15404] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 4, 0, 83),
-  [15406] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enum_statement, 2, 0, 60),
-  [15408] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 6, 0, 0),
-  [15410] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 5, 0, 0),
-  [15412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6670),
-  [15414] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 7, 0, 0),
-  [15416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1608),
-  [15418] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8514),
-  [15420] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 7, 0, 0),
-  [15422] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 5, 0, 0),
-  [15424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2159),
-  [15426] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8122),
-  [15428] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, 0, 172),
-  [15430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2801),
-  [15432] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8184),
-  [15434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5555),
-  [15436] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7900),
-  [15438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1104),
-  [15440] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8471),
-  [15442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4801),
-  [15444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2814),
-  [15446] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8623),
-  [15448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1625),
-  [15450] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8559),
-  [15452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5273),
-  [15454] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8379),
-  [15456] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, 0, 119),
-  [15458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2796),
-  [15460] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8432),
-  [15462] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, 0, 173),
-  [15464] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_if_statement, 3, 0, 0),
-  [15466] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 6, 0, 0),
-  [15468] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 5, 0, 0),
-  [15470] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 6, 0, 0),
-  [15472] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 2, 0, 0),
-  [15474] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 2, 0, 0),
-  [15476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8389),
-  [15478] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 3, 0, 113),
-  [15480] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 4, 0, 36),
-  [15482] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 7, 0, 174),
-  [15484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4009),
-  [15486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3386),
-  [15488] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, 0, 154),
-  [15490] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, 0, 155),
-  [15492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4730),
-  [15494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4964),
-  [15496] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8636),
-  [15498] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 6, 0, 147),
-  [15500] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 6, 0, 0),
-  [15502] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 7, 0, 0),
-  [15504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1390),
-  [15506] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8380),
-  [15508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4996),
-  [15510] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8663),
-  [15512] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 7, 0, 0),
-  [15514] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure_statement, 4, 0, 151),
-  [15516] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 6, 0, 0),
-  [15518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4045),
-  [15520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4014),
-  [15522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4571),
-  [15524] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7940),
-  [15526] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 5, 0, 119),
-  [15528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2669),
-  [15530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8585),
-  [15532] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 3, 0, 0),
-  [15534] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 3, 0, 0),
-  [15536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4092),
-  [15538] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 9, 0, 0),
-  [15540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2418),
-  [15542] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7728),
-  [15544] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 6, 0, 143),
-  [15546] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 3, 0, 145),
-  [15548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5269),
-  [15550] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8553),
-  [15552] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 9, 0, 0),
-  [15554] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_forall_statement, 2, 0, 0),
-  [15556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2437),
-  [15558] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7740),
-  [15560] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 2, 0, 41),
-  [15562] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_label, 1, 0, 79),
-  [15564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1639),
-  [15566] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8046),
-  [15568] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 8, 0, 0),
-  [15570] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 3, 0, 94),
-  [15572] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 5, 0, 0),
-  [15574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2732),
-  [15576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3779),
-  [15578] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 6, 0, 83),
-  [15580] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 10, 0, 0),
-  [15582] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_extent_specifier, 1, 0, 0),
-  [15584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1078),
-  [15586] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7769),
-  [15588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3406),
-  [15590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8272),
-  [15592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2834),
-  [15594] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8569),
-  [15596] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 4, 0, 0),
-  [15598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3798),
-  [15600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3106),
-  [15602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4029),
-  [15604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6892),
-  [15606] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 3, 0, 165),
-  [15608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1087),
-  [15610] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7775),
-  [15612] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_multiple_subscript_triplet, 2, 0, 0),
-  [15614] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enumeration_type_statement, 4, 0, 2),
-  [15616] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 7, 0, 0),
-  [15618] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 6, 0, 103),
-  [15620] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_label_statement, 3, 0, 0),
-  [15622] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, 0, 104),
-  [15624] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 8, 0, 0),
-  [15626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1160),
-  [15628] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7801),
-  [15630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1651),
-  [15632] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8108),
-  [15634] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 5, 0, 0),
-  [15636] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 8, 0, 147),
-  [15638] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 2, 0, 44),
-  [15640] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameterized_read_statement, 3, 0, 0),
-  [15642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1170),
-  [15644] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7807),
-  [15646] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_range, 3, 0, 0),
-  [15648] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_label_statement, 2, 0, 27),
-  [15650] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__simple_read_statement, 4, 0, 0),
-  [15652] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_base_type_specifier, 4, 0, 0),
-  [15654] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, 0, 141),
-  [15656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4031),
-  [15658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6392),
-  [15660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4067),
-  [15662] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 5, 0, 0),
-  [15664] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 3, 0, 0),
-  [15666] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_label_statement, 3, 0, 58),
-  [15668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1716),
-  [15670] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7833),
-  [15672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5499),
-  [15674] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 5, 0, 115),
-  [15676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2946),
-  [15678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1721),
-  [15680] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7839),
-  [15682] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 3, 0, 138),
-  [15684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(903),
-  [15686] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8382),
-  [15688] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 10, 0, 166),
-  [15690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 3, 0, 84),
-  [15692] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 7, 0, 0),
-  [15694] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 3, 0, 0),
-  [15696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1913),
-  [15698] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7865),
-  [15700] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_abstract_specifier, 1, 0, 0),
-  [15702] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 11, 0, 0),
-  [15704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2937),
-  [15706] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_where_statement, 3, 0, 0),
-  [15708] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 2, 0, 80),
-  [15710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1918),
-  [15712] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7871),
-  [15714] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 2, 0, 59),
-  [15716] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_if_statement, 1, 0, 0),
-  [15718] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 6, 0, 0),
-  [15720] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 4, 0, 0),
-  [15722] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 3, 0, 0),
-  [15724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5556),
-  [15726] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7896),
-  [15728] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 6, 0, 0),
-  [15730] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_statement, 3, 0, 0),
-  [15732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4056),
-  [15734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8676),
-  [15736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8680),
-  [15738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8419),
-  [15740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7071),
-  [15742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4808),
-  [15744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2122),
-  [15746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2123),
-  [15748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1264),
-  [15750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4870),
-  [15752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1679),
-  [15754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(832),
-  [15756] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, 0, 156),
-  [15758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2126),
-  [15760] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2127),
-  [15762] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2700),
-  [15764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3705),
-  [15766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2130),
-  [15768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7461),
-  [15770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1306),
-  [15772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3384),
-  [15774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4294),
-  [15776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1378),
-  [15778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4704),
-  [15780] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2425),
-  [15782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3865),
-  [15784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6343),
-  [15786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5566),
-  [15788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2435),
-  [15790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3469),
-  [15792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1906),
-  [15794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2328),
-  [15796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5324),
-  [15798] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 6, 0, 176),
-  [15800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2018),
-  [15802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4457),
-  [15804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2453),
-  [15806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1907),
-  [15808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1908),
-  [15810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3415),
-  [15812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(116),
-  [15814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2721),
-  [15816] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, 0, 132),
-  [15818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(21),
-  [15820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1909),
-  [15822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1911),
-  [15824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3209),
-  [15826] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 3, 0, 0),
-  [15828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2724),
-  [15830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1945),
-  [15832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1937),
-  [15834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1912),
-  [15836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1928),
-  [15838] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 3, 0, 69),
-  [15840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4872),
-  [15842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5096),
-  [15844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1930),
-  [15846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6378),
-  [15848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4446),
-  [15850] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 5, 0, 132),
-  [15852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5032),
-  [15854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4875),
-  [15856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2035),
-  [15858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1085),
-  [15860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1245),
-  [15862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1086),
-  [15864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1305),
-  [15866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1707),
-  [15868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2681),
-  [15870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1089),
-  [15872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1708),
-  [15874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1709),
-  [15876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5692),
-  [15878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4570),
-  [15880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2293),
-  [15882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1209),
-  [15884] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1710),
-  [15886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1711),
-  [15888] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 3, 0, 0),
-  [15890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4838),
-  [15892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3789),
-  [15894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4893),
-  [15896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4710),
-  [15898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1712),
-  [15900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1713),
-  [15902] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_case, 3, 0, 0),
-  [15904] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4046),
-  [15906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3380),
-  [15908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1683),
-  [15910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2362),
-  [15912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4711),
-  [15914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2621),
-  [15916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4712),
-  [15918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1168),
-  [15920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1905),
-  [15922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1169),
-  [15924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3360),
-  [15926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2172),
-  [15928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1241),
-  [15930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1171),
-  [15932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2174),
-  [15934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2175),
-  [15936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4878),
-  [15938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5570),
-  [15940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2042),
-  [15942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3402),
-  [15944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2178),
-  [15946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2179),
-  [15948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2029),
-  [15950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4882),
-  [15952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4841),
-  [15954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1215),
-  [15956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2284),
-  [15958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2182),
-  [15960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2183),
-  [15962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(108),
-  [15964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1337),
-  [15966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(956),
-  [15968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2186),
-  [15970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1681),
-  [15972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2771),
-  [15974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4887),
-  [15976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1975),
-  [15978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(833),
-  [15980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1719),
-  [15982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2504),
-  [15984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1720),
-  [15986] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, 0, 157),
-  [15988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2475),
-  [15990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3793),
-  [15992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1722),
-  [15994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2476),
-  [15996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2477),
-  [15998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(939),
-  [16000] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statement_function_arg_list, 4, 0, 0),
-  [16002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1893),
-  [16004] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, 0, 99),
-  [16006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2481),
-  [16008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2483),
-  [16010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1280),
-  [16012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3977),
-  [16014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1103),
-  [16016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1682),
-  [16018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5559),
-  [16020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2486),
-  [16022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2488),
-  [16024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5325),
-  [16026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2709),
-  [16028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3808),
-  [16030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2491),
-  [16032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3732),
-  [16034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1991),
-  [16036] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3094),
-  [16038] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 3, 0, 69),
-  [16040] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1322),
-  [16042] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1916),
-  [16044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2334),
-  [16046] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1917),
-  [16048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1287),
-  [16050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1919),
-  [16052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3799),
-  [16054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1920),
-  [16056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1921),
-  [16058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1922),
-  [16060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4466),
-  [16062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2736),
-  [16064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2506),
-  [16066] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_type, 3, 0, 0),
-  [16068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1923),
-  [16070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1924),
-  [16072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2738),
-  [16074] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 2, 0, 0),
-  [16076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1895),
-  [16078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1861),
-  [16080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1925),
-  [16082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1926),
-  [16084] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3020),
-  [16086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4436),
-  [16088] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2053),
-  [16090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1927),
-  [16092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7463),
-  [16094] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 4, 0, 100),
-  [16096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3145),
-  [16098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7658),
-  [16100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5552),
-  [16102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5553),
-  [16104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1325),
-  [16106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2212),
-  [16108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5554),
-  [16110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2213),
-  [16112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2214),
-  [16114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2215),
-  [16116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2216),
-  [16118] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2217),
-  [16120] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2218),
-  [16122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2219),
-  [16124] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, 0, 130),
-  [16126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7379),
-  [16128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1898),
-  [16130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2562),
-  [16132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2564),
-  [16134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1899),
-  [16136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1807),
-  [16138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2572),
-  [16140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1808),
-  [16142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1809),
-  [16144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1811),
-  [16146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1812),
-  [16148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1813),
-  [16150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1814),
-  [16152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1815),
-  [16154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2339),
-  [16156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2056),
-  [16158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2689),
-  [16160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2690),
-  [16162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4488),
-  [16164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2223),
-  [16166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2692),
-  [16168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2224),
-  [16170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2225),
-  [16172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2226),
-  [16174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2227),
-  [16176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2228),
-  [16178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2229),
-  [16180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2230),
-  [16182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4573),
-  [16184] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 5, 0, 132),
-  [16186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1900),
-  [16188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5127),
-  [16190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5183),
-  [16192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1901),
-  [16194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4949),
-  [16196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2367),
-  [16198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4895),
-  [16200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1993),
-  [16202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4991),
-  [16204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5000),
-  [16206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1896),
-  [16208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5030),
-  [16210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2368),
-  [16212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3991),
-  [16214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5262),
-  [16216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2392),
-  [16218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2235),
-  [16220] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, 0, 99),
-  [16222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2237),
-  [16224] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_type, 2, 0, 0),
-  [16226] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 5, 0, 130),
-  [16228] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 5, 0, 132),
-  [16230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2241),
-  [16232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2242),
-  [16234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(921),
-  [16236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2244),
-  [16238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7263),
-  [16240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1389),
-  [16242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3366),
-  [16244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1819),
-  [16246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1820),
-  [16248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6805),
-  [16250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1822),
-  [16252] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 4, 0, 100),
-  [16254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4442),
-  [16256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1319),
-  [16258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1395),
-  [16260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1398),
-  [16262] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, 0, 130),
-  [16264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1416),
-  [16266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3722),
-  [16268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2374),
-  [16270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4843),
-  [16272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1954),
-  [16274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1955),
-  [16276] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2963),
-  [16278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1957),
-  [16280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2376),
-  [16282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5686),
-  [16284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5120),
-  [16286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4538),
-  [16288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4539),
-  [16290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4541),
-  [16292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5701),
-  [16294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2285),
-  [16296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2093),
-  [16298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2402),
-  [16300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2403),
-  [16302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8434),
-  [16304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2405),
-  [16306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4818),
-  [16308] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 5, 0, 132),
-  [16310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4845),
-  [16312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2642),
-  [16314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2410),
-  [16316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3397),
-  [16318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2412),
-  [16320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4916),
-  [16322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5251),
-  [16324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2748),
-  [16326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3131),
-  [16328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3134),
-  [16330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2034),
-  [16332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3137),
-  [16334] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, 0, 157),
-  [16336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4773),
-  [16338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5254),
-  [16340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5213),
-  [16342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5215),
-  [16344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3717),
-  [16346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5218),
-  [16348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3605),
-  [16350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5224),
-  [16352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4935),
-  [16354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5237),
-  [16356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4861),
-  [16358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1645),
-  [16360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4434),
-  [16362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1429),
-  [16364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1434),
-  [16366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1943),
-  [16368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1437),
-  [16370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3363),
-  [16372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5682),
-  [16374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7514),
-  [16376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2257),
-  [16378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2258),
-  [16380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(823),
-  [16382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2260),
-  [16384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1246),
-  [16386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2157),
-  [16388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1680),
-  [16390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4781),
-  [16392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4782),
-  [16394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1220),
-  [16396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4784),
-  [16398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1903),
-  [16400] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, 0, 130),
-  [16402] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, 0, 99),
-  [16404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1826),
-  [16406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1827),
-  [16408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1650),
-  [16410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1829),
-  [16412] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 5, 0, 132),
-  [16414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1686),
-  [16416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8321),
-  [16418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2429),
-  [16420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2430),
-  [16422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7466),
-  [16424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2432),
-  [16426] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 4, 0, 0),
-  [16428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2379),
-  [16430] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 4, 0, 100),
-  [16432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2269),
-  [16434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2270),
-  [16436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2380),
-  [16438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2272),
-  [16440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(911),
-  [16442] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_case, 2, 0, 0),
-  [16444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1286),
-  [16446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2668),
-  [16448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2654),
-  [16450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4821),
-  [16452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2657),
-  [16454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3706),
-  [16456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(118),
-  [16458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5697),
-  [16460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2276),
-  [16462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2277),
-  [16464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6435),
-  [16466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2279),
-  [16468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1657),
-  [16470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1687),
-  [16472] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1667),
-  [16474] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2449),
-  [16476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2450),
-  [16478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1688),
-  [16480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2452),
-  [16482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4039),
-  [16484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1290),
-  [16486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5055),
-  [16488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5060),
-  [16490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2251),
-  [16492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5085),
-  [16494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(60),
-  [16496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2045),
-  [16498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2003),
-  [16500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1858),
-  [16502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1859),
-  [16504] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, 0, 157),
-  [16506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1837),
-  [16508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1689),
-  [16510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1690),
-  [16512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8547),
-  [16514] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2458),
-  [16516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2459),
-  [16518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4060),
-  [16520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2461),
-  [16522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8629),
-  [16524] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4825),
-  [16526] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_rank, 3, 0, 0),
-  [16528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5243),
-  [16530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4035),
-  [16532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2752),
-  [16534] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4084),
-  [16536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4121),
-  [16538] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, 0, 130),
-  [16540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2759),
-  [16542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1691),
-  [16544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1692),
-  [16546] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 5, 0, 132),
-  [16548] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1200),
-  [16550] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2068),
-  [16552] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6032),
-  [16554] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4006),
-  [16556] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2072),
-  [16558] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1693),
-  [16560] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4919),
-  [16562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2345),
-  [16564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3726),
-  [16566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(98),
-  [16568] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 4, 0, 99),
-  [16570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3389),
-  [16572] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1946),
-  [16574] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, 0, 69),
-  [16576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1947),
-  [16578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6358),
-  [16580] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4776),
-  [16582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3822),
-  [16584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4848),
-  [16586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2063),
-  [16588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1202),
-  [16590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(16),
-  [16592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4741),
-  [16594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1296),
-  [16596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8462),
-  [16598] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8467),
-  [16600] = {.entry = {.count = 1, .reusable = true}},  ACCEPT_INPUT(),
-  [16602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3933),
-  [16604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4122),
-  [16606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2807),
-  [16608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2347),
-  [16610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8653),
-  [16612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2383),
-  [16614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3403),
-  [16616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4829),
-  [16618] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 3, 0, 0),
-  [16620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4831),
-  [16622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2699),
-  [16624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4448),
-  [16626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2743),
-  [16628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7736),
-  [16630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1968),
-  [16632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1992),
-  [16634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4743),
-  [16636] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4832),
-  [16638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(929),
-  [16640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8534),
-  [16642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4745),
-  [16644] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, 0, 176),
-  [16646] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2030),
-  [16648] = {.entry = {.count = 1, .reusable = true}}, SHIFT(323),
-  [16650] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5598),
-  [16652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7855),
-  [16654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3147),
-  [16656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4450),
-  [16658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1971),
-  [16660] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, 0, 156),
-  [16662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6059),
-  [16664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(63),
-  [16666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3915),
-  [16668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3734),
-  [16670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3736),
-  [16672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3737),
-  [16674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3739),
-  [16676] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 6, 0, 158),
-  [16678] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 7, 0, 192),
-  [16680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(259),
-  [16682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3760),
-  [16684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3761),
-  [16686] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1210),
-  [16688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4849),
-  [16690] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 4, 0, 100),
-  [16692] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1980),
-  [16694] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1221),
-  [16696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4010),
-  [16698] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 6, 0, 158),
-  [16700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2020),
-  [16702] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 6, 0, 176),
-  [16704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4557),
-  [16706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5592),
-  [16708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7338),
-  [16710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8402),
-  [16712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2473),
-  [16714] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3207),
-  [16716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8421),
-  [16718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4089),
-  [16720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3365),
-  [16722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1934),
-  [16724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(928),
-  [16726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6316),
-  [16728] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4747),
-  [16730] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statement_function_arg_list, 3, 0, 0),
-  [16732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1984),
-  [16734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4749),
-  [16736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3371),
-  [16738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4096),
-  [16740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4565),
-  [16742] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 6, 0, 158),
-  [16744] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, 0, 69),
-  [16746] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 3, 0, 69),
-  [16748] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 4, 0, 99),
-  [16750] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 4, 0, 99),
-  [16752] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 4, 0, 99),
-  [16754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4751),
-  [16756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8414),
-  [16758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2487),
-  [16760] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5693),
-  [16762] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 3, 0, 69),
-  [16764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(19),
-  [16766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3421),
-  [16768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2048),
-  [16770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1869),
-  [16772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1989),
-  [16774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1204),
-  [16776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2350),
-  [16778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4091),
-  [16780] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 4, 0, 100),
-  [16782] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, 0, 100),
-  [16784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1206),
-  [16786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3886),
-  [16788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3097),
-  [16790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1986),
-  [16792] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 5, 0, 0),
-  [16794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(344),
-  [16796] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 5, 0, 157),
-  [16798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(69),
-  [16800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2065),
-  [16802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3924),
-  [16804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3665),
-  [16806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3667),
-  [16808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3670),
-  [16810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3671),
-  [16812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(257),
-  [16814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3678),
-  [16816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3680),
-  [16818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2505),
-  [16820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8030),
-  [16822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1874),
-  [16824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1863),
-  [16826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4452),
-  [16828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1998),
-  [16830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3197),
-  [16832] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, 0, 157),
-  [16834] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5595),
-  [16836] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 157),
-  [16838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5644),
-  [16840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1248),
-  [16842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2052),
-  [16844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4454),
-  [16846] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, 0, 130),
-  [16848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3926),
-  [16850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(944),
-  [16852] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 5, 0, 132),
-  [16854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(22),
-  [16856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(250),
-  [16858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7287),
-  [16860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1868),
-  [16862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1875),
-  [16864] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 4, 0, 100),
-  [16866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3080),
-  [16868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3202),
-  [16870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(359),
-  [16872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3862),
-  [16874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4276),
-  [16876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3838),
-  [16878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2763),
-  [16880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8618),
-  [16882] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, 0, 99),
-  [16884] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1876),
-  [16886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3394),
-  [16888] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1862),
-  [16890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2014),
-  [16892] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 4, 0, 100),
-  [16894] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5498),
-  [16896] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 4, 0, 0),
-  [16898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1865),
-  [16900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1207),
-  [16902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4456),
-  [16904] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3921),
-  [16906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8010),
-  [16908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3210),
-  [16910] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 5, 0, 130),
-  [16912] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6398),
-  [16914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2000),
-  [16916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(9),
-  [16918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4813),
-  [16920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7651),
-  [16922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(957),
-  [16924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5717),
-  [16926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(368),
-  [16928] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 5, 0, 130),
-  [16930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3874),
-  [16932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2813),
-  [16934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8370),
-  [16936] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7453),
-  [16938] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 5, 0, 132),
-  [16940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4929),
-  [16942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6021),
-  [16944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2024),
-  [16946] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, 0, 157),
-  [16948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1297),
-  [16950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5200),
-  [16952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5260),
-  [16954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5292),
-  [16956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1413),
-  [16958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7288),
-  [16960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(874),
-  [16962] = {.entry = {.count = 1, .reusable = true}}, SHIFT(375),
-  [16964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3905),
-  [16966] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, 0, 130),
-  [16968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7999),
-  [16970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1232),
-  [16972] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 5, 0, 132),
-  [16974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7290),
-  [16976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5723),
-  [16978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3401),
-  [16980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5417),
-  [16982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(825),
-  [16984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4094),
-  [16986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1249),
-  [16988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2321),
-  [16990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1677),
-  [16992] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, 0, 130),
-  [16994] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 6, 0, 176),
-  [16996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5025),
-  [16998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8326),
-  [17000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(382),
-  [17002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3937),
-  [17004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1990),
-  [17006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8376),
-  [17008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1234),
-  [17010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1596),
-  [17012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3393),
-  [17014] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_rank, 2, 0, 0),
-  [17016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3358),
-  [17018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(414),
-  [17020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3336),
-  [17022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3449),
-  [17024] = {.entry = {.count = 1, .reusable = true}}, SHIFT(828),
-  [17026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2005),
-  [17028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1251),
-  [17030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3450),
-  [17032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3353),
-  [17034] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5431),
-  [17036] = {.entry = {.count = 1, .reusable = true}}, SHIFT(389),
-  [17038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3872),
-  [17040] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 6, 0, 176),
-  [17042] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7793),
-  [17044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1599),
-  [17046] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, 0, 157),
-  [17048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(839),
-  [17050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1949),
-  [17052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1676),
-  [17054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2790),
-  [17056] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, 0, 130),
-  [17058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6031),
-  [17060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2248),
-  [17062] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 5, 0, 132),
-  [17064] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 6, 0, 176),
-  [17066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2059),
-  [17068] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binary_op, 1, 0, 0),
-  [17070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(396),
-  [17072] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, 0, 99),
-  [17074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8038),
-  [17076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4078),
-  [17078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5282),
-  [17080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5257),
-  [17082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1606),
-  [17084] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1950),
-  [17086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4024),
-  [17088] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1958),
-  [17090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4862),
-  [17092] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 2, 0, 0),
-  [17094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4863),
-  [17096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4864),
-  [17098] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 6, 0, 176),
-  [17100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2067),
-  [17102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(403),
-  [17104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8558),
-  [17106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8238),
-  [17108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5779),
-  [17110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4716),
-  [17112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4717),
-  [17114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8308),
-  [17116] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 4, 0, 0),
-  [17118] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3378),
-  [17120] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1959),
-  [17122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1960),
-  [17124] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8311),
-  [17126] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8313),
-  [17128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4044),
-  [17130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4068),
-  [17132] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1059),
-  [17134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(411),
-  [17136] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1961),
-  [17138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8400),
-  [17140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1962),
-  [17142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4897),
-  [17144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2962),
-  [17146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5650),
-  [17148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1963),
-  [17150] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 3, 0, 69),
-  [17152] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 8, 0, 201),
-  [17154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3986),
-  [17156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3997),
-  [17158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(841),
-  [17160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2280),
-  [17162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2300),
-  [17164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(419),
-  [17166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7894),
-  [17168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8506),
-  [17170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6820),
-  [17172] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, 0, 100),
-  [17174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5538),
-  [17176] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 5, 0, 130),
-  [17178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2829),
-  [17180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4028),
-  [17182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2021),
-  [17184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(924),
-  [17186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1317),
-  [17188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(426),
-  [17190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7292),
-  [17192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8627),
-  [17194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2305),
-  [17196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5001),
-  [17198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4899),
-  [17200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3433),
-  [17202] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, 0, 157),
-  [17204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(433),
-  [17206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8415),
-  [17208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7724),
-  [17210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1616),
-  [17212] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 5, 0, 132),
-  [17214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3419),
-  [17216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3373),
-  [17218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5375),
-  [17220] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unlimited_polymorphic, 1, 0, 0),
-  [17222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(440),
-  [17224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3957),
-  [17226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7765),
-  [17228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1100),
-  [17230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3426),
-  [17232] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 4, 0, 100),
-  [17234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3138),
-  [17236] = {.entry = {.count = 1, .reusable = true}}, SHIFT(447),
-  [17238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5562),
-  [17240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5378),
-  [17242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2704),
-  [17244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2336),
-  [17246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3440),
-  [17248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(454),
-  [17250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3350),
-  [17252] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2337),
-  [17254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7562),
-  [17256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2715),
-  [17258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1624),
-  [17260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(461),
-  [17262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4933),
-  [17264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2101),
-  [17266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3011),
-  [17268] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, 0, 192),
-  [17270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(469),
-  [17272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3712),
-  [17274] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8381),
-  [17276] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 7, 0, 192),
-  [17278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2705),
-  [17280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3724),
-  [17282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3725),
-  [17284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1231),
-  [17286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5288),
-  [17288] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 4, 0, 100),
-  [17290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2070),
-  [17292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2071),
-  [17294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4064),
-  [17296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3507),
-  [17298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1343),
-  [17300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2105),
-  [17302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2106),
-  [17304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(74),
-  [17306] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, 0, 175),
-  [17308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3029),
-  [17310] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, 0, 176),
-  [17312] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, 0, 176),
-  [17314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 6, 0, 176),
-  [17316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2855),
-  [17318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(930),
-  [17320] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 7, 0, 177),
-  [17322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1327),
-  [17324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2099),
-  [17326] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 2, 0, 0),
-  [17328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5591),
-  [17330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4065),
-  [17332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3214),
-  [17334] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6810),
-  [17336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(933),
-  [17338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1331),
-  [17340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8597),
-  [17342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2104),
-  [17344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2109),
-  [17346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2110),
-  [17348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4088),
-  [17350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2355),
-  [17352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2357),
-  [17354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3445),
-  [17356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4815),
-  [17358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2112),
-  [17360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4885),
-  [17362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4886),
-  [17364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5380),
-  [17366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5381),
-  [17368] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, 0, 156),
-  [17370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3476),
-  [17372] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 4, 0, 100),
-  [17374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5382),
-  [17376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5383),
-  [17378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4066),
-  [17380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4135),
-  [17382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2113),
-  [17384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3382),
-  [17386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7127),
-  [17388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3979),
-  [17390] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5998),
-  [17392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8179),
-  [17394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8180),
-  [17396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2114),
-  [17398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2746),
-  [17400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3650),
-  [17402] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 6, 0, 176),
-  [17404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4853),
-  [17406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3361),
-  [17408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5489),
-  [17410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4879),
-  [17412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3356),
-  [17414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2821),
-  [17416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1303),
-  [17418] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 3, 0, 69),
-  [17420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2326),
-  [17422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4840),
-  [17424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8684),
-  [17426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4150),
-  [17428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3390),
-  [17430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(927),
-  [17432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4042),
-  [17434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4972),
-  [17436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8477),
-  [17438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1227),
-  [17440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2171),
-  [17442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2082),
-  [17444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(940),
-  [17446] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 7, 0, 192),
-  [17448] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, 0, 156),
-  [17450] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3375),
-  [17452] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 6, 0, 158),
-  [17454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3653),
-  [17456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4159),
-  [17458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4921),
-  [17460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4990),
-  [17462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2039),
-  [17464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2116),
-  [17466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3024),
-  [17468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1260),
-  [17470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1678),
-  [17472] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6432),
-  [17474] = {.entry = {.count = 1, .reusable = true}}, SHIFT(830),
-  [17476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4833),
-  [17478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1211),
-  [17480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1222),
-  [17482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3334),
-  [17484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2252),
-  [17486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5007),
-  [17488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(926),
-  [17490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2118),
-  [17492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2119),
-  [17494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2046),
-  [17496] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, 0, 176),
-  [17498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4890),
-  [17500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4787),
-  [17502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4059),
-  [17504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3452),
-  [17506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3453),
-  [17508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3438),
-  [17510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3439),
-  [17512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3443),
-  [17514] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3444),
-  [17516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3441),
-  [17518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3437),
-  [17520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8675),
-  [17522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1965),
-  [17524] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8679),
-  [17526] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 3, 0, 69),
-};
-
-enum ts_external_scanner_symbol_identifiers {
-  ts_external_token_AMP = 0,
-  ts_external_token__integer_literal = 1,
-  ts_external_token__float_literal = 2,
-  ts_external_token__boz_literal = 3,
-  ts_external_token__string_literal = 4,
-  ts_external_token__string_literal_kind = 5,
-  ts_external_token__external_end_of_statement = 6,
-  ts_external_token__preproc_unary_operator = 7,
-};
-
-static const TSSymbol ts_external_scanner_symbol_map[EXTERNAL_TOKEN_COUNT] = {
-  [ts_external_token_AMP] = anon_sym_AMP,
-  [ts_external_token__integer_literal] = sym__integer_literal,
-  [ts_external_token__float_literal] = sym__float_literal,
-  [ts_external_token__boz_literal] = sym__boz_literal,
-  [ts_external_token__string_literal] = sym__string_literal,
-  [ts_external_token__string_literal_kind] = sym__string_literal_kind,
-  [ts_external_token__external_end_of_statement] = sym__external_end_of_statement,
-  [ts_external_token__preproc_unary_operator] = sym__preproc_unary_operator,
-};
-
-static const bool ts_external_scanner_states[13][EXTERNAL_TOKEN_COUNT] = {
-  [1] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__float_literal] = true,
-    [ts_external_token__boz_literal] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-    [ts_external_token__external_end_of_statement] = true,
-    [ts_external_token__preproc_unary_operator] = true,
-  },
-  [2] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__float_literal] = true,
-    [ts_external_token__boz_literal] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-  },
-  [3] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__float_literal] = true,
-    [ts_external_token__boz_literal] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-    [ts_external_token__external_end_of_statement] = true,
-  },
-  [4] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-  },
-  [5] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__external_end_of_statement] = true,
-  },
-  [6] = {
-    [ts_external_token_AMP] = true,
-  },
-  [7] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__float_literal] = true,
-    [ts_external_token__boz_literal] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-    [ts_external_token__preproc_unary_operator] = true,
-  },
-  [8] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__external_end_of_statement] = true,
-  },
-  [9] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__integer_literal] = true,
-    [ts_external_token__float_literal] = true,
-    [ts_external_token__boz_literal] = true,
-  },
-  [10] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-  },
-  [11] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__string_literal] = true,
-    [ts_external_token__string_literal_kind] = true,
-    [ts_external_token__external_end_of_statement] = true,
-  },
-  [12] = {
-    [ts_external_token_AMP] = true,
-    [ts_external_token__string_literal] = true,
-  },
+  [11449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4156),
+  [11451] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3533),
+  [11453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3690),
+  [11455] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 68),
+  [11457] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 68),
+  [11459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1213),
+  [11461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(198),
+  [11463] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4155),
+  [11465] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, .production_id = 15),
+  [11467] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 3, .production_id = 15),
+  [11469] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 3, .production_id = 15),
+  [11471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5673),
+  [11473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1301),
+  [11475] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 68),
+  [11477] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 68),
+  [11479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5667),
+  [11481] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 4, .production_id = 68),
+  [11483] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 4, .production_id = 68),
+  [11485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5652),
+  [11487] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 131),
+  [11489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1327),
+  [11491] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 156),
+  [11493] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 156),
+  [11495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5670),
+  [11497] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 130),
+  [11499] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 130),
+  [11501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5653),
+  [11503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1297),
+  [11505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1235),
+  [11507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1319),
+  [11509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1317),
+  [11511] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 4, .production_id = 68),
+  [11513] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 100),
+  [11515] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 100),
+  [11517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5668),
+  [11519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1118),
+  [11521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1197),
+  [11523] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1270),
+  [11525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1318),
+  [11527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1285),
+  [11529] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, .production_id = 99),
+  [11531] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, .production_id = 99),
+  [11533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5658),
+  [11535] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 15),
+  [11537] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 15),
+  [11539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5651),
+  [11541] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 100),
+  [11543] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 100),
+  [11545] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 68),
+  [11547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1192),
+  [11549] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 130),
+  [11551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 7, .production_id = 130),
+  [11553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1212),
+  [11555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1115),
+  [11557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1225),
+  [11559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1116),
+  [11561] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_type, 8, .production_id = 156),
+  [11563] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_type, 8, .production_id = 156),
+  [11565] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, .production_id = 15),
+  [11567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1310),
+  [11569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1211),
+  [11571] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, .production_id = 68),
+  [11573] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 5, .production_id = 68),
+  [11575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5671),
+  [11577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1194),
+  [11579] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, .production_id = 131),
+  [11581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1295),
+  [11583] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 132),
+  [11585] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 132),
+  [11587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5669),
+  [11589] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, .production_id = 69),
+  [11591] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, .production_id = 69),
+  [11593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5665),
+  [11595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1303),
+  [11597] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, .production_id = 15),
+  [11599] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1220),
+  [11601] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, .production_id = 15),
+  [11603] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 4, .production_id = 15),
+  [11605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5661),
+  [11607] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1250),
+  [11609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1325),
+  [11611] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 7, .production_id = 132),
+  [11613] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 7, .production_id = 132),
+  [11615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1119),
+  [11617] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1195),
+  [11619] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2),
+  [11621] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2),
+  [11623] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2), SHIFT_REPEAT(8338),
+  [11626] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_if_in_bound_procedures_repeat1, 2), SHIFT_REPEAT(3641),
+  [11629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1117),
+  [11631] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1233),
+  [11633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1276),
+  [11635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1193),
+  [11637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1120),
+  [11639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1207),
+  [11641] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 15),
+  [11643] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_type, 6, .production_id = 15),
+  [11645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1228),
+  [11647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1222),
+  [11649] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 15),
+  [11651] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 15),
+  [11653] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 130),
+  [11655] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 130),
+  [11657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3400),
+  [11659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7335),
+  [11661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7334),
+  [11663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8606),
+  [11665] = {.entry = {.count = 1, .reusable = false}}, SHIFT(6463),
+  [11667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7330),
+  [11669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7328),
+  [11671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6459),
+  [11673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8663),
+  [11675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8566),
+  [11677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6064),
+  [11679] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 99),
+  [11681] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 6, .production_id = 99),
+  [11683] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_contains_statement, 1),
+  [11685] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_contains_statement, 1),
+  [11687] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 69),
+  [11689] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 5, .production_id = 69),
+  [11691] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 68),
+  [11693] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 7, .production_id = 68),
+  [11695] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 100),
+  [11697] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 6, .production_id = 100),
+  [11699] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 7, .production_id = 132),
+  [11701] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_bound_procedures, 7, .production_id = 132),
+  [11703] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_bound_procedures, 8, .production_id = 156),
+  [11705] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_bound_procedures, 8, .production_id = 156),
+  [11707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3804),
+  [11709] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, .production_id = 65),
+  [11711] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, .production_id = 65),
+  [11713] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 2, .production_id = 30),
+  [11715] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 2, .production_id = 30),
+  [11717] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_label_start_expression, 2, .production_id = 29),
+  [11719] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_block_label_start_expression, 2, .production_id = 29),
+  [11721] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3773),
+  [11723] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 30),
+  [11725] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 30),
+  [11727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7301),
+  [11729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3180),
+  [11731] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7333),
+  [11733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3182),
+  [11735] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1945),
+  [11737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(592),
+  [11739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4143),
+  [11741] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, .production_id = 15),
+  [11743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5758),
+  [11745] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, .production_id = 15),
+  [11747] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 5, .production_id = 15),
+  [11749] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 1),
+  [11751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5760),
+  [11753] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, .production_id = 100),
+  [11755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5738),
+  [11757] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, .production_id = 100),
+  [11759] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, .production_id = 131),
+  [11761] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 132),
+  [11763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5737),
+  [11765] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 132),
+  [11767] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 4, .production_id = 15),
+  [11769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5746),
+  [11771] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 4, .production_id = 15),
+  [11773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1938),
+  [11775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1957),
+  [11777] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 5, .production_id = 68),
+  [11779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5764),
+  [11781] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 5, .production_id = 68),
+  [11783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1921),
+  [11785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2020),
+  [11787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2055),
+  [11789] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 6, .production_id = 130),
+  [11791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5753),
+  [11793] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 6, .production_id = 130),
+  [11795] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 6, .production_id = 68),
+  [11797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5739),
+  [11799] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 6, .production_id = 68),
+  [11801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2051),
+  [11803] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 156),
+  [11805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5757),
+  [11807] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 156),
+  [11809] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 4, .production_id = 15),
+  [11811] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5755),
+  [11813] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 4, .production_id = 15),
+  [11815] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, .production_id = 131),
+  [11817] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, .production_id = 100),
+  [11819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5765),
+  [11821] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 5, .production_id = 100),
+  [11823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1918),
+  [11825] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 5, .production_id = 68),
+  [11827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5752),
+  [11829] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 5, .production_id = 68),
+  [11831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2026),
+  [11833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2052),
+  [11835] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, .production_id = 68),
+  [11837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2017),
+  [11839] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, .production_id = 15),
+  [11841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5762),
+  [11843] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 5, .production_id = 15),
+  [11845] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, .production_id = 15),
+  [11847] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 6, .production_id = 68),
+  [11849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5754),
+  [11851] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 6, .production_id = 68),
+  [11853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2050),
+  [11855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2033),
+  [11857] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, .production_id = 68),
+  [11859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1956),
+  [11861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2074),
+  [11863] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 6, .production_id = 130),
+  [11865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5741),
+  [11867] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 6, .production_id = 130),
+  [11869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1944),
+  [11871] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 132),
+  [11873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5756),
+  [11875] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 132),
+  [11877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2040),
+  [11879] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, .production_id = 15),
+  [11881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1947),
+  [11883] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 156),
+  [11885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5761),
+  [11887] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 156),
+  [11889] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 7, .production_id = 132),
+  [11891] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 7, .production_id = 132),
+  [11893] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 100),
+  [11895] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 100),
+  [11897] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 68),
+  [11899] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 68),
+  [11901] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8135),
+  [11903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3820),
+  [11905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7524),
+  [11907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7486),
+  [11909] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 130),
+  [11911] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 7, .production_id = 130),
+  [11913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6021),
+  [11915] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_items, 2),
+  [11917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5961),
+  [11919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5767),
+  [11921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6027),
+  [11923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8365),
+  [11925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8359),
+  [11927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4029),
+  [11929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7660),
+  [11931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7819),
+  [11933] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 2),
+  [11935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4064),
+  [11937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8602),
+  [11939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8007),
+  [11941] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 2, .production_id = 15),
+  [11943] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, .production_id = 49),
+  [11945] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 130),
+  [11947] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 130),
+  [11949] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 68),
+  [11951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 7, .production_id = 68),
+  [11953] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 7, .production_id = 132),
+  [11955] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 7, .production_id = 132),
+  [11957] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_rank, 8, .production_id = 156),
+  [11959] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_rank, 8, .production_id = 156),
+  [11961] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 15),
+  [11963] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 15),
+  [11965] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_if_in_select_case, 8, .production_id = 156),
+  [11967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_if_in_select_case, 8, .production_id = 156),
+  [11969] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 15),
+  [11971] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_rank, 6, .production_id = 15),
+  [11973] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_items, 1),
+  [11975] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5743),
+  [11977] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 100),
+  [11979] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_ifdef_in_select_case, 6, .production_id = 100),
+  [11981] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 2, .production_id = 15),
+  [11983] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2), SHIFT_REPEAT(6021),
+  [11986] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2),
+  [11988] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2), SHIFT_REPEAT(5961),
+  [11991] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2), SHIFT_REPEAT(5767),
+  [11994] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2), SHIFT_REPEAT(6027),
+  [11997] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__transfer_items_repeat1, 2), SHIFT_REPEAT(8365),
+  [12000] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_bound_procedures, 3),
+  [12002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3883),
+  [12004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3812),
+  [12006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8149),
+  [12008] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_statement, 1),
+  [12010] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8149),
+  [12012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8124),
+  [12014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8134),
+  [12016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6833),
+  [12018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6834),
+  [12020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7910),
+  [12022] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2), SHIFT_REPEAT(8149),
+  [12025] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2),
+  [12027] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2), SHIFT_REPEAT(8149),
+  [12030] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2), SHIFT_REPEAT(8124),
+  [12033] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_statement_repeat1, 2), SHIFT_REPEAT(8134),
+  [12036] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4059),
+  [12038] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3958),
+  [12040] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_statement, 2),
+  [12042] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 4, .production_id = 15),
+  [12044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6677),
+  [12046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3231),
+  [12048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4220),
+  [12050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1242),
+  [12052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(199),
+  [12054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4205),
+  [12056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2200),
+  [12058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(580),
+  [12060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4221),
+  [12062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1219),
+  [12064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2202),
+  [12066] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 3, .production_id = 15),
+  [12068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1966),
+  [12070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1960),
+  [12072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1240),
+  [12074] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, .production_id = 131),
+  [12076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1114),
+  [12078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4097),
+  [12080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1953),
+  [12082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6032),
+  [12084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8683),
+  [12086] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7318),
+  [12088] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8677),
+  [12090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8678),
+  [12092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2253),
+  [12094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1281),
+  [12096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1256),
+  [12098] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1946),
+  [12100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5566),
+  [12102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5794),
+  [12104] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3225),
+  [12106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4091),
+  [12108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5562),
+  [12110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1943),
+  [12112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1931),
+  [12114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1288),
+  [12116] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2756),
+  [12118] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1263),
+  [12120] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2727),
+  [12122] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5717),
+  [12124] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5710),
+  [12126] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, .production_id = 131),
+  [12128] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5681),
+  [12130] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6693),
+  [12132] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3222),
+  [12134] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4141),
+  [12136] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 6, .production_id = 15),
+  [12138] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1695),
+  [12140] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2142),
+  [12142] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5695),
+  [12144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2137),
+  [12146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2556),
+  [12148] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, .production_id = 68),
+  [12150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2297),
+  [12152] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1253),
+  [12154] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2539),
+  [12156] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2536),
+  [12158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1268),
+  [12160] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 5, .production_id = 15),
+  [12162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2517),
+  [12164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2081),
+  [12166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2302),
+  [12168] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2511),
+  [12170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2307),
+  [12172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2094),
+  [12174] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, .production_id = 131),
+  [12176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2506),
+  [12178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2234),
+  [12180] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 4, .production_id = 68),
+  [12182] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 4, .production_id = 15),
+  [12184] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 3, .production_id = 15),
+  [12186] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1667),
+  [12188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2226),
+  [12190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2241),
+  [12192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5720),
+  [12194] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 4, .production_id = 15),
+  [12196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1266),
+  [12198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1981),
+  [12200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1978),
+  [12202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2224),
+  [12204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2140),
+  [12206] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 4, .production_id = 68),
+  [12208] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1681),
+  [12210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1994),
+  [12212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6001),
+  [12214] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8681),
+  [12216] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7319),
+  [12218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8673),
+  [12220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8674),
+  [12222] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 3, .production_id = 15),
+  [12224] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 4, .production_id = 68),
+  [12226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1716),
+  [12228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1977),
+  [12230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1708),
+  [12232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1706),
+  [12234] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 5, .production_id = 131),
+  [12236] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 5, .production_id = 131),
+  [12238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2056),
+  [12240] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1894),
+  [12242] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 5, .production_id = 131),
+  [12244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1237),
+  [12246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1255),
+  [12248] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1907),
+  [12250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1890),
+  [12252] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, .production_id = 68),
+  [12254] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1887),
+  [12256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1911),
+  [12258] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1974),
+  [12260] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1973),
+  [12262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1969),
+  [12264] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1687),
+  [12266] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1690),
+  [12268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1204),
+  [12270] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2348),
+  [12272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1880),
+  [12274] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1290),
+  [12276] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 3, .production_id = 15),
+  [12278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1696),
+  [12280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1878),
+  [12282] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1214),
+  [12284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2387),
+  [12286] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1258),
+  [12288] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2346),
+  [12290] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2326),
+  [12292] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5763),
+  [12294] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2354),
+  [12296] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1284),
+  [12298] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1680),
+  [12300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5568),
+  [12302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1871),
+  [12304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2149),
+  [12306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2157),
+  [12308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2374),
+  [12310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2380),
+  [12312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2159),
+  [12314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2359),
+  [12316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1767),
+  [12318] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2377),
+  [12320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2736),
+  [12322] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2167),
+  [12324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1336),
+  [12326] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1676),
+  [12328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1330),
+  [12330] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1698),
+  [12332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1705),
+  [12334] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1230),
+  [12336] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2314),
+  [12338] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1694),
+  [12340] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2312),
+  [12342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2366),
+  [12344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2352),
+  [12346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1299),
+  [12348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2342),
+  [12350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2024),
+  [12352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2368),
+  [12354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2708),
+  [12356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1311),
+  [12358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2747),
+  [12360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2704),
+  [12362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1868),
+  [12364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1693),
+  [12366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1900),
+  [12368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5995),
+  [12370] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 4, .production_id = 15),
+  [12372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1291),
+  [12374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1898),
+  [12376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1335),
+  [12378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1200),
+  [12380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2277),
+  [12382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2276),
+  [12384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2236),
+  [12386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2109),
+  [12388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1896),
+  [12390] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, .production_id = 131),
+  [12392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2105),
+  [12394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2383),
+  [12396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1772),
+  [12398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1674),
+  [12400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1771),
+  [12402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2103),
+  [12404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1264),
+  [12406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5691),
+  [12408] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2691),
+  [12410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1889),
+  [12412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5561),
+  [12414] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 4, .production_id = 68),
+  [12416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2688),
+  [12418] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, .production_id = 68),
+  [12420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2099),
+  [12422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5706),
+  [12424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1886),
+  [12426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1766),
+  [12428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1229),
+  [12430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1672),
+  [12432] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2218),
+  [12434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2123),
+  [12436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1770),
+  [12438] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 4, .production_id = 15),
+  [12440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2125),
+  [12442] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2328),
+  [12444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2092),
+  [12446] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1769),
+  [12448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1275),
+  [12450] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 3, .production_id = 15),
+  [12452] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 4, .production_id = 68),
+  [12454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2045),
+  [12456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1320),
+  [12458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1692),
+  [12460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2757),
+  [12462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1323),
+  [12464] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 5, .production_id = 15),
+  [12466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2335),
+  [12468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2107),
+  [12470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1316),
+  [12472] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2113),
+  [12474] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2119),
+  [12476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2692),
+  [12478] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2246),
+  [12480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2089),
+  [12482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1221),
+  [12484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2716),
+  [12486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2701),
+  [12488] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, .production_id = 131),
+  [12490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2178),
+  [12492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5703),
+  [12494] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7817),
+  [12496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3899),
+  [12498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3475),
+  [12500] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, .production_id = 35),
+  [12502] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 5),
+  [12504] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 5),
+  [12506] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 7, .production_id = 180),
+  [12508] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 7, .production_id = 180),
+  [12510] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2), SHIFT_REPEAT(8602),
+  [12513] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2), SHIFT_REPEAT(8007),
+  [12516] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_function_statement_repeat1, 2),
+  [12518] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 4, .production_id = 35),
+  [12520] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 6),
+  [12522] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 6),
+  [12524] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 5, .production_id = 90),
+  [12526] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 6, .production_id = 163),
+  [12528] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 6, .production_id = 163),
+  [12530] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 9, .production_id = 202),
+  [12532] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 9, .production_id = 202),
+  [12534] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 8, .production_id = 193),
+  [12536] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 8, .production_id = 193),
+  [12538] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, .production_id = 49),
+  [12540] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 2, .production_id = 15),
+  [12542] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, .production_id = 49),
+  [12544] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 7),
+  [12546] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 7),
+  [12548] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__transfer_item, 3),
+  [12550] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__block_if_statement_repeat1, 2),
+  [12552] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__block_if_statement_repeat1, 2),
+  [12554] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__block_if_statement_repeat1, 2), SHIFT_REPEAT(8308),
+  [12557] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__block_if_statement_repeat1, 2), SHIFT_REPEAT(7524),
+  [12560] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 4, .production_id = 90),
+  [12562] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 4),
+  [12564] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 4),
+  [12566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6013),
+  [12568] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 6, .production_id = 164),
+  [12570] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 6, .production_id = 164),
+  [12572] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 3, .production_id = 35),
+  [12574] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_entry_statement, 3, .production_id = 15),
+  [12576] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_header, 7, .production_id = 163),
+  [12578] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_header, 7, .production_id = 163),
+  [12580] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 4),
+  [12582] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 4),
+  [12584] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, .production_id = 15),
+  [12586] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_statement, 3, .production_id = 35),
+  [12588] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 5),
+  [12590] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 5),
+  [12592] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_concurrent_locality, 4, .production_id = 137),
+  [12594] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_concurrent_locality, 4, .production_id = 137),
+  [12596] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8518),
+  [12598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3517),
+  [12600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7371),
+  [12602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5276),
+  [12604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5272),
+  [12606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5283),
+  [12608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5277),
+  [12610] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym__block_where_statement_repeat1, 2),
+  [12612] = {.entry = {.count = 2, .reusable = false}}, REDUCE(aux_sym__block_where_statement_repeat1, 2), SHIFT_REPEAT(8585),
+  [12615] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__block_where_statement_repeat1, 2),
+  [12617] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__block_where_statement_repeat1, 2), SHIFT_REPEAT(3475),
+  [12620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5273),
+  [12622] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5282),
+  [12624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5271),
+  [12626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(667),
+  [12628] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6307),
+  [12630] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3526),
+  [12632] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3148),
+  [12634] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3147),
+  [12636] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 93), SHIFT_REPEAT(3804),
+  [12639] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 93),
+  [12641] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 93),
+  [12643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3463),
+  [12645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1131),
+  [12647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1179),
+  [12649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3204),
+  [12651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3205),
+  [12653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1545),
+  [12655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8560),
+  [12657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3523),
+  [12659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1561),
+  [12661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5663),
+  [12663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1652),
+  [12665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7491),
+  [12667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1560),
+  [12669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3431),
+  [12671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4329),
+  [12673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4504),
+  [12675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5660),
+  [12677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2788),
+  [12679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2789),
+  [12681] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3201),
+  [12683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3200),
+  [12685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1648),
+  [12687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3104),
+  [12689] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1659),
+  [12691] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1644),
+  [12693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4004),
+  [12695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4347),
+  [12697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4348),
+  [12699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4352),
+  [12701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1535),
+  [12703] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3999),
+  [12705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1178),
+  [12707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2787),
+  [12709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1531),
+  [12711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3102),
+  [12713] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1476),
+  [12715] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__type_name, 1, .production_id = 17),
+  [12717] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1306),
+  [12719] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4552),
+  [12721] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2790),
+  [12723] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4540),
+  [12725] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1537),
+  [12727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4620),
+  [12729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3991),
+  [12731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1636),
+  [12733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1655),
+  [12735] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1139),
+  [12737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1136),
+  [12739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4342),
+  [12741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1199),
+  [12743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1544),
+  [12745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4341),
+  [12747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4331),
+  [12749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4344),
+  [12751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4345),
+  [12753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4356),
+  [12755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1262),
+  [12757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1516),
+  [12759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1180),
+  [12761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1515),
+  [12763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5657),
+  [12765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1540),
+  [12767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5656),
+  [12769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4612),
+  [12771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1594),
+  [12773] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 2, .production_id = 61),
+  [12775] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 2, .production_id = 61),
+  [12777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1593),
+  [12779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3455),
+  [12781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4206),
+  [12783] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 4),
+  [12785] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enum_repeat1, 2),
+  [12787] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2), SHIFT_REPEAT(3517),
+  [12790] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2),
+  [12792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4622),
+  [12794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4579),
+  [12796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1218),
+  [12798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4336),
+  [12800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4330),
+  [12802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4328),
+  [12804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1474),
+  [12806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4512),
+  [12808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1541),
+  [12810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4563),
+  [12812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4546),
+  [12814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3103),
+  [12816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1216),
+  [12818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4332),
+  [12820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4327),
+  [12822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4548),
+  [12824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4351),
+  [12826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4349),
+  [12828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4346),
+  [12830] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 4, .production_id = 97),
+  [12832] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 4, .production_id = 97),
+  [12834] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 4, .production_id = 128),
+  [12836] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 4, .production_id = 128),
+  [12838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3992),
+  [12840] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3829),
+  [12842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2721),
+  [12844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5295),
+  [12846] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2720),
+  [12848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1493),
+  [12850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1376),
+  [12852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1149),
+  [12854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5296),
+  [12856] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_namelist_statement_repeat1, 2), SHIFT_REPEAT(4054),
+  [12859] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_namelist_statement_repeat1, 2),
+  [12861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4523),
+  [12863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1375),
+  [12865] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, .production_id = 95),
+  [12867] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, .production_id = 95),
+  [12869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1125),
+  [12871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1134),
+  [12873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4054),
+  [12875] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_namelist_statement, 2),
+  [12877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4513),
+  [12879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3105),
+  [12881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1298),
+  [12883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5298),
+  [12885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4601),
+  [12887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5372),
+  [12889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5371),
+  [12891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2838),
+  [12893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2839),
+  [12895] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_file_position_statement, 1),
+  [12897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4338),
+  [12899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5655),
+  [12901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7501),
+  [12903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5369),
+  [12905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4337),
+  [12907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1536),
+  [12909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1158),
+  [12911] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_statement, 2),
+  [12913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5299),
+  [12915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1617),
+  [12917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1463),
+  [12919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1533),
+  [12921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1546),
+  [12923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2715),
+  [12925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2679),
+  [12927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5350),
+  [12929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2703),
+  [12931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5662),
+  [12933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1176),
+  [12935] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, .production_id = 66),
+  [12937] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, .production_id = 66),
+  [12939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1532),
+  [12941] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enumerator_statement, 3, .production_id = 96),
+  [12943] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumerator_statement, 3, .production_id = 96),
+  [12945] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2), SHIFT_REPEAT(2975),
+  [12948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3110),
+  [12950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3113),
+  [12952] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_common_statement_repeat1, 2), SHIFT_REPEAT(3829),
+  [12955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2779),
+  [12957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2793),
+  [12959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4610),
+  [12961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4611),
+  [12963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1618),
+  [12965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4642),
+  [12967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2843),
+  [12969] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2844),
+  [12971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1619),
+  [12973] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5302),
+  [12975] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5286),
+  [12977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4519),
+  [12979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1572),
+  [12981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1466),
+  [12983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1490),
+  [12985] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4550),
+  [12987] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4634),
+  [12989] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2699),
+  [12991] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1159),
+  [12993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1616),
+  [12995] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2905),
+  [12997] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2906),
+  [12999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1884),
+  [13001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3191),
+  [13003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2858),
+  [13005] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3950),
+  [13007] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8390),
+  [13009] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 2), SHIFT_REPEAT(5689),
+  [13012] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 2),
+  [13014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5689),
+  [13016] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 7),
+  [13018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1874),
+  [13020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2903),
+  [13022] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8457),
+  [13024] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_output_item_list, 2),
+  [13026] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameters, 2),
+  [13028] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5556),
+  [13030] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7897),
+  [13032] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3985),
+  [13034] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 5),
+  [13036] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4515),
+  [13038] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8001),
+  [13040] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2005),
+  [13042] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7993),
+  [13044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1344),
+  [13046] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7985),
+  [13048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7565),
+  [13050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1863),
+  [13052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3984),
+  [13054] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_included_items, 5),
+  [13056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1568),
+  [13058] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7828),
+  [13060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4021),
+  [13062] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 7, .production_id = 103),
+  [13064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4075),
+  [13066] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2626),
+  [13068] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8009),
+  [13070] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 2),
+  [13072] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 4, .production_id = 16),
+  [13074] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 93), SHIFT_REPEAT(3773),
+  [13077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2635),
+  [13079] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8017),
+  [13081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7550),
+  [13083] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_statement, 3),
+  [13085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2947),
+  [13087] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_statement, 2),
+  [13089] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_input_item_list, 2),
+  [13091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7887),
+  [13093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2996),
+  [13095] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8025),
+  [13097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(965),
+  [13099] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7771),
+  [13101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7078),
+  [13103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7536),
+  [13105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 8, .production_id = 103),
+  [13107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2436),
+  [13109] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8671),
+  [13111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1822),
+  [13113] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7977),
+  [13115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1875),
+  [13117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5356),
+  [13119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5151),
+  [13121] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8033),
+  [13123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1627),
+  [13125] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8486),
+  [13127] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 5),
+  [13129] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 3),
+  [13131] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, .production_id = 16),
+  [13133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1499),
+  [13135] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8049),
+  [13137] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 2),
+  [13139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3607),
+  [13141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3684),
+  [13143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2240),
+  [13145] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8057),
+  [13147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4830),
+  [13149] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8065),
+  [13151] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_use_statement_repeat1, 2), SHIFT_REPEAT(4021),
+  [13154] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_use_statement_repeat1, 2),
+  [13156] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 4),
+  [13158] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1815),
+  [13160] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8073),
+  [13162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2565),
+  [13164] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8081),
+  [13166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2161),
+  [13168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8089),
+  [13170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3930),
+  [13172] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 3, .production_id = 66),
+  [13174] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 2), SHIFT_REPEAT(3985),
+  [13177] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 2),
+  [13179] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 3, .production_id = 65),
+  [13181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2655),
+  [13183] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8097),
+  [13185] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_private_statement_repeat1, 2), SHIFT_REPEAT(3463),
+  [13188] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_private_statement_repeat1, 2),
+  [13190] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, .production_id = 36),
+  [13192] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 2, .production_id = 30),
+  [13194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3971),
+  [13196] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 5, .production_id = 103),
+  [13198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3078),
+  [13200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2233),
+  [13202] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7969),
+  [13204] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_save_statement, 6),
+  [13206] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, .production_id = 93), SHIFT_REPEAT(3431),
+  [13209] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, .production_id = 93),
+  [13211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2141),
+  [13213] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8105),
+  [13215] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_included_items_repeat1, 2),
+  [13217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1165),
+  [13219] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7803),
+  [13221] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_included_items_repeat1, 2), SHIFT_REPEAT(3455),
+  [13224] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_statement, 3),
+  [13226] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2512),
+  [13228] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8113),
+  [13230] = {.entry = {.count = 2, .reusable = true}}, REDUCE(sym_intrinsic_type, 1), SHIFT(1872),
+  [13233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2248),
+  [13235] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7961),
+  [13237] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 61),
+  [13239] = {.entry = {.count = 1, .reusable = false}}, REDUCE(aux_sym_enumerator_statement_repeat1, 2, .production_id = 61),
+  [13241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2555),
+  [13243] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8251),
+  [13245] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2), SHIFT_REPEAT(4075),
+  [13248] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 6, .production_id = 36),
+  [13250] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2205),
+  [13252] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8050),
+  [13254] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_function_result, 4),
+  [13256] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5096),
+  [13258] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8121),
+  [13260] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameters, 4),
+  [13262] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1338),
+  [13264] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8060),
+  [13266] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameters, 3),
+  [13268] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1849),
+  [13270] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8129),
+  [13272] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2492),
+  [13274] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8137),
+  [13276] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_statement, 2),
+  [13278] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3133),
+  [13280] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5194),
+  [13282] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7953),
+  [13284] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5141),
+  [13286] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8041),
+  [13288] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_enum_repeat1, 2), SHIFT_REPEAT(3523),
+  [13291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5099),
+  [13293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7730),
+  [13295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1461),
+  [13297] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7895),
+  [13299] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_method_name, 1, .production_id = 48),
+  [13301] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binding_name, 1),
+  [13303] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_variable_modification, 4, .production_id = 97),
+  [13305] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 3, .production_id = 6),
+  [13307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(877),
+  [13309] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8321),
+  [13311] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_equivalence_statement_repeat1, 2), SHIFT_REPEAT(7550),
+  [13314] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_equivalence_statement_repeat1, 2),
+  [13316] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1736),
+  [13318] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7835),
+  [13320] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4561),
+  [13322] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8119),
+  [13324] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3966),
+  [13326] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 2, .production_id = 16),
+  [13328] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5284),
+  [13330] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7717),
+  [13332] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2726),
+  [13334] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7929),
+  [13336] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__declaration_targets_repeat1, 2, .production_id = 93), SHIFT_REPEAT(3526),
+  [13339] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 3),
+  [13341] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, .production_id = 35),
+  [13343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2528),
+  [13345] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7913),
+  [13347] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_cuda_kernel_argument_list_repeat1, 2), SHIFT_REPEAT(3072),
+  [13350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1074),
+  [13352] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8455),
+  [13354] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 4),
+  [13356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5204),
+  [13358] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7945),
+  [13360] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assumed_size, 1),
+  [13362] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__ac_value_list, 2),
+  [13364] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 6),
+  [13366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3947),
+  [13368] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 3, .production_id = 36),
+  [13370] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_statement_repeat1, 2), SHIFT_REPEAT(2947),
+  [13373] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_statement_repeat1, 2),
+  [13375] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, .production_id = 93), SHIFT_REPEAT(3930),
+  [13378] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, .production_id = 93),
+  [13380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1924),
+  [13382] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7867),
+  [13384] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, .production_id = 90),
+  [13386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7081),
+  [13388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2585),
+  [13390] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7732),
+  [13392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1177),
+  [13394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3982),
+  [13396] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7339),
+  [13398] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7342),
+  [13400] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7345),
+  [13402] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2753),
+  [13404] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3974),
+  [13406] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3199),
+  [13408] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 5),
+  [13410] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2261),
+  [13412] = {.entry = {.count = 1, .reusable = true}}, SHIFT(205),
+  [13414] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7578),
+  [13416] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6467),
+  [13418] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2784),
+  [13420] = {.entry = {.count = 1, .reusable = true}}, SHIFT(557),
+  [13422] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7418),
+  [13424] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7417),
+  [13426] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7416),
+  [13428] = {.entry = {.count = 1, .reusable = true}}, SHIFT(547),
+  [13430] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5435),
+  [13432] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat2, 6),
+  [13434] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7991),
+  [13436] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3970),
+  [13438] = {.entry = {.count = 1, .reusable = true}}, SHIFT(751),
+  [13440] = {.entry = {.count = 1, .reusable = true}}, SHIFT(719),
+  [13442] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3515),
+  [13444] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3789),
+  [13446] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3561),
+  [13448] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3714),
+  [13450] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3516),
+  [13452] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3720),
+  [13454] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6457),
+  [13456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(888),
+  [13458] = {.entry = {.count = 1, .reusable = true}}, SHIFT(884),
+  [13460] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3961),
+  [13462] = {.entry = {.count = 1, .reusable = true}}, SHIFT(745),
+  [13464] = {.entry = {.count = 1, .reusable = true}}, SHIFT(755),
+  [13466] = {.entry = {.count = 1, .reusable = true}}, SHIFT(872),
+  [13468] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1564),
+  [13470] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1602),
+  [13472] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5303),
+  [13474] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3620),
+  [13476] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3678),
+  [13478] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3608),
+  [13480] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3654),
+  [13482] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1555),
+  [13484] = {.entry = {.count = 1, .reusable = true}}, SHIFT(656),
+  [13486] = {.entry = {.count = 1, .reusable = true}}, SHIFT(863),
+  [13488] = {.entry = {.count = 1, .reusable = true}}, SHIFT(867),
+  [13490] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1372),
+  [13492] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4585),
+  [13494] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4968),
+  [13496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4575),
+  [13498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4625),
+  [13500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4618),
+  [13502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7326),
+  [13504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7325),
+  [13506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7324),
+  [13508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3948),
+  [13510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2816),
+  [13512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2817),
+  [13514] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2820),
+  [13516] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7323),
+  [13518] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2299),
+  [13520] = {.entry = {.count = 1, .reusable = true}}, SHIFT(732),
+  [13522] = {.entry = {.count = 1, .reusable = true}}, SHIFT(168),
+  [13524] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1547),
+  [13526] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5058),
+  [13528] = {.entry = {.count = 1, .reusable = true}}, SHIFT(122),
+  [13530] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7321),
+  [13532] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7492),
+  [13534] = {.entry = {.count = 1, .reusable = true}}, SHIFT(558),
+  [13536] = {.entry = {.count = 1, .reusable = true}}, SHIFT(560),
+  [13538] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4982),
+  [13540] = {.entry = {.count = 1, .reusable = true}}, SHIFT(130),
+  [13542] = {.entry = {.count = 1, .reusable = true}}, SHIFT(134),
+  [13544] = {.entry = {.count = 1, .reusable = true}}, SHIFT(703),
+  [13546] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_case_value_range_list_repeat1, 2), SHIFT_REPEAT(2780),
+  [13549] = {.entry = {.count = 1, .reusable = true}}, SHIFT(672),
+  [13551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(739),
+  [13553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(700),
+  [13555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(753),
+  [13557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7346),
+  [13559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7493),
+  [13561] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3882),
+  [13563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8284),
+  [13565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(746),
+  [13567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(149),
+  [13569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2315),
+  [13571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(150),
+  [13573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(716),
+  [13575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(744),
+  [13577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4178),
+  [13579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6012),
+  [13581] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 6, .production_id = 179),
+  [13583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2877),
+  [13585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2878),
+  [13587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2871),
+  [13589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2883),
+  [13591] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1629),
+  [13593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2476),
+  [13595] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3548),
+  [13597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3711),
+  [13599] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3247),
+  [13601] = {.entry = {.count = 1, .reusable = true}}, SHIFT(173),
+  [13603] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3556),
+  [13605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3707),
+  [13607] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1503),
+  [13609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(174),
+  [13611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1071),
+  [13613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(176),
+  [13615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(978),
+  [13617] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7735),
+  [13619] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4738),
+  [13621] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4736),
+  [13623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(170),
+  [13625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1090),
+  [13627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1059),
+  [13629] = {.entry = {.count = 1, .reusable = true}}, SHIFT(181),
+  [13631] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5280),
+  [13633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4633),
+  [13635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8458),
+  [13637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2902),
+  [13639] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3229),
+  [13641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3949),
+  [13643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1155),
+  [13645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2614),
+  [13647] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3524),
+  [13649] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3643),
+  [13651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(186),
+  [13653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(183),
+  [13655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2854),
+  [13657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5162),
+  [13659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(162),
+  [13661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1020),
+  [13663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2442),
+  [13665] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2896),
+  [13667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4255),
+  [13669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1583),
+  [13671] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3522),
+  [13673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3677),
+  [13675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4957),
+  [13677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8406),
+  [13679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(161),
+  [13681] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3581),
+  [13683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3659),
+  [13685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5068),
+  [13687] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3554),
+  [13689] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3651),
+  [13691] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5065),
+  [13693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2567),
+  [13695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1377),
+  [13697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1146),
+  [13699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1140),
+  [13701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(121),
+  [13703] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameters_repeat1, 2), SHIFT_REPEAT(4178),
+  [13706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(148),
+  [13708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5307),
+  [13710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(837),
+  [13712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5049),
+  [13714] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2785),
+  [13716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(985),
+  [13718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2713),
+  [13720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(984),
+  [13722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1150),
+  [13724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1142),
+  [13726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1141),
+  [13728] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2826),
+  [13730] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3530),
+  [13732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3671),
+  [13734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(890),
+  [13736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(147),
+  [13738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(146),
+  [13740] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3612),
+  [13742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3722),
+  [13744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(964),
+  [13746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7376),
+  [13748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5279),
+  [13750] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3609),
+  [13752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3660),
+  [13754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1051),
+  [13756] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1064),
+  [13758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2761),
+  [13760] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4043),
+  [13762] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4042),
+  [13764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7377),
+  [13766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1138),
+  [13768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(142),
+  [13770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(605),
+  [13772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(601),
+  [13774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7379),
+  [13776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7382),
+  [13778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7384),
+  [13780] = {.entry = {.count = 1, .reusable = true}}, SHIFT(137),
+  [13782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(136),
+  [13784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7388),
+  [13786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7463),
+  [13788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(864),
+  [13790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(591),
+  [13792] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4026),
+  [13794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(571),
+  [13796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(573),
+  [13798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(854),
+  [13800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(577),
+  [13802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(123),
+  [13804] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3585),
+  [13806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3736),
+  [13808] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3576),
+  [13810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3634),
+  [13812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4980),
+  [13814] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_case_value_range_list, 2),
+  [13816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7395),
+  [13818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7464),
+  [13820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(643),
+  [13822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(171),
+  [13824] = {.entry = {.count = 1, .reusable = true}}, SHIFT(153),
+  [13826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6004),
+  [13828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3166),
+  [13830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6556),
+  [13832] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 5, .production_id = 162),
+  [13834] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_equivalence_set_repeat1, 2), SHIFT_REPEAT(2969),
+  [13837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4012),
+  [13839] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_set, 6),
+  [13841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2490),
+  [13843] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 2), SHIFT_REPEAT(7991),
+  [13846] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 2),
+  [13848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5268),
+  [13850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(156),
+  [13852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4517),
+  [13854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5121),
+  [13856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3317),
+  [13858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2933),
+  [13860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6025),
+  [13862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1016),
+  [13864] = {.entry = {.count = 1, .reusable = true}}, SHIFT(657),
+  [13866] = {.entry = {.count = 1, .reusable = true}}, SHIFT(178),
+  [13868] = {.entry = {.count = 1, .reusable = true}}, SHIFT(177),
+  [13870] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3996),
+  [13872] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4289),
+  [13874] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4193),
+  [13876] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4596),
+  [13878] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5155),
+  [13880] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7432),
+  [13882] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7433),
+  [13884] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7434),
+  [13886] = {.entry = {.count = 1, .reusable = true}}, SHIFT(840),
+  [13888] = {.entry = {.count = 1, .reusable = true}}, SHIFT(845),
+  [13890] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7435),
+  [13892] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7436),
+  [13894] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3551),
+  [13896] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3669),
+  [13898] = {.entry = {.count = 1, .reusable = true}}, SHIFT(595),
+  [13900] = {.entry = {.count = 1, .reusable = true}}, SHIFT(599),
+  [13902] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3170),
+  [13904] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3539),
+  [13906] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3691),
+  [13908] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2802),
+  [13910] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7437),
+  [13912] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3568),
+  [13914] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3718),
+  [13916] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2829),
+  [13918] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7438),
+  [13920] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5213),
+  [13922] = {.entry = {.count = 1, .reusable = true}}, SHIFT(151),
+  [13924] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7443),
+  [13926] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7445),
+  [13928] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5216),
+  [13930] = {.entry = {.count = 1, .reusable = true}}, SHIFT(724),
+  [13932] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5233),
+  [13934] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5235),
+  [13936] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7702),
+  [13938] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7707),
+  [13940] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7711),
+  [13942] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2799),
+  [13944] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7440),
+  [13946] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5077),
+  [13948] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8474),
+  [13950] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3303),
+  [13952] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4272),
+  [13954] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1643),
+  [13956] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2462),
+  [13958] = {.entry = {.count = 1, .reusable = true}}, SHIFT(131),
+  [13960] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4558),
+  [13962] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3574),
+  [13964] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3743),
+  [13966] = {.entry = {.count = 1, .reusable = true}}, SHIFT(179),
+  [13968] = {.entry = {.count = 1, .reusable = true}}, SHIFT(647),
+  [13970] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1175),
+  [13972] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2495),
+  [13974] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1847),
+  [13976] = {.entry = {.count = 1, .reusable = true}}, SHIFT(761),
+  [13978] = {.entry = {.count = 1, .reusable = true}}, SHIFT(616),
+  [13980] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3163),
+  [13982] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2544),
+  [13984] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1606),
+  [13986] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1654),
+  [13988] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1645),
+  [13990] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5097),
+  [13992] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2532),
+  [13994] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2143),
+  [13996] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1395),
+  [13998] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6031),
+  [14000] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2657),
+  [14002] = {.entry = {.count = 1, .reusable = true}}, SHIFT(654),
+  [14004] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2166),
+  [14006] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2566),
+  [14008] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2946),
+  [14010] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6006),
+  [14012] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1816),
+  [14014] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1189),
+  [14016] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4829),
+  [14018] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1632),
+  [14020] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1630),
+  [14022] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1634),
+  [14024] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 4, .production_id = 135),
+  [14026] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2191),
+  [14028] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3597),
+  [14030] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3704),
+  [14032] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2, .production_id = 136), SHIFT_REPEAT(3007),
+  [14035] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_data_value_repeat1, 2, .production_id = 136),
+  [14037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1498),
+  [14039] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_concurrent_header_repeat1, 2), SHIFT_REPEAT(4019),
+  [14042] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_concurrent_header_repeat1, 2),
+  [14044] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5144),
+  [14046] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_cuda_kernel_argument_list, 4),
+  [14048] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5152),
+  [14050] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2767),
+  [14052] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4819),
+  [14054] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3988),
+  [14056] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5449),
+  [14058] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6707),
+  [14060] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1660),
+  [14062] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2993),
+  [14064] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2794),
+  [14066] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_equivalence_set, 5),
+  [14068] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2634),
+  [14070] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4865),
+  [14072] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6321),
+  [14074] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5398),
+  [14076] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3176),
+  [14078] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2618),
+  [14080] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2244),
+  [14082] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2624),
+  [14084] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3547),
+  [14086] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3806),
+  [14088] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4544),
+  [14090] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2003),
+  [14092] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1347),
+  [14094] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2944),
+  [14096] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7373),
+  [14098] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_save_statement_repeat1, 4),
+  [14100] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1818),
+  [14102] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5278),
+  [14104] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2235),
+  [14106] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4858),
+  [14108] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2249),
+  [14110] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3167),
+  [14112] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2749),
+  [14114] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3164),
+  [14116] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat1, 2), SHIFT_REPEAT(7578),
+  [14119] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat1, 2),
+  [14121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5195),
+  [14123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5205),
+  [14125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5107),
+  [14127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2681),
+  [14129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2527),
+  [14131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5557),
+  [14133] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_alias, 3, .production_id = 133),
+  [14135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4842),
+  [14137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3246),
+  [14139] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat3, 2), SHIFT_REPEAT(7574),
+  [14142] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_implicit_statement_repeat3, 2),
+  [14144] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2455),
+  [14146] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5116),
+  [14148] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1988),
+  [14150] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2450),
+  [14152] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_params_repeat1, 2), SHIFT_REPEAT(4049),
+  [14155] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_preproc_params_repeat1, 2),
+  [14157] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_preproc_argument_list_repeat1, 2), SHIFT_REPEAT(3292),
+  [14160] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1650),
+  [14162] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1646),
+  [14164] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1856),
+  [14166] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1735),
+  [14168] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3569),
+  [14170] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3685),
+  [14172] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1844),
+  [14174] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8183),
+  [14176] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4571),
+  [14178] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4584),
+  [14180] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3993),
+  [14182] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6720),
+  [14184] = {.entry = {.count = 1, .reusable = true}}, SHIFT(612),
+  [14186] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3527),
+  [14188] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3710),
+  [14190] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5270),
+  [14192] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2467),
+  [14194] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5748),
+  [14196] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4006),
+  [14198] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5020),
+  [14200] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1160),
+  [14202] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2468),
+  [14204] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4999),
+  [14206] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2306),
+  [14208] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3584),
+  [14210] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3766),
+  [14212] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4988),
+  [14214] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4986),
+  [14216] = {.entry = {.count = 1, .reusable = true}}, SHIFT(966),
+  [14218] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2305),
+  [14220] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1088),
+  [14222] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5169),
+  [14224] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8489),
+  [14226] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3573),
+  [14228] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3771),
+  [14230] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4260),
+  [14232] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1041),
+  [14234] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2404),
+  [14236] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binding, 3),
+  [14238] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5292),
+  [14240] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_statement_repeat2, 2, .production_id = 30),
+  [14242] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2654),
+  [14244] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2774),
+  [14246] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2775),
+  [14248] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, .production_id = 120), SHIFT_REPEAT(2912),
+  [14251] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_allocate_statement_repeat1, 2, .production_id = 120),
+  [14253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1360),
+  [14255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2586),
+  [14257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2653),
+  [14259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7494),
+  [14261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2640),
+  [14263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1280),
+  [14265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1378),
+  [14267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1379),
+  [14269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(127),
+  [14271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(125),
+  [14273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7498),
+  [14275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2783),
+  [14277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2182),
+  [14279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2881),
+  [14281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2943),
+  [14283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7372),
+  [14285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4267),
+  [14287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1388),
+  [14289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1390),
+  [14291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1400),
+  [14293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7503),
+  [14295] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_associate_statement_repeat1, 2), SHIFT_REPEAT(3993),
+  [14298] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_associate_statement_repeat1, 2),
+  [14300] = {.entry = {.count = 1, .reusable = true}}, SHIFT(681),
+  [14302] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4245),
+  [14304] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2613),
+  [14306] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1450),
+  [14308] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7505),
+  [14310] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5100),
+  [14312] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2615),
+  [14314] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2950),
+  [14316] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_print_statement, 2),
+  [14318] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_keyword_statement_repeat1, 2), SHIFT_REPEAT(7297),
+  [14321] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_keyword_statement_repeat1, 2),
+  [14323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1522),
+  [14325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1519),
+  [14327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5288),
+  [14329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(554),
+  [14331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7515),
+  [14333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3625),
+  [14335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3637),
+  [14337] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__forall_control_expression_repeat1, 2), SHIFT_REPEAT(3987),
+  [14340] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__forall_control_expression_repeat1, 2),
+  [14342] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2118),
+  [14344] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5567),
+  [14346] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5354),
+  [14348] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2805),
+  [14350] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5559),
+  [14352] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1029),
+  [14354] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1494),
+  [14356] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1485),
+  [14358] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2806),
+  [14360] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1123),
+  [14362] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1482),
+  [14364] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1732),
+  [14366] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5176),
+  [14368] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1479),
+  [14370] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1471),
+  [14372] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1470),
+  [14374] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1779),
+  [14376] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6026),
+  [14378] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5154),
+  [14380] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2951),
+  [14382] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5998),
+  [14384] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6812),
+  [14386] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6860),
+  [14388] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1567),
+  [14390] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_value, 3),
+  [14392] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1621),
+  [14394] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1615),
+  [14396] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat1, 2), SHIFT_REPEAT(2894),
+  [14399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4062),
+  [14401] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3567),
+  [14403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3668),
+  [14405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1460),
+  [14407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1777),
+  [14409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5570),
+  [14411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1458),
+  [14413] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3628),
+  [14415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3676),
+  [14417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7297),
+  [14419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2952),
+  [14421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6819),
+  [14423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(871),
+  [14425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4731),
+  [14427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1715),
+  [14429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3092),
+  [14431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2852),
+  [14433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4734),
+  [14435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4270),
+  [14437] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4746),
+  [14439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4748),
+  [14441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3091),
+  [14443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_cuda_kernel_argument_list, 3),
+  [14445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5113),
+  [14447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8386),
+  [14449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4247),
+  [14451] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_parameter_statement_repeat1, 2), SHIFT_REPEAT(4046),
+  [14454] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_parameter_statement_repeat1, 2),
+  [14456] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2007),
+  [14458] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__argument_list_repeat1, 2), SHIFT_REPEAT(1904),
+  [14461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2204),
+  [14463] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2519),
+  [14465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3065),
+  [14467] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6439),
+  [14469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2955),
+  [14471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3058),
+  [14473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3056),
+  [14475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7574),
+  [14477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7636),
+  [14479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2000),
+  [14481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1607),
+  [14483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1611),
+  [14485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3054),
+  [14487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3053),
+  [14489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2481),
+  [14491] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_procedure_attributes_repeat1, 2), SHIFT_REPEAT(6321),
+  [14494] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_procedure_attributes_repeat1, 2),
+  [14496] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6396),
+  [14498] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3051),
+  [14500] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1416),
+  [14502] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1623),
+  [14504] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1626),
+  [14506] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1625),
+  [14508] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4046),
+  [14510] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7332),
+  [14512] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2477),
+  [14514] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3046),
+  [14516] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assumed_shape, 1),
+  [14518] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym__io_arguments_repeat1, 2), SHIFT_REPEAT(3982),
+  [14521] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym__io_arguments_repeat1, 2),
+  [14523] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3520),
+  [14525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3762),
+  [14527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5239),
+  [14529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1614),
+  [14531] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3518),
+  [14533] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3774),
+  [14535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5237),
+  [14537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3312),
+  [14539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2936),
+  [14541] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_set, 2),
+  [14543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5227),
+  [14545] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_defined_io_procedure, 4),
+  [14547] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3626),
+  [14549] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3813),
+  [14551] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_operator, 4),
+  [14553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5224),
+  [14555] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_assignment, 4),
+  [14557] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, .production_id = 105), SHIFT_REPEAT(5748),
+  [14560] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, .production_id = 105),
+  [14562] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1442),
+  [14564] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1433),
+  [14566] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1072),
+  [14568] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4049),
+  [14570] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7650),
+  [14572] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8346),
+  [14574] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7403),
+  [14576] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7832),
+  [14578] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1391),
+  [14580] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_variable_modification_repeat2, 2, .production_id = 30),
+  [14582] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2935),
+  [14584] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2926),
+  [14586] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4884),
+  [14588] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7823),
+  [14590] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5368),
+  [14592] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5571),
+  [14594] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1381),
+  [14596] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1578),
+  [14598] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1341),
+  [14600] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1469),
+  [14602] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4901),
+  [14604] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7244),
+  [14606] = {.entry = {.count = 1, .reusable = true}}, SHIFT(675),
+  [14608] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6949),
+  [14610] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5563),
+  [14612] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5564),
+  [14614] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1528),
+  [14616] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1514),
+  [14618] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1349),
+  [14620] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7394),
+  [14622] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3587),
+  [14624] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3801),
+  [14626] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1350),
+  [14628] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_enum_statement, 3),
+  [14630] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enum_statement, 3),
+  [14632] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2546),
+  [14634] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3586),
+  [14636] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3796),
+  [14638] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5385),
+  [14640] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7406),
+  [14642] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4566),
+  [14644] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4524),
+  [14646] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7567),
+  [14648] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8066),
+  [14650] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8084),
+  [14652] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4066),
+  [14654] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4595),
+  [14656] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4646),
+  [14658] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4564),
+  [14660] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1103),
+  [14662] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2579),
+  [14664] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4789),
+  [14666] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8504),
+  [14668] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2808),
+  [14670] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4257),
+  [14672] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1314),
+  [14674] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1798),
+  [14676] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2591),
+  [14678] = {.entry = {.count = 1, .reusable = true}}, SHIFT(876),
+  [14680] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1106),
+  [14682] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1600),
+  [14684] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1048),
+  [14686] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3591),
+  [14688] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3705),
+  [14690] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4833),
+  [14692] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3579),
+  [14694] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3682),
+  [14696] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2165),
+  [14698] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1797),
+  [14700] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1354),
+  [14702] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1279),
+  [14704] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1277),
+  [14706] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4835),
+  [14708] = {.entry = {.count = 1, .reusable = true}}, SHIFT(184),
+  [14710] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4847),
+  [14712] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1437),
+  [14714] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1002),
+  [14716] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1245),
+  [14718] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1234),
+  [14720] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1224),
+  [14722] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2263),
+  [14724] = {.entry = {.count = 1, .reusable = true}}, SHIFT(664),
+  [14726] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4850),
+  [14728] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1055),
+  [14730] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1203),
+  [14732] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1044),
+  [14734] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1409),
+  [14736] = {.entry = {.count = 1, .reusable = true}}, SHIFT(999),
+  [14738] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1098),
+  [14740] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2762),
+  [14742] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1407),
+  [14744] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2707),
+  [14746] = {.entry = {.count = 1, .reusable = true}}, SHIFT(670),
+  [14748] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2864),
+  [14750] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7686),
+  [14752] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2861),
+  [14754] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7689),
+  [14756] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3532),
+  [14758] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3731),
+  [14760] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8002),
+  [14762] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7589),
+  [14764] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7580),
+  [14766] = {.entry = {.count = 1, .reusable = true}}, SHIFT(561),
+  [14768] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2860),
+  [14770] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7691),
+  [14772] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2857),
+  [14774] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7699),
+  [14776] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5353),
+  [14778] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5558),
+  [14780] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_format_identifier, 1),
+  [14782] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2764),
+  [14784] = {.entry = {.count = 1, .reusable = true}}, SHIFT(696),
+  [14786] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7317),
+  [14788] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8209),
+  [14790] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2945),
+  [14792] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__simple_read_statement, 2),
+  [14794] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5073),
+  [14796] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7502),
+  [14798] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2731),
+  [14800] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2683),
+  [14802] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2694),
+  [14804] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7703),
+  [14806] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2711),
+  [14808] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5230),
+  [14810] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2712),
+  [14812] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2313),
+  [14814] = {.entry = {.count = 1, .reusable = true}}, SHIFT(662),
+  [14816] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1110),
+  [14818] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1089),
+  [14820] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1657),
+  [14822] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2324),
+  [14824] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3544),
+  [14826] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3721),
+  [14828] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2724),
+  [14830] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4975),
+  [14832] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8522),
+  [14834] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3602),
+  [14836] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3649),
+  [14838] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3259),
+  [14840] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3552),
+  [14842] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3717),
+  [14844] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5055),
+  [14846] = {.entry = {.count = 1, .reusable = false}}, SHIFT(3617),
+  [14848] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3662),
+  [14850] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6398),
+  [14852] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4951),
+  [14854] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5053),
+  [14856] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5388),
+  [14858] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4954),
+  [14860] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2939),
+  [14862] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2921),
+  [14864] = {.entry = {.count = 2, .reusable = true}}, REDUCE(aux_sym_data_set_repeat1, 2), SHIFT_REPEAT(3082),
+  [14867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4962),
+  [14869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4964),
+  [14871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5043),
+  [14873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7575),
+  [14875] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_range, 1),
+  [14877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7924),
+  [14879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6352),
+  [14881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1912),
+  [14883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2439),
+  [14885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4022),
+  [14887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5040),
+  [14889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2941),
+  [14891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6020),
+  [14893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5293),
+  [14895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2949),
+  [14897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1916),
+  [14899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1164),
+  [14901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1190),
+  [14903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7607),
+  [14905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7647),
+  [14907] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_statement, 2),
+  [14909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2698),
+  [14911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2493),
+  [14913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1163),
+  [14915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1182),
+  [14917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1183),
+  [14919] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_data_set, 3),
+  [14921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1167),
+  [14923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1162),
+  [14925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2488),
+  [14927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2931),
+  [14929] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 4),
+  [14931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4017),
+  [14933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8680),
+  [14935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8676),
+  [14937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2425),
+  [14939] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8666),
+  [14941] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 9, .production_id = 147),
+  [14943] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 9, .production_id = 166),
+  [14945] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 9),
+  [14947] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_multiple_subscript_triplet, 2),
+  [14949] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 10),
+  [14951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_statement, 4),
+  [14953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2938),
+  [14955] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 10, .production_id = 166),
+  [14957] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_call, 4, .production_id = 20),
+  [14959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8006),
+  [14961] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_print_statement, 4),
+  [14963] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 4),
+  [14965] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_label_statement, 4),
+  [14967] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_label, 1, .production_id = 79),
+  [14969] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2948),
+  [14971] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 11),
+  [14973] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 4),
+  [14975] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 9),
+  [14977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2451),
+  [14979] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8597),
+  [14981] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 8, .production_id = 174),
+  [14983] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 2, .production_id = 41),
+  [14985] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 4, .production_id = 36),
+  [14987] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, .production_id = 35),
+  [14989] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_write_statement, 4),
+  [14991] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__simple_read_statement, 4),
+  [14993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1658),
+  [14995] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8508),
+  [14997] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_selector, 3),
+  [14999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2746),
+  [15001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3702),
+  [15003] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 8, .production_id = 173),
+  [15005] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 8, .production_id = 172),
+  [15007] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 8),
+  [15009] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7714),
+  [15011] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enum_statement, 1, .production_id = 28),
+  [15013] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 3, .production_id = 165),
+  [15015] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 4, .production_id = 148),
+  [15017] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 8, .production_id = 119),
+  [15019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2730),
+  [15021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3696),
+  [15023] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 2, .production_id = 42),
+  [15025] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 4),
+  [15027] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_forall_statement, 2),
+  [15029] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 8, .production_id = 147),
+  [15031] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 8),
+  [15033] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4030),
+  [15035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6623),
+  [15037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1651),
+  [15039] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8453),
+  [15041] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, .production_id = 155),
+  [15043] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_format_statement, 4, .production_id = 82),
+  [15045] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 4),
+  [15047] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 4),
+  [15049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2863),
+  [15051] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8517),
+  [15053] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 8),
+  [15055] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_coarray_index_repeat2, 3),
+  [15057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7275),
+  [15059] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 2),
+  [15061] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 2),
+  [15063] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_label_statement, 2, .production_id = 27),
+  [15065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(993),
+  [15067] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8454),
+  [15069] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 3),
+  [15071] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 7),
+  [15073] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, .production_id = 154),
+  [15075] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 4, .production_id = 83),
+  [15077] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 7, .production_id = 174),
+  [15079] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, .production_id = 173),
+  [15081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2834),
+  [15083] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8400),
+  [15085] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, .production_id = 172),
+  [15087] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 7),
+  [15089] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 4),
+  [15091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1047),
+  [15093] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8257),
+  [15095] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 2, .production_id = 44),
+  [15097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4742),
+  [15099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2889),
+  [15101] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8428),
+  [15103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2869),
+  [15105] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8372),
+  [15107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3986),
+  [15109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4060),
+  [15111] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_team_statement, 3, .production_id = 121),
+  [15113] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, .production_id = 119),
+  [15115] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, .production_id = 83),
+  [15117] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 7, .production_id = 166),
+  [15119] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enum_statement, 2, .production_id = 60),
+  [15121] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 3),
+  [15123] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 6),
+  [15125] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_label_statement, 3, .production_id = 58),
+  [15127] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 7),
+  [15129] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 7),
+  [15131] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_associate_statement, 2, .production_id = 146),
+  [15133] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 3, .production_id = 145),
+  [15135] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 4, .production_id = 49),
+  [15137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(895),
+  [15139] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8339),
+  [15141] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 7, .production_id = 143),
+  [15143] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 7, .production_id = 142),
+  [15145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2639),
+  [15147] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8278),
+  [15149] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 7, .production_id = 141),
+  [15151] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_arithmetic_if_statement, 7),
+  [15153] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 3, .production_id = 138),
+  [15155] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 7),
+  [15157] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 7),
+  [15159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2739),
+  [15161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3768),
+  [15163] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2771),
+  [15165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3765),
+  [15167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5454),
+  [15169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2940),
+  [15171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4002),
+  [15173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3964),
+  [15175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(856),
+  [15177] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8173),
+  [15179] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 3),
+  [15181] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 6),
+  [15183] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 6),
+  [15185] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 2, .production_id = 59),
+  [15187] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 4),
+  [15189] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_name, 1),
+  [15191] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_statement, 3),
+  [15193] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 6),
+  [15195] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, .production_id = 155),
+  [15197] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 3),
+  [15199] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_inquire_statement, 3),
+  [15201] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, .production_id = 154),
+  [15203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2542),
+  [15205] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8201),
+  [15207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4035),
+  [15209] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_open_statement, 3),
+  [15211] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure_statement, 4, .production_id = 151),
+  [15213] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 6),
+  [15215] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, .production_id = 116),
+  [15217] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 3),
+  [15219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8568),
+  [15221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2769),
+  [15223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3746),
+  [15225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2768),
+  [15227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3754),
+  [15229] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 6, .production_id = 83),
+  [15231] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 6, .production_id = 147),
+  [15233] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__file_position_spec, 5),
+  [15235] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_where_statement, 3),
+  [15237] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 6),
+  [15239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7911),
+  [15241] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 3),
+  [15243] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 3),
+  [15245] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 6),
+  [15247] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_associate_statement, 6),
+  [15249] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, .production_id = 115),
+  [15251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4574),
+  [15253] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8148),
+  [15255] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 6),
+  [15257] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_select_statement, 2, .production_id = 114),
+  [15259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4121),
+  [15261] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__parameterized_read_statement, 3),
+  [15263] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 6, .production_id = 143),
+  [15265] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 6, .production_id = 142),
+  [15267] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 6, .production_id = 141),
+  [15269] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 6),
+  [15271] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 3, .production_id = 113),
+  [15273] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__inline_if_statement, 3),
+  [15275] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 3),
+  [15277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2485),
+  [15279] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8139),
+  [15281] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 3, .production_id = 15),
+  [15283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2497),
+  [15285] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8136),
+  [15287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1853),
+  [15289] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8131),
+  [15291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1845),
+  [15293] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8128),
+  [15295] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 2),
+  [15297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5092),
+  [15299] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8123),
+  [15301] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_label_statement, 3),
+  [15303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4000),
+  [15305] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_while_statement, 2),
+  [15307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4599),
+  [15309] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8054),
+  [15311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5098),
+  [15313] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8120),
+  [15315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2504),
+  [15317] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8115),
+  [15319] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_keyword_statement, 3),
+  [15321] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_if_statement, 2, .production_id = 112),
+  [15323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1413),
+  [15325] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8082),
+  [15327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2537),
+  [15329] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8112),
+  [15331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2135),
+  [15333] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8107),
+  [15335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2977),
+  [15337] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 6),
+  [15339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2144),
+  [15341] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8104),
+  [15343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2664),
+  [15345] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8099),
+  [15347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2659),
+  [15349] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8096),
+  [15351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2150),
+  [15353] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8091),
+  [15355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2168),
+  [15357] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8088),
+  [15359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2562),
+  [15361] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8083),
+  [15363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2571),
+  [15365] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8080),
+  [15367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1812),
+  [15369] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8075),
+  [15371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1817),
+  [15373] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8072),
+  [15375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3732),
+  [15377] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_forall_statement, 1),
+  [15379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4840),
+  [15381] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8067),
+  [15383] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 6),
+  [15385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3410),
+  [15387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8643),
+  [15389] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_extent_specifier, 1),
+  [15391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4827),
+  [15393] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8064),
+  [15395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2215),
+  [15397] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8090),
+  [15399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2180),
+  [15401] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8059),
+  [15403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1424),
+  [15405] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8034),
+  [15407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2193),
+  [15409] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8056),
+  [15411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7639),
+  [15413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1576),
+  [15415] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8051),
+  [15417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1497),
+  [15419] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8048),
+  [15421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5131),
+  [15423] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8043),
+  [15425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5145),
+  [15427] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8040),
+  [15429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5147),
+  [15431] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8035),
+  [15433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4876),
+  [15435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5153),
+  [15437] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8032),
+  [15439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3021),
+  [15441] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8027),
+  [15443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4034),
+  [15445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3382),
+  [15447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(aux_sym_derived_type_statement_repeat1, 2, .production_id = 104),
+  [15449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2992),
+  [15451] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8024),
+  [15453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2638),
+  [15455] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8019),
+  [15457] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2633),
+  [15459] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8016),
+  [15461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2631),
+  [15463] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8011),
+  [15465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2622),
+  [15467] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8008),
+  [15469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4568),
+  [15471] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8003),
+  [15473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4553),
+  [15475] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7705),
+  [15477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2010),
+  [15479] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7995),
+  [15481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2001),
+  [15483] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7992),
+  [15485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1405),
+  [15487] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7946),
+  [15489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1373),
+  [15491] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7987),
+  [15493] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1353),
+  [15495] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7984),
+  [15497] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_parameter_statement, 5),
+  [15499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1835),
+  [15501] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7979),
+  [15503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1808),
+  [15505] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7976),
+  [15507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2781),
+  [15509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2227),
+  [15511] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7971),
+  [15513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2203),
+  [15515] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7996),
+  [15517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1455),
+  [15519] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7948),
+  [15521] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2237),
+  [15523] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7968),
+  [15525] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_read_statement, 1),
+  [15527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5477),
+  [15529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2287),
+  [15531] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7963),
+  [15533] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_base_type_specifier, 4),
+  [15535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2250),
+  [15537] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7960),
+  [15539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5188),
+  [15541] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7955),
+  [15543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5197),
+  [15545] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7952),
+  [15547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5199),
+  [15549] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7947),
+  [15551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5334),
+  [15553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5335),
+  [15555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5210),
+  [15557] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7944),
+  [15559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2680),
+  [15561] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7932),
+  [15563] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_where_statement, 1),
+  [15565] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_do_loop_statement, 5),
+  [15567] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_implicit_range, 3),
+  [15569] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2682),
+  [15571] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7928),
+  [15573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2531),
+  [15575] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7916),
+  [15577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2526),
+  [15579] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7912),
+  [15581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5554),
+  [15583] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7900),
+  [15585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5552),
+  [15587] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7896),
+  [15589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1473),
+  [15591] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7849),
+  [15593] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 6, .production_id = 103),
+  [15595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1910),
+  [15597] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7871),
+  [15599] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_do_loop_statement, 3, .production_id = 78),
+  [15601] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_if_statement, 5),
+  [15603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1906),
+  [15605] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7865),
+  [15607] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_use_statement, 3, .production_id = 16),
+  [15609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7272),
+  [15611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3022),
+  [15613] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_if_statement, 1),
+  [15615] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_params, 4),
+  [15617] = {.entry = {.count = 1, .reusable = false}}, REDUCE(sym_preproc_params, 4),
+  [15619] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_case_statement, 5),
+  [15621] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_where_statement, 2, .production_id = 80),
+  [15623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1747),
+  [15625] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7839),
+  [15627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1728),
+  [15629] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7833),
+  [15631] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_where_statement, 5),
+  [15633] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_abstract_specifier, 1),
+  [15635] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_enumeration_type_statement, 4, .production_id = 2),
+  [15637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1596),
+  [15639] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7762),
+  [15641] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__block_forall_statement, 5),
+  [15643] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_forall_statement, 3, .production_id = 94),
+  [15645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1173),
+  [15647] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7807),
+  [15649] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__derived_type_qualifier, 1, .production_id = 37),
+  [15651] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__derived_type_qualifier, 1, .production_id = 38),
+  [15653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1161),
+  [15655] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7801),
+  [15657] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_module_procedure_statement, 3, .production_id = 71),
+  [15659] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_subroutine_statement, 5, .production_id = 90),
+  [15661] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1031),
+  [15663] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7775),
+  [15665] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_type_statement, 5, .production_id = 115),
+  [15667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5274),
+  [15669] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7751),
+  [15671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(968),
+  [15673] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7769),
+  [15675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5135),
+  [15677] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7736),
+  [15679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2669),
+  [15681] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_coarray_critical_statement, 3, .production_id = 84),
+  [15683] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_critical_statement, 5),
+  [15685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4028),
+  [15687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6438),
+  [15689] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_coarray_team_statement, 5),
+  [15691] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_allocate_statement, 5, .production_id = 119),
+  [15693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2573),
+  [15695] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7740),
+  [15697] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_select_rank_statement, 5, .production_id = 116),
+  [15699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8631),
+  [15701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5074),
+  [15703] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7722),
+  [15705] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_end_block_construct_statement, 3, .production_id = 81),
+  [15707] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_block_construct, 5),
+  [15709] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_file_position_statement, 2),
+  [15711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2590),
+  [15713] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7728),
+  [15715] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5301),
+  [15717] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7710),
+  [15719] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4009),
+  [15721] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7982),
+  [15723] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_close_statement, 5),
+  [15725] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_enumeration_type_statement, 5),
+  [15727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4502),
+  [15729] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1671),
+  [15731] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2152),
+  [15733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2222),
+  [15735] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5290),
+  [15737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4013),
+  [15739] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2073),
+  [15741] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2060),
+  [15743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3445),
+  [15745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2228),
+  [15747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2231),
+  [15749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5300),
+  [15751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2214),
+  [15753] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_unlimited_polymorphic, 1),
+  [15755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2238),
+  [15757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2213),
+  [15759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5062),
+  [15761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3373),
+  [15763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4294),
+  [15765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4008),
+  [15767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3401),
+  [15769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2584),
+  [15771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2211),
+  [15773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5076),
+  [15775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2988),
+  [15777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2575),
+  [15779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3383),
+  [15781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1995),
+  [15783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4209),
+  [15785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5086),
+  [15787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3994),
+  [15789] = {.entry = {.count = 1, .reusable = true}},  ACCEPT_INPUT(),
+  [15791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2609),
+  [15793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1992),
+  [15795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1991),
+  [15797] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 2),
+  [15799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2770),
+  [15801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3945),
+  [15803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4498),
+  [15805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2741),
+  [15807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1990),
+  [15809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1989),
+  [15811] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5285),
+  [15813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4786),
+  [15815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(60),
+  [15817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1987),
+  [15819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1986),
+  [15821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2014),
+  [15823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6030),
+  [15825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2031),
+  [15827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1985),
+  [15829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1588),
+  [15831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2030),
+  [15833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5403),
+  [15835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4945),
+  [15837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(827),
+  [15839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3198),
+  [15841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1042),
+  [15843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3337),
+  [15845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1028),
+  [15847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1296),
+  [15849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1691),
+  [15851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1679),
+  [15853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1046),
+  [15855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1688),
+  [15857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1686),
+  [15859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5540),
+  [15861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7770),
+  [15863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4904),
+  [15865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1274),
+  [15867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1685),
+  [15869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1701),
+  [15871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3788),
+  [15873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5254),
+  [15875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2025),
+  [15877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5245),
+  [15879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1308),
+  [15881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1702),
+  [15883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1707),
+  [15885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5622),
+  [15887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3833),
+  [15889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4801),
+  [15891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1709),
+  [15893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2197),
+  [15895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3443),
+  [15897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1678),
+  [15899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4483),
+  [15901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1166),
+  [15903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(819),
+  [15905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1168),
+  [15907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2192),
+  [15909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2337),
+  [15911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7690),
+  [15913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1174),
+  [15915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2340),
+  [15917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2341),
+  [15919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2190),
+  [15921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2719),
+  [15923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3854),
+  [15925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6361),
+  [15927] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2349),
+  [15929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2351),
+  [15931] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3334),
+  [15933] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4032),
+  [15935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4096),
+  [15937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2184),
+  [15939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2361),
+  [15941] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2364),
+  [15943] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statement_function_arg_list, 4),
+  [15945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2181),
+  [15947] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 2),
+  [15949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2371),
+  [15951] = {.entry = {.count = 1, .reusable = true}}, SHIFT(106),
+  [15953] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1592),
+  [15955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(830),
+  [15957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3790),
+  [15959] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1737),
+  [15961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1668),
+  [15963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1742),
+  [15965] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2028),
+  [15967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2583),
+  [15969] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2023),
+  [15971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1756),
+  [15973] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2395),
+  [15975] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2398),
+  [15977] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4809),
+  [15979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1227),
+  [15981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2177),
+  [15983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3990),
+  [15985] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2408),
+  [15987] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2410),
+  [15989] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2175),
+  [15991] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1487),
+  [15993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4807),
+  [15995] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1261),
+  [15997] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2044),
+  [15999] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2416),
+  [16001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2418),
+  [16003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(924),
+  [16005] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3402),
+  [16007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2433),
+  [16009] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 4, .production_id = 99),
+  [16011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8114),
+  [16013] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4766),
+  [16015] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4823),
+  [16017] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 4, .production_id = 99),
+  [16019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1922),
+  [16021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4774),
+  [16023] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1917),
+  [16025] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4810),
+  [16027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1908),
+  [16029] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 4, .production_id = 99),
+  [16031] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1919),
+  [16033] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1926),
+  [16035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1927),
+  [16037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6343),
+  [16039] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 4, .production_id = 100),
+  [16041] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 4, .production_id = 100),
+  [16043] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 4, .production_id = 100),
+  [16045] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1930),
+  [16047] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1933),
+  [16049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4832),
+  [16051] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2035),
+  [16053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8530),
+  [16055] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4082),
+  [16057] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1934),
+  [16059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1937),
+  [16061] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_binary_op, 1),
+  [16063] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4839),
+  [16065] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2112),
+  [16067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1962),
+  [16069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6034),
+  [16071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2173),
+  [16073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8529),
+  [16075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1472),
+  [16077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5555),
+  [16079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5553),
+  [16081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2013),
+  [16083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2292),
+  [16085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5551),
+  [16087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2291),
+  [16089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2290),
+  [16091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2288),
+  [16093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2286),
+  [16095] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2075),
+  [16097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2283),
+  [16099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2282),
+  [16101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4803),
+  [16103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3422),
+  [16105] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8528),
+  [16107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2529),
+  [16109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2530),
+  [16111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4740),
+  [16113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1789),
+  [16115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2533),
+  [16117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1765),
+  [16119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1792),
+  [16121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1796),
+  [16123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1764),
+  [16125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1799),
+  [16127] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1801),
+  [16129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1804),
+  [16131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7631),
+  [16133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3976),
+  [16135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4739),
+  [16137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2709),
+  [16139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2710),
+  [16141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4800),
+  [16143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2262),
+  [16145] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2734),
+  [16147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2259),
+  [16149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2258),
+  [16151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2257),
+  [16153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2256),
+  [16155] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2254),
+  [16157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2252),
+  [16159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2251),
+  [16161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4737),
+  [16163] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4073),
+  [16165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3362),
+  [16167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5203),
+  [16169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5202),
+  [16171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1575),
+  [16173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5198),
+  [16175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1462),
+  [16177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4072),
+  [16179] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4068),
+  [16181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5190),
+  [16183] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5189),
+  [16185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5396),
+  [16187] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5187),
+  [16189] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4852),
+  [16191] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5183),
+  [16193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2247),
+  [16195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2243),
+  [16197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2239),
+  [16199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8575),
+  [16201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4856),
+  [16203] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2120),
+  [16205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2232),
+  [16207] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2230),
+  [16209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3044),
+  [16211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2225),
+  [16213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3902),
+  [16215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2122),
+  [16217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3785),
+  [16219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1830),
+  [16221] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1834),
+  [16223] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2967),
+  [16225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1833),
+  [16227] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5103),
+  [16229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4063),
+  [16231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3481),
+  [16233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1553),
+  [16235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1417),
+  [16237] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2032),
+  [16239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1374),
+  [16241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2037),
+  [16243] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4040),
+  [16245] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2006),
+  [16247] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2008),
+  [16249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2043),
+  [16251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2012),
+  [16253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2207),
+  [16255] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2755),
+  [16257] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1321),
+  [16259] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3214),
+  [16261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4580),
+  [16263] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4164),
+  [16265] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4614),
+  [16267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2041),
+  [16269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4210),
+  [16271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4185),
+  [16273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2627),
+  [16275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2630),
+  [16277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2042),
+  [16279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2632),
+  [16281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7983),
+  [16283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4859),
+  [16285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2170),
+  [16287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2636),
+  [16289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2637),
+  [16291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3480),
+  [16293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2641),
+  [16295] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6845),
+  [16297] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2174),
+  [16299] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6780),
+  [16301] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3000),
+  [16303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3001),
+  [16305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7619),
+  [16307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3023),
+  [16309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2046),
+  [16311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2053),
+  [16313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1292),
+  [16315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5149),
+  [16317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5148),
+  [16319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1436),
+  [16321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5146),
+  [16323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3393),
+  [16325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1677),
+  [16327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2206),
+  [16329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5134),
+  [16331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5133),
+  [16333] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3411),
+  [16335] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5130),
+  [16337] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3203),
+  [16339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6038),
+  [16341] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2208),
+  [16343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1538),
+  [16345] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1552),
+  [16347] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2209),
+  [16349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1577),
+  [16351] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1205),
+  [16353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4644),
+  [16355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2187),
+  [16357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2183),
+  [16359] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2067),
+  [16361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2179),
+  [16363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1423),
+  [16365] = {.entry = {.count = 1, .reusable = true}}, SHIFT(815),
+  [16367] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1997),
+  [16369] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4836),
+  [16371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4837),
+  [16373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4841),
+  [16375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3374),
+  [16377] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4001),
+  [16379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1251),
+  [16381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1814),
+  [16383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1813),
+  [16385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3384),
+  [16387] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1811),
+  [16389] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6394),
+  [16391] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1675),
+  [16393] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4011),
+  [16395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2564),
+  [16397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2563),
+  [16399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1419),
+  [16401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2561),
+  [16403] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3417),
+  [16405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(828),
+  [16407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4718),
+  [16409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2158),
+  [16411] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2156),
+  [16413] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2217),
+  [16415] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2147),
+  [16417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3871),
+  [16419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6446),
+  [16421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2647),
+  [16423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2645),
+  [16425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5091),
+  [16427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2665),
+  [16429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1903),
+  [16431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2267),
+  [16433] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1993),
+  [16435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2139),
+  [16437] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2138),
+  [16439] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3138),
+  [16441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2133),
+  [16443] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8638),
+  [16445] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5325),
+  [16447] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2729),
+  [16449] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2510),
+  [16451] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2508),
+  [16453] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3135),
+  [16455] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2502),
+  [16457] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1983),
+  [16459] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1980),
+  [16461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4598),
+  [16463] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5095),
+  [16465] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5094),
+  [16467] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4763),
+  [16469] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5090),
+  [16471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8619),
+  [16473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2686),
+  [16475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3816),
+  [16477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1850),
+  [16479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1852),
+  [16481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3350),
+  [16483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1855),
+  [16485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6339),
+  [16487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2491),
+  [16489] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2487),
+  [16491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4014),
+  [16493] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2620),
+  [16495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7964),
+  [16497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2690),
+  [16499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3633),
+  [16501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3386),
+  [16503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1979),
+  [16505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1971),
+  [16507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4785),
+  [16509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4562),
+  [16511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4154),
+  [16513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7140),
+  [16515] = {.entry = {.count = 1, .reusable = true}}, SHIFT(946),
+  [16517] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1965),
+  [16519] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5430),
+  [16521] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 3, .production_id = 69),
+  [16523] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 3, .production_id = 69),
+  [16525] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7453),
+  [16527] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1862),
+  [16529] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3809),
+  [16531] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1670),
+  [16533] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 3, .production_id = 69),
+  [16535] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1901),
+  [16537] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1893),
+  [16539] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6014),
+  [16541] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3381),
+  [16543] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3803),
+  [16545] = {.entry = {.count = 1, .reusable = true}}, SHIFT(942),
+  [16547] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3802),
+  [16549] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4757),
+  [16551] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2065),
+  [16553] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7449),
+  [16555] = {.entry = {.count = 1, .reusable = true}}, SHIFT(878),
+  [16557] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3799),
+  [16559] = {.entry = {.count = 1, .reusable = true}}, SHIFT(105),
+  [16561] = {.entry = {.count = 1, .reusable = true}}, SHIFT(14),
+  [16563] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1899),
+  [16565] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1897),
+  [16567] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7883),
+  [16569] = {.entry = {.count = 1, .reusable = false}}, SHIFT(7894),
+  [16571] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7280),
+  [16573] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3886),
+  [16575] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4153),
+  [16577] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1202),
+  [16579] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4751),
+  [16581] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3086),
+  [16583] = {.entry = {.count = 1, .reusable = true}}, SHIFT(311),
+  [16585] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1888),
+  [16587] = {.entry = {.count = 1, .reusable = true}}, SHIFT(817),
+  [16589] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1959),
+  [16591] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1289),
+  [16593] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2070),
+  [16595] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1885),
+  [16597] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5322),
+  [16599] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2702),
+  [16601] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8110),
+  [16603] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3017),
+  [16605] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2706),
+  [16607] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2400),
+  [16609] = {.entry = {.count = 1, .reusable = true}}, SHIFT(915),
+  [16611] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1669),
+  [16613] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1975),
+  [16615] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4728),
+  [16617] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4725),
+  [16619] = {.entry = {.count = 1, .reusable = true}}, SHIFT(464),
+  [16621] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym__statement_function_arg_list, 3),
+  [16623] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8196),
+  [16625] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3372),
+  [16627] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2700),
+  [16629] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 3),
+  [16631] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 3, .production_id = 69),
+  [16633] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2714),
+  [16635] = {.entry = {.count = 1, .reusable = true}}, SHIFT(67),
+  [16637] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4491),
+  [16639] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3861),
+  [16641] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3667),
+  [16643] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3631),
+  [16645] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3647),
+  [16647] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3656),
+  [16649] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 3, .production_id = 69),
+  [16651] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4466),
+  [16653] = {.entry = {.count = 1, .reusable = true}}, SHIFT(268),
+  [16655] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3636),
+  [16657] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3642),
+  [16659] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1964),
+  [16661] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 5, .production_id = 130),
+  [16663] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4719),
+  [16665] = {.entry = {.count = 1, .reusable = false}}, SHIFT(8565),
+  [16667] = {.entry = {.count = 1, .reusable = true}}, SHIFT(259),
+  [16669] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4925),
+  [16671] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4812),
+  [16673] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4453),
+  [16675] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1293),
+  [16677] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3097),
+  [16679] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5260),
+  [16681] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 3, .production_id = 69),
+  [16683] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5248),
+  [16685] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5597),
+  [16687] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1925),
+  [16689] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4462),
+  [16691] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8409),
+  [16693] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5591),
+  [16695] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7392),
+  [16697] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8563),
+  [16699] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1879),
+  [16701] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4472),
+  [16703] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2545),
+  [16705] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1294),
+  [16707] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2345),
+  [16709] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4069),
+  [16711] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1007),
+  [16713] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 3),
+  [16715] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1267),
+  [16717] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1909),
+  [16719] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_specification_part, 5),
+  [16721] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 5, .production_id = 157),
+  [16723] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 157),
+  [16725] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, .production_id = 157),
+  [16727] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1305),
+  [16729] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 5, .production_id = 130),
+  [16731] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 5, .production_id = 130),
+  [16733] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3378),
+  [16735] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 5, .production_id = 132),
+  [16737] = {.entry = {.count = 1, .reusable = true}}, SHIFT(16),
+  [16739] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 5, .production_id = 132),
+  [16741] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef, 5, .production_id = 132),
+  [16743] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1337),
+  [16745] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4825),
+  [16747] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4828),
+  [16749] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2552),
+  [16751] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4486),
+  [16753] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1326),
+  [16755] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2355),
+  [16757] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4479),
+  [16759] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4956),
+  [16761] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1302),
+  [16763] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4589),
+  [16765] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5685),
+  [16767] = {.entry = {.count = 1, .reusable = true}}, SHIFT(375),
+  [16769] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1333),
+  [16771] = {.entry = {.count = 1, .reusable = true}}, SHIFT(64),
+  [16773] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2367),
+  [16775] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3836),
+  [16777] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3753),
+  [16779] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3750),
+  [16781] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3741),
+  [16783] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3739),
+  [16785] = {.entry = {.count = 1, .reusable = true}}, SHIFT(248),
+  [16787] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3725),
+  [16789] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3724),
+  [16791] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2735),
+  [16793] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8411),
+  [16795] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2275),
+  [16797] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3698),
+  [16799] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1334),
+  [16801] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7396),
+  [16803] = {.entry = {.count = 1, .reusable = true}}, SHIFT(98),
+  [16805] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6416),
+  [16807] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3398),
+  [16809] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2740),
+  [16811] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5252),
+  [16813] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5035),
+  [16815] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4025),
+  [16817] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1914),
+  [16819] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5708),
+  [16821] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1915),
+  [16823] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1954),
+  [16825] = {.entry = {.count = 1, .reusable = true}}, SHIFT(892),
+  [16827] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5569),
+  [16829] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3644),
+  [16831] = {.entry = {.count = 1, .reusable = true}}, SHIFT(11),
+  [16833] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4910),
+  [16835] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4914),
+  [16837] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3646),
+  [16839] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1226),
+  [16841] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4469),
+  [16843] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2145),
+  [16845] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4027),
+  [16847] = {.entry = {.count = 1, .reusable = true}}, SHIFT(320),
+  [16849] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2763),
+  [16851] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2381),
+  [16853] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3896),
+  [16855] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3777),
+  [16857] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8154),
+  [16859] = {.entry = {.count = 1, .reusable = true}}, SHIFT(869),
+  [16861] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1746),
+  [16863] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1269),
+  [16865] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1940),
+  [16867] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5771),
+  [16869] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2278),
+  [16871] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1942),
+  [16873] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7401),
+  [16875] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3351),
+  [16877] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3111),
+  [16879] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1324),
+  [16881] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4443),
+  [16883] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4288),
+  [16885] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2391),
+  [16887] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8248),
+  [16889] = {.entry = {.count = 1, .reusable = true}}, SHIFT(19),
+  [16891] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1257),
+  [16893] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4846),
+  [16895] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2279),
+  [16897] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4191),
+  [16899] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1955),
+  [16901] = {.entry = {.count = 1, .reusable = true}}, SHIFT(462),
+  [16903] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2274),
+  [16905] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3891),
+  [16907] = {.entry = {.count = 1, .reusable = true}}, SHIFT(937),
+  [16909] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7759),
+  [16911] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3847),
+  [16913] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2329),
+  [16915] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1210),
+  [16917] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2322),
+  [16919] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4870),
+  [16921] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1198),
+  [16923] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2875),
+  [16925] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2743),
+  [16927] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_module, 4),
+  [16929] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1952),
+  [16931] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 4, .production_id = 99),
+  [16933] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 4, .production_id = 100),
+  [16935] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2754),
+  [16937] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2689),
+  [16939] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2285),
+  [16941] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1315),
+  [16943] = {.entry = {.count = 1, .reusable = true}}, SHIFT(353),
+  [16945] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3822),
+  [16947] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4467),
+  [16949] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7980),
+  [16951] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 4, .production_id = 99),
+  [16953] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 4, .production_id = 100),
+  [16955] = {.entry = {.count = 1, .reusable = true}}, SHIFT(947),
+  [16957] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2867),
+  [16959] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 4, .production_id = 99),
+  [16961] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1999),
+  [16963] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3379),
+  [16965] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 3, .production_id = 69),
+  [16967] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2015),
+  [16969] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 2),
+  [16971] = {.entry = {.count = 1, .reusable = true}}, SHIFT(77),
+  [16973] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2859),
+  [16975] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4817),
+  [16977] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 3, .production_id = 69),
+  [16979] = {.entry = {.count = 1, .reusable = true}}, SHIFT(379),
+  [16981] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3860),
+  [16983] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1752),
+  [16985] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8285),
+  [16987] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4820),
+  [16989] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3380),
+  [16991] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5446),
+  [16993] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4726),
+  [16995] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5261),
+  [16997] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 3, .production_id = 69),
+  [16999] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 4, .production_id = 100),
+  [17001] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8232),
+  [17003] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5584),
+  [17005] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1751),
+  [17007] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5621),
+  [17009] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1750),
+  [17011] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3798),
+  [17013] = {.entry = {.count = 1, .reusable = true}}, SHIFT(12),
+  [17015] = {.entry = {.count = 1, .reusable = true}}, SHIFT(399),
+  [17017] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3925),
+  [17019] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3956),
+  [17021] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8583),
+  [17023] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2304),
+  [17025] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2904),
+  [17027] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3536),
+  [17029] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2289),
+  [17031] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1745),
+  [17033] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4888),
+  [17035] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1976),
+  [17037] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4779),
+  [17039] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4889),
+  [17041] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4781),
+  [17043] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_statements, 4),
+  [17045] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1313),
+  [17047] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, .production_id = 176),
+  [17049] = {.entry = {.count = 1, .reusable = true}}, SHIFT(412),
+  [17051] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, .production_id = 176),
+  [17053] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8429),
+  [17055] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif, 6, .production_id = 176),
+  [17057] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 6, .production_id = 156),
+  [17059] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4867),
+  [17061] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 6, .production_id = 156),
+  [17063] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 6, .production_id = 158),
+  [17065] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_statements, 6, .production_id = 158),
+  [17067] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3363),
+  [17069] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1744),
+  [17071] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1743),
+  [17073] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1637),
+  [17075] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1005),
+  [17077] = {.entry = {.count = 1, .reusable = true}}, SHIFT(994),
+  [17079] = {.entry = {.count = 1, .reusable = true}}, SHIFT(436),
+  [17081] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2865),
+  [17083] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8288),
+  [17085] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5479),
+  [17087] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2036),
+  [17089] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4905),
+  [17091] = {.entry = {.count = 1, .reusable = true}}, SHIFT(955),
+  [17093] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2344),
+  [17095] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_interface, 5, .production_id = 132),
+  [17097] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5729),
+  [17099] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2054),
+  [17101] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5688),
+  [17103] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4794),
+  [17105] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_case, 2),
+  [17107] = {.entry = {.count = 1, .reusable = true}}, SHIFT(920),
+  [17109] = {.entry = {.count = 1, .reusable = true}}, SHIFT(447),
+  [17111] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2058),
+  [17113] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8098),
+  [17115] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1248),
+  [17117] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1286),
+  [17119] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2321),
+  [17121] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1238),
+  [17123] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4798),
+  [17125] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5565),
+  [17127] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_type, 2),
+  [17129] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1733),
+  [17131] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4915),
+  [17133] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5701),
+  [17135] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5731),
+  [17137] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1647),
+  [17139] = {.entry = {.count = 1, .reusable = true}}, SHIFT(468),
+  [17141] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2311),
+  [17143] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7959),
+  [17145] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_rank, 2),
+  [17147] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5370),
+  [17149] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4895),
+  [17151] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4804),
+  [17153] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2059),
+  [17155] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5572),
+  [17157] = {.entry = {.count = 1, .reusable = true}}, SHIFT(923),
+  [17159] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6015),
+  [17161] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1283),
+  [17163] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2072),
+  [17165] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1215),
+  [17167] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2115),
+  [17169] = {.entry = {.count = 1, .reusable = true}}, SHIFT(453),
+  [17171] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2004),
+  [17173] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7752),
+  [17175] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3390),
+  [17177] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3448),
+  [17179] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1656),
+  [17181] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2759),
+  [17183] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, .production_id = 157),
+  [17185] = {.entry = {.count = 1, .reusable = true}}, SHIFT(426),
+  [17187] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 5, .production_id = 130),
+  [17189] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7724),
+  [17191] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 5, .production_id = 132),
+  [17193] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1278),
+  [17195] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2814),
+  [17197] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7441),
+  [17199] = {.entry = {.count = 1, .reusable = true}}, SHIFT(954),
+  [17201] = {.entry = {.count = 1, .reusable = true}}, SHIFT(409),
+  [17203] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, .production_id = 157),
+  [17205] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7765),
+  [17207] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 5, .production_id = 130),
+  [17209] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1273),
+  [17211] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3446),
+  [17213] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3770),
+  [17215] = {.entry = {.count = 1, .reusable = true}}, SHIFT(388),
+  [17217] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2062),
+  [17219] = {.entry = {.count = 1, .reusable = true}}, SHIFT(367),
+  [17221] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 4, .production_id = 99),
+  [17223] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 4, .production_id = 100),
+  [17225] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2061),
+  [17227] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 3),
+  [17229] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4933),
+  [17231] = {.entry = {.count = 1, .reusable = true}}, SHIFT(352),
+  [17233] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5395),
+  [17235] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2999),
+  [17237] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 4, .production_id = 99),
+  [17239] = {.entry = {.count = 1, .reusable = true}}, SHIFT(960),
+  [17241] = {.entry = {.count = 1, .reusable = true}}, SHIFT(338),
+  [17243] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_derived_type, 5, .production_id = 132),
+  [17245] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 4, .production_id = 100),
+  [17247] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4921),
+  [17249] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1265),
+  [17251] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2281),
+  [17253] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4923),
+  [17255] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, .production_id = 157),
+  [17257] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 5, .production_id = 130),
+  [17259] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_specification_part, 7, .production_id = 177),
+  [17261] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5583),
+  [17263] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 4, .production_id = 99),
+  [17265] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 4, .production_id = 100),
+  [17267] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3388),
+  [17269] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5373),
+  [17271] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8366),
+  [17273] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4930),
+  [17275] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2038),
+  [17277] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7093),
+  [17279] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4924),
+  [17281] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7091),
+  [17283] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7222),
+  [17285] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7796),
+  [17287] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7088),
+  [17289] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2034),
+  [17291] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2176),
+  [17293] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1272),
+  [17295] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, .production_id = 192),
+  [17297] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_statements, 7, .production_id = 192),
+  [17299] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 7, .production_id = 175),
+  [17301] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 6, .production_id = 176),
+  [17303] = {.entry = {.count = 1, .reusable = true}}, SHIFT(926),
+  [17305] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2188),
+  [17307] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3434),
+  [17309] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1252),
+  [17311] = {.entry = {.count = 1, .reusable = true}}, SHIFT(103),
+  [17313] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4926),
+  [17315] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3376),
+  [17317] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1996),
+  [17319] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3500),
+  [17321] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6697),
+  [17323] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4931),
+  [17325] = {.entry = {.count = 1, .reusable = true}}, SHIFT(943),
+  [17327] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2229),
+  [17329] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1231),
+  [17331] = {.entry = {.count = 1, .reusable = true}}, SHIFT(948),
+  [17333] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 6, .production_id = 176),
+  [17335] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 6, .production_id = 176),
+  [17337] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 6, .production_id = 176),
+  [17339] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2434),
+  [17341] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 7, .production_id = 192),
+  [17343] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5736),
+  [17345] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 5, .production_id = 132),
+  [17347] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_rank, 5, .production_id = 130),
+  [17349] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4173),
+  [17351] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 5, .production_id = 132),
+  [17353] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3375),
+  [17355] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6762),
+  [17357] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4005),
+  [17359] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_type, 5, .production_id = 130),
+  [17361] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8179),
+  [17363] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8180),
+  [17365] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 5, .production_id = 132),
+  [17367] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_select_case, 5, .production_id = 130),
+  [17369] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_case, 3),
+  [17371] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2242),
+  [17373] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1243),
+  [17375] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3213),
+  [17377] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 6, .production_id = 176),
+  [17379] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5705),
+  [17381] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2066),
+  [17383] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7891),
+  [17385] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3357),
+  [17387] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 6, .production_id = 158),
+  [17389] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, .production_id = 156),
+  [17391] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 6, .production_id = 176),
+  [17393] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 7, .production_id = 192),
+  [17395] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3004),
+  [17397] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4016),
+  [17399] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1873),
+  [17401] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5560),
+  [17403] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_rank, 4, .production_id = 100),
+  [17405] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1876),
+  [17407] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4108),
+  [17409] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3358),
+  [17411] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_type, 3),
+  [17413] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_type, 4, .production_id = 100),
+  [17415] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_select_case, 4, .production_id = 100),
+  [17417] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1877),
+  [17419] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7978),
+  [17421] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3012),
+  [17423] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1881),
+  [17425] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1883),
+  [17427] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8130),
+  [17429] = {.entry = {.count = 1, .reusable = true}}, SHIFT(7497),
+  [17431] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3432),
+  [17433] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_specification_part, 8, .production_id = 201),
+  [17435] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1891),
+  [17437] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_bound_procedures, 5, .production_id = 132),
+  [17439] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, .production_id = 130),
+  [17441] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4159),
+  [17443] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_bound_procedures, 5, .production_id = 157),
+  [17445] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_derived_type, 6, .production_id = 176),
+  [17447] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_internal_procedures, 5, .production_id = 132),
+  [17449] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, .production_id = 130),
+  [17451] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_internal_procedures, 5, .production_id = 157),
+  [17453] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_procedure_statements, 4),
+  [17455] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_procedure_statements, 5, .production_id = 132),
+  [17457] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, .production_id = 130),
+  [17459] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_procedure_statements, 5, .production_id = 157),
+  [17461] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2027),
+  [17463] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_interface, 6, .production_id = 176),
+  [17465] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elifdef_in_module, 6, .production_id = 158),
+  [17467] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, .production_id = 156),
+  [17469] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_elif_in_module, 6, .production_id = 176),
+  [17471] = {.entry = {.count = 1, .reusable = true}}, SHIFT(4061),
+  [17473] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1892),
+  [17475] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5366),
+  [17477] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2419),
+  [17479] = {.entry = {.count = 1, .reusable = true}}, SHIFT(5392),
+  [17481] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3215),
+  [17483] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3197),
+  [17485] = {.entry = {.count = 1, .reusable = true}}, SHIFT(1902),
+  [17487] = {.entry = {.count = 1, .reusable = true}}, SHIFT(2426),
+  [17489] = {.entry = {.count = 1, .reusable = true}}, REDUCE(sym_preproc_else_in_select_rank, 3),
+  [17491] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3441),
+  [17493] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3439),
+  [17495] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3438),
+  [17497] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3442),
+  [17499] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3450),
+  [17501] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3451),
+  [17503] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3440),
+  [17505] = {.entry = {.count = 1, .reusable = true}}, SHIFT(3453),
+  [17507] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8675),
+  [17509] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8018),
+  [17511] = {.entry = {.count = 1, .reusable = true}}, SHIFT(8679),
+  [17513] = {.entry = {.count = 1, .reusable = true}}, SHIFT(6322),
 };
 
 #ifdef __cplusplus
@@ -644903,15 +644628,11 @@ bool tree_sitter_fortran_external_scanner_scan(void *, TSLexer *, const bool *);
 unsigned tree_sitter_fortran_external_scanner_serialize(void *, char *);
 void tree_sitter_fortran_external_scanner_deserialize(void *, const char *, unsigned);
 
-#ifdef TREE_SITTER_HIDE_SYMBOLS
-#define TS_PUBLIC
-#elif defined(_WIN32)
-#define TS_PUBLIC __declspec(dllexport)
-#else
-#define TS_PUBLIC __attribute__((visibility("default")))
+#ifdef _WIN32
+#define extern __declspec(dllexport)
 #endif
 
-TS_PUBLIC const TSLanguage *tree_sitter_fortran(void) {
+extern const TSLanguage *tree_sitter_fortran(void) {
   static const TSLanguage language = {
     .version = LANGUAGE_VERSION,
     .symbol_count = SYMBOL_COUNT,
diff --git a/src/scanner.c b/src/scanner.c
index 381ad4d..2891237 100644
--- a/src/scanner.c
+++ b/src/scanner.c
@@ -12,6 +12,7 @@ enum TokenType {
     STRING_LITERAL_KIND,
     END_OF_STATEMENT,
     PREPROC_UNARY_OPERATOR,
+    HOLLERITH_CONSTANT,
 };
 
 typedef struct {
@@ -146,6 +147,70 @@ static bool scan_boz(TSLexer *lexer) {
     return false;
 }
 
+// If in the middle of a literal, '&' is required in both lines
+static bool skip_literal_continuation_sequence(TSLexer *lexer) {
+    if (lexer->lookahead != '&') {
+        return true;
+    }
+
+    skip(lexer);
+    while (iswspace(lexer->lookahead)) {
+        skip(lexer);
+    }
+    // second '&' required to continue the literal
+    if (lexer->lookahead == '&') {
+        skip(lexer);
+        return true;
+    }
+    return false;
+}
+
+/// Need to dynamically determining the length of the Hollerith constant
+static bool scan_hollerith_constant(TSLexer *lexer) {
+    // Try to parse nH<text> where n is the number of characters in <text>
+
+    // Read integer prefix 'n'
+    unsigned length = 0;
+    while (iswdigit(lexer->lookahead)) {
+        unsigned new_length = length * 10 + (lexer->lookahead - '0');
+        // The number of characters has no limit but overflow has to be handled
+        if (new_length < length) {
+            return false;
+        }
+        length = new_length;
+        advance(lexer);
+
+        if (!skip_literal_continuation_sequence(lexer)) {
+            return false;
+        }
+    }
+
+    // 0 is invalid 'n' in Hollerith constants
+    if (length == 0) {
+        return false;
+    }
+
+    // Expect 'H' or 'h'
+    if (lexer->lookahead != 'H' && lexer->lookahead != 'h') {
+        return false;
+    }
+    advance(lexer);
+
+    // Read exactly 'n' characters
+    for (int i = 0; i < length; i++) {
+        if (!lexer->lookahead || lexer->eof(lexer)) {
+            return false;
+        }
+        if (!skip_literal_continuation_sequence(lexer)) {
+            return false;
+        }
+        advance(lexer);
+    }
+    lexer->result_symbol = HOLLERITH_CONSTANT;
+    lexer->mark_end(lexer);
+    return true;
+}
+
 static bool scan_end_of_statement(Scanner *scanner, TSLexer *lexer) {
     // Things that end statements in Fortran:
     //
@@ -351,6 +416,13 @@ static bool scan(Scanner *scanner, TSLexer *lexer, const bool *valid_symbols) {
         }
     }
 
+    if (valid_symbols[HOLLERITH_CONSTANT]) {
+        if (scan_hollerith_constant(lexer)) {
+            return true;
+        }
+    }
+
+
     if (valid_symbols[INTEGER_LITERAL] || valid_symbols[FLOAT_LITERAL] ||
         valid_symbols[BOZ_LITERAL]) {
         // extract out root number from expression
diff --git a/src/tree_sitter/array.h b/src/tree_sitter/array.h
index 15a3b23..a17a574 100644
--- a/src/tree_sitter/array.h
+++ b/src/tree_sitter/array.h
@@ -14,6 +14,7 @@ extern "C" {
 #include <string.h>
 
 #ifdef _MSC_VER
+#pragma warning(push)
 #pragma warning(disable : 4101)
 #elif defined(__GNUC__) || defined(__clang__)
 #pragma GCC diagnostic push
@@ -278,7 +279,7 @@ static inline void _array__splice(Array *self, size_t element_size,
 #define _compare_int(a, b) ((int)*(a) - (int)(b))
 
 #ifdef _MSC_VER
-#pragma warning(default : 4101)
+#pragma warning(pop)
 #elif defined(__GNUC__) || defined(__clang__)
 #pragma GCC diagnostic pop
 #endif
diff --git a/src/tree_sitter/parser.h b/src/tree_sitter/parser.h
index 799f599..2b14ac1 100644
--- a/src/tree_sitter/parser.h
+++ b/src/tree_sitter/parser.h
@@ -13,8 +13,9 @@ extern "C" {
 #define ts_builtin_sym_end 0
 #define TREE_SITTER_SERIALIZATION_BUFFER_SIZE 1024
 
-#ifndef TREE_SITTER_API_H_
 typedef uint16_t TSStateId;
+
+#ifndef TREE_SITTER_API_H_
 typedef uint16_t TSSymbol;
 typedef uint16_t TSFieldId;
 typedef struct TSLanguage TSLanguage;
@@ -47,7 +48,6 @@ struct TSLexer {
   uint32_t (*get_column)(TSLexer *);
   bool (*is_at_included_range_start)(const TSLexer *);
   bool (*eof)(const TSLexer *);
-  void (*log)(const TSLexer *, const char *, ...);
 };
 
 typedef enum {
@@ -87,11 +87,6 @@ typedef union {
   } entry;
 } TSParseActionEntry;
 
-typedef struct {
-  int32_t start;
-  int32_t end;
-} TSCharacterRange;
-
 struct TSLanguage {
   uint32_t version;
   uint32_t symbol_count;
@@ -131,38 +126,13 @@ struct TSLanguage {
   const TSStateId *primary_state_ids;
 };
 
-static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t lookahead) {
-  uint32_t index = 0;
-  uint32_t size = len - index;
-  while (size > 1) {
-    uint32_t half_size = size / 2;
-    uint32_t mid_index = index + half_size;
-    TSCharacterRange *range = &ranges[mid_index];
-    if (lookahead >= range->start && lookahead <= range->end) {
-      return true;
-    } else if (lookahead > range->end) {
-      index = mid_index;
-    }
-    size -= half_size;
-  }
-  TSCharacterRange *range = &ranges[index];
-  return (lookahead >= range->start && lookahead <= range->end);
-}
-
 /*
  *  Lexer Macros
  */
 
-#ifdef _MSC_VER
-#define UNUSED __pragma(warning(suppress : 4101))
-#else
-#define UNUSED __attribute__((unused))
-#endif
-
 #define START_LEXER()           \
   bool result = false;          \
   bool skip = false;            \
-  UNUSED                        \
   bool eof = false;             \
   int32_t lookahead;            \
   goto start;                   \
@@ -178,17 +148,6 @@ static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t
     goto next_state;         \
   }
 
-#define ADVANCE_MAP(...)                                              \
-  {                                                                   \
-    static const uint16_t map[] = { __VA_ARGS__ };                    \
-    for (uint32_t i = 0; i < sizeof(map) / sizeof(map[0]); i += 2) {  \
-      if (map[i] == lookahead) {                                      \
-        state = map[i + 1];                                           \
-        goto next_state;                                              \
-      }                                                               \
-    }                                                                 \
-  }
-
 #define SKIP(state_value) \
   {                       \
     skip = true;          \
@@ -207,7 +166,7 @@ static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t
  *  Parse Table Macros
  */
 
-#define SMALL_STATE(id) ((id) - LARGE_STATE_COUNT)
+#define SMALL_STATE(id) id - LARGE_STATE_COUNT
 
 #define STATE(id) id
 
@@ -217,7 +176,7 @@ static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t
   {{                                  \
     .shift = {                        \
       .type = TSParseActionTypeShift, \
-      .state = (state_value)          \
+      .state = state_value            \
     }                                 \
   }}
 
@@ -225,7 +184,7 @@ static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t
   {{                                  \
     .shift = {                        \
       .type = TSParseActionTypeShift, \
-      .state = (state_value),         \
+      .state = state_value,           \
       .repetition = true              \
     }                                 \
   }}
@@ -238,15 +197,14 @@ static inline bool set_contains(TSCharacterRange *ranges, uint32_t len, int32_t
     }                                 \
   }}
 
-#define REDUCE(symbol_name, children, precedence, prod_id) \
-  {{                                                       \
-    .reduce = {                                            \
-      .type = TSParseActionTypeReduce,                     \
-      .symbol = symbol_name,                               \
-      .child_count = children,                             \
-      .dynamic_precedence = precedence,                    \
-      .production_id = prod_id                             \
-    },                                                     \
+#define REDUCE(symbol_val, child_count_val, ...) \
+  {{                                             \
+    .reduce = {                                  \
+      .type = TSParseActionTypeReduce,           \
+      .symbol = symbol_val,                      \
+      .child_count = child_count_val,            \
+      __VA_ARGS__                                \
+    },                                           \
   }}
 
 #define RECOVER()                    \
diff --git a/test/corpus/line_continuations.txt b/test/corpus/line_continuations.txt
index f2409fd..e361512 100644
--- a/test/corpus/line_continuations.txt
+++ b/test/corpus/line_continuations.txt
@@ -217,3 +217,38 @@ end program
       (output_item_list
         (string_literal)))
     (end_program_statement)))
+
+================================================================================
+Line continuation in hollerith constants
+================================================================================
+program test
+1 format(6x, 10habcdef,&
+    &ghi)
+2 format(6x, 1&
+    &0habcdefghik)
+3 format(6x, 10&
+    &habcdefghik)
+end program
+
+--------------------------------------------------------------------------------
+
+(translation_unit
+  (program
+    (program_statement
+      (name))
+    (statement_label)
+    (format_statement
+      (transfer_items
+        (edit_descriptor)
+        (hollerith_constant)))
+    (statement_label)
+    (format_statement
+      (transfer_items
+        (edit_descriptor)
+        (hollerith_constant)))
+    (statement_label)
+    (format_statement
+      (transfer_items
+        (edit_descriptor)
+        (hollerith_constant)))
+    (end_program_statement)))
diff --git a/test/corpus/statements.txt b/test/corpus/statements.txt
index 7d0a591..62a9231 100644
--- a/test/corpus/statements.txt
+++ b/test/corpus/statements.txt
@@ -1455,6 +1455,7 @@ PROGRAM TEST
 4 FORMAT(*(G15.8,:,','))
 5 FORMAT(/1X,'NUMBER OF DATA Total/ACCEPTED'/1X,i10/1X)
 6 FORMAT(3(1H-), 2HOK, 10H SOLUTION // 5D15.7)
+7 FORMAT(6x, 10Hv=1, w=x/2)
 END PROGRAM
 
 --------------------------------------------------------------------------------
@@ -1507,6 +1508,11 @@ END PROGRAM
         (hollerith_constant)
         (edit_descriptor)
         (edit_descriptor)))
+    (statement_label)
+    (format_statement
+      (transfer_items
+        (edit_descriptor)
+        (hollerith_constant)))
     (end_program_statement)))
 
 ================================================================================